libguile/guile-snarf.in

   1 #!/bin/sh
   2 # Extract the initialization actions from source files.
   3 #
   4 #  Copyright (C) 1996, 97, 98, 99, 2000, 2001, 2002, 2004, 2006, 2008, 2009 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 Lesser General Public License as
   8 # published by the Free Software Foundation; either version 3, or (at
   9 # your option) any later version.
  10 #
  11 # This program is distributed in the hope that it will be useful, but
  12 # WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 # Lesser General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU Lesser General Public
  17 # License along with this software; see the file COPYING.LESSER.  If
  18 # not, write to the Free Software Foundation, Inc., 51 Franklin
  19 # Street, Fifth Floor, Boston, MA 02110-1301 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: "@CPP@".
  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     sed -ne 's/ *\^ *: *\^/\
  55 /
  56 h
  57 s/\n.*//
  58 t x
  59 d
  60 : x
  61 s/.*\^ *\^ *\(.*\)/\1;/
  62 t y
  63 d
  64 : y
  65 p
  66 x
  67 D' ${temp}
  68 }
  69
  70 ## main
  71
  72 # process command line
  73 if [ x"$1" = x--help ] ; then
  74     @AWK@ '/^#.Commentary:/,/^#.Code:/' $0 | grep -v Code: \
  75         | sed -e 1,2d -e 's/^. *//g'
  76     exit 0
  77 fi
  78 if [ x"$1" = x-o ]
  79     then outfile="$2" ; shift ; shift ;
  80     else  outfile="-" ;
  81 fi
  82
  83 # set vars and handler -- handle CPP override
  84 cpp_ok_p=false
  85
  86 if [ x"$TMPDIR" = x ]; then TMPDIR="/tmp" ; else : ; fi
  87 tempdir="$TMPDIR/guile-snarf.$$"
  88 (umask 077 && mkdir $tempdir) || exit 1
  89 temp="$tempdir/tmp"
  90
  91 if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi
  92
  93 trap "rm -rf $tempdir" 0 1 2 15
  94
  95 if [ ! "$outfile" = "-" ] ; then
  96     modern_snarf "$@" > $outfile
  97 else
  98     modern_snarf "$@"
  99 fi
 100
 101 # zonk outfile if errors occurred
 102 if $cpp_ok_p ; then
 103     exit 0
 104 else
 105     [ ! "$outfile" = "-" ] && rm -f $outfile
 106     exit 1
 107 fi
 108
 109 # guile-snarf ends here