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

insert prolog_flag fileerros

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@522 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-06-10 22:55:19 +00:00
parent f305b0d4ee
commit 8c372cfa59
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
docs/yap.tex
View File

@ -6051,6 +6051,12 @@ the corresponding behaviour. The default value is @code{codes}.
If @code{on} allow fast machine code, if @code{off} (default) disable it. Only
available in experimental implementations.
@item fileerrors
@findex fileerrors (yap_flag/2 option)
@*
If @code{on} @code{fileerrors} is @code{on}, if @code{off} (default)
@code{fileerrors} is disabled.
@item gc
@findex gc (yap_flag/2 option)
@*

13
pl/directives.yap
View File

@ -479,6 +479,18 @@ yap_flag(toplevel_print_options,Opts) :- !,
'$check_io_opts'(Opts, yap_flag(toplevel_print_options,Opts)),
'$recorda'('$print_options','$toplevel'(Opts),_).
yap_flag(fileerrors,OUT) :-
var(OUT), !,
'$get_value'(fileerrors,X0),
(X0 = [] -> X= 0 ; X = X0),
'$transl_to_on_off'(X,OUT).
yap_flag(fileerrors,on) :- !,
'$set_value'(fileerrors,1).
yap_flag(fileerrors,off) :- !,
'$set_value'(fileerrors,0).
yap_flag(fileerrors,X) :-
throw(error(domain_error(flag_value,fileerrors+X),yap_flag(fileerrors,X))).
:- '$recorda'('$print_options','$toplevel'([quoted(true),numbervars(true),portrayed(true)]),_).
yap_flag(host_type,X) :-
@ -496,6 +508,7 @@ yap_flag(host_type,X) :-
V = dollar_as_lower_case ;
V = double_quotes ;
% V = fast ;
V = fileerrors ;
V = gc ;
V = gc_margin ;
V = gc_trace ;