sig
  exception No_match
  class virtual ['i] scanner :
    'i Cf_seq.t ->
    object
      val mutable next_ : 'i Cf_seq.t
      method fini : 'i Cf_seq.t
      method private virtual get : char
      method init : Scanf.Scanning.scanbuf
    end
  val cscanf :
    ('i Cf_seq.t -> ('i #Cf_scan_parser.scanner as 's)) ->
    ('s -> exn -> 'o) ->
    ('f, Scanf.Scanning.scanbuf, 'u, 'f -> 'o, 'f -> 'o, 'o) format6 ->
    'f -> ('i, 'o) Cf_parser.t
  val scanf :
    ('f, Scanf.Scanning.scanbuf, 'u, 'f -> 'o, 'f -> 'o, 'o) format6 ->
    'f -> (char, 'o) Cf_parser.t
  val scanfx :
    ('f, Scanf.Scanning.scanbuf, 'u, 'f -> 'o, 'f -> 'o, 'o) format6 ->
    'f -> (char #Cf_parser.cursor, char, 'o) Cf_parser.X.t
end