Mercurial > octave
diff src/g-builtins.cc @ 282:ea306e13ce22
[project @ 1994-01-09 07:10:56 by jwe]
| author | jwe |
|---|---|
| date | Sun, 09 Jan 1994 07:10:56 +0000 |
| parents | 7ec58832918f |
| children | c23f50e61c58 |
line wrap: on
line diff
--- a/src/g-builtins.cc Sun Jan 09 05:36:46 1994 +0000 +++ b/src/g-builtins.cc Sun Jan 09 07:10:56 1994 +0000 @@ -815,7 +815,7 @@ tree_constant *retval = NULL_TREE_CONST; #if defined (FSQP_MISSING) - print_usage ("fsolve"); + print_usage ("fsqp"); #else if ((nargin == 3 || nargin == 5 || nargin == 6 || nargin == 8 || nargin == 9 || nargin == 11) @@ -834,11 +834,12 @@ { tree_constant *retval = NULL_TREE_CONST; - if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) - DLD_BUILTIN (args, nargin, nargout, fsqp_options, - retval = fsqp_options (args, nargin, nargout);) - else - print_usage ("fsqp_options"); +#if defined (FSQP_MISSING) + print_usage ("fsqp_options"); +#else + DLD_BUILTIN (args, nargin, nargout, fsqp_options, + retval = fsqp_options (args, nargin, nargout);) +#endif return retval; } @@ -1174,11 +1175,12 @@ { tree_constant *retval = NULL_TREE_CONST; - if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) - DLD_BUILTIN (args, nargin, nargout, npsol_options, - retval = npsol_options (args, nargin, nargout);) - else - print_usage ("npsol_options"); +#if defined (NPSOL_MISSING) + print_usage ("npsol_options"); +#else + DLD_BUILTIN (args, nargin, nargout, npsol_options, + retval = npsol_options (args, nargin, nargout);) +#endif return retval; } @@ -1349,11 +1351,12 @@ { tree_constant *retval = NULL_TREE_CONST; - if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) - DLD_BUILTIN (args, nargin, nargout, qpsol_options, - retval = qpsol_options (args, nargin, nargout);) - else - print_usage ("qpsol_options"); +#if defined (QPSOL_MISSING) + print_usage ("qpsol"); +#else + DLD_BUILTIN (args, nargin, nargout, qpsol_options, + retval = qpsol_options (args, nargin, nargout);) +#endif return retval; }