;;; Source file: /usr/local/lib/jade/3.2/lisp/gzip.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:46 1994
;;; Jade 3.2

(provide (quote gzip))

(defun gzip-uncompress (file-name) (jade-byte-code "DI	1J
HI	k %
*}E" [make-process proc message concat "Uncompressing `" file-name "'" run-process "gunzip" "-c" file-error "Can't gunzip file"] 6))

(defun gzip-read-file (file-name buffer) (jade-byte-code "
 ;D4	H	H '	
F&H	F&H
GHHJE" [regexp-match "\\.(gz|Z)$" file-name cursor-pos old-pos buffer gzip-uncompress goto-char mode-name regexp-expand "^(.*)\\.(gz|Z)$" "\\1" file-modtime buffer-file-modtime set-buffer-file-name] 5))

(defun gzip-insert-file (file-name) (jade-byte-code "
 
	" [regexp-match "\\.(gz|Z)$" file-name gzip-uncompress] 3))

(defun gzip-write-file (file-name buffer) (jade-byte-code "
 D	 	
   \"II6	6
666	H
 F
F&
 u
	F&	HJ
H	Ic ~+}vH 
HJE" [regexp-match "\\.(gz|Z)$" file-name file-exists-p file-modes tmp-file-name "\\.Z$" "compress" "gzip" proc dst-file compressor tmp-name modes backup-file write-buffer buffer open "wb" (jade-byte-code "	H	" [close dst-file delete-file tmp-name] 2) make-process message concat "Compressing `" "'... " run-process "-c" 0 file-error "Can't compress file" set-file-modes] 6))

(add-hook (quote read-file-hook) (quote gzip-read-file))

(add-hook (quote insert-file-hook) (quote gzip-insert-file))

(add-hook (quote write-file-hook) (quote gzip-write-file))
