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

formatting changes

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-09-23 22:40:40 +01:00
parent ed3f0a8b74
commit 2bc55d868d
1 changed files with 39 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pl/qly.yap
View File

@ -408,7 +408,7 @@ qsave_file(File, State) :-
close(S), close(S),
abolish(Mod:'@mod_info'/7), abolish(Mod:'@mod_info'/7),
fail. fail.
qsave_file(_). qsave_file(_,_).
/** @pred qsave_module(+ _Module_, +_State_) /** @pred qsave_module(+ _Module_, +_State_)
Saves an image of all the information compiled by the systemm on module _F_ to _State_. Saves an image of all the information compiled by the systemm on module _F_ to _State_.
@ -421,14 +421,22 @@ qsave_module(Mod, OF) :-
'$fetch_multi_files_module'(Mod, MFs), '$fetch_multi_files_module'(Mod, MFs),
'$fetch_meta_predicates_module'(Mod, Metas), '$fetch_meta_predicates_module'(Mod, Metas),
'$fetch_module_transparents_module'(Mod, ModTransps), '$fetch_module_transparents_module'(Mod, ModTransps),
asserta(Mod:'@mod_info'(F, Exps, L, Parents, Imps, Metas, ModTransps)), asserta(Mod:'@mod_info'(F, Exps, L, Parents, Imps, Metas, ModTransps))
atom_concat(Mod,'.qly',OF), , atom_concat(Mod,'.qly',OF),
open(OF, write, S, [type(binary)]), open(OF, write, S, [type(binary)]),
'$qsave_module_preds'(S, Mod), '$qsave_module_preds'(S, Mod), close(S),
close(S),
abolish(Mod:'@mod_info'/7), abolish(Mod:'@mod_info'/7),
fail. fail.
qsave_module(_). qsave_module(_,_).
/** @pred qsave_module(+ _Module_, +_State_)
Saves an image of all the information compiled by the systemm on module _F_ to _State_.
**/
qsave_module(Mod) :-
atom_concat( Mod, '.qly', F),
qsave_module( Mod, F).
/** /**
@pred restore(+ _F_) @pred restore(+ _F_)
@ -455,14 +463,20 @@ qload_module(Mod) :-
'$complete_read'(Mod). '$complete_read'(Mod).
'$complete_read'(Mod) :- '$complete_read'(Mod) :-
'$current_module'(HostMod),
retract(Mod:'@mod_info'(F, Exps, Line,Parents, Imps, Metas, ModTransps)), retract(Mod:'@mod_info'(F, Exps, Line,Parents, Imps, Metas, ModTransps)),
abolish(Mod:'$mod_info'/7), abolish(Mod:'$mod_info'/7),
recorda('$module', '$module'(F,Mod,Exps,Line), _),
'$install_parents_module'(Mod, Parents), '$install_parents_module'(Mod, Parents),
'$install_imports_module'(Mod, Imps), '$install_imports_module'(Mod, Imps),
'$install_multi_files_module'(Mod, MFs), '$install_multi_files_module'(Mod, MFs),
'$install_meta_predicates_module'(Mod, Metas), '$install_meta_predicates_module'(Mod, Metas),
'$install_module_transparents_module'(Mod, ModTransps). '$install_module_transparents_module'(Mod, ModTransps),
% last, export everything to the host: if the loading crashed you didn't actually do
% no evil.
'$convert_for_export'(all, Exps, Mod, HostMod, TranslationTab, AllExports0, qload_module),
'$add_to_imports'(TranslationTab, Mod, HostMod), % insert ops, at least for now
sort( AllExports0, AllExports ),
recorda('$module','$module'(F,Mod,F,AllExports, Line),_).
'$fetch_imports_module'(Mod, Imports) :- '$fetch_imports_module'(Mod, Imports) :-
findall(Info, '$fetch_import_module'(Mod, Info), Imports). findall(Info, '$fetch_import_module'(Mod, Info), Imports).