Mercurial > octave

comparison src/pt-exp-base.cc @ 1089:7b7e58b31316

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-02-01 21:47:49 by jwe]
author jwe
date Wed, 01 Feb 1995 21:47:49 +0000
parents 8c1a25cdfa81
children 51fd9e40a7f7
comparison
equal deleted inserted replaced
1088:0491f3433f66 1089:7b7e58b31316
1259 { 1259 {
1260 int nargin = args.length (); 1260 int nargin = args.length ();
1261 1261
1262 if (error_state) 1262 if (error_state)
1263 eval_error (); 1263 eval_error ();
1264 else if (nargin > 0 && all_args_defined (args)) 1264 else if (nargin > 0)
1265 { 1265 {
1266 Octave_object tmp = id->eval (print, 1, args); 1266 if (all_args_defined (args))
1267 1267 {
1268 if (error_state) 1268 Octave_object tmp = id->eval (print, 1, args);
1269 eval_error (); 1269
1270 else if (tmp.length () > 0) 1270 if (error_state)
1271 retval = tmp(0); 1271 eval_error ();
1272 } 1272 else if (tmp.length () > 0)
1273 retval = tmp(0);
1274 }
1275 else
1276 {
1277 ::error ("undefined arguments found in index expression");
1278 eval_error ();
1279 }
1280 }
1281 else
1282 panic_impossible (); // XXX FIXME XXX -- is this correct?
1273 } 1283 }
1274 } 1284 }
1275 else 1285 else
1276 { 1286 {
1277 retval = id->eval (print); 1287 retval = id->eval (print);
1303 { 1313 {
1304 int nargin = args.length (); 1314 int nargin = args.length ();
1305 1315
1306 if (error_state) 1316 if (error_state)
1307 eval_error (); 1317 eval_error ();
1308 else if (nargin > 0 && all_args_defined (args)) 1318 else if (nargin > 0)
1309 { 1319 {
1310 retval = id->eval (print, nargout, args); 1320 if (all_args_defined (args))
1311 1321 {
1312 if (error_state) 1322 retval = id->eval (print, nargout, args);
1313 eval_error (); 1323
1314 } 1324 if (error_state)
1325 eval_error ();
1326 }
1327 else
1328 {
1329 ::error ("undefined arguments found in index expression");
1330 eval_error ();
1331 }
1332 }
1333 else
1334 panic_impossible (); // XXX FIXME XXX -- is this correct?
1315 } 1335 }
1316 } 1336 }
1317 else 1337 else
1318 { 1338 {
1319 Octave_object tmp_args; 1339 Octave_object tmp_args;