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

export

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-02-17 20:27:31 +00:00
parent 291ec26d65
commit e4b0b8c0df
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
library/ypp.yap
View File

@ -68,12 +68,12 @@ get_state(State):-
(Val==0->State=off;State=on). (Val==0->State=off;State=on).
store_define(Name,Value):- store_define(Name,_Value):-
recorded('___ypp',def(Name,_),Ref), recorded('___ypp',def(Name,_),Ref),
erase(Ref), erase(Ref),
fail. fail.
store_define(Name,Value):- store_define(Name,Value):-
system_variable( Name ), system_variable( Name ),
environ( Name, Value ), environ( Name, Value ),
fail. fail.
store_define(Name,Value):- store_define(Name,Value):-
@ -81,10 +81,9 @@ store_define(Name,Value):-
fail. fail.
store_define(_Name,_Value). store_define(_Name,_Value).
system_variable( Name ). system_variable( 'YAPLIBDIR' ).
system_variable( Name ). system_variable( 'YAPSHAREDIR' ).
system_variable( Name ). system_variable( 'YAPBINDIR' ).
system_variable( Name ).
del_define(Name):- del_define(Name):-
@ -119,4 +118,3 @@ ypp_file(File,PPFile):-
:-set_state(on), :-set_state(on),
ypp_extcmd('cpp -P -E -w -o '). ypp_extcmd('cpp -P -E -w -o ').
% ypp_extcmd('gpp -o'). % ypp_extcmd('gpp -o').