+2

src/code_mirror.ml

··· 1 1 module Editor = Editor 2 2 module Text = Text 3 3 + module Stream = Stream 4 4 + module Language = Language 3 5 module Extension = Extension

+2

src/language.ml

··· 1 1 + type t = Jv.t 2 2 + include (Jv.Id : Jv.CONV with type t := t)

+3

src/language.mli

··· 1 1 + type t 2 2 + 3 3 + include Jv.CONV with type t := t

+10

src/stream.ml

··· 1 1 + let g = Jv.get Jv.global "__CM__stream_parser" 2 2 + 3 3 + module Language = struct 4 4 + type t = Jv.t 5 5 + 6 6 + let g = Jv.get g "StreamLanguage" 7 7 + 8 8 + let define (l : Language.t) = 9 9 + Jv.call g "define" [| Language.to_jv l |] |> Extension.of_jv 10 10 + end