home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 18 / amigaformatcd18.iso / s / dpat < prev    next >
AmigaDOS Script File  |  1997-02-27  |  873b  |  43 lines
  1. .key COM/A,PAT/A,DIR/A,OPT1,OPT2,OPT3,OPT4
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: DPat 40.3 (23.2.93)
  6. ; Do wildcards for double argument commands
  7.  
  8. FailAt 21
  9. Echo >ENV:qw{$$} "{DIR}" FIRST 256
  10.  
  11. IF "$qw{$$}" EQ ""
  12.   List >T:qw{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"%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 $qw{$$} EQ "/"
  22.   List >T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
  23.   Skip doit
  24. EndIF
  25.  
  26. IF EXISTS {DIR}
  27.   List >T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}/%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
  28. Else
  29.   List >T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}*" {OPT1} {OPT2} {OPT3} {OPT4}"
  30. EndIF
  31.  
  32. Lab doit
  33.  
  34. IF NOT FAIL
  35.   Execute T:q{$$}
  36. Else
  37.   Echo "{PAT} not found"
  38. EndIF
  39.  
  40. Delete >NIL: ENV:qw{$$} T:q{$$} QUIET
  41.  
  42. FailAt 10
  43.