ReadEvalPrintLoop.st
changeset 22576 d774834d53fc
parent 22575 cd5f0602a863
child 22577 d47c7e41eda5
equal deleted inserted replaced
22575:cd5f0602a863 22576:d774834d53fc
    46     A simple read-eval-print loop for non-GUI or stscript operation.
    46     A simple read-eval-print loop for non-GUI or stscript operation.
    47     Invoked, for example if stx is started with a --repl argument.
    47     Invoked, for example if stx is started with a --repl argument.
    48 
    48 
    49     A line starting with '?' shows the usage message.
    49     A line starting with '?' shows the usage message.
    50     Lines starting with '#' are directives:
    50     Lines starting with '#' are directives:
    51         #exit   - exit the rep-loop
    51         #exit           - exit the rep-loop
       
    52         #show ...       - show various infos
       
    53         #use package    - show various infos
    52         type '?' to see more.
    54         type '?' to see more.
    53         
    55         
    54     The input can be in one of two formats:
    56     The input can be in one of two formats:
    55         1) traditional chunk format (bang-separated chunks, bangs duplicated)
    57         1) traditional chunk format (bang-separated chunks, bangs duplicated)
    56           this is the traditional fileIn format, as generated by fileOut from the browser
    58           this is the traditional fileIn format, as generated by fileOut from the browser
   370 
   372 
   371     "Modified: / 08-11-2016 / 22:46:12 / cg"
   373     "Modified: / 08-11-2016 / 22:46:12 / cg"
   372 !
   374 !
   373 
   375 
   374 cmd_exit:lineStream
   376 cmd_exit:lineStream
       
   377     "exit directive - leaves the repl"
       
   378 
   375     exitAction value
   379     exitAction value
   376 
   380 
   377     "Created: / 07-12-2006 / 18:55:46 / cg"
   381     "Created: / 07-12-2006 / 18:55:46 / cg"
   378 !
   382 !
   379 
   383 
   524     "show directive:
   528     "show directive:
   525         show packages
   529         show packages
   526         show modules (= loaded packages)
   530         show modules (= loaded packages)
   527         show variables 
   531         show variables 
   528         etc.
   532         etc.
   529         
       
   530     "
   533     "
   531 
   534 
   532     |errStream what showAll ok|
   535     |errStream what showAll ok|
   533 
   536 
   534     errStream := self errorStream.
   537     errStream := self errorStream.
   591             ok := true.
   594             ok := true.
   592         ].
   595         ].
   593     ].
   596     ].
   594 
   597 
   595     ok ifFalse:[
   598     ok ifFalse:[
   596         errStream showCR:'? show what ?'.
   599         errStream showCR:'? usage: show <what>'.
   597         errStream showCR:'? (argument must be one of: packages, modules, variables, flags, memory, processes)'.
   600         errStream showCR:'? (the argument must be one of: packages, modules, variables, flags, memory, processes)'.
   598     ].
   601     ].
   599     
   602     
   600     "
   603     "
   601      self basicNew cmd_show:'packages' readStream
   604      self basicNew cmd_show:'packages' readStream
   602     "
   605     "