X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fsettings.c;h=4d0ef3eb03ddbaad947c38255aa68c393c6280bf;hb=09f992ebd556113e28cdf0829459121e3d2ec865;hp=844fdde33d3c2bbc5271f705e6d030048c960868;hpb=3a61659a8fc11c51ad5af02b20f5613dcde50382;p=pspp diff --git a/src/data/settings.c b/src/data/settings.c index 844fdde33d..4d0ef3eb03 100644 --- a/src/data/settings.c +++ b/src/data/settings.c @@ -1,21 +1,18 @@ -/* PSPP - computes sample statistics. - Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc. - Written by Ben Pfaff . +/* PSPP - a program for statistical analysis. + Copyright (C) 1997-9, 2000, 2006, 2007 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 "settings.h" @@ -27,19 +24,26 @@ #include "xalloc.h" #include -static int viewlength = 24; -static int viewwidth = 79; -static bool long_view = false; +#include "error.h" + +#include "gettext.h" +#define _(msgid) gettext (msgid) + +static int *viewlength = NULL; +static int *viewwidth = NULL; static bool safer_mode = false; -static bool echo = false; +static bool do_echo = false; static bool include = true; static int epoch = -1; static bool errorbreak = false; +static bool route_errors_to_terminal = true; +static bool route_errors_to_listing = true; + static bool scompress = true; static bool undefined = true; @@ -69,12 +73,12 @@ static int *algorithm = &global_algorithm; static int syntax = ENHANCED; -static void init_viewport (void); +static void init_viewport (int *, int *); void -settings_init (void) +settings_init (int *width, int *length) { - init_viewport (); + init_viewport (width, length); i18n_init (); } @@ -88,81 +92,35 @@ settings_done (void) int get_viewlength (void) { - return viewlength; + return *viewlength; } /* Sets the view length. */ void -set_viewlength (int viewlength_) +set_viewlength (int viewlength_) { - viewlength = viewlength_; -} - -/* Set view width to a very long value, and prevent it from ever - changing. */ -void -force_long_view (void) -{ - long_view = true; - viewwidth = 9999; + *viewlength = viewlength_; } /* Screen width. */ int get_viewwidth(void) { - return viewwidth; + return *viewwidth; } /* Sets the screen width. */ void -set_viewwidth (int viewwidth_) +set_viewwidth (int viewwidth_) { - viewwidth = viewwidth_; + *viewwidth = viewwidth_; } -#if HAVE_LIBTERMCAP static void -get_termcap_viewport (void) -{ - char term_buffer[16384]; - if (getenv ("TERM") == NULL) - return; - else if (tgetent (term_buffer, getenv ("TERM")) <= 0) - { - msg (IE, _("Could not access definition for terminal `%s'."), termtype); - return; - } - - if (tgetnum ("li") > 0) - viewlength = tgetnum ("li"); - - if (tgetnum ("co") > 1) - viewwidth = tgetnum ("co") - 1; -} -#endif /* HAVE_LIBTERMCAP */ - -static void -init_viewport (void) +init_viewport (int *width, int *length) { - if (long_view) - return; - - viewwidth = viewlength = -1; - -#if HAVE_LIBTERMCAP - get_termcap_viewport (); -#endif /* HAVE_LIBTERMCAP */ - - if (viewwidth < 0 && getenv ("COLUMNS") != NULL) - viewwidth = atoi (getenv ("COLUMNS")); - if (viewlength < 0 && getenv ("LINES") != NULL) - viewlength = atoi (getenv ("LINES")); - - if (viewwidth < 0) - viewwidth = 79; - if (viewlength < 0) - viewlength = 24; + viewwidth = width; + viewlength = length; } /* Whether PSPP can erase and overwrite files. */ @@ -183,14 +141,14 @@ set_safer_mode (void) bool get_echo (void) { - return echo; + return do_echo; } /* Set echo. */ void -set_echo (bool echo_) +set_echo (bool echo_) { - echo = echo_; + do_echo = echo_; } /* If echo is on, whether commands from include files are echoed. */ @@ -202,16 +160,16 @@ get_include (void) /* Set include file echo. */ void -set_include (bool include_) +set_include (bool include_) { include = include_; } /* What year to use as the start of the epoch. */ int -get_epoch (void) +get_epoch (void) { - if (epoch < 0) + if (epoch < 0) { time_t t = time (0); struct tm *tm = localtime (&t); @@ -223,7 +181,7 @@ get_epoch (void) /* Sets the year that starts the epoch. */ void -set_epoch (int epoch_) +set_epoch (int epoch_) { epoch = epoch_; } @@ -237,13 +195,43 @@ get_errorbreak (void) /* Sets whether an error stops execution. */ void -set_errorbreak (bool errorbreak_) +set_errorbreak (bool errorbreak_) { errorbreak = errorbreak_; } +/* Route error messages to terminal? */ +bool +get_error_routing_to_terminal (void) +{ + return route_errors_to_terminal; +} + +/* Sets whether error messages should be routed to the + terminal. */ +void +set_error_routing_to_terminal (bool route_to_terminal) +{ + route_errors_to_terminal = route_to_terminal; +} + +/* Route error messages to listing file? */ +bool +get_error_routing_to_listing (void) +{ + return route_errors_to_listing; +} + +/* Sets whether error messages should be routed to the + listing file. */ +void +set_error_routing_to_listing (bool route_to_listing) +{ + route_errors_to_listing = route_to_listing; +} + /* Compress system files by default? */ -bool +bool get_scompression (void) { return scompress; @@ -251,7 +239,7 @@ get_scompression (void) /* Set system file default compression. */ void -set_scompression (bool scompress_) +set_scompression (bool scompress_) { scompress = scompress_; } @@ -265,7 +253,7 @@ get_undefined (void) /* Set whether to warn on undefined values. */ void -set_undefined (bool undefined_) +set_undefined (bool undefined_) { undefined = undefined_; } @@ -280,7 +268,7 @@ get_blanks (void) /* Set the value that blank numeric fields are set to when read in. */ void -set_blanks (double blanks_) +set_blanks (double blanks_) { blanks = blanks_; } @@ -288,13 +276,13 @@ set_blanks (double blanks_) /* Maximum number of warnings + errors. */ int get_mxwarns (void) -{ +{ return mxwarns; } /* Sets maximum number of warnings + errors. */ void -set_mxwarns (int mxwarns_) +set_mxwarns (int mxwarns_) { mxwarns = mxwarns_; } @@ -308,7 +296,7 @@ get_mxerrs (void) /* Sets maximum number of errors. */ void -set_mxerrs (int mxerrs_) +set_mxerrs (int mxerrs_) { mxerrs = mxerrs_; } @@ -322,7 +310,7 @@ get_printback (void) /* Sets whether commands are written to the display. */ void -set_printback (bool printback_) +set_printback (bool printback_) { printback = printback_; } @@ -338,7 +326,7 @@ get_mprint (void) /* Sets whether the commands generated by macro invocations are displayed. */ void -set_mprint (bool mprint_) +set_mprint (bool mprint_) { mprint = mprint_; } @@ -352,7 +340,7 @@ get_mxloops (void) /* Set implied limit of unbounded loop. */ void -set_mxloops (int mxloops_) +set_mxloops (int mxloops_) { mxloops = mxloops_; } @@ -380,7 +368,7 @@ get_endcmd (void) /* Set the character used to terminate commands. */ void -set_endcmd (char endcmd_) +set_endcmd (char endcmd_) { endcmd = endcmd_; } @@ -393,11 +381,21 @@ get_workspace (void) return workspace; } +/* Approximate maximum number of cases to allocate in-core, given + that each case contains VALUE_CNT values. */ +size_t +get_workspace_cases (size_t value_cnt) +{ + size_t case_size = sizeof (union value) * value_cnt + 4 * sizeof (void *); + size_t case_cnt = MAX (get_workspace () / case_size, 4); + return case_cnt; +} + /* Set approximate maximum amount of memory to use for cases, in bytes. */ void -set_workspace (size_t workspace_) +set_workspace (size_t workspace_) { workspace = workspace_; } @@ -406,14 +404,14 @@ set_workspace (size_t workspace_) DATA LIST {FREE,LIST}. */ const struct fmt_spec * get_format (void) -{ +{ return &default_format; } /* Set default format for variables created by transformations and by DATA LIST {FREE,LIST}. */ void -set_format (const struct fmt_spec *default_format_) +set_format (const struct fmt_spec *default_format_) { default_format = *default_format_; } @@ -421,14 +419,14 @@ set_format (const struct fmt_spec *default_format_) /* Are we in testing mode? (e.g. --testing-mode command line option) */ bool -get_testing_mode (void) +get_testing_mode (void) { return testing_mode; } /* Set testing mode. */ void -set_testing_mode (bool testing_mode_) +set_testing_mode (bool testing_mode_) { testing_mode = testing_mode_; } @@ -441,17 +439,17 @@ get_algorithm (void) } /* Set the algorithm option globally. */ -void +void set_algorithm (enum behavior_mode mode) { global_algorithm = mode; } /* Set the algorithm option for this command only */ -void +void set_cmd_algorithm (enum behavior_mode mode) { - cmd_algorithm = mode; + cmd_algorithm = mode; algorithm = &cmd_algorithm; } @@ -470,7 +468,7 @@ get_syntax (void) } /* Set the syntax option */ -void +void set_syntax (enum behavior_mode mode) { syntax = mode;