Re: No encode-time() in ふる〜〜い Emacs

[Katsumi Yamaoka <yamaoka@xxxxxxx>]

>>>>> In [emacs-w3m : No.00511] 
>>>>>	Hideyuki SHIRAI (白井秀行) <shirai@rdmg.mgcs.mei.co.jp> wrote:

白井さん> で、もう少し凝ったことをしようと思い、encode-time() や
白井さん> decode-time() の実験をしたところ、Emacs-19.28 はこれらを持っ
白井さん> ていないのでした。APEL も定義していないようだし。

白井さん> # 19.29 からみたいですね、このへん。

;; 20世紀に、ある特定のマシンで作った Mule 19.34 で、encode-time
;; が返す値が変なのがあります。
;;
;;(equal (encode-time 0 0 0 1 1 2001 0)
;;       (encode-time 0 0 0 1 1 2001 43200))
;; => t
;;
;; こういうのの対策も考慮しないといけないかもしれませんね。

白井さん> decode-time() をつくるのはできると思うのですが、

;; う〜ん、要は 1970 年から始まるカレンダー全部、とまでは行かな
;; くても、まじめに leap を計算することになるんでしょうか?

白井さん> すでに w3m.el で使われている encode-time() って作るの結構難
白井さん> しかしら？よくわかんない。

;; GNU touch があるものとして、
;;
;;(progn
;;  (call-process "touch" nil nil nil
;;                "-amt" "123112341970.56"
;;                "/tmp/hoge")
;;  (prog1
;;      (nth 5 (file-attributes "/tmp/hoge"))
;;    (delete-file "/tmp/hoge")))
;; => (480 5216)
;;
;; これを最近の Emacs で確認すると、
;;
;;(decode-time '(480 5216))
;; => (56 34 12 31 12 1970 4 nil 32400)
-- 
Katsumi Yamaoka <yamaoka@jpl.org>
;; 行頭の ";;" がぜったい必要な内容でした。ごめんなさい。_o_