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., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA. */
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA. */
#include <config.h>
-#include "main.h"
#include <stdio.h>
+#include <gsl/gsl_errno.h>
+#include "main.h"
#include "cmdline.h"
#include "command.h"
+#include "dictionary.h"
#include "error.h"
#include "getline.h"
#include "glob.h"
#include "lexer.h"
#include "output.h"
+#include "settings.h"
+#include "var.h"
#include <signal.h>
#include <stdlib.h>
/* 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);
+
/* Whether we're dropping down to interactive mode immediately because
we hit end-of-file unexpectedly (or whatever). */
int start_interactive;
+
+
+
+
+
/* Program entry point. */
int
main (int argc, char **argv)
{
+
signal (SIGSEGV, bug_handler);
+ signal (SIGFPE, bug_handler);
+ signal (SIGINT, interrupt_handler);
+
+ gsl_set_error_handler_off();
/* Initialization. */
if (!outp_init ())
static int
execute_command (void)
{
+ int result;
+
/* Read the command's first token.
We may hit end of file.
If so, give the line reader a chance to proceed to the next file.
/* Parse the command. */
getl_prompt = GETL_PRPT_CONTINUATION;
- return cmd_parse ();
+ 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
while (token != T_STOP && token != '.')
lex_get ();
}
- else
- lex_discard_line ();
+ else
+ {
+ msg (SW, _("The rest of this command has been discarded."));
+ lex_discard_line ();
+ }
}
void
bug_handler(int sig UNUSED)
{
- request_bug_report_and_abort("Segmentation Violation");
+ switch (sig)
+ {
+ 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;
+ }
+}
+
+
+void
+interrupt_handler(int sig UNUSED)
+{
+ err_hcf(0);
}