Mercurial > hg > octave-avbm

comparison src/g-builtins.cc @ 195:13c6086c325c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-06 10:12:29 by jwe]
author jwe
date Sat, 06 Nov 1993 10:14:11 +0000
parents b6b4d8c513fe
children 1761d7a3770c
comparison
equal deleted inserted replaced
194:4f3364dcf450 195:13c6086c325c
898 898
899 return retval; 899 return retval;
900 } 900 }
901 901
902 /* 902 /*
903 * Does the given string name a global variable?
904 */
905 tree_constant *
906 builtin_is_global (const tree_constant *args, int nargin, int nargout)
907 {
908 tree_constant *retval = new tree_constant [2];
909 retval[0] = tree_constant (0.0);
910
911 if (nargin == 2 && args[1].is_string_type ())
912 {
913 char *name = args[1].string_value ();
914 if (is_globally_visible (name))
915 retval[0] = tree_constant (1.0);
916 }
917 else
918 print_usage ("is_global");
919
920 return retval;
921 }
922
923 /*
903 * Is the argument a string? 924 * Is the argument a string?
904 */ 925 */
905 tree_constant * 926 tree_constant *
906 builtin_isstr (const tree_constant *args, int nargin, int nargout) 927 builtin_isstr (const tree_constant *args, int nargin, int nargout)
907 { 928 {