Mercurial > hg > octave-lyh
comparison src/utils.cc @ 719:02814aea28c8
[project @ 1994-09-21 15:01:30 by jwe]
author | jwe |
---|---|
date | Wed, 21 Sep 1994 15:03:56 +0000 |
parents | 36ba0576bd1b |
children | b419d48bdf26 |
comparison
equal
deleted
inserted
replaced
718:e81d3a66725e | 719:02814aea28c8 |
---|---|
520 error ("%s: expecting all arguments to be strings", fcn_name); | 520 error ("%s: expecting all arguments to be strings", fcn_name); |
521 | 521 |
522 return argv; | 522 return argv; |
523 } | 523 } |
524 | 524 |
525 // Return non-zero if either NR or NC is zero. Return -1 if this | |
526 // should be considered fatal; return 1 if this is ok. | |
527 | |
525 int | 528 int |
526 empty_arg (const char *name, int nr, int nc) | 529 empty_arg (const char *name, int nr, int nc) |
527 { | 530 { |
528 int is_empty = 0; | 531 int is_empty = 0; |
529 | 532 |
539 else if (flag == 0) | 542 else if (flag == 0) |
540 { | 543 { |
541 gripe_empty_arg (name, 1); | 544 gripe_empty_arg (name, 1); |
542 is_empty = -1; | 545 is_empty = -1; |
543 } | 546 } |
547 else | |
548 is_empty = 1; | |
544 } | 549 } |
545 | 550 |
546 return is_empty; | 551 return is_empty; |
547 } | 552 } |
548 | 553 |