equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 PPCNotLiteralNode subclass:#PPCInlineNotLiteralNode |
5 PPCNotLiteralNode subclass:#PPCInlineNotLiteralNode |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
7 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
8 ! |
10 ! |
9 |
|
10 !PPCInlineNotLiteralNode methodsFor:'accessing'! |
|
11 |
|
12 literal |
|
13 |
|
14 ^ literal |
|
15 ! |
|
16 |
|
17 literal: anObject |
|
18 |
|
19 literal := anObject |
|
20 ! |
|
21 |
|
22 prefix |
|
23 ^ #notLit |
|
24 ! ! |
|
25 |
11 |
26 !PPCInlineNotLiteralNode methodsFor:'as yet unclassified'! |
12 !PPCInlineNotLiteralNode methodsFor:'as yet unclassified'! |
27 |
13 |
28 compileWith: compiler effect: effect id: id |
14 compileWith: compiler effect: effect id: id |
29 | encodedLiteral size | |
15 | encodedLiteral size | |
43 |
29 |
44 asInlined |
30 asInlined |
45 ^ self |
31 ^ self |
46 ! |
32 ! |
47 |
33 |
48 firstCharParser |
|
49 ^ literal first asParser not |
|
50 ! |
|
51 |
|
52 firstCharSet |
|
53 ^ PPCharSetPredicate on: [:e | true ] |
|
54 ! |
|
55 |
|
56 printOn: aStream |
34 printOn: aStream |
57 aStream nextPutAll: #inlined. |
35 aStream nextPutAll: #inlined. |
58 super printOn: aStream. |
36 super printOn: aStream. |
59 ! ! |
37 ! ! |
60 |
38 |