326 ok := false. |
326 ok := false. |
327 |
327 |
328 what notNil ifTrue:[ |
328 what notNil ifTrue:[ |
329 showAll := (what startsWith:'all'). |
329 showAll := (what startsWith:'all'). |
330 |
330 |
331 (showAll or:[ what startsWith:'var' ]) ifTrue:[ |
331 (showAll or:[ what startsWith:'var' ]) ifTrue:[ |
|
332 showAll ifTrue:[ errStream nextPutLine:'Variables:'; nextPutLine:'----------' ]. |
332 Workspace notNil ifTrue:[ |
333 Workspace notNil ifTrue:[ |
333 Workspace workspaceVariables keys asOrderedCollection sort do:[:nm | |
334 Workspace workspaceVariables keys asOrderedCollection sort do:[:nm | |
334 |holder| |
335 |holder| |
335 holder := Workspace workspaceVariables at:nm. |
336 holder := Workspace workspaceVariables at:nm. |
336 errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:holder value printString. |
337 errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:holder value printString. |
337 ]. |
338 ]. |
338 ]. |
339 ]. |
339 ]. |
340 ]. |
340 (showAll or:[ what startsWith:'proc' ]) ifTrue:[ |
341 (showAll or:[ what startsWith:'proc' ]) ifTrue:[ |
|
342 showAll ifTrue:[ errStream nextPutLine:'Threads:'; nextPutLine:'--------' ]. |
341 MiniDebugger basicNew showProcesses. |
343 MiniDebugger basicNew showProcesses. |
342 ]. |
344 ]. |
343 (showAll or:[ what startsWith:'mod' ]) ifTrue:[ |
345 (showAll or:[ what startsWith:'mod' ]) ifTrue:[ |
|
346 showAll ifTrue:[ errStream nextPutLine:'Modules:'; nextPutLine:'--------' ]. |
344 printModule := |
347 printModule := |
345 [:mod | |
348 [:mod | |
346 errStream |
349 errStream |
347 nextPutAll:' '; |
350 nextPutAll:' '; |
348 nextPutAll:(mod package "libraryName"); |
351 nextPutAll:(mod package "libraryName"); |
361 |
364 |
362 ]. |
365 ]. |
363 (showAll or:[ what startsWith:'mem' ]) ifTrue:[ |
366 (showAll or:[ what startsWith:'mem' ]) ifTrue:[ |
364 |allMem| |
367 |allMem| |
365 |
368 |
|
369 showAll ifTrue:[ errStream nextPutLine:'Memory:'; nextPutLine:'-------' ]. |
366 allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed |
370 allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed |
367 + ObjectMemory newSpaceUsed. |
371 + ObjectMemory newSpaceUsed. |
368 errStream |
372 errStream |
369 nextPutLine:('overall: ',(allMem // 1024) printString,' Kb'); |
373 nextPutLine:('overall: ',(allMem // 1024) printString,' Kb'); |
370 nextPutLine:('in use : ',(ObjectMemory bytesUsed // 1024) printString,' Kb'); |
374 nextPutLine:('in use : ',(ObjectMemory bytesUsed // 1024) printString,' Kb'); |
371 nextPutLine:('free : ',(ObjectMemory freeSpace // 1024) printString,' Kb'); |
375 nextPutLine:('free : ',(ObjectMemory freeSpace // 1024) printString,' Kb'); |
372 nextPutLine:('minorGC: ',(ObjectMemory scavengeCount) printString); |
376 nextPutLine:('minorGC: ',(ObjectMemory scavengeCount) printString); |
373 nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString). |
377 nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString). |
374 ]. |
378 ]. |
375 (showAll or:[ what startsWith:'flag' ]) ifTrue:[ |
379 (showAll or:[ what startsWith:'flag' ]) ifTrue:[ |
|
380 showAll ifTrue:[ errStream nextPutLine:'Flags:'; nextPutLine:'------' ]. |
376 errStream |
381 errStream |
377 nextPutLine:('trace : ',traceFlag printString); |
382 nextPutLine:('trace : ',traceFlag printString); |
378 nextPutLine:('timing: ',timingFlag printString); |
383 nextPutLine:('timing: ',timingFlag printString); |
379 nextPutLine:('chunkFormat: ',doChunkFormat printString). |
384 nextPutLine:('chunkFormat: ',doChunkFormat printString). |
380 ]. |
385 ]. |