From ff7b589cb1004c693c937ffacdeec5aa05dc6e71 Mon Sep 17 00:00:00 2001 From: moolc Date: Tue, 29 May 2018 10:08:55 +0300 Subject: [PATCH] Consistency --- link.ml | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/link.ml b/link.ml index 60efbb0..d002fef 100644 --- a/link.ml +++ b/link.ml @@ -27,14 +27,13 @@ external getpbo : width -> height -> colorspace -> opaque = "ml_getpbo";; external freepbo : opaque -> unit = "ml_freepbo";; external unmappbo : opaque -> unit = "ml_unmappbo";; external bousable : unit -> bool = "ml_bo_usable";; -external unproject : - opaque -> int -> int -> (int * int) option = "ml_unproject";; -external project : - opaque -> int -> int -> float -> float -> (float * float) = "ml_project";; -external drawtile : - tileparams -> opaque -> unit = "ml_drawtile";; -external rectofblock : - opaque -> int -> int -> float array option = "ml_rectofblock";; +external unproject : opaque -> int -> int -> (int * int) option + = "ml_unproject";; +external project : opaque -> int -> int -> float -> float -> (float * float) + = "ml_project";; +external drawtile : tileparams -> opaque -> unit = "ml_drawtile";; +external rectofblock : opaque -> int -> int -> float array option + = "ml_rectofblock";; external begintiles : unit -> unit = "ml_begintiles";; external endtiles : unit -> unit = "ml_endtiles";; external addannot : opaque -> int -> int -> string -> unit = "ml_addannot";; @@ -42,14 +41,14 @@ external modannot : opaque -> slinkindex -> string -> unit = "ml_modannot";; external delannot : opaque -> slinkindex -> unit = "ml_delannot";; external hasunsavedchanges : unit -> bool = "ml_hasunsavedchanges";; external savedoc : string -> unit = "ml_savedoc";; -external getannotcontents : - opaque -> slinkindex -> string = "ml_getannotcontents";; -external drawprect : - opaque -> int -> int -> float array -> unit = "ml_drawprect";; +external getannotcontents : opaque -> slinkindex -> string + = "ml_getannotcontents";; +external drawprect : opaque -> int -> int -> float array -> unit + = "ml_drawprect";; external wcmd : Unix.file_descr -> bytes -> int -> unit = "ml_wcmd";; external rcmd : Unix.file_descr -> string = "ml_rcmd";; -external uritolocation : - string -> (pageno * float * float) = "ml_uritolocation";; +external uritolocation : string -> (pageno * float * float) + = "ml_uritolocation";; external isexternallink : string -> bool = "ml_isexternallink";; (* copysel _will_ close the supplied descriptor *) -- 2.11.4.GIT