tokeny Znalezienie w Smalltalk String z PetitParser

Question

chcę analizować

'This,is,an,example,text' 

jak w findTokens

'This,is,an,example,text' findTokens: $, 
an OrderedCollection('This' 'is' 'an' 'example' 'text') 

ale nie mogę dowiedzieć się, jak to zrobić z PetitParser, delimitedBy: a separatedBy: didn” t pomógł mi próbowałem

(#any asParser delimitedBy: $, asParser) plus flatten parse: 'This,is,an,example,text' 

ale oczywiście nie pracował

Answer 1

Używam tego wzoru cały czas z PetitParser gdy chcę coś wykluczyć. Po prostu zdefiniuj "to, czego szukam" lub "co chcę wykluczyć" (cokolwiek łatwiej opisać) jako analizator składni, a następnie je neguję i przetwarzam w razie potrzeby.

s := 'This,is,an,example,text'. 
separator := $, asParser ==> [ :n | nil ]. 
token := separator negate plus flatten. 
p := (token separatedBy: separator) ==> [ :nodes | 
    nodes copyWithout: nil ]. 
p parse: s. 

Answer 2

a #delimitedBy: b rozwija się do a , (b , a) star, więc Twój analizator składniowy ma taki sam komunikat "daj mi jedną znak oddzielony przecinkami".

To nie jest bardzo czytelny, ale to nie to, co chcesz:

((($, asParser not , #any asParser) ==> [:nodes | nodes second]) 
    plus flatten delimitedBy: $, asParser 

Pierwsza klauzula mówi „analizować wszystko, co nie jest przecinek”. Tak więc biorąc pod uwagę '12,24' otrzymujesz #('12' $, '24').

Answer 3

Spróbuj

(#word asParser plus flatten separatedBy: $, asParser) 
    ==> [:nodes| nodes copyWithout: $, ] 

Mam nadzieję, że zrozumiał, co chciałeś

Answer 4

delimitedBy: można używać w połączeniu z withoutSeparators:

|text parser| 

text := 'This,is,an,example,text'. 
parser := (#word asParser plus flatten delimitedBy: ($, asParser)) withoutSeparators. 

parser parse: text 

Wydaje się być ostatnie ulepszenie PetitParser.