equal
deleted
inserted
replaced
122 |
122 |
123 sources select: [ :source | ([parser parse: source ] on: Error do: [ PPFailure new ]) isPetitFailure not ] |
123 sources select: [ :source | ([parser parse: source ] on: Error do: [ PPFailure new ]) isPetitFailure not ] |
124 ] |
124 ] |
125 ! ! |
125 ! ! |
126 |
126 |
|
127 !PPCResources methodsFor:'others'! |
|
128 |
|
129 idsOfSize: size |
|
130 | stream | |
|
131 stream := WriteStream on: (String new: size). |
|
132 |
|
133 [stream size < size] whileTrue: [ |
|
134 stream nextPutAll: 'Lorem ipsum dolor sit amet consectetur adipiscing elit sed do eiusmod tempor incididunt ut labore et dolore magna aliqua Ut enim ad minim veniam quis nostrud exercitation ullamco'. |
|
135 ]. |
|
136 ^ stream contents |
|
137 ! ! |
|
138 |
127 !PPCResources methodsFor:'private utilities'! |
139 !PPCResources methodsFor:'private utilities'! |
128 |
140 |
129 files: files withExtension: extension |
141 files: files withExtension: extension |
130 ^ files select: [ :f | f extension = extension ] |
142 ^ files select: [ :f | f extension = extension ] |
131 ! |
143 ! |
174 |
186 |
175 smalltalkSourcesBig |
187 smalltalkSourcesBig |
176 ^ self smalltalkInDirectory: '../smalltalk-src/' |
188 ^ self smalltalkInDirectory: '../smalltalk-src/' |
177 ! |
189 ! |
178 |
190 |
|
191 smalltalkSourcesMedium |
|
192 ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 10*1000. |
|
193 ! |
|
194 |
179 smalltalkSourcesSmall |
195 smalltalkSourcesSmall |
180 ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 1000. |
196 ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 1000. |
181 ! ! |
197 ! ! |
182 |
198 |