extra/log-viewer/log-viewer.factor

   1 USING: kernel io io.files io.pathnames io.monitors io.encodings.utf8 ;
   2 IN: log-viewer
   3
   4 : read-lines ( stream -- )
   5     dup stream-readln dup
   6     [ print read-lines ] [ 2drop flush ] if ;
   7
   8 : tail-file-loop ( stream monitor -- )
   9     dup next-change drop over read-lines tail-file-loop ;
  10
  11 : tail-file ( file -- )
  12     dup utf8 <file-reader> dup read-lines
  13     swap parent-directory f <monitor>
  14     tail-file-loop ;