diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix trouble with tkyap (Kerri Harris)

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1548 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-02-20 13:18:08 +00:00
parent b07720e147
commit 2de3fd9474
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/sysbits.c
View File

@ -1333,7 +1333,7 @@ HandleSIGINT (int sig)
my_signal(SIGINT, HandleSIGINT); my_signal(SIGINT, HandleSIGINT);
/* do this before we act */ /* do this before we act */
#if HAVE_ISATTY #if HAVE_ISATTY
if (!isatty(0)) { if (!isatty(0) && !Yap_sockets_io) {
Yap_Error(INTERRUPT_ERROR,MkIntTerm(SIGINT),NULL); Yap_Error(INTERRUPT_ERROR,MkIntTerm(SIGINT),NULL);
} }
#endif #endif

7
misc/tkyap
View File

@ -2,6 +2,9 @@
# tkyap -- a TK shell for YAP # tkyap -- a TK shell for YAP
# $Locker: $ # $Locker: $
# $Log: not supported by cvs2svn $ # $Log: not supported by cvs2svn $
# Revision 1.1.1.1 2001/04/09 19:53:46 vsc
# Imported sources
#
# Revision 1.1 1997/06/02 16:32:00 vsc # Revision 1.1 1997/06/02 16:32:00 vsc
# Initial revision # Initial revision
# #
@ -119,7 +122,7 @@ menu .menu.file.m
menubutton .menu.exec -text "Execution" -menu .menu.exec.m -underline 0 menubutton .menu.exec -text "Execution" -menu .menu.exec.m -underline 0
menu .menu.exec.m menu .menu.exec.m
.menu.exec.m add command -label "Interrupt" \ .menu.exec.m add command -label "Interrupt" \
-command {global tcl_mode; set tcl_mode 0; exec kill SIGINT $pid} -command {global tcl_mode; set tcl_mode 0; exec kill -SIGINT $pid}
.menu.exec.m add separator .menu.exec.m add separator
.menu.exec.m add command -label "Statistics" -command {YapStats} .menu.exec.m add command -label "Statistics" -command {YapStats}
@ -178,7 +181,7 @@ set InputStart [.frame.text index {end - 1 chars}]
bind .frame.text <Control-Key-c> { bind .frame.text <Control-Key-c> {
set tcl_mode 0 set tcl_mode 0
.frame.text yview -pickplace end .frame.text yview -pickplace end
exec kill SIGINT $pid exec kill -SIGINT $pid
} }

5
pl/consult.yap
View File

@ -280,11 +280,10 @@ use_module(M,F,Is) :-
'$do_startup_reconsult'(X) :- '$do_startup_reconsult'(X) :-
( '$access_yap_flags'(15, 0) -> ( '$access_yap_flags'(15, 0) ->
Opts=[] '$system_catch'(load_files(X, []),Module,Error,'$Error'(Error))
; ;
Opts=[silent(true)] load_files(X, [silent(true)])
), ),
load_files(X, Opts),
( '$access_yap_flags'(15, 0) -> true ; halt). ( '$access_yap_flags'(15, 0) -> true ; halt).
'$skip_unix_comments'(Stream) :- '$skip_unix_comments'(Stream) :-