addons/SystemCall/io/SystemCall.io

   1
   2
   3 SystemCall do(
   4     newSlot("command", "")
   5     newSlot("isRunning", false)
   6     newSlot("returnCode", nil)
   7     newSlot("stdin", nil)
   8     newSlot("stdout", nil)
   9     newSlot("stderr", nil)
  10     newSlot("arguments", nil)
  11     newSlot("environment", Map clone)
  12
  13     init := method(
  14         self arguments := List clone
  15         self environment := environment clone
  16     )
  17
  18     run := method(aBlock,
  19         err := self asyncRun(command, arguments, environment)
  20         if(err == -1, Exception raise("unable to run command"))
  21
  22         // replace this with something to watch the file streams?
  23         isRunning := true
  24         while(isRunning == true and (s := self status) > 255,
  25             if(aBlock, aBlock call)
  26             wait(.1)
  27         )
  28         if(aBlock, aBlock call)
  29
  30         isRunning := false
  31         setReturnCode(s)
  32         self
  33     )
  34
  35     runWith := method(
  36         run(Block clone setMessage(call argAt(0)) setScope(self))
  37     )
  38
  39     with := method(s,
  40         newSysCall := self clone
  41         parts := s splitNoEmpties(" ")
  42         newSysCall setCommand(parts removeFirst)
  43         newSysCall setArguments(parts)
  44         newSysCall
  45     )
  46 )