diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-11-13 20:36:46 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-11-13 20:36:46 -0800 |
| commit | 9f633256dea9a141bc5a4d96b2b9c47e3ecb4858 (patch) | |
| tree | e2b375d7384323b9abeb55a8af10edec08b3a101 /arith.c | |
| parent | b8cfcb2280d63ac9ebf92a001f87c2b3fe4e204b (diff) | |
| download | txr-9f633256dea9a141bc5a4d96b2b9c47e3ecb4858.tar.gz txr-9f633256dea9a141bc5a4d96b2b9c47e3ecb4858.tar.bz2 txr-9f633256dea9a141bc5a4d96b2b9c47e3ecb4858.zip | |
New global control over float print precision.
* configure (have_dbl_decimal_dig): New variable.
New configure test to test for DBL_DECIMAL_DIG
or __DBL_DECIMAL_DIG__, resulting in FLO_MAX_DIG
macro being deposited in config.h.
* arith.c (arith_init): Register flo-max-dig variable.
* stream.c (print_flo_precision_s): New symbol variable.
(formatv): Obtain default precision from *print-flo-precision*
special variable, rather than hard coded DBL_DIG.
(stream_init): Initialize print_flo_precision_s variable,
and register *print-flo-precision* special.
* txr.1: Document flo-max-dig, *print-flo-precision*,
and change of behavior in format.
Diffstat (limited to 'arith.c')
| -rw-r--r-- | arith.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2282,9 +2282,11 @@ void arith_init(void) reg_varl(intern(lit("*flo-min*"), user_package), flo(DBL_MIN)); reg_varl(intern(lit("*flo-epsilon*"), user_package), flo(DBL_EPSILON)); reg_varl(intern(lit("flo-dig"), user_package), num_fast(DBL_DIG)); + reg_varl(intern(lit("flo-max-dig"), user_package), num_fast(FLO_MAX_DIG)); reg_varl(intern(lit("flo-max"), user_package), flo(DBL_MAX)); reg_varl(intern(lit("flo-min"), user_package), flo(DBL_MIN)); reg_varl(intern(lit("flo-epsilon"), user_package), flo(DBL_EPSILON)); + #ifndef M_PI #define M_PI 3.14159265358979323846 #endif |