cannam@95: #! /bin/sh
cannam@95: 
cannam@95: if test "x$1" = "x--help" || test "x$1" = "x-h"; then
cannam@95:     cat <<EOF
cannam@95: Usage: fftw-wisdom-to-conf [OPTIONS] [< INPUT] [> OUTPUT]
cannam@95: Convert wisdom (stdin) to C configuration routine (stdout).
cannam@95: 
cannam@95: Options:
cannam@95:         -h, --help: print this help
cannam@95:      -V, --version: print version/copyright info
cannam@95: EOF
cannam@95:     exit 0
cannam@95: fi
cannam@95: 
cannam@95: if test "x$1" = "x--version" || test "x$1" = "x-V"; then
cannam@95:     cat <<EOF
cannam@95: fftw-wisdom-to-conf from FFTW version @VERSION@
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: EOF
cannam@95:     exit 0
cannam@95: fi
cannam@95: 
cannam@95: read preamble fftw_wisdom
cannam@95: 
cannam@95: case "$preamble $fftw_wisdom" in
cannam@95: 	\(@PACKAGE@-@VERSION@\ *_wisdom)
cannam@95: 		prefix=`echo $fftw_wisdom | cut -d_ -f1`_
cannam@95: 		;;
cannam@95: 	*)
cannam@95: 		echo "fftw-wisdom-to-conf: invalid wisdom" 1>&2
cannam@95: 		exit 1
cannam@95: 		;;
cannam@95: esac
cannam@95: 
cannam@95: cat <<EOF
cannam@95: /* Automatically generated by fftw-wisdom-to-conf from @PACKAGE@ @VERSION@.
cannam@95:    DO NOT EDIT!  (Unless you really, really want to.  Then it's okay.) */
cannam@95: void ${prefix}configure_planner(void *plnr)
cannam@95: {
cannam@95:     struct solvtab_s { void (*reg)(void *); const char *reg_nam; };
cannam@95:     extern void ${prefix}solvtab_exec(const struct solvtab_s s[], void *);
cannam@95: 
cannam@95: #define DECLARE(name) extern void name(void *);
cannam@95: #define STRINGIZEx(x) #x
cannam@95: #define STRINGIZE(x) STRINGIZEx(x)
cannam@95: #define SOLVTAB(s) { s, STRINGIZE(s) },
cannam@95: #define DO(X) \\
cannam@95: EOF
cannam@95: 
cannam@95: sed 's/ *(//' | cut -d" " -f1 | grep -v -- - | egrep -v '^ *\)*$' | sort | uniq | while read reg_nam; do
cannam@95:     printf '    X(%s)\\\n' "$reg_nam"
cannam@95: done
cannam@95: 
cannam@95: cat <<EOF
cannam@95:     /* end DO(X) */
cannam@95: 
cannam@95:     DO(DECLARE)
cannam@95: 
cannam@95:     const struct solvtab_s s[] = {
cannam@95:         DO(SOLVTAB)
cannam@95:         { 0, 0 }
cannam@95:     };
cannam@95: 
cannam@95:     ${prefix}solvtab_exec(s, plnr);
cannam@95: }
cannam@95: EOF