Initial checkin

contrib/factory/make-simple-error-handler

@@ -0,0 +1,3 @@
+gcc -c simple-error-handler.c
+gcc -L /usr/X11R6/lib -shared -o simple-error-handler.so \
+  simple-error-handler.o -lX11

contrib/factory/simple-error-handler.c

@@ -0,0 +1,13 @@
+
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+
+int SimpleErrorHandler ( Display* dpy, XErrorEvent* event ) {
+  char msg[255];
+  printf ( "X11 : SimpleErrorHandler called!!!\n\n" ) ;
+  XGetErrorText ( dpy, event->error_code, msg, sizeof msg ) ;
+  printf ( "X error (%#lx): %s", event->resourceid, msg ) ;
+  return 0 ;
+}
+
+void SetSimpleErrorHandler() { XSetErrorHandler( SimpleErrorHandler ) ; }

contrib/factory/simple-error-handler.factor

@@ -0,0 +1,5 @@
+IN: simple-error-handler USING: compiler alien xlib ;
+LIBRARY: simple-error-handler
+"simple-error-handler" "simple-error-handler.so" "cdecl" add-library
+FUNCTION: void SetSimpleErrorHandler ( ) ;
+\ SetSimpleErrorHandler compile