From: Terrance S. <ts...@us...> - 2009-04-17 17:39:18
|
Update of /cvsroot/xsb/XSB/cmplib In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv12157 Modified Files: parse.P parse.xwam Log Message: Added predicate_property/2 for conditional compilation. Index: parse.P =================================================================== RCS file: /cvsroot/xsb/XSB/cmplib/parse.P,v retrieving revision 1.93 retrieving revision 1.94 diff -u -r1.93 -r1.94 --- parse.P 17 Apr 2009 17:14:45 -0000 1.93 +++ parse.P 17 Apr 2009 17:39:06 -0000 1.94 @@ -551,7 +551,6 @@ parse_dynamic_options(Option,_PredCList,_QrList,_SymTab,_ModName) :- !, error((Option,' is an illegal option for the dynamic directive')). - parse_multifile((Skel1,Skel2),QrList,SymTab,ModName) :- !, parse_multifile(Skel1,QrList,SymTab,ModName), parse_multifile(Skel2,QrList,SymTab,ModName). @@ -570,13 +569,14 @@ %----------- %code for conditional compilation +:- import xsb_flag/2 from curr_sym. cond_call_1(current_prolog_flag(Type,_Val)):- - member(Type,[dialect,version_data]),!. + \+ xsb_flag(Type,_). % XSB flags are fluent as opp. to ISO. +cond_call_1(predicate_property(_pred,_Val)):- !. cond_call_1(true). cond_call_1(false). -:- import member/2 from basics. cond_call(Call):- (cond_call_1(Call) -> true Index: parse.xwam =================================================================== RCS file: /cvsroot/xsb/XSB/cmplib/parse.xwam,v retrieving revision 1.81 retrieving revision 1.82 diff -u -r1.81 -r1.82 Binary files /tmp/cvsuOY1FY and /tmp/cvsv2qUCA differ |