extensions.st
changeset 152 d104f89293e3
parent 150 24e8d10ff041
child 153 43cdafa051d5
equal deleted inserted replaced
151:9c6d666d71fe 152:d104f89293e3
    76 
    76 
    77 asPetitStream
    77 asPetitStream
    78 	^ PPStream on: self
    78 	^ PPStream on: self
    79 ! !
    79 ! !
    80 
    80 
       
    81 !Interval methodsFor:'*petitparser-core-converting'!
       
    82 
       
    83 asParser
       
    84     "Create a parser for any in a range of characters between start and stop."
       
    85 
       
    86     self assert:start isCharacter.
       
    87     self assert:stop isCharacter.
       
    88     self assert:step == 1.
       
    89     ^ PPPredicateObjectParser between: start and: stop
       
    90 
       
    91     "
       
    92      ($a to:$f) asParser parse:'a'
       
    93      ($a to:$f) asParser parse:'g'
       
    94     "
       
    95 ! !
       
    96 
    81 !Set methodsFor:'*petitparser-core-converting'!
    97 !Set methodsFor:'*petitparser-core-converting'!
    82 
    98 
    83 asParser
    99 asParser
    84 	^ PPChoiceParser withAll: (self collect: [ :each | each asParser ])
   100 	^ PPChoiceParser withAll: (self collect: [ :each | each asParser ])
    85 ! !
   101 ! !
   123 ! !
   139 ! !
   124 
   140 
   125 !stx_goodies_petitparser class methodsFor:'documentation'!
   141 !stx_goodies_petitparser class methodsFor:'documentation'!
   126 
   142 
   127 extensionsVersion_CVS
   143 extensionsVersion_CVS
   128     ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.5 2014-02-17 01:30:49 cg Exp $'
   144     ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.6 2014-02-17 01:33:27 cg Exp $'
   129 ! !
   145 ! !