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))
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."
58 (defconst uudecode-alphabet "\040-\140")
60 (defconst uudecode-begin-line "^begin[ \t]+[0-7][0-7][0-7][ \t]+\\(.*\\)$")
61 (defconst uudecode-end-line "^end[ \t]*$")
63 (defconst uudecode-body-line
64 (let ((i 61) (str "^M"))
65 (while (> (setq i (1- i)) 0)
66 (setq str (concat str "[^a-z]")))
69 (defvar uudecode-temporary-file-directory
70 (cond ((fboundp 'temp-directory) (temp-directory))
71 ((boundp 'temporary-file-directory) temporary-file-directory)
75 (defun uudecode-decode-region-external (start end &optional file-name)
76 "Uudecode region between START and END using external program.
77 If FILE-NAME is non-nil, save the result to FILE-NAME. The program
78 used is specified by `uudecode-decoder-program'."
80 (let ((cbuf (current-buffer)) tempfile firstline status)
83 (when (re-search-forward uudecode-begin-line nil t)
85 (setq firstline (point))
86 (cond ((null file-name))
89 (setq file-name (read-file-name "File to Name:"
92 (setq tempfile (if file-name
93 (expand-file-name file-name)
94 (if (fboundp 'make-temp-file)
95 (let ((temporary-file-directory
96 uudecode-temporary-file-directory))
97 (make-temp-file "uu"))
100 uudecode-temporary-file-directory))))
101 (let ((cdir default-directory)
102 default-process-coding-system)
105 (insert "begin 600 " (file-name-nondirectory tempfile) "\n")
106 (insert-buffer-substring cbuf firstline end)
107 (cd (file-name-directory tempfile))
108 (apply 'call-process-region
111 uudecode-decoder-program
115 uudecode-decoder-switches))
116 (cd cdir) (set-buffer cbuf)))
117 (if (file-exists-p tempfile)
120 (delete-region start end)
122 (insert-file-contents-literally tempfile)))
123 (message "Can not uudecode")))
124 (ignore-errors (or file-name (delete-file tempfile))))))
127 (defun uudecode-decode-region-internal (start end &optional file-name)
128 "Uudecode region between START and END without using an external program.
129 If FILE-NAME is non-nil, save the result to FILE-NAME."
135 (lim 0) inputpos result
136 (non-data-chars (concat "^" uudecode-alphabet)))
139 (when (re-search-forward uudecode-begin-line nil t)
140 (cond ((null file-name))
141 ((stringp file-name))
143 (setq file-name (expand-file-name
144 (read-file-name "File to Name:"
146 (match-string 1))))))
148 (skip-chars-forward non-data-chars end)
150 (setq inputpos (point))
151 (setq remain 0 bits 0 counter 0)
153 ((> (skip-chars-forward uudecode-alphabet end) 0)
156 (logand (- (uudecode-char-int (char-after inputpos)) 32)
158 (setq inputpos (1+ inputpos))
159 (if (= remain 0) (setq done t))
160 (while (and (< inputpos lim) (> remain 0))
164 (uudecode-char-int (char-after inputpos)) 32)
166 (if (/= counter 0) (setq remain (1- remain)))
167 (setq counter (1+ counter)
168 inputpos (1+ inputpos))
172 (char-to-string (lsh bits -16))
173 (char-to-string (logand (lsh bits -8) 255))
174 (char-to-string (logand bits 255)))
176 (setq bits 0 counter 0))
177 (t (setq bits (lsh bits 6)))))))
181 (error "uucode line ends unexpectly")
183 ((and (= (point) end) (not done))
184 ;;(error "uucode ends unexpectly")
189 (char-to-string (logand (lsh bits -16) 255))
190 (char-to-string (logand (lsh bits -8) 255)))
194 (char-to-string (logand (lsh bits -10) 255))
196 (skip-chars-forward non-data-chars end))
198 (let (default-enable-multibyte-characters)
199 (with-temp-file file-name
200 (insert (apply 'concat (nreverse result)))))
201 (or (markerp end) (setq end (set-marker (make-marker) end)))
203 (insert (apply 'concat (nreverse result)))
204 (delete-region (point) end))))))
207 (defun uudecode-decode-region (start end &optional file-name)
208 "Uudecode region between START and END.
209 If FILE-NAME is non-nil, save the result to FILE-NAME."
210 (if uudecode-use-external
211 (uudecode-decode-region-external start end file-name)
212 (uudecode-decode-region-internal start end file-name)))
216 ;;; uudecode.el ends here