PPTrimmingParser.st
changeset 411 06b96374dd10
parent 377 6112a403a52d
child 642 77d5fddb6462
equal deleted inserted replaced
410:779556be95f8 411:06b96374dd10
    15 		setParser: aParser;
    15 		setParser: aParser;
    16 		setTrimmer: aTrimParser;
    16 		setTrimmer: aTrimParser;
    17 		yourself
    17 		yourself
    18 ! !
    18 ! !
    19 
    19 
       
    20 
    20 !PPTrimmingParser methodsFor:'initialization'!
    21 !PPTrimmingParser methodsFor:'initialization'!
    21 
    22 
    22 setTrimmer: aParser
    23 setTrimmer: aParser
    23 	trimmer := aParser
    24 	trimmer := aParser
    24 ! !
       
    25 
       
    26 !PPTrimmingParser methodsFor:'operations'!
       
    27 
       
    28 trim
       
    29 	"There is no point in trimming more than once."
       
    30 
       
    31 	^ self
       
    32 ! !
    25 ! !
    33 
    26 
    34 !PPTrimmingParser methodsFor:'parsing'!
    27 !PPTrimmingParser methodsFor:'parsing'!
    35 
    28 
    36 parseOn: aPPContext
    29 parseOn: aPPContext
    55 
    48 
    56 version_CVS
    49 version_CVS
    57     ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTrimmingParser.st,v 1.3 2012-05-04 22:05:38 vrany Exp $'
    50     ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTrimmingParser.st,v 1.3 2012-05-04 22:05:38 vrany Exp $'
    58 !
    51 !
    59 
    52 
       
    53 version_HG
       
    54 
       
    55     ^ '$Changeset: <not expanded> $'
       
    56 !
       
    57 
    60 version_SVN
    58 version_SVN
    61     ^ '§Id: PPTrimmingParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
    59     ^ '§Id: PPTrimmingParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
    62 ! !
    60 ! !
    63 
    61