Mercurial > hg > octave-lyh

comparison src/data.cc @ 3204:81738e630f57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-10-30 23:28:29 by jwe]
author jwe
date Fri, 30 Oct 1998 23:28:30 +0000
parents 44d82b369c78
children d0d2b69dc6c2
comparison
equal deleted inserted replaced
3203:bc61b0e8d60e 3204:81738e630f57
780 else if (arg.is_list ()) 780 else if (arg.is_list ())
781 retval = static_cast<double> (arg.length () == 0); 781 retval = static_cast<double> (arg.length () == 0);
782 } 782 }
783 else 783 else
784 print_usage ("isempty"); 784 print_usage ("isempty");
785
786 return retval;
787 }
788
789 DEFUN (is_list, args, ,
790 "is_list (x): return nonzero if x is a list")
791 {
792 octave_value retval;
793
794 if (args.length () == 1)
795 retval = args(0).is_list () ? 1.0 : 0.0;
796 else
797 print_usage ("is_list");
785 798
786 return retval; 799 return retval;
787 } 800 }
788 801
789 DEFUN (is_matrix, args, , 802 DEFUN (is_matrix, args, ,