Mercurial > hg > octave-nkf
diff src/octave.cc @ 5794:1138ced03f14
[project @ 2006-05-08 20:23:04 by jwe]
author | jwe |
---|---|
date | Mon, 08 May 2006 20:23:07 +0000 |
parents | faafc2d98b8d |
children | 67bf9b4f2ae2 |
line wrap: on
line diff
--- a/src/octave.cc +++ b/src/octave.cc @@ -478,17 +478,17 @@ { persist = true; - bind_builtin_variable ("PS1", ">> "); - bind_builtin_variable ("PS2", ""); - bind_builtin_variable ("beep_on_error", true); - bind_builtin_variable ("crash_dumps_octave_core", false); - bind_builtin_variable ("default_save_options", "-mat-binary"); - bind_builtin_variable ("fixed_point_format", true); - bind_builtin_variable ("history_timestamp_format_string", + bind_internal_variable ("PS1", ">> "); + bind_internal_variable ("PS2", ""); + bind_internal_variable ("beep_on_error", true); + bind_internal_variable ("crash_dumps_octave_core", false); + bind_internal_variable ("default_save_options", "-mat-binary"); + bind_internal_variable ("fixed_point_format", true); + bind_internal_variable ("history_timestamp_format_string", "%%-- %D %I:%M %p --%%"); - bind_builtin_variable ("page_screen_output", false); - bind_builtin_variable ("print_empty_dimensions", false); - bind_builtin_variable ("warn_function_name_clash", false); + bind_internal_variable ("page_screen_output", false); + bind_internal_variable ("print_empty_dimensions", false); + bind_internal_variable ("warn_function_name_clash", false); } // You guessed it. @@ -506,7 +506,7 @@ // default variable values must be available for the variables to be // installed, and the call to install_builtins must come before the // options are processed because some command line options override - // defaults by calling bind_builtin_variable. + // defaults by calling bind_internal_variable. sysdep_init (); @@ -520,6 +520,8 @@ initialize_error_handlers (); + initialize_default_warning_state (); + install_defaults (); initialize_pathsearch (); @@ -545,7 +547,7 @@ switch (optc) { case 'H': - bind_builtin_variable ("saving_history", false); + bind_internal_variable ("saving_history", false); break; case 'V': @@ -573,7 +575,7 @@ case 'p': if (args.optarg ()) - bind_builtin_variable ("LOADPATH", args.optarg ()); + bind_internal_variable ("LOADPATH", args.optarg ()); break; case 'q': @@ -583,7 +585,7 @@ case 'x': { double tmp = (ECHO_SCRIPTS | ECHO_FUNCTIONS | ECHO_CMD_LINE); - bind_builtin_variable ("echo_executing_commands", tmp); + bind_internal_variable ("echo_executing_commands", tmp); } break; @@ -603,17 +605,17 @@ case EXEC_PATH_OPTION: if (args.optarg ()) - bind_builtin_variable ("EXEC_PATH", args.optarg ()); + bind_internal_variable ("exec_path", args.optarg ()); break; case INFO_FILE_OPTION: if (args.optarg ()) - bind_builtin_variable ("INFO_FILE", args.optarg ()); + bind_internal_variable ("info_file", args.optarg ()); break; case INFO_PROG_OPTION: if (args.optarg ()) - bind_builtin_variable ("INFO_PROGRAM", args.optarg ()); + bind_internal_variable ("info_program", args.optarg ()); break; case NO_INIT_FILE_OPTION: @@ -669,7 +671,7 @@ execute_startup_files (); - command_history::read (false); + initialize_history (); if (! inhibit_startup_message && reading_startup_message_printed) std::cout << std::endl; @@ -735,7 +737,7 @@ // FIXME -- is this the right thing to do? - bind_builtin_variable ("echo_executing_commands", ECHO_CMD_LINE); + bind_internal_variable ("echo_executing_commands", ECHO_CMD_LINE); } if (embedded)