[Moose-dev] Re: PetitParser Example

Hi Sean, Looks ok, but I think it's a bit too particular to your input. Some things you could take into account: - the delimiter should probably allow multiple white spaces both before and after the comma. You could replace the definition like: delimiter := $, asParser trim. - the item should probably be defined in terms of what can go inside, not just as a negation of delimiter and listClose. This would allow you to transform the values into corresponding Smalltalk objects. So, for example, if you only want to allow strings then you can define the item like: item := $" asParser , $" asParser negate star flatten , $" asParser ==> #second. So, all in all: | delimiter item contents listParser | delimiter := $, asParser trim. item := $" asParser , $" asParser negate star flatten , $" asParser ==> #second. contents := (item separatedBy: delimiter) ==> [ :nodes | nodes reject: [ :n | n = $, ] ]. listParser := ${ asParser, contents optional, $} asParser ==> #second. listParser parse: '{"lo, gin", "bash"}'. ==> #('lo, gin' 'bash') Cheers, Doru On 25 Feb 2012, at 13:44, Sean P. DeNigris wrote: -- www.tudorgirba.com "Live like you mean it."