let monitor desc size = ignore (lseek desc 0 SEEK_END); let buffer = String.create buffer_size in while true do let rec read_all() = match read desc buffer 0 buffer_size with 0 -> () | len -> ignore (write stdout buffer 0 len); read_all () in read_all(); sleep 1; done;; |