/usr/lib/ocaml/lablgl/gl.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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | (* $Id: gl.ml,v 1.31 2012-03-06 03:31:02 garrigue Exp $ *)
(* Register an exception *)
exception GLerror of string
let _ = Callback.register_exception "glerror" (GLerror "")
(* Types common to all modules *)
type rgb = float * float * float
type rgba = float * float * float * float
type point2 = float * float
type point3 = float * float * float
type point4 = float * float * float * float
type vect3 = float * float *float
type clampf = float
type short = int
type kind = [`bitmap|`byte|`float|`int|`short|`ubyte|`uint|`ushort]
type real_kind = [`byte|`float|`int|`short|`ubyte|`uint|`ushort]
type format =
[`alpha|`bgr|`bgra|`blue|`color_index|`depth_component|`green|`luminance
|`luminance_alpha|`red|`rgb|`rgba|`stencil_index]
let format_size (#format as f) =
match f with
`rgba | `bgra -> 4
| `rgb | `bgr -> 3
| `luminance_alpha -> 2
| _ -> 1
type target =
[`color_4|`index|`normal|`texture_coord_1|`texture_coord_2|`texture_coord_3
|`texture_coord_4|`trim_2|`trim_3|`vertex_3|`vertex_4]
let target_size = function
`index|`normal|`texture_coord_1 -> 1
| `texture_coord_2|`trim_2 -> 2
| `vertex_3|`texture_coord_3|`trim_3 -> 3
| `vertex_4|`color_4|`texture_coord_4 -> 4
type cmp_func =
[`always|`equal|`gequal|`greater|`lequal|`less|`never|`notequal]
type face = [`back|`both|`front]
(* Basic functions *)
external flush : unit -> unit = "ml_glFlush"
external finish : unit -> unit = "ml_glFinish"
type cap =
[`alpha_test|`auto_normal|`blend|`clip_plane0|`clip_plane1|`clip_plane2
|`clip_plane3|`clip_plane4|`clip_plane5|`color_material|`cull_face
|`depth_test|`dither|`fog|`light0|`light1|`light2|`light3|`light4|`light5
|`light6|`light7|`lighting|`line_smooth|`line_stipple
|`index_logic_op |`color_logic_op
|`map1_color_4|`map1_index|`map1_normal|`map1_texture_coord_1
|`map1_texture_coord_2|`map1_texture_coord_3|`map1_texture_coord_4
|`map1_vertex_3|`map1_vertex_4|`map2_color_4|`map2_index|`map2_normal
|`map2_texture_coord_1|`map2_texture_coord_2|`map2_texture_coord_3
|`map2_texture_coord_4|`map2_vertex_3|`map2_vertex_4|`normalize|`point_smooth
|`polygon_offset_fill|`polygon_offset_line|`polygon_offset_point
|`polygon_smooth|`polygon_stipple|`scissor_test|`stencil_test|`texture_1d
|`texture_2d|`texture_gen_q|`texture_gen_r|`texture_gen_s|`texture_gen_t]
external enable : cap -> unit = "ml_glEnable"
external disable : cap -> unit = "ml_glDisable"
external is_enabled : cap -> bool = "ml_glIsEnabled"
type error =
[`no_error|`invalid_enum|`invalid_value|`invalid_operation
|`stack_overflow|`stack_underflow|`out_of_memory|`table_too_large]
external get_error : unit -> error = "ml_glGetError"
let raise_error name =
let err = get_error () in
if err = `no_error then () else
let s =
List.assoc err
[ `invalid_enum, "Invalid Enum";
`invalid_value, "Invalid Value";
`invalid_operation, "Invalid Operation";
`stack_overflow, "Stack Overflow";
`stack_underflow, "Stack Underflow";
`out_of_memory, "Out of Memory";
`table_too_large, "Table Too Large" ]
in
let s = if name = "" then s else (name ^ ": " ^ s) in
raise (GLerror s)
|