Mercurial > hg > octave-lyh

comparison src/quad.cc @ 272:7ec58832918f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-01-06 18:54:08 by jwe]
author jwe
date Thu, 06 Jan 1994 18:54:08 +0000
parents 74d73a4b3fc7
children c23f50e61c58
comparison
equal deleted inserted replaced
271:64b486b19ce4 272:7ec58832918f
41 #ifdef WITH_DLD 41 #ifdef WITH_DLD
42 tree_constant * 42 tree_constant *
43 builtin_quad_2 (const tree_constant *args, int nargin, int nargout) 43 builtin_quad_2 (const tree_constant *args, int nargin, int nargout)
44 { 44 {
45 return do_quad (args, nargin, nargout); 45 return do_quad (args, nargin, nargout);
46 }
47
48 tree_constant *
49 builtin_quad_options_2 (const tree_constant *args, int nargin, int nargout)
50 {
51 return quad_options (args, nargin, nargout);
46 } 52 }
47 #endif 53 #endif
48 54
49 double 55 double
50 quad_user_function (double x) 56 quad_user_function (double x)
187 retval[3] = tree_constant (abserr); 193 retval[3] = tree_constant (abserr);
188 194
189 return retval; 195 return retval;
190 } 196 }
191 197
198 tree_constant *
199 quad_options (const tree_constant *args, int nargin, int nargout)
200 {
201 // Assumes that we have been given the correct number of arguments.
202
203 tree_constant *retval = NULL_TREE_CONST;
204 error ("quad_options: not implemented yet");
205 return retval;
206 }
207
192 /* 208 /*
193 ;;; Local Variables: *** 209 ;;; Local Variables: ***
194 ;;; mode: C++ *** 210 ;;; mode: C++ ***
195 ;;; page-delimiter: "^/\\*" *** 211 ;;; page-delimiter: "^/\\*" ***
196 ;;; End: *** 212 ;;; End: ***
197 */ 213 */
198