* 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).

diff --git a/libguile/guile-doc-snarf.awk b/libguile/guile-doc-snarf.awk
index 78764af..3e4a5c3 100644 (file)
--- 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 "\f\n" copy (registering?")":"") > dot_doc_file ; }

diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in
index 6933b20..b779bf4 100755 (executable)
--- 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