Welcome to Euroland
[AROS.git] / workbench / s / SPat
blob25053b15c4ab79ee6dc4728e2a15b53ca471a672
1 .key COM/A,PAT/A,OPT1,OPT2,OPT3,OPT4
2 .bra {
3 .ket }
5 ; Wildcards for commands with no wildcard support
6 ; Only the first argument can be a wildcard
8 FailAt 21
10 List TO T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
12 IF NOT FAIL
13     Execute T:q{$$}
14 Else
15     Echo "{PAT} not found"
16 EndIF
18 Delete T:q{$$} QUIET >NIL:
20 FailAt 10