cannam@95: /* cannam@95: * Copyright (c) 2003, 2007-11 Matteo Frigo cannam@95: * Copyright (c) 2003, 2007-11 Massachusetts Institute of Technology cannam@95: * cannam@95: * This program is free software; you can redistribute it and/or modify cannam@95: * it under the terms of the GNU General Public License as published by cannam@95: * the Free Software Foundation; either version 2 of the License, or cannam@95: * (at your option) any later version. cannam@95: * cannam@95: * This program is distributed in the hope that it will be useful, cannam@95: * but WITHOUT ANY WARRANTY; without even the implied warranty of cannam@95: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the cannam@95: * GNU General Public License for more details. cannam@95: * cannam@95: * You should have received a copy of the GNU General Public License cannam@95: * along with this program; if not, write to the Free Software cannam@95: * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA cannam@95: * cannam@95: */ cannam@95: cannam@95: cannam@95: #include "ifftw.h" cannam@95: #include cannam@95: #include cannam@95: #include cannam@95: cannam@95: #define BSZ 64 cannam@95: cannam@95: static void myputs(printer *p, const char *s) cannam@95: { cannam@95: char c; cannam@95: while ((c = *s++)) cannam@95: p->putchr(p, c); cannam@95: } cannam@95: cannam@95: static void newline(printer *p) cannam@95: { cannam@95: int i; cannam@95: cannam@95: p->putchr(p, '\n'); cannam@95: for (i = 0; i < p->indent; ++i) cannam@95: p->putchr(p, ' '); cannam@95: } cannam@95: cannam@95: static const char *digits = "0123456789abcdef"; cannam@95: cannam@95: static void putint(printer *p, INT i) cannam@95: { cannam@95: char buf[BSZ]; cannam@95: char *f = buf; cannam@95: cannam@95: if (i < 0) { cannam@95: p->putchr(p, '-'); cannam@95: i = -i; cannam@95: } cannam@95: cannam@95: do { cannam@95: *f++ = digits[i % 10]; cannam@95: i /= 10; cannam@95: } while (i); cannam@95: cannam@95: do { cannam@95: p->putchr(p, *--f); cannam@95: } while (f != buf); cannam@95: } cannam@95: cannam@95: static void putulong(printer *p, unsigned long i, int base, int width) cannam@95: { cannam@95: char buf[BSZ]; cannam@95: char *f = buf; cannam@95: cannam@95: do { cannam@95: *f++ = digits[i % base]; cannam@95: i /= base; cannam@95: } while (i); cannam@95: cannam@95: while (width > f - buf) { cannam@95: p->putchr(p, '0'); cannam@95: --width; cannam@95: } cannam@95: cannam@95: do { cannam@95: p->putchr(p, *--f); cannam@95: } while (f != buf); cannam@95: } cannam@95: cannam@95: static void vprint(printer *p, const char *format, va_list ap) cannam@95: { cannam@95: const char *s = format; cannam@95: char c; cannam@95: INT ival; cannam@95: cannam@95: while ((c = *s++)) { cannam@95: switch (c) { cannam@95: case '%': cannam@95: switch ((c = *s++)) { cannam@95: case 'M': { cannam@95: /* md5 value */ cannam@95: md5uint x = va_arg(ap, md5uint); cannam@95: putulong(p, (unsigned long)(0xffffffffUL & x), cannam@95: 16, 8); cannam@95: break; cannam@95: } cannam@95: case 'c': { cannam@95: int x = va_arg(ap, int); cannam@95: p->putchr(p, x); cannam@95: break; cannam@95: } cannam@95: case 's': { cannam@95: char *x = va_arg(ap, char *); cannam@95: if (x) cannam@95: myputs(p, x); cannam@95: else cannam@95: goto putnull; cannam@95: break; cannam@95: } cannam@95: case 'd': { cannam@95: int x = va_arg(ap, int); cannam@95: ival = (INT)x; cannam@95: goto putival; cannam@95: } cannam@95: case 'D': { cannam@95: ival = va_arg(ap, INT); cannam@95: goto putival; cannam@95: } cannam@95: case 'v': { cannam@95: /* print optional vector length */ cannam@95: ival = va_arg(ap, INT); cannam@95: if (ival > 1) { cannam@95: myputs(p, "-x"); cannam@95: goto putival; cannam@95: } cannam@95: break; cannam@95: } cannam@95: case 'o': { cannam@95: /* integer option. Usage: %oNAME= */ cannam@95: ival = va_arg(ap, INT); cannam@95: if (ival) cannam@95: p->putchr(p, '/'); cannam@95: while ((c = *s++) != '=') cannam@95: if (ival) cannam@95: p->putchr(p, c); cannam@95: if (ival) { cannam@95: p->putchr(p, '='); cannam@95: goto putival; cannam@95: } cannam@95: break; cannam@95: } cannam@95: case 'u': { cannam@95: unsigned x = va_arg(ap, unsigned); cannam@95: putulong(p, (unsigned long)x, 10, 0); cannam@95: break; cannam@95: } cannam@95: case 'x': { cannam@95: unsigned x = va_arg(ap, unsigned); cannam@95: putulong(p, (unsigned long)x, 16, 0); cannam@95: break; cannam@95: } cannam@95: case '(': { cannam@95: /* newline, augment indent level */ cannam@95: p->indent += p->indent_incr; cannam@95: newline(p); cannam@95: break; cannam@95: } cannam@95: case ')': { cannam@95: /* decrement indent level */ cannam@95: p->indent -= p->indent_incr; cannam@95: break; cannam@95: } cannam@95: case 'p': { /* note difference from C's %p */ cannam@95: /* print plan */ cannam@95: plan *x = va_arg(ap, plan *); cannam@95: if (x) cannam@95: x->adt->print(x, p); cannam@95: else cannam@95: goto putnull; cannam@95: break; cannam@95: } cannam@95: case 'P': { cannam@95: /* print problem */ cannam@95: problem *x = va_arg(ap, problem *); cannam@95: if (x) cannam@95: x->adt->print(x, p); cannam@95: else cannam@95: goto putnull; cannam@95: break; cannam@95: } cannam@95: case 'T': { cannam@95: /* print tensor */ cannam@95: tensor *x = va_arg(ap, tensor *); cannam@95: if (x) cannam@95: X(tensor_print)(x, p); cannam@95: else cannam@95: goto putnull; cannam@95: break; cannam@95: } cannam@95: default: cannam@95: A(0 /* unknown format */); cannam@95: break; cannam@95: cannam@95: putnull: cannam@95: myputs(p, "(null)"); cannam@95: break; cannam@95: cannam@95: putival: cannam@95: putint(p, ival); cannam@95: break; cannam@95: } cannam@95: break; cannam@95: default: cannam@95: p->putchr(p, c); cannam@95: break; cannam@95: } cannam@95: } cannam@95: } cannam@95: cannam@95: static void print(printer *p, const char *format, ...) cannam@95: { cannam@95: va_list ap; cannam@95: va_start(ap, format); cannam@95: vprint(p, format, ap); cannam@95: va_end(ap); cannam@95: } cannam@95: cannam@95: printer *X(mkprinter)(size_t size, cannam@95: void (*putchr)(printer *p, char c), cannam@95: void (*cleanup)(printer *p)) cannam@95: { cannam@95: printer *s = (printer *)MALLOC(size, OTHER); cannam@95: s->print = print; cannam@95: s->vprint = vprint; cannam@95: s->putchr = putchr; cannam@95: s->cleanup = cleanup; cannam@95: s->indent = 0; cannam@95: s->indent_incr = 2; cannam@95: return s; cannam@95: } cannam@95: cannam@95: void X(printer_destroy)(printer *p) cannam@95: { cannam@95: if (p->cleanup) cannam@95: p->cleanup(p); cannam@95: X(ifree)(p); cannam@95: }