home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / Elan Performer v1.0 (1989-03)(Elan Design).7z / Elan Performer v1.0 (1989-03)(Elan Design).adf / s / DPAT < prev    next >
Encoding:
AmigaDOS Script File  |  1988-01-25  |  654 b   |  25 lines
  1. .key com/a,pat/a,dir/a,opt1,opt2,opt3,opt4
  2. failat 21
  3. echo >ENV:qw<$$> "<dir>" first=256
  4. IF $qw<$$> EQ ":"
  5.   list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>%s*" <opt1> <opt2> <opt3> <opt4>"
  6.   skip doit
  7. ENDIF
  8. IF $qw<$$> EQ "/"
  9.   list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>%s*" <opt1> <opt2> <opt3> <opt4>"
  10.   skip doit
  11. ENDIF
  12. IF EXISTS <dir>
  13.   list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>/%s*" <opt1> <opt2> <opt3> <OPT4>"
  14. ELSE
  15.   list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>*" <opt1> <opt2> <opt3> <OPT4>"
  16. ENDIF
  17. lab doit
  18. IF NOT FAIL
  19.   execute t:q<$$>
  20. ELSE
  21. echo "<pat> not found"
  22. ENDIF
  23. failat 10
  24. ;do wildcards for double arg command
  25.