Function: archive-dosdate

archive-dosdate is a byte-compiled function defined in arc-mode.el.gz.

Signature

(archive-dosdate DATE)

Documentation

Stringify dos packed DATE record.

Source Code

;; Defined in /usr/src/emacs/lisp/arc-mode.el.gz
(defun archive-dosdate (date)
  "Stringify dos packed DATE record."
  (let ((year (+ 1980 (logand (ash date -9) 127)))
        (month (logand (ash date -5) 15))
        (day (logand date 31)))
    (if (or (> month 12) (< month 1))
        ""
      (format "%2d-%s-%d"
              day
              (aref ["Jan" "Feb" "Mar" "Apr" "May" "Jun"
                     "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"]
                    (1- month))
              year))))