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

support thread_initialization.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-04-25 12:54:21 -05:00
parent c132e7e6ec
commit 50fd7dca5a
3 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pl/boot.yap
View File

@ -95,7 +95,8 @@ true :- true.
'$db_clean_queues'(0), '$db_clean_queues'(0),
'$startup_reconsult', '$startup_reconsult',
'$startup_goals', '$startup_goals',
'$set_input'(user_input),'$set_output'(user). '$set_input'(user_input),'$set_output'(user),
'$run_at_thread_start'.
'$init_consult' :- '$init_consult' :-
nb_setval('$lf_verbose',informational), nb_setval('$lf_verbose',informational),
@ -673,6 +674,12 @@ true :- true.
write_term(user_error,G,Opts) ; write_term(user_error,G,Opts) ;
format(user_error,'~w',[G]) format(user_error,'~w',[G])
). ).
'$write_goal_output'(_M:G, First, [G|NG], next, NG) :-
( First = first -> true ; format(user_error,',~n',[]) ),
( recorded('$print_options','$toplevel'(Opts),_) ->
write_term(user_error,G,Opts) ;
format(user_error,'~w',[G])
).
'$name_vars_in_goals'(G, VL0, NG) :- '$name_vars_in_goals'(G, VL0, NG) :-
copy_term_nat(G+VL0, NG+NVL0), copy_term_nat(G+VL0, NG+NVL0),
@ -1189,3 +1196,11 @@ throw(Ball) :-
'$oncenotrace'(M:G) :- '$oncenotrace'(M:G) :-
'$execute_nonstop'(G, M), !. '$execute_nonstop'(G, M), !.
'$run_at_thread_start' :-
recorded('$thread_initialization',M:D,_),
'$notrace'(M:D),
fail.
'$run_at_thread_start'.

11
pl/directives.yap
View File

@ -53,6 +53,7 @@
'$directive'(reexport(_,_)). '$directive'(reexport(_,_)).
'$directive'(sequential). '$directive'(sequential).
'$directive'(sequential(_)). '$directive'(sequential(_)).
'$directive'(thread_initialization(_)).
'$directive'(thread_local(_)). '$directive'(thread_local(_)).
'$directive'(uncutable(_)). '$directive'(uncutable(_)).
'$directive'(use_module(_)). '$directive'(use_module(_)).
@ -74,6 +75,8 @@
'$discontiguous'(D,M). '$discontiguous'(D,M).
'$exec_directive'(initialization(D), _, M) :- '$exec_directive'(initialization(D), _, M) :-
'$initialization'(M:D). '$initialization'(M:D).
'$exec_directive'(thread_initialization(D), _, M) :-
'$thread_initialization'(M:D).
'$exec_directive'(expects_dialect(D), _, _) :- '$exec_directive'(expects_dialect(D), _, _) :-
'$expects_dialect'(D). '$expects_dialect'(D).
'$exec_directive'(encoding(Enc), _, _) :- '$exec_directive'(encoding(Enc), _, _) :-
@ -1101,3 +1104,11 @@ user_defined_flag(Atom) :-
eraseall('$dialect'), eraseall('$dialect'),
recorda('$dialect',yap,_). recorda('$dialect',yap,_).
'$thread_initialization'(M:D) :-
eraseall('$thread_initialization'),
recorda('$thread_initialization',M:D,_),
fail.
'$thread_initialization'(M:D) :-
'$initialization'(M:D).

1
pl/threads.yap
View File

@ -38,6 +38,7 @@
'$thread_self'(Id), '$thread_self'(Id),
(Detached == true -> '$detach_thread'(Id) ; true), (Detached == true -> '$detach_thread'(Id) ; true),
'$current_module'(Module), '$current_module'(Module),
'$run_at_thread_start',
% always finish with a throw to make sure we clean stacks. % always finish with a throw to make sure we clean stacks.
'$system_catch'((G -> throw('$thread_finished'(true)) ; throw('$thread_finished'(false))),Module,Exception,'$close_thread'(Exception,Detached)), '$system_catch'((G -> throw('$thread_finished'(true)) ; throw('$thread_finished'(false))),Module,Exception,'$close_thread'(Exception,Detached)),
% force backtracking and handling exceptions % force backtracking and handling exceptions