Mercurial > hg > octave-nkf

comparison src/pr-output.cc @ 7896:92c26470fe56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Frats fix for nargin==0
author David Bateman <dbateman@free.fr>
date Wed, 25 Jun 2008 12:46:32 +0200
parents 82be108cc558
children 63dbb85452cc
comparison
equal deleted inserted replaced
7895:f1a1f6dd7fac 7896:92c26470fe56
2764 { 2764 {
2765 octave_value retval; 2765 octave_value retval;
2766 2766
2767 int nargin = args.length (); 2767 int nargin = args.length ();
2768 2768
2769 unwind_protect::begin_frame ("Frats"); 2769 if (nargin < 1 || nargin > 2 || nargout > 1)
2770 2770 print_usage ();
2771 unwind_protect_int (rat_string_len); 2771 else
2772 2772 {
2773 rat_string_len = 9; 2773 unwind_protect::begin_frame ("Frats");
2774 2774
2775 if (nargin == 2) 2775 unwind_protect_int (rat_string_len);
2776 rat_string_len = args(1).nint_value (); 2776
2777 2777 rat_string_len = 9;
2778 if (! error_state) 2778
2779 { 2779 if (nargin == 2)
2780 if (nargin < 3 && nargout < 2) 2780 rat_string_len = args(1).nint_value ();
2781
2782 if (! error_state)
2781 { 2783 {
2782 octave_value arg = args(0); 2784 octave_value arg = args(0);
2783 2785
2784 if (arg.is_numeric_type ()) 2786 if (arg.is_numeric_type ())
2785 { 2787 {
2815 retval = string_vector (lst); 2817 retval = string_vector (lst);
2816 } 2818 }
2817 else 2819 else
2818 error ("rats: expecting numeric input"); 2820 error ("rats: expecting numeric input");
2819 } 2821 }
2820 else 2822
2821 print_usage (); 2823 unwind_protect::run_frame ("Frats");
2822 } 2824 }
2823
2824 unwind_protect::run_frame ("Frats");
2825 2825
2826 return retval; 2826 return retval;
2827 } 2827 }
2828 2828
2829 DEFUN (disp, args, nargout, 2829 DEFUN (disp, args, nargout,