Mercurial > octave-nkf

comparison src/defaults.cc @ 4776:adf8d68d7143 ss-2-1-54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 20:32:20 by jwe]
author jwe
date Mon, 16 Feb 2004 20:32:20 +0000
parents ccfbd6047a54
children 23b37da9fd5b
comparison
equal deleted inserted replaced
4775:88b638195bd1 4776:adf8d68d7143
90 std::string Vimagepath; 90 std::string Vimagepath;
91 91
92 std::string Vlocal_site_defaults_file; 92 std::string Vlocal_site_defaults_file;
93 std::string Vsite_defaults_file; 93 std::string Vsite_defaults_file;
94 94
95 #ifdef HAVE_FFTW3 95 // Name of the FFTW wisdom program.
96 // Name of the FFTW wisdom program 96 std::string Vfftw_wisdom_prog;
97 std::string Vwisdom_prog;
98 #endif
99 97
100 // Each element of A and B should be directory names. For each 98 // Each element of A and B should be directory names. For each
101 // element of A not in the list B, execute SCRIPT_FILE in that 99 // element of A not in the list B, execute SCRIPT_FILE in that
102 // directory if it exists. 100 // directory if it exists.
103 101
313 Vinfo_prog = "info"; 311 Vinfo_prog = "info";
314 else 312 else
315 Vinfo_prog = std::string (oct_info_prog); 313 Vinfo_prog = std::string (oct_info_prog);
316 } 314 }
317 315
318 #ifdef HAVE_FFTW3 316 static void
319 static void 317 set_default_fftw_wisdom_prog (void)
320 set_default_wisdom_prog (void) 318 {
321 { 319 std::string oct_wisdom_prog = octave_env::getenv ("OCTAVE_FFTW_WISDOM_PROGRAM");
322 std::string oct_wisdom_prog = octave_env::getenv ("OCTAVE_WISDOM_PROGRAM");
323 320
324 if (oct_wisdom_prog.empty ()) 321 if (oct_wisdom_prog.empty ())
325 Vwisdom_prog = "fftw-wisdom"; 322 Vfftw_wisdom_prog = "fftw-wisdom";
326 else 323 else
327 Vwisdom_prog = std::string (oct_wisdom_prog); 324 Vfftw_wisdom_prog = std::string (oct_wisdom_prog);
328 } 325 }
329 #endif
330 326
331 static void 327 static void
332 set_default_editor (void) 328 set_default_editor (void)
333 { 329 {
334 Veditor = "emacs"; 330 Veditor = "emacs";
416 412
417 set_default_info_file (); 413 set_default_info_file ();
418 414
419 set_default_info_prog (); 415 set_default_info_prog ();
420 416
421 #ifdef HAVE_FFTW3 417 set_default_fftw_wisdom_prog ();
422 set_default_wisdom_prog ();
423 #endif
424 418
425 set_default_editor (); 419 set_default_editor ();
426 420
427 set_local_site_defaults_file (); 421 set_local_site_defaults_file ();
428 422
504 } 498 }
505 499
506 return status; 500 return status;
507 } 501 }
508 502
509 #ifdef HAVE_FFTW3
510 static int 503 static int
511 wisdom_prog (void) 504 fftw_wisdom_prog (void)
512 { 505 {
513 int status = 0; 506 int status = 0;
514 507
515 std::string s = builtin_string_variable ("WISDOM_PROGRAM"); 508 std::string s = builtin_string_variable ("FFTW_WISDOM_PROGRAM");
516 509
517 if (s.empty ()) 510 if (s.empty ())
518 { 511 {
519 gripe_invalid_value_specified ("WISDOM_PROGRAM"); 512 gripe_invalid_value_specified ("FFTW_WISDOM_PROGRAM");
520 status = -1; 513 status = -1;
521 } 514 }
522 else 515 else
523 Vwisdom_prog = s; 516 Vfftw_wisdom_prog = s;
524 517
525 return status; 518 return status;
526 } 519 }
527 #endif
528 520
529 static int 521 static int
530 default_exec_path (void) 522 default_exec_path (void)
531 { 523 {
532 int status = 0; 524 int status = 0;
627 If the environment variable @code{EDITOR} is set when Octave starts, its\n\ 619 If the environment variable @code{EDITOR} is set when Octave starts, its\n\
628 value is used as the default. Otherwise, @code{EDITOR} is set to\n\ 620 value is used as the default. Otherwise, @code{EDITOR} is set to\n\
629 @code{\"emacs\"}.\n\ 621 @code{\"emacs\"}.\n\
630 @end defvr"); 622 @end defvr");
631 623
632 #ifdef HAVE_FFTW3 624 DEFVAR (FFTW_WISDOM_PROGRAM, Vfftw_wisdom_prog, fftw_wisdom_prog,
633 DEFVAR (WISDOM_PROGRAM, Vwisdom_prog, wisdom_prog, 625 "-*- texinfo -*-\n\
634 "-*- texinfo -*-\n\ 626 @defvr {Built-in Variable} FFTW_WISDOM_PROGRAM\n\
635 @defvr {Built-in Variable} WISDOM_PROGRAM\n\
636 A string naming the FFTW wisdom program to use to create wisdom data\n\ 627 A string naming the FFTW wisdom program to use to create wisdom data\n\
637 to accelerate Fourier transforms. If the environment variable\n\ 628 to accelerate Fourier transforms. If the environment variable\n\
638 @code{OCTAVE_WISDOM_PROGRAM} is set when Octave starts, its value is used\n\ 629 @code{OCTAVE_WISDOM_PROGRAM} is set when Octave starts, its value is used\n\
639 as the default. Otherwise, @code{WISDOM_PROGRAM} is set to\n\ 630 as the default. Otherwise, @code{WISDOM_PROGRAM} is set to\n\
640 @code{\"fftw-wisdom\"}.\n\ 631 @code{\"fftw-wisdom\"}.\n\
641 @end defvr"); 632 @end defvr");
642 #endif
643 633
644 DEFVAR (EXEC_PATH, Vexec_path, exec_path, 634 DEFVAR (EXEC_PATH, Vexec_path, exec_path,
645 "-*- texinfo -*-\n\ 635 "-*- texinfo -*-\n\
646 @defvr {Built-in Variable} EXEC_PATH\n\ 636 @defvr {Built-in Variable} EXEC_PATH\n\
647 The variable @code{EXEC_PATH} is a colon separated list of directories\n\ 637 The variable @code{EXEC_PATH} is a colon separated list of directories\n\