X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel-g.el;h=9f791972e5f3858c2a8e7c9b7416a3e570c2c7c0;hb=b088147cccceb654715f9e540eb3a0bd20afc7a0;hp=fdc5ddb18cf4a30fc9e58fd1db3327461a7fb190;hpb=025e3fdc81e0e8cadcfdeb733595d3f546c00c8a;p=elisp%2Fflim.git diff --git a/mel-g.el b/mel-g.el index fdc5ddb..9f79197 100644 --- a/mel-g.el +++ b/mel-g.el @@ -1,84 +1,130 @@ -;;; -;;; mel-g.el: Gzip64 encoder/decoder for GNU Emacs -;;; -;;; Copyright (C) 1995,1996 MORIOKA Tomohiko -;;; Copyright (C) 1996 Shuhei KOBAYASHI -;;; -;;; Author: MORIOKA Tomohiko -;;; Shuhei KOBAYASHI -;;; Created: 1995/10/25 -;;; Version: -;;; $Id: mel-g.el,v 1.1 1996/03/11 17:01:45 shuhei Exp $ -;;; Keywords: MIME, base64, gzip -;;; -;;; This file is not part of MEL (MIME Encoding Library) yet. -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; +;;; mel-g.el --- Gzip64 encoder/decoder. + +;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko +;; Copyright (C) 1996,1997,1999 Shuhei KOBAYASHI + +;; Author: Shuhei KOBAYASHI +;; MORIOKA Tomohiko +;; Maintainer: Shuhei KOBAYASHI +;; Created: 1995/10/25 +;; Keywords: Gzip64, base64, gzip, MIME + +;; This file is part of FLIM (Faithful Library about Internet Message). + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;;; NOTE: Gzip64 is an experimental Content-Transfer-Encoding and its +;;; use is STRONGLY DISCOURAGED except for private communication. + ;;; Code: +(require 'mime-def) +(require 'path-util) + + ;;; @ variables ;;; -(defvar gzip64-external-encoder '("sh" "-c" "gzip -c | mmencode") +(defvar gzip64-external-encoder + (let ((file (exec-installed-p "mmencode"))) + (and file + (` ("sh" "-c" (, (concat "gzip -c | " file)))))) "*list of gzip64 encoder program name and its arguments.") -(defvar gzip64-external-decoder '("sh" "-c" "mmencode -u | gzip -dc") +(defvar gzip64-external-decoder + (let ((file (exec-installed-p "mmencode"))) + (and file + (` ("sh" "-c" (, (concat file " -u | gzip -dc")))))) "*list of gzip64 decoder program name and its arguments.") -;;; @ external encoder +;;; @ encoder/decoder for region ;;; -(cond ((boundp 'MULE) - (define-program-coding-system - nil (car gzip64-external-encoder) *noconv*) - (define-program-coding-system - nil (car gzip64-external-decoder) *noconv*) - ) - ((boundp 'NEMACS) - (define-program-kanji-code - nil (car gzip64-external-encoder) 0) - (define-program-kanji-code - nil (car gzip64-external-decoder) 0) - )) - (defun gzip64-external-encode-region (beg end) (interactive "*r") (save-excursion - (let (selective-display ; Disable ^M to nl translation. - mc-flag ; for Mule - kanji-flag) ; for NEmacs + (let ((coding-system-for-write 'binary)) (apply (function call-process-region) beg end (car gzip64-external-encoder) - t t nil (cdr gzip64-external-encoder)) - ))) + t t nil + (cdr gzip64-external-encoder))) + ;; for OS/2 + ;; regularize line break code + ;;(goto-char (point-min)) + ;;(while (re-search-forward "\r$" nil t) + ;; (replace-match "")) + )) (defun gzip64-external-decode-region (beg end) (interactive "*r") (save-excursion - (let ((selective-display nil) ; Disable ^M to nl translation. - (mc-flag nil) ; for Mule - (kanji-flag nil)) ; for NEmacs + (let ((coding-system-for-read 'binary)) (apply (function call-process-region) - beg end (car gzip64-external-decoder) - t t nil (cdr gzip64-external-decoder)) - ))) + beg end (car gzip64-external-decoder) + t t nil + (cdr gzip64-external-decoder))))) + +(mel-define-method-function (mime-encode-region start end (nil "x-gzip64")) + 'gzip64-external-encode-region) +(mel-define-method-function (mime-decode-region start end (nil "x-gzip64")) + 'gzip64-external-decode-region) + + +;;; @ encoder/decoder for string +;;; + +(mel-define-method mime-encode-string (string (nil "x-gzip64")) + (with-temp-buffer + (insert string) + (gzip64-external-encode-region (point-min)(point-max)) + (buffer-string))) + +(mel-define-method mime-decode-string (string (nil "x-gzip64")) + (with-temp-buffer + (insert string) + (gzip64-external-decode-region (point-min)(point-max)) + (buffer-string))) + + +;;; @ encoder/decoder for file +;;; + +(mel-define-method mime-insert-encoded-file (filename (nil "x-gzip64")) + (interactive "*fInsert encoded file: ") + (apply (function call-process) + (car gzip64-external-encoder) + filename t nil + (cdr gzip64-external-encoder))) -(defalias 'gzip64-encode-region 'gzip64-external-encode-region) -(defalias 'gzip64-decode-region 'gzip64-external-decode-region) +(mel-define-method mime-write-decoded-region (start end filename + (nil "x-gzip64")) + "Decode and write current region encoded by gzip64 into FILENAME. +START and END are buffer positions." + (interactive "*r\nFWrite decoded region to file: ") + (let ((coding-system-for-read 'binary) + (coding-system-for-write 'binary)) + (apply (function call-process-region) + start end (car gzip64-external-decoder) + nil nil nil + (let ((args (cdr gzip64-external-decoder))) + (append (butlast args) + (list (concat (car (last args)) ">" filename))))))) ;;; @ end