Mercurial > hg > octave-nkf
comparison src/data.cc @ 1277:db4f4009d6e8
[project @ 1995-04-24 20:35:06 by jwe]
| author | jwe |
|---|---|
| date | Mon, 24 Apr 1995 20:35:06 +0000 |
| parents | 0ffb52e268d7 |
| children | 611d403c7f3d |
comparison
equal
deleted
inserted
replaced
| 1276:cbdf7db98554 | 1277:db4f4009d6e8 |
|---|---|
| 751 int nargin = args.length (); | 751 int nargin = args.length (); |
| 752 | 752 |
| 753 if (nargin == 2) | 753 if (nargin == 2) |
| 754 { | 754 { |
| 755 retval = 0.0; | 755 retval = 0.0; |
| 756 if (args(0).is_map ()) | 756 if (args(0).is_map () && args(1).is_string ()) |
| 757 { | 757 { |
| 758 if (args(1).is_string ()) | 758 char *s = args(1).string_value (); |
| 759 { | 759 tree_constant tmp = args(0).lookup_map_element (s, 0, 1); |
| 760 Octave_map m = args(0).map_value (); | 760 retval = (double) tmp.is_defined (); |
| 761 char *s = args(1).string_value (); | |
| 762 retval = (double) (s && m.contains (s)); | |
| 763 } | |
| 764 } | 761 } |
| 765 } | 762 } |
| 766 else | 763 else |
| 767 print_usage ("struct_contains"); | 764 print_usage ("struct_contains"); |
| 768 | 765 |