From 8c372cfa59be8681826c2add35d755b573d75059 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 10 Jun 2002 22:55:19 +0000
Subject: [PATCH] insert prolog_flag fileerros

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@522 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 docs/yap.tex      |  6 ++++++
 pl/directives.yap | 13 +++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/docs/yap.tex b/docs/yap.tex
index 723ed91c5..b86bce9eb 100644
--- a/docs/yap.tex
+++ b/docs/yap.tex
@@ -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)
 @*
diff --git a/pl/directives.yap b/pl/directives.yap
index 4f54894da..a3fc51850 100644
--- a/pl/directives.yap
+++ b/pl/directives.yap
@@ -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     ;