/usr/lib/ocaml/lablgl/glList.ml is in liblablgl-ocaml-dev 1:1.05-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | (* $Id: glList.ml,v 1.4 2000-04-12 07:40:24 garrigue Exp $ *)
type t = int
type base = int
external is_list : t -> bool = "ml_glIsList"
external gen_lists : len:int -> base = "ml_glGenLists"
external delete_lists : base -> len:int -> unit = "ml_glDeleteLists"
external begins : t -> mode:[`compile|`compile_and_execute] -> unit
= "ml_glNewList"
external ends : unit -> unit = "ml_glEndList"
external call : t -> unit = "ml_glCallList"
external call_lists : [ `byte of string | `int of int array] -> unit
= "ml_glCallLists"
external list_base : base -> unit = "ml_glListBase"
let nth base ~pos = base + pos
let create mode =
let l = gen_lists ~len:1 in begins l ~mode; l
let delete l =
delete_lists l ~len:1
let call_lists ?base lists =
begin match base with None -> ()
| Some base -> list_base base
end;
call_lists lists
|