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

yap_flag(argv,L).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@332 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-27 22:05:35 +00:00
parent 61db1ea1d4
commit fd41875446
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docs/yap.tex
View File

@ -5912,6 +5912,11 @@ Set or read system properties for @var{Param}:
@table @code @table @code
@item argv
@findex argv (yap_flag/2 option)
@* Read-only flag. It unifies with a list of atoms that gives the
arguments to Yap after @code{--}.
@item bounded [ISO] @item bounded [ISO]
@findex bounded (yap_flag/2 option) @findex bounded (yap_flag/2 option)
@* @*

4
pl/directives.yap
View File

@ -112,6 +112,9 @@ yap_flag(V,Out) :-
yap_flag(fast,on) :- '$set_value'('$fast',true). yap_flag(fast,on) :- '$set_value'('$fast',true).
yap_flag(fast,off) :- !, '$set_value'('$fast',[]). yap_flag(fast,off) :- !, '$set_value'('$fast',[]).
% do or do not machine code
yap_flag(argv,L) :- '$argv'(L).
% hide/unhide atoms % hide/unhide atoms
yap_flag(hide,Atom) :- !, hide(Atom). yap_flag(hide,Atom) :- !, hide(Atom).
yap_flag(unhide,Atom) :- !, unhide(Atom). yap_flag(unhide,Atom) :- !, unhide(Atom).
@ -475,6 +478,7 @@ yap_flag(host_type,X) :-
'$show_yap_flag_opts'(V,Out) :- '$show_yap_flag_opts'(V,Out) :-
( (
V = argv ;
V = bounded ; V = bounded ;
V = char_conversion ; V = char_conversion ;
V = character_escapes ; V = character_escapes ;