home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-1.DMS / in.adf / S / DPat next >
Encoding:
AmigaDOS Script File  |  1991-07-16  |  668 b   |  27 lines
  1. .key com/a,pat/a,dir/a,opt1,opt2,opt3,opt4
  2. failat 21
  3. .bra {
  4. .ket }
  5. echo >ENV:qw{$$} "{dir}" first=256
  6. IF $qw{$$} EQ ":"
  7.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
  8.   skip doit
  9. ENDIF
  10. IF $qw{$$} EQ "/"
  11.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
  12.   skip doit
  13. ENDIF
  14. IF EXISTS {dir}
  15.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}/%s*" {opt1} {opt2} {opt3} {OPT4}"
  16. ELSE
  17.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}*" {opt1} {opt2} {opt3} {OPT4}"
  18. ENDIF
  19. lab doit
  20. IF NOT FAIL
  21.   execute t:q{$$}
  22. ELSE
  23. echo "{pat} not found"
  24. ENDIF
  25. failat 10
  26. ;do wildcards for double arg command
  27.