mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 15:10:29 +02:00
Code Activity

* guile-doc-snarf.in: Do not echo to stdout since the output now

Browse source 
gets stuck directly in the files instead of redirected from
stdout.

* guile-doc-snarf.awk: Escape a literal ) -- thanks Ryan
Yeske. Use print instead of printf to prime the .x file since
AIX's cpp has problems with #include-ing empty files (according to
the old guile-snarf.in file).
This commit is contained in:
Greg J. Badros 1999-12-13 21:32:37 +00:00
parent 3a596d3c6b
commit 393bbab5ef
2 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/guile-doc-snarf.awk
View file

@ -8,7 +8,7 @@ BEGIN { FS="|";
sub(/\..*$/,".x",dot_x_file); sub(/\..*$/,".x",dot_x_file);
sub(/\..*$/,".doc",dot_doc_file); 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
printf "" > dot_x_file; print "" > dot_x_file;
printf "" > dot_doc_file; printf "" > dot_doc_file;
} }
@ -35,7 +35,7 @@ BEGIN { FS="|";
sub(/[ \t]*$/,"",location); sub(/[ \t]*$/,"",location);
sub(/: /,":",location); sub(/: /,":",location);
gsub(/[ \t]*\|.*$/,"",copy); gsub(/[ \t]*\|.*$/,"",copy);
sub(/ )/,")",copy); sub(/ \)/,")",copy);
if (numargs != numactuals && !registering) if (numargs != numactuals && !registering)
{ print location ":*** `" copy "' is improperly registered as having " numactuals " arguments"; } { print location ":*** `" copy "' is improperly registered as having " numactuals " arguments"; }
print " \n" copy (registering?")":"") > dot_doc_file ; } print " \n" copy (registering?")":"") > dot_doc_file ; }

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

@ -22,7 +22,3 @@ test -n "${CPP+set}" || CPP="@CPP@"
## 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-doc-snarf.awk $filename < ${temp} awk -f `dirname $0`/guile-doc-snarf.awk $filename
## Apparently, AIX's preprocessor is unhappy if you try to #include an
## empty file.
echo