bin/guile-snarf

   1 #!/bin/sh
   2 # Extract the initialization actions from source files.
   3 #
   4 #  Copyright (C) 1996, 97, 98, 99, 2000, 2001, 2002 Free Software Foundation, Inc.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2, or (at your option)
   9 # any later version.
  10 #
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with this software; see the file COPYING.  If not, write to
  18 # the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  19 # Boston, MA 02111-1307 USA
  20
  21 # Commentary:
  22
  23 # Usage: guile-snarf [-o OUTFILE] [CPP-ARGS ...]
  24
  25 # Initialization actions are extracted to OUTFILE or to standard
  26 # output when no OUTFILE has been specified or when OUTFILE is "-".
  27 # The C preprocessor is called with CPP-ARGS (which usually include a
  28 # input file) and the output is filtered for the actions.
  29 #
  30 # If there are errors during processing, OUTFILE is deleted and the
  31 # program exits with non-zero status.
  32 #
  33 # During snarfing, the pre-processor macro SCM_MAGIC_SNARFER is
  34 # defined.  You can use this to avoid including snarfer output files
  35 # that don't yet exist by writing code like this:
  36 #
  37 #   #ifndef SCM_MAGIC_SNARFER
  38 #   #include "foo.x"
  39 #   #endif
  40 #
  41 # If the environment variable CPP is set, use its value instead of the
  42 # C pre-processor determined at Guile configure-time: "gcc -E".
  43
  44 # Code:
  45
  46 ## funcs
  47
  48 modern_snarf ()                         # writes stdout
  49 {
  50     ## Apparently, AIX's preprocessor is unhappy if you try to #include an
  51     ## empty file.
  52     echo "/* cpp arguments: $@ */" ;
  53     ${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true
  54     grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//"
  55 }
  56
  57 ## main
  58
  59 # process command line
  60 if [ x"$1" = x--help ] ; then
  61     gawk '/^#.Commentary:/,/^#.Code:/' $0 | grep -v Code: \
  62         | sed -e 1,2d -e 's/^. *//g'
  63     exit 0
  64 fi
  65 if [ x"$1" = x-o ]
  66     then outfile="$2" ; shift ; shift ;
  67     else  outfile="-" ;
  68 fi
  69
  70 # set vars and handler -- handle CPP override
  71 cpp_ok_p=false
  72 temp="/tmp/snarf.$$"
  73 if [ x"$CPP" = x ] ; then cpp="gcc -E" ; else cpp="$CPP" ; fi
  74
  75 trap "rm -f $temp" 0 1 2 15
  76
  77 if [ ! "$outfile" = "-" ] ; then
  78     modern_snarf "$@" > $outfile
  79 else
  80     modern_snarf "$@"
  81 fi
  82
  83 # zonk outfile if errors occurred
  84 if $cpp_ok_p ; then
  85     exit 0
  86 else
  87     [ ! "$outfile" = "-" ] && rm -f $outfile
  88     exit 1
  89 fi
  90
  91 # guile-snarf ends here