[src/trunk]: src/usr.bin/m4 make eval() recognize hexadecimal constant as spe...

[matthias <matthias%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/d68df2ee795f
branches:  trunk
changeset: 471883:d68df2ee795f
user:      matthias <matthias%NetBSD.org@localhost>
date:      Wed Apr 14 09:38:37 1999 +0000

description:
make eval() recognize hexadecimal constant as specified in the man page.

diffstat:

 usr.bin/m4/expr.c |  22 ++++++++++++++++++----
 1 files changed, 18 insertions(+), 4 deletions(-)

diffs (56 lines):

diff -r 7f26bee678c8 -r d68df2ee795f usr.bin/m4/expr.c
--- a/usr.bin/m4/expr.c Wed Apr 14 09:16:11 1999 +0000
+++ b/usr.bin/m4/expr.c Wed Apr 14 09:38:37 1999 +0000
@@ -1,4 +1,4 @@
-/*     $NetBSD: expr.c,v 1.8 1997/10/19 04:39:53 lukem Exp $   */
+/*     $NetBSD: expr.c,v 1.9 1999/04/14 09:38:37 matthias Exp $        */
 
 /*
  * Copyright (c) 1989, 1993
@@ -41,12 +41,13 @@
 #if 0
 static char sccsid[] = "@(#)expr.c     8.2 (Berkeley) 4/29/95";
 #else
-__RCSID("$NetBSD: expr.c,v 1.8 1997/10/19 04:39:53 lukem Exp $");
+__RCSID("$NetBSD: expr.c,v 1.9 1999/04/14 09:38:37 matthias Exp $");
 #endif
 #endif /* not lint */
 
 #include <sys/cdefs.h>
 #include <stdio.h>
+#include <ctype.h>
 
 #include "mdef.h"
 #include "extern.h"
@@ -106,6 +107,7 @@
 #define GEQ     5
 #define OCTAL   8
 #define DECIMAL 10
+#define HEX    16
 
 static char *nxtch;                   /* Parser scan pointer */
 
@@ -499,9 +501,21 @@
        base = ((c = skipws()) == '0') ? OCTAL : DECIMAL;
        rval = 0;
        ndig = 0;
-       while (c >= '0' && c <= (base == OCTAL ? '7' : '9')) {
+       if (base == OCTAL) {
+               c = skipws();
+               if (c == 'x' || c == 'X') {
+                       base = HEX;
+                       c = skipws();
+               } else
+                       ndig++;
+       }
+       while ((base == HEX && isxdigit(c)) ||
+                       (c >= '0' && c <= (base == OCTAL ? '7' : '9'))) {
                rval *= base;
-               rval += (c - '0');
+               if (isalpha(c))
+                       rval += (tolower(c) - 'a' + 10);
+               else
+                       rval += (c - '0');
                c = getch();
                ndig++;
        }