(* log.mli - Don Yang (uguu.org)

   10/12/07
                                                                           *)

(* Special events *)
val start_marker : string
val end_marker : string

(* Append block to file.  First string is the file name, second string
   is the data to write.                                               *)
val append_block_to_file : string -> string -> unit

(* Read file, return log events, last timestamp, and abbreviations.  Log
   file will contain (timestamp, event) tuples, most recent event first. *)
val read_file_to_log : in_channel ->
   (float * string) list * float * (string, string) Hashtbl.t

(* Read stdin, return log events, dropping last timestamp and abbreviations. *)
val read_stdin_to_log : unit -> (float * string) list

(* Find last event in log matching key.  Raises Not_found if no
   matching event was found.                                    *)
val find_last_event_prefix : (float * string) list -> string -> string
val find_last_event_substr : (float * string) list -> string -> string