home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / s / dpat < prev    next >
AmigaDOS Script File  |  1996-05-20  |  709b  |  36 lines
  1. .key com/a,pat/a,dir/a,opt1,opt2,opt3,opt4
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: dpat 38.1 (11.10.91)
  6. ; Do wildcards for double arg commands
  7.  
  8. FailAt 21
  9. Echo >ENV:qw{$$} "{dir}" FIRST 256
  10.  
  11. IF $qw{$$} EQ ":"
  12.   List >T:q{$$} {pat} LFORMAT "{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
  13.   Skip doit
  14. EndIF
  15.  
  16. IF $qw{$$} EQ "/"
  17.   List >T:q{$$} {pat} LFORMAT "{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
  18.   Skip doit
  19. EndIF
  20.  
  21. IF EXISTS {dir}
  22.   List >T:q{$$} {pat} LFORMAT "{com} *"%s%s*" *"{dir}/%s*" {opt1} {opt2} {opt3} {OPT4}"
  23. Else
  24.   List >T:q{$$} {pat} LFORMAT "{com} *"%s%s*" *"{dir}*" {opt1} {opt2} {opt3} {OPT4}"
  25. EndIF
  26.  
  27. Lab doit
  28.  
  29. IF NOT FAIL
  30.   Execute T:q{$$}
  31. Else
  32.   Echo "{pat} not found"
  33. EndIF
  34.  
  35. FailAt 10
  36.