Mercurial > hg > octave-lojdl

comparison src/DLD-FUNCTIONS/lsode.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 "LSODE.h" 31 #include "LSODE.h"
32 #include "lo-mappers.h" 32 #include "lo-mappers.h"
33 33
34 #include "defun-dld.h" 34 #include "defun-dld.h"
358 { 0, 0, 0, 0, }, 0, 358 { 0, 0, 0, 0, }, 0,
359 0, 0, 0, 0, }, 359 0, 0, 0, 0, },
360 }; 360 };
361 361
362 static void 362 static void
363 print_lsode_option_list (ostream& os) 363 print_lsode_option_list (std::ostream& os)
364 { 364 {
365 print_usage ("lsode_options", 1); 365 print_usage ("lsode_options", 1);
366 366
367 os << "\n" 367 os << "\n"
368 << "Options for lsode include:\n\n" 368 << "Options for lsode include:\n\n"
397 397
398 os << "\n"; 398 os << "\n";
399 } 399 }
400 400
401 static void 401 static void
402 set_lsode_option (const string& keyword, double val) 402 set_lsode_option (const std::string& keyword, double val)
403 { 403 {
404 LSODE_OPTIONS *list = lsode_option_table; 404 LSODE_OPTIONS *list = lsode_option_table;
405 405
406 while (list->keyword != 0) 406 while (list->keyword != 0)
407 { 407 {
427 427
428 warning ("lsode_options: no match for `%s'", keyword.c_str ()); 428 warning ("lsode_options: no match for `%s'", keyword.c_str ());
429 } 429 }
430 430
431 static octave_value_list 431 static octave_value_list
432 show_lsode_option (const string& keyword) 432 show_lsode_option (const std::string& keyword)
433 { 433 {
434 octave_value retval; 434 octave_value retval;
435 435
436 LSODE_OPTIONS *list = lsode_option_table; 436 LSODE_OPTIONS *list = lsode_option_table;
437 437
486 print_lsode_option_list (octave_stdout); 486 print_lsode_option_list (octave_stdout);
487 return retval; 487 return retval;
488 } 488 }
489 else if (nargin == 1 || nargin == 2) 489 else if (nargin == 1 || nargin == 2)
490 { 490 {
491 string keyword = args(0).string_value (); 491 std::string keyword = args(0).string_value ();
492 492
493 if (! error_state) 493 if (! error_state)
494 { 494 {
495 if (nargin == 1) 495 if (nargin == 1)
496 return show_lsode_option (keyword); 496 return show_lsode_option (keyword);