home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / scx-do51.lha / arexx / CDO.dopus5 next >
Encoding:
Text File  |  1995-05-04  |  698 b   |  19 lines
  1. /* CDO - Script for Directory Opus 5 by Leo Davidson (P0T-NOoDLE/Gods'Gift)
  2.    When run from a Shell, will 'CD' to the path used by the SOURCE Lister
  3.  
  4.    To make it work, add the following line to your s:shell-startup:
  5. -------------------------------------------------------------------------------
  6. Alias CDO "CD *`rx DOpus5:ARexx/cdo.dopus5*`"
  7. -------------------------------------------------------------------------------
  8. */
  9.  
  10. address "DOPUS.1"            /* Assumes there's only one copy. */
  11. options results
  12.  
  13. lister query source            /* Get handle of 1st SOURCE lister. */
  14. Ls_Handle = Word(RESULT,1)
  15.  
  16. Lister Query Ls_Handle Path        /* Get its path. */
  17. Say RESULT                /* Echo result -> input of CD cmd. */
  18. EXIT
  19.