Source file `omd_lexer_fs.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(***********************************************************************)
(* omd: Markdown frontend in OCaml                                     *)
(* (c) 2013 by Philippe Wang <philippe.wang@cl.cam.ac.uk>              *)
(* Licence : ISC                                                       *)
(* http://www.isc.org/downloads/software-support-policy/isc-license/   *)
(***********************************************************************)

(** You should either use this module or Omd_lexer, not both.
    This module includes Omd_lexer.
*)

include Omd_lexer

let lex_from_inchannel ic =
  (* Maintenance-easiness-driven implementation. *)
  let ic_content =
    let b = Buffer.create 64 in
    try while true do
          Buffer.add_char b (input_char ic)
        done;
        assert false
    with End_of_file -> Buffer.contents b in
  lex ic_content