Mercurial > octave-nkf

comparison src/g-builtins.cc @ 289:c23f50e61c58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-01-13 06:25:58 by jwe]
author jwe
date Thu, 13 Jan 1994 06:26:54 +0000
parents ea306e13ce22
children 5325afdb0ef5
comparison
equal deleted inserted replaced
288:f8ae4f4dc9fd 289:c23f50e61c58
333 tree_constant * 333 tree_constant *
334 builtin_dassl_options (const tree_constant *args, int nargin, int nargout) 334 builtin_dassl_options (const tree_constant *args, int nargin, int nargout)
335 { 335 {
336 tree_constant *retval = NULL_TREE_CONST; 336 tree_constant *retval = NULL_TREE_CONST;
337 337
338 if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) 338 DLD_BUILTIN (args, nargin, nargout, dassl_options,
339 DLD_BUILTIN (args, nargin, nargout, dassl_options, 339 retval = dassl_options (args, nargin, nargout);)
340 retval = dassl_options (args, nargin, nargout);)
341 else
342 print_usage ("dassl_options");
343 340
344 return retval; 341 return retval;
345 } 342 }
346 343
347 /* 344 /*
795 tree_constant * 792 tree_constant *
796 builtin_fsolve_options (const tree_constant *args, int nargin, int nargout) 793 builtin_fsolve_options (const tree_constant *args, int nargin, int nargout)
797 { 794 {
798 tree_constant *retval = NULL_TREE_CONST; 795 tree_constant *retval = NULL_TREE_CONST;
799 796
800 if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) 797 DLD_BUILTIN (args, nargin, nargout, fsolve_options,
801 DLD_BUILTIN (args, nargin, nargout, fsolve_options, 798 retval = fsolve_options (args, nargin, nargout);)
802 retval = fsolve_options (args, nargin, nargout);)
803 else
804 print_usage ("fsolve_options");
805 799
806 return retval; 800 return retval;
807 } 801 }
808 802
809 /* 803 /*
1047 tree_constant * 1041 tree_constant *
1048 builtin_lpsolve_options (const tree_constant *args, int nargin, int nargout) 1042 builtin_lpsolve_options (const tree_constant *args, int nargin, int nargout)
1049 { 1043 {
1050 tree_constant *retval = NULL_TREE_CONST; 1044 tree_constant *retval = NULL_TREE_CONST;
1051 1045
1052 if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) 1046 DLD_BUILTIN (args, nargin, nargout, lpsolve_options,
1053 DLD_BUILTIN (args, nargin, nargout, lpsolve_options, 1047 retval = lpsolve_options (args, nargin, nargout);)
1054 retval = lpsolve_options (args, nargin, nargout);)
1055 else
1056 print_usage ("lpsolve_options");
1057 1048
1058 return retval; 1049 return retval;
1059 } 1050 }
1060 1051
1061 /* 1052 /*
1078 tree_constant * 1069 tree_constant *
1079 builtin_lsode_options (const tree_constant *args, int nargin, int nargout) 1070 builtin_lsode_options (const tree_constant *args, int nargin, int nargout)
1080 { 1071 {
1081 tree_constant *retval = NULL_TREE_CONST; 1072 tree_constant *retval = NULL_TREE_CONST;
1082 1073
1083 if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) 1074 DLD_BUILTIN (args, nargin, nargout, lsode_options,
1084 DLD_BUILTIN (args, nargin, nargout, lsode_options, 1075 retval = lsode_options (args, nargin, nargout);)
1085 retval = lsode_options (args, nargin, nargout);)
1086 else
1087 print_usage ("lsode_options");
1088 1076
1089 return retval; 1077 return retval;
1090 } 1078 }
1091 1079
1092 /* 1080 /*
1415 tree_constant * 1403 tree_constant *
1416 builtin_quad_options (const tree_constant *args, int nargin, int nargout) 1404 builtin_quad_options (const tree_constant *args, int nargin, int nargout)
1417 { 1405 {
1418 tree_constant *retval = NULL_TREE_CONST; 1406 tree_constant *retval = NULL_TREE_CONST;
1419 1407
1420 if (nargin >= 3 && nargin <= 7 && nargout >= 1 && nargout <= 3) 1408 DLD_BUILTIN (args, nargin, nargout, quad_options,
1421 DLD_BUILTIN (args, nargin, nargout, quad_options, 1409 retval = quad_options (args, nargin, nargout);)
1422 retval = quad_options (args, nargin, nargout);)
1423 else
1424 print_usage ("quad_options");
1425 1410
1426 return retval; 1411 return retval;
1427 } 1412 }
1428 1413
1429 /* 1414 /*