#line 2 "icondefs.nw" global showlocal procedure main(args) showlocal := !args == "-local" go() end #line 8 "icondefs.nw" procedure postpass(name, arg) static kind, definers initial { kind := "bogus" definers := ["global"] if \showlocal then every put(definers, "local" | "static") } case name of { "begin" : arg ? kind := tab(upto(' ')|0) "text" : if kind == "code" then arg ? if =("procedure "|"record ") then { tab(many(' ')) writedefn(tab(upto(' ()'))) } else if (tab(many(' ')) | "", =!definers, tab(many(' '))) then { while (not any('#')) & writedefn(tab(upto(', #'))) do tab(many(', ')) if not any('#') then writedefn(tab(0)) } } return end procedure prepass(name, arg) if name == "end" then writedefn(&null) # force newline end #line 32 "icondefs.nw" procedure rcsinfo () return "$Id: icondefs.nw,v 1.18 2008/10/06 01:03:05 nr Exp nr $" || "$Name: v2_12 $" end #line 1 "defns.nw" procedure go() local line while line := read() do { apply(prepass, line) write(line) if match("@fatal ", line) then exit(1) apply(postpass, line) } end procedure apply(pass, line) line ? (="@" & pass(tab(upto(' ')|0), if =" " then tab(0) else &null)) end #line 18 "defns.nw" procedure writedefn(defn, locl) static indextext initial indextext := "" if /defn then *indextext > 0 & #line 31 "defns.nw" { # write("@index nl") # don't! indextext := "" } #line 23 "defns.nw" else { if *indextext + *defn > 65 then #line 31 "defns.nw" { # write("@index nl") # don't! indextext := "" } #line 25 "defns.nw" write(if \locl then "@index localdefn " else "@index defn ", defn) indextext ||:= " " || defn } return end #line 35 "defns.nw" procedure rcsinfo_too () return "$Id: defns.nw,v 1.18 2008/10/06 01:03:05 nr Exp nr $" || "$Name: v2_12 $" end