교과서의 PetitParser arithmatic 스크립트가 작동하지 않습니다. 파세 온이 싫다고 계속 말했어?

Question

Phat, 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을"무기 호입니다. 내가 뭘 잘못 했니?

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'