;; dofile tests 3 mai 98

(L dofile)

(dofile (name stats dir "" :do-not-follow-symbolic-links t) (PF "  %0\n" name))

;; find biggest file in home dir
(defun T ()
  (setqn biggest-size 0 biggest-file "NONE" biggest-dir "")
  (dofile (name stats dir "~" :do-not-follow-symbolic-links t)
    (if (> (get stats 'size 0) biggest-size) (progn
	(PF "newest biggest file: %0 %1\n" (concat-paths dir name)
	  (getn stats 'size))
	(setqn biggest-size (getn stats 'size) biggest-file name
	  biggest-dir dir)
  )))
  (print-format "Biggest file in homedir: %0%1%2, %3 bytes\n"
    biggest-dir (if (/= "" biggest-dir) "/" "") biggest-file biggest-size)
)
(T)



;;; EMACS MODES
;;; Local Variables: ***
;;; mode:lisp ***
;;; End: ***