home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / DC-OP55B.LZX / Opus5 / arexx / DOS-DOpus.dopus5 < prev    next >
Encoding:
Text File  |  1995-10-23  |  910 b   |  35 lines
  1. /* Loads current shell directory into DOpus5, running DOpus5 if
  2.    not previously running, optionally selecting files, and
  3.    optionally performing a function on them.
  4.  
  5.    Alias DD "rx DOpus5:ARexx/DOS-DOpus.dopus5"
  6.  
  7.    Use: DD [pattern [function]]
  8.  
  9.    where: pattern  = any valid AmigaDOS pattern matching expression
  10.           function = any valid DOpus internal function, eg. Delete
  11.  
  12. NOTE: If you want to use a function, then a pattern MUST be present as
  13.       an argument.
  14.  
  15. */
  16. options results
  17. Parse Arg pattern function .
  18. if ~show('P','DOPUS.1') then do
  19.  address command "DOpus5:DirectoryOpus"
  20.  address command waitforport 'DOPUS.1'
  21. end
  22. Address 'DOPUS.1'
  23. dopus front
  24. lister new pragma('d')
  25. Handle = result
  26. lister wait Handle
  27. lister set Handle source
  28. if pattern ~= '' then
  29.   command source Handle select "name="pattern
  30. if function ~= '' then
  31.   command source Handle function
  32.  
  33. lister refresh Handle FULL
  34. Exit
  35.