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

improve a bit implementation of attr operations.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-05 09:48:22 -05:00
parent a9647b0321
commit 6983a45a43
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
library/dialect/swi.yap
View File

@ -256,16 +256,18 @@ prolog:sleep(T) :-
% SWI has a dynamic attribute scheme % SWI has a dynamic attribute scheme
prolog:get_attr(Var, Mod, Att) :- prolog:get_attr(Var, Mod, Att) :-
AttTerm =.. [Mod,_,Att], functor(AttTerm, Mod, 2),
attributes:get_module_atts(Var, AttTerm). arg(2, AttTerm, Att),
attributes:get_module_atts(Var, AttTerm).
prolog:put_attr(Var, Mod, Att) :- prolog:put_attr(Var, Mod, Att) :-
AttTerm =.. [Mod,_,Att], functor(AttTerm, Mod, 2),
attributes:put_module_atts(Var, AttTerm). arg(2, AttTerm, Att),
attributes:put_module_atts(Var, AttTerm).
prolog:del_attr(Var, Mod) :- prolog:del_attr(Var, Mod) :-
AttTerm =.. [Mod,_,_], functor(AttTerm, Mod, 2),
attributes:del_all_module_atts(Var, AttTerm). attributes:del_all_module_atts(Var, AttTerm).
prolog:get_attrs(AttVar, SWIAtts) :- prolog:get_attrs(AttVar, SWIAtts) :-
get_all_swi_atts(AttVar,SWIAtts). get_all_swi_atts(AttVar,SWIAtts).