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