Mercurial > hg > octave-nkf

comparison src/error.cc @ 5335:a892ee7ac114

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-05-02 20:33:48 by jwe]
author jwe
date Mon, 02 May 2005 20:33:48 +0000
parents 4c8a2e4e0717
children 80e629357483
comparison
equal deleted inserted replaced
5334:f9afe97d6d14 5335:a892ee7ac114
700 { 700 {
701 octave_value_list retval; 701 octave_value_list retval;
702 702
703 int argc = args.length () + 1; 703 int argc = args.length () + 1;
704 704
705 string_vector argv = args.make_argv ("lasterr"); 705 if (argc == 1 || argc == 2)
706 706 {
707 if (argc == 1) 707 string_vector argv = args.make_argv ("lasterr");
708 retval(0) = Vlast_error_message; 708
709 else if (argc == 2) 709 if (! error_state)
710 Vlast_error_message = argv(1); 710 {
711 if (argc == 1)
712 retval(0) = Vlast_error_message;
713 else
714 Vlast_error_message = argv(1);
715 }
716 }
711 else 717 else
712 print_usage ("lasterr"); 718 print_usage ("lasterr");
713 719
714 return retval; 720 return retval;
715 } 721 }