Mercurial > hg > octave-lyh
comparison src/data.cc @ 939:5d609adc8c28
[project @ 1994-11-18 23:26:29 by jwe]
| author | jwe |
|---|---|
| date | Fri, 18 Nov 1994 23:26:29 +0000 |
| parents | 5e45f8f8f8c1 |
| children | dfe01093f657 |
comparison
equal
deleted
inserted
replaced
| 938:639f497359fa | 939:5d609adc8c28 |
|---|---|
| 696 print_usage ("sumsq"); | 696 print_usage ("sumsq"); |
| 697 | 697 |
| 698 return retval; | 698 return retval; |
| 699 } | 699 } |
| 700 | 700 |
| 701 DEFUN ("is_struct", Fis_struct, Sis_struct, 1, 1, | |
| 702 "is_struct (x): return nonzero if x is a structure") | |
| 703 { | |
| 704 Octave_object retval; | |
| 705 | |
| 706 int nargin = args.length (); | |
| 707 | |
| 708 if (nargin == 1) | |
| 709 { | |
| 710 tree_constant arg = args(0); | |
| 711 | |
| 712 if (arg.is_map ()) | |
| 713 retval = 1.0; | |
| 714 else | |
| 715 retval = 0.0; | |
| 716 } | |
| 717 else | |
| 718 print_usage ("is_struct"); | |
| 719 | |
| 720 return retval; | |
| 721 } | |
| 722 | |
| 701 static void | 723 static void |
| 702 check_dimensions (int& nr, int& nc, const char *warnfor) | 724 check_dimensions (int& nr, int& nc, const char *warnfor) |
| 703 { | 725 { |
| 704 if (nr < 0 || nc < 0) | 726 if (nr < 0 || nc < 0) |
| 705 { | 727 { |