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:
parent
9fbbb1e47a
commit
9058342aaa
|
@ -407,6 +407,45 @@ 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)).
|
||||
|
||||
/* 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) :-
|
||||
var(X), !,
|
||||
'$access_yap_flags'(5, X1),
|
||||
|
@ -789,6 +828,10 @@ yap_flag(dialect,yap).
|
|||
V = max_threads ;
|
||||
V = min_integer ;
|
||||
V = min_tagged_integer ;
|
||||
% V = float_mantissa_digits ;
|
||||
% V = float_epsilon ;
|
||||
% V = float_min_exponent ;
|
||||
% V = float_max_exponent ;
|
||||
V = n_of_integer_keys_in_db ;
|
||||
V = profiling ;
|
||||
V = redefine_warnings ;
|
||||
|
|
Reference in New Issue