1 ;;; uudecode.el -- elisp native uudecode
3 ;; Copyright (c) 1998, 1999, 2000, 2001, 2003, 2004
4 ;; Free Software Foundation, Inc.
6 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
7 ;; Keywords: uudecode news
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
30 (eval-when-compile (require 'cl))
33 (defalias 'uudecode-char-int
34 (if (fboundp 'char-int)
38 (defcustom uudecode-decoder-program "uudecode"
39 "*Non-nil value should be a string that names a uu decoder.
40 The program should expect to read uu data on its standard
41 input and write the converted data to its standard output."
45 (defcustom uudecode-decoder-switches nil
46 "*List of command line flags passed to `uudecode-decoder-program'."
48 :type '(repeat string))
50 (defcustom uudecode-use-external
51 (executable-find uudecode-decoder-program)
52 "*Use external uudecode program."
56 (defconst uudecode-alphabet "\040-\140")
58 (defconst uudecode-begin-line "^begin[ \t]+[0-7][0-7][0-7][ \t]+\\(.*\\)$")
59 (defconst uudecode-end-line "^end[ \t]*$")
61 (defconst uudecode-body-line
62 (let ((i 61) (str "^M"))
63 (while (> (setq i (1- i)) 0)
64 (setq str (concat str "[^a-z]")))
67 (defvar uudecode-temporary-file-directory
68 (cond ((fboundp 'temp-directory) (temp-directory))
69 ((boundp 'temporary-file-directory) temporary-file-directory)
73 (defun uudecode-decode-region-external (start end &optional file-name)
74 "Uudecode region between START and END using external program.
75 If FILE-NAME is non-nil, save the result to FILE-NAME. The program
76 used is specified by `uudecode-decoder-program'."
78 (let ((cbuf (current-buffer)) tempfile firstline status)
81 (when (re-search-forward uudecode-begin-line nil t)
83 (setq firstline (point))
84 (cond ((null file-name))
87 (setq file-name (read-file-name "File to Name:"
90 (setq tempfile (if file-name
91 (expand-file-name file-name)
92 (if (fboundp 'make-temp-file)
93 (let ((temporary-file-directory
94 uudecode-temporary-file-directory))
95 (make-temp-file "uu"))
98 uudecode-temporary-file-directory))))
99 (let ((cdir default-directory)
100 default-process-coding-system)
103 (insert "begin 600 " (file-name-nondirectory tempfile) "\n")
104 (insert-buffer-substring cbuf firstline end)
105 (cd (file-name-directory tempfile))
106 (apply 'call-process-region
109 uudecode-decoder-program
113 uudecode-decoder-switches))
114 (cd cdir) (set-buffer cbuf)))
115 (if (file-exists-p tempfile)
118 (delete-region start end)
120 (insert-file-contents-literally tempfile)))
121 (message "Can not uudecode")))
122 (ignore-errors (or file-name (delete-file tempfile))))))
125 (defun uudecode-decode-region-internal (start end &optional file-name)
126 "Uudecode region between START and END without using an external program.
127 If FILE-NAME is non-nil, save the result to FILE-NAME."
133 (lim 0) inputpos result
134 (non-data-chars (concat "^" uudecode-alphabet)))
137 (when (re-search-forward uudecode-begin-line nil t)
138 (cond ((null file-name))
139 ((stringp file-name))
141 (setq file-name (expand-file-name
142 (read-file-name "File to Name:"
144 (match-string 1))))))
146 (skip-chars-forward non-data-chars end)
148 (setq inputpos (point))
149 (setq remain 0 bits 0 counter 0)
151 ((> (skip-chars-forward uudecode-alphabet end) 0)
154 (logand (- (uudecode-char-int (char-after inputpos)) 32)
156 (setq inputpos (1+ inputpos))
157 (if (= remain 0) (setq done t))
158 (while (and (< inputpos lim) (> remain 0))
162 (uudecode-char-int (char-after inputpos)) 32)
164 (if (/= counter 0) (setq remain (1- remain)))
165 (setq counter (1+ counter)
166 inputpos (1+ inputpos))
170 (char-to-string (lsh bits -16))
171 (char-to-string (logand (lsh bits -8) 255))
172 (char-to-string (logand bits 255)))
174 (setq bits 0 counter 0))
175 (t (setq bits (lsh bits 6)))))))
179 (error "uucode line ends unexpectly")
181 ((and (= (point) end) (not done))
182 ;;(error "uucode ends unexpectly")
187 (char-to-string (logand (lsh bits -16) 255))
188 (char-to-string (logand (lsh bits -8) 255)))
192 (char-to-string (logand (lsh bits -10) 255))
194 (skip-chars-forward non-data-chars end))
196 (let (default-enable-multibyte-characters)
197 (with-temp-file file-name
198 (insert (apply 'concat (nreverse result)))))
199 (or (markerp end) (setq end (set-marker (make-marker) end)))
201 (insert (apply 'concat (nreverse result)))
202 (delete-region (point) end))))))
205 (defun uudecode-decode-region (start end &optional file-name)
206 "Uudecode region between START and END.
207 If FILE-NAME is non-nil, save the result to FILE-NAME."
208 (if uudecode-use-external
209 (uudecode-decode-region-external start end file-name)
210 (uudecode-decode-region-internal start end file-name)))
214 ;;; arch-tag: e1f09ed5-62b4-4677-9f13-4e81c4fe8ce3
215 ;;; uudecode.el ends here