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

Added predicates thread_property/1-2. Implementation is still incomplete as some thread properties are not yet internally represented.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1765 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2007-01-01 19:40:17 +00:00
parent 7c82c1acb3
commit 57c480e165
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pl/threads.yap
View File

@ -57,7 +57,7 @@
thread_create(Goal, Id) :- thread_create(Goal, Id) :-
G0 = thread_create(Goal, Id), G0 = thread_create(Goal, Id),
'$check_callable'(Goal, thread_create(Goal, Id)), '$check_callable'(Goal, G0),
( nonvar(Id) -> '$do_error'(type_error(variable,Id),G0) ; true ), ( nonvar(Id) -> '$do_error'(type_error(variable,Id),G0) ; true ),
'$thread_options'([], [], Stack, Trail, System, Detached, G0), '$thread_options'([], [], Stack, Trail, System, Detached, G0),
'$thread_new_tid'(Id), '$thread_new_tid'(Id),
@ -594,6 +594,26 @@ thread_signal(Id, Goal) :-
erase(R). erase(R).
thread_property(Prop) :-
'$check_thread_property'(Prop, thread_property(Prop)),
'$thread_self'(Id),
'$thread_property'(Id, Prop).
thread_property(Id, Prop) :-
( nonvar(Id) ->
'$check_thread_or_alias'(Id, thread_property(Id, Prop))
; true
),
'$check_thread_property'(Prop, thread_property(Id, Prop)),
'$check_thread_alias'(Id0, Id),
'$thread_property'(Id0, Prop).
'$thread_property'(Id, alias(Alias)) :-
recorded('$thread_alias', [Id|Alias], _).
'$thread_property'(Id, status(Status)) :-
'$thr_status'(Id, Status).
threads :- threads :-
write('--------------------------------------------------------------'), nl, write('--------------------------------------------------------------'), nl,
format("~t~a~38+~n", 'Thread Status'), format("~t~a~38+~n", 'Thread Status'),
@ -618,3 +638,11 @@ threads :-
integer(Term), \+ '$valid_thread'(Term), !, integer(Term), \+ '$valid_thread'(Term), !,
'$do_error'(existence_error(thread, Term), Goal). '$do_error'(existence_error(thread, Term), Goal).
'$check_thread_or_alias'(_,_). '$check_thread_or_alias'(_,_).
'$check_thread_property'(Term, _) :-
var(Term), !.
'$check_thread_property'(alias(_), _) :- !.
'$check_thread_property'(detached(_), _) :- !.
'$check_thread_property'(status(_), _) :- !.
'$check_thread_property'(Term, Goal) :-
'$do_error'(domain_error(thread_property, Term), Goal).