From 393bbab5ef237b896514580e124189e9d3a91109 Mon Sep 17 00:00:00 2001 From: "Greg J. Badros" Date: Mon, 13 Dec 1999 21:32:37 +0000 Subject: [PATCH] * guile-doc-snarf.in: Do not echo to stdout since the output now 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). --- libguile/guile-doc-snarf.awk | 4 ++-- libguile/guile-doc-snarf.in | 4 ---- 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/libguile/guile-doc-snarf.awk b/libguile/guile-doc-snarf.awk index 78764af32..3e4a5c388 100644 --- a/libguile/guile-doc-snarf.awk +++ b/libguile/guile-doc-snarf.awk @@ -8,7 +8,7 @@ BEGIN { FS="|"; sub(/\..*$/,".x",dot_x_file); sub(/\..*$/,".doc",dot_doc_file); # be sure to put something in the files to help make out - printf "" > dot_x_file; + print "" > dot_x_file; printf "" > dot_doc_file; } @@ -35,7 +35,7 @@ BEGIN { FS="|"; sub(/[ \t]*$/,"",location); sub(/: /,":",location); gsub(/[ \t]*\|.*$/,"",copy); - sub(/ )/,")",copy); + sub(/ \)/,")",copy); if (numargs != numactuals && !registering) { print location ":*** `" copy "' is improperly registered as having " numactuals " arguments"; } print " \n" copy (registering?")":"") > dot_doc_file ; } diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in index 6933b2067..b779bf493 100755 --- a/libguile/guile-doc-snarf.in +++ b/libguile/guile-doc-snarf.in @@ -22,7 +22,3 @@ test -n "${CPP+set}" || CPP="@CPP@" ## need to know if CPP exits with a non-zero status. ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $? < ${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