dead code. Patch from Michael Livshin.
* guile-doc-snarf.in: Tweak to work with Sun/HP sh. Patch from
Michael Livshin.
# because the makefile redirects output to the .x file
# which creates the file before the inclusion occurs)
# --12/12/99 gjb
# because the makefile redirects output to the .x file
# which creates the file before the inclusion occurs)
# --12/12/99 gjb
-dot_x=${filename%.*}.x
-touch --date=01/01/70 $dot_x
+no_ext=`echo $filename | /bin/sed 's/\.[^.]*$//g'`
+dot_doc=${no_ext}.doc
temp="/tmp/snarf.$$"
trap "rm -f $temp" 0 1 2 15
temp="/tmp/snarf.$$"
trap "rm -f $temp" 0 1 2 15
-## Let the user override the preprocessor autoconf found.
+## Let the user override the preprocessor & awk autoconf found.
test -n "${CPP+set}" || CPP="@CPP@"
test -n "${CPP+set}" || CPP="@CPP@"
+test -n "${AWK+set}" || AWK="@AWK@"
## Must run guile-func-name-check on the unpreprocessed source
guile-func-name-check "$fullfilename"
## Must run guile-func-name-check on the unpreprocessed source
guile-func-name-check "$fullfilename"
## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
-< ${temp} awk -f `dirname $0`/guile-snarf.awk "$filename"
+< ${temp} ${AWK} -f `dirname $0`/guile-snarf.awk `basename ${dot_doc}`
# Written by Greg J. Badros, <gjb@cs.washington.edu>
# 12-Dec-1999
BEGIN { FS="|";
# Written by Greg J. Badros, <gjb@cs.washington.edu>
# 12-Dec-1999
BEGIN { FS="|";
- filename = ARGV[1]; ARGV[1] = "";
- dot_x_file = filename; dot_doc_file = filename;
- sub(/\..*$/,".x",dot_x_file);
- sub(/\..*$/,".doc",dot_doc_file);
+ dot_doc_file = ARGV[1]; ARGV[1] = "";
+ ARGC = 0;
+ std_err = "/dev/stderr";
# be sure to put something in the files to help make out
print "";
printf "" > dot_doc_file;
# be sure to put something in the files to help make out
print "";
printf "" > dot_doc_file;
# now args is an array of the arguments
# args[1] is the formal name of the first argument, etc.
if (numargs != numactuals && !registering)
# now args is an array of the arguments
# args[1] is the formal name of the first argument, etc.
if (numargs != numactuals && !registering)
- { print location ":*** `" copy "' is improperly registered as having " numactuals " arguments" > /dev/stderr; }
+ { print location ":*** `" copy "' is improperly registered as having " numactuals " arguments" > std_err; }
print "\f\n" copy (registering?")":"") > dot_doc_file ; }
/@@@/,/@!!!.*$/ { copy = $0;
print "\f\n" copy (registering?")":"") > dot_doc_file ; }
/@@@/,/@!!!.*$/ { copy = $0;