Source file Lines.ml

type t = string Seq.t

type 'a loader = string -> t -> 'a

let rec of_channel input () = 
  try (
    let line = input_line input in
    Seq.Cons(line, (of_channel input))
  ) 
  with End_of_file -> Seq.Nil
  
let rec load_list terminator item_loader first_line input =
  if first_line=terminator then
    []
  else
    let first = item_loader first_line input in
    match Seq.uncons input with
    | None -> failwith "Unexpected end of input"
    | Some (first_line, input) ->
        first :: load_list terminator item_loader first_line input

let load_line first_line _input = first_line
  
let of_string s = 
  let elements = ref (String.split_on_char '\n' s) in
  Seq.of_dispenser (fun () ->
    match !elements with
    | [] -> None
    | x::xs -> elements := xs; Some x 
  )

let load loader lines = 
  match Seq.uncons lines with
  | None -> failwith "Unexpected end of input"
  | Some (first_line, lines) -> loader first_line lines