Mercurial > hg > octave-lyh

changeset 701:0a81458ef677

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-09-15 02:23:24 by jwe]
author jwe
date Thu, 15 Sep 1994 02:23:24 +0000
parents 5d852fb75139
children 45764610984a
files src/balance.cc src/chol.cc src/colloc.cc src/dassl.cc src/det.cc src/eig.cc src/expm.cc src/fft.cc src/fft2.cc src/find.cc src/fsolve.cc src/fsqp.cc src/givens.cc src/hess.cc src/ifft.cc src/ifft2.cc src/inv.cc src/log.cc src/lpsolve.cc src/lsode.cc src/lu.cc src/minmax.cc src/npsol.cc src/qpsol.cc src/qr.cc src/quad.cc src/qzval.cc src/rand.cc src/schur.cc src/sort.cc src/svd.cc src/syl.cc
diffstat 32 files changed, 48 insertions(+), 48 deletions(-) [+]
line wrap: on
line diff
--- a/src/balance.cc
+++ b/src/balance.cc
@@ -43,7 +43,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("balance", Fbalance, Sbalance, 4, 4,
+DEFUN_DLD_BUILTIN ("balance", Fbalance, Sbalance, 4, 4,
   "AA = balance (A [, OPT]) or [[DD,] AA] =  balance (A [, OPT])\n\
 \n\
 generalized eigenvalue problem:\n\
--- a/src/chol.cc
+++ b/src/chol.cc
@@ -36,7 +36,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("chol", Fchol, Schol, 2, 1,
+DEFUN_DLD_BUILTIN ("chol", Fchol, Schol, 2, 1,
   "R = chol (X): cholesky factorization")
 {
   Octave_object retval;
--- a/src/colloc.cc
+++ b/src/colloc.cc
@@ -33,7 +33,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("colloc", Fcolloc, Scolloc, 7, 4,
+DEFUN_DLD_BUILTIN ("colloc", Fcolloc, Scolloc, 7, 4,
   "[R, A, B, Q] = colloc (N [, \"left\"] [, \"right\"]): collocation weights")
 {
   Octave_object retval;
--- a/src/dassl.cc
+++ b/src/dassl.cc
@@ -105,7 +105,7 @@
   return retval;
 }
 
-DEFUN_DLD ("dassl", Fdassl, Sdassl, 5, 1,
+DEFUN_DLD_BUILTIN ("dassl", Fdassl, Sdassl, 5, 1,
   "dassl (\"function_name\", x_0, xdot_0, t_out)\n\
 dassl (F, X_0, XDOT_0, T_OUT, T_CRIT)\n\
 \n\
@@ -295,7 +295,7 @@
   warning ("dassl_options: no match for `%s'", keyword);
 }
 
-DEFUN_DLD ("dassl_options", Fdassl_options, Sdassl_options, -1, 1,
+DEFUN_DLD_BUILTIN ("dassl_options", Fdassl_options, Sdassl_options, -1, 1,
   "dassl_options (KEYWORD, VALUE)\n\
 \n\
 Set or show options for dassl.  Keywords may be abbreviated\n\
--- a/src/det.cc
+++ b/src/det.cc
@@ -36,7 +36,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("det", Fdet, Sdet, 2, 1,
+DEFUN_DLD_BUILTIN ("det", Fdet, Sdet, 2, 1,
   "det (X): determinant of a square matrix")
 {
   Octave_object retval;
--- a/src/eig.cc
+++ b/src/eig.cc
@@ -35,7 +35,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("eig", Feig, Seig, 2, 1,
+DEFUN_DLD_BUILTIN ("eig", Feig, Seig, 2, 1,
   "eig (X) or [V, D] = eig (X): compute eigenvalues and eigenvectors of X")
 {
   Octave_object retval;
--- a/src/expm.cc
+++ b/src/expm.cc
@@ -53,7 +53,7 @@
 			   const Complex*, const int*, double*);
 }
 
-DEFUN_DLD ("expm", Fexpm, Sexpm, 2, 1,
+DEFUN_DLD_BUILTIN ("expm", Fexpm, Sexpm, 2, 1,
   "expm (X): matrix exponential, e^A")
 {
   Octave_object retval;
--- a/src/fft.cc
+++ b/src/fft.cc
@@ -38,7 +38,7 @@
 
 // This function should be merged with Fifft.
 
-DEFUN_DLD ("fft", Ffft, Sfft, 3, 1,
+DEFUN_DLD_BUILTIN ("fft", Ffft, Sfft, 3, 1,
   "fft (X [, N]): fast fourier transform of a vector")
 {
   Octave_object retval;
--- a/src/fft2.cc
+++ b/src/fft2.cc
@@ -38,7 +38,7 @@
 
 // This function should be merged with Fifft2.
 
-DEFUN_DLD ("fft2", Ffft2, Sfft2, 3, 1,
+DEFUN_DLD_BUILTIN ("fft2", Ffft2, Sfft2, 3, 1,
   "fft2 (X [, N] [, M])\n\
 \n\
 two dimensional fast fourier transform of a vector")
--- a/src/find.cc
+++ b/src/find.cc
@@ -152,7 +152,7 @@
   return find_to_fortran_idx (i_idx, j_idx, tmp, m_nr, m_nc, nargout);
 }
 
-DEFUN_DLD ("find", Ffind, Sfind, 2, 3,
+DEFUN_DLD_BUILTIN ("find", Ffind, Sfind, 2, 3,
   "find (X) or [I, J, V] = find (X): Return indices of nonzero elements")
 {
   Octave_object retval;
--- a/src/fsolve.cc
+++ b/src/fsolve.cc
@@ -121,7 +121,7 @@
   return retval;
 }
 
-DEFUN_DLD ("fsolve", Ffsolve, Sfsolve, 5, 1,
+DEFUN_DLD_BUILTIN ("fsolve", Ffsolve, Sfsolve, 5, 1,
   "Solve nonlinear equations using Minpack.  Usage:\n\
 \n\
   [X, INFO] = fsolve (F, X0)\n\
@@ -261,7 +261,7 @@
   warning ("fsolve_options: no match for `%s'", keyword);
 }
 
-DEFUN_DLD ("fsolve_options", Ffsolve_options, Sfsolve_options, -1, 1,
+DEFUN_DLD_BUILTIN ("fsolve_options", Ffsolve_options, Sfsolve_options, -1, 1,
   "fsolve_options (KEYWORD, VALUE)\n\
 \n\
 Set or show options for fsolve.  Keywords may be abbreviated\n\
--- a/src/fsqp.cc
+++ b/src/fsqp.cc
@@ -54,12 +54,12 @@
 #endif
 
 #if defined (FSQP_MISSING)
-DEFUN_DLD ("fsqp", Ffsqp, Sfsqp, 11, 3,
+DEFUN_DLD_BUILTIN ("fsqp", Ffsqp, Sfsqp, 11, 3,
   "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
-DEFUN_DLD ("fsqp", Ffsqp, Sfsqp, 11, 3,
+DEFUN_DLD_BUILTIN ("fsqp", Ffsqp, Sfsqp, 11, 3,
   "[X, PHI] = fsqp (X, PHI [, LB, UB] [, LB, A, UB] [, LB, G, UB])\n\
 \n\
 Groups of arguments surrounded in `[]' are optional, but\n\
@@ -89,12 +89,12 @@
 }
 
 #if defined (FSQP_MISSING)
-DEFUN_DLD ("fsqp_options", Ffsqp_options, Sfsqp_options, -1, 1,
+DEFUN_DLD_BUILTIN ("fsqp_options", Ffsqp_options, Sfsqp_options, -1, 1,
   "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
-DEFUN_DLD ("fsqp_options", Ffsqp_options, Sfsqp_options, -1, 1,
+DEFUN_DLD_BUILTIN ("fsqp_options", Ffsqp_options, Sfsqp_options, -1, 1,
   "fsqp_options (KEYWORD, VALUE)\n\
 \n\
 Set or show options for fsqp.  Keywords may be abbreviated\n\
--- a/src/givens.cc
+++ b/src/givens.cc
@@ -47,7 +47,7 @@
 			Complex*, Complex*);
 }
 
-DEFUN_DLD ("givens", Fgivens, Sgivens, 3, 2,
+DEFUN_DLD_BUILTIN ("givens", Fgivens, Sgivens, 3, 2,
   "G = givens (X, Y)\n\
 \n\
 compute orthogonal matrix G = [c s; -conj (s) c]\n\
--- a/src/hess.cc
+++ b/src/hess.cc
@@ -36,7 +36,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("hess", Fhess, Shess, 2, 2,
+DEFUN_DLD_BUILTIN ("hess", Fhess, Shess, 2, 2,
   "[P, H] = hess (A) or H = hess (A): Hessenberg decomposition")
 {
   Octave_object retval;
--- a/src/ifft.cc
+++ b/src/ifft.cc
@@ -38,7 +38,7 @@
 
 // This function should be merged with Ffft.
 
-DEFUN_DLD ("ifft", Fifft, Sifft, 3, 1,
+DEFUN_DLD_BUILTIN ("ifft", Fifft, Sifft, 3, 1,
   "ifft (X [, N]): inverse fast fourier transform of a vector")
 {
   Octave_object retval;
--- a/src/ifft2.cc
+++ b/src/ifft2.cc
@@ -38,7 +38,7 @@
 
 // This function should be merged with Ffft2.
 
-DEFUN_DLD ("ifft2", Fifft2, Sifft2, 3, 1,
+DEFUN_DLD_BUILTIN ("ifft2", Fifft2, Sifft2, 3, 1,
   "ifft2 (X [, N] [, M])\n\
 \n\
 two dimensional inverse fast fourier transform of a vector") 
--- a/src/inv.cc
+++ b/src/inv.cc
@@ -36,7 +36,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("inv", Finv, Sinv, 2, 1,
+DEFUN_DLD_BUILTIN ("inv", Finv, Sinv, 2, 1,
   "inv (X): inverse of a square matrix")
 {
   Octave_object retval;
--- a/src/log.cc
+++ b/src/log.cc
@@ -37,7 +37,7 @@
 
 // XXX FIXME XXX -- the next two functions should really be just one...
 
-DEFUN_DLD ("logm", Flogm, Slogm, 2, 1,
+DEFUN_DLD_BUILTIN ("logm", Flogm, Slogm, 2, 1,
   "logm (X): matrix logarithm")
 {
   Octave_object retval;
@@ -143,7 +143,7 @@
   return retval;
 }
 
-DEFUN_DLD ("sqrtm", Fsqrtm, Ssqrtm, 2, 1,
+DEFUN_DLD_BUILTIN ("sqrtm", Fsqrtm, Ssqrtm, 2, 1,
  "sqrtm (X): matrix sqrt")
 {
   Octave_object retval;
--- a/src/lpsolve.cc
+++ b/src/lpsolve.cc
@@ -32,7 +32,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("lpsolve", Flpsolve, Slpsolve, 11, 3,
+DEFUN_DLD_BUILTIN ("lpsolve", Flpsolve, Slpsolve, 11, 3,
   "lp_solve (): solve linear programs using lp_solve.")
 {
   Octave_object retval;
@@ -48,7 +48,7 @@
   return retval;
 }
 
-DEFUN_DLD ("lpsolve_options", Flpsolve_options, Slpsolve_options, -1, 1,
+DEFUN_DLD_BUILTIN ("lpsolve_options", Flpsolve_options, Slpsolve_options, -1, 1,
   "lp_solve_options (KEYWORD, VALUE)\n\
 \n\
 Set or show options for lp_solve.  Keywords may be abbreviated\n\
--- a/src/lsode.cc
+++ b/src/lsode.cc
@@ -94,7 +94,7 @@
   return retval;
 }
 
-DEFUN_DLD ("lsode", Flsode, Slsode, 6, 1,
+DEFUN_DLD_BUILTIN ("lsode", Flsode, Slsode, 6, 1,
   "lsode (F, X0, T_OUT, T_CRIT)\n\
 \n\
 The first argument is the name of the function to call to\n\
@@ -276,7 +276,7 @@
   warning ("lsode_options: no match for `%s'", keyword);
 }
 
-DEFUN_DLD ("lsode_options", Flsode_options, Slsode_options, -1, 1,
+DEFUN_DLD_BUILTIN ("lsode_options", Flsode_options, Slsode_options, -1, 1,
   "lsode_options (KEYWORD, VALUE)\n\
 \n\
 Set or show options for lsode.  Keywords may be abbreviated\n\
--- a/src/lu.cc
+++ b/src/lu.cc
@@ -35,7 +35,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("lu", Flu, Slu, 2, 3,
+DEFUN_DLD_BUILTIN ("lu", Flu, Slu, 2, 3,
   "[L, U, P] = lu (A): LU factorization")
 {
   Octave_object retval;
--- a/src/minmax.cc
+++ b/src/minmax.cc
@@ -143,7 +143,7 @@
 }
 
 
-DEFUN_DLD ("min", Fmin, Smin, 3, 2,
+DEFUN_DLD_BUILTIN ("min", Fmin, Smin, 3, 2,
   "min (X): minimum value(s) of a vector (matrix)")
 {
   Octave_object retval;
@@ -318,7 +318,7 @@
   return retval;
 }
 
-DEFUN_DLD ("max", Fmax, Smax, 3, 2,
+DEFUN_DLD_BUILTIN ("max", Fmax, Smax, 3, 2,
   "max (X): maximum value(s) of a vector (matrix)")
 {
   Octave_object retval;
--- a/src/npsol.cc
+++ b/src/npsol.cc
@@ -232,12 +232,12 @@
 #endif
 
 #if defined (NPSOL_MISSING)
-DEFUN_DLD ("npsol", Fnpsol, Snpsol, 11, 3,
+DEFUN_DLD_BUILTIN ("npsol", Fnpsol, Snpsol, 11, 3,
   "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
-DEFUN_DLD ("npsol", Fnpsol, Snpsol, 11, 3,
+DEFUN_DLD_BUILTIN ("npsol", Fnpsol, Snpsol, 11, 3,
   "[X, OBJ, INFO, LAMBDA] = npsol (X, PHI [, LB, UB] [, LB, A, UB] [, LB, G, UB])\n\
 \n\
 Groups of arguments surrounded in `[]' are optional, but\n\
@@ -746,12 +746,12 @@
 #endif
 
 #if defined (NPSOL_MISSING)
-DEFUN_DLD ("npsol_options", Fnpsol_options, Snpsol_options, -1, 1,
+DEFUN_DLD_BUILTIN ("npsol_options", Fnpsol_options, Snpsol_options, -1, 1,
   "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
-DEFUN_DLD ("npsol_options", Fnpsol_options, Snpsol_options, -1, 1,
+DEFUN_DLD_BUILTIN ("npsol_options", Fnpsol_options, Snpsol_options, -1, 1,
   "npsol_options (KEYWORD, VALUE)\n\
 \n\
 Set or show options for npsol.  Keywords may be abbreviated\n\
--- a/src/qpsol.cc
+++ b/src/qpsol.cc
@@ -52,12 +52,12 @@
 #endif
 
 #if defined (QPSOL_MISSING)
-DEFUN_DLD ("qpsol", Fqpsol, Sqpsol, 9, 3,
+DEFUN_DLD_BUILTIN ("qpsol", Fqpsol, Sqpsol, 9, 3,
   "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
-DEFUN_DLD ("qpsol", Fqpsol, Sqpsol, 9, 3,
+DEFUN_DLD_BUILTIN ("qpsol", Fqpsol, Sqpsol, 9, 3,
   "[X, OBJ, INFO, LAMBDA] = qpsol (X, H, C [, LB, UB] [, LB, A, UB])\n\
 \n\
 Groups of arguments surrounded in `[]' are optional, but\n\
@@ -352,12 +352,12 @@
 #endif
 
 #if defined (QPSOL_MISSING)
-DEFUN_DLD ("qpsol_options", Fqpsol_options, Sqpsol_options, -1, 1,
+DEFUN_DLD_BUILTIN ("qpsol_options", Fqpsol_options, Sqpsol_options, -1, 1,
   "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
-DEFUN_DLD ("qpsol_options", Fqpsol_options, Sqpsol_options, -1, 1,
+DEFUN_DLD_BUILTIN ("qpsol_options", Fqpsol_options, Sqpsol_options, -1, 1,
   "qpsol_options (KEYWORD, VALUE)\n
 \n\
 Set or show options for qpsol.  Keywords may be abbreviated\n\
--- a/src/qr.cc
+++ b/src/qr.cc
@@ -38,7 +38,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("qr", Fqr, Sqr, 2, 2,
+DEFUN_DLD_BUILTIN ("qr", Fqr, Sqr, 2, 2,
   "[Q, R] = qr (X):      form Q unitary and R upper triangular such\n\
                        that Q * R = X\n\
 \n\
--- a/src/quad.cc
+++ b/src/quad.cc
@@ -85,7 +85,7 @@
   return retval;
 }
 
-DEFUN_DLD ("quad", Fquad, Squad, 6, 3,
+DEFUN_DLD_BUILTIN ("quad", Fquad, Squad, 6, 3,
   "[V, IER, NFUN] = quad (F, A, B [, TOL] [, SING])\n\
 \n\
 Where the first argument is the name of the  function to call to\n\
@@ -327,7 +327,7 @@
   warning ("quad_options: no match for `%s'", keyword);
 }
 
-DEFUN_DLD ("quad_options", Fquad_options, Squad_options, -1, 1,
+DEFUN_DLD_BUILTIN ("quad_options", Fquad_options, Squad_options, -1, 1,
   "quad_options (KEYWORD, VALUE)\n\
 \n\
 Set or show options for quad.  Keywords may be abbreviated\n\
--- a/src/qzval.cc
+++ b/src/qzval.cc
@@ -54,7 +54,7 @@
 		       double*, double*, double*, const long*, double*);
 }
 
-DEFUN_DLD ("qzvalue", Fqzvalue, Sqzvalue, 3, 1,
+DEFUN_DLD_BUILTIN ("qzvalue", Fqzvalue, Sqzvalue, 3, 1,
   "X = qzval (A, B)\n\
 \n\
 compute generalized eigenvalues of the matrix pencil (A - lambda B).\n\
--- a/src/rand.cc
+++ b/src/rand.cc
@@ -97,7 +97,7 @@
     }
 }
 
-DEFUN_DLD ("rand", Frand, Srand, 2, 1,
+DEFUN_DLD_BUILTIN ("rand", Frand, Srand, 2, 1,
   "rand                  -- generate a random value\n\
 \n\
 rand (N)              -- generate N x N matrix\n\
--- a/src/schur.cc
+++ b/src/schur.cc
@@ -36,7 +36,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("schur", Fschur, Sschur, 3, 2,
+DEFUN_DLD_BUILTIN ("schur", Fschur, Sschur, 3, 2,
   "[U, S] = schur (A) or S = schur (A)\n\
 \n\
 or, for ordered Schur:\n\
--- a/src/sort.cc
+++ b/src/sort.cc
@@ -163,7 +163,7 @@
 	}
 }
 
-DEFUN_DLD ("sort", Fsort, Ssort, 2, 2,
+DEFUN_DLD_BUILTIN ("sort", Fsort, Ssort, 2, 2,
   "[S, I] = sort (X)\n\
 \n\
 sort the columns of X, optionally return sort index")
--- a/src/svd.cc
+++ b/src/svd.cc
@@ -36,7 +36,7 @@
 #include "help.h"
 #include "defun-dld.h"
 
-DEFUN_DLD ("svd", Fsvd, Ssvd, 2, 3,
+DEFUN_DLD_BUILTIN ("svd", Fsvd, Ssvd, 2, 3,
   "S = svd (X) or [U, S, V] = svd (X [, 0])\n\
 \n\
 Compute the singular value decomposition of X.  Given a second input\n\
--- a/src/syl.cc
+++ b/src/syl.cc
@@ -56,7 +56,7 @@
 			long, long);
 }
 
-DEFUN_DLD ("syl", Fsyl, Ssyl, 4, 1,
+DEFUN_DLD_BUILTIN ("syl", Fsyl, Ssyl, 4, 1,
   "X = syl (A, B, C): solve the Sylvester equation A X + X B + C = 0")
 {
   Octave_object retval;