diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-08 18:48:24 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-08 18:48:24 +0000 |
commit | d80f396e99fb9032faccd822d20334681307bf1e (patch) | |
tree | 096b28e341b79570be6ea0afcda91525c77416d9 /libguile/guile-snarf.awk.in | |
parent | 0abbd8f4a3ab3816b2a6cb343605e0874d311ff6 (diff) | |
download | guile-d80f396e99fb9032faccd822d20334681307bf1e.tar.gz |
* snarf.h, guile-snarf.awk.in, guile-snarf.in: Replaced snarf
markers with identifiers (SCM__I, SCM__D, SCM__S, SCM__E).
(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 9e380d23e..b49b590fc 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]*SCM__I/ { copy = $0; + gsub(/[ \t]*SCM__I/, "", copy); + gsub(/SCM__D.*$/, "", copy); print copy; } -/ *\$ *\$ *\$/,/ *@ *@ *@/ { copy = $0; - if (match(copy,/ *\$ *\$ *\$R/)) { registering = 1; } +/SCM__D/,/SCM__S/ { copy = $0; + if (match(copy,/SCM__DR/)) { registering = 1; } else {registering = 0; } - gsub(/.* *\$ *\$ *\$./,"", copy); - gsub(/ *@ *@ *@.*/,"",copy); + gsub(/.*SCM__D./,"", copy); + gsub(/SCM__S.*/,"",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); +/SCM__S/,/SCM__E.*$/ { copy = $0; + gsub(/.*SCM__S/,"",copy); sub(/^[ \t]*"?/,"", copy); - sub(/\"?[ \t]*@ *! *! *!.*$/,"", copy); + sub(/\"?[ \t]*SCM__E.*$/,"", 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; } +/SCM__E[ \t]/ { print "[" location "]" >> dot_doc_file; } /\*&\*&\*&\*SCM_ARG_BETTER_BE_IN_POSITION/ { copy = $0; sub(/.*\*&\*&\*&\*SCM_ARG_BETTER_BE_IN_POSITION\([ \t]*/,"",copy); |