*** empty log message ***

1 files changed, 0 insertions, 210 deletions

diff --git a/src/fftw3/kernel/print.c b/src/fftw3/kernel/print.c
deleted file mode 100644
index 314be7c..0000000
--- a/src/fftw3/kernel/print.c
+++ /dev/null
@@ -1,210 +0,0 @@
-/*
- * Copyright (c) 2003 Matteo Frigo
- * Copyright (c) 2003 Massachusetts Institute of Technology
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- *
- */
-
-/* $Id: print.c,v 1.1 2008/10/17 06:11:29 scuri Exp $ */
-
-#include "ifftw.h"
-#include <stddef.h>
-#include <stdarg.h>
-#include <stdio.h>
-
-#define BSZ 64
-
-static void myputs(printer *p, const char *s)
-{
-     char c;
-     while ((c = *s++))
-          p->putchr(p, c);
-}
-
-static void vprint(printer *p, const char *format, va_list ap)
-{
-     char buf[BSZ];
-     const char *s = format;
-     char c;
-     int i;
-
-     for (i = 0; i < p->indent; ++i)
-          p->putchr(p, ' ');
-
-     while ((c = *s++)) {
-          switch (c) {
-	      case '%':
-		   switch ((c = *s++)) {
-		       case 'M': {
-			    /* md5 value */
-			    md5uint x = va_arg(ap, md5uint);
-			    x = 0xffffffffUL & x;
-			    sprintf(buf, "%8.8lx", (unsigned long)x);
-			    goto putbuf;
-		       }
-		       case 'c': {
-			    int x = va_arg(ap, int);
-			    p->putchr(p, x);
-			    break;
-		       }
-		       case 's': {
-			    char *x = va_arg(ap, char *);
-			    if (x)
-				 myputs(p, x);
-			    else
-				 goto putnull;
-			    break;
-		       }
-		       case 'd': {
-			    int x = va_arg(ap, int);
-			    sprintf(buf, "%d", x);
-			    goto putbuf;
-		       }
-		       case 't': {
-			    ptrdiff_t x;
-			    A(*s == 'd');
-			    s += 1;
-			    x = va_arg(ap, ptrdiff_t);
-			    /* should use C99 %td here, but
-			       this is not yet widespread enough */
-			    sprintf(buf, "%ld", (long) x);
-			    goto putbuf;
-		       }
-		       case 'f': case 'e': case 'g': {
-			    char fmt[3] = "%x";
-			    double x = va_arg(ap, double);
-			    fmt[1] = c;
-			    sprintf(buf, fmt, x);
-			    goto putbuf;
-		       }
-		       case 'v': {
-			    /* print optional vector length */
-			    int x = va_arg(ap, int);
-			    if (x > 1) {
-				 sprintf(buf, "-x%d", x);
-				 goto putbuf;
-			    }
-			    break;
-		       }
-		       case 'o': {
-			    /* integer option.  Usage: %oNAME= */
-			    int x = va_arg(ap, int);
-			    if (x)
-				 p->putchr(p, '/');
-			    while ((c = *s++) != '=')
-				 if (x)
-				      p->putchr(p, c);
-			    if (x) {
-				 sprintf(buf, "=%d", x);
-				 goto putbuf;
-			    }
-			    break;
-		       }
-		       case 'u': {
-			    unsigned x = va_arg(ap, unsigned);
-			    sprintf(buf, "%u", x);
-			    goto putbuf;
-		       }
-		       case 'x': {
-			    unsigned x = va_arg(ap, unsigned);
-			    sprintf(buf, "%x", x);
-			    goto putbuf;
-		       }
-		       case '(': {
-			    /* newline, augment indent level */
-			    p->putchr(p, '\n');
-			    p->indent += p->indent_incr;
-			    break;
-		       }
-		       case ')': {
-			    /* decrement indent level */
-			    p->indent -= p->indent_incr;
-			    break;
-		       }
-		       case 'p': {  /* note difference from C's %p */
-			    /* print plan */
-			    plan *x = va_arg(ap, plan *);
-			    if (x) 
-				 x->adt->print(x, p);
-			    else 
-				 goto putnull;
-			    break;
-		       }
-		       case 'P': {
-			    /* print problem */
-			    problem *x = va_arg(ap, problem *);
-			    if (x)
-				 x->adt->print(x, p);
-			    else
-				 goto putnull;
-			    break;
-		       }
-		       case 'T': {
-			    /* print tensor */
-			    tensor *x = va_arg(ap, tensor *);
-			    if (x)
-				 X(tensor_print)(x, p);
-			    else
-				 goto putnull;
-			    break;
-		       }
-		       default:
-			    A(0 /* unknown format */);
-			    break;
-
-		   putbuf:
-			    myputs(p, buf);
-			    break;
-		   putnull:
-			    myputs(p, "(null)");
-			    break;
-		   }
-		   break;
-	      default:
-		   p->putchr(p, c);
-		   break;
-          }
-     }
-}
-
-static void print(printer *p, const char *format, ...)
-{
-     va_list ap;
-     va_start(ap, format);
-     vprint(p, format, ap);
-     va_end(ap);
-}
-
-printer *X(mkprinter)(size_t size, 
-		      void (*putchr)(printer *p, char c),
-		      void (*cleanup)(printer *p))
-{
-     printer *s = (printer *)MALLOC(size, OTHER);
-     s->print = print;
-     s->vprint = vprint;
-     s->putchr = putchr;
-     s->cleanup = cleanup;
-     s->indent = 0;
-     s->indent_incr = 2;
-     return s;
-}
-
-void X(printer_destroy)(printer *p)
-{
-     if (p->cleanup)
-	  p->cleanup(p);
-     X(ifree)(p);
-}