equal
deleted
inserted
replaced
174 |
174 |
175 "Created: / 08-11-2016 / 22:45:22 / cg" |
175 "Created: / 08-11-2016 / 22:45:22 / cg" |
176 "Modified: / 24-06-2017 / 09:54:10 / cg" |
176 "Modified: / 24-06-2017 / 09:54:10 / cg" |
177 ! |
177 ! |
178 |
178 |
179 error:aStream |
|
180 "assign an error stream" |
|
181 |
|
182 errorStream := stderr := aStream. |
|
183 |
|
184 "Created: / 07-12-2006 / 17:33:39 / cg" |
|
185 ! |
|
186 |
|
187 errorStream |
179 errorStream |
188 "return the current error stream" |
180 "return the current error stream" |
189 |
181 |
190 errorStream notNil ifTrue:[^ errorStream]. |
182 errorStream notNil ifTrue:[^ errorStream]. |
191 ^ Processor activeProcess stderr |
183 ^ Processor activeProcess stderr |
192 |
184 |
193 "Created: / 07-12-2006 / 19:12:27 / cg" |
185 "Created: / 07-12-2006 / 19:12:27 / cg" |
194 ! |
186 ! |
195 |
187 |
|
188 errorStream:aStream |
|
189 "assign an error stream" |
|
190 |
|
191 errorStream := stderr := aStream. |
|
192 |
|
193 "Created: / 07-12-2006 / 17:33:39 / cg" |
|
194 ! |
|
195 |
196 input:aStream |
196 input:aStream |
|
197 <resource: #obsolete> |
197 "assign an input stream" |
198 "assign an input stream" |
198 |
199 |
199 inputStream := stdin := aStream asLineNumberReadStream. |
200 inputStream := stdin := aStream asLineNumberReadStream. |
200 |
201 |
201 "Modified: / 07-12-2006 / 17:33:31 / cg" |
202 "Modified: / 07-12-2006 / 17:33:31 / cg" |
208 ^ Processor activeProcess stdin |
209 ^ Processor activeProcess stdin |
209 |
210 |
210 "Created: / 07-12-2006 / 19:12:13 / cg" |
211 "Created: / 07-12-2006 / 19:12:13 / cg" |
211 ! |
212 ! |
212 |
213 |
|
214 inputStream:aStream |
|
215 "assign an input stream" |
|
216 |
|
217 inputStream := stdin := aStream asLineNumberReadStream. |
|
218 |
|
219 "Modified: / 07-12-2006 / 17:33:31 / cg" |
|
220 ! |
|
221 |
213 noDebugger |
222 noDebugger |
214 "true if no debugger should be activated on errors (aborts)" |
223 "true if no debugger should be activated on errors (aborts)" |
215 |
224 |
216 ^ noDebugger ? false |
225 ^ noDebugger ? false |
217 ! |
226 ! |
221 |
230 |
222 noDebugger := aBoolean |
231 noDebugger := aBoolean |
223 ! |
232 ! |
224 |
233 |
225 output:aStream |
234 output:aStream |
|
235 <resource: #obsolete> |
226 "assign an output stream" |
236 "assign an output stream" |
227 |
237 |
228 outputStream := stdout := aStream. |
238 outputStream := stdout := aStream. |
229 |
239 |
230 "Created: / 07-12-2006 / 17:27:48 / cg" |
240 "Created: / 07-12-2006 / 17:27:48 / cg" |
235 |
245 |
236 outputStream notNil ifTrue:[^ outputStream]. |
246 outputStream notNil ifTrue:[^ outputStream]. |
237 ^ Processor activeProcess stdout |
247 ^ Processor activeProcess stdout |
238 |
248 |
239 "Created: / 07-12-2006 / 19:12:27 / cg" |
249 "Created: / 07-12-2006 / 19:12:27 / cg" |
|
250 ! |
|
251 |
|
252 outputStream:aStream |
|
253 "assign an output stream" |
|
254 |
|
255 outputStream := stdout := aStream. |
|
256 |
|
257 "Created: / 07-12-2006 / 17:27:48 / cg" |
240 ! |
258 ! |
241 |
259 |
242 printFlag |
260 printFlag |
243 "true if the return value of expressions should be printed" |
261 "true if the return value of expressions should be printed" |
244 |
262 |