\section {Finding Tangram-II definitions}
<<*>>=
procedure main(args)
  go()
end

procedure postpass(name, arg)
static kind, idchars, definers, objnames
  local d
  initial {
    kind := "bogus"
    idchars := &letters ++ &digits ++ '_'
    definers := ["Float", "Integer", "Object", "Port", "State", "Var"]
    objnames := ["name="]
  }
  case name of {
    "begin" : arg ? kind := tab(upto(' ')|0)
    "text" : if kind == "code" then arg ? {
       if find(!definers) then {
         tab(upto(':'));  move(1);  tab(many(' '))
         while d := tab(upto(';,')) do {
           move(1);  tab(many(' '));  writedefn(d)
           }
         }
       else if find(!objnames) then {
         tab(upto('='));  move(1);  tab(many(' '))
         d := tab(many(idchars))
         writedefn(d)
         }
       }
     }
  return
end

procedure prepass(name, arg)
  if name == "end" then writedefn(&null) # force newline
end

procedure rcsinfo () 
  return "$Id: texdefs.nw,v 1.8 2001/03/28 18:44:46 ko Exp ko $" ||
         "$Name: v2_10a $"
end