.key file,save/S,buf=10000
.bra {
.ket }

If "{file}" eq ""
  Echo "Usage: COMP <progname> [bufsize] [SAVE]"
  Quit
EndIf

EPP -b{buf$10000} -s -t {file} {file}i
If WARN
  Echo "Quitting after errors."
Else
  EC {file}i
  Delete >NIL: {file}
  Rename >NIL: {file}i {file}
  If NOT "{save}" eq "save"
    Delete >NIL: {file}i.e
  EndIf
EndIf

Quit

; SCRIPT NAME
;   DH0:E/Scripts/Comp
;
; ARGUMENTS
;   file = name of E source file (without the .e extension)
;   buf  = size of the read buffer (default 10000)
;   save = switch, when supplied it saves the post-process E source file
;
; EXAMPLES
;   comp myprog           ; buf size = 10000, delete post-process E source
;   comp myprog 30000     ; buf size = 30000, delete post-process E source
;   comp myprog 1000 save ; buf size = 1000, save post-process E source