author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 09 Nov 2015 00:38:23 +0000 | |
changeset 550 | 777f3813febc |
parent 377 | 6112a403a52d |
permissions | -rw-r--r-- |
4 | 1 |
"{ Package: 'stx:goodies/petitparser' }" |
0 | 2 |
|
3 |
PPParser subclass:#PPLiteralParser |
|
4 |
instanceVariableNames:'literal message' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
7 |
category:'PetitParser-Parsers' |
|
8 |
! |
|
9 |
||
10 |
||
11 |
!PPLiteralParser class methodsFor:'instance creation'! |
|
12 |
||
13 |
on: anObject |
|
377
6112a403a52d
Updated to latest version from Moose repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
171
diff
changeset
|
14 |
^ self on: anObject message: anObject printString , ' expected' |
0 | 15 |
! |
16 |
||
17 |
on: anObject message: aString |
|
18 |
^ self new initializeOn: anObject message: aString |
|
19 |
! ! |
|
20 |
||
171 | 21 |
|
0 | 22 |
!PPLiteralParser methodsFor:'accessing'! |
23 |
||
24 |
literal |
|
25 |
"Answer the parsed literal." |
|
26 |
||
27 |
^ literal |
|
28 |
! |
|
29 |
||
30 |
message |
|
31 |
"Answer the failure message." |
|
35 | 32 |
|
0 | 33 |
^ message |
34 |
! ! |
|
35 |
||
36 |
!PPLiteralParser methodsFor:'initialization'! |
|
37 |
||
38 |
initializeOn: anObject message: aString |
|
39 |
literal := anObject. |
|
40 |
message := aString |
|
41 |
! ! |
|
42 |
||
43 |
!PPLiteralParser methodsFor:'operators'! |
|
44 |
||
45 |
caseInsensitive |
|
46 |
"Answer a parser that can parse the receiver case-insensitive." |
|
35 | 47 |
|
0 | 48 |
self subclassResponsibility |
49 |
! ! |
|
50 |
||
51 |
!PPLiteralParser methodsFor:'printing'! |
|
52 |
||
53 |
printNameOn: aStream |
|
377
6112a403a52d
Updated to latest version from Moose repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
171
diff
changeset
|
54 |
super printNameOn: aStream. |
6112a403a52d
Updated to latest version from Moose repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
171
diff
changeset
|
55 |
aStream nextPutAll: ', '; print: literal |
0 | 56 |
! ! |
57 |
||
58 |
!PPLiteralParser class methodsFor:'documentation'! |
|
59 |
||
35 | 60 |
version |
171 | 61 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralParser.st,v 1.4 2014-03-04 14:33:03 cg Exp $' |
35 | 62 |
! |
63 |
||
64 |
version_CVS |
|
171 | 65 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralParser.st,v 1.4 2014-03-04 14:33:03 cg Exp $' |
35 | 66 |
! |
67 |
||
0 | 68 |
version_SVN |
171 | 69 |
^ '$Id: PPLiteralParser.st,v 1.4 2014-03-04 14:33:03 cg Exp $' |
0 | 70 |
! ! |
171 | 71 |