Mercurial > hg > octave-lyh

comparison src/quad.cc @ 2797:f81117f4754d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-03-07 07:01:08 by jwe]
author jwe
date Fri, 07 Mar 1997 07:01:09 +0000
parents d741b18efb63
children 9aeba8e006a4
comparison
equal deleted inserted replaced
2796:74bc1ede3c3d 2797:f81117f4754d
118 { 118 {
119 print_usage ("quad"); 119 print_usage ("quad");
120 return retval; 120 return retval;
121 } 121 }
122 122
123 quad_fcn = is_valid_function (args(0), "quad", 1); 123 quad_fcn = extract_function (args(0), "quad", "__quad_fcn__",
124 "function y = __quad_fcn__ (x) y = ",
125 "; endfunction");
124 if (! quad_fcn) 126 if (! quad_fcn)
125 return retval; 127 return retval;
126 128
127 double a = args(1).double_value (); 129 double a = args(1).double_value ();
128 130
335 } 337 }
336 338
337 static octave_value_list 339 static octave_value_list
338 show_quad_option (const string& keyword) 340 show_quad_option (const string& keyword)
339 { 341 {
340 octave_value_list retval; 342 octave_value retval;
341 343
342 QUAD_OPTIONS *list = quad_option_table; 344 QUAD_OPTIONS *list = quad_option_table;
343 345
344 while (list->keyword != 0) 346 while (list->keyword != 0)
345 { 347 {