(* error.ml, from: http://www.u-picardie.fr/~ferment/xwindow/erreur.htm *)

(* tests the error handler *)

open Xlib

let errorHandler ~dpy ~event =

  Printf.printf "#### ERROR HANDLER ####\n%!";

;;

  (* will produce an error which will be handled by the error handler *)

  xSetErrorHandler errorHandler;

(make Xlib.cma)

ocaml -I . Xlib.cma error.ml

    (loud) inclusive, if possible.  A setting of -1 restores the default. Other

    negative values generate a BadValue error.

    [bell_pitch] member sets the pitch (specified in Hz) of the bell, if possible.

    A setting of -1 restores the default. Other negative values generate a BadValue error.

    if possible.  A setting of -1 restores the default. Other negative values generate 

    a BadValue error. *)

type xMappingEvent

type xErrorEvent

  | XMappingEvent          of xMappingEvent          xEvent

  | XErrorEvent            of xErrorEvent            xEvent

    xppm.sh                   \

    error.ml                  \

    error.sh                  \

    pixmap_to_gl.ml           \

// TODO: XGetErrorText()

#if 0

int ErrorHandler( Display *dpy, XErrorEvent *event )

    char buffer[BUFSIZ];

    XGetErrorText(dpy, event->error_code, buffer, BUFSIZ);

    */

    printf("ERROR: %s\n", buffer);

CAMLprim value

ml_XSetErrorHandler( value unit )

{

    XSetErrorHandler( ErrorHandler );

int ErrorHandler_closure( Display *dpy, XErrorEvent *event )

        caml_raise_not_found();

    // XInternAtom() can generate BadAlloc and BadValue errors.

{

    int error_base, event_base;

    if (!glXQueryExtension( Display_val(dpy), &error_base, &event_base )) {

        do_warn2("glXQueryExtension: error_base: %d;  event_base: %d\n",

                         error_base, event_base);

        caml_failwith("GLX extension not supported by the X server");

// Error codes returned by glXGetConfig: