compiler rz3.1 main readinfile pass ;; generates AST eval ;; interprets AST readinfile blockread startlex pass ;; machine generated dcl eval ;; interpreter scanner mylex scans input-buffer, outputs token mylex skipblank if it is a single special char return token else ;; multiple char. type of char letter: collect charOrdigit return token-iden digit: collect digit return token-digit quote: collect until end-of-quote return token-string --- end ----- 14 June 2011