Mercurial > hg > octave-terminal
changeset 282:ea306e13ce22
[project @ 1994-01-09 07:10:56 by jwe]
author | jwe |
---|---|
date | Sun, 09 Jan 1994 07:10:56 +0000 |
parents | 49a716824a86 |
children | f3ce570869fc |
files | src/builtins.cc src/g-builtins.cc |
diffstat | 2 files changed, 37 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/src/builtins.cc +++ b/src/builtins.cc @@ -372,7 +372,13 @@ #endif { "fsqp_options", -1, 1, builtin_fsqp_options, +#if defined (FSQP_MISSING) + "This function requires FSQP, which is not freely\n\ + redistributable. For more information, read the file\n\ + libcruft/fsqp/README.MISSING in the source distribution.", }, +#else "fsqp_options (keyword, value): set or show options for fsqp", }, +#endif { "ftell", 2, 1, builtin_ftell, "position = ftell (\"filename\" or filenum): returns the current file position", }, @@ -463,7 +469,13 @@ #endif { "npsol_options", -1, 1, builtin_npsol_options, +#if defined (NPSOL_MISSING) + "This function requires NPSOL, which is not freely\n\ + redistributable. For more information, read the file\n\ + libcruft/npsol/README.MISSING in the source distribution.", }, +#else "npsol_options (keyword, value): set or show options for npsol", }, +#endif { "ones", 3, 1, builtin_ones, "ones (n), ones (n, m), ones (x): create a matrix of all ones", }, @@ -496,7 +508,13 @@ #endif { "qpsol_options", -1, 1, builtin_qpsol_options, +#if defined (QPSOL_MISSING) + "This function requires QPSOL, which is not freely\n\ + redistributable. For more information, read the file\n\ + libcruft/qpsol/README.MISSING in the source distribution.", }, +#else "qpsol_options (keyword, value): set or show options for qpsol", }, +#endif { "qr", 2, 2, builtin_qr, "[q, r] = qr (X): form QR factorization of X", },
--- a/src/g-builtins.cc +++ b/src/g-builtins.cc @@ -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; }