PetitParser arithmetisches Skript aus dem Lehrbuch funktioniert nicht. Es sagt, ParseOn ist nicht?

Question

Ich lerne, wie man PetitParser auf Pharo, Smalltalk benutzt und ich benutze ein Lehrbuch, um es zu lernen. Im Lehrbuch wird das folgende Skript angegeben.

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'. 

jedoch, wenn ich versuche, es auf dem Spielplatz zu drucken i erhalten MessageNotUnderstood: Empfänger von "parseOn:" ist gleich Null. Was habe ich falsch gemacht?

Answer 1

Wenn Sie die Definition number hinzufügen, erzeugt der Parser das gewünschte Ergebnis. Der folgende Code tut das und ist ansonsten identisch mit Ihnen (außer für die Formatierung)

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'