otfm 0.1.0 · OCaml Package

type tag

module Tag : sig ... end

type cp = int

type cp_range = cp * cp

val is_cp : int -> bool

type error_ctx = [

| `Offset_table
| `Table of tag
| `Table_directory

]

type error = [

| `Invalid_cp of int
| `Invalid_cp_range of int * int
| `Invalid_offset of error_ctx * int
| `Invalid_postscript_name of string
| `Missing_required_table of tag
| `Unexpected_eoi of error_ctx
| `Unknown_flavour of tag
| `Unknown_version of error_ctx * int32
| `Unsupported_TTC
| `Unsupported_cmaps of (int * int * int) list

]

val pp_error : Format.formatter -> [< error ] -> unit

type src = [

| `String of string

]

type decoder

val decoder : [< src ] -> decoder

val decoder_src : decoder -> src

type flavour = [

| `CFF
| `TTF

]

val flavour : decoder -> [> `Error of error | `Ok of flavour ]

val table_list : decoder -> [> `Error of error | `Ok of tag list ]

val table_mem : decoder -> tag -> [> `Error of error | `Ok of bool ]

val table_raw : decoder -> tag -> [> `Error of error | `Ok of string option ]

val glyph_count : decoder -> [> `Error of error | `Ok of int ]

val postscript_name : decoder -> [> `Error of error | `Ok of string option ]

type glyph_id = int

type map_kind = [

| `Glyph
| `Glyph_range

]

val cmap : 
  decoder ->
  ('a -> map_kind -> cp_range -> glyph_id -> 'a) ->
  'a ->
  [> `Error of error | `Ok of (int * int * int) * 'a ]

type head = {

head_font_revision : int32;
head_flags : int;
head_units_per_em : int;
head_created : float;
head_modified : float;
head_xmin : int;
head_ymin : int;
head_xmax : int;
head_ymax : int;
head_mac_style : int;
head_lowest_rec_ppem : int;
head_index_to_loc_format : int;

}

val head : decoder -> [> `Error of error | `Ok of head ]

type hhea = {

hhea_ascender : int;
hhea_descender : int;
hhea_line_gap : int;
hhea_advance_width_max : int;
hhea_min_left_side_bearing : int;
hhea_min_right_side_bearing : int;
hhea_xmax_extent : int;
hhea_caret_slope_rise : int;
hhea_caret_slope_run : int;
hhea_caret_offset : int;

}

val hhea : decoder -> [> `Error of error | `Ok of hhea ]

val hmtx : 
  decoder ->
  ('a -> glyph_id -> int -> int -> 'a) ->
  'a ->
  [> `Error of error | `Ok of 'a ]

type lang = string

val name : 
  decoder ->
  ('a -> int -> lang -> string -> 'a) ->
  'a ->
  [> `Error of error | `Ok of 'a ]

type os2 = {

os2_x_avg_char_width : int;
os2_us_weight_class : int;
os2_us_width_class : int;
os2_fs_type : int;
os2_y_subscript_x_size : int;
os2_y_subscript_y_size : int;
os2_y_subscript_x_offset : int;
os2_y_subscript_y_offset : int;
os2_y_superscript_x_size : int;
os2_y_superscript_y_size : int;
os2_y_superscript_x_offset : int;
os2_y_superscript_y_offset : int;
os2_y_strikeout_size : int;
os2_y_strikeout_position : int;
os2_family_class : int;
os2_panose : string;
os2_ul_unicode_range1 : int32;
os2_ul_unicode_range2 : int32;
os2_ul_unicode_range3 : int32;
os2_ul_unicode_range4 : int32;
os2_ach_vend_id : int32;
os2_fs_selection : int;
os2_us_first_char_index : int;
os2_us_last_char_index : int;
os2_s_typo_ascender : int;
os2_s_type_descender : int;
os2_s_typo_linegap : int;
os2_us_win_ascent : int;
os2_us_win_descent : int;
os2_ul_code_page_range_1 : int32 option;
os2_ul_code_page_range_2 : int32 option;
os2_s_x_height : int option;
os2_s_cap_height : int option;
os2_us_default_char : int option;
os2_us_break_char : int option;
os2_us_max_context : int option;

}

val os2 : decoder -> [> `Error of error | `Ok of os2 ]

type kern_info = {

kern_dir : [ `H | `V ];
kern_kind : [ `Kern | `Min ];
kern_cross_stream : bool;

}

val kern : 
  decoder ->
  ('a -> kern_info -> [ `Fold | `Skip ] * 'a) ->
  ('a -> glyph_id -> glyph_id -> int -> 'a) ->
  'a ->
  [> `Error of error | `Ok of 'a ]

package otfm