SIG_USR handling seems to be working

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@282 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-09 17:19:36 +00:00
parent 8496030d8a
commit 7849f7b54e
9 changed files with 89 additions and 7 deletions
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -231,6 +231,13 @@ alarm(Interval, Goal, Left) :-
 	'$recordz'('$alarm_handler',M:Goal,_),
 	'$alarm'(Interval, Left).

+on_signal(Signal,OldAction,Action) :-
+	recorded('$sig_handler', action(Signal,OldAction), Ref),
+	erase(Ref),
+	'$current_module'(M),
+	'$recordz'('$sig_handler', action(Signal,M:Action),Ref2).
+
+
 %%% Saving and restoring a computation

 save(A) :- var(A), !,