Mercurial > hg > octave-nkf

comparison src/variables.cc @ 4028:ef75c970c8f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 07:19:02 by jwe]
author jwe
date Fri, 09 Aug 2002 07:19:02 +0000
parents 139f5273d0f8
children 63a5613cca00
comparison
equal deleted inserted replaced
4027:af3a0264eefc 4028:ef75c970c8f5
322 } 322 }
323 323
324 return retval; 324 return retval;
325 } 325 }
326 326
327 DEFUN (is_global, args, , 327 DEFUN (isglobal, args, ,
328 "-*- texinfo -*-\n\ 328 "-*- texinfo -*-\n\
329 @deftypefn {Built-in Function} {} is_global (@var{name})\n\ 329 @deftypefn {Built-in Function} {} isglobal (@var{name})\n\
330 Return 1 if @var{name} is globally visible. Otherwise, return 0. For\n\ 330 Return 1 if @var{name} is globally visible. Otherwise, return 0. For\n\
331 example,\n\ 331 example,\n\
332 \n\ 332 \n\
333 @example\n\ 333 @example\n\
334 @group\n\ 334 @group\n\
335 global x\n\ 335 global x\n\
336 is_global (\"x\")\n\ 336 isglobal (\"x\")\n\
337 @result{} 1\n\ 337 @result{} 1\n\
338 @end group\n\ 338 @end group\n\
339 @end example\n\ 339 @end example\n\
340 @end deftypefn") 340 @end deftypefn")
341 { 341 {
342 octave_value_list retval = 0.0; 342 octave_value retval = 0.0;
343 343
344 int nargin = args.length (); 344 int nargin = args.length ();
345 345
346 if (nargin != 1) 346 if (nargin != 1)
347 { 347 {
348 print_usage ("is_global"); 348 print_usage ("isglobal");
349 return retval; 349 return retval;
350 } 350 }
351 351
352 std::string name = args(0).string_value (); 352 std::string name = args(0).string_value ();
353 353
354 if (error_state) 354 if (error_state)
355 { 355 {
356 error ("is_global: expecting std::string argument"); 356 error ("isglobal: expecting std::string argument");
357 return retval; 357 return retval;
358 } 358 }
359 359
360 symbol_record *sr = curr_sym_tab->lookup (name); 360 symbol_record *sr = curr_sym_tab->lookup (name);
361 361