Mercurial > hg > octave-lyh

comparison src/data.cc @ 3258:4964d5391acc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-07-21 21:51:33 by jwe]
author jwe
date Wed, 21 Jul 1999 21:52:04 +0000
parents 041ea33fbbf4
children b6c74a0772b5
comparison
equal deleted inserted replaced
3257:5e61a7a62e2e 3258:4964d5391acc
757 "is_bool (x): return nonzero if x is a boolean object") 757 "is_bool (x): return nonzero if x is a boolean object")
758 { 758 {
759 octave_value retval; 759 octave_value retval;
760 760
761 if (args.length () == 1) 761 if (args.length () == 1)
762 retval = args(0).is_bool_type () ? 1.0 : 0.0; 762 retval = args(0).is_bool_type ();
763 else 763 else
764 print_usage ("is_bool"); 764 print_usage ("is_bool");
765 765
766 return retval; 766 return retval;
767 } 767 }
768 768
769 DEFALIAS (islogical, is_bool); 769 DEFALIAS (islogical, is_bool);
770 770
771 DEFUN (is_complex, args, , 771 DEFUN (is_complex, args, ,
772 "is_complex (x): return nonzero if x is a complex numeric object") 772 "is_complex (x): return nonzero if x is a complex-valued numeric object")
773 { 773 {
774 octave_value retval; 774 octave_value retval;
775 775
776 if (args.length () == 1) 776 if (args.length () == 1)
777 retval = args(0).is_complex_type () ? 1.0 : 0.0; 777 retval = args(0).is_complex_type ();
778 else 778 else
779 print_usage ("is_complex"); 779 print_usage ("is_complex");
780
781 return retval;
782 }
783
784 DEFUN (isreal, args, ,
785 "isreal (x): return nonzero if x is a real-valued numeric object")
786 {
787 octave_value retval;
788
789 if (args.length () == 1)
790 retval = args(0).is_real_type ();
791 else
792 print_usage ("isreal");
780 793
781 return retval; 794 return retval;
782 } 795 }
783 796
784 DEFUN (isempty, args, , 797 DEFUN (isempty, args, ,
805 "isnumeric (x): return nonzero if x is a numeric object") 818 "isnumeric (x): return nonzero if x is a numeric object")
806 { 819 {
807 octave_value retval; 820 octave_value retval;
808 821
809 if (args.length () == 1) 822 if (args.length () == 1)
810 retval = args(0).is_numeric_type () ? 1.0 : 0.0; 823 retval = args(0).is_numeric_type ();
811 else 824 else
812 print_usage ("isnumeric"); 825 print_usage ("isnumeric");
813 826
814 return retval; 827 return retval;
815 } 828 }
818 "is_list (x): return nonzero if x is a list") 831 "is_list (x): return nonzero if x is a list")
819 { 832 {
820 octave_value retval; 833 octave_value retval;
821 834
822 if (args.length () == 1) 835 if (args.length () == 1)
823 retval = args(0).is_list () ? 1.0 : 0.0; 836 retval = args(0).is_list ();
824 else 837 else
825 print_usage ("is_list"); 838 print_usage ("is_list");
826 839
827 return retval; 840 return retval;
828 } 841 }
851 "is_struct (x): return nonzero if x is a structure") 864 "is_struct (x): return nonzero if x is a structure")
852 { 865 {
853 octave_value retval; 866 octave_value retval;
854 867
855 if (args.length () == 1) 868 if (args.length () == 1)
856 retval = args(0).is_map () ? 1.0 : 0.0; 869 retval = args(0).is_map ();
857 else 870 else
858 print_usage ("is_struct"); 871 print_usage ("is_struct");
859 872
860 return retval; 873 return retval;
861 } 874 }
1239 "exp (1)"); 1252 "exp (1)");
1240 1253
1241 DEFCONST (eps, DBL_EPSILON, 1254 DEFCONST (eps, DBL_EPSILON,
1242 "machine precision"); 1255 "machine precision");
1243 1256
1257 DEFCONST (false, false,
1258 "logical false value");
1259
1244 DEFCONST (i, Complex (0.0, 1.0), 1260 DEFCONST (i, Complex (0.0, 1.0),
1245 "sqrt (-1)"); 1261 "sqrt (-1)");
1246 1262
1247 DEFCONST (inf, octave_Inf, 1263 DEFCONST (inf, octave_Inf,
1248 "infinity"); 1264 "infinity");
1266 "realmax (): return largest representable floating point number"); 1282 "realmax (): return largest representable floating point number");
1267 1283
1268 DEFCONST (realmin, DBL_MIN, 1284 DEFCONST (realmin, DBL_MIN,
1269 "realmin (): return smallest representable floating point number"); 1285 "realmin (): return smallest representable floating point number");
1270 1286
1271 DEFVAR (treat_neg_dim_as_zero, 0.0, 0, treat_neg_dim_as_zero, 1287 DEFVAR (treat_neg_dim_as_zero, 0.0, treat_neg_dim_as_zero,
1272 "convert negative dimensions to zero"); 1288 "convert negative dimensions to zero");
1289
1290 DEFCONST (true, true,
1291 "logical true value");
1273 } 1292 }
1274 1293
1275 /* 1294 /*
1276 ;;; Local Variables: *** 1295 ;;; Local Variables: ***
1277 ;;; mode: C++ *** 1296 ;;; mode: C++ ***