sig
  type qname_lexer = Lexing.lexbuf -> string option * string
  val register_qname_lexer :
    Encoding.encoding -> Qname_lexer.qname_lexer -> unit
  val parse_qname : Lexing.lexbuf -> string option * string
end