1 ;;; uudecode.el -- elisp native uudecode
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 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., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
30 (eval-when-compile (require 'cl))
35 (defalias 'uudecode-char-int
36 (if (fboundp 'char-int)
40 (defcustom uudecode-decoder-program "uudecode"
41 "*Non-nil value should be a string that names a uu decoder.
42 The program should expect to read uu data on its standard
43 input and write the converted data to its standard output."
47 (defcustom uudecode-decoder-switches nil
48 "*List of command line flags passed to `uudecode-decoder-program'."
50 :type '(repeat string))
52 (defcustom uudecode-use-external
53 (exec-installed-p uudecode-decoder-program)
54 "*Use external uudecode program."
59 (defconst uudecode-alphabet "\040-\140")
61 (defconst uudecode-begin-line "^begin[ \t]+[0-7][0-7][0-7][ \t]+\\(.*\\)$")
62 (defconst uudecode-end-line "^end[ \t]*$")
64 (defconst uudecode-body-line
65 (let ((i 61) (str "^M"))
66 (while (> (setq i (1- i)) 0)
67 (setq str (concat str "[^a-z]")))
70 (defvar uudecode-temporary-file-directory
71 (cond ((fboundp 'temp-directory) (temp-directory))
72 ((boundp 'temporary-file-directory) temporary-file-directory)
76 (defun uudecode-decode-region-external (start end &optional file-name)
77 "Uudecode region between START and END using external program.
78 If FILE-NAME is non-nil, save the result to FILE-NAME. The program
79 used is specified by `uudecode-decoder-program'."
81 (let ((cbuf (current-buffer)) tempfile firstline status)
84 (when (re-search-forward uudecode-begin-line nil t)
86 (setq firstline (point))
87 (cond ((null file-name))
90 (setq file-name (read-file-name "File to Name:"
93 (setq tempfile (if file-name
94 (expand-file-name file-name)
95 (if (fboundp 'make-temp-file)
96 (let ((temporary-file-directory
97 uudecode-temporary-file-directory))
98 (make-temp-file "uu"))
100 (make-temp-name "uu")
101 uudecode-temporary-file-directory))))
102 (let ((cdir default-directory)
103 default-process-coding-system)
106 (insert "begin 600 " (file-name-nondirectory tempfile) "\n")
107 (insert-buffer-substring cbuf firstline end)
108 (cd (file-name-directory tempfile))
109 (apply 'call-process-region
112 uudecode-decoder-program
116 uudecode-decoder-switches))
117 (cd cdir) (set-buffer cbuf)))
118 (if (file-exists-p tempfile)
121 (delete-region start end)
123 (insert-file-contents-literally tempfile)))
124 (message "Can not uudecode")))
125 (ignore-errors (or file-name (delete-file tempfile))))))
128 (defun uudecode-decode-region-internal (start end &optional file-name)
129 "Uudecode region between START and END without using an external program.
130 If FILE-NAME is non-nil, save the result to FILE-NAME."
136 (lim 0) inputpos result
137 (non-data-chars (concat "^" uudecode-alphabet)))
140 (when (re-search-forward uudecode-begin-line nil t)
141 (cond ((null file-name))
142 ((stringp file-name))
144 (setq file-name (expand-file-name
145 (read-file-name "File to Name:"
147 (match-string 1))))))
149 (skip-chars-forward non-data-chars end)
151 (setq inputpos (point))
152 (setq remain 0 bits 0 counter 0)
154 ((> (skip-chars-forward uudecode-alphabet end) 0)
157 (logand (- (uudecode-char-int (char-after inputpos)) 32)
159 (setq inputpos (1+ inputpos))
160 (if (= remain 0) (setq done t))
161 (while (and (< inputpos lim) (> remain 0))
165 (uudecode-char-int (char-after inputpos)) 32)
167 (if (/= counter 0) (setq remain (1- remain)))
168 (setq counter (1+ counter)
169 inputpos (1+ inputpos))
173 (char-to-string (lsh bits -16))
174 (char-to-string (logand (lsh bits -8) 255))
175 (char-to-string (logand bits 255)))
177 (setq bits 0 counter 0))
178 (t (setq bits (lsh bits 6)))))))
182 (error "uucode line ends unexpectly")
184 ((and (= (point) end) (not done))
185 ;;(error "uucode ends unexpectly")
190 (char-to-string (logand (lsh bits -16) 255))
191 (char-to-string (logand (lsh bits -8) 255)))
195 (char-to-string (logand (lsh bits -10) 255))
197 (skip-chars-forward non-data-chars end))
199 (let (default-enable-multibyte-characters)
200 (with-temp-file file-name
201 (insert (apply 'concat (nreverse result)))))
202 (or (markerp end) (setq end (set-marker (make-marker) end)))
204 (insert (apply 'concat (nreverse result)))
205 (delete-region (point) end))))))
208 (defun uudecode-decode-region (start end &optional file-name)
209 "Uudecode region between START and END.
210 If FILE-NAME is non-nil, save the result to FILE-NAME."
211 (if uudecode-use-external
212 (uudecode-decode-region-external start end file-name)
213 (uudecode-decode-region-internal start end file-name)))
217 ;;; uudecode.el ends here