yap_flag(argv,L).

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

View File

@ -5912,6 +5912,11 @@ Set or read system properties for @var{Param}:
@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]
@findex bounded (yap_flag/2 option)
@*

View File

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