Chris@82: /* Chris@82: * Copyright (c) 2003, 2007-14 Matteo Frigo Chris@82: * Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology Chris@82: * Chris@82: * This program is free software; you can redistribute it and/or modify Chris@82: * it under the terms of the GNU General Public License as published by Chris@82: * the Free Software Foundation; either version 2 of the License, or Chris@82: * (at your option) any later version. Chris@82: * Chris@82: * This program is distributed in the hope that it will be useful, Chris@82: * but WITHOUT ANY WARRANTY; without even the implied warranty of Chris@82: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Chris@82: * GNU General Public License for more details. Chris@82: * Chris@82: * You should have received a copy of the GNU General Public License Chris@82: * along with this program; if not, write to the Free Software Chris@82: * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Chris@82: * Chris@82: */ Chris@82: Chris@82: Chris@82: #include "kernel/ifftw.h" Chris@82: #include Chris@82: #include Chris@82: #include Chris@82: #include Chris@82: Chris@82: #ifdef USE_CTYPE Chris@82: #include Chris@82: #else Chris@82: /* Screw ctype. On linux, the is* functions call a routine that gets Chris@82: the ctype map in the current locale. Because this operation is Chris@82: expensive, the map is cached on a per-thread basis. I am not Chris@82: willing to link this crap with FFTW. Not over my dead body. Chris@82: Chris@82: Sic transit gloria mundi. Chris@82: */ Chris@82: #undef isspace Chris@82: #define isspace(x) ((x) >= 0 && (x) <= ' ') Chris@82: #undef isdigit Chris@82: #define isdigit(x) ((x) >= '0' && (x) <= '9') Chris@82: #undef isupper Chris@82: #define isupper(x) ((x) >= 'A' && (x) <= 'Z') Chris@82: #undef islower Chris@82: #define islower(x) ((x) >= 'a' && (x) <= 'z') Chris@82: #endif Chris@82: Chris@82: static int mygetc(scanner *sc) Chris@82: { Chris@82: if (sc->ungotc != EOF) { Chris@82: int c = sc->ungotc; Chris@82: sc->ungotc = EOF; Chris@82: return c; Chris@82: } Chris@82: return(sc->getchr(sc)); Chris@82: } Chris@82: Chris@82: #define GETCHR(sc) mygetc(sc) Chris@82: Chris@82: static void myungetc(scanner *sc, int c) Chris@82: { Chris@82: sc->ungotc = c; Chris@82: } Chris@82: Chris@82: #define UNGETCHR(sc, c) myungetc(sc, c) Chris@82: Chris@82: static void eat_blanks(scanner *sc) Chris@82: { Chris@82: int ch; Chris@82: while (ch = GETCHR(sc), isspace(ch)) Chris@82: ; Chris@82: UNGETCHR(sc, ch); Chris@82: } Chris@82: Chris@82: static void mygets(scanner *sc, char *s, int maxlen) Chris@82: { Chris@82: char *s0 = s; Chris@82: int ch; Chris@82: Chris@82: A(maxlen > 0); Chris@82: while ((ch = GETCHR(sc)) != EOF && !isspace(ch) Chris@82: && ch != ')' && ch != '(' && s < s0 + maxlen) Chris@82: *s++ = (char)(ch & 0xFF); Chris@82: *s = 0; Chris@82: UNGETCHR(sc, ch); Chris@82: } Chris@82: Chris@82: static long getlong(scanner *sc, int base, int *ret) Chris@82: { Chris@82: int sign = 1, ch, count; Chris@82: long x = 0; Chris@82: Chris@82: ch = GETCHR(sc); Chris@82: if (ch == '-' || ch == '+') { Chris@82: sign = ch == '-' ? -1 : 1; Chris@82: ch = GETCHR(sc); Chris@82: } Chris@82: for (count = 0; ; ++count) { Chris@82: if (isdigit(ch)) Chris@82: ch -= '0'; Chris@82: else if (isupper(ch)) Chris@82: ch -= 'A' - 10; Chris@82: else if (islower(ch)) Chris@82: ch -= 'a' - 10; Chris@82: else Chris@82: break; Chris@82: x = x * base + ch; Chris@82: ch = GETCHR(sc); Chris@82: } Chris@82: x *= sign; Chris@82: UNGETCHR(sc, ch); Chris@82: *ret = count > 0; Chris@82: return x; Chris@82: } Chris@82: Chris@82: /* vscan is mostly scanf-like, with our additional format specifiers, Chris@82: but with a few twists. It returns simply 0 or 1 indicating whether Chris@82: the match was successful. '(' and ')' in the format string match Chris@82: those characters preceded by any whitespace. Finally, if a Chris@82: character match fails, it will ungetchr() the last character back Chris@82: onto the stream. */ Chris@82: static int vscan(scanner *sc, const char *format, va_list ap) Chris@82: { Chris@82: const char *s = format; Chris@82: char c; Chris@82: int ch = 0; Chris@82: int fmt_len; Chris@82: Chris@82: while ((c = *s++)) { Chris@82: fmt_len = 0; Chris@82: switch (c) { Chris@82: case '%': Chris@82: getformat: Chris@82: switch ((c = *s++)) { Chris@82: case 's': { Chris@82: char *x = va_arg(ap, char *); Chris@82: mygets(sc, x, fmt_len); Chris@82: break; Chris@82: } Chris@82: case 'd': { Chris@82: int *x = va_arg(ap, int *); Chris@82: *x = (int) getlong(sc, 10, &ch); Chris@82: if (!ch) return 0; Chris@82: break; Chris@82: } Chris@82: case 'x': { Chris@82: int *x = va_arg(ap, int *); Chris@82: *x = (int) getlong(sc, 16, &ch); Chris@82: if (!ch) return 0; Chris@82: break; Chris@82: } Chris@82: case 'M': { Chris@82: md5uint *x = va_arg(ap, md5uint *); Chris@82: *x = (md5uint) Chris@82: (0xFFFFFFFF & getlong(sc, 16, &ch)); Chris@82: if (!ch) return 0; Chris@82: break; Chris@82: } Chris@82: case '*': { Chris@82: if ((fmt_len = va_arg(ap, int)) <= 0) return 0; Chris@82: goto getformat; Chris@82: } Chris@82: default: Chris@82: A(0 /* unknown format */); Chris@82: break; Chris@82: } Chris@82: break; Chris@82: default: Chris@82: if (isspace(c) || c == '(' || c == ')') Chris@82: eat_blanks(sc); Chris@82: if (!isspace(c) && (ch = GETCHR(sc)) != c) { Chris@82: UNGETCHR(sc, ch); Chris@82: return 0; Chris@82: } Chris@82: break; Chris@82: } Chris@82: } Chris@82: return 1; Chris@82: } Chris@82: Chris@82: static int scan(scanner *sc, const char *format, ...) Chris@82: { Chris@82: int ret; Chris@82: va_list ap; Chris@82: va_start(ap, format); Chris@82: ret = vscan(sc, format, ap); Chris@82: va_end(ap); Chris@82: return ret; Chris@82: } Chris@82: Chris@82: scanner *X(mkscanner)(size_t size, int (*getchr)(scanner *sc)) Chris@82: { Chris@82: scanner *s = (scanner *)MALLOC(size, OTHER); Chris@82: s->scan = scan; Chris@82: s->vscan = vscan; Chris@82: s->getchr = getchr; Chris@82: s->ungotc = EOF; Chris@82: return s; Chris@82: } Chris@82: Chris@82: void X(scanner_destroy)(scanner *sc) Chris@82: { Chris@82: X(ifree)(sc); Chris@82: }