equal
deleted
inserted
replaced
123 |
123 |
124 sources select: [ :source | ([parser parse: source ] on: Error do: [ PPFailure new ]) isPetitFailure not ] |
124 sources select: [ :source | ([parser parse: source ] on: Error do: [ PPFailure new ]) isPetitFailure not ] |
125 ] |
125 ] |
126 ! ! |
126 ! ! |
127 |
127 |
|
128 !PPCResources methodsFor:'others'! |
|
129 |
|
130 idsOfSize: size |
|
131 | stream | |
|
132 stream := WriteStream on: (String new: size). |
|
133 |
|
134 [stream size < size] whileTrue: [ |
|
135 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'. |
|
136 ]. |
|
137 ^ stream contents |
|
138 ! ! |
|
139 |
128 !PPCResources methodsFor:'private utilities'! |
140 !PPCResources methodsFor:'private utilities'! |
129 |
141 |
130 files: files withExtension: extension |
142 files: files withExtension: extension |
131 ^ files select: [ :f | f extension = extension ] |
143 ^ files select: [ :f | f extension = extension ] |
132 ! |
144 ! |
175 |
187 |
176 smalltalkSourcesBig |
188 smalltalkSourcesBig |
177 ^ self smalltalkInDirectory: '../smalltalk-src/' |
189 ^ self smalltalkInDirectory: '../smalltalk-src/' |
178 ! |
190 ! |
179 |
191 |
|
192 smalltalkSourcesMedium |
|
193 ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 10*1000. |
|
194 ! |
|
195 |
180 smalltalkSourcesSmall |
196 smalltalkSourcesSmall |
181 ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 1000. |
197 ^ (self smalltalkInDirectory: '../smalltalk-src/') copyFrom: 1 to: 1000. |
182 ! ! |
198 ! ! |
183 |
199 |
184 !PPCResources class methodsFor:'documentation'! |
200 !PPCResources class methodsFor:'documentation'! |