Fix assertion for proper Huffman merge pattern: 0 == 1 modulo 1.
[pspp] / src / main.c
1 /* PSPP - computes sample statistics.
2    Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3    Written by Ben Pfaff <blp@gnu.org>.
4
5    This program is free software; you can redistribute it and/or
6    modify it under the terms of the GNU General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful, but
11    WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
18    02111-1307, USA. */
19
20 #include <config.h>
21 #include <stdio.h>
22 #include <gsl/gsl_errno.h>
23 #include "main.h"
24 #include "cmdline.h"
25 #include "command.h"
26 #include "dictionary.h"
27 #include "error.h"
28 #include "getline.h"
29 #include "glob.h"
30 #include "lexer.h"
31 #include "output.h"
32 #include "settings.h"
33 #include "var.h"
34 #include <signal.h>
35
36 #include <stdlib.h>
37
38 #include "debug-print.h"
39
40 static void parse_script (void) NO_RETURN;
41 static void handle_error (int code);
42 static int execute_command (void);
43
44 /* argv[0] with stripped leading directories. */
45 char *pgmname;
46
47 /* Whether FINISH. has been executed. */
48 int finished;
49
50 /* The current date in the form DD MMM YYYY. */
51 char curdate[12];
52
53
54 /* If a segfault happens, issue a message to that effect and halt */
55 void bug_handler(int sig);
56
57 /* Whether we're dropping down to interactive mode immediately because
58    we hit end-of-file unexpectedly (or whatever). */
59 int start_interactive;
60
61
62 /* Program entry point. */
63 int
64 main (int argc, char **argv)
65 {
66   signal (SIGSEGV, bug_handler);
67
68   gsl_set_error_handler_off();
69
70   /* Initialization. */
71   if (!outp_init ())
72     err_hcf (0);
73   init_glob (argc, argv);
74   parse_command_line (argc, argv);
75   if (!outp_read_devices ())
76     msg (FE, _("Error initializing output drivers."));
77
78   lex_init ();
79
80   /* Execution. */
81   parse_script ();
82
83   /* Should never be reached */
84   return (-1);
85 }
86
87 /* Parses the entire script. */
88 static void
89 parse_script (void)
90 {
91   while (!finished)
92     {
93       err_check_count ();
94       handle_error (execute_command ());
95     }
96
97   err_hcf (err_error_count==0);
98 }
99
100 /* Parse and execute a command, returning its return code. */
101 static int
102 execute_command (void)
103 {
104   int result;
105   
106   /* Read the command's first token.
107      We may hit end of file.
108      If so, give the line reader a chance to proceed to the next file.
109      End of file is not handled transparently since the user may want
110      the dictionary cleared between files. */
111   getl_prompt = GETL_PRPT_STANDARD;
112   for (;;)
113     {
114       lex_get ();
115       if (token != T_STOP)
116         break;
117
118       if (!getl_perform_delayed_reset ())
119         err_hcf (err_error_count==0);
120     }
121
122   /* Parse the command. */
123   getl_prompt = GETL_PRPT_CONTINUATION;
124   result =  cmd_parse ();
125  
126   /* Unset the /ALGORITHM subcommand if it was used */
127   unset_cmd_algorithm ();
128
129   /* Clear any auxiliary data from the dictionary. */
130   dict_clear_aux (default_dict);
131
132   return result;
133 }
134
135 /* Print an error message corresponding to the command return code
136    CODE. */
137 static void
138 handle_error (int code)
139 {
140   switch (code)
141     {
142     case CMD_SUCCESS:
143       return;
144           
145     case CMD_FAILURE:
146       msg (SW,  _("This command not executed."));
147       break;
148
149     case CMD_PART_SUCCESS_MAYBE:
150       msg (SW, _("Skipping the rest of this command.  Part of "
151                  "this command may have been executed."));
152       break;
153                   
154     case CMD_PART_SUCCESS:
155       msg (SW, _("Skipping the rest of this command.  This "
156                  "command was fully executed up to this point."));
157       break;
158
159     case CMD_TRAILING_GARBAGE:
160       msg (SW, _("Trailing garbage was encountered following "
161                  "this command.  The command was fully executed "
162                  "to this point."));
163       break;
164
165     default:
166       assert (0);
167     }
168
169   if (getl_reading_script)
170     {
171       err_break ();
172       while (token != T_STOP && token != '.')
173         lex_get ();
174     }
175   else 
176     {
177       msg (SW, _("The rest of this command has been discarded."));
178       lex_discard_line (); 
179     }
180 }
181
182
183
184 /* If a segfault happens, issue a message to that effect and halt */
185 void 
186 bug_handler(int sig UNUSED)
187 {
188   request_bug_report_and_abort("Segmentation Violation");
189 }