Mercurial > octave-nkf

comparison libinterp/octave-value/ov-fcn-handle.cc @ 17577:c702371ff6df classdef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: periodic merge of default to classdef
author John W. Eaton <jwe@octave.org>
date Sat, 05 Oct 2013 11:22:09 -0400
parents 7368654f302f bc924baa2c4e
children 93b3d03b05e7
comparison
equal deleted inserted replaced
17414:20d1b911b4e7 17577:c702371ff6df
1327 %! endfor 1327 %! endfor
1328 */ 1328 */
1329 1329
1330 /* 1330 /*
1331 %!function fcn_handle_save_recurse (n, mode, nm, f2, g2, hm2, hdld2, hbi2) 1331 %!function fcn_handle_save_recurse (n, mode, nm, f2, g2, hm2, hdld2, hbi2)
1332 %! if n == 0 1332 %! if (n == 0)
1333 %! save (mode, nm, "f2", "g2", "hm2", "hdld2", "hbi2"); 1333 %! save (mode, nm, "f2", "g2", "hm2", "hdld2", "hbi2");
1334 %! else 1334 %! else
1335 %! fcn_handle_save_recurse (n - 1, mode, nm, f2, g2, hm2, hdld2, hbi2); 1335 %! fcn_handle_save_recurse (n - 1, mode, nm, f2, g2, hm2, hdld2, hbi2);
1336 %! endif 1336 %! endif
1337 %!endfunction 1337 %!endfunction
1338 %!function [f2, g2, hm2, hdld2, hbi2] = fcn_handle_load_recurse (n, nm) 1338 %!function [f2, g2, hm2, hdld2, hbi2] = fcn_handle_load_recurse (n, nm)
1339 %! if n == 0 1339 %! if (n == 0)
1340 %! load (nm) 1340 %! load (nm)
1341 %! else 1341 %! else
1342 %! [f2, g2, hm2, hdld2, hbi2] = fcn_handle_load_recurse (n - 1, nm); 1342 %! [f2, g2, hm2, hdld2, hbi2] = fcn_handle_load_recurse (n - 1, nm);
1343 %! endif 1343 %! endif
1344 %!endfunction 1344 %!endfunction
1790 DEFUN (str2func, args, , 1790 DEFUN (str2func, args, ,
1791 "-*- texinfo -*-\n\ 1791 "-*- texinfo -*-\n\
1792 @deftypefn {Built-in Function} {} str2func (@var{fcn_name})\n\ 1792 @deftypefn {Built-in Function} {} str2func (@var{fcn_name})\n\
1793 @deftypefnx {Built-in Function} {} str2func (@var{fcn_name}, \"global\")\n\ 1793 @deftypefnx {Built-in Function} {} str2func (@var{fcn_name}, \"global\")\n\
1794 Return a function handle constructed from the string @var{fcn_name}.\n\ 1794 Return a function handle constructed from the string @var{fcn_name}.\n\
1795 If the optional \"global\" argument is passed, locally visible functions\n\ 1795 If the optional @qcode{\"global\"} argument is passed, locally visible\n\
1796 are ignored in the lookup.\n\ 1796 functions are ignored in the lookup.\n\
1797 @end deftypefn") 1797 @end deftypefn")
1798 { 1798 {
1799 octave_value retval; 1799 octave_value retval;
1800 int nargin = args.length (); 1800 int nargin = args.length ();
1801 1801