type simple_fonttype = | Type1| MMType1| Type3 of type3_glpyhs| Truetype
type fontmetrics = float arraytype fontfile = | FontFile of int| FontFile2 of int| FontFile3 of int
type fontdescriptor = {ascent : float;descent : float;leading : float;avgwidth : float;maxwidth : float;fontfile : fontfile option;charset : string list option;tounicode : (int, string) Hashtbl.t option;
}type differences = (string * int) listtype encoding = | ImplicitInFontFile| StandardEncoding| MacRomanEncoding| WinAnsiEncoding| MacExpertEncoding| CustomEncoding of encoding * differences| FillUndefinedWithStandard of encoding
type standard_font = | TimesRoman| TimesBold| TimesItalic| TimesBoldItalic| Helvetica| HelveticaBold| HelveticaOblique| HelveticaBoldOblique| Courier| CourierBold| CourierOblique| CourierBoldOblique| Symbol| ZapfDingbats
type cid_system_info = {registry : string;ordering : string;supplement : int;
}type composite_CIDfont = {cid_system_info : cid_system_info;cid_basefont : string;cid_fontdescriptor : fontdescriptor;cid_widths : (int * float) list;cid_default_width : int;
}type cmap_encoding = | Predefined of string| CMap of int
val string_of_encoding : encoding -> stringval string_of_font : font -> stringval parse_charset : string -> string listtype section = | BfChar of char list| BfRange of char list
val getuntilend : char list -> char list -> char list * char listval getuntilend_range : char list -> char list -> char list * char listval get_section : char list -> (section * char list) optionval read_number : char list -> int * char listval read_unicode : char list -> string * char listval get_sections : char list -> section listval pairs_of_section : section -> (int * string) listval utf16be_of_codepoint : int -> int listval utf16be_of_codepoints : int list -> stringval codepoints_of_utf16be_inner : int list -> int list -> int listval codepoints_of_utf16be : string -> int listval is_identity_h : font -> boolval glyphnames_and_codepoints_of_text :
text_extractor ->
string ->
(string * int list) listval is_unicode : string -> boolval codepoint_of_pdfdocencoding_character : int -> int optionval get_utf8_chars : int -> int listval utf8_of_codepoints : int list -> stringval codepoints_of_pdfdocstring : string -> int listval utf8_of_pdfdocstring : string -> stringval codepoints_of_utf8 : string -> int listval pdfdocencoding_of_codepoints : int list -> int list -> int listval pdfdocstring_of_codepoints : int list -> stringval pdfdocstring_of_utf8 : string -> stringval simplify_utf16be : string -> string