comparison lisp/arc-mode.el @ 49238:86973b914660

(archive-arc-rename-entry): Fix error message. (archive-lzh-summarize): Replace local var `path' with `dir'. (archive-unique-fname) [!MSDOS]: Avoid byte-compiler warning.

49237:9a2cb7cc7942

  (let ((fullname (expand-file-name fname dir))
	(alien (string-match file-name-invalid-regexp fname)))
    (if (or alien (file-exists-p fullname))
	(make-temp-file
	 (expand-file-name
	  (if (and (fboundp 'msdos-long-file-names)
		   (not (msdos-long-file-names)))
	      "am"
	    "arc-mode.")
	  dir))
      fullname)))

	      "\n"))
    (apply 'vector (nreverse files))))

(defun archive-arc-rename-entry (archive newname descr)
  (if (string-match "[:\\\\/]" newname)
      (error "File names in arc files may not contain a path"))
  (if (> (length newname) 12)
      (error "File names in arc files are limited to 12 characters"))
  (let ((name (concat newname (substring "\0\0\0\0\0\0\0\0\0\0\0\0\0"
					 (length newname))))
	buffer-read-only)

	     (fiddle  (string= efnname (upcase efnname)))
             (ifnname (if fiddle (downcase efnname) efnname))
	     (width (string-width ifnname))
	     (p2      (+ p 22 fnlen))
	     (creator (if (>= (- hsize fnlen) 24) (char-after (+ p2 2)) 0))
	     mode modestr uid gid text path prname
	     )
	(if (= hdrlvl 0)
	    (setq mode    (if (= creator ?U) (archive-l-e (+ p2 8) 2) ?\666)
		  uid     (if (= creator ?U) (archive-l-e (+ p2 10) 2))
		  gid     (if (= creator ?U) (archive-l-e (+ p2 12) 2)))

		     (etype (char-after (+ p3 2))))
		(while (not (= hsize 0))
		  (cond
		   ((= etype 2) (let ((i (+ p3 3)))
				  (while (< i (+ p3 hsize))
				    (setq path (concat path
						       (if (= (char-after i)
							      255)
							   "/"
							 (char-to-string
							  (char-after i)))))

					(setq gid (archive-l-e (+ p3 5) 2))))
		   )
		  (setq p3 (+ p3 hsize))
		  (setq hsize (archive-l-e p3 2))
		  (setq etype (char-after (+ p3 2)))))))
	(setq prname (if path (concat path ifnname) ifnname))
	(setq modestr (if mode (archive-int-to-mode mode) "??????????"))
	(setq text    (if archive-alternate-display
			  (format "  %8d  %5S  %5S  %s"
				  ucsize
				  (or uid "?")

49238:86973b914660

  (let ((fullname (expand-file-name fname dir))
	(alien (string-match file-name-invalid-regexp fname)))
    (if (or alien (file-exists-p fullname))
	(make-temp-file
	 (expand-file-name
	  (if (if (fboundp 'msdos-long-file-names)
		  (not (msdos-long-file-names)))
	      "am"
	    "arc-mode.")
	  dir))
      fullname)))

	      "\n"))
    (apply 'vector (nreverse files))))

(defun archive-arc-rename-entry (archive newname descr)
  (if (string-match "[:\\\\/]" newname)
      (error "File names in arc files must not contain a directory component"))
  (if (> (length newname) 12)
      (error "File names in arc files are limited to 12 characters"))
  (let ((name (concat newname (substring "\0\0\0\0\0\0\0\0\0\0\0\0\0"
					 (length newname))))
	buffer-read-only)

	     (fiddle  (string= efnname (upcase efnname)))
             (ifnname (if fiddle (downcase efnname) efnname))
	     (width (string-width ifnname))
	     (p2      (+ p 22 fnlen))
	     (creator (if (>= (- hsize fnlen) 24) (char-after (+ p2 2)) 0))
	     mode modestr uid gid text dir prname
	     )
	(if (= hdrlvl 0)
	    (setq mode    (if (= creator ?U) (archive-l-e (+ p2 8) 2) ?\666)
		  uid     (if (= creator ?U) (archive-l-e (+ p2 10) 2))
		  gid     (if (= creator ?U) (archive-l-e (+ p2 12) 2)))

		     (etype (char-after (+ p3 2))))
		(while (not (= hsize 0))
		  (cond
		   ((= etype 2) (let ((i (+ p3 3)))
				  (while (< i (+ p3 hsize))
				    (setq dir (concat dir
						       (if (= (char-after i)
							      255)
							   "/"
							 (char-to-string
							  (char-after i)))))

					(setq gid (archive-l-e (+ p3 5) 2))))
		   )
		  (setq p3 (+ p3 hsize))
		  (setq hsize (archive-l-e p3 2))
		  (setq etype (char-after (+ p3 2)))))))
	(setq prname (if dir (concat dir ifnname) ifnname))
	(setq modestr (if mode (archive-int-to-mode mode) "??????????"))
	(setq text    (if archive-alternate-display
			  (format "  %8d  %5S  %5S  %s"
				  ucsize
				  (or uid "?")