ytakenaka #419(2007/07/10 02:48 GMT) [ Common Lisp ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11 12
(defun modify-checher (filename) (let ((last-update nil)) (labels ((checher (stream) (let ((present (file-write-date stream))) (unless (equal last-update present) (print "modified!") (setf last-update present))))) (with-open-file (stream filename :direction :input) (setf last-update (file-write-date stream)) (loop do (sleep 5) (checher stream))))))
Rating0/0=0.00-0+
1 reply [ reply ]
ytakenaka #421(2007/07/10 02:53 GMT) Rating0/0=0.00
失敬。冒頭に (defvar filename "foo.txt") をくわえてください。^^; 最後に、 (defun file-checher2 () (file-checher filename)) もくわえてください。(file-checher2)でお題への回答になります。
[ reply ]
ytakenaka
#419()
[
Common Lisp
]
Rating0/0=0.00
(defun modify-checher (filename) (let ((last-update nil)) (labels ((checher (stream) (let ((present (file-write-date stream))) (unless (equal last-update present) (print "modified!") (setf last-update present))))) (with-open-file (stream filename :direction :input) (setf last-update (file-write-date stream)) (loop do (sleep 5) (checher stream))))))Rating0/0=0.00-0+
1 reply [ reply ]