home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / binaries / escripts.lha / Comp next >
AmigaDOS Script File  |  1993-08-27  |  818b  |  36 lines
  1. .key file,save/S,buf=10000
  2. .bra {
  3. .ket }
  4.  
  5. If "{file}" eq ""
  6.   Echo "Usage: COMP <progname> [bufsize] [SAVE]"
  7.   Quit
  8. EndIf
  9.  
  10. EPP -b{buf$10000} -s -t {file} {file}i
  11. If WARN
  12.   Echo "Quitting after errors."
  13. Else
  14.   EC {file}i
  15.   Delete >NIL: {file}
  16.   Rename >NIL: {file}i {file}
  17.   If NOT "{save}" eq "save"
  18.     Delete >NIL: {file}i.e
  19.   EndIf
  20. EndIf
  21.  
  22. Quit
  23.  
  24. ; SCRIPT NAME
  25. ;   DH0:E/Scripts/Comp
  26. ;
  27. ; ARGUMENTS
  28. ;   file = name of E source file (without the .e extension)
  29. ;   buf  = size of the read buffer (default 10000)
  30. ;   save = switch, when supplied it saves the post-process E source file
  31. ;
  32. ; EXAMPLES
  33. ;   comp myprog           ; buf size = 10000, delete post-process E source
  34. ;   comp myprog 30000     ; buf size = 30000, delete post-process E source
  35. ;   comp myprog 1000 save ; buf size = 1000, save post-process E source
  36.