Petr Písař
10 years ago
parent
57d85731a4
commit
093369cd4e
@ -0,0 +1,166 @@
|
||||
From 582ad604b72f1ce3c8d00ac0e964f28a8d615604 Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Wed, 18 Mar 2015 16:29:49 +0100
|
||||
Subject: [PATCH] Support hexadecimal floats
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
regression/TEST | 2 +-
|
||||
regression/input/hexadecimal_float.c | 17 +++++++++
|
||||
regression/standard/hexadecimal_float.c | 17 +++++++++
|
||||
src/lexi.c | 63 ++++++++++++++++-----------------
|
||||
4 files changed, 66 insertions(+), 33 deletions(-)
|
||||
create mode 100644 regression/input/hexadecimal_float.c
|
||||
create mode 100644 regression/standard/hexadecimal_float.c
|
||||
|
||||
diff --git a/regression/TEST b/regression/TEST
|
||||
index 480ef7c..7db4c36 100755
|
||||
--- a/regression/TEST
|
||||
+++ b/regression/TEST
|
||||
@@ -36,7 +36,7 @@ EXAMPLES="do.c else.c for.c func-def.c lshift.c ncs.c \
|
||||
BUGS="case-label.c one-line-1.c one-line-2.c one-line-3.c \
|
||||
one-line-4.c struct-decl.c sizeof-in-while.c line-break-comment.c \
|
||||
macro.c enum.c elif.c nested.c wrapped-string.c minus_predecrement.c \
|
||||
- float-constant-suffix.c"
|
||||
+ float-constant-suffix.c hexadecimal_float.c"
|
||||
|
||||
INDENTSRC="args.c backup.h backup.c dirent_def.h globs.c indent.h \
|
||||
indent.c indent_globs.h io.c lexi.c memcpy.c parse.c pr_comment.c \
|
||||
diff --git a/regression/input/hexadecimal_float.c b/regression/input/hexadecimal_float.c
|
||||
new file mode 100644
|
||||
index 0000000..34c52cd
|
||||
--- /dev/null
|
||||
+++ b/regression/input/hexadecimal_float.c
|
||||
@@ -0,0 +1,17 @@
|
||||
+/* Hexadecimal */
|
||||
+double xpi = 0x1.921fb54442d18p+1;
|
||||
+double xa = 0xe.fp-1;
|
||||
+double xb = 0xe.fP-1;
|
||||
+double xc = 0xf.P+1;
|
||||
+double xd = 0x.fP+1;
|
||||
+/* hexadecimal floats must have exponent part */
|
||||
+
|
||||
+/* Decimal */
|
||||
+double dpi = 3.141592653589793e+0;
|
||||
+double da = 1.2e-1;
|
||||
+double db = 1.2E-1;
|
||||
+double dc = 1.E+1;
|
||||
+double dd = .1E+1;
|
||||
+double de = 1.2;
|
||||
+double df = 1.;
|
||||
+double dg = .1;
|
||||
diff --git a/regression/standard/hexadecimal_float.c b/regression/standard/hexadecimal_float.c
|
||||
new file mode 100644
|
||||
index 0000000..34c52cd
|
||||
--- /dev/null
|
||||
+++ b/regression/standard/hexadecimal_float.c
|
||||
@@ -0,0 +1,17 @@
|
||||
+/* Hexadecimal */
|
||||
+double xpi = 0x1.921fb54442d18p+1;
|
||||
+double xa = 0xe.fp-1;
|
||||
+double xb = 0xe.fP-1;
|
||||
+double xc = 0xf.P+1;
|
||||
+double xd = 0x.fP+1;
|
||||
+/* hexadecimal floats must have exponent part */
|
||||
+
|
||||
+/* Decimal */
|
||||
+double dpi = 3.141592653589793e+0;
|
||||
+double da = 1.2e-1;
|
||||
+double db = 1.2E-1;
|
||||
+double dc = 1.E+1;
|
||||
+double dd = .1E+1;
|
||||
+double de = 1.2;
|
||||
+double df = 1.;
|
||||
+double dg = .1;
|
||||
diff --git a/src/lexi.c b/src/lexi.c
|
||||
index 0a98059..21e2c24 100644
|
||||
--- a/src/lexi.c
|
||||
+++ b/src/lexi.c
|
||||
@@ -267,50 +267,49 @@ extern codes_ty lexi(void)
|
||||
if (isdigit (*buf_ptr) ||
|
||||
((buf_ptr[0] == '.') && isdigit (buf_ptr[1])))
|
||||
{
|
||||
- int seendot = 0, seenexp = 0;
|
||||
+ int seendot = 0, seenexp = 0, ishexa = 0;
|
||||
|
||||
if ((*buf_ptr == '0') && ((buf_ptr[1] == 'x') || (buf_ptr[1] == 'X')))
|
||||
{
|
||||
- buf_ptr += 2;
|
||||
- while (isxdigit (*buf_ptr))
|
||||
- {
|
||||
- buf_ptr++;
|
||||
- }
|
||||
+ ishexa = 1;
|
||||
+ buf_ptr += 1;
|
||||
}
|
||||
- else
|
||||
+ while (1)
|
||||
{
|
||||
- while (1)
|
||||
+ if (*buf_ptr == '.')
|
||||
{
|
||||
- if (*buf_ptr == '.')
|
||||
+ if (seendot)
|
||||
{
|
||||
- if (seendot)
|
||||
- {
|
||||
- break;
|
||||
- }
|
||||
- else
|
||||
- {
|
||||
- seendot++;
|
||||
- }
|
||||
+ break;
|
||||
}
|
||||
+ else
|
||||
+ {
|
||||
+ seendot++;
|
||||
+ }
|
||||
+ }
|
||||
|
||||
- buf_ptr++;
|
||||
-
|
||||
- if (!isdigit (*buf_ptr) && *buf_ptr != '.')
|
||||
+ buf_ptr++;
|
||||
+
|
||||
+ if (!(ishexa && !seenexp ?
|
||||
+ isxdigit (*buf_ptr) : isdigit (*buf_ptr)
|
||||
+ ) && *buf_ptr != '.')
|
||||
+ {
|
||||
+ if ((ishexa ?
|
||||
+ (*buf_ptr != 'P' && *buf_ptr != 'p') :
|
||||
+ (*buf_ptr != 'E' && *buf_ptr != 'e')
|
||||
+ ) || seenexp)
|
||||
{
|
||||
- if ((*buf_ptr != 'E' && *buf_ptr != 'e') || seenexp)
|
||||
- {
|
||||
- break;
|
||||
- }
|
||||
- else
|
||||
+ break;
|
||||
+ }
|
||||
+ else
|
||||
+ {
|
||||
+ seenexp++;
|
||||
+ seendot++;
|
||||
+ buf_ptr++;
|
||||
+
|
||||
+ if (*buf_ptr == '+' || *buf_ptr == '-')
|
||||
{
|
||||
- seenexp++;
|
||||
- seendot++;
|
||||
buf_ptr++;
|
||||
-
|
||||
- if (*buf_ptr == '+' || *buf_ptr == '-')
|
||||
- {
|
||||
- buf_ptr++;
|
||||
- }
|
||||
}
|
||||
}
|
||||
}
|
||||
--
|
||||
2.1.0
|
||||
|
||||
Loading…
Reference in new issue