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