Mercurial > hg > octave-lyh

comparison src/toplev.cc @ 1965:01e3ed56c415

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-02-17 02:02:50 by jwe]
author jwe
date Sat, 17 Feb 1996 02:03:11 +0000
parents 0e6a0a271998
children 003570e69c7b
comparison
equal deleted inserted replaced
1964:2ff7b73519db 1965:01e3ed56c415
330 { 330 {
331 Octave_object retval; 331 Octave_object retval;
332 332
333 int argc = args.length () + 1; 333 int argc = args.length () + 1;
334 334
335 string_vector argv = make_argv (args, "casesen"); 335 string_vector argv = args.make_argv ("casesen");
336 336
337 if (error_state) 337 if (error_state)
338 return retval; 338 return retval;
339 339
340 if (argc == 1 || (argc > 1 && argv[1] == "off")) 340 if (argc == 1 || (argc > 1 && argv[1] == "off"))
596 return retval; 596 return retval;
597 } 597 }
598 598
599 // Execute a shell command. 599 // Execute a shell command.
600 600
601 static void
602 cleanup_iprocstream (void *p)
603 {
604 delete (iprocstream *) p;
605 }
606
601 DEFUN (system, args, nargout, 607 DEFUN (system, args, nargout,
602 "system (string [, return_output]): execute shell commands") 608 "system (string [, return_output]): execute shell commands")
603 { 609 {
604 Octave_object retval; 610 Octave_object retval;
605 611