libguile/guile-doc-snarf.in

   1 #!/bin/sh
   2 # Extract the initialization actions for builtin things.
   3
   4 fullfilename=$1; shift
   5
   6 # strip path to source directory
   7 filename=`basename $fullfilename`
   8
   9 # we need to be sure that the .x file exists
  10 # since the .c/.cc file may include it
  11 # (the old guile-snarf did not have this problem
  12 #  because the makefile redirects output to the .x file
  13 #  which creates the file before the inclusion occurs)
  14 # --12/12/99 gjb
  15 dot_x=${filename%.*}.x
  16 touch --date=01/01/70 $dot_x
  17
  18 temp="/tmp/snarf.$$"
  19 trap "rm -f $temp" 0 1 2 15
  20
  21 ## Let the user override the preprocessor autoconf found.
  22 test -n "${CPP+set}" || CPP="@CPP@"
  23
  24 ## Must run guile-func-name-check on the unpreprocessed source
  25 guile-func-name-check "$fullfilename"
  26
  27 ## We must use a temporary file here, instead of a pipe, because we
  28 ## need to know if CPP exits with a non-zero status.
  29 ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
  30 < ${temp} awk -f `dirname $0`/guile-snarf.awk "$filename"