equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Object subclass:#MiniInspector |
16 Object subclass:#MiniInspector |
15 instanceVariableNames:'inspectedObject commandArg' |
17 instanceVariableNames:'inspectedObject commandArg' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
243 'read-eval-print loop; exit with empty line' errorPrintCR. |
245 'read-eval-print loop; exit with empty line' errorPrintCR. |
244 '' errorPrintCR. |
246 '' errorPrintCR. |
245 |
247 |
246 done := false. |
248 done := false. |
247 [done] whileFalse:[ |
249 [done] whileFalse:[ |
248 '> ' errorPrint. |
250 '> ' errorPrint. |
249 |
251 |
250 line := Stdin nextLine. |
252 line := Processor activeProcess stdin nextLine. |
251 (line size == 0) ifTrue:[ |
253 (line size == 0) ifTrue:[ |
252 done := true |
254 done := true |
253 ] ifFalse:[ |
255 ] ifFalse:[ |
254 rslt := Compiler |
256 rslt := Compiler |
255 evaluate:line |
257 evaluate:line |
256 in:nil |
258 in:nil |
257 receiver:anObject |
259 receiver:anObject |
258 notifying:nil |
260 notifying:nil |
259 ifFail:[]. |
261 ifFail:[]. |
260 rslt errorPrintCR. |
262 rslt errorPrintCR. |
261 ] |
263 ] |
262 ] |
264 ] |
263 ! |
265 ! |
264 |
266 |
265 printInstVarsOf:anObject |
267 printInstVarsOf:anObject |
266 |n "{ Class: SmallInteger }" names | |
268 |n "{ Class: SmallInteger }" names | |
290 ! ! |
292 ! ! |
291 |
293 |
292 !MiniInspector class methodsFor:'documentation'! |
294 !MiniInspector class methodsFor:'documentation'! |
293 |
295 |
294 version |
296 version |
295 ^ '$Header: /cvs/stx/stx/libbasic/MiniInspector.st,v 1.32 2014-06-25 16:30:11 cg Exp $' |
297 ^ '$Header$' |
296 ! ! |
298 ! ! |
297 |
299 |