support ply

This commit is contained in:
Vitor Santos Costa 2011-08-03 16:30:39 +01:00
parent fe8544c01e
commit bdeea3b15e
2 changed files with 25 additions and 0 deletions

View File

@ -82,6 +82,7 @@ otherwise.
'eam.yap',
'chtypes.yap',
'yapor.yap',
'qly.yap',
'udi.yap'].
:- dynamic prolog:'$user_defined_flag'/4.

24
pl/qly.yap Normal file
View File

@ -0,0 +1,24 @@
/*************************************************************************
* *
* YAP Prolog *
* *
* Yap Prolog was developed at NCCUP - Universidade do Porto *
* *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-2011 *
* *
**************************************************************************
* *
* File: qly.yap *
* Last rev: *
* mods: *
* comments: fast save/restore *
* *
*************************************************************************/
save_module(Mod) :-
atom_concat(Mod,'.qly',F),
open(F,write,S),
'$save_module_preds'(S, Mod),
close(S).