equal
deleted
inserted
replaced
4 instanceVariableNames:'buffer variables indentation id profile canInline' |
4 instanceVariableNames:'buffer variables indentation id profile canInline' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitCompiler-Core' |
7 category:'PetitCompiler-Core' |
8 ! |
8 ! |
|
9 |
9 |
10 |
10 !PPCMethod class methodsFor:'instance creation'! |
11 !PPCMethod class methodsFor:'instance creation'! |
11 |
12 |
12 new |
13 new |
13 "return an initialized instance" |
14 "return an initialized instance" |
26 addOnLine: string |
27 addOnLine: string |
27 buffer nextPutAll: string. |
28 buffer nextPutAll: string. |
28 ! |
29 ! |
29 |
30 |
30 addVariable: name |
31 addVariable: name |
31 variables add: name. |
32 (variables includes: name) ifFalse:[ variables add: name ]. |
|
33 |
|
34 "Modified: / 30-10-2014 / 23:00:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
32 ! |
35 ! |
33 |
36 |
34 allowInline |
37 allowInline |
35 canInline := true |
38 canInline := true |
36 ! |
39 ! |
106 ! ! |
109 ! ! |
107 |
110 |
108 !PPCMethod methodsFor:'initialization'! |
111 !PPCMethod methodsFor:'initialization'! |
109 |
112 |
110 initialize |
113 initialize |
111 buffer := WriteStream on: ''. |
114 buffer := WriteStream on: ''. |
112 indentation := 1. |
115 indentation := 1. |
113 variables := OrderedCollection new. |
116 variables := OrderedCollection new. |
114 canInline := false |
117 canInline := false |
|
118 |
|
119 "Modified: / 30-10-2014 / 22:59:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
115 ! ! |
120 ! ! |
116 |
121 |
|
122 !PPCMethod class methodsFor:'documentation'! |
|
123 |
|
124 version_HG |
|
125 |
|
126 ^ '$Changeset: <not expanded> $' |
|
127 ! ! |
|
128 |