current-time

[Shuhei KOBAYASHI]

>>>>> In <fzhfima25f.wl ＠ gohome.org>,
>>>>> Yuuichi Teranishi <teranisi ＠ gohome.org> wrote:
> (defun tera:current-time ()
>   (let* ((cts (split-string (current-time-string) "[ :]"))

v18 の current-time は ctime(3) を呼び出しているわけですが, これは
locale によって影響を受けたりしないんでしょうか?
;; よく知らないけど, そんな OS があったらイヤだなぁ.

また, ctime(3) の結果は "26 characters long" になるとどこかで決まっ
ているのでしょうか? (うしろに "\n\0" が付くので 26 characters)
;; FreeBSD ではそう書いてあるけど, とりあえず portable とは信じない:-)
    
もしこれが両方とも成り立つなら, split-string なんか使わずに決めうち
で substring してしまった方が速いような気がします.
;; お, 最初の水戸さんの版はそうなっていたみたいですね.

正規表現で match する場合でも, grouping を使って 1 回の string-match
で済ませた方がまだ split-string よりはいいと思います.

-- 
Shuhei KOBAYASHI
;; 誰かついでに v19 で増えた current-time-string の引数の対応もやり
;; ませんか? 場当り的な対処と言われないように;-)