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).
store_define(Name,Value):-
recorded('___ypp',def(Name,_),Ref),
erase(Ref),
store_define(Name,_Value):-
recorded('___ypp',def(Name,_),Ref),
erase(Ref),
fail.
store_define(Name,Value):-
system_variable( Name ),
system_variable( Name ),
environ( Name, Value ),
fail.
store_define(Name,Value):-
@ -81,10 +81,9 @@ store_define(Name,Value):-
fail.
store_define(_Name,_Value).
system_variable( Name ).
system_variable( Name ).
system_variable( Name ).
system_variable( Name ).
system_variable( 'YAPLIBDIR' ).
system_variable( 'YAPSHAREDIR' ).
system_variable( 'YAPBINDIR' ).
del_define(Name):-
@ -119,4 +118,3 @@ ypp_file(File,PPFile):-
:-set_state(on),
ypp_extcmd('cpp -P -E -w -o ').
% ypp_extcmd('gpp -o').