home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / rexx / action.ro next >
Text File  |  1995-05-13  |  901b  |  55 lines
  1. /* 
  2.  
  3.    $VER: Action.RO 0.3
  4.  
  5.    Author:
  6.     Oliver Rummeyer (oliver.rummeyer@student.uni-ulm.de)
  7.  
  8.    Function:
  9.     Starts a fileaction for the specified file. If RO is not
  10.     running it's loaded automatically. This rexx program is
  11.     useful as a RO starter script for ToolManager as well.
  12.  
  13.    Requires:
  14.     RO 0.90 or newer
  15.  
  16.    Example:
  17.     Rx >NIL: REXX:Action.RO S:Startup-Sequence RO.1
  18.  
  19. */
  20.  
  21. PARSE ARG FileName PortName
  22.  
  23. IF PortName="" THEN
  24.  PortName='RO.1'
  25. ELSE
  26.  PortName=STRIP(PortName)
  27.  
  28. ADDRESS VALUE PortName
  29.  
  30. IF ~SHOW('Ports',PortName) THEN
  31.  DO
  32.  
  33.   IF Length(FileName) > 0 THEN
  34.     ADDRESS 'COMMAND' 'Run >NIL: RO ICONIFY'
  35.   ELSE
  36.     ADDRESS 'COMMAND' 'Run >NIL: RO'
  37.  
  38.   ADDRESS 'COMMAND' 'WaitForPort '||PortName
  39.  
  40.   IF ~SHOW('Ports',PortName) THEN
  41.    DO
  42.     EXIT 10
  43.    END
  44.  END
  45.  
  46. OPTIONS RESULTS
  47.  
  48. IF Length(FileName) = 0 THEN
  49.   'Show'
  50. ELSE DO
  51.   'Sleep'
  52.   'FileAction '||FileName
  53.   'Wakeup'
  54. END
  55.