comparison lisp/gnus/binhex.el @ 33118:a9e6d31e455f

Use (featurep 'xemacs). (binhex-char-int): New alias, replacing char-int. Change callers. (binhex-decode-region): Simplify work buffer code. (binhex-decode-region-external): Use expand-file-name, not concat.

33117:334f9d0ca32d

;;; Code:

(eval-when-compile (require 'cl))

(if (not (fboundp 'char-int))
    (fset 'char-int 'identity))

(defvar binhex-decoder-program "hexbin"
  "*Non-nil value should be a string that names a uu decoder.
The program should expect to read binhex data on its standard
input and write the converted data to its standard output.")

(defvar binhex-temporary-file-directory
  (cond ((fboundp 'temp-directory) (temp-directory))
	((boundp 'temporary-file-directory) temporary-file-directory)
	("/tmp/")))

(if (string-match "XEmacs" emacs-version)
    (defalias 'binhex-insert-char 'insert-char)
  (defun binhex-insert-char (char &optional count ignored buffer)
    (if (or (null buffer) (eq buffer (current-buffer)))
	(insert-char char count)
      (with-current-buffer buffer

	(error "CRC error")))))

(defun binhex-string-big-endian (string)
  (let ((ret 0) (i 0) (len (length string)))
    (while (< i len)
      (setq ret (+ (lsh ret 8) (char-int (aref string i)))
	    i (1+ i)))
    ret))

(defun binhex-string-little-endian (string)
  (let ((ret 0) (i 0) (shift 0) (len (length string)))
    (while (< i len)
      (setq ret (+ ret (lsh (char-int (aref string i)) shift))
	    i (1+ i)
	    shift (+ shift 8)))
    ret))

(defun binhex-header (buffer)
  (with-current-buffer buffer
    (let ((pos (point-min)) len)
      (vector
       (prog1
	   (setq len (char-int (char-after pos)))
	 (setq pos (1+ pos)))
       (buffer-substring pos (setq pos (+ pos len)))
       (prog1
	   (setq len (char-int (char-after pos)))
	 (setq pos (1+ pos)))
       (buffer-substring pos (setq pos (+ pos 4)))
       (buffer-substring pos (setq pos (+ pos 4)))
       (binhex-string-big-endian
	(buffer-substring pos (setq pos (+ pos 2))))

	binhex-last-char binhex-repeat)
    (unwind-protect
	(save-excursion
	  (goto-char start)
	  (when (re-search-forward binhex-begin-line end t)
	    (if (and (not (string-match "XEmacs\\|Lucid" emacs-version))
		     (boundp 'enable-multibyte-characters))
		(let ((multibyte
		       (default-value 'enable-multibyte-characters)))
		  (setq-default enable-multibyte-characters nil)
		  (setq work-buffer (generate-new-buffer " *binhex-work*"))
		  (setq-default enable-multibyte-characters multibyte))
	      (setq work-buffer (generate-new-buffer " *binhex-work*")))
	    (buffer-disable-undo work-buffer)
	    (beginning-of-line)
	    (setq bits 0 counter 0)
	    (while tmp
	      (skip-chars-forward non-data-chars end)
	      (setq inputpos (point))

(defun binhex-decode-region-external (start end)
  "Binhex decode region between START and END using external decoder."
  (interactive "r")
  (let ((cbuf (current-buffer)) firstline work-buffer status
	(file-name (concat binhex-temporary-file-directory
			   (binhex-decode-region start end t)
			   ".data")))
    (save-excursion
      (goto-char start)
      (when (re-search-forward binhex-begin-line nil t)
	(let ((cdir default-directory) default-process-coding-system)
	  (unwind-protect

33118:a9e6d31e455f

;;; Code:

(eval-when-compile (require 'cl))

(defalias 'binhex-char-int
  (if (fboundp 'char-int)
      'char-int
    'identity))

(defvar binhex-decoder-program "hexbin"
  "*Non-nil value should be a string that names a uu decoder.
The program should expect to read binhex data on its standard
input and write the converted data to its standard output.")

(defvar binhex-temporary-file-directory
  (cond ((fboundp 'temp-directory) (temp-directory))
	((boundp 'temporary-file-directory) temporary-file-directory)
	("/tmp/")))

(if (featurep 'xemacs)
    (defalias 'binhex-insert-char 'insert-char)
  (defun binhex-insert-char (char &optional count ignored buffer)
    (if (or (null buffer) (eq buffer (current-buffer)))
	(insert-char char count)
      (with-current-buffer buffer

	(error "CRC error")))))

(defun binhex-string-big-endian (string)
  (let ((ret 0) (i 0) (len (length string)))
    (while (< i len)
      (setq ret (+ (lsh ret 8) (binhex-char-int (aref string i)))
	    i (1+ i)))
    ret))

(defun binhex-string-little-endian (string)
  (let ((ret 0) (i 0) (shift 0) (len (length string)))
    (while (< i len)
      (setq ret (+ ret (lsh (binhex-char-int (aref string i)) shift))
	    i (1+ i)
	    shift (+ shift 8)))
    ret))

(defun binhex-header (buffer)
  (with-current-buffer buffer
    (let ((pos (point-min)) len)
      (vector
       (prog1
	   (setq len (binhex-char-int (char-after pos)))
	 (setq pos (1+ pos)))
       (buffer-substring pos (setq pos (+ pos len)))
       (prog1
	   (setq len (binhex-char-int (char-after pos)))
	 (setq pos (1+ pos)))
       (buffer-substring pos (setq pos (+ pos 4)))
       (buffer-substring pos (setq pos (+ pos 4)))
       (binhex-string-big-endian
	(buffer-substring pos (setq pos (+ pos 2))))

	binhex-last-char binhex-repeat)
    (unwind-protect
	(save-excursion
	  (goto-char start)
	  (when (re-search-forward binhex-begin-line end t)
	    (let (default-enable-multibyte-characters)
	      (setq work-buffer (generate-new-buffer " *binhex-work*")))
	    (beginning-of-line)
	    (setq bits 0 counter 0)
	    (while tmp
	      (skip-chars-forward non-data-chars end)
	      (setq inputpos (point))

(defun binhex-decode-region-external (start end)
  "Binhex decode region between START and END using external decoder."
  (interactive "r")
  (let ((cbuf (current-buffer)) firstline work-buffer status
	(file-name (expand-file-name
		    (concat (binhex-decode-region start end t) ".data")
		    binhex-temporary-file-directory)))
    (save-excursion
      (goto-char start)
      (when (re-search-forward binhex-begin-line nil t)
	(let ((cdir default-directory) default-process-coding-system)
	  (unwind-protect