diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-07 06:06:16 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-07 06:06:16 +0000 |
commit | 66418d34653d7a5bef7829f7bf1416e26f849541 (patch) | |
tree | 11ab53b618ea3527c18cefcdc02cb0df2e416b07 /libguile/guile-snarf.awk.in | |
parent | 387c1a3bc0adc035dd5aa068288699b50105d250 (diff) | |
download | guile-66418d34653d7a5bef7829f7bf1416e26f849541.tar.gz |
fix problems with gcc-2.96.
Diffstat (limited to 'libguile/guile-snarf.awk.in')
-rw-r--r-- | libguile/guile-snarf.awk.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/guile-snarf.awk.in b/libguile/guile-snarf.awk.in index 5c045fcf3..034aa9e6c 100644 --- a/libguile/guile-snarf.awk.in +++ b/libguile/guile-snarf.awk.in @@ -98,6 +98,7 @@ BEGIN { FS="|"; /SCM_SNARF_DOCSTRING_START/,/SCM_SNARF_DOCSTRING_END.*$/ { copy = $0; gsub(/.*SCM_SNARF_DOCSTRING_START/,"",copy); + sub(/^\#.*/,"", copy); sub(/^[ \t]*\"?/,"", copy); sub(/\"?[ \t]*SCM_SNARF_DOCSTRING_END.*$/,"", copy); gsub(/\\n\\n\"?/,"\n",copy); @@ -107,7 +108,7 @@ BEGIN { FS="|"; if (copy != "") { print copy > dot_doc_file } } -/SCM_SNARF_DOCSTRING_END[ \t]/ { print "@end deffn" >> dot_doc_file; } +/SCM_SNARF_DOCSTRING_END[ \t]*/ { print "@end deffn" >> dot_doc_file; } /\*&\*&\*&\*SCM_ARG_BETTER_BE_IN_POSITION/ { copy = $0; sub(/.*\*&\*&\*&\*SCM_ARG_BETTER_BE_IN_POSITION\([ \t]*/,"",copy); |