diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-08 16:50:49 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-08 16:50:49 +0000 |
commit | 7180cf39a7e1547dfe161382dd662bf8ad4cc0c0 (patch) | |
tree | cec1af0b72c6299fc04a2b4c385e6574f150a70b /libguile/guile-snarf.awk.in | |
parent | 0bf8b97450a71aa096a69e13b2fc69ae49ca33df (diff) | |
download | guile-7180cf39a7e1547dfe161382dd662bf8ad4cc0c0.tar.gz |
* guile-snarf.awk.in, guile-snarf.in: Made to work also for
preprocessors which interpret $$$ and other markers as three
separate tokens and puts spaces in between. NOTE: We could
replace %%% etc with real identifiers. However, before the 1.4
release, we instead make minimal changes to the existing
system. (Thanks to Bernard Urban.)
Diffstat (limited to 'libguile/guile-snarf.awk.in')
-rw-r--r-- | libguile/guile-snarf.awk.in | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/libguile/guile-snarf.awk.in b/libguile/guile-snarf.awk.in index 9cadd0440..9e380d23e 100644 --- a/libguile/guile-snarf.awk.in +++ b/libguile/guile-snarf.awk.in @@ -10,16 +10,16 @@ BEGIN { FS="|"; printf "" > dot_doc_file; } -/^[ \t]*%%%/ { copy = $0; - gsub(/[ \t]*%%%/, "", copy); - gsub(/\$\$\$.*$/, "", copy); +/^[ \t]* *% *% *%/ { copy = $0; + gsub(/[ \t]* *% *% *%/, "", copy); + gsub(/ *\$ *\$ *\$.*$/, "", copy); print copy; } -/\$\$\$/,/@@@/ { copy = $0; - if (match(copy,/\$\$\$R/)) { registering = 1; } +/ *\$ *\$ *\$/,/ *@ *@ *@/ { copy = $0; + if (match(copy,/ *\$ *\$ *\$R/)) { registering = 1; } else {registering = 0; } - gsub(/.*\$\$\$./,"", copy); - gsub(/@@@.*/,"",copy); + gsub(/.* *\$ *\$ *\$./,"", copy); + gsub(/ *@ *@ *@.*/,"",copy); gsub(/[ \t]+/," ", copy); sub(/^[ \t]*/,"(", copy); gsub(/\"/,"",copy); @@ -52,10 +52,10 @@ BEGIN { FS="|"; { print location ":*** `" copy "' is improperly registered as having " numactuals " arguments" > std_err; } print "\n" copy (registering?")":"") > dot_doc_file ; } -/@@@/,/@!!!.*$/ { copy = $0; - gsub(/.*@@@/,"",copy); +/ *@ *@ *@/,/@ *! *! *!.*$/ { copy = $0; + gsub(/.* *@ *@ *@/,"",copy); sub(/^[ \t]*"?/,"", copy); - sub(/\"?[ \t]*@!!!.*$/,"", copy); + sub(/\"?[ \t]*@ *! *! *!.*$/,"", copy); gsub(/\\n\\n"?/,"\n",copy); gsub(/\\n"?[ \t]*$/,"",copy); gsub(/\\\"[ \t]*$/,"\"",copy); @@ -63,7 +63,7 @@ BEGIN { FS="|"; if (copy != "") { print copy > dot_doc_file } } -/@!!![ \t]/ { print "[" location "]" >> dot_doc_file; } +/@ *! *! *![ \t]/ { print "[" location "]" >> dot_doc_file; } /\*&\*&\*&\*SCM_ARG_BETTER_BE_IN_POSITION/ { copy = $0; sub(/.*\*&\*&\*&\*SCM_ARG_BETTER_BE_IN_POSITION\([ \t]*/,"",copy); |