PPLiteralParser.st
changeset 4 90de244a7fa2
parent 0 739fe9b7253e
child 35 f34ac42e9496
equal deleted inserted replaced
3:e1b11f74e142 4:90de244a7fa2
     1 "{ Package: 'squeak:petitparser' }"
     1 "{ Package: 'stx:goodies/petitparser' }"
     2 
     2 
     3 PPParser subclass:#PPLiteralParser
     3 PPParser subclass:#PPLiteralParser
     4 	instanceVariableNames:'literal message'
     4 	instanceVariableNames:'literal message'
     5 	classVariableNames:''
     5 	classVariableNames:''
     6 	poolDictionaries:''
     6 	poolDictionaries:''
     7 	category:'PetitParser-Parsers'
     7 	category:'PetitParser-Parsers'
     8 !
     8 !
     9 
     9 
    10 PPLiteralParser comment:'Abstract literal parser that parses some kind of literal type (to be specified by subclasses).
    10 PPLiteralParser comment:'Abstract literal parser that parses some kind of literal type (to be specified by subclasses).
    11 Instance Variables:
    11 Instance Variables:
    12 	literal	<Object>	The literal object to be parsed.
    12 	literal <Object>        The literal object to be parsed.
    13 	message	<String>	The error message to be generated.
    13 	message <String>        The error message to be generated.
    14 '
    14 '
    15 !
    15 !
    16 
    16 
    17 
    17 
    18 !PPLiteralParser class methodsFor:'instance creation'!
    18 !PPLiteralParser class methodsFor:'instance creation'!
    33 	^ literal
    33 	^ literal
    34 !
    34 !
    35 
    35 
    36 message
    36 message
    37 	"Answer the failure message."
    37 	"Answer the failure message."
    38 	
    38 
    39 	^ message
    39 	^ message
    40 ! !
    40 ! !
    41 
    41 
    42 !PPLiteralParser methodsFor:'initialization'!
    42 !PPLiteralParser methodsFor:'initialization'!
    43 
    43 
    48 
    48 
    49 !PPLiteralParser methodsFor:'operators'!
    49 !PPLiteralParser methodsFor:'operators'!
    50 
    50 
    51 caseInsensitive
    51 caseInsensitive
    52 	"Answer a parser that can parse the receiver case-insensitive."
    52 	"Answer a parser that can parse the receiver case-insensitive."
    53 	
    53 
    54 	self subclassResponsibility
    54 	self subclassResponsibility
    55 ! !
    55 ! !
    56 
    56 
    57 !PPLiteralParser methodsFor:'printing'!
    57 !PPLiteralParser methodsFor:'printing'!
    58 
    58 
    62 ! !
    62 ! !
    63 
    63 
    64 !PPLiteralParser class methodsFor:'documentation'!
    64 !PPLiteralParser class methodsFor:'documentation'!
    65 
    65 
    66 version_SVN
    66 version_SVN
    67     ^ '$Id: PPLiteralParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $'
    67     ^ '$Id: PPLiteralParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
    68 ! !
    68 ! !