X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Fui%2Fterminal%2Fmain.c;h=81b09a1df24d22120d270fb0b5bd97bc2a2eff4f;hb=ecd26ec19e9f8a58079a1c5fa06b39484787ab7e;hp=16058e45d33913dda0224d721fc7e188409e93a9;hpb=9f1d9ea8ac4f5e35a773581cf3d5ebd9e219bff8;p=pspp-builds.git diff --git a/src/ui/terminal/main.c b/src/ui/terminal/main.c index 16058e45..81b09a1d 100644 --- a/src/ui/terminal/main.c +++ b/src/ui/terminal/main.c @@ -1,6 +1,5 @@ /* PSPP - computes sample statistics. - Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. - Written by Ben Pfaff . + Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as @@ -19,28 +18,33 @@ #include +#include +#include + +#include #include "command-line.h" #include "msg-ui.h" #include "progname.h" #include "read-line.h" +#include #include #include +#include #include +#include +#include #include #include #include #include #include -#include +#include #include #include #include #include #include -#include -#include - #if HAVE_FPU_CONTROL_H #include @@ -61,8 +65,6 @@ static void i18n_init (void); static void fpu_init (void); -static void handle_error (int code); -static int execute_command (void); static void terminate (bool success) NO_RETURN; /* If a segfault happens, issue a message to that effect and halt */ @@ -70,12 +72,18 @@ void bug_handler(int sig); /* Handle quit/term/int signals */ void interrupt_handler(int sig); +static struct dataset * the_dataset = NULL; + +static struct lexer *the_lexer; +static struct source_stream *the_source_stream ; /* Program entry point. */ int main (int argc, char **argv) { + struct casefile_factory *factory; + signal (SIGABRT, bug_handler); signal (SIGSEGV, bug_handler); signal (SIGFPE, bug_handler); signal (SIGINT, interrupt_handler); @@ -85,117 +93,49 @@ main (int argc, char **argv) fpu_init (); gsl_set_error_handler_off (); + fmt_init (); outp_init (); - msg_ui_init (); fn_init (); fh_init (); - getl_initialize (); + the_source_stream = + create_source_stream ( + fn_getenv_default ("STAT_INCLUDE_PATH", include_path) + ); + prompt_init (); readln_initialize (); settings_init (); random_init (); - default_dict = dict_create (); + factory = fastfile_factory_create (); + + the_dataset = create_dataset (factory, NULL, NULL); - if (parse_command_line (argc, argv)) + if (parse_command_line (argc, argv, the_source_stream)) { + msg_ui_init (the_source_stream); outp_read_devices (); - lex_init (); + the_lexer = lex_create (the_source_stream); for (;;) { - int retval; - - check_msg_count (); - - retval = execute_command (); - if (retval == CMD_EOF) + int result = cmd_parse (the_lexer, the_dataset, + proc_has_source (the_dataset) + ? CMD_STATE_DATA : CMD_STATE_INITIAL); + if (result == CMD_EOF || result == CMD_FINISH) break; - if (retval != CMD_SUCCESS) - handle_error (retval); + if (result == CMD_CASCADING_FAILURE && + !getl_is_interactive (the_source_stream)) + { + msg (SE, _("Stopping syntax file processing here to avoid " + "a cascade of dependent command failures.")); + getl_abort_noninteractive (the_source_stream); + } + else + check_msg_count (the_source_stream); } } - - terminate (!any_errors ()); -} -/* Parse and execute a command, returning its return code. */ -static int -execute_command (void) -{ - int result; - - /* Read the command's first token. - The first token is part of the first line of the command. */ - getl_set_prompt_style (GETL_PROMPT_FIRST); - lex_get (); - if (token == T_STOP) - return CMD_EOF; - - /* Parse the command. - Any lines read after the first token must be continuation - lines. */ - getl_set_prompt_style (GETL_PROMPT_LATER); - result = cmd_parse (); - - /* Unset the /ALGORITHM subcommand if it was used */ - unset_cmd_algorithm (); - - /* Clear any auxiliary data from the dictionary. */ - dict_clear_aux (default_dict); - - return result; -} - -/* Print an error message corresponding to the command return code - CODE. */ -static void -handle_error (int code) -{ - if (code == CMD_CASCADING_FAILURE && !getl_is_interactive ()) - { - msg (SW, _("This command not executed. Stopping here " - "to avoid cascading failures.")); - getl_abort_noninteractive (); - return; - } - - switch (code) - { - case CMD_FAILURE: - case CMD_CASCADING_FAILURE: - msg (SW, _("This command not executed.")); - break; - - case CMD_PART_SUCCESS_MAYBE: - msg (SW, _("Skipping the rest of this command. Part of " - "this command may have been executed.")); - break; - - case CMD_PART_SUCCESS: - msg (SW, _("Skipping the rest of this command. This " - "command was fully executed up to this point.")); - break; - - case CMD_TRAILING_GARBAGE: - msg (SW, _("Trailing garbage was encountered following " - "this command. The command was fully executed " - "to this point.")); - break; - - default: - abort (); - } - - if (!getl_is_interactive ()) - { - while (token != T_STOP && token != '.') - lex_get (); - } - else - { - msg (SW, _("The rest of this command has been discarded.")); - lex_discard_line (); - } + terminate (!any_errors ()); } static void @@ -226,17 +166,19 @@ fpu_init (void) void bug_handler(int sig) { +#if DEBUGGING + connect_debugger (); +#endif switch (sig) { + case SIGABRT: + request_bug_report_and_abort("Assertion Failure/Abort"); case SIGFPE: request_bug_report_and_abort("Floating Point Exception"); - break; case SIGSEGV: request_bug_report_and_abort("Segmentation Violation"); - break; default: - request_bug_report_and_abort(""); - break; + request_bug_report_and_abort("Unknown"); } } @@ -257,18 +199,19 @@ terminate (bool success) { terminating = true; - cancel_transformations (); - dict_destroy (default_dict); + destroy_dataset (the_dataset); random_done (); settings_done (); fh_done (); - lex_done (); - getl_uninitialize (); + lex_destroy (the_lexer); + destroy_source_stream (the_source_stream); + prompt_done (); readln_uninitialize (); outp_done (); msg_ui_done (); + fmt_done (); } exit (success ? EXIT_SUCCESS : EXIT_FAILURE); }