equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 PPCConfiguration subclass:#PPCPluggableConfiguration |
5 Object subclass:#PPCPluggableConfiguration |
6 instanceVariableNames:'block' |
6 instanceVariableNames:'block base' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Core' |
9 category:'PetitCompiler-Core' |
10 ! |
10 ! |
11 |
11 |
12 !PPCPluggableConfiguration class methodsFor:'as yet unclassified'! |
12 !PPCPluggableConfiguration class methodsFor:'as yet unclassified'! |
13 |
13 |
14 on: aBlock |
14 on: aBlock |
15 ^ self new |
15 ^ self on: aBlock base: PPCConfiguration default |
16 block: aBlock; |
16 ! |
17 yourself |
17 |
|
18 on: aBlock base: aPPCCOnfiguration |
|
19 ^ self new |
|
20 block: aBlock; |
|
21 base: aPPCCOnfiguration; |
|
22 yourself |
18 ! ! |
23 ! ! |
19 |
24 |
20 !PPCPluggableConfiguration methodsFor:'as yet unclassified'! |
25 !PPCPluggableConfiguration methodsFor:'as yet unclassified'! |
21 |
26 |
|
27 arguments: args |
|
28 ^ base arguments: args |
|
29 ! |
|
30 |
|
31 base: aPPCConfiguration |
|
32 base := aPPCConfiguration |
|
33 ! |
|
34 |
22 block: aBlock |
35 block: aBlock |
23 block := aBlock |
36 block := aBlock |
|
37 ! |
|
38 |
|
39 compile: whatever |
|
40 base input: whatever. |
|
41 block value: base. |
|
42 ^ base ir |
|
43 ! |
|
44 |
|
45 input: whatever |
|
46 ^ base input: whatever |
24 ! |
47 ! |
25 |
48 |
26 invokePhases |
49 invokePhases |
27 ^ block value: self |
50 ^ block value: base |
28 ! ! |
51 ! ! |
29 |
52 |