val debug : bool ref
type ('a, 'b) xlfd =
  ('a, 'b) Jpf_font.xlfd = {
  mutable foundry : 'a;
  mutable family : 'a;
  mutable weight : 'a;
  mutable slant : 'a;
  mutable setWidth : 'a;
  mutable addStyle : 'a;
  mutable pixelSize : 'b;
  mutable pointSize : 'b;
  mutable resolutionX : 'b;
  mutable resolutionY : 'b;
  mutable spacing : 'a;
  mutable averageWidth : 'b;
  mutable registry : 'a;
  mutable encoding : 'a;
}
exception Parse_Xlfd_Failure of string
type valid_xlfd = (string, int) xlfd
type pattern = (string option, int option) xlfd
val empty_pattern : pattern
val copy : ('a, 'b) xlfd -> ('a, 'b) xlfd
val string_of_valid_xlfd : valid_xlfd -> string
val string_of_pattern : pattern -> string
val is_vector_font : valid_xlfd -> bool
val list_fonts : string option -> pattern -> valid_xlfd list
val available_pixel_size :
  string option -> pattern -> (int * valid_xlfd list) list
val nearest_pixel_size : string option -> bool -> pattern -> valid_xlfd