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

Added read-only flag "max_threads".

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1793 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2007-01-29 19:08:14 +00:00
parent 7239e45ec3
commit 264a3c6b54
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pl/directives.yap
View File

@ -644,6 +644,15 @@ yap_flag(float_format,X) :-
yap_flag(float_format,X) :- yap_flag(float_format,X) :-
'$do_error'(type_error(atom,X),yap_flag(float_format,X)). '$do_error'(type_error(atom,X),yap_flag(float_format,X)).
yap_flag(max_threads,X) :-
var(X), !,
'$max_threads'(X).
yap_flag(max_threads,X) :-
integer(X), X > 0, !,
'$do_error'(permission_error(modify,flag,max_threads),yap_flag(max_threads,X)).
yap_flag(max_threads,X) :-
'$do_error'(domain_error(flag_value,max_threads+X),yap_flag(max_threads,X)).
'$show_yap_flag_opts'(V,Out) :- '$show_yap_flag_opts'(V,Out) :-
( (
V = answer_format ; V = answer_format ;
@ -696,7 +705,8 @@ yap_flag(float_format,X) :-
V = user_output ; V = user_output ;
V = verbose_auto_load ; V = verbose_auto_load ;
V = version ; V = version ;
V = write_strings V = write_strings;
V = max_threads
), ),
yap_flag(V, Out). yap_flag(V, Out).