equal
deleted
inserted
replaced
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCNotCharacterNode methodsFor:'accessing'! |
12 !PPCNotCharacterNode methodsFor:'accessing'! |
13 |
13 |
14 prefix |
14 defaultName |
15 ^ #notChar |
15 ^ #notChar |
16 ! ! |
16 ! ! |
17 |
17 |
18 !PPCNotCharacterNode methodsFor:'as yet unclassified'! |
18 !PPCNotCharacterNode methodsFor:'as yet unclassified'! |
19 |
19 |
36 ] |
36 ] |
37 ]. |
37 ]. |
38 ^ retval |
38 ^ retval |
39 ! ! |
39 ! ! |
40 |
40 |
|
41 !PPCNotCharacterNode methodsFor:'printing'! |
|
42 |
|
43 printNameOn: aStream |
|
44 super printNameOn: aStream. |
|
45 |
|
46 character = $" ifTrue: [ |
|
47 "this is hack to allow for printing '' in comments..." |
|
48 aStream nextPutAll: ', '; nextPutAll: '$'''''. |
|
49 ^ self |
|
50 ]. |
|
51 |
|
52 aStream nextPutAll: ', not('; print: character; nextPutAll: ')' |
|
53 ! ! |
|
54 |