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 no_ext=`echo $filename | /bin/sed 's/\.[^.]*$//g'`
  16 dot_doc=${no_ext}.doc
  17
  18 temp="/tmp/snarf.$$"
  19 trap "rm -f $temp" 0 1 2 15
  20
  21 ## Let the user override the preprocessor & awk autoconf found.
  22 test -n "${CPP+set}" || CPP="@CPP@"
  23 test -n "${AWK+set}" || AWK="@AWK@"
  24
  25 ## Must run guile-func-name-check on the unpreprocessed source
  26 guile-func-name-check "$fullfilename"
  27
  28 ## We must use a temporary file here, instead of a pipe, because we
  29 ## need to know if CPP exits with a non-zero status.
  30 ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
  31 < ${temp} ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`