From 8dba5f4c900239d01897e2197ddd79bcf5d9b034 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 13 Jul 2018 13:56:10 +0300
Subject: Output +inf, +nan etc. also, so that output can be input. Doc, tests,
 fixed.

---
 test/fmtspcl.awk | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'test/fmtspcl.awk')

diff --git a/test/fmtspcl.awk b/test/fmtspcl.awk
index eb99df65..b3313f77 100644
--- a/test/fmtspcl.awk
+++ b/test/fmtspcl.awk
@@ -8,14 +8,19 @@ function display(x, str,	i, res) {
 
 BEGIN {
 	nan = sqrt(-1)
-	nan_str = sprintf("%f", nan)
-	nnan_str = sprintf("%f", -nan)
+	nan_str =  sprintf("%Pf", nan)
+	nnan_str = sprintf("%Pf", -nan)
+	if (nan_str == "nan")
+		nan_str = "+" nan_str
+	if (nnan_str == "nan")
+		nnan_str = "+" nnan_str
 	inf = -log(0)
-	inf_str = sprintf("%f", inf)
-	ninf_str = sprintf("%f", -inf)
+	inf_str = "+" sprintf("%Pf", inf)
+	ninf_str = sprintf("%Pf", -inf)
 
 	n = 0
 	formats[n++] = "%a"
+	formats[n++] = "%e"
 	formats[n++] = "%f"
 	formats[n++] = "%g"
 	formats[n++] = "%x"
-- 
cgit v1.2.3