Mercurial > octave-nkf

comparison src/parse.y @ 5823:080c08b192d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-19 05:32:17 by jwe]
author jwe
date Fri, 19 May 2006 05:32:19 +0000
parents 1138ced03f14
children 5e41e06f6a78
comparison
equal deleted inserted replaced
5822:4fdc2515ebad 5823:080c08b192d8
3505 3505
3506 if (! error_state) 3506 if (! error_state)
3507 autoload_map[argv[1]] = argv[2]; 3507 autoload_map[argv[1]] = argv[2];
3508 } 3508 }
3509 else 3509 else
3510 print_usage ("autoload"); 3510 print_usage ();
3511 3511
3512 return retval; 3512 return retval;
3513 } 3513 }
3514 3514
3515 void 3515 void
3550 3550
3551 int nargin = args.length (); 3551 int nargin = args.length ();
3552 3552
3553 if (nargin > 1) 3553 if (nargin > 1)
3554 { 3554 {
3555 print_usage ("mfilename"); 3555 print_usage ();
3556 return retval; 3556 return retval;
3557 } 3557 }
3558 3558
3559 std::string arg; 3559 std::string arg;
3560 3560
3623 source_file (file_name); 3623 source_file (file_name);
3624 else 3624 else
3625 error ("source: expecting file name as argument"); 3625 error ("source: expecting file name as argument");
3626 } 3626 }
3627 else 3627 else
3628 print_usage ("source"); 3628 print_usage ();
3629 3629
3630 return retval; 3630 return retval;
3631 } 3631 }
3632 3632
3633 // Evaluate an Octave function (built-in or interpreted) and return 3633 // Evaluate an Octave function (built-in or interpreted) and return
3763 int nargin = args.length (); 3763 int nargin = args.length ();
3764 3764
3765 if (nargin > 0) 3765 if (nargin > 0)
3766 retval = feval (args, nargout); 3766 retval = feval (args, nargout);
3767 else 3767 else
3768 print_usage ("feval"); 3768 print_usage ();
3769 3769
3770 return retval; 3770 return retval;
3771 } 3771 }
3772 3772
3773 octave_value_list 3773 octave_value_list
3911 } 3911 }
3912 3912
3913 unwind_protect::run_frame ("Feval"); 3913 unwind_protect::run_frame ("Feval");
3914 } 3914 }
3915 else 3915 else
3916 print_usage ("eval"); 3916 print_usage ();
3917 3917
3918 return retval; 3918 return retval;
3919 } 3919 }
3920 3920
3921 DEFUN (assignin, args, , 3921 DEFUN (assignin, args, ,
3977 } 3977 }
3978 else 3978 else
3979 error ("assignin: expecting string as first argument"); 3979 error ("assignin: expecting string as first argument");
3980 } 3980 }
3981 else 3981 else
3982 print_usage ("assignin"); 3982 print_usage ();
3983 3983
3984 return retval; 3984 return retval;
3985 } 3985 }
3986 3986
3987 DEFUN (evalin, args, nargout, 3987 DEFUN (evalin, args, nargout,
4048 } 4048 }
4049 else 4049 else
4050 error ("evalin: expecting string as first argument"); 4050 error ("evalin: expecting string as first argument");
4051 } 4051 }
4052 else 4052 else
4053 print_usage ("evalin"); 4053 print_usage ();
4054 4054
4055 return retval; 4055 return retval;
4056 } 4056 }
4057 4057
4058 /* 4058 /*