Unified · Split
| @@ -60,3 +60,19 @@ external drawstr : int -> int -> int -> string -> float = "ml_draw_string";; · 59 unmodified lines | ||
| 60 | 60 | |
| 61 | 61 | external fz_version : unit -> string = "ml_fz_version";; |
| 62 | 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 | 3 | open Glutils;; |
| 4 | 4 | open Listview;; |
| 5 | 5 | |
| 6 | +module C = Ffi.C;; | |
| 6 | 7 | let selfexec = ref E.s;; |
| 7 | 8 | let ignoredoctitlte = ref false;; |
| 8 | 9 | let layouth = ref ~-1;; |
| @@ -184,22 +185,6 @@ let intentry_with_suffix text key = · 175 unmodified lines | ||
| 184 | 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 | 188 | let wcmd cmd fmt = |
| 204 | 189 | let b = Buffer.create 16 in |
| 205 | 190 | Printf.kbprintf |