Mercurial > hg > octave-nkf

comparison scripts/control/sysout.m @ 3383:ebf69eb3d07d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-12-15 21:27:56 by jwe]
author jwe
date Wed, 15 Dec 1999 21:28:01 +0000
parents 69b167451491
children 10f21f7ccc7f
comparison
equal deleted inserted replaced
3382:d931332a73dc 3383:ebf69eb3d07d
40 ## @end deftypefn 40 ## @end deftypefn
41 41
42 function retsys = sysout(sys,opt) 42 function retsys = sysout(sys,opt)
43 43
44 ## Written by A S Hodel: 1995-1996 44 ## Written by A S Hodel: 1995-1996
45
46 ## save for restoring at end of routine
47 save_val = implicit_str_to_num_ok;
48 implicit_str_to_num_ok = 1;
49 45
50 if( (nargin < 1) || (nargin > 2) ) 46 if( (nargin < 1) || (nargin > 2) )
51 usage("sysout(sys[,opt])"); 47 usage("sysout(sys[,opt])");
52 endif 48 endif
53 49
148 if(nargout >= 1) 144 if(nargout >= 1)
149 retsys = sys; 145 retsys = sys;
150 endif 146 endif
151 147
152 ## restore global variable 148 ## restore global variable
153 implicit_str_to_num_ok = save_val;
154 149
155 endfunction 150 endfunction