mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* guile-snarf.awk.in: Tweak to work with Sun/HP awk, removed some

Browse source 
dead code.  Patch from Michael Livshin.

* guile-doc-snarf.in: Tweak to work with Sun/HP sh.  Patch from
Michael Livshin.
This commit is contained in:
Greg J. Badros 2000-02-10 19:45:10 +00:00
parent 720e869247
commit 11a5232f86
2 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/guile-doc-snarf.in
View file

@ -12,14 +12,15 @@ filename=`basename $fullfilename`
# because the makefile redirects output to the .x file # because the makefile redirects output to the .x file
# which creates the file before the inclusion occurs) # which creates the file before the inclusion occurs)
# --12/12/99 gjb # --12/12/99 gjb
dot_x=${filename%.*}.x no_ext=`echo $filename | /bin/sed 's/\.[^.]*$//g'`
touch --date=01/01/70 $dot_x dot_doc=${no_ext}.doc
temp="/tmp/snarf.$$" temp="/tmp/snarf.$$"
trap "rm -f $temp" 0 1 2 15 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 ## Must run guile-func-name-check on the unpreprocessed source
guile-func-name-check "$fullfilename" guile-func-name-check "$fullfilename"
@ -27,4 +28,4 @@ guile-func-name-check "$fullfilename"
## We must use a temporary file here, instead of a pipe, because we ## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status. ## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $? ${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}`

10
libguile/guile-snarf.awk.in
View file

@ -1,12 +1,10 @@
#!/usr/bin/awk -f
# Written by Greg J. Badros, <gjb@cs.washington.edu> # Written by Greg J. Badros, <gjb@cs.washington.edu>
# 12-Dec-1999 # 12-Dec-1999
BEGIN { FS="|"; BEGIN { FS="|";
filename = ARGV[1]; ARGV[1] = ""; dot_doc_file = ARGV[1]; ARGV[1] = "";
dot_x_file = filename; dot_doc_file = filename; ARGC = 0;
sub(/\..*$/,".x",dot_x_file); std_err = "/dev/stderr";
sub(/\..*$/,".doc",dot_doc_file);
# be sure to put something in the files to help make out # be sure to put something in the files to help make out
print ""; print "";
printf "" > dot_doc_file; printf "" > dot_doc_file;
@ -51,7 +49,7 @@ BEGIN { FS="|";
# now args is an array of the arguments # now args is an array of the arguments
# args[1] is the formal name of the first argument, etc. # args[1] is the formal name of the first argument, etc.
if (numargs != numactuals && !registering) 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 " \n" copy (registering?")":"") > dot_doc_file ; } print " \n" copy (registering?")":"") > dot_doc_file ; }
/@@@/,/@!!!.*$/ { copy = $0; /@@@/,/@!!!.*$/ { copy = $0;