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

Added commented out code for an (incomplete) definition of the new float flags specified on the ISO Core Reviosion DTR. 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2115 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2008-02-24 16:49:56 +00:00
parent 9fbbb1e47a
commit 9058342aaa
1 changed files with 101 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
pl/directives.yap
View File

@ -407,6 +407,45 @@ yap_flag(min_tagged_integer,X) :-
yap_flag(min_tagged_integer,X) :- yap_flag(min_tagged_integer,X) :-
'$do_error'(domain_error(flag_value,min_tagged_integer+X),yap_flag(min_tagged_integer,X)). '$do_error'(domain_error(flag_value,min_tagged_integer+X),yap_flag(min_tagged_integer,X)).
/* ISO Core Revision DTR: new float flags
yap_flag(float_mantissa_digits,X) :-
var(X), !,
?????
yap_flag(float_mantissa_digits,X) :-
integer(X), X > 0, !,
'$do_error'(permission_error(modify,flag,float_mantissa_digits),yap_flag(float_mantissa_digits,X)).
yap_flag(float_mantissa_digits,X) :-
'$do_error'(domain_error(flag_value,float_mantissa_digits+X),yap_flag(float_mantissa_digits,X)).
yap_flag(float_epsilon,X) :-
var(X), !,
?????
yap_flag(float_epsilon,X) :-
float(X), X > 0, !,
'$do_error'(permission_error(modify,flag,float_epsilon),yap_flag(float_epsilon,X)).
yap_flag(float_epsilon,X) :-
'$do_error'(domain_error(flag_value,float_epsilon+X),yap_flag(float_epsilon,X)).
yap_flag(float_min_exponent,X) :-
var(X), !,
?????
yap_flag(float_min_exponent,X) :-
integer(X), X > 0, !,
'$do_error'(permission_error(modify,flag,float_min_exponent),yap_flag(float_min_exponent,X)).
yap_flag(float_epsilon,X) :-
'$do_error'(domain_error(flag_value,float_min_exponent+X),yap_flag(float_min_exponent,X)).
yap_flag(float_max_exponent,X) :-
var(X), !,
?????
yap_flag(float_max_exponent,X) :-
integer(X), X > 0, !,
'$do_error'(permission_error(modify,flag,float_max_exponent),yap_flag(float_max_exponent,X)).
yap_flag(float_max_exponent,X) :-
'$do_error'(domain_error(flag_value,float_max_exponent+X),yap_flag(float_max_exponent,X)).
*/
yap_flag(char_conversion,X) :- yap_flag(char_conversion,X) :-
var(X), !, var(X), !,
'$access_yap_flags'(5, X1), '$access_yap_flags'(5, X1),
@ -755,65 +794,69 @@ yap_flag(dialect,yap).
'$show_yap_flag_opts'(V,Out) :- '$show_yap_flag_opts'(V,Out) :-
( (
V = answer_format ; V = answer_format ;
V = argv ; V = argv ;
V = bounded ; V = bounded ;
V = char_conversion ; V = char_conversion ;
V = character_escapes ; V = character_escapes ;
V = chr_toplevel_show_store ; V = chr_toplevel_show_store ;
V = debug ; V = debug ;
V = debugger_print_options ; V = debugger_print_options ;
V = dialect ; V = dialect ;
V = discontiguous_warnings ; V = discontiguous_warnings ;
V = dollar_as_lower_case ; V = dollar_as_lower_case ;
V = double_quotes ; V = double_quotes ;
V = encoding ; V = encoding ;
% V = fast ; % V = fast ;
V = fileerrors ; V = fileerrors ;
V = float_format ; V = float_format ;
V = gc ; V = gc ;
V = gc_margin ; V = gc_margin ;
V = gc_trace ; V = gc_trace ;
V = generate_debug_info ; V = generate_debug_info ;
% V = hide ; % V = hide ;
V = home ; V = home ;
V = host_type ; V = host_type ;
V = index ; V = index ;
V = tabling_mode ; V = tabling_mode ;
V = informational_messages ; V = informational_messages ;
V = integer_rounding_function ; V = integer_rounding_function ;
V = language ; V = language ;
V = max_arity ; V = max_arity ;
V = max_integer ; V = max_integer ;
V = max_tagged_integer ; V = max_tagged_integer ;
V = max_threads ; V = max_threads ;
V = min_integer ; V = min_integer ;
V = min_tagged_integer ; V = min_tagged_integer ;
V = n_of_integer_keys_in_db ; % V = float_mantissa_digits ;
V = profiling ; % V = float_epsilon ;
V = redefine_warnings ; % V = float_min_exponent ;
V = shared_object_search_path ; % V = float_max_exponent ;
V = single_var_warnings ; V = n_of_integer_keys_in_db ;
V = stack_dump_on_error ; V = profiling ;
V = strict_iso ; V = redefine_warnings ;
V = syntax_errors ; V = shared_object_search_path ;
V = system_options ; V = single_var_warnings ;
V = to_chars_mode ; V = stack_dump_on_error ;
V = toplevel_hook ; V = strict_iso ;
V = toplevel_print_options ; V = syntax_errors ;
V = typein_module ; V = system_options ;
V = unix ; V = to_chars_mode ;
V = unknown ; V = toplevel_hook ;
V = update_semantics ; V = toplevel_print_options ;
V = user_error ; V = typein_module ;
V = user_input ; V = unix ;
V = user_output ; V = unknown ;
V = variable_names_may_end_with_quotes ; V = update_semantics ;
V = verbose_auto_load ; V = user_error ;
V = version ; V = user_input ;
V = version_data ; V = user_output ;
V = windows ; V = variable_names_may_end_with_quotes ;
V = write_strings V = verbose_auto_load ;
V = version ;
V = version_data ;
V = windows ;
V = write_strings
), ),
yap_flag(V, Out). yap_flag(V, Out).