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

add SWI compatible file_name_variables flag.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-06-21 22:33:10 +01:00
parent e1fdbd7537
commit 249010bd90
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/PLStream/pl-prologflag.c
View File

@ -1079,7 +1079,6 @@ initPrologFlags(void)
ALLOW_VARNAME_FUNCTOR); ALLOW_VARNAME_FUNCTOR);
setPrologFlag("toplevel_var_size", FT_INTEGER, 1000); setPrologFlag("toplevel_var_size", FT_INTEGER, 1000);
setPrologFlag("toplevel_print_anon", FT_BOOL, TRUE, 0); setPrologFlag("toplevel_print_anon", FT_BOOL, TRUE, 0);
setPrologFlag("file_name_variables", FT_BOOL, FALSE, PLFLAG_FILEVARS);
#ifdef __unix__ #ifdef __unix__
setPrologFlag("unix", FT_BOOL|FF_READONLY, TRUE, 0); setPrologFlag("unix", FT_BOOL|FF_READONLY, TRUE, 0);
#endif #endif
@ -1105,6 +1104,7 @@ initPrologFlags(void)
setPrologFlag("tty_control", FT_BOOL|FF_READONLY, setPrologFlag("tty_control", FT_BOOL|FF_READONLY,
truePrologFlag(PLFLAG_TTY_CONTROL), PLFLAG_TTY_CONTROL); truePrologFlag(PLFLAG_TTY_CONTROL), PLFLAG_TTY_CONTROL);
setPrologFlag("encoding", FT_ATOM, stringAtom(encoding_to_atom(LD->encoding))); setPrologFlag("encoding", FT_ATOM, stringAtom(encoding_to_atom(LD->encoding)));
setPrologFlag("file_name_variables", FT_BOOL, FALSE, PLFLAG_FILEVARS);
setPrologFlag("fileerrors", FT_BOOL, TRUE, PLFLAG_FILEERRORS); setPrologFlag("fileerrors", FT_BOOL, TRUE, PLFLAG_FILEERRORS);
setPrologFlag("readline", FT_BOOL/*|FF_READONLY*/, FALSE, 0); setPrologFlag("readline", FT_BOOL/*|FF_READONLY*/, FALSE, 0);

10
pl/flags.yap
View File

@ -60,7 +60,14 @@ yap_flag(encoding,X) :-
yap_flag(encoding,X) :- yap_flag(encoding,X) :-
'$swi_set_prolog_flag'(encoding, X). '$swi_set_prolog_flag'(encoding, X).
% character encoding... % file_name_variables...
yap_flag(file_name_variables,X) :-
var(X), !,
'$swi_current_prolog_flag'(file_name_variables, X).
yap_flag(file_name_variables,X) :-
'$swi_set_prolog_flag'(file_name_variables, X).
% fileerrors...
yap_flag(fileerrors,X) :- yap_flag(fileerrors,X) :-
var(X), !, var(X), !,
'$swi_current_prolog_flag'(fileerrors, X). '$swi_current_prolog_flag'(fileerrors, X).
@ -813,6 +820,7 @@ yap_flag(dialect,yap).
'$yap_system_flag'(encoding). '$yap_system_flag'(encoding).
'$yap_system_flag'(executable). '$yap_system_flag'(executable).
% V = fast ; % V = fast ;
'$yap_system_flag'(file_name_variables).
'$yap_system_flag'(fileerrors ). '$yap_system_flag'(fileerrors ).
'$yap_system_flag'(float_format). '$yap_system_flag'(float_format).
% V = float_mantissa_digits ; % V = float_mantissa_digits ;