Return to parsexp.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / book / 15

researchv10 Dan Cross

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.