Арифметический скрипт PetitParser из учебника не работает. Он продолжает говорить, что ParseOn - это нуль?

Question

Я изучаю, как использовать PetitParser на Pharo, Smalltalk, и я использую учебник, чтобы узнать его. В учебнике приведен следующий сценарий.

term := PPDelegateParser new. 
prod := PPDelegateParser new. 
prim := PPDelegateParser new. 
term setParser: (prod , $+ asParser trim , term ==> [ :nodes | nodes first + nodes last ])/prod. 
prod setParser: (prim , $*asParser trim , prod ==> [ :nodes | nodes first*nodes last ])/prim. 
prim setParser: ($(asParser trim , term , $) asParser trim ==> [ :nodes | nodes second ])/number. 
start := term end. 
start parse:'1+2*3'. 

Однако, когда я пытаюсь напечатать его на детской площадке я получить MessageNotUnderstood: приемник «parseOn:» равна нулю. Что я сделал не так?

Answer 1

Если вы добавите определение number, синтаксический анализатор выдаст желаемый результат. Следующий код делает это и в остальном идентичен вашему (кроме форматирования)

number := #digit asParser plus token trim 
    ==> [:token | token inputValue asNumber]. 
term := PPDelegateParser new. 
prod := PPDelegateParser new. 
prim := PPDelegateParser new. 
term 
    setParser: prod , $+ asParser trim , term 
     ==> [:nodes | nodes first + nodes last] 
     /prod. 
prod 
    setParser: prim , $* asParser trim , prod 
     ==> [:nodes | nodes first * nodes last] 
     /prim. 
prim 
    setParser: $(asParser trim , term , $) asParser trim 
     ==> [:nodes | nodes second] 
     /number. 
start := term end. 
^start parse: '1+2*3'