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

threads, clean signals, and much more...

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@957 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-01-23 02:23:51 +00:00
parent 437a6a19ab
commit ba9876268f
54 changed files with 17285 additions and 6361 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
pl/utils.yap
View File

@@ -250,23 +250,6 @@ putenv(Na,Val) :-
getenv(Na,Val) :-
'$getenv'(Na,Val).
alarm(_, _, _) :-
recorded('$alarm_handler',_, Ref), erase(Ref), fail.
alarm(Interval, Goal, Left) :-
'$current_module'(M),
recordz('$alarm_handler',M:Goal,_),
'$alarm'(Interval, Left).
on_signal(Signal,OldAction,default) :-
recorded('$sig_handler', default(Signal,Action), _Ref),
on_signal(Signal,OldAction,Action).
on_signal(Signal,OldAction,Action) :-
recorded('$sig_handler', action(Signal,OldAction), Ref),
erase(Ref),
'$current_module'(M),
recordz('$sig_handler', action(Signal,M:Action), _).
%%% Saving and restoring a computation
save(A) :- var(A), !,
@@ -820,12 +803,3 @@ user_defined_directive(Dir,Action) :-
recorda('$toplevel_hooks',H,_),
fail.
'$set_toplevel_hook'(_).
raise_exception(Ball) :- throw(Ball).
on_exception(Pat, G, H) :- catch(G, Pat, H).
'$append'([], L, L) .
'$append'([H|T], L, [H|R]) :-
'$append'(T, L, R).