home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 21
/
amigaformatcd21.iso
/
s
/
dpat
< prev
next >
Wrap
AmigaDOS Script File
|
1997-02-27
|
873b
|
43 lines
.key COM/A,PAT/A,DIR/A,OPT1,OPT2,OPT3,OPT4
.bra {
.ket }
; $VER: DPat 40.3 (23.2.93)
; Do wildcards for double argument commands
FailAt 21
Echo >ENV:qw{$$} "{DIR}" FIRST 256
IF "$qw{$$}" EQ ""
List >T:qw{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
Skip doit
EndIF
IF $qw{$$} EQ ":"
List >T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
Skip doit
EndIF
IF $qw{$$} EQ "/"
List >T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
Skip doit
EndIF
IF EXISTS {DIR}
List >T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}/%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
Else
List >T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}*" {OPT1} {OPT2} {OPT3} {OPT4}"
EndIF
Lab doit
IF NOT FAIL
Execute T:q{$$}
Else
Echo "{PAT} not found"
EndIF
Delete >NIL: ENV:qw{$$} T:q{$$} QUIET
FailAt 10