Return to parsexp.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 15

BSD 4.3

procedure main()
   while writes(line := read()) do
      if line ? (X() & pos(0)) then write(" accepted")
      else write(" rejected")
end

procedure T()
   suspend ["T",E()] | ["T",E(),="*",T()]
end

procedure E()
   suspend ["E",=("x" | "y" | "z")] | ["E",="(",X(),=")"]
end

procedure X()
   suspend ["X",T()] | ["X",T(),="+",X()]
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.