Unified · Split
| @@ -60,3 +60,19 @@ external drawstr : int -> int -> int -> string -> float = "ml_draw_string";; · 59 unmodified lines | |||
| 60 | 60 | ||
| 61 | external fz_version : unit -> string = "ml_fz_version";; | 61 | external fz_version : unit -> string = "ml_fz_version";; |
| 62 | external llpp_version : unit -> string = "ml_llpp_version";; | 62 | external llpp_version : unit -> string = "ml_llpp_version";; |
| 63 | |||
| 64 | module C = struct | ||
| 65 | let dopen = '\023';; | ||
| 66 | let cs = '\024';; | ||
| 67 | let freepage = '\025';; | ||
| 68 | let freetile = '\026';; | ||
| 69 | let search = '\027';; | ||
| 70 | let geometry = '\028';; | ||
| 71 | let reqlayout = '\029';; | ||
| 72 | let page = '\030';; | ||
| 73 | let tile = '\031';; | ||
| 74 | let trimset = '\032';; | ||
| 75 | let settrim = '\033';; | ||
| 76 | let sliceh = '\034';; | ||
| 77 | let interrupt = '\035';; | ||
| 78 | end;; | ||
| @@ -3,6 +3,7 @@ open Config;; · 2 unmodified lines | |||
| 3 | open Glutils;; | 3 | open Glutils;; |
| 4 | open Listview;; | 4 | open Listview;; |
| 5 | 5 | ||
| 6 | module C = Ffi.C;; | ||
| 6 | let selfexec = ref E.s;; | 7 | let selfexec = ref E.s;; |
| 7 | let ignoredoctitlte = ref false;; | 8 | let ignoredoctitlte = ref false;; |
| 8 | let layouth = ref ~-1;; | 9 | let layouth = ref ~-1;; |
| @@ -184,22 +185,6 @@ let intentry_with_suffix text key = · 175 unmodified lines | |||
| 184 | TEcont text | 185 | TEcont text |
| 185 | ;; | 186 | ;; |
| 186 | 187 | ||
| 187 | module C = struct | ||
| 188 | let dopen = '\023';; | ||
| 189 | let cs = '\024';; | ||
| 190 | let freepage = '\025';; | ||
| 191 | let freetile = '\026';; | ||
| 192 | let search = '\027';; | ||
| 193 | let geometry = '\028';; | ||
| 194 | let reqlayout = '\029';; | ||
| 195 | let page = '\030';; | ||
| 196 | let tile = '\031';; | ||
| 197 | let trimset = '\032';; | ||
| 198 | let settrim = '\033';; | ||
| 199 | let sliceh = '\034';; | ||
| 200 | let interrupt = '\035';; | ||
| 201 | end;; | ||
| 202 | |||
| 203 | let wcmd cmd fmt = | 188 | let wcmd cmd fmt = |
| 204 | let b = Buffer.create 16 in | 189 | let b = Buffer.create 16 in |
| 205 | Printf.kbprintf | 190 | Printf.kbprintf |