Mercurial > hg > octave-lyh

changeset 282:ea306e13ce22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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;
 }