Mercurial > hg > octave-avbm
diff src/dassl.cc @ 506:0f388340e607
[project @ 1994-07-09 06:10:34 by jwe]
| author | jwe |
|---|---|
| date | Sat, 09 Jul 1994 06:10:34 +0000 |
| parents | 88614b380d6e |
| children | 309fc59f66ee |
line wrap: on
line diff
--- a/src/dassl.cc +++ b/src/dassl.cc @@ -42,15 +42,15 @@ #ifdef WITH_DLD Octave_object -builtin_dassl_2 (const Octave_object& args, int nargin, int nargout) +builtin_dassl_2 (const Octave_object& args, int nargout) { - return dassl (args, nargin, nargout); + return dassl (args, nargout); } Octave_object -builtin_dassl_options_2 (const Octave_object& args, int nargin, int nargout) +builtin_dassl_options_2 (const Octave_object& args, int nargout) { - return dassl_options (args, nargin, nargout); + return dassl_options (args, nargout); } #endif @@ -96,7 +96,7 @@ if (dassl_fcn != (tree_fvc *) NULL) { - Octave_object tmp = dassl_fcn->eval (0, 1, args, 4); + Octave_object tmp = dassl_fcn->eval (0, 1, args); if (error_state) { @@ -119,12 +119,14 @@ } Octave_object -dassl (const Octave_object& args, int nargin, int nargout) +dassl (const Octave_object& args, int nargout) { // Assumes that we have been given the correct number of arguments. Octave_object retval; + int nargin = args.length (); + dassl_fcn = is_valid_function (args(1), "dassl", 1); if (dassl_fcn == (tree_fvc *) NULL || takes_correct_nargs (dassl_fcn, 4, "dassl", 1) != 1) @@ -268,10 +270,12 @@ } Octave_object -dassl_options (const Octave_object& args, int nargin, int nargout) +dassl_options (const Octave_object& args, int nargout) { Octave_object retval; + int nargin = args.length (); + if (nargin == 1) print_dassl_option_list (); else if (nargin == 3)