[Mew-Win32 00343] Re: mew-folder-list (Re: C-uZ)

[Shun-ichi GOTO]

後藤＠太陽計測です


>>>>> From: Yoshinori Sakamoto/坂本佳則 <yosino-s at example.com>
> な、フォルダ数ですが、たぶん 3から4秒くらいです。（ちゃんとした計り方が
> わからんかった(^^;

チャンとしているわけじゃないですが、
*scratch*で、こんなコードを走らせて図ってみたところ、

(progn 
  (let (start stop sec msec (files nil))
    (setq start (current-time))
    (setq files (mew-folder-list "+"))
    (setq files (mew-folder-list "+"))
    (setq files (mew-folder-list "+"))
    ;;(call-process "impath" nil nil nil "--list" "+")
    ;;(call-process "impath" nil nil nil "--list" "+")
    ;;(call-process "impath" nil nil nil "--list" "+")
    (setq stop (current-time))
    (setq sec (- (nth 1 stop) (nth 1 start)))
    (setq msec (- (nth 2 stop) (nth 2 start)))
    (if (< 0 msec )
	()
      (setq sec (1- sec))
      (setq msec (/ (+ 1000000 msec) 1000)))
    (format "%d files: %d.%d seconds" (length files) sec msec)
    ))

こんな結果になりました。
＃あくまでも１例です。

;;; Results: 
;;;   meadow elisp : "1.442" seconds"
;;;   meadow perl  : "42.441 seconds"
;;;   mule4w elisp : "9.473 seconds"
;;;   mule4w perl  : "35.551 seconds"

WinNT で、フォルダのプロパティによると、
~/Mail 以下、28.2MB、ファイル数 9257、フォルダ数 88 での実験


P.S.
ちょーはやい

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN