X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fterminal%2Fmain.c;h=ad76cb1a43e361d467b4379d293076ddc97bdb54;hb=54058c1e5c66b976ec7ddab606fd7740f0c61a6e;hp=e66035d4f01af6f6585903c71c4a5be68258d94e;hpb=6fdf428d72c5695c1bc21a7158f75a542d96df8b;p=pspp diff --git a/src/ui/terminal/main.c b/src/ui/terminal/main.c index e66035d4f0..ad76cb1a43 100644 --- a/src/ui/terminal/main.c +++ b/src/ui/terminal/main.c @@ -1,42 +1,47 @@ -/* PSPP - computes sample statistics. - Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. - Written by Ben Pfaff . +/* PSPP - a program for statistical analysis. + 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 - published by the Free Software Foundation; either version 2 of the - License, or (at your option) any later version. + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. - This program is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - General Public License for more details. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA - 02110-1301, USA. */ + along with this program. If not, see . */ #include -#include + #include #include + +#include #include "command-line.h" -#include -#include +#include "msg-ui.h" +#include "progname.h" +#include "read-line.h" + #include -#include #include +#include #include -#include -#include -#include -#include "progname.h" -#include -#include "read-line.h" +#include +#include #include #include +#include +#include +#include +#include +#include +#include #include +#include +#include #if HAVE_FPU_CONTROL_H #include @@ -50,6 +55,10 @@ #include #endif +#if HAVE_IEEEFP_H +#include +#endif + #include "gettext.h" #define _(msgid) gettext (msgid) @@ -57,186 +66,139 @@ 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 */ 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 ; + +static int view_length = -1; +static int view_width = -1; + +static void get_termcap_viewport (int); -void terminate (bool success); /* Program entry point. */ int main (int argc, char **argv) { + signal (SIGABRT, bug_handler); signal (SIGSEGV, bug_handler); signal (SIGFPE, bug_handler); signal (SIGINT, interrupt_handler); + signal (SIGWINCH, get_termcap_viewport); + + set_program_name (argv[0]); - set_program_name ("pspp"); i18n_init (); fpu_init (); gsl_set_error_handler_off (); + fmt_init (); outp_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 (); + get_termcap_viewport (0); + settings_init (&view_width, &view_length); random_init (); - default_dict = dict_create (); + the_dataset = create_dataset (); - if (parse_command_line (argc, argv)) + if (parse_command_line (argc, argv, the_source_stream)) { - outp_read_devices (); - lex_init (); + msg_ui_init (the_source_stream); + if (!get_testing_mode ()) + outp_read_devices (); + else + outp_configure_driver_line ( + ss_cstr ("raw-ascii:ascii:listing:width=9999 length=9999 " + "output-file=\"pspp.list\" emphasis=none " + "headers=off paginate=off squeeze=on " + "top-margin=0 bottom-margin=0")); + the_lexer = lex_create (the_source_stream); for (;;) { - int retval; - - err_check_count (); + int result = cmd_parse (the_lexer, the_dataset); - retval = execute_command (); - if (retval == CMD_EOF) + 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 (err_error_count == 0); - abort (); -} - -/* 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 -i18n_init (void) +i18n_init (void) { #if ENABLE_NLS #if HAVE_LC_MESSAGES setlocale (LC_MESSAGES, ""); #endif - setlocale (LC_MONETARY, ""); +#if HAVE_LC_PAPER + setlocale (LC_PAPER, ""); +#endif bindtextdomain (PACKAGE, locale_dir); textdomain (PACKAGE); #endif /* ENABLE_NLS */ } static void -fpu_init (void) +fpu_init (void) { #if HAVE_FEHOLDEXCEPT fenv_t foo; feholdexcept (&foo); #elif HAVE___SETFPUCW && defined(_FPU_IEEE) __setfpucw (_FPU_IEEE); +#elif HAVE_FPSETMASK + fpsetmask (0); #endif } /* If a segfault happens, issue a message to that effect and halt */ -void +void bug_handler(int sig) { - switch (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"); } } -void +void interrupt_handler(int sig UNUSED) { terminate (false); @@ -245,25 +207,97 @@ interrupt_handler(int sig UNUSED) /* Terminate PSPP. SUCCESS should be true to exit successfully, false to exit as a failure. */ -void +static void terminate (bool success) { static bool terminating = false; - if (terminating) - return; - terminating = true; - - msg_done (); - outp_done (); + if (!terminating) + { + terminating = true; - cancel_transformations (); - dict_destroy (default_dict); + destroy_dataset (the_dataset); - random_done (); - settings_done (); - fh_done (); - lex_done (); - getl_uninitialize (); + random_done (); + settings_done (); + fh_done (); + 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); } + + +#include "error.h" + +#include "gettext.h" +#define _(msgid) gettext (msgid) + +/* If view_width or view_length has not yet been set to a + reasonable value, takes a guess. */ +static void +set_fallback_viewport (void) +{ + if (view_width <= 0) + { + if (getenv ("COLUMNS") != NULL) + view_width = atoi (getenv ("COLUMNS")); + if (view_width <= 0) + view_width = 79; + } + + if (view_length <= 0) + { + if (getenv ("LINES") != NULL) + view_length = atoi (getenv ("LINES")); + if (view_length <= 0) + view_length = 24; + } +} + +/* Code that interfaces to ncurses. This must be at the very end + of this file because curses.h redefines "bool" on some systems + (e.g. OpenBSD), causing declaration mismatches with functions + that have parameters or return values of type "bool". */ +#if HAVE_LIBNCURSES +#include +#include + +static void +get_termcap_viewport (int sig UNUSED) +{ + char term_buffer [16384]; + + if (getenv ("TERM") != NULL) + { + if (tgetent (term_buffer, getenv ("TERM")) > 0) + { + if (tgetnum ("li") > 0) + view_length = tgetnum ("li"); + if (tgetnum ("co") > 1) + view_width = tgetnum ("co") - 1; + } + else + error (0, 0, _("could not access definition for terminal `%s'"), + getenv ("TERM")); + } + + set_fallback_viewport (); +} + +#else /* !HAVE_LIBNCURSES */ + +static void +get_termcap_viewport (int sig UNUSED) +{ + set_fallback_viewport (); +} + +#endif /* !HAVE_LIBNCURSES */ + +