Mercurial > hg > octave-lyh

comparison liboctave/Array-util.cc @ 4669:334a27c8f453

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-11-26 07:02:42 by jwe]
author jwe
date Wed, 26 Nov 2003 07:02:42 +0000
parents bf7272f8ba8c
children 6639c2574023
comparison
equal deleted inserted replaced
4668:7849788ca4bd 4669:334a27c8f453
23 #ifdef HAVE_CONFIG_H 23 #ifdef HAVE_CONFIG_H
24 #include <config.h> 24 #include <config.h>
25 #endif 25 #endif
26 26
27 #include "Array-util.h" 27 #include "Array-util.h"
28 #include "dim-vector.h"
29 #include "lo-error.h"
28 30
29 bool 31 bool
30 index_in_bounds (const Array<int>& ra_idx, const dim_vector& dimensions) 32 index_in_bounds (const Array<int>& ra_idx, const dim_vector& dimensions)
31 { 33 {
32 bool retval = true; 34 bool retval = true;
529 } 531 }
530 532
531 return retval; 533 return retval;
532 } 534 }
533 535
536 void
537 gripe_nonconformant (const char *op, int op1_len, int op2_len)
538 {
539 (*current_liboctave_error_handler)
540 ("%s: nonconformant arguments (op1 len: %d, op2 len: %d)",
541 op, op1_len, op2_len);
542 }
543
544 void
545 gripe_nonconformant (const char *op, int op1_nr, int op1_nc,
546 int op2_nr, int op2_nc)
547 {
548 (*current_liboctave_error_handler)
549 ("%s: nonconformant arguments (op1 is %dx%d, op2 is %dx%d)",
550 op, op1_nr, op1_nc, op2_nr, op2_nc);
551 }
552
553 void
554 gripe_nonconformant (const char *op, dim_vector& op1_dims,
555 dim_vector& op2_dims)
556 {
557 std::string op1_dims_str = op1_dims.str ();
558 std::string op2_dims_str = op2_dims.str ();
559
560 (*current_liboctave_error_handler)
561 ("%s: nonconformant arguments (op1 is %s, op2 is %s)",
562 op, op1_dims_str.c_str (), op2_dims_str.c_str ());
563 }
564
534 /* 565 /*
535 ;;; Local Variables: *** 566 ;;; Local Variables: ***
536 ;;; mode: C++ *** 567 ;;; mode: C++ ***
537 ;;; End: *** 568 ;;; End: ***
538 */ 569 */