home *** CD-ROM | disk | FTP | other *** search
/ Micro R&D 1 / MicroRD-CD-ROM-Vol1-1994.iso / os20 / cli / newlist82.lha / Scripts / NewDpat < prev    next >
AmigaDOS Script File  |  1993-06-19  |  893b  |  33 lines
  1. .key com/a,pat/a,dir/a,opt1,opt2,opt3,opt4
  2. failat 21
  3. .bra {
  4. .ket }
  5.  
  6. ;  This is a modified Commodore s:dpat for use with newlist.
  7. ;
  8. ;  Use this script to emulate wildcards for programs that do not use them.
  9. ;
  10. ;  NewDpat will use 1 wildcard and 1 directory.
  11. ;
  12. ;  ie      NewDpat "lharc x" dh0:* dh1:
  13. ;
  14. ;  I know this is a bad example, but to tell you the truth, I've never
  15. ;    ever had to use dpat in my 5 year career with the Amiga.....
  16.  
  17. echo >ENV:qw{$$} "{dir}" first=256
  18. IF $qw{$$} EQ ":"
  19.   nl {pat} -E "{com} \'%P\' \'{dir}%n\' {opt1} {opt2} {opt3} {opt4}"
  20.   skip doit
  21. ENDIF
  22. IF $qw{$$} EQ "/"
  23.   nl {pat} -E "{com} \'%P\' \'{dir}%n\' {opt1} {opt2} {opt3} {opt4}"
  24.   skip doit
  25. ENDIF
  26. IF EXISTS {dir}
  27.   nl {pat} -E "{com} \'%P\' \'{dir}/%n\' {opt1} {opt2} {opt3} {opt4}"
  28. ELSE
  29.   nl {pat} -E "{com} \'%P\' \'{dir}\' {opt1} {opt2} {opt3} {opt4}"
  30. ENDIF
  31. lab doit
  32. ;do wildcards for double arg command
  33.