Mercurial > hg > octave-nkf
comparison src/variables.cc @ 742:9004af8c7a33
[project @ 1994-09-30 14:50:32 by jwe]
author | jwe |
---|---|
date | Fri, 30 Sep 1994 14:53:08 +0000 |
parents | 9b930afbf477 |
children | e666a6ab8f83 |
comparison
equal
deleted
inserted
replaced
741:2d2f3c07cedd | 742:9004af8c7a33 |
---|---|
1143 { | 1143 { |
1144 Octave_object retval; | 1144 Octave_object retval; |
1145 | 1145 |
1146 int nargin = args.length (); | 1146 int nargin = args.length (); |
1147 | 1147 |
1148 Octave_object tmp_args = args; | 1148 Octave_object tmp_args; |
1149 | 1149 for (int i = nargin; i > 0; i--) |
1150 tmp_args(nargin) = "-long"; | 1150 tmp_args(i) = args(i-1); |
1151 | 1151 tmp_args(0) = "-long"; |
1152 int argc = nargin + 1; | 1152 |
1153 int argc = tmp_args.length () + 1; | |
1153 char **argv = make_argv (tmp_args, "whos"); | 1154 char **argv = make_argv (tmp_args, "whos"); |
1154 | 1155 |
1155 if (error_state) | 1156 if (error_state) |
1156 return retval; | 1157 return retval; |
1157 | 1158 |