1
1
/* slutty.c --- Unix Low level terminal (tty) functions for S-Lang */
2
/* Copyright (c) 1992, 1999, 2001, 2002, 2003 John E. Davis
3
* This file is part of the S-Lang library.
5
* You may distribute under the terms of either the GNU General Public
6
* License or the Perl Artistic License.
3
Copyright (C) 2004, 2005, 2006 John E. Davis
5
This file is part of the S-Lang Library.
7
The S-Lang Library is free software; you can redistribute it and/or
8
modify it under the terms of the GNU General Public License as
9
published by the Free Software Foundation; either version 2 of the
10
License, or (at your option) any later version.
12
The S-Lang Library is distributed in the hope that it will be useful,
13
but WITHOUT ANY WARRANTY; without even the implied warranty of
14
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15
General Public License for more details.
17
You should have received a copy of the GNU General Public License
18
along with this library; if not, write to the Free Software
19
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
9
23
#include "slinclud.h"
432
446
sig = errno; /* use parameter */
434
448
SLKeyBoard_Quit = 1;
435
if (SLang_Ignore_User_Abort == 0) SLang_Error = SL_USER_BREAK;
449
if (SLang_Ignore_User_Abort == 0) SLang_set_error (SL_USER_BREAK);
436
450
SLsignal_intr (SIGINT, default_sigint);