The code lines are copied 1:1 (even typos were copied) from the book

  Wirth, Niklaus:
  Grundlagen und Techniken des Compilerbaus.
  2. bearb. Aufl. - Oldenbourg Verlag München Wien, 2008.
  ISBN 978-3-486-58581-0