yap-6.3/misc/buildatoms

:- use_module(library(lineutils),
	[file_filter_with_init/5,
	 file_filter_with_initialization/5,
	 split_unquoted/3]).

:- use_module(library(lists),
	[append/2]).

:- initialization(main).

:- yap_flag(write_strings,on).

main :-
	warning(Warning),
	file_filter_with_init('misc/ATOMS','H/generated/tatoms.h',gen_fields, Warning, ['tatoms.h']),
	file_filter_with_init('misc/ATOMS','H/generated/iatoms.h',gen_decl, Warning, ['iatoms.h']),
	file_filter_with_init('misc/ATOMS','H/generated/ratoms.h',gen_rcov, Warning, ['ratoms.h']).

warning('~n  /* This file, ~a, was generated automatically by \"yap -L misc/buildatoms\"~n     {lease do not update, update misc/ATOMS instead */~n~n').

gen_fields(Inp,Out) :-
	split_unquoted(Inp," 	",["A",Atom,_,_]), !,
    ( Atom = [C|_], code_type(C, alpha), Atom \= "Trail"
    ->
        append(["Atom Atom",Atom,"; Term Term",Atom,";"], Out)
    ;
    	append(["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) :-
	split_unquoted(Inp," 	",["F",Name,_,_]), !,
	append(["  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) :-
	split_unquoted(Inp,"	 ",["A",Atom,_,_]), !,
    ( Atom = [C|_], code_type(C, alpha), Atom \= "Trail"
    ->
      append(["  Atom",Atom," = AtomAdjust(Atom",Atom,"); Term",Atom," = MkAtomTerm(Atom",Atom,");"],Out)
    ;
      append(["  Atom",Atom," = AtomAdjust(Atom",Atom,");"],Out)
    ).
%gen_rcov(Inp,Out) :-
%	split_unquoted(Inp," 	",["A",Atom,_]), !,
%	append(["  Atom_",Atom," = AtomAdjust(Atom_",Atom,");"],Out).
gen_rcov(Inp,Out) :-
	split_unquoted(Inp," 	",["F",Functor,_,_]), !,
	append(["  Functor",Functor," = FuncAdjust(Functor",Functor,");"],Out).
%gen_rcov(Inp,Out) :-
%	split_unquoted(Inp," 	 ",["F",Functor,Arity]), !,
%	append(["  Functor_",Functor,Arity," = FuncAdjust(Functor_",Functor,Arity,");"],Out).

gen_decl(Inp,Out) :-
	split_unquoted(Inp,"	 ",["A",Atom,"N",String]), !,
    ( Atom = [C|_], code_type(C, alpha), Atom \= "Trail"
    ->
      append(["  Atom",Atom," = Yap_LookupAtom(",String,"); Term",Atom," = MkAtomTerm(Atom",Atom,");"],Out)
    ;
      append(["  Atom",Atom," = Yap_LookupAtom(",String,");"],Out)
    ).
gen_decl(Inp,Out) :-
	split_unquoted(Inp,"	 ",["A",Atom,"F",String]), !,
    ( Atom = [C|_], code_type(C, alpha), Atom \= "Trail"
    ->
      append(["  Atom",Atom," = Yap_FullLookupAtom(",String,"); Term",Atom," = MkAtomTerm(Atom",Atom,");"],Out)
    ;
      append(["  Atom",Atom," = Yap_FullLookupAtom(",String,");"],Out)
    ).
%gen_decl(Inp,Out) :-
%	split_unquoted(Inp," 	",["A",Atom,String]), String = [0'",0'$|_], !,
%	append(["  Atom_",Atom," = Yap_FullLookupAtom(",String,");"],Out).
%gen_decl(Inp,Out) :-
%	split_unquoted(Inp," 	",["A",Atom,String]), !,
%	append(["  Atom_",Atom," = Yap_LookupAtom(",String,");"],Out).
gen_decl(Inp,Out) :-
	split_unquoted(Inp,"	 ",["F",Name,Atom,Arity]), !,
	append(["  Functor",Name," = Yap_MkFunctor(Atom",Atom,",",Arity,");"],Out).
%gen_decl(Inp,Out) :-
%	split_unquoted(Inp," 	 ",["F",Name,Arity]), !,
%	append(["  Functor_",Name,Arity," = Yap_MkFunctor(Atom_",Name,",",Arity,");"],Out).