"
let stop_verbatim inline =
if inline then printf ""
else printf "\n"
let url addr name =
printf "%s" addr
(match name with
| Some n -> n
| None -> addr)
let ident_ref m fid typ s =
match find_module m with
| Local ->
printf "" m fid;
printf "%s" typ s
| External m when !externals ->
printf "" m fid;
printf "%s" typ s
| External _ | Unknown ->
printf "%s" typ s
let reference s r =
match r with
| Def (fullid,ty) ->
printf "" fullid;
printf "%s" (type_name ty) s
| Ref (m,fullid,ty) ->
ident_ref m fullid (type_name ty) s
let output_sublexer_string doescape issymbchar tag s =
let s = if doescape then escaped s else s in
match tag with
| Some ref -> reference s ref
| None ->
if issymbchar then output_string s
else printf "%s" s
let sublexer c loc =
let tag =
try Some (Index.find (get_module false) loc) with Not_found -> None
in
Tokens.output_tagged_symbol_char tag c
let initialize () =
initialize_tex_html();
Tokens.token_tree := token_tree_html;
Tokens.outfun := output_sublexer_string
let translate s =
match Tokens.translate s with Some s -> s | None -> escaped s
let keyword s loc =
printf "%s" (translate s)
let ident s loc =
if is_keyword s then begin
printf "%s" (translate s)
end else begin
try reference (translate s) (Index.find (get_module false) loc)
with Not_found ->
if is_tactic s then
printf "%s" (translate s)
else
if !Cdglobals.interpolate && !in_doc (* always a var otherwise *)
then
try reference (translate s) (Index.find_string (get_module false) s)
with _ -> Tokens.output_tagged_ident_string s
else
Tokens.output_tagged_ident_string s
end
let proofbox () = printf "☐"
let rec reach_item_level n =
if !item_level < n then begin
printf "| \n"; (match midnm with | None -> printf " \n | " | Some s -> printf " %s \n " s); printf "\n"; printf "