octave-nkf: src/octave.cc comparison

comparison src/octave.cc @ 1358:dc9c01f66a19

[project @ 1995-09-05 21:10:01 by jwe]

author	jwe
date	Tue, 05 Sep 1995 21:12:04 +0000
parents	94697d007075
children	ed5757e3333b

comparison

equal deleted inserted replaced

-:749071f48336
+:dc9c01f66a19
 static int read_init_files = 1;
 // Nonzero means we printed messages about reading startup files.
 static int reading_startup_message_printed = 0;
-// Nonzero means we don\'t print the usual startup message.
+// Nonzero means we don't print the usual startup message.
 // (--quiet; --silent; -q)
 static int inhibit_startup_message = 0;
 // Usage message
 static const char *usage_string =
 "octave [-?Vdfhiqvx] [-p path] [--debug] [--help] [--ignore-init-file]\n\
 [--info-file file] [--interactive] [--path path] [--silent]\n\
 [--verbose] [--version] [--echo-commands] [file]";
-// This is here so that it\'s more likely that the usage message and
+// This is here so that it's more likely that the usage message and
 // the real set of options will agree.
 static const char *short_opts = "?Vdfhip:qvx";
 // Long options.  See the comments in getopt.h for the meanings of the
 // fields in this structure.
 sprintf (putenv_cmd, "PATH=%s" SEPCHAR_STR "%s", arch_dir, bin_dir);
 }
 putenv (putenv_cmd);
 // This may seem odd, but doing it this way means that we don't have
 // to modify the kpathsea library...
 char *odb = getenv ("OCTAVE_DB_DIR");
 if (odb)
 putenv (strconcat ("TEXMF=", odb));
 unwind_protect_int (input_from_startup_file);
 input_from_startup_file = 1;
 int verbose = (verbose_flag && ! inhibit_startup_message);
 // Execute commands from the site-wide configuration file.
 char *sd = get_site_defaults ();
 parse_and_execute (sd, 0, verbose);
 // Try to execute commands from $HOME/.octaverc and ./.octaverc.
 char *home_rc = 0;
 if (home_directory)
 {
 home_rc = strconcat (home_directory, "/.octaverc");
 parse_and_execute (home_rc, 0, verbose);
 }
 // Names alone are not enough.
 struct stat home_rc_statbuf;
 stat (home_rc, &home_rc_statbuf);
 delete [] home_rc;
 if (retval == EOF)
 retval = 0;
 exit (retval);
 // This is bogus but should prevent g++ from giving a warning saying
 // that this volatile function does return.
 panic_impossible ();
 }
 static void
 // You guessed it.
 int
 main (int argc, char **argv)
 {
-// The order of these calls is important, and initialize_globals must
+// The order of these calls is important, and initialize_globals
-// come before the options are processed because some command line
+// must come before the options are processed because some command
-// options override defaults.
+// line options override defaults.
 init_user_prefs ();
 initialize_pager ();
 	  break;
 	}
 }
 #if defined (HAVE_ATEXIT) || (HAVE_ON_EXIT)
 // Make sure we clean up when we exit.  If we don't have atexit or
 // on_exit, we're going to leave some junk files around if we exit
 // abnormally.
 atexit (cleanup_tmp_files);
 #endif
 // These can come after command line args since none of them set any
 // defaults that might be changed by command line options.
 install_signal_handlers ();
 initialize_history ();
 }
 if (! inhibit_startup_message && reading_startup_message_printed)
 cout << endl;
 // Avoid counting commands executed from startup files.
 current_command_number = 1;
 // If there is an extra argument, see if it names a file to read.
 // Additional arguments are taken as command line options for the
 // script.
 int remaining_args = argc - optind;
 if (remaining_args > 0)
 {
 if (remaining_args == 1)
 intern_argv (argc, argv);
 switch_to_buffer (create_buffer (get_input_from_stdin ()));
 }
 // Force input to be echoed if not really interactive, but the user
 // has forced interactive behavior.
 if (!interactive && forced_interactive)
 {
 rl_blink_matching_paren = 0;
 echo_input = 1;
 }
 if (! (interactive || forced_interactive))
 using_readline = 0;
 // Allow the user to interrupt us without exiting.
 volatile sig_handler *saved_sigint_handler = signal (SIGINT, SIG_IGN);
 if (setjmp (toplevel) != 0)
 {
 can_interrupt = 1;
 signal (SIGINT, saved_sigint_handler);
 // The big loop.
 int retval;
 do
 {
 curr_sym_tab = top_level_sym_tab;
 reset_parser ();
 parse_status = yyparse ();
 // Important to reset the idea of where input is coming from before
 // trying to eval the command we just parsed -- it might contain the
 // name of an function file that still needs to be parsed!
 tree_statement_list *command = global_command;
 run_unwind_frame ("eval_string");
 {
 error ("eval: expecting string argument");
 return -1.0;
 }
 // Yes Virginia, we always print here...
 return eval_string (string, 1, 1, parse_status, nargout);
 }
 DEFUN ("eval", Feval, Seval, 2, 1,
 output_buf << ends;
 int status = cmd.close ();
-// The value in status is as returned by waitpid.  If the process
+// The value in status is as returned by waitpid.  If the
-// exited normally, extract the actual exit status of the command.
+// process exited normally, extract the actual exit status of
-// Otherwise, return 127 as a failure code.
+// the command.  Otherwise, return 127 as a failure code.
 if ((status & 0xff) == 0)
 	status = (status & 0xff00) >> 8;
 else
 	status = 127;

Mercurial > hg > octave-nkf

comparison src/octave.cc @ 1358:dc9c01f66a19