--- a/ReadEvalPrintLoop.st Mon Mar 05 14:48:43 2018 +0100
+++ b/ReadEvalPrintLoop.st Mon Mar 05 14:53:29 2018 +0100
@@ -521,6 +521,14 @@
!
cmd_show:lineStream
+ "show directive:
+ show packages
+ show modules (= loaded packages)
+ show variables
+ etc.
+
+ "
+
|errStream what showAll ok|
errStream := self errorStream.
@@ -533,25 +541,25 @@
showAll := (what startsWith:'all').
(showAll or:[ what startsWith:'var' ]) ifTrue:[
- showAll ifTrue:[ errStream showCR:'Variables:'; showCR:'----------' ].
+ errStream showCR:'Variables:'; showCR:'----------'.
self showVariables.
ok := true.
].
(showAll or:[ what startsWith:'proc' ]) ifTrue:[
- showAll ifTrue:[ errStream cr; showCR:'Threads:'; showCR:'--------' ].
+ errStream cr; showCR:'Threads:'; showCR:'--------'.
MiniDebugger basicNew showProcesses.
ok := true.
].
("showAll or:[" what startsWith:'pack' "]") ifTrue:[
- showAll ifTrue:[ errStream cr; showCR:'Available Packages:'; showCR:'--------' ].
+ errStream cr; showCR:'Available Packages:'; showCR:'--------'.
self showPackages.
ok := true.
].
(showAll or:[ what startsWith:'mod' ]) ifTrue:[
- showAll ifTrue:[ errStream cr; showCR:'Modules:'; showCR:'--------' ].
+ errStream cr; showCR:'Modules:'; showCR:'--------'.
self showModules.
ok := true.
@@ -560,7 +568,7 @@
(showAll or:[ what startsWith:'mem' ]) ifTrue:[
|allMem|
- showAll ifTrue:[ errStream cr; showCR:'Memory:'; showCR:'-------' ].
+ errStream cr; showCR:'Memory:'; showCR:'-------'.
"/ allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed
"/ + ObjectMemory newSpaceUsed.
errStream
@@ -573,7 +581,7 @@
].
(showAll or:[ what startsWith:'flag' ]) ifTrue:[
- showAll ifTrue:[ errStream cr; showCR:'Flags:'; showCR:'------' ].
+ errStream cr; showCR:'Flags:'; showCR:'------'.
errStream
showCR:('trace : ',(traceFlag ? false) printString);
showCR:('timing: ',(timingFlag ? false) printString);
@@ -586,6 +594,7 @@
ok ifFalse:[
errStream showCR:'? show what ?'.
+ errStream showCR:'? (argument must be one of: packages, modules, variables, flags, memory, processes)'.
].
"