example script definition

gistfile1.st

[ :topez :objIn :tokens :command :commandNode | 
  | opts args |
  "for help: ./example -h"
  command
    getOptsMixedLongShort:
      {#('help' $h #'none').
      #('clear' nil #'none').
      #('client' nil #'required').
      #('interactive' nil #'none').
      #('model' nil #'required').
      #('register' nil #'required').
      #('remoteStart' nil #'required').
      #('remoteStatus' nil #'required').
      #('remoteStop' nil #'required').
      #('remoteRestart' nil #'required').
      #('reset' nil #'none').
      #('restart' nil #'required').
      #('server' nil #'required').
      #('start' nil #'required').
      #('status' nil #'required').
      #('stop' nil #'required').
      #('trace' nil #'none').
      #('unregister' nil #'required')}
    optionsAndArguments: [ :options :operands | 
      opts := options.
      args := operands ].
  opts
    at: 'help'
    ifAbsent: [ 
      | result gemServer trace transModel interactive |
      interactive := trace := false.
      opts
        at: 'clear'
        ifPresent: [ :ignored | topez evaluateCommandString: 'ol clear --age=`1 hour`' ].
      opts
        at: 'reset'
        ifPresent: [ :ignored | result := GemServerRemoteTaskExample reset ].
      opts at: 'interactive' ifPresent: [ :ignored | interactive := true ].
      opts at: 'trace' ifPresent: [ :ignored | trace := true ].
      opts at: 'model' ifPresent: [ :model | transModel := model ].
      opts
        at: 'unregister'
        ifPresent: [ :serverName | result := GemServer removeGemServerNamed: serverName ]
        ifAbsent: [ 
          | serverName serverCls |
          opts
            at: 'register'
            ifPresent: [ :serverNameArg | 
              serverName := serverNameArg.
              transModel = 'parallel'
                ifTrue: [ serverCls := GemServerRemoteServerParallelProcessingExample ]
                ifFalse: [ 
                  transModel = 'serial'
                    ifTrue: [ serverCls := GemServerRemoteServerSerialProcessingExample ] ].
              serverName
                ifNotNil: [ 
                  gemServer := (GemServer gemServerNamed: serverName)
                    ifNil: [ gemServer := serverCls register: serverName ] ].
              gemServer
                tracing: trace;
                interactiveMode: interactive;
                yourself.
              result := gemServer ] ].
      opts
        at: 'client'
        ifPresent: [ :taskName | 
          | selectors client task taskList taskCount |
          selectors := Dictionary new
            at: 'break' put: #'scheduleBreakpointTask';
            at: 'error' put: #'scheduleErrorTask';
            at: 'http' put: #'scheduleExampleHttpTask';
            at: 'fast' put: #'scheduleFastTask';
            at: 'halt' put: #'scheduleHaltTask';
            at: 'serverError' put: #'scheduleInternalServerError';
            at: 'oomPersistent' put: #'scheduleOutOfMemoryPersistent';
            at: 'oomTemp' put: #'scheduleOutOfMemoryTemp';
            at: 'simple' put: #'scheduleSimpleTask';
            at: 'status' put: #'scheduleStatusTask';
            at: 'overflow' put: #'scheduleStackOverflow';
            at: 'time' put: #'scheduleTimeInLondonTask';
            yourself.
          opts
            at: 'server'
            ifPresent: [ :serverName | client := (gemServer := GemServer gemServerNamed: serverName) clientClass new ].
          taskList := {}.
          selectors
            at: taskName
            ifAbsent: [ 
              taskName asNumber
                timesRepeat: [ 
                  | sel |
                  sel := selectors keys atRandom.
                  task := client perform: (selectors at: sel).
                  gemServer doTransaction: [ task label: sel asString ].
                  taskList add: task ] ]
            ifPresent: [ :selector | 
              task := client perform: selector.
              task label: taskName.
              taskList add: task ].
          client doCommitTransaction.
          result := client waitForTasks: taskList gemServer: gemServer ].
      opts
        at: 'remoteStop'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) stopGems ].
      opts
        at: 'remoteStart'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) startGems ].
      opts
        at: 'remoteStatus'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) statusGems ].
      opts
        at: 'remoteRestart'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) restartGems ].
      opts
        at: 'stop'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) stop ].
      opts
        at: 'start'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) start ].
      opts
        at: 'status'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) status ].
      opts
        at: 'restart'
        ifPresent: [ :serverName | result := (GemServer gemServerNamed: serverName) restart ].
      result ]
    ifPresent: [ :ignored | 
      TDManPage
        viewManPage:
          'NAME
  example - example sript utility template
SYNOPSIS
  example [-h|--help]
  example --register=<server-name> --model=[parallel|serial] [--trace] [--interactive]
  example --unregister=<server-name>
  example --reset
  example --remoteStart=<server-name>
  example --remoteRestart=<server-name>
  example --remoteStop=<server-name>
  example --remoteStatus=<server-name>
  example --start=<server-name>
  example --restart=<server-name>
  example --stop=<server-name>
  example --status=<server-name>
  example --clear
  example --client=[break|error|http|fast|halt|serverError|oomPersistent|oomTemp|simple|status|overflow|time|warning] \
         --server=<server-name>  [--trace]
  example --client=<task-count> --server=<server-name>  [--trace]
DESCRIPTION
EXAMPLES
  ./example --help
  ./example -h

  ./example --register=example
  ./example --register=example --model=parallel --trace --interactive
  ./example --register=example --model=serial --trace --interactive
  ./example --unregister=example
  ./example --reset

  ./example --remoteStart=example
  ./example --remoteStop=example
  ./example --remoteRestart=example
  ./example --remoteStatus=example

  ./example --start=example
  ./example --stop=example
  ./example --restart=example
  ./example --status=example

  ./example --clear

  ./example --client=break --server=example --trace
  ./example --client=error --server=example --trace
  ./example --client=http --server=example --trace
  ./example --client=fast --server=example --trace
  ./example --client=halt --server=example --trace
  ./example --client=serverError --server=example --trace
  ./example --client=oomPersistent --server=example --trace
  ./example --client=oomTemp --server=example --trace
  ./example --client=simple --server=example --trace
  ./example --client=status --server=example --trace
  ./example --client=overflow --server=example --trace
  ./example --client=time --server=example --trace
  ./example --client=warning --server=example --trace

  ./example --client=100 --server=example --trace
'
        topez: topez ] ]