home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / VariableInterface / testRVI.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1988-04-28  |  709 b   |  26 lines
  1. /* Tests the direct variable interface    */
  2. /* Assumes WShell is available; if not,   */
  3. /* issue "run vartestC" separately        */
  4. trace r
  5.  
  6. if left(address(),4) ~== "WSH_"  /* WShell host?   */
  7.    then signal SendComm          /* guess not ...  */
  8.  
  9. 'waitforport -i VarTest'      /* vartest started?  */
  10. if rc ~= 0 then do            /* apparently not ...*/
  11.    'runwsh vartestC'          /* launch host       */
  12.    end
  13.  
  14. 'waitforport VarTest'         /* wait for host     */
  15. if rc ~= 0 then do
  16.    say "Couldn't start VarTest host"
  17.    exit 20
  18.    end
  19.  
  20. SendComm:   /* send a command to the VarTest host */
  21. a.1 = "Just a test"
  22. address 'VarTest' hello
  23. say 'After command status=' status
  24.  
  25. address 'VarTest' close
  26.