workbench/s/DPat

   1 .key COM/A,PAT/A,DIR/A,OPT1,OPT2,OPT3,OPT4
   2 .bra {
   3 .ket }
   4
   5 ; Wildcards for commands with no wildcard support
   6 ; Only the first argument can be a wildcard and the second one a directory
   7
   8 FailAt 21
   9
  10 IF EXISTS {DIR}
  11     List TO T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}/%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
  12 Else
  13     List TO T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" *"{DIR}*" {OPT1} {OPT2} {OPT3} {OPT4}"
  14 EndIF
  15
  16 IF NOT FAIL
  17     Execute T:q{$$}
  18 Else
  19     Echo "{PAT} not found"
  20 EndIF
  21
  22 Delete T:q{$$} QUIET >NIL:
  23
  24 FailAt 10