ffi.ml

   1 open Config
   2
   3 type initparams = (angle * fitmodel * trimparams * texcount * sliceheight *
   4                      memsize * colorspace * fontpath * redirstderr)
   5 and xoff = int and yoff = int and noff = int
   6 and li = (noff * string * hintfontsize * hintchars)
   7 and hlmask = int and hintchars = string and hintfontsize = int
   8
   9 external init : Unix.file_descr -> initparams -> Unix.file_descr = "ml_init"
  10 external seltext : opaque -> (int * int * int * int) -> unit = "ml_seltext"
  11 external hassel : opaque -> bool = "ml_hassel"
  12 external getpdimrect : int -> float array = "ml_getpdimrect"
  13 external whatsunder : opaque -> x -> y -> under = "ml_whatsunder"
  14 external markunder : opaque -> x -> y -> mark -> bool = "ml_markunder"
  15 external clearmark : opaque -> unit = "ml_clearmark"
  16 external zoomforh : int -> int -> int -> int -> float = "ml_zoom_for_height"
  17 external getmaxw : unit -> float = "ml_getmaxw"
  18 external postprocess :  opaque -> hlmask -> xoff -> yoff -> li -> noff
  19   = "ml_postprocess"
  20 external setdcf : string -> unit = "ml_setdcf"
  21 external pagebbox : opaque -> irect = "ml_getpagebox"
  22 external setaalevel : int -> unit = "ml_setaalevel"
  23 external setpapercolor : rgba -> unit = "ml_setpapercolor"
  24 external realloctexts : int -> bool = "ml_realloctexts"
  25 external findlink : opaque -> linkdir -> link = "ml_findlink"
  26 external getlink : opaque -> int -> under = "ml_getlink"
  27 external getlinkn : opaque -> string -> string -> int -> int = "ml_getlinkn"
  28 external getlinkrect : opaque -> int -> irect = "ml_getlinkrect"
  29 external findpwl : int -> int -> pagewithlinks = "ml_find_page_with_links"
  30 external unproject : opaque -> int -> int -> (int * int) option
  31   = "ml_unproject"
  32 external project : opaque -> int -> int -> float -> float -> (float * float)
  33   = "ml_project"
  34 external drawtile : tileparams -> opaque -> unit = "ml_drawtile"
  35 external rectofblock : opaque -> int -> int -> float array option
  36   = "ml_rectofblock"
  37 external begintiles : unit -> unit = "ml_begintiles"
  38 external endtiles : unit -> unit = "ml_endtiles"
  39 external addannot : opaque -> int -> int -> string -> unit = "ml_addannot"
  40 external modannot : opaque -> slinkindex -> string -> unit = "ml_modannot"
  41 external delannot : opaque -> slinkindex -> unit = "ml_delannot"
  42 external hasunsavedchanges : unit -> bool = "ml_hasunsavedchanges"
  43 external savedoc : string -> unit = "ml_savedoc"
  44 external gettextannot : opaque -> slinkindex -> string = "ml_gettextannot"
  45 external getfileannot : opaque -> slinkindex -> string = "ml_getfileannot"
  46 external savefileannot : opaque -> slinkindex -> string -> unit
  47   = "ml_savefileannot"
  48 external wcmd : Unix.file_descr -> bytes -> int -> unit = "ml_wcmd"
  49 external rcmd : Unix.file_descr -> string = "ml_rcmd"
  50 external uritolocation : string -> (pageno * float * float) = "ml_uritolocation"
  51 external isexternallink : string -> bool = "ml_isexternallink"
  52
  53 (* copysel _will_ close the supplied descriptor *)
  54 external copysel : Unix.file_descr -> opaque -> unit = "ml_copysel"
  55
  56 external drawstr : int -> int -> int -> string -> float = "ml_draw_string"
  57
  58 external fz_version : unit -> string = "ml_fz_version"
  59 external llpp_version : unit -> string = "ml_llpp_version"
  60
  61 external measurestr : int -> string -> float = "ml_measure_string"
  62 external toutf8 : int -> string = "ml_keysymtoutf8"
  63 external mbtoutf8 : string -> string = "ml_mbtoutf8"