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

script fixes: external

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-07-31 10:27:18 -05:00
parent 0c305e8ce3
commit 91120de170
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
misc/buildatoms
View File

@ -23,20 +23,13 @@ gen_fields(Inp,Out) :-
split_unquoted(Inp," ",["A",Atom,_,_]), !, split_unquoted(Inp," ",["A",Atom,_,_]), !,
( Atom = [C|_], code_type(C, alpha), Atom \= "Trail" ( Atom = [C|_], code_type(C, alpha), Atom \= "Trail"
-> ->
append(["Atom Atom",Atom,"; Term Term",Atom,";"], Out) append(["EXTERNAL Atom Atom",Atom,"; EXTERNAL Term Term",Atom,";"], Out)
; ;
append(["Atom Atom",Atom,";"], Out) append(["EXTERNAL Atom Atom",Atom,";"], Out)
). ).
%gen_fields(Inp,Out) :-
% split_unquoted(Inp," ",["A",Atom,_]), !,
% append([" Atom Atom_",Atom,"_;\n#define Atom_",Atom," Yap_heap_regs->Atom_",Atom,"_"],Out).
gen_fields(Inp,Out) :- gen_fields(Inp,Out) :-
split_unquoted(Inp," ",["F",Name,_,_]), !, split_unquoted(Inp," ",["F",Name,_,_]), !,
append([" Functor Functor",Name,";\n"],Out). append(["EXTERNAL Functor Functor",Name,";\n"],Out).
% append([" Functor Functor",Name,"_;\n#define Functor",Name," Yap_heap_regs->Functor",Name,"_"],Out).
%gen_fields(Inp,Out) :-
% split_unquoted(Inp," ",["F",Name,Arity]), !,
% append([" Functor Functor_",Name,Arity,"_;\n#define Functor_",Name,Arity," Yap_heap_regs->Functor_",Name,Arity,"_"],Out).
gen_rcov(Inp,Out) :- gen_rcov(Inp,Out) :-
split_unquoted(Inp," ",["A",Atom,_,_]), !, split_unquoted(Inp," ",["A",Atom,_,_]), !,