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:
parent
61db1ea1d4
commit
fd41875446
@ -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)
|
||||
@*
|
||||
|
@ -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 ;
|
||||
|
Reference in New Issue
Block a user