;;;; mother modular generic compiler project
; (c)2001,2002/GPL Oskar Schirmer <oskar@scara.com>
; see file COPYING for GPL license details

; finite automaton substitution list for pl0
; according to N. Wirth, "Compilerbau", ISBN 3-519-32338-9

(substitution-list
  '(
    ((word "BEGIN") (begin ""))
    ((word "CALL") (call ""))
    ((word "CONST") (const ""))
    ((word "DO") (do ""))
    ((word "END") (end ""))
    ((word "IF") (if ""))
    ((word "ODD") (odd ""))
    ((word "PROCEDURE") (procedure ""))
    ((word "THEN") (then ""))
    ((word "VAR") (var ""))
    ((word "WHILE") (while ""))
  )
)
