diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
Files
d01eec1dbe297b6494dde7650b31868dc6886bf5
yap-6.3/misc/buildheap

318 lines
10 KiB
Plaintext
Raw Normal View History

various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
:- use_module(library(lineutils),
make clear that some files are generated automatically.
2010-04-18 21:48:20 +01:00
[file_filter_with_init/5,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
split/3,
glue/3]).
:- use_module(library(lists),
[append/2,
append/3]).
:- initialization(main).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
:- dynamic globals/1.
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
:- yap_flag(write_strings,on).
:- style_check(all).
main :-
make clear that some files are generated automatically.
2010-04-18 21:48:20 +01:00
warning(Warning),
file_filter_with_init('misc/HEAPFIELDS','H/hstruct.h',gen_struct,Warning,['hstruct.h','HEAPFIELDS']),
file_filter_with_init('misc/HEAPFIELDS','H/dhstruct.h',gen_dstruct,Warning,['dhstruct.h','HEAPFIELDS']),
file_filter_with_init('misc/HEAPFIELDS','H/rhstruct.h',gen_hstruct,Warning,['rhstruct.h','HEAPFIELDS']),
LOCALS and GLOBALS are now generated by misc/buildlocalglobal.
2011-05-11 18:22:58 +01:00
file_filter_with_init('misc/HEAPFIELDS','H/ihstruct.h',gen_init,Warning,['ihstruct.h','HEAPFIELDS']).
%file_filter_with_init('misc/GLOBALS','H/hglobals.h',gen_struct,Warning,['hglobals.h','GLOBALS']),
%file_filter_with_init('misc/GLOBALS','H/dglobals.h',gen_dstruct,Warning,['dglobals.h','GLOBALS']),
%file_filter_with_init('misc/GLOBALS','H/rglobals.h',gen_hstruct,Warning,['rglobals.h','GLOBALS']),
%file_filter_with_init('misc/GLOBALS','H/iglobals.h',gen_init,Warning,['iglobals.h','GLOBALS']),
%file_filter_with_init('misc/LOCALS','H/hlocals.h',gen_struct,Warning,['hlocals.h','LOCALS']),
%file_filter_with_init('misc/LOCALS','H/dlocals.h',gen_dstruct,Warning,['dlocals.h','LOCALS']),
%file_filter_with_init('misc/LOCALS','H/rlocals.h',gen_hstruct,Warning,['rlocals.h','LOCALS']),
%file_filter_with_init('misc/LOCALS','H/ilocals.h',gen_init,Warning,['ilocals.h','LOCALS']).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
make clear that some files are generated automatically.
2010-04-18 21:48:20 +01:00
warning('~n /* This file, ~a, was generated automatically by \"yap -L misc/buildheap\"~n please do not update, update misc/~a instead */~n~n').
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
/* define the field */
gen_struct(Inp,"") :-
Inp = [0'/,0'/|_], !.
gen_struct(Inp,"") :-
Inp = [0'/,0'*|_], !.
gen_struct(Inp, Out) :-
Inp = [0'#|_], !, Out = Inp. % '
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_struct(Inp,"") :-
Inp = [0'.|_], !. %'
gen_struct(Inp,Out) :-
Inp = "START_WORKER_LOCAL", !,
Out = "typedef struct worker_local {".
gen_struct(Inp,Out) :-
Inp = "END_WORKER_LOCAL", !,
Out = "} w_local;".
gen_struct(Inp,Out) :-
change struct worker_share to global_data change struct global_data to optyap_global_data chnage field global in struct worker_share to optyap_global
2011-03-25 18:01:17 +00:00
Inp = "START_GLOBAL_DATA", !,
Out = "typedef struct global_data {".
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_struct(Inp,Out) :-
change struct worker_share to global_data change struct global_data to optyap_global_data chnage field global in struct worker_share to optyap_global
2011-03-25 18:01:17 +00:00
Inp = "END_GLOBAL_DATA", !,
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
Out = "} w_shared;".
more updates to HEAPFIELDS.
2009-10-30 23:59:00 +00:00
gen_struct(Inp,Out) :-
Inp = "ATOMS", !,
Out = "#include \"tatoms.h\"".
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_struct(Inp,Out) :-
split(Inp," ",["struct",Type, Field|_]), !,
append([" struct ",Type," ",Field,";"], Out).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_struct(Inp,Out) :-
split(Inp," ",["union",Type, Field|_]), !,
append([" union ",Type," ",Field,";"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_struct(Inp,"") :-
split(Inp," ",["void","void"|_]), !.
gen_struct(Inp,Out) :-
split(Inp," ",[Type, Field|_]), !,
append([" ",Type," ",Field,";"], Out).
gen_struct(Inp,_) :-
split(Inp," ",[_, _, _| _]),
format(user_error,"OOPS: could not gen_struct for ~s~n",[Inp]).
gen_dstruct(Inp,"") :-
Inp = [0'/,0'/|_], !.
gen_dstruct(Inp,"") :-
Inp = [0'/,0'*|_], !.
gen_dstruct(Inp, Out) :-
Inp = [0'#|_], !, Out = Inp. % '
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_dstruct(Inp,"") :-
Inp = "START_WORKER_LOCAL", !,
assert(globals(worker)).
gen_dstruct(Inp,"") :-
Inp = "END_WORKER_LOCAL", !,
retract(globals(worker)).
gen_dstruct(Inp,"") :-
change struct worker_share to global_data change struct global_data to optyap_global_data chnage field global in struct worker_share to optyap_global
2011-03-25 18:01:17 +00:00
Inp = "START_GLOBAL_DATA", !,
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
assert(globals(all)).
gen_dstruct(Inp,"") :-
change struct worker_share to global_data change struct global_data to optyap_global_data chnage field global in struct worker_share to optyap_global
2011-03-25 18:01:17 +00:00
Inp = "END_GLOBAL_DATA", !,
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
retract(globals(all)).
more updates to HEAPFIELDS.
2009-10-30 23:59:00 +00:00
gen_dstruct(Inp,Out) :-
Inp = "ATOMS", !,
Out = "".
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_dstruct(Inp,"") :-
split(Inp," ",["void","void"|_]), !.
gen_dstruct(Inp,Out) :-
split(Inp," ",["struct"|Inp2]), !,
glue(Inp2, " ", Inp3),
gen_dstruct(Inp3, Out).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_dstruct(Inp,Out) :-
split(Inp," ",["union"|Inp2]), !,
glue(Inp2, " ", Inp3),
gen_dstruct(Inp3, Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_dstruct(Inp,Out) :-
split(Inp," ",[_, Field, Name|_]), !,
cut_c_stuff(Field, RField),
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
fetch_name(Global),
append(["#define ",Name," ",Global,RField], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_dstruct(Inp,_) :-
split(Inp," ",[_, _, _| _]),
format(user_error,"OOPS: could not gen_dstruct for ~s~n",[Inp]).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
fetch_name(Global) :-
globals(all), !,
Global = "Yap_global->".
fetch_name(Global) :-
globals(worker), !,
struct local_optyap_data is now part of struct worker_local (generated from the file LOCALS)
2011-05-09 19:36:51 +01:00
Global = "LOCAL->".
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
fetch_name(Global) :-
globals(worker_init), !,
remove macro MY_ThreadHandle and use LOCAL_ThreadHandle instead
2011-05-09 19:55:06 +01:00
Global = "REMOTE(wid)->".
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
fetch_name(Global) :-
Global = "Yap_heap_regs->".
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,_) :-
globals(worker_init), !,
remove macro MY_ThreadHandle and use LOCAL_ThreadHandle instead
2011-05-09 19:55:06 +01:00
append("REMOTE(wid)->",RField,Global).
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,_,Global).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
% handle *field[4]
cut_c_stuff([0'*|Name], RName) :- !, % 'cut *
cut_c_stuff(Name, RName).
cut_c_stuff(Name, RName) :-
cut_mat(Name, RName).
cut_mat([], []).
cut_mat([0'[|_], []) :- !. %'
cut_mat(H.Name, H.RName) :-
cut_mat(Name, RName).
gen_hstruct(Inp,"") :-
Inp = [0'/,0'/|_], !.
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_hstruct(Inp,"") :-
Inp = [0'.|_], !. %'
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,"") :-
Inp = [0'/,0'*|_], !.
more updates to HEAPFIELDS.
2009-10-30 23:59:00 +00:00
gen_hstruct(Inp,Out) :-
Inp = "ATOMS", !,
Out = "#include \"ratoms.h\"".
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_hstruct(Inp,Out) :-
Inp = "START_WORKER_LOCAL", !,
cache abstra machine register in threaded mode.
2011-03-07 16:02:55 +00:00
Out = "static void RestoreWorker(int wid USES_REGS) {",
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
assert(globals(worker_init)).
gen_hstruct(Inp,Out) :-
Inp = "END_WORKER_LOCAL", !,
Out = "}",
retract(globals(worker_init)).
gen_hstruct(Inp,Out) :-
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
Inp = "START_GLOBAL_DATA", !,
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
Out = "static void RestoreGlobal(void) {",
assert(globals(all)).
gen_hstruct(Inp,Out) :-
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
Inp = "END_GLOBAL_DATA", !,
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
Out = "}",
retract(globals(all)).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp, Out) :-
Inp = [0'#|_], !, Out = Inp. % '
gen_hstruct(Inp,Out) :-
split(Inp," ",["struct"|Inp2]), !,
glue(Inp2, " ", Inp3),
gen_hstruct(Inp3,Out).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_hstruct(Inp,Out) :-
split(Inp," ",["union"|Inp2]), !,
glue(Inp2, " ", Inp3),
gen_hstruct(Inp3,Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkAT", _]), !,
fetch_name(Global,Field,MacroName),
append([" ",Global," = AtomTermAdjust(",Global,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkPred"| _]), !,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global," = PtoPredAdjust(",Global,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkOp", Name]), !,
fetch_name(Global,Field,MacroName),
append([" ",Global," = Yap_opcode(",Name,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkLock"]), !,
fetch_name(Global,Field,MacroName),
append([" REINIT_LOCK(",Global,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkRWLock"]), !,
fetch_name(Global,Field,MacroName),
append([" REINIT_RWLOCK(",Global,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkInstE",OP]), !,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global,"->opc = Yap_opcode(",OP,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,"") :-
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
split(Inp," ",[_, _, _, _]), !.
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,"") :-
split(Inp," ",[_, _, _, _, "void"]), !.
gen_hstruct(Inp,Restore) :-
split(Inp," ",[_, _, _, _, Restore0]),
append("Restore",_,Restore0), !,
append([" ",Restore0,";"],Restore). %'
gen_hstruct(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, _, Adjust]),
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
append(Adjust,"Adjust",_), !,
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global," = ",Adjust,"(",Global,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_hstruct(Inp,_) :-
split(Inp," ",[_, _, _| _]),
format(user_error,"OOPS: could not gen_hstruct for ~s~n",[Inp]).
gen_init(Inp,"") :-
Inp = [0'/,0'*|_], !.
gen_init(Inp,"") :-
Inp = [0'/,0'/|_], !.
gen_init(Inp, Out) :-
Inp = [0'#|_], !, Out = Inp. % '
more updates to HEAPFIELDS.
2009-10-30 23:59:00 +00:00
gen_init(Inp,Out) :-
Inp = "ATOMS", !,
Out = "#include \"iatoms.h\"".
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_init(Inp,Out) :-
Inp = "START_WORKER_LOCAL", !,
Out = "static void InitWorker(int wid) {",
assert(globals(worker_init)).
gen_init(Inp,Out) :-
Inp = "END_WORKER_LOCAL", !,
Out = "}",
retract(globals(worker_init)).
gen_init(Inp,Out) :-
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
Inp = "START_GLOBAL_DATA", !,
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
Out = "static void InitGlobal(void) {",
assert(globals(all)).
gen_init(Inp,Out) :-
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
Inp = "END_GLOBAL_DATA", !,
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
Out = "}",
retract(globals(all)).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
split(Inp," ",["struct"|Inp2]), !,
glue(Inp2, " ", Inp3),
gen_init(Inp3, Out).
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
gen_init(Inp,Out) :-
split(Inp," ",["union"|Inp2]), !,
glue(Inp2, " ", Inp3),
gen_init(Inp3, Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,"") :-
split(Inp," ",[_, _, _, "void"|_]), !.
gen_init(Inp,Init) :-
split(Inp," ",[_, _, _, Init0| _]),
append("Init",_,Init0), !,
append([" ",Init0,";"],Init).
gen_init(Inp,Init) :-
split(Inp," ",[_, _, _, Init0| _]),
append("Yap_Init",_,Init0), !,
append([" ",Init0,";"],Init).
struct local_optyap_data is now part of struct worker_local (generated from the file LOCALS)
2011-05-09 19:36:51 +01:00
gen_init(Inp,Init) :-
split(Inp," ",[_, _, _, Init0| _]),
append("Yap_init",_,Init0), !,
append([" ",Init0,";"],Init).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkAT", AtomName]), !,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global," = MkAtomTerm(",AtomName,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkOp", Name]), !,
fetch_name(Global,Field,MacroName),
append([" ",Global," = Yap_opcode(",Name,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkLock"]), !,
fetch_name(Global,Field,MacroName),
append([" INIT_LOCK(",Global,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkRWLock"]), !,
fetch_name(Global,Field,MacroName),
append([" INIT_RWLOCK(",Global,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkInstE",OP]), !,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global,"->opc = Yap_opcode(",OP,");"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkPred", Atom, "0", Module]), !,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global," = RepPredProp(PredPropByAtom(",Atom,",",Module,"));"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkPred", Atom, Arity, Module]), !,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global," = RepPredProp(PredPropByFunc(Yap_MkFunctor(",Atom,",",Arity,"),",Module,"));"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, "MkPred", Fun, Module]), !,
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global," = RepPredProp(PredPropByFunc(",Fun,",",Module,"));"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,Out) :-
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
split(Inp," ",[_, Field, MacroName, F0|_]),
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
append("=",F,F0), !,
cut_c_stuff(Field, RField),
optimize misc/buildheap script
2011-05-04 19:34:22 +01:00
fetch_name(Global,RField,MacroName),
append([" ",Global," = ",F,";"], Out).
various_codes includes all the head pointers to the code space. Try to centralise everything in a single file (HEAPFIELDS) and generate them from a Prolog script (buildheap).
2009-10-28 13:11:35 +00:00
gen_init(Inp,_) :-
split(Inp," ",[_, _, _| _]),
format(user_error,"OOPS: could not gen_init for ~s~n",[Inp]).
Reference in New Issue Copy Permalink