教科書のPetitParserの算術スクリプトが機能していません。それはParseOnがnillだと言い続ける？

Question

私はPharo、SmalltalkでPetitParserを使用する方法を学習しており、それを学ぶために教科書を使用しています。教科書には、以下のスクリプトが書かれています。私は遊び場でそれを印刷しようとすると、

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：」の受信機はnilです。 どうしたのですか？

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'