diff options
author | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-09-05 14:24:00 +0200 |
---|---|---|
committer | Holger Hans Peter Freyther <holger@moiji-mobile.com> | 2014-09-05 14:24:00 +0200 |
commit | 07e36f833336b03950af4ca75d4e9b079cfb6cbc (patch) | |
tree | b3e2f4823ce260aa68b6a8c9b9c52acf436b9cdf | |
parent | f13639d443c3ab54dacd4b5b0995205e9fa753ca (diff) |
misc: Create a combined parser for a small win
-rw-r--r-- | grammar/SIPGrammar.st | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/grammar/SIPGrammar.st b/grammar/SIPGrammar.st index add34dc..5b468e6 100644 --- a/grammar/SIPGrammar.st +++ b/grammar/SIPGrammar.st @@ -90,8 +90,9 @@ PP.PPCompositeParser subclass: SIPGrammar [ host [ <category: 'generic'> - "TODO: too simplieified" - ^ (#letter asParser / (PP.PPPredicateObjectParser chars: '0123456789.-' message: 'host')) plus flatten + ^ (PP.PPPredicateObjectParser on: (PP.PPCharSetPredicate on: + [:char | char isAlphaNumeric or: [ + '.-' includes: char]]) message: 'host') plus flatten ] port [ |