Mercurial > hg > octave-nkf

comparison src/DLD-FUNCTIONS/dassl.cc @ 3523:b80bbb43a1a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-02-02 10:25:52 by jwe]
author jwe
date Wed, 02 Feb 2000 10:26:25 +0000
parents e71b3d1dd327
children 71bd2d124119
comparison
equal deleted inserted replaced
3522:bd422cf62f0c 3523:b80bbb43a1a9
24 #include <config.h> 24 #include <config.h>
25 #endif 25 #endif
26 26
27 #include <string> 27 #include <string>
28 28
29 #include <iostream.h> 29 #include <iostream>
30 30
31 #include "DASSL.h" 31 #include "DASSL.h"
32 32
33 #include "defun-dld.h" 33 #include "defun-dld.h"
34 #include "error.h" 34 #include "error.h"
298 { 0, 0, 0, 0, }, 0, 298 { 0, 0, 0, 0, }, 0,
299 0, 0, }, 299 0, 0, },
300 }; 300 };
301 301
302 static void 302 static void
303 print_dassl_option_list (ostream& os) 303 print_dassl_option_list (std::ostream& os)
304 { 304 {
305 print_usage ("dassl_options", 1); 305 print_usage ("dassl_options", 1);
306 306
307 os << "\n" 307 os << "\n"
308 << "Options for dassl include:\n\n" 308 << "Options for dassl include:\n\n"
328 328
329 os << "\n"; 329 os << "\n";
330 } 330 }
331 331
332 static void 332 static void
333 set_dassl_option (const string& keyword, double val) 333 set_dassl_option (const std::string& keyword, double val)
334 { 334 {
335 DASSL_OPTIONS *list = dassl_option_table; 335 DASSL_OPTIONS *list = dassl_option_table;
336 336
337 while (list->keyword != 0) 337 while (list->keyword != 0)
338 { 338 {
348 348
349 warning ("dassl_options: no match for `%s'", keyword.c_str ()); 349 warning ("dassl_options: no match for `%s'", keyword.c_str ());
350 } 350 }
351 351
352 static octave_value_list 352 static octave_value_list
353 show_dassl_option (const string& keyword) 353 show_dassl_option (const std::string& keyword)
354 { 354 {
355 octave_value retval; 355 octave_value retval;
356 356
357 DASSL_OPTIONS *list = dassl_option_table; 357 DASSL_OPTIONS *list = dassl_option_table;
358 358
396 print_dassl_option_list (octave_stdout); 396 print_dassl_option_list (octave_stdout);
397 return retval; 397 return retval;
398 } 398 }
399 else if (nargin == 1 || nargin == 2) 399 else if (nargin == 1 || nargin == 2)
400 { 400 {
401 string keyword = args(0).string_value (); 401 std::string keyword = args(0).string_value ();
402 402
403 if (! error_state) 403 if (! error_state)
404 { 404 {
405 if (nargin == 1) 405 if (nargin == 1)
406 return show_dassl_option (keyword); 406 return show_dassl_option (keyword);