diff options
author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-01-25 11:25:59 +0100 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-01-25 11:25:59 +0100 |
commit | 110d59c341b8c50c04f30d90e85e9b8f6f329a0e (patch) | |
tree | 174afbe2ded41ae03923b93a0c4e6975e3163ad5 /xm.c | |
parent | e5328e59987b90c4e98959510b810510e384650d (diff) |
Imported Upstream version 16.1
Diffstat (limited to 'xm.c')
-rw-r--r-- | xm.c | 32463 |
1 files changed, 14988 insertions, 17475 deletions
@@ -3,13 +3,29 @@ * for tests and examples see snd-motif.scm, bess.scm|rb, and snd-test.scm */ -#include <mus-config.h> +#include "mus-config.h" #include <stdlib.h> -#define XM_DATE "23-Dec-09" + +#define HAVE_XSHAPEQUERYEXTENSION 1 +/* this dates from X11 R6.4 -- set to 0 if you're running a 20 year old version of X + */ +#define HAVE_XP 0 + + +#define XM_DATE "29-Oct-15" /* HISTORY: * + * 29-Oct-15: removed ->string. + * -------- + * 6-Mar: more macro name changes. + * 21-Feb-14: _P changed to use _is_. + * -------- + * 7-Jul-13: removed the non-standard extra widgets. + * -------- + * 20-Oct: changed INT64_T to LONG_LONG. + * 20-Mar-11: X/Xpm/Motif are assumed now. * -------- * 23-Dec: removed XmPrint/libXp support. * 16-Dec: removed Guile support. @@ -33,12 +49,12 @@ * -------- * 16-Sep: XmUNSPECIFIED_PIXEL and friends should be unsigned long (not int). * 17-Aug: XtSetArg 3rd arg should be 0, not NULL (type mismatch if 64-bit). - * 14-June: various xen-related updates (XEN_DEFINE). + * 14-June: various xen-related updates (Xen_DEFINE). * 13-June: fold xm-ruby.c into xm.c. * 15-Apr: XGetWindowProperty free bugfix. * 28-Mar: fix some Ruby error strings (#f->false). * 31-Jan: remove Motif 1 support, and Lesstif. - * 4-Jan-05: replace XEN_VECTOR_ELEMENTS usages. + * 4-Jan-05: replace Xen_VECTOR_ELEMENTS usages. * -------- * 30-Dec: plug various memory leaks. * 23-Nov: resource type lookup indexing bugfix. @@ -111,7 +127,7 @@ * 29-Mar: XmParseProc. * 20-Mar: XpmGetErrorString omitted inadvertently earlier. * 4-Mar: XWindowChanges and XSetWindowAttributes struct creators. - * 1-Mar: XmTabListFree, various ->* conversions (->strings etc). + * 1-Mar: XmTabListFree, various ->* conversions(->strings etc). * 25-Feb: XmTextBlock fields * 22-Feb: #f = NULL and vice-versa throughout * 21-Feb: added various callback struct makers, changed XtCallCallbacks to be compatible with them. @@ -134,7 +150,7 @@ * XVisualInfo fields added. * Cursor type added. * 1-Feb: Motif 2.2 additions (tooltip). - * 21-Jan: Ruby fixups (XEN_COPY_ARG to protect lists) + * 21-Jan: Ruby fixups (Xen_COPY_ARG to protect lists) * 7-Jan-02: XEvent fields settable. added XtCallCallbacks-raw. * ---------- * 12-Sep: xm-version. @@ -144,31 +160,22 @@ * 23-Jul-01: use lists rather than vectors. */ -#if UNDEF_USE_SND - #undef USE_SND - #define USE_SND 0 -#endif - #if HAVE_EXTENSION_LANGUAGE -#if HAVE_MOTIF #include <Xm/XmAll.h> -#else - #include <X11/Xlib.h> - #include <X11/Intrinsic.h> - #include <X11/Shell.h> - #include <X11/Xatom.h> -#endif - -#include <X11/keysym.h> -#include <X11/cursorfont.h> -#include <stdio.h> + #include <X11/keysym.h> + #include <X11/cursorfont.h> + #include <stdio.h> #if HAVE_XSHAPEQUERYEXTENSION #include <X11/extensions/shape.h> #endif -/* compile-time flags are HAVE_MOTIF HAVE_RUBY MUS_WITH_EDITRES */ +#if ((!__NetBSD__) && ((_MSC_VER) || (!defined(__STC__)) || (defined(__STDC_VERSION__) && (__STDC_VERSION__ < 199901L)))) + #define __func__ __FUNCTION__ +#endif + +/* compile-time flags are HAVE_RUBY|SCHEME WITH_EDITRES */ /* if you're using g++ and it complains about XmRemoveFromPostFromList, update Motif (you need 2.1.30) */ @@ -179,53 +186,25 @@ #include "xen.h" /* in snd-0.h: */ #if HAVE_RUBY - #define S_setB "set_" + #define S_set "set_" #define PROC_FALSE "false" #define PROC_TRUE "true" #endif #if HAVE_SCHEME - #define S_setB "set! " + #define S_set "set! " #define PROC_FALSE "#f" #define PROC_TRUE "#t" #endif #if HAVE_FORTH - #define S_setB "set-" + #define S_set "set-" #define PROC_FALSE "#f" #define PROC_TRUE "#t" #endif #define NOT_A_GC_LOC -1 #endif -#ifndef calloc - #define calloc(a, b) calloc((size_t)(a), (size_t)(b)) - #define malloc(a) malloc((size_t)(a)) - #define free(a) free(a) - #define realloc(a, b) realloc(a, (size_t)(b)) -#endif - #include <X11/xpm.h> -#if HAVE_XmCreateDataField - #include <Xm/DataF.h> -#endif -#if HAVE_XmCreateTabStack - #include <Xm/TabStack.h> -#endif -#if HAVE_XmCreateButtonBox - #include <Xm/ButtonBox.h> -#endif -#if HAVE_XmCreateColumn - #include <Xm/Column.h> -#endif -#if HAVE_XmCreateDropDown - #include <Xm/DropDown.h> -#endif -#if HAVE_XmCreateFontSelector - #include <Xm/FontS.h> -#endif -#if HAVE_XmCreateColorSelector - #include <Xm/ColorS.h> -#endif -#if MUS_WITH_EDITRES +#if WITH_EDITRES #include <X11/Xmu/Editres.h> #endif @@ -247,16 +226,16 @@ #define XM_FIELD_PREFIX "F" #endif -#define XM_FIELD_ASSERT_TYPE(Assertion, Arg, Position, Caller, Correct_Type) \ - XEN_ASSERT_TYPE(Assertion, Arg, Position, XM_FIELD_PREFIX Caller XM_POSTFIX, Correct_Type) +#define XM_field_assert_type(Assertion, Arg, Position, Caller, Correct_Type) \ + Xen_check_type(Assertion, Arg, Position, XM_FIELD_PREFIX Caller XM_POSTFIX, Correct_Type) #if HAVE_RUBY - #define XM_SET_FIELD_ASSERT_TYPE(Assertion, Arg, Position, Caller, Correct_Type) \ - XEN_ASSERT_TYPE(Assertion, Arg, Position, XM_FIELD_PREFIX S_setB Caller XM_POSTFIX, Correct_Type) + #define XM_set_field_assert_type(Assertion, Arg, Position, Caller, Correct_Type) \ + Xen_check_type(Assertion, Arg, Position, XM_FIELD_PREFIX S_set Caller XM_POSTFIX, Correct_Type) #endif #if HAVE_SCHEME || HAVE_FORTH - #define XM_SET_FIELD_ASSERT_TYPE(Assertion, Arg, Position, Caller, Correct_Type) \ - XEN_ASSERT_TYPE(Assertion, Arg, Position, S_setB XM_FIELD_PREFIX Caller XM_POSTFIX, Correct_Type) + #define XM_set_field_assert_type(Assertion, Arg, Position, Caller, Correct_Type) \ + Xen_check_type(Assertion, Arg, Position, S_set XM_FIELD_PREFIX Caller XM_POSTFIX, Correct_Type) #endif #define XtIsSubClass XtIsSubclass @@ -282,7 +261,7 @@ * a sample program (let* ((shell-app (XtVaOpenApplication - "Test" 0 '() applicationShellWidgetClass + "Test" 0 () applicationShellWidgetClass (list XmNallowShellResize #t))) (app (cadr shell-app)) (shell (car shell-app)) @@ -302,7 +281,7 @@ XmNrightAttachment XmATTACH_FORM XmNallowResize #t))) (button (XtCreateManagedWidget - "push me" xmPushButtonWidgetClass main-pane '() 0))) + "push me" xmPushButtonWidgetClass main-pane () 0))) (XtAddCallback button XmNactivateCallback (lambda (widget context event-info) (display widget) @@ -327,7 +306,7 @@ * XtCallback procedure args are passed by value * various "client data" args are optional * XtCallbackLists are passed as lists of procedure/data pairs - * where explicit NULL is needed as arg, use #f (or '() for list args) + * where explicit NULL is needed as arg, use #f (or () for list args) * * omitted: * @@ -361,14 +340,12 @@ -/* -------------------------------- smob for GC -------------------------------- */ - -/* "smob" for locally created stuff (X graphics entities mainly) */ +/* -------------------------------- GC -------------------------------- */ -static XEN_OBJECT_TYPE xm_obj_tag; +static Xen_object_type_t xm_obj_tag; #if HAVE_RUBY -static void *xm_obj_free(XEN obj) +static void *xm_obj_free(Xen obj) { void *vobj; vobj = (void *)obj; @@ -378,10 +355,10 @@ static void *xm_obj_free(XEN obj) #endif #if HAVE_FORTH -static void xm_obj_free(XEN obj) +static void xm_obj_free(Xen obj) { void *val; - val = (void *)XEN_OBJECT_REF(obj); + val = (void *)Xen_object_ref(obj); free(val); } #endif @@ -398,17 +375,17 @@ static bool s7_equalp_xm(void *x1, void *x2) } #endif -static XEN make_xm_obj(void *ptr) +static Xen make_xm_obj(void *ptr) { - XEN_MAKE_AND_RETURN_OBJECT(xm_obj_tag, ptr, 0, xm_obj_free); + return(Xen_make_object(xm_obj_tag, ptr, 0, xm_obj_free)); } static void define_xm_obj(void) { #if HAVE_SCHEME - xm_obj_tag = XEN_MAKE_OBJECT_TYPE("<XmObj>", NULL, xm_obj_free, s7_equalp_xm, NULL, NULL, NULL, NULL, NULL, NULL); + xm_obj_tag = s7_new_type_x(s7, "<XmObj>", NULL, xm_obj_free, s7_equalp_xm, NULL, NULL, NULL, NULL, NULL, NULL, NULL); #else - xm_obj_tag = XEN_MAKE_OBJECT_TYPE("XmObj", sizeof(void *)); + xm_obj_tag = Xen_make_object_type("XmObj", sizeof(void *)); #endif #if HAVE_FORTH @@ -424,222 +401,210 @@ static void define_xm_obj(void) * the _PTR form treats NULL as #f and vice-versa */ -#define WRAP_FOR_XEN(Name, Value) XEN_LIST_2(C_STRING_TO_XEN_SYMBOL(Name), XEN_WRAP_C_POINTER(Value)) -#define WRAP_FOR_XEN_OBJ(Name, Value) XEN_LIST_3(C_STRING_TO_XEN_SYMBOL(Name), XEN_WRAP_C_POINTER(Value), make_xm_obj(Value)) -#define WRAP_P(Name, Value) (XEN_LIST_P(Value) && \ - (XEN_LIST_LENGTH(Value) >= 2) && \ - (XEN_SYMBOL_P(XEN_CAR(Value))) && \ - (strcmp(Name, XEN_SYMBOL_TO_C_STRING(XEN_CAR(Value))) == 0)) - -/* XM_TYPE is used for non-pointers (XID mainly) */ -#define XM_TYPE(Name, XType) \ - static XEN C_TO_XEN_ ## Name (XType val) {return(XEN_LIST_2(C_STRING_TO_XEN_SYMBOL(#Name), C_TO_XEN_ULONG(val)));} \ - static XType XEN_TO_C_ ## Name (XEN val) {return((XType)XEN_TO_C_ULONG(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} \ - static XEN XEN_ ## Name ## _p(XEN val) {return(C_TO_XEN_BOOLEAN(WRAP_P(#Name, val)));} - -#define XM_TYPE_NO_p(Name, XType) \ - static XEN C_TO_XEN_ ## Name (XType val) {return(XEN_LIST_2(C_STRING_TO_XEN_SYMBOL(#Name), C_TO_XEN_ULONG(val)));} \ - static XType XEN_TO_C_ ## Name (XEN val) {return((XType)XEN_TO_C_ULONG(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} - -#define XM_TYPE_INT(Name, XType) \ - static XEN C_TO_XEN_ ## Name (XType val) {return(XEN_LIST_2(C_STRING_TO_XEN_SYMBOL(#Name), C_TO_XEN_INT(val)));} \ - static XType XEN_TO_C_ ## Name (XEN val) {return((XType)XEN_TO_C_INT(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} \ - static XEN XEN_ ## Name ## _p(XEN val) {return(C_TO_XEN_BOOLEAN(WRAP_P(#Name, val)));} - -#define XM_TYPE_PTR(Name, XType) \ - static XEN C_TO_XEN_ ## Name (XType val) {if (val) return(WRAP_FOR_XEN(#Name, val)); return(XEN_FALSE);} \ - static XType XEN_TO_C_ ## Name (XEN val) {if (XEN_FALSE_P(val)) return((XType)NULL); return((XType)XEN_UNWRAP_C_POINTER(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} \ - static XEN XEN_ ## Name ## _p(XEN val) {return(C_TO_XEN_BOOLEAN(WRAP_P(#Name, val)));} - -#define XM_TYPE_PTR_NO_p(Name, XType) \ - static XEN C_TO_XEN_ ## Name (XType val) {if (val) return(WRAP_FOR_XEN(#Name, val)); return(XEN_FALSE);} \ - static XType XEN_TO_C_ ## Name (XEN val) {if (XEN_FALSE_P(val)) return((XType)NULL); return((XType)XEN_UNWRAP_C_POINTER(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} - -#define XM_TYPE_PTR_NO_p_NO_P(Name, XType) \ - static XEN C_TO_XEN_ ## Name (XType val) {if (val) return(WRAP_FOR_XEN(#Name, val)); return(XEN_FALSE);} \ - static XType XEN_TO_C_ ## Name (XEN val) {if (XEN_FALSE_P(val)) return((XType)NULL); return((XType)XEN_UNWRAP_C_POINTER(XEN_CADR(val)));} - -#define XM_TYPE_PTR_NO_C2X(Name, XType) \ - static XType XEN_TO_C_ ## Name (XEN val) {if (XEN_FALSE_P(val)) return((XType)NULL); return((XType)XEN_UNWRAP_C_POINTER(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} \ - static XEN XEN_ ## Name ## _p(XEN val) {return(C_TO_XEN_BOOLEAN(WRAP_P(#Name, val)));} - -#define XM_TYPE_PTR_NO_C2X_NO_p(Name, XType) \ - static XType XEN_TO_C_ ## Name (XEN val) {if (XEN_FALSE_P(val)) return((XType)NULL); return((XType)XEN_UNWRAP_C_POINTER(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} - -#define XM_TYPE_PTR_OBJ(Name, XType) \ - static XEN C_TO_XEN_ ## Name (XType val) {if (val) return(WRAP_FOR_XEN_OBJ(#Name, val)); return(XEN_FALSE);} \ - static XType XEN_TO_C_ ## Name (XEN val) {if (XEN_FALSE_P(val)) return(NULL); return((XType)XEN_UNWRAP_C_POINTER(XEN_CADR(val)));} \ - static bool XEN_ ## Name ## _P(XEN val) {return(WRAP_P(#Name, val));} \ - static XEN XEN_ ## Name ## _p(XEN val) {return(C_TO_XEN_BOOLEAN(WRAP_P(#Name, val)));} - - - -#define XEN_TO_C_Dimension(Arg) (Dimension)(XEN_TO_C_INT(Arg)) -#define C_TO_XEN_Dimension(Arg) (C_TO_XEN_INT((Dimension)Arg)) -#define XEN_Dimension_P(Arg) (XEN_INTEGER_P(Arg)) - -#define XEN_TO_C_Position(Arg) (Position)(XEN_TO_C_INT(Arg)) -#define C_TO_XEN_Position(Arg) (C_TO_XEN_INT((Position)Arg)) -#define XEN_Position_P(Arg) (XEN_INTEGER_P(Arg)) - -#define XEN_TO_C_char(Arg) (char)(XEN_TO_C_INT(Arg)) -#define C_TO_XEN_char(Arg) (C_TO_XEN_INT(Arg)) -#define XEN_char_P(Arg) (XEN_INTEGER_P(Arg)) - -#define XEN_TO_C_Modifiers(Arg) (Modifiers)(XEN_TO_C_ULONG(Arg)) -#define C_TO_XEN_Modifiers(Arg) (C_TO_XEN_ULONG(Arg)) -#define XEN_Modifiers_P(Arg) (XEN_ULONG_P(Arg)) - -XM_TYPE(Cursor, Cursor) -XM_TYPE_PTR(Screen, Screen *) -XM_TYPE_PTR_OBJ(XRectangle, XRectangle *) -XM_TYPE_PTR_OBJ(XArc, XArc *) -XM_TYPE_PTR_OBJ(XPoint, XPoint *) -XM_TYPE_PTR_OBJ(XSegment, XSegment *) -XM_TYPE_PTR_OBJ(XColor, XColor *) -XM_TYPE(Atom, Atom) -XM_TYPE(Colormap, Colormap) /* XID */ -XM_TYPE_PTR_NO_C2X(Depth, Depth *) -XM_TYPE_PTR(Display, Display *) -XM_TYPE(Font, Font) -XM_TYPE_PTR(GC, GC) -XM_TYPE(KeySym, KeySym) -XM_TYPE(Pixel, Pixel) -XM_TYPE(Pixmap, Pixmap) -XM_TYPE(Region, Region) -XM_TYPE(Time, Time) -XM_TYPE_PTR(Visual, Visual *) -XM_TYPE(Window, Window) /* this is XID = long I think */ -XM_TYPE_PTR(XCharStruct, XCharStruct *) -XM_TYPE_PTR(XFontProp, XFontProp *) -XM_TYPE(XFontSet, XFontSet) -XM_TYPE_PTR(XFontStruct, XFontStruct *) -XM_TYPE_PTR(XGCValues, XGCValues *) -XM_TYPE_PTR_NO_C2X(XTextItem, XTextItem *) -XM_TYPE_PTR(XModifierKeymap, XModifierKeymap *) /* opaque in this implementation */ -XM_TYPE_PTR(XImage, XImage *) -static XAnyEvent *XEN_TO_C_XAnyEvent(XEN val) {return((XAnyEvent *)XEN_UNWRAP_C_POINTER(XEN_CADR(val)));} -XM_TYPE_PTR_NO_C2X(XButtonEvent, XButtonEvent *) -XM_TYPE_PTR_NO_C2X(XCirculateEvent, XCirculateEvent *) -XM_TYPE_PTR_NO_C2X(XCirculateRequestEvent, XCirculateRequestEvent *) -XM_TYPE_PTR_NO_C2X(XClientMessageEvent, XClientMessageEvent *) -XM_TYPE_PTR_NO_C2X(XColormapEvent, XColormapEvent *) -XM_TYPE_PTR_NO_C2X(XConfigureEvent, XConfigureEvent *) -XM_TYPE_PTR_NO_C2X(XConfigureRequestEvent, XConfigureRequestEvent *) -XM_TYPE_PTR_NO_C2X(XCreateWindowEvent, XCreateWindowEvent *) -XM_TYPE_PTR_NO_C2X(XCrossingEvent, XCrossingEvent *) -XM_TYPE_PTR_NO_C2X(XDestroyWindowEvent, XDestroyWindowEvent *) -XM_TYPE_PTR(XErrorEvent, XErrorEvent *) -XM_TYPE_PTR_NO_C2X(XExposeEvent, XExposeEvent *) -XM_TYPE_PTR_NO_C2X(XFocusChangeEvent, XFocusChangeEvent *) -XM_TYPE_PTR_NO_C2X(XGraphicsExposeEvent, XGraphicsExposeEvent *) -XM_TYPE_PTR_NO_C2X(XGravityEvent, XGravityEvent *) -XM_TYPE_PTR_NO_C2X(XKeyEvent, XKeyEvent *) -XM_TYPE_PTR_NO_C2X(XKeymapEvent, XKeymapEvent *) -XM_TYPE_PTR_NO_C2X(XMapEvent, XMapEvent *) -XM_TYPE_PTR_NO_C2X(XMapRequestEvent, XMapRequestEvent *) -XM_TYPE_PTR_NO_C2X(XMappingEvent, XMappingEvent *) -XM_TYPE_PTR_NO_C2X(XMotionEvent, XMotionEvent *) -XM_TYPE_PTR_NO_C2X(XNoExposeEvent, XNoExposeEvent *) -XM_TYPE_PTR_NO_C2X(XPropertyEvent, XPropertyEvent *) -XM_TYPE_PTR_NO_C2X(XReparentEvent, XReparentEvent *) -XM_TYPE_PTR_NO_C2X(XResizeRequestEvent, XResizeRequestEvent *) -XM_TYPE_PTR_NO_C2X(XSelectionClearEvent, XSelectionClearEvent *) -XM_TYPE_PTR_NO_C2X(XSelectionEvent, XSelectionEvent *) -XM_TYPE_PTR(XSelectionRequestEvent, XSelectionRequestEvent *) -XM_TYPE_PTR_NO_C2X(XUnmapEvent, XUnmapEvent *) -XM_TYPE_PTR_NO_C2X(XVisibilityEvent, XVisibilityEvent *) -XM_TYPE_PTR_OBJ(XSetWindowAttributes, XSetWindowAttributes *) -XM_TYPE_PTR(XVisualInfo, XVisualInfo *) -XM_TYPE_PTR(XWMHints, XWMHints *) -XM_TYPE_PTR_NO_C2X_NO_p(XSizeHints, XSizeHints *) -XM_TYPE_PTR(XWindowAttributes, XWindowAttributes *) -XM_TYPE_PTR_OBJ(XWindowChanges, XWindowChanges *) -XM_TYPE_PTR(XStandardColormap, XStandardColormap *) -XM_TYPE_INT(KeyCode, KeyCode) -XM_TYPE_INT(XContext, XContext) -XM_TYPE_PTR(XIconSize, XIconSize *) - -#if HAVE_MOTIF -XM_TYPE_PTR(Widget, Widget) -XM_TYPE(WidgetClass, WidgetClass) -XM_TYPE(XtAppContext, XtAppContext) -XM_TYPE(XtRequestId, XtRequestId) -XM_TYPE(XtWorkProcId, XtWorkProcId) -XM_TYPE(XtInputId, XtInputId) -XM_TYPE(XtIntervalId, XtIntervalId) -XM_TYPE_NO_p(XtActionHookId, XtActionHookId) -XM_TYPE_NO_p(XtTranslations, XtTranslations) /* opaque */ -XM_TYPE_PTR(XmString, XmString) -XM_TYPE_PTR_NO_p_NO_P(XmAnyCallbackStruct, XmAnyCallbackStruct *) -XM_TYPE_PTR_NO_p(XmArrowButtonCallbackStruct, XmArrowButtonCallbackStruct *) -XM_TYPE_PTR_NO_p(XmCommandCallbackStruct, XmCommandCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDragDropFinishCallbackStruct, XmDragDropFinishCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDragMotionCallbackStruct, XmDragMotionCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDragProcCallbackStruct, XmDragProcCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDrawingAreaCallbackStruct, XmDrawingAreaCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDrawnButtonCallbackStruct, XmDrawnButtonCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDropFinishCallbackStruct, XmDropFinishCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDropProcCallbackStruct, XmDropProcCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDropSiteEnterCallbackStruct, XmDropSiteEnterCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDropSiteLeaveCallbackStruct, XmDropSiteLeaveCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDropStartCallbackStruct, XmDropStartCallbackStruct *) -XM_TYPE_PTR_NO_p(XmFileSelectionBoxCallbackStruct, XmFileSelectionBoxCallbackStruct *) -XM_TYPE_PTR_NO_p(XmListCallbackStruct, XmListCallbackStruct *) -XM_TYPE(XmTab, XmTab) /* opaque */ -XM_TYPE_PTR_NO_p(XmDragStartCallbackStruct, XmDragStartCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDisplayCallbackStruct, XmDisplayCallbackStruct *) -XM_TYPE_PTR_NO_p(XmDestinationCallbackStruct, XmDestinationCallbackStruct *) -XM_TYPE_PTR_NO_p(XmConvertCallbackStruct, XmConvertCallbackStruct *) -XM_TYPE_PTR_NO_p(XmComboBoxCallbackStruct, XmComboBoxCallbackStruct *) -XM_TYPE_PTR_NO_p(XmContainerOutlineCallbackStruct, XmContainerOutlineCallbackStruct *) -XM_TYPE_PTR_NO_p(XmContainerSelectCallbackStruct, XmContainerSelectCallbackStruct *) -XM_TYPE_PTR_NO_p(XmNotebookCallbackStruct, XmNotebookCallbackStruct *) -XM_TYPE_PTR_NO_p(XmNotebookPageInfo, XmNotebookPageInfo *) -XM_TYPE_PTR(XmRenderTable, XmRenderTable) -XM_TYPE_PTR(XmRendition, XmRendition) -XM_TYPE_PTR_NO_p(XmSpinBoxCallbackStruct, XmSpinBoxCallbackStruct *) -XM_TYPE_PTR_NO_p(XmTraverseObscuredCallbackStruct, XmTraverseObscuredCallbackStruct *) -XM_TYPE_PTR_NO_p(XmTopLevelLeaveCallbackStruct, XmTopLevelLeaveCallbackStruct *) -XM_TYPE_PTR_NO_p(XmTopLevelEnterCallbackStruct, XmTopLevelEnterCallbackStruct *) -XM_TYPE_PTR_NO_p(XmPopupHandlerCallbackStruct, XmPopupHandlerCallbackStruct *) -XM_TYPE_PTR_NO_p(XmSelectionCallbackStruct, XmSelectionCallbackStruct *) -XM_TYPE_PTR_NO_C2X_NO_p(XmTransferDoneCallbackStruct, XmTransferDoneCallbackStruct *) -XM_TYPE_PTR(XmTabList, XmTabList) /* opaque */ -XM_TYPE(XmParseMapping, XmParseMapping) -XM_TYPE_PTR_NO_p(XmOperationChangedCallbackStruct, XmOperationChangedCallbackStruct *) -XM_TYPE_PTR_NO_p(XmPushButtonCallbackStruct, XmPushButtonCallbackStruct *) -XM_TYPE_PTR_NO_p(XmRowColumnCallbackStruct, XmRowColumnCallbackStruct *) -XM_TYPE_PTR_NO_p(XmScaleCallbackStruct, XmScaleCallbackStruct *) -XM_TYPE_PTR_NO_p(XmScrollBarCallbackStruct, XmScrollBarCallbackStruct *) -XM_TYPE_PTR_NO_p(XmSelectionBoxCallbackStruct, XmSelectionBoxCallbackStruct *) -XM_TYPE_PTR_NO_p(XmTextVerifyCallbackStruct, XmTextVerifyCallbackStruct *) -XM_TYPE_PTR_NO_C2X_NO_p(XmTextBlock, XmTextBlock) -XM_TYPE_PTR_NO_p(XmToggleButtonCallbackStruct, XmToggleButtonCallbackStruct *) -#if HAVE_XmCreateDataField -XM_TYPE_PTR_NO_p(XmDataFieldCallbackStruct, XmDataFieldCallbackStruct *) -#endif -#if HAVE_XmCreateTabStack -XM_TYPE_PTR_NO_p(XmTabStackCallbackStruct, XmTabStackCallbackStruct *) -#endif -#define XEN_TO_C_XmFontList(Arg) XEN_TO_C_XmRenderTable(Arg) -XM_TYPE(XmTextSource, XmTextSource) -XM_TYPE(XmStringContext, XmStringContext) - -static int XEN_XmFontList_or_XmRenderTable_P(XEN arg) -{ - return(XEN_XmRenderTable_P(arg)); -} -#endif - -static XEN type_to_event_symbol(int utype) +#define wrap_for_Xen(Name, Value) Xen_list_2(C_string_to_Xen_symbol(Name), Xen_wrap_C_pointer(Value)) +#define wrap_for_Xen_obj(Name, Value) Xen_list_3(C_string_to_Xen_symbol(Name), Xen_wrap_C_pointer(Value), make_xm_obj(Value)) +#define is_wrapped(Name, Value) (Xen_is_list(Value) && \ + (Xen_list_length(Value) >= 2) && \ + (Xen_is_symbol(Xen_car(Value))) && \ + (strcmp(Name, Xen_symbol_to_C_string(Xen_car(Value))) == 0)) + +/* Xm_type is used for non-pointers (XID mainly) */ +#define Xm_type(Name, XType) \ + static Xen C_to_Xen_ ## Name (XType val) {return(Xen_list_2(C_string_to_Xen_symbol(#Name), C_ulong_to_Xen_ulong(val)));} \ + static XType Xen_to_C_ ## Name (Xen val) {return((XType)Xen_ulong_to_C_ulong(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} \ + static Xen g_is_ ## Name (Xen val) {return(C_bool_to_Xen_boolean(is_wrapped(#Name, val)));} + +#define Xm_type_no_p(Name, XType) \ + static Xen C_to_Xen_ ## Name (XType val) {return(Xen_list_2(C_string_to_Xen_symbol(#Name), C_ulong_to_Xen_ulong(val)));} \ + static XType Xen_to_C_ ## Name (Xen val) {return((XType)Xen_ulong_to_C_ulong(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} + +#define Xm_type_int(Name, XType) \ + static Xen C_to_Xen_ ## Name (XType val) {return(Xen_list_2(C_string_to_Xen_symbol(#Name), C_int_to_Xen_integer(val)));} \ + static XType Xen_to_C_ ## Name (Xen val) {return((XType)Xen_integer_to_C_int(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} \ + static Xen g_is_ ## Name (Xen val) {return(C_bool_to_Xen_boolean(is_wrapped(#Name, val)));} + +#define Xm_type_ptr(Name, XType) \ + static Xen C_to_Xen_ ## Name (XType val) {if (val) return(wrap_for_Xen(#Name, val)); return(Xen_false);} \ + static XType Xen_to_C_ ## Name (Xen val) {if (Xen_is_false(val)) return((XType)NULL); return((XType)Xen_unwrap_C_pointer(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} \ + static Xen g_is_ ## Name (Xen val) {return(C_bool_to_Xen_boolean(is_wrapped(#Name, val)));} + +#define Xm_type_ptr_no_p(Name, XType) \ + static Xen C_to_Xen_ ## Name (XType val) {if (val) return(wrap_for_Xen(#Name, val)); return(Xen_false);} \ + static XType Xen_to_C_ ## Name (Xen val) {if (Xen_is_false(val)) return((XType)NULL); return((XType)Xen_unwrap_C_pointer(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} + +#define Xm_type_ptr_no_p_NO_P(Name, XType) \ + static Xen C_to_Xen_ ## Name (XType val) {if (val) return(wrap_for_Xen(#Name, val)); return(Xen_false);} \ + static XType Xen_to_C_ ## Name (Xen val) {if (Xen_is_false(val)) return((XType)NULL); return((XType)Xen_unwrap_C_pointer(Xen_cadr(val)));} + +#define Xm_type_ptr_no_c2x(Name, XType) \ + static XType Xen_to_C_ ## Name (Xen val) {if (Xen_is_false(val)) return((XType)NULL); return((XType)Xen_unwrap_C_pointer(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} \ + static Xen g_is_ ## Name (Xen val) {return(C_bool_to_Xen_boolean(is_wrapped(#Name, val)));} + +#define Xm_type_ptr_no_c2x_no_p(Name, XType) \ + static XType Xen_to_C_ ## Name (Xen val) {if (Xen_is_false(val)) return((XType)NULL); return((XType)Xen_unwrap_C_pointer(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} + +#define Xm_type_ptr_obj(Name, XType) \ + static Xen C_to_Xen_ ## Name (XType val) {if (val) return(wrap_for_Xen_obj(#Name, val)); return(Xen_false);} \ + static XType Xen_to_C_ ## Name (Xen val) {if (Xen_is_false(val)) return(NULL); return((XType)Xen_unwrap_C_pointer(Xen_cadr(val)));} \ + static bool Xen_is_ ## Name (Xen val) {return(is_wrapped(#Name, val));} \ + static Xen g_is_ ## Name (Xen val) {return(C_bool_to_Xen_boolean(is_wrapped(#Name, val)));} + + + +#define Xen_to_C_Dimension(Arg) (Dimension)(Xen_integer_to_C_int(Arg)) +#define C_to_Xen_Dimension(Arg) (C_int_to_Xen_integer((Dimension)Arg)) +#define Xen_is_Dimension(Arg) (Xen_is_integer(Arg)) + +#define Xen_to_C_Position(Arg) (Position)(Xen_integer_to_C_int(Arg)) +#define C_to_Xen_Position(Arg) (C_int_to_Xen_integer((Position)Arg)) +#define Xen_is_Position(Arg) (Xen_is_integer(Arg)) + +#define Xen_to_C_Modifiers(Arg) (Modifiers)(Xen_ulong_to_C_ulong(Arg)) +#define C_to_Xen_Modifiers(Arg) (C_ulong_to_Xen_ulong(Arg)) +#define Xen_is_Modifiers(Arg) (Xen_is_ulong(Arg)) + +Xm_type(Cursor, Cursor) +Xm_type_ptr(Screen, Screen *) +Xm_type_ptr_obj(XRectangle, XRectangle *) +Xm_type_ptr_obj(XArc, XArc *) +Xm_type_ptr_obj(XPoint, XPoint *) +Xm_type_ptr_obj(XSegment, XSegment *) +Xm_type_ptr_obj(XColor, XColor *) +Xm_type(Atom, Atom) +Xm_type(Colormap, Colormap) /* XID */ +Xm_type_ptr_no_c2x(Depth, Depth *) +Xm_type_ptr(Display, Display *) +Xm_type(Font, Font) +Xm_type_ptr(GC, GC) +Xm_type(KeySym, KeySym) +Xm_type(Pixel, Pixel) +Xm_type(Pixmap, Pixmap) +Xm_type(Region, Region) +Xm_type(Time, Time) +Xm_type_ptr(Visual, Visual *) +Xm_type(Window, Window) /* this is XID = long I think */ +Xm_type_ptr(XCharStruct, XCharStruct *) +Xm_type_ptr(XFontProp, XFontProp *) +Xm_type(XFontSet, XFontSet) +Xm_type_ptr(XFontStruct, XFontStruct *) +Xm_type_ptr(XGCValues, XGCValues *) +Xm_type_ptr_no_c2x(XTextItem, XTextItem *) +Xm_type_ptr(XModifierKeymap, XModifierKeymap *) /* opaque in this implementation */ +Xm_type_ptr(XImage, XImage *) +static XAnyEvent *Xen_to_C_XAnyEvent(Xen val) {return((XAnyEvent *)Xen_unwrap_C_pointer(Xen_cadr(val)));} +Xm_type_ptr_no_c2x(XButtonEvent, XButtonEvent *) +Xm_type_ptr_no_c2x(XCirculateEvent, XCirculateEvent *) +Xm_type_ptr_no_c2x(XCirculateRequestEvent, XCirculateRequestEvent *) +Xm_type_ptr_no_c2x(XClientMessageEvent, XClientMessageEvent *) +Xm_type_ptr_no_c2x(XColormapEvent, XColormapEvent *) +Xm_type_ptr_no_c2x(XConfigureEvent, XConfigureEvent *) +Xm_type_ptr_no_c2x(XConfigureRequestEvent, XConfigureRequestEvent *) +Xm_type_ptr_no_c2x(XCreateWindowEvent, XCreateWindowEvent *) +Xm_type_ptr_no_c2x(XCrossingEvent, XCrossingEvent *) +Xm_type_ptr_no_c2x(XDestroyWindowEvent, XDestroyWindowEvent *) +Xm_type_ptr(XErrorEvent, XErrorEvent *) +Xm_type_ptr_no_c2x(XExposeEvent, XExposeEvent *) +Xm_type_ptr_no_c2x(XFocusChangeEvent, XFocusChangeEvent *) +Xm_type_ptr_no_c2x(XGraphicsExposeEvent, XGraphicsExposeEvent *) +Xm_type_ptr_no_c2x(XGravityEvent, XGravityEvent *) +Xm_type_ptr_no_c2x(XKeyEvent, XKeyEvent *) +Xm_type_ptr_no_c2x(XKeymapEvent, XKeymapEvent *) +Xm_type_ptr_no_c2x(XMapEvent, XMapEvent *) +Xm_type_ptr_no_c2x(XMapRequestEvent, XMapRequestEvent *) +Xm_type_ptr_no_c2x(XMappingEvent, XMappingEvent *) +Xm_type_ptr_no_c2x(XMotionEvent, XMotionEvent *) +Xm_type_ptr_no_c2x(XNoExposeEvent, XNoExposeEvent *) +Xm_type_ptr_no_c2x(XPropertyEvent, XPropertyEvent *) +Xm_type_ptr_no_c2x(XReparentEvent, XReparentEvent *) +Xm_type_ptr_no_c2x(XResizeRequestEvent, XResizeRequestEvent *) +Xm_type_ptr_no_c2x(XSelectionClearEvent, XSelectionClearEvent *) +Xm_type_ptr_no_c2x(XSelectionEvent, XSelectionEvent *) +Xm_type_ptr(XSelectionRequestEvent, XSelectionRequestEvent *) +Xm_type_ptr_no_c2x(XUnmapEvent, XUnmapEvent *) +Xm_type_ptr_no_c2x(XVisibilityEvent, XVisibilityEvent *) +Xm_type_ptr_obj(XSetWindowAttributes, XSetWindowAttributes *) +Xm_type_ptr(XVisualInfo, XVisualInfo *) +Xm_type_ptr(XWMHints, XWMHints *) +Xm_type_ptr_no_c2x_no_p(XSizeHints, XSizeHints *) +Xm_type_ptr(XWindowAttributes, XWindowAttributes *) +Xm_type_ptr_obj(XWindowChanges, XWindowChanges *) +Xm_type_ptr(XStandardColormap, XStandardColormap *) +Xm_type_int(KeyCode, KeyCode) +Xm_type_int(XContext, XContext) +Xm_type_ptr(XIconSize, XIconSize *) + +Xm_type_ptr(Widget, Widget) +Xm_type(WidgetClass, WidgetClass) +Xm_type(XtAppContext, XtAppContext) +Xm_type(XtRequestId, XtRequestId) +Xm_type(XtWorkProcId, XtWorkProcId) +Xm_type(XtInputId, XtInputId) +Xm_type(XtIntervalId, XtIntervalId) +Xm_type_no_p(XtActionHookId, XtActionHookId) +Xm_type_no_p(XtTranslations, XtTranslations) /* opaque */ +Xm_type_ptr(XmString, XmString) +Xm_type_ptr_no_p_NO_P(XmAnyCallbackStruct, XmAnyCallbackStruct *) +Xm_type_ptr_no_p(XmArrowButtonCallbackStruct, XmArrowButtonCallbackStruct *) +Xm_type_ptr_no_p(XmCommandCallbackStruct, XmCommandCallbackStruct *) +Xm_type_ptr_no_p(XmDragDropFinishCallbackStruct, XmDragDropFinishCallbackStruct *) +Xm_type_ptr_no_p(XmDragMotionCallbackStruct, XmDragMotionCallbackStruct *) +Xm_type_ptr_no_p(XmDragProcCallbackStruct, XmDragProcCallbackStruct *) +Xm_type_ptr_no_p(XmDrawingAreaCallbackStruct, XmDrawingAreaCallbackStruct *) +Xm_type_ptr_no_p(XmDrawnButtonCallbackStruct, XmDrawnButtonCallbackStruct *) +Xm_type_ptr_no_p(XmDropFinishCallbackStruct, XmDropFinishCallbackStruct *) +Xm_type_ptr_no_p(XmDropProcCallbackStruct, XmDropProcCallbackStruct *) +Xm_type_ptr_no_p(XmDropSiteEnterCallbackStruct, XmDropSiteEnterCallbackStruct *) +Xm_type_ptr_no_p(XmDropSiteLeaveCallbackStruct, XmDropSiteLeaveCallbackStruct *) +Xm_type_ptr_no_p(XmDropStartCallbackStruct, XmDropStartCallbackStruct *) +Xm_type_ptr_no_p(XmFileSelectionBoxCallbackStruct, XmFileSelectionBoxCallbackStruct *) +Xm_type_ptr_no_p(XmListCallbackStruct, XmListCallbackStruct *) +Xm_type(XmTab, XmTab) /* opaque */ +Xm_type_ptr_no_p(XmDragStartCallbackStruct, XmDragStartCallbackStruct *) +Xm_type_ptr_no_p(XmDisplayCallbackStruct, XmDisplayCallbackStruct *) +Xm_type_ptr_no_p(XmDestinationCallbackStruct, XmDestinationCallbackStruct *) +Xm_type_ptr_no_p(XmConvertCallbackStruct, XmConvertCallbackStruct *) +Xm_type_ptr_no_p(XmComboBoxCallbackStruct, XmComboBoxCallbackStruct *) +Xm_type_ptr_no_p(XmContainerOutlineCallbackStruct, XmContainerOutlineCallbackStruct *) +Xm_type_ptr_no_p(XmContainerSelectCallbackStruct, XmContainerSelectCallbackStruct *) +Xm_type_ptr_no_p(XmNotebookCallbackStruct, XmNotebookCallbackStruct *) +Xm_type_ptr_no_p(XmNotebookPageInfo, XmNotebookPageInfo *) +Xm_type_ptr(XmRenderTable, XmRenderTable) +Xm_type_ptr(XmRendition, XmRendition) +Xm_type_ptr_no_p(XmSpinBoxCallbackStruct, XmSpinBoxCallbackStruct *) +Xm_type_ptr_no_p(XmTraverseObscuredCallbackStruct, XmTraverseObscuredCallbackStruct *) +Xm_type_ptr_no_p(XmTopLevelLeaveCallbackStruct, XmTopLevelLeaveCallbackStruct *) +Xm_type_ptr_no_p(XmTopLevelEnterCallbackStruct, XmTopLevelEnterCallbackStruct *) +Xm_type_ptr_no_p(XmPopupHandlerCallbackStruct, XmPopupHandlerCallbackStruct *) +Xm_type_ptr_no_p(XmSelectionCallbackStruct, XmSelectionCallbackStruct *) +Xm_type_ptr_no_c2x_no_p(XmTransferDoneCallbackStruct, XmTransferDoneCallbackStruct *) +Xm_type_ptr(XmTabList, XmTabList) /* opaque */ +Xm_type(XmParseMapping, XmParseMapping) +Xm_type_ptr_no_p(XmOperationChangedCallbackStruct, XmOperationChangedCallbackStruct *) +Xm_type_ptr_no_p(XmPushButtonCallbackStruct, XmPushButtonCallbackStruct *) +Xm_type_ptr_no_p(XmRowColumnCallbackStruct, XmRowColumnCallbackStruct *) +Xm_type_ptr_no_p(XmScaleCallbackStruct, XmScaleCallbackStruct *) +Xm_type_ptr_no_p(XmScrollBarCallbackStruct, XmScrollBarCallbackStruct *) +Xm_type_ptr_no_p(XmSelectionBoxCallbackStruct, XmSelectionBoxCallbackStruct *) +Xm_type_ptr_no_p(XmTextVerifyCallbackStruct, XmTextVerifyCallbackStruct *) +Xm_type_ptr_no_c2x_no_p(XmTextBlock, XmTextBlock) +Xm_type_ptr_no_p(XmToggleButtonCallbackStruct, XmToggleButtonCallbackStruct *) +#define Xen_to_C_XmFontList(Arg) Xen_to_C_XmRenderTable(Arg) +Xm_type(XmTextSource, XmTextSource) +Xm_type(XmStringContext, XmStringContext) + +static int Xen_is_XmFontList_or_XmRenderTable(Xen arg) +{ + return(Xen_is_XmRenderTable(arg)); +} + +static Xen type_to_event_symbol(int utype) { const char *type; type = "XErrorEvent"; /* -1 for an error event? */ @@ -680,71 +645,62 @@ static XEN type_to_event_symbol(int utype) case ClientMessage: type = "XClientMessageEvent"; break; case MappingNotify: type = "XMappingEvent"; break; } - return(C_STRING_TO_XEN_SYMBOL(type)); + return(C_string_to_Xen_symbol(type)); } -static XEN C_TO_XEN_XEvent_1(XEvent *e, int need_free) +static Xen C_to_Xen_XEvent_1(XEvent *e, int need_free) { - if (e == NULL) return(XEN_FALSE); /* synthetic callback may have no event */ + if (e == NULL) return(Xen_false); /* synthetic callback may have no event */ if (need_free) - return(XEN_LIST_4(type_to_event_symbol(e->type), - XEN_WRAP_C_POINTER(e), + return(Xen_list_4(type_to_event_symbol(e->type), + Xen_wrap_C_pointer(e), make_xm_obj(e), - C_STRING_TO_XEN_SYMBOL("XEvent"))); - return(XEN_LIST_4(type_to_event_symbol(e->type), - XEN_WRAP_C_POINTER(e), - XEN_FALSE, - C_STRING_TO_XEN_SYMBOL("XEvent"))); + C_string_to_Xen_symbol("XEvent"))); + return(Xen_list_4(type_to_event_symbol(e->type), + Xen_wrap_C_pointer(e), + Xen_false, + C_string_to_Xen_symbol("XEvent"))); } -#define C_TO_XEN_XEvent(e) C_TO_XEN_XEvent_1(e, false) -#define C_TO_XEN_XEvent_OBJ(e) C_TO_XEN_XEvent_1(e, true) -#define XEN_TO_C_XEvent(Arg) (XEvent *)XEN_UNWRAP_C_POINTER(XEN_CADR(Arg)) -#define XEN_XEvent_P(Value) (XEN_LIST_P(Value) &&\ - (XEN_LIST_LENGTH(Value) == 4) &&\ - (XEN_SYMBOL_P(XEN_CADDDR(Value))) &&\ - (strcmp("XEvent", XEN_SYMBOL_TO_C_STRING(XEN_CADDDR(Value))) == 0)) +#define C_to_Xen_XEvent(e) C_to_Xen_XEvent_1(e, false) +#define C_to_Xen_XEvent_OBJ(e) C_to_Xen_XEvent_1(e, true) +#define Xen_to_C_XEvent(Arg) (XEvent *)Xen_unwrap_C_pointer(Xen_cadr(Arg)) +#define Xen_is_XEvent(Value) (Xen_is_list(Value) &&\ + (Xen_list_length(Value) == 4) &&\ + (Xen_is_symbol(Xen_cadddr(Value))) &&\ + (strcmp("XEvent", Xen_symbol_to_C_string(Xen_cadddr(Value))) == 0)) -static XEN XEN_XEvent_p(XEN val) +static Xen g_is_XEvent(Xen val) { - return(C_TO_XEN_BOOLEAN(XEN_XEvent_P(val))); + return(C_bool_to_Xen_boolean(Xen_is_XEvent(val))); } -static XEN gxm_XEvent(XEN type) +static Xen gxm_XEvent(Xen type) { XEvent *e; - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(type), type, XEN_ONLY_ARG, "XEvent", "an X event type (integer)"); + Xen_check_type(Xen_is_integer_or_unbound(type), type, 1, "XEvent", "an X event type (integer)"); e = (XEvent *)calloc(1, sizeof(XEvent)); - if (XEN_INTEGER_P(type)) - e->type = XEN_TO_C_INT(type); - return(XEN_LIST_4(type_to_event_symbol(e->type), - XEN_WRAP_C_POINTER(e), + if (Xen_is_integer(type)) + e->type = Xen_integer_to_C_int(type); + return(Xen_list_4(type_to_event_symbol(e->type), + Xen_wrap_C_pointer(e), make_xm_obj(e), - C_STRING_TO_XEN_SYMBOL("XEvent"))); + C_string_to_Xen_symbol("XEvent"))); } -static XEN gxm_XGCValues(void) +static Xen gxm_XGCValues(void) { XGCValues *e; e = (XGCValues *)calloc(1, sizeof(XGCValues)); - return(WRAP_FOR_XEN_OBJ("XGCValues", e)); + return(wrap_for_Xen_obj("XGCValues", e)); } -#if HAVE_MOTIF - -#ifdef XEN_ARGIFY_1 - #define XM_Make(Name) \ - static XEN gxm_ ## Name (void) {Name *e; e = (Name *)calloc(1, sizeof(Name)); return(WRAP_FOR_XEN_OBJ(#Name, e));} \ - XEN_NARGIFY_0(gxm_ ## Name ## _w, gxm_ ## Name) - #define XM_Declare(Name) \ - XEN_DEFINE_PROCEDURE(XM_PREFIX #Name XM_POSTFIX, gxm_ ## Name ## _w, 0, 0, 0, "Make an " #Name " struct") -#else - #define XM_Make(Name) \ - static XEN gxm_ ## Name (void) {Name *e; e = (Name *)calloc(1, sizeof(Name)); return(WRAP_FOR_XEN_OBJ(#Name, e));} - #define XM_Declare(Name) \ - XEN_DEFINE_PROCEDURE(XM_PREFIX #Name XM_POSTFIX, gxm_ ## Name, 0, 0, 0, "Make an " #Name " struct") -#endif +#define XM_Make(Name) \ + static Xen gxm_ ## Name (void) {Name *e; e = (Name *)calloc(1, sizeof(Name)); return(wrap_for_Xen_obj(#Name, e));} \ + Xen_wrap_no_args(gxm_ ## Name ## _w, gxm_ ## Name) +#define XM_Declare(Name) \ + Xen_define_safe_procedure(XM_PREFIX #Name XM_POSTFIX, gxm_ ## Name ## _w, 0, 0, 0, "Make an " #Name " struct") XM_Make(XmAnyCallbackStruct) XM_Make(XmArrowButtonCallbackStruct) @@ -784,25 +740,15 @@ XM_Make(XmSelectionCallbackStruct) XM_Make(XmTransferDoneCallbackStruct) XM_Make(XmDisplayCallbackStruct) XM_Make(XmDragStartCallbackStruct) -#if HAVE_XmCreateDataField -XM_Make(XmDataFieldCallbackStruct) -#endif -#if HAVE_XmCreateTabStack -XM_Make(XmTabStackCallbackStruct) -#endif -static XEN gxm_XmTextBlock(void) +static Xen gxm_XmTextBlock(void) { XmTextBlockRec *e; e = (XmTextBlockRec *)calloc(1, sizeof(XmTextBlockRec)); - return(WRAP_FOR_XEN_OBJ("XmTextBlock", e)); + return(wrap_for_Xen_obj("XmTextBlock", e)); } -#ifdef XEN_ARGIFY_1 - XEN_NARGIFY_0(gxm_XmTextBlock_w, gxm_XmTextBlock) -#else - #define gxm_XmTextBlock_w gxm_XmTextBlock -#endif +Xen_wrap_no_args(gxm_XmTextBlock_w, gxm_XmTextBlock) static void define_makes(void) { @@ -829,7 +775,7 @@ static void define_makes(void) XM_Declare(XmSelectionBoxCallbackStruct); XM_Declare(XmTextVerifyCallbackStruct); XM_Declare(XmToggleButtonCallbackStruct); - XEN_DEFINE_PROCEDURE(XM_PREFIX "XmTextBlock" XM_POSTFIX, gxm_XmTextBlock_w, 0, 0, 0, "Make an XmTextBlock struct"); + Xen_define_safe_procedure(XM_PREFIX "XmTextBlock" XM_POSTFIX, gxm_XmTextBlock_w, 0, 0, 0, "Make an XmTextBlock struct"); XM_Declare(XmDestinationCallbackStruct); XM_Declare(XmConvertCallbackStruct); XM_Declare(XmComboBoxCallbackStruct); @@ -845,12 +791,6 @@ static void define_makes(void) XM_Declare(XmTransferDoneCallbackStruct); XM_Declare(XmDisplayCallbackStruct); XM_Declare(XmDragStartCallbackStruct); -#if HAVE_XmCreateDataField - XM_Declare(XmDataFieldCallbackStruct); -#endif -#if HAVE_XmCreateTabStack - XM_Declare(XmTabStackCallbackStruct); -#endif } static int its_a_callbackstruct(const char *name) @@ -869,16 +809,14 @@ static int its_a_callbackstruct(const char *name) return(0); } -#define XEN_AnyCallbackStruct_P(Value) (XEN_LIST_P(Value) && \ - (XEN_LIST_LENGTH(Value) >= 2) && \ - (XEN_SYMBOL_P(XEN_CAR(Value))) && \ - (its_a_callbackstruct(XEN_SYMBOL_TO_C_STRING(XEN_CAR(Value))))) -#endif +#define Xen_is_AnyCallbackStruct(Value) (Xen_is_list(Value) && \ + (Xen_list_length(Value) >= 2) && \ + (Xen_is_symbol(Xen_car(Value))) && \ + (its_a_callbackstruct(Xen_symbol_to_C_string(Xen_car(Value))))) -static int xm_protect(XEN obj); +static int xm_protect(Xen obj); static void xm_unprotect_at(int ind); -#if HAVE_MOTIF /* in XtGetValues we need to return tagged-types (etc) for arbitrarily named resources, * and in XtSetValues we need to do type checks, so resources are hashed by @@ -889,7 +827,7 @@ typedef enum {XM_INT, XM_ULONG, XM_UCHAR, XM_FLOAT, XM_STRING, XM_XMSTRING, XM_S XM_INT_TABLE, XM_RENDER_TABLE, XM_TAB_LIST, XM_WIDGET, XM_WIDGET_LIST, XM_BOOLEAN, XM_CALLBACK, XM_PIXEL, XM_PIXMAP, XM_XFONTSTRUCT, XM_DIMENSION, XM_ATOM, XM_ATOM_LIST, XM_STRING_LIST, XM_CHARSET_TABLE, XM_TEXT_SOURCE, - XM_FONTLIST, XM_COLORMAP, XM_KEYSYM, XM_KEYSYM_TABLE, XM_SCREEN, XM_WINDOW, + XM_COLORMAP, XM_KEYSYM, XM_KEYSYM_TABLE, XM_SCREEN, XM_WINDOW, XM_VISUAL, XM_RECTANGLE_LIST, XM_WIDGET_CLASS, XM_STRING_OR_INT, XM_TRANSFER_CALLBACK, XM_CONVERT_CALLBACK, XM_SEARCH_CALLBACK, XM_ORDER_CALLBACK, XM_QUALIFY_CALLBACK, XM_ALLOC_COLOR_CALLBACK, XM_POPUP_CALLBACK, XM_SCREEN_COLOR_CALLBACK, @@ -900,198 +838,189 @@ typedef enum {XM_INT, XM_ULONG, XM_UCHAR, XM_FLOAT, XM_STRING, XM_XMSTRING, XM_S static xm_resource_t resource_type(const char *resource); -static XEN C_TO_XEN_Widgets(Widget *array, int len) +static Xen C_to_Xen_Widgets(Widget *array, int len) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; if (array) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Widget(array[i]), lst); + lst = Xen_cons(C_to_Xen_Widget(array[i]), lst); xm_unprotect_at(loc); } return(lst); } -static XEN C_TO_XEN_XmStringTable(XmStringTable array, int len) +static Xen C_to_Xen_XmStringTable(XmStringTable array, int len) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; if (array) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_XmString(array[i]), lst); + lst = Xen_cons(C_to_Xen_XmString(array[i]), lst); xm_unprotect_at(loc); } return(lst); } -static Widget *XEN_TO_C_Widgets(XEN lst_1, int n) +static Widget *Xen_to_C_Widgets(Xen lst_1, int n) { Widget *ws; int i; - XEN lst; - lst = XEN_COPY_ARG(lst_1); + Xen lst; + lst = Xen_copy_arg(lst_1); ws = (Widget *)calloc(n, sizeof(Widget)); - for (i = 0; (i < n) && (XEN_NOT_NULL_P(lst)); i++, lst = XEN_CDR(lst)) - if (XEN_Widget_P(XEN_CAR(lst))) - ws[i] = XEN_TO_C_Widget(XEN_CAR(lst)); + for (i = 0; (i < n) && (!Xen_is_null(lst)); i++, lst = Xen_cdr(lst)) + if (Xen_is_Widget(Xen_car(lst))) + ws[i] = Xen_to_C_Widget(Xen_car(lst)); else { free(ws); ws = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(lst), i, c__FUNCTION__, "a Widget"); + Xen_check_type(0, Xen_car(lst), i, __func__, "a Widget"); break; } return(ws); } -static XmString *XEN_TO_C_XmStrings(XEN v_1, int len) +static XmString *Xen_to_C_XmStrings(Xen v_1, int len) { XmString *str; int i; - XEN v; - v = XEN_COPY_ARG(v_1); + Xen v; + v = Xen_copy_arg(v_1); str = (XmString *)calloc(len, sizeof(XmString)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_XmString_P(XEN_CAR(v))) - str[i] = (XmString)XEN_TO_C_XmString(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_XmString(Xen_car(v))) + str[i] = (XmString)Xen_to_C_XmString(Xen_car(v)); else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "an XmString"); + Xen_check_type(0, Xen_car(v), i, __func__, "an XmString"); break; } return(str); } -static XmDropTransferEntryRec *XEN_TO_C_XmDropTransferEntryRecs(XEN v_1, int len) +static XmDropTransferEntryRec *Xen_to_C_XmDropTransferEntryRecs(Xen v_1, int len) { XmDropTransferEntryRec *ps; int i; - XEN v; - v = XEN_COPY_ARG(v_1); + Xen v; + v = Xen_copy_arg(v_1); ps = (XmDropTransferEntryRec *)calloc(len, sizeof(XmDropTransferEntryRec)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) { - if (XEN_Atom_P(XEN_CAR(v))) - ps[i].target = XEN_TO_C_Atom(XEN_CAR(v)); + if (Xen_is_Atom(Xen_car(v))) + ps[i].target = Xen_to_C_Atom(Xen_car(v)); else { - if (XEN_LIST_P(XEN_CAR(v))) + if (Xen_is_list(Xen_car(v))) { - if (XEN_Atom_P(XEN_CAR(XEN_CAR(v)))) - ps[i].target = XEN_TO_C_Atom(XEN_CAR(XEN_CAR(v))); - else XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "an Atom"); - ps[i].client_data = (XtPointer)XEN_CADR(XEN_CAR(v)); + if (Xen_is_Atom(Xen_car(Xen_car(v)))) + ps[i].target = Xen_to_C_Atom(Xen_car(Xen_car(v))); + else Xen_check_type(0, Xen_car(v), i, __func__, "an Atom"); + ps[i].client_data = (XtPointer)Xen_cadr(Xen_car(v)); } } } return(ps); } -static XmStringTable XEN_TO_C_XmStringTable(XEN v_1, int len) +static XmStringTable Xen_to_C_XmStringTable(Xen v_1, int len) { - XEN v; + Xen v; XmStringTable str; int i; - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); str = (XmStringTable)calloc(len + 1, sizeof(XmString)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_XmString_P(XEN_CAR(v))) - str[i] = XEN_TO_C_XmString(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_XmString(Xen_car(v))) + str[i] = Xen_to_C_XmString(Xen_car(v)); else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "an XmString"); + Xen_check_type(0, Xen_car(v), i, __func__, "an XmString"); break; } return(str); } -#endif - -static XEN C_TO_XEN_Ints(int *array, int len) +static Xen C_to_Xen_Ints(int *array, int len) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; if (array) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_INT(array[i]), lst); + lst = Xen_cons(C_int_to_Xen_integer(array[i]), lst); xm_unprotect_at(loc); } return(lst); } #if HAVE_SCHEME -static XEN c_to_xen_ints(XEN array, XEN len) +static Xen c_to_xen_ints(Xen array, Xen len) { #define H_to_ints "->ints translates a Motif int array (from a .value reference for example) into a scheme list of ints" - return(C_TO_XEN_Ints((int *)XEN_UNWRAP_C_POINTER(array), XEN_TO_C_INT(len))); + Xen_check_type(Xen_is_wrapped_c_pointer(array), array, 1, "->ints", "int*"); + return(C_to_Xen_Ints((int *)Xen_unwrap_C_pointer(array), Xen_integer_to_C_int(len))); } #endif -static XEN C_TO_XEN_Atoms(Atom *array, int len) +static Xen C_to_Xen_Atoms(Atom *array, int len) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; if (array) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Atom(array[i]), lst); + lst = Xen_cons(C_to_Xen_Atom(array[i]), lst); xm_unprotect_at(loc); } return(lst); } #if HAVE_SCHEME -static XEN c_to_xen_atoms(XEN array, XEN len) +static Xen c_to_xen_atoms(Xen array, Xen len) { #define H_to_Atoms "->Atoms translates a Motif Atoms array (from a .value reference for example) into a scheme list of Atoms" - return(C_TO_XEN_Atoms((Atom *)XEN_UNWRAP_C_POINTER(array), XEN_TO_C_INT(len))); + Xen_check_type(Xen_is_wrapped_c_pointer(array), array, 1, "->Atoms", "Atom*"); + return(C_to_Xen_Atoms((Atom *)Xen_unwrap_C_pointer(array), Xen_integer_to_C_int(len))); } #endif -static XEN C_TO_XEN_Strings(char **array, int len) +static Xen C_to_Xen_Strings(char **array, int len) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; if (array) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(array[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(array[i]), lst); xm_unprotect_at(loc); } return(lst); } #if HAVE_SCHEME -static XEN c_to_xen_strings(XEN array, XEN len) +static Xen c_to_xen_strings(Xen array, Xen len) { #define H_to_strings "->strings translates a Motif string array (from a .value reference for example) into a scheme list of strings" - return(C_TO_XEN_Strings((char **)XEN_UNWRAP_C_POINTER(array), XEN_TO_C_INT(len))); -} - -static XEN c_to_xen_string(XEN str) -{ - #define H_to_string "->string translates a Motif string (from a .value reference for example) into a scheme string" - char *tmp; - tmp = (char *)XEN_UNWRAP_C_POINTER(str); - if (tmp) - return(C_TO_XEN_STRING(tmp)); - return(XEN_FALSE); + Xen_check_type(Xen_is_wrapped_c_pointer(array), array, 1, "->strings", "char**"); + return(C_to_Xen_Strings((char **)Xen_unwrap_C_pointer(array), Xen_integer_to_C_int(len))); } #endif -static XEN copy_xrectangle(XRectangle *old_r) +static Xen copy_xrectangle(XRectangle *old_r) { XRectangle *r; r = (XRectangle *)calloc(1, sizeof(XRectangle)); @@ -1099,253 +1028,252 @@ static XEN copy_xrectangle(XRectangle *old_r) r->y = old_r->y; r->width = old_r->width; r->height = old_r->height; - return(C_TO_XEN_XRectangle(r)); + return(C_to_Xen_XRectangle(r)); } -static XEN C_TO_XEN_XRectangles(XRectangle *array, int len) +static Xen C_to_Xen_XRectangles(XRectangle *array, int len) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; if (array) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(copy_xrectangle(&(array[i])), lst); + lst = Xen_cons(copy_xrectangle(&(array[i])), lst); xm_unprotect_at(loc); } return(lst); } #if HAVE_SCHEME -static XEN c_to_xen_xrectangles(XEN array, XEN len) +static Xen c_to_xen_xrectangles(Xen array, Xen len) { #define H_to_XRectangles "->XRectangles translates a Motif rectangle array (from a .value reference for example) into a scheme list of rectangles" - return(C_TO_XEN_XRectangles((XRectangle *)XEN_UNWRAP_C_POINTER(array), XEN_TO_C_INT(len))); + Xen_check_type(Xen_is_wrapped_c_pointer(array), array, 1, "->XRectangles", "Motif rectangle array"); + return(C_to_Xen_XRectangles((XRectangle *)Xen_unwrap_C_pointer(array), Xen_integer_to_C_int(len))); } #endif -static XEN C_TO_XEN_KeySyms(KeySym *array, int len) +static Xen C_to_Xen_KeySyms(KeySym *array, int len) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; if (array) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_KeySym(array[i]), lst); + lst = Xen_cons(C_to_Xen_KeySym(array[i]), lst); xm_unprotect_at(loc); } return(lst); } -static Window *XEN_TO_C_Windows(XEN lst_1, int n) +static Window *Xen_to_C_Windows(Xen lst_1, int n) { Window *ws; int i; - XEN lst; + Xen lst; if (n == 0) return(NULL); - lst = XEN_COPY_ARG(lst_1); + lst = Xen_copy_arg(lst_1); ws = (Window *)calloc(n, sizeof(Window)); - for (i = 0; (i < n) && (XEN_NOT_NULL_P(lst)); i++, lst = XEN_CDR(lst)) - if (XEN_Window_P(XEN_CAR(lst))) - ws[i] = XEN_TO_C_Window(XEN_CAR(lst)); + for (i = 0; (i < n) && (!Xen_is_null(lst)); i++, lst = Xen_cdr(lst)) + if (Xen_is_Window(Xen_car(lst))) + ws[i] = Xen_to_C_Window(Xen_car(lst)); else { free(ws); ws = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(lst), i, c__FUNCTION__, "a Window"); + Xen_check_type(0, Xen_car(lst), i, __func__, "a Window"); break; } return(ws); } -#if HAVE_MOTIF -static XmRendition *XEN_TO_C_XmRenditions(XEN lst_1, int n) +static XmRendition *Xen_to_C_XmRenditions(Xen lst_1, int n) { - XEN lst; + Xen lst; XmRendition *ws; int i; if (n == 0) return(NULL); - lst = XEN_COPY_ARG(lst_1); + lst = Xen_copy_arg(lst_1); ws = (XmRendition *)calloc(n, sizeof(XmRendition)); - for (i = 0; (i < n) && (XEN_NOT_NULL_P(lst)); i++, lst = XEN_CDR(lst)) - if (XEN_XmRendition_P(XEN_CAR(lst))) - ws[i] = XEN_TO_C_XmRendition(XEN_CAR(lst)); + for (i = 0; (i < n) && (!Xen_is_null(lst)); i++, lst = Xen_cdr(lst)) + if (Xen_is_XmRendition(Xen_car(lst))) + ws[i] = Xen_to_C_XmRendition(Xen_car(lst)); else { free(ws); ws = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(lst), i, c__FUNCTION__, "an XmRendition"); + Xen_check_type(0, Xen_car(lst), i, __func__, "an XmRendition"); break; } return(ws); } -static XmTab *XEN_TO_C_XmTabs(XEN v_1, int len) +static XmTab *Xen_to_C_XmTabs(Xen v_1, int len) { - XEN v; + Xen v; XmTab *str; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); str = (XmTab *)calloc(len, sizeof(XmTab)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_XmTab_P(XEN_CAR(v))) - str[i] = (XmTab)XEN_TO_C_XmTab(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_XmTab(Xen_car(v))) + str[i] = (XmTab)Xen_to_C_XmTab(Xen_car(v)); else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "an XmTab"); + Xen_check_type(0, Xen_car(v), i, __func__, "an XmTab"); break; } return(str); } -#endif -static Atom *XEN_TO_C_Atoms(XEN v_1, int len) +static Atom *Xen_to_C_Atoms(Xen v_1, int len) { - XEN v; + Xen v; Atom *str; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); str = (Atom *)calloc(len, sizeof(Atom)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_Atom_P(XEN_CAR(v))) - str[i] = (Atom)XEN_TO_C_Atom(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_Atom(Xen_car(v))) + str[i] = (Atom)Xen_to_C_Atom(Xen_car(v)); else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "an Atom"); + Xen_check_type(0, Xen_car(v), i, __func__, "an Atom"); break; } return(str); } -static Pixel *XEN_TO_C_Pixels(XEN v_1, int len) +static Pixel *Xen_to_C_Pixels(Xen v_1, int len) { - XEN v; + Xen v; Pixel *str; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); str = (Pixel *)calloc(len, sizeof(Pixel)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_Pixel_P(XEN_CAR(v))) - str[i] = (Pixel)XEN_TO_C_Pixel(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_Pixel(Xen_car(v))) + str[i] = (Pixel)Xen_to_C_Pixel(Xen_car(v)); else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "a Pixel"); + Xen_check_type(0, Xen_car(v), i, __func__, "a Pixel"); break; } return(str); } -static KeySym *XEN_TO_C_KeySyms(XEN v_1, int len) +static KeySym *Xen_to_C_KeySyms(Xen v_1, int len) { - XEN v; + Xen v; KeySym *str; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); str = (KeySym *)calloc(len, sizeof(KeySym)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_KeySym_P(XEN_CAR(v))) - str[i] = (KeySym)XEN_TO_C_KeySym(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_KeySym(Xen_car(v))) + str[i] = (KeySym)Xen_to_C_KeySym(Xen_car(v)); else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "a KeySym"); + Xen_check_type(0, Xen_car(v), i, __func__, "a KeySym"); break; } return(str); } -static char **XEN_TO_C_Strings(XEN v_1, int len) +static char **Xen_to_C_Strings(Xen v_1, int len) { - XEN v; + Xen v; char **str; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); str = (char **)calloc(len, sizeof(char *)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_STRING_P(XEN_CAR(v))) - str[i] = (char *)XEN_TO_C_STRING(XEN_CAR(v)); /* should this be protected? */ + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_string(Xen_car(v))) + str[i] = (char *)Xen_string_to_C_string(Xen_car(v)); /* should this be protected? */ else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "a char*"); + Xen_check_type(0, Xen_car(v), i, __func__, "a char*"); break; } return(str); } -static int *XEN_TO_C_Ints(XEN v_1, int len) +static int *Xen_to_C_Ints(Xen v_1, int len) { - XEN v; + Xen v; int *ps; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); ps = (int *)calloc(len, sizeof(int)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_INTEGER_P(XEN_CAR(v))) - ps[i] = XEN_TO_C_INT(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_integer(Xen_car(v))) + ps[i] = Xen_integer_to_C_int(Xen_car(v)); else { free(ps); ps = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "an int"); + Xen_check_type(0, Xen_car(v), i, __func__, "an int"); break; } return(ps); } -static Cardinal *XEN_TO_C_Cardinals(XEN v_1, int len) +static Cardinal *Xen_to_C_Cardinals(Xen v_1, int len) { - XEN v; + Xen v; Cardinal *ps; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); ps = (Cardinal *)calloc(len, sizeof(int)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) - if (XEN_INTEGER_P(XEN_CAR(v))) - ps[i] = (Cardinal)XEN_TO_C_INT(XEN_CAR(v)); + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) + if (Xen_is_integer(Xen_car(v))) + ps[i] = (Cardinal)Xen_integer_to_C_int(Xen_car(v)); else { free(ps); ps = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "a Cardinal"); + Xen_check_type(0, Xen_car(v), i, __func__, "a Cardinal"); break; } return(ps); } -static XRectangle *XEN_TO_C_XRectangles(XEN v_1, int len) +static XRectangle *Xen_to_C_XRectangles(Xen v_1, int len) { - XEN v; + Xen v; XRectangle *str, *dat; int i; if (len == 0) return(NULL); - v = XEN_COPY_ARG(v_1); + v = Xen_copy_arg(v_1); str = (XRectangle *)calloc(len, sizeof(XRectangle)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(v)); i++, v = XEN_CDR(v)) + for (i = 0; (i < len) && (!Xen_is_null(v)); i++, v = Xen_cdr(v)) { - if (XEN_XRectangle_P(XEN_CAR(v))) - dat = (XRectangle *)XEN_TO_C_XRectangle(XEN_CAR(v)); + if (Xen_is_XRectangle(Xen_car(v))) + dat = (XRectangle *)Xen_to_C_XRectangle(Xen_car(v)); else { free(str); str = NULL; - XEN_ASSERT_TYPE(0, XEN_CAR(v), i, c__FUNCTION__, "an XRectangle"); + Xen_check_type(0, Xen_car(v), i, __func__, "an XRectangle"); break; } str[i].x = dat->x; @@ -1357,42 +1285,41 @@ static XRectangle *XEN_TO_C_XRectangles(XEN v_1, int len) } -#if HAVE_MOTIF /* -------- arglists -------- */ -static XEN wrap_callback_struct(int type, XtPointer info); -static int map_over_protected_elements(bool (*func)(XEN val, int loc, unsigned long fid), unsigned long id); -static XEN xm_protected_element(int loc); +static Xen wrap_callback_struct(int type, XtPointer info); +static int map_over_protected_elements(bool (*func)(Xen val, int loc, unsigned long fid), unsigned long id); +static Xen xm_protected_element(int loc); static int callback_struct_type(Widget w, const char *name); -static void xm_unprotect(XEN obj); +static void xm_unprotect(Xen obj); enum {CALLBACK_TYPE, CALLBACK_FUNC, CALLBACK_DATA, CALLBACK_STRUCT_TYPE, CALLBACK_GC_LOC}; -#define C_TO_XEN_XM_XtCallback(Code, Context) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("XtCallback"), Code, Context, XEN_ZERO, XEN_ZERO) +#define C_to_Xen_XM_XtCallback(Code, Context) \ + Xen_list_5(C_string_to_Xen_symbol("XtCallback"), Code, Context, Xen_integer_zero, Xen_integer_zero) static void gxm_XtCallbackProc(Widget w, XtPointer context, XtPointer info) { - XEN descr = (XEN)context; - XEN_CALL_3(XEN_LIST_REF(descr, CALLBACK_FUNC), /* descr: (list "XtCallback" func user-data struct-type gc-loc) */ - C_TO_XEN_Widget(w), - XEN_LIST_REF(descr, CALLBACK_DATA), - wrap_callback_struct(XEN_TO_C_INT(XEN_LIST_REF(descr, CALLBACK_STRUCT_TYPE)), info), - c__FUNCTION__); + Xen descr = (Xen)context; + Xen_call_with_3_args(Xen_list_ref(descr, CALLBACK_FUNC), /* descr: (list "XtCallback" func user-data struct-type gc-loc) */ + C_to_Xen_Widget(w), + Xen_list_ref(descr, CALLBACK_DATA), + wrap_callback_struct(Xen_integer_to_C_int(Xen_list_ref(descr, CALLBACK_STRUCT_TYPE)), info), + __func__); } -#define C_TO_XEN_XM_Drop_Callback(Code) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("Drop_Callback"), Code, XEN_FALSE, XEN_ZERO, XEN_ZERO) -#define XM_Drop_Callback_P(Arg) WRAP_P("Drop_Callback", Arg) +#define C_to_Xen_XM_Drop_Callback(Code) \ + Xen_list_5(C_string_to_Xen_symbol("Drop_Callback"), Code, Xen_false, Xen_integer_zero, Xen_integer_zero) +#define XM_is_Drop_Callback(Arg) is_wrapped("Drop_Callback", Arg) -static bool find_dropproc(XEN val, int loc, unsigned long w) +static bool find_dropproc(Xen val, int loc, unsigned long w) { - return((XM_Drop_Callback_P(val)) && - (((XEN_FALSE_P((XEN)w)) && - (XEN_FALSE_P(XEN_LIST_REF(val, CALLBACK_DATA)))) || - ((XEN_Widget_P(XEN_LIST_REF(val, CALLBACK_DATA))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, CALLBACK_DATA))) == w)))); + return((XM_is_Drop_Callback(val)) && + (((Xen_is_false((Xen)w)) && + (Xen_is_false(Xen_list_ref(val, CALLBACK_DATA)))) || + ((Xen_is_Widget(Xen_list_ref(val, CALLBACK_DATA))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, CALLBACK_DATA))) == w)))); } static void gxm_Drop_Callback(Widget w, XtPointer context, XtPointer info) @@ -1402,29 +1329,29 @@ static void gxm_Drop_Callback(Widget w, XtPointer context, XtPointer info) i = map_over_protected_elements(find_dropproc, (unsigned long)w); if (i >= 0) { - XEN code; - code = XEN_LIST_REF(xm_protected_element(i), CALLBACK_FUNC); - if (XEN_PROCEDURE_P(code)) - XEN_CALL_3(code, - C_TO_XEN_Widget(w), - XEN_FALSE, - C_TO_XEN_XmDropProcCallbackStruct(cb), - c__FUNCTION__); + Xen code; + code = Xen_list_ref(xm_protected_element(i), CALLBACK_FUNC); + if (Xen_is_procedure(code)) + Xen_call_with_3_args(code, + C_to_Xen_Widget(w), + Xen_false, + C_to_Xen_XmDropProcCallbackStruct(cb), + __func__); } cb->dropSiteStatus = XmINVALID_DROP_SITE; /* try to exit cleanly from on-going drop */ } -#define C_TO_XEN_XM_Drag_Callback(Code) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("Drag_Callback"), Code, XEN_FALSE, XEN_ZERO, XEN_ZERO) -#define XM_Drag_Callback_P(Arg) WRAP_P("Drag_Callback", Arg) +#define C_to_Xen_XM_Drag_Callback(Code) \ + Xen_list_5(C_string_to_Xen_symbol("Drag_Callback"), Code, Xen_false, Xen_integer_zero, Xen_integer_zero) +#define XM_is_Drag_Callback(Arg) is_wrapped("Drag_Callback", Arg) -static bool find_dragproc(XEN val, int loc, unsigned long w) +static bool find_dragproc(Xen val, int loc, unsigned long w) { - return((XM_Drag_Callback_P(val)) && - (((XEN_FALSE_P((XEN)w)) && - (XEN_FALSE_P(XEN_LIST_REF(val, CALLBACK_DATA)))) || - ((XEN_Widget_P(XEN_LIST_REF(val, CALLBACK_DATA))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, CALLBACK_DATA))) == w)))); + return((XM_is_Drag_Callback(val)) && + (((Xen_is_false((Xen)w)) && + (Xen_is_false(Xen_list_ref(val, CALLBACK_DATA)))) || + ((Xen_is_Widget(Xen_list_ref(val, CALLBACK_DATA))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, CALLBACK_DATA))) == w)))); } static void gxm_Drag_Callback(Widget w, XtPointer context, XtPointer info) @@ -1434,28 +1361,28 @@ static void gxm_Drag_Callback(Widget w, XtPointer context, XtPointer info) i = map_over_protected_elements(find_dragproc, (unsigned long)w); if (i >= 0) { - XEN code; - code = XEN_LIST_REF(xm_protected_element(i), CALLBACK_FUNC); - if (XEN_PROCEDURE_P(code)) - XEN_CALL_3(code, - C_TO_XEN_Widget(w), - XEN_FALSE, - C_TO_XEN_XmDragProcCallbackStruct(cb), - c__FUNCTION__); + Xen code; + code = Xen_list_ref(xm_protected_element(i), CALLBACK_FUNC); + if (Xen_is_procedure(code)) + Xen_call_with_3_args(code, + C_to_Xen_Widget(w), + Xen_false, + C_to_Xen_XmDragProcCallbackStruct(cb), + __func__); } } -#define C_TO_XEN_XM_XtPopupChild(Code) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("XtPopupChild"), Code, XEN_FALSE, XEN_ZERO, XEN_ZERO) -#define XM_XtPopupChild_P(Arg) WRAP_P("XtPopupChild", Arg) +#define C_to_Xen_XM_XtPopupChild(Code) \ + Xen_list_5(C_string_to_Xen_symbol("XtPopupChild"), Code, Xen_false, Xen_integer_zero, Xen_integer_zero) +#define XM_is_XtPopupChild(Arg) is_wrapped("XtPopupChild", Arg) -static bool find_popupchild(XEN val, int loc, unsigned long w) +static bool find_popupchild(Xen val, int loc, unsigned long w) { - return((XM_XtPopupChild_P(val)) && - (((XEN_FALSE_P((XEN)w)) && - (XEN_FALSE_P(XEN_LIST_REF(val, CALLBACK_DATA)))) || - ((XEN_Widget_P(XEN_LIST_REF(val, CALLBACK_DATA))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, CALLBACK_DATA))) == w)))); + return((XM_is_XtPopupChild(val)) && + (((Xen_is_false((Xen)w)) && + (Xen_is_false(Xen_list_ref(val, CALLBACK_DATA)))) || + ((Xen_is_Widget(Xen_list_ref(val, CALLBACK_DATA))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, CALLBACK_DATA))) == w)))); } static void gxm_XtPopupChild(Widget w) @@ -1465,26 +1392,26 @@ static void gxm_XtPopupChild(Widget w) i = map_over_protected_elements(find_popupchild, (unsigned long)w); if (i >= 0) { - XEN code; - code = XEN_LIST_REF(xm_protected_element(i), CALLBACK_FUNC); - if (XEN_PROCEDURE_P(code)) - XEN_CALL_1(code, - C_TO_XEN_Widget(w), - c__FUNCTION__); + Xen code; + code = Xen_list_ref(xm_protected_element(i), CALLBACK_FUNC); + if (Xen_is_procedure(code)) + Xen_call_with_1_arg(code, + C_to_Xen_Widget(w), + __func__); } } -#define C_TO_XEN_XM_XmSearchProc(Code) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("XmSearchProc"), Code, XEN_FALSE, XEN_ZERO, XEN_ZERO) -#define XM_XmSearchProc_P(Arg) WRAP_P("XmSearchProc", Arg) +#define C_to_Xen_XM_XmSearchProc(Code) \ + Xen_list_5(C_string_to_Xen_symbol("XmSearchProc"), Code, Xen_false, Xen_integer_zero, Xen_integer_zero) +#define XM_is_XmSearchProc(Arg) is_wrapped("XmSearchProc", Arg) -static bool find_searchproc(XEN val, int loc, unsigned long w) +static bool find_searchproc(Xen val, int loc, unsigned long w) { - return((XM_XmSearchProc_P(val)) && - (((XEN_FALSE_P((XEN)w)) && - (XEN_FALSE_P(XEN_LIST_REF(val, CALLBACK_DATA)))) || - ((XEN_Widget_P(XEN_LIST_REF(val, CALLBACK_DATA))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, CALLBACK_DATA))) == w)))); + return((XM_is_XmSearchProc(val)) && + (((Xen_is_false((Xen)w)) && + (Xen_is_false(Xen_list_ref(val, CALLBACK_DATA)))) || + ((Xen_is_Widget(Xen_list_ref(val, CALLBACK_DATA))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, CALLBACK_DATA))) == w)))); } static void gxm_XmSearchProc(Widget w, XmFileSelectionBoxCallbackStruct *info) @@ -1494,27 +1421,27 @@ static void gxm_XmSearchProc(Widget w, XmFileSelectionBoxCallbackStruct *info) i = map_over_protected_elements(find_searchproc, (unsigned long)w); if (i >= 0) { - XEN code; - code = XEN_LIST_REF(xm_protected_element(i), CALLBACK_FUNC); - if (XEN_PROCEDURE_P(code)) - XEN_CALL_2(code, - C_TO_XEN_Widget(w), - C_TO_XEN_XmFileSelectionBoxCallbackStruct(info), - c__FUNCTION__); + Xen code; + code = Xen_list_ref(xm_protected_element(i), CALLBACK_FUNC); + if (Xen_is_procedure(code)) + Xen_call_with_2_args(code, + C_to_Xen_Widget(w), + C_to_Xen_XmFileSelectionBoxCallbackStruct(info), + __func__); } } -#define C_TO_XEN_XM_XmQualifyProc(Code) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("XmQualifyProc"), Code, XEN_FALSE, XEN_ZERO, XEN_ZERO) -#define XM_XmQualifyProc_P(Arg) WRAP_P("XmQualifyProc", Arg) +#define C_to_Xen_XM_XmQualifyProc(Code) \ + Xen_list_5(C_string_to_Xen_symbol("XmQualifyProc"), Code, Xen_false, Xen_integer_zero, Xen_integer_zero) +#define XM_is_XmQualifyProc(Arg) is_wrapped("XmQualifyProc", Arg) -static bool find_qualifyproc(XEN val, int loc, unsigned long w) +static bool find_qualifyproc(Xen val, int loc, unsigned long w) { - return((XM_XmQualifyProc_P(val)) && - (((XEN_FALSE_P((XEN)w)) && - (XEN_FALSE_P(XEN_LIST_REF(val, CALLBACK_DATA)))) || - ((XEN_Widget_P(XEN_LIST_REF(val, CALLBACK_DATA))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, CALLBACK_DATA))) == w)))); + return((XM_is_XmQualifyProc(val)) && + (((Xen_is_false((Xen)w)) && + (Xen_is_false(Xen_list_ref(val, CALLBACK_DATA)))) || + ((Xen_is_Widget(Xen_list_ref(val, CALLBACK_DATA))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, CALLBACK_DATA))) == w)))); } static void gxm_XmQualifyProc(Widget w, XtPointer indata, XtPointer outdata) @@ -1524,28 +1451,28 @@ static void gxm_XmQualifyProc(Widget w, XtPointer indata, XtPointer outdata) i = map_over_protected_elements(find_qualifyproc, (unsigned long)w); if (i >= 0) { - XEN code; - code = XEN_LIST_REF(xm_protected_element(i), CALLBACK_FUNC); - if (XEN_PROCEDURE_P(code)) - XEN_CALL_3(code, - C_TO_XEN_Widget(w), - C_TO_XEN_XmFileSelectionBoxCallbackStruct((XmFileSelectionBoxCallbackStruct *)indata), - C_TO_XEN_XmFileSelectionBoxCallbackStruct((XmFileSelectionBoxCallbackStruct *)outdata), - c__FUNCTION__); + Xen code; + code = Xen_list_ref(xm_protected_element(i), CALLBACK_FUNC); + if (Xen_is_procedure(code)) + Xen_call_with_3_args(code, + C_to_Xen_Widget(w), + C_to_Xen_XmFileSelectionBoxCallbackStruct((XmFileSelectionBoxCallbackStruct *)indata), + C_to_Xen_XmFileSelectionBoxCallbackStruct((XmFileSelectionBoxCallbackStruct *)outdata), + __func__); } } -#define C_TO_XEN_XM_XtOrderProc(Code) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("XtOrderProc"), Code, XEN_FALSE, XEN_ZERO, XEN_ZERO) -#define XM_XtOrderProc_P(Arg) WRAP_P("XtOrderProc", Arg) +#define C_to_Xen_XM_XtOrderProc(Code) \ + Xen_list_5(C_string_to_Xen_symbol("XtOrderProc"), Code, Xen_false, Xen_integer_zero, Xen_integer_zero) +#define XM_is_XtOrderProc(Arg) is_wrapped("XtOrderProc", Arg) -static bool find_orderproc(XEN val, int loc, unsigned long w) +static bool find_orderproc(Xen val, int loc, unsigned long w) { - return((XM_XtOrderProc_P(val)) && - (((XEN_FALSE_P((XEN)w)) && - (XEN_FALSE_P(XEN_LIST_REF(val, CALLBACK_DATA)))) || - ((XEN_Widget_P(XEN_LIST_REF(val, CALLBACK_DATA))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, CALLBACK_DATA))) == w)))); + return((XM_is_XtOrderProc(val)) && + (((Xen_is_false((Xen)w)) && + (Xen_is_false(Xen_list_ref(val, CALLBACK_DATA)))) || + ((Xen_is_Widget(Xen_list_ref(val, CALLBACK_DATA))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, CALLBACK_DATA))) == w)))); } static Cardinal gxm_XtOrderProc(Widget w) @@ -1555,28 +1482,28 @@ static Cardinal gxm_XtOrderProc(Widget w) i = map_over_protected_elements(find_orderproc, (unsigned long)w); if (i >= 0) { - XEN code; - code = XEN_LIST_REF(xm_protected_element(i), CALLBACK_FUNC); - if (XEN_PROCEDURE_P(code)) - result = XEN_TO_C_INT(XEN_CALL_1(code, - C_TO_XEN_Widget(w), - c__FUNCTION__)); + Xen code; + code = Xen_list_ref(xm_protected_element(i), CALLBACK_FUNC); + if (Xen_is_procedure(code)) + result = Xen_integer_to_C_int(Xen_call_with_1_arg(code, + C_to_Xen_Widget(w), + __func__)); } return((Cardinal)result); } -#define C_TO_XEN_XM_Parse_Callback(Code) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("Parse_Callback"), Code, XEN_FALSE, XEN_ZERO, XEN_ZERO) -#define XM_Parse_Callback_P(Arg) WRAP_P("Parse_Callback", Arg) +#define C_to_Xen_XM_Parse_Callback(Code) \ + Xen_list_5(C_string_to_Xen_symbol("Parse_Callback"), Code, Xen_false, Xen_integer_zero, Xen_integer_zero) +#define XM_is_Parse_Callback(Arg) is_wrapped("Parse_Callback", Arg) -static bool find_parseproc(XEN val, int loc, unsigned long w) +static bool find_parseproc(Xen val, int loc, unsigned long w) { - return((XM_Parse_Callback_P(val)) && - (((XEN_FALSE_P((XEN)w)) && - (XEN_FALSE_P(XEN_LIST_REF(val, CALLBACK_DATA)))) || - ((XEN_XmParseMapping_P(XEN_LIST_REF(val, CALLBACK_DATA))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, CALLBACK_DATA))) == w)))); + return((XM_is_Parse_Callback(val)) && + (((Xen_is_false((Xen)w)) && + (Xen_is_false(Xen_list_ref(val, CALLBACK_DATA)))) || + ((Xen_is_XmParseMapping(Xen_list_ref(val, CALLBACK_DATA))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, CALLBACK_DATA))) == w)))); } static XmIncludeStatus gxm_Parse_Callback(XtPointer *in_out, XtPointer text_end, XmTextType type, XmStringTag locale_tag, @@ -1586,132 +1513,132 @@ static XmIncludeStatus gxm_Parse_Callback(XtPointer *in_out, XtPointer text_end, i = map_over_protected_elements(find_parseproc, (unsigned long)entry); if (i >= 0) { - XEN code; - code = XEN_LIST_REF(xm_protected_element(i), CALLBACK_FUNC); - if (XEN_PROCEDURE_P(code)) - return(XEN_TO_C_INT(XEN_APPLY(code, - XEN_LIST_8(C_TO_XEN_STRING((char *)(*in_out)), - XEN_WRAP_C_POINTER(text_end), /* can't work... */ - C_TO_XEN_INT(type), - C_TO_XEN_STRING(locale_tag), - C_TO_XEN_XmParseMapping(entry), - C_TO_XEN_INT(pattern_length), - C_TO_XEN_XmString((*str_include)), /* can't work... */ - (XEN)call_data), - c__FUNCTION__))); + Xen code; + code = Xen_list_ref(xm_protected_element(i), CALLBACK_FUNC); + if (Xen_is_procedure(code)) + return(Xen_integer_to_C_int(Xen_apply(code, + Xen_list_8(C_string_to_Xen_string((char *)(*in_out)), + Xen_wrap_C_pointer(text_end), /* can't work... */ + C_int_to_Xen_integer(type), + C_string_to_Xen_string(locale_tag), + C_to_Xen_XmParseMapping(entry), + C_int_to_Xen_integer(pattern_length), + C_to_Xen_XmString((*str_include)), /* can't work... */ + (Xen)call_data), + __func__))); } return(0); } -static XEN xm_XmColorAllocationProc; +static Xen xm_XmColorAllocationProc; static void gxm_XmAllocColorProc(Display *dpy, Colormap color, XColor *bs) { /* DIFF: XmAllocColorProc should return new XColor value */ - XEN val; - val = XEN_CALL_3(xm_XmColorAllocationProc, - C_TO_XEN_Display(dpy), - C_TO_XEN_Colormap(color), - C_TO_XEN_XColor(bs), - c__FUNCTION__); - bs = XEN_TO_C_XColor(val); + Xen val; + val = Xen_call_with_3_args(xm_XmColorAllocationProc, + C_to_Xen_Display(dpy), + C_to_Xen_Colormap(color), + C_to_Xen_XColor(bs), + __func__); + (*bs) = (*(Xen_to_C_XColor(val))); } -static XEN xm_XmColorCalculationProc; +static Xen xm_XmColorCalculationProc; static void gxm_XmColorCalculationProc(Screen *scr, XColor *bg, XColor *fg, XColor *sel, XColor *ts, XColor *bs) { /* DIFF: XmColorCalculationProc takes 2 args, returns list of 4 colors */ - XEN lst; + Xen lst; int loc; - lst = XEN_CALL_2(xm_XmColorCalculationProc, - C_TO_XEN_Screen(scr), - C_TO_XEN_XColor(bg), - c__FUNCTION__); + lst = Xen_call_with_2_args(xm_XmColorCalculationProc, + C_to_Xen_Screen(scr), + C_to_Xen_XColor(bg), + __func__); loc = xm_protect(lst); - if (XEN_LIST_P(lst)) + if (Xen_is_list(lst)) { - fg = XEN_TO_C_XColor(XEN_LIST_REF(lst, 0)); - sel = XEN_TO_C_XColor(XEN_LIST_REF(lst, 1)); - ts = XEN_TO_C_XColor(XEN_LIST_REF(lst, 2)); - bs = XEN_TO_C_XColor(XEN_LIST_REF(lst, 3)); + (*fg) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 0)))); + (*sel) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 1)))); + (*ts) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 2)))); + (*bs) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 3)))); } xm_unprotect_at(loc); } -static XEN xm_XmColorProc; /* XmColorProc is not the same as XmScreen color calculation proc */ +static Xen xm_XmColorProc; /* XmColorProc is not the same as XmScreen color calculation proc */ static void gxm_XmColorProc(XColor *bg, XColor *fg, XColor *sel, XColor *ts, XColor *bs) { - XEN lst; + Xen lst; int loc; - lst = XEN_CALL_1(xm_XmColorProc, - C_TO_XEN_XColor(bg), - c__FUNCTION__); + lst = Xen_call_with_1_arg(xm_XmColorProc, + C_to_Xen_XColor(bg), + __func__); loc = xm_protect(lst); - if (XEN_LIST_P(lst)) + if (Xen_is_list(lst)) { - fg = XEN_TO_C_XColor(XEN_LIST_REF(lst, 0)); - sel = XEN_TO_C_XColor(XEN_LIST_REF(lst, 1)); - ts = XEN_TO_C_XColor(XEN_LIST_REF(lst, 2)); - bs = XEN_TO_C_XColor(XEN_LIST_REF(lst, 3)); + (*fg) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 0)))); + (*sel) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 1)))); + (*ts) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 2)))); + (*bs) = (*(Xen_to_C_XColor(Xen_list_ref(lst, 3)))); } xm_unprotect_at(loc); } -static XtCallbackList XEN_TO_C_XtCallbackList(XEN call_list1) +static XtCallbackList Xen_to_C_XtCallbackList(Xen call_list1) { - XEN call_list; + Xen call_list; int call_i, call_len; XtCallbackRec *cl = NULL; - call_list = XEN_COPY_ARG(call_list1); - call_len = XEN_LIST_LENGTH(call_list) / 2; + call_list = Xen_copy_arg(call_list1); + call_len = Xen_list_length(call_list) / 2; if (call_len == 0) return(NULL); cl = (XtCallbackRec *)calloc(call_len + 1, sizeof(XtCallbackRec)); - for (call_i = 0; call_i < call_len; call_i++, call_list = XEN_CDDR(call_list)) + for (call_i = 0; call_i < call_len; call_i++, call_list = Xen_cddr(call_list)) { - XEN func, data; - func = XEN_CAR(call_list); - if (XEN_LIST_LENGTH(call_list) == 2) - data = XEN_CADR(call_list); - else data = XEN_FALSE; - if ((XEN_PROCEDURE_P(func)) && (XEN_REQUIRED_ARGS_OK(func, 3))) + Xen func, data; + func = Xen_car(call_list); + if (Xen_list_length(call_list) == 2) + data = Xen_cadr(call_list); + else data = Xen_false; + if ((Xen_is_procedure(func)) && (Xen_is_aritable(func, 3))) { - XEN descr; + Xen descr; cl[call_i].callback = gxm_XtCallbackProc; - descr = C_TO_XEN_XM_XtCallback(XEN_CAR(call_list), data); + descr = C_to_Xen_XM_XtCallback(Xen_car(call_list), data); cl[call_i].closure = (XtPointer)descr; - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } } return(cl); } -static XEN C_TO_XEN_STRING_WITH_TERMINATION(char *str, unsigned long len) +static Xen C_to_Xen_STRING_WITH_TERMINATION(char *str, unsigned long len) { - if ((len == 0) || (str == NULL)) return(XEN_FALSE); + if ((len == 0) || (str == NULL)) return(Xen_false); str[len] = '\0'; - return(C_TO_XEN_STRING(str)); + return(C_string_to_Xen_string(str)); } -static XEN xm_XtSelectionCallback_Descr; +static Xen xm_XtSelectionCallback_Descr; static void gxm_XtSelectionCallbackProc(Widget w, XtPointer x, Atom *a1, Atom *a2, XtPointer x1, unsigned long *l, int *i) { - XEN_APPLY(XEN_CAR(xm_XtSelectionCallback_Descr), - XEN_LIST_7(C_TO_XEN_Widget(w), - XEN_CADR(xm_XtSelectionCallback_Descr), - C_TO_XEN_Atom(*a1), - C_TO_XEN_Atom(*a2), - C_TO_XEN_STRING_WITH_TERMINATION((char *)x1, *l), /* should we handle Atom -> Lisp type conversions? */ - C_TO_XEN_ULONG(*l), - C_TO_XEN_INT(*i)), - c__FUNCTION__); + Xen_apply(Xen_car(xm_XtSelectionCallback_Descr), + Xen_list_7(C_to_Xen_Widget(w), + Xen_cadr(xm_XtSelectionCallback_Descr), + C_to_Xen_Atom(*a1), + C_to_Xen_Atom(*a2), + C_to_Xen_STRING_WITH_TERMINATION((char *)x1, *l), /* should we handle Atom -> Lisp type conversions? */ + C_ulong_to_Xen_ulong(*l), + C_int_to_Xen_integer(*i)), + __func__); } -static XEN xm_XtConvertSelectionIncr_Descr; +static Xen xm_XtConvertSelectionIncr_Descr; static Boolean gxm_XtConvertSelectionIncrProc(Widget w, Atom *selection, Atom *target, Atom *type_return, XtPointer *value_return, @@ -1723,21 +1650,21 @@ static Boolean gxm_XtConvertSelectionIncrProc(Widget w, Atom *selection, Atom *t * should return (list ...) if ok, #f if not * the list should be (type value length format) */ - XEN result; - result = XEN_APPLY(xm_XtConvertSelectionIncr_Descr, - XEN_LIST_6(C_TO_XEN_Widget(w), - C_TO_XEN_Atom(*selection), - C_TO_XEN_Atom(*target), - C_TO_XEN_INT(*max_length), - XEN_WRAP_C_POINTER(client_data), - C_TO_XEN_ULONG(*request_id)), /* XtRequestId is XtPointer */ - c__FUNCTION__); - if (XEN_FALSE_P(result)) + Xen result; + result = Xen_apply(xm_XtConvertSelectionIncr_Descr, + Xen_list_6(C_to_Xen_Widget(w), + C_to_Xen_Atom(*selection), + C_to_Xen_Atom(*target), + C_int_to_Xen_integer(*max_length), + Xen_wrap_C_pointer(client_data), + C_ulong_to_Xen_ulong(*request_id)), /* XtRequestId is XtPointer */ + __func__); + if (Xen_is_false(result)) return(0); - (*type_return) = XEN_TO_C_Atom(XEN_LIST_REF(result, 0)); - (*value_return) = (XtPointer)XEN_UNWRAP_C_POINTER(XEN_LIST_REF(result, 1)); - (*length_return) = (unsigned long)XEN_TO_C_INT(XEN_LIST_REF(result, 2)); - (*format_return) = XEN_TO_C_INT(XEN_LIST_REF(result, 3)); + (*type_return) = Xen_to_C_Atom(Xen_list_ref(result, 0)); + (*value_return) = (XtPointer)Xen_unwrap_C_pointer(Xen_list_ref(result, 1)); + (*length_return) = (unsigned long)Xen_integer_to_C_int(Xen_list_ref(result, 2)); + (*format_return) = Xen_integer_to_C_int(Xen_list_ref(result, 3)); return(1); } @@ -1747,7 +1674,7 @@ static Arg *protect_args(Arg *args, int len) int i; for (i = 0; i < len; i++) if (args[i].name) - args[i].name = xen_strdup(args[i].name); /* XEN_TO_C_STRING will eventually gc, so protect against that until we're done with args */ + args[i].name = xen_strdup(args[i].name); /* Xen_to_C_STRING will eventually gc, so protect against that until we're done with args */ return(args); } @@ -1761,35 +1688,35 @@ static Arg *free_args(Arg *args, int len) return(NULL); } -static Arg *XEN_TO_C_Args(XEN inargl) +static Arg *Xen_to_C_Args(Xen inargl) { /* an Arg array in xm is a list of name value pairs */ Arg *args = NULL; int i, len, gcloc; - XEN descr, inarg; + Xen descr, inarg; /* if XtVaNestedList supported, scan for it here, and increase length as needed, - * then make recursive call to XEN_TO_C_Args in that branch, unloading afterwards + * then make recursive call to Xen_to_C_Args in that branch, unloading afterwards * this is not actually needed in xm -- just use append! */ - inarg = XEN_COPY_ARG(inargl); - len = XEN_LIST_LENGTH(inarg) / 2; + inarg = Xen_copy_arg(inargl); + len = Xen_list_length(inarg) / 2; if (len == 0) return(NULL); gcloc = xm_protect(inarg); args = (Arg *)calloc(len, sizeof(Arg)); - for (i = 0; i < len; i++, inarg = XEN_CDDR(inarg)) + for (i = 0; i < len; i++, inarg = Xen_cddr(inarg)) { XtCallbackRec *cl = NULL; xm_resource_t type; - XEN xname, value; + Xen xname, value; char *name; - xname = XEN_CAR(inarg); - XEN_ASSERT_TYPE(XEN_STRING_P(xname), xname, 0, c__FUNCTION__, "string"); - name = (char *)XEN_TO_C_STRING(xname); + xname = Xen_car(inarg); + Xen_check_type(Xen_is_string(xname), xname, 0, __func__, "string"); + name = (char *)Xen_string_to_C_string(xname); type = resource_type(name); - value = XEN_CADR(inarg); + value = Xen_cadr(inarg); switch (type) { - /* here the XtSetArg call wants an XtCallbackList, the incoming XEN type is a list of callback data pairs + /* here the XtSetArg call wants an XtCallbackList, the incoming Xen type is a list of callback data pairs * the new callback rec.callback = gxm_XtCallback (etc -- chosen by resource type) * the rec.closure will be the wrapped func/data info * we don't have all the data we need for the actual wrapped list here since we need the widget to choose the callback struct type @@ -1797,96 +1724,96 @@ static Arg *XEN_TO_C_Args(XEN inargl) * also, which callback is invoked may depend on callback type */ case XM_CALLBACK: - cl = XEN_TO_C_XtCallbackList(value); + cl = Xen_to_C_XtCallbackList(value); if (cl) XtSetArg(args[i], name, cl); break; case XM_PARSE_CALLBACK: - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 8))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 8))) { XtSetArg(args[i], name, (unsigned long)gxm_Parse_Callback); - descr = C_TO_XEN_XM_Parse_Callback(value); - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + descr = C_to_Xen_XM_Parse_Callback(value); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 8 args"); + else Xen_check_type(0, value, 0, name, "procedure of 8 args"); } break; case XM_DROP_CALLBACK: - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 3))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 3))) { XtSetArg(args[i], name, (unsigned long)gxm_Drop_Callback); - descr = C_TO_XEN_XM_Drop_Callback(value); - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + descr = C_to_Xen_XM_Drop_Callback(value); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 3 args"); + else Xen_check_type(0, value, 0, name, "procedure of 3 args"); } break; case XM_DRAG_CALLBACK: - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 3))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 3))) { XtSetArg(args[i], name, (unsigned long)gxm_Drag_Callback); - descr = C_TO_XEN_XM_Drag_Callback(value); - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + descr = C_to_Xen_XM_Drag_Callback(value); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 3 args"); + else Xen_check_type(0, value, 0, name, "procedure of 3 args"); } break; case XM_SEARCH_CALLBACK: /* XmNfileSearchProc and XmNdirSearchProc, XmSearchProc XmFileSelectionBox 756 */ - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 2))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 2))) { XtSetArg(args[i], name, (unsigned long)gxm_XmSearchProc); - descr = C_TO_XEN_XM_XmSearchProc(value); - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + descr = C_to_Xen_XM_XmSearchProc(value); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 2 args"); + else Xen_check_type(0, value, 0, name, "procedure of 2 args"); } break; case XM_QUALIFY_CALLBACK: /* XmNqualifySearchDataProc, XmQualifyProc */ - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 3))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 3))) { XtSetArg(args[i], name, (unsigned long)gxm_XmQualifyProc); - descr = C_TO_XEN_XM_XmQualifyProc(value); - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + descr = C_to_Xen_XM_XmQualifyProc(value); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 3 args"); + else Xen_check_type(0, value, 0, name, "procedure of 3 args"); } break; case XM_ORDER_CALLBACK: - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 1))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 1))) { XtSetArg(args[i], name, (unsigned long)gxm_XtOrderProc); - descr = C_TO_XEN_XM_XtOrderProc(value); - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + descr = C_to_Xen_XM_XtOrderProc(value); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 1 arg"); + else Xen_check_type(0, value, 0, name, "procedure of 1 arg"); } break; case XM_TRANSFER_CALLBACK: /* XmNtransferProc, XtSelectionCallbackProc, XmDropTransfer */ /* for now I'll assume no collisions here */ - xm_XtSelectionCallback_Descr = XEN_LIST_2(value, XEN_FALSE); + xm_XtSelectionCallback_Descr = Xen_list_2(value, Xen_false); xm_protect(xm_XtSelectionCallback_Descr); XtSetArg(args[i], name, (unsigned long)gxm_XtSelectionCallbackProc); break; @@ -1896,207 +1823,207 @@ static Arg *XEN_TO_C_Args(XEN inargl) XtSetArg(args[i], name, (unsigned long)gxm_XtConvertSelectionIncrProc); break; case XM_ALLOC_COLOR_CALLBACK: /* XmNcolorAllocationProc, XmAllocColorProc XmScreen 921 */ - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 3))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 3))) { XtSetArg(args[i], name, (unsigned long)gxm_XmAllocColorProc); - if (XEN_PROCEDURE_P(xm_XmColorAllocationProc)) xm_unprotect(xm_XmColorAllocationProc); + if (Xen_is_procedure(xm_XmColorAllocationProc)) xm_unprotect(xm_XmColorAllocationProc); xm_protect(value); xm_XmColorAllocationProc = value; } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 3 args"); + else Xen_check_type(0, value, 0, name, "procedure of 3 args"); } break; case XM_SCREEN_COLOR_CALLBACK: /* XmNcolorCalculationProc, XmScreen 921 */ - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 2))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 2))) { XtSetArg(args[i], name, (unsigned long)gxm_XmColorCalculationProc); - if (XEN_PROCEDURE_P(xm_XmColorCalculationProc)) xm_unprotect(xm_XmColorCalculationProc); + if (Xen_is_procedure(xm_XmColorCalculationProc)) xm_unprotect(xm_XmColorCalculationProc); xm_protect(value); xm_XmColorCalculationProc = value; } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 2 args"); + else Xen_check_type(0, value, 0, name, "procedure of 2 args"); } break; case XM_POPUP_CALLBACK: /* XmNcreatePopupChildProc, XtCreatePopupChildProc */ - if ((XEN_PROCEDURE_P(value)) && (XEN_REQUIRED_ARGS_OK(value, 1))) + if ((Xen_is_procedure(value)) && (Xen_is_aritable(value, 1))) { XtSetArg(args[i], name, (unsigned long)gxm_XtPopupChild); - descr = C_TO_XEN_XM_XtPopupChild(value); - XEN_LIST_SET(descr, CALLBACK_GC_LOC, C_TO_XEN_INT(xm_protect(descr))); + descr = C_to_Xen_XM_XtPopupChild(value); + Xen_list_set(descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(xm_protect(descr))); } else { - if (XEN_FALSE_P(value)) + if (Xen_is_false(value)) XtSetArg(args[i], name, 0); - else XEN_ASSERT_TYPE(0, value, 0, name, "procedure of 1 arg"); + else Xen_check_type(0, value, 0, name, "procedure of 1 arg"); } break; /* the rest are just doing type checks before the conversion to C */ case XM_INT: - XEN_ASSERT_TYPE(XEN_INTEGER_P(value), value, XEN_ONLY_ARG, name, "an integer"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_INT(value))); + Xen_check_type(Xen_is_integer(value), value, 1, name, "an integer"); + XtSetArg(args[i], name, (XtArgVal)(Xen_integer_to_C_int(value))); break; case XM_FLOAT: - XEN_ASSERT_TYPE(XEN_DOUBLE_P(value), value, XEN_ONLY_ARG, name, "a float"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_DOUBLE(value))); + Xen_check_type(Xen_is_double(value), value, 1, name, "a float"); + XtSetArg(args[i], name, (XtArgVal)(Xen_real_to_C_double(value))); break; case XM_STRING: - XEN_ASSERT_TYPE(XEN_STRING_P(value), value, XEN_ONLY_ARG, name, "a string"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_STRING(value))); + Xen_check_type(Xen_is_string(value), value, 1, name, "a string"); + XtSetArg(args[i], name, (XtArgVal)(Xen_string_to_C_string(value))); break; case XM_STRING_OR_INT: - XEN_ASSERT_TYPE(XEN_STRING_P(value) || XEN_INTEGER_P(value), value, XEN_ONLY_ARG, name, "an integer or a string"); - if (XEN_STRING_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_STRING(value))); - else XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_INT(value))); + Xen_check_type(Xen_is_string(value) || Xen_is_integer(value), value, 1, name, "an integer or a string"); + if (Xen_is_string(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_string_to_C_string(value))); + else XtSetArg(args[i], name, (XtArgVal)(Xen_integer_to_C_int(value))); break; case XM_XMSTRING: - XEN_ASSERT_TYPE(XEN_XmString_P(value), value, XEN_ONLY_ARG, name, "an XmString"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XmString(value))); + Xen_check_type(Xen_is_XmString(value), value, 1, name, "an XmString"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XmString(value))); break; case XM_STRING_OR_XMSTRING: - XEN_ASSERT_TYPE(XEN_XmString_P(value) || XEN_STRING_P(value), value, XEN_ONLY_ARG, name, "a string or an XmString"); - if (XEN_STRING_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_STRING(value))); - else XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XmString(value))); + Xen_check_type(Xen_is_XmString(value) || Xen_is_string(value), value, 1, name, "a string or an XmString"); + if (Xen_is_string(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_string_to_C_string(value))); + else XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XmString(value))); break; case XM_STRING_TABLE: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "an XmStringTable"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XmStringTable(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "an XmStringTable"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XmStringTable(value, Xen_list_length(value)))); break; case XM_TRANSFER_ENTRY_LIST: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "a list"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XmDropTransferEntryRecs(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "a list"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XmDropTransferEntryRecs(value, Xen_list_length(value)))); break; case XM_RENDER_TABLE: - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(value), value, XEN_ONLY_ARG, name, "an XmRenderTable"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XmRenderTable(value))); + Xen_check_type(Xen_is_XmRenderTable(value), value, 1, name, "an XmRenderTable"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XmRenderTable(value))); break; case XM_TAB_LIST: - XEN_ASSERT_TYPE(XEN_XmTabList_P(value), value, XEN_ONLY_ARG, name, "an XmTabList"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XmTabList(value))); + Xen_check_type(Xen_is_XmTabList(value), value, 1, name, "an XmTabList"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XmTabList(value))); break; case XM_WIDGET: - XEN_ASSERT_TYPE(XEN_Widget_P(value), value, XEN_ONLY_ARG, name, "a Widget"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Widget(value))); + Xen_check_type(Xen_is_Widget(value), value, 1, name, "a Widget"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Widget(value))); break; case XM_BOOLEAN: - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(value), value, XEN_ONLY_ARG, name, "a boolean"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_BOOLEAN(value))); + Xen_check_type(Xen_is_boolean(value), value, 1, name, "a boolean"); + XtSetArg(args[i], name, (XtArgVal)(Xen_boolean_to_C_bool(value))); break; case XM_BOOLEAN_OR_INT: - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(value) || XEN_INTEGER_P(value), value, XEN_ONLY_ARG, name, "a boolean or int"); - if (XEN_BOOLEAN_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_BOOLEAN(value))); - else XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_INT(value))); + Xen_check_type(Xen_is_boolean(value) || Xen_is_integer(value), value, 1, name, "a boolean or int"); + if (Xen_is_boolean(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_boolean_to_C_bool(value))); + else XtSetArg(args[i], name, (XtArgVal)(Xen_integer_to_C_int(value))); break; case XM_PIXEL: - XEN_ASSERT_TYPE(XEN_Pixel_P(value), value, XEN_ONLY_ARG, name, "a pixel"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Pixel(value))); + Xen_check_type(Xen_is_Pixel(value), value, 1, name, "a pixel"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Pixel(value))); break; case XM_PIXMAP: - XEN_ASSERT_TYPE(XEN_Pixmap_P(value), value, XEN_ONLY_ARG, name, "a pixmap"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Pixmap(value))); + Xen_check_type(Xen_is_Pixmap(value), value, 1, name, "a pixmap"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Pixmap(value))); break; case XM_DIMENSION: - XEN_ASSERT_TYPE(XEN_INTEGER_P(value), value, XEN_ONLY_ARG, name, "a Dimension (integer)"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Dimension(value))); + Xen_check_type(Xen_is_integer(value), value, 1, name, "a Dimension (integer)"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Dimension(value))); break; case XM_POSITION: - XEN_ASSERT_TYPE(XEN_INTEGER_P(value), value, XEN_ONLY_ARG, name, "a Position (integer)"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Position(value))); + Xen_check_type(Xen_is_integer(value), value, 1, name, "a Position (integer)"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Position(value))); break; case XM_SHORT: - XEN_ASSERT_TYPE(XEN_INTEGER_P(value), value, XEN_ONLY_ARG, name, "a short"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_INT(value))); + Xen_check_type(Xen_is_integer(value), value, 1, name, "a short"); + XtSetArg(args[i], name, (XtArgVal)(Xen_integer_to_C_int(value))); break; case XM_ATOM: - XEN_ASSERT_TYPE(XEN_Atom_P(value), value, XEN_ONLY_ARG, name, "an Atom"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Atom(value))); + Xen_check_type(Xen_is_Atom(value), value, 1, name, "an Atom"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Atom(value))); break; case XM_TEXT_SOURCE: - XEN_ASSERT_TYPE(XEN_XmTextSource_P(value), value, XEN_ONLY_ARG, name, "an XmTextSource"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XmTextSource(value))); + Xen_check_type(Xen_is_XmTextSource(value), value, 1, name, "an XmTextSource"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XmTextSource(value))); break; case XM_COLORMAP: - XEN_ASSERT_TYPE(XEN_Colormap_P(value), value, XEN_ONLY_ARG, name, "a Colormap"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Colormap(value))); + Xen_check_type(Xen_is_Colormap(value), value, 1, name, "a Colormap"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Colormap(value))); break; case XM_KEYSYM: - XEN_ASSERT_TYPE(XEN_KeySym_P(value), value, XEN_ONLY_ARG, name, "a KeySym"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_KeySym(value))); + Xen_check_type(Xen_is_KeySym(value), value, 1, name, "a KeySym"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_KeySym(value))); break; case XM_SCREEN: - XEN_ASSERT_TYPE(XEN_Screen_P(value), value, XEN_ONLY_ARG, name, "a Screen"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Screen(value))); + Xen_check_type(Xen_is_Screen(value), value, 1, name, "a Screen"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Screen(value))); break; case XM_WINDOW: - XEN_ASSERT_TYPE(XEN_Window_P(value), value, XEN_ONLY_ARG, name, "a Window"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Window(value))); + Xen_check_type(Xen_is_Window(value), value, 1, name, "a Window"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Window(value))); break; case XM_VISUAL: - XEN_ASSERT_TYPE(XEN_Visual_P(value), value, XEN_ONLY_ARG, name, "a Visual"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Visual(value))); + Xen_check_type(Xen_is_Visual(value), value, 1, name, "a Visual"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Visual(value))); break; case XM_WIDGET_CLASS: - XEN_ASSERT_TYPE(XEN_WidgetClass_P(value), value, XEN_ONLY_ARG, name, "a WidgetClass"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_WidgetClass(value))); + Xen_check_type(Xen_is_WidgetClass(value), value, 1, name, "a WidgetClass"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_WidgetClass(value))); break; case XM_ATOM_LIST: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "a list of Atoms"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Atoms(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "a list of Atoms"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Atoms(value, Xen_list_length(value)))); break; case XM_INT_TABLE: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "a list of ints"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Ints(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "a list of ints"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Ints(value, Xen_list_length(value)))); break; case XM_WIDGET_LIST: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "a list of Widgets"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Widgets(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "a list of Widgets"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Widgets(value, Xen_list_length(value)))); break; case XM_KEYSYM_TABLE: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "a list of KeySyms"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_KeySyms(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "a list of KeySyms"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_KeySyms(value, Xen_list_length(value)))); break; case XM_STRING_LIST: case XM_CHARSET_TABLE: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "a list of char *"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Strings(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "a list of char *"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Strings(value, Xen_list_length(value)))); break; case XM_RECTANGLE_LIST: - XEN_ASSERT_TYPE(XEN_LIST_P(value), value, XEN_ONLY_ARG, name, "a list of XRectangles"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_XRectangles(value, XEN_LIST_LENGTH(value)))); + Xen_check_type(Xen_is_list(value), value, 1, name, "a list of XRectangles"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_XRectangles(value, Xen_list_length(value)))); break; case XM_CURSOR: - XEN_ASSERT_TYPE(XEN_Cursor_P(value), value, XEN_ONLY_ARG, name, "a cursor"); - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_Cursor(value))); + Xen_check_type(Xen_is_Cursor(value), value, 1, name, "a cursor"); + XtSetArg(args[i], name, (XtArgVal)(Xen_to_C_Cursor(value))); break; default: - if (XEN_ULONG_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_ULONG(value))); - else if (XEN_INTEGER_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_INT(value))); - else if (XEN_BOOLEAN_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_BOOLEAN(value))); - else if (XEN_STRING_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_STRING(value))); + if (Xen_is_ulong(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_ulong_to_C_ulong(value))); + else if (Xen_is_integer(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_integer_to_C_int(value))); + else if (Xen_is_boolean(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_boolean_to_C_bool(value))); + else if (Xen_is_string(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_string_to_C_string(value))); /* these are bare pointers -- we can't assume they can be "unwrapped" in xen jargon */ - else if (XEN_LIST_P(value)) - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_INT64_T(XEN_CADR(value)))); /* all tagged types */ + else if (Xen_is_list(value)) + XtSetArg(args[i], name, (XtArgVal)(Xen_llong_to_C_llong(Xen_cadr(value)))); /* all tagged types */ else - XtSetArg(args[i], name, (XtArgVal)(XEN_TO_C_INT64_T(value))); + XtSetArg(args[i], name, (XtArgVal)(Xen_llong_to_C_llong(value))); break; } } @@ -2116,7 +2043,7 @@ static void fixup_args(Widget w, Arg *args, int len) { XtCallbackRec *cl = NULL; int j; - XEN data; + Xen data; switch (resource_type(name)) { case XM_STRING_TABLE: @@ -2138,8 +2065,8 @@ static void fixup_args(Widget w, Arg *args, int len) for (j = 0 ;; j++) { if (cl[j].callback == NULL) break; - data = (XEN)(cl[j].closure); - XEN_LIST_SET(data, CALLBACK_STRUCT_TYPE, C_TO_XEN_INT(callback_struct_type(w, name))); + data = (Xen)(cl[j].closure); + Xen_list_set(data, CALLBACK_STRUCT_TYPE, C_int_to_Xen_integer(callback_struct_type(w, name))); } free(cl); break; @@ -2149,13 +2076,13 @@ static void fixup_args(Widget w, Arg *args, int len) if (j >= 0) { data = xm_protected_element(j); - xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(data, CALLBACK_GC_LOC))); + xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(data, CALLBACK_GC_LOC))); } - j = map_over_protected_elements(find_dropproc, (unsigned long)XEN_FALSE); + j = map_over_protected_elements(find_dropproc, (unsigned long)Xen_false); if (j >= 0) { data = xm_protected_element(j); - XEN_LIST_SET(data, CALLBACK_DATA, C_TO_XEN_Widget(w)); + Xen_list_set(data, CALLBACK_DATA, C_to_Xen_Widget(w)); } else fprintf(stderr,"can't fixup drop proc!"); break; @@ -2164,13 +2091,13 @@ static void fixup_args(Widget w, Arg *args, int len) if (j >= 0) { data = xm_protected_element(j); - xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(data, CALLBACK_GC_LOC))); + xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(data, CALLBACK_GC_LOC))); } - j = map_over_protected_elements(find_dragproc, (unsigned long)XEN_FALSE); + j = map_over_protected_elements(find_dragproc, (unsigned long)Xen_false); if (j >= 0) { data = xm_protected_element(j); - XEN_LIST_SET(data, CALLBACK_DATA, C_TO_XEN_Widget(w)); + Xen_list_set(data, CALLBACK_DATA, C_to_Xen_Widget(w)); } else fprintf(stderr,"can't fixup drag proc!"); break; @@ -2179,13 +2106,13 @@ static void fixup_args(Widget w, Arg *args, int len) if (j >= 0) { data = xm_protected_element(j); - xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(data, CALLBACK_GC_LOC))); + xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(data, CALLBACK_GC_LOC))); } - j = map_over_protected_elements(find_qualifyproc, (unsigned long)XEN_FALSE); /* i.e. find the unset one */ + j = map_over_protected_elements(find_qualifyproc, (unsigned long)Xen_false); /* i.e. find the unset one */ if (j >= 0) { data = xm_protected_element(j); - XEN_LIST_SET(data, CALLBACK_DATA, C_TO_XEN_Widget(w)); + Xen_list_set(data, CALLBACK_DATA, C_to_Xen_Widget(w)); } break; case XM_SEARCH_CALLBACK: @@ -2193,13 +2120,13 @@ static void fixup_args(Widget w, Arg *args, int len) if (j >= 0) { data = xm_protected_element(j); - xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(data, CALLBACK_GC_LOC))); + xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(data, CALLBACK_GC_LOC))); } - j = map_over_protected_elements(find_searchproc, (unsigned long)XEN_FALSE); + j = map_over_protected_elements(find_searchproc, (unsigned long)Xen_false); if (j >= 0) { data = xm_protected_element(j); - XEN_LIST_SET(data, CALLBACK_DATA, C_TO_XEN_Widget(w)); + Xen_list_set(data, CALLBACK_DATA, C_to_Xen_Widget(w)); } break; case XM_ORDER_CALLBACK: @@ -2207,13 +2134,13 @@ static void fixup_args(Widget w, Arg *args, int len) if (j >= 0) { data = xm_protected_element(j); - xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(data, CALLBACK_GC_LOC))); + xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(data, CALLBACK_GC_LOC))); } - j = map_over_protected_elements(find_orderproc, (unsigned long)XEN_FALSE); + j = map_over_protected_elements(find_orderproc, (unsigned long)Xen_false); if (j >= 0) { data = xm_protected_element(j); - XEN_LIST_SET(data, CALLBACK_DATA, C_TO_XEN_Widget(w)); + Xen_list_set(data, CALLBACK_DATA, C_to_Xen_Widget(w)); } break; case XM_POPUP_CALLBACK: @@ -2221,13 +2148,13 @@ static void fixup_args(Widget w, Arg *args, int len) if (j >= 0) { data = xm_protected_element(j); - xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(data, CALLBACK_GC_LOC))); + xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(data, CALLBACK_GC_LOC))); } - j = map_over_protected_elements(find_popupchild, (unsigned long)XEN_FALSE); + j = map_over_protected_elements(find_popupchild, (unsigned long)Xen_false); if (j >= 0) { data = xm_protected_element(j); - XEN_LIST_SET(data, CALLBACK_DATA, C_TO_XEN_Widget(w)); + Xen_list_set(data, CALLBACK_DATA, C_to_Xen_Widget(w)); } break; default: @@ -2253,7 +2180,7 @@ static int xmstringtable_length(Widget w, const char *name) return(len); } -static XEN C_TO_XEN_ANY(Widget w, Arg arg) +static Xen C_to_Xen_ANY(Widget w, Arg arg) { /* XtGetValues -- a list of pairs: resource-name place-holder where we fill in the 2nd element */ /* this has to wait until the last moment to decide what arg.value is -- if we assume unsigned long* @@ -2263,46 +2190,46 @@ static XEN C_TO_XEN_ANY(Widget w, Arg arg) int j, ilen = 0; switch (resource_type(arg.name)) { - case XM_INT: return(C_TO_XEN_INT((*((int *)(arg.value))))); - case XM_ULONG: return(C_TO_XEN_ULONG((*((unsigned long *)(arg.value))))); - case XM_XTPOINTER: return(XEN_WRAP_C_POINTER((XtPointer)(arg.value))); - case XM_UCHAR: return(C_TO_XEN_INT((*((unsigned char *)(arg.value))))); - case XM_FLOAT: return(C_TO_XEN_DOUBLE((*((float *)(arg.value))))); /* the resource values are floats */ - case XM_STRING: return(C_TO_XEN_STRING((char *)(*((char **)(arg.value))))); + case XM_INT: return(C_int_to_Xen_integer((*((int *)(arg.value))))); + case XM_ULONG: return(C_ulong_to_Xen_ulong((*((unsigned long *)(arg.value))))); + case XM_XTPOINTER: return(Xen_wrap_C_pointer((XtPointer)(arg.value))); + case XM_UCHAR: return(C_int_to_Xen_integer((*((unsigned char *)(arg.value))))); + case XM_FLOAT: return(C_double_to_Xen_real((*((float *)(arg.value))))); /* the resource values are floats */ + case XM_STRING: return(C_string_to_Xen_string((char *)(*((char **)(arg.value))))); case XM_STRING_OR_XMSTRING: /* fileselectionbox here , not parsemapping */ - case XM_XMSTRING: return(C_TO_XEN_XmString((XmString)(*((XmString *)(arg.value))))); - case XM_STRING_TABLE: return(C_TO_XEN_XmStringTable((XmStringTable)(*((XmStringTable *)(arg.value))), xmstringtable_length(w, arg.name))); - case XM_RENDER_TABLE: return(C_TO_XEN_XmRenderTable((XmRenderTable)(*((XmRenderTable *)(arg.value))))); - case XM_TAB_LIST: return(C_TO_XEN_XmTabList((XmTabList)(*((XmTabList *)(arg.value))))); - case XM_WIDGET: return(C_TO_XEN_Widget((Widget)(*((Widget *)(arg.value))))); + case XM_XMSTRING: return(C_to_Xen_XmString((XmString)(*((XmString *)(arg.value))))); + case XM_STRING_TABLE: return(C_to_Xen_XmStringTable((XmStringTable)(*((XmStringTable *)(arg.value))), xmstringtable_length(w, arg.name))); + case XM_RENDER_TABLE: return(C_to_Xen_XmRenderTable((XmRenderTable)(*((XmRenderTable *)(arg.value))))); + case XM_TAB_LIST: return(C_to_Xen_XmTabList((XmTabList)(*((XmTabList *)(arg.value))))); + case XM_WIDGET: return(C_to_Xen_Widget((Widget)(*((Widget *)(arg.value))))); case XM_WIDGET_LIST: /* (XtGetValues c1 (list XmNchildren 0) 1) */ if (strcmp(arg.name, XmNchildren) == 0) XtSetArg(a[0], XmNnumChildren, &ilen); /* Composite */ else XtSetArg(a[0], XmNselectedObjectCount, &ilen); /* Container */ XtGetValues(w, a, 1); - return(C_TO_XEN_Widgets((Widget *)(*((Widget **)(arg.value))), ilen)); + return(C_to_Xen_Widgets((Widget *)(*((Widget **)(arg.value))), ilen)); break; - case XM_BOOLEAN: return(C_TO_XEN_BOOLEAN((*((Boolean *)(arg.value))))); - case XM_BOOLEAN_OR_INT: return(C_TO_XEN_INT((*((int *)(arg.value))))); + case XM_BOOLEAN: return(C_bool_to_Xen_boolean((*((Boolean *)(arg.value))))); + case XM_BOOLEAN_OR_INT: return(C_int_to_Xen_integer((*((int *)(arg.value))))); case XM_SEARCH_CALLBACK: j = map_over_protected_elements(find_searchproc, (unsigned long)w); - if (j >= 0) return(XEN_LIST_REF(xm_protected_element(j), CALLBACK_FUNC)); + if (j >= 0) return(Xen_list_ref(xm_protected_element(j), CALLBACK_FUNC)); break; case XM_DROP_CALLBACK: j = map_over_protected_elements(find_dropproc, (unsigned long)w); - if (j >= 0) return(XEN_LIST_REF(xm_protected_element(j), CALLBACK_FUNC)); + if (j >= 0) return(Xen_list_ref(xm_protected_element(j), CALLBACK_FUNC)); break; case XM_DRAG_CALLBACK: j = map_over_protected_elements(find_dragproc, (unsigned long)w); - if (j >= 0) return(XEN_LIST_REF(xm_protected_element(j), CALLBACK_FUNC)); + if (j >= 0) return(Xen_list_ref(xm_protected_element(j), CALLBACK_FUNC)); break; case XM_ORDER_CALLBACK: j = map_over_protected_elements(find_orderproc, (unsigned long)w); - if (j >= 0) return(XEN_LIST_REF(xm_protected_element(j), CALLBACK_FUNC)); + if (j >= 0) return(Xen_list_ref(xm_protected_element(j), CALLBACK_FUNC)); break; case XM_QUALIFY_CALLBACK: j = map_over_protected_elements(find_qualifyproc, (unsigned long)w); - if (j >= 0) return(XEN_LIST_REF(xm_protected_element(j), CALLBACK_FUNC)); + if (j >= 0) return(Xen_list_ref(xm_protected_element(j), CALLBACK_FUNC)); break; case XM_ALLOC_COLOR_CALLBACK: return(xm_XmColorAllocationProc); @@ -2312,7 +2239,7 @@ static XEN C_TO_XEN_ANY(Widget w, Arg arg) break; case XM_POPUP_CALLBACK: j = map_over_protected_elements(find_popupchild, (unsigned long)w); - if (j >= 0) return(XEN_LIST_REF(xm_protected_element(j), CALLBACK_FUNC)); + if (j >= 0) return(Xen_list_ref(xm_protected_element(j), CALLBACK_FUNC)); break; case XM_TRANSFER_CALLBACK: return(xm_XtSelectionCallback_Descr); @@ -2322,46 +2249,46 @@ static XEN C_TO_XEN_ANY(Widget w, Arg arg) /* this can't work because we don't know what the desired callback was, so we can't search the gc table */ /* and if the callback was a C procedure, what good would its address be in this context? */ /* (XtGetValues_1 would need to pass the entire Arg or something) */ - return(C_TO_XEN_ULONG((*((unsigned long *)(arg.value))))); + return(C_ulong_to_Xen_ulong((*((unsigned long *)(arg.value))))); break; - case XM_PIXEL: return(C_TO_XEN_Pixel((*((Pixel *)(arg.value))))); - case XM_PIXMAP: return(C_TO_XEN_Pixmap((*((Pixmap *)(arg.value))))); - case XM_XFONTSTRUCT: return(C_TO_XEN_XFontStruct((XFontStruct *)(*((XFontStruct **)(arg.value))))); - case XM_DIMENSION: return(C_TO_XEN_Dimension((*((Dimension *)(arg.value))))); - case XM_POSITION: return(C_TO_XEN_Position((*((Position *)(arg.value))))); - case XM_SHORT: return(C_TO_XEN_INT((*((short *)(arg.value))))); - case XM_ATOM: return(C_TO_XEN_Atom((*((Atom *)(arg.value))))); - case XM_TEXT_SOURCE: return(C_TO_XEN_XmTextSource((XmTextSource)(*((XmTextSource *)(arg.value))))); + case XM_PIXEL: return(C_to_Xen_Pixel((*((Pixel *)(arg.value))))); + case XM_PIXMAP: return(C_to_Xen_Pixmap((*((Pixmap *)(arg.value))))); + case XM_XFONTSTRUCT: return(C_to_Xen_XFontStruct((XFontStruct *)(*((XFontStruct **)(arg.value))))); + case XM_DIMENSION: return(C_to_Xen_Dimension((*((Dimension *)(arg.value))))); + case XM_POSITION: return(C_to_Xen_Position((*((Position *)(arg.value))))); + case XM_SHORT: return(C_int_to_Xen_integer((*((short *)(arg.value))))); + case XM_ATOM: return(C_to_Xen_Atom((*((Atom *)(arg.value))))); + case XM_TEXT_SOURCE: return(C_to_Xen_XmTextSource((XmTextSource)(*((XmTextSource *)(arg.value))))); case XM_ATOM_LIST: if (strcmp(arg.name, XmNexportTargets) == 0) /* DragContext */ XtSetArg(a[0], XmNnumExportTargets, &ilen); /* DropSite */ else XtSetArg(a[0], XmNnumImportTargets, &ilen); XtGetValues(w, a, 1); if ((ilen > 0) && (ilen < 100)) - return(C_TO_XEN_Atoms((Atom *)(*((Atom **)(arg.value))), ilen)); - else return(XEN_FALSE); + return(C_to_Xen_Atoms((Atom *)(*((Atom **)(arg.value))), ilen)); + else return(Xen_false); break; case XM_STRING_LIST: /* ApplicationShell */ XtSetArg(a[0], XmNargc, &ilen); XtGetValues(w, a, 1); - return(C_TO_XEN_Strings((char **)(*((char ***)(arg.value))), ilen)); + return(C_to_Xen_Strings((char **)(*((char ***)(arg.value))), ilen)); break; case XM_CHARSET_TABLE: XtSetArg(a[0], XmNbuttonCount, &ilen); /* may not be long enough... */ XtGetValues(w, a, 1); - return(C_TO_XEN_Strings((char **)(*((char ***)(arg.value))), ilen)); + return(C_to_Xen_Strings((char **)(*((char ***)(arg.value))), ilen)); break; - case XM_COLORMAP: return(C_TO_XEN_Colormap((*((Colormap *)(arg.value))))); - case XM_KEYSYM: return(C_TO_XEN_KeySym((*((KeySym *)(arg.value))))); + case XM_COLORMAP: return(C_to_Xen_Colormap((*((Colormap *)(arg.value))))); + case XM_KEYSYM: return(C_to_Xen_KeySym((*((KeySym *)(arg.value))))); case XM_KEYSYM_TABLE: XtSetArg(a[0], XmNbuttonCount, &ilen); XtGetValues(w, a, 1); - return(C_TO_XEN_KeySyms((KeySym *)(*((KeySym **)(arg.value))), ilen)); + return(C_to_Xen_KeySyms((KeySym *)(*((KeySym **)(arg.value))), ilen)); break; - case XM_SCREEN: return(C_TO_XEN_Screen((Screen *)(*((Screen **)(arg.value))))); - case XM_WINDOW: return(C_TO_XEN_Window((Window)(*((Window *)(arg.value))))); - case XM_VISUAL: return(C_TO_XEN_Visual((Visual *)(*((Visual **)(arg.value))))); + case XM_SCREEN: return(C_to_Xen_Screen((Screen *)(*((Screen **)(arg.value))))); + case XM_WINDOW: return(C_to_Xen_Window((Window)(*((Window *)(arg.value))))); + case XM_VISUAL: return(C_to_Xen_Visual((Visual *)(*((Visual **)(arg.value))))); case XM_INT_TABLE: if (strcmp(arg.name, XmNdetailOrder) == 0) XtSetArg(a[0], XmNdetailOrderCount, &ilen); @@ -2372,37 +2299,37 @@ static XEN C_TO_XEN_ANY(Widget w, Arg arg) else XtSetArg(a[0], XmNselectedPositionCount, &ilen); } XtGetValues(w, a, 1); - return(C_TO_XEN_Ints((int *)(*((int **)(arg.value))), ilen)); + return(C_to_Xen_Ints((int *)(*((int **)(arg.value))), ilen)); break; case XM_RECTANGLE_LIST: /* XmNrectangles exists but is not documented */ XtSetArg(a[0], XmNnumDropRectangles, &ilen); XtGetValues(w, a, 1); - return(C_TO_XEN_XRectangles((XRectangle *)(*((XRectangle **)(arg.value))), ilen)); + return(C_to_Xen_XRectangles((XRectangle *)(*((XRectangle **)(arg.value))), ilen)); break; - case XM_WIDGET_CLASS: return(C_TO_XEN_WidgetClass((WidgetClass)(*((WidgetClass *)(arg.value))))); + case XM_WIDGET_CLASS: return(C_to_Xen_WidgetClass((WidgetClass)(*((WidgetClass *)(arg.value))))); case XM_STRING_OR_INT: if ((w) && ((XmIsText(w)) || (XmIsTextField(w)))) - return(C_TO_XEN_STRING((char *)(*((char **)(arg.value))))); - else return(C_TO_XEN_INT((int)(*((int *)(arg.value))))); + return(C_string_to_Xen_string((char *)(*((char **)(arg.value))))); + else return(C_int_to_Xen_integer((int)(*((int *)(arg.value))))); break; default: break; } - return(C_TO_XEN_ULONG((*((unsigned long *)(arg.value))))); /* fallback */ + return(C_ulong_to_Xen_ulong((*((unsigned long *)(arg.value))))); /* fallback */ } -static XEN C_TO_XEN_Args(Widget w, Arg *args, int len) +static Xen C_to_Xen_Args(Widget w, Arg *args, int len) { /* here XtGetValues (or equivalent) has filled in the resource values and we need to pass them back * to scheme properly wrapped */ int i, loc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS_2(C_TO_XEN_STRING(args[i].name), - C_TO_XEN_ANY(w, args[i]), + lst = Xen_cons_2(C_string_to_Xen_string(args[i].name), + C_to_Xen_ANY(w, args[i]), lst); xm_unprotect_at(loc); return(lst); @@ -2410,87 +2337,86 @@ static XEN C_TO_XEN_Args(Widget w, Arg *args, int len) /* (XtGetValues c1 (list XmNx 0) 1) */ -static XEN gxm_XtGetValues_1(XEN arg1, XEN larg2, int len) +static Xen gxm_XtGetValues_1(Xen arg1, Xen larg2, int len) { Arg *args; unsigned long *locs; Widget w; - XEN val, arg2; + Xen val, arg2; int i, gcloc; /* here we need to make sure the ref args are ok from C's point of view */ - if (len <= 0) return(XEN_FALSE); - w = XEN_TO_C_Widget(arg1); - arg2 = XEN_COPY_ARG(larg2); + if (len <= 0) return(Xen_false); + w = Xen_to_C_Widget(arg1); + arg2 = Xen_copy_arg(larg2); gcloc = xm_protect(arg2); args = (Arg *)calloc(len, sizeof(Arg)); locs = (unsigned long *)calloc(len, sizeof(unsigned long)); - for (i = 0; i < len; i++, arg2 = XEN_CDDR(arg2)) + for (i = 0; i < len; i++, arg2 = Xen_cddr(arg2)) { char *name; - name = xen_strdup(XEN_TO_C_STRING(XEN_CAR(arg2))); + name = xen_strdup(Xen_string_to_C_string(Xen_car(arg2))); XtSetArg(args[i], name, &(locs[i])); } XtGetValues(w, args, len); - val = C_TO_XEN_Args(w, args, len); + val = C_to_Xen_Args(w, args, len); free_args(args, len); free(locs); xm_unprotect_at(gcloc); return(val); } -#endif /* -------------------------------- gc protection -------------------------------- */ -static XEN xm_protected; +static Xen xm_protected; static int xm_protected_size = 0; -static XEN xm_gc_table; +static Xen xm_gc_table; static int last_xm_unprotect = NOT_A_GC_LOC; -static int xm_protect(XEN obj) +static int xm_protect(Xen obj) { int i, new_size; - XEN new_table; + Xen new_table; if (last_xm_unprotect >= 0) { i = last_xm_unprotect; - if (XEN_FALSE_P(XEN_VECTOR_REF(xm_protected, i))) + if (Xen_is_false(Xen_vector_ref(xm_protected, i))) { - XEN_VECTOR_SET(xm_protected, i, obj); + Xen_vector_set(xm_protected, i, obj); last_xm_unprotect = NOT_A_GC_LOC; return(i); } last_xm_unprotect = NOT_A_GC_LOC; } for (i = 0; i < xm_protected_size; i++) - if (XEN_FALSE_P(XEN_VECTOR_REF(xm_protected, i))) + if (Xen_is_false(Xen_vector_ref(xm_protected, i))) { - XEN_VECTOR_SET(xm_protected, i, obj); + Xen_vector_set(xm_protected, i, obj); return(i); } new_size = xm_protected_size * 2; - new_table = XEN_MAKE_VECTOR(new_size, XEN_FALSE); + new_table = Xen_make_vector(new_size, Xen_false); for (i = 0; i < xm_protected_size; i++) { - XEN_VECTOR_SET(new_table, i, XEN_VECTOR_REF(xm_protected, i)); - XEN_VECTOR_SET(xm_protected, i, XEN_FALSE); + Xen_vector_set(new_table, i, Xen_vector_ref(xm_protected, i)); + Xen_vector_set(xm_protected, i, Xen_false); } - XEN_VECTOR_SET(new_table, xm_protected_size, obj); - XEN_VECTOR_SET(xm_gc_table, 0, new_table); + Xen_vector_set(new_table, xm_protected_size, obj); + Xen_vector_set(xm_gc_table, 0, new_table); i = xm_protected_size; xm_protected_size = new_size; xm_protected = new_table; return(i); } -static void xm_unprotect(XEN obj) +static void xm_unprotect(Xen obj) { int i; for (i = 0; i < xm_protected_size; i++) - if (XEN_EQ_P(XEN_VECTOR_REF(xm_protected, i), obj)) + if (Xen_is_eq(Xen_vector_ref(xm_protected, i), obj)) { - XEN_VECTOR_SET(xm_protected, i, XEN_FALSE); + Xen_vector_set(xm_protected, i, Xen_false); last_xm_unprotect = i; return; } @@ -2498,22 +2424,22 @@ static void xm_unprotect(XEN obj) static void xm_unprotect_at(int ind) { - XEN_VECTOR_SET(xm_protected, ind, XEN_FALSE); + Xen_vector_set(xm_protected, ind, Xen_false); last_xm_unprotect = ind; } -static int map_over_protected_elements(bool (*func)(XEN val, int loc, unsigned long fid), unsigned long id) +static int map_over_protected_elements(bool (*func)(Xen val, int loc, unsigned long fid), unsigned long id) { int i; for (i = 0; i < xm_protected_size; i++) - if (func(XEN_VECTOR_REF(xm_protected, i), i, id)) + if (func(Xen_vector_ref(xm_protected, i), i, id)) return(i); return(-1); } -static XEN xm_protected_element(int loc) +static Xen xm_protected_element(int loc) { - return(XEN_VECTOR_REF(xm_protected, loc)); + return(Xen_vector_ref(xm_protected, loc)); } @@ -2534,170 +2460,169 @@ static XEN xm_protected_element(int loc) */ /* Motif */ -#if HAVE_MOTIF /* weird order of procedures here and throughout caused by the C-header scripts -- * basically I forgot to reverse the main lists before pouring out the code, * so everything is slightly backwards */ -static int XEN_TO_C_INT_DEF(XEN len, XEN lst) +static int Xen_to_C_INT_DEF(Xen len, Xen lst) { - if (XEN_INTEGER_P(len)) - return(XEN_TO_C_INT(len)); + if (Xen_is_integer(len)) + return(Xen_integer_to_C_int(len)); else { int list_len; - list_len = XEN_LIST_LENGTH(lst); + list_len = Xen_list_length(lst); return((int)(list_len / 2)); } } -static XEN gxm_XmTransferDone(XEN arg1, XEN arg2) +static Xen gxm_XmTransferDone(Xen arg1, Xen arg2) { #define H_XmTransferDone "void XmTransferDone(XtPointer transfer_id, XmTransferStatus status) completes a data transfer" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, 1, "XmTransferDone", "XtPointer"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTransferDone", "XmTransferStatus"); - XmTransferDone((XtPointer)XEN_UNWRAP_C_POINTER(arg1), (XmTransferStatus)XEN_TO_C_INT(arg2)); + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "XmTransferDone", "XtPointer"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTransferDone", "XmTransferStatus"); + XmTransferDone((XtPointer)Xen_unwrap_C_pointer(arg1), (XmTransferStatus)Xen_integer_to_C_int(arg2)); return(arg1); } -static XEN gxm_XmTransferSendRequest(XEN arg1, XEN arg2) +static Xen gxm_XmTransferSendRequest(Xen arg1, Xen arg2) { #define H_XmTransferSendRequest "void XmTransferSendRequest(XtPointer transfer_id, Time time) transfers a MULTIPLE request" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, 1, "XmTransferSendRequest", "XtPointer"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTransferSendRequest", "Time"); - XmTransferSendRequest((XtPointer)XEN_UNWRAP_C_POINTER(arg1), XEN_TO_C_Time(arg2)); + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "XmTransferSendRequest", "XtPointer"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTransferSendRequest", "Time"); + XmTransferSendRequest((XtPointer)Xen_unwrap_C_pointer(arg1), Xen_to_C_Time(arg2)); return(arg1); } -static XEN gxm_XmTransferStartRequest(XEN arg1) +static Xen gxm_XmTransferStartRequest(Xen arg1) { #define H_XmTransferStartRequest "void XmTransferStartRequest(XtPointer transfer_id) begins a MULTIPLE transfer" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, 1, "XmTransferStartRequest", "XtPointer"); - XmTransferStartRequest((XtPointer)XEN_UNWRAP_C_POINTER(arg1)); + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "XmTransferStartRequest", "XtPointer"); + XmTransferStartRequest((XtPointer)Xen_unwrap_C_pointer(arg1)); return(arg1); } -static XEN gxm_XmTransferSetParameters(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmTransferSetParameters(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmTransferSetParameters "void XmTransferSetParameters(XtPointer transfer_id, XtPointer parm, int parm_fmt, \ unsigned long parm_length, Atom parm_type) establishes parameters to be passed by the next call to XmTransferValue" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, 1, "XmTransferSetParameters", "XtPointer"); - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg2), arg2, 2, "XmTransferSetParameters", "XtPointer"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTransferSetParameters", "an integer"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XmTransferSetParameters", "unsigned long"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg5), arg5, 5, "XmTransferSetParameters", "an Atom"); - XmTransferSetParameters((XtPointer)XEN_UNWRAP_C_POINTER(arg1), - (XtPointer)XEN_UNWRAP_C_POINTER(arg2), - XEN_TO_C_INT(arg3), - XEN_TO_C_ULONG(arg4), - XEN_TO_C_Atom(arg5)); + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "XmTransferSetParameters", "XtPointer"); + Xen_check_type(Xen_is_wrapped_c_pointer(arg2), arg2, 2, "XmTransferSetParameters", "XtPointer"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTransferSetParameters", "an integer"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XmTransferSetParameters", "unsigned long"); + Xen_check_type(Xen_is_Atom(arg5), arg5, 5, "XmTransferSetParameters", "an Atom"); + XmTransferSetParameters((XtPointer)Xen_unwrap_C_pointer(arg1), + (XtPointer)Xen_unwrap_C_pointer(arg2), + Xen_integer_to_C_int(arg3), + Xen_ulong_to_C_ulong(arg4), + Xen_to_C_Atom(arg5)); return(arg1); } static void gxm_TransferValueProc(Widget w, XtPointer context, XtPointer info) { - XEN descr = (XEN)context; - XEN_CALL_3(XEN_LIST_REF(descr, 0), - C_TO_XEN_Widget(w), - XEN_LIST_REF(descr, 1), - C_TO_XEN_XmSelectionCallbackStruct((XmSelectionCallbackStruct *)info), - c__FUNCTION__); + Xen descr = (Xen)context; + Xen_call_with_3_args(Xen_list_ref(descr, 0), + C_to_Xen_Widget(w), + Xen_list_ref(descr, 1), + C_to_Xen_XmSelectionCallbackStruct((XmSelectionCallbackStruct *)info), + __func__); } -static XEN gxm_XmTransferValue(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmTransferValue(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmTransferValue "void XmTransferValue(XtPointer transfer_id, Atom target, XtCallbackProc proc, XtPointer client_data, Time time) \ transfers data to a destination" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, 1, "XmTransferValue", "XtPointer"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmTransferValue", "an Atom"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg3) && (XEN_REQUIRED_ARGS_OK(arg3, 3)), arg3, 3, "XmTransferValue", "XtCallbackProc (3 args)"); - XEN_ASSERT_TYPE(XEN_Time_P(arg5), arg5, 5, "XmTransferValue", "Time"); - XmTransferValue((XtPointer)XEN_UNWRAP_C_POINTER(arg1), - XEN_TO_C_Atom(arg2), + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "XmTransferValue", "XtPointer"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmTransferValue", "an Atom"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 3)), arg3, 3, "XmTransferValue", "XtCallbackProc (3 args)"); + Xen_check_type(Xen_is_Time(arg5), arg5, 5, "XmTransferValue", "Time"); + XmTransferValue((XtPointer)Xen_unwrap_C_pointer(arg1), + Xen_to_C_Atom(arg2), gxm_TransferValueProc, - (XtPointer)XEN_LIST_2(arg3, arg4), - XEN_TO_C_Time(arg5)); + (XtPointer)Xen_list_2(arg3, arg4), + Xen_to_C_Time(arg5)); return(arg1); } -static XEN gxm_new_widget(const char *caller, Widget (*func)(Widget parent, char *name, ArgList al, Cardinal ac), XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_new_widget(const char *caller, Widget (*func)(Widget parent, char *name, ArgList al, Cardinal ac), Xen arg1, Xen arg2, Xen arg3, Xen arg4) { Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, caller, "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, caller, "char*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, caller, "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, caller, "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, caller, "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, caller, "char*"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, caller, "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, caller, "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg3); - w = (*func)(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), + args = Xen_to_C_Args(arg3); + w = (*func)(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), args, - arglen = XEN_TO_C_INT_DEF(arg4, arg3)); + arglen = Xen_to_C_INT_DEF(arg4, arg3)); if (args) { fixup_args(w, args, arglen); free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmCreateMenuShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateMenuShell(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateMenuShell "Widget XmCreateMenuShell(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MenuShell widget creation function" return(gxm_new_widget("XmCreateMenuShell", XmCreateMenuShell, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmProcessTraversal(XEN arg1, XEN arg2) +static Xen gxm_XmProcessTraversal(Xen arg1, Xen arg2) { #define H_XmProcessTraversal "Boolean XmProcessTraversal(Widget widget, XmTraversalDirection direction) determines which \ component receives keyboard events when a widget has the focus" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmProcessTraversal", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmProcessTraversal", "XmTraversalDirection"); - return(C_TO_XEN_BOOLEAN(XmProcessTraversal(XEN_TO_C_Widget(arg1), (XmTraversalDirection)XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmProcessTraversal", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmProcessTraversal", "XmTraversalDirection"); + return(C_bool_to_Xen_boolean(XmProcessTraversal(Xen_to_C_Widget(arg1), (XmTraversalDirection)Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XmGetFocusWidget(XEN arg1) +static Xen gxm_XmGetFocusWidget(Xen arg1) { #define H_XmGetFocusWidget "Widget XmGetFocusWidget(Widget widget): returns the ID of the widget that has keyboard focus" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmGetFocusWidget", "Widget"); - return(C_TO_XEN_Widget(XmGetFocusWidget(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmGetFocusWidget", "Widget"); + return(C_to_Xen_Widget(XmGetFocusWidget(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmGetTabGroup(XEN arg1) +static Xen gxm_XmGetTabGroup(Xen arg1) { #define H_XmGetTabGroup "Widget XmGetTabGroup(Widget widget): returns the widget ID of a tab group" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmGetTabGroup", "Widget"); - return(C_TO_XEN_Widget(XmGetTabGroup(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmGetTabGroup", "Widget"); + return(C_to_Xen_Widget(XmGetTabGroup(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmGetVisibility(XEN arg1) +static Xen gxm_XmGetVisibility(Xen arg1) { #define H_XmGetVisibility "XmVisibility XmGetVisibility(Widget widget) determines if a widget is visible" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmGetVisibility", "Widget"); - return(C_TO_XEN_INT(XmGetVisibility(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmGetVisibility", "Widget"); + return(C_int_to_Xen_integer(XmGetVisibility(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmIsTraversable(XEN arg1) +static Xen gxm_XmIsTraversable(Xen arg1) { #define H_XmIsTraversable "Boolean XmIsTraversable(Widget widget) identifies whether a widget can be traversed" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmIsTraversable", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsTraversable(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmIsTraversable", "Widget"); + return(C_bool_to_Xen_boolean(XmIsTraversable(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmGetDestination(XEN arg1) +static Xen gxm_XmGetDestination(Xen arg1) { #define H_XmGetDestination "Widget XmGetDestination(Display *display) gets the current destination widget for paste etc" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmGetDestination", "Display*"); - return(C_TO_XEN_Widget(XmGetDestination(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmGetDestination", "Display*"); + return(C_to_Xen_Widget(XmGetDestination(Xen_to_C_Display(arg1)))); } -static XEN gxm_XmRenderTableAddRenditions(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmRenderTableAddRenditions(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmRenderTableAddRenditions "XmRenderTable XmRenderTableAddRenditions(XmRenderTable oldtable, \ XmRendition *renditions, Cardinal rendition_count, XmMergeMode merge_mode) adds renditions to a render table" @@ -2706,22 +2631,23 @@ XmRendition *renditions, Cardinal rendition_count, XmMergeMode merge_mode) adds int len, listlen = 0; XmRendition *rs; XmRenderTable res; - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg1) || XEN_FALSE_P(arg1), arg1, 1, "XmRenderTableAddRenditions", "XmRenderTable"); - XEN_ASSERT_TYPE(XEN_LIST_P_WITH_LENGTH(arg2, listlen), arg2, 2, "XmRenderTableAddRenditions", "list of XmRendition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmRenderTableAddRenditions", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmRenderTableAddRenditions", "XmMergeMode"); - len = XEN_TO_C_INT(arg3); + Xen_check_type(Xen_is_XmRenderTable(arg1) || Xen_is_false(arg1), arg1, 1, "XmRenderTableAddRenditions", "XmRenderTable"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmRenderTableAddRenditions", "list of XmRendition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmRenderTableAddRenditions", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmRenderTableAddRenditions", "XmMergeMode"); + listlen = Xen_list_length(arg2); + len = Xen_integer_to_C_int(arg3); if (len > listlen) len = listlen; - if (len <= 0) return(XEN_FALSE); - rs = XEN_TO_C_XmRenditions(arg2, len); - res = XmRenderTableAddRenditions(XEN_FALSE_P(arg1) ? NULL : XEN_TO_C_XmRenderTable(arg1), + if (len <= 0) return(Xen_false); + rs = Xen_to_C_XmRenditions(arg2, len); + res = XmRenderTableAddRenditions(Xen_is_false(arg1) ? NULL : Xen_to_C_XmRenderTable(arg1), rs, (Cardinal)len, - (XmMergeMode)XEN_TO_C_INT(arg4)); + (XmMergeMode)Xen_integer_to_C_int(arg4)); free(rs); - return(C_TO_XEN_XmRenderTable(res)); + return(C_to_Xen_XmRenderTable(res)); } -static XEN gxm_XmRenderTableRemoveRenditions(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmRenderTableRemoveRenditions(Xen arg1, Xen arg2, Xen arg3) { #define H_XmRenderTableRemoveRenditions "XmRenderTable XmRenderTableRemoveRenditions(XmRenderTable oldtable, XmStringTag *tags, int tag_count) \ removes renditions" @@ -2730,27 +2656,27 @@ removes renditions" int len = 0; XmStringTag *tags = NULL; XmRenderTable rt = NULL; - if (XEN_NOT_BOUND_P(arg1) || XEN_FALSE_P(arg1)) return(XEN_FALSE); - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg1) || XEN_FALSE_P(arg1), arg1, 1, "XmRenderTableRemoveRenditions", "XmRenderTable"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2) || XEN_FALSE_P(arg2) || XEN_NOT_BOUND_P(arg2), arg2, 2, "XmRenderTableRemoveRenditions", "XmStringTag*"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmRenderTableRemoveRenditions", "int"); - if (XEN_INTEGER_P(arg3)) + if (!Xen_is_bound(arg1) || Xen_is_false(arg1)) return(Xen_false); + Xen_check_type(Xen_is_XmRenderTable(arg1) || Xen_is_false(arg1), arg1, 1, "XmRenderTableRemoveRenditions", "XmRenderTable"); + Xen_check_type(Xen_is_list(arg2) || Xen_is_false(arg2) || !Xen_is_bound(arg2), arg2, 2, "XmRenderTableRemoveRenditions", "XmStringTag*"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmRenderTableRemoveRenditions", "int"); + if (Xen_is_integer(arg3)) { - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); } else { - if (XEN_LIST_P(arg2)) - len = XEN_LIST_LENGTH(arg2); + if (Xen_is_list(arg2)) + len = Xen_list_length(arg2); } - if (XEN_BOUND_P(arg2)) tags = (XmStringTag *)XEN_TO_C_Strings(arg2, len); - rt = XmRenderTableRemoveRenditions(XEN_TO_C_XmRenderTable(arg1), tags, len); + if (Xen_is_bound(arg2)) tags = (XmStringTag *)Xen_to_C_Strings(arg2, len); + rt = XmRenderTableRemoveRenditions(Xen_to_C_XmRenderTable(arg1), tags, len); if (tags) free(tags); - return(C_TO_XEN_XmRenderTable(rt)); + return(C_to_Xen_XmRenderTable(rt)); } -static XEN gxm_XmRenderTableCopy(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmRenderTableCopy(Xen arg1, Xen arg2, Xen arg3) { #define H_XmRenderTableCopy "XmRenderTable XmRenderTableCopy(XmRenderTable table, XmStringTag *tags, int tag_count) copies renditions" /* DIFF: XmRenderTableCopy arg2 is list of strings @@ -2758,51 +2684,51 @@ static XEN gxm_XmRenderTableCopy(XEN arg1, XEN arg2, XEN arg3) int len = 0; XmStringTag *tags = NULL; XmRenderTable rt = NULL; - if (XEN_NOT_BOUND_P(arg1) || XEN_FALSE_P(arg1)) return(XEN_FALSE); - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg1), arg1, 1, "XmRenderTableCopy", "XmRenderTable"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2) || XEN_FALSE_P(arg2) || XEN_NOT_BOUND_P(arg2), arg2, 2, "XmRenderTableCopy", "XmStringTag*"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmRenderTableCopy", "int"); - if (XEN_INTEGER_P(arg3)) + if (!Xen_is_bound(arg1) || Xen_is_false(arg1)) return(Xen_false); + Xen_check_type(Xen_is_XmRenderTable(arg1), arg1, 1, "XmRenderTableCopy", "XmRenderTable"); + Xen_check_type(Xen_is_list(arg2) || Xen_is_false(arg2) || !Xen_is_bound(arg2), arg2, 2, "XmRenderTableCopy", "XmStringTag*"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmRenderTableCopy", "int"); + if (Xen_is_integer(arg3)) { - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); } else { - if (XEN_LIST_P(arg2)) - len = XEN_LIST_LENGTH(arg2); + if (Xen_is_list(arg2)) + len = Xen_list_length(arg2); } - if (XEN_BOUND_P(arg2)) tags = (XmStringTag *)XEN_TO_C_Strings(arg2, len); - rt = XmRenderTableCopy(XEN_TO_C_XmRenderTable(arg1), tags, len); + if (Xen_is_bound(arg2)) tags = (XmStringTag *)Xen_to_C_Strings(arg2, len); + rt = XmRenderTableCopy(Xen_to_C_XmRenderTable(arg1), tags, len); if (tags) free(tags); - return(C_TO_XEN_XmRenderTable(rt)); + return(C_to_Xen_XmRenderTable(rt)); } -static XEN gxm_XmRenderTableFree(XEN arg1) +static Xen gxm_XmRenderTableFree(Xen arg1) { #define H_XmRenderTableFree "void XmRenderTableFree(XmRenderTable table) recovers memory" - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg1), arg1, 1, "XmRenderTableFree", "XmRenderTable"); - XmRenderTableFree(XEN_TO_C_XmRenderTable(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmRenderTable(arg1), arg1, 1, "XmRenderTableFree", "XmRenderTable"); + XmRenderTableFree(Xen_to_C_XmRenderTable(arg1)); + return(Xen_false); } -static XEN gxm_XmRenderTableGetTags(XEN arg1) +static Xen gxm_XmRenderTableGetTags(Xen arg1) { #define H_XmRenderTableGetTags "int XmRenderTableGetTags(XmRenderTable table) gets rendition tags (list of strings)" /* DIFF: XmRenderTableGetTags omits arg2, returns list of strings */ int len, loc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; XmStringTag *str; - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg1), arg1, 1, "XmRenderTableGetTags", "XmRenderTable"); + Xen_check_type(Xen_is_XmRenderTable(arg1), arg1, 1, "XmRenderTableGetTags", "XmRenderTable"); loc = xm_protect(lst); - len = XmRenderTableGetTags(XEN_TO_C_XmRenderTable(arg1), &str); + len = XmRenderTableGetTags(Xen_to_C_XmRenderTable(arg1), &str); if (str) { int i; for (i = len - 1; i >= 0; i--) { - lst = XEN_CONS(C_TO_XEN_STRING(str[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(str[i]), lst); free(str[i]); } free(str); @@ -2811,104 +2737,104 @@ static XEN gxm_XmRenderTableGetTags(XEN arg1) return(lst); } -static XEN gxm_XmRenderTableGetRendition(XEN arg1, XEN arg2) +static Xen gxm_XmRenderTableGetRendition(Xen arg1, Xen arg2) { #define H_XmRenderTableGetRendition "XmRendition XmRenderTableGetRendition(XmRenderTable table, XmStringTag tag) \ matches a rendition tag" - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg1), arg1, 1, "XmRenderTableGetRendition", "XmRenderTable"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmRenderTableGetRendition", "XmStringTag"); - return(C_TO_XEN_XmRendition(XmRenderTableGetRendition(XEN_TO_C_XmRenderTable(arg1), (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_XmRenderTable(arg1), arg1, 1, "XmRenderTableGetRendition", "XmRenderTable"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmRenderTableGetRendition", "XmStringTag"); + return(C_to_Xen_XmRendition(XmRenderTableGetRendition(Xen_to_C_XmRenderTable(arg1), (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_XmRenderTableGetRenditions(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmRenderTableGetRenditions(Xen arg1, Xen arg2, Xen arg3) { #define H_XmRenderTableGetRenditions "XmRendition *XmRenderTableGetRenditions(XmRenderTable table, XmStringTag *tags, Cardinal tag_count) \ matches rendition tags" /* DIFF: XmRenderTableGetRenditions returns list of XmRenditions, arg2 is list of strings */ int i, len = 0, loc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; XmRendition *rs; XmStringTag *tags; - if ((XEN_NOT_BOUND_P(arg1)) || XEN_NOT_BOUND_P(arg2) || XEN_FALSE_P(arg2)) return(XEN_FALSE); - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg1), arg1, 1, "XmRenderTableGetRenditions", "XmRenderTable"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmRenderTableGetRenditions", "list of String"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmRenderTableGetRenditions", "int"); - if (XEN_BOUND_P(arg3)) - len = XEN_TO_C_INT(arg3); - else len = XEN_LIST_LENGTH(arg2); - if (len <= 0) return(XEN_FALSE); + if ((!Xen_is_bound(arg1)) || !Xen_is_bound(arg2) || Xen_is_false(arg2)) return(Xen_false); + Xen_check_type(Xen_is_XmRenderTable(arg1), arg1, 1, "XmRenderTableGetRenditions", "XmRenderTable"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmRenderTableGetRenditions", "list of String"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmRenderTableGetRenditions", "int"); + if (Xen_is_bound(arg3)) + len = Xen_integer_to_C_int(arg3); + else len = Xen_list_length(arg2); + if (len <= 0) return(Xen_false); loc = xm_protect(lst); - tags = (XmStringTag *)XEN_TO_C_Strings(arg2, len); - rs = XmRenderTableGetRenditions(XEN_TO_C_XmRenderTable(arg1), tags, (Cardinal)len); + tags = (XmStringTag *)Xen_to_C_Strings(arg2, len); + rs = XmRenderTableGetRenditions(Xen_to_C_XmRenderTable(arg1), tags, (Cardinal)len); free(tags); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_XmRendition(rs[i]), lst); + lst = Xen_cons(C_to_Xen_XmRendition(rs[i]), lst); free(rs); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XmRenditionCreate(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmRenditionCreate(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmRenditionCreate "XmRendition XmRenditionCreate(Widget widget, XmStringTag tag, ArgList arglist, Cardinal argcount) \ creates a rendition" XmRendition w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmRenditionCreate", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmRenditionCreate", "XmStringTag"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XmRenditionCreate", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, "XmRenditionCreate", "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmRenditionCreate", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmRenditionCreate", "XmStringTag"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XmRenditionCreate", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, "XmRenditionCreate", "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg3); - arglen = XEN_TO_C_INT_DEF(arg4, arg3); - w = XmRenditionCreate(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2), args, arglen); + args = Xen_to_C_Args(arg3); + arglen = Xen_to_C_INT_DEF(arg4, arg3); + w = XmRenditionCreate(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2), args, arglen); if (args) free_args(args, arglen); } - return(C_TO_XEN_XmRendition(w)); + return(C_to_Xen_XmRendition(w)); } -static XEN gxm_XmRenditionFree(XEN arg1) +static Xen gxm_XmRenditionFree(Xen arg1) { #define H_XmRenditionFree "void XmRenditionFree(XmRendition rendition) frees a rendition" - XEN_ASSERT_TYPE(XEN_XmRendition_P(arg1), arg1, 1, "XmRenditionFree", "XmRendition"); - XmRenditionFree(XEN_TO_C_XmRendition(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmRendition(arg1), arg1, 1, "XmRenditionFree", "XmRendition"); + XmRenditionFree(Xen_to_C_XmRendition(arg1)); + return(Xen_false); } -static XEN gxm_XmRenditionRetrieve(XEN arg1, XEN larg2, XEN arg3) +static Xen gxm_XmRenditionRetrieve(Xen arg1, Xen larg2, Xen arg3) { #define H_XmRenditionRetrieve "void XmRenditionRetrieve(XmRendition rendition, ArgList arglist, Cardinal argcount) \ retrieves rendition resources" - XEN_ASSERT_TYPE(XEN_XmRendition_P(arg1), arg1, 1, "XmRenditionRetrieve", "XmRendition"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg2), larg2, 2, "XmRenditionRetrieve", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmRenditionRetrieve", "int"); + Xen_check_type(Xen_is_XmRendition(arg1), arg1, 1, "XmRenditionRetrieve", "XmRendition"); + Xen_check_type(Xen_is_list(larg2), larg2, 2, "XmRenditionRetrieve", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmRenditionRetrieve", "int"); { /* this is a kind of XtGetvalues, not set */ Arg *args; unsigned long *locs; - XEN val; + Xen val; int i, len, gcloc; XmRendition r; - char *name; - XEN arg2; - arg2 = XEN_COPY_ARG(larg2); + Xen arg2; + arg2 = Xen_copy_arg(larg2); gcloc = xm_protect(arg2); /* here we need to make sure the ref args are ok from C's point of view */ - r = XEN_TO_C_XmRendition(arg1); - len = XEN_TO_C_INT_DEF(arg3, arg2); - if (len <= 0) XEN_ASSERT_TYPE(0, arg3, 3, "XmRenditionRetrieve", "positive integer"); + r = Xen_to_C_XmRendition(arg1); + len = Xen_to_C_INT_DEF(arg3, arg2); + if (len <= 0) Xen_check_type(0, arg3, 3, "XmRenditionRetrieve", "positive integer"); args = (Arg *)calloc(len, sizeof(Arg)); locs = (unsigned long *)calloc(len, sizeof(unsigned long)); - for (i = 0; i < len; i++, arg2 = XEN_CDDR(arg2)) + for (i = 0; i < len; i++, arg2 = Xen_cddr(arg2)) { - name = xen_strdup(XEN_TO_C_STRING(XEN_CAR(arg2))); + char *name; + name = xen_strdup(Xen_string_to_C_string(Xen_car(arg2))); XtSetArg(args[i], name, &(locs[i])); } XmRenditionRetrieve(r, args, len); - val = C_TO_XEN_Args((Widget)r, args, len); + val = C_to_Xen_Args((Widget)r, args, len); free_args(args, len); free(locs); xm_unprotect_at(gcloc); @@ -2916,25 +2842,25 @@ retrieves rendition resources" } } -static XEN gxm_XmRenditionUpdate(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmRenditionUpdate(Xen arg1, Xen arg2, Xen arg3) { #define H_XmRenditionUpdate "void XmRenditionUpdate(XmRendition rendition, ArgList arglist, Cardinal argcount) \ modifies resources" - XEN_ASSERT_TYPE(XEN_XmRendition_P(arg1), arg1, 1, "XmRenditionUpdate", "XmRendition"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmRenditionUpdate", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmRenditionUpdate", "int"); + Xen_check_type(Xen_is_XmRendition(arg1), arg1, 1, "XmRenditionUpdate", "XmRendition"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmRenditionUpdate", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmRenditionUpdate", "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg2); - arglen = XEN_TO_C_INT_DEF(arg3, arg2); - XmRenditionUpdate(XEN_TO_C_XmRendition(arg1), args, arglen); + args = Xen_to_C_Args(arg2); + arglen = Xen_to_C_INT_DEF(arg3, arg2); + XmRenditionUpdate(Xen_to_C_XmRendition(arg1), args, arglen); if (args) free_args(args, arglen); } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmRenderTableCvtToProp(XEN arg1, XEN arg2) +static Xen gxm_XmRenderTableCvtToProp(Xen arg1, Xen arg2) { #define H_XmRenderTableCvtToProp "unsigned int XmRenderTableCvtToProp(Widget widget, XmRenderTable table) \ converts a render table to a string representation -> (val props)" @@ -2942,30 +2868,30 @@ converts a render table to a string representation -> (val props)" */ char *buf; unsigned int val; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmRenderTableCvtToProp", "Widget"); - XEN_ASSERT_TYPE(XEN_XmRenderTable_P(arg2), arg2, 2, "XmRenderTableCvtToProp", "XmRenderTable"); - val = XmRenderTableCvtToProp(XEN_TO_C_Widget(arg1), XEN_TO_C_XmRenderTable(arg2), &buf); - return(XEN_LIST_2(C_TO_XEN_ULONG(val), - C_TO_XEN_STRING(buf))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmRenderTableCvtToProp", "Widget"); + Xen_check_type(Xen_is_XmRenderTable(arg2), arg2, 2, "XmRenderTableCvtToProp", "XmRenderTable"); + val = XmRenderTableCvtToProp(Xen_to_C_Widget(arg1), Xen_to_C_XmRenderTable(arg2), &buf); + return(Xen_list_2(C_ulong_to_Xen_ulong(val), + C_string_to_Xen_string(buf))); } -static XEN gxm_XmRenderTableCvtFromProp(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmRenderTableCvtFromProp(Xen arg1, Xen arg2, Xen arg3) { char *str; int len; #define H_XmRenderTableCvtFromProp "XmRenderTable XmRenderTableCvtFromProp(Widget widget, char *property, unsigned int length) \ converts from a string representation to a render table" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmRenderTableCvtFromProp", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmRenderTableCvtFromProp", "char*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XmRenderTableCvtFromProp", "unsigned int"); - str = (char *)XEN_TO_C_STRING(arg2); - len = XEN_TO_C_ULONG(arg3); - if ((str) || ((int)strlen(str) == len)) - return(C_TO_XEN_XmRenderTable(XmRenderTableCvtFromProp(XEN_TO_C_Widget(arg1), str, len))); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmRenderTableCvtFromProp", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmRenderTableCvtFromProp", "char*"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XmRenderTableCvtFromProp", "unsigned int"); + str = (char *)Xen_string_to_C_string(arg2); + len = Xen_ulong_to_C_ulong(arg3); + if ((str) && ((int)strlen(str) == len)) + return(C_to_Xen_XmRenderTable(XmRenderTableCvtFromProp(Xen_to_C_Widget(arg1), str, len))); + return(Xen_false); } -static XEN gxm_XmTabListInsertTabs(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTabListInsertTabs(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTabListInsertTabs "XmTabList XmTabListInsertTabs(XmTabList oldlist, XmTab *tabs, Cardinal tab_count, int position) \ inserts tabs into a tab list" @@ -2974,48 +2900,49 @@ inserts tabs into a tab list" int len, listlen = 0; XmTab *tabs; XmTabList tl; - XEN_ASSERT_TYPE(XEN_XmTabList_P(arg1) || XEN_FALSE_P(arg1), arg1, 1, "XmTabListInsertTabs", "XmTabList"); - XEN_ASSERT_TYPE(XEN_LIST_P_WITH_LENGTH(arg2, listlen), arg2, 2, "XmTabListInsertTabs", "list of XmTab"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTabListInsertTabs", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmTabListInsertTabs", "int"); - len = XEN_TO_C_INT(arg3); + Xen_check_type(Xen_is_XmTabList(arg1) || Xen_is_false(arg1), arg1, 1, "XmTabListInsertTabs", "XmTabList"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmTabListInsertTabs", "list of XmTab"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTabListInsertTabs", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmTabListInsertTabs", "int"); + listlen = Xen_list_length(arg2); + len = Xen_integer_to_C_int(arg3); if (len > listlen) len = listlen; - if (len <= 0) return(XEN_FALSE); - tabs = XEN_TO_C_XmTabs(arg2, len); - tl = XmTabListInsertTabs(XEN_FALSE_P(arg1) ? NULL : XEN_TO_C_XmTabList(arg1), - tabs, len, XEN_TO_C_INT(arg4)); + if (len <= 0) return(Xen_false); + tabs = Xen_to_C_XmTabs(arg2, len); + tl = XmTabListInsertTabs(Xen_is_false(arg1) ? NULL : Xen_to_C_XmTabList(arg1), + tabs, len, Xen_integer_to_C_int(arg4)); free(tabs); - return(C_TO_XEN_XmTabList(tl)); + return(C_to_Xen_XmTabList(tl)); } -static XEN gxm_XmTabListCopy(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTabListCopy(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTabListCopy "XmTabList XmTabListCopy(XmTabList tablist, int offset, Cardinal count) creates \ a new tab list from an existing list" /* Motif documentation incorrectly calls this "XmTabListTabCopy" */ - XEN_ASSERT_TYPE(XEN_XmTabList_P(arg1), arg1, 1, "XmTabListCopy", "XmTabList"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTabListCopy", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTabListCopy", "int"); - return(C_TO_XEN_XmTabList(XmTabListCopy(XEN_TO_C_XmTabList(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_XmTabList(arg1), arg1, 1, "XmTabListCopy", "XmTabList"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTabListCopy", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTabListCopy", "int"); + return(C_to_Xen_XmTabList(XmTabListCopy(Xen_to_C_XmTabList(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XmTabListTabCount(XEN arg1) +static Xen gxm_XmTabListTabCount(Xen arg1) { #define H_XmTabListTabCount "Cardinal XmTabListTabCount(XmTabList tablist): returns length of tablist" - XEN_ASSERT_TYPE(XEN_XmTabList_P(arg1), arg1, 1, "XmTabListTabCount", "XmTabList"); - return(C_TO_XEN_INT(XmTabListTabCount(XEN_TO_C_XmTabList(arg1)))); + Xen_check_type(Xen_is_XmTabList(arg1), arg1, 1, "XmTabListTabCount", "XmTabList"); + return(C_int_to_Xen_integer(XmTabListTabCount(Xen_to_C_XmTabList(arg1)))); } -static XEN gxm_XmTabListGetTab(XEN arg1, XEN arg2) +static Xen gxm_XmTabListGetTab(Xen arg1, Xen arg2) { #define H_XmTabListGetTab "XmTab XmTabListGetTab(XmTabList tablist, Cardinal position): returns a copy of a tab" - XEN_ASSERT_TYPE(XEN_XmTabList_P(arg1), arg1, 1, "XmTabListGetTab", "XmTabList"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTabListGetTab", "int"); - return(C_TO_XEN_XmTab(XmTabListGetTab(XEN_TO_C_XmTabList(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_XmTabList(arg1), arg1, 1, "XmTabListGetTab", "XmTabList"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTabListGetTab", "int"); + return(C_to_Xen_XmTab(XmTabListGetTab(Xen_to_C_XmTabList(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XmTabListReplacePositions(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTabListReplacePositions(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTabListReplacePositions "XmTabList XmTabListReplacePositions(XmTabList oldlist, Cardinal *position_list, XmTab *tabs, Cardinal tab_count) \ creates a new tab list with replacement tabs" @@ -3023,23 +2950,23 @@ creates a new tab list with replacement tabs" */ Cardinal *ts; int len; - XEN res; + Xen res; XmTab *tabs; - XEN_ASSERT_TYPE(XEN_XmTabList_P(arg1), arg1, 1, "XmTabListReplacePositions", "XmTabList"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmTabListReplacePositions", "list of ints"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XmTabListReplacePositions", "list of XmTab"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, "XmTabListReplacePositions", "int"); - if (XEN_INTEGER_P(arg4)) len = XEN_TO_C_INT(arg4); else len = XEN_LIST_LENGTH(arg3); - if (len <= 0) return(XEN_FALSE); - ts = XEN_TO_C_Cardinals(arg2, len); - tabs = XEN_TO_C_XmTabs(arg3, len); - res = C_TO_XEN_XmTabList(XmTabListReplacePositions(XEN_TO_C_XmTabList(arg1), ts, tabs, len)); + Xen_check_type(Xen_is_XmTabList(arg1), arg1, 1, "XmTabListReplacePositions", "XmTabList"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmTabListReplacePositions", "list of ints"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XmTabListReplacePositions", "list of XmTab"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, "XmTabListReplacePositions", "int"); + if (Xen_is_integer(arg4)) len = Xen_integer_to_C_int(arg4); else len = Xen_list_length(arg3); + if (len <= 0) return(Xen_false); + ts = Xen_to_C_Cardinals(arg2, len); + tabs = Xen_to_C_XmTabs(arg3, len); + res = C_to_Xen_XmTabList(XmTabListReplacePositions(Xen_to_C_XmTabList(arg1), ts, tabs, len)); free(ts); free(tabs); return(res); } -static XEN gxm_XmTabListRemoveTabs(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTabListRemoveTabs(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTabListRemoveTabs "XmTabList XmTabListRemoveTabs(XmTabList oldlist, Cardinal *position_list, Cardinal position_count) \ removes noncontiguous tabs" @@ -3047,51 +2974,51 @@ removes noncontiguous tabs" */ Cardinal *ts; int len; - XEN res; - XEN_ASSERT_TYPE(XEN_XmTabList_P(arg1), arg1, 1, "XmTabListRemoveTabs", "XmTabList"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmTabListRemoveTabs", "list of int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmTabListRemoveTabs", "int"); - if (XEN_INTEGER_P(arg3)) len = XEN_TO_C_INT(arg3); else len = XEN_LIST_LENGTH(arg2); - if (len <= 0) return(XEN_FALSE); - ts = XEN_TO_C_Cardinals(arg2, len); - res = C_TO_XEN_XmTabList(XmTabListRemoveTabs(XEN_TO_C_XmTabList(arg1), ts, len)); + Xen res; + Xen_check_type(Xen_is_XmTabList(arg1), arg1, 1, "XmTabListRemoveTabs", "XmTabList"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmTabListRemoveTabs", "list of int"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmTabListRemoveTabs", "int"); + if (Xen_is_integer(arg3)) len = Xen_integer_to_C_int(arg3); else len = Xen_list_length(arg2); + if (len <= 0) return(Xen_false); + ts = Xen_to_C_Cardinals(arg2, len); + res = C_to_Xen_XmTabList(XmTabListRemoveTabs(Xen_to_C_XmTabList(arg1), ts, len)); free(ts); return(res); } -static XEN gxm_XmTabCreate(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmTabCreate(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmTabCreate "XmTab XmTabCreate(float value, unsigned char units, XmOffsetModel offset_model, unsigned char alignment, char *decimal) \ creates a tab stop" - XEN_ASSERT_TYPE(XEN_DOUBLE_P(arg1), arg1, 1, "XmTabCreate", "float"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTabCreate", "unsigned char"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTabCreate", "XmOffsetModel"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmTabCreate", "unsigned char"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg5), arg5, 5, "XmTabCreate", "char*"); - return(C_TO_XEN_XmTab(XmTabCreate((float)XEN_TO_C_DOUBLE(arg1), - (unsigned char)(XEN_TO_C_INT(arg2)), - (XmOffsetModel)XEN_TO_C_INT(arg3), - (unsigned char)(XEN_TO_C_INT(arg4)), - (char *)XEN_TO_C_STRING(arg5)))); + Xen_check_type(Xen_is_double(arg1), arg1, 1, "XmTabCreate", "float"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTabCreate", "unsigned char"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTabCreate", "XmOffsetModel"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmTabCreate", "unsigned char"); + Xen_check_type(Xen_is_string(arg5), arg5, 5, "XmTabCreate", "char*"); + return(C_to_Xen_XmTab(XmTabCreate((float)Xen_real_to_C_double(arg1), + (unsigned char)(Xen_integer_to_C_int(arg2)), + (XmOffsetModel)Xen_integer_to_C_int(arg3), + (unsigned char)(Xen_integer_to_C_int(arg4)), + (char *)Xen_string_to_C_string(arg5)))); } -static XEN gxm_XmTabListFree(XEN arg1) +static Xen gxm_XmTabListFree(Xen arg1) { #define H_XmTabListFree "void XmTabListFree(XmTabList tab) frees a tab list" - XEN_ASSERT_TYPE(XEN_XmTabList_P(arg1), arg1, 1, "XmTabListFree", "XmTabList"); - XmTabListFree(XEN_TO_C_XmTabList(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmTabList(arg1), arg1, 1, "XmTabListFree", "XmTabList"); + XmTabListFree(Xen_to_C_XmTabList(arg1)); + return(Xen_false); } -static XEN gxm_XmTabFree(XEN arg1) +static Xen gxm_XmTabFree(Xen arg1) { #define H_XmTabFree "void XmTabFree(XmTab tab) frees a tab" - XEN_ASSERT_TYPE(XEN_XmTab_P(arg1), arg1, 1, "XmTabFree", "XmTab"); - XmTabFree(XEN_TO_C_XmTab(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmTab(arg1), arg1, 1, "XmTabFree", "XmTab"); + XmTabFree(Xen_to_C_XmTab(arg1)); + return(Xen_false); } -static XEN gxm_XmTabGetValues(XEN arg1) +static Xen gxm_XmTabGetValues(Xen arg1) { #define H_XmTabGetValues "float XmTabGetValues(XmTab tab): returns tab values" /* DIFF: XmTabGetValues tab [units offset align decimal] -> (list val units ofset align decimal) @@ -3101,54 +3028,54 @@ static XEN gxm_XmTabGetValues(XEN arg1) unsigned char a1, a2; char **a3; float res; - XEN val; - XEN_ASSERT_TYPE(XEN_XmTab_P(arg1), arg1, 1, "XmTabGetValues", "XmTab"); + Xen val; + Xen_check_type(Xen_is_XmTab(arg1), arg1, 1, "XmTabGetValues", "XmTab"); a3 = (char **)calloc(1, sizeof(char *)); - res = XmTabGetValues(XEN_TO_C_XmTab(arg1), &a1, &off, &a2, a3); - val = XEN_LIST_5(C_TO_XEN_DOUBLE((double)res), - C_TO_XEN_INT((int)a1), - C_TO_XEN_INT((int)off), - C_TO_XEN_INT((int)a2), - C_TO_XEN_STRING(a3[0])); + res = XmTabGetValues(Xen_to_C_XmTab(arg1), &a1, &off, &a2, a3); + val = Xen_list_5(C_double_to_Xen_real((double)res), + C_int_to_Xen_integer((int)a1), + C_int_to_Xen_integer((int)off), + C_int_to_Xen_integer((int)a2), + C_string_to_Xen_string(a3[0])); free(a3); return(val); } -static XEN gxm_XmTabSetValue(XEN arg1, XEN arg2) +static Xen gxm_XmTabSetValue(Xen arg1, Xen arg2) { #define H_XmTabSetValue "void XmTabSetValue(XmTab tab, float value) sets a tab stop" - XEN_ASSERT_TYPE(XEN_XmTab_P(arg1), arg1, 1, "XmTabSetValue", "XmTab"); - XEN_ASSERT_TYPE(XEN_DOUBLE_P(arg2), arg2, 2, "XmTabSetValue", "float"); - XmTabSetValue(XEN_TO_C_XmTab(arg1), (float)XEN_TO_C_DOUBLE(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmTab(arg1), arg1, 1, "XmTabSetValue", "XmTab"); + Xen_check_type(Xen_is_double(arg2), arg2, 2, "XmTabSetValue", "float"); + XmTabSetValue(Xen_to_C_XmTab(arg1), (float)Xen_real_to_C_double(arg2)); + return(Xen_false); } -static XEN gxm_XmStringTableProposeTablist(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmStringTableProposeTablist(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmStringTableProposeTablist "XmTabList XmStringTableProposeTablist(XmStringTable strings, Cardinal num_strings, Widget widget, \ float pad_value, XmOffsetModel offset_model): returns a tab list" - /* DIFF: XmStringTableProposetablist 1st arg is list of XmStrings + /* DIFF: XmStringTableProposetablist first arg is list of XmStrings */ XmStringTable tab; XmTabList tabl; - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XmStringTableProposeTablist", "XmStringTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmStringTableProposeTablist", "int"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg3), arg3, 3, "XmStringTableProposeTablist", "Widget"); - XEN_ASSERT_TYPE(XEN_DOUBLE_P(arg4), arg4, 4, "XmStringTableProposeTablist", "float"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XmStringTableProposeTablist", "XmOffsetModel"); - tab = XEN_TO_C_XmStringTable(arg1, XEN_TO_C_INT(arg2)); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XmStringTableProposeTablist", "XmStringTable"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmStringTableProposeTablist", "int"); + Xen_check_type(Xen_is_Widget(arg3), arg3, 3, "XmStringTableProposeTablist", "Widget"); + Xen_check_type(Xen_is_double(arg4), arg4, 4, "XmStringTableProposeTablist", "float"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XmStringTableProposeTablist", "XmOffsetModel"); + tab = Xen_to_C_XmStringTable(arg1, Xen_integer_to_C_int(arg2)); tabl = XmStringTableProposeTablist(tab, - XEN_TO_C_INT(arg2), - XEN_TO_C_Widget(arg3), - (float)XEN_TO_C_DOUBLE(arg4), - (XmOffsetModel)XEN_TO_C_INT(arg5)); + Xen_integer_to_C_int(arg2), + Xen_to_C_Widget(arg3), + (float)Xen_real_to_C_double(arg4), + (XmOffsetModel)Xen_integer_to_C_int(arg5)); free(tab); - return(C_TO_XEN_XmTabList(tabl)); + return(C_to_Xen_XmTabList(tabl)); } -#define XEN_XmParseTable_P(Arg) XEN_LIST_P(Arg) +#define Xen_is_XmParseTable(Arg) Xen_is_list(Arg) -static XmParseTable XEN_TO_C_XmParseTable(XEN lst, int size) +static XmParseTable Xen_to_C_XmParseTable(Xen lst, int size) { int i; XmParseTable pt; @@ -3156,58 +3083,58 @@ static XmParseTable XEN_TO_C_XmParseTable(XEN lst, int size) pt = (XmParseTable)XtCalloc(size, sizeof(XmParseMapping)); for (i = 0; i < size; i++) { - XEN val; - val = XEN_LIST_REF(lst, i); - if (XEN_XmParseMapping_P(val)) - pt[i] = XEN_TO_C_XmParseMapping(val); - else XEN_ASSERT_TYPE(0, val, i, c__FUNCTION__, "an XmParseMapping"); + Xen val; + val = Xen_list_ref(lst, i); + if (Xen_is_XmParseMapping(val)) + pt[i] = Xen_to_C_XmParseMapping(val); + else Xen_check_type(0, val, i, __func__, "an XmParseMapping"); } return(pt); } -static XEN gxm_XmParseTableFree(XEN arg1, XEN arg2) +static Xen gxm_XmParseTableFree(Xen arg1, Xen arg2) { #define H_XmParseTableFree "void XmParseTableFree(XmParseTable parse_table, Cardinal count) recovers memory" - XEN_ASSERT_TYPE(XEN_XmParseTable_P(arg1), arg1, 1, "XmParseTableFree", "XmParseTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg2), arg2, 2, "XmParseTableFree", "int"); + Xen_check_type(Xen_is_XmParseTable(arg1), arg1, 1, "XmParseTableFree", "XmParseTable"); + Xen_check_type(Xen_is_integer_or_unbound(arg2), arg2, 2, "XmParseTableFree", "int"); /* can't happen -- a no-op */ - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmParseMappingFree(XEN arg1) +static Xen gxm_XmParseMappingFree(Xen arg1) { #define H_XmParseMappingFree "void XmParseMappingFree(XmParseMapping parse_mapping) frees a parse mapping" - XEN_ASSERT_TYPE(XEN_XmParseMapping_P(arg1), arg1, 1, "XmParseMappingFree", "XmParseMapping"); - XmParseMappingFree(XEN_TO_C_XmParseMapping(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmParseMapping(arg1), arg1, 1, "XmParseMappingFree", "XmParseMapping"); + XmParseMappingFree(Xen_to_C_XmParseMapping(arg1)); + return(Xen_false); } -static XEN gxm_XmParseMappingGetValues(XEN arg1, XEN larg2, XEN arg3) +static Xen gxm_XmParseMappingGetValues(Xen arg1, Xen larg2, Xen arg3) { #define H_XmParseMappingGetValues "void XmParseMappingGetValues(XmParseMapping parse_mapping, ArgList arglist, Cardinal argcount) \ retrieves attributes of a parse mapping" - XEN_ASSERT_TYPE(XEN_XmParseMapping_P(arg1), arg1, 1, "XmParseMappingGetValues", "XmParseMapping"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg2), larg2, 2, "XmParseMappingGetValues", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmParseMappingGetValues", "int"); + Xen_check_type(Xen_is_XmParseMapping(arg1), arg1, 1, "XmParseMappingGetValues", "XmParseMapping"); + Xen_check_type(Xen_is_list(larg2), larg2, 2, "XmParseMappingGetValues", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmParseMappingGetValues", "int"); { Arg *args; unsigned long *locs; int len, gcloc; - XEN val, arg2; + Xen val, arg2; int i; - len = XEN_TO_C_INT_DEF(arg3, larg2); - arg2 = XEN_COPY_ARG(larg2); + len = Xen_to_C_INT_DEF(arg3, larg2); + arg2 = Xen_copy_arg(larg2); gcloc = xm_protect(arg2); args = (Arg *)calloc(len, sizeof(Arg)); locs = (unsigned long *)calloc(len, sizeof(unsigned long)); - for (i = 0; i < len; i++, arg2 = XEN_CDDR(arg2)) + for (i = 0; i < len; i++, arg2 = Xen_cddr(arg2)) { char *name; - name = xen_strdup(XEN_TO_C_STRING(XEN_CAR(arg2))); + name = xen_strdup(Xen_string_to_C_string(Xen_car(arg2))); XtSetArg(args[i], name, &(locs[i])); } - XmParseMappingGetValues(XEN_TO_C_XmParseMapping(arg1), args, len); - val = C_TO_XEN_Args(NULL, args, len); + XmParseMappingGetValues(Xen_to_C_XmParseMapping(arg1), args, len); + val = C_to_Xen_Args(NULL, args, len); free_args(args, len); free(locs); xm_unprotect_at(gcloc); @@ -3215,120 +3142,127 @@ retrieves attributes of a parse mapping" } } -static XEN gxm_XmParseMappingSetValues(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmParseMappingSetValues(Xen arg1, Xen arg2, Xen arg3) { #define H_XmParseMappingSetValues "void XmParseMappingSetValues(XmParseMapping parse_mapping, ArgList arglist, Cardinal argcount) \ sets attributes of a parse mapping" - XEN_ASSERT_TYPE(XEN_XmParseMapping_P(arg1), arg1, 1, "XmParseMappingSetValues", "XmParseMapping"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmParseMappingSetValues", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmParseMappingSetValues", "int"); + Xen_check_type(Xen_is_XmParseMapping(arg1), arg1, 1, "XmParseMappingSetValues", "XmParseMapping"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmParseMappingSetValues", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmParseMappingSetValues", "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg2); - arglen = XEN_TO_C_INT_DEF(arg3, arg2); - XmParseMappingSetValues(XEN_TO_C_XmParseMapping(arg1), args, arglen); + args = Xen_to_C_Args(arg2); + arglen = Xen_to_C_INT_DEF(arg3, arg2); + XmParseMappingSetValues(Xen_to_C_XmParseMapping(arg1), args, arglen); if (args) free_args(args, arglen); - return(XEN_FALSE); + return(Xen_false); } } -static XEN gxm_XmParseMappingCreate(XEN arg1, XEN arg2) +static Xen gxm_XmParseMappingCreate(Xen arg1, Xen arg2) { #define H_XmParseMappingCreate "XmParseMapping XmParseMappingCreate(ArgList arglist, Cardinal argcount) create a parse mapping" XmParseMapping w; - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XmParseMappingCreate", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg2), arg2, 2, "XmParseMappingCreate", "int"); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XmParseMappingCreate", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg2), arg2, 2, "XmParseMappingCreate", "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg1); - arglen = XEN_TO_C_INT_DEF(arg2, arg1); + args = Xen_to_C_Args(arg1); + arglen = Xen_to_C_INT_DEF(arg2, arg1); w = XmParseMappingCreate(args, arglen); if (args) free_args(args, arglen); } - return(C_TO_XEN_XmParseMapping(w)); + return(C_to_Xen_XmParseMapping(w)); } -static XEN gxm_XmCvtXmStringToByteStream(XEN str) +static Xen gxm_XmCvtXmStringToByteStream(Xen str) { #define H_XmCvtXmStringToByteStream "int XmCvtXmStringToByteStream(XmString str) converts an XmString into a byte stream." unsigned char *prop = NULL; int res = 0; /* #bytes in returned val */ XmString xstr; - XEN_ASSERT_TYPE(XEN_XmString_P(str), str, XEN_ONLY_ARG, "XmCvtXmStringToByteStream", "XmString"); - xstr = XEN_TO_C_XmString(str); + Xen_check_type(Xen_is_XmString(str), str, 1, "XmCvtXmStringToByteStream", "XmString"); + xstr = Xen_to_C_XmString(str); if (!(XmStringEmpty(xstr))) res = XmCvtXmStringToByteStream(xstr, &prop); /* here there is apparently no trailing 0, so this function worries Valgrind */ - return(XEN_LIST_2(C_TO_XEN_INT(res), C_TO_XEN_STRING((const char *)prop))); + return(Xen_list_2(C_int_to_Xen_integer(res), C_string_to_Xen_string((const char *)prop))); } -static XEN gxm_XmCvtByteStreamToXmString(XEN str) +static Xen gxm_XmCvtByteStreamToXmString(Xen str) { #define H_XmCvtByteStreamToXmString "XmString XmCvtByteStreamToXmString(char *str) converts a byte stream into an XmString." XmString res = NULL; const char *bstr; - XEN_ASSERT_TYPE(XEN_STRING_P(str), str, XEN_ONLY_ARG, "XmCvtByteStreamToXmString", "char *"); - bstr = XEN_TO_C_STRING(str); + Xen_check_type(Xen_is_string(str), str, 1, "XmCvtByteStreamToXmString", "char *"); + bstr = Xen_string_to_C_string(str); if (bstr) - res = XmCvtByteStreamToXmString((unsigned char *)(XEN_TO_C_STRING(str))); - return(C_TO_XEN_XmString(res)); + res = XmCvtByteStreamToXmString((unsigned char *)(Xen_string_to_C_string(str))); + return(C_to_Xen_XmString(res)); } -static XEN gxm_XmStringByteStreamLength(XEN str) +static Xen gxm_XmStringByteStreamLength(Xen str) { #define H_XmStringByteStreamLength "int XmStringByteStreamLength(char *str): returns the length of the byte stream." - int res; - XEN_ASSERT_TYPE(XEN_STRING_P(str), str, XEN_ONLY_ARG, "XmStringByteStreamLength", "char *"); - res = (int)XmStringByteStreamLength((unsigned char *)(XEN_TO_C_STRING(str))); - return(C_TO_XEN_INT(res)); + unsigned char *stream; + + Xen_check_type(Xen_is_string(str), str, 1, "XmStringByteStreamLength", "char *"); + stream = (unsigned char *)(Xen_string_to_C_string(str)); + if (!stream) + Xen_out_of_range_error("XmStringByteStreamLength", 1, str, "a null stream?"); + return(C_int_to_Xen_integer((int)XmStringByteStreamLength(stream))); } -static XEN gxm_XmStringPutRendition(XEN arg1, XEN arg2) +static Xen gxm_XmStringPutRendition(Xen arg1, Xen arg2) { #define H_XmStringPutRendition "XmString XmStringPutRendition(XmString string, XmStringTag rendition) places \ renditions around strings" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringPutRendition", "XmString"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmStringPutRendition", "XmStringTag"); - return(C_TO_XEN_XmString(XmStringPutRendition(XEN_TO_C_XmString(arg1), (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringPutRendition", "XmString"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmStringPutRendition", "XmStringTag"); + return(C_to_Xen_XmString(XmStringPutRendition(Xen_to_C_XmString(arg1), (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_XmStringGenerate(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmStringGenerate(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmStringGenerate "XmString XmStringGenerate(XtPointer text, XmStringTag tag, XmTextType type, XmStringTag rendition) \ generates a compound string" XmTextType type; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XmStringGenerate", "XtPointer"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2) || XEN_FALSE_P(arg2), arg2, 2, "XmStringGenerate", "XmStringTag"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmStringGenerate", "XmTextType"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XmStringGenerate", "XmStringTag"); - type = (XmTextType)XEN_TO_C_INT(arg3); - if (type > 1) XEN_ASSERT_TYPE(0, arg3, 3, "XmStringGenerate", "XmTextType"); - return(C_TO_XEN_XmString(XmStringGenerate((XtPointer)XEN_TO_C_STRING(arg1), - XEN_FALSE_P(arg2) ? NULL : (char *)XEN_TO_C_STRING(arg2), + XmStringTag rendition; + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XmStringGenerate", "XtPointer"); + Xen_check_type(Xen_is_string(arg2) || Xen_is_false(arg2), arg2, 2, "XmStringGenerate", "XmStringTag"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmStringGenerate", "XmTextType"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XmStringGenerate", "XmStringTag"); + type = (XmTextType)Xen_integer_to_C_int(arg3); + if (type > 1) Xen_check_type(0, arg3, 3, "XmStringGenerate", "XmTextType"); + rendition = (XmStringTag)Xen_string_to_C_string(arg4); + if (!rendition) + Xen_out_of_range_error("XmStringGenerate", 4, arg4, "a null rendition?"); + return(C_to_Xen_XmString(XmStringGenerate((XtPointer)Xen_string_to_C_string(arg1), + Xen_is_false(arg2) ? NULL : (char *)Xen_string_to_C_string(arg2), type, - (char *)XEN_TO_C_STRING(arg4)))); + rendition))); } -static XEN gxm_XmStringDirectionToDirection(XEN arg1) +static Xen gxm_XmStringDirectionToDirection(Xen arg1) { #define H_XmStringDirectionToDirection "XmDirection XmStringDirectionToDirection(XmStringDirection direction) converts \ from XmStringDirection to XmDirection" - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 1, "XmStringDirectionToDirection", "XmStringDirection"); - return(C_TO_XEN_INT(XmStringDirectionToDirection(XEN_TO_C_INT(arg1)))); + Xen_check_type(Xen_is_integer(arg1), arg1, 1, "XmStringDirectionToDirection", "XmStringDirection"); + return(C_int_to_Xen_integer(XmStringDirectionToDirection(Xen_integer_to_C_int(arg1)))); } -static XEN gxm_XmDirectionToStringDirection(XEN arg1) +static Xen gxm_XmDirectionToStringDirection(Xen arg1) { #define H_XmDirectionToStringDirection "XmStringDirection XmDirectionToStringDirection (dir) converts an XmDirection \ value to an XmStringDirection value" - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 1, "XmDirectionToStringDirection", "XmDirection"); - return(C_TO_XEN_INT(XmDirectionToStringDirection(XEN_TO_C_INT(arg1)))); + Xen_check_type(Xen_is_integer(arg1), arg1, 1, "XmDirectionToStringDirection", "XmDirection"); + return(C_int_to_Xen_integer(XmDirectionToStringDirection(Xen_integer_to_C_int(arg1)))); } -static XEN gxm_XmStringTableParseStringArray(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XmStringTableParseStringArray(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XmStringTableParseStringArray "XmStringTable XmStringTableParseStringArray(XtPointer *strings, Cardinal count, XmStringTag tag, \ XmTextType type, XmParseTable parse, Cardinal parse_count, XtPointer call_data) converts an array of strings \ @@ -3339,76 +3273,76 @@ to a compound string table" int len; XmStringTable val; XmParseTable pt = NULL; - XEN lst; + Xen lst; XmTextType type; - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XmStringTableParseStringArray", "list of strings"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmStringTableParseStringArray", "int"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg3) || XEN_STRING_P(arg3), arg3, 3, "XmStringTableParseStringArray", "XmStringTag"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmStringTableParseStringArray", "XmTextType"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg5) || XEN_XmParseTable_P(arg5), arg5, 5, "XmStringTableParseStringArray", "XmParseTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XmStringTableParseStringArray", "int"); - type = (XmTextType)XEN_TO_C_INT(arg4); - if (type > 1) XEN_ASSERT_TYPE(0, arg4, 4, "XmStringTableParseStringArray", "XmTextType"); - len = XEN_TO_C_INT(arg2); - if (len <= 0) return(XEN_FALSE); - strs = XEN_TO_C_Strings(arg1, len); - if (XEN_XmParseTable_P(arg5)) pt = XEN_TO_C_XmParseTable(arg5, len); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XmStringTableParseStringArray", "list of strings"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmStringTableParseStringArray", "int"); + Xen_check_type(Xen_is_false(arg3) || Xen_is_string(arg3), arg3, 3, "XmStringTableParseStringArray", "XmStringTag"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmStringTableParseStringArray", "XmTextType"); + Xen_check_type(Xen_is_false(arg5) || Xen_is_XmParseTable(arg5), arg5, 5, "XmStringTableParseStringArray", "XmParseTable"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XmStringTableParseStringArray", "int"); + type = (XmTextType)Xen_integer_to_C_int(arg4); + if (type > 1) Xen_check_type(0, arg4, 4, "XmStringTableParseStringArray", "XmTextType"); + len = Xen_integer_to_C_int(arg2); + if (len <= 0) return(Xen_false); + strs = Xen_to_C_Strings(arg1, len); + if (Xen_is_XmParseTable(arg5)) pt = Xen_to_C_XmParseTable(arg5, len); val = XmStringTableParseStringArray((XtPointer *)strs, (Cardinal)len, - (XEN_FALSE_P(arg3)) ? NULL : (char *)XEN_TO_C_STRING(arg3), + (Xen_is_false(arg3)) ? NULL : (char *)Xen_string_to_C_string(arg3), type, pt, - XEN_TO_C_INT(arg6), + Xen_integer_to_C_int(arg6), (XtPointer)arg7); free(strs); - lst = C_TO_XEN_XmStringTable(val, len); + lst = C_to_Xen_XmStringTable(val, len); free(val); if (pt) free(pt); return(lst); } -static XEN gxm_XmStringTableUnparse(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8) +static Xen gxm_XmStringTableUnparse(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8) { #define H_XmStringTableUnparse "XtPointer *XmStringTableUnparse(XmStringTable table, Cardinal count, XmStringTag tag, XmTextType tag_type, \ XmTextType output_type, XmParseTable parse, Cardinal parse_count, XmParseModel parse_model) converts a table of \ compound strings to an array of text" - /* DIFF: XmStringTableUnparse returns list of strings, 1st arg is list of XmStrings + /* DIFF: XmStringTableUnparse returns list of strings, first arg is list of XmStrings */ - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; char **tab; XmStringTable tb; int i, len, loc; XmTextType type1, type2; XmParseTable pt = NULL; - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XmStringTableUnparse", "XmStringTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmStringTableUnparse", "int"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg3) || XEN_STRING_P(arg3), arg3, 3, "XmStringTableUnparse", "XmStringTag"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmStringTableUnparse", "XmTextType"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XmStringTableUnparse", "XmTextType"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg6) || XEN_XmParseTable_P(arg6), arg6, 6, "XmStringTableUnparse", "XmParseTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XmStringTableUnparse", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XmStringTableUnparse", "XmParseModel"); - type1 = (XmTextType)XEN_TO_C_INT(arg4); - if (type1 > 1) XEN_ASSERT_TYPE(0, arg4, 4, "XmStringTableUnparse", "XmTextType"); - type2 = (XmTextType)XEN_TO_C_INT(arg5); - if (type2 > 1) XEN_ASSERT_TYPE(0, arg5, 5, "XmStringTableUnparse", "XmTextType"); - len = XEN_TO_C_INT(arg2); - if (len <= 0) return(XEN_FALSE); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XmStringTableUnparse", "XmStringTable"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmStringTableUnparse", "int"); + Xen_check_type(Xen_is_false(arg3) || Xen_is_string(arg3), arg3, 3, "XmStringTableUnparse", "XmStringTag"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmStringTableUnparse", "XmTextType"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XmStringTableUnparse", "XmTextType"); + Xen_check_type(Xen_is_false(arg6) || Xen_is_XmParseTable(arg6), arg6, 6, "XmStringTableUnparse", "XmParseTable"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XmStringTableUnparse", "int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XmStringTableUnparse", "XmParseModel"); + type1 = (XmTextType)Xen_integer_to_C_int(arg4); + if (type1 > 1) Xen_check_type(0, arg4, 4, "XmStringTableUnparse", "XmTextType"); + type2 = (XmTextType)Xen_integer_to_C_int(arg5); + if (type2 > 1) Xen_check_type(0, arg5, 5, "XmStringTableUnparse", "XmTextType"); + len = Xen_integer_to_C_int(arg2); + if (len <= 0) return(Xen_false); loc = xm_protect(lst); - tb = XEN_TO_C_XmStringTable(arg1, len); - if (XEN_XmParseTable_P(arg6)) pt = XEN_TO_C_XmParseTable(arg6, len); + tb = Xen_to_C_XmStringTable(arg1, len); + if (Xen_is_XmParseTable(arg6)) pt = Xen_to_C_XmParseTable(arg6, len); tab = (char **)XmStringTableUnparse(tb, len, - (XEN_FALSE_P(arg3)) ? NULL : (char *)XEN_TO_C_STRING(arg3), + (Xen_is_false(arg3)) ? NULL : (char *)Xen_string_to_C_string(arg3), type1, type2, pt, - XEN_TO_C_INT(arg7), - (XmParseModel)XEN_TO_C_INT(arg8)); + Xen_integer_to_C_int(arg7), + (XmParseModel)Xen_integer_to_C_int(arg8)); free(tb); for (i = len - 1; i >= 0; i--) { - lst = XEN_CONS(C_TO_XEN_STRING(tab[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(tab[i]), lst); free(tab[i]); } free(tab); @@ -3417,29 +3351,29 @@ compound strings to an array of text" return(lst); } -static XEN gxm_XmStringTableToXmString(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmStringTableToXmString(Xen arg1, Xen arg2, Xen arg3) { #define H_XmStringTableToXmString "XmString XmStringTableToXmString(XmStringTable table, Cardinal count, XmString break_component) \ converts a compound string table to a single compound string" - /* DIFF: XmStringTableToXmString 1st arg is list of XmStrings + /* DIFF: XmStringTableToXmString first arg is list of XmStrings */ int count; XmStringTable tab; XmString val; - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XmStringTableToXmString", "XmStringTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmStringTableToXmString", "int"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg3) || XEN_FALSE_P(arg3), arg3, 3, "XmStringTableToXmString", "XmString"); - count = XEN_TO_C_INT(arg2); - if (count <= 0) return(XEN_FALSE); - tab = XEN_TO_C_XmStringTable(arg1, count); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XmStringTableToXmString", "XmStringTable"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmStringTableToXmString", "int"); + Xen_check_type(Xen_is_XmString(arg3) || Xen_is_false(arg3), arg3, 3, "XmStringTableToXmString", "XmString"); + count = Xen_integer_to_C_int(arg2); + if (count <= 0) return(Xen_false); + tab = Xen_to_C_XmStringTable(arg1, count); val = XmStringTableToXmString(tab, count, - (XEN_XmString_P(arg3)) ? XEN_TO_C_XmString(arg3) : NULL); + (Xen_is_XmString(arg3)) ? Xen_to_C_XmString(arg3) : NULL); free(tab); - return(C_TO_XEN_XmString(val)); + return(C_to_Xen_XmString(val)); } -static XEN gxm_XmStringToXmStringTable(XEN arg1, XEN arg2) +static Xen gxm_XmStringToXmStringTable(Xen arg1, Xen arg2) { #define H_XmStringToXmStringTable "Cardinal XmStringToXmStringTable(XmString string, XmString break_component) \ converts a single compound string to a table of compound strings" @@ -3447,93 +3381,94 @@ converts a single compound string to a table of compound strings" */ XmStringTable tab; Cardinal val; - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringToXmStringTable", "XmString"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2) || XEN_FALSE_P(arg2), arg2, 2, "XmStringToXmStringTable", "XmString"); - val = XmStringToXmStringTable(XEN_TO_C_XmString(arg1), - (XEN_XmString_P(arg2)) ? XEN_TO_C_XmString(arg2) : NULL, + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringToXmStringTable", "XmString"); + Xen_check_type(Xen_is_XmString(arg2) || Xen_is_false(arg2), arg2, 2, "XmStringToXmStringTable", "XmString"); + val = XmStringToXmStringTable(Xen_to_C_XmString(arg1), + (Xen_is_XmString(arg2)) ? Xen_to_C_XmString(arg2) : NULL, &tab); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XmStringTable(tab, val))); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XmStringTable(tab, val))); } -static XEN gxm_XmStringParseText(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XmStringParseText(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XmStringParseText "XmString XmStringParseText(XtPointer text, XtPointer *text_end, XmStringTag tag, XmTextType type, \ XmParseTable parse_table, Cardinal parse_count, XtPointer call_data) converts a character string to a compound string" /* DIFF: XmStringParseText arg1 is string, arg2 is int */ - int loc, len; + int len; const char *str, *tag = NULL; XmTextType type; XtPointer *intext = NULL; XmParseTable pt = NULL; - XEN rtn; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XmStringParseText", "string"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2) || XEN_FALSE_P(arg2), arg2, 2, "XmStringParseText", "int"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3) || XEN_FALSE_P(arg3), arg3, 3, "XmStringParseText", "XmStringTag"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmStringParseText", "XmTextType"); - XEN_ASSERT_TYPE(XEN_XmParseTable_P(arg5), arg5, 5, "XmStringParseText", "XmParseTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XmStringParseText", "int"); - type = (XmTextType)XEN_TO_C_INT(arg4); - if (type > 1) XEN_ASSERT_TYPE(0, arg4, 4, "XmStringParseText", "XmTextType"); - str = XEN_TO_C_STRING(arg1); - if (XEN_INTEGER_P(arg2)) + Xen rtn; + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XmStringParseText", "string"); + Xen_check_type(Xen_is_integer(arg2) || Xen_is_false(arg2), arg2, 2, "XmStringParseText", "int"); + Xen_check_type(Xen_is_string(arg3) || Xen_is_false(arg3), arg3, 3, "XmStringParseText", "XmStringTag"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmStringParseText", "XmTextType"); + Xen_check_type(Xen_is_XmParseTable(arg5), arg5, 5, "XmStringParseText", "XmParseTable"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XmStringParseText", "int"); + type = (XmTextType)Xen_integer_to_C_int(arg4); + if (type > 1) Xen_check_type(0, arg4, 4, "XmStringParseText", "XmTextType"); + str = Xen_string_to_C_string(arg1); + if (Xen_is_integer(arg2)) { - loc = XEN_TO_C_INT(arg2); + int loc; + loc = Xen_integer_to_C_int(arg2); intext = (XtPointer *)(str + loc); } - if (XEN_STRING_P(arg3)) tag = XEN_TO_C_STRING(arg3); - len = XEN_TO_C_INT(arg6); - if (XEN_XmParseTable_P(arg5)) pt = XEN_TO_C_XmParseTable(arg5, len); - rtn = C_TO_XEN_XmString(XmStringParseText((char *)str, intext, (char *)tag, type, pt, len, (XtPointer)arg7)); + if (Xen_is_string(arg3)) tag = Xen_string_to_C_string(arg3); + len = Xen_integer_to_C_int(arg6); + if (Xen_is_XmParseTable(arg5)) pt = Xen_to_C_XmParseTable(arg5, len); + rtn = C_to_Xen_XmString(XmStringParseText((char *)str, intext, (char *)tag, type, pt, len, (XtPointer)arg7)); if (pt) free(pt); return(rtn); } -static XEN gxm_XmStringUnparse(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XmStringUnparse(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XmStringUnparse "XtPointer XmStringUnparse(XmString string, XmStringTag tag, XmTextType tag_type, XmTextType output_type, \ XmParseTable parse_table, Cardinal parse_count, XmParseModel parse_model) unparses text" XmTextType type1, type2; - XEN rtn; + Xen rtn; char *str; XmParseTable pt = NULL; int len; - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringUnparse", "XmString"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2) || XEN_FALSE_P(arg2), arg2, 2, "XmStringUnparse", "XmStringTag or " PROC_FALSE); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmStringUnparse", "XmTextType"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmStringUnparse", "XmTextType"); - XEN_ASSERT_TYPE(XEN_XmParseTable_P(arg5) || XEN_FALSE_P(arg5), arg5, 5, "XmStringUnparse", "XmParseTable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XmStringUnparse", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XmStringUnparse", "XmParseModel"); - type1 = (XmTextType)XEN_TO_C_INT(arg3); - if (type1 > 1) XEN_ASSERT_TYPE(0, arg3, 3, "XmStringUnparse", "XmTextType"); - type2 = (XmTextType)XEN_TO_C_INT(arg4); - if (type2 > 1) XEN_ASSERT_TYPE(0, arg4, 4, "XmStringUnparse", "XmTextType"); - len = XEN_TO_C_INT(arg6); - if (XEN_XmParseTable_P(arg5)) pt = XEN_TO_C_XmParseTable(arg5, len); - str = (char *)XmStringUnparse(XEN_TO_C_XmString(arg1), - (XEN_STRING_P(arg2)) ? (char *)XEN_TO_C_STRING(arg2) : NULL, + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringUnparse", "XmString"); + Xen_check_type(Xen_is_string(arg2) || Xen_is_false(arg2), arg2, 2, "XmStringUnparse", "XmStringTag or " PROC_FALSE); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmStringUnparse", "XmTextType"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmStringUnparse", "XmTextType"); + Xen_check_type(Xen_is_XmParseTable(arg5) || Xen_is_false(arg5), arg5, 5, "XmStringUnparse", "XmParseTable"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XmStringUnparse", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XmStringUnparse", "XmParseModel"); + type1 = (XmTextType)Xen_integer_to_C_int(arg3); + if (type1 > 1) Xen_check_type(0, arg3, 3, "XmStringUnparse", "XmTextType"); + type2 = (XmTextType)Xen_integer_to_C_int(arg4); + if (type2 > 1) Xen_check_type(0, arg4, 4, "XmStringUnparse", "XmTextType"); + len = Xen_integer_to_C_int(arg6); + if (Xen_is_XmParseTable(arg5)) pt = Xen_to_C_XmParseTable(arg5, len); + str = (char *)XmStringUnparse(Xen_to_C_XmString(arg1), + (Xen_is_string(arg2)) ? (char *)Xen_string_to_C_string(arg2) : NULL, type1, type2, pt, len, - (XmParseModel)XEN_TO_C_INT(arg7)); - rtn = C_TO_XEN_STRING(str); + (XmParseModel)Xen_integer_to_C_int(arg7)); + rtn = C_string_to_Xen_string(str); if (str) XtFree(str); if (pt) free(pt); return(rtn); } -static XEN gxm_XmStringComponentCreate(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmStringComponentCreate(Xen arg1, Xen arg2, Xen arg3) { #define H_XmStringComponentCreate "XmString XmStringComponentCreate(XmStringComponentType c_type, unsigned int length, XtPointer value) \ creates arbitrary components" - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 1, "XmStringComponentCreate", "XmStringComponentType"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XmStringComponentCreate", "unsigned int"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3) || XEN_FALSE_P(arg3), arg3, 3, "XmStringComponentCreate", "XtPointer"); - return(C_TO_XEN_XmString(XmStringComponentCreate(XEN_TO_C_INT(arg1), - XEN_TO_C_ULONG(arg2), - XEN_FALSE_P(arg3) ? NULL : (char *)XEN_TO_C_STRING(arg3)))); + Xen_check_type(Xen_is_integer(arg1), arg1, 1, "XmStringComponentCreate", "XmStringComponentType"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XmStringComponentCreate", "unsigned int"); + Xen_check_type(Xen_is_string(arg3) || Xen_is_false(arg3), arg3, 3, "XmStringComponentCreate", "XtPointer"); + return(C_to_Xen_XmString(XmStringComponentCreate(Xen_integer_to_C_int(arg1), + Xen_ulong_to_C_ulong(arg2), + Xen_is_false(arg3) ? NULL : (char *)Xen_string_to_C_string(arg3)))); } -static XEN gxm_XmStringGetNextTriple(XEN arg1) +static Xen gxm_XmStringGetNextTriple(Xen arg1) { #define H_XmStringGetNextTriple "XmStringComponentType XmStringGetNextTriple(XmStringContext context) \ returns the type, length, and value of the next component in the compound string" @@ -3542,354 +3477,354 @@ returns the type, length, and value of the next component in the compound string unsigned int len; int val; XtPointer *ptr = NULL; - XEN_ASSERT_TYPE(XEN_XmStringContext_P(arg1), arg1, 1, "XmStringGetNextTriple", "XmStringContext"); - val = XmStringGetNextTriple(XEN_TO_C_XmStringContext(arg1), &len, ptr); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_INT((int)len), - (val == XmSTRING_COMPONENT_TEXT) ? C_TO_XEN_STRING((char *)(*ptr)) : XEN_WRAP_C_POINTER(ptr))); + Xen_check_type(Xen_is_XmStringContext(arg1), arg1, 1, "XmStringGetNextTriple", "XmStringContext"); + val = XmStringGetNextTriple(Xen_to_C_XmStringContext(arg1), &len, ptr); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_int_to_Xen_integer((int)len), + (val == XmSTRING_COMPONENT_TEXT) ? C_string_to_Xen_string((char *)(*ptr)) : Xen_wrap_C_pointer(ptr))); } -static XEN gxm_XmStringPeekNextTriple(XEN arg1) +static Xen gxm_XmStringPeekNextTriple(Xen arg1) { #define H_XmStringPeekNextTriple "XmStringComponentType XmStringPeekNextTriple(XmStringContext context): returns the \ component type of the next component" - XEN_ASSERT_TYPE(XEN_XmStringContext_P(arg1), arg1, 1, "XmStringPeekNextTriple", "XmStringContext"); - return(C_TO_XEN_INT(XmStringPeekNextTriple(XEN_TO_C_XmStringContext(arg1)))); + Xen_check_type(Xen_is_XmStringContext(arg1), arg1, 1, "XmStringPeekNextTriple", "XmStringContext"); + return(C_int_to_Xen_integer(XmStringPeekNextTriple(Xen_to_C_XmStringContext(arg1)))); } -static XEN gxm_XmStringDrawUnderline(XEN args) +static Xen gxm_XmStringDrawUnderline(Xen args) { #define H_XmStringDrawUnderline "void XmStringDrawUnderline(Display *d, Window w, XmRenderTable rendertable, XmString string, GC gc, \ Position x, Position y, Dimension width, unsigned char alignment, unsigned char layout_direction, XRectangle *clip, XmString underline) \ underlines a string drawn in an X Window" - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - arg11 = XEN_LIST_REF(args, 10); - arg12 = XEN_LIST_REF(args, 11); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmStringDrawUnderline", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmStringDrawUnderline", "Window"); - XEN_ASSERT_TYPE(XEN_XmFontList_or_XmRenderTable_P(arg3), arg3, 3, "XmStringDrawUnderline", "XmFontList"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg4), arg4, 4, "XmStringDrawUnderline", "XmString"); - XEN_ASSERT_TYPE(XEN_GC_P(arg5), arg5, 5, "XmStringDrawUnderline", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XmStringDrawUnderline", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XmStringDrawUnderline", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XmStringDrawUnderline", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg9), arg9, 9, "XmStringDrawUnderline", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg10), arg10, 10, "XmStringDrawUnderline", "unsigned int"); - XEN_ASSERT_TYPE(XEN_XRectangle_P(arg11), arg11, 11, "XmStringDrawUnderline", "XRectangle"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg12), arg12, 12, "XmStringDrawUnderline", "XmString"); - XmStringDrawUnderline(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_XmFontList(arg3), - XEN_TO_C_XmString(arg4), - XEN_TO_C_GC(arg5), - XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7), XEN_TO_C_INT(arg8), - XEN_TO_C_ULONG(arg9), XEN_TO_C_ULONG(arg10), - XEN_TO_C_XRectangle(arg11), - XEN_TO_C_XmString(arg12)); - return(XEN_FALSE); -} - -static XEN gxm_XmStringDrawImage(XEN args) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + arg11 = Xen_list_ref(args, 10); + arg12 = Xen_list_ref(args, 11); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmStringDrawUnderline", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmStringDrawUnderline", "Window"); + Xen_check_type(Xen_is_XmFontList_or_XmRenderTable(arg3), arg3, 3, "XmStringDrawUnderline", "XmFontList"); + Xen_check_type(Xen_is_XmString(arg4), arg4, 4, "XmStringDrawUnderline", "XmString"); + Xen_check_type(Xen_is_GC(arg5), arg5, 5, "XmStringDrawUnderline", "GC"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XmStringDrawUnderline", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XmStringDrawUnderline", "int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XmStringDrawUnderline", "int"); + Xen_check_type(Xen_is_ulong(arg9), arg9, 9, "XmStringDrawUnderline", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg10), arg10, 10, "XmStringDrawUnderline", "unsigned int"); + Xen_check_type(Xen_is_XRectangle(arg11), arg11, 11, "XmStringDrawUnderline", "XRectangle"); + Xen_check_type(Xen_is_XmString(arg12), arg12, 12, "XmStringDrawUnderline", "XmString"); + XmStringDrawUnderline(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_XmFontList(arg3), + Xen_to_C_XmString(arg4), + Xen_to_C_GC(arg5), + Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7), Xen_integer_to_C_int(arg8), + Xen_ulong_to_C_ulong(arg9), Xen_ulong_to_C_ulong(arg10), + Xen_to_C_XRectangle(arg11), + Xen_to_C_XmString(arg12)); + return(Xen_false); +} + +static Xen gxm_XmStringDrawImage(Xen args) { #define H_XmStringDrawImage "void XmStringDrawImage(Display *d, Window w, XmRenderTable rendertable, XmString string, GC gc, Position x, \ Position y, Dimension width, unsigned char alignment, unsigned char layout_direction, XRectangle *clip) \ draws a compound string in an X Window and creates an image" - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - arg11 = XEN_LIST_REF(args, 10); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmStringDrawImage", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmStringDrawImage", "Window"); - XEN_ASSERT_TYPE(XEN_XmFontList_or_XmRenderTable_P(arg3), arg3, 3, "XmStringDrawImage", "XmFontList"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg4), arg4, 4, "XmStringDrawImage", "XmString"); - XEN_ASSERT_TYPE(XEN_GC_P(arg5), arg5, 5, "XmStringDrawImage", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XmStringDrawImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XmStringDrawImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XmStringDrawImage", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg9), arg9, 9, "XmStringDrawImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg10), arg10, 10, "XmStringDrawImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_XRectangle_P(arg11), arg11, 11, "XmStringDrawImage", "XRectangle*"); - XmStringDrawImage(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_XmFontList(arg3), - XEN_TO_C_XmString(arg4), - XEN_TO_C_GC(arg5), - XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7), XEN_TO_C_INT(arg8), - XEN_TO_C_ULONG(arg9), XEN_TO_C_ULONG(arg10), - XEN_TO_C_XRectangle(arg11)); - return(XEN_FALSE); -} - -static XEN gxm_XmStringDraw(XEN args) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + arg11 = Xen_list_ref(args, 10); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmStringDrawImage", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmStringDrawImage", "Window"); + Xen_check_type(Xen_is_XmFontList_or_XmRenderTable(arg3), arg3, 3, "XmStringDrawImage", "XmFontList"); + Xen_check_type(Xen_is_XmString(arg4), arg4, 4, "XmStringDrawImage", "XmString"); + Xen_check_type(Xen_is_GC(arg5), arg5, 5, "XmStringDrawImage", "GC"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XmStringDrawImage", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XmStringDrawImage", "int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XmStringDrawImage", "int"); + Xen_check_type(Xen_is_ulong(arg9), arg9, 9, "XmStringDrawImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg10), arg10, 10, "XmStringDrawImage", "unsigned int"); + Xen_check_type(Xen_is_XRectangle(arg11), arg11, 11, "XmStringDrawImage", "XRectangle*"); + XmStringDrawImage(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_XmFontList(arg3), + Xen_to_C_XmString(arg4), + Xen_to_C_GC(arg5), + Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7), Xen_integer_to_C_int(arg8), + Xen_ulong_to_C_ulong(arg9), Xen_ulong_to_C_ulong(arg10), + Xen_to_C_XRectangle(arg11)); + return(Xen_false); +} + +static Xen gxm_XmStringDraw(Xen args) { #define H_XmStringDraw "void XmStringDraw(Display *d, Window w, XmRenderTable rendertable, XmString string, GC gc, Position x, Position y, \ Dimension width, unsigned char alignment, unsigned char layout_direction, XRectangle *clip) draws a compound \ string in an X window" - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - arg11 = XEN_LIST_REF(args, 10); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmStringDraw", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmStringDraw", "Window"); - XEN_ASSERT_TYPE(XEN_XmFontList_or_XmRenderTable_P(arg3), arg3, 3, "XmStringDraw", "XmFontList"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg4), arg4, 4, "XmStringDraw", "XmString"); - XEN_ASSERT_TYPE(XEN_GC_P(arg5), arg5, 5, "XmStringDraw", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XmStringDraw", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XmStringDraw", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XmStringDraw", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg9), arg9, 9, "XmStringDraw", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg10), arg10, 10, "XmStringDraw", "unsigned int"); - XEN_ASSERT_TYPE(XEN_XRectangle_P(arg11), arg11, 11, "XmStringDraw", "XRectangle*"); - XmStringDraw(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_XmFontList(arg3), - XEN_TO_C_XmString(arg4), - XEN_TO_C_GC(arg5), - XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7), XEN_TO_C_INT(arg8), - XEN_TO_C_ULONG(arg9), XEN_TO_C_ULONG(arg10), - XEN_TO_C_XRectangle(arg11)); - return(XEN_FALSE); -} - -static XEN gxm_XmStringLineCount(XEN arg1) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + arg11 = Xen_list_ref(args, 10); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmStringDraw", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmStringDraw", "Window"); + Xen_check_type(Xen_is_XmFontList_or_XmRenderTable(arg3), arg3, 3, "XmStringDraw", "XmFontList"); + Xen_check_type(Xen_is_XmString(arg4), arg4, 4, "XmStringDraw", "XmString"); + Xen_check_type(Xen_is_GC(arg5), arg5, 5, "XmStringDraw", "GC"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XmStringDraw", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XmStringDraw", "int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XmStringDraw", "int"); + Xen_check_type(Xen_is_ulong(arg9), arg9, 9, "XmStringDraw", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg10), arg10, 10, "XmStringDraw", "unsigned int"); + Xen_check_type(Xen_is_XRectangle(arg11), arg11, 11, "XmStringDraw", "XRectangle*"); + XmStringDraw(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_XmFontList(arg3), + Xen_to_C_XmString(arg4), + Xen_to_C_GC(arg5), + Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7), Xen_integer_to_C_int(arg8), + Xen_ulong_to_C_ulong(arg9), Xen_ulong_to_C_ulong(arg10), + Xen_to_C_XRectangle(arg11)); + return(Xen_false); +} + +static Xen gxm_XmStringLineCount(Xen arg1) { #define H_XmStringLineCount "int XmStringLineCount(XmString string): returns the number of separators plus one \ in the provided compound string" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringLineCount", "XmString"); - return(C_TO_XEN_INT(XmStringLineCount(XEN_TO_C_XmString(arg1)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringLineCount", "XmString"); + return(C_int_to_Xen_integer(XmStringLineCount(Xen_to_C_XmString(arg1)))); } -static XEN gxm_XmStringExtent(XEN arg1, XEN arg2) +static Xen gxm_XmStringExtent(Xen arg1, Xen arg2) { #define H_XmStringExtent "void XmStringExtent(XmRenderTable rendertable, XmString string) \ determines the size of the smallest rectangle that will enclose the compound string" /* DIFF: XmStringExtent omits and returns the last 2 args */ Dimension w, h; - XEN_ASSERT_TYPE(XEN_XmFontList_or_XmRenderTable_P(arg1), arg1, 1, "XmStringExtent", "XmFontList"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringExtent", "XmString"); - XmStringExtent(XEN_TO_C_XmFontList(arg1), XEN_TO_C_XmString(arg2), &w, &h); - return(XEN_LIST_2(C_TO_XEN_Dimension(w), - C_TO_XEN_Dimension(h))); + Xen_check_type(Xen_is_XmFontList_or_XmRenderTable(arg1), arg1, 1, "XmStringExtent", "XmFontList"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringExtent", "XmString"); + XmStringExtent(Xen_to_C_XmFontList(arg1), Xen_to_C_XmString(arg2), &w, &h); + return(Xen_list_2(C_to_Xen_Dimension(w), + C_to_Xen_Dimension(h))); } -static XEN gxm_XmStringHeight(XEN arg1, XEN arg2) +static Xen gxm_XmStringHeight(Xen arg1, Xen arg2) { #define H_XmStringHeight "Dimension XmStringHeight(XmRenderTable rendertable, XmString string): returns the line \ height of the given compound string" - XEN_ASSERT_TYPE(XEN_XmFontList_or_XmRenderTable_P(arg1), arg1, 1, "XmStringHeight", "XmFontList"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringHeight", "XmString"); - return(C_TO_XEN_Dimension(XmStringHeight(XEN_TO_C_XmFontList(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_XmFontList_or_XmRenderTable(arg1), arg1, 1, "XmStringHeight", "XmFontList"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringHeight", "XmString"); + return(C_to_Xen_Dimension(XmStringHeight(Xen_to_C_XmFontList(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmStringWidth(XEN arg1, XEN arg2) +static Xen gxm_XmStringWidth(Xen arg1, Xen arg2) { #define H_XmStringWidth "Dimension XmStringWidth(XmRenderTable rendertable, XmString string): returns \ the width of the widest line in a compound string" - XEN_ASSERT_TYPE(XEN_XmFontList_or_XmRenderTable_P(arg1), arg1, 1, "XmStringWidth", "XmFontList"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringWidth", "XmString"); - return(C_TO_XEN_Dimension(XmStringWidth(XEN_TO_C_XmFontList(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_XmFontList_or_XmRenderTable(arg1), arg1, 1, "XmStringWidth", "XmFontList"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringWidth", "XmString"); + return(C_to_Xen_Dimension(XmStringWidth(Xen_to_C_XmFontList(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmStringBaseline(XEN arg1, XEN arg2) +static Xen gxm_XmStringBaseline(Xen arg1, Xen arg2) { #define H_XmStringBaseline "Dimension XmStringBaseline(XmRenderTable rendertable, XmString string): returns \ the number of pixels between \ the top of the character box and the baseline of the first line of text" - XEN_ASSERT_TYPE(XEN_XmFontList_or_XmRenderTable_P(arg1), arg1, 1, "XmStringBaseline", "XmFontList"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringBaseline", "XmString"); - return(C_TO_XEN_Dimension(XmStringBaseline(XEN_TO_C_XmFontList(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_XmFontList_or_XmRenderTable(arg1), arg1, 1, "XmStringBaseline", "XmFontList"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringBaseline", "XmString"); + return(C_to_Xen_Dimension(XmStringBaseline(Xen_to_C_XmFontList(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmStringFree(XEN arg1) +static Xen gxm_XmStringFree(Xen arg1) { #define H_XmStringFree "void XmStringFree(XmString string) conditionally deallocates memory" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringFree", "XmString"); - XmStringFree(XEN_TO_C_XmString(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringFree", "XmString"); + XmStringFree(Xen_to_C_XmString(arg1)); + return(Xen_false); } -static XEN gxm_XmStringHasSubstring(XEN arg1, XEN arg2) +static Xen gxm_XmStringHasSubstring(Xen arg1, Xen arg2) { #define H_XmStringHasSubstring "Boolean XmStringHasSubstring(XmString string, XmString substring) indicates \ whether one compound string is contained within another" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringHasSubstring", "XmString"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringHasSubstring", "XmString"); - return(C_TO_XEN_BOOLEAN(XmStringHasSubstring(XEN_TO_C_XmString(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringHasSubstring", "XmString"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringHasSubstring", "XmString"); + return(C_bool_to_Xen_boolean(XmStringHasSubstring(Xen_to_C_XmString(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmStringIsVoid(XEN arg1) +static Xen gxm_XmStringIsVoid(Xen arg1) { #define H_XmStringIsVoid "Boolean XmStringIsVoid(XmString s1) provides information on the existence of non-zero-length text \ components, tab components, or separator components" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringIsVoid", "XmString"); - return(C_TO_XEN_BOOLEAN(XmStringIsVoid(XEN_TO_C_XmString(arg1)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringIsVoid", "XmString"); + return(C_bool_to_Xen_boolean(XmStringIsVoid(Xen_to_C_XmString(arg1)))); } -static XEN gxm_XmStringEmpty(XEN arg1) +static Xen gxm_XmStringEmpty(Xen arg1) { #define H_XmStringEmpty "Boolean XmStringEmpty(XmString s1) provides information on the existence of \ non-zero-length text components" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringEmpty", "XmString"); - return(C_TO_XEN_BOOLEAN(XmStringEmpty(XEN_TO_C_XmString(arg1)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringEmpty", "XmString"); + return(C_bool_to_Xen_boolean(XmStringEmpty(Xen_to_C_XmString(arg1)))); } -static XEN gxm_XmStringCompare(XEN arg1, XEN arg2) +static Xen gxm_XmStringCompare(Xen arg1, Xen arg2) { #define H_XmStringCompare "Boolean XmStringCompare(XmString s1, XmString s2) compares two strings" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringCompare", "XmString"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringCompare", "XmString"); - return(C_TO_XEN_BOOLEAN(XmStringCompare(XEN_TO_C_XmString(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringCompare", "XmString"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringCompare", "XmString"); + return(C_bool_to_Xen_boolean(XmStringCompare(Xen_to_C_XmString(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmStringCopy(XEN arg1) +static Xen gxm_XmStringCopy(Xen arg1) { #define H_XmStringCopy "XmString XmStringCopy(XmString s1) makes a copy of a string" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringCopy", "XmString"); - return(C_TO_XEN_XmString(XmStringCopy(XEN_TO_C_XmString(arg1)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringCopy", "XmString"); + return(C_to_Xen_XmString(XmStringCopy(Xen_to_C_XmString(arg1)))); } -static XEN gxm_XmStringConcatAndFree(XEN arg1, XEN arg2) +static Xen gxm_XmStringConcatAndFree(Xen arg1, Xen arg2) { #define H_XmStringConcatAndFree "XmString XmStringConcatAndFree(XmString s1, XmString s2) appends one string to \ another and frees the original strings" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringConcatAndFree", "XmString"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringConcatAndFree", "XmString"); - return(C_TO_XEN_XmString(XmStringConcatAndFree(XEN_TO_C_XmString(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringConcatAndFree", "XmString"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringConcatAndFree", "XmString"); + return(C_to_Xen_XmString(XmStringConcatAndFree(Xen_to_C_XmString(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmStringConcat(XEN arg1, XEN arg2) +static Xen gxm_XmStringConcat(Xen arg1, Xen arg2) { #define H_XmStringConcat "XmString XmStringConcat(XmString s1, XmString s2) appends one string to another" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmStringConcat", "XmString"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmStringConcat", "XmString"); - return(C_TO_XEN_XmString(XmStringConcat(XEN_TO_C_XmString(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmStringConcat", "XmString"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmStringConcat", "XmString"); + return(C_to_Xen_XmString(XmStringConcat(Xen_to_C_XmString(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmStringFreeContext(XEN arg1) +static Xen gxm_XmStringFreeContext(Xen arg1) { #define H_XmStringFreeContext "void XmStringFreeContext(XmStringContext context) releases the string scanning \ context data structure" - XEN_ASSERT_TYPE(XEN_XmStringContext_P(arg1), arg1, 1, "XmStringFreeContext", "XmStringContext"); - XmStringFreeContext(XEN_TO_C_XmStringContext(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XmStringContext(arg1), arg1, 1, "XmStringFreeContext", "XmStringContext"); + XmStringFreeContext(Xen_to_C_XmStringContext(arg1)); + return(Xen_false); } static XmStringContext gxm_initxmsc; -static XEN gxm_XmStringInitContext(XEN arg2) +static Xen gxm_XmStringInitContext(Xen arg2) { #define H_XmStringInitContext "Boolean XmStringInitContext(XmString string) creates \ a data structure for scanning an XmString component by component" - /* DIFF XmStringInitContext 1st arg omitted and rtn + /* DIFF XmStringInitContext first arg omitted and rtn */ int val; - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 1, "XmStringInitContext", "XmString"); - val = XmStringInitContext(&gxm_initxmsc, XEN_TO_C_XmString(arg2)); - return(XEN_LIST_2(C_TO_XEN_BOOLEAN(val), C_TO_XEN_XmStringContext(gxm_initxmsc))); + Xen_check_type(Xen_is_XmString(arg2), arg2, 1, "XmStringInitContext", "XmString"); + val = XmStringInitContext(&gxm_initxmsc, Xen_to_C_XmString(arg2)); + return(Xen_list_2(C_bool_to_Xen_boolean(val), C_to_Xen_XmStringContext(gxm_initxmsc))); } -static XEN gxm_XmStringSeparatorCreate(void) +static Xen gxm_XmStringSeparatorCreate(void) { #define H_XmStringSeparatorCreate "XmString XmStringSeparatorCreate(void) creates a compound string" - return(C_TO_XEN_XmString(XmStringSeparatorCreate())); + return(C_to_Xen_XmString(XmStringSeparatorCreate())); } -static XEN gxm_XmStringDirectionCreate(XEN arg1) +static Xen gxm_XmStringDirectionCreate(Xen arg1) { #define H_XmStringDirectionCreate "XmString XmStringDirectionCreate(XmStringDirection direction) creates a compound string" - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 1, "XmStringDirectionCreate", "int"); - return(C_TO_XEN_XmString(XmStringDirectionCreate(XEN_TO_C_INT(arg1)))); + Xen_check_type(Xen_is_integer(arg1), arg1, 1, "XmStringDirectionCreate", "int"); + return(C_to_Xen_XmString(XmStringDirectionCreate(Xen_integer_to_C_int(arg1)))); } -static XEN gxm_XmStringCreateLocalized(XEN arg1) +static Xen gxm_XmStringCreateLocalized(Xen arg1) { #define H_XmStringCreateLocalized "XmString XmStringCreateLocalized(char *text) creates a compound string in the current locale" - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XmStringCreateLocalized", "String"); - return(C_TO_XEN_XmString(XmStringCreateLocalized((char *)XEN_TO_C_STRING(arg1)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XmStringCreateLocalized", "String"); + return(C_to_Xen_XmString(XmStringCreateLocalized((char *)Xen_string_to_C_string(arg1)))); } -static XEN gxm_XmStringCreate(XEN arg1, XEN arg2) +static Xen gxm_XmStringCreate(Xen arg1, Xen arg2) { #define H_XmStringCreate "XmString XmStringCreate(char *text, char *tag) creates a compound string" - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XmStringCreate", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmStringCreate", "XmStringCharSet"); - return(C_TO_XEN_XmString(XmStringCreate((char *)XEN_TO_C_STRING(arg1), (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XmStringCreate", "char*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmStringCreate", "XmStringCharSet"); + return(C_to_Xen_XmString(XmStringCreate((char *)Xen_string_to_C_string(arg1), (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_XmChangeColor(XEN arg1, XEN arg2) +static Xen gxm_XmChangeColor(Xen arg1, Xen arg2) { #define H_XmChangeColor "void XmChangeColor(Widget widget, Pixel background) recalculates all associated colors of a widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmChangeColor", "Widget"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg2), arg2, 2, "XmChangeColor", "Pixel"); - XmChangeColor(XEN_TO_C_Widget(arg1), XEN_TO_C_Pixel(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmChangeColor", "Widget"); + Xen_check_type(Xen_is_Pixel(arg2), arg2, 2, "XmChangeColor", "Pixel"); + XmChangeColor(Xen_to_C_Widget(arg1), Xen_to_C_Pixel(arg2)); + return(Xen_false); } -static XEN gxm_XmGetColors(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmGetColors(Xen arg1, Xen arg2, Xen arg3) { #define H_XmGetColors "void XmGetColors(Screen *screen, Colormap colormap, Pixel background) generates foreground, select, and shadow colors" /* DIFF: XmGetColors omits trailing 4 args and returns them */ Pixel fg,ts, bs, sr; - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XmGetColors", "Screen*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XmGetColors", "Colormap"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XmGetColors", "Pixel"); - XmGetColors(XEN_TO_C_Screen(arg1), - XEN_TO_C_Colormap(arg2), - XEN_TO_C_Pixel(arg3), + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XmGetColors", "Screen*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XmGetColors", "Colormap"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XmGetColors", "Pixel"); + XmGetColors(Xen_to_C_Screen(arg1), + Xen_to_C_Colormap(arg2), + Xen_to_C_Pixel(arg3), &fg, &ts, &bs, &sr); - return(XEN_LIST_4(C_TO_XEN_Pixel(fg), - C_TO_XEN_Pixel(ts), - C_TO_XEN_Pixel(bs), - C_TO_XEN_Pixel(sr))); + return(Xen_list_4(C_to_Xen_Pixel(fg), + C_to_Xen_Pixel(ts), + C_to_Xen_Pixel(bs), + C_to_Xen_Pixel(sr))); } -static XEN gxm_XmGetColorCalculation(void) +static Xen gxm_XmGetColorCalculation(void) { #define H_XmGetColorCalculation "XmColorProc XmGetColorCalculation(void) get the procedure used for default color calculation" return(xm_XmColorProc); } -static XEN gxm_XmSetColorCalculation(XEN arg1) +static Xen gxm_XmSetColorCalculation(Xen arg1) { #define H_XmSetColorCalculation "XmColorProc XmSetColorCalculation(XmColorProc color_proc) set the procedure used for default color calculation" /* DIFF: XmSetColorCalculation NULL -> #f */ - if (XEN_PROCEDURE_P(xm_XmColorProc)) xm_unprotect(xm_XmColorProc); - if (XEN_FALSE_P(arg1)) + if (Xen_is_procedure(xm_XmColorProc)) xm_unprotect(xm_XmColorProc); + if (Xen_is_false(arg1)) { - xm_XmColorProc = XEN_FALSE; + xm_XmColorProc = Xen_false; XmSetColorCalculation(NULL); } else { - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg1) && (XEN_REQUIRED_ARGS_OK(arg1, 1)), arg1, 1, "XmSetColorCalculation", "(XmColorProc but 1 arg)"); + Xen_check_type(Xen_is_procedure(arg1) && (Xen_is_aritable(arg1, 1)), arg1, 1, "XmSetColorCalculation", "(XmColorProc but 1 arg)"); xm_protect(arg1); xm_XmColorProc = arg1; XmSetColorCalculation((XmColorProc)gxm_XmColorProc); @@ -3897,19 +3832,19 @@ static XEN gxm_XmSetColorCalculation(XEN arg1) return(arg1); } -static XEN gxm_XmTrackingEvent(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTrackingEvent(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTrackingEvent "Widget XmTrackingEvent(Widget widget, Cursor cursor, Boolean confine_to): (widget event)" /* DIFF: XmTrackingEvent widget cursor confine [event] -> (list widget event) */ XEvent *e; /* do we need to allocate? */ Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmTrackingEvent", "Widget"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg2), arg2, 2, "XmTrackingEvent", "Cursor"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmTrackingEvent", "boolean"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmTrackingEvent", "Widget"); + Xen_check_type(Xen_is_Cursor(arg2), arg2, 2, "XmTrackingEvent", "Cursor"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmTrackingEvent", "boolean"); e = (XEvent *)calloc(1, sizeof(XEvent)); - w = XmTrackingEvent(XEN_TO_C_Widget(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_BOOLEAN(arg3), e); - return(XEN_LIST_2(C_TO_XEN_Widget(w), C_TO_XEN_XEvent_OBJ(e))); + w = XmTrackingEvent(Xen_to_C_Widget(arg1), Xen_ulong_to_C_ulong(arg2), Xen_boolean_to_C_bool(arg3), e); + return(Xen_list_2(C_to_Xen_Widget(w), C_to_Xen_XEvent_OBJ(e))); } @@ -3941,24 +3876,24 @@ static XEN gxm_XmTrackingEvent(XEN arg1, XEN arg2, XEN arg3) NULL); */ -static XEN gxm_XmVaCreateSimpleCheckBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmVaCreateSimpleCheckBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmVaCreateSimpleCheckBox "Widget XmVaCreateSimpleCheckBox(Widget parent, String name, XtCallbackProc callback, args)" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmVaCreateSimpleCheckBox", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmVaCreateSimpleCheckBox", "String"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg3) && (XEN_REQUIRED_ARGS_OK(arg3, 3)), arg3, 3, "XmVaCreateSimpleCheckBox", "XtCallbackProc (3 args)"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XmVaCreateSimpleCheckBox", "List"); - arg4 = XEN_CONS_2(C_TO_XEN_STRING(XmNvalueChangedCallback), - XEN_LIST_2(arg3, XEN_FALSE), /* XtCallbackList technically */ + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmVaCreateSimpleCheckBox", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmVaCreateSimpleCheckBox", "String"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 3)), arg3, 3, "XmVaCreateSimpleCheckBox", "XtCallbackProc (3 args)"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XmVaCreateSimpleCheckBox", "List"); + arg4 = Xen_cons_2(C_string_to_Xen_string(XmNvalueChangedCallback), + Xen_list_2(arg3, Xen_false), /* XtCallbackList technically */ arg4); { int arglen; Arg *args; - args = XEN_TO_C_Args(arg4); - arglen = XEN_LIST_LENGTH(arg4) / 2; - w = XmCreateSimpleCheckBox(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), + args = Xen_to_C_Args(arg4); + arglen = Xen_list_length(arg4) / 2; + w = XmCreateSimpleCheckBox(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), args, arglen); if (args) @@ -3967,30 +3902,30 @@ static XEN gxm_XmVaCreateSimpleCheckBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmVaCreateSimpleRadioBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmVaCreateSimpleRadioBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmVaCreateSimpleRadioBox "Widget XmVaCreateSimpleRadioBox(Widget parent, String name, int button_set, XtCallbackProc callback, args)" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmVaCreateSimpleRadioBox", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmVaCreateSimpleRadioBox", "String"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmVaCreateSimpleRadioBox", "int"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 3)), arg4, 4, "XmVaCreateSimpleRadioBox", "XtCallbackProc (3 args"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg5), arg5, 5, "XmVaCreateSimpleRadioBox", "List"); - arg5 = XEN_CONS_2(C_TO_XEN_STRING(XmNvalueChangedCallback), - XEN_LIST_2(arg4, XEN_FALSE), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmVaCreateSimpleRadioBox", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmVaCreateSimpleRadioBox", "String"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmVaCreateSimpleRadioBox", "int"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 3)), arg4, 4, "XmVaCreateSimpleRadioBox", "XtCallbackProc (3 args"); + Xen_check_type(Xen_is_list(arg5), arg5, 5, "XmVaCreateSimpleRadioBox", "List"); + arg5 = Xen_cons_2(C_string_to_Xen_string(XmNvalueChangedCallback), + Xen_list_2(arg4, Xen_false), arg5); /* can't handle button set here since the menuHistory resource is the widget allocated later */ { int arglen; Arg *args; - args = XEN_TO_C_Args(arg5); - arglen = XEN_LIST_LENGTH(arg5) / 2; - w = XmCreateSimpleRadioBox(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), + args = Xen_to_C_Args(arg5); + arglen = Xen_list_length(arg5) / 2; + w = XmCreateSimpleRadioBox(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), args, arglen); if (args) @@ -3999,35 +3934,35 @@ static XEN gxm_XmVaCreateSimpleRadioBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4, free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmVaCreateSimpleOptionMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XmVaCreateSimpleOptionMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XmVaCreateSimpleOptionMenu "Widget XmVaCreateSimpleOptionMenu(Widget parent, String name, XmString option_label, \ KeySym option_mnemonic, int button_set, XtCallbackProc callback, args)" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmVaCreateSimpleOptionMenu", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmVaCreateSimpleOptionMenu", "String"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg3), arg3, 3, "XmVaCreateSimpleOptionMenu", "XmString"); - XEN_ASSERT_TYPE(XEN_KeySym_P(arg4), arg4, 4, "XmVaCreateSimpleOptionMenu", "KeySym"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XmVaCreateSimpleOptionMenu", "int"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg6) && (XEN_REQUIRED_ARGS_OK(arg6, 3)), arg6, 6, "XmVaCreateSimpleOptionMenu", "XtCallbackProc (3 args)"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg7), arg7, 7, "XmVaCreateSimpleOptionMenu", "List"); - arg7 = XEN_CONS_2(C_TO_XEN_STRING(XmNlabelString), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmVaCreateSimpleOptionMenu", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmVaCreateSimpleOptionMenu", "String"); + Xen_check_type(Xen_is_XmString(arg3), arg3, 3, "XmVaCreateSimpleOptionMenu", "XmString"); + Xen_check_type(Xen_is_KeySym(arg4), arg4, 4, "XmVaCreateSimpleOptionMenu", "KeySym"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XmVaCreateSimpleOptionMenu", "int"); + Xen_check_type(Xen_is_procedure(arg6) && (Xen_is_aritable(arg6, 3)), arg6, 6, "XmVaCreateSimpleOptionMenu", "XtCallbackProc (3 args)"); + Xen_check_type(Xen_is_list(arg7), arg7, 7, "XmVaCreateSimpleOptionMenu", "List"); + arg7 = Xen_cons_2(C_string_to_Xen_string(XmNlabelString), arg3, - XEN_CONS_2(C_TO_XEN_STRING(XmNmnemonic), + Xen_cons_2(C_string_to_Xen_string(XmNmnemonic), arg4, - XEN_CONS_2(C_TO_XEN_STRING(XmNvalueChangedCallback), - XEN_LIST_2(arg6, XEN_FALSE), + Xen_cons_2(C_string_to_Xen_string(XmNvalueChangedCallback), + Xen_list_2(arg6, Xen_false), arg7))); { int arglen; Arg *args; - args = XEN_TO_C_Args(arg7); - arglen = XEN_LIST_LENGTH(arg7) / 2; - w = XmCreateSimpleOptionMenu(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), + args = Xen_to_C_Args(arg7); + arglen = Xen_list_length(arg7) / 2; + w = XmCreateSimpleOptionMenu(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), args, arglen); if (args) @@ -4036,28 +3971,28 @@ KeySym option_mnemonic, int button_set, XtCallbackProc callback, args)" free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmVaCreateSimplePulldownMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmVaCreateSimplePulldownMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmVaCreateSimplePulldownMenu "Widget XmVaCreateSimplePulldownMenu(Widget parent, String name, int post_from_button, XtCallbackProc callback, args)" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmVaCreateSimplePulldownMenu", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmVaCreateSimplePulldownMenu", "String"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmVaCreateSimplePulldownMenu", "int"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 3)), arg4, 4, "XmVaCreateSimplePulldownMenu", "XtCallbackProc (3 args)"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg5), arg5, 5, "XmVaCreateSimplePulldownMenu", "List"); - arg5 = XEN_CONS_2(C_TO_XEN_STRING(XmNvalueChangedCallback), - XEN_LIST_2(arg4, XEN_FALSE), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmVaCreateSimplePulldownMenu", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmVaCreateSimplePulldownMenu", "String"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmVaCreateSimplePulldownMenu", "int"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 3)), arg4, 4, "XmVaCreateSimplePulldownMenu", "XtCallbackProc (3 args)"); + Xen_check_type(Xen_is_list(arg5), arg5, 5, "XmVaCreateSimplePulldownMenu", "List"); + arg5 = Xen_cons_2(C_string_to_Xen_string(XmNvalueChangedCallback), + Xen_list_2(arg4, Xen_false), arg5); { int arglen; Arg *args; - args = XEN_TO_C_Args(arg5); - arglen = XEN_LIST_LENGTH(arg5) / 2; - w = XmCreateSimplePulldownMenu(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), + args = Xen_to_C_Args(arg5); + arglen = Xen_list_length(arg5) / 2; + w = XmCreateSimplePulldownMenu(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), args, arglen); if (args) @@ -4066,27 +4001,27 @@ static XEN gxm_XmVaCreateSimplePulldownMenu(XEN arg1, XEN arg2, XEN arg3, XEN ar free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmVaCreateSimplePopupMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmVaCreateSimplePopupMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmVaCreateSimplePopupMenu "Widget XmVaCreateSimplePopupMenu(Widget parent, String name, XtCallbackProc callback, args)" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmVaCreateSimplePopupMenu", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmVaCreateSimplePopupMenu", "String"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg3) && (XEN_REQUIRED_ARGS_OK(arg3, 3)), arg3, 3, "XmVaCreateSimplePopupMenu", "XtCallbackProc (3 args)"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XmVaCreateSimplePopupMenu", "List"); - arg4 = XEN_CONS_2(C_TO_XEN_STRING(XmNvalueChangedCallback), - XEN_LIST_2(arg3, XEN_FALSE), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmVaCreateSimplePopupMenu", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmVaCreateSimplePopupMenu", "String"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 3)), arg3, 3, "XmVaCreateSimplePopupMenu", "XtCallbackProc (3 args)"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XmVaCreateSimplePopupMenu", "List"); + arg4 = Xen_cons_2(C_string_to_Xen_string(XmNvalueChangedCallback), + Xen_list_2(arg3, Xen_false), arg4); { int arglen; Arg *args; - args = XEN_TO_C_Args(arg4); - arglen = XEN_LIST_LENGTH(arg4) / 2; - w = XmCreateSimplePopupMenu(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), + args = Xen_to_C_Args(arg4); + arglen = Xen_list_length(arg4) / 2; + w = XmCreateSimplePopupMenu(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), args, arglen); if (args) @@ -4095,23 +4030,23 @@ static XEN gxm_XmVaCreateSimplePopupMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmVaCreateSimpleMenuBar(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmVaCreateSimpleMenuBar(Xen arg1, Xen arg2, Xen arg3) { #define H_XmVaCreateSimpleMenuBar "Widget XmVaCreateSimpleMenuBar(Widget parent, String name, args)" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmVaCreateSimpleMenuBar", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmVaCreateSimpleMenuBar", "String"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XmVaCreateSimpleMenuBar", "List"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmVaCreateSimpleMenuBar", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmVaCreateSimpleMenuBar", "String"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XmVaCreateSimpleMenuBar", "List"); { int arglen; Arg *args; - args = XEN_TO_C_Args(arg3); - arglen = XEN_LIST_LENGTH(arg3) / 2; - w = XmVaCreateSimpleMenuBar(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), + args = Xen_to_C_Args(arg3); + arglen = Xen_list_length(arg3) / 2; + w = XmVaCreateSimpleMenuBar(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), args, arglen); if (args) @@ -4120,58 +4055,58 @@ static XEN gxm_XmVaCreateSimpleMenuBar(XEN arg1, XEN arg2, XEN arg3) free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmCreateSimpleCheckBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSimpleCheckBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSimpleCheckBox "Widget XmCreateSimpleCheckBox(Widget parent, String name, ArgList arglist, Cardinal argcount)" return(gxm_new_widget("XmCreateSimpleCheckBox", XmCreateSimpleCheckBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSimpleRadioBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSimpleRadioBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSimpleRadioBox "Widget XmCreateSimpleRadioBox(Widget parent, String name, ArgList arglist, Cardinal argcount)" return(gxm_new_widget("XmCreateSimpleRadioBox", XmCreateSimpleRadioBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSimpleOptionMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSimpleOptionMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSimpleOptionMenu "Widget XmCreateSimpleOptionMenu(Widget parent, String name, ArgList arglist, Cardinal argcount)" return(gxm_new_widget("XmCreateSimpleOptionMenu", XmCreateSimpleOptionMenu, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSimplePulldownMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSimplePulldownMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSimplePulldownMenu "Widget XmCreateSimplePulldownMenu(Widget parent, String name, ArgList arglist, Cardinal argcount)" return(gxm_new_widget("XmCreateSimplePulldownMenu", XmCreateSimplePulldownMenu, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSimplePopupMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSimplePopupMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSimplePopupMenu "Widget XmCreateSimplePopupMenu(Widget parent, String name, ArgList arglist, Cardinal argcount)" return(gxm_new_widget("XmCreateSimplePopupMenu", XmCreateSimplePopupMenu, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSimpleMenuBar(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSimpleMenuBar(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSimpleMenuBar "Widget XmCreateSimpleMenuBar(Widget parent, String name, ArgList arglist, Cardinal argcount)" return(gxm_new_widget("XmCreateSimpleMenuBar", XmCreateSimpleMenuBar, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmConvertUnits(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmConvertUnits(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmConvertUnits "int XmConvertUnits(Widget widget, int orientation, int from_unit_type, int from_value, int to_unit_type) \ converts a value in one unit type to another unit type" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmConvertUnits", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmConvertUnits", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmConvertUnits", "register"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmConvertUnits", "register"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XmConvertUnits", "register"); - return(C_TO_XEN_INT(XmConvertUnits(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmConvertUnits", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmConvertUnits", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmConvertUnits", "register"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmConvertUnits", "register"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XmConvertUnits", "register"); + return(C_int_to_Xen_integer(XmConvertUnits(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5)))); } -static XEN gxm_XmConvertStringToUnits(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmConvertStringToUnits(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmConvertStringToUnits "int XmConvertStringToUnits(Screen *screen, String spec, int orientation, int to_type, XtEnum *parse_error) \ converts a string specification to a unit value" @@ -4179,59 +4114,59 @@ converts a string specification to a unit value" */ XtEnum err = 0; int val; - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XmConvertStringToUnits", "Screen*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmConvertStringToUnits", "String"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmConvertStringToUnits", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmConvertStringToUnits", "int"); - val = XmConvertStringToUnits(XEN_TO_C_Screen(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), &err); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XmConvertStringToUnits", "Screen*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmConvertStringToUnits", "String"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmConvertStringToUnits", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmConvertStringToUnits", "int"); + val = XmConvertStringToUnits(Xen_to_C_Screen(arg1), (char *)Xen_string_to_C_string(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), &err); if (err == 0) - return(C_TO_XEN_INT(val)); - return(XEN_FALSE); + return(C_int_to_Xen_integer(val)); + return(Xen_false); } -static XEN gxm_XmCvtXmStringToCT(XEN arg1) +static Xen gxm_XmCvtXmStringToCT(Xen arg1) { #define H_XmCvtXmStringToCT "char *XmCvtXmStringToCT(XmString string) converts a compound string to compound text" - XEN_ASSERT_TYPE(XEN_XmString_P(arg1), arg1, 1, "XmCvtXmStringToCT", "XmString"); - return(C_TO_XEN_STRING(XmCvtXmStringToCT(XEN_TO_C_XmString(arg1)))); + Xen_check_type(Xen_is_XmString(arg1), arg1, 1, "XmCvtXmStringToCT", "XmString"); + return(C_string_to_Xen_string(XmCvtXmStringToCT(Xen_to_C_XmString(arg1)))); /* memory leak here, but the docs don't say that I should free the string of "compound text" */ } -static XEN gxm_XmCvtCTToXmString(XEN arg1) +static Xen gxm_XmCvtCTToXmString(Xen arg1) { #define H_XmCvtCTToXmString "XmString XmCvtCTToXmString(char *text) converts compound text to a compound string" - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XmCvtCTToXmString", "char*"); - return(C_TO_XEN_XmString(XmCvtCTToXmString((char *)XEN_TO_C_STRING(arg1)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XmCvtCTToXmString", "char*"); + return(C_to_Xen_XmString(XmCvtCTToXmString((char *)Xen_string_to_C_string(arg1)))); } -static XEN gxm_XmMapSegmentEncoding(XEN arg1) +static Xen gxm_XmMapSegmentEncoding(Xen arg1) { char *str; - XEN res; + Xen res; #define H_XmMapSegmentEncoding "char *XmMapSegmentEncoding(char *fontlist_tag): returns the compound text \ encoding format associated with the specified font list tag" - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XmMapSegmentEncoding", "char*"); - str = XmMapSegmentEncoding((char *)XEN_TO_C_STRING(arg1)); - res = C_TO_XEN_STRING(str); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XmMapSegmentEncoding", "char*"); + str = XmMapSegmentEncoding((char *)Xen_string_to_C_string(arg1)); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XmRegisterSegmentEncoding(XEN arg1, XEN arg2) +static Xen gxm_XmRegisterSegmentEncoding(Xen arg1, Xen arg2) { char *str; - XEN res; + Xen res; #define H_XmRegisterSegmentEncoding "char *XmRegisterSegmentEncoding(char *fontlist_tag, char *ct_encoding) \ registers a compound text encoding format for a specified font list element tag" - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XmRegisterSegmentEncoding", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmRegisterSegmentEncoding", "char*"); - str = XmRegisterSegmentEncoding((char *)XEN_TO_C_STRING(arg1), (char *)XEN_TO_C_STRING(arg2)); - res = C_TO_XEN_STRING(str); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XmRegisterSegmentEncoding", "char*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmRegisterSegmentEncoding", "char*"); + str = XmRegisterSegmentEncoding((char *)Xen_string_to_C_string(arg1), (char *)Xen_string_to_C_string(arg2)); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XmWidgetGetBaselines(XEN arg1) +static Xen gxm_XmWidgetGetBaselines(Xen arg1) { #define H_XmWidgetGetBaselines "Boolean XmWidgetGetBaselines(Widget widget) retrieves baseline information for a widget" /* DIFF: XmWidgetGetBaselines omits args 2 and 3, returns list of Dimensions @@ -4239,114 +4174,114 @@ static XEN gxm_XmWidgetGetBaselines(XEN arg1) Dimension *ds; int len, i, loc; Boolean b; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmWidgetGetBaselines", "Widget"); - b = XmWidgetGetBaselines(XEN_TO_C_Widget(arg1), &ds, &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmWidgetGetBaselines", "Widget"); + b = XmWidgetGetBaselines(Xen_to_C_Widget(arg1), &ds, &len); if (!b) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Dimension(ds[i]), lst); + lst = Xen_cons(C_to_Xen_Dimension(ds[i]), lst); free(ds); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XmWidgetGetDisplayRect(XEN arg1) +static Xen gxm_XmWidgetGetDisplayRect(Xen arg1) { #define H_XmWidgetGetDisplayRect "Boolean XmWidgetGetDisplayRect(Widget widget): returns widget's bounding box as XRectangle" XRectangle *r; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmWidgetGetDisplayRect", "Widget"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmWidgetGetDisplayRect", "Widget"); r = (XRectangle *)calloc(1, sizeof(XRectangle)); - if (!(XmWidgetGetDisplayRect(XEN_TO_C_Widget(arg1), r))) + if (!(XmWidgetGetDisplayRect(Xen_to_C_Widget(arg1), r))) { free(r); - return(XEN_FALSE); + return(Xen_false); } - return(C_TO_XEN_XRectangle(r)); + return(C_to_Xen_XRectangle(r)); } -static XEN gxm_XmObjectAtPoint(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmObjectAtPoint(Xen arg1, Xen arg2, Xen arg3) { #define H_XmObjectAtPoint "Widget XmObjectAtPoint(Widget widget, Position x, Position y) determines which child \ intersects or comes closest to a specified point" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmObjectAtPoint", "Widget"); - XEN_ASSERT_TYPE(XEN_Position_P(arg2), arg2, 2, "XmObjectAtPoint", "Position"); - XEN_ASSERT_TYPE(XEN_Position_P(arg3), arg3, 3, "XmObjectAtPoint", "Position"); - return(C_TO_XEN_Widget(XmObjectAtPoint(XEN_TO_C_Widget(arg1), XEN_TO_C_Position(arg2), XEN_TO_C_Position(arg3)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmObjectAtPoint", "Widget"); + Xen_check_type(Xen_is_Position(arg2), arg2, 2, "XmObjectAtPoint", "Position"); + Xen_check_type(Xen_is_Position(arg3), arg3, 3, "XmObjectAtPoint", "Position"); + return(C_to_Xen_Widget(XmObjectAtPoint(Xen_to_C_Widget(arg1), Xen_to_C_Position(arg2), Xen_to_C_Position(arg3)))); } -static XEN gxm_XmUpdateDisplay(XEN arg1) +static Xen gxm_XmUpdateDisplay(Xen arg1) { #define H_XmUpdateDisplay "void XmUpdateDisplay (widget) processes all pending exposure events immediately" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmUpdateDisplay", "Widget"); - XmUpdateDisplay(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmUpdateDisplay", "Widget"); + XmUpdateDisplay(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmDestroyPixmap(XEN arg1, XEN arg2) +static Xen gxm_XmDestroyPixmap(Xen arg1, Xen arg2) { #define H_XmDestroyPixmap "Boolean XmDestroyPixmap(Screen *screen, Pixmap pixmap) removes a pixmap from the pixmap cache" - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XmDestroyPixmap", "Screen*"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg2), arg2, 2, "XmDestroyPixmap", "Pixmap"); - return(C_TO_XEN_BOOLEAN(XmDestroyPixmap(XEN_TO_C_Screen(arg1), - XEN_TO_C_Pixmap(arg2)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XmDestroyPixmap", "Screen*"); + Xen_check_type(Xen_is_Pixmap(arg2), arg2, 2, "XmDestroyPixmap", "Pixmap"); + return(C_bool_to_Xen_boolean(XmDestroyPixmap(Xen_to_C_Screen(arg1), + Xen_to_C_Pixmap(arg2)))); } -static XEN gxm_XmGetPixmapByDepth(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmGetPixmapByDepth(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmGetPixmapByDepth "Pixmap XmGetPixmapByDepth(Screen *screen, char *image_name, Pixel foreground, Pixel background, int depth) \ generates a pixmap, stores it in a pixmap cache, and returns the pixmap" - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XmGetPixmapByDepth", "Screen*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmGetPixmapByDepth", "char*"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XmGetPixmapByDepth", "Pixel"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg4), arg4, 4, "XmGetPixmapByDepth", "Pixel"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XmGetPixmapByDepth", "int"); - return(C_TO_XEN_Pixmap(XmGetPixmapByDepth(XEN_TO_C_Screen(arg1), - (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_Pixel(arg3), - XEN_TO_C_Pixel(arg4), - XEN_TO_C_INT(arg5)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XmGetPixmapByDepth", "Screen*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmGetPixmapByDepth", "char*"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XmGetPixmapByDepth", "Pixel"); + Xen_check_type(Xen_is_Pixel(arg4), arg4, 4, "XmGetPixmapByDepth", "Pixel"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XmGetPixmapByDepth", "int"); + return(C_to_Xen_Pixmap(XmGetPixmapByDepth(Xen_to_C_Screen(arg1), + (char *)Xen_string_to_C_string(arg2), + Xen_to_C_Pixel(arg3), + Xen_to_C_Pixel(arg4), + Xen_integer_to_C_int(arg5)))); } -static XEN gxm_XmGetPixmap(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmGetPixmap(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmGetPixmap "Pixmap XmGetPixmap(Screen *screen, char *image_name, Pixel foreground, Pixel background) A pixmap caching function \ that generates a pixmap, stores it in a pixmap cache, and returns the pixmap" - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XmGetPixmap", "Screen*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmGetPixmap", "char*"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XmGetPixmap", "Pixel"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg4), arg4, 4, "XmGetPixmap", "Pixel"); - return(C_TO_XEN_Pixmap(XmGetPixmap(XEN_TO_C_Screen(arg1), - (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_Pixel(arg3), - XEN_TO_C_Pixel(arg4)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XmGetPixmap", "Screen*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmGetPixmap", "char*"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XmGetPixmap", "Pixel"); + Xen_check_type(Xen_is_Pixel(arg4), arg4, 4, "XmGetPixmap", "Pixel"); + return(C_to_Xen_Pixmap(XmGetPixmap(Xen_to_C_Screen(arg1), + (char *)Xen_string_to_C_string(arg2), + Xen_to_C_Pixel(arg3), + Xen_to_C_Pixel(arg4)))); } -static XEN gxm_XmUninstallImage(XEN arg1) +static Xen gxm_XmUninstallImage(Xen arg1) { #define H_XmUninstallImage "Boolean XmUninstallImage(XImage *image) removes an image from the image cache" - XEN_ASSERT_TYPE(XEN_XImage_P(arg1), arg1, 1, "XmUninstallImage", "XImage*"); - return(C_TO_XEN_BOOLEAN(XmUninstallImage(XEN_TO_C_XImage(arg1)))); + Xen_check_type(Xen_is_XImage(arg1), arg1, 1, "XmUninstallImage", "XImage*"); + return(C_bool_to_Xen_boolean(XmUninstallImage(Xen_to_C_XImage(arg1)))); } -static XEN gxm_XmInstallImage(XEN arg1, XEN arg2) +static Xen gxm_XmInstallImage(Xen arg1, Xen arg2) { #define H_XmInstallImage "Boolean XmInstallImage(XImage *image, char *image_name) adds an image to the image cache" - XEN_ASSERT_TYPE(XEN_XImage_P(arg1), arg1, 1, "XmInstallImage", "XImage*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmInstallImage", "char*"); - return(C_TO_XEN_BOOLEAN(XmInstallImage(XEN_TO_C_XImage(arg1), - (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_XImage(arg1), arg1, 1, "XmInstallImage", "XImage*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmInstallImage", "char*"); + return(C_bool_to_Xen_boolean(XmInstallImage(Xen_to_C_XImage(arg1), + (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_XmCreateMainWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateMainWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateMainWindow "Widget XmCreateMainWindow(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MainWindow widget creation function" return(gxm_new_widget("XmCreateMainWindow", XmCreateMainWindow, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmTranslateKey(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTranslateKey(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTranslateKey "void XmTranslateKey(Display *display, KeyCode keycode, Modifiers modifiers) \ The default keycode-to-keysym translator -> (modifiers keysym)" @@ -4354,56 +4289,56 @@ The default keycode-to-keysym translator -> (modifiers keysym)" */ Modifiers m; KeySym k; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmTranslateKey", "Display*"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XmTranslateKey", "KeyCode"); - XEN_ASSERT_TYPE(XEN_Modifiers_P(arg3), arg3, 3, "XmTranslateKey", "Modifiers"); - XmTranslateKey(XEN_TO_C_Display(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_Modifiers(arg3), &m, &k); - return(XEN_LIST_2(C_TO_XEN_Modifiers(m), - C_TO_XEN_KeySym(k))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmTranslateKey", "Display*"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XmTranslateKey", "KeyCode"); + Xen_check_type(Xen_is_Modifiers(arg3), arg3, 3, "XmTranslateKey", "Modifiers"); + XmTranslateKey(Xen_to_C_Display(arg1), Xen_to_C_KeyCode(arg2), Xen_to_C_Modifiers(arg3), &m, &k); + return(Xen_list_2(C_to_Xen_Modifiers(m), + C_to_Xen_KeySym(k))); } -static XEN gxm_XmCreateScrolledList(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateScrolledList(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateScrolledList "Widget XmCreateScrolledList(Widget parent, String name, ArgList arglist, Cardinal argcount) The List \ ScrolledList creation function" return(gxm_new_widget("XmCreateScrolledList", XmCreateScrolledList, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateList(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateList(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateList "Widget XmCreateList(Widget parent, String name, ArgList arglist, Cardinal argcount) The List widget creation function" return(gxm_new_widget("XmCreateList", XmCreateList, arg1, arg2, arg3, arg4)); } -#define XEN_ListWidget_P(Arg) (XEN_Widget_P(Arg) && XmIsList(XEN_TO_C_Widget(Arg))) +#define Xen_is_ListWidget(Arg) (Xen_is_Widget(Arg) && XmIsList(Xen_to_C_Widget(Arg))) -static XEN gxm_XmListPosSelected(XEN arg1, XEN arg2) +static Xen gxm_XmListPosSelected(Xen arg1, Xen arg2) { #define H_XmListPosSelected "Boolean XmListPosSelected(Widget widget, int position) determines if the list item at a \ specified position is selected" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListPosSelected", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListPosSelected", "int"); - return(C_TO_XEN_BOOLEAN(XmListPosSelected(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListPosSelected", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListPosSelected", "int"); + return(C_bool_to_Xen_boolean(XmListPosSelected(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XmListUpdateSelectedList(XEN arg1) +static Xen gxm_XmListUpdateSelectedList(Xen arg1) { #define H_XmListUpdateSelectedList "void XmListUpdateSelectedList(Widget widget) updates the XmNselectedItems resource" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListUpdateSelectedList", "List Widget"); - XmListUpdateSelectedList(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListUpdateSelectedList", "List Widget"); + XmListUpdateSelectedList(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmListSetHorizPos(XEN arg1, XEN arg2) +static Xen gxm_XmListSetHorizPos(Xen arg1, Xen arg2) { #define H_XmListSetHorizPos "void XmListSetHorizPos(Widget widget, int position) scrolls to the specified position in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSetHorizPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListSetHorizPos", "int"); - XmListSetHorizPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSetHorizPos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListSetHorizPos", "int"); + XmListSetHorizPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmListGetSelectedPos(XEN arg1) +static Xen gxm_XmListGetSelectedPos(Xen arg1) { #define H_XmListGetSelectedPos "Boolean XmListGetSelectedPos(Widget widget) A List function that returns the position of every selected item in the list" /* DIFF: XmListGetSelectedPos omits args 2 and 3, returns list of positions @@ -4411,20 +4346,20 @@ static XEN gxm_XmListGetSelectedPos(XEN arg1) int *ps; int i, len, loc; Boolean b; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListGetSelectedPos", "List Widget"); - b = XmListGetSelectedPos(XEN_TO_C_Widget(arg1), &ps, &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListGetSelectedPos", "List Widget"); + b = XmListGetSelectedPos(Xen_to_C_Widget(arg1), &ps, &len); if (!b) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_INT(ps[i]), lst); + lst = Xen_cons(C_int_to_Xen_integer(ps[i]), lst); free(ps); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XmListGetMatchPos(XEN arg1, XEN arg2) +static Xen gxm_XmListGetMatchPos(Xen arg1, Xen arg2) { #define H_XmListGetMatchPos "Boolean XmListGetMatchPos(Widget widget, XmString item): returns all instances of an item in the list" /* DIFF: XmListGetSelectedPos omits args 3 and 4, returns list of positions @@ -4432,21 +4367,21 @@ static XEN gxm_XmListGetMatchPos(XEN arg1, XEN arg2) int *ps; int i, len, loc; Boolean b; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListGetMatchPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListGetMatchPos", "XmString"); - b = XmListGetMatchPos(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2), &ps, &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListGetMatchPos", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListGetMatchPos", "XmString"); + b = XmListGetMatchPos(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2), &ps, &len); if (!b) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_INT(ps[i]), lst); + lst = Xen_cons(C_int_to_Xen_integer(ps[i]), lst); free(ps); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XmListPosToBounds(XEN arg1, XEN arg2) +static Xen gxm_XmListPosToBounds(Xen arg1, Xen arg2) { #define H_XmListPosToBounds "Boolean XmListPosToBounds(Widget widget, int position): returns the bounding box of an item at a specified position in a list" /* DIFF: XmListPosToBounds last 4 args omitted and returned @@ -4454,151 +4389,151 @@ static XEN gxm_XmListPosToBounds(XEN arg1, XEN arg2) Position x, y; Dimension w, h; int val; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListPosToBounds", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListPosToBounds", "int"); - val = XmListPosToBounds(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), &x, &y, &w, &h); - return(XEN_LIST_5(C_TO_XEN_BOOLEAN(val), - C_TO_XEN_Position(x), - C_TO_XEN_Position(y), - C_TO_XEN_Dimension(w), - C_TO_XEN_Dimension(h))); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListPosToBounds", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListPosToBounds", "int"); + val = XmListPosToBounds(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), &x, &y, &w, &h); + return(Xen_list_5(C_bool_to_Xen_boolean(val), + C_to_Xen_Position(x), + C_to_Xen_Position(y), + C_to_Xen_Dimension(w), + C_to_Xen_Dimension(h))); } -static XEN gxm_XmListYToPos(XEN arg1, XEN arg2) +static Xen gxm_XmListYToPos(Xen arg1, Xen arg2) { #define H_XmListYToPos "int XmListYToPos(Widget widget, Position y): returns the position of the item at a specified y-coordinate" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListYToPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_Position_P(arg2), arg2, 2, "XmListYToPos", "Position"); - return(C_TO_XEN_INT(XmListYToPos(XEN_TO_C_Widget(arg1), XEN_TO_C_Position(arg2)))); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListYToPos", "List Widget"); + Xen_check_type(Xen_is_Position(arg2), arg2, 2, "XmListYToPos", "Position"); + return(C_int_to_Xen_integer(XmListYToPos(Xen_to_C_Widget(arg1), Xen_to_C_Position(arg2)))); } -static XEN gxm_XmListSetKbdItemPos(XEN arg1, XEN arg2) +static Xen gxm_XmListSetKbdItemPos(Xen arg1, Xen arg2) { #define H_XmListSetKbdItemPos "Boolean XmListSetKbdItemPos(Widget widget, int position) sets the location cursor at a specified position" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSetKbdItemPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListSetKbdItemPos", "int"); - return(C_TO_XEN_BOOLEAN(XmListSetKbdItemPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSetKbdItemPos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListSetKbdItemPos", "int"); + return(C_bool_to_Xen_boolean(XmListSetKbdItemPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XmListGetKbdItemPos(XEN arg1) +static Xen gxm_XmListGetKbdItemPos(Xen arg1) { #define H_XmListGetKbdItemPos "int XmListGetKbdItemPos(Widget widget): returns the position of the item at the location cursor" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListGetKbdItemPos", "List Widget"); - return(C_TO_XEN_INT(XmListGetKbdItemPos(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListGetKbdItemPos", "List Widget"); + return(C_int_to_Xen_integer(XmListGetKbdItemPos(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmListItemPos(XEN arg1, XEN arg2) +static Xen gxm_XmListItemPos(Xen arg1, Xen arg2) { #define H_XmListItemPos "int XmListItemPos(Widget widget, XmString item): returns the position of an item in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListItemPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListItemPos", "XmString"); - return(C_TO_XEN_INT(XmListItemPos(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListItemPos", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListItemPos", "XmString"); + return(C_int_to_Xen_integer(XmListItemPos(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmListItemExists(XEN arg1, XEN arg2) +static Xen gxm_XmListItemExists(Xen arg1, Xen arg2) { #define H_XmListItemExists "Boolean XmListItemExists(Widget widget, XmString item) checks if a specified item is in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListItemExists", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListItemExists", "XmString"); - return(C_TO_XEN_BOOLEAN(XmListItemExists(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)))); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListItemExists", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListItemExists", "XmString"); + return(C_bool_to_Xen_boolean(XmListItemExists(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)))); } -static XEN gxm_XmListSetAddMode(XEN arg1, XEN arg2) +static Xen gxm_XmListSetAddMode(Xen arg1, Xen arg2) { #define H_XmListSetAddMode "void XmListSetAddMode(Widget widget, Boolean state) sets add mode in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSetAddMode", "List Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmListSetAddMode", "boolean"); - XmListSetAddMode(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSetAddMode", "List Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmListSetAddMode", "boolean"); + XmListSetAddMode(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XmListSetBottomItem(XEN arg1, XEN arg2) +static Xen gxm_XmListSetBottomItem(Xen arg1, Xen arg2) { #define H_XmListSetBottomItem "void XmListSetBottomItem(Widget widget, XmString item) makes an existing item the last \ visible item in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSetBottomItem", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListSetBottomItem", "XmString"); - XmListSetBottomItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSetBottomItem", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListSetBottomItem", "XmString"); + XmListSetBottomItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmListSetItem(XEN arg1, XEN arg2) +static Xen gxm_XmListSetItem(Xen arg1, Xen arg2) { #define H_XmListSetItem "void XmListSetItem(Widget widget, XmString item) makes an existing item the first visible item in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSetItem", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListSetItem", "XmString"); - XmListSetItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSetItem", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListSetItem", "XmString"); + XmListSetItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmListSetBottomPos(XEN arg1, XEN arg2) +static Xen gxm_XmListSetBottomPos(Xen arg1, Xen arg2) { #define H_XmListSetBottomPos "void XmListSetBottomPos(Widget widget, int position) makes a specified item the last visible item in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSetBottomPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListSetBottomPos", "int"); - XmListSetBottomPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSetBottomPos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListSetBottomPos", "int"); + XmListSetBottomPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmListSetPos(XEN arg1, XEN arg2) +static Xen gxm_XmListSetPos(Xen arg1, Xen arg2) { #define H_XmListSetPos "void XmListSetPos(Widget widget, int position) makes the item at the given position the first \ visible position in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSetPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListSetPos", "int"); - XmListSetPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSetPos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListSetPos", "int"); + XmListSetPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmListDeselectAllItems(XEN arg1) +static Xen gxm_XmListDeselectAllItems(Xen arg1) { #define H_XmListDeselectAllItems "void XmListDeselectAllItems(Widget widget) unhighlights and removes all items from the selected list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeselectAllItems", "List Widget"); - XmListDeselectAllItems(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeselectAllItems", "List Widget"); + XmListDeselectAllItems(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmListDeselectPos(XEN arg1, XEN arg2) +static Xen gxm_XmListDeselectPos(Xen arg1, Xen arg2) { #define H_XmListDeselectPos "void XmListDeselectPos(Widget widget, int position) deselects an item at a specified position in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeselectPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListDeselectPos", "int"); - XmListDeselectPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeselectPos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListDeselectPos", "int"); + XmListDeselectPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmListDeselectItem(XEN arg1, XEN arg2) +static Xen gxm_XmListDeselectItem(Xen arg1, Xen arg2) { #define H_XmListDeselectItem "void XmListDeselectItem(Widget widget, XmString item) deselects the specified item from the selected list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeselectItem", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListDeselectItem", "XmString"); - XmListDeselectItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeselectItem", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListDeselectItem", "XmString"); + XmListDeselectItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmListSelectPos(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmListSelectPos(Xen arg1, Xen arg2, Xen arg3) { #define H_XmListSelectPos "void XmListSelectPos(Widget widget, int position, Boolean notify) selects an item at a specified \ position in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSelectPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListSelectPos", "int"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmListSelectPos", "boolean"); - XmListSelectPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_BOOLEAN(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSelectPos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListSelectPos", "int"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmListSelectPos", "boolean"); + XmListSelectPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_boolean_to_C_bool(arg3)); + return(Xen_false); } -static XEN gxm_XmListSelectItem(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmListSelectItem(Xen arg1, Xen arg2, Xen arg3) { #define H_XmListSelectItem "void XmListSelectItem(Widget widget, XmString item, Boolean notify) selects an item in the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListSelectItem", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListSelectItem", "XmString"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmListSelectItem", "boolean"); - XmListSelectItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2), XEN_TO_C_BOOLEAN(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListSelectItem", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListSelectItem", "XmString"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmListSelectItem", "boolean"); + XmListSelectItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2), Xen_boolean_to_C_bool(arg3)); + return(Xen_false); } -static XEN gxm_XmListReplacePositions(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmListReplacePositions(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmListReplacePositions "void XmListReplacePositions(Widget widget, int *position_list, XmString *item_list, int item_count) \ replaces items in a list based on position" @@ -4607,21 +4542,21 @@ replaces items in a list based on position" int *ps; XmString *str; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListReplacePositions", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListReplacePositions", "list of int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XmListReplacePositions", "list of XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, "XmListReplacePositions", "int"); - if (XEN_INTEGER_P(arg4)) len = XEN_TO_C_INT(arg4); else len = XEN_LIST_LENGTH(arg3); - if (len <= 0) return(XEN_FALSE); - ps = XEN_TO_C_Ints(arg2, len); - str = XEN_TO_C_XmStrings(arg3, len); - XmListReplacePositions(XEN_TO_C_Widget(arg1), ps, str, len); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListReplacePositions", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListReplacePositions", "list of int"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XmListReplacePositions", "list of XmString"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, "XmListReplacePositions", "int"); + if (Xen_is_integer(arg4)) len = Xen_integer_to_C_int(arg4); else len = Xen_list_length(arg3); + if (len <= 0) return(Xen_false); + ps = Xen_to_C_Ints(arg2, len); + str = Xen_to_C_XmStrings(arg3, len); + XmListReplacePositions(Xen_to_C_Widget(arg1), ps, str, len); free(ps); free(str); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListReplaceItemsPosUnselected(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmListReplaceItemsPosUnselected(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmListReplaceItemsPosUnselected "void XmListReplaceItemsPosUnselected(Widget widget, XmString *new_items, int item_count, int position) \ replaces items in a list without selecting the replacement items" @@ -4629,19 +4564,19 @@ replaces items in a list without selecting the replacement items" */ XmString *str; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListReplaceItemsPosUnselected", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListReplaceItemsPosUnselected", "list of XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListReplaceItemsPosUnselected", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmListReplaceItemsPosUnselected", "int"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); - str = XEN_TO_C_XmStrings(arg2, len); - XmListReplaceItemsPosUnselected(XEN_TO_C_Widget(arg1), str, len, XEN_TO_C_INT(arg4)); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListReplaceItemsPosUnselected", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListReplaceItemsPosUnselected", "list of XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListReplaceItemsPosUnselected", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmListReplaceItemsPosUnselected", "int"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); + str = Xen_to_C_XmStrings(arg2, len); + XmListReplaceItemsPosUnselected(Xen_to_C_Widget(arg1), str, len, Xen_integer_to_C_int(arg4)); free(str); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListReplaceItemsUnselected(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmListReplaceItemsUnselected(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmListReplaceItemsUnselected "void XmListReplaceItemsUnselected(Widget widget, XmString *old_items, int item_count, XmString *new_items) \ replaces items in a list" @@ -4649,21 +4584,21 @@ replaces items in a list" */ XmString *str1, *str2; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListReplaceItemsUnselected", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListReplaceItemsUnselected", "list of XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListReplaceItemsUnselected", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XmListReplaceItemsUnselected", "list of XmString"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); - str1 = XEN_TO_C_XmStrings(arg2, len); - str2 = XEN_TO_C_XmStrings(arg4, len); - XmListReplaceItemsUnselected(XEN_TO_C_Widget(arg1), str1, len, str2); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListReplaceItemsUnselected", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListReplaceItemsUnselected", "list of XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListReplaceItemsUnselected", "int"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XmListReplaceItemsUnselected", "list of XmString"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); + str1 = Xen_to_C_XmStrings(arg2, len); + str2 = Xen_to_C_XmStrings(arg4, len); + XmListReplaceItemsUnselected(Xen_to_C_Widget(arg1), str1, len, str2); free(str1); free(str2); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListReplaceItemsPos(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmListReplaceItemsPos(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmListReplaceItemsPos "void XmListReplaceItemsPos(Widget widget, XmString *new_items, int item_count, int position) \ replaces the specified elements in the list" @@ -4671,19 +4606,19 @@ replaces the specified elements in the list" */ XmString *str; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListReplaceItemsPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListReplaceItemsPos", "list of XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListReplaceItemsPos", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmListReplaceItemsPos", "int"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); - str = XEN_TO_C_XmStrings(arg2, len); - XmListReplaceItemsPos(XEN_TO_C_Widget(arg1), str, len, XEN_TO_C_INT(arg4)); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListReplaceItemsPos", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListReplaceItemsPos", "list of XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListReplaceItemsPos", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmListReplaceItemsPos", "int"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); + str = Xen_to_C_XmStrings(arg2, len); + XmListReplaceItemsPos(Xen_to_C_Widget(arg1), str, len, Xen_integer_to_C_int(arg4)); free(str); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListReplaceItems(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmListReplaceItems(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmListReplaceItems "void XmListReplaceItems(Widget widget, XmString *old_items, int item_count, XmString *new_items) \ replaces the specified elements in the list" @@ -4691,49 +4626,49 @@ replaces the specified elements in the list" */ XmString *str1, *str2; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListReplaceItems", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListReplaceItems", "list of XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListReplaceItems", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XmListReplaceItems", "XmString*"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); - str1 = XEN_TO_C_XmStrings(arg2, len); - str2 = XEN_TO_C_XmStrings(arg4, len); - XmListReplaceItems(XEN_TO_C_Widget(arg1), str1, len, str2); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListReplaceItems", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListReplaceItems", "list of XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListReplaceItems", "int"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XmListReplaceItems", "XmString*"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); + str1 = Xen_to_C_XmStrings(arg2, len); + str2 = Xen_to_C_XmStrings(arg4, len); + XmListReplaceItems(Xen_to_C_Widget(arg1), str1, len, str2); free(str1); free(str2); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListDeleteAllItems(XEN arg1) +static Xen gxm_XmListDeleteAllItems(Xen arg1) { #define H_XmListDeleteAllItems "void XmListDeleteAllItems(Widget widget) deletes all items from the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeleteAllItems", "List Widget"); - XmListDeleteAllItems(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeleteAllItems", "List Widget"); + XmListDeleteAllItems(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmListDeleteItemsPos(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmListDeleteItemsPos(Xen arg1, Xen arg2, Xen arg3) { #define H_XmListDeleteItemsPos "void XmListDeleteItemsPos(Widget widget, int item_count, int position) deletes \ items from the list starting at the given position" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeleteItemsPos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListDeleteItemsPos", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListDeleteItemsPos", "int"); - XmListDeleteItemsPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeleteItemsPos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListDeleteItemsPos", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListDeleteItemsPos", "int"); + XmListDeleteItemsPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)); + return(Xen_false); } -static XEN gxm_XmListDeletePos(XEN arg1, XEN arg2) +static Xen gxm_XmListDeletePos(Xen arg1, Xen arg2) { #define H_XmListDeletePos "void XmListDeletePos(Widget widget, int position) deletes an item from a list at a specified position" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeletePos", "List Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmListDeletePos", "int"); - XmListDeletePos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeletePos", "List Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmListDeletePos", "int"); + XmListDeletePos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmListDeletePositions(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmListDeletePositions(Xen arg1, Xen arg2, Xen arg3) { #define H_XmListDeletePositions "void XmListDeletePositions(Widget widget, int *position_list, int position_count) deletes \ items from a list based on an array of positions" @@ -4741,55 +4676,55 @@ items from a list based on an array of positions" */ int *pos; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeletePositions", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListDeletePositions", "list of int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmListDeletePositions", "int"); - if (XEN_INTEGER_P(arg3)) len = XEN_TO_C_INT(arg3); else len = XEN_LIST_LENGTH(arg2); - if (len <= 0) return(XEN_FALSE); - pos = XEN_TO_C_Ints(arg2, len); - XmListDeletePositions(XEN_TO_C_Widget(arg1), pos, len); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeletePositions", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListDeletePositions", "list of int"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmListDeletePositions", "int"); + if (Xen_is_integer(arg3)) len = Xen_integer_to_C_int(arg3); else len = Xen_list_length(arg2); + if (len <= 0) return(Xen_false); + pos = Xen_to_C_Ints(arg2, len); + XmListDeletePositions(Xen_to_C_Widget(arg1), pos, len); free(pos); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListDeleteItems(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmListDeleteItems(Xen arg1, Xen arg2, Xen arg3) { #define H_XmListDeleteItems "void XmListDeleteItems(Widget widget, XmString *items, int item_count) deletes items from the list" /* DIFF: XmListDeleteItems arg 2 is list of XmStrings */ XmString *str; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeleteItems", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListDeleteItems", "list of XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmListDeleteItems", "int"); - if (XEN_INTEGER_P(arg3)) len = XEN_TO_C_INT(arg3); else len = XEN_LIST_LENGTH(arg2); - if (len <= 0) return(XEN_FALSE); - str = XEN_TO_C_XmStrings(arg2, len); - XmListDeleteItems(XEN_TO_C_Widget(arg1), str, len); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeleteItems", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListDeleteItems", "list of XmString"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmListDeleteItems", "int"); + if (Xen_is_integer(arg3)) len = Xen_integer_to_C_int(arg3); else len = Xen_list_length(arg2); + if (len <= 0) return(Xen_false); + str = Xen_to_C_XmStrings(arg2, len); + XmListDeleteItems(Xen_to_C_Widget(arg1), str, len); free(str); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListDeleteItem(XEN arg1, XEN arg2) +static Xen gxm_XmListDeleteItem(Xen arg1, Xen arg2) { #define H_XmListDeleteItem "void XmListDeleteItem(Widget widget, XmString item) deletes an item from the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListDeleteItem", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListDeleteItem", "XmString"); - XmListDeleteItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListDeleteItem", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListDeleteItem", "XmString"); + XmListDeleteItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmListAddItemUnselected(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmListAddItemUnselected(Xen arg1, Xen arg2, Xen arg3) { #define H_XmListAddItemUnselected "void XmListAddItemUnselected(Widget widget, XmString item, int position) adds an item to the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListAddItemUnselected", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListAddItemUnselected", "XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListAddItemUnselected", "int"); - XmListAddItemUnselected(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2), XEN_TO_C_INT(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListAddItemUnselected", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListAddItemUnselected", "XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListAddItemUnselected", "int"); + XmListAddItemUnselected(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2), Xen_integer_to_C_int(arg3)); + return(Xen_false); } -static XEN gxm_XmListAddItemsUnselected(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmListAddItemsUnselected(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmListAddItemsUnselected "void XmListAddItemsUnselected(Widget widget, XmString *items, int item_count, int position) \ adds items to a list" @@ -4797,511 +4732,183 @@ adds items to a list" */ XmString *str; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListAddItemsUnselected", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListAddItemsUnselected", "list of XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListAddItemsUnselected", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmListAddItemsUnselected", "int"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); - str = XEN_TO_C_XmStrings(arg2, len); - XmListAddItemsUnselected(XEN_TO_C_Widget(arg1), str, len, XEN_TO_C_INT(arg4)); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListAddItemsUnselected", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListAddItemsUnselected", "list of XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListAddItemsUnselected", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmListAddItemsUnselected", "int"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); + str = Xen_to_C_XmStrings(arg2, len); + XmListAddItemsUnselected(Xen_to_C_Widget(arg1), str, len, Xen_integer_to_C_int(arg4)); free(str); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListAddItems(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmListAddItems(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmListAddItems "void XmListAddItems(Widget widget, XmString *items, int item_count, int position) adds items to the list" /* DIFF: XmListAddItems arg 2 is list of XmStrings */ XmString *str; int len; - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListAddItems", "List Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmListAddItems", "XmString*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListAddItems", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmListAddItems", "int"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); - str = XEN_TO_C_XmStrings(arg2, len); - XmListAddItems(XEN_TO_C_Widget(arg1), str, len, XEN_TO_C_INT(arg4)); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListAddItems", "List Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmListAddItems", "XmString*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListAddItems", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmListAddItems", "int"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); + str = Xen_to_C_XmStrings(arg2, len); + XmListAddItems(Xen_to_C_Widget(arg1), str, len, Xen_integer_to_C_int(arg4)); free(str); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmListAddItem(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmListAddItem(Xen arg1, Xen arg2, Xen arg3) { #define H_XmListAddItem "void XmListAddItem(Widget widget, XmString item, int position) adds an item to the list" - XEN_ASSERT_TYPE(XEN_ListWidget_P(arg1), arg1, 1, "XmListAddItem", "List Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmListAddItem", "XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmListAddItem", "int"); - XmListAddItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2), XEN_TO_C_INT(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ListWidget(arg1), arg1, 1, "XmListAddItem", "List Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmListAddItem", "XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmListAddItem", "int"); + XmListAddItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2), Xen_integer_to_C_int(arg3)); + return(Xen_false); } -static XEN gxm_XmIsMotifWMRunning(XEN arg1) +static Xen gxm_XmIsMotifWMRunning(Xen arg1) { #define H_XmIsMotifWMRunning "Boolean XmIsMotifWMRunning(Widget shell) determines whether the window manager is running" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmIsMotifWMRunning", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsMotifWMRunning(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmIsMotifWMRunning", "Widget"); + return(C_bool_to_Xen_boolean(XmIsMotifWMRunning(Xen_to_C_Widget(arg1)))); } /* DIFF: all XmCreate<Obj> arglist is a list of args */ -static XEN gxm_XmCreateLabel(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateLabel(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateLabel "Widget XmCreateLabel(Widget parent, String name, ArgList arglist, Cardinal argcount) The Label widget creation function" return(gxm_new_widget("XmCreateLabel", XmCreateLabel, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateLabelGadget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateLabelGadget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateLabelGadget "Widget XmCreateLabelGadget(Widget parent, String name, ArgList arglist, Cardinal argcount) The LabelGadget creation function" return(gxm_new_widget("XmCreateLabelGadget", XmCreateLabelGadget, arg1, arg2, arg3, arg4)); } -#if HAVE_XmToolTipGetLabel -static XEN gxm_XmToolTipGetLabel(XEN arg1) -{ - #define H_XmToolTipGetLabel "Widget XmToolTipGetLabel(Widget wid) apparently returns the tooltip label associated with its argument" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, XEN_ONLY_ARG, "XmToolTipGetLabel", "Widget"); - return(C_TO_XEN_Widget(XmToolTipGetLabel(XEN_TO_C_Widget(arg1)))); -} -#endif - -#if HAVE_XmCreateTabStack - -#ifndef XmIsTabStack -#define XmIsTabStack(w) (XtIsSubclass(w, xmTabStackWidgetClass)) -#endif - -static XEN gxm_XmCreateTabStack(XEN arg1, XEN arg2, XEN arg3, XEN arg4) -{ - #define H_XmCreateTabStack "Widget XmCreateTabStack(Widget parent, String name, ArgList arglist, Cardinal argcount) \ -The TabStack widget creation function" - return(gxm_new_widget("XmCreateTabStack", XmCreateTabStack, arg1, arg2, arg3, arg4)); -} - -static XEN gxm_XmIsTabStack(XEN arg) -{ - #define H_XmIsTabStack "XmIsTabStack(arg): " PROC_TRUE " if arg is a TabStack widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsTabStack", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsTabStack(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmTabStackGetSelectedTab(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmTabStackGetSelectedTab", "Widget"); - return(C_TO_XEN_Widget(XmTabStackGetSelectedTab(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmTabStackSelectTab(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmTabStackSelectTab", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg1), arg1, 2, "XmTabStackSelectTab", "boolean"); - XmTabStackSelectTab(XEN_TO_C_Widget(arg), XEN_TO_C_BOOLEAN(arg1)); - return(XEN_FALSE); -} - -#if HAVE_XmTabStackXYToWidget -static XEN gxm_XmTabStackIndexToWidget(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmTabStackIndexToWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 2, "XmTabStackIndexToWidget", "int"); - return(XEN_TO_C_Widget(XmTabStackIndexToWidget(XEN_TO_C_Widget(arg), XEN_TO_C_INT(arg1)))); -} - -static XEN gxm_XmTabStackXYToWidget(XEN arg, XEN arg1, XEN arg2) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmTabStackXYToWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 2, "XmTabStackXYToWidget", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 3, "XmTabStackXYToWidget", "int"); - return(XEN_TO_C_Widget(XmTabStackXYToWidget(XEN_TO_C_Widget(arg), XEN_TO_C_INT(arg1), XEN_TO_C_INT(arg2)))); -} -#endif -#endif - -#if HAVE_XmCreateDataField - -#ifndef XmIsDataField -#define XmIsDataField(w) (XtIsSubclass(w, xmDataFieldWidgetClass)) -#endif - -static XEN gxm_XmCreateDataField(XEN arg1, XEN arg2, XEN arg3, XEN arg4) -{ - #define H_XmCreateDataField "Widget XmCreateDataField(Widget parent, String name, ArgList arglist, Cardinal argcount) \ -The DataField widget creation function" - return(gxm_new_widget("XmCreateDataField", XmCreateDataField, arg1, arg2, arg3, arg4)); -} - -static XEN gxm_XmIsDataField(XEN arg) -{ - #define H_XmIsDataField "XmIsDataField(arg): " PROC_TRUE " if arg is a DataField widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDataField", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDataField(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmDataFieldGetString(XEN arg) -{ - char *str; - XEN rtn; - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDataFieldGetString", "Widget"); - str = XmDataFieldGetString(XEN_TO_C_Widget(arg)); - rtn = C_TO_XEN_STRING(str); - if (str) XtFree(str); - return(rtn); -} - -static XEN gxm_XmDataFieldGetSelection(XEN arg) -{ - char *str; - XEN rtn; - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDataFieldGetSelection", "Widget"); - str = XmDataFieldGetSelection(XEN_TO_C_Widget(arg)); - rtn = C_TO_XEN_STRING(str); - if (str) XtFree(str); - return(rtn); -} - -static XEN gxm_XmDataFieldPaste(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDataFieldPaste", "Widget"); - return(C_TO_XEN_BOOLEAN(XmDataFieldPaste(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmDataFieldCut(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldCut", "Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg1), arg1, 2, "XmDataFieldCut", "Time"); - return(C_TO_XEN_BOOLEAN(XmDataFieldCut(XEN_TO_C_Widget(arg), XEN_TO_C_Time(arg1)))); -} - -static XEN gxm_XmDataFieldCopy(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldCopy", "Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg1), arg1, 2, "XmDataFieldCopy", "Time"); - return(C_TO_XEN_BOOLEAN(XmDataFieldCopy(XEN_TO_C_Widget(arg), XEN_TO_C_Time(arg1)))); -} - -static XEN gxm_XmDataFieldSetString(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldSetString", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 2, "XmDataFieldSetString", "char*"); - XmDataFieldSetString(XEN_TO_C_Widget(arg), (char *)XEN_TO_C_STRING(arg1)); - return(XEN_FALSE); -} - -static XEN gxm_XmDataFieldSetEditable(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldSetEditable", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg1), arg1, 2, "XmDataFieldSetEditable", "boolean"); - XmDataFieldSetEditable(XEN_TO_C_Widget(arg), XEN_TO_C_BOOLEAN(arg1)); - return(XEN_FALSE); -} - -static XEN gxm_XmDataFieldSetAddMode(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldSetAddMode", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg1), arg1, 2, "XmDataFieldSetAddMode", "boolean"); - XmDataFieldSetAddMode(XEN_TO_C_Widget(arg), XEN_TO_C_BOOLEAN(arg1)); - return(XEN_FALSE); -} - -static XEN gxm_XmDataFieldSetInsertionPosition(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldSetInsertionPosition", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 2, "XmDataFieldSetInsertionPosition", "int"); - XmDataFieldSetInsertionPosition(XEN_TO_C_Widget(arg), (XmTextPosition)XEN_TO_C_INT(arg1)); - return(XEN_FALSE); -} - -static XEN gxm_XmDataFieldShowPosition(XEN arg, XEN arg1) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldShowPosition", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 2, "XmDataFieldShowPosition", "int"); - XmDataFieldShowPosition(XEN_TO_C_Widget(arg), (XmTextPosition)XEN_TO_C_INT(arg1)); - return(XEN_FALSE); -} - -static XEN gxm_XmDataFieldXYToPos(XEN arg, XEN arg1, XEN arg2) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldXYToPos", "Widget"); - XEN_ASSERT_TYPE(XEN_Position_P(arg1), arg1, 2, "XmDataFieldXYToPos", "Position"); - XEN_ASSERT_TYPE(XEN_Position_P(arg2), arg2, 3, "XmDataFieldXYToPos", "Position"); - return(C_TO_XEN_INT((int)(XmDataFieldXYToPos(XEN_TO_C_Widget(arg), XEN_TO_C_Position(arg1), XEN_TO_C_Position(arg2))))); -} - -static XEN gxm_XmDataFieldSetHighlight(XEN arg, XEN arg1, XEN arg2, XEN arg3) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldSetHighlight", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 2, "XmDataFieldSetHighlight", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 3, "XmDataFieldSetHighlight", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg3, 4, "XmDataFieldSetHighlight", "int (highligh mode)"); - XmDataFieldSetHighlight(XEN_TO_C_Widget(arg), (XmTextPosition)XEN_TO_C_INT(arg1), (XmTextPosition)XEN_TO_C_INT(arg2), - (XmHighlightMode)XEN_TO_C_INT(arg3)); - return(XEN_FALSE); -} - -static XEN gxm_XmDataFieldSetSelection(XEN arg, XEN arg1, XEN arg2, XEN arg3) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 1, "XmDataFieldSetSelection", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 2, "XmDataFieldSetSelection", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 3, "XmDataFieldSetSelection", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg3, 4, "XmDataFieldSetSelection", "Time"); - XmDataFieldSetSelection(XEN_TO_C_Widget(arg), (XmTextPosition)XEN_TO_C_INT(arg1), (XmTextPosition)XEN_TO_C_INT(arg2), XEN_TO_C_Time(arg3)); - return(XEN_FALSE); -} - -static XEN gxm_XmDataFieldGetSelectionPosition(XEN arg) -{ - XmTextPosition pos1 = 0, pos2 = 0; - Boolean val = False; - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDataFieldGetSelectionPosition", "Widget"); - val = XmDataFieldGetSelectionPosition(XEN_TO_C_Widget(arg), &pos1, &pos2); - return(XEN_LIST_3(C_TO_XEN_BOOLEAN(val), - C_TO_XEN_INT((int)pos1), - C_TO_XEN_INT((int)pos2))); -} -#endif - -#if HAVE_XmCreateButtonBox -static XEN gxm_XmCreateButtonBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) -{ - #define H_XmCreateButtonBox "Widget XmCreateButtonBox(Widget parent, String name, ArgList arglist, Cardinal argcount) \ -The ButtonBox widget creation function" - return(gxm_new_widget("XmCreateButtonBox", XmCreateButtonBox, arg1, arg2, arg3, arg4)); -} - -#ifndef XmIsButtonBox -#define XmIsButtonBox(w) (XtIsSubclass(w, xmButtonBoxWidgetClass)) -#endif - -static XEN gxm_XmIsButtonBox(XEN arg) -{ - #define H_XmIsButtonBox "XmIsButtonBox(arg): " PROC_TRUE " if arg is a ButtonBox widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsButtonBox", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsButtonBox(XEN_TO_C_Widget(arg)))); -} -#endif - -#if HAVE_XmCreateColumn -static XEN gxm_XmCreateColumn(XEN arg1, XEN arg2, XEN arg3, XEN arg4) -{ - #define H_XmCreateColumn "Widget XmCreateColumn(Widget parent, String name, ArgList arglist, Cardinal argcount) \ -The Column widget creation function" - return(gxm_new_widget("XmCreateColumn", XmCreateColumn, arg1, arg2, arg3, arg4)); -} - -#ifndef XmIsColumn -#define XmIsColumn(w) (XtIsSubclass(w, xmColumnWidgetClass)) -#endif - -static XEN gxm_XmIsColumn(XEN arg) -{ - #define H_XmIsColumn "XmIsColumn(arg): " PROC_TRUE " if arg is a Column widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsColumn", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsColumn(XEN_TO_C_Widget(arg)))); -} - -#if HAVE_XmColumnGetChildLabel -static XEN gxm_XmColumnGetChildLabel(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmColumnGetChildLabel", "Widget"); - return(C_TO_XEN_Widget(XmColumnGetChildLabel(XEN_TO_C_Widget(arg)))); -} -#endif -#endif - -#if HAVE_XmCreateDropDown -static XEN gxm_XmCreateDropDown(XEN arg1, XEN arg2, XEN arg3, XEN arg4) -{ - #define H_XmCreateDropDown "Widget XmCreateDropDown(Widget parent, String name, ArgList arglist, Cardinal argcount) \ -The DropDown widget creation function" - /* there is a problem here: the XmCreateDropDown macro in DropDown.h does not give us - function argument access to the actual function. Hence a short-term kludge... - */ -#ifdef _XmCominationBox2_h - /* yes, it actually is spelled that way! */ -return(gxm_new_widget("XmCreateDropDown", XmCreateCombinationBox2, arg1, arg2, arg3, arg4)); -#else - return(gxm_new_widget("XmCreateDropDown", XmCreateDropDown, arg1, arg2, arg3, arg4)); -#endif -} - -#ifndef XmIsDropDown -#define XmIsDropDown(w) (XtIsSubclass(w, xmDropDownWidgetClass)) -#endif - -static XEN gxm_XmIsDropDown(XEN arg) -{ - #define H_XmIsDropDown "XmIsDropDown(arg): " PROC_TRUE " if arg is a DropDown widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDropDown", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDropDown(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmDropDownGetValue(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDropDownGetValue", "Widget"); - return(C_TO_XEN_STRING((char *)XmDropDownGetValue(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmDropDownGetText(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDropDownGetText", "Widget"); - return(C_TO_XEN_Widget(XmDropDownGetText(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmDropDownGetLabel(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDropDownGetLabel", "Widget"); - return(C_TO_XEN_Widget(XmDropDownGetLabel(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmDropDownGetArrow(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDropDownGetArrow", "Widget"); - return(C_TO_XEN_Widget(XmDropDownGetArrow(XEN_TO_C_Widget(arg)))); -} - -static XEN gxm_XmDropDownGetList(XEN arg) -{ - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmDropDownGetList", "Widget"); - return(C_TO_XEN_Widget(XmDropDownGetList(XEN_TO_C_Widget(arg)))); -} -#endif - -#if HAVE_XmCreateFontSelector -static XEN gxm_XmCreateFontSelector(XEN arg1, XEN arg2, XEN arg3, XEN arg4) -{ - #define H_XmCreateFontSelector "Widget XmCreateFontSelector(Widget parent, String name, ArgList arglist, Cardinal argcount) \ -The FontSelector widget creation function" - return(gxm_new_widget("XmCreateFontSelector", XmCreateFontSelector, arg1, arg2, arg3, arg4)); -} -#endif - -#if HAVE_XmCreateColorSelector -static XEN gxm_XmCreateColorSelector(XEN arg1, XEN arg2, XEN arg3, XEN arg4) -{ - #define H_XmCreateColorSelector "Widget XmCreateColorSelector(Widget parent, String name, ArgList arglist, Cardinal argcount) \ -The ColorSelector widget creation function" - return(gxm_new_widget("XmCreateColorSelector", XmCreateColorSelector, arg1, arg2, arg3, arg4)); -} -#endif - -static XEN gxm_XmCreateIconHeader(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateIconHeader(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateIconHeader "Widget XmCreateIconHeader(Widget parent, String name, ArgList arglist, Cardinal argcount)" return(gxm_new_widget("XmCreateIconHeader", XmCreateIconHeader, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateIconGadget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateIconGadget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateIconGadget "Widget XmCreateIconGadget(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The IconGadget widget creation function" return(gxm_new_widget("XmCreateIconGadget", XmCreateIconGadget, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateToggleButton(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateToggleButton(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateToggleButton "Widget XmCreateToggleButton(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The ToggleButton widget creation function" return(gxm_new_widget("XmCreateToggleButton", XmCreateToggleButton, arg1, arg2, arg3, arg4)); } -#define XEN_ToggleButtonWidget_P(Arg) (XEN_Widget_P(Arg) && (XmIsToggleButton(XEN_TO_C_Widget(Arg)) || XmIsToggleButtonGadget(XEN_TO_C_Widget(Arg)))) +#define Xen_is_ToggleButtonWidget(Arg) (Xen_is_Widget(Arg) && (XmIsToggleButton(Xen_to_C_Widget(Arg)) || XmIsToggleButtonGadget(Xen_to_C_Widget(Arg)))) -static XEN gxm_XmToggleButtonSetValue(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmToggleButtonSetValue(Xen arg1, Xen arg2, Xen arg3) { #define H_XmToggleButtonSetValue "void XmToggleButtonSetValue(Widget widget, XmToggleButtonState state, Boolean notify) \ sets or changes the current state" - XEN_ASSERT_TYPE(XEN_ToggleButtonWidget_P(arg1), arg1, 1, "XmToggleButtonSetValue", "ToggleButton Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmToggleButtonSetValue", "int (actually XmToggleButtonState)"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmToggleButtonSetValue", "boolean"); - return(C_TO_XEN_BOOLEAN(XmToggleButtonSetValue(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_BOOLEAN(arg3)))); + Xen_check_type(Xen_is_ToggleButtonWidget(arg1), arg1, 1, "XmToggleButtonSetValue", "ToggleButton Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmToggleButtonSetValue", "int (actually XmToggleButtonState)"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmToggleButtonSetValue", "boolean"); + return(C_bool_to_Xen_boolean(XmToggleButtonSetValue(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_boolean_to_C_bool(arg3)))); } -static XEN gxm_XmToggleButtonSetState(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmToggleButtonSetState(Xen arg1, Xen arg2, Xen arg3) { #define H_XmToggleButtonSetState "void XmToggleButtonSetState(Widget widget, Boolean state, Boolean notify) \ sets or changes the current state" - XEN_ASSERT_TYPE(XEN_ToggleButtonWidget_P(arg1), arg1, 1, "XmToggleButtonSetState", "ToggleButton Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmToggleButtonSetState", "boolean"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmToggleButtonSetState", "boolean"); - XmToggleButtonSetState(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2), XEN_TO_C_BOOLEAN(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ToggleButtonWidget(arg1), arg1, 1, "XmToggleButtonSetState", "ToggleButton Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmToggleButtonSetState", "boolean"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmToggleButtonSetState", "boolean"); + XmToggleButtonSetState(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2), Xen_boolean_to_C_bool(arg3)); + return(Xen_false); } -static XEN gxm_XmToggleButtonGetState(XEN arg1) +static Xen gxm_XmToggleButtonGetState(Xen arg1) { #define H_XmToggleButtonGetState "Boolean XmToggleButtonGetState(Widget widget) obtains the state of a ToggleButton" - XEN_ASSERT_TYPE(XEN_ToggleButtonWidget_P(arg1), arg1, 1, "XmToggleButtonGetState", "ToggleButton Widget"); - return(C_TO_XEN_BOOLEAN(XmToggleButtonGetState(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_ToggleButtonWidget(arg1), arg1, 1, "XmToggleButtonGetState", "ToggleButton Widget"); + return(C_bool_to_Xen_boolean(XmToggleButtonGetState(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmCreateToggleButtonGadget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateToggleButtonGadget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateToggleButtonGadget "Widget XmCreateToggleButtonGadget(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The ToggleButtonGadget creation function" return(gxm_new_widget("XmCreateToggleButtonGadget", XmCreateToggleButtonGadget, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmToggleButtonGadgetSetValue(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmToggleButtonGadgetSetValue(Xen arg1, Xen arg2, Xen arg3) { #define H_XmToggleButtonGadgetSetValue "Boolean XmToggleButtonGadgetSetValue(Widget w, XmToggleButtonState newstate, Boolean notify)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmToggleButtonGadgetSetValue", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmToggleButtonGadgetSetValue", "int"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmToggleButtonGadgetSetValue", "boolean"); - return(C_TO_XEN_BOOLEAN(XmToggleButtonGadgetSetValue(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_BOOLEAN(arg3)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmToggleButtonGadgetSetValue", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmToggleButtonGadgetSetValue", "int"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmToggleButtonGadgetSetValue", "boolean"); + return(C_bool_to_Xen_boolean(XmToggleButtonGadgetSetValue(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_boolean_to_C_bool(arg3)))); } -static XEN gxm_XmCreateGrabShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateGrabShell(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateGrabShell "Widget XmCreateGrabShell(Widget parent, char *name, ArgList al, Cardinal ac): a new GrabShell" return(gxm_new_widget("XmCreateGrabShell", XmCreateGrabShell, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmToggleButtonGadgetSetState(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmToggleButtonGadgetSetState(Xen arg1, Xen arg2, Xen arg3) { #define H_XmToggleButtonGadgetSetState "void XmToggleButtonGadgetSetState(Widget widget, Boolean state, Boolean notify) \ sets or changes the current state" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmToggleButtonGadgetSetState", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmToggleButtonGadgetSetState", "boolean"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmToggleButtonGadgetSetState", "boolean"); - XmToggleButtonGadgetSetState(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2), XEN_TO_C_BOOLEAN(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmToggleButtonGadgetSetState", "Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmToggleButtonGadgetSetState", "boolean"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmToggleButtonGadgetSetState", "boolean"); + XmToggleButtonGadgetSetState(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2), Xen_boolean_to_C_bool(arg3)); + return(Xen_false); } -static XEN gxm_XmToggleButtonGadgetGetState(XEN arg1) +static Xen gxm_XmToggleButtonGadgetGetState(Xen arg1) { #define H_XmToggleButtonGadgetGetState "Boolean XmToggleButtonGadgetGetState(Widget widget) obtains \ the state of a ToggleButtonGadget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmToggleButtonGadgetGetState", "Widget"); - return(C_TO_XEN_BOOLEAN(XmToggleButtonGadgetGetState(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmToggleButtonGadgetGetState", "Widget"); + return(C_bool_to_Xen_boolean(XmToggleButtonGadgetGetState(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmCreateFrame(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateFrame(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateFrame "Widget XmCreateFrame(Widget parent, String name, ArgList arglist, Cardinal argcount) The Frame widget creation function" return(gxm_new_widget("XmCreateFrame", XmCreateFrame, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateFormDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateFormDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateFormDialog "Widget XmCreateFormDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ A Form FormDialog creation function" return(gxm_new_widget("XmCreateFormDialog", XmCreateFormDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateForm(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateForm(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateForm "Widget XmCreateForm(Widget parent, String name, ArgList arglist, Cardinal argcount) The Form widget creation function" return(gxm_new_widget("XmCreateForm", XmCreateForm, arg1, arg2, arg3, arg4)); } -#define XEN_TextWidget_P(Arg) (XEN_Widget_P(Arg) && (XmIsText(XEN_TO_C_Widget(Arg)) || XmIsTextField(XEN_TO_C_Widget(Arg)))) -#define XEN_JustTextWidget_P(Arg) (XEN_Widget_P(Arg) && XmIsText(XEN_TO_C_Widget(Arg))) +#define Xen_is_TextWidget(Arg) (Xen_is_Widget(Arg) && (XmIsText(Xen_to_C_Widget(Arg)) || XmIsTextField(Xen_to_C_Widget(Arg)))) +#define Xen_is_JustTextWidget(Arg) (Xen_is_Widget(Arg) && XmIsText(Xen_to_C_Widget(Arg))) -static XEN gxm_XmTextFindString(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextFindString(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextFindString "Boolean XmTextFindString(Widget widget, XmTextPosition start, char *string, XmTextDirection direction) \ finds the beginning position of a text string" @@ -5309,88 +4916,88 @@ finds the beginning position of a text string" */ XmTextPosition pos; int res; - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextFindString", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFindString", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XmTextFindString", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmTextFindString", "XmTextDirection"); - res = XmTextFindString(XEN_TO_C_Widget(arg1), - (XmTextPosition)XEN_TO_C_INT(arg2), - (char *)XEN_TO_C_STRING(arg3), - (XmTextDirection)XEN_TO_C_INT(arg4), + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextFindString", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFindString", "XmTextPosition"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XmTextFindString", "char*"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmTextFindString", "XmTextDirection"); + res = XmTextFindString(Xen_to_C_Widget(arg1), + (XmTextPosition)Xen_integer_to_C_int(arg2), + (char *)Xen_string_to_C_string(arg3), + (XmTextDirection)Xen_integer_to_C_int(arg4), &pos); if (res) - return(C_TO_XEN_INT(pos)); - return(XEN_FALSE); + return(C_int_to_Xen_integer(pos)); + return(Xen_false); } -static XEN gxm_XmTextEnableRedisplay(XEN arg1) +static Xen gxm_XmTextEnableRedisplay(Xen arg1) { #define H_XmTextEnableRedisplay "void XmTextEnableRedisplay(Widget widget) forces the visual update of a Text widget" - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextEnableRedisplay", "Text or TextField Widget"); - XmTextEnableRedisplay(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextEnableRedisplay", "Text or TextField Widget"); + XmTextEnableRedisplay(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmTextDisableRedisplay(XEN arg1) +static Xen gxm_XmTextDisableRedisplay(Xen arg1) { #define H_XmTextDisableRedisplay "void XmTextDisableRedisplay(Widget widget) temporarily prevents visual update of the Text widget" - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextDisableRedisplay", "Text or TextField Widget"); - XmTextDisableRedisplay(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextDisableRedisplay", "Text or TextField Widget"); + XmTextDisableRedisplay(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmTextGetCenterline(XEN arg1) +static Xen gxm_XmTextGetCenterline(Xen arg1) { #define H_XmTextGetCenterline "int XmTextGetCenterline(Widget widget) Return the height (length) of a character string when the writing direction is vertical" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetCenterline", "Text or TextField Widget"); - return(C_TO_XEN_INT(XmTextGetCenterline(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetCenterline", "Text or TextField Widget"); + return(C_int_to_Xen_integer(XmTextGetCenterline(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextGetBaseline(XEN arg1) +static Xen gxm_XmTextGetBaseline(Xen arg1) { #define H_XmTextGetBaseline "int XmTextGetBaseline(Widget widget) accesses the y position of the baseline" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetBaseline", "Text or TextField Widget"); - return(C_TO_XEN_INT(XmTextGetBaseline(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetBaseline", "Text or TextField Widget"); + return(C_int_to_Xen_integer(XmTextGetBaseline(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextScroll(XEN arg1, XEN arg2) +static Xen gxm_XmTextScroll(Xen arg1, Xen arg2) { #define H_XmTextScroll "void XmTextScroll(Widget widget, int lines) scrolls text" - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextScroll", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextScroll", "int"); - XmTextScroll(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextScroll", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextScroll", "int"); + XmTextScroll(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextShowPosition(XEN arg1, XEN arg2) +static Xen gxm_XmTextShowPosition(Xen arg1, Xen arg2) { #define H_XmTextShowPosition "void XmTextShowPosition(Widget widget, XmTextPosition position) forces text at a given position to be displayed" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextShowPosition", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextShowPosition", "XmTextPosition"); - XmTextShowPosition(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextShowPosition", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextShowPosition", "XmTextPosition"); + XmTextShowPosition(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextSetSource(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextSetSource(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextSetSource "void XmTextSetSource(Widget widget, XmTextSource source, XmTextPosition top_character, \ XmTextPosition cursor_position) sets the source of the widget" - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextSetSource", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_XmTextSource_P(arg2), arg2, 2, "XmTextSetSource", "XmTextSource"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextSetSource", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmTextSetSource", "XmTextPosition"); - XmTextSetSource(XEN_TO_C_Widget(arg1), XEN_TO_C_XmTextSource(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextSetSource", "Text or TextField Widget"); + Xen_check_type(Xen_is_XmTextSource(arg2), arg2, 2, "XmTextSetSource", "XmTextSource"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextSetSource", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmTextSetSource", "XmTextPosition"); + XmTextSetSource(Xen_to_C_Widget(arg1), Xen_to_C_XmTextSource(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4)); + return(Xen_false); } -static XEN gxm_XmTextGetSource(XEN arg1) +static Xen gxm_XmTextGetSource(Xen arg1) { #define H_XmTextGetSource "XmTextSource XmTextGetSource(Widget widget) accesses the source of the widget" - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextGetSource", "Text or TextField Widget"); - return(C_TO_XEN_XmTextSource(XmTextGetSource(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextGetSource", "Text or TextField Widget"); + return(C_to_Xen_XmTextSource(XmTextGetSource(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextPosToXY(XEN arg1, XEN arg2) +static Xen gxm_XmTextPosToXY(Xen arg1, Xen arg2) { #define H_XmTextPosToXY "Boolean XmTextPosToXY(Widget widget, XmTextPosition position) A Text function \ that returns the x and y position of a character position" @@ -5398,500 +5005,500 @@ that returns the x and y position of a character position" */ Position x, y; int val; - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextPosToXY", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextPosToXY", "XmTextPosition"); - val = XmTextPosToXY(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), &x, &y); - return(XEN_LIST_3(C_TO_XEN_BOOLEAN(val), - C_TO_XEN_Position(x), - C_TO_XEN_Position(y))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextPosToXY", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextPosToXY", "XmTextPosition"); + val = XmTextPosToXY(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), &x, &y); + return(Xen_list_3(C_bool_to_Xen_boolean(val), + C_to_Xen_Position(x), + C_to_Xen_Position(y))); } -static XEN gxm_XmTextXYToPos(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTextXYToPos(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTextXYToPos "XmTextPosition XmTextXYToPos(Widget widget, Position x, Position y) accesses \ the character position nearest an x and y position" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextXYToPos", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextXYToPos", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextXYToPos", "int"); - return(C_TO_XEN_INT(XmTextXYToPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextXYToPos", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextXYToPos", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextXYToPos", "int"); + return(C_int_to_Xen_integer(XmTextXYToPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XmTextGetSelectionPosition(XEN arg1) +static Xen gxm_XmTextGetSelectionPosition(Xen arg1) { #define H_XmTextGetSelectionPosition "Boolean XmTextGetSelectionPosition(Widget widget): returns the position of the primary selection" /* DIFF: XmTextGetSelectionPosition widget [left right] -> (list res left right) no arg2 arg3, returns (owner left right) instead */ XmTextPosition pos1, pos2; int res; - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetSelectionPosition", "Text or TextField Widget"); - res = XmTextGetSelectionPosition(XEN_TO_C_Widget(arg1), &pos1, &pos2); - return(XEN_LIST_3(C_TO_XEN_BOOLEAN(res), - C_TO_XEN_INT(pos1), - C_TO_XEN_INT(pos2))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetSelectionPosition", "Text or TextField Widget"); + res = XmTextGetSelectionPosition(Xen_to_C_Widget(arg1), &pos1, &pos2); + return(Xen_list_3(C_bool_to_Xen_boolean(res), + C_int_to_Xen_integer(pos1), + C_int_to_Xen_integer(pos2))); } -static XEN gxm_XmTextClearSelection(XEN arg1, XEN arg2) +static Xen gxm_XmTextClearSelection(Xen arg1, Xen arg2) { #define H_XmTextClearSelection "void XmTextClearSelection(Widget widget, Time time) clears the primary selection" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextClearSelection", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextClearSelection", "Time"); - XmTextClearSelection(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextClearSelection", "Text or TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextClearSelection", "Time"); + XmTextClearSelection(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)); + return(Xen_false); } -static XEN gxm_XmTextSetSelection(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextSetSelection(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextSetSelection "void XmTextSetSelection(Widget widget, XmTextPosition first, XmTextPosition last, Time time) \ sets the primary selection of the text" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetSelection", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextSetSelection", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextSetSelection", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_Time_P(arg4), arg4, 4, "XmTextSetSelection", "Time"); - XmTextSetSelection(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_Time(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetSelection", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextSetSelection", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextSetSelection", "XmTextPosition"); + Xen_check_type(Xen_is_Time(arg4), arg4, 4, "XmTextSetSelection", "Time"); + XmTextSetSelection(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_to_C_Time(arg4)); + return(Xen_false); } -static XEN gxm_XmTextGetSelection(XEN arg1) +static Xen gxm_XmTextGetSelection(Xen arg1) { char *str; - XEN res; + Xen res; #define H_XmTextGetSelection "char *XmTextGetSelection(Widget widget) retrieves the value of the primary selection" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetSelection", "Text or TextField Widget"); - str = XmTextGetSelection(XEN_TO_C_Widget(arg1)); - res = C_TO_XEN_STRING(str); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetSelection", "Text or TextField Widget"); + str = XmTextGetSelection(Xen_to_C_Widget(arg1)); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XmTextPasteLink(XEN arg1) +static Xen gxm_XmTextPasteLink(Xen arg1) { #define H_XmTextPasteLink "Boolean XmTextPasteLink(Widget widget) inserts a link to the clipboard selection" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextPasteLink", "Text or TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextPasteLink(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextPasteLink", "Text or TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextPasteLink(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextPaste(XEN arg1) +static Xen gxm_XmTextPaste(Xen arg1) { #define H_XmTextPaste "Boolean XmTextPaste(Widget widget) inserts the clipboard selection" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextPaste", "Text or TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextPaste(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextPaste", "Text or TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextPaste(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextCut(XEN arg1, XEN arg2) +static Xen gxm_XmTextCut(Xen arg1, Xen arg2) { #define H_XmTextCut "Boolean XmTextCut(Widget widget, Time time) copies the primary selection to the clipboard and deletes the selected text" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextCut", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextCut", "Time"); - return(C_TO_XEN_BOOLEAN(XmTextCut(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextCut", "Text or TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextCut", "Time"); + return(C_bool_to_Xen_boolean(XmTextCut(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmTextCopyLink(XEN arg1, XEN arg2) +static Xen gxm_XmTextCopyLink(Xen arg1, Xen arg2) { #define H_XmTextCopyLink "Boolean XmTextCopyLink(Widget widget, Time time) copies a link to the primary selection to the clipboard" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextCopyLink", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextCopyLink", "Time"); - return(C_TO_XEN_BOOLEAN(XmTextCopyLink(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextCopyLink", "Text or TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextCopyLink", "Time"); + return(C_bool_to_Xen_boolean(XmTextCopyLink(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmTextCopy(XEN arg1, XEN arg2) +static Xen gxm_XmTextCopy(Xen arg1, Xen arg2) { #define H_XmTextCopy "Boolean XmTextCopy(Widget widget, Time time) copies the primary selection to the clipboard" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextCopy", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextCopy", "Time"); - return(C_TO_XEN_BOOLEAN(XmTextCopy(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextCopy", "Text or TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextCopy", "Time"); + return(C_bool_to_Xen_boolean(XmTextCopy(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmTextRemove(XEN arg1) +static Xen gxm_XmTextRemove(Xen arg1) { #define H_XmTextRemove "Boolean XmTextRemove(Widget widget) deletes the primary selection" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextRemove", "Text or TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextRemove(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextRemove", "Text or TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextRemove(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextSetCursorPosition(XEN arg1, XEN arg2) +static Xen gxm_XmTextSetCursorPosition(Xen arg1, Xen arg2) { #define H_XmTextSetCursorPosition "void XmTextSetCursorPosition(Widget w, int position) sets the insertion cursor position" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetCursorPosition", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextSetCursorPosition", "XmTextPosition"); - XmTextSetCursorPosition(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetCursorPosition", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextSetCursorPosition", "XmTextPosition"); + XmTextSetCursorPosition(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextSetInsertionPosition(XEN arg1, XEN arg2) +static Xen gxm_XmTextSetInsertionPosition(Xen arg1, Xen arg2) { #define H_XmTextSetInsertionPosition "void XmTextSetInsertionPosition(Widget widget, XmTextPosition position) \ sets the position of the insert cursor" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetInsertionPosition", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextSetInsertionPosition", "XmTextPosition"); - XmTextSetInsertionPosition(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetInsertionPosition", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextSetInsertionPosition", "XmTextPosition"); + XmTextSetInsertionPosition(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextGetInsertionPosition(XEN arg1) +static Xen gxm_XmTextGetInsertionPosition(Xen arg1) { #define H_XmTextGetInsertionPosition "XmTextPosition XmTextGetInsertionPosition(Widget widget) accesses the \ position of the insert cursor" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetInsertionPosition", "Text or TextField Widget"); - return(C_TO_XEN_INT(XmTextGetInsertionPosition(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetInsertionPosition", "Text or TextField Widget"); + return(C_int_to_Xen_integer(XmTextGetInsertionPosition(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextGetCursorPosition(XEN arg1) +static Xen gxm_XmTextGetCursorPosition(Xen arg1) { #define H_XmTextGetCursorPosition "int XmTextGetCursorPosition(Widget w) presumably returns the widget's insertion cursor position" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetCursorPosition", "Text or TextField Widget"); - return(C_TO_XEN_INT(XmTextGetCursorPosition(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetCursorPosition", "Text or TextField Widget"); + return(C_int_to_Xen_integer(XmTextGetCursorPosition(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextSetTopCharacter(XEN arg1, XEN arg2) +static Xen gxm_XmTextSetTopCharacter(Xen arg1, Xen arg2) { #define H_XmTextSetTopCharacter "void XmTextSetTopCharacter(Widget widget, XmTextPosition top_character) sets \ the position of the first character displayed" - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextSetTopCharacter", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextSetTopCharacter", "XmTextPosition"); - XmTextSetTopCharacter(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextSetTopCharacter", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextSetTopCharacter", "XmTextPosition"); + XmTextSetTopCharacter(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextGetTopCharacter(XEN arg1) +static Xen gxm_XmTextGetTopCharacter(Xen arg1) { #define H_XmTextGetTopCharacter "XmTextPosition XmTextGetTopCharacter(Widget widget) accesses the position of the first character displayed" - XEN_ASSERT_TYPE(XEN_JustTextWidget_P(arg1), arg1, 1, "XmTextGetTopCharacter", "Text or TextField Widget"); - return(C_TO_XEN_INT(XmTextGetTopCharacter(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_JustTextWidget(arg1), arg1, 1, "XmTextGetTopCharacter", "Text or TextField Widget"); + return(C_int_to_Xen_integer(XmTextGetTopCharacter(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextSetMaxLength(XEN arg1, XEN arg2) +static Xen gxm_XmTextSetMaxLength(Xen arg1, Xen arg2) { #define H_XmTextSetMaxLength "void XmTextSetMaxLength(Widget widget, int max_length) sets the value of the current \ maximum allowable length of a text string entered from the keyboard" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetMaxLength", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextSetMaxLength", "int"); - XmTextSetMaxLength(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetMaxLength", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextSetMaxLength", "int"); + XmTextSetMaxLength(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextGetMaxLength(XEN arg1) +static Xen gxm_XmTextGetMaxLength(Xen arg1) { #define H_XmTextGetMaxLength "int XmTextGetMaxLength(Widget widget) accesses the value of the current maximum allowable \ length of a text string entered from the keyboard" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetMaxLength", "Text or TextField Widget"); - return(C_TO_XEN_INT(XmTextGetMaxLength(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetMaxLength", "Text or TextField Widget"); + return(C_int_to_Xen_integer(XmTextGetMaxLength(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextSetEditable(XEN arg1, XEN arg2) +static Xen gxm_XmTextSetEditable(Xen arg1, Xen arg2) { #define H_XmTextSetEditable "void XmTextSetEditable(Widget widget, Boolean editable) sets the edit permission" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetEditable", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmTextSetEditable", "boolean"); - XmTextSetEditable(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetEditable", "Text or TextField Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmTextSetEditable", "boolean"); + XmTextSetEditable(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XmTextGetEditable(XEN arg1) +static Xen gxm_XmTextGetEditable(Xen arg1) { #define H_XmTextGetEditable "Boolean XmTextGetEditable(Widget widget) accesses the edit permission state" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetEditable", "Text or TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextGetEditable(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetEditable", "Text or TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextGetEditable(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextGetAddMode(XEN arg1) +static Xen gxm_XmTextGetAddMode(Xen arg1) { #define H_XmTextGetAddMode "Boolean XmTextGetAddMode(Widget w) presumably returns the widget's current add mode." - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetAddMode", "Text or TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextGetAddMode(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetAddMode", "Text or TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextGetAddMode(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextSetAddMode(XEN arg1, XEN arg2) +static Xen gxm_XmTextSetAddMode(Xen arg1, Xen arg2) { #define H_XmTextSetAddMode "void XmTextSetAddMode(Widget widget, Boolean state) sets the widget's add mode -- \ this determines whether you can move the insertion cursor without changing the primary selection" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetAddMode", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmTextSetAddMode", "boolean"); - XmTextSetAddMode(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetAddMode", "Text or TextField Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmTextSetAddMode", "boolean"); + XmTextSetAddMode(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XmTextInsert(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTextInsert(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTextInsert "void XmTextInsert(Widget widget, XmTextPosition position, char *value) inserts a character \ string into a text string" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextInsert", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextInsert", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XmTextInsert", "char*"); - XmTextInsert(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), (char *)XEN_TO_C_STRING(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextInsert", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextInsert", "XmTextPosition"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XmTextInsert", "char*"); + XmTextInsert(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), (char *)Xen_string_to_C_string(arg3)); + return(Xen_false); } -static XEN gxm_XmTextReplace(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextReplace(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextReplace "void XmTextReplace(Widget widget, XmTextPosition from_pos, XmTextPosition to_pos, char *value) \ replaces part of a text string" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextReplace", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextReplace", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextReplace", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XmTextReplace", "char*"); - XmTextReplace(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), (char *)XEN_TO_C_STRING(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextReplace", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextReplace", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextReplace", "XmTextPosition"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XmTextReplace", "char*"); + XmTextReplace(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), (char *)Xen_string_to_C_string(arg4)); + return(Xen_false); } -static XEN gxm_XmTextSetString(XEN arg1, XEN arg2) +static Xen gxm_XmTextSetString(Xen arg1, Xen arg2) { #define H_XmTextSetString "void XmTextSetString(Widget widget, char *value) sets the string value" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetString", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmTextSetString", "char*"); - XmTextSetString(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetString", "Text or TextField Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmTextSetString", "char*"); + XmTextSetString(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2)); + return(Xen_false); } -static XEN gxm_XmTextGetLastPosition(XEN arg1) +static Xen gxm_XmTextGetLastPosition(Xen arg1) { #define H_XmTextGetLastPosition "XmTextPosition XmTextGetLastPosition(Widget widget) accesses the last position in the text" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetLastPosition", "Text or TextField Widget"); - return(C_TO_XEN_INT(XmTextGetLastPosition(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetLastPosition", "Text or TextField Widget"); + return(C_int_to_Xen_integer(XmTextGetLastPosition(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextGetString(XEN arg1) +static Xen gxm_XmTextGetString(Xen arg1) { char *str; - XEN res; + Xen res; #define H_XmTextGetString "char *XmTextGetString(Widget widget) accesses the string value" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetString", "Text or TextField Widget"); - str = XmTextGetString(XEN_TO_C_Widget(arg1)); - res = C_TO_XEN_STRING(str); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetString", "Text or TextField Widget"); + str = XmTextGetString(Xen_to_C_Widget(arg1)); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XmTextGetSubstring(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTextGetSubstring(Xen arg1, Xen arg2, Xen arg3) { /* DIFF: omit and rtn last 2 args */ #define H_XmTextGetSubstring "int XmTextGetSubstring(Widget widget, XmTextPosition start, int num_chars) \ retrieves a copy of a portion of the internal text buffer" int rtn, len; char *buf; - XEN str = XEN_FALSE; - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextGetSubstring", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextGetSubstring", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextGetSubstring", "int"); - len = XEN_TO_C_INT(arg3); + Xen str = Xen_false; + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextGetSubstring", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextGetSubstring", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextGetSubstring", "int"); + len = Xen_integer_to_C_int(arg3); buf = (char *)calloc(len + 1, sizeof(char)); - rtn = XmTextGetSubstring(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), len, len + 1, buf); + rtn = XmTextGetSubstring(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), len, len + 1, buf); if (rtn != XmCOPY_FAILED) - str = C_TO_XEN_STRING(buf); + str = C_string_to_Xen_string(buf); free(buf); return(str); } -static XEN gxm_XmCreateText(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateText(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateText "Widget XmCreateText(Widget parent, String name, ArgList arglist, Cardinal argcount) The Text widget creation function" return(gxm_new_widget("XmCreateText", XmCreateText, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateScrolledText(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateScrolledText(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateScrolledText "Widget XmCreateScrolledText(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The Text ScrolledText creation function" return(gxm_new_widget("XmCreateScrolledText", XmCreateScrolledText, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmTextSetHighlight(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextSetHighlight(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextSetHighlight "void XmTextSetHighlight(Widget widget, XmTextPosition left, XmTextPosition right, XmHighlightMode mode) \ highlights text" - XEN_ASSERT_TYPE(XEN_TextWidget_P(arg1), arg1, 1, "XmTextSetHighlight", "Text or TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextSetHighlight", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextSetHighlight", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmTextSetHighlight", "XmHighlightMode"); - XmTextSetHighlight(XEN_TO_C_Widget(arg1), - (XmTextPosition)XEN_TO_C_INT(arg2), - (XmTextPosition)XEN_TO_C_INT(arg3), - (XmHighlightMode)XEN_TO_C_INT(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextWidget(arg1), arg1, 1, "XmTextSetHighlight", "Text or TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextSetHighlight", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextSetHighlight", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmTextSetHighlight", "XmHighlightMode"); + XmTextSetHighlight(Xen_to_C_Widget(arg1), + (XmTextPosition)Xen_integer_to_C_int(arg2), + (XmTextPosition)Xen_integer_to_C_int(arg3), + (XmHighlightMode)Xen_integer_to_C_int(arg4)); + return(Xen_false); } -static XEN gxm_XmCreateFileSelectionDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateFileSelectionDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateFileSelectionDialog "Widget XmCreateFileSelectionDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The FileSelectionBox FileSelectionDialog creation function" return(gxm_new_widget("XmCreateFileSelectionDialog", XmCreateFileSelectionDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateFileSelectionBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateFileSelectionBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateFileSelectionBox "Widget XmCreateFileSelectionBox(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The FileSelectionBox widget creation function" return(gxm_new_widget("XmCreateFileSelectionBox", XmCreateFileSelectionBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmFileSelectionDoSearch(XEN arg1, XEN arg2) +static Xen gxm_XmFileSelectionDoSearch(Xen arg1, Xen arg2) { #define H_XmFileSelectionDoSearch "void XmFileSelectionDoSearch(Widget widget, XmString dirmask) \ initiates a directory search" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmFileSelectionDoSearch", "Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2) || XEN_FALSE_P(arg2), arg2, 2, "XmFileSelectionDoSearch", "XmString"); - XmFileSelectionDoSearch(XEN_TO_C_Widget(arg1), XEN_FALSE_P(arg2) ? NULL : XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmFileSelectionDoSearch", "Widget"); + Xen_check_type(Xen_is_XmString(arg2) || Xen_is_false(arg2), arg2, 2, "XmFileSelectionDoSearch", "XmString"); + XmFileSelectionDoSearch(Xen_to_C_Widget(arg1), Xen_is_false(arg2) ? NULL : Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmFileSelectionBoxGetChild(XEN arg1, XEN arg2) +static Xen gxm_XmFileSelectionBoxGetChild(Xen arg1, Xen arg2) { #define H_XmFileSelectionBoxGetChild "Widget XmFileSelectionBoxGetChild(Widget widget, unsigned char child) \ used to access a component" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmFileSelectionBoxGetChild", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XmFileSelectionBoxGetChild", "unsigned int"); - return(C_TO_XEN_Widget(XmFileSelectionBoxGetChild(XEN_TO_C_Widget(arg1), XEN_TO_C_ULONG(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmFileSelectionBoxGetChild", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XmFileSelectionBoxGetChild", "unsigned int"); + return(C_to_Xen_Widget(XmFileSelectionBoxGetChild(Xen_to_C_Widget(arg1), Xen_ulong_to_C_ulong(arg2)))); } -static XEN gxm_XmCreateTextField(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateTextField(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateTextField "Widget XmCreateTextField(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The TextField widget creation function" return(gxm_new_widget("XmCreateTextField", XmCreateTextField, arg1, arg2, arg3, arg4)); } -#define XEN_TextFieldWidget_P(Arg) (XEN_Widget_P(Arg) && XmIsTextField(XEN_TO_C_Widget(Arg))) +#define Xen_is_TextFieldWidget(Arg) (Xen_is_Widget(Arg) && XmIsTextField(Xen_to_C_Widget(Arg))) -static XEN gxm_XmTextFieldGetBaseline(XEN arg1) +static Xen gxm_XmTextFieldGetBaseline(Xen arg1) { #define H_XmTextFieldGetBaseline "int XmTextFieldGetBaseline(Widget widget) accesses the y position of the baseline" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetBaseline", "TextField Widget"); - return(C_TO_XEN_INT(XmTextFieldGetBaseline(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetBaseline", "TextField Widget"); + return(C_int_to_Xen_integer(XmTextFieldGetBaseline(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldSetHighlight(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextFieldSetHighlight(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextFieldSetHighlight "void XmTextFieldSetHighlight(Widget widget, XmTextPosition left, XmTextPosition right, XmHighlightMode mode) \ highlights text" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetHighlight", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldSetHighlight", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextFieldSetHighlight", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmTextFieldSetHighlight", "XmHighlightMode"); - XmTextFieldSetHighlight(XEN_TO_C_Widget(arg1), - (XmTextPosition)XEN_TO_C_INT(arg2), - (XmTextPosition)XEN_TO_C_INT(arg3), - (XmHighlightMode)XEN_TO_C_INT(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetHighlight", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldSetHighlight", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextFieldSetHighlight", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmTextFieldSetHighlight", "XmHighlightMode"); + XmTextFieldSetHighlight(Xen_to_C_Widget(arg1), + (XmTextPosition)Xen_integer_to_C_int(arg2), + (XmTextPosition)Xen_integer_to_C_int(arg3), + (XmHighlightMode)Xen_integer_to_C_int(arg4)); + return(Xen_false); } -static XEN gxm_XmTextFieldShowPosition(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldShowPosition(Xen arg1, Xen arg2) { #define H_XmTextFieldShowPosition "void XmTextFieldShowPosition(Widget widget, XmTextPosition position) \ forces text at a given position to be displayed" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldShowPosition", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldShowPosition", "XmTextPosition"); - XmTextFieldShowPosition(XEN_TO_C_Widget(arg1), - (XmTextPosition)XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldShowPosition", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldShowPosition", "XmTextPosition"); + XmTextFieldShowPosition(Xen_to_C_Widget(arg1), + (XmTextPosition)Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldPosToXY(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldPosToXY(Xen arg1, Xen arg2) { #define H_XmTextFieldPosToXY "Boolean XmTextFieldPosToXY(Widget widget, XmTextPosition position): returns the x and y position of a character position" /* DIFF: XmTextFieldPosToXY omits last 2 args and returns them */ Position x, y; int val; - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldPosToXY", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldPosToXY", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmTextPosToXY", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextPosToXY", "XmTextPosition"); - val = XmTextFieldPosToXY(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), &x, &y); - return(XEN_LIST_3(C_TO_XEN_BOOLEAN(val), - C_TO_XEN_Position(x), - C_TO_XEN_Position(y))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldPosToXY", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldPosToXY", "XmTextPosition"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmTextPosToXY", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextPosToXY", "XmTextPosition"); + val = XmTextFieldPosToXY(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), &x, &y); + return(Xen_list_3(C_bool_to_Xen_boolean(val), + C_to_Xen_Position(x), + C_to_Xen_Position(y))); } -static XEN gxm_XmTextFieldXYToPos(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTextFieldXYToPos(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTextFieldXYToPos "XmTextPosition XmTextFieldXYToPos(Widget widget, Position x, Position y) \ accesses the character position nearest an x and y position" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldXYToPos", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldXYToPos", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextFieldXYToPos", "int"); - return(C_TO_XEN_INT(XmTextFieldXYToPos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldXYToPos", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldXYToPos", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextFieldXYToPos", "int"); + return(C_int_to_Xen_integer(XmTextFieldXYToPos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XmTextFieldSetSelection(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextFieldSetSelection(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextFieldSetSelection "void XmTextFieldSetSelection(Widget widget, XmTextPosition first, XmTextPosition last, Time time) \ sets the primary selection of the text" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetSelection", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldSetSelection", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextFieldSetSelection", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_Time_P(arg4), arg4, 4, "XmTextFieldSetSelection", "Time"); - XmTextFieldSetSelection(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_Time(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetSelection", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldSetSelection", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextFieldSetSelection", "XmTextPosition"); + Xen_check_type(Xen_is_Time(arg4), arg4, 4, "XmTextFieldSetSelection", "Time"); + XmTextFieldSetSelection(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_to_C_Time(arg4)); + return(Xen_false); } -static XEN gxm_XmTextFieldClearSelection(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldClearSelection(Xen arg1, Xen arg2) { #define H_XmTextFieldClearSelection "void XmTextFieldClearSelection(Widget widget, Time time) clears the primary selection" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldClearSelection", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextFieldClearSelection", "Time"); - XmTextFieldClearSelection(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldClearSelection", "TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextFieldClearSelection", "Time"); + XmTextFieldClearSelection(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldPasteLink(XEN arg1) +static Xen gxm_XmTextFieldPasteLink(Xen arg1) { #define H_XmTextFieldPasteLink "Boolean XmTextFieldPasteLink(Widget widget) inserts a link to the clipboard selection" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldPasteLink", "TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextFieldPasteLink(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldPasteLink", "TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextFieldPasteLink(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldCopyLink(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldCopyLink(Xen arg1, Xen arg2) { #define H_XmTextFieldCopyLink "Boolean XmTextFieldCopyLink(Widget widget, Time time) copies a link to the \ primary selection to the clipboard" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldCopyLink", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextFieldCopyLink", "Time"); - return(C_TO_XEN_BOOLEAN(XmTextFieldCopyLink(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldCopyLink", "TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextFieldCopyLink", "Time"); + return(C_bool_to_Xen_boolean(XmTextFieldCopyLink(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmTextFieldPaste(XEN arg1) +static Xen gxm_XmTextFieldPaste(Xen arg1) { #define H_XmTextFieldPaste "Boolean XmTextFieldPaste(Widget widget) inserts the clipboard selection" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldPaste", "TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextFieldPaste(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldPaste", "TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextFieldPaste(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldCut(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldCut(Xen arg1, Xen arg2) { #define H_XmTextFieldCut "Boolean XmTextFieldCut(Widget widget, Time time) copies the primary selection \ to the clipboard and deletes the selected text" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldCut", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextFieldCut", "Time"); - return(C_TO_XEN_BOOLEAN(XmTextFieldCut(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldCut", "TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextFieldCut", "Time"); + return(C_bool_to_Xen_boolean(XmTextFieldCut(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmTextFieldCopy(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldCopy(Xen arg1, Xen arg2) { #define H_XmTextFieldCopy "Boolean XmTextFieldCopy(Widget widget, Time time) copies the primary selection to the clipboard" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldCopy", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmTextFieldCopy", "Time"); - return(C_TO_XEN_BOOLEAN(XmTextFieldCopy(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldCopy", "TextField Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmTextFieldCopy", "Time"); + return(C_bool_to_Xen_boolean(XmTextFieldCopy(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmTextFieldRemove(XEN arg1) +static Xen gxm_XmTextFieldRemove(Xen arg1) { #define H_XmTextFieldRemove "Boolean XmTextFieldRemove(Widget widget) deletes the primary selection" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldRemove", "TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextFieldRemove(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldRemove", "TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextFieldRemove(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldGetSelection(XEN arg1) +static Xen gxm_XmTextFieldGetSelection(Xen arg1) { char *str; - XEN res; + Xen res; #define H_XmTextFieldGetSelection "char *XmTextFieldGetSelection(Widget widget) retrieves the value of the primary selection" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetSelection", "TextField Widget"); - str = XmTextFieldGetSelection(XEN_TO_C_Widget(arg1)); - res = C_TO_XEN_STRING(str); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetSelection", "TextField Widget"); + str = XmTextFieldGetSelection(Xen_to_C_Widget(arg1)); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XmTextFieldGetSelectionPosition(XEN arg1) +static Xen gxm_XmTextFieldGetSelectionPosition(Xen arg1) { #define H_XmTextFieldGetSelectionPosition "Boolean XmTextFieldGetSelectionPosition(Widget widget) \ returns the position of the primary selection" @@ -5900,172 +5507,172 @@ returns the position of the primary selection" */ XmTextPosition pos1, pos2; int res; - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetSelectionPosition", "TextField Widget"); - res = XmTextFieldGetSelectionPosition(XEN_TO_C_Widget(arg1), &pos1, &pos2); - return(XEN_LIST_3(C_TO_XEN_BOOLEAN(res), - C_TO_XEN_INT(pos1), - C_TO_XEN_INT(pos2))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetSelectionPosition", "TextField Widget"); + res = XmTextFieldGetSelectionPosition(Xen_to_C_Widget(arg1), &pos1, &pos2); + return(Xen_list_3(C_bool_to_Xen_boolean(res), + C_int_to_Xen_integer(pos1), + C_int_to_Xen_integer(pos2))); } -static XEN gxm_XmTextFieldSetInsertionPosition(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldSetInsertionPosition(Xen arg1, Xen arg2) { #define H_XmTextFieldSetInsertionPosition "void XmTextFieldSetInsertionPosition(Widget widget, XmTextPosition position) \ sets the position of the insertion cursor" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetInsertionPosition", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldSetInsertionPosition", "XmTextPosition"); - XmTextFieldSetInsertionPosition(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetInsertionPosition", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldSetInsertionPosition", "XmTextPosition"); + XmTextFieldSetInsertionPosition(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldSetCursorPosition(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldSetCursorPosition(Xen arg1, Xen arg2) { #define H_XmTextFieldSetCursorPosition "void XmTextFieldSetCursorPosition(Widget w, int position) sets the insertion cursor position" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetCursorPosition", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldSetCursorPosition", "XmTextPosition"); - XmTextFieldSetCursorPosition(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetCursorPosition", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldSetCursorPosition", "XmTextPosition"); + XmTextFieldSetCursorPosition(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldGetInsertionPosition(XEN arg1) +static Xen gxm_XmTextFieldGetInsertionPosition(Xen arg1) { #define H_XmTextFieldGetInsertionPosition "XmTextPosition XmTextFieldGetInsertionPosition(Widget widget) \ accesses the position of the insertion cursor" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetInsertionPosition", "TextField Widget"); - return(C_TO_XEN_INT(XmTextFieldGetInsertionPosition(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetInsertionPosition", "TextField Widget"); + return(C_int_to_Xen_integer(XmTextFieldGetInsertionPosition(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldGetCursorPosition(XEN arg1) +static Xen gxm_XmTextFieldGetCursorPosition(Xen arg1) { #define H_XmTextFieldGetCursorPosition "int XmTextFieldGetCursorPosition(Widget w) presumably returns the widget's insertion cursor position" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetCursorPosition", "TextField Widget"); - return(C_TO_XEN_INT(XmTextFieldGetCursorPosition(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetCursorPosition", "TextField Widget"); + return(C_int_to_Xen_integer(XmTextFieldGetCursorPosition(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldSetMaxLength(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldSetMaxLength(Xen arg1, Xen arg2) { #define H_XmTextFieldSetMaxLength "void XmTextFieldSetMaxLength(Widget widget, int max_length) sets the \ value of the current maximum allowable length of a text string \ entered from the keyboard" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetMaxLength", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldSetMaxLength", "int"); - XmTextFieldSetMaxLength(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetMaxLength", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldSetMaxLength", "int"); + XmTextFieldSetMaxLength(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldGetMaxLength(XEN arg1) +static Xen gxm_XmTextFieldGetMaxLength(Xen arg1) { #define H_XmTextFieldGetMaxLength "int XmTextFieldGetMaxLength(Widget widget) accesses the value of the \ current maximum allowable length of a text string \ entered from the keyboard" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetMaxLength", "TextField Widget"); - return(C_TO_XEN_INT(XmTextFieldGetMaxLength(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetMaxLength", "TextField Widget"); + return(C_int_to_Xen_integer(XmTextFieldGetMaxLength(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldSetEditable(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldSetEditable(Xen arg1, Xen arg2) { #define H_XmTextFieldSetEditable "void XmTextFieldSetEditable(Widget widget, Boolean editable) sets the edit permission" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetEditable", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmTextFieldSetEditable", "boolean"); - XmTextFieldSetEditable(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetEditable", "TextField Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmTextFieldSetEditable", "boolean"); + XmTextFieldSetEditable(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldGetEditable(XEN arg1) +static Xen gxm_XmTextFieldGetEditable(Xen arg1) { #define H_XmTextFieldGetEditable "Boolean XmTextFieldGetEditable(Widget widget) accesses the edit permission state" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetEditable", "TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextFieldGetEditable(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetEditable", "TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextFieldGetEditable(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldGetAddMode(XEN arg1) +static Xen gxm_XmTextFieldGetAddMode(Xen arg1) { #define H_XmTextFieldGetAddMode "Boolean XmTextFieldGetAddMode(Widget w) presumably returns the widget's current add mode." - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetAddMode", "TextField Widget"); - return(C_TO_XEN_BOOLEAN(XmTextFieldGetAddMode(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetAddMode", "TextField Widget"); + return(C_bool_to_Xen_boolean(XmTextFieldGetAddMode(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldSetAddMode(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldSetAddMode(Xen arg1, Xen arg2) { #define H_XmTextFieldSetAddMode "void XmTextFieldSetAddMode(Widget widget, Boolean state) sets the state of Add mode" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetAddMode", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmTextFieldSetAddMode", "boolean"); - XmTextFieldSetAddMode(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetAddMode", "TextField Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmTextFieldSetAddMode", "boolean"); + XmTextFieldSetAddMode(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldInsert(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTextFieldInsert(Xen arg1, Xen arg2, Xen arg3) { #define H_XmTextFieldInsert "void XmTextFieldInsert(Widget widget, XmTextPosition position, char *value) \ inserts a character string into a text string" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldInsert", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldInsert", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XmTextFieldInsert", "char*"); - XmTextFieldInsert(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), (char *)XEN_TO_C_STRING(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldInsert", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldInsert", "XmTextPosition"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XmTextFieldInsert", "char*"); + XmTextFieldInsert(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), (char *)Xen_string_to_C_string(arg3)); + return(Xen_false); } -static XEN gxm_XmTextFieldReplace(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmTextFieldReplace(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmTextFieldReplace "void XmTextFieldReplace(Widget widget, XmTextPosition from_pos, XmTextPosition to_pos, char *value) \ replaces part of a text string" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldReplace", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldReplace", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextFieldReplace", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XmTextFieldReplace", "char*"); - XmTextFieldReplace(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), (char *)XEN_TO_C_STRING(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldReplace", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldReplace", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextFieldReplace", "XmTextPosition"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XmTextFieldReplace", "char*"); + XmTextFieldReplace(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), (char *)Xen_string_to_C_string(arg4)); + return(Xen_false); } -static XEN gxm_XmTextFieldSetString(XEN arg1, XEN arg2) +static Xen gxm_XmTextFieldSetString(Xen arg1, Xen arg2) { #define H_XmTextFieldSetString "void XmTextFieldSetString(Widget widget, char *value) sets the string value" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldSetString", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmTextFieldSetString", "char*"); - XmTextFieldSetString(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldSetString", "TextField Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmTextFieldSetString", "char*"); + XmTextFieldSetString(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2)); + return(Xen_false); } -static XEN gxm_XmTextFieldGetLastPosition(XEN arg1) +static Xen gxm_XmTextFieldGetLastPosition(Xen arg1) { #define H_XmTextFieldGetLastPosition "XmTextPosition XmTextFieldGetLastPosition(Widget widget) accesses \ the position of the last text character" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetLastPosition", "TextField Widget"); - return(C_TO_XEN_INT(XmTextFieldGetLastPosition(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetLastPosition", "TextField Widget"); + return(C_int_to_Xen_integer(XmTextFieldGetLastPosition(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmTextFieldGetSubstring(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmTextFieldGetSubstring(Xen arg1, Xen arg2, Xen arg3) { /* DIFF: omit and rtn last 2 args */ #define H_XmTextFieldGetSubstring "int XmTextFieldGetSubstring(Widget widget, XmTextPosition start, int num_chars) \ retrieves a copy of a portion of the internal text buffer" int rtn, len; char *buf; - XEN str = XEN_FALSE; - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetSubstring", "TextField Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmTextFieldGetSubstring", "XmTextPosition"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTextFieldGetSubstring", "int"); - len = XEN_TO_C_INT(arg3); + Xen str = Xen_false; + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetSubstring", "TextField Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmTextFieldGetSubstring", "XmTextPosition"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTextFieldGetSubstring", "int"); + len = Xen_integer_to_C_int(arg3); buf = (char *)calloc(len + 1, sizeof(char)); - rtn = XmTextFieldGetSubstring(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), len, len + 1, buf); + rtn = XmTextFieldGetSubstring(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), len, len + 1, buf); if (rtn != XmCOPY_FAILED) - str = C_TO_XEN_STRING(buf); + str = C_string_to_Xen_string(buf); free(buf); return(str); } -static XEN gxm_XmTextFieldGetString(XEN arg1) +static Xen gxm_XmTextFieldGetString(Xen arg1) { char *str; - XEN res; + Xen res; #define H_XmTextFieldGetString "char *XmTextFieldGetString(Widget widget) accesses the string value" - XEN_ASSERT_TYPE(XEN_TextFieldWidget_P(arg1), arg1, 1, "XmTextFieldGetString", "TextField Widget"); - str = XmTextFieldGetString(XEN_TO_C_Widget(arg1)); - res = C_TO_XEN_STRING(str); + Xen_check_type(Xen_is_TextFieldWidget(arg1), arg1, 1, "XmTextFieldGetString", "TextField Widget"); + str = XmTextFieldGetString(Xen_to_C_Widget(arg1)); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XmDropTransferAdd(XEN arg1, XEN arg2) +static Xen gxm_XmDropTransferAdd(Xen arg1, Xen arg2) { #define H_XmDropTransferAdd "void XmDropTransferAdd(Widget drop_transfer, XmDropTransferEntryRec *transfers) \ enables additional drop transfer entries to be processed after initiating a drop transfer" @@ -6073,51 +5680,51 @@ enables additional drop transfer entries to be processed after initiating a drop */ int len; XmDropTransferEntryRec *entries; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropTransferAdd", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmDropTransferAdd", "XmDropTransferEntry"); - len = XEN_LIST_LENGTH(arg2); - if (len <= 0) return(XEN_FALSE); - entries = XEN_TO_C_XmDropTransferEntryRecs(arg2, len); - XmDropTransferAdd(XEN_TO_C_Widget(arg1), entries, len); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropTransferAdd", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmDropTransferAdd", "XmDropTransferEntry"); + len = Xen_list_length(arg2); + if (len <= 0) return(Xen_false); + entries = Xen_to_C_XmDropTransferEntryRecs(arg2, len); + XmDropTransferAdd(Xen_to_C_Widget(arg1), entries, len); free(entries); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmDropTransferStart(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmDropTransferStart(Xen arg1, Xen arg2, Xen arg3) { #define H_XmDropTransferStart "Widget XmDropTransferStart(Widget widget, ArgList arglist, Cardinal argcount) \ initiates a drop transfer" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropTransferStart", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmDropTransferStart", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmDropTransferStart", "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropTransferStart", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmDropTransferStart", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmDropTransferStart", "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg2); - arglen = XEN_TO_C_INT_DEF(arg3, arg2); - w = XmDropTransferStart(XEN_TO_C_Widget(arg1), args, arglen); + args = Xen_to_C_Args(arg2); + arglen = Xen_to_C_INT_DEF(arg3, arg2); + w = XmDropTransferStart(Xen_to_C_Widget(arg1), args, arglen); if (args) { fixup_args(w, args, arglen); free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmDropSiteConfigureStackingOrder(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmDropSiteConfigureStackingOrder(Xen arg1, Xen arg2, Xen arg3) { #define H_XmDropSiteConfigureStackingOrder "void XmDropSiteConfigureStackingOrder(Widget widget, Widget sibling, Cardinal stack_mode) \ reorders a stack of widgets that are registered drop sites" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteConfigureStackingOrder", "Widget"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg2), arg2, 2, "XmDropSiteConfigureStackingOrder", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmDropSiteConfigureStackingOrder", "int"); - XmDropSiteConfigureStackingOrder(XEN_TO_C_Widget(arg1), XEN_TO_C_Widget(arg2), XEN_TO_C_INT(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteConfigureStackingOrder", "Widget"); + Xen_check_type(Xen_is_Widget(arg2), arg2, 2, "XmDropSiteConfigureStackingOrder", "Widget"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmDropSiteConfigureStackingOrder", "int"); + XmDropSiteConfigureStackingOrder(Xen_to_C_Widget(arg1), Xen_to_C_Widget(arg2), Xen_integer_to_C_int(arg3)); + return(Xen_false); } -static XEN gxm_XmDropSiteQueryStackingOrder(XEN arg1) +static Xen gxm_XmDropSiteQueryStackingOrder(Xen arg1) { #define H_XmDropSiteQueryStackingOrder "Status XmDropSiteQueryStackingOrder(Widget widget): (list parent child ...)" /* DIFF: XmDropSiteQueryStackingOrder widget [parent child numchild] -> (list parent child ...) @@ -6125,75 +5732,75 @@ static XEN gxm_XmDropSiteQueryStackingOrder(XEN arg1) */ Widget parent; Widget *children; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; unsigned int num_children; int res, i, loc; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteQueryStackingOrder", "Widget"); - res = XmDropSiteQueryStackingOrder(XEN_TO_C_Widget(arg1), &parent, &children, &num_children); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteQueryStackingOrder", "Widget"); + res = XmDropSiteQueryStackingOrder(Xen_to_C_Widget(arg1), &parent, &children, &num_children); if (res == 0) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = num_children - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Widget(children[i]), lst); + lst = Xen_cons(C_to_Xen_Widget(children[i]), lst); xm_unprotect_at(loc); - return(XEN_CONS(C_TO_XEN_Widget(parent), lst)); + return(Xen_cons(C_to_Xen_Widget(parent), lst)); } -static XEN gxm_XmDropSiteRetrieve(XEN arg1, XEN larg2, XEN arg3) +static Xen gxm_XmDropSiteRetrieve(Xen arg1, Xen larg2, Xen arg3) { #define H_XmDropSiteRetrieve "void XmDropSiteRetrieve(Widget widget, ArgList arglist, Cardinal argcount) \ retrieves resource values set on a drop site" Arg *args; unsigned long *locs; - XEN val = XEN_FALSE; + Xen val = Xen_false; int i, len, gcloc; - XEN arg2; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteRetrieve", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg2), larg2, 2, "XmDropSiteRetrieve", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmDropSiteRetrieve", "int"); - arg2 = XEN_COPY_ARG(larg2); + Xen arg2; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteRetrieve", "Widget"); + Xen_check_type(Xen_is_list(larg2), larg2, 2, "XmDropSiteRetrieve", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmDropSiteRetrieve", "int"); + arg2 = Xen_copy_arg(larg2); gcloc = xm_protect(arg2); - len = XEN_TO_C_INT_DEF(arg3, larg2); - if (len <= 0) XEN_ASSERT_TYPE(0, arg3, 3, "XmDropSiteRetrieve", "positive integer"); + len = Xen_to_C_INT_DEF(arg3, larg2); + if (len <= 0) Xen_check_type(0, arg3, 3, "XmDropSiteRetrieve", "positive integer"); args = (Arg *)calloc(len, sizeof(Arg)); locs = (unsigned long *)calloc(len, sizeof(unsigned long)); - for (i = 0; i < len; i++, arg2 = XEN_CDDR(arg2)) + for (i = 0; i < len; i++, arg2 = Xen_cddr(arg2)) { char *name; - name = xen_strdup(XEN_TO_C_STRING(XEN_CAR(arg2))); + name = xen_strdup(Xen_string_to_C_string(Xen_car(arg2))); XtSetArg(args[i], name, &(locs[i])); } - XmDropSiteRetrieve(XEN_TO_C_Widget(arg1), args, len); - val = C_TO_XEN_Args((Widget)(XEN_TO_C_Widget(arg1)), args, len); + XmDropSiteRetrieve(Xen_to_C_Widget(arg1), args, len); + val = C_to_Xen_Args((Widget)(Xen_to_C_Widget(arg1)), args, len); free_args(args, len); free(locs); xm_unprotect_at(gcloc); return(val); } -static XEN gxm_XmDropSiteEndUpdate(XEN arg1) +static Xen gxm_XmDropSiteEndUpdate(Xen arg1) { #define H_XmDropSiteEndUpdate "void XmDropSiteEndUpdate(Widget widget) facilitates processing updates to multiple drop sites" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteEndUpdate", "Widget"); - XmDropSiteEndUpdate(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteEndUpdate", "Widget"); + XmDropSiteEndUpdate(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmDropSiteUpdate(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmDropSiteUpdate(Xen arg1, Xen arg2, Xen arg3) { #define H_XmDropSiteUpdate "void XmDropSiteUpdate(Widget widget, ArgList arglist, Cardinal argcount) sets \ resource values for a drop site" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteUpdate", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmDropSiteUpdate", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmDropSiteUpdate", "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteUpdate", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmDropSiteUpdate", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmDropSiteUpdate", "int"); { Widget w; Arg *args; int arglen; - w = XEN_TO_C_Widget(arg1); - args = XEN_TO_C_Args(arg2); - arglen = XEN_TO_C_INT_DEF(arg3, arg2); + w = Xen_to_C_Widget(arg1); + args = Xen_to_C_Args(arg2); + arglen = Xen_to_C_INT_DEF(arg3, arg2); XmDropSiteUpdate(w, args, arglen); if (args) { @@ -6201,47 +5808,47 @@ resource values for a drop site" free_args(args, arglen); } } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmDropSiteStartUpdate(XEN arg1) +static Xen gxm_XmDropSiteStartUpdate(Xen arg1) { #define H_XmDropSiteStartUpdate "void XmDropSiteStartUpdate(Widget widget) facilitates processing updates \ to multiple drop sites" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteStartUpdate", "Widget"); - XmDropSiteStartUpdate(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteStartUpdate", "Widget"); + XmDropSiteStartUpdate(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmDropSiteRegistered(XEN arg1) +static Xen gxm_XmDropSiteRegistered(Xen arg1) { #define H_XmDropSiteRegistered "Boolean XmDropSiteRegistered(Widget widget) determines if a drop site has been registered" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteRegistered", "Widget"); - return(C_TO_XEN_BOOLEAN(XmDropSiteRegistered(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteRegistered", "Widget"); + return(C_bool_to_Xen_boolean(XmDropSiteRegistered(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmDropSiteUnregister(XEN arg1) +static Xen gxm_XmDropSiteUnregister(Xen arg1) { #define H_XmDropSiteUnregister "void XmDropSiteUnregister(Widget widget) frees drop site information" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteUnregister", "Widget"); - XmDropSiteUnregister(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteUnregister", "Widget"); + XmDropSiteUnregister(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmDropSiteRegister(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmDropSiteRegister(Xen arg1, Xen arg2, Xen arg3) { #define H_XmDropSiteRegister "void XmDropSiteRegister(Widget widget, ArgList arglist, Cardinal argcount) \ identifies a drop site and assigns resources that specify its behavior" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDropSiteRegister", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmDropSiteRegister", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XmDropSiteRegister", "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDropSiteRegister", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmDropSiteRegister", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmDropSiteRegister", "int"); { Widget w; Arg *args; int arglen; - w = XEN_TO_C_Widget(arg1); - args = XEN_TO_C_Args(arg2); - arglen = XEN_TO_C_INT_DEF(arg3, arg2); + w = Xen_to_C_Widget(arg1); + args = Xen_to_C_Args(arg2); + arglen = Xen_to_C_INT_DEF(arg3, arg2); XmDropSiteRegister(w, args, arglen); if (args) { @@ -6249,98 +5856,98 @@ identifies a drop site and assigns resources that specify its behavior" free_args(args, arglen); } } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmSimpleSpinBoxSetItem(XEN arg1, XEN arg2) +static Xen gxm_XmSimpleSpinBoxSetItem(Xen arg1, Xen arg2) { #define H_XmSimpleSpinBoxSetItem "void XmSimpleSpinBoxSetItem(Widget w, XmString item) set an item in the XmSimpleSpinBox list" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmSimpleSpinBoxSetItem", "Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmSimpleSpinBoxSetItem", "XmString"); - XmSimpleSpinBoxSetItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmSimpleSpinBoxSetItem", "Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmSimpleSpinBoxSetItem", "XmString"); + XmSimpleSpinBoxSetItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmSimpleSpinBoxDeletePos(XEN arg1, XEN arg2) +static Xen gxm_XmSimpleSpinBoxDeletePos(Xen arg1, Xen arg2) { #define H_XmSimpleSpinBoxDeletePos "void XmSimpleSpinBoxDeletePos(Widget w, int pos) delete a XmSimpleSpinBox item" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmSimpleSpinBoxDeletePos", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmSimpleSpinBoxDeletePos", "int"); - XmSimpleSpinBoxDeletePos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmSimpleSpinBoxDeletePos", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmSimpleSpinBoxDeletePos", "int"); + XmSimpleSpinBoxDeletePos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmSimpleSpinBoxAddItem(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmSimpleSpinBoxAddItem(Xen arg1, Xen arg2, Xen arg3) { #define H_XmSimpleSpinBoxAddItem "void XmSimpleSpinBoxAddItem(Widget w, XmString item, int pos) add an item to the XmSimpleSpinBox" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmSimpleSpinBoxAddItem", "Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmSimpleSpinBoxAddItem", "XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmSimpleSpinBoxAddItem", "int"); - XmSimpleSpinBoxAddItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2), XEN_TO_C_INT(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmSimpleSpinBoxAddItem", "Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmSimpleSpinBoxAddItem", "XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmSimpleSpinBoxAddItem", "int"); + XmSimpleSpinBoxAddItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2), Xen_integer_to_C_int(arg3)); + return(Xen_false); } -static XEN gxm_XmCreateSimpleSpinBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSimpleSpinBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSimpleSpinBox "Widget XmCreateSimpleSpinBox(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The SimpleSpinBox widget creation function" return(gxm_new_widget("XmCreateSimpleSpinBox", XmCreateSimpleSpinBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateDrawnButton(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateDrawnButton(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateDrawnButton "Widget XmCreateDrawnButton(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The DrawnButton widget creation function" return(gxm_new_widget("XmCreateDrawnButton", XmCreateDrawnButton, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmSpinBoxValidatePosition(XEN arg1) +static Xen gxm_XmSpinBoxValidatePosition(Xen arg1) { #define H_XmSpinBoxValidatePosition "int XmSpinBoxValidatePosition(Widget textfield) translate the current value of \ the specified XmSpinBox child into a valid position" /* DIFF: XmSpinBoxValidatePosition omits arg2, returns pos */ int pos; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmSpinBoxValidatePosition", "Widget"); - XmSpinBoxValidatePosition(XEN_TO_C_Widget(arg1), &pos); - return(C_TO_XEN_INT(pos)); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmSpinBoxValidatePosition", "Widget"); + XmSpinBoxValidatePosition(Xen_to_C_Widget(arg1), &pos); + return(C_int_to_Xen_integer(pos)); } -static XEN gxm_XmCreateSpinBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSpinBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSpinBox "The SpinBox creation function" return(gxm_new_widget("XmCreateSpinBox", XmCreateSpinBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateDrawingArea(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateDrawingArea(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateDrawingArea "Widget XmCreateDrawingArea(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The DrawingArea widget creation function" return(gxm_new_widget("XmCreateDrawingArea", XmCreateDrawingArea, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSeparator(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSeparator(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSeparator "Widget XmCreateSeparator(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The Separator widget creation function" return(gxm_new_widget("XmCreateSeparator", XmCreateSeparator, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateDragIcon(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateDragIcon(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateDragIcon "Widget XmCreateDragIcon(Widget widget, String name, ArgList arglist, Cardinal argcount) \ creates a DragIcon widget" return(gxm_new_widget("XmCreateDragIcon", XmCreateDragIcon, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSeparatorGadget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSeparatorGadget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSeparatorGadget "Widget XmCreateSeparatorGadget(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The SeparatorGadget creation function" return(gxm_new_widget("XmCreateSeparatorGadget", XmCreateSeparatorGadget, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmTargetsAreCompatible(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmTargetsAreCompatible(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmTargetsAreCompatible "Boolean XmTargetsAreCompatible(Display *display, Atom *export_targets, Cardinal num_export_targets, \ Atom *import_targets, Cardinal num_import_targets) tests whether the target types match between a drop site and source object" @@ -6348,45 +5955,45 @@ Atom *import_targets, Cardinal num_import_targets) tests whether the target typ */ Atom *outs, *ins; int val, len1, len2; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmTargetsAreCompatible", "Display*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmTargetsAreCompatible", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmTargetsAreCompatible", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XmTargetsAreCompatible", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XmTargetsAreCompatible", "int"); - len1 = XEN_TO_C_INT(arg3); - outs = XEN_TO_C_Atoms(arg2, len1); - len2 = XEN_TO_C_INT(arg5); - ins = XEN_TO_C_Atoms(arg4, len2); - val = XmTargetsAreCompatible(XEN_TO_C_Display(arg1), outs, len1, ins, len2); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmTargetsAreCompatible", "Display*"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmTargetsAreCompatible", "list of Atom"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmTargetsAreCompatible", "int"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XmTargetsAreCompatible", "list of Atom"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XmTargetsAreCompatible", "int"); + len1 = Xen_integer_to_C_int(arg3); + outs = Xen_to_C_Atoms(arg2, len1); + len2 = Xen_integer_to_C_int(arg5); + ins = Xen_to_C_Atoms(arg4, len2); + val = XmTargetsAreCompatible(Xen_to_C_Display(arg1), outs, len1, ins, len2); free(outs); free(ins); - return(C_TO_XEN_BOOLEAN(val)); + return(C_bool_to_Xen_boolean(val)); } -static XEN gxm_XmDragCancel(XEN arg1) +static Xen gxm_XmDragCancel(Xen arg1) { #define H_XmDragCancel "void XmDragCancel(Widget dragcontext) terminates a drag transaction" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDragCancel", "Widget"); - XmDragCancel(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDragCancel", "Widget"); + XmDragCancel(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmDragStart(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmDragStart(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmDragStart "Widget XmDragStart(Widget widget, XEvent *event, ArgList arglist, Cardinal argcount) \ initiates a drag and drop transaction" Widget w; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDragStart", "Widget"); - XEN_ASSERT_TYPE(XEN_XEvent_P(arg2), arg2, 2, "XmDragStart", "XEvent*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XmDragStart", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, "XmDragStart", "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDragStart", "Widget"); + Xen_check_type(Xen_is_XEvent(arg2), arg2, 2, "XmDragStart", "XEvent*"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XmDragStart", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, "XmDragStart", "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg3); - arglen = XEN_TO_C_INT_DEF(arg4, arg3); - w = XmDragStart(XEN_TO_C_Widget(arg1), - XEN_TO_C_XEvent(arg2), + args = Xen_to_C_Args(arg3); + arglen = Xen_to_C_INT_DEF(arg4, arg3); + w = XmDragStart(Xen_to_C_Widget(arg1), + Xen_to_C_XEvent(arg2), args, arglen); if (args) { @@ -6394,139 +6001,139 @@ initiates a drag and drop transaction" free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XmCreatePromptDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreatePromptDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreatePromptDialog "Widget XmCreatePromptDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The SelectionBox PromptDialog creation function" return(gxm_new_widget("XmCreatePromptDialog", XmCreatePromptDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSelectionDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSelectionDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSelectionDialog "Widget XmCreateSelectionDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The SelectionBox SelectionDialog creation function" return(gxm_new_widget("XmCreateSelectionDialog", XmCreateSelectionDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateSelectionBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateSelectionBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateSelectionBox "Widget XmCreateSelectionBox(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The SelectionBox widget creation function" return(gxm_new_widget("XmCreateSelectionBox", XmCreateSelectionBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmSelectionBoxGetChild(XEN arg1, XEN arg2) +static Xen gxm_XmSelectionBoxGetChild(Xen arg1, Xen arg2) { #define H_XmSelectionBoxGetChild "Widget XmSelectionBoxGetChild(Widget widget, unsigned char child) used to access a SelectionBox component" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmSelectionBoxGetChild", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XmSelectionBoxGetChild", "unsigned int"); - return(C_TO_XEN_Widget(XmSelectionBoxGetChild(XEN_TO_C_Widget(arg1), XEN_TO_C_ULONG(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmSelectionBoxGetChild", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XmSelectionBoxGetChild", "unsigned int"); + return(C_to_Xen_Widget(XmSelectionBoxGetChild(Xen_to_C_Widget(arg1), Xen_ulong_to_C_ulong(arg2)))); } -static XEN gxm_XmGetXmDisplay(XEN arg1) +static Xen gxm_XmGetXmDisplay(Xen arg1) { #define H_XmGetXmDisplay "Widget XmGetXmDisplay(Display *display) A Display function that returns the" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmGetXmDisplay", "Display*"); - return(C_TO_XEN_Widget(XmGetXmDisplay(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmGetXmDisplay", "Display*"); + return(C_to_Xen_Widget(XmGetXmDisplay(Xen_to_C_Display(arg1)))); } -static XEN gxm_XmGetDragContext(XEN arg1, XEN arg2) +static Xen gxm_XmGetDragContext(Xen arg1, Xen arg2) { #define H_XmGetDragContext "Widget XmGetDragContext(Widget refwidget, Time timestamp) retrieves \ the DragContext widget ID associated with a timestamp" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmGetDragContext", "Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmGetDragContext", "Time"); - return(C_TO_XEN_Widget(XmGetDragContext(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmGetDragContext", "Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmGetDragContext", "Time"); + return(C_to_Xen_Widget(XmGetDragContext(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmScrollVisible(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmScrollVisible(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmScrollVisible "void XmScrollVisible(Widget scrollw_widget, Widget widget, Dimension left_right_margin, Dimension top_bottom_margin) \ makes an invisible descendant of a ScrolledWindow work area visible" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmScrollVisible", "Widget"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg2), arg2, 2, "XmScrollVisible", "Widget"); - XEN_ASSERT_TYPE(XEN_Dimension_P(arg3), arg3, 3, "XmScrollVisible", "Dimension"); - XEN_ASSERT_TYPE(XEN_Dimension_P(arg4), arg4, 4, "XmScrollVisible", "Dimension"); - XmScrollVisible(XEN_TO_C_Widget(arg1), XEN_TO_C_Widget(arg2), - XEN_TO_C_Dimension(arg3), XEN_TO_C_Dimension(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmScrollVisible", "Widget"); + Xen_check_type(Xen_is_Widget(arg2), arg2, 2, "XmScrollVisible", "Widget"); + Xen_check_type(Xen_is_Dimension(arg3), arg3, 3, "XmScrollVisible", "Dimension"); + Xen_check_type(Xen_is_Dimension(arg4), arg4, 4, "XmScrollVisible", "Dimension"); + XmScrollVisible(Xen_to_C_Widget(arg1), Xen_to_C_Widget(arg2), + Xen_to_C_Dimension(arg3), Xen_to_C_Dimension(arg4)); + return(Xen_false); } -static XEN gxm_XmCreateScrolledWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateScrolledWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateScrolledWindow "Widget XmCreateScrolledWindow(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The ScrolledWindow widget creation function" return(gxm_new_widget("XmCreateScrolledWindow", XmCreateScrolledWindow, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateDialogShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateDialogShell(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateDialogShell "Widget XmCreateDialogShell(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The DialogShell widget creation function" return(gxm_new_widget("XmCreateDialogShell", XmCreateDialogShell, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmScrollBarSetValues(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XmScrollBarSetValues(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XmScrollBarSetValues "void XmScrollBarSetValues (widget, value, slider_size, increment, page_increment, notify) \ changes ScrollBar's increment values and the slider's size and position" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmScrollBarSetValues", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmScrollBarSetValues", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmScrollBarSetValues", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmScrollBarSetValues", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XmScrollBarSetValues", "int"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg6), arg6, 6, "XmScrollBarSetValues", "boolean"); - XmScrollBarSetValues(XEN_TO_C_Widget(arg1), - XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - XEN_TO_C_BOOLEAN(arg6)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmScrollBarSetValues", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmScrollBarSetValues", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmScrollBarSetValues", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmScrollBarSetValues", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XmScrollBarSetValues", "int"); + Xen_check_type(Xen_is_boolean(arg6), arg6, 6, "XmScrollBarSetValues", "boolean"); + XmScrollBarSetValues(Xen_to_C_Widget(arg1), + Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + Xen_boolean_to_C_bool(arg6)); + return(Xen_false); } -static XEN gxm_XmScrollBarGetValues(XEN arg1) +static Xen gxm_XmScrollBarGetValues(Xen arg1) { #define H_XmScrollBarGetValues "void XmScrollBarGetValues (widget): returns the ScrollBar's increment values (list val size incr page)" /* DIFF: XmScrollBarGetValues omits and returns last 4 args */ int val, size, incr, page; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmScrollBarGetValues", "Widget"); - XmScrollBarGetValues(XEN_TO_C_Widget(arg1), &val, &size, &incr, &page); - return(XEN_LIST_4(C_TO_XEN_INT(val), - C_TO_XEN_INT(size), - C_TO_XEN_INT(incr), - C_TO_XEN_INT(page))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmScrollBarGetValues", "Widget"); + XmScrollBarGetValues(Xen_to_C_Widget(arg1), &val, &size, &incr, &page); + return(Xen_list_4(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(size), + C_int_to_Xen_integer(incr), + C_int_to_Xen_integer(page))); } -static XEN gxm_XmCreateScrollBar(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateScrollBar(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateScrollBar "Widget XmCreateScrollBar(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The ScrollBar widget creation function" return(gxm_new_widget("XmCreateScrollBar", XmCreateScrollBar, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmGetXmScreen(XEN arg1) +static Xen gxm_XmGetXmScreen(Xen arg1) { #define H_XmGetXmScreen "Widget XmGetXmScreen(Screen *screen): returns the XmScreen object ID for a specified screen" /* this is the Motif Screen "widget" */ - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XmGetXmScreen", "Screen*"); - return(C_TO_XEN_Widget(XmGetXmScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XmGetXmScreen", "Screen*"); + return(C_to_Xen_Widget(XmGetXmScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XmClipboardRegisterFormat(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardRegisterFormat(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardRegisterFormat "int XmClipboardRegisterFormat (display, format_name, format_length) registers a new format" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardRegisterFormat", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmClipboardRegisterFormat", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmClipboardRegisterFormat", "int"); - return(C_TO_XEN_INT(XmClipboardRegisterFormat(XEN_TO_C_Display(arg1), - (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardRegisterFormat", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmClipboardRegisterFormat", "char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmClipboardRegisterFormat", "int"); + return(C_int_to_Xen_integer(XmClipboardRegisterFormat(Xen_to_C_Display(arg1), + (char *)Xen_string_to_C_string(arg2), + Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XmClipboardInquirePendingItems(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardInquirePendingItems(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardInquirePendingItems "int XmClipboardInquirePendingItems (display, window, format_name) \ returns a list of data ID/private ID pairs" @@ -6535,84 +6142,84 @@ returns a list of data ID/private ID pairs" unsigned long len; XmClipboardPendingList clst; int i, loc, rtn; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardInquirePendingItems", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardInquirePendingItems", "Window"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XmClipboardInquirePendingItems", "char*"); - rtn = XmClipboardInquirePendingItems(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - (char *)XEN_TO_C_STRING(arg3), + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardInquirePendingItems", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardInquirePendingItems", "Window"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XmClipboardInquirePendingItems", "char*"); + rtn = XmClipboardInquirePendingItems(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + (char *)Xen_string_to_C_string(arg3), &clst, &len); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(XEN_LIST_2(C_TO_XEN_INT(clst[i].DataId), - C_TO_XEN_INT(clst[i].PrivateId)), + lst = Xen_cons(Xen_list_2(C_int_to_Xen_integer(clst[i].DataId), + C_int_to_Xen_integer(clst[i].PrivateId)), lst); - lst = XEN_CONS(C_TO_XEN_INT(rtn), lst); + lst = Xen_cons(C_int_to_Xen_integer(rtn), lst); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XmClipboardInquireLength(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardInquireLength(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardInquireLength "int XmClipboardInquireLength (display, window, format_name): returns the length of the stored data" /* DIFF: XmClipboardInquireLength omit and rtn last arg */ unsigned long len; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardInquireLength", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardInquireLength", "Window"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XmClipboardInquireLength", "char*"); - val = XmClipboardInquireLength(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), (char *)XEN_TO_C_STRING(arg3), &len); - return(XEN_LIST_2(C_TO_XEN_INT(val), - C_TO_XEN_ULONG(len))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardInquireLength", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardInquireLength", "Window"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XmClipboardInquireLength", "char*"); + val = XmClipboardInquireLength(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), (char *)Xen_string_to_C_string(arg3), &len); + return(Xen_list_2(C_int_to_Xen_integer(val), + C_ulong_to_Xen_ulong(len))); } -static XEN gxm_XmClipboardInquireFormat(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmClipboardInquireFormat(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmClipboardInquireFormat "int XmClipboardInquireFormat (display, window, index, buffer_len) \ returns a specified format name" /* DIFF: XmClipboardInquireFormat omits arg4 (XtPointer buffer) and arg6, returns them */ - XEN res; + Xen res; XtPointer buf; unsigned long len, n; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardInquireFormat", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardInquireFormat", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmClipboardInquireFormat", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XmClipboardInquireFormat", "ulong"); - len = XEN_TO_C_ULONG(arg4); - if (len == 0) return(XEN_FALSE); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardInquireFormat", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardInquireFormat", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmClipboardInquireFormat", "int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XmClipboardInquireFormat", "ulong"); + len = Xen_ulong_to_C_ulong(arg4); + if (len == 0) return(Xen_false); buf = (XtPointer)calloc(len + 1, sizeof(char)); - val = XmClipboardInquireFormat(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), + val = XmClipboardInquireFormat(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), buf, len, &n); - res = C_TO_XEN_STRING((char *)buf); + res = C_string_to_Xen_string((char *)buf); free(buf); - return(XEN_LIST_2(C_TO_XEN_INT(val), res)); + return(Xen_list_2(C_int_to_Xen_integer(val), res)); } -static XEN gxm_XmClipboardInquireCount(XEN arg1, XEN arg2) +static Xen gxm_XmClipboardInquireCount(Xen arg1, Xen arg2) { #define H_XmClipboardInquireCount "int XmClipboardInquireCount (display, window): returns the number of data item formats" /* DIFF: XmClipboardInquireCount omits and rtns last 2 args */ int count, val; unsigned long len; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardInquireCount", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardInquireCount", "Window"); - val = XmClipboardInquireCount(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardInquireCount", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardInquireCount", "Window"); + val = XmClipboardInquireCount(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), &count, &len); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_INT(count), - C_TO_XEN_ULONG(len))); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(count), + C_ulong_to_Xen_ulong(len))); } -static XEN gxm_XmClipboardRetrieve(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmClipboardRetrieve(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmClipboardRetrieve "int XmClipboardRetrieve (display, window, format_name, length) retrieves a data item from the clipboard" /* DIFF: XmClipboardRetrieve omits buf arg, and last 2, returning them and a list of ulongs @@ -6621,116 +6228,116 @@ static XEN gxm_XmClipboardRetrieve(XEN arg1, XEN arg2, XEN arg3, XEN arg4) long id; XtPointer buf; int len, val; - XEN str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardRetrieve", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardRetrieve", "Window"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XmClipboardRetrieve", "char*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XmClipboardRetrieve", "ulong"); - len = XEN_TO_C_ULONG(arg4); - if (len <= 0) return(XEN_FALSE); + Xen str; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardRetrieve", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardRetrieve", "Window"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XmClipboardRetrieve", "char*"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XmClipboardRetrieve", "ulong"); + len = Xen_ulong_to_C_ulong(arg4); + if (len <= 0) return(Xen_false); buf = (XtPointer)malloc(len); - val = XmClipboardRetrieve(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - (char *)XEN_TO_C_STRING(arg3), + val = XmClipboardRetrieve(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + (char *)Xen_string_to_C_string(arg3), buf, len, &n, &id); - str = C_TO_XEN_STRING((char *)buf); + str = C_string_to_Xen_string((char *)buf); free(buf); - return(XEN_LIST_3(C_TO_XEN_INT(val), + return(Xen_list_3(C_int_to_Xen_integer(val), str, - C_TO_XEN_ULONG(id))); + C_ulong_to_Xen_ulong(id))); } -static XEN gxm_XmClipboardEndRetrieve(XEN arg1, XEN arg2) +static Xen gxm_XmClipboardEndRetrieve(Xen arg1, Xen arg2) { #define H_XmClipboardEndRetrieve "int XmClipboardEndRetrieve (display, window) completes retrieval of \ data from the clipboard" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardEndRetrieve", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardEndRetrieve", "Window"); - return(C_TO_XEN_INT(XmClipboardEndRetrieve(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardEndRetrieve", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardEndRetrieve", "Window"); + return(C_int_to_Xen_integer(XmClipboardEndRetrieve(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XmClipboardStartRetrieve(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardStartRetrieve(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardStartRetrieve "int XmClipboardStartRetrieve (display, window, timestamp) \ prepares to retrieve data from the clipboard" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardStartRetrieve", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardStartRetrieve", "Window"); - XEN_ASSERT_TYPE(XEN_Time_P(arg3), arg3, 3, "XmClipboardStartRetrieve", "Time"); - return(C_TO_XEN_INT(XmClipboardStartRetrieve(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Time(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardStartRetrieve", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardStartRetrieve", "Window"); + Xen_check_type(Xen_is_Time(arg3), arg3, 3, "XmClipboardStartRetrieve", "Time"); + return(C_int_to_Xen_integer(XmClipboardStartRetrieve(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Time(arg3)))); } -static XEN gxm_XmClipboardUnlock(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardUnlock(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardUnlock "int XmClipboardUnlock (display, window, remove_all_locks) unlocks the clipboard" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardUnlock", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardUnlock", "Window"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmClipboardUnlock", "boolean"); - return(C_TO_XEN_INT(XmClipboardUnlock(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_BOOLEAN(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardUnlock", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardUnlock", "Window"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmClipboardUnlock", "boolean"); + return(C_int_to_Xen_integer(XmClipboardUnlock(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_boolean_to_C_bool(arg3)))); } -static XEN gxm_XmClipboardLock(XEN arg1, XEN arg2) +static Xen gxm_XmClipboardLock(Xen arg1, Xen arg2) { #define H_XmClipboardLock "int XmClipboardLock (display, window) locks the clipboard" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardLock", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardLock", "Window"); - return(C_TO_XEN_INT(XmClipboardLock(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardLock", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardLock", "Window"); + return(C_int_to_Xen_integer(XmClipboardLock(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XmClipboardUndoCopy(XEN arg1, XEN arg2) +static Xen gxm_XmClipboardUndoCopy(Xen arg1, Xen arg2) { #define H_XmClipboardUndoCopy "int XmClipboardUndoCopy (display, window) deletes the last item placed on the clipboard" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardUndoCopy", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardUndoCopy", "Window"); - return(C_TO_XEN_INT(XmClipboardUndoCopy(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardUndoCopy", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardUndoCopy", "Window"); + return(C_int_to_Xen_integer(XmClipboardUndoCopy(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XmClipboardCopyByName(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XmClipboardCopyByName(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XmClipboardCopyByName "int XmClipboardCopyByName (display, window, data_id, buf, len, id) copies a data item passed by name" /* DIFF: XmClipboardCopyByName arg4 is string */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardCopyByName", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardCopyByName", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmClipboardCopyByName", "long"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XmClipboardCopyByName", "XtPointer"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XmClipboardCopyByName", "ulong"); - return(C_TO_XEN_INT(XmClipboardCopyByName(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3), - (XtPointer)XEN_TO_C_STRING(arg4), - XEN_TO_C_ULONG(arg5), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardCopyByName", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardCopyByName", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmClipboardCopyByName", "long"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XmClipboardCopyByName", "XtPointer"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XmClipboardCopyByName", "ulong"); + return(C_int_to_Xen_integer(XmClipboardCopyByName(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3), + (XtPointer)Xen_string_to_C_string(arg4), + Xen_ulong_to_C_ulong(arg5), (unsigned long)arg6))); } -static XEN gxm_XmClipboardWithdrawFormat(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardWithdrawFormat(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardWithdrawFormat "int XmClipboardWithdrawFormat (display, window, data_id) \ indicates that the application no longer wants to supply a data item" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardWithdrawFormat", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardWithdrawFormat", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmClipboardWithdrawFormat", "long"); - return(C_TO_XEN_INT(XmClipboardWithdrawFormat(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardWithdrawFormat", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardWithdrawFormat", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmClipboardWithdrawFormat", "long"); + return(C_int_to_Xen_integer(XmClipboardWithdrawFormat(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XmClipboardCancelCopy(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardCancelCopy(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardCancelCopy "int XmClipboardCancelCopy (display, window, item_id) cancels a copy to the clipboard" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardCancelCopy", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardCancelCopy", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmClipboardCancelCopy", "long"); - return(C_TO_XEN_INT(XmClipboardCancelCopy(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardCancelCopy", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardCancelCopy", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmClipboardCancelCopy", "long"); + return(C_int_to_Xen_integer(XmClipboardCancelCopy(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XmClipboardEndCopy(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmClipboardEndCopy(Xen arg1, Xen arg2, Xen arg3) { #define H_XmClipboardEndCopy "int XmClipboardEndCopy (display, window, item_id) completes the \ copying of data to the clipboard" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardEndCopy", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardEndCopy", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmClipboardEndCopy", "long"); - return(C_TO_XEN_INT(XmClipboardEndCopy(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardEndCopy", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardEndCopy", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmClipboardEndCopy", "long"); + return(C_int_to_Xen_integer(XmClipboardEndCopy(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XmClipboardCopy(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XmClipboardCopy(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XmClipboardCopy "int XmClipboardCopy (display, window, item_id, format_name, buffer, len, id) copies a data item \ to temporary storage for later copying to clipboard" @@ -6738,35 +6345,35 @@ to temporary storage for later copying to clipboard" */ long id; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardCopy", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardCopy", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmClipboardCopy", "long"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XmClipboardCopy", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg5), arg5, 5, "XmClipboardCopy", "XtPointer"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XmClipboardCopy", "ulong"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XmClipboardCopy", "long"); - val = XmClipboardCopy(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), (char *)XEN_TO_C_STRING(arg4), - (XtPointer)XEN_TO_C_STRING(arg5), XEN_TO_C_ULONG(arg6), - XEN_TO_C_INT(arg7), &id); - return(XEN_LIST_2(C_TO_XEN_INT(val), - C_TO_XEN_INT(id))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardCopy", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardCopy", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmClipboardCopy", "long"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XmClipboardCopy", "char*"); + Xen_check_type(Xen_is_string(arg5), arg5, 5, "XmClipboardCopy", "XtPointer"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XmClipboardCopy", "ulong"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XmClipboardCopy", "long"); + val = XmClipboardCopy(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), (char *)Xen_string_to_C_string(arg4), + (XtPointer)Xen_string_to_C_string(arg5), Xen_ulong_to_C_ulong(arg6), + Xen_integer_to_C_int(arg7), &id); + return(Xen_list_2(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(id))); } /* There's just one clipboard, I think, so these callbacks must be globals */ -static XEN xm_XmCutPasteProc; +static Xen xm_XmCutPasteProc; static void gxm_XmCutPasteProc(Widget w, long *data, long *privater, int *reason) { - XEN_CALL_4(xm_XmCutPasteProc, - C_TO_XEN_Widget(w), - C_TO_XEN_ULONG(*data), - C_TO_XEN_ULONG(*privater), - C_TO_XEN_INT(*reason), - c__FUNCTION__); + Xen_call_with_4_args(xm_XmCutPasteProc, + C_to_Xen_Widget(w), + C_ulong_to_Xen_ulong(*data), + C_ulong_to_Xen_ulong(*privater), + C_int_to_Xen_integer(*reason), + __func__); } -static XEN gxm_XmClipboardStartCopy(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XmClipboardStartCopy(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XmClipboardStartCopy "int XmClipboardStartCopy (display, window, clip_label, timestamp, widget, callback) \ sets up a storage and data structure, returns id" @@ -6774,175 +6381,175 @@ sets up a storage and data structure, returns id" */ long id; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardStartCopy", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardStartCopy", "Window"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg3), arg3, 3, "XmClipboardStartCopy", "XmString"); - XEN_ASSERT_TYPE(XEN_Time_P(arg4), arg4, 4, "XmClipboardStartCopy", "Time"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg5), arg5, 5, "XmClipboardStartCopy", "Widget"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg6) && (XEN_REQUIRED_ARGS_OK(arg6, 4)), arg6, 6, "XmClipboardStartCopy", "(XmCutPasteProc widget data priv reason)"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardStartCopy", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardStartCopy", "Window"); + Xen_check_type(Xen_is_XmString(arg3), arg3, 3, "XmClipboardStartCopy", "XmString"); + Xen_check_type(Xen_is_Time(arg4), arg4, 4, "XmClipboardStartCopy", "Time"); + Xen_check_type(Xen_is_Widget(arg5), arg5, 5, "XmClipboardStartCopy", "Widget"); + Xen_check_type(Xen_is_procedure(arg6) && (Xen_is_aritable(arg6, 4)), arg6, 6, "XmClipboardStartCopy", "(XmCutPasteProc widget data priv reason)"); xm_protect(arg6); - if (XEN_PROCEDURE_P(xm_XmCutPasteProc)) xm_unprotect(xm_XmCutPasteProc); + if (Xen_is_procedure(xm_XmCutPasteProc)) xm_unprotect(xm_XmCutPasteProc); xm_XmCutPasteProc = arg6; - val = XmClipboardStartCopy(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_XmString(arg3), - XEN_TO_C_Time(arg4), XEN_TO_C_Widget(arg5), (XmCutPasteProc)gxm_XmCutPasteProc, &id); - return(XEN_LIST_2(C_TO_XEN_INT(val), - C_TO_XEN_INT(id))); + val = XmClipboardStartCopy(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_XmString(arg3), + Xen_to_C_Time(arg4), Xen_to_C_Widget(arg5), (XmCutPasteProc)gxm_XmCutPasteProc, &id); + return(Xen_list_2(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(id))); } -static XEN xm_XmVoidProc; +static Xen xm_XmVoidProc; static void gxm_XmVoidProc(Widget w, int *data, int *privater, int *reason) { - XEN_CALL_4(xm_XmVoidProc, - C_TO_XEN_Widget(w), - C_TO_XEN_ULONG(*data), - C_TO_XEN_ULONG(*privater), - C_TO_XEN_INT(*reason), - c__FUNCTION__); + Xen_call_with_4_args(xm_XmVoidProc, + C_to_Xen_Widget(w), + C_ulong_to_Xen_ulong(*data), + C_ulong_to_Xen_ulong(*privater), + C_int_to_Xen_integer(*reason), + __func__); } -static XEN gxm_XmClipboardBeginCopy(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmClipboardBeginCopy(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmClipboardBeginCopy "int XmClipboardBeginCopy(display, window, XmString label, widget, callback)" /* DIFF: XmClipboardBeinCopy omits and returns last arg */ long id; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmClipboardBeginCopy", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XmClipboardBeginCopy", "Window"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg3), arg3, 3, "XmClipboardBeginCopy", "XmString"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg4), arg4, 4, "XmClipboardBeginCopy", "Widget"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg5) && (XEN_REQUIRED_ARGS_OK(arg5, 4)), arg5, 5, "XmClipboardBeginCopy", "(XmVoidProc widget data priv reason)"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmClipboardBeginCopy", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XmClipboardBeginCopy", "Window"); + Xen_check_type(Xen_is_XmString(arg3), arg3, 3, "XmClipboardBeginCopy", "XmString"); + Xen_check_type(Xen_is_Widget(arg4), arg4, 4, "XmClipboardBeginCopy", "Widget"); + Xen_check_type(Xen_is_procedure(arg5) && (Xen_is_aritable(arg5, 4)), arg5, 5, "XmClipboardBeginCopy", "(XmVoidProc widget data priv reason)"); xm_protect(arg5); - if (XEN_PROCEDURE_P(xm_XmVoidProc)) xm_unprotect(xm_XmVoidProc); + if (Xen_is_procedure(xm_XmVoidProc)) xm_unprotect(xm_XmVoidProc); xm_XmVoidProc = arg5; - val = XmClipboardBeginCopy(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_XmString(arg3), XEN_TO_C_Widget(arg4), + val = XmClipboardBeginCopy(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_to_C_XmString(arg3), Xen_to_C_Widget(arg4), gxm_XmVoidProc, &id); - return(XEN_LIST_2(C_TO_XEN_INT(val), - C_TO_XEN_INT(id))); + return(Xen_list_2(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(id))); } -#define XEN_ScaleWidget_P(Arg) (XEN_Widget_P(Arg) && XmIsScale(XEN_TO_C_Widget(Arg))) +#define Xen_is_ScaleWidget(Arg) (Xen_is_Widget(Arg) && XmIsScale(Xen_to_C_Widget(Arg))) -static XEN gxm_XmScaleSetTicks(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XmScaleSetTicks(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XmScaleSetTicks "void XmScaleSetTicks(Widget scale, int big_every, Cardinal num_medium, Cardinal num_small, Dimension size_big, \ Dimension size_medium, Dimension size_small) controls Scale tick marks" - XEN_ASSERT_TYPE(XEN_ScaleWidget_P(arg1), arg1, 1, "XmScaleSetTicks", "Scale Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmScaleSetTicks", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmScaleSetTicks", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XmScaleSetTicks", "int"); - XEN_ASSERT_TYPE(XEN_Dimension_P(arg5), arg5, 5, "XmScaleSetTicks", "Dimension"); - XEN_ASSERT_TYPE(XEN_Dimension_P(arg6), arg6, 6, "XmScaleSetTicks", "Dimension"); - XEN_ASSERT_TYPE(XEN_Dimension_P(arg7), arg7, 7, "XmScaleSetTicks", "Dimension"); - XmScaleSetTicks(XEN_TO_C_Widget(arg1), - XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), - XEN_TO_C_Dimension(arg5), XEN_TO_C_Dimension(arg6), XEN_TO_C_Dimension(arg7)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ScaleWidget(arg1), arg1, 1, "XmScaleSetTicks", "Scale Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmScaleSetTicks", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmScaleSetTicks", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XmScaleSetTicks", "int"); + Xen_check_type(Xen_is_Dimension(arg5), arg5, 5, "XmScaleSetTicks", "Dimension"); + Xen_check_type(Xen_is_Dimension(arg6), arg6, 6, "XmScaleSetTicks", "Dimension"); + Xen_check_type(Xen_is_Dimension(arg7), arg7, 7, "XmScaleSetTicks", "Dimension"); + XmScaleSetTicks(Xen_to_C_Widget(arg1), + Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), + Xen_to_C_Dimension(arg5), Xen_to_C_Dimension(arg6), Xen_to_C_Dimension(arg7)); + return(Xen_false); } -static XEN gxm_XmCreateScale(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateScale(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateScale "Widget XmCreateScale(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The Scale widget creation function" return(gxm_new_widget("XmCreateScale", XmCreateScale, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmScaleGetValue(XEN arg1) +static Xen gxm_XmScaleGetValue(Xen arg1) { #define H_XmScaleGetValue "void XmScaleGetValue(Widget widget): returns the current (scale) slider position" /* DIFF: XmScaleGetValue omits and returns arg2 */ int val; - XEN_ASSERT_TYPE(XEN_ScaleWidget_P(arg1), arg1, 1, "XmScaleGetValue", "Scale Widget"); - XmScaleGetValue(XEN_TO_C_Widget(arg1), &val); - return(C_TO_XEN_INT(val)); + Xen_check_type(Xen_is_ScaleWidget(arg1), arg1, 1, "XmScaleGetValue", "Scale Widget"); + XmScaleGetValue(Xen_to_C_Widget(arg1), &val); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XmScaleSetValue(XEN arg1, XEN arg2) +static Xen gxm_XmScaleSetValue(Xen arg1, Xen arg2) { #define H_XmScaleSetValue "void XmScaleSetValue(Widget widget, int value) sets a Scale slider value" - XEN_ASSERT_TYPE(XEN_ScaleWidget_P(arg1), arg1, 1, "XmScaleSetValue", "Scale Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmScaleSetValue", "int"); - XmScaleSetValue(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ScaleWidget(arg1), arg1, 1, "XmScaleSetValue", "Scale Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmScaleSetValue", "int"); + XmScaleSetValue(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -#define XEN_ContainerWidget_P(Arg) (XEN_Widget_P(Arg) && XmIsContainer(XEN_TO_C_Widget(Arg))) +#define Xen_is_ContainerWidget(Arg) (Xen_is_Widget(Arg) && XmIsContainer(Xen_to_C_Widget(Arg))) -static XEN gxm_XmContainerPasteLink(XEN arg1) +static Xen gxm_XmContainerPasteLink(Xen arg1) { #define H_XmContainerPasteLink "Boolean XmContainerPasteLink(Widget container) container function to insert links from the clipboard" - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerPasteLink", "Container Widget"); - return(C_TO_XEN_BOOLEAN(XmContainerPasteLink(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerPasteLink", "Container Widget"); + return(C_bool_to_Xen_boolean(XmContainerPasteLink(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmContainerCopyLink(XEN arg1, XEN arg2) +static Xen gxm_XmContainerCopyLink(Xen arg1, Xen arg2) { #define H_XmContainerCopyLink "Boolean XmContainerCopyLink(Widget container, Time timestamp) Container function to copy links to the clipboard" - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerCopyLink", "Container Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmContainerCopyLink", "Time"); - return(C_TO_XEN_BOOLEAN(XmContainerCopyLink(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerCopyLink", "Container Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmContainerCopyLink", "Time"); + return(C_bool_to_Xen_boolean(XmContainerCopyLink(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmContainerPaste(XEN arg1) +static Xen gxm_XmContainerPaste(Xen arg1) { #define H_XmContainerPaste "Boolean XmContainerPaste(Widget container) Container function to insert items from the clipboard" - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerPaste", "Container Widget"); - return(C_TO_XEN_BOOLEAN(XmContainerPaste(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerPaste", "Container Widget"); + return(C_bool_to_Xen_boolean(XmContainerPaste(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmContainerCopy(XEN arg1, XEN arg2) +static Xen gxm_XmContainerCopy(Xen arg1, Xen arg2) { #define H_XmContainerCopy "Boolean XmContainerCopy(Widget container, Time timestamp) Container function to copy primary selection to the clipboard" - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerCopy", "Container Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmContainerCopy", "Time"); - return(C_TO_XEN_BOOLEAN(XmContainerCopy(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerCopy", "Container Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmContainerCopy", "Time"); + return(C_bool_to_Xen_boolean(XmContainerCopy(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmContainerCut(XEN arg1, XEN arg2) +static Xen gxm_XmContainerCut(Xen arg1, Xen arg2) { #define H_XmContainerCut "Boolean XmContainerCut(Widget container, Time timestamp) Container function to move items to the clipboard" - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerCut", "Container Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XmContainerCut", "Time"); - return(C_TO_XEN_BOOLEAN(XmContainerCut(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerCut", "Container Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XmContainerCut", "Time"); + return(C_bool_to_Xen_boolean(XmContainerCut(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XmContainerReorder(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmContainerReorder(Xen arg1, Xen arg2, Xen arg3) { #define H_XmContainerReorder "void XmContainerReorder(Widget container, WidgetList widgets, int num_widgets) Container function to reorder children" /* DIFF: XmContainerReorder arg2 is list of Widgets */ int len; - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerReorder", "Container Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XmContainerReorder", "WidgetList"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmContainerReorder", "int"); - len = XEN_TO_C_INT(arg3); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerReorder", "Container Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmContainerReorder", "WidgetList"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmContainerReorder", "int"); + len = Xen_integer_to_C_int(arg3); if (len > 0) { - if (len > XEN_LIST_LENGTH(arg2)) - XEN_OUT_OF_RANGE_ERROR("XmContainerReorder", 3, arg3, "len too large"); + if (len > Xen_list_length(arg2)) + Xen_out_of_range_error("XmContainerReorder", 3, arg3, "len too large"); else { WidgetList ws; - ws = XEN_TO_C_Widgets(arg2, len); - XmContainerReorder(XEN_TO_C_Widget(arg1), ws, len); + ws = Xen_to_C_Widgets(arg2, len); + XmContainerReorder(Xen_to_C_Widget(arg1), ws, len); if (ws) free(ws); } } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmContainerRelayout(XEN arg1) +static Xen gxm_XmContainerRelayout(Xen arg1) { #define H_XmContainerRelayout "void XmContainerRelayout(Widget container) Container relayout function" - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerRelayout", "Container Widget"); - XmContainerRelayout(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerRelayout", "Container Widget"); + XmContainerRelayout(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmContainerGetItemChildren(XEN arg1, XEN arg2) +static Xen gxm_XmContainerGetItemChildren(Xen arg1, Xen arg2) { #define H_XmContainerGetItemChildren "int XmContainerGetItemChildren(Widget container, Widget item) \ returns a list of all children of an item" @@ -6950,253 +6557,253 @@ returns a list of all children of an item" */ Widget *ws; int len; - XEN_ASSERT_TYPE(XEN_ContainerWidget_P(arg1), arg1, 1, "XmContainerGetItemChildren", "Container Widget"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg2), arg2, 2, "XmContainerGetItemChildren", "Widget"); - len = XmContainerGetItemChildren(XEN_TO_C_Widget(arg1), XEN_TO_C_Widget(arg2), &ws); - return(C_TO_XEN_Widgets(ws, len)); + Xen_check_type(Xen_is_ContainerWidget(arg1), arg1, 1, "XmContainerGetItemChildren", "Container Widget"); + Xen_check_type(Xen_is_Widget(arg2), arg2, 2, "XmContainerGetItemChildren", "Widget"); + len = XmContainerGetItemChildren(Xen_to_C_Widget(arg1), Xen_to_C_Widget(arg2), &ws); + return(C_to_Xen_Widgets(ws, len)); } -static XEN gxm_XmCreateContainer(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateContainer(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateContainer "Widget XmCreateContainer(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The Container creation function" return(gxm_new_widget("XmCreateContainer", XmCreateContainer, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmGetTearOffControl(XEN arg1) +static Xen gxm_XmGetTearOffControl(Xen arg1) { #define H_XmGetTearOffControl "Widget XmGetTearOffControl(Widget menu) obtains the widget ID for the tear-off control in a menu" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmGetTearOffControl", "Widget"); - return(C_TO_XEN_Widget(XmGetTearOffControl(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmGetTearOffControl", "Widget"); + return(C_to_Xen_Widget(XmGetTearOffControl(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmGetPostedFromWidget(XEN arg1) +static Xen gxm_XmGetPostedFromWidget(Xen arg1) { #define H_XmGetPostedFromWidget "Widget XmGetPostedFromWidget(Widget menu): returns the widget from which a menu was posted" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmGetPostedFromWidget", "Widget"); - return(C_TO_XEN_Widget(XmGetPostedFromWidget(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmGetPostedFromWidget", "Widget"); + return(C_to_Xen_Widget(XmGetPostedFromWidget(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmCreatePulldownMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreatePulldownMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreatePulldownMenu "Widget XmCreatePulldownMenu(Widget parent, String name, ArgList arglist, Cardinal argcount) \ A RowColumn widget creation function" return(gxm_new_widget("XmCreatePulldownMenu", XmCreatePulldownMenu, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreatePopupMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreatePopupMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreatePopupMenu "Widget XmCreatePopupMenu(Widget parent, String name, ArgList arglist, Cardinal argcount) \ A RowColumn widget creation function" return(gxm_new_widget("XmCreatePopupMenu", XmCreatePopupMenu, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateMenuBar(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateMenuBar(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateMenuBar "Widget XmCreateMenuBar(Widget parent, String name, ArgList arglist, Cardinal argcount) \ A RowColumn widget creation function" return(gxm_new_widget("XmCreateMenuBar", XmCreateMenuBar, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmOptionButtonGadget(XEN arg1) +static Xen gxm_XmOptionButtonGadget(Xen arg1) { #define H_XmOptionButtonGadget "Widget XmOptionButtonGadget(Widget option_menu) obtains \ the widget ID for the CascadeButtonGadget in an OptionMenu" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmOptionButtonGadget", "Widget"); - return(C_TO_XEN_Widget(XmOptionButtonGadget(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmOptionButtonGadget", "Widget"); + return(C_to_Xen_Widget(XmOptionButtonGadget(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmOptionLabelGadget(XEN arg1) +static Xen gxm_XmOptionLabelGadget(Xen arg1) { #define H_XmOptionLabelGadget "Widget XmOptionLabelGadget(Widget option_menu) obtains the \ widget ID for the LabelGadget in an OptionMenu" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmOptionLabelGadget", "Widget"); - return(C_TO_XEN_Widget(XmOptionLabelGadget(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmOptionLabelGadget", "Widget"); + return(C_to_Xen_Widget(XmOptionLabelGadget(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XmCreateOptionMenu(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateOptionMenu(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateOptionMenu "Widget XmCreateOptionMenu(Widget parent, String name, ArgList arglist, Cardinal argcount) \ A RowColumn widget creation function" return(gxm_new_widget("XmCreateOptionMenu", XmCreateOptionMenu, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateRadioBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateRadioBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateRadioBox "Widget XmCreateRadioBox(Widget parent, String name, ArgList arglist, Cardinal argcount) \ A RowColumn widget creation function" return(gxm_new_widget("XmCreateRadioBox", XmCreateRadioBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateWorkArea(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateWorkArea(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateWorkArea "Widget XmCreateWorkArea(Widget parent, String name, ArgList arglist, Cardinal argcount) \ creates a RowColumn WorkArea" return(gxm_new_widget("XmCreateWorkArea", XmCreateWorkArea, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateRowColumn(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateRowColumn(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateRowColumn "Widget XmCreateRowColumn(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The RowColumn widget creation function" return(gxm_new_widget("XmCreateRowColumn", XmCreateRowColumn, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmMenuPosition(XEN arg1, XEN arg2) +static Xen gxm_XmMenuPosition(Xen arg1, Xen arg2) { #define H_XmMenuPosition "void XmMenuPosition(Widget menu, XButtonPressedEvent *event) positions a Popup menu pane" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmMenuPosition", "Widget"); - XEN_ASSERT_TYPE(XEN_XButtonEvent_P(arg2), arg2, 2, "XmMenuPosition", "XButtonPressedEvent*"); - XmMenuPosition(XEN_TO_C_Widget(arg1), XEN_TO_C_XButtonEvent(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmMenuPosition", "Widget"); + Xen_check_type(Xen_is_XButtonEvent(arg2), arg2, 2, "XmMenuPosition", "XButtonPressedEvent*"); + XmMenuPosition(Xen_to_C_Widget(arg1), Xen_to_C_XButtonEvent(arg2)); + return(Xen_false); } -static XEN gxm_XmCreateCommandDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateCommandDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateCommandDialog "Widget XmCreateCommandDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The Command CommandDialog creation function" return(gxm_new_widget("XmCreateCommandDialog", XmCreateCommandDialog, arg1, arg2, arg3, arg4)); } -#define XEN_CommandWidget_P(Arg) (XEN_Widget_P(Arg) && XmIsCommand(XEN_TO_C_Widget(Arg))) +#define Xen_is_CommandWidget(Arg) (Xen_is_Widget(Arg) && XmIsCommand(Xen_to_C_Widget(Arg))) -static XEN gxm_XmCommandError(XEN arg1, XEN arg2) +static Xen gxm_XmCommandError(Xen arg1, Xen arg2) { #define H_XmCommandError "void XmCommandError(Widget widget, XmString error) Command function that displays an error message" - XEN_ASSERT_TYPE(XEN_CommandWidget_P(arg1), arg1, 1, "XmCommandError", "Command Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmCommandError", "XmString"); - XmCommandError(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_CommandWidget(arg1), arg1, 1, "XmCommandError", "Command Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmCommandError", "XmString"); + XmCommandError(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmCommandAppendValue(XEN arg1, XEN arg2) +static Xen gxm_XmCommandAppendValue(Xen arg1, Xen arg2) { #define H_XmCommandAppendValue "void XmCommandAppendValue(Widget widget, XmString command) \ appends the passed XmString to the end of the string displayed in the command area of the widget" - XEN_ASSERT_TYPE(XEN_CommandWidget_P(arg1), arg1, 1, "XmCommandAppendValue", "Command Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmCommandAppendValue", "XmString"); - XmCommandAppendValue(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_CommandWidget(arg1), arg1, 1, "XmCommandAppendValue", "Command Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmCommandAppendValue", "XmString"); + XmCommandAppendValue(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmCommandSetValue(XEN arg1, XEN arg2) +static Xen gxm_XmCommandSetValue(Xen arg1, Xen arg2) { #define H_XmCommandSetValue "void XmCommandSetValue(Widget widget, XmString command) A Command function that replaces a displayed string" - XEN_ASSERT_TYPE(XEN_CommandWidget_P(arg1), arg1, 1, "XmCommandSetValue", "Command Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmCommandSetValue", "XmString"); - XmCommandSetValue(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_CommandWidget(arg1), arg1, 1, "XmCommandSetValue", "Command Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmCommandSetValue", "XmString"); + XmCommandSetValue(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmCommandGetChild(XEN arg1, XEN arg2) +static Xen gxm_XmCommandGetChild(Xen arg1, Xen arg2) { #define H_XmCommandGetChild "Widget XmCommandGetChild(Widget widget, unsigned char child) A Command function that is used to access a component" - XEN_ASSERT_TYPE(XEN_CommandWidget_P(arg1), arg1, 1, "XmCommandGetChild", "Command Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XmCommandGetChild", "unsigned int"); - return(C_TO_XEN_Widget(XmCommandGetChild(XEN_TO_C_Widget(arg1), XEN_TO_C_ULONG(arg2)))); + Xen_check_type(Xen_is_CommandWidget(arg1), arg1, 1, "XmCommandGetChild", "Command Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XmCommandGetChild", "unsigned int"); + return(C_to_Xen_Widget(XmCommandGetChild(Xen_to_C_Widget(arg1), Xen_ulong_to_C_ulong(arg2)))); } -static XEN gxm_XmCreateCommand(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateCommand(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateCommand "Widget XmCreateCommand(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The Command widget creation function" return(gxm_new_widget("XmCreateCommand", XmCreateCommand, arg1, arg2, arg3, arg4)); } -#define XEN_ComboBoxWidget_P(Arg) (XEN_Widget_P(Arg) && XmIsComboBox(XEN_TO_C_Widget(Arg))) +#define Xen_is_ComboBoxWidget(Arg) (Xen_is_Widget(Arg) && XmIsComboBox(Xen_to_C_Widget(Arg))) -static XEN gxm_XmComboBoxUpdate(XEN arg1) +static Xen gxm_XmComboBoxUpdate(Xen arg1) { #define H_XmComboBoxUpdate "void XmComboBoxUpdate(Widget widget) A ComboBox function that resynchronizes data" - XEN_ASSERT_TYPE(XEN_ComboBoxWidget_P(arg1), arg1, 1, "XmComboBoxUpdate", "ComboBox Widget"); - XmComboBoxUpdate(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ComboBoxWidget(arg1), arg1, 1, "XmComboBoxUpdate", "ComboBox Widget"); + XmComboBoxUpdate(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XmComboBoxSetItem(XEN arg1, XEN arg2) +static Xen gxm_XmComboBoxSetItem(Xen arg1, Xen arg2) { #define H_XmComboBoxSetItem "void XmComboBoxSetItem(Widget w, XmString item) set an item in the XmComboBox list" - XEN_ASSERT_TYPE(XEN_ComboBoxWidget_P(arg1), arg1, 1, "XmComboBoxSetItem", "ComboBox Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmComboBoxSetItem", "XmString"); - XmComboBoxSetItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ComboBoxWidget(arg1), arg1, 1, "XmComboBoxSetItem", "ComboBox Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmComboBoxSetItem", "XmString"); + XmComboBoxSetItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmComboBoxSelectItem(XEN arg1, XEN arg2) +static Xen gxm_XmComboBoxSelectItem(Xen arg1, Xen arg2) { #define H_XmComboBoxSelectItem "void XmComboBoxSelectItem(Widget w, XmString item) select a XmComboBox item" - XEN_ASSERT_TYPE(XEN_ComboBoxWidget_P(arg1), arg1, 1, "XmComboBoxSelectItem", "ComboBox Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmComboBoxSelectItem", "XmString"); - XmComboBoxSelectItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ComboBoxWidget(arg1), arg1, 1, "XmComboBoxSelectItem", "ComboBox Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmComboBoxSelectItem", "XmString"); + XmComboBoxSelectItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2)); + return(Xen_false); } -static XEN gxm_XmComboBoxDeletePos(XEN arg1, XEN arg2) +static Xen gxm_XmComboBoxDeletePos(Xen arg1, Xen arg2) { #define H_XmComboBoxDeletePos "void XmComboBoxDeletePos(Widget w, int pos) Delete a XmComboBox item" - XEN_ASSERT_TYPE(XEN_ComboBoxWidget_P(arg1), arg1, 1, "XmComboBoxDeletePos", "ComboBox Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmComboBoxDeletePos", "int"); - XmComboBoxDeletePos(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ComboBoxWidget(arg1), arg1, 1, "XmComboBoxDeletePos", "ComboBox Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmComboBoxDeletePos", "int"); + XmComboBoxDeletePos(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XmComboBoxAddItem(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmComboBoxAddItem(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmComboBoxAddItem "void XmComboBoxAddItem(Widget w, XmString item, int pos, Boolean unique) add an item to the ComboBox widget" - XEN_ASSERT_TYPE(XEN_ComboBoxWidget_P(arg1), arg1, 1, "XmComboBoxAddItem", "ComboBox Widget"); - XEN_ASSERT_TYPE(XEN_XmString_P(arg2), arg2, 2, "XmComboBoxAddItem", "XmString"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XmComboBoxAddItem", "int"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg4), arg4, 4, "XmComboBoxAddItem", "Boolean"); - XmComboBoxAddItem(XEN_TO_C_Widget(arg1), XEN_TO_C_XmString(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_BOOLEAN(arg4)); - return(XEN_FALSE); + Xen_check_type(Xen_is_ComboBoxWidget(arg1), arg1, 1, "XmComboBoxAddItem", "ComboBox Widget"); + Xen_check_type(Xen_is_XmString(arg2), arg2, 2, "XmComboBoxAddItem", "XmString"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XmComboBoxAddItem", "int"); + Xen_check_type(Xen_is_boolean(arg4), arg4, 4, "XmComboBoxAddItem", "Boolean"); + XmComboBoxAddItem(Xen_to_C_Widget(arg1), Xen_to_C_XmString(arg2), Xen_integer_to_C_int(arg3), Xen_boolean_to_C_bool(arg4)); + return(Xen_false); } -static XEN gxm_XmCreateDropDownList(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateDropDownList(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateDropDownList "Widget XmCreateDropDownList(Widget parent, String name, ArgList arglist, Cardinal arg_count) \ The Drop-down list ComboBox widget creation function" return(gxm_new_widget("XmCreateDropDownList", XmCreateDropDownList, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateDropDownComboBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateDropDownComboBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateDropDownComboBox "Widget XmCreateDropDownComboBox(Widget parent, String name, ArgList arglist, Cardinal arg_count) \ The Drop-down ComboBox widget creation function" return(gxm_new_widget("XmCreateDropDownComboBox", XmCreateDropDownComboBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateComboBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateComboBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateComboBox "Widget XmCreateComboBox(Widget parent, String name, ArgList arglist, Cardinal arg_count) \ The default ComboBox widget creation function" return(gxm_new_widget("XmCreateComboBox", XmCreateComboBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreatePushButton(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreatePushButton(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreatePushButton "Widget XmCreatePushButton(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The PushButton widget creation function" return(gxm_new_widget("XmCreatePushButton", XmCreatePushButton, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreatePushButtonGadget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreatePushButtonGadget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreatePushButtonGadget "Widget XmCreatePushButtonGadget(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The PushButtonGadget creation function" return(gxm_new_widget("XmCreatePushButtonGadget", XmCreatePushButtonGadget, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCascadeButtonHighlight(XEN arg1, XEN arg2) +static Xen gxm_XmCascadeButtonHighlight(Xen arg1, Xen arg2) { #define H_XmCascadeButtonHighlight "void XmCascadeButtonHighlight(Widget cascadeButton, Boolean highlight) A CascadeButton and \ CascadeButtonGadget function that sets the highlight state" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmCascadeButtonHighlight", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmCascadeButtonHighlight", "boolean"); - XmCascadeButtonHighlight(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmCascadeButtonHighlight", "Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmCascadeButtonHighlight", "boolean"); + XmCascadeButtonHighlight(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XmCreateCascadeButton(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateCascadeButton(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateCascadeButton "Widget XmCreateCascadeButton(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The CascadeButton widget creation function" @@ -7205,118 +6812,197 @@ The CascadeButton widget creation function" static void gxm_ProtocolProc(Widget w, XtPointer context, XtPointer info) { - XEN descr = (XEN)context; - XEN_CALL_3(XEN_CADR(descr), - C_TO_XEN_Widget(w), - XEN_CADDR(descr), - XEN_WRAP_C_POINTER(info), /* what's this? */ - c__FUNCTION__); + Xen descr = (Xen)context; + Xen_call_with_3_args(Xen_cadr(descr), + C_to_Xen_Widget(w), + Xen_caddr(descr), + Xen_wrap_C_pointer(info), /* what's this? */ + __func__); } -#define C_TO_XEN_XM_ProtocolHook(Code, Context, PropertyAtom, ProtocolAtom) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("ProtocolHook"), Code, Context, PropertyAtom, ProtocolAtom) -/* #define XM_ProtocolHook_P(Arg) WRAP_P("ProtocolHook", Arg) */ +#define C_to_Xen_XM_ProtocolHook(Code, Context, PropertyAtom, ProtocolAtom) \ + Xen_list_5(C_string_to_Xen_symbol("ProtocolHook"), Code, Context, PropertyAtom, ProtocolAtom) +/* #define XM_ProtocolHook_P(Arg) is_wrapped("ProtocolHook", Arg) */ -#define C_TO_XEN_XM_ProtocolProc(Code, Context, PropertyAtom, ProtocolAtom) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("ProtocolProc"), Code, Context, PropertyAtom, ProtocolAtom) -#define XM_ProtocolProc_P(Arg) WRAP_P("ProtocolProc", Arg) +#define C_to_Xen_XM_ProtocolProc(Code, Context, PropertyAtom, ProtocolAtom) \ + Xen_list_5(C_string_to_Xen_symbol("ProtocolProc"), Code, Context, PropertyAtom, ProtocolAtom) +#define XM_is_ProtocolProc(Arg) is_wrapped("ProtocolProc", Arg) -static XEN gxm_XmSetProtocolHooks(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XmSetProtocolHooks(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XmSetProtocolHooks "void XmSetProtocolHooks(Widget shell, Atom property, Atom protocol, XtCallbackProc prehook, \ XtPointer pre_closure, XtCallbackProc posthook, XtPointer post_closure) A VendorShell function that allows preactions and postactions \ to be executed when a protocol message is received from MWM" - XEN descr1, descr2; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmSetProtocolHooks", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmSetProtocolHooks", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XmSetProtocolHooks", "Atom"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 3)), arg4, 4, "XmSetProtocolHooks", "(XtCallbackProc widget data callb)"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg6) && (XEN_REQUIRED_ARGS_OK(arg6, 3)), arg6, 6, "XmSetProtocolHooks", "(XtCallbackProc widget data callb)"); - descr1 = C_TO_XEN_XM_ProtocolHook(arg4, arg5, arg2, arg3); - descr2 = C_TO_XEN_XM_ProtocolHook(arg6, arg7, arg2, arg3); + Xen descr1, descr2; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmSetProtocolHooks", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmSetProtocolHooks", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XmSetProtocolHooks", "Atom"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 3)), arg4, 4, "XmSetProtocolHooks", "(XtCallbackProc widget data callb)"); + Xen_check_type(Xen_is_procedure(arg6) && (Xen_is_aritable(arg6, 3)), arg6, 6, "XmSetProtocolHooks", "(XtCallbackProc widget data callb)"); + descr1 = C_to_Xen_XM_ProtocolHook(arg4, arg5, arg2, arg3); + descr2 = C_to_Xen_XM_ProtocolHook(arg6, arg7, arg2, arg3); xm_protect(descr1); xm_protect(descr2); - XmSetProtocolHooks(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), XEN_TO_C_Atom(arg3), + XmSetProtocolHooks(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), Xen_to_C_Atom(arg3), gxm_ProtocolProc, (XtPointer)descr1, gxm_ProtocolProc, (XtPointer)descr2); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmDeactivateProtocol(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmSetWMProtocolHooks(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) +{ + #define H_XmSetWMProtocolHooks "void XmSetWMProtocolHooks(Widget shell, Atom property, XtCallbackProc prehook, \ +XtPointer pre_closure, XtCallbackProc posthook, XtPointer post_closure) A VendorShell function that allows preactions and postactions \ +to be executed when a protocol message is received from MWM" + Xen descr1, descr2, wm_atom; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmSetWMProtocolHooks", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmSetWMProtocolHooks", "Atom"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 3)), arg3, 3, "XmSetWMProtocolHooks", "(XtCallbackProc widget data callb)"); + Xen_check_type(Xen_is_procedure(arg5) && (Xen_is_aritable(arg5, 3)), arg5, 5, "XmSetWMProtocolHooks", "(XtCallbackProc widget data callb)"); + wm_atom = C_to_Xen_Atom(XInternAtom(XtDisplay(Xen_to_C_Widget(arg1)), "WM_PROTOCOLS", false)); + descr1 = C_to_Xen_XM_ProtocolHook(arg3, arg4, arg2, wm_atom); + descr2 = C_to_Xen_XM_ProtocolHook(arg5, arg6, arg2, wm_atom); + xm_protect(descr1); + xm_protect(descr2); + XmSetWMProtocolHooks(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), + gxm_ProtocolProc, (XtPointer)descr1, + gxm_ProtocolProc, (XtPointer)descr2); + return(Xen_false); +} + +static Xen gxm_XmDeactivateProtocol(Xen arg1, Xen arg2, Xen arg3) { #define H_XmDeactivateProtocol "void XmDeactivateProtocol(Widget shell, Atom property, Atom protocol) \ deactivates a protocol without removing it" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmDeactivateProtocol", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmDeactivateProtocol", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XmDeactivateProtocol", "Atom"); - XmDeactivateProtocol(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), XEN_TO_C_Atom(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDeactivateProtocol", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmDeactivateProtocol", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XmDeactivateProtocol", "Atom"); + XmDeactivateProtocol(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), Xen_to_C_Atom(arg3)); + return(Xen_false); +} + +static Xen gxm_XmDeactivateWMProtocol(Xen arg1, Xen arg2) +{ + #define H_XmDeactivateWMProtocol "void XmDeactivateWMProtocol(Widget shell, Atom property) \ +deactivates a property in WM_PROTOCOLS without removing it" + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmDeactivateProtocol", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmDeactivateProtocol", "Atom"); + XmDeactivateWMProtocol(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2)); + return(Xen_false); } -static XEN gxm_XmActivateProtocol(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmActivateProtocol(Xen arg1, Xen arg2, Xen arg3) { #define H_XmActivateProtocol "oid XmActivateProtocol(Widget shell, Atom property, Atom protocol) activates a protocol" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmActivateProtocol", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmActivateProtocol", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XmActivateProtocol", "Atom"); - XmActivateProtocol(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), XEN_TO_C_Atom(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmActivateProtocol", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmActivateProtocol", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XmActivateProtocol", "Atom"); + XmActivateProtocol(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), Xen_to_C_Atom(arg3)); + return(Xen_false); +} + +static Xen gxm_XmActivateWMProtocol(Xen arg1, Xen arg2) +{ + #define H_XmActivateWMProtocol "oid XmActivateWMProtocol(Widget shell, Atom property) activates a property in the WM_PROTOCOLS" + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmActivateProtocol", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmActivateProtocol", "Atom"); + XmActivateWMProtocol(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2)); + return(Xen_false); } -static bool unprotect_protocolproc(XEN val, int loc, unsigned long udescr) +static bool unprotect_protocolproc(Xen val, int loc, unsigned long udescr) { - XEN descr = (XEN)udescr; /* ('protocolproc func data propatom protoatom) */ - return((XM_ProtocolProc_P(val)) && - (XEN_TO_C_ULONG(XEN_CADR(val)) == XEN_TO_C_ULONG(XEN_CADR(descr))) && - (XEN_TO_C_ULONG(XEN_CADDR(val)) == XEN_TO_C_ULONG(XEN_CADDR(descr))) && - (XEN_TO_C_Atom(XEN_LIST_REF(val, 3)) == XEN_TO_C_Atom(XEN_LIST_REF(val,3))) && - (XEN_TO_C_Atom(XEN_LIST_REF(val, 4)) == XEN_TO_C_Atom(XEN_LIST_REF(val,4)))); + Xen descr = (Xen)udescr; /* ('protocolproc func data propatom protoatom) */ + return((XM_is_ProtocolProc(val)) && + (Xen_ulong_to_C_ulong(Xen_cadr(val)) == Xen_ulong_to_C_ulong(Xen_cadr(descr))) && + (Xen_ulong_to_C_ulong(Xen_caddr(val)) == Xen_ulong_to_C_ulong(Xen_caddr(descr))) && + (Xen_to_C_Atom(Xen_list_ref(val, 3)) == Xen_to_C_Atom(Xen_list_ref(val,3))) && + (Xen_to_C_Atom(Xen_list_ref(val, 4)) == Xen_to_C_Atom(Xen_list_ref(val,4)))); } -static XEN gxm_XmRemoveProtocolCallback(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmRemoveProtocolCallback(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmRemoveProtocolCallback "void XmRemoveProtocolCallback(Widget shell, Atom property, Atom protocol, XtCallbackProc callback, \ XtPointer closure) removes a callback from the internal list" - XEN descr; + Xen descr; int loc, dloc; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmRemoveProtocolCallback", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmRemoveProtocolCallback", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XmRemoveProtocolCallback", "Atom"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 3)), arg4, 4, "XmRemoveProtocolCallback", "XtCallbackProc (3 args)"); - descr = C_TO_XEN_XM_ProtocolProc(arg4, arg5, arg2, arg3); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmRemoveProtocolCallback", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmRemoveProtocolCallback", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XmRemoveProtocolCallback", "Atom"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 3)), arg4, 4, "XmRemoveProtocolCallback", "XtCallbackProc (3 args)"); + descr = C_to_Xen_XM_ProtocolProc(arg4, arg5, arg2, arg3); dloc = xm_protect(descr); loc = map_over_protected_elements(unprotect_protocolproc, (unsigned long)descr); - XmRemoveProtocolCallback(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), - XEN_TO_C_Atom(arg3), + XmRemoveProtocolCallback(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), + Xen_to_C_Atom(arg3), gxm_ProtocolProc, - (XtPointer)(XEN_VECTOR_REF(xm_protected, loc))); /* this was the original tag passed in */ + (XtPointer)(Xen_vector_ref(xm_protected, loc))); /* this was the original tag passed in */ /* now unprotect the proc and our descr */ xm_unprotect_at(dloc); xm_unprotect_at(loc); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmAddProtocolCallback(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XmRemoveWMProtocolCallback(Xen arg1, Xen arg2, Xen arg3, Xen arg4) +{ + #define H_XmRemoveWMProtocolCallback "void XmRemoveWMProtocolCallback(Widget shell, Atom property, XtCallbackProc callback, \ +XtPointer closure) removes a callback from the WM_PROTOCOLS list" + Xen descr; + int loc, dloc; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmRemoveWMProtocolCallback", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmRemoveWMProtocolCallback", "Atom"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 3)), arg3, 3, "XmRemoveWMProtocolCallback", "XtCallbackProc (3 args)"); + descr = C_to_Xen_XM_ProtocolProc(arg3, arg4, arg2, C_to_Xen_Atom(XInternAtom(XtDisplay(Xen_to_C_Widget(arg1)), "WM_PROTOCOLS", false))); + dloc = xm_protect(descr); + loc = map_over_protected_elements(unprotect_protocolproc, (unsigned long)descr); + XmRemoveWMProtocolCallback(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), + gxm_ProtocolProc, + (XtPointer)(Xen_vector_ref(xm_protected, loc))); /* this was the original tag passed in */ + /* now unprotect the proc and our descr */ + xm_unprotect_at(dloc); + xm_unprotect_at(loc); + return(Xen_false); +} + +static Xen gxm_XmAddProtocolCallback(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XmAddProtocolCallback "void XmAddProtocolCallback(Widget shell, Atom property, Atom protocol, XtCallbackProc callback, \ XtPointer closure) adds client callbacks for a protocol" - XEN descr; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmAddProtocolCallback", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmAddProtocolCallback", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XmAddProtocolCallback", "Atom"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 3)), arg4, 4, "XmAddProtocolCallback", "(XtCallbackProc widget data callb)"); - descr = C_TO_XEN_XM_ProtocolProc(arg4, arg5, arg2, arg3); + Xen descr; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmAddProtocolCallback", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmAddProtocolCallback", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XmAddProtocolCallback", "Atom"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 3)), arg4, 4, "XmAddProtocolCallback", "(XtCallbackProc widget data callb)"); + descr = C_to_Xen_XM_ProtocolProc(arg4, arg5, arg2, arg3); xm_protect(descr); - XmAddProtocolCallback(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), - XEN_TO_C_Atom(arg3), + XmAddProtocolCallback(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), + Xen_to_C_Atom(arg3), gxm_ProtocolProc, (XtPointer)descr); - return(XEN_FALSE); + return(Xen_false); +} + +static Xen gxm_XmAddWMProtocolCallback(Xen arg1, Xen arg2, Xen arg3, Xen arg4) +{ + #define H_XmAddWMProtocolCallback "void XmAddWMProtocolCallback(Widget shell, Atom property, XtCallbackProc callback, \ +XtPointer closure) adds client callbacks for the WM_PROTOCOLS" + Xen descr; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmAddWMProtocolCallback", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmAddWMProtocolCallback", "Atom"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 3)), arg3, 3, "XmAddWMProtocolCallback", "(XtCallbackProc widget data callb)"); + descr = C_to_Xen_XM_ProtocolProc(arg3, arg4, arg2, C_to_Xen_Atom(XInternAtom(XtDisplay(Xen_to_C_Widget(arg1)), "WM_PROTOCOLS", false))); + xm_protect(descr); + XmAddWMProtocolCallback(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), + gxm_ProtocolProc, + (XtPointer)descr); + return(Xen_false); } -static XEN gxm_XmRemoveProtocols(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmRemoveProtocols(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmRemoveProtocols "void XmRemoveProtocols(Widget shell, Atom property, Atom *protocols, Cardinal num_protocols) \ removes the protocols from the protocol manager and deallocates the internal tables" @@ -7324,19 +7010,36 @@ removes the protocols from the protocol manager and deallocates the internal tab */ Atom *outs; int len; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmRemoveProtocols", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmRemoveProtocols", "Atom"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XmRemoveProtocols", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, "XmRemoveProtocols", "int"); - if (XEN_INTEGER_P(arg4)) len = XEN_TO_C_INT(arg4); else len = XEN_LIST_LENGTH(arg3); - if (len <= 0) return(XEN_FALSE); - outs = XEN_TO_C_Atoms(arg3, len); - XmRemoveProtocols(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), outs, len); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmRemoveProtocols", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmRemoveProtocols", "Atom"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XmRemoveProtocols", "list of Atom"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, "XmRemoveProtocols", "int"); + if (Xen_is_integer(arg4)) len = Xen_integer_to_C_int(arg4); else len = Xen_list_length(arg3); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg3, len); + XmRemoveProtocols(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), outs, len); free(outs); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmAddProtocols(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmRemoveWMProtocols(Xen arg1, Xen arg2, Xen arg3) +{ + #define H_XmRemoveWMProtocols "void XmRemoveWMProtocols(Widget shell, Atom *protocols, Cardinal num_protocols) \ +removes the protocols from WM_PROTOCOLS" + Atom *outs; + int len; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmRemoveWMProtocols", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmRemoveWMProtocols", "list of Atom"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmRemoveWMProtocols", "int"); + if (Xen_is_integer(arg3)) len = Xen_integer_to_C_int(arg3); else len = Xen_list_length(arg2); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg2, len); + XmRemoveWMProtocols(Xen_to_C_Widget(arg1), outs, len); + free(outs); + return(Xen_false); +} + +static Xen gxm_XmAddProtocols(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmAddProtocols "void XmAddProtocols(Widget shell, Atom property, Atom *protocols, Cardinal num_protocols) \ adds the protocols to the protocol manager and allocates the internal tables" @@ -7344,514 +7047,531 @@ adds the protocols to the protocol manager and allocates the internal tables" */ Atom *outs; int len; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmAddProtocols", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmAddProtocols", "Atom"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XmAddProtocols", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, "XmAddProtocols", "int"); - if (XEN_INTEGER_P(arg4)) len = XEN_TO_C_INT(arg4); else len = XEN_LIST_LENGTH(arg3); - if (len <= 0) return(XEN_FALSE); - outs = XEN_TO_C_Atoms(arg3, len); - XmAddProtocols(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), outs, len); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmAddProtocols", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmAddProtocols", "Atom"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XmAddProtocols", "list of Atom"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, "XmAddProtocols", "int"); + if (Xen_is_integer(arg4)) len = Xen_integer_to_C_int(arg4); else len = Xen_list_length(arg3); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg3, len); + XmAddProtocols(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), outs, len); + free(outs); + return(Xen_false); +} + +static Xen gxm_XmAddWMProtocols(Xen arg1, Xen arg2, Xen arg3) +{ + #define H_XmAddWMProtocols "void XmAddWMProtocols(Widget shell, Atom *protocols, Cardinal num_protocols) \ +adds the protocols to WM_PROTOCOLS" + Atom *outs; + int len; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmAddWMProtocols", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XmAddWMProtocols", "list of Atom"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XmAddWMProtocols", "int"); + if (Xen_is_integer(arg3)) len = Xen_integer_to_C_int(arg3); else len = Xen_list_length(arg2); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg2, len); + XmAddWMProtocols(Xen_to_C_Widget(arg1), outs, len); free(outs); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XmCascadeButtonGadgetHighlight(XEN arg1, XEN arg2) +static Xen gxm_XmCascadeButtonGadgetHighlight(Xen arg1, Xen arg2) { #define H_XmCascadeButtonGadgetHighlight "void XmCascadeButtonGadgetHighlight(Widget cascadeButtonGadget, Boolean highlight) \ A CascadeButtonGadget function that sets the highlight state" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmCascadeButtonGadgetHighlight", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XmCascadeButtonGadgetHighlight", "boolean"); - XmCascadeButtonGadgetHighlight(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmCascadeButtonGadgetHighlight", "Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XmCascadeButtonGadgetHighlight", "boolean"); + XmCascadeButtonGadgetHighlight(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XmCreateCascadeButtonGadget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateCascadeButtonGadget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateCascadeButtonGadget "Widget XmCreateCascadeButtonGadget(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The CascadeButtonGadget creation function" return(gxm_new_widget("XmCreateCascadeButtonGadget", XmCreateCascadeButtonGadget, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateBulletinBoardDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateBulletinBoardDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateBulletinBoardDialog "Widget XmCreateBulletinBoardDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The BulletinBoard BulletinBoardDialog creation function" return(gxm_new_widget("XmCreateBulletinBoardDialog", XmCreateBulletinBoardDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateBulletinBoard(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateBulletinBoard(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateBulletinBoard "Widget XmCreateBulletinBoard(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The BulletinBoard widget creation function" return(gxm_new_widget("XmCreateBulletinBoard", XmCreateBulletinBoard, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreatePanedWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreatePanedWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreatePanedWindow "Widget XmCreatePanedWindow(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The PanedWindow widget creation function" return(gxm_new_widget("XmCreatePanedWindow", XmCreatePanedWindow, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmGetAtomName(XEN arg1, XEN arg2) +static Xen gxm_XmGetAtomName(Xen arg1, Xen arg2) { char *str; - XEN res; + Xen res; #define H_XmGetAtomName "String XmGetAtomName(Display *display, Atom atom) returns the string representation for an atom" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmGetAtomName", "Display*"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XmGetAtomName", "Atom"); - str = XmGetAtomName(XEN_TO_C_Display(arg1), XEN_TO_C_Atom(arg2)); - res = C_TO_XEN_STRING(str); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmGetAtomName", "Display*"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XmGetAtomName", "Atom"); + str = XmGetAtomName(Xen_to_C_Display(arg1), Xen_to_C_Atom(arg2)); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XmInternAtom(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XmInternAtom(Xen arg1, Xen arg2, Xen arg3) { #define H_XmInternAtom "A macro that returns an atom for a given name" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XmInternAtom", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XmInternAtom", "String"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XmInternAtom", "Boolean"); - return(C_TO_XEN_Atom(XmInternAtom(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_BOOLEAN(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XmInternAtom", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XmInternAtom", "String"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XmInternAtom", "Boolean"); + return(C_to_Xen_Atom(XmInternAtom(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), Xen_boolean_to_C_bool(arg3)))); } -static XEN gxm_XmNotebookGetPageInfo(XEN arg1, XEN arg2) +static Xen gxm_XmNotebookGetPageInfo(Xen arg1, Xen arg2) { #define H_XmNotebookGetPageInfo "XmNotebookPageStatus XmNotebookGetPageInfo(Widget notebook, int page_number) \ A Notebook function that returns page information" XmNotebookPageInfo *info; int err; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmNotebookGetPageInfo", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XmNotebookGetPageInfo", "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmNotebookGetPageInfo", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XmNotebookGetPageInfo", "int"); info = (XmNotebookPageInfo *)calloc(1, sizeof(XmNotebookPageInfo)); - err = XmNotebookGetPageInfo(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), info); - return(XEN_LIST_2(C_TO_XEN_INT(err), C_TO_XEN_XmNotebookPageInfo(info))); + err = XmNotebookGetPageInfo(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), info); + return(Xen_list_2(C_int_to_Xen_integer(err), C_to_Xen_XmNotebookPageInfo(info))); } -static XEN gxm_XmCreateNotebook(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateNotebook(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateNotebook "void XmCreateNotebook(Widget parent, String name, ArgList arglist, Cardinal argcount) The Notebook widget creation function" return(gxm_new_widget("XmCreateNotebook", XmCreateNotebook, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateArrowButton(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateArrowButton(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateArrowButton "Widget XmCreateArrowButton(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The ArrowButton widget creation function" return(gxm_new_widget("XmCreateArrowButton", XmCreateArrowButton, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateArrowButtonGadget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateArrowButtonGadget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateArrowButtonGadget "Widget XmCreateArrowButtonGadget(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The ArrowButtonGadget creation function" return(gxm_new_widget("XmCreateArrowButtonGadget", XmCreateArrowButtonGadget, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmMessageBoxGetChild(XEN arg1, XEN arg2) +static Xen gxm_XmMessageBoxGetChild(Xen arg1, Xen arg2) { #define H_XmMessageBoxGetChild "Widget XmMessageBoxGetChild(Widget widget, unsigned char child) A MessageBox function that is used to access a component" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XmMessageBoxGetChild", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XmMessageBoxGetChild", "unsigned int"); - return(C_TO_XEN_Widget(XmMessageBoxGetChild(XEN_TO_C_Widget(arg1), XEN_TO_C_ULONG(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XmMessageBoxGetChild", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XmMessageBoxGetChild", "unsigned int"); + return(C_to_Xen_Widget(XmMessageBoxGetChild(Xen_to_C_Widget(arg1), Xen_ulong_to_C_ulong(arg2)))); } -static XEN gxm_XmCreateTemplateDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateTemplateDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateTemplateDialog "Widget XmCreateTemplateDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ A MessageBox TemplateDialog creation function" return(gxm_new_widget("XmCreateTemplateDialog", XmCreateTemplateDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateWorkingDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateWorkingDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateWorkingDialog "Widget XmCreateWorkingDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MessageBox WorkingDialog creation function" return(gxm_new_widget("XmCreateWorkingDialog", XmCreateWorkingDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateWarningDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateWarningDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateWarningDialog "Widget XmCreateWarningDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MessageBox WarningDialog creation function" return(gxm_new_widget("XmCreateWarningDialog", XmCreateWarningDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateQuestionDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateQuestionDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateQuestionDialog "Widget XmCreateQuestionDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MessageBox QuestionDialog creation function" return(gxm_new_widget("XmCreateQuestionDialog", XmCreateQuestionDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateInformationDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateInformationDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateInformationDialog "Widget XmCreateInformationDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MessageBox InformationDialog creation function" return(gxm_new_widget("XmCreateInformationDialog", XmCreateInformationDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateErrorDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateErrorDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateErrorDialog "Widget XmCreateErrorDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MessageBox ErrorDialog creation function" return(gxm_new_widget("XmCreateErrorDialog", XmCreateErrorDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateMessageDialog(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateMessageDialog(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateMessageDialog "Widget XmCreateMessageDialog(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MessageBox MessageDialog creation function" return(gxm_new_widget("XmCreateMessageDialog", XmCreateMessageDialog, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmCreateMessageBox(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XmCreateMessageBox(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XmCreateMessageBox "Widget XmCreateMessageBox(Widget parent, String name, ArgList arglist, Cardinal argcount) \ The MessageBox widget creation function" return(gxm_new_widget("XmCreateMessageBox", XmCreateMessageBox, arg1, arg2, arg3, arg4)); } -static XEN gxm_XmIsMessageBox(XEN arg) +static Xen gxm_XmIsMessageBox(Xen arg) { #define H_XmIsMessageBox "XmIsMessageBox(arg): " PROC_TRUE " if arg is a MessageBox widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsMessageBox", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsMessageBox(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsMessageBox", "Widget"); + return(C_bool_to_Xen_boolean(XmIsMessageBox(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsArrowButtonGadget(XEN arg) +static Xen gxm_XmIsArrowButtonGadget(Xen arg) { #define H_XmIsArrowButtonGadget "XmIsArrowButtonGadget(arg): " PROC_TRUE " if arg is an ArrowButton gadget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsArrowButtonGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsArrowButtonGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsArrowButtonGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsArrowButtonGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsArrowButton(XEN arg) +static Xen gxm_XmIsArrowButton(Xen arg) { #define H_XmIsArrowButton "XmIsArrowButton(arg): " PROC_TRUE " if arg is an ArrowButton widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsArrowButton", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsArrowButton(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsArrowButton", "Widget"); + return(C_bool_to_Xen_boolean(XmIsArrowButton(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsNotebook(XEN arg) +static Xen gxm_XmIsNotebook(Xen arg) { #define H_XmIsNotebook "XmIsNotebook(arg): " PROC_TRUE " if arg is a Notebook widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsNotebook", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsNotebook(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsNotebook", "Widget"); + return(C_bool_to_Xen_boolean(XmIsNotebook(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsPanedWindow(XEN arg) +static Xen gxm_XmIsPanedWindow(Xen arg) { #define H_XmIsPanedWindow "XmIsPanedWindow(arg): " PROC_TRUE " if arg is a PanedWindow widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsPanedWindow", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsPanedWindow(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsPanedWindow", "Widget"); + return(C_bool_to_Xen_boolean(XmIsPanedWindow(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsBulletinBoard(XEN arg) +static Xen gxm_XmIsBulletinBoard(Xen arg) { #define H_XmIsBulletinBoard "XmIsBulletinBoard(arg): " PROC_TRUE " if arg is a BulletinBoard widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsBulletinBoard", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsBulletinBoard(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsBulletinBoard", "Widget"); + return(C_bool_to_Xen_boolean(XmIsBulletinBoard(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsPrimitive(XEN arg) +static Xen gxm_XmIsPrimitive(Xen arg) { #define H_XmIsPrimitive "XmIsPrimitive(arg): " PROC_TRUE " if arg is a Primitive widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsPrimitive", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsPrimitive(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsPrimitive", "Widget"); + return(C_bool_to_Xen_boolean(XmIsPrimitive(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsCascadeButtonGadget(XEN arg) +static Xen gxm_XmIsCascadeButtonGadget(Xen arg) { #define H_XmIsCascadeButtonGadget "XmIsCascadeButtonGadget(arg): " PROC_TRUE " if arg is a CascadeButtonGadget gadget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsCascadeButtonGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsCascadeButtonGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsCascadeButtonGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsCascadeButtonGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsCascadeButton(XEN arg) +static Xen gxm_XmIsCascadeButton(Xen arg) { #define H_XmIsCascadeButton "XmIsCascadeButton(arg): " PROC_TRUE " if arg is a CascadeButton widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsCascadeButton", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsCascadeButton(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsCascadeButton", "Widget"); + return(C_bool_to_Xen_boolean(XmIsCascadeButton(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsPushButtonGadget(XEN arg) +static Xen gxm_XmIsPushButtonGadget(Xen arg) { #define H_XmIsPushButtonGadget "XmIsPushButtonGadget(arg): " PROC_TRUE " if arg is a PushButtonGadget gadget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsPushButtonGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsPushButtonGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsPushButtonGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsPushButtonGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsPushButton(XEN arg) +static Xen gxm_XmIsPushButton(Xen arg) { #define H_XmIsPushButton "XmIsPushButton(arg): " PROC_TRUE " if arg is a PushButton widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsPushButton", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsPushButton(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsPushButton", "Widget"); + return(C_bool_to_Xen_boolean(XmIsPushButton(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsComboBox(XEN arg) +static Xen gxm_XmIsComboBox(Xen arg) { #define H_XmIsComboBox "XmIsComboBox(arg): " PROC_TRUE " if arg is a ComboBox widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsComboBox", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsComboBox(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsComboBox", "Widget"); + return(C_bool_to_Xen_boolean(XmIsComboBox(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsCommand(XEN arg) +static Xen gxm_XmIsCommand(Xen arg) { #define H_XmIsCommand "XmIsCommand(arg): " PROC_TRUE " if arg is a Command widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsCommand", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsCommand(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsCommand", "Widget"); + return(C_bool_to_Xen_boolean(XmIsCommand(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsRowColumn(XEN arg) +static Xen gxm_XmIsRowColumn(Xen arg) { #define H_XmIsRowColumn "XmIsRowColumn(arg): " PROC_TRUE " if arg is a RowColumn widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsRowColumn", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsRowColumn(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsRowColumn", "Widget"); + return(C_bool_to_Xen_boolean(XmIsRowColumn(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsContainer(XEN arg) +static Xen gxm_XmIsContainer(Xen arg) { #define H_XmIsContainer "XmIsContainer(arg): " PROC_TRUE " if arg is a Container widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsContainer", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsContainer(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsContainer", "Widget"); + return(C_bool_to_Xen_boolean(XmIsContainer(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsScreen(XEN arg) +static Xen gxm_XmIsScreen(Xen arg) { #define H_XmIsScreen "XmIsScreen(arg): " PROC_TRUE " if arg is a Screen widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsScreen", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsScreen(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsScreen", "Widget"); + return(C_bool_to_Xen_boolean(XmIsScreen(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsScale(XEN arg) +static Xen gxm_XmIsScale(Xen arg) { #define H_XmIsScale "XmIsScale(arg): " PROC_TRUE " if arg is a Scale widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsScale", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsScale(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsScale", "Widget"); + return(C_bool_to_Xen_boolean(XmIsScale(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsScrollBar(XEN arg) +static Xen gxm_XmIsScrollBar(Xen arg) { #define H_XmIsScrollBar "XmIsScrollBar(arg): " PROC_TRUE " if arg is a ScrollBar widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsScrollBar", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsScrollBar(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsScrollBar", "Widget"); + return(C_bool_to_Xen_boolean(XmIsScrollBar(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDialogShell(XEN arg) +static Xen gxm_XmIsDialogShell(Xen arg) { #define H_XmIsDialogShell "XmIsDialogShell(arg): " PROC_TRUE " if arg is a DialogShell widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDialogShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDialogShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDialogShell", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDialogShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsScrolledWindow(XEN arg) +static Xen gxm_XmIsScrolledWindow(Xen arg) { #define H_XmIsScrolledWindow "XmIsScrolledWindow(arg): " PROC_TRUE " if arg is a ScrolledWindow widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsScrolledWindow", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsScrolledWindow(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsScrolledWindow", "Widget"); + return(C_bool_to_Xen_boolean(XmIsScrolledWindow(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDisplay(XEN arg) +static Xen gxm_XmIsDisplay(Xen arg) { #define H_XmIsDisplay "XmIsDisplay(arg): " PROC_TRUE " if arg is a Display widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDisplay", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDisplay(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDisplay", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDisplay(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsSelectionBox(XEN arg) +static Xen gxm_XmIsSelectionBox(Xen arg) { #define H_XmIsSelectionBox "XmIsSelectionBox(arg): " PROC_TRUE " if arg is a SelectionBox widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsSelectionBox", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsSelectionBox(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsSelectionBox", "Widget"); + return(C_bool_to_Xen_boolean(XmIsSelectionBox(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDragContext(XEN arg) +static Xen gxm_XmIsDragContext(Xen arg) { #define H_XmIsDragContext "XmIsDragContext(arg): " PROC_TRUE " if arg is a DragContext widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDragContext", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDragContext(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDragContext", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDragContext(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsSeparatorGadget(XEN arg) +static Xen gxm_XmIsSeparatorGadget(Xen arg) { #define H_XmIsSeparatorGadget "XmIsSeparatorGadget(arg): " PROC_TRUE " if arg is a SeparatorGadget gadget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsSeparatorGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsSeparatorGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsSeparatorGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsSeparatorGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDragIconObjectClass(XEN arg) +static Xen gxm_XmIsDragIconObjectClass(Xen arg) { #define H_XmIsDragIconObjectClass "XmIsDragIconObjectClass(arg): " PROC_TRUE " if arg is a DragIconObjectClass widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDragIconObjectClass", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDragIconObjectClass(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDragIconObjectClass", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDragIconObjectClass(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsSeparator(XEN arg) +static Xen gxm_XmIsSeparator(Xen arg) { #define H_XmIsSeparator "XmIsSeparator(arg): " PROC_TRUE " if arg is a Separator widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsSeparator", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsSeparator(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsSeparator", "Widget"); + return(C_bool_to_Xen_boolean(XmIsSeparator(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDrawingArea(XEN arg) +static Xen gxm_XmIsDrawingArea(Xen arg) { #define H_XmIsDrawingArea "XmIsDrawingArea(arg): " PROC_TRUE " if arg is a DrawingArea widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDrawingArea", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDrawingArea(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDrawingArea", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDrawingArea(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDrawnButton(XEN arg) +static Xen gxm_XmIsDrawnButton(Xen arg) { #define H_XmIsDrawnButton "XmIsDrawnButton(arg): " PROC_TRUE " if arg is a DrawnButton widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDrawnButton", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDrawnButton(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDrawnButton", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDrawnButton(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDropSiteManager(XEN arg) +static Xen gxm_XmIsDropSiteManager(Xen arg) { #define H_XmIsDropSiteManager "XmIsDropSiteManager(arg): " PROC_TRUE " if arg is a DropSiteManager widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDropSiteManager", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDropSiteManager(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDropSiteManager", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDropSiteManager(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsDropTransfer(XEN arg) +static Xen gxm_XmIsDropTransfer(Xen arg) { #define H_XmIsDropTransfer "XmIsDropTransfer(arg): " PROC_TRUE " if arg is a DropTransfer widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsDropTransfer", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsDropTransfer(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsDropTransfer", "Widget"); + return(C_bool_to_Xen_boolean(XmIsDropTransfer(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsTextField(XEN arg) +static Xen gxm_XmIsTextField(Xen arg) { #define H_XmIsTextField "XmIsTextField(arg): " PROC_TRUE " if arg is a TextField widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsTextField", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsTextField(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsTextField", "Widget"); + return(C_bool_to_Xen_boolean(XmIsTextField(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsFileSelectionBox(XEN arg) +static Xen gxm_XmIsFileSelectionBox(Xen arg) { #define H_XmIsFileSelectionBox "XmIsFileSelectionBox(arg): " PROC_TRUE " if arg is a FileSelectionBox widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsFileSelectionBox", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsFileSelectionBox(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsFileSelectionBox", "Widget"); + return(C_bool_to_Xen_boolean(XmIsFileSelectionBox(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsText(XEN arg) +static Xen gxm_XmIsText(Xen arg) { #define H_XmIsText "XmIsText(arg): " PROC_TRUE " if arg is a Text widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsText", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsText(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsText", "Widget"); + return(C_bool_to_Xen_boolean(XmIsText(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsForm(XEN arg) +static Xen gxm_XmIsForm(Xen arg) { #define H_XmIsForm "XmIsForm(arg): " PROC_TRUE " if arg is a Form widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsForm", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsForm(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsForm", "Widget"); + return(C_bool_to_Xen_boolean(XmIsForm(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsFrame(XEN arg) +static Xen gxm_XmIsFrame(Xen arg) { #define H_XmIsFrame "XmIsFrame(arg): " PROC_TRUE " if arg is a Frame widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsFrame", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsFrame(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsFrame", "Widget"); + return(C_bool_to_Xen_boolean(XmIsFrame(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsGadget(XEN arg) +static Xen gxm_XmIsGadget(Xen arg) { #define H_XmIsGadget "XmIsGadget(arg): " PROC_TRUE " if arg is a Gadget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsToggleButtonGadget(XEN arg) +static Xen gxm_XmIsToggleButtonGadget(Xen arg) { #define H_XmIsToggleButtonGadget "XmIsToggleButtonGadget(arg): " PROC_TRUE " if arg is a ToggleButtonGadget gadget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsToggleButtonGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsToggleButtonGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsToggleButtonGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsToggleButtonGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsGrabShell(XEN arg) +static Xen gxm_XmIsGrabShell(Xen arg) { #define H_XmIsGrabShell "XmIsGrabShell(arg): " PROC_TRUE " if arg is a GrabShell widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsGrabShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsGrabShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsGrabShell", "Widget"); + return(C_bool_to_Xen_boolean(XmIsGrabShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsToggleButton(XEN arg) +static Xen gxm_XmIsToggleButton(Xen arg) { #define H_XmIsToggleButton "XmIsToggleButton(arg): " PROC_TRUE " if arg is a ToggleButton widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsToggleButton", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsToggleButton(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsToggleButton", "Widget"); + return(C_bool_to_Xen_boolean(XmIsToggleButton(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsIconGadget(XEN arg) +static Xen gxm_XmIsIconGadget(Xen arg) { #define H_XmIsIconGadget "XmIsIconGadget(arg): " PROC_TRUE " if arg is a IconGadget widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsIconGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsIconGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsIconGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsIconGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsIconHeader(XEN arg) +static Xen gxm_XmIsIconHeader(Xen arg) { #define H_XmIsIconHeader "XmIsIconHeader(arg): " PROC_TRUE " if arg is a IconHeader widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsIconHeader", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsIconHeader(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsIconHeader", "Widget"); + return(C_bool_to_Xen_boolean(XmIsIconHeader(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsLabelGadget(XEN arg) +static Xen gxm_XmIsLabelGadget(Xen arg) { #define H_XmIsLabelGadget "XmIsLabelGadget(arg): " PROC_TRUE " if arg is a LabelGadget widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsLabelGadget", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsLabelGadget(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsLabelGadget", "Widget"); + return(C_bool_to_Xen_boolean(XmIsLabelGadget(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsLabel(XEN arg) +static Xen gxm_XmIsLabel(Xen arg) { #define H_XmIsLabel "XmIsLabel(arg): " PROC_TRUE " if arg is a Label widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsLabel", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsLabel(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsLabel", "Widget"); + return(C_bool_to_Xen_boolean(XmIsLabel(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsVendorShell(XEN arg) +static Xen gxm_XmIsVendorShell(Xen arg) { #define H_XmIsVendorShell "XmIsVendorShell(arg): " PROC_TRUE " if arg is a VendorShell widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsVendorShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsVendorShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsVendorShell", "Widget"); + return(C_bool_to_Xen_boolean(XmIsVendorShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsList(XEN arg) +static Xen gxm_XmIsList(Xen arg) { #define H_XmIsList "XmIsList(arg): " PROC_TRUE " if arg is a List widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsList", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsList(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsList", "Widget"); + return(C_bool_to_Xen_boolean(XmIsList(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsMainWindow(XEN arg) +static Xen gxm_XmIsMainWindow(Xen arg) { #define H_XmIsMainWindow "XmIsMainWindow(arg): " PROC_TRUE " if arg is a MainWindow widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsMainWindow", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsMainWindow(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsMainWindow", "Widget"); + return(C_bool_to_Xen_boolean(XmIsMainWindow(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsManager(XEN arg) +static Xen gxm_XmIsManager(Xen arg) { #define H_XmIsManager "XmIsManager(arg): " PROC_TRUE " if arg is a Manager widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsManager", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsManager(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsManager", "Widget"); + return(C_bool_to_Xen_boolean(XmIsManager(Xen_to_C_Widget(arg)))); } -static XEN gxm_XmIsMenuShell(XEN arg) +static Xen gxm_XmIsMenuShell(Xen arg) { #define H_XmIsMenuShell "XmIsMenuShell(arg): " PROC_TRUE " if arg is a MenuShell widget" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XmIsMenuShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XmIsMenuShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XmIsMenuShell", "Widget"); + return(C_bool_to_Xen_boolean(XmIsMenuShell(Xen_to_C_Widget(arg)))); } -#endif -/* end HAVE_MOTIF */ + + /* ---------------------------------------------------------------------------------------------------- * @@ -7869,53 +7589,53 @@ static XEN gxm_XmIsMenuShell(XEN arg) * ---------------------------------------------------------------------------------------------------- */ -static XEN gxm_XXorRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XXorRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XXorRegion "XXorRegion(sra, srb, dr_return) calculates the difference between the union and intersection of two regions." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XXorRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg2), arg2, 2, "XXorRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg3), arg3, 3, "XXorRegion", "Region"); - return(C_TO_XEN_INT(XXorRegion(XEN_TO_C_Region(arg1), XEN_TO_C_Region(arg2), XEN_TO_C_Region(arg3)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XXorRegion", "Region"); + Xen_check_type(Xen_is_Region(arg2), arg2, 2, "XXorRegion", "Region"); + Xen_check_type(Xen_is_Region(arg3), arg3, 3, "XXorRegion", "Region"); + return(C_int_to_Xen_integer(XXorRegion(Xen_to_C_Region(arg1), Xen_to_C_Region(arg2), Xen_to_C_Region(arg3)))); } -static XEN gxm_XUnionRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XUnionRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XUnionRegion "XUnionRegion(sra, srb, dr_return) computes the union of two regions." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XUnionRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg2), arg2, 2, "XUnionRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg3), arg3, 3, "XUnionRegion", "Region"); - return(C_TO_XEN_INT(XUnionRegion(XEN_TO_C_Region(arg1), XEN_TO_C_Region(arg2), XEN_TO_C_Region(arg3)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XUnionRegion", "Region"); + Xen_check_type(Xen_is_Region(arg2), arg2, 2, "XUnionRegion", "Region"); + Xen_check_type(Xen_is_Region(arg3), arg3, 3, "XUnionRegion", "Region"); + return(C_int_to_Xen_integer(XUnionRegion(Xen_to_C_Region(arg1), Xen_to_C_Region(arg2), Xen_to_C_Region(arg3)))); } -static XEN gxm_XUnionRectWithRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XUnionRectWithRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XUnionRectWithRegion "XUnionRectWithRegion(rectangle, src_region, dest_region_return) updates the destination region from a \ union of the specified rectangle and the specified source region." - XEN_ASSERT_TYPE(XEN_XRectangle_P(arg1), arg1, 1, "XUnionRectWithRegion", "XRectangle*"); - XEN_ASSERT_TYPE(XEN_Region_P(arg2), arg2, 2, "XUnionRectWithRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg3), arg3, 3, "XUnionRectWithRegion", "Region"); - return(C_TO_XEN_INT(XUnionRectWithRegion(XEN_TO_C_XRectangle(arg1), XEN_TO_C_Region(arg2), XEN_TO_C_Region(arg3)))); + Xen_check_type(Xen_is_XRectangle(arg1), arg1, 1, "XUnionRectWithRegion", "XRectangle*"); + Xen_check_type(Xen_is_Region(arg2), arg2, 2, "XUnionRectWithRegion", "Region"); + Xen_check_type(Xen_is_Region(arg3), arg3, 3, "XUnionRectWithRegion", "Region"); + return(C_int_to_Xen_integer(XUnionRectWithRegion(Xen_to_C_XRectangle(arg1), Xen_to_C_Region(arg2), Xen_to_C_Region(arg3)))); } -static XEN gxm_XSubtractRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSubtractRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XSubtractRegion "XSubtractRegion(sra, srb, dr_return) subtracts srb from sra and stores the results in dr_return." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XSubtractRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg2), arg2, 2, "XSubtractRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg3), arg3, 3, "XSubtractRegion", "Region"); - return(C_TO_XEN_INT(XSubtractRegion(XEN_TO_C_Region(arg1), XEN_TO_C_Region(arg2), XEN_TO_C_Region(arg3)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XSubtractRegion", "Region"); + Xen_check_type(Xen_is_Region(arg2), arg2, 2, "XSubtractRegion", "Region"); + Xen_check_type(Xen_is_Region(arg3), arg3, 3, "XSubtractRegion", "Region"); + return(C_int_to_Xen_integer(XSubtractRegion(Xen_to_C_Region(arg1), Xen_to_C_Region(arg2), Xen_to_C_Region(arg3)))); } -static XEN gxm_XShrinkRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XShrinkRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XShrinkRegion "XShrinkRegion(r, dx, dy) reduces the specified region by a specified amount." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XShrinkRegion", "Region"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XShrinkRegion", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XShrinkRegion", "int"); - return(C_TO_XEN_INT(XShrinkRegion(XEN_TO_C_Region(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XShrinkRegion", "Region"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XShrinkRegion", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XShrinkRegion", "int"); + return(C_int_to_Xen_integer(XShrinkRegion(Xen_to_C_Region(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XSetWMProperties(XEN dpy, XEN win, XEN win_name, XEN icon_name, XEN argv, XEN argc, XEN normal_hints, XEN wm_hints) +static Xen gxm_XSetWMProperties(Xen dpy, Xen win, Xen win_name, Xen icon_name, Xen argv, Xen argc, Xen normal_hints, Xen wm_hints) { /* last arg omitted -- XClassHint not supported */ #define H_XSetWMProperties "XSetWMProperties(dpy, win, win_name, icon_name, argv, argc, normal_hints wm_hints) sets the window properties" @@ -7923,107 +7643,107 @@ static XEN gxm_XSetWMProperties(XEN dpy, XEN win, XEN win_name, XEN icon_name, X char **c_argv = NULL; XTextProperty w_name, i_name; bool use_w_name = false, use_i_name = false; - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XSetWMProperties", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XSetWMProperties", "Window"); - XEN_ASSERT_TYPE(XEN_STRING_P(win_name) || XEN_NULL_P(win_name) || XEN_FALSE_P(win_name), win_name, XEN_ARG_3, "XSetWMProperties", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(icon_name) || XEN_NULL_P(icon_name) || XEN_FALSE_P(icon_name), icon_name, XEN_ARG_4, "XSetWMProperties", "char*"); - XEN_ASSERT_TYPE(XEN_LIST_P(argv), argv, XEN_ARG_5, "XSetWMProperties", "list of char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(argc), argc, XEN_ARG_6, "XSetWMProperties", "int"); - XEN_ASSERT_TYPE(XEN_FALSE_P(normal_hints) || XEN_XSizeHints_P(normal_hints), normal_hints, XEN_ARG_7, "XSetWMProperties", "XSizeHints* or false"); - XEN_ASSERT_TYPE(XEN_FALSE_P(wm_hints) || XEN_XWMHints_P(wm_hints), wm_hints, XEN_ARG_8, "XSetWMProperties", "XWMHints* or false"); - c_argc = XEN_TO_C_INT(argc); - if (c_argc > 0) c_argv = XEN_TO_C_Strings(argv, c_argc); - if (XEN_STRING_P(win_name)) + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XSetWMProperties", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XSetWMProperties", "Window"); + Xen_check_type(Xen_is_string(win_name) || Xen_is_null(win_name) || Xen_is_false(win_name), win_name, 3, "XSetWMProperties", "char*"); + Xen_check_type(Xen_is_string(icon_name) || Xen_is_null(icon_name) || Xen_is_false(icon_name), icon_name, 4, "XSetWMProperties", "char*"); + Xen_check_type(Xen_is_list(argv), argv, 5, "XSetWMProperties", "list of char*"); + Xen_check_type(Xen_is_integer(argc), argc, 6, "XSetWMProperties", "int"); + Xen_check_type(Xen_is_false(normal_hints) || Xen_is_XSizeHints(normal_hints), normal_hints, 7, "XSetWMProperties", "XSizeHints* or false"); + Xen_check_type(Xen_is_false(wm_hints) || Xen_is_XWMHints(wm_hints), wm_hints, 8, "XSetWMProperties", "XWMHints* or false"); + c_argc = Xen_integer_to_C_int(argc); + if (c_argc > 0) c_argv = Xen_to_C_Strings(argv, c_argc); + if (Xen_is_string(win_name)) { char *name; use_w_name = true; - name = (char *)XEN_TO_C_STRING(win_name); + name = (char *)Xen_string_to_C_string(win_name); XStringListToTextProperty(&name, 1, &w_name); } - if (XEN_STRING_P(icon_name)) + if (Xen_is_string(icon_name)) { char *name; use_i_name = true; - name = (char *)XEN_TO_C_STRING(icon_name); + name = (char *)Xen_string_to_C_string(icon_name); XStringListToTextProperty(&name, 1, &i_name); } - XSetWMProperties(XEN_TO_C_Display(dpy), - XEN_TO_C_Window(win), + XSetWMProperties(Xen_to_C_Display(dpy), + Xen_to_C_Window(win), (use_w_name) ? &w_name : NULL, (use_i_name) ? &i_name : NULL, c_argv, c_argc, - XEN_TO_C_XSizeHints(normal_hints), - XEN_TO_C_XWMHints(wm_hints), + Xen_to_C_XSizeHints(normal_hints), + Xen_to_C_XWMHints(wm_hints), NULL); if (c_argv) free(c_argv); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XSetRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetRegion "XSetRegion(display, gc, r) sets the clip-mask in the GC to the specified region." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetRegion", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetRegion", "GC"); - XEN_ASSERT_TYPE(XEN_Region_P(arg3), arg3, 3, "XSetRegion", "Region"); - return(C_TO_XEN_INT(XSetRegion(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_Region(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetRegion", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetRegion", "GC"); + Xen_check_type(Xen_is_Region(arg3), arg3, 3, "XSetRegion", "Region"); + return(C_int_to_Xen_integer(XSetRegion(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_to_C_Region(arg3)))); } -static XEN gxm_XSetWMHints(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetWMHints(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetWMHints "XSetWMHints(display, w, wmhints) sets the window manager hints that include icon information and location, the \ initial state of the window, and whether the application relies on the window manager to get keyboard input." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWMHints", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWMHints", "Window"); - XEN_ASSERT_TYPE(XEN_XWMHints_P(arg3), arg3, 3, "XSetWMHints", "XWMHints*"); - return(C_TO_XEN_INT(XSetWMHints(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_XWMHints(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWMHints", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWMHints", "Window"); + Xen_check_type(Xen_is_XWMHints(arg3), arg3, 3, "XSetWMHints", "XWMHints*"); + return(C_int_to_Xen_integer(XSetWMHints(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_XWMHints(arg3)))); } -static XEN gxm_XSetRGBColormaps(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XSetRGBColormaps(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XSetRGBColormaps "void XSetRGBColormaps(display, w, std_colormap, count, property) replaces the RGB colormap definition in the \ specified property on the named window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetRGBColormaps", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetRGBColormaps", "Window"); - XEN_ASSERT_TYPE(XEN_XStandardColormap_P(arg3), arg3, 3, "XSetRGBColormaps", "XStandardColormap*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetRGBColormaps", "int"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg5), arg5, 5, "XSetRGBColormaps", "Atom"); - XSetRGBColormaps(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_XStandardColormap(arg3), - XEN_TO_C_INT(arg4), - XEN_TO_C_Atom(arg5)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetRGBColormaps", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetRGBColormaps", "Window"); + Xen_check_type(Xen_is_XStandardColormap(arg3), arg3, 3, "XSetRGBColormaps", "XStandardColormap*"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetRGBColormaps", "int"); + Xen_check_type(Xen_is_Atom(arg5), arg5, 5, "XSetRGBColormaps", "Atom"); + XSetRGBColormaps(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_XStandardColormap(arg3), + Xen_integer_to_C_int(arg4), + Xen_to_C_Atom(arg5)); + return(Xen_false); } -static XEN gxm_XUniqueContext(void) +static Xen gxm_XUniqueContext(void) { #define H_XUniqueContext "XContext XUniqueContext() creates a unique context type that may be used in subsequent calls to XSaveContext." - return(C_TO_XEN_XContext(XUniqueContext())); + return(C_to_Xen_XContext(XUniqueContext())); } -static XEN gxm_XSaveContext(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSaveContext(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSaveContext "XSaveContext(dpy, rid, context) saves a context" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSaveContext", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XSaveContext", "XID"); - XEN_ASSERT_TYPE(XEN_XContext_P(arg3), arg3, 3, "XSaveContext", "XContext"); - return(C_TO_XEN_INT(XSaveContext(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_XContext(arg3), (caddr_t)arg4))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSaveContext", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XSaveContext", "XID"); + Xen_check_type(Xen_is_XContext(arg3), arg3, 3, "XSaveContext", "XContext"); + return(C_int_to_Xen_integer(XSaveContext(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2), Xen_to_C_XContext(arg3), (caddr_t)arg4))); } -static XEN gxm_XRectInRegion(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XRectInRegion(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XRectInRegion "int XRectInRegion(r, x, y, width, height): returns RectangleIn if the rectangle is entirely in the specified region, \ RectangleOut if the rectangle is entirely out of the specified region, and RectanglePart if the rectangle is partially in the specified region. " - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XRectInRegion", "Region"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XRectInRegion", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XRectInRegion", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XRectInRegion", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XRectInRegion", "unsigned int"); - return(C_TO_XEN_INT(XRectInRegion(XEN_TO_C_Region(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_ULONG(arg4), XEN_TO_C_ULONG(arg5)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XRectInRegion", "Region"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XRectInRegion", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XRectInRegion", "int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XRectInRegion", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XRectInRegion", "unsigned int"); + return(C_int_to_Xen_integer(XRectInRegion(Xen_to_C_Region(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_ulong_to_C_ulong(arg4), Xen_ulong_to_C_ulong(arg5)))); } -static XEN gxm_XPolygonRegion(XEN larg1, XEN arg2, XEN arg3) +static Xen gxm_XPolygonRegion(Xen larg1, Xen arg2, Xen arg3) { #define H_XPolygonRegion "Region XPolygonRegion(points, n, fill_rule): returns a region for the polygon defined by the points list." /* DIFF: XPolygonRegion XPoint* arg (arg 1) is list of XPoints @@ -8031,66 +7751,66 @@ static XEN gxm_XPolygonRegion(XEN larg1, XEN arg2, XEN arg3) XPoint *pt, *pt1; int i, len; Region res; - XEN arg1; - XEN_ASSERT_TYPE(XEN_LIST_P(larg1), larg1, 1, "XPolygonRegion", "list of XPoints"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XPolygonRegion", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XPolygonRegion", "int"); - arg1 = XEN_COPY_ARG(larg1); - len = XEN_TO_C_INT(arg2); - if (len <= 0) XEN_ASSERT_TYPE(0, arg2, 2, "XPolygonRegion", "positive integer"); + Xen arg1; + Xen_check_type(Xen_is_list(larg1), larg1, 1, "XPolygonRegion", "list of XPoints"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XPolygonRegion", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XPolygonRegion", "int"); + arg1 = Xen_copy_arg(larg1); + len = Xen_integer_to_C_int(arg2); + if (len <= 0) Xen_check_type(0, arg2, 2, "XPolygonRegion", "positive integer"); pt = (XPoint *)calloc(len, sizeof(XPoint)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg1)); i++, arg1 = XEN_CDR(arg1)) + for (i = 0; (i < len) && (!Xen_is_null(arg1)); i++, arg1 = Xen_cdr(arg1)) { - XEN xp; - xp = XEN_CAR(arg1); - if (!(XEN_XPoint_P(xp))) {free(pt); XEN_ASSERT_TYPE(0, xp, i, "XPolygonRegion", "XPoint"); return(XEN_FALSE);} - pt1 = XEN_TO_C_XPoint(XEN_CAR(arg1)); + Xen xp; + xp = Xen_car(arg1); + if (!(Xen_is_XPoint(xp))) {free(pt); Xen_check_type(0, xp, i, "XPolygonRegion", "XPoint"); return(Xen_false);} + pt1 = Xen_to_C_XPoint(Xen_car(arg1)); pt[i].x = pt1->x; pt[i].y = pt1->y; } - res = XPolygonRegion(pt, len, XEN_TO_C_INT(arg3)); + res = XPolygonRegion(pt, len, Xen_integer_to_C_int(arg3)); free(pt); - return(C_TO_XEN_Region(res)); + return(C_to_Xen_Region(res)); } -static XEN gxm_XPointInRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XPointInRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XPointInRegion "Bool XPointInRegion(r, x, y): returns " PROC_TRUE " if the point (x, y) is contained in the region r." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XPointInRegion", "Region"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XPointInRegion", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XPointInRegion", "int"); - return(C_TO_XEN_BOOLEAN(XPointInRegion(XEN_TO_C_Region(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XPointInRegion", "Region"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XPointInRegion", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XPointInRegion", "int"); + return(C_bool_to_Xen_boolean(XPointInRegion(Xen_to_C_Region(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XOffsetRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XOffsetRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XOffsetRegion "XOffsetRegion(r, dx, dy) moves the specified region by a specified amount." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XOffsetRegion", "Region"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XOffsetRegion", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XOffsetRegion", "int"); - return(C_TO_XEN_INT(XOffsetRegion(XEN_TO_C_Region(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XOffsetRegion", "Region"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XOffsetRegion", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XOffsetRegion", "int"); + return(C_int_to_Xen_integer(XOffsetRegion(Xen_to_C_Region(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)))); } static XVisualInfo *match_visual_info; -static XEN gxm_XMatchVisualInfo(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XMatchVisualInfo(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XMatchVisualInfo "Status XMatchVisualInfo(display, screen, depth, class): returns the visual information for a \ visual that matches the specified depth and class for a screen." /* DIFF: XMatchVisualInfo dpy scr dep class [visual] -> #f or visual */ int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMatchVisualInfo", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XMatchVisualInfo", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XMatchVisualInfo", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XMatchVisualInfo", "int"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMatchVisualInfo", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XMatchVisualInfo", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XMatchVisualInfo", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XMatchVisualInfo", "int"); match_visual_info = (XVisualInfo *)calloc(1, sizeof(XVisualInfo)); - val = XMatchVisualInfo(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), match_visual_info); + val = XMatchVisualInfo(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), match_visual_info); if (val) - return(C_TO_XEN_XVisualInfo(match_visual_info)); - return(XEN_FALSE); + return(C_to_Xen_XVisualInfo(match_visual_info)); + return(Xen_false); } -static XEN gxm_XLookupString(XEN arg1) +static Xen gxm_XLookupString(Xen arg1) { #define H_XLookupString "int XLookupString(event_struct) translates a key event to a KeySym and a string -> (len str keysym)." /* DIFF: XLookupString last arg is ignored, keyevent and all but last omitted -> (list len str keysym) @@ -8098,76 +7818,76 @@ static XEN gxm_XLookupString(XEN arg1) KeySym key; char *str; int len; - XEN res; - XEN_ASSERT_TYPE(XEN_XKeyEvent_P(arg1), arg1, 1, "XLookupString", "XKeyEvent*");/* user-created */ + Xen res; + Xen_check_type(Xen_is_XKeyEvent(arg1), arg1, 1, "XLookupString", "XKeyEvent*");/* user-created */ str = (char *)calloc(16, sizeof(char)); - len = XLookupString(XEN_TO_C_XKeyEvent(arg1), str, 16, &key, NULL); - res = XEN_LIST_3(C_TO_XEN_INT(len), - C_TO_XEN_STRING(str), - C_TO_XEN_KeySym(key)); + len = XLookupString(Xen_to_C_XKeyEvent(arg1), str, 16, &key, NULL); + res = Xen_list_3(C_int_to_Xen_integer(len), + C_string_to_Xen_string(str), + C_to_Xen_KeySym(key)); free(str); return(res); } -static XEN gxm_XConvertCase(XEN arg1) +static Xen gxm_XConvertCase(Xen arg1) { #define H_XConvertCase "void XConvertCase(keysym): returns the uppercase and lowercase forms of the specified \ Keysym, if the KeySym is subject to case conversion; otherwise, the specified KeySym is returned to both lower_return and upper_return." /* DIFF: XConvertCase keysym [k1 k2] -> (list k1 k2) */ KeySym k1, k2; - XEN_ASSERT_TYPE(XEN_KeySym_P(arg1), arg1, 1, "XConvertCase", "KeySym"); - XConvertCase(XEN_TO_C_KeySym(arg1), &k1, &k2); - return(XEN_LIST_2(C_TO_XEN_KeySym(k1), - C_TO_XEN_KeySym(k2))); + Xen_check_type(Xen_is_KeySym(arg1), arg1, 1, "XConvertCase", "KeySym"); + XConvertCase(Xen_to_C_KeySym(arg1), &k1, &k2); + return(Xen_list_2(C_to_Xen_KeySym(k1), + C_to_Xen_KeySym(k2))); } -static XEN gxm_XIntersectRegion(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XIntersectRegion(Xen arg1, Xen arg2, Xen arg3) { #define H_XIntersectRegion "XIntersectRegion(sra, srb, dr_return) computes the intersection of two regions." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XIntersectRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg2), arg2, 2, "XIntersectRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg3), arg3, 3, "XIntersectRegion", "Region"); - return(C_TO_XEN_INT(XIntersectRegion(XEN_TO_C_Region(arg1), XEN_TO_C_Region(arg2), XEN_TO_C_Region(arg3)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XIntersectRegion", "Region"); + Xen_check_type(Xen_is_Region(arg2), arg2, 2, "XIntersectRegion", "Region"); + Xen_check_type(Xen_is_Region(arg3), arg3, 3, "XIntersectRegion", "Region"); + return(C_int_to_Xen_integer(XIntersectRegion(Xen_to_C_Region(arg1), Xen_to_C_Region(arg2), Xen_to_C_Region(arg3)))); } -static XEN gxm_XGetWMHints(XEN arg1, XEN arg2) +static Xen gxm_XGetWMHints(Xen arg1, Xen arg2) { #define H_XGetWMHints "XWMHints *XGetWMHints(display, w) reads the window manager hints and returns NULL if no WM_HINTS property was \ set on the window or returns a pointer to a XWMHints structure if it succeeds." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetWMHints", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetWMHints", "Window"); - return(C_TO_XEN_XWMHints(XGetWMHints(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetWMHints", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetWMHints", "Window"); + return(C_to_Xen_XWMHints(XGetWMHints(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XGetVisualInfo(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XGetVisualInfo(Xen arg1, Xen arg2, Xen arg3) { #define H_XGetVisualInfo "XVisualInfo *XGetVisualInfo(display, vinfo_mask, vinfo_template): returns a list of visual \ structures that have attributes equal to the attributes specified by vinfo_template." - /* DIFF: XGetVisualInfo dpy mask template [nitems] -> '() or (list visual...) + /* DIFF: XGetVisualInfo dpy mask template [nitems] -> () or (list visual...) */ XVisualInfo *v; int len; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetVisualInfo", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XGetVisualInfo", "long"); - XEN_ASSERT_TYPE(XEN_XVisualInfo_P(arg3), arg3, 3, "XGetVisualInfo", "XVisualInfo*"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetVisualInfo", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XGetVisualInfo", "long"); + Xen_check_type(Xen_is_XVisualInfo(arg3), arg3, 3, "XGetVisualInfo", "XVisualInfo*"); - v = XGetVisualInfo(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_XVisualInfo(arg3), &len); + v = XGetVisualInfo(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), Xen_to_C_XVisualInfo(arg3), &len); if (v) { int i, loc; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_XVisualInfo(v + i), lst); + lst = Xen_cons(C_to_Xen_XVisualInfo(v + i), lst); xm_unprotect_at(loc); /* XFree(v); */ /* valgrind says this is a bad idea */ } return(lst); } -static XEN gxm_XGetRGBColormaps(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XGetRGBColormaps(Xen arg1, Xen arg2, Xen arg3) { #define H_XGetRGBColormaps "Status XGetRGBColormaps(display, w, property): returns the RGB colormap \ definitions stored in the specified property on the named window." @@ -8175,184 +7895,184 @@ definitions stored in the specified property on the named window." */ int len, i, loc; Status val; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; XStandardColormap **cs = NULL; /* do I allocate this?? */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetRGBColormaps", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetRGBColormaps", "Window"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XGetRGBColormaps", "Atom"); - val = XGetRGBColormaps(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetRGBColormaps", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetRGBColormaps", "Window"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XGetRGBColormaps", "Atom"); + val = XGetRGBColormaps(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), cs, &len, - XEN_TO_C_Atom(arg3)); + Xen_to_C_Atom(arg3)); if (val == 0) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_XStandardColormap(cs[i]), lst); + lst = Xen_cons(C_to_Xen_XStandardColormap(cs[i]), lst); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XGetIconSizes(XEN arg1, XEN arg2) +static Xen gxm_XGetIconSizes(Xen arg1, Xen arg2) { - #define H_XGetIconSizes "Status XGetIconSizes(display, w): returns #f if the window manager has not \ + #define H_XGetIconSizes "Status XGetIconSizes(display, w): returns " PROC_FALSE " if the window manager has not \ set icon sizes; otherwise, it return nonzero and a list of XIconSize structs." /* DIFF: XGetIconSizes omit last 2 args, return list of XIconSizes */ XIconSize *sizes; int i, len, val, loc; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetIconSizes", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetIconSizes", "Window"); - val = XGetIconSizes(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &sizes, &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetIconSizes", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetIconSizes", "Window"); + val = XGetIconSizes(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &sizes, &len); if (val == 0) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_XIconSize(&(sizes[i])), lst); + lst = Xen_cons(C_to_Xen_XIconSize(&(sizes[i])), lst); XFree(sizes); xm_unprotect_at(loc); - return(XEN_LIST_2(C_TO_XEN_INT(val), + return(Xen_list_2(C_int_to_Xen_integer(val), lst)); } -static XEN gxm_XFindContext(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XFindContext(Xen arg1, Xen arg2, Xen arg3) { #define H_XFindContext "XFindContext(dpy, rid, context) gets data from the context manager" /* DIFF: XFindContext last arg omitted, val returned */ caddr_t x; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFindContext", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XFindContext", "XID"); - XEN_ASSERT_TYPE(XEN_XContext_P(arg3), arg3, 3, "XFindContext", "XContext"); - val = XFindContext(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_XContext(arg3), &x); - return(XEN_LIST_2(C_TO_XEN_INT(val), - (XEN)x)); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFindContext", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XFindContext", "XID"); + Xen_check_type(Xen_is_XContext(arg3), arg3, 3, "XFindContext", "XContext"); + val = XFindContext(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2), Xen_to_C_XContext(arg3), &x); + return(Xen_list_2(C_int_to_Xen_integer(val), + (Xen)x)); } -static XEN gxm_XEqualRegion(XEN arg1, XEN arg2) +static Xen gxm_XEqualRegion(Xen arg1, Xen arg2) { #define H_XEqualRegion "Bool XEqualRegion(r1, r2): returns " PROC_TRUE " if the two regions have the same offset, size, and shape." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XEqualRegion", "Region"); - XEN_ASSERT_TYPE(XEN_Region_P(arg2), arg2, 2, "XEqualRegion", "Region"); - return(C_TO_XEN_BOOLEAN(XEqualRegion(XEN_TO_C_Region(arg1), XEN_TO_C_Region(arg2)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XEqualRegion", "Region"); + Xen_check_type(Xen_is_Region(arg2), arg2, 2, "XEqualRegion", "Region"); + return(C_bool_to_Xen_boolean(XEqualRegion(Xen_to_C_Region(arg1), Xen_to_C_Region(arg2)))); } -static XEN gxm_XEmptyRegion(XEN arg1) +static Xen gxm_XEmptyRegion(Xen arg1) { #define H_XEmptyRegion "Bool XEmptyRegion(r): returns " PROC_TRUE " if the region is empty." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XEmptyRegion", "Region"); - return(C_TO_XEN_BOOLEAN(XEmptyRegion(XEN_TO_C_Region(arg1)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XEmptyRegion", "Region"); + return(C_bool_to_Xen_boolean(XEmptyRegion(Xen_to_C_Region(arg1)))); } -static XEN gxm_XDestroyRegion(XEN arg1) +static Xen gxm_XDestroyRegion(Xen arg1) { #define H_XDestroyRegion "XDestroyRegion(r) deallocates the storage associated with a specified region." - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XDestroyRegion", "Region"); - return(C_TO_XEN_INT(XDestroyRegion(XEN_TO_C_Region(arg1)))); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XDestroyRegion", "Region"); + return(C_int_to_Xen_integer(XDestroyRegion(Xen_to_C_Region(arg1)))); } -static XEN gxm_XDeleteContext(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XDeleteContext(Xen arg1, Xen arg2, Xen arg3) { #define H_XDeleteContext "int XDeleteContext(display, rid, context) deletes the entry for the given resource ID and type from the data structure." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDeleteContext", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XDeleteContext", "XID"); - XEN_ASSERT_TYPE(XEN_XContext_P(arg3), arg3, 3, "XDeleteContext", "XContext"); - return(C_TO_XEN_INT(XDeleteContext(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_XContext(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDeleteContext", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XDeleteContext", "XID"); + Xen_check_type(Xen_is_XContext(arg3), arg3, 3, "XDeleteContext", "XContext"); + return(C_int_to_Xen_integer(XDeleteContext(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2), Xen_to_C_XContext(arg3)))); } -static XEN gxm_XDefaultString(void) +static Xen gxm_XDefaultString(void) { #define H_XDefaultString "char *XDefaultString(): returns the default string used by Xlib for text conversion" - return(C_TO_XEN_STRING(XDefaultString())); + return(C_string_to_Xen_string(XDefaultString())); } -static XEN gxm_XCreateRegion(void) +static Xen gxm_XCreateRegion(void) { #define H_XCreateRegion "Region XCreateRegion()" - return(C_TO_XEN_Region(XCreateRegion())); + return(C_to_Xen_Region(XCreateRegion())); } -static XEN gxm_XClipBox(XEN arg1) +static Xen gxm_XClipBox(Xen arg1) { #define H_XClipBox "XClipBox(r): returns the smallest rectangle enclosing the specified region." /* DIFF: XClipBox region [rectangle] -> (list val rectangle) */ XRectangle *r; int val; - XEN_ASSERT_TYPE(XEN_Region_P(arg1), arg1, 1, "XClipBox", "Region"); + Xen_check_type(Xen_is_Region(arg1), arg1, 1, "XClipBox", "Region"); r = (XRectangle *)calloc(1, sizeof(XRectangle)); - val = XClipBox(XEN_TO_C_Region(arg1), r); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XRectangle(r))); + val = XClipBox(Xen_to_C_Region(arg1), r); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XRectangle(r))); } -static XEN gxm_XAllocWMHints(void) +static Xen gxm_XAllocWMHints(void) { #define H_XAllocWMHints "XAllocWMHints() allocates a window manager hints structure" - return(C_TO_XEN_XWMHints(XAllocWMHints())); + return(C_to_Xen_XWMHints(XAllocWMHints())); } -static XEN gxm_XAllocStandardColormap(void) +static Xen gxm_XAllocStandardColormap(void) { #define H_XAllocStandardColormap "XStandardColormap *XAllocStandardColormap() allocates and returns a pointer to a XStandardColormap structure." - return(C_TO_XEN_XStandardColormap(XAllocStandardColormap())); + return(C_to_Xen_XStandardColormap(XAllocStandardColormap())); } -static XEN gxm_XAllocIconSize(void) +static Xen gxm_XAllocIconSize(void) { #define H_XAllocIconSize "XIconSize *XAllocIconSize() allocates and returns a pointer to a XIconSize structure." - return(C_TO_XEN_XIconSize(XAllocIconSize())); + return(C_to_Xen_XIconSize(XAllocIconSize())); } -static XEN gxm_XFilterEvent(XEN arg1, XEN arg2) +static Xen gxm_XFilterEvent(Xen arg1, Xen arg2) { #define H_XFilterEvent "Bool XFilterEvent(event, w) passes the event to any filters registered for it in the given window" - XEN_ASSERT_TYPE(XEN_XEvent_P(arg1), arg1, 1, "XFilterEvent", "XEvent*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XFilterEvent", "Window"); - return(C_TO_XEN_BOOLEAN(XFilterEvent(XEN_TO_C_XEvent(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_XEvent(arg1), arg1, 1, "XFilterEvent", "XEvent*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XFilterEvent", "Window"); + return(C_bool_to_Xen_boolean(XFilterEvent(Xen_to_C_XEvent(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XContextualDrawing(XEN arg1) +static Xen gxm_XContextualDrawing(Xen arg1) { #define H_XContextualDrawing "Bool XContextualDrawing(font_set): returns " PROC_TRUE " if text drawn with the font set might include context-dependent drawing." - XEN_ASSERT_TYPE(XEN_XFontSet_P(arg1), arg1, 1, "XContextualDrawing", "XFontSet"); - return(C_TO_XEN_BOOLEAN(XContextualDrawing(XEN_TO_C_XFontSet(arg1)))); + Xen_check_type(Xen_is_XFontSet(arg1), arg1, 1, "XContextualDrawing", "XFontSet"); + return(C_bool_to_Xen_boolean(XContextualDrawing(Xen_to_C_XFontSet(arg1)))); } -static XEN gxm_XDirectionalDependentDrawing(XEN arg1) +static Xen gxm_XDirectionalDependentDrawing(Xen arg1) { #define H_XDirectionalDependentDrawing "Bool XDirectionalDependentDrawing(font_set): returns " PROC_TRUE " if the drawing functions implement \ implicit text directionality." - XEN_ASSERT_TYPE(XEN_XFontSet_P(arg1), arg1, 1, "XDirectionalDependentDrawing", "XFontSet"); - return(C_TO_XEN_BOOLEAN(XDirectionalDependentDrawing(XEN_TO_C_XFontSet(arg1)))); + Xen_check_type(Xen_is_XFontSet(arg1), arg1, 1, "XDirectionalDependentDrawing", "XFontSet"); + return(C_bool_to_Xen_boolean(XDirectionalDependentDrawing(Xen_to_C_XFontSet(arg1)))); } -static XEN gxm_XContextDependentDrawing(XEN arg1) +static Xen gxm_XContextDependentDrawing(Xen arg1) { #define H_XContextDependentDrawing "Bool XContextDependentDrawing(font_set): returns " PROC_TRUE " if the drawing functions implement implicit \ text directionality or if text drawn with the font_set might include context-dependent drawing." - XEN_ASSERT_TYPE(XEN_XFontSet_P(arg1), arg1, 1, "XContextDependentDrawing", "XFontSet"); - return(C_TO_XEN_BOOLEAN(XContextDependentDrawing(XEN_TO_C_XFontSet(arg1)))); + Xen_check_type(Xen_is_XFontSet(arg1), arg1, 1, "XContextDependentDrawing", "XFontSet"); + return(C_bool_to_Xen_boolean(XContextDependentDrawing(Xen_to_C_XFontSet(arg1)))); } -static XEN gxm_XLocaleOfFontSet(XEN arg1) +static Xen gxm_XLocaleOfFontSet(Xen arg1) { #define H_XLocaleOfFontSet "char *XLocaleOfFontSet(font_set): returns the name of the locale bound to the specified XFontSet, as a \ null-terminated string." - XEN_ASSERT_TYPE(XEN_XFontSet_P(arg1), arg1, 1, "XLocaleOfFontSet", "XFontSet"); - return(C_TO_XEN_STRING(XLocaleOfFontSet(XEN_TO_C_XFontSet(arg1)))); + Xen_check_type(Xen_is_XFontSet(arg1), arg1, 1, "XLocaleOfFontSet", "XFontSet"); + return(C_string_to_Xen_string(XLocaleOfFontSet(Xen_to_C_XFontSet(arg1)))); } -static XEN gxm_XBaseFontNameListOfFontSet(XEN arg1) +static Xen gxm_XBaseFontNameListOfFontSet(Xen arg1) { #define H_XBaseFontNameListOfFontSet "char *XBaseFontNameListOfFontSet(font_set): returns the original base font name list supplied \ by the client when the XFontSet was created." - XEN_ASSERT_TYPE(XEN_XFontSet_P(arg1), arg1, 1, "XBaseFontNameListOfFontSet", "XFontSet"); - return(C_TO_XEN_STRING(XBaseFontNameListOfFontSet(XEN_TO_C_XFontSet(arg1)))); + Xen_check_type(Xen_is_XFontSet(arg1), arg1, 1, "XBaseFontNameListOfFontSet", "XFontSet"); + return(C_string_to_Xen_string(XBaseFontNameListOfFontSet(Xen_to_C_XFontSet(arg1)))); } -static XEN gxm_XFontsOfFontSet(XEN arg1) +static Xen gxm_XFontsOfFontSet(Xen arg1) { #define H_XFontsOfFontSet "int XFontsOfFontSet(font_set): returns a list of one or more \ XFontStructs and font names for the fonts used by the Xmb and Xwc layers, for the given font set." @@ -8360,32 +8080,32 @@ XFontStructs and font names for the fonts used by the Xmb and Xwc layers, for th */ int i, len, loc1, loc2; char **names; - XEN lst1 = XEN_EMPTY_LIST, lst2 = XEN_EMPTY_LIST; + Xen lst1 = Xen_empty_list, lst2 = Xen_empty_list; XFontStruct **fs; - XEN_ASSERT_TYPE(XEN_XFontSet_P(arg1), arg1, 1, "XFontsOfFontSet", "XFontSet"); - len = XFontsOfFontSet(XEN_TO_C_XFontSet(arg1), &fs, &names); + Xen_check_type(Xen_is_XFontSet(arg1), arg1, 1, "XFontsOfFontSet", "XFontSet"); + len = XFontsOfFontSet(Xen_to_C_XFontSet(arg1), &fs, &names); loc1 = xm_protect(lst1); loc2 = xm_protect(lst2); for (i = len - 1; i >= 0; i--) { - lst1 = XEN_CONS(C_TO_XEN_XFontStruct(fs[i]), lst1); - lst2 = XEN_CONS(C_TO_XEN_STRING(names[i]), lst2); + lst1 = Xen_cons(C_to_Xen_XFontStruct(fs[i]), lst1); + lst2 = Xen_cons(C_string_to_Xen_string(names[i]), lst2); } xm_unprotect_at(loc1); xm_unprotect_at(loc2); - return(XEN_LIST_2(lst1, lst2)); + return(Xen_list_2(lst1, lst2)); } -static XEN gxm_XFreeFontSet(XEN arg1, XEN arg2) +static Xen gxm_XFreeFontSet(Xen arg1, Xen arg2) { #define H_XFreeFontSet "void XFreeFontSet(display, font_set) frees the specified font set." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFreeFontSet", "Display*"); - XEN_ASSERT_TYPE(XEN_XFontSet_P(arg2), arg2, 2, "XFreeFontSet", "XFontSet"); - XFreeFontSet(XEN_TO_C_Display(arg1), XEN_TO_C_XFontSet(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFreeFontSet", "Display*"); + Xen_check_type(Xen_is_XFontSet(arg2), arg2, 2, "XFreeFontSet", "XFontSet"); + XFreeFontSet(Xen_to_C_Display(arg1), Xen_to_C_XFontSet(arg2)); + return(Xen_false); } -static XEN gxm_XCreateFontSet(XEN arg1, XEN arg2) +static Xen gxm_XCreateFontSet(Xen arg1, Xen arg2) { #define H_XCreateFontSet "XFontSet XCreateFontSet(display, base_font_name_list) creates a font set for the specified display." /* DIFF: XCreateFontSet ignores (omits) the 3 trailing missing glyph args @@ -8393,43 +8113,43 @@ static XEN gxm_XCreateFontSet(XEN arg1, XEN arg2) char **cs; int len; char *str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateFontSet", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XCreateFontSet", "char*"); - return(C_TO_XEN_XFontSet(XCreateFontSet(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), &cs, &len, &str))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateFontSet", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XCreateFontSet", "char*"); + return(C_to_Xen_XFontSet(XCreateFontSet(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), &cs, &len, &str))); } -static XEN gxm_XSetLocaleModifiers(XEN arg1) +static Xen gxm_XSetLocaleModifiers(Xen arg1) { #define H_XSetLocaleModifiers "char *XSetLocaleModifiers(modifier_list) sets the X modifiers for the current locale setting." - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XSetLocaleModifiers", "char*"); - return(C_TO_XEN_STRING(XSetLocaleModifiers(XEN_TO_C_STRING(arg1)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XSetLocaleModifiers", "char*"); + return(C_string_to_Xen_string(XSetLocaleModifiers(Xen_string_to_C_string(arg1)))); } -static XEN gxm_XSupportsLocale(void) +static Xen gxm_XSupportsLocale(void) { #define H_XSupportsLocale "Bool XSupportsLocale(): returns " PROC_TRUE " if Xlib functions are capable of operating under the current locale." - return(C_TO_XEN_BOOLEAN(XSupportsLocale())); + return(C_bool_to_Xen_boolean(XSupportsLocale())); } -static XEN gxm_XWriteBitmapFile(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XWriteBitmapFile(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XWriteBitmapFile "int XWriteBitmapFile(display, filename, bitmap, width, height, x_hot, y_hot) writes a bitmap out to a file in \ the X Version 11 format." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XWriteBitmapFile", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XWriteBitmapFile", "char*"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3), arg3, 3, "XWriteBitmapFile", "Pixmap"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XWriteBitmapFile", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XWriteBitmapFile", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XWriteBitmapFile", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XWriteBitmapFile", "int"); - return(C_TO_XEN_INT(XWriteBitmapFile(XEN_TO_C_Display(arg1), - (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_Pixmap(arg3), - XEN_TO_C_ULONG(arg4), XEN_TO_C_ULONG(arg5), - XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7)))); -} - -static XEN gxm_XWindowEvent(XEN arg1, XEN arg2, XEN arg3) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XWriteBitmapFile", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XWriteBitmapFile", "char*"); + Xen_check_type(Xen_is_Pixmap(arg3), arg3, 3, "XWriteBitmapFile", "Pixmap"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XWriteBitmapFile", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XWriteBitmapFile", "unsigned int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XWriteBitmapFile", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XWriteBitmapFile", "int"); + return(C_int_to_Xen_integer(XWriteBitmapFile(Xen_to_C_Display(arg1), + (char *)Xen_string_to_C_string(arg2), + Xen_to_C_Pixmap(arg3), + Xen_ulong_to_C_ulong(arg4), Xen_ulong_to_C_ulong(arg5), + Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7)))); +} + +static Xen gxm_XWindowEvent(Xen arg1, Xen arg2, Xen arg3) { #define H_XWindowEvent "XWindowEvent(display, w, event_mask) searches the event queue for an event that matches both \ the specified window and event mask, and removes it or waits until it arrives." @@ -8437,142 +8157,142 @@ the specified window and event mask, and removes it or waits until it arrives." */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XWindowEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XWindowEvent", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XWindowEvent", "long"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XWindowEvent", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XWindowEvent", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XWindowEvent", "long"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XWindowEvent(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3), e); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XEvent_OBJ(e))); + val = XWindowEvent(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3), e); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XEvent_OBJ(e))); } -static XEN gxm_XWidthOfScreen(XEN arg1) +static Xen gxm_XWidthOfScreen(Xen arg1) { #define H_WidthOfScreen "XWidthOfScreen(screen): returns the width of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XWidthOfScreen", "Screen*"); - return(C_TO_XEN_INT(XWidthOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XWidthOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XWidthOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XWidthMMOfScreen(XEN arg1) +static Xen gxm_XWidthMMOfScreen(Xen arg1) { #define H_WidthMMOfScreen "XWidthMMOfScreen(screen): returns the width of the specified screen in millimeters." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XWidthMMOfScreen", "Screen*"); - return(C_TO_XEN_INT(XWidthMMOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XWidthMMOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XWidthMMOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XWarpPointer(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8, XEN arg9) +static Xen gxm_XWarpPointer(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8, Xen arg9) { #define H_XWarpPointer "XWarpPointer(display, src_w, dest_w, src_x, src_y, src_width, src_height, dest_x, dest_y)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XWarpPointer", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XWarpPointer", "Window"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XWarpPointer", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XWarpPointer", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XWarpPointer", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XWarpPointer", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XWarpPointer", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XWarpPointer", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9), arg9, 9, "XWarpPointer", "int"); - return(C_TO_XEN_INT(XWarpPointer(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), XEN_TO_C_Window(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - XEN_TO_C_ULONG(arg6), XEN_TO_C_ULONG(arg7), - XEN_TO_C_INT(arg8), XEN_TO_C_INT(arg9)))); -} - -static XEN gxm_XVendorRelease(XEN arg1) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XWarpPointer", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XWarpPointer", "Window"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XWarpPointer", "Window"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XWarpPointer", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XWarpPointer", "int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XWarpPointer", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XWarpPointer", "unsigned int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XWarpPointer", "int"); + Xen_check_type(Xen_is_integer(arg9), arg9, 9, "XWarpPointer", "int"); + return(C_int_to_Xen_integer(XWarpPointer(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), Xen_to_C_Window(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + Xen_ulong_to_C_ulong(arg6), Xen_ulong_to_C_ulong(arg7), + Xen_integer_to_C_int(arg8), Xen_integer_to_C_int(arg9)))); +} + +static Xen gxm_XVendorRelease(Xen arg1) { #define H_VendorRelease "VendorRelease(display): returns a number related to a vendor's release of the X server." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XVendorRelease", "Display*"); - return(C_TO_XEN_INT(XVendorRelease(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XVendorRelease", "Display*"); + return(C_int_to_Xen_integer(XVendorRelease(Xen_to_C_Display(arg1)))); } -static XEN gxm_XUnmapWindow(XEN arg1, XEN arg2) +static Xen gxm_XUnmapWindow(Xen arg1, Xen arg2) { #define H_XUnmapWindow "XUnmapWindow(display, w) unmaps the specified window and causes the X server to generate an UnmapNotify event." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUnmapWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XUnmapWindow", "Window"); - return(C_TO_XEN_INT(XUnmapWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUnmapWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XUnmapWindow", "Window"); + return(C_int_to_Xen_integer(XUnmapWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XUnmapSubwindows(XEN arg1, XEN arg2) +static Xen gxm_XUnmapSubwindows(Xen arg1, Xen arg2) { #define H_XUnmapSubwindows "XUnmapSubwindows(display, w) unmaps all subwindows for the specified window in bottom-to-top stacking order." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUnmapSubwindows", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XUnmapSubwindows", "Window"); - return(C_TO_XEN_INT(XUnmapSubwindows(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUnmapSubwindows", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XUnmapSubwindows", "Window"); + return(C_int_to_Xen_integer(XUnmapSubwindows(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XUnloadFont(XEN arg1, XEN arg2) +static Xen gxm_XUnloadFont(Xen arg1, Xen arg2) { #define H_XUnloadFont "XUnloadFont(display, font) deletes the association between the font resource ID and the specified font." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUnloadFont", "Display*"); - XEN_ASSERT_TYPE(XEN_Font_P(arg2), arg2, 2, "XUnloadFont", "Font"); - return(C_TO_XEN_INT(XUnloadFont(XEN_TO_C_Display(arg1), XEN_TO_C_Font(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUnloadFont", "Display*"); + Xen_check_type(Xen_is_Font(arg2), arg2, 2, "XUnloadFont", "Font"); + return(C_int_to_Xen_integer(XUnloadFont(Xen_to_C_Display(arg1), Xen_to_C_Font(arg2)))); } -static XEN gxm_XUninstallColormap(XEN arg1, XEN arg2) +static Xen gxm_XUninstallColormap(Xen arg1, Xen arg2) { #define H_XUninstallColormap "XUninstallColormap(display, colormap) removes the specified colormap from the required list for its screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUninstallColormap", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XUninstallColormap", "Colormap"); - return(C_TO_XEN_INT(XUninstallColormap(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUninstallColormap", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XUninstallColormap", "Colormap"); + return(C_int_to_Xen_integer(XUninstallColormap(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2)))); } -static XEN gxm_XUngrabServer(XEN arg1) +static Xen gxm_XUngrabServer(Xen arg1) { #define H_XUngrabServer "XUngrabServer(display) restarts processing of requests and close downs on other connections." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUngrabServer", "Display*"); - return(C_TO_XEN_INT(XUngrabServer(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUngrabServer", "Display*"); + return(C_int_to_Xen_integer(XUngrabServer(Xen_to_C_Display(arg1)))); } -static XEN gxm_XUngrabPointer(XEN arg1, XEN arg2) +static Xen gxm_XUngrabPointer(Xen arg1, Xen arg2) { #define H_XUngrabPointer "XUngrabPointer(display, time) releases the pointer and any queued events if this client has actively grabbed the \ pointer from XGrabPointer, XGrabButton,or from a normal button press." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUngrabPointer", "Display*"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XUngrabPointer", "Time"); - return(C_TO_XEN_INT(XUngrabPointer(XEN_TO_C_Display(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUngrabPointer", "Display*"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XUngrabPointer", "Time"); + return(C_int_to_Xen_integer(XUngrabPointer(Xen_to_C_Display(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XUngrabKeyboard(XEN arg1, XEN arg2) +static Xen gxm_XUngrabKeyboard(Xen arg1, Xen arg2) { #define H_XUngrabKeyboard "XUngrabKeyboard(display, time) releases the keyboard and any queued events if this client has it actively grabbed \ from either XGrabKeyboard or XGrabKey." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUngrabKeyboard", "Display*"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XUngrabKeyboard", "Time"); - return(C_TO_XEN_INT(XUngrabKeyboard(XEN_TO_C_Display(arg1), XEN_TO_C_Time(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUngrabKeyboard", "Display*"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XUngrabKeyboard", "Time"); + return(C_int_to_Xen_integer(XUngrabKeyboard(Xen_to_C_Display(arg1), Xen_to_C_Time(arg2)))); } -static XEN gxm_XUngrabKey(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XUngrabKey(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XUngrabKey "XUngrabKey(display, keycode, modifiers, grab_window) releases the key combination on the specified window if it was \ grabbed by this client." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUngrabKey", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XUngrabKey", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XUngrabKey", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg4), arg4, 4, "XUngrabKey", "Window"); - return(C_TO_XEN_INT(XUngrabKey(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_Window(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUngrabKey", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XUngrabKey", "int"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XUngrabKey", "unsigned int"); + Xen_check_type(Xen_is_Window(arg4), arg4, 4, "XUngrabKey", "Window"); + return(C_int_to_Xen_integer(XUngrabKey(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), Xen_ulong_to_C_ulong(arg3), Xen_to_C_Window(arg4)))); } -static XEN gxm_XUngrabButton(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XUngrabButton(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XUngrabButton "XUngrabButton(display, button, modifiers, grab_window) releases the passive button/key combination on the specified \ window if it was grabbed by this client." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUngrabButton", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XUngrabButton", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XUngrabButton", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg4), arg4, 4, "XUngrabButton", "Window"); - return(C_TO_XEN_INT(XUngrabButton(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_Window(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUngrabButton", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XUngrabButton", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XUngrabButton", "unsigned int"); + Xen_check_type(Xen_is_Window(arg4), arg4, 4, "XUngrabButton", "Window"); + return(C_int_to_Xen_integer(XUngrabButton(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2), Xen_ulong_to_C_ulong(arg3), Xen_to_C_Window(arg4)))); } -static XEN gxm_XUndefineCursor(XEN arg1, XEN arg2) +static Xen gxm_XUndefineCursor(Xen arg1, Xen arg2) { #define H_XUndefineCursor "XUndefineCursor(display, w) undoes the effect of a previous XDefineCursor for this window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XUndefineCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XUndefineCursor", "Window"); - return(C_TO_XEN_INT(XUndefineCursor(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XUndefineCursor", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XUndefineCursor", "Window"); + return(C_int_to_Xen_integer(XUndefineCursor(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XTranslateCoordinates(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XTranslateCoordinates(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XTranslateCoordinates "Bool XTranslateCoordinates(display, src_w, dest_w, src_x, src_y) \ takes the src_x and src_y coordinates relative to the source window's origin and returns these coordinates to dest_x_return and dest_y_return \ @@ -8581,89 +8301,89 @@ relative to the destination window's origin -> (rtn x y win)." */ Window w; int x, y, rtn; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XTranslateCoordinates", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XTranslateCoordinates", "Window"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XTranslateCoordinates", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XTranslateCoordinates", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XTranslateCoordinates", "int"); - rtn = XTranslateCoordinates(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_Window(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XTranslateCoordinates", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XTranslateCoordinates", "Window"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XTranslateCoordinates", "Window"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XTranslateCoordinates", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XTranslateCoordinates", "int"); + rtn = XTranslateCoordinates(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_Window(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), &x, &y, &w); - return(XEN_LIST_4(C_TO_XEN_BOOLEAN(rtn), - C_TO_XEN_INT(x), - C_TO_XEN_INT(y), - C_TO_XEN_Window(w))); + return(Xen_list_4(C_bool_to_Xen_boolean(rtn), + C_int_to_Xen_integer(x), + C_int_to_Xen_integer(y), + C_to_Xen_Window(w))); } -static XEN gxm_XTextWidth(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XTextWidth(Xen arg1, Xen arg2, Xen arg3) { #define H_XTextWidth "int XTextWidth(font_struct, string, count): returns the width of the specified 8-bit string." - XEN_ASSERT_TYPE(XEN_XFontStruct_P(arg1), arg1, 1, "XTextWidth", "XFontStruct*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XTextWidth", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XTextWidth", "int"); - return(C_TO_XEN_INT(XTextWidth(XEN_TO_C_XFontStruct(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_XFontStruct(arg1), arg1, 1, "XTextWidth", "XFontStruct*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XTextWidth", "char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XTextWidth", "int"); + return(C_int_to_Xen_integer(XTextWidth(Xen_to_C_XFontStruct(arg1), (char *)Xen_string_to_C_string(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XTextExtents(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XTextExtents(Xen arg1, Xen arg2, Xen arg3) { #define H_XTextExtents "XTextExtents(font_struct, string, nchars): returns an XCharStruct structure describing the text." /* DIFF: XTextExtents omit final 4 args and returns them [Xcharset returned as embedded list) */ int dir, fa, fd, rtn; XCharStruct val; - XEN_ASSERT_TYPE(XEN_XFontStruct_P(arg1), arg1, 1, "XTextExtents", "XFontStruct*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XTextExtents", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XTextExtents", "int"); - rtn = XTextExtents(XEN_TO_C_XFontStruct(arg1), - (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_INT(arg3), + Xen_check_type(Xen_is_XFontStruct(arg1), arg1, 1, "XTextExtents", "XFontStruct*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XTextExtents", "char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XTextExtents", "int"); + rtn = XTextExtents(Xen_to_C_XFontStruct(arg1), + (char *)Xen_string_to_C_string(arg2), + Xen_integer_to_C_int(arg3), &dir, &fa, &fd, &val); - return(XEN_LIST_5(C_TO_XEN_INT(rtn), - C_TO_XEN_INT(dir), - C_TO_XEN_INT(fa), - C_TO_XEN_INT(fd), - XEN_LIST_6(C_TO_XEN_INT((int)(val.lbearing)), - C_TO_XEN_INT((int)(val.rbearing)), - C_TO_XEN_INT((int)(val.width)), - C_TO_XEN_INT((int)(val.ascent)), - C_TO_XEN_INT((int)(val.descent)), - C_TO_XEN_INT((int)(val.attributes))))); + return(Xen_list_5(C_int_to_Xen_integer(rtn), + C_int_to_Xen_integer(dir), + C_int_to_Xen_integer(fa), + C_int_to_Xen_integer(fd), + Xen_list_6(C_int_to_Xen_integer((int)(val.lbearing)), + C_int_to_Xen_integer((int)(val.rbearing)), + C_int_to_Xen_integer((int)(val.width)), + C_int_to_Xen_integer((int)(val.ascent)), + C_int_to_Xen_integer((int)(val.descent)), + C_int_to_Xen_integer((int)(val.attributes))))); } -static XEN gxm_XSync(XEN arg1, XEN arg2) +static Xen gxm_XSync(Xen arg1, Xen arg2) { #define H_XSync "XSync(display, discard) flushes the output buffer and then waits until all requests have been received and processed by the X server." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSync", "Display*"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XSync", "Bool"); - return(C_TO_XEN_INT(XSync(XEN_TO_C_Display(arg1), XEN_TO_C_BOOLEAN(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSync", "Display*"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XSync", "Bool"); + return(C_int_to_Xen_integer(XSync(Xen_to_C_Display(arg1), Xen_boolean_to_C_bool(arg2)))); } -static XEN gxm_XStoreNamedColor(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XStoreNamedColor(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XStoreNamedColor "XStoreNamedColor(display, colormap, color, pixel, flags) looks up the named color with respect to the screen \ associated with the colormap and stores the result in the specified colormap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XStoreNamedColor", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XStoreNamedColor", "Colormap"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XStoreNamedColor", "char*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XStoreNamedColor", "ulong"); /* this is explicitly an index into the colormap, so I'll leave it as is */ - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XStoreNamedColor", "int"); - return(C_TO_XEN_INT(XStoreNamedColor(XEN_TO_C_Display(arg1), - XEN_TO_C_Colormap(arg2), - (char *)XEN_TO_C_STRING(arg3), XEN_TO_C_ULONG(arg4), XEN_TO_C_INT(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XStoreNamedColor", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XStoreNamedColor", "Colormap"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XStoreNamedColor", "char*"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XStoreNamedColor", "ulong"); /* this is explicitly an index into the colormap, so I'll leave it as is */ + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XStoreNamedColor", "int"); + return(C_int_to_Xen_integer(XStoreNamedColor(Xen_to_C_Display(arg1), + Xen_to_C_Colormap(arg2), + (char *)Xen_string_to_C_string(arg3), Xen_ulong_to_C_ulong(arg4), Xen_integer_to_C_int(arg5)))); } -static XEN gxm_XStoreName(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XStoreName(Xen arg1, Xen arg2, Xen arg3) { #define H_XStoreName "XStoreName(display, w, window_name) assigns the name passed to window_name to the specified window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XStoreName", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XStoreName", "Window"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XStoreName", "char*"); - return(C_TO_XEN_INT(XStoreName(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), (char *)XEN_TO_C_STRING(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XStoreName", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XStoreName", "Window"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XStoreName", "char*"); + return(C_int_to_Xen_integer(XStoreName(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), (char *)Xen_string_to_C_string(arg3)))); } -static XEN gxm_XStoreColors(XEN arg1, XEN arg2, XEN larg3, XEN arg4) +static Xen gxm_XStoreColors(Xen arg1, Xen arg2, Xen larg3, Xen arg4) { #define H_XStoreColors "XStoreColors(display, colormap, color, ncolors) changes the colormap entries of the pixel values specified in the \ pixel members of the XColor structures." @@ -8671,19 +8391,19 @@ pixel members of the XColor structures." */ XColor *xc; int i, len; - XEN arg3; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XStoreColors", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XStoreColors", "Colormap"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg3), larg3, 3, "XStoreColors", "list of XColor"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XStoreColors", "int"); - arg3 = XEN_COPY_ARG(larg3); - len = XEN_TO_C_INT(arg4); - if (len <= 0) XEN_ASSERT_TYPE(0, arg4, 4, "XStoreColors", "positive integer"); + Xen arg3; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XStoreColors", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XStoreColors", "Colormap"); + Xen_check_type(Xen_is_list(larg3), larg3, 3, "XStoreColors", "list of XColor"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XStoreColors", "int"); + arg3 = Xen_copy_arg(larg3); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) Xen_check_type(0, arg4, 4, "XStoreColors", "positive integer"); xc = (XColor *)calloc(len, sizeof(XColor)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg3)); i++, arg3 = XEN_CDR(arg3)) + for (i = 0; (i < len) && (!Xen_is_null(arg3)); i++, arg3 = Xen_cdr(arg3)) { XColor *xc1; - xc1 = XEN_TO_C_XColor(XEN_CAR(arg3)); + xc1 = Xen_to_C_XColor(Xen_car(arg3)); xc[i].pixel = xc1->pixel; xc[i].red = xc1->red; xc[i].green = xc1->green; @@ -8691,367 +8411,367 @@ pixel members of the XColor structures." xc[i].flags = xc1->flags; xc[i].pad = xc1->pad; } - XStoreColors(XEN_TO_C_Display(arg1), - XEN_TO_C_Colormap(arg2), + XStoreColors(Xen_to_C_Display(arg1), + Xen_to_C_Colormap(arg2), xc, len); free(xc); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XStoreColor(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XStoreColor(Xen arg1, Xen arg2, Xen arg3) { #define H_XStoreColor "XStoreColor(display, colormap, color) changes the colormap entry of the pixel value specified in the pixel member \ of the XColor structure." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XStoreColor", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XStoreColor", "Colormap"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg3), arg3, 3, "XStoreColor", "XColor"); - return(C_TO_XEN_INT(XStoreColor(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2), XEN_TO_C_XColor(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XStoreColor", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XStoreColor", "Colormap"); + Xen_check_type(Xen_is_XColor(arg3), arg3, 3, "XStoreColor", "XColor"); + return(C_int_to_Xen_integer(XStoreColor(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2), Xen_to_C_XColor(arg3)))); } -static XEN gxm_XStoreBytes(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XStoreBytes(Xen arg1, Xen arg2, Xen arg3) { #define H_XStoreBytes "XStoreBytes(display, bytes, nbytes)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XStoreBytes", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XStoreBytes", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XStoreBytes", "int"); - return(C_TO_XEN_INT(XStoreBytes(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_INT(arg3) + 1))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XStoreBytes", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XStoreBytes", "char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XStoreBytes", "int"); + return(C_int_to_Xen_integer(XStoreBytes(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), Xen_integer_to_C_int(arg3) + 1))); } -static XEN gxm_XStoreBuffer(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XStoreBuffer(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XStoreBuffer "XStoreBuffer(display, bytes, nbytes, buffer)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XStoreBuffer", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XStoreBuffer", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XStoreBuffer", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XStoreBuffer", "int"); - return(C_TO_XEN_INT(XStoreBuffer(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_INT(arg3) + 1, XEN_TO_C_INT(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XStoreBuffer", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XStoreBuffer", "char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XStoreBuffer", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XStoreBuffer", "int"); + return(C_int_to_Xen_integer(XStoreBuffer(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), Xen_integer_to_C_int(arg3) + 1, Xen_integer_to_C_int(arg4)))); } -static XEN gxm_XSetWindowColormap(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetWindowColormap(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetWindowColormap "XSetWindowColormap(display, w, colormap) sets the specified colormap of the specified window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWindowColormap", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWindowColormap", "Window"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg3), arg3, 3, "XSetWindowColormap", "Colormap"); - return(C_TO_XEN_INT(XSetWindowColormap(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Colormap(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWindowColormap", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWindowColormap", "Window"); + Xen_check_type(Xen_is_Colormap(arg3), arg3, 3, "XSetWindowColormap", "Colormap"); + return(C_int_to_Xen_integer(XSetWindowColormap(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Colormap(arg3)))); } -static XEN gxm_XSetWindowBorderWidth(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetWindowBorderWidth(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetWindowBorderWidth "XSetWindowBorderWidth(display, w, width) sets the specified window's border width to the specified width." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWindowBorderWidth", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWindowBorderWidth", "Window"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XSetWindowBorderWidth", "unsigned int"); - return(C_TO_XEN_INT(XSetWindowBorderWidth(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_ULONG(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWindowBorderWidth", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWindowBorderWidth", "Window"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XSetWindowBorderWidth", "unsigned int"); + return(C_int_to_Xen_integer(XSetWindowBorderWidth(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_ulong_to_C_ulong(arg3)))); } -static XEN gxm_XSetWindowBorderPixmap(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetWindowBorderPixmap(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetWindowBorderPixmap "XSetWindowBorderPixmap(display, w, border_pixmap) sets the border pixmap of the window to the pixmap you specify." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWindowBorderPixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWindowBorderPixmap", "Window"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3) || XEN_INTEGER_P(arg3), arg3, 3, "XSetWindowBorderPixmap", "Pixmap"); - return(C_TO_XEN_INT(XSetWindowBorderPixmap(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - (XEN_Pixmap_P(arg3)) ? XEN_TO_C_Pixmap(arg3) : CopyFromParent))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWindowBorderPixmap", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWindowBorderPixmap", "Window"); + Xen_check_type(Xen_is_Pixmap(arg3) || Xen_is_integer(arg3), arg3, 3, "XSetWindowBorderPixmap", "Pixmap"); + return(C_int_to_Xen_integer(XSetWindowBorderPixmap(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + (Xen_is_Pixmap(arg3)) ? Xen_to_C_Pixmap(arg3) : CopyFromParent))); } -static XEN gxm_XSetWindowBorder(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetWindowBorder(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetWindowBorder "XSetWindowBorder(display, w, border_pixel) sets the border of the window to the pixel value you specify." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWindowBorder", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWindowBorder", "Window"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XSetWindowBorder", "pixel"); - return(C_TO_XEN_INT(XSetWindowBorder(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Pixel(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWindowBorder", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWindowBorder", "Window"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XSetWindowBorder", "pixel"); + return(C_int_to_Xen_integer(XSetWindowBorder(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Pixel(arg3)))); } -static XEN gxm_XSetWindowBackgroundPixmap(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetWindowBackgroundPixmap(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetWindowBackgroundPixmap "XSetWindowBackgroundPixmap(display, w, background_pixmap) sets the background pixmap of the window to \ the specified pixmap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWindowBackgroundPixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWindowBackgroundPixmap", "Window"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3) || XEN_INTEGER_P(arg3), arg3, 3, "XSetWindowBackgroundPixmap", "Pixmap"); - return(C_TO_XEN_INT(XSetWindowBackgroundPixmap(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - (XEN_Pixmap_P(arg3)) ? XEN_TO_C_Pixmap(arg3) : XEN_TO_C_ULONG(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWindowBackgroundPixmap", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWindowBackgroundPixmap", "Window"); + Xen_check_type(Xen_is_Pixmap(arg3) || Xen_is_integer(arg3), arg3, 3, "XSetWindowBackgroundPixmap", "Pixmap"); + return(C_int_to_Xen_integer(XSetWindowBackgroundPixmap(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + (Xen_is_Pixmap(arg3)) ? Xen_to_C_Pixmap(arg3) : Xen_ulong_to_C_ulong(arg3)))); } -static XEN gxm_XSetWindowBackground(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetWindowBackground(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetWindowBackground "XSetWindowBackground(display, w, background_pixel) sets the background of the window to the specified pixel value." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWindowBackground", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWindowBackground", "Window"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XSetWindowBackground", "pixel"); - return(C_TO_XEN_INT(XSetWindowBackground(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Pixel(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWindowBackground", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWindowBackground", "Window"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XSetWindowBackground", "pixel"); + return(C_int_to_Xen_integer(XSetWindowBackground(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Pixel(arg3)))); } -static XEN gxm_XSetTile(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetTile(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetTile "XSetTile(display, gc, tile) sets the fill tile in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetTile", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetTile", "GC"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3), arg3, 3, "XSetTile", "Pixmap"); - return(C_TO_XEN_INT(XSetTile(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_Pixmap(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetTile", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetTile", "GC"); + Xen_check_type(Xen_is_Pixmap(arg3), arg3, 3, "XSetTile", "Pixmap"); + return(C_int_to_Xen_integer(XSetTile(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_to_C_Pixmap(arg3)))); } -static XEN gxm_XSetTSOrigin(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSetTSOrigin(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSetTSOrigin "XSetTSOrigin(display, gc, ts_x_origin, ts_y_origin) sets the tile/stipple origin in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetTSOrigin", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetTSOrigin", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetTSOrigin", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetTSOrigin", "int"); - return(C_TO_XEN_INT(XSetTSOrigin(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetTSOrigin", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetTSOrigin", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetTSOrigin", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetTSOrigin", "int"); + return(C_int_to_Xen_integer(XSetTSOrigin(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4)))); } -static XEN gxm_XSetSubwindowMode(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetSubwindowMode(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetSubwindowMode "XSetSubwindowMode(display, gc, subwindow_mode) sets the subwindow mode in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetSubwindowMode", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetSubwindowMode", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetSubwindowMode", "int"); - return(C_TO_XEN_INT(XSetSubwindowMode(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetSubwindowMode", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetSubwindowMode", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetSubwindowMode", "int"); + return(C_int_to_Xen_integer(XSetSubwindowMode(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XSetStipple(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetStipple(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetStipple "XSetStipple(display, gc, stipple) sets the stipple in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetStipple", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetStipple", "GC"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3), arg3, 3, "XSetStipple", "Pixmap"); - return(C_TO_XEN_INT(XSetStipple(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_Pixmap(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetStipple", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetStipple", "GC"); + Xen_check_type(Xen_is_Pixmap(arg3), arg3, 3, "XSetStipple", "Pixmap"); + return(C_int_to_Xen_integer(XSetStipple(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_to_C_Pixmap(arg3)))); } -static XEN gxm_XSetState(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XSetState(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XSetState "XSetState(display, gc, foreground, background, function, plane_mask) sets the foreground, background, plane mask, and \ function components for the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetState", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetState", "GC"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XSetState", "Pixel"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg4), arg4, 4, "XSetState", "Pixel"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XSetState", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XSetState", "ulong"); - return(C_TO_XEN_INT(XSetState(XEN_TO_C_Display(arg1), - XEN_TO_C_GC(arg2), - XEN_TO_C_Pixel(arg3), XEN_TO_C_Pixel(arg4), - XEN_TO_C_INT(arg5), XEN_TO_C_ULONG(arg6)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetState", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetState", "GC"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XSetState", "Pixel"); + Xen_check_type(Xen_is_Pixel(arg4), arg4, 4, "XSetState", "Pixel"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XSetState", "int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XSetState", "ulong"); + return(C_int_to_Xen_integer(XSetState(Xen_to_C_Display(arg1), + Xen_to_C_GC(arg2), + Xen_to_C_Pixel(arg3), Xen_to_C_Pixel(arg4), + Xen_integer_to_C_int(arg5), Xen_ulong_to_C_ulong(arg6)))); } -static XEN gxm_XSetSelectionOwner(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSetSelectionOwner(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSetSelectionOwner "XSetSelectionOwner(display, selection, owner, time) changes the owner and last-change time for the specified selection" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetSelectionOwner", "Display*"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XSetSelectionOwner", "Atom"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XSetSelectionOwner", "Window"); - XEN_ASSERT_TYPE(XEN_Time_P(arg4), arg4, 4, "XSetSelectionOwner", "Time"); - return(C_TO_XEN_INT(XSetSelectionOwner(XEN_TO_C_Display(arg1), XEN_TO_C_Atom(arg2), XEN_TO_C_Window(arg3), XEN_TO_C_Time(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetSelectionOwner", "Display*"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XSetSelectionOwner", "Atom"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XSetSelectionOwner", "Window"); + Xen_check_type(Xen_is_Time(arg4), arg4, 4, "XSetSelectionOwner", "Time"); + return(C_int_to_Xen_integer(XSetSelectionOwner(Xen_to_C_Display(arg1), Xen_to_C_Atom(arg2), Xen_to_C_Window(arg3), Xen_to_C_Time(arg4)))); } -static XEN gxm_XSetScreenSaver(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XSetScreenSaver(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XSetScreenSaver "XSetScreenSaver(display, timeout, interval, prefer_blanking, allow_exposures) enables the screen saver." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetScreenSaver", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XSetScreenSaver", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetScreenSaver", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetScreenSaver", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XSetScreenSaver", "int"); - return(C_TO_XEN_INT(XSetScreenSaver(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetScreenSaver", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XSetScreenSaver", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetScreenSaver", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetScreenSaver", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XSetScreenSaver", "int"); + return(C_int_to_Xen_integer(XSetScreenSaver(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5)))); } -static XEN gxm_XSetPointerMapping(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetPointerMapping(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetPointerMapping "int XSetPointerMapping(display, map, nmap) sets the mapping of the pointer." int i, len, rtn; unsigned char *map; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetPointerMapping", "Display*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XSetPointerMapping", "list of ints"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XSetPointerMapping", "int"); - if (XEN_INTEGER_P(arg3)) len = XEN_TO_C_INT(arg3); else len = XEN_LIST_LENGTH(arg2); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetPointerMapping", "Display*"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XSetPointerMapping", "list of ints"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XSetPointerMapping", "int"); + if (Xen_is_integer(arg3)) len = Xen_integer_to_C_int(arg3); else len = Xen_list_length(arg2); map = (unsigned char *)calloc(len, sizeof(unsigned char)); for (i = 0; i < len; i++) - map[i] = (unsigned char)XEN_TO_C_INT(XEN_LIST_REF(arg2, i)); - rtn = XSetPointerMapping(XEN_TO_C_Display(arg1), map, len); + map[i] = (unsigned char)Xen_integer_to_C_int(Xen_list_ref(arg2, i)); + rtn = XSetPointerMapping(Xen_to_C_Display(arg1), map, len); free(map); - return(C_TO_XEN_INT(rtn)); + return(C_int_to_Xen_integer(rtn)); } -static XEN gxm_XSetPlaneMask(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetPlaneMask(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetPlaneMask "XSetPlaneMask(display, gc, plane_mask) sets the plane mask in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetPlaneMask", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetPlaneMask", "GC"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XSetPlaneMask", "ulong"); - return(C_TO_XEN_INT(XSetPlaneMask(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_ULONG(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetPlaneMask", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetPlaneMask", "GC"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XSetPlaneMask", "ulong"); + return(C_int_to_Xen_integer(XSetPlaneMask(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_ulong_to_C_ulong(arg3)))); } -static XEN gxm_XSetModifierMapping(XEN arg1, XEN arg2) +static Xen gxm_XSetModifierMapping(Xen arg1, Xen arg2) { #define H_XSetModifierMapping "int XSetModifierMapping(display, modmap) specifies the KeyCodes of the keys (if any) that are to be used as modifiers." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetModifierMapping", "Display*"); - XEN_ASSERT_TYPE(XEN_XModifierKeymap_P(arg2), arg2, 2, "XSetModifierMapping", "XModifierKeymap*"); - return(C_TO_XEN_INT(XSetModifierMapping(XEN_TO_C_Display(arg1), XEN_TO_C_XModifierKeymap(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetModifierMapping", "Display*"); + Xen_check_type(Xen_is_XModifierKeymap(arg2), arg2, 2, "XSetModifierMapping", "XModifierKeymap*"); + return(C_int_to_Xen_integer(XSetModifierMapping(Xen_to_C_Display(arg1), Xen_to_C_XModifierKeymap(arg2)))); } -static XEN gxm_XSetLineAttributes(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XSetLineAttributes(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XSetLineAttributes "XSetLineAttributes(display, gc, line_width, line_style, cap_style, join_style) sets the line drawing components \ in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetLineAttributes", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetLineAttributes", "GC"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XSetLineAttributes", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetLineAttributes", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XSetLineAttributes", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XSetLineAttributes", "int"); - return(C_TO_XEN_INT(XSetLineAttributes(XEN_TO_C_Display(arg1), - XEN_TO_C_GC(arg2), - XEN_TO_C_ULONG(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetLineAttributes", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetLineAttributes", "GC"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XSetLineAttributes", "unsigned int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetLineAttributes", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XSetLineAttributes", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XSetLineAttributes", "int"); + return(C_int_to_Xen_integer(XSetLineAttributes(Xen_to_C_Display(arg1), + Xen_to_C_GC(arg2), + Xen_ulong_to_C_ulong(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6)))); } -static XEN gxm_XSetInputFocus(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSetInputFocus(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSetInputFocus "XSetInputFocus(display, focus, revert_to, time) changes the input focus and the last-focus-change time." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetInputFocus", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetInputFocus", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetInputFocus", "int"); - XEN_ASSERT_TYPE(XEN_Time_P(arg4), arg4, 4, "XSetInputFocus", "Time"); - return(C_TO_XEN_INT(XSetInputFocus(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_Time(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetInputFocus", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetInputFocus", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetInputFocus", "int"); + Xen_check_type(Xen_is_Time(arg4), arg4, 4, "XSetInputFocus", "Time"); + return(C_int_to_Xen_integer(XSetInputFocus(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3), Xen_to_C_Time(arg4)))); } -static XEN gxm_XSetIconName(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetIconName(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetIconName "XSetIconName(display, w, icon_name) sets the name to be displayed in a window's icon." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetIconName", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetIconName", "Window"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XSetIconName", "char*"); - return(C_TO_XEN_INT(XSetIconName(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), (char *)XEN_TO_C_STRING(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetIconName", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetIconName", "Window"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XSetIconName", "char*"); + return(C_int_to_Xen_integer(XSetIconName(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), (char *)Xen_string_to_C_string(arg3)))); } -static XEN gxm_XSetGraphicsExposures(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetGraphicsExposures(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetGraphicsExposures "XSetGraphicsExposures(display, gc, graphics_exposures) sets the graphics-exposures flag in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetGraphicsExposures", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetGraphicsExposures", "GC"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XSetGraphicsExposures", "Bool"); - return(C_TO_XEN_INT(XSetGraphicsExposures(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_BOOLEAN(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetGraphicsExposures", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetGraphicsExposures", "GC"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XSetGraphicsExposures", "Bool"); + return(C_int_to_Xen_integer(XSetGraphicsExposures(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_boolean_to_C_bool(arg3)))); } -static XEN gxm_XSetFunction(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetFunction(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetFunction "XSetFunction(display, gc, function) sets a specified value in the specified GC" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetFunction", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetFunction", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetFunction", "int"); - return(C_TO_XEN_INT(XSetFunction(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetFunction", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetFunction", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetFunction", "int"); + return(C_int_to_Xen_integer(XSetFunction(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XSetForeground(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetForeground(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetForeground "XSetForeground(display, gc, foreground) sets the foreground in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetForeground", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetForeground", "GC"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XSetForeground", "Pixel"); - return(C_TO_XEN_INT(XSetForeground(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_Pixel(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetForeground", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetForeground", "GC"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XSetForeground", "Pixel"); + return(C_int_to_Xen_integer(XSetForeground(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_to_C_Pixel(arg3)))); } -static XEN gxm_XSetFontPath(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetFontPath(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetFontPath "XSetFontPath(display, directories, ndirs) defines the directory search path for font lookup." /* DIFF: XSetFontPath arg2 is list of strings */ char **paths; int len, rtn; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetFontPath", "Display*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XSetFontPath", "list of char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetFontPath", "int"); - len = XEN_TO_C_INT(arg3); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetFontPath", "Display*"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XSetFontPath", "list of char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetFontPath", "int"); + len = Xen_integer_to_C_int(arg3); if (len > 0) - paths = XEN_TO_C_Strings(arg2, len); + paths = Xen_to_C_Strings(arg2, len); else paths = NULL; - rtn = XSetFontPath(XEN_TO_C_Display(arg1), paths, len); + rtn = XSetFontPath(Xen_to_C_Display(arg1), paths, len); if (paths) free(paths); - return(C_TO_XEN_INT(rtn)); + return(C_int_to_Xen_integer(rtn)); } -static XEN gxm_XSetFont(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetFont(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetFont "XSetFont(display, gc, font) sets the current font in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetFont", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetFont", "GC"); - XEN_ASSERT_TYPE(XEN_Font_P(arg3), arg3, 3, "XSetFont", "Font"); - return(C_TO_XEN_INT(XSetFont(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_Font(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetFont", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetFont", "GC"); + Xen_check_type(Xen_is_Font(arg3), arg3, 3, "XSetFont", "Font"); + return(C_int_to_Xen_integer(XSetFont(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_to_C_Font(arg3)))); } -static XEN gxm_XSetFillStyle(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetFillStyle(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetFillStyle "XSetFillStyle(display, gc, fill_style) sets the fill-style in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetFillStyle", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetFillStyle", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetFillStyle", "int"); - return(C_TO_XEN_INT(XSetFillStyle(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetFillStyle", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetFillStyle", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetFillStyle", "int"); + return(C_int_to_Xen_integer(XSetFillStyle(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XSetFillRule(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetFillRule(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetFillRule "XSetFillRule(display, gc, fill_rule) sets the fill-rule in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetFillRule", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetFillRule", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetFillRule", "int"); - return(C_TO_XEN_INT(XSetFillRule(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetFillRule", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetFillRule", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetFillRule", "int"); + return(C_int_to_Xen_integer(XSetFillRule(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XSetDashes(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XSetDashes(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XSetDashes "XSetDashes(display, gc, dash_offset, dash_list, n) sets the dash-offset and dash-list attributes for dashed line styles \ in the specified GC." char *dashes; int i, len = 0, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetDashes", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetDashes", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetDashes", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XSetDashes", "list of ints"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg5), arg5, 5, "XSetDashes", "optional length of list (int)"); - if (XEN_INTEGER_P(arg5)) len = XEN_TO_C_INT(arg5); - if (len <= 0) len = XEN_LIST_LENGTH(arg4); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetDashes", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetDashes", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetDashes", "int"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XSetDashes", "list of ints"); + Xen_check_type(Xen_is_integer_or_unbound(arg5), arg5, 5, "XSetDashes", "optional length of list (int)"); + if (Xen_is_integer(arg5)) len = Xen_integer_to_C_int(arg5); + if (len <= 0) len = Xen_list_length(arg4); dashes = (char *)calloc(len, sizeof(char)); - for (i = 0; i < len; i++) dashes[i] = (char)(XEN_TO_C_INT(XEN_LIST_REF(arg4, i))); - val = XSetDashes(XEN_TO_C_Display(arg1), - XEN_TO_C_GC(arg2), - XEN_TO_C_INT(arg3), + for (i = 0; i < len; i++) dashes[i] = (char)(Xen_integer_to_C_int(Xen_list_ref(arg4, i))); + val = XSetDashes(Xen_to_C_Display(arg1), + Xen_to_C_GC(arg2), + Xen_integer_to_C_int(arg3), dashes, len); free(dashes); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XSetCommand(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSetCommand(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSetCommand "XSetCommand(display, w, argv, argc) sets the command and arguments used to invoke the application." /* DIFF: XSetCommand argv is list of strings */ int len, val; char **str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetCommand", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetCommand", "Window"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XSetCommand", "list of char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetCommand", "int"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - str = XEN_TO_C_Strings(arg3, len); - val = XSetCommand(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), str, len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetCommand", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetCommand", "Window"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XSetCommand", "list of char*"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetCommand", "int"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + str = Xen_to_C_Strings(arg3, len); + val = XSetCommand(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), str, len); free(str); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XSetCloseDownMode(XEN arg1, XEN arg2) +static Xen gxm_XSetCloseDownMode(Xen arg1, Xen arg2) { #define H_XSetCloseDownMode "XSetCloseDownMode(display, close_mode) defines what will happen to the client's resources at connection close." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetCloseDownMode", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XSetCloseDownMode", "int"); - return(C_TO_XEN_INT(XSetCloseDownMode(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetCloseDownMode", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XSetCloseDownMode", "int"); + return(C_int_to_Xen_integer(XSetCloseDownMode(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XSetClipRectangles(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN larg5, XEN arg6, XEN arg7) +static Xen gxm_XSetClipRectangles(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen larg5, Xen arg6, Xen arg7) { #define H_XSetClipRectangles "XSetClipRectangles(display, gc, clip_x_origin, clip_y_origin, rectangles, n, ordering) changes the clip-mask in \ the specified GC to the specified list of rectangles and sets the clip origin." @@ -9059,115 +8779,115 @@ the specified GC to the specified list of rectangles and sets the clip origin." */ XRectangle *pt; int i, len; - XEN arg5; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetClipRectangles", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetClipRectangles", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetClipRectangles", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetClipRectangles", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg5), larg5, 5, "XSetClipRectangles", "list of XRectangles"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XSetClipRectangles", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XSetClipRectangles", "int"); - arg5 = XEN_COPY_ARG(larg5); - len = XEN_TO_C_INT(arg6); - if (len <= 0) XEN_ASSERT_TYPE(0, arg6, 6, "XSetClipRectangles", "positive integer"); + Xen arg5; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetClipRectangles", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetClipRectangles", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetClipRectangles", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetClipRectangles", "int"); + Xen_check_type(Xen_is_list(larg5), larg5, 5, "XSetClipRectangles", "list of XRectangles"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XSetClipRectangles", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XSetClipRectangles", "int"); + arg5 = Xen_copy_arg(larg5); + len = Xen_integer_to_C_int(arg6); + if (len <= 0) Xen_check_type(0, arg6, 6, "XSetClipRectangles", "positive integer"); pt = (XRectangle *)calloc(len, sizeof(XRectangle)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg5)); i++, arg5 = XEN_CDR(arg5)) + for (i = 0; (i < len) && (!Xen_is_null(arg5)); i++, arg5 = Xen_cdr(arg5)) { XRectangle *pt1; - pt1 = XEN_TO_C_XRectangle(XEN_CAR(arg5)); + pt1 = Xen_to_C_XRectangle(Xen_car(arg5)); pt[i].x = pt1->x; pt[i].y = pt1->y; pt[i].width = pt1->width; pt[i].height = pt1->height; } - XSetClipRectangles(XEN_TO_C_Display(arg1), - XEN_TO_C_GC(arg2), - XEN_TO_C_INT(arg3), - XEN_TO_C_INT(arg4), + XSetClipRectangles(Xen_to_C_Display(arg1), + Xen_to_C_GC(arg2), + Xen_integer_to_C_int(arg3), + Xen_integer_to_C_int(arg4), pt, len, - XEN_TO_C_INT(arg7)); + Xen_integer_to_C_int(arg7)); free(pt); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XSetClipOrigin(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSetClipOrigin(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSetClipOrigin "XSetClipOrigin(display, gc, clip_x_origin, clip_y_origin) sets the clip origin in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetClipOrigin", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetClipOrigin", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetClipOrigin", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetClipOrigin", "int"); - return(C_TO_XEN_INT(XSetClipOrigin(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetClipOrigin", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetClipOrigin", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetClipOrigin", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetClipOrigin", "int"); + return(C_int_to_Xen_integer(XSetClipOrigin(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4)))); } -static XEN gxm_XSetClipMask(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetClipMask(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetClipMask "XSetClipMask(display, gc, pixmap) sets the clip-mask in the specified GC to the specified pixmap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetClipMask", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetClipMask", "GC"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3) || XEN_INTEGER_P(arg3), arg3, 3, "XSetClipMask", "Pixmap or None"); - return(C_TO_XEN_INT(XSetClipMask(XEN_TO_C_Display(arg1), - XEN_TO_C_GC(arg2), - (XEN_Pixmap_P(arg3)) ? XEN_TO_C_Pixmap(arg3) : None))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetClipMask", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetClipMask", "GC"); + Xen_check_type(Xen_is_Pixmap(arg3) || Xen_is_integer(arg3), arg3, 3, "XSetClipMask", "Pixmap or None"); + return(C_int_to_Xen_integer(XSetClipMask(Xen_to_C_Display(arg1), + Xen_to_C_GC(arg2), + (Xen_is_Pixmap(arg3)) ? Xen_to_C_Pixmap(arg3) : None))); } -static XEN gxm_XSetBackground(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetBackground(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetBackground "XSetBackground(display, gc, background) sets the background in the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetBackground", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetBackground", "GC"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg3), arg3, 3, "XSetBackground", "Pixel"); - return(C_TO_XEN_INT(XSetBackground(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_Pixel(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetBackground", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetBackground", "GC"); + Xen_check_type(Xen_is_Pixel(arg3), arg3, 3, "XSetBackground", "Pixel"); + return(C_int_to_Xen_integer(XSetBackground(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_to_C_Pixel(arg3)))); } -static XEN gxm_XSetArcMode(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetArcMode(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetArcMode "XSetArcMode(display, gc, arc_mode)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetArcMode", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XSetArcMode", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSetArcMode", "int"); - return(C_TO_XEN_INT(XSetArcMode(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetArcMode", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XSetArcMode", "GC"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSetArcMode", "int"); + return(C_int_to_Xen_integer(XSetArcMode(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XSetAccessControl(XEN arg1, XEN arg2) +static Xen gxm_XSetAccessControl(Xen arg1, Xen arg2) { #define H_XSetAccessControl "XSetAccessControl(display, mode) either enables or disables the use of the access control list at each connection setup." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetAccessControl", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XSetAccessControl", "int"); - return(C_TO_XEN_INT(XSetAccessControl(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetAccessControl", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XSetAccessControl", "int"); + return(C_int_to_Xen_integer(XSetAccessControl(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XSendEvent(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XSendEvent(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XSendEvent "Status XSendEvent(display, w, propagate, event_mask, event_send) identifies the destination window, determines which \ clients should receive the specified events, " - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSendEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSendEvent", "Window"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XSendEvent", "Bool"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSendEvent", "long"); - XEN_ASSERT_TYPE(XEN_XEvent_P(arg5), arg5, 5, "XSendEvent", "XEvent*"); - return(C_TO_XEN_INT(XSendEvent(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_BOOLEAN(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_XEvent(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSendEvent", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSendEvent", "Window"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XSendEvent", "Bool"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSendEvent", "long"); + Xen_check_type(Xen_is_XEvent(arg5), arg5, 5, "XSendEvent", "XEvent*"); + return(C_int_to_Xen_integer(XSendEvent(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_boolean_to_C_bool(arg3), Xen_integer_to_C_int(arg4), Xen_to_C_XEvent(arg5)))); } -static XEN gxm_XSelectInput(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSelectInput(Xen arg1, Xen arg2, Xen arg3) { #define H_XSelectInput "XSelectInput(dpy, window, event_mask) selects input events" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSelectInput", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSelectInput", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSelectInput", "long"); - return(C_TO_XEN_INT(XSelectInput(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSelectInput", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSelectInput", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSelectInput", "long"); + return(C_int_to_Xen_integer(XSelectInput(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XScreenCount(XEN arg1) +static Xen gxm_XScreenCount(Xen arg1) { #define H_ScreenCount "returns the number of available screens." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XScreenCount", "Display*"); - return(C_TO_XEN_INT(XScreenCount(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XScreenCount", "Display*"); + return(C_int_to_Xen_integer(XScreenCount(Xen_to_C_Display(arg1)))); } -static XEN gxm_XRotateWindowProperties(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XRotateWindowProperties(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XRotateWindowProperties "XRotateWindowProperties(display, w, properties, num_prop, npositions) allows you to rotate properties on a \ window and causes the X server to generate PropertyNotify events." @@ -9175,148 +8895,148 @@ window and causes the X server to generate PropertyNotify events." */ Atom *outs; int val, len; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XRotateWindowProperties", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XRotateWindowProperties", "Window"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XRotateWindowProperties", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XRotateWindowProperties", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XRotateWindowProperties", "int"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - outs = XEN_TO_C_Atoms(arg3, len); - val = XRotateWindowProperties(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), outs, len, XEN_TO_C_INT(arg5)); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XRotateWindowProperties", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XRotateWindowProperties", "Window"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XRotateWindowProperties", "list of Atom"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XRotateWindowProperties", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XRotateWindowProperties", "int"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg3, len); + val = XRotateWindowProperties(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), outs, len, Xen_integer_to_C_int(arg5)); free(outs); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XRotateBuffers(XEN arg1, XEN arg2) +static Xen gxm_XRotateBuffers(Xen arg1, Xen arg2) { #define H_XRotateBuffers "XRotateBuffers(display, rotate) rotates the cut buffers, such that buffer 0 becomes buffer n, buffer 1 becomes n + 1 \ mod 8, and so on. " - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XRotateBuffers", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XRotateBuffers", "int"); - return(C_TO_XEN_INT(XRotateBuffers(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XRotateBuffers", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XRotateBuffers", "int"); + return(C_int_to_Xen_integer(XRotateBuffers(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XRestackWindows(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XRestackWindows(Xen arg1, Xen arg2, Xen arg3) { #define H_XRestackWindows "XRestackWindows(display, windows, nwindows) restacks the windows in the order specified, from top to bottom." /* DIFF: XRestackWindows arg2 is list of Windows */ int len, rtn; Window *ws; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XRestackWindows", "Display*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XRestackWindows", "list of Windows"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XRestackWindows", "int"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) return(XEN_FALSE); - ws = XEN_TO_C_Windows(arg2, len); - rtn = XRestackWindows(XEN_TO_C_Display(arg1), ws, len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XRestackWindows", "Display*"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XRestackWindows", "list of Windows"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XRestackWindows", "int"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) return(Xen_false); + ws = Xen_to_C_Windows(arg2, len); + rtn = XRestackWindows(Xen_to_C_Display(arg1), ws, len); free(ws); - return(C_TO_XEN_INT(rtn)); + return(C_int_to_Xen_integer(rtn)); } -static XEN gxm_XResizeWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XResizeWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XResizeWindow "XResizeWindow(display, w, width, height) changes the inside dimensions of the specified window, not including its borders." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XResizeWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XResizeWindow", "Window"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XResizeWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XResizeWindow", "unsigned int"); - return(C_TO_XEN_INT(XResizeWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_ULONG(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XResizeWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XResizeWindow", "Window"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XResizeWindow", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XResizeWindow", "unsigned int"); + return(C_int_to_Xen_integer(XResizeWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_ulong_to_C_ulong(arg3), Xen_ulong_to_C_ulong(arg4)))); } -static XEN gxm_XResetScreenSaver(XEN arg1) +static Xen gxm_XResetScreenSaver(Xen arg1) { #define H_XResetScreenSaver "XResetScreenSaver(display) resets the screen saver." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XResetScreenSaver", "Display*"); - return(C_TO_XEN_INT(XResetScreenSaver(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XResetScreenSaver", "Display*"); + return(C_int_to_Xen_integer(XResetScreenSaver(Xen_to_C_Display(arg1)))); } -static XEN gxm_XReparentWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XReparentWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XReparentWindow "XReparentWindow(display, w, parent, x, y)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XReparentWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XReparentWindow", "Window"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XReparentWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XReparentWindow", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XReparentWindow", "int"); - return(C_TO_XEN_INT(XReparentWindow(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_Window(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XReparentWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XReparentWindow", "Window"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XReparentWindow", "Window"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XReparentWindow", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XReparentWindow", "int"); + return(C_int_to_Xen_integer(XReparentWindow(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_Window(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5)))); } -static XEN gxm_XRefreshKeyboardMapping(XEN arg1) +static Xen gxm_XRefreshKeyboardMapping(Xen arg1) { #define H_XRefreshKeyboardMapping "XRefreshKeyboardMapping(event_map) refreshes the stored modifier and keymap information." - XEN_ASSERT_TYPE(XEN_XMappingEvent_P(arg1), arg1, 1, "XRefreshKeyboardMapping", "XMappingEvent*"); - return(C_TO_XEN_INT(XRefreshKeyboardMapping(XEN_TO_C_XMappingEvent(arg1)))); + Xen_check_type(Xen_is_XMappingEvent(arg1), arg1, 1, "XRefreshKeyboardMapping", "XMappingEvent*"); + return(C_int_to_Xen_integer(XRefreshKeyboardMapping(Xen_to_C_XMappingEvent(arg1)))); } -static XEN gxm_XRecolorCursor(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XRecolorCursor(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XRecolorCursor "XRecolorCursor(display, cursor, foreground_color, background_color) changes the color of the specified cursor, and if \ the cursor is being displayed on a screen, the change is visible immediately." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XRecolorCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg2), arg2, 2, "XRecolorCursor", "Cursor"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg3), arg3, 3, "XRecolorCursor", "XColor"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg4), arg4, 4, "XRecolorCursor", "XColor"); - return(C_TO_XEN_INT(XRecolorCursor(XEN_TO_C_Display(arg1), XEN_TO_C_Cursor(arg2), - XEN_TO_C_XColor(arg3), XEN_TO_C_XColor(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XRecolorCursor", "Display*"); + Xen_check_type(Xen_is_Cursor(arg2), arg2, 2, "XRecolorCursor", "Cursor"); + Xen_check_type(Xen_is_XColor(arg3), arg3, 3, "XRecolorCursor", "XColor"); + Xen_check_type(Xen_is_XColor(arg4), arg4, 4, "XRecolorCursor", "XColor"); + return(C_int_to_Xen_integer(XRecolorCursor(Xen_to_C_Display(arg1), Xen_to_C_Cursor(arg2), + Xen_to_C_XColor(arg3), Xen_to_C_XColor(arg4)))); } -static XEN gxm_XRebindKeysym(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XRebindKeysym(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XRebindKeysym "XRebindKeysym(display, keysym, list, mod_count, string, num_bytes) can be used to rebind the meaning of a KeySym for the client." /* DIFF: XRebindKeysym mod_list is list of keysyms */ KeySym *ks; int len, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XRebindKeysym", "Display*"); - XEN_ASSERT_TYPE(XEN_KeySym_P(arg2), arg2, 2, "XRebindKeysym", "KeySym"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XRebindKeysym", "list of KeySym"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XRebindKeysym", "int"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg5), arg5, 5, "XRebindKeysym", "string"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XRebindKeysym", "int"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - ks = XEN_TO_C_KeySyms(arg3, len); - val = XRebindKeysym(XEN_TO_C_Display(arg1), - XEN_TO_C_KeySym(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XRebindKeysym", "Display*"); + Xen_check_type(Xen_is_KeySym(arg2), arg2, 2, "XRebindKeysym", "KeySym"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XRebindKeysym", "list of KeySym"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XRebindKeysym", "int"); + Xen_check_type(Xen_is_string(arg5), arg5, 5, "XRebindKeysym", "string"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XRebindKeysym", "int"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + ks = Xen_to_C_KeySyms(arg3, len); + val = XRebindKeysym(Xen_to_C_Display(arg1), + Xen_to_C_KeySym(arg2), ks, len, - (unsigned char *)XEN_TO_C_STRING(arg5), XEN_TO_C_INT(arg6)); + (unsigned char *)Xen_string_to_C_string(arg5), Xen_integer_to_C_int(arg6)); free(ks); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XReadBitmapFileData(XEN arg1) +static Xen gxm_XReadBitmapFileData(Xen arg1) { #define H_XReadBitmapFileData "int XReadBitmapFileData(filename) reads in a \ file containing a bitmap, in the same manner as XReadBitmapFile, but returns the data directly rather than creating a pixmap in the server." /* DIFF: XReadBitmapFileData omits last 5 args, returns as list */ - unsigned int w, h, i, j; + unsigned int w = 0, h = 0, i, j; int x, y; unsigned char **str = NULL; /* allocated by X? */ int val, loc; - XEN bits = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XReadBitmapFileData", "char*"); - val = XReadBitmapFileData((char *)XEN_TO_C_STRING(arg1), &w, &h, str, &x, &y); + Xen bits = Xen_empty_list; + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XReadBitmapFileData", "char*"); + val = XReadBitmapFileData((char *)Xen_string_to_C_string(arg1), &w, &h, str, &x, &y); loc = xm_protect(bits); for (i = 0; i < h; i++) for (j = 0; j < w; j++) - bits = XEN_CONS(C_TO_XEN_INT((int)(str[i][j])), bits); + bits = Xen_cons(C_int_to_Xen_integer((int)(str[i][j])), bits); if (str) free(str); xm_unprotect_at(loc); - return(XEN_LIST_6(C_TO_XEN_INT(val), - C_TO_XEN_INT((int)w), - C_TO_XEN_INT((int)h), + return(Xen_list_6(C_int_to_Xen_integer(val), + C_int_to_Xen_integer((int)w), + C_int_to_Xen_integer((int)h), bits, - C_TO_XEN_INT((int)x), - C_TO_XEN_INT((int)y))); + C_int_to_Xen_integer((int)x), + C_int_to_Xen_integer((int)y))); } -static XEN gxm_XReadBitmapFile(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XReadBitmapFile(Xen arg1, Xen arg2, Xen arg3) { #define H_XReadBitmapFile "int XReadBitmapFile(display, d, filename) reads in a file containing a bitmap." /* DIFF: XReadBitmapFile omits last 5 args, returns as list @@ -9325,27 +9045,27 @@ static XEN gxm_XReadBitmapFile(XEN arg1, XEN arg2, XEN arg3) int x, y; int val; Pixmap *p = NULL; /* allocated by X? */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XReadBitmapFile", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XReadBitmapFile", "Drawable"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XReadBitmapFile", "char*"); - val = XReadBitmapFile(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), (char *)XEN_TO_C_STRING(arg3), &w, &h, p, &x, &y); - return(XEN_LIST_6(C_TO_XEN_INT(val), - C_TO_XEN_INT((int)w), - C_TO_XEN_INT((int)h), - C_TO_XEN_Pixmap(*p), - C_TO_XEN_INT((int)x), - C_TO_XEN_INT((int)y))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XReadBitmapFile", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XReadBitmapFile", "Drawable"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XReadBitmapFile", "char*"); + val = XReadBitmapFile(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), (char *)Xen_string_to_C_string(arg3), &w, &h, p, &x, &y); + return(Xen_list_6(C_int_to_Xen_integer(val), + C_int_to_Xen_integer((int)w), + C_int_to_Xen_integer((int)h), + C_to_Xen_Pixmap(*p), + C_int_to_Xen_integer((int)x), + C_int_to_Xen_integer((int)y))); } -static XEN gxm_XRaiseWindow(XEN arg1, XEN arg2) +static Xen gxm_XRaiseWindow(Xen arg1, Xen arg2) { #define H_XRaiseWindow "XRaiseWindow(display, w)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XRaiseWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XRaiseWindow", "Window"); - return(C_TO_XEN_INT(XRaiseWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XRaiseWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XRaiseWindow", "Window"); + return(C_int_to_Xen_integer(XRaiseWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XQueryTree(XEN arg1, XEN arg2) +static Xen gxm_XQueryTree(Xen arg1, Xen arg2) { #define H_XQueryTree "Status XQueryTree(display, w): returns the root ID, the \ parent window ID, a pointer to the list of children windows and the number of children in the list for the specified window." @@ -9355,24 +9075,24 @@ parent window ID, a pointer to the list of children windows and the number of ch Window *ws; Window root, parent; int i, val, loc; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryTree", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XQueryTree", "Window"); - val = XQueryTree(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryTree", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XQueryTree", "Window"); + val = XQueryTree(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), &root, &parent, &ws, &arrlen); loc = xm_protect(lst); for (i = arrlen - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Window(ws[i]), lst); + lst = Xen_cons(C_to_Xen_Window(ws[i]), lst); XFree(ws); xm_unprotect_at(loc); - return(XEN_LIST_4(C_TO_XEN_INT(val), - C_TO_XEN_Window(root), - C_TO_XEN_Window(parent), + return(Xen_list_4(C_int_to_Xen_integer(val), + C_to_Xen_Window(root), + C_to_Xen_Window(parent), lst)); } -static XEN gxm_XQueryTextExtents(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XQueryTextExtents(Xen arg1, Xen arg2, Xen arg3) { #define H_XQueryTextExtents "XQueryTextExtents(display, font, string): returns the bounding box of the specified 8-bit string." /* DIFF: XQueryTextExtents omits last 5 args, returns list @@ -9380,22 +9100,22 @@ static XEN gxm_XQueryTextExtents(XEN arg1, XEN arg2, XEN arg3) XCharStruct *c; int fa, fd, dr, val; char *str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryTextExtents", "Display*"); - XEN_ASSERT_TYPE(XEN_Font_P(arg2), arg2, 2, "XQueryTextExtents", "Font"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XQueryTextExtents", "char*"); - str = (char *)XEN_TO_C_STRING(arg3); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryTextExtents", "Display*"); + Xen_check_type(Xen_is_Font(arg2), arg2, 2, "XQueryTextExtents", "Font"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XQueryTextExtents", "char*"); + str = (char *)Xen_string_to_C_string(arg3); c = (XCharStruct *)calloc(1, sizeof(XCharStruct)); - val = XQueryTextExtents(XEN_TO_C_Display(arg1), - XEN_TO_C_Font(arg2), + val = XQueryTextExtents(Xen_to_C_Display(arg1), + Xen_to_C_Font(arg2), str, strlen(str), &dr, &fa, &fd, c); - return(XEN_LIST_5(C_TO_XEN_INT(val), - C_TO_XEN_INT(dr), - C_TO_XEN_INT(fa), - C_TO_XEN_INT(fd), - WRAP_FOR_XEN_OBJ("XCharStruct", c))); + return(Xen_list_5(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(dr), + C_int_to_Xen_integer(fa), + C_int_to_Xen_integer(fd), + wrap_for_Xen_obj("XCharStruct", c))); } -static XEN gxm_XQueryPointer(XEN arg1, XEN arg2) +static Xen gxm_XQueryPointer(Xen arg1, Xen arg2) { #define H_XQueryPointer "Bool XQueryPointer(display, w): returns the root window the pointer is logically on and the pointer \ coordinates relative to the root window's origin." @@ -9405,22 +9125,22 @@ coordinates relative to the root window's origin." int rx, ry, wx, wy; unsigned int mask; int rtn; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryPointer", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XQueryPointer", "Window"); - rtn = XQueryPointer(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryPointer", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XQueryPointer", "Window"); + rtn = XQueryPointer(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), &w1, &w2, &rx, &ry, &wx, &wy, &mask); - return(XEN_LIST_8(C_TO_XEN_BOOLEAN(rtn), - C_TO_XEN_Window(w1), - C_TO_XEN_Window(w2), - C_TO_XEN_INT(rx), - C_TO_XEN_INT(ry), - C_TO_XEN_INT(wx), - C_TO_XEN_INT(wy), - C_TO_XEN_ULONG((unsigned long)mask))); + return(Xen_list_8(C_bool_to_Xen_boolean(rtn), + C_to_Xen_Window(w1), + C_to_Xen_Window(w2), + C_int_to_Xen_integer(rx), + C_int_to_Xen_integer(ry), + C_int_to_Xen_integer(wx), + C_int_to_Xen_integer(wy), + C_ulong_to_Xen_ulong((unsigned long)mask))); } -static XEN gxm_XQueryKeymap(XEN arg1) +static Xen gxm_XQueryKeymap(Xen arg1) { #define H_XQueryKeymap "XQueryKeymap(display): returns a bit vector for the logical state of the keyboard, where each bit \ set to 1 indicates that the corresponding key is currently pressed down." @@ -9428,78 +9148,78 @@ set to 1 indicates that the corresponding key is currently pressed down." */ char keys[32]; int val, i, loc; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryKeymap", "Display*"); - val = XQueryKeymap(XEN_TO_C_Display(arg1), keys); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryKeymap", "Display*"); + val = XQueryKeymap(Xen_to_C_Display(arg1), keys); loc = xm_protect(lst); for (i = 31; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_INT((int)keys[i]), lst); + lst = Xen_cons(C_int_to_Xen_integer((int)keys[i]), lst); xm_unprotect_at(loc); - return(XEN_CONS(C_TO_XEN_INT(val), lst)); + return(Xen_cons(C_int_to_Xen_integer(val), lst)); } -static XEN gxm_XQueryExtension(XEN arg1, XEN arg2) +static Xen gxm_XQueryExtension(Xen arg1, Xen arg2) { #define H_XQueryExtension "Bool XQueryExtension(dpy, name) gets extension version information" /* DIFF: XQueryExtension dpy name [op er er] -> (list val op er er) */ int op, err1, err2, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryExtension", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XQueryExtension", "char*"); - val = XQueryExtension(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), &op, &err1, &err2); - return(XEN_LIST_4(C_TO_XEN_BOOLEAN(val), - C_TO_XEN_INT(op), - C_TO_XEN_INT(err1), - C_TO_XEN_INT(err2))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryExtension", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XQueryExtension", "char*"); + val = XQueryExtension(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), &op, &err1, &err2); + return(Xen_list_4(C_bool_to_Xen_boolean(val), + C_int_to_Xen_integer(op), + C_int_to_Xen_integer(err1), + C_int_to_Xen_integer(err2))); } -static XEN gxm_XQueryColors(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XQueryColors(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XQueryColors "XQueryColors(display, colormap, defs_in_out, ncolors)" int i, len, rtn; - XEN lst; + Xen lst; XColor *cols; XColor *col; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryColors", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XQueryColors", "Colormap"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XQueryColors", "XColor list"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg4), arg4, 4, "XQueryColors", "int"); - if (XEN_INTEGER_P(arg4)) len = XEN_TO_C_INT(arg4); else len = XEN_LIST_LENGTH(arg3); - lst = XEN_COPY_ARG(arg3); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryColors", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XQueryColors", "Colormap"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XQueryColors", "XColor list"); + Xen_check_type(Xen_is_integer_or_unbound(arg4), arg4, 4, "XQueryColors", "int"); + if (Xen_is_integer(arg4)) len = Xen_integer_to_C_int(arg4); else len = Xen_list_length(arg3); + lst = Xen_copy_arg(arg3); cols = (XColor *)calloc(len, sizeof(XColor)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(lst)); i++, lst = XEN_CDR(lst)) + for (i = 0; (i < len) && (!Xen_is_null(lst)); i++, lst = Xen_cdr(lst)) { - if (XEN_XColor_P(XEN_CAR(lst))) + if (Xen_is_XColor(Xen_car(lst))) { - col = XEN_TO_C_XColor(XEN_CAR(lst)); + col = Xen_to_C_XColor(Xen_car(lst)); cols[i].pixel = col->pixel; } - else XEN_ASSERT_TYPE(0, XEN_CAR(lst), i, c__FUNCTION__, "an XColor"); + else Xen_check_type(0, Xen_car(lst), i, __func__, "an XColor"); } - rtn = XQueryColors(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2), cols, len); + rtn = XQueryColors(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2), cols, len); for (i = 0; i < len; i++) { - col = XEN_TO_C_XColor(XEN_LIST_REF(arg3, i)); + col = Xen_to_C_XColor(Xen_list_ref(arg3, i)); col->red = cols[i].red; col->green = cols[i].green; col->blue = cols[i].blue; col->flags = cols[i].flags; } free(cols); - return(C_TO_XEN_INT(rtn)); + return(C_int_to_Xen_integer(rtn)); } -static XEN gxm_XQueryColor(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XQueryColor(Xen arg1, Xen arg2, Xen arg3) { #define H_XQueryColor "XQueryColor(display, colormap, def_in_out): returns the current RGB value for the pixel in the XColor structure \ and sets the DoRed, DoGreen, DoBlue flags." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryColor", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XQueryColor", "Colormap"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg3), arg3, 3, "XQueryColor", "XColor*"); - return(C_TO_XEN_INT(XQueryColor(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2), XEN_TO_C_XColor(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryColor", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XQueryColor", "Colormap"); + Xen_check_type(Xen_is_XColor(arg3), arg3, 3, "XQueryColor", "XColor*"); + return(C_int_to_Xen_integer(XQueryColor(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2), Xen_to_C_XColor(arg3)))); } -static XEN gxm_XQueryBestTile(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XQueryBestTile(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XQueryBestTile "Status XQueryBestTile(display, which_screen, width, height) returns the best or \ closest size, that is, the size that can be tiled fastest on the screen specified by which_screen." @@ -9507,18 +9227,18 @@ closest size, that is, the size that can be tiled fastest on the screen specifie */ unsigned int w, h; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryBestTile", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XQueryBestTile", "Drawable"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XQueryBestTile", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XQueryBestTile", "unsigned int"); - val = XQueryBestTile(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_ULONG(arg3), XEN_TO_C_ULONG(arg4), &w, &h); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_ULONG(w), - C_TO_XEN_ULONG(h))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryBestTile", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XQueryBestTile", "Drawable"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XQueryBestTile", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XQueryBestTile", "unsigned int"); + val = XQueryBestTile(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_ulong_to_C_ulong(arg3), Xen_ulong_to_C_ulong(arg4), &w, &h); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_ulong_to_Xen_ulong(w), + C_ulong_to_Xen_ulong(h))); } -static XEN gxm_XQueryBestStipple(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XQueryBestStipple(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XQueryBestStipple "Status XQueryBestStipple(display, which_screen, width, height) returns the \ best or closest size, that is, the size that can be stippled fastest on the screen specified by which_screen." @@ -9526,19 +9246,19 @@ best or closest size, that is, the size that can be stippled fastest on the scre */ unsigned int w, h; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryBestStipple", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XQueryBestStipple", "Drawable"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XQueryBestStipple", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XQueryBestStipple", "unsigned int"); - val = XQueryBestStipple(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_ULONG(arg3), XEN_TO_C_ULONG(arg4), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryBestStipple", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XQueryBestStipple", "Drawable"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XQueryBestStipple", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XQueryBestStipple", "unsigned int"); + val = XQueryBestStipple(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_ulong_to_C_ulong(arg3), Xen_ulong_to_C_ulong(arg4), &w, &h); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_ULONG(w), - C_TO_XEN_ULONG(h))); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_ulong_to_Xen_ulong(w), + C_ulong_to_Xen_ulong(h))); } -static XEN gxm_XQueryBestSize(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XQueryBestSize(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XQueryBestSize "Status XQueryBestSize(display, class, which_screen, width, height) returns the \ best or closest size to the specified size." @@ -9546,20 +9266,20 @@ best or closest size to the specified size." */ unsigned int w, h; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryBestSize", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XQueryBestSize", "int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XQueryBestSize", "Drawable"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XQueryBestSize", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XQueryBestSize", "unsigned int"); - val = XQueryBestSize(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_Window(arg3), - XEN_TO_C_ULONG(arg4), XEN_TO_C_ULONG(arg5), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryBestSize", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XQueryBestSize", "int"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XQueryBestSize", "Drawable"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XQueryBestSize", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XQueryBestSize", "unsigned int"); + val = XQueryBestSize(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), Xen_to_C_Window(arg3), + Xen_ulong_to_C_ulong(arg4), Xen_ulong_to_C_ulong(arg5), &w, &h); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_ULONG(w), - C_TO_XEN_ULONG(h))); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_ulong_to_Xen_ulong(w), + C_ulong_to_Xen_ulong(h))); } -static XEN gxm_XQueryBestCursor(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XQueryBestCursor(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XQueryBestCursor "Status XQueryBestCursor(display, d, width, height) provides a way to find \ out what size cursors are actually possible on the display." @@ -9567,130 +9287,130 @@ out what size cursors are actually possible on the display." */ unsigned int w, h; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryBestCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XQueryBestCursor", "Drawable"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XQueryBestCursor", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XQueryBestCursor", "unsigned int"); - val = XQueryBestCursor(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_ULONG(arg3), XEN_TO_C_ULONG(arg4), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryBestCursor", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XQueryBestCursor", "Drawable"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XQueryBestCursor", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XQueryBestCursor", "unsigned int"); + val = XQueryBestCursor(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_ulong_to_C_ulong(arg3), Xen_ulong_to_C_ulong(arg4), &w, &h); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_ULONG(w), - C_TO_XEN_ULONG(h))); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_ulong_to_Xen_ulong(w), + C_ulong_to_Xen_ulong(h))); } -static XEN gxm_XQLength(XEN arg1) +static Xen gxm_XQLength(Xen arg1) { #define H_QLength "returns the length of the event queue for the connected display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQLength", "Display*"); - return(C_TO_XEN_INT(XQLength(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQLength", "Display*"); + return(C_int_to_Xen_integer(XQLength(Xen_to_C_Display(arg1)))); } -static XEN gxm_XPutImage(XEN args) +static Xen gxm_XPutImage(Xen args) { #define H_XPutImage "XPutImage(display, d, gc, image, src_x, src_y, dest_x, dest_y, width, height) combines an image with a rectangle \ of the specified drawable." - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XPutImage", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XPutImage", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XPutImage", "GC"); - XEN_ASSERT_TYPE(XEN_XImage_P(arg4), arg4, 4, "XPutImage", "XImage*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XPutImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XPutImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XPutImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XPutImage", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg9), arg9, 9, "XPutImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg10), arg10, 10, "XPutImage", "unsigned int"); - return(C_TO_XEN_INT(XPutImage(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), XEN_TO_C_XImage(arg4), XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6), - XEN_TO_C_INT(arg7), XEN_TO_C_INT(arg8), XEN_TO_C_ULONG(arg9), XEN_TO_C_ULONG(arg10)))); -} - -static XEN gxm_XPutBackEvent(XEN arg1, XEN arg2) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XPutImage", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XPutImage", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XPutImage", "GC"); + Xen_check_type(Xen_is_XImage(arg4), arg4, 4, "XPutImage", "XImage*"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XPutImage", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XPutImage", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XPutImage", "int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XPutImage", "int"); + Xen_check_type(Xen_is_ulong(arg9), arg9, 9, "XPutImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg10), arg10, 10, "XPutImage", "unsigned int"); + return(C_int_to_Xen_integer(XPutImage(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), Xen_to_C_XImage(arg4), Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6), + Xen_integer_to_C_int(arg7), Xen_integer_to_C_int(arg8), Xen_ulong_to_C_ulong(arg9), Xen_ulong_to_C_ulong(arg10)))); +} + +static Xen gxm_XPutBackEvent(Xen arg1, Xen arg2) { #define H_XPutBackEvent "XPutBackEvent(display, event) pushes an event back onto the head of the display's event queue by copying the event into the queue." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XPutBackEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_XEvent_P(arg2), arg2, 2, "XPutBackEvent", "XEvent*"); - return(C_TO_XEN_INT(XPutBackEvent(XEN_TO_C_Display(arg1), XEN_TO_C_XEvent(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XPutBackEvent", "Display*"); + Xen_check_type(Xen_is_XEvent(arg2), arg2, 2, "XPutBackEvent", "XEvent*"); + return(C_int_to_Xen_integer(XPutBackEvent(Xen_to_C_Display(arg1), Xen_to_C_XEvent(arg2)))); } -static XEN gxm_XProtocolVersion(XEN arg1) +static Xen gxm_XProtocolVersion(Xen arg1) { #define H_ProtocolVersion "ProtocolVersion(display): returns the major version number (11) of the X protocol associated with the connected display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XProtocolVersion", "Display*"); - return(C_TO_XEN_INT(XProtocolVersion(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XProtocolVersion", "Display*"); + return(C_int_to_Xen_integer(XProtocolVersion(Xen_to_C_Display(arg1)))); } -static XEN gxm_XProtocolRevision(XEN arg1) +static Xen gxm_XProtocolRevision(Xen arg1) { #define H_ProtocolRevision "ProtocolRevision(display): returns the minor protocol revision number of the X server." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XProtocolRevision", "Display*"); - return(C_TO_XEN_INT(XProtocolRevision(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XProtocolRevision", "Display*"); + return(C_int_to_Xen_integer(XProtocolRevision(Xen_to_C_Display(arg1)))); } -static XEN gxm_XPlanesOfScreen(XEN arg1) +static Xen gxm_XPlanesOfScreen(Xen arg1) { #define H_PlanesOfScreen "PlanesOfScreen(screen): returns the number of planes in the root window of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XPlanesOfScreen", "Screen*"); - return(C_TO_XEN_INT(XPlanesOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XPlanesOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XPlanesOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XPending(XEN arg1) +static Xen gxm_XPending(Xen arg1) { #define H_XPending "int XPending(display): returns the number of events that have been received from the X server but have not been removed \ from the event queue." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XPending", "Display*"); - return(C_TO_XEN_INT(XPending(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XPending", "Display*"); + return(C_int_to_Xen_integer(XPending(Xen_to_C_Display(arg1)))); } -static XEN xm_XPeekIfEventProc; +static Xen xm_XPeekIfEventProc; static Bool gxm_XPeekIfEventProc(Display *dpy, XEvent *e, XtPointer p) { - return(XEN_TO_C_BOOLEAN(XEN_CALL_3(xm_XPeekIfEventProc, C_TO_XEN_Display(dpy), C_TO_XEN_XEvent(e), (XEN)(p), c__FUNCTION__))); + return(Xen_boolean_to_C_bool(Xen_call_with_3_args(xm_XPeekIfEventProc, C_to_Xen_Display(dpy), C_to_Xen_XEvent(e), (Xen)(p), __func__))); } -static XEN gxm_XPeekIfEvent(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XPeekIfEvent(Xen arg1, Xen arg2, Xen arg3) { #define H_XPeekIfEvent "XPeekIfEvent(display, predicate, arg): returns only when the specified predicate procedure returns " PROC_TRUE " for an event." /* DIFF: XPeekIfEvent dpy [evrtn] proc ptr -> (list val evrtn) */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XPeekIfEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 3)), arg2, 2, "XPeekIfEvent", "(Bool_Proc dpy ev data)"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XPeekIfEvent", "Display*"); + Xen_check_type(Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 3)), arg2, 2, "XPeekIfEvent", "(Bool_Proc dpy ev data)"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XPeekIfEvent(XEN_TO_C_Display(arg1), + val = XPeekIfEvent(Xen_to_C_Display(arg1), e, (Bool (*)(Display *d, XEvent *ev, char *p))gxm_XPeekIfEventProc, /* C++ insists on the cast */ (XPointer)arg3); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XEvent_OBJ(e))); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XEvent_OBJ(e))); } -static XEN gxm_XPeekEvent(XEN arg1) +static Xen gxm_XPeekEvent(Xen arg1) { #define H_XPeekEvent "XPeekEvent(display): returns the first event from the event queue, but it does not remove the event from the queue." /* DIFF: XPeekEvent dpy [ev] -> (list int event) */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XPeekEvent", "Display*"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XPeekEvent", "Display*"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XPeekEvent(XEN_TO_C_Display(arg1), e); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XEvent_OBJ(e))); + val = XPeekEvent(Xen_to_C_Display(arg1), e); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XEvent_OBJ(e))); } -static XEN gxm_XParseGeometry(XEN arg1) +static Xen gxm_XParseGeometry(Xen arg1) { #define H_XParseGeometry "int XParseGeometry(parsestring): returns a bitmask that \ indicates which of the four values (width, height, xoffset, and yoffset) were actually found in the string and whether the x and y values are negative. " @@ -9698,34 +9418,34 @@ indicates which of the four values (width, height, xoffset, and yoffset) were ac */ int x = 0, y = 0, val = 0; unsigned int w = 0, h = 0; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XParseGeometry", "char*"); - val = XParseGeometry((char *)XEN_TO_C_STRING(arg1), &x, &y, &w, &h); - return(XEN_LIST_5(C_TO_XEN_INT(val), - C_TO_XEN_INT(x), - C_TO_XEN_INT(y), - C_TO_XEN_INT(w), - C_TO_XEN_INT(h))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XParseGeometry", "char*"); + val = XParseGeometry((char *)Xen_string_to_C_string(arg1), &x, &y, &w, &h); + return(Xen_list_5(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(x), + C_int_to_Xen_integer(y), + C_int_to_Xen_integer(w), + C_int_to_Xen_integer(h))); } -static XEN gxm_XParseColor(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XParseColor(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XParseColor "Status XParseColor(display, colormap, spec, exact_def_return) looks up the string name of a color with respect \ to the screen associated with the specified colormap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XParseColor", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XParseColor", "Colormap"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XParseColor", "char*"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg4), arg4, 4, "XParseColor", "XColor"); - return(C_TO_XEN_INT(XParseColor(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2), (char *)XEN_TO_C_STRING(arg3), XEN_TO_C_XColor(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XParseColor", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XParseColor", "Colormap"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XParseColor", "char*"); + Xen_check_type(Xen_is_XColor(arg4), arg4, 4, "XParseColor", "XColor"); + return(C_int_to_Xen_integer(XParseColor(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2), (char *)Xen_string_to_C_string(arg3), Xen_to_C_XColor(arg4)))); } -static XEN gxm_XNoOp(XEN arg1) +static Xen gxm_XNoOp(Xen arg1) { #define H_XNoOp "XNoOp(dpy) sends the server a no-op for exercise" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XNoOp", "Display*"); - return(C_TO_XEN_INT(XNoOp(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XNoOp", "Display*"); + return(C_int_to_Xen_integer(XNoOp(Xen_to_C_Display(arg1)))); } -static XEN gxm_XNextEvent(XEN arg1) +static Xen gxm_XNextEvent(Xen arg1) { #define H_XNextEvent "XNextEvent(display) copies the first event from the event queue into the specified XEvent structure \ and then removes it from the queue." @@ -9733,146 +9453,146 @@ and then removes it from the queue." */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XNextEvent", "Display*"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XNextEvent", "Display*"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XNextEvent(XEN_TO_C_Display(arg1), e); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XEvent_OBJ(e))); + val = XNextEvent(Xen_to_C_Display(arg1), e); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XEvent_OBJ(e))); } -static XEN gxm_XMoveWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XMoveWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XMoveWindow "XMoveWindow(display, w, x, y) moves the specified window to the specified x and y coordinates, but it does not \ change the window's size, raise the window, or change the mapping state of the window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMoveWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XMoveWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XMoveWindow", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XMoveWindow", "int"); - return(C_TO_XEN_INT(XMoveWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMoveWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XMoveWindow", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XMoveWindow", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XMoveWindow", "int"); + return(C_int_to_Xen_integer(XMoveWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4)))); } -static XEN gxm_XMoveResizeWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XMoveResizeWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XMoveResizeWindow "XMoveResizeWindow(display, w, x, y, width, height) changes the size and location of the specified window without raising it." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMoveResizeWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XMoveResizeWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XMoveResizeWindow", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XMoveResizeWindow", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XMoveResizeWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XMoveResizeWindow", "unsigned int"); - return(C_TO_XEN_INT(XMoveResizeWindow(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), - XEN_TO_C_ULONG(arg5), XEN_TO_C_ULONG(arg6)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMoveResizeWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XMoveResizeWindow", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XMoveResizeWindow", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XMoveResizeWindow", "int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XMoveResizeWindow", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XMoveResizeWindow", "unsigned int"); + return(C_int_to_Xen_integer(XMoveResizeWindow(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), + Xen_ulong_to_C_ulong(arg5), Xen_ulong_to_C_ulong(arg6)))); } -static XEN gxm_XMinCmapsOfScreen(XEN arg1) +static Xen gxm_XMinCmapsOfScreen(Xen arg1) { #define H_MinCmapsOfScreen "returns the minimum number of installed colormaps supported by the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XMinCmapsOfScreen", "Screen*"); - return(C_TO_XEN_INT(XMinCmapsOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XMinCmapsOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XMinCmapsOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XMaxCmapsOfScreen(XEN arg1) +static Xen gxm_XMaxCmapsOfScreen(Xen arg1) { #define H_MaxCmapsOfScreen "returns the maximum number of installed colormaps supported by the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XMaxCmapsOfScreen", "Screen*"); - return(C_TO_XEN_INT(XMaxCmapsOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XMaxCmapsOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XMaxCmapsOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XMaskEvent(XEN arg1, XEN arg2) +static Xen gxm_XMaskEvent(Xen arg1, Xen arg2) { #define H_XMaskEvent "XMaskEvent(display, event_mask) searches the event queue for the events associated with the specified mask." /* DIFF: XMaskEvent dpy mask [ev] -> (list val ev) */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMaskEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XMaskEvent", "long"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMaskEvent", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XMaskEvent", "long"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XMaskEvent(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), e); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XEvent_OBJ(e))); + val = XMaskEvent(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), e); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XEvent_OBJ(e))); } -static XEN gxm_XMapWindow(XEN arg1, XEN arg2) +static Xen gxm_XMapWindow(Xen arg1, Xen arg2) { #define H_XMapWindow "XMapWindow(display, w) maps the window and all of its subwindows that have had map requests." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMapWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XMapWindow", "Window"); - return(C_TO_XEN_INT(XMapWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMapWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XMapWindow", "Window"); + return(C_int_to_Xen_integer(XMapWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XMapSubwindows(XEN arg1, XEN arg2) +static Xen gxm_XMapSubwindows(Xen arg1, Xen arg2) { #define H_XMapSubwindows "XMapSubwindows(display, w) maps all subwindows for a specified window in top-to-bottom stacking order." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMapSubwindows", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XMapSubwindows", "Window"); - return(C_TO_XEN_INT(XMapSubwindows(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMapSubwindows", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XMapSubwindows", "Window"); + return(C_int_to_Xen_integer(XMapSubwindows(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XMapRaised(XEN arg1, XEN arg2) +static Xen gxm_XMapRaised(Xen arg1, Xen arg2) { #define H_XMapRaised "XMapRaised(display, w) maps the window and all of its subwindows that have had map requests, and raises the \ specified window to the top of the stack." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMapRaised", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XMapRaised", "Window"); - return(C_TO_XEN_INT(XMapRaised(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMapRaised", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XMapRaised", "Window"); + return(C_int_to_Xen_integer(XMapRaised(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XLowerWindow(XEN arg1, XEN arg2) +static Xen gxm_XLowerWindow(Xen arg1, Xen arg2) { #define H_XLowerWindow "XLowerWindow(display, w) lowers the specified window to the bottom of the stack so that it does not obscure any sibling windows." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XLowerWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XLowerWindow", "Window"); - return(C_TO_XEN_INT(XLowerWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XLowerWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XLowerWindow", "Window"); + return(C_int_to_Xen_integer(XLowerWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XLookupColor(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XLookupColor(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XLookupColor "Status XLookupColor(display, colormap, color_name, exact_def_return, screen_def_return) looks up the string name \ of a color with respect to the screen associated with the specified colormap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XLookupColor", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XLookupColor", "Colormap"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XLookupColor", "char*"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg4), arg4, 4, "XLookupColor", "XColor*"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg5), arg5, 5, "XLookupColor", "XColor*"); - return(C_TO_XEN_INT(XLookupColor(XEN_TO_C_Display(arg1), - XEN_TO_C_Colormap(arg2), - (char *)XEN_TO_C_STRING(arg3), - XEN_TO_C_XColor(arg4), XEN_TO_C_XColor(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XLookupColor", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XLookupColor", "Colormap"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XLookupColor", "char*"); + Xen_check_type(Xen_is_XColor(arg4), arg4, 4, "XLookupColor", "XColor*"); + Xen_check_type(Xen_is_XColor(arg5), arg5, 5, "XLookupColor", "XColor*"); + return(C_int_to_Xen_integer(XLookupColor(Xen_to_C_Display(arg1), + Xen_to_C_Colormap(arg2), + (char *)Xen_string_to_C_string(arg3), + Xen_to_C_XColor(arg4), Xen_to_C_XColor(arg5)))); } -static XEN gxm_XKillClient(XEN arg1, XEN arg2) +static Xen gxm_XKillClient(Xen arg1, Xen arg2) { #define H_XKillClient "XKillClient(display, resource) forces a close-down of the client that created the resource" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XKillClient", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XKillClient", "XID"); - return(C_TO_XEN_INT(XKillClient(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XKillClient", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XKillClient", "XID"); + return(C_int_to_Xen_integer(XKillClient(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2)))); } -static XEN gxm_XKeysymToKeycode(XEN arg1, XEN arg2) +static Xen gxm_XKeysymToKeycode(Xen arg1, Xen arg2) { #define H_XKeysymToKeycode "KeyCode XKeysymToKeycode(display, keysym)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XKeysymToKeycode", "Display*"); - XEN_ASSERT_TYPE(XEN_KeySym_P(arg2), arg2, 2, "XKeysymToKeycode", "KeySym"); - return(C_TO_XEN_KeyCode(XKeysymToKeycode(XEN_TO_C_Display(arg1), XEN_TO_C_KeySym(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XKeysymToKeycode", "Display*"); + Xen_check_type(Xen_is_KeySym(arg2), arg2, 2, "XKeysymToKeycode", "KeySym"); + return(C_to_Xen_KeyCode(XKeysymToKeycode(Xen_to_C_Display(arg1), Xen_to_C_KeySym(arg2)))); } -static XEN gxm_XInstallColormap(XEN arg1, XEN arg2) +static Xen gxm_XInstallColormap(Xen arg1, Xen arg2) { #define H_XInstallColormap "XInstallColormap(display, colormap) installs the specified colormap for its associated screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XInstallColormap", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XInstallColormap", "Colormap"); - return(C_TO_XEN_INT(XInstallColormap(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XInstallColormap", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XInstallColormap", "Colormap"); + return(C_int_to_Xen_integer(XInstallColormap(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2)))); } -static XEN gxm_XImageByteOrder(XEN arg1) +static Xen gxm_XImageByteOrder(Xen arg1) { #define H_ImageByteOrder "specifies the required byte order for images for each scanline unit in XY format (bitmap) or for each pixel value in Z format." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XImageByteOrder", "Display*"); - return(C_TO_XEN_INT(XImageByteOrder(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XImageByteOrder", "Display*"); + return(C_int_to_Xen_integer(XImageByteOrder(Xen_to_C_Display(arg1)))); } -static XEN gxm_XIfEvent(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XIfEvent(Xen arg1, Xen arg2, Xen arg3) { #define H_XIfEvent "XIfEvent(display, predicate, arg) completes only when the specified predicate procedure returns " PROC_TRUE " for \ an event, which indicates an event in the queue matches." @@ -9880,139 +9600,139 @@ an event, which indicates an event in the queue matches." */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XIfEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 3)), arg2, 2, "XIfEvent", "(Bool_Proc dpy ev data)"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XIfEvent", "Display*"); + Xen_check_type(Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 3)), arg2, 2, "XIfEvent", "(Bool_Proc dpy ev data)"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XIfEvent(XEN_TO_C_Display(arg1), + val = XIfEvent(Xen_to_C_Display(arg1), e, (Bool (*)(Display *d1, XEvent *e1, char *p1))gxm_XPeekIfEventProc, (char *)arg3); - return(XEN_LIST_2(C_TO_XEN_INT(val), C_TO_XEN_XEvent_OBJ(e))); + return(Xen_list_2(C_int_to_Xen_integer(val), C_to_Xen_XEvent_OBJ(e))); } -static XEN gxm_XHeightOfScreen(XEN arg1) +static Xen gxm_XHeightOfScreen(Xen arg1) { #define H_HeightOfScreen "XHeightOfScreen(screen): returns the height of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XHeightOfScreen", "Screen*"); - return(C_TO_XEN_INT(XHeightOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XHeightOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XHeightOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XHeightMMOfScreen(XEN arg1) +static Xen gxm_XHeightMMOfScreen(Xen arg1) { #define H_HeightMMOfScreen "XHeightMMOfScreen(screen): returns the height of the specified screen in millimeters." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XHeightMMOfScreen", "Screen*"); - return(C_TO_XEN_INT(XHeightMMOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XHeightMMOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XHeightMMOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XGrabServer(XEN arg1) +static Xen gxm_XGrabServer(Xen arg1) { #define H_XGrabServer "XGrabServer(display) disables processing of requests and close downs on all other connections than the one this request arrived on." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGrabServer", "Display*"); - return(C_TO_XEN_INT(XGrabServer(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGrabServer", "Display*"); + return(C_int_to_Xen_integer(XGrabServer(Xen_to_C_Display(arg1)))); } -static XEN gxm_XGrabPointer(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8, XEN arg9) +static Xen gxm_XGrabPointer(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8, Xen arg9) { #define H_XGrabPointer "int XGrabPointer(display, grab_window, owner_events, event_mask, pointer_mode, keyboard_mode, confine_to, cursor, time) \ actively grabs control of the pointer and returns GrabSuccess if the grab was successful." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGrabPointer", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGrabPointer", "Window"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XGrabPointer", "Bool"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XGrabPointer", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XGrabPointer", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XGrabPointer", "int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg7), arg7, 7, "XGrabPointer", "Window"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg8), arg8, 8, "XGrabPointer", "Cursor"); - XEN_ASSERT_TYPE(XEN_Time_P(arg9), arg9, 9, "XGrabPointer", "Time"); - return(C_TO_XEN_INT(XGrabPointer(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_BOOLEAN(arg3), - XEN_TO_C_ULONG(arg4), XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6), - XEN_TO_C_Window(arg7), XEN_TO_C_Cursor(arg8), - XEN_TO_C_Time(arg9)))); -} - -static XEN gxm_XGrabKeyboard(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGrabPointer", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGrabPointer", "Window"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XGrabPointer", "Bool"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XGrabPointer", "unsigned int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XGrabPointer", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XGrabPointer", "int"); + Xen_check_type(Xen_is_Window(arg7), arg7, 7, "XGrabPointer", "Window"); + Xen_check_type(Xen_is_Cursor(arg8), arg8, 8, "XGrabPointer", "Cursor"); + Xen_check_type(Xen_is_Time(arg9), arg9, 9, "XGrabPointer", "Time"); + return(C_int_to_Xen_integer(XGrabPointer(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_boolean_to_C_bool(arg3), + Xen_ulong_to_C_ulong(arg4), Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6), + Xen_to_C_Window(arg7), Xen_to_C_Cursor(arg8), + Xen_to_C_Time(arg9)))); +} + +static Xen gxm_XGrabKeyboard(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XGrabKeyboard "int XGrabKeyboard(display, grab_window, owner_events, pointer_mode, keyboard_mode, time) actively grabs control of \ the keyboard and generates FocusIn and FocusOut events." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGrabKeyboard", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGrabKeyboard", "Window"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XGrabKeyboard", "Bool"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XGrabKeyboard", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XGrabKeyboard", "int"); - XEN_ASSERT_TYPE(XEN_Time_P(arg6), arg6, 6, "XGrabKeyboard", "Time"); - return(C_TO_XEN_INT(XGrabKeyboard(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_BOOLEAN(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - XEN_TO_C_Time(arg6)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGrabKeyboard", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGrabKeyboard", "Window"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XGrabKeyboard", "Bool"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XGrabKeyboard", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XGrabKeyboard", "int"); + Xen_check_type(Xen_is_Time(arg6), arg6, 6, "XGrabKeyboard", "Time"); + return(C_int_to_Xen_integer(XGrabKeyboard(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_boolean_to_C_bool(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + Xen_to_C_Time(arg6)))); } -static XEN gxm_XGrabKey(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XGrabKey(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XGrabKey "XGrabKey(display, keycode, modifiers, grab_window, owner_events, pointer_mode, keyboard_mode) establishes a passive \ grab on the keyboard." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGrabKey", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XGrabKey", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XGrabKey", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg4), arg4, 4, "XGrabKey", "Window"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg5), arg5, 5, "XGrabKey", "Bool"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XGrabKey", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XGrabKey", "int"); - return(C_TO_XEN_INT(XGrabKey(XEN_TO_C_Display(arg1), - XEN_TO_C_INT(arg2), XEN_TO_C_ULONG(arg3), - XEN_TO_C_Window(arg4), - XEN_TO_C_BOOLEAN(arg5), XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGrabKey", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XGrabKey", "int"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XGrabKey", "unsigned int"); + Xen_check_type(Xen_is_Window(arg4), arg4, 4, "XGrabKey", "Window"); + Xen_check_type(Xen_is_boolean(arg5), arg5, 5, "XGrabKey", "Bool"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XGrabKey", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XGrabKey", "int"); + return(C_int_to_Xen_integer(XGrabKey(Xen_to_C_Display(arg1), + Xen_integer_to_C_int(arg2), Xen_ulong_to_C_ulong(arg3), + Xen_to_C_Window(arg4), + Xen_boolean_to_C_bool(arg5), Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7)))); } -static XEN gxm_XGrabButton(XEN args) +static Xen gxm_XGrabButton(Xen args) { #define H_XGrabButton "XGrabButton(display, button, modifiers, grab_window, owner_events, event_mask, pointer_mode, keyboard_mode, confine_to, cursor) \ establishes a passive grab." - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGrabButton", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XGrabButton", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XGrabButton", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg4), arg4, 4, "XGrabButton", "Window"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg5), arg5, 5, "XGrabButton", "Bool"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XGrabButton", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XGrabButton", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XGrabButton", "int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg9), arg9, 9, "XGrabButton", "Window"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg10), arg10, 10, "XGrabButton", "Cursor"); - return(C_TO_XEN_INT(XGrabButton(XEN_TO_C_Display(arg1), - XEN_TO_C_ULONG(arg2), XEN_TO_C_ULONG(arg3), - XEN_TO_C_Window(arg4), XEN_TO_C_BOOLEAN(arg5), - XEN_TO_C_ULONG(arg6), XEN_TO_C_INT(arg7), - XEN_TO_C_INT(arg8), - XEN_TO_C_Window(arg9), XEN_TO_C_Cursor(arg10)))); -} - -static XEN gxm_XGetWindowAttributes(XEN arg1, XEN arg2) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGrabButton", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XGrabButton", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XGrabButton", "unsigned int"); + Xen_check_type(Xen_is_Window(arg4), arg4, 4, "XGrabButton", "Window"); + Xen_check_type(Xen_is_boolean(arg5), arg5, 5, "XGrabButton", "Bool"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XGrabButton", "unsigned int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XGrabButton", "int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XGrabButton", "int"); + Xen_check_type(Xen_is_Window(arg9), arg9, 9, "XGrabButton", "Window"); + Xen_check_type(Xen_is_Cursor(arg10), arg10, 10, "XGrabButton", "Cursor"); + return(C_int_to_Xen_integer(XGrabButton(Xen_to_C_Display(arg1), + Xen_ulong_to_C_ulong(arg2), Xen_ulong_to_C_ulong(arg3), + Xen_to_C_Window(arg4), Xen_boolean_to_C_bool(arg5), + Xen_ulong_to_C_ulong(arg6), Xen_integer_to_C_int(arg7), + Xen_integer_to_C_int(arg8), + Xen_to_C_Window(arg9), Xen_to_C_Cursor(arg10)))); +} + +static Xen gxm_XGetWindowAttributes(Xen arg1, Xen arg2) { #define H_XGetWindowAttributes "Status XGetWindowAttributes(display, w): returns the current attributes for the \ specified window to an XWindowAttributes structure." /* DIFF: XGetWindowAttributes omits and rtns arg3 */ XWindowAttributes *w; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetWindowAttributes", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetWindowAttributes", "Window"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetWindowAttributes", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetWindowAttributes", "Window"); w = (XWindowAttributes *)calloc(1, sizeof(XWindowAttributes)); - XGetWindowAttributes(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), w); - return(C_TO_XEN_XWindowAttributes(w)); + XGetWindowAttributes(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), w); + return(C_to_Xen_XWindowAttributes(w)); } -static XEN gxm_XGetWindowProperty(XEN args) +static Xen gxm_XGetWindowProperty(Xen args) { #define H_XGetWindowProperty "int XGetWindowProperty(display, w, property, long_offset, long_length, delete, req_type) \ returns the actual type of the property; the actual format of the property; the \ @@ -10020,79 +9740,79 @@ number of 8-bit, 16-bit, or 32-bit items transferred; the number of bytes remain actually returned." /* DIFF: XGetWindowProperty omit trailing 5 args, rtn as list */ - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7; - XEN result = XEN_FALSE; + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7; + Xen result = Xen_false; Atom a; int ret, val; unsigned long len = 0, bytes; unsigned char *data[1]; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetWindowProperty", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetWindowProperty", "Window"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XGetWindowProperty", "Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XGetWindowProperty", "long"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XGetWindowProperty", "long"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg6), arg6, 6, "XGetWindowProperty", "Bool"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg7), arg7, 7, "XGetWindowProperty", "Atom"); - val = XGetWindowProperty(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_Atom(arg3), - XEN_TO_C_INT(arg4), - XEN_TO_C_INT(arg5), - XEN_TO_C_BOOLEAN(arg6), - XEN_TO_C_Atom(arg7), + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetWindowProperty", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetWindowProperty", "Window"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XGetWindowProperty", "Atom"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XGetWindowProperty", "long"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XGetWindowProperty", "long"); + Xen_check_type(Xen_is_boolean(arg6), arg6, 6, "XGetWindowProperty", "Bool"); + Xen_check_type(Xen_is_Atom(arg7), arg7, 7, "XGetWindowProperty", "Atom"); + val = XGetWindowProperty(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_Atom(arg3), + Xen_integer_to_C_int(arg4), + Xen_integer_to_C_int(arg5), + Xen_boolean_to_C_bool(arg6), + Xen_to_C_Atom(arg7), &a, &ret, &len, &bytes, (unsigned char **)data); if ((a != (Atom)None) && (len > 0)) { if (a == XA_STRING) - result = C_TO_XEN_STRING((char *)data[0]); - else result = C_TO_XEN_STRINGN((char *)data[0], len * ret / 8); /* is this a good idea? -- perhaps a void pointer here? */ + result = C_string_to_Xen_string((char *)data[0]); + else result = C_string_to_Xen_string_with_length((char *)data[0], len * ret / 8); /* is this a good idea? -- perhaps a void pointer here? */ if (data[0]) XFree(data[0]); } - return(XEN_LIST_6(C_TO_XEN_INT(val), - C_TO_XEN_Atom(a), - C_TO_XEN_INT(ret), - C_TO_XEN_ULONG(len), - C_TO_XEN_ULONG(bytes), + return(Xen_list_6(C_int_to_Xen_integer(val), + C_to_Xen_Atom(a), + C_int_to_Xen_integer(ret), + C_ulong_to_Xen_ulong(len), + C_ulong_to_Xen_ulong(bytes), result)); } -static XEN gxm_XGetTransientForHint(XEN arg1, XEN arg2) +static Xen gxm_XGetTransientForHint(Xen arg1, Xen arg2) { #define H_XGetTransientForHint "Status XGetTransientForHint(display, w): returns the WM_TRANSIENT_FOR property for the specified window." /* DIFF: XGetTransientForHint omit and rtn last arg */ Window w; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetTransientForHint", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetTransientForHint", "Window"); - val = XGetTransientForHint(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &w); - return(XEN_LIST_2(C_TO_XEN_INT(val), - C_TO_XEN_Window(w))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetTransientForHint", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetTransientForHint", "Window"); + val = XGetTransientForHint(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &w); + return(Xen_list_2(C_int_to_Xen_integer(val), + C_to_Xen_Window(w))); } -static XEN gxm_XGetScreenSaver(XEN arg1) +static Xen gxm_XGetScreenSaver(Xen arg1) { #define H_XGetScreenSaver "XGetScreenSaver(display) gets the current screen saver values." /* DIFF: XGetScreenSaver omit and rtn last 4 args */ int a, b, c ,d, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetScreenSaver", "Display*"); - val = XGetScreenSaver(XEN_TO_C_Display(arg1), &a, &b, &c, &d); - return(XEN_LIST_5(C_TO_XEN_INT(val), - C_TO_XEN_INT(a), - C_TO_XEN_INT(b), - C_TO_XEN_INT(c), - C_TO_XEN_INT(d))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetScreenSaver", "Display*"); + val = XGetScreenSaver(Xen_to_C_Display(arg1), &a, &b, &c, &d); + return(Xen_list_5(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(a), + C_int_to_Xen_integer(b), + C_int_to_Xen_integer(c), + C_int_to_Xen_integer(d))); } -static XEN gxm_XGetPointerMapping(XEN arg1, XEN ignore, XEN arg3) +static Xen gxm_XGetPointerMapping(Xen arg1, Xen ignore, Xen arg3) { #define H_XGetPointerMapping "int XGetPointerMapping(display, ignored, len): returns the current mapping of the pointer." /* DIFF: XGetPointerMapping ignores arg2, returns list @@ -10100,96 +9820,96 @@ static XEN gxm_XGetPointerMapping(XEN arg1, XEN ignore, XEN arg3) */ int i, len, loc, rtn; unsigned char *map; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetPointerMapping", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XGetPointerMapping", "int"); - len = XEN_TO_C_INT(arg3); - if (len <= 0) XEN_ASSERT_TYPE(0, arg3, 3, "XGetPointerMapping", "positive integer"); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetPointerMapping", "Display*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XGetPointerMapping", "int"); + len = Xen_integer_to_C_int(arg3); + if (len <= 0) Xen_check_type(0, arg3, 3, "XGetPointerMapping", "positive integer"); map = (unsigned char *)calloc(len, sizeof(unsigned char)); - rtn = XGetPointerMapping(XEN_TO_C_Display(arg1), map, len); + rtn = XGetPointerMapping(Xen_to_C_Display(arg1), map, len); if (len > rtn) len = rtn; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_INT((int)(map[i])), lst); + lst = Xen_cons(C_int_to_Xen_integer((int)(map[i])), lst); free(map); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XGetPointerControl(XEN arg1) +static Xen gxm_XGetPointerControl(Xen arg1) { #define H_XGetPointerControl "XGetPointerControl(display) \ returns the pointer's current acceleration multiplier and acceleration threshold." /* DIFF: XGetPointerControl omits and return last 3 args */ int val, num, den, thresh; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetPointerControl", "Display*"); - val = XGetPointerControl(XEN_TO_C_Display(arg1), &num, &den, &thresh); - return(XEN_LIST_4(C_TO_XEN_INT(val), - C_TO_XEN_INT(num), - C_TO_XEN_INT(den), - C_TO_XEN_INT(thresh))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetPointerControl", "Display*"); + val = XGetPointerControl(Xen_to_C_Display(arg1), &num, &den, &thresh); + return(Xen_list_4(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(num), + C_int_to_Xen_integer(den), + C_int_to_Xen_integer(thresh))); } -static XEN gxm_XGetKeyboardControl(XEN arg1) +static Xen gxm_XGetKeyboardControl(Xen arg1) { #define H_XGetKeyboardControl "XGetKeyboardControl(display): returns the current control values for the keyboard \ to the XKeyboardState structure." /* DIFF: XGetKeyboardControl omits arg2 and rtns list of fields */ XKeyboardState ks; - XEN v; + Xen v; int i, loc; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetKeyboardControl", "Display*"); - XGetKeyboardControl(XEN_TO_C_Display(arg1), &ks); - v = XEN_MAKE_VECTOR(32, XEN_ZERO); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetKeyboardControl", "Display*"); + XGetKeyboardControl(Xen_to_C_Display(arg1), &ks); + v = Xen_make_vector(32, Xen_integer_zero); loc = xm_protect(v); for (i = 0; i < 32; i++) - XEN_VECTOR_SET(v, i, C_TO_XEN_INT((int)(ks.auto_repeats[i]))); + Xen_vector_set(v, i, C_int_to_Xen_integer((int)(ks.auto_repeats[i]))); xm_unprotect_at(loc); - return(XEN_LIST_7(C_TO_XEN_INT(ks.key_click_percent), - C_TO_XEN_INT(ks.bell_percent), - C_TO_XEN_INT(ks.bell_pitch), - C_TO_XEN_INT(ks.bell_duration), - C_TO_XEN_INT(ks.led_mask), - C_TO_XEN_INT(ks.global_auto_repeat), + return(Xen_list_7(C_int_to_Xen_integer(ks.key_click_percent), + C_int_to_Xen_integer(ks.bell_percent), + C_int_to_Xen_integer(ks.bell_pitch), + C_int_to_Xen_integer(ks.bell_duration), + C_int_to_Xen_integer(ks.led_mask), + C_int_to_Xen_integer(ks.global_auto_repeat), v)); } -static XEN gxm_XGetInputFocus(XEN arg1) +static Xen gxm_XGetInputFocus(Xen arg1) { #define H_XGetInputFocus "XGetInputFocus(display): returns the focus window and the current focus state." /* DIFF: XGetInputFocus omit and rtn last 2 args */ Window w; int r, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetInputFocus", "Display*"); - val = XGetInputFocus(XEN_TO_C_Display(arg1), &w, &r); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_Window(w), - C_TO_XEN_INT(r))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetInputFocus", "Display*"); + val = XGetInputFocus(Xen_to_C_Display(arg1), &w, &r); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_to_Xen_Window(w), + C_int_to_Xen_integer(r))); } -static XEN gxm_XGetIconName(XEN arg1, XEN arg2) +static Xen gxm_XGetIconName(Xen arg1, Xen arg2) { #define H_XGetIconName "Status XGetIconName(display, w): returns the name to be displayed in the specified window's icon." /* DIFF: XGetIconName omits and returns arg3 */ char *str; int val; - XEN res = XEN_FALSE; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetIconName", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetIconName", "Window"); - val = XGetIconName(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &str); + Xen res = Xen_false; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetIconName", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetIconName", "Window"); + val = XGetIconName(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &str); if (val != 0) { - res = C_TO_XEN_STRING(str); + res = C_string_to_Xen_string(str); XFree(str); } return(res); } -static XEN gxm_XGetGeometry(XEN arg1, XEN arg2) +static Xen gxm_XGetGeometry(Xen arg1, Xen arg2) { #define H_XGetGeometry "Status XGetGeometry(display, d): returns the root window and the current geometry of the drawable." /* DIFF: XGetGeometry omits last 7 args and returns list @@ -10197,51 +9917,51 @@ static XEN gxm_XGetGeometry(XEN arg1, XEN arg2) unsigned int wr, hr, br, dr; int xr, yr, val; Window root; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetGeometry", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetGeometry", "Drawable"); - val = XGetGeometry(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetGeometry", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetGeometry", "Drawable"); + val = XGetGeometry(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &root, &xr, &yr, &wr, &hr, &br, &dr); - return(XEN_LIST_8(C_TO_XEN_INT(val), - C_TO_XEN_Window(root), - C_TO_XEN_INT(xr), - C_TO_XEN_INT(yr), - C_TO_XEN_ULONG(wr), - C_TO_XEN_ULONG(hr), - C_TO_XEN_ULONG(br), - C_TO_XEN_ULONG(dr))); + return(Xen_list_8(C_int_to_Xen_integer(val), + C_to_Xen_Window(root), + C_int_to_Xen_integer(xr), + C_int_to_Xen_integer(yr), + C_ulong_to_Xen_ulong(wr), + C_ulong_to_Xen_ulong(hr), + C_ulong_to_Xen_ulong(br), + C_ulong_to_Xen_ulong(dr))); } -static XEN gxm_XGetGCValues(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XGetGCValues(Xen arg1, Xen arg2, Xen arg3) { #define H_XGetGCValues "Status XGetGCValues(display, gc, valuemask): returns the components specified by valuemask for the specified GC." /* DIFF: XGetGCValues omits and returns last arg */ XGCValues *val; int rtn; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetGCValues", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XGetGCValues", "GC"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XGetGCValues", "ulong"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetGCValues", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XGetGCValues", "GC"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XGetGCValues", "ulong"); val = (XGCValues *)calloc(1, sizeof(XGCValues)); - rtn = XGetGCValues(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_ULONG(arg3), val); - return(XEN_LIST_2(C_TO_XEN_INT(rtn), - C_TO_XEN_XGCValues(val))); + rtn = XGetGCValues(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_ulong_to_C_ulong(arg3), val); + return(Xen_list_2(C_int_to_Xen_integer(rtn), + C_to_Xen_XGCValues(val))); } -static XEN gxm_XGetFontProperty(XEN arg1, XEN arg2) +static Xen gxm_XGetFontProperty(Xen arg1, Xen arg2) { #define H_XGetFontProperty "Bool XGetFontProperty(font_struct, atom): returns the value of the specified font property. " /* DIFF: XGetFontProperty omits and rtns last arg */ Bool val = False; unsigned long prop = 0; - XEN_ASSERT_TYPE(XEN_XFontStruct_P(arg1), arg1, 1, "XGetFontProperty", "XFontStruct*"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XGetFontProperty", "Atom"); - val = XGetFontProperty(XEN_TO_C_XFontStruct(arg1), XEN_TO_C_Atom(arg2), &prop); - return(XEN_LIST_2(C_TO_XEN_BOOLEAN(val), - C_TO_XEN_ULONG(prop))); + Xen_check_type(Xen_is_XFontStruct(arg1), arg1, 1, "XGetFontProperty", "XFontStruct*"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XGetFontProperty", "Atom"); + val = XGetFontProperty(Xen_to_C_XFontStruct(arg1), Xen_to_C_Atom(arg2), &prop); + return(Xen_list_2(C_bool_to_Xen_boolean(val), + C_ulong_to_Xen_ulong(prop))); } -static XEN gxm_XGetErrorText(XEN arg1, XEN arg2, XEN ignore, XEN arg4) +static Xen gxm_XGetErrorText(Xen arg1, Xen arg2, Xen ignore, Xen arg4) { #define H_XGetErrorText "XGetErrorText(display, code, buffer_return, length) copies a null-terminated string describing the specified error \ code into the specified buffer." @@ -10249,281 +9969,282 @@ code into the specified buffer." */ char *buf; int len, val; - XEN str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetErrorText", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XGetErrorText", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XGetErrorText", "int"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) XEN_ASSERT_TYPE(0, arg4, 4, "XGetErrorText", "positive integer"); + Xen str; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetErrorText", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XGetErrorText", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XGetErrorText", "int"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) Xen_check_type(0, arg4, 4, "XGetErrorText", "positive integer"); buf = (char *)calloc(len, sizeof(char)); - val = XGetErrorText(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), buf, len); - str = C_TO_XEN_STRING(buf); + val = XGetErrorText(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), buf, len); + str = C_string_to_Xen_string(buf); free(buf); - return(XEN_LIST_2(C_TO_XEN_INT(val), + return(Xen_list_2(C_int_to_Xen_integer(val), str)); } -static XEN gxm_XGeometry(XEN args) +static Xen gxm_XGeometry(Xen args) { #define H_XGeometry "int XGeometry(dpy, screen, position, default_position, bwidth, fwidth, fheight, xadder, yadder) calculates \ window geometry given user geometry string and default geometry" /* DIFF: XGetGeometry omits trailing 4 args and returns them */ int x, y, w, h, val; - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGeometry", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XGeometry", "int"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XGeometry", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XGeometry", "char*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XGeometry", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XGeometry", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XGeometry", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XGeometry", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9), arg9, 9, "XGeometry", "int"); - val = XGeometry(XEN_TO_C_Display(arg1), - XEN_TO_C_INT(arg2), - (char *)XEN_TO_C_STRING(arg3), - (char *)XEN_TO_C_STRING(arg4), - XEN_TO_C_ULONG(arg5), - XEN_TO_C_ULONG(arg6), - XEN_TO_C_ULONG(arg7), - XEN_TO_C_INT(arg8), - XEN_TO_C_INT(arg9), + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGeometry", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XGeometry", "int"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XGeometry", "char*"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XGeometry", "char*"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XGeometry", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XGeometry", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XGeometry", "unsigned int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XGeometry", "int"); + Xen_check_type(Xen_is_integer(arg9), arg9, 9, "XGeometry", "int"); + val = XGeometry(Xen_to_C_Display(arg1), + Xen_integer_to_C_int(arg2), + (char *)Xen_string_to_C_string(arg3), + (char *)Xen_string_to_C_string(arg4), + Xen_ulong_to_C_ulong(arg5), + Xen_ulong_to_C_ulong(arg6), + Xen_ulong_to_C_ulong(arg7), + Xen_integer_to_C_int(arg8), + Xen_integer_to_C_int(arg9), &x, &y, &w, &h); - return(XEN_LIST_5(C_TO_XEN_INT(val), - C_TO_XEN_INT(x), - C_TO_XEN_INT(y), - C_TO_XEN_INT(w), - C_TO_XEN_INT(h))); + return(Xen_list_5(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(x), + C_int_to_Xen_integer(y), + C_int_to_Xen_integer(w), + C_int_to_Xen_integer(h))); } -static XEN gxm_XFreePixmap(XEN arg1, XEN arg2) +static Xen gxm_XFreePixmap(Xen arg1, Xen arg2) { #define H_XFreePixmap "XFreePixmap(display, pixmap) first deletes the association between the pixmap ID and the pixmap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFreePixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg2), arg2, 2, "XFreePixmap", "Pixmap"); - return(C_TO_XEN_INT(XFreePixmap(XEN_TO_C_Display(arg1), XEN_TO_C_Pixmap(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFreePixmap", "Display*"); + Xen_check_type(Xen_is_Pixmap(arg2), arg2, 2, "XFreePixmap", "Pixmap"); + return(C_int_to_Xen_integer(XFreePixmap(Xen_to_C_Display(arg1), Xen_to_C_Pixmap(arg2)))); } -static XEN gxm_XFreeModifiermap(XEN arg1) +static Xen gxm_XFreeModifiermap(Xen arg1) { #define H_XFreeModifiermap "XFreeModifiermap(modmap) frees the specified XModifierKeymap structure." - XEN_ASSERT_TYPE(XEN_XModifierKeymap_P(arg1), arg1, 1, "XFreeModifiermap", "XModifierKeymap*"); - return(C_TO_XEN_INT(XFreeModifiermap(XEN_TO_C_XModifierKeymap(arg1)))); + Xen_check_type(Xen_is_XModifierKeymap(arg1), arg1, 1, "XFreeModifiermap", "XModifierKeymap*"); + return(C_int_to_Xen_integer(XFreeModifiermap(Xen_to_C_XModifierKeymap(arg1)))); } -static XEN gxm_XFreeGC(XEN arg1, XEN arg2) +static Xen gxm_XFreeGC(Xen arg1, Xen arg2) { #define H_XFreeGC "XFreeGC(display, gc) destroys the specified GC as well as all the associated storage." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFreeGC", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XFreeGC", "GC"); - return(C_TO_XEN_INT(XFreeGC(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFreeGC", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XFreeGC", "GC"); + return(C_int_to_Xen_integer(XFreeGC(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2)))); } -static XEN gxm_XFreeFontPath(XEN ignore) +static Xen gxm_XFreeFontPath(Xen ignore) { #define H_XFreeFontPath "XFreeFontPath(list) frees the data allocated by XGetFontPath (a no-op in xm)." /* DIFF: XFreeFontPath is no-op */ - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XFreeFontNames(XEN ignore) +static Xen gxm_XFreeFontNames(Xen ignore) { #define H_XFreeFontNames "XFreeFontNames(list) frees the array and strings returned by XListFonts or XListFontsWithInfo (a no-op in xm)." /* DIFF: XFreeFontNames is no-op */ - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XFreeFontInfo(XEN ignore1, XEN ignore2, XEN ignore3) +static Xen gxm_XFreeFontInfo(Xen ignore1, Xen ignore2, Xen ignore3) { #define H_XFreeFontInfo "XFreeFontInfo(names, free_info, actual_count) frees a font structure or an array of font structures, and \ optionally an array of font names (a no-op in xm)." /* DIFF: XFreeFontInfo is a no-op */ - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XFreeFont(XEN arg1, XEN arg2) +static Xen gxm_XFreeFont(Xen arg1, Xen arg2) { #define H_XFreeFont "XFreeFont(display, font_struct) deletes the association between the font resource ID and the specified font and \ frees the XFontStruct structure." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFreeFont", "Display*"); - XEN_ASSERT_TYPE(XEN_XFontStruct_P(arg2), arg2, 2, "XFreeFont", "XFontStruct*"); - return(C_TO_XEN_INT(XFreeFont(XEN_TO_C_Display(arg1), XEN_TO_C_XFontStruct(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFreeFont", "Display*"); + Xen_check_type(Xen_is_XFontStruct(arg2), arg2, 2, "XFreeFont", "XFontStruct*"); + return(C_int_to_Xen_integer(XFreeFont(Xen_to_C_Display(arg1), Xen_to_C_XFontStruct(arg2)))); } -static XEN gxm_XFreeExtensionList(XEN ignore) +static Xen gxm_XFreeExtensionList(Xen ignore) { /* DIFF: XFreeExtensionList is a no-op */ - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XFreeCursor(XEN arg1, XEN arg2) +static Xen gxm_XFreeCursor(Xen arg1, Xen arg2) { #define H_XFreeCursor "XFreeCursor(display, cursor) deletes the association between the cursor resource ID and the specified cursor." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFreeCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg2), arg2, 2, "XFreeCursor", "Cursor"); - return(C_TO_XEN_INT(XFreeCursor(XEN_TO_C_Display(arg1), XEN_TO_C_Cursor(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFreeCursor", "Display*"); + Xen_check_type(Xen_is_Cursor(arg2), arg2, 2, "XFreeCursor", "Cursor"); + return(C_int_to_Xen_integer(XFreeCursor(Xen_to_C_Display(arg1), Xen_to_C_Cursor(arg2)))); } -static XEN gxm_XFreeColors(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XFreeColors(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XFreeColors "XFreeColors(display, colormap, pixels, npixels, planes) frees the cells represented by pixels whose values are in the pixels array." /* DIFF: XFreeColors pixel array (arg3) is list of pixels */ unsigned long *ps; int len, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFreeColors", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XFreeColors", "Colormap"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XFreeColors", "list of pixel"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XFreeColors", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XFreeColors", "ulong"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - ps = XEN_TO_C_Pixels(arg3, len); - val = XFreeColors(XEN_TO_C_Display(arg1), - XEN_TO_C_Colormap(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFreeColors", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XFreeColors", "Colormap"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XFreeColors", "list of pixel"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XFreeColors", "int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XFreeColors", "ulong"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + ps = Xen_to_C_Pixels(arg3, len); + val = XFreeColors(Xen_to_C_Display(arg1), + Xen_to_C_Colormap(arg2), ps, len, - XEN_TO_C_ULONG(arg5)); + Xen_ulong_to_C_ulong(arg5)); free(ps); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XFreeColormap(XEN arg1, XEN arg2) +static Xen gxm_XFreeColormap(Xen arg1, Xen arg2) { #define H_XFreeColormap "XFreeColormap(display, colormap) deletes the association between the colormap resource ID and the colormap and \ frees the colormap storage." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFreeColormap", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XFreeColormap", "Colormap"); - return(C_TO_XEN_INT(XFreeColormap(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFreeColormap", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XFreeColormap", "Colormap"); + return(C_int_to_Xen_integer(XFreeColormap(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2)))); } -static XEN gxm_XFree(XEN arg1) +static Xen gxm_XFree(Xen arg1) { #define H_XFree "XFree(data) is a general-purpose Xlib routine that frees the specified data." - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1) || XEN_LIST_P(arg1), arg1, 1, "XFree", "void* or xm entity"); - if (XEN_LIST_P(arg1)) - XFree((void *)XEN_UNWRAP_C_POINTER(XEN_CADR(arg1))); - else XFree((void *)XEN_UNWRAP_C_POINTER(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_wrapped_c_pointer(arg1) || Xen_is_list(arg1), arg1, 1, "XFree", "void* or xm entity"); + + if (Xen_is_list(arg1)) + XFree((void *)Xen_unwrap_C_pointer(Xen_cadr(arg1))); + else XFree((void *)Xen_unwrap_C_pointer(arg1)); + return(Xen_false); } -static XEN gxm_XForceScreenSaver(XEN arg1, XEN arg2) +static Xen gxm_XForceScreenSaver(Xen arg1, Xen arg2) { #define H_XForceScreenSaver "XForceScreenSaver(display, mode) activates the screen saver" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XForceScreenSaver", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XForceScreenSaver", "int"); - return(C_TO_XEN_INT(XForceScreenSaver(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XForceScreenSaver", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XForceScreenSaver", "int"); + return(C_int_to_Xen_integer(XForceScreenSaver(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XFlush(XEN arg1) +static Xen gxm_XFlush(Xen arg1) { #define H_XFlush "XFlush(display) flushes the output buffer." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFlush", "Display*"); - return(C_TO_XEN_INT(XFlush(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFlush", "Display*"); + return(C_int_to_Xen_integer(XFlush(Xen_to_C_Display(arg1)))); } -static XEN gxm_XFillRectangles(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5) +static Xen gxm_XFillRectangles(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5) { #define H_XFillRectangles "XFillRectangles(display, d, gc, rectangles, nrectangles)" /* DIFF: XFillRectangles XRectangle* arg (arg 4) is list of XRectangles */ XRectangle *pt; int i, len; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFillRectangles", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XFillRectangles", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XFillRectangles", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XFillRectangles", "list of XRectangle"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XFillRectangles", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - if (len <= 0) XEN_ASSERT_TYPE(0, arg5, 5, "XFillRectangles", "positive integer"); + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFillRectangles", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XFillRectangles", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XFillRectangles", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XFillRectangles", "list of XRectangle"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XFillRectangles", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) Xen_check_type(0, arg5, 5, "XFillRectangles", "positive integer"); pt = (XRectangle *)calloc(len, sizeof(XRectangle)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { XRectangle *pt1; - pt1 = XEN_TO_C_XRectangle(XEN_CAR(arg4)); + pt1 = Xen_to_C_XRectangle(Xen_car(arg4)); pt[i].x = pt1->x; pt[i].y = pt1->y; pt[i].width = pt1->width; pt[i].height = pt1->height; } - XFillRectangles(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), + XFillRectangles(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), pt, len); free(pt); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XFillRectangle(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XFillRectangle(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XFillRectangle "XFillRectangle(display, d, gc, x, y, width, height)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFillRectangle", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XFillRectangle", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XFillRectangle", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XFillRectangle", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XFillRectangle", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XFillRectangle", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XFillRectangle", "unsigned int"); - return(C_TO_XEN_INT(XFillRectangle(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - XEN_TO_C_ULONG(arg6), XEN_TO_C_ULONG(arg7)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFillRectangle", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XFillRectangle", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XFillRectangle", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XFillRectangle", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XFillRectangle", "int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XFillRectangle", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XFillRectangle", "unsigned int"); + return(C_int_to_Xen_integer(XFillRectangle(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + Xen_ulong_to_C_ulong(arg6), Xen_ulong_to_C_ulong(arg7)))); } -static XEN gxm_XFillPolygon(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XFillPolygon(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XFillPolygon "XFillPolygon(display, d, gc, points, npoints, shape, mode)" /* DIFF: XFillPolygon Point* arg (arg 4) is list of XPoint */ XPoint *pt, *pt1; int i, len; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFillPolygon", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XFillPolygon", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XFillPolygon", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XFillPolygon", "list of XPoints"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XFillPolygon", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XFillPolygon", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XFillPolygon", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - if (len <= 0) XEN_ASSERT_TYPE(0, arg5, 5, "XFillPolygon", "positive integer"); + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFillPolygon", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XFillPolygon", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XFillPolygon", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XFillPolygon", "list of XPoints"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XFillPolygon", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XFillPolygon", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XFillPolygon", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) Xen_check_type(0, arg5, 5, "XFillPolygon", "positive integer"); pt = (XPoint *)calloc(len, sizeof(XPoint)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { - XEN xp; - xp = XEN_CAR(arg4); - if (!(XEN_XPoint_P(xp))) XEN_ASSERT_TYPE(0, xp, i, "XFillRegion", "XPoint"); - pt1 = XEN_TO_C_XPoint(xp); + Xen xp; + xp = Xen_car(arg4); + if (!(Xen_is_XPoint(xp))) Xen_check_type(0, xp, i, "XFillRegion", "XPoint"); + pt1 = Xen_to_C_XPoint(xp); pt[i].x = pt1->x; pt[i].y = pt1->y; } - XFillPolygon(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), + XFillPolygon(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), pt, len, - XEN_TO_C_INT(arg6), - XEN_TO_C_INT(arg7)); + Xen_integer_to_C_int(arg6), + Xen_integer_to_C_int(arg7)); free(pt); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XFillArcs(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5) +static Xen gxm_XFillArcs(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5) { #define H_XFillArcs "XFillArcs(display, d, gc, arcs, narcs)" /* DIFF: XFillArcs Arc* arg (arg 4) is list of XArcs @@ -10532,265 +10253,265 @@ static XEN gxm_XFillArcs(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5) Display *dpy; Drawable draw; GC gc; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFillArcs", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XFillArcs", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XFillArcs", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XFillArcs", "list of XArcs"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XFillArcs", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - if (len <= 0) return(XEN_FALSE); - dpy = XEN_TO_C_Display(arg1); - draw = XEN_TO_C_Window(arg2); - gc = XEN_TO_C_GC(arg3); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFillArcs", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XFillArcs", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XFillArcs", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XFillArcs", "list of XArcs"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XFillArcs", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) return(Xen_false); + dpy = Xen_to_C_Display(arg1); + draw = Xen_to_C_Window(arg2); + gc = Xen_to_C_GC(arg3); + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { XArc *arc; - arc = XEN_TO_C_XArc(XEN_CAR(arg4)); + arc = Xen_to_C_XArc(Xen_car(arg4)); XFillArc(dpy, draw, gc, arc->x, arc->y, arc->width, arc->height, arc->angle1, arc->angle2); } - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XFillArc(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8, XEN arg9) +static Xen gxm_XFillArc(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8, Xen arg9) { #define H_XFillArc "XFillArc(display, d, gc, x, y, width, height, angle1, angle2) fills the region described by the specified arc." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFillArc", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XFillArc", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XFillArc", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XFillArc", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XFillArc", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XFillArc", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XFillArc", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XFillArc", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9), arg9, 9, "XFillArc", "int"); - return(C_TO_XEN_INT(XFillArc(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - XEN_TO_C_ULONG(arg6), XEN_TO_C_ULONG(arg7), - XEN_TO_C_INT(arg8), XEN_TO_C_INT(arg9)))); -} - -static XEN gxm_XFetchName(XEN arg1, XEN arg2) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFillArc", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XFillArc", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XFillArc", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XFillArc", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XFillArc", "int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XFillArc", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XFillArc", "unsigned int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XFillArc", "int"); + Xen_check_type(Xen_is_integer(arg9), arg9, 9, "XFillArc", "int"); + return(C_int_to_Xen_integer(XFillArc(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + Xen_ulong_to_C_ulong(arg6), Xen_ulong_to_C_ulong(arg7), + Xen_integer_to_C_int(arg8), Xen_integer_to_C_int(arg9)))); +} + +static Xen gxm_XFetchName(Xen arg1, Xen arg2) { #define H_XFetchName "Status XFetchName(display, w): returns the name of the specified window." /* DIFF: XFetchName omits and rtns arg3 */ char *name; int val; - XEN str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFetchName", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XFetchName", "Window"); - val = XFetchName(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &name); + Xen str; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFetchName", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XFetchName", "Window"); + val = XFetchName(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &name); if (val == 0) - return(XEN_FALSE); - str = C_TO_XEN_STRING(name); + return(Xen_false); + str = C_string_to_Xen_string(name); free(name); return(str); } -static XEN gxm_XEventsQueued(XEN arg1, XEN arg2) +static Xen gxm_XEventsQueued(Xen arg1, Xen arg2) { #define H_XEventsQueued "int XEventsQueued(display, mode)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XEventsQueued", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XEventsQueued", "int"); - return(C_TO_XEN_INT(XEventsQueued(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XEventsQueued", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XEventsQueued", "int"); + return(C_int_to_Xen_integer(XEventsQueued(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XEnableAccessControl(XEN arg1) +static Xen gxm_XEnableAccessControl(Xen arg1) { #define H_XEnableAccessControl "XEnableAccessControl(display) enables the use of the access control list at each connection setup." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XEnableAccessControl", "Display*"); - return(C_TO_XEN_INT(XEnableAccessControl(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XEnableAccessControl", "Display*"); + return(C_int_to_Xen_integer(XEnableAccessControl(Xen_to_C_Display(arg1)))); } -static XEN gxm_XDrawText(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XDrawText(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XDrawText "XDrawText(display, d, gc, x, y, items, nitems) draws text" int i, len = 0, res; XTextItem *items; - XEN lst; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawText", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawText", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawText", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XDrawText", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawText", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg6), arg6, 6, "XDrawText", "list of XTextItem"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg7), arg7, 7, "XDrawText", "int"); - lst = XEN_COPY_ARG(arg6); - if (XEN_INTEGER_P(arg7)) len = XEN_TO_C_INT(arg7); else len = XEN_LIST_LENGTH(arg6); + Xen lst; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawText", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawText", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawText", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XDrawText", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawText", "int"); + Xen_check_type(Xen_is_list(arg6), arg6, 6, "XDrawText", "list of XTextItem"); + Xen_check_type(Xen_is_integer_or_unbound(arg7), arg7, 7, "XDrawText", "int"); + lst = Xen_copy_arg(arg6); + if (Xen_is_integer(arg7)) len = Xen_integer_to_C_int(arg7); else len = Xen_list_length(arg6); items = (XTextItem *)calloc(len, sizeof(XTextItem)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(lst)); i++, lst = XEN_CDR(lst)) + for (i = 0; (i < len) && (!Xen_is_null(lst)); i++, lst = Xen_cdr(lst)) { XTextItem *val; - val = XEN_TO_C_XTextItem(XEN_CAR(lst)); + val = Xen_to_C_XTextItem(Xen_car(lst)); items[i].chars = val->chars; items[i].nchars = val->nchars; items[i].delta = val->delta; items[i].font = val->font; } - res = XDrawText(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), + res = XDrawText(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), items, len); free(items); - return(C_TO_XEN_INT(res)); + return(C_int_to_Xen_integer(res)); } -static XEN gxm_XDrawString(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XDrawString(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XDrawString "XDrawString(display, d, gc, x, y, string, length)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawString", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawString", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawString", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XDrawString", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawString", "int"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg6), arg6, 6, "XDrawString", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XDrawString", "int"); - return(C_TO_XEN_INT(XDrawString(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - (char *)XEN_TO_C_STRING(arg6), XEN_TO_C_INT(arg7)))); -} - -static XEN gxm_XDrawSegments(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawString", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawString", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawString", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XDrawString", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawString", "int"); + Xen_check_type(Xen_is_string(arg6), arg6, 6, "XDrawString", "char*"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XDrawString", "int"); + return(C_int_to_Xen_integer(XDrawString(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + (char *)Xen_string_to_C_string(arg6), Xen_integer_to_C_int(arg7)))); +} + +static Xen gxm_XDrawSegments(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5) { #define H_XDrawSegments "XDrawSegments(display, d, gc, segments, nsegments) draws multiple, unconnected lines. " /* DIFF: XDrawSegments XSegment* arg (arg 4) is list of XSegments */ XSegment *pt; int i, len; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawSegments", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawSegments", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawSegments", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XDrawSegments", "list of XSegments"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawSegments", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - if (len <= 0) XEN_ASSERT_TYPE(0, arg5, 5, "XDrawSegments", "positive integer"); + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawSegments", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawSegments", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawSegments", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XDrawSegments", "list of XSegments"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawSegments", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) Xen_check_type(0, arg5, 5, "XDrawSegments", "positive integer"); pt = (XSegment *)calloc(len, sizeof(XSegment)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { XSegment *pt1; - pt1 = XEN_TO_C_XSegment(XEN_CAR(arg4)); + pt1 = Xen_to_C_XSegment(Xen_car(arg4)); pt[i].x1 = pt1->x1; pt[i].y1 = pt1->y1; pt[i].x2 = pt1->x2; pt[i].y2 = pt1->y2; } - XDrawSegments(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), + XDrawSegments(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), pt, len); free(pt); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XDrawRectangles(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5) +static Xen gxm_XDrawRectangles(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5) { #define H_XDrawRectangles "XDrawRectangles(display, d, gc, rectangles, nrectangles) draws the outlines of the specified rectangles." /* DIFF: XDrawRectangles XRectangle* arg (arg 4) is list of XRectangles */ XRectangle *pt; int i, len; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawRectangles", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawRectangles", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawRectangles", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XDrawRectangles", "list of XRectangles"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawRectangles", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - if (len <= 0) XEN_ASSERT_TYPE(0, arg5, 5, "XDrawRectangles", "positive integer"); + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawRectangles", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawRectangles", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawRectangles", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XDrawRectangles", "list of XRectangles"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawRectangles", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) Xen_check_type(0, arg5, 5, "XDrawRectangles", "positive integer"); pt = (XRectangle *)calloc(len, sizeof(XRectangle)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { XRectangle *pt1; - pt1 = XEN_TO_C_XRectangle(XEN_CAR(arg4)); + pt1 = Xen_to_C_XRectangle(Xen_car(arg4)); pt[i].x = pt1->x; pt[i].y = pt1->y; pt[i].width = pt1->width; pt[i].height = pt1->height; } - XDrawRectangles(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), + XDrawRectangles(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), pt, len); free(pt); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XDrawRectangle(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XDrawRectangle(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XDrawRectangle "XDrawRectangle(display, d, gc, x, y, width, height) draws the outlines of the specified rectangle." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawRectangle", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawRectangle", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawRectangle", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XDrawRectangle", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawRectangle", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XDrawRectangle", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XDrawRectangle", "unsigned int"); - return(C_TO_XEN_INT(XDrawRectangle(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), XEN_TO_C_ULONG(arg6), XEN_TO_C_ULONG(arg7)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawRectangle", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawRectangle", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawRectangle", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XDrawRectangle", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawRectangle", "int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XDrawRectangle", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XDrawRectangle", "unsigned int"); + return(C_int_to_Xen_integer(XDrawRectangle(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), Xen_ulong_to_C_ulong(arg6), Xen_ulong_to_C_ulong(arg7)))); } -static XEN gxm_XDrawPoints(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5, XEN arg6) +static Xen gxm_XDrawPoints(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5, Xen arg6) { #define H_XDrawPoints "XDrawPoints(display, d, gc, points, npoints, mode) draws multiple points." /* DIFF: XDrawPoints XPoint* arg (arg 4) is list of XPoints */ XPoint *pt, *pt1; int i, len; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawPoints", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawPoints", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawPoints", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XDrawPoints", "list of XPoints"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawPoints", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XDrawPoints", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - if (len <= 0) XEN_ASSERT_TYPE(0, arg5, 5, "XDrawPoints", "positive integer"); + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawPoints", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawPoints", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawPoints", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XDrawPoints", "list of XPoints"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawPoints", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XDrawPoints", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) Xen_check_type(0, arg5, 5, "XDrawPoints", "positive integer"); pt = (XPoint *)calloc(len, sizeof(XPoint)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { - XEN xp; - xp = XEN_CAR(arg4); - if (!(XEN_XPoint_P(xp))) XEN_ASSERT_TYPE(0, xp, i, "XDrawPoints", "XPoint"); - pt1 = XEN_TO_C_XPoint(xp); + Xen xp; + xp = Xen_car(arg4); + if (!(Xen_is_XPoint(xp))) Xen_check_type(0, xp, i, "XDrawPoints", "XPoint"); + pt1 = Xen_to_C_XPoint(xp); pt[i].x = pt1->x; pt[i].y = pt1->y; } - XDrawPoints(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), + XDrawPoints(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), pt, len, - XEN_TO_C_INT(arg6)); + Xen_integer_to_C_int(arg6)); free(pt); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XDrawPoint(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XDrawPoint(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XDrawPoint "XDrawPoint(display, d, gc, x, y) uses the foreground pixel and function components of the GC to draw a single \ point into the specified drawable." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawPoint", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawPoint", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawPoint", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XDrawPoint", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawPoint", "int"); - return(C_TO_XEN_INT(XDrawPoint(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawPoint", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawPoint", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawPoint", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XDrawPoint", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawPoint", "int"); + return(C_int_to_Xen_integer(XDrawPoint(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5)))); } -static XEN gxm_XDrawLines(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5, XEN arg6) +static Xen gxm_XDrawLines(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5, Xen arg6) { #define H_XDrawLines "XDrawLines(display, d, gc, points, npoints, mode) uses the components of the specified GC to draw npoints lines \ between each pair of points (point[i], point[i+1]) in the array of XPoint structures." @@ -10798,121 +10519,121 @@ between each pair of points (point[i], point[i+1]) in the array of XPoint struct */ XPoint *pt, *pt1; int i, len; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawLines", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawLines", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawLines", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XDrawLines", "list of XPoints"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawLines", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XDrawLines", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - if (len <= 0) XEN_ASSERT_TYPE(0, arg5, 5, "XDrawLines", "positive integer"); + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawLines", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawLines", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawLines", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XDrawLines", "list of XPoints"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawLines", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XDrawLines", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) Xen_check_type(0, arg5, 5, "XDrawLines", "positive integer"); pt = (XPoint *)calloc(len, sizeof(XPoint)); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { - XEN xp; - xp = XEN_CAR(arg4); - if (!(XEN_XPoint_P(xp))) XEN_ASSERT_TYPE(0, xp, i, "XDrawLines", "XPoint"); - pt1 = XEN_TO_C_XPoint(xp); + Xen xp; + xp = Xen_car(arg4); + if (!(Xen_is_XPoint(xp))) Xen_check_type(0, xp, i, "XDrawLines", "XPoint"); + pt1 = Xen_to_C_XPoint(xp); pt[i].x = pt1->x; pt[i].y = pt1->y; } - XDrawLines(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), + XDrawLines(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), pt, len, - XEN_TO_C_INT(arg6)); + Xen_integer_to_C_int(arg6)); free(pt); - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XDrawLinesDirect(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XDrawLinesDirect(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XDrawLinesDirect "XDrawLinesDirect is the same as XDrawLines but takes an (opaque) pointer to an XPoint array" XPoint *pt; int len; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawLinesDirect", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawLinesDirect", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawLinesDirect", "GC"); - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg4), arg4, 4, "XDrawLinesDirect", "array of XPoints"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawLines", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XDrawLines", "int"); - len = XEN_TO_C_INT(arg5); - if (len <= 0) return(XEN_FALSE); - pt = (XPoint *)XEN_UNWRAP_C_POINTER(arg4); - XDrawLines(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawLinesDirect", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawLinesDirect", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawLinesDirect", "GC"); + Xen_check_type(Xen_is_wrapped_c_pointer(arg4), arg4, 4, "XDrawLinesDirect", "array of XPoints"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawLines", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XDrawLines", "int"); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) return(Xen_false); + pt = (XPoint *)Xen_unwrap_C_pointer(arg4); + XDrawLines(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), pt, len, - XEN_TO_C_INT(arg6)); - return(C_TO_XEN_INT(len)); + Xen_integer_to_C_int(arg6)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_Vector2XPoints(XEN arg1) +static Xen gxm_Vector2XPoints(Xen arg1) { #define H_vector2XPoints "(vector->XPoints vect) packages point data in vect as (opaque) array of XPoints" int i, j, len; /* vector assumed to be sequence of x y pairs (not XPoints from local view) */ XPoint *pt; - XEN_ASSERT_TYPE(XEN_VECTOR_P(arg1), arg1, XEN_ONLY_ARG, "vector->XPoints", "vector of x,y values"); - len = XEN_VECTOR_LENGTH(arg1) / 2; - if (len <= 0) XEN_ASSERT_TYPE(0, arg1, 1, "vector->XPoints", "positive integer"); + Xen_check_type(Xen_is_vector(arg1), arg1, 1, "vector->XPoints", "vector of x,y values"); + len = Xen_vector_length(arg1) / 2; + if (len <= 0) Xen_check_type(0, arg1, 1, "vector->XPoints", "positive integer"); pt = (XPoint *)calloc(len, sizeof(XPoint)); for (i = 0, j = 0; i < len; i++, j += 2) { - pt[i].x = XEN_TO_C_INT(XEN_VECTOR_REF(arg1, j)); - pt[i].y = XEN_TO_C_INT(XEN_VECTOR_REF(arg1, j + 1)); + pt[i].x = Xen_integer_to_C_int(Xen_vector_ref(arg1, j)); + pt[i].y = Xen_integer_to_C_int(Xen_vector_ref(arg1, j + 1)); } - return(XEN_WRAP_C_POINTER(pt)); + return(Xen_wrap_C_pointer(pt)); } -static XEN gxm_FreeXPoints(XEN arg1) +static Xen gxm_FreeXPoints(Xen arg1) { void *pts; #define H_freeXPoints "(freeXPoints vect) frees an (opaque) XPoint array created by vector->Xpoints" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, XEN_ONLY_ARG, "freeXPoints", "opaque XPoint array"); - pts = (void *)(XEN_UNWRAP_C_POINTER(arg1)); + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "freeXPoints", "opaque XPoint array"); + pts = (void *)(Xen_unwrap_C_pointer(arg1)); free(pts); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XDrawLine(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XDrawLine(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XDrawLine "XDrawLine(display, d, gc, x1, y1, x2, y2) uses the components of the specified GC to draw a line between the \ specified set of points (x1, y1) and (x2, y2)." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawLine", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawLine", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawLine", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XDrawLine", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawLine", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XDrawLine", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XDrawLine", "int"); - return(C_TO_XEN_INT(XDrawLine(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawLine", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawLine", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawLine", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XDrawLine", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawLine", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XDrawLine", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XDrawLine", "int"); + return(C_int_to_Xen_integer(XDrawLine(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7)))); } -static XEN gxm_XDrawImageString(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XDrawImageString(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XDrawImageString "XDrawImageString(display, d, gc, x, y, string, length)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawImageString", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawImageString", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawImageString", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XDrawImageString", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawImageString", "int"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg6), arg6, 6, "XDrawImageString", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XDrawImageString", "int"); - return(C_TO_XEN_INT(XDrawImageString(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), (char *)XEN_TO_C_STRING(arg6), XEN_TO_C_INT(arg7)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawImageString", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawImageString", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawImageString", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XDrawImageString", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawImageString", "int"); + Xen_check_type(Xen_is_string(arg6), arg6, 6, "XDrawImageString", "char*"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XDrawImageString", "int"); + return(C_int_to_Xen_integer(XDrawImageString(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), (char *)Xen_string_to_C_string(arg6), Xen_integer_to_C_int(arg7)))); } -static XEN gxm_XDrawArcs(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5) +static Xen gxm_XDrawArcs(Xen arg1, Xen arg2, Xen arg3, Xen larg4, Xen arg5) { #define H_XDrawArcs "XDrawArcs(display, d, gc, arcs, narcs) draws multiple circular or elliptical arcs." /* DIFF: XDrawArcs Arc* arg (arg 4) is list of XArcs @@ -10921,369 +10642,369 @@ static XEN gxm_XDrawArcs(XEN arg1, XEN arg2, XEN arg3, XEN larg4, XEN arg5) Display *dpy; Drawable draw; GC gc; - XEN arg4; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawArcs", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawArcs", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawArcs", "GC"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg4), larg4, 4, "XDrawArcs", "list of XArcs"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawArcs", "int"); - arg4 = XEN_COPY_ARG(larg4); - len = XEN_TO_C_INT(arg5); - dpy = XEN_TO_C_Display(arg1); - draw = XEN_TO_C_Window(arg2); - gc = XEN_TO_C_GC(arg3); - for (i = 0; (i < len) && (XEN_NOT_NULL_P(arg4)); i++, arg4 = XEN_CDR(arg4)) + Xen arg4; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawArcs", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawArcs", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawArcs", "GC"); + Xen_check_type(Xen_is_list(larg4), larg4, 4, "XDrawArcs", "list of XArcs"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawArcs", "int"); + arg4 = Xen_copy_arg(larg4); + len = Xen_integer_to_C_int(arg5); + dpy = Xen_to_C_Display(arg1); + draw = Xen_to_C_Window(arg2); + gc = Xen_to_C_GC(arg3); + for (i = 0; (i < len) && (!Xen_is_null(arg4)); i++, arg4 = Xen_cdr(arg4)) { XArc *arc; - arc = XEN_TO_C_XArc(XEN_CAR(arg4)); + arc = Xen_to_C_XArc(Xen_car(arg4)); XDrawArc(dpy, draw, gc, arc->x, arc->y, arc->width, arc->height, arc->angle1, arc->angle2); } - return(C_TO_XEN_INT(len)); + return(C_int_to_Xen_integer(len)); } -static XEN gxm_XDrawArc(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8, XEN arg9) +static Xen gxm_XDrawArc(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8, Xen arg9) { #define H_XDrawArc "XDrawArc(display, d, gc, x, y, width, height, angle1, angle2) draws a single circular or elliptical arc." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDrawArc", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDrawArc", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg3), arg3, 3, "XDrawArc", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XDrawArc", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XDrawArc", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XDrawArc", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XDrawArc", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XDrawArc", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9), arg9, 9, "XDrawArc", "int"); - return(C_TO_XEN_INT(XDrawArc(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_GC(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - XEN_TO_C_ULONG(arg6), XEN_TO_C_ULONG(arg7), XEN_TO_C_INT(arg8), XEN_TO_C_INT(arg9)))); -} - -static XEN gxm_XDisplayWidthMM(XEN arg1, XEN arg2) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDrawArc", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDrawArc", "Drawable"); + Xen_check_type(Xen_is_GC(arg3), arg3, 3, "XDrawArc", "GC"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XDrawArc", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XDrawArc", "int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XDrawArc", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XDrawArc", "unsigned int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XDrawArc", "int"); + Xen_check_type(Xen_is_integer(arg9), arg9, 9, "XDrawArc", "int"); + return(C_int_to_Xen_integer(XDrawArc(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_GC(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + Xen_ulong_to_C_ulong(arg6), Xen_ulong_to_C_ulong(arg7), Xen_integer_to_C_int(arg8), Xen_integer_to_C_int(arg9)))); +} + +static Xen gxm_XDisplayWidthMM(Xen arg1, Xen arg2) { #define H_DisplayWidthMM "DisplayWidthMM(display, screen_number): returns the width of the specified screen in millimeters." #define H_XDisplayWidthMM "XDisplayWidthMM(display, screen_number): returns the width of the specified screen in millimeters." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayWidthMM", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDisplayWidthMM", "int"); - return(C_TO_XEN_INT(XDisplayWidthMM(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayWidthMM", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDisplayWidthMM", "int"); + return(C_int_to_Xen_integer(XDisplayWidthMM(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisplayWidth(XEN arg1, XEN arg2) +static Xen gxm_XDisplayWidth(Xen arg1, Xen arg2) { #define H_DisplayWidth "DisplayWidth(display, screen_number): returns the width of the screen in pixels." #define H_XDisplayWidth "XDisplayWidth(display, screen_number): returns the width of the screen in pixels." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayWidth", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDisplayWidth", "int"); - return(C_TO_XEN_INT(XDisplayWidth(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayWidth", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDisplayWidth", "int"); + return(C_int_to_Xen_integer(XDisplayWidth(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisplayPlanes(XEN arg1, XEN arg2) +static Xen gxm_XDisplayPlanes(Xen arg1, Xen arg2) { #define H_DisplayPlanes "DisplayPlanes(display, screen_number): returns the depth of the root window of the specified screen." #define H_XDisplayPlanes "XDisplayPlanes(display, screen_number): returns the depth of the root window of the specified screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayPlanes", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDisplayPlanes", "int"); - return(C_TO_XEN_INT(XDisplayPlanes(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayPlanes", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDisplayPlanes", "int"); + return(C_int_to_Xen_integer(XDisplayPlanes(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisplayKeycodes(XEN arg1) +static Xen gxm_XDisplayKeycodes(Xen arg1) { #define H_XDisplayKeycodes "XDisplayKeycodes(display): returns the min-keycodes and max-keycodes supported by the specified display." /* DIFF: XDisplayKeycodes omit and rtn arg 2 and 3 */ int m1, m2, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayKeycodes", "Display*"); - val = XDisplayKeycodes(XEN_TO_C_Display(arg1), &m1, &m2); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_INT(m1), - C_TO_XEN_INT(m2))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayKeycodes", "Display*"); + val = XDisplayKeycodes(Xen_to_C_Display(arg1), &m1, &m2); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_int_to_Xen_integer(m1), + C_int_to_Xen_integer(m2))); } -static XEN gxm_XDisplayHeightMM(XEN arg1, XEN arg2) +static Xen gxm_XDisplayHeightMM(Xen arg1, Xen arg2) { #define H_DisplayHeightMM "DisplayHeightMM(display, screen_number): returns the height of the specified screen in millimeters." #define H_XDisplayHeightMM "XDisplayHeightMM(display, screen_number): returns the height of the specified screen in millimeters." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayHeightMM", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDisplayHeightMM", "int"); - return(C_TO_XEN_INT(XDisplayHeightMM(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayHeightMM", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDisplayHeightMM", "int"); + return(C_int_to_Xen_integer(XDisplayHeightMM(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisplayHeight(XEN arg1, XEN arg2) +static Xen gxm_XDisplayHeight(Xen arg1, Xen arg2) { #define H_DisplayHeight "DisplayHeight(display, screen_number): returns the height of the specified screen in pixels." #define H_XDisplayHeight "XDisplayHeight(display, screen_number): returns the height of the specified screen in pixels." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayHeight", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDisplayHeight", "int"); - return(C_TO_XEN_INT(XDisplayHeight(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayHeight", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDisplayHeight", "int"); + return(C_int_to_Xen_integer(XDisplayHeight(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisplayCells(XEN arg1, XEN arg2) +static Xen gxm_XDisplayCells(Xen arg1, Xen arg2) { #define H_DisplayCells "DisplayCells(display, screen_number): returns the number of entries in the default colormap." #define H_XDisplayCells "XDisplayCells(display, screen_number): returns the number of entries in the default colormap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayCells", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDisplayCells", "int"); - return(C_TO_XEN_INT(XDisplayCells(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayCells", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDisplayCells", "int"); + return(C_int_to_Xen_integer(XDisplayCells(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisableAccessControl(XEN arg1) +static Xen gxm_XDisableAccessControl(Xen arg1) { #define H_XDisableAccessControl "XDisableAccessControl(display) disables the use of the access control list at each connection setup." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisableAccessControl", "Display*"); - return(C_TO_XEN_INT(XDisableAccessControl(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisableAccessControl", "Display*"); + return(C_int_to_Xen_integer(XDisableAccessControl(Xen_to_C_Display(arg1)))); } -static XEN gxm_XDoesSaveUnders(XEN arg1) +static Xen gxm_XDoesSaveUnders(Xen arg1) { #define H_DoesSaveUnders "DoesSaveUnders(screen): returns a Boolean value indicating whether the screen supports save unders." #define H_XDoesSaveUnders "XDoesSaveUnders(screen): returns a Boolean value indicating whether the screen supports save unders." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XDoesSaveUnders", "Screen*"); - return(C_TO_XEN_BOOLEAN(XDoesSaveUnders(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XDoesSaveUnders", "Screen*"); + return(C_bool_to_Xen_boolean(XDoesSaveUnders(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDoesBackingStore(XEN arg1) +static Xen gxm_XDoesBackingStore(Xen arg1) { #define H_DoesBackingStore "DoesBackingStore(screen): returns WhenMapped, NotUseful,or Always,which indicate whether the screen supports backing stores." #define H_XDoesBackingStore "XDoesBackingStore(screen): returns WhenMapped, NotUseful,or Always,which indicate whether the screen supports backing stores." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XDoesBackingStore", "Screen*"); - return(C_TO_XEN_BOOLEAN(XDoesBackingStore(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XDoesBackingStore", "Screen*"); + return(C_bool_to_Xen_boolean(XDoesBackingStore(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDestroySubwindows(XEN arg1, XEN arg2) +static Xen gxm_XDestroySubwindows(Xen arg1, Xen arg2) { #define H_XDestroySubwindows "XDestroySubwindows(display, w) destroys all inferior windows of the specified window, in bottom-to-top stacking order." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDestroySubwindows", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDestroySubwindows", "Window"); - return(C_TO_XEN_INT(XDestroySubwindows(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDestroySubwindows", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDestroySubwindows", "Window"); + return(C_int_to_Xen_integer(XDestroySubwindows(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XDestroyWindow(XEN arg1, XEN arg2) +static Xen gxm_XDestroyWindow(Xen arg1, Xen arg2) { #define H_XDestroyWindow "XDestroyWindow(display, w) destroys the specified window as well as all of its subwindows and causes the X server \ to generate a DestroyNotify event for each window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDestroyWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDestroyWindow", "Window"); - return(C_TO_XEN_INT(XDestroyWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDestroyWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDestroyWindow", "Window"); + return(C_int_to_Xen_integer(XDestroyWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XDeleteProperty(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XDeleteProperty(Xen arg1, Xen arg2, Xen arg3) { #define H_XDeleteProperty "XDeleteProperty(display, w, property) deletes the specified property only if the property was defined on the specified \ window and causes the X server to generate a PropertyNotify event on the window unless the property does not exist." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDeleteProperty", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDeleteProperty", "Window"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XDeleteProperty", "Atom"); - return(C_TO_XEN_INT(XDeleteProperty(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Atom(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDeleteProperty", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDeleteProperty", "Window"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XDeleteProperty", "Atom"); + return(C_int_to_Xen_integer(XDeleteProperty(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Atom(arg3)))); } -static XEN gxm_XDefineCursor(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XDefineCursor(Xen arg1, Xen arg2, Xen arg3) { #define H_XDefineCursor "XDefineCursor(display, w, cursor)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefineCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XDefineCursor", "Window"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg3), arg3, 3, "XDefineCursor", "Cursor"); - return(C_TO_XEN_INT(XDefineCursor(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Cursor(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefineCursor", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XDefineCursor", "Window"); + Xen_check_type(Xen_is_Cursor(arg3), arg3, 3, "XDefineCursor", "Cursor"); + return(C_int_to_Xen_integer(XDefineCursor(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Cursor(arg3)))); } -static XEN gxm_XDefaultScreen(XEN arg1) +static Xen gxm_XDefaultScreen(Xen arg1) { #define H_XDefaultScreen "XDefaultScreen(display)" #define H_XDefaultScreenOfDisplay "returns the default screen of the specified display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefaultScreen", "Display*"); - return(C_TO_XEN_INT(XDefaultScreen(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefaultScreen", "Display*"); + return(C_int_to_Xen_integer(XDefaultScreen(Xen_to_C_Display(arg1)))); } -static XEN gxm_XDefaultDepthOfScreen(XEN arg1) +static Xen gxm_XDefaultDepthOfScreen(Xen arg1) { #define H_DefaultDepthOfScreen "returns the default depth of the root window of the specified screen." #define H_XDefaultDepthOfScreen "returns the default depth of the root window of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XDefaultDepthOfScreen", "Screen*"); - return(C_TO_XEN_INT(XDefaultDepthOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XDefaultDepthOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XDefaultDepthOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDefaultDepth(XEN arg1, XEN arg2) +static Xen gxm_XDefaultDepth(Xen arg1, Xen arg2) { #define H_DefaultDepth "returns the depth (number of planes) of the default root window for the specified screen." #define H_XDefaultDepth "returns the depth (number of planes) of the default root window for the specified screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefaultDepth", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDefaultDepth", "int"); - return(C_TO_XEN_INT(XDefaultDepth(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefaultDepth", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDefaultDepth", "int"); + return(C_int_to_Xen_integer(XDefaultDepth(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XCopyPlane(XEN args) +static Xen gxm_XCopyPlane(Xen args) { #define H_XCopyPlane "XCopyPlane(display, src, dest, gc, src_x, src_y, width, height, dest_x, dest_y, plane) uses a single bit plane of the \ specified source rectangle combined with the specified GC to modify the specified rectangle of dest." - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - arg11 = XEN_LIST_REF(args, 10); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCopyPlane", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCopyPlane", "Drawable"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XCopyPlane", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg4), arg4, 4, "XCopyPlane", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XCopyPlane", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XCopyPlane", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XCopyPlane", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg8), arg8, 8, "XCopyPlane", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9), arg9, 9, "XCopyPlane", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg10), arg10, 10, "XCopyPlane", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg11), arg11, 11, "XCopyPlane", "ulong"); - return(C_TO_XEN_INT(XCopyPlane(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_Window(arg3), - XEN_TO_C_GC(arg4), - XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6), XEN_TO_C_ULONG(arg7), - XEN_TO_C_ULONG(arg8), XEN_TO_C_INT(arg9), - XEN_TO_C_INT(arg10), XEN_TO_C_ULONG(arg11)))); -} - -static XEN gxm_XCopyGC(XEN arg1, XEN arg2, XEN arg3, XEN arg4) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + arg11 = Xen_list_ref(args, 10); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCopyPlane", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCopyPlane", "Drawable"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XCopyPlane", "Drawable"); + Xen_check_type(Xen_is_GC(arg4), arg4, 4, "XCopyPlane", "GC"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XCopyPlane", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XCopyPlane", "int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XCopyPlane", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg8), arg8, 8, "XCopyPlane", "unsigned int"); + Xen_check_type(Xen_is_integer(arg9), arg9, 9, "XCopyPlane", "int"); + Xen_check_type(Xen_is_integer(arg10), arg10, 10, "XCopyPlane", "int"); + Xen_check_type(Xen_is_ulong(arg11), arg11, 11, "XCopyPlane", "ulong"); + return(C_int_to_Xen_integer(XCopyPlane(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_Window(arg3), + Xen_to_C_GC(arg4), + Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6), Xen_ulong_to_C_ulong(arg7), + Xen_ulong_to_C_ulong(arg8), Xen_integer_to_C_int(arg9), + Xen_integer_to_C_int(arg10), Xen_ulong_to_C_ulong(arg11)))); +} + +static Xen gxm_XCopyGC(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XCopyGC "XCopyGC(display, src, valuemask, dest) copies the specified components from the source GC to the destination GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCopyGC", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XCopyGC", "GC"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XCopyGC", "ulong"); - XEN_ASSERT_TYPE(XEN_GC_P(arg4), arg4, 4, "XCopyGC", "GC"); - return(C_TO_XEN_INT(XCopyGC(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_GC(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCopyGC", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XCopyGC", "GC"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XCopyGC", "ulong"); + Xen_check_type(Xen_is_GC(arg4), arg4, 4, "XCopyGC", "GC"); + return(C_int_to_Xen_integer(XCopyGC(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_ulong_to_C_ulong(arg3), Xen_to_C_GC(arg4)))); } -static XEN gxm_XCopyArea(XEN args) +static Xen gxm_XCopyArea(Xen args) { #define H_XCopyArea "XCopyArea(display, src, dest, gc, src_x, src_y, width, height, dest_x, dest_y) combines the specified rectangle of src \ with the specified rectangle of dest." - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCopyArea", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCopyArea", "Drawable"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XCopyArea", "Drawable"); - XEN_ASSERT_TYPE(XEN_GC_P(arg4), arg4, 4, "XCopyArea", "GC"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XCopyArea", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XCopyArea", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XCopyArea", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg8), arg8, 8, "XCopyArea", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9), arg9, 9, "XCopyArea", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg10), arg10, 10, "XCopyArea", "int"); - return(C_TO_XEN_INT(XCopyArea(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_Window(arg3), - XEN_TO_C_GC(arg4), - XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6), XEN_TO_C_ULONG(arg7), - XEN_TO_C_ULONG(arg8), XEN_TO_C_INT(arg9), XEN_TO_C_INT(arg10)))); -} - -static XEN gxm_XConvertSelection(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCopyArea", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCopyArea", "Drawable"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XCopyArea", "Drawable"); + Xen_check_type(Xen_is_GC(arg4), arg4, 4, "XCopyArea", "GC"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XCopyArea", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XCopyArea", "int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XCopyArea", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg8), arg8, 8, "XCopyArea", "unsigned int"); + Xen_check_type(Xen_is_integer(arg9), arg9, 9, "XCopyArea", "int"); + Xen_check_type(Xen_is_integer(arg10), arg10, 10, "XCopyArea", "int"); + return(C_int_to_Xen_integer(XCopyArea(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_Window(arg3), + Xen_to_C_GC(arg4), + Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6), Xen_ulong_to_C_ulong(arg7), + Xen_ulong_to_C_ulong(arg8), Xen_integer_to_C_int(arg9), Xen_integer_to_C_int(arg10)))); +} + +static Xen gxm_XConvertSelection(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XConvertSelection "void XConvertSelection(display, selection, target, property, requestor, time)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XConvertSelection", "Display*"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XConvertSelection", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XConvertSelection", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg4), arg4, 4, "XConvertSelection", "Atom"); - XEN_ASSERT_TYPE(XEN_Window_P(arg5), arg5, 5, "XConvertSelection", "Window"); - XEN_ASSERT_TYPE(XEN_Time_P(arg6), arg6, 6, "XConvertSelection", "Time"); - return(C_TO_XEN_INT(XConvertSelection(XEN_TO_C_Display(arg1), - XEN_TO_C_Atom(arg2), XEN_TO_C_Atom(arg3), XEN_TO_C_Atom(arg4), - XEN_TO_C_Window(arg5), XEN_TO_C_Time(arg6)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XConvertSelection", "Display*"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XConvertSelection", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XConvertSelection", "Atom"); + Xen_check_type(Xen_is_Atom(arg4), arg4, 4, "XConvertSelection", "Atom"); + Xen_check_type(Xen_is_Window(arg5), arg5, 5, "XConvertSelection", "Window"); + Xen_check_type(Xen_is_Time(arg6), arg6, 6, "XConvertSelection", "Time"); + return(C_int_to_Xen_integer(XConvertSelection(Xen_to_C_Display(arg1), + Xen_to_C_Atom(arg2), Xen_to_C_Atom(arg3), Xen_to_C_Atom(arg4), + Xen_to_C_Window(arg5), Xen_to_C_Time(arg6)))); } -static XEN gxm_XConnectionNumber(XEN arg1) +static Xen gxm_XConnectionNumber(Xen arg1) { #define H_XConnectionNumber "returns a connection number for the specified display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XConnectionNumber", "Display*"); - return(C_TO_XEN_INT(XConnectionNumber(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XConnectionNumber", "Display*"); + return(C_int_to_Xen_integer(XConnectionNumber(Xen_to_C_Display(arg1)))); } -static XEN gxm_XConfigureWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XConfigureWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XConfigureWindow "XConfigureWindow(display, w, value_mask, values) uses the values specified in the XWindowChanges structure to \ reconfigure a window's size, position, border, and stacking order." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XConfigureWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XConfigureWindow", "Window"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XConfigureWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_XWindowChanges_P(arg4), arg4, 4, "XConfigureWindow", "XWindowChanges*"); - return(C_TO_XEN_INT(XConfigureWindow(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_XWindowChanges(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XConfigureWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XConfigureWindow", "Window"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XConfigureWindow", "unsigned int"); + Xen_check_type(Xen_is_XWindowChanges(arg4), arg4, 4, "XConfigureWindow", "XWindowChanges*"); + return(C_int_to_Xen_integer(XConfigureWindow(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), Xen_ulong_to_C_ulong(arg3), Xen_to_C_XWindowChanges(arg4)))); } -static XEN gxm_XCloseDisplay(XEN arg1) +static Xen gxm_XCloseDisplay(Xen arg1) { #define H_XCloseDisplay "XCloseDisplay(display) closes the connection to the X server for the display specified in the Display structure and \ destroys all windows, resource IDs etc." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCloseDisplay", "Display*"); - return(C_TO_XEN_INT(XCloseDisplay(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCloseDisplay", "Display*"); + return(C_int_to_Xen_integer(XCloseDisplay(Xen_to_C_Display(arg1)))); } -static XEN gxm_XClearWindow(XEN arg1, XEN arg2) +static Xen gxm_XClearWindow(Xen arg1, Xen arg2) { #define H_XClearWindow "XClearWindow(display, w) clears the entire area in the specified window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XClearWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XClearWindow", "Window"); - return(C_TO_XEN_INT(XClearWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XClearWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XClearWindow", "Window"); + return(C_int_to_Xen_integer(XClearWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XClearArea(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XClearArea(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XClearArea "XClearArea(display, w, x, y, width, height, exposures) paints a rectangular area in the specified window according to the \ specified dimensions with the window's background pixel or pixmap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XClearArea", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XClearArea", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XClearArea", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XClearArea", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XClearArea", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XClearArea", "unsigned int"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg7), arg7, 7, "XClearArea", "Bool"); - return(C_TO_XEN_INT(XClearArea(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), - XEN_TO_C_ULONG(arg5), XEN_TO_C_ULONG(arg6), XEN_TO_C_BOOLEAN(arg7)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XClearArea", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XClearArea", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XClearArea", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XClearArea", "int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XClearArea", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XClearArea", "unsigned int"); + Xen_check_type(Xen_is_boolean(arg7), arg7, 7, "XClearArea", "Bool"); + return(C_int_to_Xen_integer(XClearArea(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), + Xen_ulong_to_C_ulong(arg5), Xen_ulong_to_C_ulong(arg6), Xen_boolean_to_C_bool(arg7)))); } -static XEN gxm_XCirculateSubwindowsUp(XEN arg1, XEN arg2) +static Xen gxm_XCirculateSubwindowsUp(Xen arg1, Xen arg2) { #define H_XCirculateSubwindowsUp "XCirculateSubwindowsUp(display, w) raises the lowest mapped child of the specified window that is partially or \ completely occluded by another child." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCirculateSubwindowsUp", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCirculateSubwindowsUp", "Window"); - return(C_TO_XEN_INT(XCirculateSubwindowsUp(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCirculateSubwindowsUp", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCirculateSubwindowsUp", "Window"); + return(C_int_to_Xen_integer(XCirculateSubwindowsUp(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XCirculateSubwindowsDown(XEN arg1, XEN arg2) +static Xen gxm_XCirculateSubwindowsDown(Xen arg1, Xen arg2) { #define H_XCirculateSubwindowsDown "XCirculateSubwindowsDown(display, w) lowers the highest mapped child of the specified window that partially or \ completely occludes another child." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCirculateSubwindowsDown", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCirculateSubwindowsDown", "Window"); - return(C_TO_XEN_INT(XCirculateSubwindowsDown(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCirculateSubwindowsDown", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCirculateSubwindowsDown", "Window"); + return(C_int_to_Xen_integer(XCirculateSubwindowsDown(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XCirculateSubwindows(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XCirculateSubwindows(Xen arg1, Xen arg2, Xen arg3) { #define H_XCirculateSubwindows "XCirculateSubwindows(display, w, direction) circulates children of the specified window in the specified direction." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCirculateSubwindows", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCirculateSubwindows", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XCirculateSubwindows", "int"); - return(C_TO_XEN_INT(XCirculateSubwindows(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCirculateSubwindows", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCirculateSubwindows", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XCirculateSubwindows", "int"); + return(C_int_to_Xen_integer(XCirculateSubwindows(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XCheckWindowEvent(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XCheckWindowEvent(Xen arg1, Xen arg2, Xen arg3) { #define H_XCheckWindowEvent "Bool XCheckWindowEvent(display, w, event_mask) searches the event queue and then the events available \ on the server connection for the first event that matches the specified window and event mask." @@ -11291,21 +11012,21 @@ on the server connection for the first event that matches the specified window a */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCheckWindowEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCheckWindowEvent", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XCheckWindowEvent", "long"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCheckWindowEvent", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCheckWindowEvent", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XCheckWindowEvent", "long"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XCheckWindowEvent(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3), e); + val = XCheckWindowEvent(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3), e); if (val) - return(C_TO_XEN_XEvent_OBJ(e)); + return(C_to_Xen_XEvent_OBJ(e)); else { free(e); - return(XEN_FALSE); + return(Xen_false); } } -static XEN gxm_XCheckTypedWindowEvent(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XCheckTypedWindowEvent(Xen arg1, Xen arg2, Xen arg3) { #define H_XCheckTypedWindowEvent "Bool XCheckTypedWindowEvent(display, w, event_type) searches the event queue and then any events \ available on the server connection for the first event that matches the specified event mask" @@ -11313,21 +11034,21 @@ available on the server connection for the first event that matches the specifie */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCheckTypedWindowEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCheckTypedWindowEvent", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XCheckTypedWindowEvent", "int"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCheckTypedWindowEvent", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCheckTypedWindowEvent", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XCheckTypedWindowEvent", "int"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XCheckTypedWindowEvent(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3), e); + val = XCheckTypedWindowEvent(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3), e); if (val) - return(C_TO_XEN_XEvent_OBJ(e)); + return(C_to_Xen_XEvent_OBJ(e)); else { free(e); - return(XEN_FALSE); + return(Xen_false); } } -static XEN gxm_XCheckTypedEvent(XEN arg1, XEN arg2) +static Xen gxm_XCheckTypedEvent(Xen arg1, Xen arg2) { #define H_XCheckTypedEvent "Bool XCheckTypedEvent(display, event_type) searches the event queue and then any events available \ on the server connection for the first event that matches the specified type." @@ -11335,20 +11056,20 @@ on the server connection for the first event that matches the specified type." */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCheckTypedEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XCheckTypedEvent", "int"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCheckTypedEvent", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XCheckTypedEvent", "int"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XCheckTypedEvent(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), e); + val = XCheckTypedEvent(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), e); if (val) - return(C_TO_XEN_XEvent_OBJ(e)); + return(C_to_Xen_XEvent_OBJ(e)); else { free(e); - return(XEN_FALSE); + return(Xen_false); } } -static XEN gxm_XCheckMaskEvent(XEN arg1, XEN arg2) +static Xen gxm_XCheckMaskEvent(Xen arg1, Xen arg2) { #define H_XCheckMaskEvent "Bool XCheckMaskEvent(display, event_mask) searches the event queue and then any events available on \ the server connection for the first event that matches the specified mask." @@ -11356,105 +11077,105 @@ the server connection for the first event that matches the specified mask." */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCheckMaskEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XCheckMaskEvent", "long"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCheckMaskEvent", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XCheckMaskEvent", "long"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XCheckMaskEvent(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), e); + val = XCheckMaskEvent(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), e); if (val) - return(C_TO_XEN_XEvent_OBJ(e)); + return(C_to_Xen_XEvent_OBJ(e)); else { free(e); - return(XEN_FALSE); + return(Xen_false); } } -static XEN gxm_XCheckIfEvent(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XCheckIfEvent(Xen arg1, Xen arg2, Xen arg3) { #define H_XCheckIfEvent "Bool XCheckIfEvent(display, predicate, arg)" /* DIFF: XCheckIfEvent dpy [ev] proc ptr -> (list val ev) */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCheckIfEvent", "Display*"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 3)), arg2, 2, "XCheckIfEvent", "(Bool_Proc dpy ev data)"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCheckIfEvent", "Display*"); + Xen_check_type(Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 3)), arg2, 2, "XCheckIfEvent", "(Bool_Proc dpy ev data)"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XCheckIfEvent(XEN_TO_C_Display(arg1), + val = XCheckIfEvent(Xen_to_C_Display(arg1), e, (Bool (*)(Display *d, XEvent *ev, char *p))gxm_XPeekIfEventProc, (char*)arg3); if (val) - return(C_TO_XEN_XEvent_OBJ(e)); + return(C_to_Xen_XEvent_OBJ(e)); else { free(e); - return(XEN_FALSE); + return(Xen_false); } } -static XEN gxm_XChangeWindowAttributes(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XChangeWindowAttributes(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XChangeWindowAttributes "XChangeWindowAttributes(display, w, valuemask, attributes) uses the window attributes in the XSetWindowAttributes \ structure to change the specified window attributes." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XChangeWindowAttributes", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XChangeWindowAttributes", "Window"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XChangeWindowAttributes", "ulong"); - XEN_ASSERT_TYPE(XEN_XSetWindowAttributes_P(arg4), arg4, 4, "XChangeWindowAttributes", "XSetWindowAttributes*"); - return(C_TO_XEN_INT(XChangeWindowAttributes(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_ULONG(arg3), - XEN_TO_C_XSetWindowAttributes(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XChangeWindowAttributes", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XChangeWindowAttributes", "Window"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XChangeWindowAttributes", "ulong"); + Xen_check_type(Xen_is_XSetWindowAttributes(arg4), arg4, 4, "XChangeWindowAttributes", "XSetWindowAttributes*"); + return(C_int_to_Xen_integer(XChangeWindowAttributes(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_ulong_to_C_ulong(arg3), + Xen_to_C_XSetWindowAttributes(arg4)))); } -static XEN gxm_XChangeProperty(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8) +static Xen gxm_XChangeProperty(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8) { #define H_XChangeProperty "XChangeProperty(display, w, property, type, format, mode, data, nelements) alters the property for the specified \ window and causes the X server to generate a PropertyNotify event on that window." unsigned char *command; int len; int *data = NULL; - XEN rtn; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XChangeProperty", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XChangeProperty", "Window"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XChangeProperty", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg4), arg4, 4, "XChangeProperty", "Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XChangeProperty", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XChangeProperty", "int"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg7) || XEN_LIST_P(arg7), arg7, 7, "XChangeProperty", "string or list of int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg8), arg8, 8, "XChangeProperty", "int"); - if (XEN_STRING_P(arg7)) + Xen rtn; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XChangeProperty", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XChangeProperty", "Window"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XChangeProperty", "Atom"); + Xen_check_type(Xen_is_Atom(arg4), arg4, 4, "XChangeProperty", "Atom"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XChangeProperty", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XChangeProperty", "int"); + Xen_check_type(Xen_is_string(arg7) || Xen_is_list(arg7), arg7, 7, "XChangeProperty", "string or list of int"); + Xen_check_type(Xen_is_integer_or_unbound(arg8), arg8, 8, "XChangeProperty", "int"); + if (Xen_is_string(arg7)) { - command = (unsigned char *)(XEN_TO_C_STRING(arg7)); - if (XEN_INTEGER_P(arg8)) len = XEN_TO_C_INT(arg8); else len = strlen((const char *)command) + 1; + command = (unsigned char *)(Xen_string_to_C_string(arg7)); + if (Xen_is_integer(arg8)) len = Xen_integer_to_C_int(arg8); else len = strlen((const char *)command) + 1; } else { - if (XEN_INTEGER_P(arg8)) len = XEN_TO_C_INT(arg8); else len = XEN_LIST_LENGTH(arg7); - data = XEN_TO_C_Ints(arg7, len); + if (Xen_is_integer(arg8)) len = Xen_integer_to_C_int(arg8); else len = Xen_list_length(arg7); + data = Xen_to_C_Ints(arg7, len); command = (unsigned char *)data; } - rtn = C_TO_XEN_INT(XChangeProperty(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_Atom(arg3), XEN_TO_C_Atom(arg4), - XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6), + rtn = C_int_to_Xen_integer(XChangeProperty(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_to_C_Atom(arg3), Xen_to_C_Atom(arg4), + Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6), (const unsigned char *)command, len)); if (data) free(data); return(rtn); } -static XEN gxm_XChangePointerControl(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XChangePointerControl(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XChangePointerControl "XChangePointerControl(display, do_accel, do_threshold, accel_numerator, accel_denominator, threshold) \ defines how the pointing device moves." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XChangePointerControl", "Display*"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XChangePointerControl", "Bool"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XChangePointerControl", "Bool"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XChangePointerControl", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XChangePointerControl", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XChangePointerControl", "int"); - return(C_TO_XEN_INT(XChangePointerControl(XEN_TO_C_Display(arg1), - XEN_TO_C_BOOLEAN(arg2), XEN_TO_C_BOOLEAN(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XChangePointerControl", "Display*"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XChangePointerControl", "Bool"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XChangePointerControl", "Bool"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XChangePointerControl", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XChangePointerControl", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XChangePointerControl", "int"); + return(C_int_to_Xen_integer(XChangePointerControl(Xen_to_C_Display(arg1), + Xen_boolean_to_C_bool(arg2), Xen_boolean_to_C_bool(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6)))); } -static XEN gxm_XChangeKeyboardMapping(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XChangeKeyboardMapping(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XChangeKeyboardMapping "XChangeKeyboardMapping(display, first_keycode, keysyms_per_keycode, keysyms, num_codes) defines the \ symbols for the specified number of KeyCodes starting with first_keycode." @@ -11462,279 +11183,279 @@ symbols for the specified number of KeyCodes starting with first_keycode." */ KeySym *ks; int len, val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XChangeKeyboardMapping", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XChangeKeyboardMapping", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XChangeKeyboardMapping", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XChangeKeyboardMapping", "list of KeySym"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XChangeKeyboardMapping", "int"); - len = XEN_TO_C_INT(arg5); - if (len <= 0) return(XEN_FALSE); - ks = XEN_TO_C_KeySyms(arg4, len); - val = XChangeKeyboardMapping(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), ks, len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XChangeKeyboardMapping", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XChangeKeyboardMapping", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XChangeKeyboardMapping", "int"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XChangeKeyboardMapping", "list of KeySym"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XChangeKeyboardMapping", "int"); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) return(Xen_false); + ks = Xen_to_C_KeySyms(arg4, len); + val = XChangeKeyboardMapping(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), ks, len); free(ks); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XChangeKeyboardControl(XEN arg1, XEN arg2, XEN larg3) +static Xen gxm_XChangeKeyboardControl(Xen arg1, Xen arg2, Xen larg3) { #define H_XChangeKeyboardControl "XChangeKeyboardControl(display, value_mask, values) controls the keyboard characteristics defined by \ the XKeyboardControl structure." /* DIFF: XChangeKeyboardControl arg3 is list of XKeyboardControl fields */ - XEN arg3; + Xen arg3; XKeyboardControl kc; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XChangeKeyboardControl", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XChangeKeyboardControl", "ulong"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg3), larg3, 3, "XChangeKeyboardControl", "XKeyboardControl*"); - arg3 = XEN_COPY_ARG(larg3); - kc.key_click_percent = XEN_TO_C_INT(XEN_CAR(arg3)); arg3 = XEN_CDR(arg3); - if (!(XEN_NULL_P(arg3))) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XChangeKeyboardControl", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XChangeKeyboardControl", "ulong"); + Xen_check_type(Xen_is_list(larg3), larg3, 3, "XChangeKeyboardControl", "XKeyboardControl*"); + arg3 = Xen_copy_arg(larg3); + kc.key_click_percent = Xen_integer_to_C_int(Xen_car(arg3)); arg3 = Xen_cdr(arg3); + if (!(Xen_is_null(arg3))) { - kc.bell_percent = XEN_TO_C_INT(XEN_CAR(arg3)); arg3 = XEN_CDR(arg3); - if (!(XEN_NULL_P(arg3))) + kc.bell_percent = Xen_integer_to_C_int(Xen_car(arg3)); arg3 = Xen_cdr(arg3); + if (!(Xen_is_null(arg3))) { - kc.bell_pitch = XEN_TO_C_INT(XEN_CAR(arg3)); arg3 = XEN_CDR(arg3); - if (!(XEN_NULL_P(arg3))) + kc.bell_pitch = Xen_integer_to_C_int(Xen_car(arg3)); arg3 = Xen_cdr(arg3); + if (!(Xen_is_null(arg3))) { - kc.bell_duration = XEN_TO_C_INT(XEN_CAR(arg3)); arg3 = XEN_CDR(arg3); - if (!(XEN_NULL_P(arg3))) + kc.bell_duration = Xen_integer_to_C_int(Xen_car(arg3)); arg3 = Xen_cdr(arg3); + if (!(Xen_is_null(arg3))) { - kc.led = XEN_TO_C_INT(XEN_CAR(arg3)); arg3 = XEN_CDR(arg3); - if (!(XEN_NULL_P(arg3))) + kc.led = Xen_integer_to_C_int(Xen_car(arg3)); arg3 = Xen_cdr(arg3); + if (!(Xen_is_null(arg3))) { - kc.led_mode = XEN_TO_C_INT(XEN_CAR(arg3)); arg3 = XEN_CDR(arg3); - if (!(XEN_NULL_P(arg3))) + kc.led_mode = Xen_integer_to_C_int(Xen_car(arg3)); arg3 = Xen_cdr(arg3); + if (!(Xen_is_null(arg3))) { - kc.key = XEN_TO_C_INT(XEN_CAR(arg3)); arg3 = XEN_CDR(arg3); - if (!(XEN_NULL_P(arg3))) + kc.key = Xen_integer_to_C_int(Xen_car(arg3)); arg3 = Xen_cdr(arg3); + if (!(Xen_is_null(arg3))) { - kc.auto_repeat_mode = XEN_TO_C_INT(XEN_CAR(arg3)); + kc.auto_repeat_mode = Xen_integer_to_C_int(Xen_car(arg3)); }}}}}}} - return(C_TO_XEN_INT(XChangeKeyboardControl(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2), &kc))); + return(C_int_to_Xen_integer(XChangeKeyboardControl(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2), &kc))); } -static XEN gxm_XChangeGC(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XChangeGC(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XChangeGC "XChangeGC(display, gc, valuemask, values) changes the components specified by valuemask for the specified GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XChangeGC", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XChangeGC", "GC"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XChangeGC", "ulong"); - XEN_ASSERT_TYPE(XEN_XGCValues_P(arg4), arg4, 4, "XChangeGC", "XGCValues*"); - return(C_TO_XEN_INT(XChangeGC(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_XGCValues(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XChangeGC", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XChangeGC", "GC"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XChangeGC", "ulong"); + Xen_check_type(Xen_is_XGCValues(arg4), arg4, 4, "XChangeGC", "XGCValues*"); + return(C_int_to_Xen_integer(XChangeGC(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2), Xen_ulong_to_C_ulong(arg3), Xen_to_C_XGCValues(arg4)))); } -static XEN gxm_XChangeActivePointerGrab(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XChangeActivePointerGrab(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XChangeActivePointerGrab "XChangeActivePointerGrab(display, event_mask, cursor, time) changes the specified dynamic parameters \ if the pointer is actively grabbed by the client and if the specified time is no earlier than the last-pointer-grab time and no later than \ the current X server time." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XChangeActivePointerGrab", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XChangeActivePointerGrab", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg3), arg3, 3, "XChangeActivePointerGrab", "Cursor"); - XEN_ASSERT_TYPE(XEN_Time_P(arg4), arg4, 4, "XChangeActivePointerGrab", "Time"); - return(C_TO_XEN_INT(XChangeActivePointerGrab(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_Cursor(arg3), XEN_TO_C_Time(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XChangeActivePointerGrab", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XChangeActivePointerGrab", "unsigned int"); + Xen_check_type(Xen_is_Cursor(arg3), arg3, 3, "XChangeActivePointerGrab", "Cursor"); + Xen_check_type(Xen_is_Time(arg4), arg4, 4, "XChangeActivePointerGrab", "Time"); + return(C_int_to_Xen_integer(XChangeActivePointerGrab(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2), Xen_to_C_Cursor(arg3), Xen_to_C_Time(arg4)))); } -static XEN gxm_XCellsOfScreen(XEN arg1) +static Xen gxm_XCellsOfScreen(Xen arg1) { #define H_CellsOfScreen "CellsOfScreen(screen): returns the number of colormap cells in the default colormap of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XCellsOfScreen", "Screen*"); - return(C_TO_XEN_INT(XCellsOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XCellsOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XCellsOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XBitmapUnit(XEN arg1) +static Xen gxm_XBitmapUnit(Xen arg1) { #define H_BitmapUnit "BitmapUnit(display): returns the size of a bitmap's scanline unit in bits." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XBitmapUnit", "Display*"); - return(C_TO_XEN_INT(XBitmapUnit(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XBitmapUnit", "Display*"); + return(C_int_to_Xen_integer(XBitmapUnit(Xen_to_C_Display(arg1)))); } -static XEN gxm_XBitmapPad(XEN arg1) +static Xen gxm_XBitmapPad(Xen arg1) { #define H_BitmapPad "BitmapPad(display): returns the number of bits that each scanline must be padded." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XBitmapPad", "Display*"); - return(C_TO_XEN_INT(XBitmapPad(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XBitmapPad", "Display*"); + return(C_int_to_Xen_integer(XBitmapPad(Xen_to_C_Display(arg1)))); } -static XEN gxm_XBitmapBitOrder(XEN arg1) +static Xen gxm_XBitmapBitOrder(Xen arg1) { #define H_BitmapBitOrder "BitmapBitOrder(display): returns LSBFirst or MSBFirst to indicate whether the leftmost bit in the bitmap as \ displayed on the screen is the least or most significant bit in the unit." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XBitmapBitOrder", "Display*"); - return(C_TO_XEN_INT(XBitmapBitOrder(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XBitmapBitOrder", "Display*"); + return(C_int_to_Xen_integer(XBitmapBitOrder(Xen_to_C_Display(arg1)))); } -static XEN gxm_XBell(XEN arg1, XEN arg2) +static Xen gxm_XBell(Xen arg1, Xen arg2) { #define H_XBell "XBell(display, percent) rings the bell on the keyboard on the specified display, if possible." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XBell", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XBell", "int"); - return(C_TO_XEN_INT(XBell(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XBell", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XBell", "int"); + return(C_int_to_Xen_integer(XBell(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XAutoRepeatOn(XEN arg1) +static Xen gxm_XAutoRepeatOn(Xen arg1) { #define H_XAutoRepeatOn "XAutoRepeatOn(display) turns on auto-repeat for the keyboard on the specified display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XAutoRepeatOn", "Display*"); - return(C_TO_XEN_INT(XAutoRepeatOn(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XAutoRepeatOn", "Display*"); + return(C_int_to_Xen_integer(XAutoRepeatOn(Xen_to_C_Display(arg1)))); } -static XEN gxm_XAutoRepeatOff(XEN arg1) +static Xen gxm_XAutoRepeatOff(Xen arg1) { #define H_XAutoRepeatOff "XAutoRepeatOff(display) turns off auto-repeat for the keyboard on the specified display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XAutoRepeatOff", "Display*"); - return(C_TO_XEN_INT(XAutoRepeatOff(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XAutoRepeatOff", "Display*"); + return(C_int_to_Xen_integer(XAutoRepeatOff(Xen_to_C_Display(arg1)))); } -static XEN gxm_XAllowEvents(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XAllowEvents(Xen arg1, Xen arg2, Xen arg3) { #define H_XAllowEvents "XAllowEvents(display, event_mode, time)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XAllowEvents", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XAllowEvents", "int"); - XEN_ASSERT_TYPE(XEN_Time_P(arg3), arg3, 3, "XAllowEvents", "Time"); - return(C_TO_XEN_INT(XAllowEvents(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_Time(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XAllowEvents", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XAllowEvents", "int"); + Xen_check_type(Xen_is_Time(arg3), arg3, 3, "XAllowEvents", "Time"); + return(C_int_to_Xen_integer(XAllowEvents(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), Xen_to_C_Time(arg3)))); } -static XEN gxm_XAllocNamedColor(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XAllocNamedColor(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XAllocNamedColor "Status XAllocNamedColor(display, colormap, color_name, screen_def_return, exact_def_return) looks up the \ named color with respect to the screen that is associated with the specified colormap." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XAllocNamedColor", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XAllocNamedColor", "Colormap"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XAllocNamedColor", "char*"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg4), arg4, 4, "XAllocNamedColor", "XColor"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg5), arg5, 5, "XAllocNamedColor", "XColor"); - return(C_TO_XEN_INT(XAllocNamedColor(XEN_TO_C_Display(arg1), - XEN_TO_C_Colormap(arg2), - (char *)XEN_TO_C_STRING(arg3), - XEN_TO_C_XColor(arg4), XEN_TO_C_XColor(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XAllocNamedColor", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XAllocNamedColor", "Colormap"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XAllocNamedColor", "char*"); + Xen_check_type(Xen_is_XColor(arg4), arg4, 4, "XAllocNamedColor", "XColor"); + Xen_check_type(Xen_is_XColor(arg5), arg5, 5, "XAllocNamedColor", "XColor"); + return(C_int_to_Xen_integer(XAllocNamedColor(Xen_to_C_Display(arg1), + Xen_to_C_Colormap(arg2), + (char *)Xen_string_to_C_string(arg3), + Xen_to_C_XColor(arg4), Xen_to_C_XColor(arg5)))); } -static XEN gxm_XAllocColorPlanes(XEN args) +static Xen gxm_XAllocColorPlanes(Xen args) { #define H_XAllocColorPlanes "Status XAllocColorPlanes(display, colormap, contig, ncolors, nreds, ngreens, nblues)" /* DIFF: XAllocColorPlanes omits pixel array (arg4) and trailing 3 args, returns them and embedded list of pixels */ unsigned long r,g,b; unsigned long *ps; - int i, len, val; - XEN lst = XEN_FALSE; - XEN arg1, arg2, arg3, arg5, arg6, arg7, arg8; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg5 = XEN_LIST_REF(args, 3); - arg6 = XEN_LIST_REF(args, 4); - arg7 = XEN_LIST_REF(args, 5); - arg8 = XEN_LIST_REF(args, 6); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XAllocColorPlanes", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XAllocColorPlanes", "Colormap"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XAllocColorPlanes", "Bool"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XAllocColorPlanes", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XAllocColorPlanes", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XAllocColorPlanes", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XAllocColorPlanes", "int"); - len = XEN_TO_C_INT(arg5); - if (len <= 0) XEN_ASSERT_TYPE(0, arg5, 5, "XAllocColorPlanes", "positive integer"); + int len, val; + Xen lst = Xen_false; + Xen arg1, arg2, arg3, arg5, arg6, arg7, arg8; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg5 = Xen_list_ref(args, 3); + arg6 = Xen_list_ref(args, 4); + arg7 = Xen_list_ref(args, 5); + arg8 = Xen_list_ref(args, 6); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XAllocColorPlanes", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XAllocColorPlanes", "Colormap"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XAllocColorPlanes", "Bool"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XAllocColorPlanes", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XAllocColorPlanes", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XAllocColorPlanes", "int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XAllocColorPlanes", "int"); + len = Xen_integer_to_C_int(arg5); + if (len <= 0) Xen_check_type(0, arg5, 5, "XAllocColorPlanes", "positive integer"); ps = (unsigned long *)calloc(len, sizeof(unsigned long)); - val = XAllocColorPlanes(XEN_TO_C_Display(arg1), - XEN_TO_C_Colormap(arg2), - XEN_TO_C_BOOLEAN(arg3), + val = XAllocColorPlanes(Xen_to_C_Display(arg1), + Xen_to_C_Colormap(arg2), + Xen_boolean_to_C_bool(arg3), ps, len, - XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7), XEN_TO_C_INT(arg8), + Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7), Xen_integer_to_C_int(arg8), &r, &g, &b); if (val != 0) { - XEN plist = XEN_EMPTY_LIST; - int loc; + Xen plist = Xen_empty_list; + int i, loc; loc = xm_protect(plist); for (i = len - 1; i >= 0; i--) - plist = XEN_CONS(C_TO_XEN_ULONG(ps[i]), plist); + plist = Xen_cons(C_ulong_to_Xen_ulong(ps[i]), plist); xm_unprotect_at(loc); - lst = XEN_LIST_5(C_TO_XEN_INT(val), + lst = Xen_list_5(C_int_to_Xen_integer(val), plist, - C_TO_XEN_ULONG(r), - C_TO_XEN_ULONG(g), - C_TO_XEN_ULONG(b)); + C_ulong_to_Xen_ulong(r), + C_ulong_to_Xen_ulong(g), + C_ulong_to_Xen_ulong(b)); } free(ps); return(lst); } -static XEN gxm_XAllocColorCells(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XAllocColorCells(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XAllocColorCells "Status XAllocColorCells(display, colormap, contig, nplanes, npixels) \ allocates read/write color cells." /* DIFF: XAllocColorCells arg 4 and 6 omitted and returned as (embedded) lists */ - int mlen, plen, i, val; - XEN mlst = XEN_EMPTY_LIST, plst = XEN_EMPTY_LIST; + int mlen, plen, val; + Xen mlst = Xen_empty_list, plst = Xen_empty_list; unsigned long *ms, *ps; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XAllocColorCells", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XAllocColorCells", "Colormap"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XAllocColorCells", "Bool"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XAllocColorCells", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XAllocColorCells", "unsigned int"); - mlen = XEN_TO_C_INT(arg4); - if (mlen <= 0) return(XEN_FALSE); - plen = XEN_TO_C_INT(arg5); - if (plen <= 0) return(XEN_FALSE); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XAllocColorCells", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XAllocColorCells", "Colormap"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XAllocColorCells", "Bool"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XAllocColorCells", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XAllocColorCells", "unsigned int"); + mlen = Xen_integer_to_C_int(arg4); + if (mlen <= 0) return(Xen_false); + plen = Xen_integer_to_C_int(arg5); + if (plen <= 0) return(Xen_false); ms = (unsigned long *)calloc(mlen, sizeof(unsigned long)); ps = (unsigned long *)calloc(plen, sizeof(unsigned long)); - val = XAllocColorCells(XEN_TO_C_Display(arg1), - XEN_TO_C_Colormap(arg2), - XEN_TO_C_BOOLEAN(arg3), + val = XAllocColorCells(Xen_to_C_Display(arg1), + Xen_to_C_Colormap(arg2), + Xen_boolean_to_C_bool(arg3), ms, mlen, ps, plen); if (val != 0) { - int loc1, loc2; + int i, loc1, loc2; loc1 = xm_protect(mlst); loc2 = xm_protect(plst); for (i = mlen - 1; i >= 0; i--) - mlst = XEN_CONS(C_TO_XEN_ULONG(ms[i]), mlst); + mlst = Xen_cons(C_ulong_to_Xen_ulong(ms[i]), mlst); for (i = plen - 1; i >= 0; i--) - mlst = XEN_CONS(C_TO_XEN_ULONG(ps[i]), plst); + mlst = Xen_cons(C_ulong_to_Xen_ulong(ps[i]), plst); xm_unprotect_at(loc1); xm_unprotect_at(loc2); } free(ms); free(ps); if (val != 0) - return(XEN_LIST_3(C_TO_XEN_INT(val), + return(Xen_list_3(C_int_to_Xen_integer(val), mlst, plst)); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XAllocColor(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XAllocColor(Xen arg1, Xen arg2, Xen arg3) { #define H_XAllocColor "Status XAllocColor(display, colormap, screen_in_out) allocates a read-only colormap entry corresponding to the \ closest RGB value supported by the hardware." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XAllocColor", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XAllocColor", "Colormap"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg3), arg3, 3, "XAllocColor", "XColor"); - return(C_TO_XEN_INT(XAllocColor(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2), XEN_TO_C_XColor(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XAllocColor", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XAllocColor", "Colormap"); + Xen_check_type(Xen_is_XColor(arg3), arg3, 3, "XAllocColor", "XColor"); + return(C_int_to_Xen_integer(XAllocColor(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2), Xen_to_C_XColor(arg3)))); } -static XEN gxm_XActivateScreenSaver(XEN arg1) +static Xen gxm_XActivateScreenSaver(Xen arg1) { #define H_XActivateScreenSaver "XActivateScreenSaver(display) activates the screen saver." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XActivateScreenSaver", "Display*"); - return(C_TO_XEN_INT(XActivateScreenSaver(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XActivateScreenSaver", "Display*"); + return(C_int_to_Xen_integer(XActivateScreenSaver(Xen_to_C_Display(arg1)))); } -static XEN gxm_XSetTransientForHint(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XSetTransientForHint(Xen arg1, Xen arg2, Xen arg3) { #define H_XSetTransientForHint "XSetTransientForHint(display, w, prop_window) sets the WM_TRANSIENT_FOR property of the specified \ window to the specified prop_window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetTransientForHint", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetTransientForHint", "Window"); - XEN_ASSERT_TYPE(XEN_Window_P(arg3), arg3, 3, "XSetTransientForHint", "Window"); - return(C_TO_XEN_INT(XSetTransientForHint(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Window(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetTransientForHint", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetTransientForHint", "Window"); + Xen_check_type(Xen_is_Window(arg3), arg3, 3, "XSetTransientForHint", "Window"); + return(C_int_to_Xen_integer(XSetTransientForHint(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Window(arg3)))); } -static XEN gxm_XSetWMColormapWindows(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSetWMColormapWindows(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSetWMColormapWindows "Status XSetWMColormapWindows(display, w, colormap_windows, count) replaces the WM_COLORMAP_WINDOWS property \ on the specified window with the list of windows specified by the colormap_windows argument." @@ -11742,45 +11463,45 @@ on the specified window with the list of windows specified by the colormap_windo */ int len, rtn; Window *ws; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWMColormapWindows", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWMColormapWindows", "Window"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XSetWMColormapWindows", "list of Windows"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetWMColormapWindows", "int"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - ws = XEN_TO_C_Windows(arg3, len); - rtn = XSetWMColormapWindows(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWMColormapWindows", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWMColormapWindows", "Window"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XSetWMColormapWindows", "list of Windows"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetWMColormapWindows", "int"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + ws = Xen_to_C_Windows(arg3, len); + rtn = XSetWMColormapWindows(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), ws, len); free(ws); - return(C_TO_XEN_INT(rtn)); + return(C_int_to_Xen_integer(rtn)); } -static XEN gxm_XGetWMColormapWindows(XEN arg1, XEN arg2) +static Xen gxm_XGetWMColormapWindows(Xen arg1, Xen arg2) { #define H_XGetWMColormapWindows "Status XGetWMColormapWindows(display, w): returns the list of \ window identifiers stored in the WM_COLORMAP_WINDOWS property on the specified window." /* DIFF: XGetWMColormapWindows omit last 2 args, return list of windows */ - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; int i, len, rtn, loc; Window *ws; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetWMColormapWindows", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetWMColormapWindows", "Window"); - rtn = XGetWMColormapWindows(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetWMColormapWindows", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetWMColormapWindows", "Window"); + rtn = XGetWMColormapWindows(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), &ws, &len); if (rtn == 0) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Window(ws[i]), lst); + lst = Xen_cons(C_to_Xen_Window(ws[i]), lst); xm_unprotect_at(loc); XFree(ws); return(lst); } -static XEN gxm_XGetCommand(XEN arg1, XEN arg2) +static Xen gxm_XGetCommand(Xen arg1, Xen arg2) { #define H_XGetCommand "Status XGetCommand(display, w) reads the WM_COMMAND property from the specified window \ and returns a string list." @@ -11788,45 +11509,45 @@ and returns a string list." */ char **argv; int argc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; Status err; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetCommand", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetCommand", "Window"); - err = XGetCommand(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &argv, &argc); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetCommand", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetCommand", "Window"); + err = XGetCommand(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &argv, &argc); if (err != 0) { int i, loc; loc = xm_protect(lst); for (i = argc - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(argv[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(argv[i]), lst); XFreeStringList(argv); xm_unprotect_at(loc); } return(lst); } -static XEN gxm_XWithdrawWindow(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XWithdrawWindow(Xen arg1, Xen arg2, Xen arg3) { #define H_XWithdrawWindow "Status XWithdrawWindow(display, w, screen_number) unmaps the specified window and sends a synthetic \ UnmapNotify event to the root window of the specified screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XWithdrawWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XWithdrawWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XWithdrawWindow", "int"); - return(C_TO_XEN_INT(XWithdrawWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XWithdrawWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XWithdrawWindow", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XWithdrawWindow", "int"); + return(C_int_to_Xen_integer(XWithdrawWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XIconifyWindow(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XIconifyWindow(Xen arg1, Xen arg2, Xen arg3) { #define H_XIconifyWindow "Status XIconifyWindow(display, w, screen_number) sends a WM_CHANGE_STATE ClientMessage event with a format of \ 32 and a first data element of IconicState to the root window of the specified screen with an event mask set to \ SubstructureNotifyMask | SubstructureRedirectMask." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XIconifyWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XIconifyWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XIconifyWindow", "int"); - return(C_TO_XEN_INT(XIconifyWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XIconifyWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XIconifyWindow", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XIconifyWindow", "int"); + return(C_int_to_Xen_integer(XIconifyWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XSetWMProtocols(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XSetWMProtocols(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XSetWMProtocols "Status XSetWMProtocols(display, w, protocols, count) replaces the WM_PROTOCOLS property on the \ specified window with the list of atoms specified by the protocols argument." @@ -11834,19 +11555,19 @@ specified window with the list of atoms specified by the protocols argument." */ Atom *outs; int val, len; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetWMProtocols", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XSetWMProtocols", "Window"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XSetWMProtocols", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XSetWMProtocols", "int"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - outs = XEN_TO_C_Atoms(arg3, len); - val = XSetWMProtocols(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), outs, len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetWMProtocols", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XSetWMProtocols", "Window"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XSetWMProtocols", "list of Atom"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XSetWMProtocols", "int"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg3, len); + val = XSetWMProtocols(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), outs, len); free(outs); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XGetWMProtocols(XEN arg1, XEN arg2) +static Xen gxm_XGetWMProtocols(Xen arg1, Xen arg2) { #define H_XGetWMProtocols "Status XGetWMProtocols(display, w): returns the list of atoms stored in the \ WM_PROTOCOLS property on the specified window." @@ -11854,54 +11575,54 @@ WM_PROTOCOLS property on the specified window." */ Atom *ats; int len, i, val, loc; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetWMProtocols", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetWMProtocols", "Window"); - val = XGetWMProtocols(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &ats, &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetWMProtocols", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetWMProtocols", "Window"); + val = XGetWMProtocols(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &ats, &len); if (val == 0) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Atom(ats[i]), lst); + lst = Xen_cons(C_to_Xen_Atom(ats[i]), lst); xm_unprotect_at(loc); XFree((void *)ats); return(lst); } -static XEN gxm_XReconfigureWMWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XReconfigureWMWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XReconfigureWMWindow "Status XReconfigureWMWindow(display, w, screen_number, value_mask, values) issues a ConfigureWindow \ request on the specified top-level window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XReconfigureWMWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XReconfigureWMWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XReconfigureWMWindow", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XReconfigureWMWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_XWindowChanges_P(arg5), arg5, 5, "XReconfigureWMWindow", "XWindowChanges*"); - return(C_TO_XEN_INT(XReconfigureWMWindow(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_ULONG(arg4), - XEN_TO_C_XWindowChanges(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XReconfigureWMWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XReconfigureWMWindow", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XReconfigureWMWindow", "int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XReconfigureWMWindow", "unsigned int"); + Xen_check_type(Xen_is_XWindowChanges(arg5), arg5, 5, "XReconfigureWMWindow", "XWindowChanges*"); + return(C_int_to_Xen_integer(XReconfigureWMWindow(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_integer_to_C_int(arg3), Xen_ulong_to_C_ulong(arg4), + Xen_to_C_XWindowChanges(arg5)))); } -static XEN gxm_XListDepths(XEN arg1, XEN arg2) +static Xen gxm_XListDepths(Xen arg1, Xen arg2) { #define H_XListDepths "int *XListDepths(display, screen_number): returns the array of depths that are available on the \ specified screen." /* DIFF: XListDepths omits last arg, returns list of depths */ - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; int i, len, loc; int *ds; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XListDepths", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XListDepths", "int"); - ds = XListDepths(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2), &len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XListDepths", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XListDepths", "int"); + ds = XListDepths(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2), &len); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_INT(ds[i]), lst); + lst = Xen_cons(C_int_to_Xen_integer(ds[i]), lst); XFree(ds); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XListPixmapFormats(XEN arg1) +static Xen gxm_XListPixmapFormats(Xen arg1) { #define H_XListPixmapFormats "XPixmapFormatValues *XListPixmapFormats(display): returns an array of XPixmapFormatValues \ structures that describe the types of Z format images supported by the specified display." @@ -11909,17 +11630,17 @@ structures that describe the types of Z format images supported by the specified */ XPixmapFormatValues *ps; int len, loc; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XListPixmapFormats", "Display*"); - ps = XListPixmapFormats(XEN_TO_C_Display(arg1), &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XListPixmapFormats", "Display*"); + ps = XListPixmapFormats(Xen_to_C_Display(arg1), &len); loc = xm_protect(lst); if (ps) { int i; for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(XEN_LIST_3(C_TO_XEN_INT(ps[i].depth), - C_TO_XEN_INT(ps[i].bits_per_pixel), - C_TO_XEN_INT(ps[i].scanline_pad)), + lst = Xen_cons(Xen_list_3(C_int_to_Xen_integer(ps[i].depth), + C_int_to_Xen_integer(ps[i].bits_per_pixel), + C_int_to_Xen_integer(ps[i].scanline_pad)), lst); free(ps); } @@ -11928,260 +11649,260 @@ structures that describe the types of Z format images supported by the specified } -static XEN xm_XIOErrorHandler; +static Xen xm_XIOErrorHandler; static int gxm_XIOErrorHandler(Display *dpy) { - XEN_CALL_1(xm_XIOErrorHandler, C_TO_XEN_Display(dpy), c__FUNCTION__); + Xen_call_with_1_arg(xm_XIOErrorHandler, C_to_Xen_Display(dpy), __func__); return(0); /* never happens */ } -static XEN gxm_XSetIOErrorHandler(XEN arg1) +static Xen gxm_XSetIOErrorHandler(Xen arg1) { #define H_XSetIOErrorHandler "int (*XSetIOErrorHandler(handler))() sets the fatal I/O error handler. " - XEN old_val; - XEN_ASSERT_TYPE(XEN_FALSE_P(arg1) || XEN_PROCEDURE_P(arg1), arg1, XEN_ONLY_ARG, "XSetIOErrorHandler", PROC_FALSE "=null or function of 1 arg"); + Xen old_val; + Xen_check_type(Xen_is_false(arg1) || Xen_is_procedure(arg1), arg1, 1, "XSetIOErrorHandler", PROC_FALSE "=null or function of 1 arg"); xm_protect(arg1); old_val = xm_XIOErrorHandler; xm_XIOErrorHandler = arg1; - if (XEN_FALSE_P(arg1)) + if (Xen_is_false(arg1)) XSetIOErrorHandler(NULL); else XSetIOErrorHandler(gxm_XIOErrorHandler); - if (XEN_PROCEDURE_P(old_val)) xm_unprotect(old_val); /* hmmm... what if we're gc'd on the way back? */ + if (Xen_is_procedure(old_val)) xm_unprotect(old_val); /* hmmm... what if we're gc'd on the way back? */ return(old_val); } -static XEN xm_XErrorHandler; +static Xen xm_XErrorHandler; static int gxm_XErrorHandler(Display *dpy, XErrorEvent *e) { - XEN_CALL_2(xm_XErrorHandler, C_TO_XEN_Display(dpy), C_TO_XEN_XErrorEvent((XErrorEvent *)e), c__FUNCTION__); + Xen_call_with_2_args(xm_XErrorHandler, C_to_Xen_Display(dpy), C_to_Xen_XErrorEvent((XErrorEvent *)e), __func__); return(0); /* never happens */ } -static XEN gxm_XSetErrorHandler(XEN arg1) +static Xen gxm_XSetErrorHandler(Xen arg1) { #define H_XSetErrorHandler "XSetErrorHandler(proc) causes proc to be called if an error occurs" - XEN old_val; - XEN_ASSERT_TYPE(XEN_FALSE_P(arg1) || XEN_PROCEDURE_P(arg1), arg1, XEN_ONLY_ARG, "XSetErrorHandler", PROC_FALSE "=null or function of 2 args"); + Xen old_val; + Xen_check_type(Xen_is_false(arg1) || Xen_is_procedure(arg1), arg1, 1, "XSetErrorHandler", PROC_FALSE "=null or function of 2 args"); xm_protect(arg1); old_val = xm_XErrorHandler; xm_XErrorHandler = arg1; - if (XEN_FALSE_P(arg1)) + if (Xen_is_false(arg1)) XSetErrorHandler(NULL); else XSetErrorHandler(gxm_XErrorHandler); - if (XEN_PROCEDURE_P(old_val)) xm_unprotect(old_val); /* hmmm... what if we're gc'd on the way back? */ + if (Xen_is_procedure(old_val)) xm_unprotect(old_val); /* hmmm... what if we're gc'd on the way back? */ return(old_val); } -static XEN gxm_XScreenNumberOfScreen(XEN arg1) +static Xen gxm_XScreenNumberOfScreen(Xen arg1) { #define H_XScreenNumberOfScreen "int XScreenNumberOfScreen(screen): returns the screen index number of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XScreenNumberOfScreen", "Screen*"); - return(C_TO_XEN_INT(XScreenNumberOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XScreenNumberOfScreen", "Screen*"); + return(C_int_to_Xen_integer(XScreenNumberOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XEventMaskOfScreen(XEN arg1) +static Xen gxm_XEventMaskOfScreen(Xen arg1) { #define H_EventMaskOfScreen "EventMaskOfScreen(screen): returns the root event mask of the root window for the specified screen at connection setup." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XEventMaskOfScreen", "Screen*"); - return(C_TO_XEN_ULONG(XEventMaskOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XEventMaskOfScreen", "Screen*"); + return(C_ulong_to_Xen_ulong(XEventMaskOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDefaultScreenOfDisplay(XEN arg1) +static Xen gxm_XDefaultScreenOfDisplay(Xen arg1) { /* #define DefaultScreenOfDisplay(display) */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefaultScreenOfDisplay", "Display*"); - return(C_TO_XEN_Screen(XDefaultScreenOfDisplay(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefaultScreenOfDisplay", "Display*"); + return(C_to_Xen_Screen(XDefaultScreenOfDisplay(Xen_to_C_Display(arg1)))); } -static XEN gxm_XScreenOfDisplay(XEN arg1, XEN arg2) +static Xen gxm_XScreenOfDisplay(Xen arg1, Xen arg2) { #define H_ScreenOfDisplay "ScreenOfDisplay(display, screen_number): returns a pointer to the screen of the specified display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XScreenOfDisplay", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XScreenOfDisplay", "int"); - return(C_TO_XEN_Screen(XScreenOfDisplay(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XScreenOfDisplay", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XScreenOfDisplay", "int"); + return(C_to_Xen_Screen(XScreenOfDisplay(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisplayOfScreen(XEN arg1) +static Xen gxm_XDisplayOfScreen(Xen arg1) { #define H_DisplayOfScreen "DisplayOfScreen(screen): returns the display of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XDisplayOfScreen", "Screen*"); - return(C_TO_XEN_Display(XDisplayOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XDisplayOfScreen", "Screen*"); + return(C_to_Xen_Display(XDisplayOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDefaultColormapOfScreen(XEN arg1) +static Xen gxm_XDefaultColormapOfScreen(Xen arg1) { #define H_DefaultColormapOfScreen "DefaultColormapOfScreen(screen): returns the default colormap of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XDefaultColormapOfScreen", "Screen*"); - return(C_TO_XEN_Colormap(XDefaultColormapOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XDefaultColormapOfScreen", "Screen*"); + return(C_to_Xen_Colormap(XDefaultColormapOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDefaultColormap(XEN arg1, XEN arg2) +static Xen gxm_XDefaultColormap(Xen arg1, Xen arg2) { #define H_DefaultColormap "DefaultColormap(display, screen_number): returns the default colormap ID for allocation on the specified screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefaultColormap", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDefaultColormap", "int"); - return(C_TO_XEN_Colormap(XDefaultColormap(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefaultColormap", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDefaultColormap", "int"); + return(C_to_Xen_Colormap(XDefaultColormap(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDisplayString(XEN arg1) +static Xen gxm_XDisplayString(Xen arg1) { #define H_DisplayString "DisplayString(display): returns the string that was passed to XOpenDisplay when the current display was opened." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayString", "Display*"); - return(C_TO_XEN_STRING(XDisplayString(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayString", "Display*"); + return(C_string_to_Xen_string(XDisplayString(Xen_to_C_Display(arg1)))); } -static XEN gxm_XServerVendor(XEN arg1) +static Xen gxm_XServerVendor(Xen arg1) { #define H_ServerVendor "ServerVendor(display): returns a pointer to a null-terminated string that provides some identification of the \ owner of the X server implementation." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XServerVendor", "Display*"); - return(C_TO_XEN_STRING(XServerVendor(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XServerVendor", "Display*"); + return(C_string_to_Xen_string(XServerVendor(Xen_to_C_Display(arg1)))); } -static XEN gxm_XLastKnownRequestProcessed(XEN arg1) +static Xen gxm_XLastKnownRequestProcessed(Xen arg1) { #define H_LastKnownRequestProcessed "LastKnownRequestProcessed(display) extracts the full serial number of the last request known by Xlib \ to have been processed by the X server." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XLastKnownRequestProcessed", "Display*"); - return(C_TO_XEN_ULONG(XLastKnownRequestProcessed(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XLastKnownRequestProcessed", "Display*"); + return(C_ulong_to_Xen_ulong(XLastKnownRequestProcessed(Xen_to_C_Display(arg1)))); } -static XEN gxm_XNextRequest(XEN arg1) +static Xen gxm_XNextRequest(Xen arg1) { #define H_NextRequest "NextRequest(display) extracts the full serial number that is to be used for the next request." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XNextRequest", "Display*"); - return(C_TO_XEN_ULONG(XNextRequest(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XNextRequest", "Display*"); + return(C_ulong_to_Xen_ulong(XNextRequest(Xen_to_C_Display(arg1)))); } -static XEN gxm_XWhitePixelOfScreen(XEN arg1) +static Xen gxm_XWhitePixelOfScreen(Xen arg1) { #define H_WhitePixelOfScreen "WhitePixelOfScreen(screen): returns the white pixel value of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XWhitePixelOfScreen", "Screen*"); - return(C_TO_XEN_Pixel(XWhitePixelOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XWhitePixelOfScreen", "Screen*"); + return(C_to_Xen_Pixel(XWhitePixelOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XBlackPixelOfScreen(XEN arg1) +static Xen gxm_XBlackPixelOfScreen(Xen arg1) { #define H_BlackPixelOfScreen "BlackPixelOfScreen(screen): returns the black pixel value of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XBlackPixelOfScreen", "Screen*"); - return(C_TO_XEN_Pixel(XBlackPixelOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XBlackPixelOfScreen", "Screen*"); + return(C_to_Xen_Pixel(XBlackPixelOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XAllPlanes(void) +static Xen gxm_XAllPlanes(void) { #define H_AllPlanes "Allplanes(): returns a value with all bits set to 1 suitable for use in a plane argument to a procedure." - return(C_TO_XEN_ULONG(XAllPlanes())); + return(C_ulong_to_Xen_ulong(XAllPlanes())); } -static XEN gxm_XWhitePixel(XEN arg1, XEN arg2) +static Xen gxm_XWhitePixel(Xen arg1, Xen arg2) { #define H_WhitePixel "WhitePixel(display, screen_number): returns the white pixel value for the specified screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XWhitePixel", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XWhitePixel", "int"); - return(C_TO_XEN_Pixel(XWhitePixel(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XWhitePixel", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XWhitePixel", "int"); + return(C_to_Xen_Pixel(XWhitePixel(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XBlackPixel(XEN arg1, XEN arg2) +static Xen gxm_XBlackPixel(Xen arg1, Xen arg2) { #define H_BlackPixel "BlackPixel(display, screen_number): returns the black pixel value for the specified screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XBlackPixel", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XBlackPixel", "int"); - return(C_TO_XEN_Pixel(XBlackPixel(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XBlackPixel", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XBlackPixel", "int"); + return(C_to_Xen_Pixel(XBlackPixel(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDefaultGCOfScreen(XEN arg1) +static Xen gxm_XDefaultGCOfScreen(Xen arg1) { #define H_DefaultGCOfScreen "DefaultGCOfScreen(screen): returns the default GC of the specified screen, which has the same depth as the root \ window of the screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XDefaultGCOfScreen", "Screen*"); - return(C_TO_XEN_GC(XDefaultGCOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XDefaultGCOfScreen", "Screen*"); + return(C_to_Xen_GC(XDefaultGCOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDefaultGC(XEN arg1, XEN arg2) +static Xen gxm_XDefaultGC(Xen arg1, Xen arg2) { #define H_DefaultGC "DefaultGC(display, screen_number): returns the default GC for the root window of the " - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefaultGC", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDefaultGC", "int"); - return(C_TO_XEN_GC(XDefaultGC(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefaultGC", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDefaultGC", "int"); + return(C_to_Xen_GC(XDefaultGC(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XDefaultVisualOfScreen(XEN arg1) +static Xen gxm_XDefaultVisualOfScreen(Xen arg1) { #define H_DefaultVisualOfScreen "DefaultVisualOfScreen(screen): returns the default visual of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XDefaultVisualOfScreen", "Screen*"); - return(C_TO_XEN_Visual(XDefaultVisualOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XDefaultVisualOfScreen", "Screen*"); + return(C_to_Xen_Visual(XDefaultVisualOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDefaultVisual(XEN arg1, XEN arg2) +static Xen gxm_XDefaultVisual(Xen arg1, Xen arg2) { #define H_DefaultVisual "DefaultVisual(display, screen_number): returns the default visual type for the specified screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefaultVisual", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XDefaultVisual", "int"); - return(C_TO_XEN_Visual(XDefaultVisual(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefaultVisual", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XDefaultVisual", "int"); + return(C_to_Xen_Visual(XDefaultVisual(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XRootWindowOfScreen(XEN arg1) +static Xen gxm_XRootWindowOfScreen(Xen arg1) { #define H_RootWindowOfScreen "RootWindowOfScreen(screen): returns the root window of the specified screen." - XEN_ASSERT_TYPE(XEN_Screen_P(arg1), arg1, 1, "XRootWindowOfScreen", "Screen*"); - return(C_TO_XEN_Window(XRootWindowOfScreen(XEN_TO_C_Screen(arg1)))); + Xen_check_type(Xen_is_Screen(arg1), arg1, 1, "XRootWindowOfScreen", "Screen*"); + return(C_to_Xen_Window(XRootWindowOfScreen(Xen_to_C_Screen(arg1)))); } -static XEN gxm_XDefaultRootWindow(XEN arg1) +static Xen gxm_XDefaultRootWindow(Xen arg1) { #define H_DefaultRootWindow "DefaultRootWindow(display): returns the root window for the default screen." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDefaultRootWindow", "Display*"); - return(C_TO_XEN_Window(XDefaultRootWindow(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDefaultRootWindow", "Display*"); + return(C_to_Xen_Window(XDefaultRootWindow(Xen_to_C_Display(arg1)))); } -static XEN gxm_XRootWindow(XEN arg1, XEN arg2) +static Xen gxm_XRootWindow(Xen arg1, Xen arg2) { #define H_RootWindow "RootWindow(display, screen_number): returns the root window." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XRootWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XRootWindow", "int"); - return(C_TO_XEN_Window(XRootWindow(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XRootWindow", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XRootWindow", "int"); + return(C_to_Xen_Window(XRootWindow(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XVisualIDFromVisual(XEN arg1) +static Xen gxm_XVisualIDFromVisual(Xen arg1) { #define H_XVisualIDFromVisual "VisualID XVisualIDFromVisual(visual): returns the visual ID for the specified visual type." - XEN_ASSERT_TYPE(XEN_Visual_P(arg1), arg1, 1, "XVisualIDFromVisual", "Visual*"); - return(C_TO_XEN_ULONG(XVisualIDFromVisual(XEN_TO_C_Visual(arg1)))); + Xen_check_type(Xen_is_Visual(arg1), arg1, 1, "XVisualIDFromVisual", "Visual*"); + return(C_ulong_to_Xen_ulong(XVisualIDFromVisual(Xen_to_C_Visual(arg1)))); } -static XEN gxm_XDisplayMotionBufferSize(XEN arg1) +static Xen gxm_XDisplayMotionBufferSize(Xen arg1) { #define H_XDisplayMotionBufferSize "unsigned long XDisplayMotionBufferSize(display)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XDisplayMotionBufferSize", "Display*"); - return(C_TO_XEN_ULONG(XDisplayMotionBufferSize(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XDisplayMotionBufferSize", "Display*"); + return(C_ulong_to_Xen_ulong(XDisplayMotionBufferSize(Xen_to_C_Display(arg1)))); } -static XEN gxm_XExtendedMaxRequestSize(XEN arg1) +static Xen gxm_XExtendedMaxRequestSize(Xen arg1) { #define H_XExtendedMaxRequestSize "long XExtendedMaxRequestSize(display): returns zero if the specified display does not support an \ extended-length protocol encoding; otherwise, it returns the maximum request size (in 4-byte units) supported by the server using the \ extended-length encoding." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XExtendedMaxRequestSize", "Display*"); - return(C_TO_XEN_INT(XExtendedMaxRequestSize(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XExtendedMaxRequestSize", "Display*"); + return(C_int_to_Xen_integer(XExtendedMaxRequestSize(Xen_to_C_Display(arg1)))); } -static XEN gxm_XMaxRequestSize(XEN arg1) +static Xen gxm_XMaxRequestSize(Xen arg1) { #define H_XMaxRequestSize "long XMaxRequestSize(display): returns the maximum request size (in 4-byte units) supported by the server \ without using an extended-length protocol encoding." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XMaxRequestSize", "Display*"); - return(C_TO_XEN_INT(XMaxRequestSize(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XMaxRequestSize", "Display*"); + return(C_int_to_Xen_integer(XMaxRequestSize(Xen_to_C_Display(arg1)))); } -static XEN gxm_XStringToKeysym(XEN arg1) +static Xen gxm_XStringToKeysym(Xen arg1) { #define H_XStringToKeysym "KeySym XStringToKeysym(string)" - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XStringToKeysym", "char*"); - return(C_TO_XEN_KeySym(XStringToKeysym((char *)XEN_TO_C_STRING(arg1)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XStringToKeysym", "char*"); + return(C_to_Xen_KeySym(XStringToKeysym((char *)Xen_string_to_C_string(arg1)))); } -static XEN gxm_XGetKeyboardMapping(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XGetKeyboardMapping(Xen arg1, Xen arg2, Xen arg3) { #define H_XGetKeyboardMapping "KeySym *XGetKeyboardMapping(display, first_keycode, keycode_count): returns \ the symbols for the specified number of KeyCodes starting with first_keycode." @@ -12189,99 +11910,102 @@ the symbols for the specified number of KeyCodes starting with first_keycode." */ int n, i, len, count, loc; KeySym *keys; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetKeyboardMapping", "Display*"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XGetKeyboardMapping", "KeyCode"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XGetKeyboardMapping", "int"); - count = XEN_TO_C_INT(arg3); - keys = XGetKeyboardMapping(XEN_TO_C_Display(arg1), XEN_TO_C_KeyCode(arg2), count, &n); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetKeyboardMapping", "Display*"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XGetKeyboardMapping", "KeyCode"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XGetKeyboardMapping", "int"); + count = Xen_integer_to_C_int(arg3); + keys = XGetKeyboardMapping(Xen_to_C_Display(arg1), Xen_to_C_KeyCode(arg2), count, &n); len = count * n; loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_KeySym(keys[i]), lst); + lst = Xen_cons(C_to_Xen_KeySym(keys[i]), lst); XFree(keys); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XLookupKeysym(XEN arg1, XEN arg2) +static Xen gxm_XLookupKeysym(Xen arg1, Xen arg2) { #define H_XLookupKeysym "KeySym XLookupKeysym(key_event, index) uses a given keyboard event and the index you specified to return \ the KeySym from the list that corresponds to the KeyCode member in the XKeyPressedEvent or XKeyReleasedEvent structure." - XEN_ASSERT_TYPE(XEN_XKeyEvent_P(arg1), arg1, 1, "XLookupKeysym", "XKeyEvent*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XLookupKeysym", "int"); - return(C_TO_XEN_KeySym(XLookupKeysym(XEN_TO_C_XKeyEvent(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_XKeyEvent(arg1), arg1, 1, "XLookupKeysym", "XKeyEvent*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XLookupKeysym", "int"); + return(C_to_Xen_KeySym(XLookupKeysym(Xen_to_C_XKeyEvent(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XKeycodeToKeysym(XEN arg1, XEN arg2, XEN arg3) +#if 0 +/* this has been deprecated for XkbKeycodeToKeysym */ +static Xen gxm_XKeycodeToKeysym(Xen arg1, Xen arg2, Xen arg3) { #define H_XKeycodeToKeysym "KeySym XKeycodeToKeysym(display, keycode, index) uses internal Xlib tables and returns the KeySym defined \ for the specified KeyCode and the element of the KeyCode vector." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XKeycodeToKeysym", "Display*"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XKeycodeToKeysym", "KeyCode"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XKeycodeToKeysym", "int"); - return(C_TO_XEN_KeySym(XKeycodeToKeysym(XEN_TO_C_Display(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XKeycodeToKeysym", "Display*"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XKeycodeToKeysym", "KeyCode"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XKeycodeToKeysym", "int"); + return(C_to_Xen_KeySym(XKeycodeToKeysym(Xen_to_C_Display(arg1), Xen_to_C_KeyCode(arg2), Xen_integer_to_C_int(arg3)))); } +#endif -static XEN gxm_XListProperties(XEN arg1, XEN arg2) +static Xen gxm_XListProperties(Xen arg1, Xen arg2) { #define H_XListProperties "Atom *XListProperties(display, w): returns a pointer to an array of atom properties that \ are defined for the specified window or returns NULL if no properties were found." /* DIFF: XListProperties returns list, no arg3 */ int i, len, loc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; Atom *ats; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XListProperties", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XListProperties", "Window"); - ats = XListProperties(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XListProperties", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XListProperties", "Window"); + ats = XListProperties(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &len); if (ats == NULL) - return(XEN_FALSE); + return(Xen_false); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Atom(ats[i]), lst); + lst = Xen_cons(C_to_Xen_Atom(ats[i]), lst); xm_unprotect_at(loc); XFree(ats); return(lst); } -static XEN gxm_XListExtensions(XEN arg1) +static Xen gxm_XListExtensions(Xen arg1) { #define H_XListExtensions "XListExtensions(dpy): list of strings describing available extensions" /* DIFF: XListExtensions omits arg2, returns list */ int i, len, loc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; char **str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XListExtensions", "Display*"); - str = XListExtensions(XEN_TO_C_Display(arg1), &len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XListExtensions", "Display*"); + str = XListExtensions(Xen_to_C_Display(arg1), &len); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(str[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(str[i]), lst); XFreeExtensionList(str); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XGetFontPath(XEN arg1) +static Xen gxm_XGetFontPath(Xen arg1) { #define H_XGetFontPath "char **XGetFontPath(display) allocates and returns an array of strings containing the search path." /* DIFF: XGetFontPath omits arg2, returns list */ int i, len, loc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; char **str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetFontPath", "Display*"); - str = XGetFontPath(XEN_TO_C_Display(arg1), &len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetFontPath", "Display*"); + str = XGetFontPath(Xen_to_C_Display(arg1), &len); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(str[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(str[i]), lst); XFreeFontPath(str); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XListFontsWithInfo(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XListFontsWithInfo(Xen arg1, Xen arg2, Xen arg3) { #define H_XListFontsWithInfo "char **XListFontsWithInfo(display, pattern, maxnames): returns a list of \ font names that match the specified pattern and their associated font information." @@ -12290,15 +12014,15 @@ font names that match the specified pattern and their associated font informatio int i, count, loc; XFontStruct *info; char **val; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XListFontsWithInfo", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XListFontsWithInfo", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XListFontsWithInfo", "int"); - val = XListFontsWithInfo(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_INT(arg3), &count, &info); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XListFontsWithInfo", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XListFontsWithInfo", "char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XListFontsWithInfo", "int"); + val = XListFontsWithInfo(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), Xen_integer_to_C_int(arg3), &count, &info); loc = xm_protect(lst); for (i = count - 1; i >= 0; i--) - lst = XEN_CONS(XEN_LIST_2(C_TO_XEN_STRING(val[i]), - C_TO_XEN_XFontStruct(&(info[i]))), + lst = Xen_cons(Xen_list_2(C_string_to_Xen_string(val[i]), + C_to_Xen_XFontStruct(&(info[i]))), lst); XFreeFontInfo(val, info, count); /* XFreeFontNames(val); */ @@ -12306,28 +12030,28 @@ font names that match the specified pattern and their associated font informatio return(lst); } -static XEN gxm_XListFonts(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XListFonts(Xen arg1, Xen arg2, Xen arg3) { #define H_XListFonts "char **XListFonts(display, pattern, maxnames): returns an array of available font names that match \ the string you passed to the pattern argument." /* DIFF: XListFonts omits arg4, returns list */ int i, len, loc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; char **str; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XListFonts", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XListFonts", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XListFonts", "int"); - str = XListFonts(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_INT(arg3), &len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XListFonts", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XListFonts", "char*"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XListFonts", "int"); + str = XListFonts(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), Xen_integer_to_C_int(arg3), &len); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(str[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(str[i]), lst); XFreeFontNames(str); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XListInstalledColormaps(XEN arg1, XEN arg2) +static Xen gxm_XListInstalledColormaps(Xen arg1, Xen arg2) { #define H_XListInstalledColormaps "Colormap *XListInstalledColormaps(display, w): returns a list of the currently installed \ colormaps for the screen of the specified window." @@ -12335,90 +12059,90 @@ colormaps for the screen of the specified window." */ Colormap *cm; int i, len, loc; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XListInstalledColormaps", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XListInstalledColormaps", "Window"); - cm = XListInstalledColormaps(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XListInstalledColormaps", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XListInstalledColormaps", "Window"); + cm = XListInstalledColormaps(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), &len); loc = xm_protect(lst); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Colormap(cm[i]), lst); + lst = Xen_cons(C_to_Xen_Colormap(cm[i]), lst); free(cm); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XCreateWindow(XEN args) +static Xen gxm_XCreateWindow(Xen args) { #define H_XCreateWindow "Window XCreateWindow(display, parent, x, y, width, height, border_width, depth, class, visual, valuemask, attributes) \ creates an unmapped subwindow for a specified parent window, returns the window ID of the created window, and causes the X server to generate \ a CreateNotify event." - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - arg11 = XEN_LIST_REF(args, 10); - arg12 = XEN_LIST_REF(args, 11); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCreateWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XCreateWindow", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XCreateWindow", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XCreateWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XCreateWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XCreateWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XCreateWindow", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg9), arg9, 9, "XCreateWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Visual_P(arg10), arg10, 10, "XCreateWindow", "Visual*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg11), arg11, 11, "XCreateWindow", "ulong"); - XEN_ASSERT_TYPE(XEN_XSetWindowAttributes_P(arg12), arg12, 12, "XCreateWindow", "XSetWindowAttributes*"); - return(C_TO_XEN_Window(XCreateWindow(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), - XEN_TO_C_ULONG(arg5), XEN_TO_C_ULONG(arg6), - XEN_TO_C_ULONG(arg7), XEN_TO_C_INT(arg8), - XEN_TO_C_ULONG(arg9), XEN_TO_C_Visual(arg10), - XEN_TO_C_ULONG(arg11), - XEN_TO_C_XSetWindowAttributes(arg12)))); -} - -static XEN gxm_XGetSelectionOwner(XEN arg1, XEN arg2) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + arg11 = Xen_list_ref(args, 10); + arg12 = Xen_list_ref(args, 11); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCreateWindow", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XCreateWindow", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XCreateWindow", "int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XCreateWindow", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XCreateWindow", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XCreateWindow", "unsigned int"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XCreateWindow", "int"); + Xen_check_type(Xen_is_ulong(arg9), arg9, 9, "XCreateWindow", "unsigned int"); + Xen_check_type(Xen_is_Visual(arg10), arg10, 10, "XCreateWindow", "Visual*"); + Xen_check_type(Xen_is_ulong(arg11), arg11, 11, "XCreateWindow", "ulong"); + Xen_check_type(Xen_is_XSetWindowAttributes(arg12), arg12, 12, "XCreateWindow", "XSetWindowAttributes*"); + return(C_to_Xen_Window(XCreateWindow(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), + Xen_ulong_to_C_ulong(arg5), Xen_ulong_to_C_ulong(arg6), + Xen_ulong_to_C_ulong(arg7), Xen_integer_to_C_int(arg8), + Xen_ulong_to_C_ulong(arg9), Xen_to_C_Visual(arg10), + Xen_ulong_to_C_ulong(arg11), + Xen_to_C_XSetWindowAttributes(arg12)))); +} + +static Xen gxm_XGetSelectionOwner(Xen arg1, Xen arg2) { #define H_XGetSelectionOwner "Window XGetSelectionOwner(display, selection): returns the window ID associated with the window that \ currently owns the specified selection." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetSelectionOwner", "Display*"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XGetSelectionOwner", "Atom"); - return(C_TO_XEN_Window(XGetSelectionOwner(XEN_TO_C_Display(arg1), XEN_TO_C_Atom(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetSelectionOwner", "Display*"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XGetSelectionOwner", "Atom"); + return(C_to_Xen_Window(XGetSelectionOwner(Xen_to_C_Display(arg1), Xen_to_C_Atom(arg2)))); } -static XEN gxm_XCreateSimpleWindow(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8, XEN arg9) +static Xen gxm_XCreateSimpleWindow(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8, Xen arg9) { #define H_XCreateSimpleWindow "Window XCreateSimpleWindow(display, parent, x, y, width, height, border_width, border, background) \ creates an unmapped InputOutput subwindow for a specified parent window, returns the window ID of the created window, and causes the X \ server to generate a CreateNotify event." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateSimpleWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCreateSimpleWindow", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XCreateSimpleWindow", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XCreateSimpleWindow", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XCreateSimpleWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XCreateSimpleWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XCreateSimpleWindow", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg8), arg8, 8, "XCreateSimpleWindow", "Pixel"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg9), arg9, 9, "XCreateSimpleWindow", "Pixel"); - return(C_TO_XEN_Window(XCreateSimpleWindow(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), - XEN_TO_C_ULONG(arg5), XEN_TO_C_ULONG(arg6), - XEN_TO_C_ULONG(arg7), XEN_TO_C_Pixel(arg8), - XEN_TO_C_Pixel(arg9)))); -} - -static XEN gxm_XCreatePixmapFromBitmapData(XEN arg1, XEN arg2, XEN larg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateSimpleWindow", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCreateSimpleWindow", "Window"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XCreateSimpleWindow", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XCreateSimpleWindow", "int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XCreateSimpleWindow", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XCreateSimpleWindow", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XCreateSimpleWindow", "unsigned int"); + Xen_check_type(Xen_is_Pixel(arg8), arg8, 8, "XCreateSimpleWindow", "Pixel"); + Xen_check_type(Xen_is_Pixel(arg9), arg9, 9, "XCreateSimpleWindow", "Pixel"); + return(C_to_Xen_Window(XCreateSimpleWindow(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), + Xen_ulong_to_C_ulong(arg5), Xen_ulong_to_C_ulong(arg6), + Xen_ulong_to_C_ulong(arg7), Xen_to_C_Pixel(arg8), + Xen_to_C_Pixel(arg9)))); +} + +static Xen gxm_XCreatePixmapFromBitmapData(Xen arg1, Xen arg2, Xen larg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8) { #define H_XCreatePixmapFromBitmapData "Pixmap XCreatePixmapFromBitmapData(display, d, data, width, height, fg, bg, depth) creates a \ pixmap of the given depth and then does a bitmap-format XPutImage of the data into it." @@ -12427,32 +12151,32 @@ pixmap of the given depth and then does a bitmap-format XPutImage of the data in char *bits; int i, len; Pixmap p; - XEN arg3; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreatePixmapFromBitmapData", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCreatePixmapFromBitmapData", "Drawable"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg3), larg3, 3, "XCreatePixmapFromBitmapData", "list of char"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XCreatePixmapFromBitmapData", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XCreatePixmapFromBitmapData", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg6), arg6, 6, "XCreatePixmapFromBitmapData", "pixel"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg7), arg7, 7, "XCreatePixmapFromBitmapData", "pixel"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg8), arg8, 8, "XCreatePixmapFromBitmapData", "unsigned int"); - len = XEN_LIST_LENGTH(larg3); - if (len <= 0) XEN_ASSERT_TYPE(0, larg3, 3, "XCreatePixmapFromBitmapData", "positive integer"); - arg3 = XEN_COPY_ARG(larg3); + Xen arg3; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreatePixmapFromBitmapData", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCreatePixmapFromBitmapData", "Drawable"); + Xen_check_type(Xen_is_list(larg3), larg3, 3, "XCreatePixmapFromBitmapData", "list of char"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XCreatePixmapFromBitmapData", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XCreatePixmapFromBitmapData", "unsigned int"); + Xen_check_type(Xen_is_Pixel(arg6), arg6, 6, "XCreatePixmapFromBitmapData", "pixel"); + Xen_check_type(Xen_is_Pixel(arg7), arg7, 7, "XCreatePixmapFromBitmapData", "pixel"); + Xen_check_type(Xen_is_ulong(arg8), arg8, 8, "XCreatePixmapFromBitmapData", "unsigned int"); + len = Xen_list_length(larg3); + if (len <= 0) Xen_check_type(0, larg3, 3, "XCreatePixmapFromBitmapData", "positive integer"); + arg3 = Xen_copy_arg(larg3); bits = (char *)calloc(len, sizeof(char)); - for (i = 0; i < len; i++, arg3 = XEN_CDR(arg3)) - bits[i] = (char)XEN_TO_C_INT(XEN_CAR(arg3)); - p = XCreatePixmapFromBitmapData(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + for (i = 0; i < len; i++, arg3 = Xen_cdr(arg3)) + bits[i] = (char)Xen_integer_to_C_int(Xen_car(arg3)); + p = XCreatePixmapFromBitmapData(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), bits, - XEN_TO_C_ULONG(arg4), XEN_TO_C_ULONG(arg5), - XEN_TO_C_Pixel(arg6), XEN_TO_C_Pixel(arg7), - XEN_TO_C_ULONG(arg8)); + Xen_ulong_to_C_ulong(arg4), Xen_ulong_to_C_ulong(arg5), + Xen_to_C_Pixel(arg6), Xen_to_C_Pixel(arg7), + Xen_ulong_to_C_ulong(arg8)); free(bits); - return(C_TO_XEN_Pixmap(p)); + return(C_to_Xen_Pixmap(p)); } -static XEN gxm_XCreateBitmapFromData(XEN arg1, XEN arg2, XEN larg3, XEN arg4, XEN arg5) +static Xen gxm_XCreateBitmapFromData(Xen arg1, Xen arg2, Xen larg3, Xen arg4, Xen arg5) { #define H_XCreateBitmapFromData "Pixmap XCreateBitmapFromData(display, d, data, width, height) allows you to include in your C \ program a bitmap file that was written out by XWriteBitmapFile" @@ -12461,374 +12185,374 @@ program a bitmap file that was written out by XWriteBitmapFile" char *bits; int i, len; Pixmap p; - XEN arg3; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateBitmapFromData", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCreateBitmapFromData", "Drawable"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg3), larg3, 3, "XCreateBitmapFromData", "list of char"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XCreateBitmapFromData", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XCreateBitmapFromData", "unsigned int"); - len = XEN_LIST_LENGTH(larg3); - if (len <= 0) XEN_ASSERT_TYPE(0, larg3, 3, "XCreateBitmapFromData", "positive integer"); - arg3 = XEN_COPY_ARG(larg3); + Xen arg3; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateBitmapFromData", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCreateBitmapFromData", "Drawable"); + Xen_check_type(Xen_is_list(larg3), larg3, 3, "XCreateBitmapFromData", "list of char"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XCreateBitmapFromData", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XCreateBitmapFromData", "unsigned int"); + len = Xen_list_length(larg3); + if (len <= 0) Xen_check_type(0, larg3, 3, "XCreateBitmapFromData", "positive integer"); + arg3 = Xen_copy_arg(larg3); bits = (char *)calloc(len, sizeof(char)); - for (i = 0; i < len; i++, arg3 = XEN_CDR(arg3)) - bits[i] = (char)XEN_TO_C_INT(XEN_CAR(arg3)); - p = XCreateBitmapFromData(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + for (i = 0; i < len; i++, arg3 = Xen_cdr(arg3)) + bits[i] = (char)Xen_integer_to_C_int(Xen_car(arg3)); + p = XCreateBitmapFromData(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), bits, - XEN_TO_C_ULONG(arg4), - XEN_TO_C_ULONG(arg5)); + Xen_ulong_to_C_ulong(arg4), + Xen_ulong_to_C_ulong(arg5)); free(bits); - return(C_TO_XEN_Pixmap(p)); + return(C_to_Xen_Pixmap(p)); } -static XEN gxm_XCreatePixmap(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XCreatePixmap(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XCreatePixmap "Pixmap XCreatePixmap(display, d, width, height, depth)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreatePixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCreatePixmap", "Drawable"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XCreatePixmap", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XCreatePixmap", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XCreatePixmap", "unsigned int"); - return(C_TO_XEN_Pixmap(XCreatePixmap(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), - XEN_TO_C_ULONG(arg3), XEN_TO_C_ULONG(arg4), XEN_TO_C_ULONG(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreatePixmap", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCreatePixmap", "Drawable"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XCreatePixmap", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XCreatePixmap", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XCreatePixmap", "unsigned int"); + return(C_to_Xen_Pixmap(XCreatePixmap(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), + Xen_ulong_to_C_ulong(arg3), Xen_ulong_to_C_ulong(arg4), Xen_ulong_to_C_ulong(arg5)))); } -static XEN gxm_XFlushGC(XEN arg1, XEN arg2) +static Xen gxm_XFlushGC(Xen arg1, Xen arg2) { #define H_XFlushGC "XFlushGC(dpy, gc) forces cached GC changes to X server" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFlushGC", "Display*"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XFlushGC", "GC"); - XFlushGC(XEN_TO_C_Display(arg1), XEN_TO_C_GC(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFlushGC", "Display*"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XFlushGC", "GC"); + XFlushGC(Xen_to_C_Display(arg1), Xen_to_C_GC(arg2)); + return(Xen_false); } -static XEN gxm_XCreateGC(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XCreateGC(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XCreateGC "GC XCreateGC(display, d, valuemask, values) creates a graphics context and returns a GC." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateGC", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCreateGC", "Drawable"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XCreateGC", "ulong"); - XEN_ASSERT_TYPE(XEN_XGCValues_P(arg4), arg4, 4, "XCreateGC", "XGCValues*"); - return(C_TO_XEN_GC(XCreateGC(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_XGCValues(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateGC", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCreateGC", "Drawable"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XCreateGC", "ulong"); + Xen_check_type(Xen_is_XGCValues(arg4), arg4, 4, "XCreateGC", "XGCValues*"); + return(C_to_Xen_GC(XCreateGC(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_ulong_to_C_ulong(arg3), Xen_to_C_XGCValues(arg4)))); } -static XEN gxm_XLoadFont(XEN arg1, XEN arg2) +static Xen gxm_XLoadFont(Xen arg1, Xen arg2) { #define H_XLoadFont "Font XLoadFont(display, name) loads the specified font and returns its associated font ID." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XLoadFont", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XLoadFont", "char*"); - return(C_TO_XEN_Font(XLoadFont(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XLoadFont", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XLoadFont", "char*"); + return(C_to_Xen_Font(XLoadFont(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_XCreateFontCursor(XEN arg1, XEN arg2) +static Xen gxm_XCreateFontCursor(Xen arg1, Xen arg2) { #define H_XCreateFontCursor "Cursor XCreateFontCursor(display, shape)" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateFontCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XCreateFontCursor", "unsigned int"); - return(C_TO_XEN_Cursor(XCreateFontCursor(XEN_TO_C_Display(arg1), XEN_TO_C_ULONG(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateFontCursor", "Display*"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XCreateFontCursor", "unsigned int"); + return(C_to_Xen_Cursor(XCreateFontCursor(Xen_to_C_Display(arg1), Xen_ulong_to_C_ulong(arg2)))); } -static XEN gxm_XCreateGlyphCursor(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XCreateGlyphCursor(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XCreateGlyphCursor "Cursor XCreateGlyphCursor(display, source_font, mask_font, source_char, mask_char, foreground_color, \ background_color) is similar to XCreatePixmapCursor except that the source and mask bitmaps are obtained from the specified font glyphs." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateGlyphCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_Font_P(arg2), arg2, 2, "XCreateGlyphCursor", "Font"); - XEN_ASSERT_TYPE(XEN_Font_P(arg3) || XEN_INTEGER_P(arg3) || XEN_FALSE_P(arg3), arg3, 3, "XCreateGlyphCursor", "Font"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XCreateGlyphCursor", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XCreateGlyphCursor", "unsigned int"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg6), arg6, 6, "XCreateGlyphCursor", "XColor"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg7), arg7, 7, "XCreateGlyphCursor", "XColor"); - return(C_TO_XEN_Cursor(XCreateGlyphCursor(XEN_TO_C_Display(arg1), XEN_TO_C_Font(arg2), - (XEN_Font_P(arg3)) ? XEN_TO_C_Font(arg3) : None, - XEN_TO_C_ULONG(arg4), - XEN_TO_C_ULONG(arg5), - XEN_TO_C_XColor(arg6), XEN_TO_C_XColor(arg7)))); -} - -static XEN gxm_XCreatePixmapCursor(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateGlyphCursor", "Display*"); + Xen_check_type(Xen_is_Font(arg2), arg2, 2, "XCreateGlyphCursor", "Font"); + Xen_check_type(Xen_is_Font(arg3) || Xen_is_integer(arg3) || Xen_is_false(arg3), arg3, 3, "XCreateGlyphCursor", "Font"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XCreateGlyphCursor", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XCreateGlyphCursor", "unsigned int"); + Xen_check_type(Xen_is_XColor(arg6), arg6, 6, "XCreateGlyphCursor", "XColor"); + Xen_check_type(Xen_is_XColor(arg7), arg7, 7, "XCreateGlyphCursor", "XColor"); + return(C_to_Xen_Cursor(XCreateGlyphCursor(Xen_to_C_Display(arg1), Xen_to_C_Font(arg2), + (Xen_is_Font(arg3)) ? Xen_to_C_Font(arg3) : None, + Xen_ulong_to_C_ulong(arg4), + Xen_ulong_to_C_ulong(arg5), + Xen_to_C_XColor(arg6), Xen_to_C_XColor(arg7)))); +} + +static Xen gxm_XCreatePixmapCursor(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XCreatePixmapCursor "Cursor XCreatePixmapCursor(display, source, mask, foreground_color, background_color, x, y) creates \ a cursor and returns the cursor ID associated with it." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreatePixmapCursor", "Display*"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg2), arg2, 2, "XCreatePixmapCursor", "Pixmap"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3) || XEN_INTEGER_P(arg3) || XEN_FALSE_P(arg3), arg3, 3, "XCreatePixmapCursor", "Pixmap"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg4), arg4, 4, "XCreatePixmapCursor", "XColor"); - XEN_ASSERT_TYPE(XEN_XColor_P(arg5), arg5, 5, "XCreatePixmapCursor", "XColor"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XCreatePixmapCursor", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XCreatePixmapCursor", "unsigned int"); - return(C_TO_XEN_Cursor(XCreatePixmapCursor(XEN_TO_C_Display(arg1), - XEN_TO_C_Pixmap(arg2), - (XEN_Pixmap_P(arg3)) ? XEN_TO_C_Pixmap(arg3) : None, - XEN_TO_C_XColor(arg4), - XEN_TO_C_XColor(arg5), - XEN_TO_C_ULONG(arg6), XEN_TO_C_ULONG(arg7)))); -} - -static XEN gxm_XCreateColormap(XEN arg1, XEN arg2, XEN arg3, XEN arg4) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreatePixmapCursor", "Display*"); + Xen_check_type(Xen_is_Pixmap(arg2), arg2, 2, "XCreatePixmapCursor", "Pixmap"); + Xen_check_type(Xen_is_Pixmap(arg3) || Xen_is_integer(arg3) || Xen_is_false(arg3), arg3, 3, "XCreatePixmapCursor", "Pixmap"); + Xen_check_type(Xen_is_XColor(arg4), arg4, 4, "XCreatePixmapCursor", "XColor"); + Xen_check_type(Xen_is_XColor(arg5), arg5, 5, "XCreatePixmapCursor", "XColor"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XCreatePixmapCursor", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XCreatePixmapCursor", "unsigned int"); + return(C_to_Xen_Cursor(XCreatePixmapCursor(Xen_to_C_Display(arg1), + Xen_to_C_Pixmap(arg2), + (Xen_is_Pixmap(arg3)) ? Xen_to_C_Pixmap(arg3) : None, + Xen_to_C_XColor(arg4), + Xen_to_C_XColor(arg5), + Xen_ulong_to_C_ulong(arg6), Xen_ulong_to_C_ulong(arg7)))); +} + +static Xen gxm_XCreateColormap(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XCreateColormap "Colormap XCreateColormap(display, w, visual, alloc) creates a colormap of the specified visual type for \ the screen on which the specified window resides and returns the colormap ID associated with it." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateColormap", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XCreateColormap", "Window"); - XEN_ASSERT_TYPE(XEN_Visual_P(arg3), arg3, 3, "XCreateColormap", "Visual*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XCreateColormap", "int"); - return(C_TO_XEN_Colormap(XCreateColormap(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Visual(arg3), XEN_TO_C_INT(arg4)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateColormap", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XCreateColormap", "Window"); + Xen_check_type(Xen_is_Visual(arg3), arg3, 3, "XCreateColormap", "Visual*"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XCreateColormap", "int"); + return(C_to_Xen_Colormap(XCreateColormap(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Visual(arg3), Xen_integer_to_C_int(arg4)))); } -static XEN gxm_XCopyColormapAndFree(XEN arg1, XEN arg2) +static Xen gxm_XCopyColormapAndFree(Xen arg1, Xen arg2) { #define H_XCopyColormapAndFree "Colormap XCopyColormapAndFree(display, colormap) creates a colormap of the same visual type and \ for the same screen as the specified colormap and returns the new colormap ID." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCopyColormapAndFree", "Display*"); - XEN_ASSERT_TYPE(XEN_Colormap_P(arg2), arg2, 2, "XCopyColormapAndFree", "Colormap"); - return(C_TO_XEN_Colormap(XCopyColormapAndFree(XEN_TO_C_Display(arg1), XEN_TO_C_Colormap(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCopyColormapAndFree", "Display*"); + Xen_check_type(Xen_is_Colormap(arg2), arg2, 2, "XCopyColormapAndFree", "Colormap"); + return(C_to_Xen_Colormap(XCopyColormapAndFree(Xen_to_C_Display(arg1), Xen_to_C_Colormap(arg2)))); } -static XEN gxm_XInternAtom(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XInternAtom(Xen arg1, Xen arg2, Xen arg3) { #define H_XInternAtom "Atom XInternAtom(display, atom_name, only_if_exists): returns the atom identifier associated with the specified atom_name string." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XInternAtom", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XInternAtom", "char*"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XInternAtom", "Bool"); - return(C_TO_XEN_Atom(XInternAtom(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), XEN_TO_C_BOOLEAN(arg3)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XInternAtom", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XInternAtom", "char*"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XInternAtom", "Bool"); + return(C_to_Xen_Atom(XInternAtom(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), Xen_boolean_to_C_bool(arg3)))); } -static XEN xm_AfterFunction; +static Xen xm_AfterFunction; static int default_after_function(Display *ignore) {return(0);} static int gxm_AfterFunction(Display *dpy) { - return(XEN_TO_C_INT(XEN_CALL_1(xm_AfterFunction, - C_TO_XEN_Display(dpy), - c__FUNCTION__))); + return(Xen_integer_to_C_int(Xen_call_with_1_arg(xm_AfterFunction, + C_to_Xen_Display(dpy), + __func__))); } -static XEN gxm_XSetAfterFunction(XEN arg1, XEN arg2) +static Xen gxm_XSetAfterFunction(Xen arg1, Xen arg2) { #define H_XSetAfterFunction "XSetAfterFunction(dpy, proc) sets a function (one arg: dpy) to be called after every X function call" - XEN old_func; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSetAfterFunction", "Display*"); + Xen old_func; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSetAfterFunction", "Display*"); xm_protect(arg2); old_func = xm_AfterFunction; xm_AfterFunction = arg2; - if (XEN_PROCEDURE_P(arg2)) - XSetAfterFunction(XEN_TO_C_Display(arg1), gxm_AfterFunction); - else XSetAfterFunction(XEN_TO_C_Display(arg1), default_after_function); - if (XEN_PROCEDURE_P(old_func)) xm_unprotect(old_func); + if (Xen_is_procedure(arg2)) + XSetAfterFunction(Xen_to_C_Display(arg1), gxm_AfterFunction); + else XSetAfterFunction(Xen_to_C_Display(arg1), default_after_function); + if (Xen_is_procedure(old_func)) xm_unprotect(old_func); return(old_func); } -static XEN gxm_XSynchronize(XEN arg1, XEN arg2) +static Xen gxm_XSynchronize(Xen arg1, Xen arg2) { #define H_XSynchronize "int (*XSynchronize(display, onoff))() turns on/off synchronous behavior." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XSynchronize", "Display*"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XSynchronize", "boolean"); - XSynchronize(XEN_TO_C_Display(arg1), - XEN_TO_C_BOOLEAN(arg2)); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XSynchronize", "Display*"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XSynchronize", "boolean"); + XSynchronize(Xen_to_C_Display(arg1), + Xen_boolean_to_C_bool(arg2)); return(xm_AfterFunction); } -static XEN gxm_XKeysymToString(XEN arg1) +static Xen gxm_XKeysymToString(Xen arg1) { #define H_XKeysymToString "char *XKeysymToString(keysym)" - XEN_ASSERT_TYPE(XEN_KeySym_P(arg1), arg1, 1, "XKeysymToString", "KeySym"); - return(C_TO_XEN_STRING(XKeysymToString(XEN_TO_C_KeySym(arg1)))); + Xen_check_type(Xen_is_KeySym(arg1), arg1, 1, "XKeysymToString", "KeySym"); + return(C_string_to_Xen_string(XKeysymToString(Xen_to_C_KeySym(arg1)))); } -static XEN gxm_XDisplayName(XEN arg1) +static Xen gxm_XDisplayName(Xen arg1) { #define H_XDisplayName "char *XDisplayName(string): returns the name of the display that XOpenDisplay would attempt to use." - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XDisplayName", "char*"); - return(C_TO_XEN_STRING(XDisplayName((char *)XEN_TO_C_STRING(arg1)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XDisplayName", "char*"); + return(C_string_to_Xen_string(XDisplayName((char *)Xen_string_to_C_string(arg1)))); } -static XEN gxm_XGetAtomName(XEN arg1, XEN arg2) +static Xen gxm_XGetAtomName(Xen arg1, Xen arg2) { #define H_XGetAtomName "char *XGetAtomName(display, atom): returns the name associated with the specified atom." char *str; - XEN res; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetAtomName", "Display*"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XGetAtomName", "Atom"); - str = XGetAtomName(XEN_TO_C_Display(arg1), XEN_TO_C_Atom(arg2)); - res = C_TO_XEN_STRING(str); + Xen res; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetAtomName", "Display*"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XGetAtomName", "Atom"); + str = XGetAtomName(Xen_to_C_Display(arg1), Xen_to_C_Atom(arg2)); + res = C_string_to_Xen_string(str); XFree(str); return(res); } -static XEN gxm_XFetchBuffer(XEN arg1, XEN arg2) +static Xen gxm_XFetchBuffer(Xen arg1, Xen arg2) { - #define H_XFetchBuffer "char *XFetchBuffer(display, buffer): returns #f if there \ + #define H_XFetchBuffer "char *XFetchBuffer(display, buffer): returns " PROC_FALSE " if there \ is no data in the buffer or if an invalid buffer is specified, otherwise a string." int len = 0; char *buf; - XEN lst = XEN_FALSE; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFetchBuffer", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XFetchBuffer", "int"); - buf = XFetchBuffer(XEN_TO_C_Display(arg1), &len, XEN_TO_C_INT(arg2)); + Xen lst = Xen_false; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFetchBuffer", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XFetchBuffer", "int"); + buf = XFetchBuffer(Xen_to_C_Display(arg1), &len, Xen_integer_to_C_int(arg2)); if (len > 0) { - lst = C_TO_XEN_STRING(buf); + lst = C_string_to_Xen_string(buf); free(buf); } return(lst); } -static XEN gxm_XFetchBytes(XEN arg1) +static Xen gxm_XFetchBytes(Xen arg1) { #define H_XFetchBytes "char *XFetchBytes(display): returns the string in cut buffer 0" /* DIFF: XFetchBytes returns string, omits arg2 */ int len = 0; char *buf; - XEN lst = XEN_FALSE; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XFetchBytes", "Display*"); - buf = XFetchBytes(XEN_TO_C_Display(arg1), &len); + Xen lst = Xen_false; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XFetchBytes", "Display*"); + buf = XFetchBytes(Xen_to_C_Display(arg1), &len); if (len > 0) { - lst = C_TO_XEN_STRING(buf); + lst = C_string_to_Xen_string(buf); free(buf); } return(lst); } -static XEN gxm_XOpenDisplay(XEN arg1) +static Xen gxm_XOpenDisplay(Xen arg1) { #define H_XOpenDisplay "Display *XOpenDisplay(display_name): returns a Display structure that serves as the connection to the X server \ and that contains all the information about that X server." Display *dpy; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1) || XEN_FALSE_P(arg1), arg1, 1, "XOpenDisplay", "char*"); - dpy = XOpenDisplay(XEN_FALSE_P(arg1) ? NULL : (char *)XEN_TO_C_STRING(arg1)); + Xen_check_type(Xen_is_string(arg1) || Xen_is_false(arg1), arg1, 1, "XOpenDisplay", "char*"); + dpy = XOpenDisplay(Xen_is_false(arg1) ? NULL : (char *)Xen_string_to_C_string(arg1)); if (dpy) - return(C_TO_XEN_Display(dpy)); - return(XEN_FALSE); + return(C_to_Xen_Display(dpy)); + return(Xen_false); } -static XEN gxm_XGetSubImage(XEN args) +static Xen gxm_XGetSubImage(Xen args) { #define H_XGetSubImage "XImage *XGetSubImage(display, d, x, y, width, height, plane_mask, format, dest_image, dest_x, dest_y) updates \ dest_image with the specified subimage in the same manner as " - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - arg11 = XEN_LIST_REF(args, 10); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetSubImage", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetSubImage", "Drawable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XGetSubImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XGetSubImage", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XGetSubImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XGetSubImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XGetSubImage", "ulong"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XGetSubImage", "int"); - XEN_ASSERT_TYPE(XEN_XImage_P(arg9), arg9, 9, "XGetSubImage", "XImage*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg10), arg10, 10, "XGetSubImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg11), arg11, 11, "XGetSubImage", "int"); - return(C_TO_XEN_XImage(XGetSubImage(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), - XEN_TO_C_ULONG(arg5), XEN_TO_C_ULONG(arg6), - XEN_TO_C_ULONG(arg7), XEN_TO_C_INT(arg8), - XEN_TO_C_XImage(arg9), - XEN_TO_C_INT(arg10), XEN_TO_C_INT(arg11)))); -} - -static XEN gxm_XGetImage(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + arg11 = Xen_list_ref(args, 10); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetSubImage", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetSubImage", "Drawable"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XGetSubImage", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XGetSubImage", "int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XGetSubImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XGetSubImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XGetSubImage", "ulong"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XGetSubImage", "int"); + Xen_check_type(Xen_is_XImage(arg9), arg9, 9, "XGetSubImage", "XImage*"); + Xen_check_type(Xen_is_integer(arg10), arg10, 10, "XGetSubImage", "int"); + Xen_check_type(Xen_is_integer(arg11), arg11, 11, "XGetSubImage", "int"); + return(C_to_Xen_XImage(XGetSubImage(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), + Xen_ulong_to_C_ulong(arg5), Xen_ulong_to_C_ulong(arg6), + Xen_ulong_to_C_ulong(arg7), Xen_integer_to_C_int(arg8), + Xen_to_C_XImage(arg9), + Xen_integer_to_C_int(arg10), Xen_integer_to_C_int(arg11)))); +} + +static Xen gxm_XGetImage(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8) { #define H_XGetImage "XImage *XGetImage(display, d, x, y, width, height, plane_mask, format): returns a pointer to an XImage structure." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetImage", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetImage", "Drawable"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XGetImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XGetImage", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XGetImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XGetImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XGetImage", "ulong"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg8), arg8, 8, "XGetImage", "int"); - return(C_TO_XEN_XImage(XGetImage(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), - XEN_TO_C_ULONG(arg5), XEN_TO_C_ULONG(arg6), - XEN_TO_C_ULONG(arg7), XEN_TO_C_INT(arg8)))); -} - -static XEN gxm_XCreateImage(XEN args) + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetImage", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetImage", "Drawable"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XGetImage", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XGetImage", "int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XGetImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XGetImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XGetImage", "ulong"); + Xen_check_type(Xen_is_integer(arg8), arg8, 8, "XGetImage", "int"); + return(C_to_Xen_XImage(XGetImage(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), + Xen_ulong_to_C_ulong(arg5), Xen_ulong_to_C_ulong(arg6), + Xen_ulong_to_C_ulong(arg7), Xen_integer_to_C_int(arg8)))); +} + +static Xen gxm_XCreateImage(Xen args) { #define H_XCreateImage "XImage *XCreateImage(display, visual, depth, format, offset, data, width, height, bitmap_pad, bytes_per_line) \ allocates the memory needed for an XImage structure for the specified display but does not allocate space for the image itself." - XEN arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; - arg1 = XEN_LIST_REF(args, 0); - arg2 = XEN_LIST_REF(args, 1); - arg3 = XEN_LIST_REF(args, 2); - arg4 = XEN_LIST_REF(args, 3); - arg5 = XEN_LIST_REF(args, 4); - arg6 = XEN_LIST_REF(args, 5); - arg7 = XEN_LIST_REF(args, 6); - arg8 = XEN_LIST_REF(args, 7); - arg9 = XEN_LIST_REF(args, 8); - arg10 = XEN_LIST_REF(args, 9); - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XCreateImage", "Display*"); - XEN_ASSERT_TYPE(XEN_Visual_P(arg2), arg2, 2, "XCreateImage", "Visual*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XCreateImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XCreateImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XCreateImage", "int"); - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg6), arg6, 6, "XCreateImage", "pointer"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg7), arg7, 7, "XCreateImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg8), arg8, 8, "XCreateImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9), arg9, 9, "XCreateImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg10), arg10, 10, "XCreateImage", "int"); - return(C_TO_XEN_XImage(XCreateImage(XEN_TO_C_Display(arg1), - XEN_TO_C_Visual(arg2), - XEN_TO_C_ULONG(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - (char *)XEN_UNWRAP_C_POINTER(arg6), - XEN_TO_C_ULONG(arg7), XEN_TO_C_ULONG(arg8), - XEN_TO_C_INT(arg9), XEN_TO_C_INT(arg10)))); -} - -static XEN gxm_XNewModifiermap(XEN arg1) + Xen arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10; + arg1 = Xen_list_ref(args, 0); + arg2 = Xen_list_ref(args, 1); + arg3 = Xen_list_ref(args, 2); + arg4 = Xen_list_ref(args, 3); + arg5 = Xen_list_ref(args, 4); + arg6 = Xen_list_ref(args, 5); + arg7 = Xen_list_ref(args, 6); + arg8 = Xen_list_ref(args, 7); + arg9 = Xen_list_ref(args, 8); + arg10 = Xen_list_ref(args, 9); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XCreateImage", "Display*"); + Xen_check_type(Xen_is_Visual(arg2), arg2, 2, "XCreateImage", "Visual*"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XCreateImage", "unsigned int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XCreateImage", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XCreateImage", "int"); + Xen_check_type(Xen_is_wrapped_c_pointer(arg6), arg6, 6, "XCreateImage", "pointer"); + Xen_check_type(Xen_is_ulong(arg7), arg7, 7, "XCreateImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg8), arg8, 8, "XCreateImage", "unsigned int"); + Xen_check_type(Xen_is_integer(arg9), arg9, 9, "XCreateImage", "int"); + Xen_check_type(Xen_is_integer(arg10), arg10, 10, "XCreateImage", "int"); + return(C_to_Xen_XImage(XCreateImage(Xen_to_C_Display(arg1), + Xen_to_C_Visual(arg2), + Xen_ulong_to_C_ulong(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + (char *)Xen_unwrap_C_pointer(arg6), + Xen_ulong_to_C_ulong(arg7), Xen_ulong_to_C_ulong(arg8), + Xen_integer_to_C_int(arg9), Xen_integer_to_C_int(arg10)))); +} + +static Xen gxm_XNewModifiermap(Xen arg1) { #define H_XNewModifiermap "XModifierKeymap *XNewModifiermap(max_keys_per_mod): returns a pointer to XModifierKeymap structure for later use." - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 1, "XNewModifiermap", "int"); - return(C_TO_XEN_XModifierKeymap(XNewModifiermap(XEN_TO_C_INT(arg1)))); + Xen_check_type(Xen_is_integer(arg1), arg1, 1, "XNewModifiermap", "int"); + return(C_to_Xen_XModifierKeymap(XNewModifiermap(Xen_integer_to_C_int(arg1)))); } -static XEN gxm_XInsertModifiermapEntry(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XInsertModifiermapEntry(Xen arg1, Xen arg2, Xen arg3) { #define H_XInsertModifiermapEntry "XModifierKeymap *XInsertModifiermapEntry(modmap, keycode_entry, modifier) adds the specified KeyCode to \ the set that controls the specified modifier and returns the resulting XModifierKeymap structure (expanded as needed)." - XEN_ASSERT_TYPE(XEN_XModifierKeymap_P(arg1), arg1, 1, "XInsertModifiermapEntry", "XModifierKeymap*"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XInsertModifiermapEntry", "KeyCode"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XInsertModifiermapEntry", "int"); - return(C_TO_XEN_XModifierKeymap(XInsertModifiermapEntry(XEN_TO_C_XModifierKeymap(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_XModifierKeymap(arg1), arg1, 1, "XInsertModifiermapEntry", "XModifierKeymap*"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XInsertModifiermapEntry", "KeyCode"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XInsertModifiermapEntry", "int"); + return(C_to_Xen_XModifierKeymap(XInsertModifiermapEntry(Xen_to_C_XModifierKeymap(arg1), Xen_to_C_KeyCode(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XGetModifierMapping(XEN arg1) +static Xen gxm_XGetModifierMapping(Xen arg1) { #define H_XGetModifierMapping "XModifierKeymap *XGetModifierMapping(display): returns a pointer to a newly created XModifierKeymap structure \ that contains the keys being used as modifiers." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetModifierMapping", "Display*"); - return(C_TO_XEN_XModifierKeymap(XGetModifierMapping(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetModifierMapping", "Display*"); + return(C_to_Xen_XModifierKeymap(XGetModifierMapping(Xen_to_C_Display(arg1)))); } -static XEN gxm_XDeleteModifiermapEntry(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XDeleteModifiermapEntry(Xen arg1, Xen arg2, Xen arg3) { #define H_XDeleteModifiermapEntry "XModifierKeymap *XDeleteModifiermapEntry(modmap, keycode_entry, modifier) deletes the specified KeyCode \ from the set that controls the specified modifier and returns a pointer to the resulting XModifierKeymap structure." - XEN_ASSERT_TYPE(XEN_XModifierKeymap_P(arg1), arg1, 1, "XDeleteModifiermapEntry", "XModifierKeymap*"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XDeleteModifiermapEntry", "KeyCode"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XDeleteModifiermapEntry", "int"); - return(C_TO_XEN_XModifierKeymap(XDeleteModifiermapEntry(XEN_TO_C_XModifierKeymap(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_XModifierKeymap(arg1), arg1, 1, "XDeleteModifiermapEntry", "XModifierKeymap*"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XDeleteModifiermapEntry", "KeyCode"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XDeleteModifiermapEntry", "int"); + return(C_to_Xen_XModifierKeymap(XDeleteModifiermapEntry(Xen_to_C_XModifierKeymap(arg1), Xen_to_C_KeyCode(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XGetMotionEvents(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XGetMotionEvents(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XGetMotionEvents "XTimeCoord *XGetMotionEvents(display, w, start, stop): returns all events in the motion history \ buffer that fall between the specified start and stop times, inclusive, and that have coordinates that lie within the specified window \ @@ -12837,450 +12561,450 @@ buffer that fall between the specified start and stop times, inclusive, and that */ int n, i, loc; XTimeCoord *tcs; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XGetMotionEvents", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XGetMotionEvents", "Window"); - XEN_ASSERT_TYPE(XEN_Time_P(arg3), arg3, 3, "XGetMotionEvents", "Time"); - XEN_ASSERT_TYPE(XEN_Time_P(arg4), arg4, 4, "XGetMotionEvents", "Time"); - tcs = XGetMotionEvents(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2), XEN_TO_C_Time(arg3), XEN_TO_C_Time(arg4), &n); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XGetMotionEvents", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XGetMotionEvents", "Window"); + Xen_check_type(Xen_is_Time(arg3), arg3, 3, "XGetMotionEvents", "Time"); + Xen_check_type(Xen_is_Time(arg4), arg4, 4, "XGetMotionEvents", "Time"); + tcs = XGetMotionEvents(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2), Xen_to_C_Time(arg3), Xen_to_C_Time(arg4), &n); loc = xm_protect(lst); for (i = n - 1; i > 0; i--) - lst = XEN_CONS(XEN_LIST_3(C_TO_XEN_Time(tcs->time), - C_TO_XEN_INT((int)(tcs->x)), - C_TO_XEN_INT((int)(tcs->y))), + lst = Xen_cons(Xen_list_3(C_to_Xen_Time(tcs->time), + C_int_to_Xen_integer((int)(tcs->x)), + C_int_to_Xen_integer((int)(tcs->y))), lst); XFree(tcs); /* free each as well? */ xm_unprotect_at(loc); return(lst); } -static XEN gxm_XQueryFont(XEN arg1, XEN arg2) +static Xen gxm_XQueryFont(Xen arg1, Xen arg2) { #define H_XQueryFont "XFontStruct *XQueryFont(display, font): returns a pointer to the XFontStruct structure, which contains information \ associated with the font." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XQueryFont", "Display*"); - XEN_ASSERT_TYPE(XEN_Font_P(arg2), arg2, 2, "XQueryFont", "Font"); - return(C_TO_XEN_XFontStruct(XQueryFont(XEN_TO_C_Display(arg1), XEN_TO_C_Font(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XQueryFont", "Display*"); + Xen_check_type(Xen_is_Font(arg2), arg2, 2, "XQueryFont", "Font"); + return(C_to_Xen_XFontStruct(XQueryFont(Xen_to_C_Display(arg1), Xen_to_C_Font(arg2)))); } -static XEN gxm_XLoadQueryFont(XEN arg1, XEN arg2) +static Xen gxm_XLoadQueryFont(Xen arg1, Xen arg2) { #define H_XLoadQueryFont "XFontStruct *XLoadQueryFont(display, name) provides the most common way for accessing a font. XLoadQueryFont \ both opens (loads) the specified font and returns a pointer to the appropriate XFontStruct structure." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XLoadQueryFont", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XLoadQueryFont", "char*"); - return(C_TO_XEN_XFontStruct(XLoadQueryFont(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XLoadQueryFont", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XLoadQueryFont", "char*"); + return(C_to_Xen_XFontStruct(XLoadQueryFont(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_DefaultScreen(XEN arg) +static Xen gxm_DefaultScreen(Xen arg) { #define H_DefaultScreen "returns the default screen number referenced in the XOpenDisplay routine." - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "DefaultScreen", "Display*"); - return(C_TO_XEN_INT(DefaultScreen(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "DefaultScreen", "Display*"); + return(C_int_to_Xen_integer(DefaultScreen(Xen_to_C_Display(arg)))); } -static XEN gxm_DefaultRootWindow(XEN arg) +static Xen gxm_DefaultRootWindow(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "DefaultRootWindow", "Display*"); - return(C_TO_XEN_Window(DefaultRootWindow(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "DefaultRootWindow", "Display*"); + return(C_to_Xen_Window(DefaultRootWindow(Xen_to_C_Display(arg)))); } -static XEN gxm_QLength(XEN arg) +static Xen gxm_QLength(Xen arg) { /* QLength(display) */ - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "QLength", "Display*"); - return(C_TO_XEN_INT(QLength(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "QLength", "Display*"); + return(C_int_to_Xen_integer(QLength(Xen_to_C_Display(arg)))); } -static XEN gxm_ScreenCount(XEN arg1) +static Xen gxm_ScreenCount(Xen arg1) { /* ScreenCount(display) */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "ScreenCount", "Display*"); - return(C_TO_XEN_INT(XScreenCount(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "ScreenCount", "Display*"); + return(C_int_to_Xen_integer(XScreenCount(Xen_to_C_Display(arg1)))); } -static XEN gxm_ServerVendor(XEN arg) +static Xen gxm_ServerVendor(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "ServerVendor", "Display*"); - return(C_TO_XEN_STRING(ServerVendor(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "ServerVendor", "Display*"); + return(C_string_to_Xen_string(ServerVendor(Xen_to_C_Display(arg)))); } -static XEN gxm_ProtocolVersion(XEN arg) +static Xen gxm_ProtocolVersion(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "ProtocolVersion", "Display*"); - return(C_TO_XEN_INT(ProtocolVersion(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "ProtocolVersion", "Display*"); + return(C_int_to_Xen_integer(ProtocolVersion(Xen_to_C_Display(arg)))); } -static XEN gxm_ProtocolRevision(XEN arg) +static Xen gxm_ProtocolRevision(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "ProtocolRevision", "Display*"); - return(C_TO_XEN_INT(ProtocolRevision(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "ProtocolRevision", "Display*"); + return(C_int_to_Xen_integer(ProtocolRevision(Xen_to_C_Display(arg)))); } -static XEN gxm_VendorRelease(XEN arg) +static Xen gxm_VendorRelease(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "VendorRelease", "Display*"); - return(C_TO_XEN_INT(VendorRelease(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "VendorRelease", "Display*"); + return(C_int_to_Xen_integer(VendorRelease(Xen_to_C_Display(arg)))); } -static XEN gxm_DisplayString(XEN arg) +static Xen gxm_DisplayString(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "DisplayString", "Display*"); - return(C_TO_XEN_STRING(DisplayString(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "DisplayString", "Display*"); + return(C_string_to_Xen_string(DisplayString(Xen_to_C_Display(arg)))); } -static XEN gxm_BitmapUnit(XEN arg) +static Xen gxm_BitmapUnit(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "BitmapUnit", "Display*"); - return(C_TO_XEN_INT(BitmapUnit(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "BitmapUnit", "Display*"); + return(C_int_to_Xen_integer(BitmapUnit(Xen_to_C_Display(arg)))); } -static XEN gxm_BitmapBitOrder(XEN arg) +static Xen gxm_BitmapBitOrder(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "BitmapBitOrder", "Display*"); - return(C_TO_XEN_INT(BitmapBitOrder(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "BitmapBitOrder", "Display*"); + return(C_int_to_Xen_integer(BitmapBitOrder(Xen_to_C_Display(arg)))); } -static XEN gxm_BitmapPad(XEN arg) +static Xen gxm_BitmapPad(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "BitmapPad", "Display*"); - return(C_TO_XEN_INT(BitmapPad(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "BitmapPad", "Display*"); + return(C_int_to_Xen_integer(BitmapPad(Xen_to_C_Display(arg)))); } -static XEN gxm_ImageByteOrder(XEN arg) +static Xen gxm_ImageByteOrder(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "ImageByteOrder", "Display*"); - return(C_TO_XEN_INT(ImageByteOrder(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "ImageByteOrder", "Display*"); + return(C_int_to_Xen_integer(ImageByteOrder(Xen_to_C_Display(arg)))); } -static XEN gxm_NextRequest(XEN arg) +static Xen gxm_NextRequest(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "NextRequest", "Display*"); - return(C_TO_XEN_ULONG(NextRequest(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "NextRequest", "Display*"); + return(C_ulong_to_Xen_ulong(NextRequest(Xen_to_C_Display(arg)))); } -static XEN gxm_LastKnownRequestProcessed(XEN arg) +static Xen gxm_LastKnownRequestProcessed(Xen arg) { - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "LastKnownRequestProcessed", "Display*"); - return(C_TO_XEN_ULONG(LastKnownRequestProcessed(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "LastKnownRequestProcessed", "Display*"); + return(C_ulong_to_Xen_ulong(LastKnownRequestProcessed(Xen_to_C_Display(arg)))); } -static XEN gxm_DefaultScreenOfDisplay(XEN arg) +static Xen gxm_DefaultScreenOfDisplay(Xen arg) { #define H_DefaultScreenOfDisplay "returns the default screen of the specified display." - XEN_ASSERT_TYPE(XEN_Display_P(arg), arg, 0, "DefaultScreenOfDisplay", "Display"); - return(C_TO_XEN_Screen(DefaultScreenOfDisplay(XEN_TO_C_Display(arg)))); + Xen_check_type(Xen_is_Display(arg), arg, 0, "DefaultScreenOfDisplay", "Display"); + return(C_to_Xen_Screen(DefaultScreenOfDisplay(Xen_to_C_Display(arg)))); } -static XEN gxm_DisplayOfScreen(XEN arg) +static Xen gxm_DisplayOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "DisplayOfScreen", "Screen"); - return(C_TO_XEN_Display(DisplayOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "DisplayOfScreen", "Screen"); + return(C_to_Xen_Display(DisplayOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_RootWindowOfScreen(XEN arg) +static Xen gxm_RootWindowOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "RootWindowOfScreen", "Screen"); - return(C_TO_XEN_Window(RootWindowOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "RootWindowOfScreen", "Screen"); + return(C_to_Xen_Window(RootWindowOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_BlackPixelOfScreen(XEN arg) +static Xen gxm_BlackPixelOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "BlackPixelOfScreen", "Screen"); - return(C_TO_XEN_Pixel(BlackPixelOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "BlackPixelOfScreen", "Screen"); + return(C_to_Xen_Pixel(BlackPixelOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_WhitePixelOfScreen(XEN arg) +static Xen gxm_WhitePixelOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "WhitePixelOfScreen", "Screen"); - return(C_TO_XEN_Pixel(WhitePixelOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "WhitePixelOfScreen", "Screen"); + return(C_to_Xen_Pixel(WhitePixelOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_DefaultColormapOfScreen(XEN arg) +static Xen gxm_DefaultColormapOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "DefaultColormapOfScreen", "Screen"); - return(C_TO_XEN_Colormap(DefaultColormapOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "DefaultColormapOfScreen", "Screen"); + return(C_to_Xen_Colormap(DefaultColormapOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_DefaultDepthOfScreen(XEN arg) +static Xen gxm_DefaultDepthOfScreen(Xen arg) { /* DefaultDepthOfScreen(screen) */ - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "DefaultDepthOfScreen", "Screen"); - return(C_TO_XEN_INT(DefaultDepthOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "DefaultDepthOfScreen", "Screen"); + return(C_int_to_Xen_integer(DefaultDepthOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_DefaultGCOfScreen(XEN arg) +static Xen gxm_DefaultGCOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "DefaultGCOfScreen", "Screen"); - return(C_TO_XEN_GC(DefaultGCOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "DefaultGCOfScreen", "Screen"); + return(C_to_Xen_GC(DefaultGCOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_DefaultVisualOfScreen(XEN arg) +static Xen gxm_DefaultVisualOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "DefaultVisualOfScreen", "Screen"); - return(C_TO_XEN_Visual(DefaultVisualOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "DefaultVisualOfScreen", "Screen"); + return(C_to_Xen_Visual(DefaultVisualOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_WidthOfScreen(XEN arg) +static Xen gxm_WidthOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "WidthOfScreen", "Screen"); - return(C_TO_XEN_INT(WidthOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "WidthOfScreen", "Screen"); + return(C_int_to_Xen_integer(WidthOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_HeightOfScreen(XEN arg) +static Xen gxm_HeightOfScreen(Xen arg) { /* HeightOfScreen(screen) */ - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "HeightOfScreen", "Screen"); - return(C_TO_XEN_INT(HeightOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "HeightOfScreen", "Screen"); + return(C_int_to_Xen_integer(HeightOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_WidthMMOfScreen(XEN arg) +static Xen gxm_WidthMMOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "WidthMMOfScreen", "Screen"); - return(C_TO_XEN_INT(WidthMMOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "WidthMMOfScreen", "Screen"); + return(C_int_to_Xen_integer(WidthMMOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_HeightMMOfScreen(XEN arg) +static Xen gxm_HeightMMOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "HeightMMOfScreen", "Screen"); - return(C_TO_XEN_INT(HeightMMOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "HeightMMOfScreen", "Screen"); + return(C_int_to_Xen_integer(HeightMMOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_PlanesOfScreen(XEN arg) +static Xen gxm_PlanesOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "PlanesOfScreen", "Screen"); - return(C_TO_XEN_INT(PlanesOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "PlanesOfScreen", "Screen"); + return(C_int_to_Xen_integer(PlanesOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_CellsOfScreen(XEN arg) +static Xen gxm_CellsOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "CellsOfScreen", "Screen"); - return(C_TO_XEN_INT(CellsOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "CellsOfScreen", "Screen"); + return(C_int_to_Xen_integer(CellsOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_MinCmapsOfScreen(XEN arg) +static Xen gxm_MinCmapsOfScreen(Xen arg) { /* MinCmapsOfScreen(screen) */ - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "MinCmapsOfScreen", "Screen"); - return(C_TO_XEN_INT(MinCmapsOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "MinCmapsOfScreen", "Screen"); + return(C_int_to_Xen_integer(MinCmapsOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_MaxCmapsOfScreen(XEN arg) +static Xen gxm_MaxCmapsOfScreen(Xen arg) { /* MaxCmapsOfScreen(screen) */ - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "MaxCmapsOfScreen", "Screen"); - return(C_TO_XEN_INT(MaxCmapsOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "MaxCmapsOfScreen", "Screen"); + return(C_int_to_Xen_integer(MaxCmapsOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_DoesSaveUnders(XEN arg) +static Xen gxm_DoesSaveUnders(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "DoesSaveUnders", "Screen"); - return(C_TO_XEN_BOOLEAN(DoesSaveUnders(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "DoesSaveUnders", "Screen"); + return(C_bool_to_Xen_boolean(DoesSaveUnders(Xen_to_C_Screen(arg)))); } -static XEN gxm_DoesBackingStore(XEN arg) +static Xen gxm_DoesBackingStore(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "DoesBackingStore", "Screen"); - return(C_TO_XEN_BOOLEAN(DoesBackingStore(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "DoesBackingStore", "Screen"); + return(C_bool_to_Xen_boolean(DoesBackingStore(Xen_to_C_Screen(arg)))); } -static XEN gxm_EventMaskOfScreen(XEN arg) +static Xen gxm_EventMaskOfScreen(Xen arg) { - XEN_ASSERT_TYPE(XEN_Screen_P(arg), arg, 0, "EventMaskOfScreen", "Screen"); - return(C_TO_XEN_ULONG(EventMaskOfScreen(XEN_TO_C_Screen(arg)))); + Xen_check_type(Xen_is_Screen(arg), arg, 0, "EventMaskOfScreen", "Screen"); + return(C_ulong_to_Xen_ulong(EventMaskOfScreen(Xen_to_C_Screen(arg)))); } -static XEN gxm_RootWindow(XEN arg1, XEN arg2) +static Xen gxm_RootWindow(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "RootWindow", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "RootWindow", "int"); - return(C_TO_XEN_Window(RootWindow(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "RootWindow", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "RootWindow", "int"); + return(C_to_Xen_Window(RootWindow(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DefaultVisual(XEN arg1, XEN arg2) +static Xen gxm_DefaultVisual(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DefaultVisual", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DefaultVisual", "int"); - return(C_TO_XEN_Visual(DefaultVisual(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DefaultVisual", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DefaultVisual", "int"); + return(C_to_Xen_Visual(DefaultVisual(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DefaultGC(XEN arg1, XEN arg2) +static Xen gxm_DefaultGC(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DefaultGC", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DefaultGC", "int"); - return(C_TO_XEN_GC(DefaultGC(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DefaultGC", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DefaultGC", "int"); + return(C_to_Xen_GC(DefaultGC(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_BlackPixel(XEN arg1, XEN arg2) +static Xen gxm_BlackPixel(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "BlackPixel", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "BlackPixel", "int"); - return(C_TO_XEN_Pixel(BlackPixel(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "BlackPixel", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "BlackPixel", "int"); + return(C_to_Xen_Pixel(BlackPixel(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_WhitePixel(XEN arg1, XEN arg2) +static Xen gxm_WhitePixel(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "WhitePixel", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "WhitePixel", "int"); - return(C_TO_XEN_Pixel(WhitePixel(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "WhitePixel", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "WhitePixel", "int"); + return(C_to_Xen_Pixel(WhitePixel(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DisplayWidth(XEN arg1, XEN arg2) +static Xen gxm_DisplayWidth(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DisplayWidth", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DisplayWidth", "int"); - return(C_TO_XEN_INT(DisplayWidth(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DisplayWidth", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DisplayWidth", "int"); + return(C_int_to_Xen_integer(DisplayWidth(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DisplayHeight(XEN arg1, XEN arg2) +static Xen gxm_DisplayHeight(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DisplayHeight", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DisplayHeight", "int"); - return(C_TO_XEN_INT(DisplayHeight(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DisplayHeight", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DisplayHeight", "int"); + return(C_int_to_Xen_integer(DisplayHeight(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DisplayWidthMM(XEN arg1, XEN arg2) +static Xen gxm_DisplayWidthMM(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DisplayWidthMM", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DisplayWidthMM", "int"); - return(C_TO_XEN_INT(DisplayWidthMM(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DisplayWidthMM", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DisplayWidthMM", "int"); + return(C_int_to_Xen_integer(DisplayWidthMM(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DisplayHeightMM(XEN arg1, XEN arg2) +static Xen gxm_DisplayHeightMM(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DisplayHeightMM", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DisplayHeightMM", "int"); - return(C_TO_XEN_INT(DisplayHeightMM(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DisplayHeightMM", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DisplayHeightMM", "int"); + return(C_int_to_Xen_integer(DisplayHeightMM(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DisplayPlanes(XEN arg1, XEN arg2) +static Xen gxm_DisplayPlanes(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DisplayPlanes", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DisplayPlanes", "int"); - return(C_TO_XEN_INT(DisplayPlanes(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DisplayPlanes", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DisplayPlanes", "int"); + return(C_int_to_Xen_integer(DisplayPlanes(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DisplayCells(XEN arg1, XEN arg2) +static Xen gxm_DisplayCells(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DisplayCells", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DisplayCells", "int"); - return(C_TO_XEN_INT(DisplayCells(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DisplayCells", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DisplayCells", "int"); + return(C_int_to_Xen_integer(DisplayCells(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DefaultColormap(XEN arg1, XEN arg2) +static Xen gxm_DefaultColormap(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DefaultColormap", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DefaultColormap", "int"); - return(C_TO_XEN_Colormap(DefaultColormap(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DefaultColormap", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DefaultColormap", "int"); + return(C_to_Xen_Colormap(DefaultColormap(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_ScreenOfDisplay(XEN arg1, XEN arg2) +static Xen gxm_ScreenOfDisplay(Xen arg1, Xen arg2) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "ScreenOfDisplay", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "ScreenOfDisplay", "int"); - return(C_TO_XEN_Screen(ScreenOfDisplay(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "ScreenOfDisplay", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "ScreenOfDisplay", "int"); + return(C_to_Xen_Screen(ScreenOfDisplay(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_DefaultDepth(XEN arg1, XEN arg2) +static Xen gxm_DefaultDepth(Xen arg1, Xen arg2) { /* DefaultDepth(display, screen_number) */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "DefaultDepth", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "DefaultDepth", "int"); - return(C_TO_XEN_INT(DefaultDepth(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "DefaultDepth", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "DefaultDepth", "int"); + return(C_int_to_Xen_integer(DefaultDepth(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_IsKeypadKey(XEN arg) +static Xen gxm_IsKeypadKey(Xen arg) { #define H_IsKeypadKey "IsKeypadKey(keysym): returns " PROC_TRUE " if the specified KeySym is a keypad key." - XEN_ASSERT_TYPE(XEN_KeySym_P(arg), arg, 0, "IsKeypadKey", "KeySym"); - return(C_TO_XEN_BOOLEAN(IsKeypadKey(XEN_TO_C_KeySym(arg)))); + Xen_check_type(Xen_is_KeySym(arg), arg, 0, "IsKeypadKey", "KeySym"); + return(C_bool_to_Xen_boolean(IsKeypadKey(Xen_to_C_KeySym(arg)))); } -static XEN gxm_IsPrivateKeypadKey(XEN arg) +static Xen gxm_IsPrivateKeypadKey(Xen arg) { #define H_IsPrivateKeypadKey "IsPrivateKeypadKey(keysym): returns " PROC_TRUE " if the specified KeySym is a vendor-private keypad key." - XEN_ASSERT_TYPE(XEN_KeySym_P(arg), arg, 0, "IsPrivateKeypadKey", "KeySym"); - return(C_TO_XEN_BOOLEAN(IsPrivateKeypadKey(XEN_TO_C_KeySym(arg)))); + Xen_check_type(Xen_is_KeySym(arg), arg, 0, "IsPrivateKeypadKey", "KeySym"); + return(C_bool_to_Xen_boolean(IsPrivateKeypadKey(Xen_to_C_KeySym(arg)))); } -static XEN gxm_IsCursorKey(XEN arg) +static Xen gxm_IsCursorKey(Xen arg) { #define H_IsCursorKey "IsCursorKey(keysym): returns " PROC_TRUE " if the specified KeySym is a cursor key." - XEN_ASSERT_TYPE(XEN_KeySym_P(arg), arg, 0, "IsCursorKey", "KeySym"); - return(C_TO_XEN_BOOLEAN(IsCursorKey(XEN_TO_C_KeySym(arg)))); + Xen_check_type(Xen_is_KeySym(arg), arg, 0, "IsCursorKey", "KeySym"); + return(C_bool_to_Xen_boolean(IsCursorKey(Xen_to_C_KeySym(arg)))); } -static XEN gxm_IsPFKey(XEN arg) +static Xen gxm_IsPFKey(Xen arg) { #define H_IsPFKey "IsPFKey(keysym): returns " PROC_TRUE " if the specified KeySym is a PF key." - XEN_ASSERT_TYPE(XEN_KeySym_P(arg), arg, 0, "IsPFKey", "KeySym"); - return(C_TO_XEN_BOOLEAN(IsPFKey(XEN_TO_C_KeySym(arg)))); + Xen_check_type(Xen_is_KeySym(arg), arg, 0, "IsPFKey", "KeySym"); + return(C_bool_to_Xen_boolean(IsPFKey(Xen_to_C_KeySym(arg)))); } -static XEN gxm_IsFunctionKey(XEN arg) +static Xen gxm_IsFunctionKey(Xen arg) { #define H_IsFunctionKey "IsFunctionKey(keysym): returns " PROC_TRUE " if the KeySym is a function key." - XEN_ASSERT_TYPE(XEN_KeySym_P(arg), arg, 0, "IsFunctionKey", "KeySym"); - return(C_TO_XEN_BOOLEAN(IsFunctionKey(XEN_TO_C_KeySym(arg)))); + Xen_check_type(Xen_is_KeySym(arg), arg, 0, "IsFunctionKey", "KeySym"); + return(C_bool_to_Xen_boolean(IsFunctionKey(Xen_to_C_KeySym(arg)))); } -static XEN gxm_IsMiscFunctionKey(XEN arg) +static Xen gxm_IsMiscFunctionKey(Xen arg) { #define H_IsMiscFunctionKey "IsMiscFunctionKey(keysym): returns " PROC_TRUE " if the specified KeySym is a miscellaneous function key." - XEN_ASSERT_TYPE(XEN_KeySym_P(arg), arg, 0, "IsMiscFunctionKey", "KeySym"); - return(C_TO_XEN_BOOLEAN(IsMiscFunctionKey(XEN_TO_C_KeySym(arg)))); + Xen_check_type(Xen_is_KeySym(arg), arg, 0, "IsMiscFunctionKey", "KeySym"); + return(C_bool_to_Xen_boolean(IsMiscFunctionKey(Xen_to_C_KeySym(arg)))); } -static XEN gxm_IsModifierKey(XEN arg) +static Xen gxm_IsModifierKey(Xen arg) { #define H_IsModifierKey "IsModifierKey(keysym): returns " PROC_TRUE " if the specified KeySym is a modifier key." - XEN_ASSERT_TYPE(XEN_KeySym_P(arg), arg, 0, "IsModifierKey", "KeySym"); - return(C_TO_XEN_BOOLEAN(IsModifierKey(XEN_TO_C_KeySym(arg)))); + Xen_check_type(Xen_is_KeySym(arg), arg, 0, "IsModifierKey", "KeySym"); + return(C_bool_to_Xen_boolean(IsModifierKey(Xen_to_C_KeySym(arg)))); } -static XEN gxm_XAddPixel(XEN arg1, XEN arg2) +static Xen gxm_XAddPixel(Xen arg1, Xen arg2) { #define H_XAddPixel "XAddPixel(ximage, value) adds a constant value to every pixel in an image." - XEN_ASSERT_TYPE(XEN_XImage_P(arg1), arg1, 1, "XAddPixel", "XImage*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XAddPixel", "long"); - return(C_TO_XEN_INT(XAddPixel(XEN_TO_C_XImage(arg1), XEN_TO_C_INT(arg2)))); + Xen_check_type(Xen_is_XImage(arg1), arg1, 1, "XAddPixel", "XImage*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XAddPixel", "long"); + return(C_int_to_Xen_integer(XAddPixel(Xen_to_C_XImage(arg1), Xen_integer_to_C_int(arg2)))); } -static XEN gxm_XSubImage(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XSubImage(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XSubImage "XImage *XSubImage(ximage, x, y, subimage_width, subimage_height) creates a new image that is a subsection of an existing one." - XEN_ASSERT_TYPE(XEN_XImage_P(arg1), arg1, 1, "XSubImage", "XImage*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XSubImage", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XSubImage", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg4), arg4, 4, "XSubImage", "unsigned int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XSubImage", "unsigned int"); - return(C_TO_XEN_XImage(XSubImage(XEN_TO_C_XImage(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_ULONG(arg4), XEN_TO_C_ULONG(arg5)))); + Xen_check_type(Xen_is_XImage(arg1), arg1, 1, "XSubImage", "XImage*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XSubImage", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XSubImage", "int"); + Xen_check_type(Xen_is_ulong(arg4), arg4, 4, "XSubImage", "unsigned int"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XSubImage", "unsigned int"); + return(C_to_Xen_XImage(XSubImage(Xen_to_C_XImage(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_ulong_to_C_ulong(arg4), Xen_ulong_to_C_ulong(arg5)))); } -static XEN gxm_XPutPixel(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XPutPixel(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XPutPixel "XPutPixel(ximage, x, y, pixel) overwrites the pixel in the named image with the specified pixel value." - XEN_ASSERT_TYPE(XEN_XImage_P(arg1), arg1, 1, "XPutPixel", "XImage*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XPutPixel", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XPutPixel", "int"); - XEN_ASSERT_TYPE(XEN_Pixel_P(arg4), arg4, 4, "XPutPixel", "Pixel"); - return(C_TO_XEN_INT(XPutPixel(XEN_TO_C_XImage(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_Pixel(arg4)))); + Xen_check_type(Xen_is_XImage(arg1), arg1, 1, "XPutPixel", "XImage*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XPutPixel", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XPutPixel", "int"); + Xen_check_type(Xen_is_Pixel(arg4), arg4, 4, "XPutPixel", "Pixel"); + return(C_int_to_Xen_integer(XPutPixel(Xen_to_C_XImage(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3), Xen_to_C_Pixel(arg4)))); } -static XEN gxm_XGetPixel(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XGetPixel(Xen arg1, Xen arg2, Xen arg3) { #define H_XGetPixel "Pixel XGetPixel(ximage, x, y): returns the specified pixel from the named image." - XEN_ASSERT_TYPE(XEN_XImage_P(arg1), arg1, 1, "XGetPixel", "XImage*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XGetPixel", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XGetPixel", "int"); - return(C_TO_XEN_Pixel(XGetPixel(XEN_TO_C_XImage(arg1), XEN_TO_C_INT(arg2), XEN_TO_C_INT(arg3)))); + Xen_check_type(Xen_is_XImage(arg1), arg1, 1, "XGetPixel", "XImage*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XGetPixel", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XGetPixel", "int"); + return(C_to_Xen_Pixel(XGetPixel(Xen_to_C_XImage(arg1), Xen_integer_to_C_int(arg2), Xen_integer_to_C_int(arg3)))); } -static XEN gxm_XDestroyImage(XEN arg1) +static Xen gxm_XDestroyImage(Xen arg1) { #define H_XDestroyImage "XDestroyImage(ximage) deallocates the memory associated with the XImage structure." - XEN_ASSERT_TYPE(XEN_XImage_P(arg1), arg1, 1, "XDestroyImage", "XImage*"); - return(C_TO_XEN_INT(XDestroyImage(XEN_TO_C_XImage(arg1)))); + Xen_check_type(Xen_is_XImage(arg1), arg1, 1, "XDestroyImage", "XImage*"); + return(C_int_to_Xen_integer(XDestroyImage(Xen_to_C_XImage(arg1)))); } @@ -13305,7 +13029,7 @@ static XEN gxm_XDestroyImage(XEN arg1) /* thanks to Michael Scholz! */ -static XEN gxm_XShapeQueryExtension(XEN dpy) +static Xen gxm_XShapeQueryExtension(Xen dpy) { #define H_XShapeQueryExtension "(XShapeQueryExtension dpy): returns list of (Bool event_base error_base)" /* DIFF: (proposal) @@ -13314,25 +13038,25 @@ static XEN gxm_XShapeQueryExtension(XEN dpy) */ int event_base = 0, error_base = 0; Bool ret = False; - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeQueryExtension", "Display*"); - ret = XShapeQueryExtension(XEN_TO_C_Display(dpy), &event_base, &error_base); - return(XEN_LIST_3(C_TO_XEN_BOOLEAN(ret), C_TO_XEN_INT(event_base), C_TO_XEN_INT(error_base))); + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeQueryExtension", "Display*"); + ret = XShapeQueryExtension(Xen_to_C_Display(dpy), &event_base, &error_base); + return(Xen_list_3(C_bool_to_Xen_boolean(ret), C_int_to_Xen_integer(event_base), C_int_to_Xen_integer(error_base))); } -static XEN gxm_XShapeQueryVersion(XEN dpy) +static Xen gxm_XShapeQueryVersion(Xen dpy) { #define H_XShapeQueryVersion "(XShapeQueryVersion dpy): returns list of (Bool major_version minor_version)" int major = 0, minor = 0; Bool ret = False; - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeQueryVersion", "Display*"); - ret = XShapeQueryVersion(XEN_TO_C_Display(dpy), &major, &minor); - return(XEN_LIST_3(C_TO_XEN_BOOLEAN(ret), C_TO_XEN_INT(major), C_TO_XEN_INT(minor))); + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeQueryVersion", "Display*"); + ret = XShapeQueryVersion(Xen_to_C_Display(dpy), &major, &minor); + return(Xen_list_3(C_bool_to_Xen_boolean(ret), C_int_to_Xen_integer(major), C_int_to_Xen_integer(minor))); } -static XEN gxm_XShapeQueryExtents(XEN dpy, XEN win) +static Xen gxm_XShapeQueryExtents(Xen dpy, Xen win) { #define H_XShapeQueryExtents "(XShapeQueryExtents dpy win): returns list of (status bounding_shaped x_bound y_bound w_bound \ -h_bound clip_shaped x_clip y_clip w_clip h_clip" +h_bound clip_shaped x_clip y_clip w_clip h_clip)" Bool bounding_shaped; int x_bounding; int y_bounding; @@ -13344,121 +13068,121 @@ h_bound clip_shaped x_clip y_clip w_clip h_clip" unsigned int w_clip; unsigned int h_clip; Status ret; - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeQueryExtents", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XShapeQueryExtents", "Window"); - ret = XShapeQueryExtents(XEN_TO_C_Display(dpy), XEN_TO_C_Window(win), + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeQueryExtents", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XShapeQueryExtents", "Window"); + ret = XShapeQueryExtents(Xen_to_C_Display(dpy), Xen_to_C_Window(win), &bounding_shaped, &x_bounding, &y_bounding, &w_bounding, &h_bounding, &clip_shaped, &x_clip, &y_clip, &w_clip, &h_clip); - return(XEN_CONS(C_TO_XEN_INT(ret), - XEN_CONS(C_TO_XEN_INT(bounding_shaped), - XEN_LIST_9(C_TO_XEN_INT(x_bounding), - C_TO_XEN_INT(y_bounding), - C_TO_XEN_INT(w_bounding), - C_TO_XEN_INT(h_bounding), - C_TO_XEN_INT(clip_shaped), - C_TO_XEN_INT(x_clip), - C_TO_XEN_INT(y_clip), - C_TO_XEN_INT(w_clip), - C_TO_XEN_INT(h_clip))))); + return(Xen_cons(C_int_to_Xen_integer(ret), + Xen_cons(C_int_to_Xen_integer(bounding_shaped), + Xen_list_9(C_int_to_Xen_integer(x_bounding), + C_int_to_Xen_integer(y_bounding), + C_int_to_Xen_integer(w_bounding), + C_int_to_Xen_integer(h_bounding), + C_int_to_Xen_integer(clip_shaped), + C_int_to_Xen_integer(x_clip), + C_int_to_Xen_integer(y_clip), + C_int_to_Xen_integer(w_clip), + C_int_to_Xen_integer(h_clip))))); } -static XEN gxm_XShapeGetRectangles(XEN dpy, XEN win, XEN kind) +static Xen gxm_XShapeGetRectangles(Xen dpy, Xen win, Xen kind) { #define H_XShapeGetRectangles "(XShapeGetRectangles dpy win kind): returns list of (xrectangles ordering)" int count = 0, ordering = 0; XRectangle *res; - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeGetRectangles", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XShapeGetRectangles", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(kind), kind, XEN_ARG_3, "XShapeGetRectangles", "int"); - res = XShapeGetRectangles(XEN_TO_C_Display(dpy), XEN_TO_C_Window(win), XEN_TO_C_INT(kind), &count, &ordering); - return(XEN_LIST_2(C_TO_XEN_XRectangles(res, count), C_TO_XEN_INT(ordering))); + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeGetRectangles", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XShapeGetRectangles", "Window"); + Xen_check_type(Xen_is_integer(kind), kind, 3, "XShapeGetRectangles", "int"); + res = XShapeGetRectangles(Xen_to_C_Display(dpy), Xen_to_C_Window(win), Xen_integer_to_C_int(kind), &count, &ordering); + return(Xen_list_2(C_to_Xen_XRectangles(res, count), C_int_to_Xen_integer(ordering))); } -static XEN gxm_XShapeOffsetShape(XEN dpy, XEN win, XEN kind, XEN x, XEN y) +static Xen gxm_XShapeOffsetShape(Xen dpy, Xen win, Xen kind, Xen x, Xen y) { #define H_XShapeOffsetShape "(XShapeOffsetShape dpy win kind x-off y-off)" - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeOffsetShape", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XShapeOffsetShape", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(kind), kind, XEN_ARG_3, "XShapeOffsetShape", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, XEN_ARG_4, "XShapeOffsetShape", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, XEN_ARG_5, "XShapeOffsetShape", "int"); - XShapeOffsetShape(XEN_TO_C_Display(dpy), XEN_TO_C_Window(win), - XEN_TO_C_INT(kind), XEN_TO_C_INT(x), XEN_TO_C_INT(y)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeOffsetShape", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XShapeOffsetShape", "Window"); + Xen_check_type(Xen_is_integer(kind), kind, 3, "XShapeOffsetShape", "int"); + Xen_check_type(Xen_is_integer(x), x, 4, "XShapeOffsetShape", "int"); + Xen_check_type(Xen_is_integer(y), y, 5, "XShapeOffsetShape", "int"); + XShapeOffsetShape(Xen_to_C_Display(dpy), Xen_to_C_Window(win), + Xen_integer_to_C_int(kind), Xen_integer_to_C_int(x), Xen_integer_to_C_int(y)); + return(Xen_false); } -static XEN gxm_XShapeCombineRegion(XEN dpy, XEN win, XEN kind, XEN x, XEN y, XEN reg, XEN op) +static Xen gxm_XShapeCombineRegion(Xen dpy, Xen win, Xen kind, Xen x, Xen y, Xen reg, Xen op) { #define H_XShapeCombineRegion "(XShapeCombineRegion dpy win kind x-off y-off region op)" - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeCombineRegion", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XShapeCombineRegion", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(kind), kind, XEN_ARG_3, "XShapeCombineRegion", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, XEN_ARG_4, "XShapeCombineRegion", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, XEN_ARG_5, "XShapeCombineRegion", "int"); - XEN_ASSERT_TYPE(XEN_Region_P(reg), reg, XEN_ARG_6, "XShapeCombineRegion", "Region"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(op), op, XEN_ARG_6, "XShapeCombineRegion", "int"); - XShapeCombineRegion(XEN_TO_C_Display(dpy), XEN_TO_C_Window(win), - XEN_TO_C_INT(kind), XEN_TO_C_INT(x), XEN_TO_C_INT(y), - XEN_TO_C_Region(reg), - XEN_TO_C_INT(op)); - return(XEN_FALSE); -} - -static XEN gxm_XShapeCombineMask(XEN dpy, XEN win, XEN kind, XEN x, XEN y, XEN pix, XEN op) + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeCombineRegion", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XShapeCombineRegion", "Window"); + Xen_check_type(Xen_is_integer(kind), kind, 3, "XShapeCombineRegion", "int"); + Xen_check_type(Xen_is_integer(x), x, 4, "XShapeCombineRegion", "int"); + Xen_check_type(Xen_is_integer(y), y, 5, "XShapeCombineRegion", "int"); + Xen_check_type(Xen_is_Region(reg), reg, 6, "XShapeCombineRegion", "Region"); + Xen_check_type(Xen_is_integer(op), op, 6, "XShapeCombineRegion", "int"); + XShapeCombineRegion(Xen_to_C_Display(dpy), Xen_to_C_Window(win), + Xen_integer_to_C_int(kind), Xen_integer_to_C_int(x), Xen_integer_to_C_int(y), + Xen_to_C_Region(reg), + Xen_integer_to_C_int(op)); + return(Xen_false); +} + +static Xen gxm_XShapeCombineMask(Xen dpy, Xen win, Xen kind, Xen x, Xen y, Xen pix, Xen op) { #define H_XShapeCombineMask "(XShapeCombineMask dpy win kind x-off y-off pixmap op)" - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeCombineMask", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XShapeCombineMask", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(kind), kind, XEN_ARG_3, "XShapeCombineMask", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, XEN_ARG_4, "XShapeCombineMask", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, XEN_ARG_5, "XShapeCombineMask", "int"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(pix), pix, XEN_ARG_6, "XShapeCombineMask", "Pixmap"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(op), op, XEN_ARG_6, "XShapeCombineMask", "int"); - XShapeCombineMask(XEN_TO_C_Display(dpy), XEN_TO_C_Window(win), - XEN_TO_C_INT(kind), XEN_TO_C_INT(x), XEN_TO_C_INT(y), - XEN_TO_C_Pixmap(pix), - XEN_TO_C_INT(op)); - return(XEN_FALSE); -} - -static XEN gxm_XShapeCombineShape(XEN dpy, XEN win, XEN kind, XEN x, XEN y, XEN src, XEN src_kind, XEN op) + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeCombineMask", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XShapeCombineMask", "Window"); + Xen_check_type(Xen_is_integer(kind), kind, 3, "XShapeCombineMask", "int"); + Xen_check_type(Xen_is_integer(x), x, 4, "XShapeCombineMask", "int"); + Xen_check_type(Xen_is_integer(y), y, 5, "XShapeCombineMask", "int"); + Xen_check_type(Xen_is_Pixmap(pix), pix, 6, "XShapeCombineMask", "Pixmap"); + Xen_check_type(Xen_is_integer(op), op, 6, "XShapeCombineMask", "int"); + XShapeCombineMask(Xen_to_C_Display(dpy), Xen_to_C_Window(win), + Xen_integer_to_C_int(kind), Xen_integer_to_C_int(x), Xen_integer_to_C_int(y), + Xen_to_C_Pixmap(pix), + Xen_integer_to_C_int(op)); + return(Xen_false); +} + +static Xen gxm_XShapeCombineShape(Xen dpy, Xen win, Xen kind, Xen x, Xen y, Xen src, Xen src_kind, Xen op) { #define H_XShapeCombineShape "(XShapeCombineShape dpy win kind x-off y-off src src_kind op)" - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeCombineShape", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XShapeCombineShape", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(kind), kind, XEN_ARG_3, "XShapeCombineShape", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, XEN_ARG_4, "XShapeCombineShape", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, XEN_ARG_5, "XShapeCombineShape", "int"); - XEN_ASSERT_TYPE(XEN_Window_P(src), src, XEN_ARG_6, "XShapeCombineShape", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(src_kind), src_kind, XEN_ARG_7, "XShapeCombineShape", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(op), op, XEN_ARG_8, "XShapeCombineShape", "int"); - XShapeCombineShape(XEN_TO_C_Display(dpy), XEN_TO_C_Window(win), - XEN_TO_C_INT(kind), XEN_TO_C_INT(x), XEN_TO_C_INT(y), - XEN_TO_C_Window(src), XEN_TO_C_INT(src_kind), - XEN_TO_C_INT(op)); - return(XEN_FALSE); -} - -static XEN gxm_XShapeCombineRectangles(XEN dpy, XEN win, XEN kind, XEN x, XEN y, XEN rects, XEN n_rects, XEN op, XEN ordering) + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeCombineShape", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XShapeCombineShape", "Window"); + Xen_check_type(Xen_is_integer(kind), kind, 3, "XShapeCombineShape", "int"); + Xen_check_type(Xen_is_integer(x), x, 4, "XShapeCombineShape", "int"); + Xen_check_type(Xen_is_integer(y), y, 5, "XShapeCombineShape", "int"); + Xen_check_type(Xen_is_Window(src), src, 6, "XShapeCombineShape", "Window"); + Xen_check_type(Xen_is_integer(src_kind), src_kind, 7, "XShapeCombineShape", "int"); + Xen_check_type(Xen_is_integer(op), op, 8, "XShapeCombineShape", "int"); + XShapeCombineShape(Xen_to_C_Display(dpy), Xen_to_C_Window(win), + Xen_integer_to_C_int(kind), Xen_integer_to_C_int(x), Xen_integer_to_C_int(y), + Xen_to_C_Window(src), Xen_integer_to_C_int(src_kind), + Xen_integer_to_C_int(op)); + return(Xen_false); +} + +static Xen gxm_XShapeCombineRectangles(Xen dpy, Xen win, Xen kind, Xen x, Xen y, Xen rects, Xen n_rects, Xen op, Xen ordering) { #define H_XShapeCombineRectangles "(XShapeCombineRectangles dpy win kind x-off y-off rectangles n-rects op ordering)" XRectangle *cr = NULL; - XEN_ASSERT_TYPE(XEN_Display_P(dpy), dpy, XEN_ARG_1, "XShapeCombineRectangles", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(win), win, XEN_ARG_2, "XShapeCombineRectangles", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(kind), kind, XEN_ARG_3, "XShapeCombineRectangles", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, XEN_ARG_4, "XShapeCombineRectangles", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, XEN_ARG_5, "XShapeCombineRectangles", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(rects), rects, XEN_ARG_6, "XShapeCombineRectangles", "list of XRectangles"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(n_rects), n_rects, XEN_ARG_7, "XShapeCombineRectangles", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(op), op, XEN_ARG_8, "XShapeCombineRectangles", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(ordering), ordering, XEN_ARG_9, "XShapeCombineRectangles", "int"); - cr = XEN_TO_C_XRectangles(rects, XEN_TO_C_INT(n_rects)); - XShapeCombineRectangles(XEN_TO_C_Display(dpy), XEN_TO_C_Window(win), - XEN_TO_C_INT(kind), XEN_TO_C_INT(x), XEN_TO_C_INT(y), - cr, XEN_TO_C_INT(n_rects), - XEN_TO_C_INT(op), XEN_TO_C_INT(ordering)); + Xen_check_type(Xen_is_Display(dpy), dpy, 1, "XShapeCombineRectangles", "Display*"); + Xen_check_type(Xen_is_Window(win), win, 2, "XShapeCombineRectangles", "Window"); + Xen_check_type(Xen_is_integer(kind), kind, 3, "XShapeCombineRectangles", "int"); + Xen_check_type(Xen_is_integer(x), x, 4, "XShapeCombineRectangles", "int"); + Xen_check_type(Xen_is_integer(y), y, 5, "XShapeCombineRectangles", "int"); + Xen_check_type(Xen_is_list(rects), rects, 6, "XShapeCombineRectangles", "list of XRectangles"); + Xen_check_type(Xen_is_integer(n_rects), n_rects, 7, "XShapeCombineRectangles", "int"); + Xen_check_type(Xen_is_integer(op), op, 8, "XShapeCombineRectangles", "int"); + Xen_check_type(Xen_is_integer(ordering), ordering, 9, "XShapeCombineRectangles", "int"); + cr = Xen_to_C_XRectangles(rects, Xen_integer_to_C_int(n_rects)); + XShapeCombineRectangles(Xen_to_C_Display(dpy), Xen_to_C_Window(win), + Xen_integer_to_C_int(kind), Xen_integer_to_C_int(x), Xen_integer_to_C_int(y), + cr, Xen_integer_to_C_int(n_rects), + Xen_integer_to_C_int(op), Xen_integer_to_C_int(ordering)); if (cr) free(cr); - return(XEN_FALSE); + return(Xen_false); } #endif @@ -13480,7 +13204,6 @@ static XEN gxm_XShapeCombineRectangles(XEN dpy, XEN win, XEN kind, XEN x, XEN y, * ---------------------------------------------------------------------------------------------------- */ -#if HAVE_MOTIF typedef enum {CANCEL_CONVERT, CONVERT, LOSE, DONE, CONVERT_INCR, LOSE_INCR, DONE_INCR} xm_selmap_t; /* need a way to map from widget to selection proc */ @@ -13488,13 +13211,13 @@ typedef enum {CANCEL_CONVERT, CONVERT, LOSE, DONE, CONVERT_INCR, LOSE_INCR, DONE typedef struct { Widget w; xm_selmap_t type; - XEN proc; + Xen proc; } selmap; static selmap *selmaps = NULL; static int selmap_size = 0; static int selmap_ctr = 0; -static void add_selmap(Widget w, xm_selmap_t type, XEN proc) +static void add_selmap(Widget w, xm_selmap_t type, Xen proc) { if (selmap_size == 0) selmaps = (selmap *)calloc(8, sizeof(selmap)); @@ -13514,122 +13237,123 @@ static void add_selmap(Widget w, xm_selmap_t type, XEN proc) selmaps[selmap_ctr++].proc = proc; } -static XEN unselmap(Widget w, xm_selmap_t type) +static Xen unselmap(Widget w, xm_selmap_t type) { int i; for (i = 0; i < selmap_ctr; i++) if ((selmaps[i].w == w) && (selmaps[i].type == type)) return(selmaps[i].proc); - return(XEN_FALSE); + return(Xen_false); } static void gxm_XtCancelConvertSelectionProc(Widget w, Atom *a1, Atom *a2, XtRequestId *id, XtPointer x) { - XEN proc; + Xen proc; proc = unselmap(w, CANCEL_CONVERT); - if (XEN_PROCEDURE_P(proc)) - XEN_CALL_5(proc, - C_TO_XEN_Widget(w), - C_TO_XEN_Atom(*a1), - C_TO_XEN_Atom(*a2), - C_TO_XEN_XtRequestId(*id), - (XEN)x, + if (Xen_is_procedure(proc)) + Xen_call_with_5_args(proc, + C_to_Xen_Widget(w), + C_to_Xen_Atom(*a1), + C_to_Xen_Atom(*a2), + C_to_Xen_XtRequestId(*id), + (Xen)x, "CancelConvert"); } static Boolean gxm_XtConvertSelectionProc(Widget w, Atom *a1, Atom *a2, Atom *a3, XtPointer* x, unsigned long *l, int *i) { - XEN proc, val; + Xen proc; proc = unselmap(w, CONVERT); - if (XEN_PROCEDURE_P(proc)) + if (Xen_is_procedure(proc)) { - val = XEN_CALL_3(proc, - C_TO_XEN_Widget(w), - C_TO_XEN_Atom(*a1), - C_TO_XEN_Atom(*a2), + Xen val; + val = Xen_call_with_3_args(proc, + C_to_Xen_Widget(w), + C_to_Xen_Atom(*a1), + C_to_Xen_Atom(*a2), "ConvertSelection"); - (*a3) = XEN_TO_C_Atom(XEN_LIST_REF(val, 1)); - (*x) = (XtPointer)(XEN_LIST_REF(val, 2)); - (*l) = XEN_TO_C_ULONG(XEN_LIST_REF(val, 3)); - (*i) = XEN_TO_C_INT(XEN_LIST_REF(val, 4)); - return(XEN_TO_C_BOOLEAN(XEN_CAR(val))); + (*a3) = Xen_to_C_Atom(Xen_list_ref(val, 1)); + (*x) = (XtPointer)(Xen_list_ref(val, 2)); + (*l) = Xen_ulong_to_C_ulong(Xen_list_ref(val, 3)); + (*i) = Xen_integer_to_C_int(Xen_list_ref(val, 4)); + return(Xen_boolean_to_C_bool(Xen_car(val))); } return(0); } static void gxm_XtLoseSelectionIncrProc(Widget w, Atom *a, XtPointer x) { - XEN proc; + Xen proc; proc = unselmap(w, LOSE_INCR); - if (XEN_PROCEDURE_P(proc)) - XEN_CALL_3(proc, - C_TO_XEN_Widget(w), - C_TO_XEN_Atom(*a), - (XEN)x, + if (Xen_is_procedure(proc)) + Xen_call_with_3_args(proc, + C_to_Xen_Widget(w), + C_to_Xen_Atom(*a), + (Xen)x, "LoseSelectionIncr"); } static void gxm_XtLoseSelectionProc(Widget w, Atom *a) { - XEN proc; + Xen proc; proc = unselmap(w, LOSE); - if (XEN_PROCEDURE_P(proc)) - XEN_CALL_2(proc, - C_TO_XEN_Widget(w), - C_TO_XEN_Atom(*a), + if (Xen_is_procedure(proc)) + Xen_call_with_2_args(proc, + C_to_Xen_Widget(w), + C_to_Xen_Atom(*a), "LoseSelection"); } static void gxm_XtSelectionDoneProc(Widget w, Atom *a1, Atom *a2) { - XEN proc; + Xen proc; proc = unselmap(w, DONE); - if (XEN_PROCEDURE_P(proc)) - XEN_CALL_3(proc, - C_TO_XEN_Widget(w), - C_TO_XEN_Atom(*a1), - C_TO_XEN_Atom(*a2), + if (Xen_is_procedure(proc)) + Xen_call_with_3_args(proc, + C_to_Xen_Widget(w), + C_to_Xen_Atom(*a1), + C_to_Xen_Atom(*a2), "DoneSelection"); } static void gxm_XtSelectionDoneIncrProc(Widget w, Atom *a1, Atom *a2, XtRequestId *i, XtPointer x) { - XEN proc; + Xen proc; proc = unselmap(w, DONE_INCR); - if (XEN_PROCEDURE_P(proc)) - XEN_CALL_5(proc, - C_TO_XEN_Widget(w), - C_TO_XEN_Atom(*a1), - C_TO_XEN_Atom(*a2), - C_TO_XEN_XtRequestId(*i), - (XEN)x, + if (Xen_is_procedure(proc)) + Xen_call_with_5_args(proc, + C_to_Xen_Widget(w), + C_to_Xen_Atom(*a1), + C_to_Xen_Atom(*a2), + C_to_Xen_XtRequestId(*i), + (Xen)x, "DoneSelectionIncr"); } -static XEN gxm_XtAppUnlock(XEN arg1) +static Xen gxm_XtAppUnlock(Xen arg1) { #define H_XtAppUnlock "void XtAppUnlock(app_context) unlocks the application context." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppUnlock", "XtAppContext"); - XtAppUnlock(XEN_TO_C_XtAppContext(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppUnlock", "XtAppContext"); + XtAppUnlock(Xen_to_C_XtAppContext(arg1)); + return(Xen_false); } -static XEN gxm_XtAppLock(XEN arg1) +static Xen gxm_XtAppLock(Xen arg1) { #define H_XtAppLock "void XtAppLock(app_context) locks the application context including all its related displays and widgets." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppLock", "XtAppContext"); - XtAppLock(XEN_TO_C_XtAppContext(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppLock", "XtAppContext"); + XtAppLock(Xen_to_C_XtAppContext(arg1)); + return(Xen_false); } -static XEN gxm_XtToolkitThreadInitialize(void) +static Xen gxm_XtToolkitThreadInitialize(void) { #define H_XtToolkitThreadInitialize "Boolean XtToolkitThreadInitialize()" - return(C_TO_XEN_BOOLEAN(XtToolkitThreadInitialize())); + return(C_bool_to_Xen_boolean(XtToolkitThreadInitialize())); } -static XEN gxm_XtGetDisplays(XEN arg1) +static Xen gxm_XtGetDisplays(Xen arg1) { #define H_XtGetDisplays "void XtGetDisplays(app_context): list of displays" /* DIFF: XtGetDisplays not arg2 arg3 returns list @@ -13637,161 +13361,161 @@ static XEN gxm_XtGetDisplays(XEN arg1) unsigned int x; Display **ds; int i, loc; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtGetDisplays", "XtAppContext"); - XtGetDisplays(XEN_TO_C_XtAppContext(arg1), &ds, &x); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtGetDisplays", "XtAppContext"); + XtGetDisplays(Xen_to_C_XtAppContext(arg1), &ds, &x); loc = xm_protect(lst); for (i = x - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_Display(ds[i]), lst); + lst = Xen_cons(C_to_Xen_Display(ds[i]), lst); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XtGetApplicationNameAndClass(XEN arg1) +static Xen gxm_XtGetApplicationNameAndClass(Xen arg1) { #define H_XtGetApplicationNameAndClass "void XtGetApplicationNameAndClass(display): returns the application name \ and class passed to XtDisplayInitialize for the specified display." /* DIFF: XtGetApplicationNameAndClass omits and rtns args 2 and 3 */ char *name, *clas; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtGetApplicationNameAndClass", "Display*"); - XtGetApplicationNameAndClass(XEN_TO_C_Display(arg1), &name, &clas); - return(XEN_LIST_2(C_TO_XEN_STRING(name), - C_TO_XEN_STRING(clas))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtGetApplicationNameAndClass", "Display*"); + XtGetApplicationNameAndClass(Xen_to_C_Display(arg1), &name, &clas); + return(Xen_list_2(C_string_to_Xen_string(name), + C_string_to_Xen_string(clas))); } -static XEN gxm_XtUngrabPointer(XEN arg1, XEN arg2) +static Xen gxm_XtUngrabPointer(Xen arg1, Xen arg2) { #define H_XtUngrabPointer "void XtUngrabPointer(widget, time) calls XUngrabPointer with the specified time." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtUngrabPointer", "Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XtUngrabPointer", "Time"); - XtUngrabPointer(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtUngrabPointer", "Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XtUngrabPointer", "Time"); + XtUngrabPointer(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)); + return(Xen_false); } -static XEN gxm_XtGrabPointer(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8) +static Xen gxm_XtGrabPointer(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8) { #define H_XtGrabPointer "int XtGrabPointer(widget, owner_events, event_mask, pointer_mode, keyboard_mode, confine_to, cursor, time) calls \ XGrabPointer specifying the widget's window as the grab window." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGrabPointer", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XtGrabPointer", "boolean"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XtGrabPointer", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XtGrabPointer", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XtGrabPointer", "int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg6), arg6, 6, "XtGrabPointer", "Window"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg7), arg7, 7, "XtGrabPointer", "Cursor"); - XEN_ASSERT_TYPE(XEN_Time_P(arg8), arg8, 8, "XtGrabPointer", "Time"); - return(C_TO_XEN_INT(XtGrabPointer(XEN_TO_C_Widget(arg1), - XEN_TO_C_BOOLEAN(arg2), XEN_TO_C_ULONG(arg3), - XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5), - XEN_TO_C_Window(arg6), XEN_TO_C_Cursor(arg7), - XEN_TO_C_Time(arg8)))); -} - -static XEN gxm_XtUngrabButton(XEN arg1, XEN arg2, XEN arg3) + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGrabPointer", "Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XtGrabPointer", "boolean"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XtGrabPointer", "unsigned int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XtGrabPointer", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XtGrabPointer", "int"); + Xen_check_type(Xen_is_Window(arg6), arg6, 6, "XtGrabPointer", "Window"); + Xen_check_type(Xen_is_Cursor(arg7), arg7, 7, "XtGrabPointer", "Cursor"); + Xen_check_type(Xen_is_Time(arg8), arg8, 8, "XtGrabPointer", "Time"); + return(C_int_to_Xen_integer(XtGrabPointer(Xen_to_C_Widget(arg1), + Xen_boolean_to_C_bool(arg2), Xen_ulong_to_C_ulong(arg3), + Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5), + Xen_to_C_Window(arg6), Xen_to_C_Cursor(arg7), + Xen_to_C_Time(arg8)))); +} + +static Xen gxm_XtUngrabButton(Xen arg1, Xen arg2, Xen arg3) { #define H_XtUngrabButton "void XtUngrabButton(widget, button, modifiers) calls XUngrabButton specifying the widget's window as the ungrab \ window if the widget is realized. " - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtUngrabButton", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtUngrabButton", "unsigned int"); - XEN_ASSERT_TYPE(XEN_Modifiers_P(arg3), arg3, 3, "XtUngrabButton", "Modifiers"); - XtUngrabButton(XEN_TO_C_Widget(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_Modifiers(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtUngrabButton", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtUngrabButton", "unsigned int"); + Xen_check_type(Xen_is_Modifiers(arg3), arg3, 3, "XtUngrabButton", "Modifiers"); + XtUngrabButton(Xen_to_C_Widget(arg1), Xen_ulong_to_C_ulong(arg2), Xen_to_C_Modifiers(arg3)); + return(Xen_false); } -static XEN gxm_XtGrabButton(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8, XEN arg9) +static Xen gxm_XtGrabButton(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8, Xen arg9) { #define H_XtGrabButton "void XtGrabButton(widget, button, modifiers, owner_events, event_mask, pointer_mode, keyboard_mode, confine_to, cursor) \ calls XGrabButton specifying the widget's window as the grab window if the widget is realized." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGrabButton", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XtGrabButton", "int"); - XEN_ASSERT_TYPE(XEN_Modifiers_P(arg3), arg3, 3, "XtGrabButton", "Modifiers"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg4), arg4, 4, "XtGrabButton", "boolean"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XtGrabButton", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XtGrabButton", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XtGrabButton", "int"); - XEN_ASSERT_TYPE(XEN_Window_P(arg8), arg8, 8, "XtGrabButton", "Window"); - XEN_ASSERT_TYPE(XEN_Cursor_P(arg9), arg9, 9, "XtGrabButton", "Cursor"); - XtGrabButton(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), - XEN_TO_C_Modifiers(arg3), XEN_TO_C_BOOLEAN(arg4), XEN_TO_C_ULONG(arg5), XEN_TO_C_INT(arg6), XEN_TO_C_INT(arg7), - XEN_TO_C_Window(arg8), XEN_TO_C_Cursor(arg9)); - return(XEN_FALSE); -} - -static XEN gxm_XtUngrabKeyboard(XEN arg1, XEN arg2) + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGrabButton", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XtGrabButton", "int"); + Xen_check_type(Xen_is_Modifiers(arg3), arg3, 3, "XtGrabButton", "Modifiers"); + Xen_check_type(Xen_is_boolean(arg4), arg4, 4, "XtGrabButton", "boolean"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XtGrabButton", "unsigned int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XtGrabButton", "int"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XtGrabButton", "int"); + Xen_check_type(Xen_is_Window(arg8), arg8, 8, "XtGrabButton", "Window"); + Xen_check_type(Xen_is_Cursor(arg9), arg9, 9, "XtGrabButton", "Cursor"); + XtGrabButton(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), + Xen_to_C_Modifiers(arg3), Xen_boolean_to_C_bool(arg4), Xen_ulong_to_C_ulong(arg5), Xen_integer_to_C_int(arg6), Xen_integer_to_C_int(arg7), + Xen_to_C_Window(arg8), Xen_to_C_Cursor(arg9)); + return(Xen_false); +} + +static Xen gxm_XtUngrabKeyboard(Xen arg1, Xen arg2) { #define H_XtUngrabKeyboard "void XtUngrabKeyboard(widget, time) calls XUngrabKeyboard with the specified time." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtUngrabKeyboard", "Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XtUngrabKeyboard", "Time"); - XtUngrabKeyboard(XEN_TO_C_Widget(arg1), XEN_TO_C_Time(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtUngrabKeyboard", "Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XtUngrabKeyboard", "Time"); + XtUngrabKeyboard(Xen_to_C_Widget(arg1), Xen_to_C_Time(arg2)); + return(Xen_false); } -static XEN gxm_XtGrabKeyboard(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtGrabKeyboard(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtGrabKeyboard "int XtGrabKeyboard(widget, owner_events, pointer_mode, keyboard_mode, time)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGrabKeyboard", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XtGrabKeyboard", "boolean"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XtGrabKeyboard", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XtGrabKeyboard", "int"); - XEN_ASSERT_TYPE(XEN_Time_P(arg5), arg5, 5, "XtGrabKeyboard", "Time"); - return(C_TO_XEN_INT(XtGrabKeyboard(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2), XEN_TO_C_INT(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_Time(arg5)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGrabKeyboard", "Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XtGrabKeyboard", "boolean"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XtGrabKeyboard", "int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XtGrabKeyboard", "int"); + Xen_check_type(Xen_is_Time(arg5), arg5, 5, "XtGrabKeyboard", "Time"); + return(C_int_to_Xen_integer(XtGrabKeyboard(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2), Xen_integer_to_C_int(arg3), Xen_integer_to_C_int(arg4), Xen_to_C_Time(arg5)))); } -static XEN gxm_XtUngrabKey(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtUngrabKey(Xen arg1, Xen arg2, Xen arg3) { #define H_XtUngrabKey "void XtUngrabKey(widget, keycode, modifiers) calls XUngrabKey specifying the widget's window as the ungrab window \ if the widget is realized." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtUngrabKey", "Widget"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XtUngrabKey", "KeyCode"); - XEN_ASSERT_TYPE(XEN_Modifiers_P(arg3), arg3, 3, "XtUngrabKey", "Modifiers"); - XtUngrabKey(XEN_TO_C_Widget(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_Modifiers(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtUngrabKey", "Widget"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XtUngrabKey", "KeyCode"); + Xen_check_type(Xen_is_Modifiers(arg3), arg3, 3, "XtUngrabKey", "Modifiers"); + XtUngrabKey(Xen_to_C_Widget(arg1), Xen_to_C_KeyCode(arg2), Xen_to_C_Modifiers(arg3)); + return(Xen_false); } -static XEN gxm_XtGrabKey(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtGrabKey(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtGrabKey "void XtGrabKey(widget, keycode, modifiers, owner_events, pointer_mode, keyboard_mode) calls XGrabKey specifying the \ widget's window as the grab window if the widget is realized." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGrabKey", "Widget"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XtGrabKey", "KeyCode"); - XEN_ASSERT_TYPE(XEN_Modifiers_P(arg3), arg3, 3, "XtGrabKey", "Modifiers"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg4), arg4, 4, "XtGrabKey", "boolean"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XtGrabKey", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XtGrabKey", "int"); - XtGrabKey(XEN_TO_C_Widget(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_Modifiers(arg3), XEN_TO_C_BOOLEAN(arg4), XEN_TO_C_INT(arg5), XEN_TO_C_INT(arg6)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGrabKey", "Widget"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XtGrabKey", "KeyCode"); + Xen_check_type(Xen_is_Modifiers(arg3), arg3, 3, "XtGrabKey", "Modifiers"); + Xen_check_type(Xen_is_boolean(arg4), arg4, 4, "XtGrabKey", "boolean"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XtGrabKey", "int"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XtGrabKey", "int"); + XtGrabKey(Xen_to_C_Widget(arg1), Xen_to_C_KeyCode(arg2), Xen_to_C_Modifiers(arg3), Xen_boolean_to_C_bool(arg4), Xen_integer_to_C_int(arg5), Xen_integer_to_C_int(arg6)); + return(Xen_false); } -static XEN gxm_XtCancelSelectionRequest(XEN arg1, XEN arg2) +static Xen gxm_XtCancelSelectionRequest(Xen arg1, Xen arg2) { #define H_XtCancelSelectionRequest "void XtCancelSelectionRequest(requestor, selection)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCancelSelectionRequest", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtCancelSelectionRequest", "Atom"); - XtCancelSelectionRequest(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCancelSelectionRequest", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtCancelSelectionRequest", "Atom"); + XtCancelSelectionRequest(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2)); + return(Xen_false); } -static XEN gxm_XtSendSelectionRequest(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtSendSelectionRequest(Xen arg1, Xen arg2, Xen arg3) { #define H_XtSendSelectionRequest "void XtSendSelectionRequest(requestor, selection, time)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtSendSelectionRequest", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtSendSelectionRequest", "Atom"); - XEN_ASSERT_TYPE(XEN_Time_P(arg3), arg3, 3, "XtSendSelectionRequest", "Time"); - XtSendSelectionRequest(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), XEN_TO_C_Time(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtSendSelectionRequest", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtSendSelectionRequest", "Atom"); + Xen_check_type(Xen_is_Time(arg3), arg3, 3, "XtSendSelectionRequest", "Time"); + XtSendSelectionRequest(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), Xen_to_C_Time(arg3)); + return(Xen_false); } -static XEN gxm_XtCreateSelectionRequest(XEN arg1, XEN arg2) +static Xen gxm_XtCreateSelectionRequest(Xen arg1, Xen arg2) { #define H_XtCreateSelectionRequest "void XtCreateSelectionRequest(requestor, selection)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCreateSelectionRequest", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtCreateSelectionRequest", "Atom"); - XtCreateSelectionRequest(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCreateSelectionRequest", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtCreateSelectionRequest", "Atom"); + XtCreateSelectionRequest(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2)); + return(Xen_false); } -static XEN gxm_XtGetSelectionValuesIncremental(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XtGetSelectionValuesIncremental(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XtGetSelectionValuesIncremental "void XtGetSelectionValuesIncremental(w, selection, targets, count, callback, client_data, time) \ is similar to XtGetSelectionValueIncremental except that it takes a list of target types and a list of client data and obtains the current \ @@ -13800,72 +13524,72 @@ value of the selection converted to each of the targets." */ Atom *outs; int len, loc; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetSelectionValuesIncremental", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtGetSelectionValuesIncremental", "Atom"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XtGetSelectionValuesIncremental", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XtGetSelectionValuesIncremental", "int"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg5) && (XEN_REQUIRED_ARGS_OK(arg5, 7)), arg5, 5, "XtGetSelectionValuesIncremental", "XtSelectionCallbackProc"); - XEN_ASSERT_TYPE(XEN_Time_P(arg7), arg7, 7, "XtGetSelectionValuesIncremental", "Time"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - outs = XEN_TO_C_Atoms(arg3, len); - xm_XtSelectionCallback_Descr = XEN_LIST_2(arg5, arg6); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetSelectionValuesIncremental", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtGetSelectionValuesIncremental", "Atom"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XtGetSelectionValuesIncremental", "list of Atom"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XtGetSelectionValuesIncremental", "int"); + Xen_check_type(Xen_is_procedure(arg5) && (Xen_is_aritable(arg5, 7)), arg5, 5, "XtGetSelectionValuesIncremental", "XtSelectionCallbackProc"); + Xen_check_type(Xen_is_Time(arg7), arg7, 7, "XtGetSelectionValuesIncremental", "Time"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg3, len); + xm_XtSelectionCallback_Descr = Xen_list_2(arg5, arg6); loc = xm_protect(xm_XtSelectionCallback_Descr); - XtGetSelectionValuesIncremental(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), outs, len, + XtGetSelectionValuesIncremental(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), outs, len, gxm_XtSelectionCallbackProc, - (XtPointer *)arg6, XEN_TO_C_Time(arg7)); + (XtPointer *)arg6, Xen_to_C_Time(arg7)); xm_unprotect_at(loc); free(outs); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtGetSelectionValueIncremental(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtGetSelectionValueIncremental(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtGetSelectionValueIncremental "void XtGetSelectionValueIncremental(w, selection, target, callback, client_data, time) is similar \ to XtGetSelectionValue except that the selection_callback procedure will be called repeatedly upon delivery of multiple segments of the selection value." int loc; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetSelectionValueIncremental", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtGetSelectionValueIncremental", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XtGetSelectionValueIncremental", "Atom"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 7)), arg4, 4, "XtGetSelectionValueIncremental", "XtSelectionCallbackProc"); - XEN_ASSERT_TYPE(XEN_Time_P(arg6), arg6, 6, "XtGetSelectionValueIncremental", "Time"); - xm_XtSelectionCallback_Descr = XEN_LIST_2(arg4, arg5); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetSelectionValueIncremental", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtGetSelectionValueIncremental", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XtGetSelectionValueIncremental", "Atom"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 7)), arg4, 4, "XtGetSelectionValueIncremental", "XtSelectionCallbackProc"); + Xen_check_type(Xen_is_Time(arg6), arg6, 6, "XtGetSelectionValueIncremental", "Time"); + xm_XtSelectionCallback_Descr = Xen_list_2(arg4, arg5); loc = xm_protect(xm_XtSelectionCallback_Descr); - XtGetSelectionValueIncremental(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), XEN_TO_C_Atom(arg3), + XtGetSelectionValueIncremental(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), Xen_to_C_Atom(arg3), gxm_XtSelectionCallbackProc, - (XtPointer)arg5, XEN_TO_C_Time(arg6)); + (XtPointer)arg5, Xen_to_C_Time(arg6)); xm_unprotect_at(loc); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtGetSelectionRequest(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtGetSelectionRequest(Xen arg1, Xen arg2, Xen arg3) { #define H_XtGetSelectionRequest "XSelectionRequestEvent* XtGetSelectionRequest(w, selection, request_id)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetSelectionRequest", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtGetSelectionRequest", "Atom"); - XEN_ASSERT_TYPE(XEN_XtRequestId_P(arg3), arg3, 3, "XtGetSelectionRequest", "XtRequestId"); - return(C_TO_XEN_XSelectionRequestEvent(XtGetSelectionRequest(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), XEN_TO_C_XtRequestId(arg3)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetSelectionRequest", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtGetSelectionRequest", "Atom"); + Xen_check_type(Xen_is_XtRequestId(arg3), arg3, 3, "XtGetSelectionRequest", "XtRequestId"); + return(C_to_Xen_XSelectionRequestEvent(XtGetSelectionRequest(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), Xen_to_C_XtRequestId(arg3)))); } -static XEN gxm_XtAppGetSelectionTimeout(XEN arg1) +static Xen gxm_XtAppGetSelectionTimeout(Xen arg1) { #define H_XtAppGetSelectionTimeout "unsigned long XtAppGetSelectionTimeout(app_context): returns the current selection timeout value, in milliseconds." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppGetSelectionTimeout", "XtAppContext"); - return(C_TO_XEN_ULONG(XtAppGetSelectionTimeout(XEN_TO_C_XtAppContext(arg1)))); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppGetSelectionTimeout", "XtAppContext"); + return(C_ulong_to_Xen_ulong(XtAppGetSelectionTimeout(Xen_to_C_XtAppContext(arg1)))); } -static XEN gxm_XtAppSetSelectionTimeout(XEN arg1, XEN arg2) +static Xen gxm_XtAppSetSelectionTimeout(Xen arg1, Xen arg2) { #define H_XtAppSetSelectionTimeout "void XtAppSetSelectionTimeout(app_context, timeout) sets the app's selection timeout mechanism." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppSetSelectionTimeout", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtAppSetSelectionTimeout", "ulong"); - XtAppSetSelectionTimeout(XEN_TO_C_XtAppContext(arg1), XEN_TO_C_ULONG(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppSetSelectionTimeout", "XtAppContext"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtAppSetSelectionTimeout", "ulong"); + XtAppSetSelectionTimeout(Xen_to_C_XtAppContext(arg1), Xen_ulong_to_C_ulong(arg2)); + return(Xen_false); } -static XEN gxm_XtGetSelectionValues(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XtGetSelectionValues(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XtGetSelectionValues "void XtGetSelectionValues(w, selection, targets, count, callback, client_data, time) is similar to \ XtGetSelectionValue except that it takes a list of target types and a list of client data and obtains the current value of the selection \ @@ -13874,56 +13598,56 @@ converted to each of the targets." */ Atom *outs; int len, loc; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetSelectionValues", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtGetSelectionValues", "Atom"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XtGetSelectionValues", "list of Atom"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XtGetSelectionValues", "int"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg5) && (XEN_REQUIRED_ARGS_OK(arg5, 7)), arg5, 5, "XtGetSelectionValues", "XtSelectionCallbackProc"); - XEN_ASSERT_TYPE(XEN_Time_P(arg7), arg7, 7, "XtGetSelectionValues", "Time"); - len = XEN_TO_C_INT(arg4); - if (len <= 0) return(XEN_FALSE); - outs = XEN_TO_C_Atoms(arg3, len); - xm_XtSelectionCallback_Descr = XEN_LIST_2(arg5, arg6); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetSelectionValues", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtGetSelectionValues", "Atom"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XtGetSelectionValues", "list of Atom"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XtGetSelectionValues", "int"); + Xen_check_type(Xen_is_procedure(arg5) && (Xen_is_aritable(arg5, 7)), arg5, 5, "XtGetSelectionValues", "XtSelectionCallbackProc"); + Xen_check_type(Xen_is_Time(arg7), arg7, 7, "XtGetSelectionValues", "Time"); + len = Xen_integer_to_C_int(arg4); + if (len <= 0) return(Xen_false); + outs = Xen_to_C_Atoms(arg3, len); + xm_XtSelectionCallback_Descr = Xen_list_2(arg5, arg6); loc = xm_protect(xm_XtSelectionCallback_Descr); - XtGetSelectionValues(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), outs, len, + XtGetSelectionValues(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), outs, len, gxm_XtSelectionCallbackProc, - (XtPointer *)arg6, XEN_TO_C_Time(arg7)); + (XtPointer *)arg6, Xen_to_C_Time(arg7)); xm_unprotect_at(loc); free(outs); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtGetSelectionValue(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtGetSelectionValue(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtGetSelectionValue "void XtGetSelectionValue(w, selection, target, callback, client_data, time) requests the value of the \ selection that has been converted to the target type. " int loc; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetSelectionValue", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtGetSelectionValue", "Atom"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg3), arg3, 3, "XtGetSelectionValue", "Atom"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 7)), arg4, 4, "XtGetSelectionValue", "XtSelectionCallbackProc"); - XEN_ASSERT_TYPE(XEN_Time_P(arg6), arg6, 6, "XtGetSelectionValue", "Time"); - xm_XtSelectionCallback_Descr = XEN_LIST_2(arg4, arg5); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetSelectionValue", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtGetSelectionValue", "Atom"); + Xen_check_type(Xen_is_Atom(arg3), arg3, 3, "XtGetSelectionValue", "Atom"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 7)), arg4, 4, "XtGetSelectionValue", "XtSelectionCallbackProc"); + Xen_check_type(Xen_is_Time(arg6), arg6, 6, "XtGetSelectionValue", "Time"); + xm_XtSelectionCallback_Descr = Xen_list_2(arg4, arg5); loc = xm_protect(xm_XtSelectionCallback_Descr); - XtGetSelectionValue(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), - XEN_TO_C_Atom(arg3), + XtGetSelectionValue(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), + Xen_to_C_Atom(arg3), gxm_XtSelectionCallbackProc, - (XtPointer)arg5, XEN_TO_C_Time(arg6)); + (XtPointer)arg5, Xen_to_C_Time(arg6)); xm_unprotect_at(loc); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtDisownSelection(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtDisownSelection(Xen arg1, Xen arg2, Xen arg3) { #define H_XtDisownSelection "void XtDisownSelection(w, selection, time) informs the selection mechanism that the specified widget is to \ lose ownership of the selection." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtDisownSelection", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtDisownSelection", "Atom"); - XEN_ASSERT_TYPE(XEN_Time_P(arg3), arg3, 3, "XtDisownSelection", "Time"); - XtDisownSelection(XEN_TO_C_Widget(arg1), XEN_TO_C_Atom(arg2), XEN_TO_C_Time(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtDisownSelection", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtDisownSelection", "Atom"); + Xen_check_type(Xen_is_Time(arg3), arg3, 3, "XtDisownSelection", "Time"); + XtDisownSelection(Xen_to_C_Widget(arg1), Xen_to_C_Atom(arg2), Xen_to_C_Time(arg3)); + return(Xen_false); } @@ -13931,35 +13655,35 @@ lose ownership of the selection." /* a "Substitution" is a list '(char substitute), so pass a list of such lists below where a substitution array is required */ -static XEN xm_filepredicate_proc; +static Xen xm_filepredicate_proc; static Boolean gxm_XtFilePredicate(String filename) { - return(XEN_TO_C_BOOLEAN(XEN_CALL_1(xm_filepredicate_proc, - C_TO_XEN_STRING(filename), - c__FUNCTION__))); + return(Xen_boolean_to_C_bool(Xen_call_with_1_arg(xm_filepredicate_proc, + C_string_to_Xen_string(filename), + __func__))); } -static SubstitutionRec *gxm_make_subs(XEN lst_1) +static SubstitutionRec *gxm_make_subs(Xen lst_1) { int len; SubstitutionRec *subs = NULL; - len = XEN_LIST_LENGTH(lst_1); + len = Xen_list_length(lst_1); if (len > 0) { int i; - XEN lst; - lst = XEN_COPY_ARG(lst_1); + Xen lst; + lst = Xen_copy_arg(lst_1); subs = (SubstitutionRec *)calloc(len, sizeof(SubstitutionRec)); - for (i = 0; i < len; i++, lst = XEN_CDR(lst)) + for (i = 0; i < len; i++, lst = Xen_cdr(lst)) { - if (!(XEN_LIST_P(XEN_CAR(lst)))) + if (!(Xen_is_list(Xen_car(lst)))) { free(subs); return(NULL); } - subs[i].match = XEN_TO_C_CHAR(XEN_CAR(XEN_CAR(lst))); - subs[i].substitution = xen_strdup(XEN_TO_C_STRING(XEN_CADR(XEN_CAR(lst)))); + subs[i].match = Xen_char_to_C_char(Xen_car(Xen_car(lst))); + subs[i].substitution = xen_strdup(Xen_string_to_C_string(Xen_cadr(Xen_car(lst)))); } } return(subs); @@ -13967,138 +13691,138 @@ static SubstitutionRec *gxm_make_subs(XEN lst_1) /* (XtFindFile "/lib/%N:/usr/lib/%N:/usr/local/lib/%N" (list (list #\N "libxm.so")) 1 file-exists?) */ -static XEN gxm_XtResolvePathname(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8) +static Xen gxm_XtResolvePathname(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8) { #define H_XtResolvePathname "String XtResolvePathname(display, type, filename, suffix, path, substitutions, num_substitutions, predicate)" /* DIFF: XtResolvePathname args use #f for NULL * (XtResolvePathname (XtDisplay (cadr (main-widgets))) "app-defaults" #f #f #f #f 0 #f) */ int arg8_loc = -1; - XEN res; + Xen res; char *str; SubstitutionRec *subs = NULL; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtResolvePathname", "Display*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg2) || XEN_STRING_P(arg2), arg2, 2, "XtResolvePathname", "char*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg3) || XEN_STRING_P(arg3), arg3, 3, "XtResolvePathname", "char*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg4) || XEN_STRING_P(arg4), arg4, 4, "XtResolvePathname", "char*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg5) || XEN_STRING_P(arg5), arg5, 5, "XtResolvePathname", "char*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg6) || XEN_LIST_P(arg6), arg6, 6, "XtResolvePathname", "Substitution list"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XtResolvePathname", "int"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg8) || - (XEN_PROCEDURE_P(arg8) && (XEN_REQUIRED_ARGS_OK(arg8, 1))), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtResolvePathname", "Display*"); + Xen_check_type(Xen_is_false(arg2) || Xen_is_string(arg2), arg2, 2, "XtResolvePathname", "char*"); + Xen_check_type(Xen_is_false(arg3) || Xen_is_string(arg3), arg3, 3, "XtResolvePathname", "char*"); + Xen_check_type(Xen_is_false(arg4) || Xen_is_string(arg4), arg4, 4, "XtResolvePathname", "char*"); + Xen_check_type(Xen_is_false(arg5) || Xen_is_string(arg5), arg5, 5, "XtResolvePathname", "char*"); + Xen_check_type(Xen_is_false(arg6) || Xen_is_list(arg6), arg6, 6, "XtResolvePathname", "Substitution list"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XtResolvePathname", "int"); + Xen_check_type(Xen_is_false(arg8) || + (Xen_is_procedure(arg8) && (Xen_is_aritable(arg8, 1))), arg8, 8, "XtResolvePathname", "XtFilePredicate (takes 1 arg)"); - if (XEN_LIST_P(arg6)) + if (Xen_is_list(arg6)) { - subs = gxm_make_subs(XEN_COPY_ARG(arg6)); - if (subs == NULL) return(XEN_FALSE); /* type error? */ + subs = gxm_make_subs(Xen_copy_arg(arg6)); + if (subs == NULL) return(Xen_false); /* type error? */ } - if (XEN_PROCEDURE_P(arg8)) + if (Xen_is_procedure(arg8)) { arg8_loc = xm_protect(arg8); xm_filepredicate_proc = arg8; } - str = XtResolvePathname(XEN_TO_C_Display(arg1), - (XEN_FALSE_P(arg2)) ? NULL : (char *)XEN_TO_C_STRING(arg2), - (XEN_FALSE_P(arg3)) ? NULL : (char *)XEN_TO_C_STRING(arg3), - (XEN_FALSE_P(arg4)) ? NULL : (char *)XEN_TO_C_STRING(arg4), - (XEN_FALSE_P(arg5)) ? NULL : (char *)XEN_TO_C_STRING(arg5), + str = XtResolvePathname(Xen_to_C_Display(arg1), + (Xen_is_false(arg2)) ? NULL : (char *)Xen_string_to_C_string(arg2), + (Xen_is_false(arg3)) ? NULL : (char *)Xen_string_to_C_string(arg3), + (Xen_is_false(arg4)) ? NULL : (char *)Xen_string_to_C_string(arg4), + (Xen_is_false(arg5)) ? NULL : (char *)Xen_string_to_C_string(arg5), subs, - XEN_TO_C_INT(arg7), - (XEN_FALSE_P(arg8)) ? NULL : gxm_XtFilePredicate); - if (XEN_PROCEDURE_P(arg8)) xm_unprotect_at(arg8_loc); + Xen_integer_to_C_int(arg7), + (Xen_is_false(arg8)) ? NULL : gxm_XtFilePredicate); + if (Xen_is_procedure(arg8)) xm_unprotect_at(arg8_loc); if (subs) { int i, len; - len = XEN_LIST_LENGTH(arg6); + len = Xen_list_length(arg6); for (i = 0; i < len; i++) if (subs[i].substitution) free(subs[i].substitution); free(subs); } - res = C_TO_XEN_STRING(str); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XtFindFile(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XtFindFile(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XtFindFile "String XtFindFile(path, substitutions, num_substitutions, predicate) \ searches for a file using substitutions in the path list" char *str; - XEN res; + Xen res; int arg4_loc = -1; SubstitutionRec *subs = NULL; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtFindFile", "char*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg2) || XEN_LIST_P(arg2), arg2, 2, "XtFindFile", "Substitution list"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XtFindFile", "int"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg4) || - (XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 1))), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtFindFile", "char*"); + Xen_check_type(Xen_is_false(arg2) || Xen_is_list(arg2), arg2, 2, "XtFindFile", "Substitution list"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XtFindFile", "int"); + Xen_check_type(Xen_is_false(arg4) || + (Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 1))), arg4, 4, "XtFindFile", "XtFilePredicate (takes 1 arg)"); - if (XEN_LIST_P(arg2)) + if (Xen_is_list(arg2)) { - subs = gxm_make_subs(XEN_COPY_ARG(arg2)); - if (subs == NULL) return(XEN_FALSE); /* type error? */ + subs = gxm_make_subs(Xen_copy_arg(arg2)); + if (subs == NULL) return(Xen_false); /* type error? */ } - if (XEN_PROCEDURE_P(arg4)) + if (Xen_is_procedure(arg4)) { arg4_loc = xm_protect(arg4); xm_filepredicate_proc = arg4; } - str = XtFindFile((char *)XEN_TO_C_STRING(arg1), + str = XtFindFile((char *)Xen_string_to_C_string(arg1), subs, - XEN_TO_C_INT(arg3), - (XEN_FALSE_P(arg4) ? NULL : gxm_XtFilePredicate)); - if (XEN_PROCEDURE_P(arg4)) xm_unprotect_at(arg4_loc); + Xen_integer_to_C_int(arg3), + (Xen_is_false(arg4) ? NULL : gxm_XtFilePredicate)); + if (Xen_is_procedure(arg4)) xm_unprotect_at(arg4_loc); if (subs) { int i, len; - len = XEN_LIST_LENGTH(arg2); + len = Xen_list_length(arg2); for (i = 0; i < len; i++) if (subs[i].substitution) free(subs[i].substitution); free(subs); } - res = C_TO_XEN_STRING(str); + res = C_string_to_Xen_string(str); if (str) XtFree(str); return(res); } -static XEN gxm_XtReleaseGC(XEN arg1, XEN arg2) +static Xen gxm_XtReleaseGC(Xen arg1, Xen arg2) { #define H_XtReleaseGC "void XtReleaseGC(w, gc) deallocate the specified shared GC." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtReleaseGC", "Widget"); - XEN_ASSERT_TYPE(XEN_GC_P(arg2), arg2, 2, "XtReleaseGC", "GC"); - XtReleaseGC(XEN_TO_C_Widget(arg1), XEN_TO_C_GC(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtReleaseGC", "Widget"); + Xen_check_type(Xen_is_GC(arg2), arg2, 2, "XtReleaseGC", "GC"); + XtReleaseGC(Xen_to_C_Widget(arg1), Xen_to_C_GC(arg2)); + return(Xen_false); } -static XEN gxm_XtDestroyGC(XEN arg1) +static Xen gxm_XtDestroyGC(Xen arg1) { #define H_XtDestroyGC "XtDestroyGC(gc) is obsolete -- use XtReleaseGC" - XEN_ASSERT_TYPE(XEN_GC_P(arg1), arg1, 1, "XtDestroyGC", "GC"); - XtDestroyGC(XEN_TO_C_GC(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_GC(arg1), arg1, 1, "XtDestroyGC", "GC"); + XtDestroyGC(Xen_to_C_GC(arg1)); + return(Xen_false); } -static XEN gxm_XtAllocateGC(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtAllocateGC(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtAllocateGC "GC XtAllocateGC(w, depth, value_mask, values, dynamic_mask, unused_mask): returns a sharable GC that may be modified by the client." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtAllocateGC", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XtAllocateGC", "int"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XtAllocateGC", "XtGCMask"); - XEN_ASSERT_TYPE(XEN_XGCValues_P(arg4), arg4, 4, "XtAllocateGC", "XGCValues*"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg5), arg5, 5, "XtAllocateGC", "XtGCMask"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg6), arg6, 6, "XtAllocateGC", "XtGCMask"); - return(C_TO_XEN_GC(XtAllocateGC(XEN_TO_C_Widget(arg1), XEN_TO_C_INT(arg2), - XEN_TO_C_ULONG(arg3), XEN_TO_C_XGCValues(arg4), - XEN_TO_C_ULONG(arg5), XEN_TO_C_ULONG(arg6)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtAllocateGC", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XtAllocateGC", "int"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XtAllocateGC", "XtGCMask"); + Xen_check_type(Xen_is_XGCValues(arg4), arg4, 4, "XtAllocateGC", "XGCValues*"); + Xen_check_type(Xen_is_ulong(arg5), arg5, 5, "XtAllocateGC", "XtGCMask"); + Xen_check_type(Xen_is_ulong(arg6), arg6, 6, "XtAllocateGC", "XtGCMask"); + return(C_to_Xen_GC(XtAllocateGC(Xen_to_C_Widget(arg1), Xen_integer_to_C_int(arg2), + Xen_ulong_to_C_ulong(arg3), Xen_to_C_XGCValues(arg4), + Xen_ulong_to_C_ulong(arg5), Xen_ulong_to_C_ulong(arg6)))); } -static XEN gxm_XtGetGC(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtGetGC(Xen arg1, Xen arg2, Xen arg3) { #define H_XtGetGC "GC XtGetGC(w, value_mask, values): returns a sharable, read-only GC." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetGC", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtGetGC", "XtGCMask"); - XEN_ASSERT_TYPE(XEN_XGCValues_P(arg3), arg3, 3, "XtGetGC", "XGCValues*"); - return(C_TO_XEN_GC(XtGetGC(XEN_TO_C_Widget(arg1), XEN_TO_C_ULONG(arg2), XEN_TO_C_XGCValues(arg3)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetGC", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtGetGC", "XtGCMask"); + Xen_check_type(Xen_is_XGCValues(arg3), arg3, 3, "XtGetGC", "XGCValues*"); + return(C_to_Xen_GC(XtGetGC(Xen_to_C_Widget(arg1), Xen_ulong_to_C_ulong(arg2), Xen_to_C_XGCValues(arg3)))); } @@ -14106,27 +13830,27 @@ static XEN gxm_XtGetGC(XEN arg1, XEN arg2, XEN arg3) /* (80) XtWorkProc called (protected) until quits or removed explicitly */ -#define C_TO_XEN_XM_Background(Code, Context) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("Background"), Code, Context, XEN_ZERO, XEN_ZERO) -#define XM_Background_P(Arg) WRAP_P("Background", Arg) +#define C_to_Xen_XM_Background(Code, Context) \ + Xen_list_5(C_string_to_Xen_symbol("Background"), Code, Context, Xen_integer_zero, Xen_integer_zero) +#define XM_is_Background(Arg) is_wrapped("Background", Arg) static Boolean gxm_XtWorkProc(XtPointer cdata) { /* if true, quits */ int val; - XEN descr = (XEN)cdata; + Xen descr = (Xen)cdata; /* (list 'Background function context gc-loc id) */ - val = XEN_TO_C_BOOLEAN(XEN_CALL_1(XEN_CADR(descr), - XEN_CADDR(descr), - c__FUNCTION__)); - if (val) xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(descr, 3))); + val = Xen_boolean_to_C_bool(Xen_call_with_1_arg(Xen_cadr(descr), + Xen_caddr(descr), + __func__)); + if (val) xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(descr, 3))); return(val); } -static bool unprotect_workproc(XEN val, int loc, unsigned long id) +static bool unprotect_workproc(Xen val, int loc, unsigned long id) { - if ((XM_Background_P(val)) && - ((XtWorkProcId)XEN_TO_C_ULONG(XEN_LIST_REF(val, 4)) == id)) + if ((XM_is_Background(val)) && + ((XtWorkProcId)Xen_ulong_to_C_ulong(Xen_list_ref(val, 4)) == id)) { xm_unprotect_at(loc); return(true); @@ -14134,129 +13858,158 @@ static bool unprotect_workproc(XEN val, int loc, unsigned long id) return(false); } -static XEN gxm_XtRemoveWorkProc(XEN arg1) +static Xen gxm_XtRemoveWorkProc(Xen arg1) { #define H_XtRemoveWorkProc "void XtRemoveWorkProc(id) explicitly removes the specified background work procedure." XtWorkProcId id; - XEN_ASSERT_TYPE(XEN_XtWorkProcId_P(arg1), arg1, 1, "XtRemoveWorkProc", "XtWorkProcId"); - id = XEN_TO_C_XtWorkProcId(arg1); + Xen_check_type(Xen_is_XtWorkProcId(arg1), arg1, 1, "XtRemoveWorkProc", "XtWorkProcId"); + id = Xen_to_C_XtWorkProcId(arg1); XtRemoveWorkProc(id); map_over_protected_elements(unprotect_workproc, id); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtAppAddWorkProc(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtAppAddWorkProc(Xen arg1, Xen arg2, Xen arg3) { #define H_XtAppAddWorkProc "XtWorkProcId XtAppAddWorkProc(app_context, proc, client_data) adds the specified work procedure for the \ application identified by app_context." XtWorkProcId id; int gc_loc; - XEN descr; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppAddWorkProc", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 1)), arg2, 2, "XtAppAddWorkProc", "(XtWorkProc data)"); + Xen descr; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppAddWorkProc", "XtAppContext"); + Xen_check_type(Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 1)), arg2, 2, "XtAppAddWorkProc", "(XtWorkProc data)"); - descr = C_TO_XEN_XM_Background(arg2, (XEN_BOUND_P(arg3)) ? arg3 : XEN_FALSE); + descr = C_to_Xen_XM_Background(arg2, (Xen_is_bound(arg3)) ? arg3 : Xen_false); gc_loc = xm_protect(descr); - id = XtAppAddWorkProc(XEN_TO_C_XtAppContext(arg1), + id = XtAppAddWorkProc(Xen_to_C_XtAppContext(arg1), gxm_XtWorkProc, (XtPointer)descr); - XEN_LIST_SET(descr, 3, C_TO_XEN_INT(gc_loc)); - XEN_LIST_SET(descr, 4, C_TO_XEN_ULONG(id)); - return(C_TO_XEN_XtWorkProcId(id)); + Xen_list_set(descr, 3, C_int_to_Xen_integer(gc_loc)); + Xen_list_set(descr, 4, C_ulong_to_Xen_ulong(id)); + return(C_to_Xen_XtWorkProcId(id)); } /* the next 4 are needed where the caller allocates a block of memory, but X frees it (XCreateImage) -- * can't use Scheme-allocated memory here etc */ -static XEN gxm_XtFree(XEN arg1) +static Xen gxm_XtFree(Xen arg1) { #define H_XtFree "void XtFree(ptr)" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, 1, "XtFree", "pointer"); - XtFree((char *)XEN_UNWRAP_C_POINTER(arg1)); - return(XEN_FALSE); + char *ptr; + + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "XtFree", "pointer"); + + ptr = (char *)Xen_unwrap_C_pointer(arg1); + if (ptr) XtFree(ptr); + return(Xen_false); } -static XEN gxm_XtRealloc(XEN arg1, XEN arg2) +static Xen gxm_XtRealloc(Xen arg1, Xen arg2) { #define H_XtRealloc "char *XtRealloc(ptr, num)" - XEN_ASSERT_TYPE(XEN_WRAPPED_C_POINTER_P(arg1), arg1, 1, "XtRealloc", "pointer"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XtRealloc", "int"); - return(C_TO_XEN_ULONG(XtRealloc((char *)XEN_UNWRAP_C_POINTER(arg1), XEN_TO_C_INT(arg2)))); + int num; + char *ptr; + + Xen_check_type(Xen_is_wrapped_c_pointer(arg1), arg1, 1, "XtRealloc", "pointer"); + ptr = (char *)Xen_unwrap_C_pointer(arg1); + if (!ptr) return(Xen_false); + + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XtRealloc", "int"); + num = Xen_integer_to_C_int(arg2); + if (num <= 0) + Xen_out_of_range_error("XtRealloc", 2, arg2, "num should be positive"); + + return(C_ulong_to_Xen_ulong(XtRealloc(ptr, num))); } -static XEN gxm_XtCalloc(XEN arg1, XEN arg2) +static Xen gxm_XtCalloc(Xen arg1, Xen arg2) { #define H_XtCalloc "char *XtCalloc(num, size)" - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 1, "XtCalloc", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XtCalloc", "int"); - return(XEN_WRAP_C_POINTER(XtCalloc(XEN_TO_C_INT(arg1), XEN_TO_C_INT(arg2)))); + int num, size; + + Xen_check_type(Xen_is_integer(arg1), arg1, 1, "XtCalloc", "int"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XtCalloc", "int"); + num = Xen_integer_to_C_int(arg1); + if (num <= 0) + Xen_out_of_range_error("XtCalloc", 1, arg1, "num should be positive"); + size = Xen_integer_to_C_int(arg2); + if (size <= 0) + Xen_out_of_range_error("XtCalloc", 2, arg2, "size should be positive"); + + return(Xen_wrap_C_pointer(XtCalloc(num, size))); /* dumb thing simply exits the main program on error! */ } -static XEN gxm_XtMalloc(XEN arg1) +static Xen gxm_XtMalloc(Xen arg1) { #define H_XtMalloc "char *XtMalloc(size)" - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg1), arg1, 1, "XtMalloc", "int"); - return(XEN_WRAP_C_POINTER(XtMalloc(XEN_TO_C_INT(arg1)))); + int size; + + Xen_check_type(Xen_is_integer(arg1), arg1, 1, "XtMalloc", "int"); + size = Xen_integer_to_C_int(arg1); + if (size <= 0) + Xen_out_of_range_error("XtMalloc", 1, arg1, "size should be positive"); + + return(Xen_wrap_C_pointer(XtMalloc(size))); } -static XEN xm_XtErrorHandler; -static XEN xm_XtWarningHandler; +static Xen xm_XtErrorHandler; +static Xen xm_XtWarningHandler; static void gxm_XtErrorHandler(String msg) { - if (XEN_PROCEDURE_P(xm_XtErrorHandler)) - XEN_CALL_1(xm_XtErrorHandler, - C_TO_XEN_STRING(msg), - c__FUNCTION__); + if (Xen_is_procedure(xm_XtErrorHandler)) + Xen_call_with_1_arg(xm_XtErrorHandler, + C_string_to_Xen_string(msg), + __func__); } -static XEN gxm_XtAppSetErrorHandler(XEN arg1, XEN arg2) +static Xen gxm_XtAppSetErrorHandler(Xen arg1, Xen arg2) { #define H_XtAppSetErrorHandler "void XtAppSetErrorHandler(app_context, handler) registers the specified procedure, which is called when \ a fatal error condition occurs." - XEN old_val; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppSetErrorHandler", "XtAppContext"); + Xen old_val; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppSetErrorHandler", "XtAppContext"); old_val = xm_XtErrorHandler; xm_protect(arg2); xm_XtErrorHandler = arg2; - XtAppSetErrorHandler(XEN_TO_C_XtAppContext(arg1), gxm_XtErrorHandler); - if (XEN_PROCEDURE_P(old_val)) xm_unprotect(old_val); + XtAppSetErrorHandler(Xen_to_C_XtAppContext(arg1), gxm_XtErrorHandler); + if (Xen_is_procedure(old_val)) xm_unprotect(old_val); return(old_val); } static void gxm_XtWarningHandler(String msg) { - if (XEN_PROCEDURE_P(xm_XtWarningHandler)) - XEN_CALL_1(xm_XtWarningHandler, - C_TO_XEN_STRING(msg), - c__FUNCTION__); + if (Xen_is_procedure(xm_XtWarningHandler)) + Xen_call_with_1_arg(xm_XtWarningHandler, + C_string_to_Xen_string(msg), + __func__); } -static XEN gxm_XtAppSetWarningHandler(XEN arg1, XEN arg2) +static Xen gxm_XtAppSetWarningHandler(Xen arg1, Xen arg2) { #define H_XtAppSetWarningHandler "void XtAppSetWarningHandler(app_context, handler) registers the specified procedure, which is called \ when a nonfatal error condition occurs." - XEN old_val; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppSetWarningHandler", "XtAppContext"); + Xen old_val; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppSetWarningHandler", "XtAppContext"); old_val = xm_XtWarningHandler; xm_protect(arg2); xm_XtWarningHandler = arg2; - XtAppSetWarningHandler(XEN_TO_C_XtAppContext(arg1), gxm_XtWarningHandler); - if (XEN_PROCEDURE_P(old_val)) xm_unprotect(old_val); + XtAppSetWarningHandler(Xen_to_C_XtAppContext(arg1), gxm_XtWarningHandler); + if (Xen_is_procedure(old_val)) xm_unprotect(old_val); return(old_val); } -static XEN gxm_XtAppError(XEN arg1, XEN arg2) +static Xen gxm_XtAppError(Xen arg1, Xen arg2) { #define H_XtAppError "void XtAppError(app_context, message) calls the installed error procedure and passes the specified message." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppError", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtAppError", "char*"); - XtAppError(XEN_TO_C_XtAppContext(arg1), (char *)XEN_TO_C_STRING(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppError", "XtAppContext"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtAppError", "char*"); + XtAppError(Xen_to_C_XtAppContext(arg1), (char *)Xen_string_to_C_string(arg2)); + return(Xen_false); } -static XEN gxm_XtAppWarningMsg(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XtAppWarningMsg(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XtAppWarningMsg "void XtAppWarningMsg(app_context, name, type, class, default, params, num_params) calls the high-level error \ handler and passes the specified information." @@ -14265,25 +14018,25 @@ handler and passes the specified information." int size; Cardinal csize; char **pars; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppWarningMsg", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtAppWarningMsg", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XtAppWarningMsg", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XtAppWarningMsg", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg5), arg5, 5, "XtAppWarningMsg", "char*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg6), arg6, 6, "XtAppWarningMsg", "list of String"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XtAppWarningMsg", "int"); - size = XEN_TO_C_INT(arg7); - if (size <= 0) return(XEN_FALSE); - pars = XEN_TO_C_Strings(arg6, size); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppWarningMsg", "XtAppContext"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtAppWarningMsg", "char*"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XtAppWarningMsg", "char*"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XtAppWarningMsg", "char*"); + Xen_check_type(Xen_is_string(arg5), arg5, 5, "XtAppWarningMsg", "char*"); + Xen_check_type(Xen_is_list(arg6), arg6, 6, "XtAppWarningMsg", "list of String"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XtAppWarningMsg", "int"); + size = Xen_integer_to_C_int(arg7); + if (size <= 0) return(Xen_false); + pars = Xen_to_C_Strings(arg6, size); csize = (Cardinal)size; - XtAppWarningMsg(XEN_TO_C_XtAppContext(arg1), (char *)XEN_TO_C_STRING(arg2), - (char *)XEN_TO_C_STRING(arg3), (char *)XEN_TO_C_STRING(arg4), (char *)XEN_TO_C_STRING(arg5), + XtAppWarningMsg(Xen_to_C_XtAppContext(arg1), (char *)Xen_string_to_C_string(arg2), + (char *)Xen_string_to_C_string(arg3), (char *)Xen_string_to_C_string(arg4), (char *)Xen_string_to_C_string(arg5), pars, &csize); free(pars); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtAppErrorMsg(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7) +static Xen gxm_XtAppErrorMsg(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7) { #define H_XtAppErrorMsg "void XtAppErrorMsg(app_context, name, type, class, default, params, num_params) calls the high-level error \ handler and passes the specified information." @@ -14292,62 +14045,62 @@ handler and passes the specified information." int size; Cardinal csize; char **pars; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppErrorMsg", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtAppErrorMsg", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XtAppErrorMsg", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XtAppErrorMsg", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg5), arg5, 5, "XtAppErrorMsg", "char*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg6), arg6, 6, "XtAppErrorMsg", "list of String"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 7, "XtAppErrorMsg", "int"); - size = XEN_TO_C_INT(arg7); - if (size <= 0) return(XEN_FALSE); - pars = XEN_TO_C_Strings(arg6, size); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppErrorMsg", "XtAppContext"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtAppErrorMsg", "char*"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XtAppErrorMsg", "char*"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XtAppErrorMsg", "char*"); + Xen_check_type(Xen_is_string(arg5), arg5, 5, "XtAppErrorMsg", "char*"); + Xen_check_type(Xen_is_list(arg6), arg6, 6, "XtAppErrorMsg", "list of String"); + Xen_check_type(Xen_is_integer(arg7), arg7, 7, "XtAppErrorMsg", "int"); + size = Xen_integer_to_C_int(arg7); + if (size <= 0) return(Xen_false); + pars = Xen_to_C_Strings(arg6, size); csize = (Cardinal)size; - XtAppErrorMsg(XEN_TO_C_XtAppContext(arg1), (char *)XEN_TO_C_STRING(arg2), - (char *)XEN_TO_C_STRING(arg3), (char *)XEN_TO_C_STRING(arg4), - (char *)XEN_TO_C_STRING(arg5), pars, &csize); + XtAppErrorMsg(Xen_to_C_XtAppContext(arg1), (char *)Xen_string_to_C_string(arg2), + (char *)Xen_string_to_C_string(arg3), (char *)Xen_string_to_C_string(arg4), + (char *)Xen_string_to_C_string(arg5), pars, &csize); free(pars); - return(XEN_FALSE); + return(Xen_false); } -static XEN xm_XtErrorMsgHandler; -static XEN xm_XtWarningMsgHandler; +static Xen xm_XtErrorMsgHandler; +static Xen xm_XtWarningMsgHandler; static void gxm_XtErrorMsgHandler(String name, String type, String clas, String defp, String *pars, Cardinal *num) { /* DIFF: XtErrorMsgHandler takes list of string pars */ - if ((XEN_PROCEDURE_P(xm_XtErrorMsgHandler)) && (num) && ((pars) || (*num == 0))) + if ((Xen_is_procedure(xm_XtErrorMsgHandler)) && (num) && ((pars) || (*num == 0))) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; int i, len, loc; loc = xm_protect(lst); len = (*num); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(pars[i]), lst); - XEN_CALL_6(xm_XtErrorMsgHandler, - C_TO_XEN_STRING(name), - C_TO_XEN_STRING(type), - C_TO_XEN_STRING(clas), - C_TO_XEN_STRING(defp), + lst = Xen_cons(C_string_to_Xen_string(pars[i]), lst); + Xen_call_with_6_args(xm_XtErrorMsgHandler, + C_string_to_Xen_string(name), + C_string_to_Xen_string(type), + C_string_to_Xen_string(clas), + C_string_to_Xen_string(defp), lst, - C_TO_XEN_INT(*num), - c__FUNCTION__); + C_int_to_Xen_integer(*num), + __func__); xm_unprotect_at(loc); } } -static XEN gxm_XtAppSetErrorMsgHandler(XEN arg1, XEN arg2) +static Xen gxm_XtAppSetErrorMsgHandler(Xen arg1, Xen arg2) { #define H_XtAppSetErrorMsgHandler "void XtAppSetErrorMsgHandler(app_context, msg_handler) registers the specified procedure, which is called \ when a fatal error occurs." - XEN old_val; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppSetErrorMsgHandler", "XtAppContext"); + Xen old_val; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppSetErrorMsgHandler", "XtAppContext"); old_val = xm_XtErrorMsgHandler; xm_protect(arg2); xm_XtErrorMsgHandler = arg2; - XtAppSetErrorMsgHandler(XEN_TO_C_XtAppContext(arg1), gxm_XtErrorMsgHandler); - if (XEN_PROCEDURE_P(old_val)) xm_unprotect(old_val); + XtAppSetErrorMsgHandler(Xen_to_C_XtAppContext(arg1), gxm_XtErrorMsgHandler); + if (Xen_is_procedure(old_val)) xm_unprotect(old_val); return(old_val); } @@ -14356,41 +14109,41 @@ static void gxm_XtWarningMsgHandler(String name, String type, String clas, Strin { /* DIFF: XtWarningMsgHandler takes list of string pars */ - if ((XEN_PROCEDURE_P(xm_XtWarningMsgHandler)) && (num) && ((pars) || (*num == 0))) + if ((Xen_is_procedure(xm_XtWarningMsgHandler)) && (num) && ((pars) || (*num == 0))) { - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; int i, len, loc; loc = xm_protect(lst); len = (*num); for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(pars[i]), lst); - XEN_CALL_6(xm_XtWarningMsgHandler, - C_TO_XEN_STRING(name), - C_TO_XEN_STRING(type), - C_TO_XEN_STRING(clas), - C_TO_XEN_STRING(defp), + lst = Xen_cons(C_string_to_Xen_string(pars[i]), lst); + Xen_call_with_6_args(xm_XtWarningMsgHandler, + C_string_to_Xen_string(name), + C_string_to_Xen_string(type), + C_string_to_Xen_string(clas), + C_string_to_Xen_string(defp), lst, - C_TO_XEN_INT(*num), - c__FUNCTION__); + C_int_to_Xen_integer(*num), + __func__); xm_unprotect_at(loc); } } -static XEN gxm_XtAppSetWarningMsgHandler(XEN arg1, XEN arg2) +static Xen gxm_XtAppSetWarningMsgHandler(Xen arg1, Xen arg2) { #define H_XtAppSetWarningMsgHandler "void XtAppSetWarningMsgHandler(app_context, msg_handler) registers the specified procedure, which \ is called when a nonfatal error condition occurs." - XEN old_val; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppSetWarningMsgHandler", "XtAppContext"); + Xen old_val; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppSetWarningMsgHandler", "XtAppContext"); old_val = xm_XtWarningMsgHandler; xm_protect(arg2); xm_XtWarningMsgHandler = arg2; - XtAppSetWarningMsgHandler(XEN_TO_C_XtAppContext(arg1), gxm_XtWarningMsgHandler); - if (XEN_PROCEDURE_P(old_val)) xm_unprotect(old_val); + XtAppSetWarningMsgHandler(Xen_to_C_XtAppContext(arg1), gxm_XtWarningMsgHandler); + if (Xen_is_procedure(old_val)) xm_unprotect(old_val); return(old_val); } -static XEN gxm_XtGetValues(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtGetValues(Xen arg1, Xen arg2, Xen arg3) { #define H_XtGetValues "void XtGetValues(Widget w, ArgList args, Cardinal num_args): returns the values of the \ resources specified for the widget w. In xm, 'args' is a list of resource names followed by a placeholder \ @@ -14399,34 +14152,34 @@ of a widget, (" XM_PREFIX "XtGetValues" XM_POSTFIX " w (list " XM_PREFIX "XmNhei " XM_PREFIX "XmNwidth" XM_POSTFIX " 0)) which returns the list with the values filled in: (list height 123 \ width 321). If the resource value is an array in C, it is returned as a list." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetValues", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XtGetValues", "List"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XtGetValues", "int"); - return(gxm_XtGetValues_1(arg1, arg2, XEN_TO_C_INT_DEF(arg3, arg2))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetValues", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XtGetValues", "List"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XtGetValues", "int"); + return(gxm_XtGetValues_1(arg1, arg2, Xen_to_C_INT_DEF(arg3, arg2))); } -static XEN gxm_XtVaGetValues(XEN arg1, XEN arg2) +static Xen gxm_XtVaGetValues(Xen arg1, Xen arg2) { #define H_XtVaGetValues "void XtVaGetValues(w, ...) in xm is the same as XtGetValues." /* DIFF: XtVaGetValues -> returns original list with vals in place */ - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtVaGetValues", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XtVaGetValues", "List"); - return(gxm_XtGetValues_1(arg1, arg2, XEN_LIST_LENGTH(arg2) / 2)); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtVaGetValues", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XtVaGetValues", "List"); + return(gxm_XtGetValues_1(arg1, arg2, Xen_list_length(arg2) / 2)); } -static XEN gxm_XtVaSetValues(XEN arg1, XEN arg2) +static Xen gxm_XtVaSetValues(Xen arg1, Xen arg2) { #define H_XtVaSetValues "void XtVaSetValues(w, ...) in xm is the same as XtSetValues." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtVaSetValues", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XtVaSetValues", "List"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtVaSetValues", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XtVaSetValues", "List"); { Widget w; Arg *args; int arglen; - args = XEN_TO_C_Args(arg2); - w = XEN_TO_C_Widget(arg1); - arglen = XEN_LIST_LENGTH(arg2) / 2; + args = Xen_to_C_Args(arg2); + w = Xen_to_C_Widget(arg1); + arglen = Xen_list_length(arg2) / 2; XtSetValues(w, args, arglen); if (args) { @@ -14434,10 +14187,10 @@ static XEN gxm_XtVaSetValues(XEN arg1, XEN arg2) free_args(args, arglen); } } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtSetValues(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtSetValues(Xen arg1, Xen arg2, Xen arg3) { #define H_XtSetValues "void XtSetValues(Widget w, ArgList args, Cardinal num_args) sets the values of the \ resources specified for the widget w. In xm, 'args' is a list of resource names followed by the new value, \ @@ -14445,16 +14198,16 @@ and the length of the arglist is optional. For example, to set the current heig of a widget, (" XM_PREFIX "XtSetValues" XM_POSTFIX " w (list " XM_PREFIX "XmNheight" XM_POSTFIX " 123 \ " XM_PREFIX "XmNwidth" XM_POSTFIX " 321)). If the resource value in C is an array, it is a list in xm." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtSetValues", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XtSetValues", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg3), arg3, 3, "XtSetValues", "int"); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtSetValues", "Widget"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XtSetValues", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg3), arg3, 3, "XtSetValues", "int"); { Arg *args; int arglen; Widget w; - w = XEN_TO_C_Widget(arg1); - args = XEN_TO_C_Args(arg2); - arglen = XEN_TO_C_INT_DEF(arg3, arg2); + w = Xen_to_C_Widget(arg1); + args = Xen_to_C_Args(arg2); + arglen = Xen_to_C_INT_DEF(arg3, arg2); XtSetValues(w, args, arglen); if (args) { @@ -14462,66 +14215,66 @@ of a widget, (" XM_PREFIX "XtSetValues" XM_POSTFIX " w (list " XM_PREFIX "XmNhei free_args(args, arglen); } } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtCloseDisplay(XEN arg1) +static Xen gxm_XtCloseDisplay(Xen arg1) { #define H_XtCloseDisplay "void XtCloseDisplay(display) closes the specified display as soon as it is safe to do so." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtCloseDisplay", "Display*"); - XtCloseDisplay(XEN_TO_C_Display(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtCloseDisplay", "Display*"); + XtCloseDisplay(Xen_to_C_Display(arg1)); + return(Xen_false); } -static XEN gxm_XtDisplayToApplicationContext(XEN arg1) +static Xen gxm_XtDisplayToApplicationContext(Xen arg1) { #define H_XtDisplayToApplicationContext "XtAppContext XtDisplayToApplicationContext(dpy): returns the application context for the specified display." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtDisplayToApplicationContext", "Display*"); - return(C_TO_XEN_XtAppContext(XtDisplayToApplicationContext(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtDisplayToApplicationContext", "Display*"); + return(C_to_Xen_XtAppContext(XtDisplayToApplicationContext(Xen_to_C_Display(arg1)))); } -static XEN gxm_XtWidgetToApplicationContext(XEN arg1) +static Xen gxm_XtWidgetToApplicationContext(Xen arg1) { #define H_XtWidgetToApplicationContext "XtAppContext XtWidgetToApplicationContext(w): returns the application context for the specified widget." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtWidgetToApplicationContext", "Widget"); - return(C_TO_XEN_XtAppContext(XtWidgetToApplicationContext(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtWidgetToApplicationContext", "Widget"); + return(C_to_Xen_XtAppContext(XtWidgetToApplicationContext(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtInitializeWidgetClass(XEN arg1) +static Xen gxm_XtInitializeWidgetClass(Xen arg1) { #define H_XtInitializeWidgetClass "void XtInitializeWidgetClass(object_class)" - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg1), arg1, 1, "XtInitializeWidgetClass", "WidgetClass"); - XtInitializeWidgetClass(XEN_TO_C_WidgetClass(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_WidgetClass(arg1), arg1, 1, "XtInitializeWidgetClass", "WidgetClass"); + XtInitializeWidgetClass(Xen_to_C_WidgetClass(arg1)); + return(Xen_false); } -static XEN gxm_XtDestroyApplicationContext(XEN arg1) +static Xen gxm_XtDestroyApplicationContext(Xen arg1) { #define H_XtDestroyApplicationContext "void XtDestroyApplicationContext(app_context) destroys the specified application context as soon as it is safe to do so." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtDestroyApplicationContext", "XtAppContext"); - XtDestroyApplicationContext(XEN_TO_C_XtAppContext(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtDestroyApplicationContext", "XtAppContext"); + XtDestroyApplicationContext(Xen_to_C_XtAppContext(arg1)); + return(Xen_false); } -static XEN gxm_XtCreateApplicationContext(void) +static Xen gxm_XtCreateApplicationContext(void) { #define H_XtCreateApplicationContext "XtAppContext XtCreateApplicationContext()" - return(C_TO_XEN_XtAppContext(XtCreateApplicationContext())); + return(C_to_Xen_XtAppContext(XtCreateApplicationContext())); } -static XEN gxm_argv_to_list(XEN lst, int argc, char **argv) +static Xen gxm_argv_to_list(Xen lst, int argc, char **argv) { int i, loc; if (argc == 0) return(lst); loc = xm_protect(lst); for (i = argc - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_STRING(argv[i]), lst); + lst = Xen_cons(C_string_to_Xen_string(argv[i]), lst); free(argv); xm_unprotect_at(loc); return(lst); } -static XEN gxm_XtOpenDisplay(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg7, XEN arg8) +static Xen gxm_XtOpenDisplay(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg7, Xen arg8) { #define H_XtOpenDisplay "Display *XtOpenDisplay(app_context, display_string, application_name, application_class, argc, argv) \ calls XOpenDisplay the specified display name." @@ -14529,48 +14282,48 @@ calls XOpenDisplay the specified display name." */ char **argv = NULL; int argc; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; Display *dpy; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtOpenDisplay", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2) || XEN_FALSE_P(arg2), arg2, 2, "XtOpenDisplay", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XtOpenDisplay", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XtOpenDisplay", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 5, "XtOpenDisplay", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg8), arg8, 6, "XtOpenDisplay", "list of char*"); - argc = XEN_TO_C_INT(arg7); - if (XEN_LIST_LENGTH(arg8) != argc) return(XEN_FALSE); /* error? */ - if (argc > 0) argv = XEN_TO_C_Strings(arg8, argc); - dpy = XtOpenDisplay(XEN_TO_C_XtAppContext(arg1), - (XEN_FALSE_P(arg2)) ? NULL : (char *)XEN_TO_C_STRING(arg2), - (char *)XEN_TO_C_STRING(arg3), - (char *)XEN_TO_C_STRING(arg4), + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtOpenDisplay", "XtAppContext"); + Xen_check_type(Xen_is_string(arg2) || Xen_is_false(arg2), arg2, 2, "XtOpenDisplay", "char*"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XtOpenDisplay", "char*"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XtOpenDisplay", "char*"); + Xen_check_type(Xen_is_integer(arg7), arg7, 5, "XtOpenDisplay", "int"); + Xen_check_type(Xen_is_list(arg8), arg8, 6, "XtOpenDisplay", "list of char*"); + argc = Xen_integer_to_C_int(arg7); + if (Xen_list_length(arg8) != argc) return(Xen_false); /* error? */ + if (argc > 0) argv = Xen_to_C_Strings(arg8, argc); + dpy = XtOpenDisplay(Xen_to_C_XtAppContext(arg1), + (Xen_is_false(arg2)) ? NULL : (char *)Xen_string_to_C_string(arg2), + (char *)Xen_string_to_C_string(arg3), + (char *)Xen_string_to_C_string(arg4), NULL, 0, &argc, argv); if (dpy) - lst = XEN_CONS(C_TO_XEN_Display(dpy), lst); - else lst = XEN_CONS(XEN_FALSE, lst); + lst = Xen_cons(C_to_Xen_Display(dpy), lst); + else lst = Xen_cons(Xen_false, lst); return(gxm_argv_to_list(lst, argc, argv)); } -static XEN gxm_XtAppSetFallbackResources(XEN app, XEN specs) +static Xen gxm_XtAppSetFallbackResources(Xen app, Xen specs) { #define H_XtAppSetFallbackResources "XtAppSetFallbackResources(app, list-of-strings) sets the app's default resource values \ from the list of strings" char **fallbacks; int i, len; - XEN lst; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(app), app, 1, "XtAppSetFallbackResources", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_LIST_P(specs), specs, 2, "XtAppSetFallbackResources", "list of char*"); - len = XEN_LIST_LENGTH(specs); - lst = XEN_COPY_ARG(specs); + Xen lst; + Xen_check_type(Xen_is_XtAppContext(app), app, 1, "XtAppSetFallbackResources", "XtAppContext"); + Xen_check_type(Xen_is_list(specs), specs, 2, "XtAppSetFallbackResources", "list of char*"); + len = Xen_list_length(specs); + lst = Xen_copy_arg(specs); fallbacks = (char **)calloc(len + 1, sizeof(char *)); /* +1 for null termination */ - for (i = 0; i < len; i++, lst = XEN_CDR(lst)) - fallbacks[i] = (char *)XEN_TO_C_STRING(XEN_CAR(lst)); - XtAppSetFallbackResources(XEN_TO_C_XtAppContext(app), fallbacks); + for (i = 0; i < len; i++, lst = Xen_cdr(lst)) + fallbacks[i] = (char *)Xen_string_to_C_string(Xen_car(lst)); + XtAppSetFallbackResources(Xen_to_C_XtAppContext(app), fallbacks); free(fallbacks); return(app); } -static XEN gxm_XtVaAppInitialize(XEN arg2, XEN arg5, XEN arg6, XEN arg8, XEN specs) +static Xen gxm_XtVaAppInitialize(Xen arg2, Xen arg5, Xen arg6, Xen arg8, Xen specs) { #define H_XtVaAppInitialize "Widget XtVaAppInitialize(application_class, argc_in_out, argv_in_out, args, fallbacks) -- the order \ of the arguments is slightly different from the C Xt call. The final arg is an (optional) list of strings." @@ -14584,30 +14337,39 @@ of the arguments is slightly different from the C Xt call. The final arg is an int i, len = 0, argc, arglen; char **argv = NULL; char **fallbacks = NULL; - XEN lst; - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 1, "XtVaAppInitialize", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 2, "XtVaAppInitialize", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg6), arg6, 3, "XtVaAppInitialize", "list of String"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg8), arg8, 4, "XtVaAppInitialize", "arg list"); - XEN_ASSERT_TYPE(XEN_LIST_P(specs) || XEN_NOT_BOUND_P(specs), specs, 5, "XtVaAppInitialize", "list of char*"); - argc = XEN_TO_C_INT(arg5); - if (XEN_LIST_LENGTH(arg6) != argc) return(XEN_FALSE); /* error? */ - if (argc > 0) argv = XEN_TO_C_Strings(arg6, argc); - if (XEN_LIST_P(specs)) + Xen_check_type(Xen_is_string(arg2), arg2, 1, "XtVaAppInitialize", "char*"); + Xen_check_type(Xen_is_integer(arg5), arg5, 2, "XtVaAppInitialize", "int"); + Xen_check_type(Xen_is_list(arg6), arg6, 3, "XtVaAppInitialize", "list of String"); + Xen_check_type(Xen_is_list(arg8), arg8, 4, "XtVaAppInitialize", "arg list"); + Xen_check_type(Xen_is_list(specs) || !Xen_is_bound(specs), specs, 5, "XtVaAppInitialize", "list of char*"); + argc = Xen_integer_to_C_int(arg5); + if (Xen_list_length(arg6) != argc) return(Xen_false); /* error? */ + if (argc > 0) argv = Xen_to_C_Strings(arg6, argc); + if (Xen_is_list(specs)) { + Xen lst; int gcloc; - len = XEN_LIST_LENGTH(specs); - lst = XEN_COPY_ARG(specs); + len = Xen_list_length(specs); + if (len <= 0) return(Xen_false); + lst = Xen_copy_arg(specs); gcloc = xm_protect(lst); fallbacks = (char **)calloc(len + 1, sizeof(char *)); /* +1 for null termination */ - for (i = 0; i < len; i++, lst = XEN_CDR(lst)) - fallbacks[i] = xen_strdup(XEN_TO_C_STRING(XEN_CAR(lst))); + for (i = 0; i < len; i++, lst = Xen_cdr(lst)) + { + if (!Xen_is_string(Xen_car(lst))) + { + free(fallbacks); + xm_unprotect_at(gcloc); + return(Xen_false); + } + fallbacks[i] = xen_strdup(Xen_string_to_C_string(Xen_car(lst))); + } xm_unprotect_at(gcloc); } - args = XEN_TO_C_Args(arg8); - arglen = XEN_LIST_LENGTH(arg8) / 2; + args = Xen_to_C_Args(arg8); + arglen = Xen_list_length(arg8) / 2; res = XtAppInitialize(&app, - (char *)XEN_TO_C_STRING(arg2), + (char *)Xen_string_to_C_string(arg2), NULL, 0, &argc, @@ -14626,13 +14388,13 @@ of the arguments is slightly different from the C Xt call. The final arg is an if (fallbacks[i]) free(fallbacks[i]); free(fallbacks); } - return(XEN_LIST_3(C_TO_XEN_Widget(res), - C_TO_XEN_XtAppContext(app), - gxm_argv_to_list(XEN_EMPTY_LIST, argc, argv))); + return(Xen_list_3(C_to_Xen_Widget(res), + C_to_Xen_XtAppContext(app), + gxm_argv_to_list(Xen_empty_list, argc, argv))); } -static XEN gxm_XtAppInitialize(XEN arg2, XEN arg5, XEN arg6, XEN arg8, XEN arg9) +static Xen gxm_XtAppInitialize(Xen arg2, Xen arg5, Xen arg6, Xen arg8, Xen arg9) { #define H_XtAppInitialize "Widget XtAppInitialize(application_class, argc_in_out, argv_in_out, \ args, num_args) calls XtToolkitInitialize followed by XtCreateApplicationContext ,then calls XtOpenDisplay with \ @@ -14649,30 +14411,30 @@ and the specified args and num_args and returns the created shell. The num_args char **argv = NULL; char **fallbacks = NULL; int i, len = 0; - XEN lst; - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 1, "XtAppInitialize", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 2, "XtAppInitialize", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg6), arg6, 3, "XtAppInitialize", "list of String*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg8), arg8, 4, "XtAppInitialize", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9) || XEN_LIST_P(arg9) || XEN_NOT_BOUND_P(arg9), arg9, 5, "XtAppInitialize", "int or list of strings"); /* num_args */ - argc = XEN_TO_C_INT(arg5); - if (XEN_LIST_LENGTH(arg6) != argc) return(XEN_FALSE); /* error? */ - if (argc > 0) argv = XEN_TO_C_Strings(arg6, argc); - args = XEN_TO_C_Args(arg8); - if (XEN_INTEGER_P(arg9)) arglen = XEN_TO_C_INT(arg9); else arglen = XEN_LIST_LENGTH(arg8) / 2; - if (XEN_LIST_P(arg9)) + Xen_check_type(Xen_is_string(arg2), arg2, 1, "XtAppInitialize", "char*"); + Xen_check_type(Xen_is_integer(arg5), arg5, 2, "XtAppInitialize", "int"); + Xen_check_type(Xen_is_list(arg6), arg6, 3, "XtAppInitialize", "list of String*"); + Xen_check_type(Xen_is_list(arg8), arg8, 4, "XtAppInitialize", "ArgList"); + Xen_check_type(Xen_is_integer(arg9) || Xen_is_list(arg9) || !Xen_is_bound(arg9), arg9, 5, "XtAppInitialize", "int or list of strings"); /* num_args */ + argc = Xen_integer_to_C_int(arg5); + if (Xen_list_length(arg6) != argc) return(Xen_false); /* error? */ + if (argc > 0) argv = Xen_to_C_Strings(arg6, argc); + args = Xen_to_C_Args(arg8); + if (Xen_is_integer(arg9)) arglen = Xen_integer_to_C_int(arg9); else arglen = Xen_list_length(arg8) / 2; + if (Xen_is_list(arg9)) { + Xen lst; int gcloc; - len = XEN_LIST_LENGTH(arg9); - lst = XEN_COPY_ARG(arg9); + len = Xen_list_length(arg9); + lst = Xen_copy_arg(arg9); gcloc = xm_protect(lst); fallbacks = (char **)calloc(len + 1, sizeof(char *)); /* +1 for null termination */ - for (i = 0; i < len; i++, lst = XEN_CDR(lst)) - fallbacks[i] = xen_strdup(XEN_TO_C_STRING(XEN_CAR(lst))); + for (i = 0; i < len; i++, lst = Xen_cdr(lst)) + fallbacks[i] = xen_strdup(Xen_string_to_C_string(Xen_car(lst))); xm_unprotect_at(gcloc); } res = XtAppInitialize(&app, - (char *)XEN_TO_C_STRING(arg2), + (char *)Xen_string_to_C_string(arg2), NULL, 0, &argc, @@ -14691,12 +14453,12 @@ and the specified args and num_args and returns the created shell. The num_args if (fallbacks[i]) free(fallbacks[i]); free(fallbacks); } - return(XEN_LIST_3(C_TO_XEN_Widget(res), - C_TO_XEN_XtAppContext(app), - gxm_argv_to_list(XEN_EMPTY_LIST, argc, argv))); + return(Xen_list_3(C_to_Xen_Widget(res), + C_to_Xen_XtAppContext(app), + gxm_argv_to_list(Xen_empty_list, argc, argv))); } -static XEN gxm_XtVaOpenApplication(XEN arg1, XEN arg4, XEN arg5, XEN arg7, XEN arg8, XEN specs) +static Xen gxm_XtVaOpenApplication(Xen arg1, Xen arg4, Xen arg5, Xen arg7, Xen arg8, Xen specs) { #define H_XtVaOpenApplication "Widget XtVaOpenApplication(application_class, argc_in_out, argv_in_out, widget_class, args, fallbacks)" /* DIFF: XtVaOpenApplication [app] name {options numopts} {argc} argv resources class args -> (list widget app), argc is int not int* options/num ignored @@ -14710,37 +14472,37 @@ static XEN gxm_XtVaOpenApplication(XEN arg1, XEN arg4, XEN arg5, XEN arg7, XEN a char **argv = NULL; char **fallbacks = NULL; int i, len = 0; - XEN lst; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtVaOpenApplication", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 2, "XtVaOpenApplication", "int"); /* was arg3 by mistake, 11-Oct-02 */ - XEN_ASSERT_TYPE(XEN_LIST_P(arg5), arg5, 3, "XtVaOpenApplication", "list of String"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg7), arg7, 4, "XtVaOpenApplication", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg8), arg8, 5, "XtVaOpenApplication", "arg list"); - XEN_ASSERT_TYPE(XEN_LIST_P(specs) || XEN_NOT_BOUND_P(specs), specs, 5, "XtVaOpenApplication", "list of char*"); - argc = XEN_TO_C_INT(arg4); - if (XEN_LIST_LENGTH(arg5) != argc) return(XEN_FALSE); /* error? */ - if (argc > 0) argv = XEN_TO_C_Strings(arg5, argc); - if (XEN_LIST_P(specs)) + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtVaOpenApplication", "char*"); + Xen_check_type(Xen_is_integer(arg4), arg4, 2, "XtVaOpenApplication", "int"); /* was arg3 by mistake, 11-Oct-02 */ + Xen_check_type(Xen_is_list(arg5), arg5, 3, "XtVaOpenApplication", "list of String"); + Xen_check_type(Xen_is_WidgetClass(arg7), arg7, 4, "XtVaOpenApplication", "WidgetClass"); + Xen_check_type(Xen_is_list(arg8), arg8, 5, "XtVaOpenApplication", "arg list"); + Xen_check_type(Xen_is_list(specs) || !Xen_is_bound(specs), specs, 5, "XtVaOpenApplication", "list of char*"); + argc = Xen_integer_to_C_int(arg4); + if (Xen_list_length(arg5) != argc) return(Xen_false); /* error? */ + if (argc > 0) argv = Xen_to_C_Strings(arg5, argc); + if (Xen_is_list(specs)) { + Xen lst; int gcloc; - len = XEN_LIST_LENGTH(specs); - lst = XEN_COPY_ARG(specs); + len = Xen_list_length(specs); + lst = Xen_copy_arg(specs); gcloc = xm_protect(lst); fallbacks = (char **)calloc(len + 1, sizeof(char *)); /* +1 for null termination */ - for (i = 0; i < len; i++, lst = XEN_CDR(lst)) - fallbacks[i] = xen_strdup(XEN_TO_C_STRING(XEN_CAR(lst))); + for (i = 0; i < len; i++, lst = Xen_cdr(lst)) + fallbacks[i] = xen_strdup(Xen_string_to_C_string(Xen_car(lst))); xm_unprotect_at(gcloc); } - args = XEN_TO_C_Args(arg8); - arglen = XEN_LIST_LENGTH(arg8) / 2; + args = Xen_to_C_Args(arg8); + arglen = Xen_list_length(arg8) / 2; res = XtOpenApplication(&app, - (char *)XEN_TO_C_STRING(arg1), + (char *)Xen_string_to_C_string(arg1), NULL, 0, &argc, argv, fallbacks, - XEN_TO_C_WidgetClass(arg7), + Xen_to_C_WidgetClass(arg7), args, arglen); if (args) @@ -14754,12 +14516,12 @@ static XEN gxm_XtVaOpenApplication(XEN arg1, XEN arg4, XEN arg5, XEN arg7, XEN a if (fallbacks[i]) free(fallbacks[i]); free(fallbacks); } - return(XEN_LIST_3(C_TO_XEN_Widget(res), - C_TO_XEN_XtAppContext(app), - gxm_argv_to_list(XEN_EMPTY_LIST, argc, argv))); + return(Xen_list_3(C_to_Xen_Widget(res), + C_to_Xen_XtAppContext(app), + gxm_argv_to_list(Xen_empty_list, argc, argv))); } -static XEN gxm_XtOpenApplication(XEN arg1, XEN arg4, XEN arg5, XEN arg7, XEN arg8, XEN arg9) +static Xen gxm_XtOpenApplication(Xen arg1, Xen arg4, Xen arg5, Xen arg7, Xen arg8, Xen arg9) { #define H_XtOpenApplication "Widget XtOpenApplication(application_class, argc_in_out, argv_in_out, \ widget_class, args, num_args) calls XtToolkitInitialize followed by XtCreateApplicationContext , then calls XtOpenDisplay \ @@ -14775,31 +14537,31 @@ of fallback resources." char **argv; char **fallbacks = NULL; int i, len = 0; - XEN lst; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtOpenApplication", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 2, "XtOpenApplication", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg5), arg5, 3, "XtOpenApplication", "list of String*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg7), arg7, 4, "XtOpenApplication", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg8), arg8, 8, "XtOpenApplication", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg9) || XEN_LIST_P(arg9) || XEN_NOT_BOUND_P(arg9), arg9, 5, "XtOpenApplication", "int or list of strings"); /* num_args */ - argc = XEN_TO_C_INT(arg4); - argv = XEN_TO_C_Strings(arg5, argc); - args = XEN_TO_C_Args(arg8); - if (XEN_INTEGER_P(arg9)) arglen = XEN_TO_C_INT(arg9); else arglen = XEN_LIST_LENGTH(arg8) / 2; - if (XEN_LIST_P(arg9)) + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtOpenApplication", "char*"); + Xen_check_type(Xen_is_integer(arg4), arg4, 2, "XtOpenApplication", "int"); + Xen_check_type(Xen_is_list(arg5), arg5, 3, "XtOpenApplication", "list of String*"); + Xen_check_type(Xen_is_WidgetClass(arg7), arg7, 4, "XtOpenApplication", "WidgetClass"); + Xen_check_type(Xen_is_list(arg8), arg8, 8, "XtOpenApplication", "ArgList"); + Xen_check_type(Xen_is_integer(arg9) || Xen_is_list(arg9) || !Xen_is_bound(arg9), arg9, 5, "XtOpenApplication", "int or list of strings"); /* num_args */ + argc = Xen_integer_to_C_int(arg4); + argv = Xen_to_C_Strings(arg5, argc); + args = Xen_to_C_Args(arg8); + if (Xen_is_integer(arg9)) arglen = Xen_integer_to_C_int(arg9); else arglen = Xen_list_length(arg8) / 2; + if (Xen_is_list(arg9)) { + Xen lst; int gcloc; - len = XEN_LIST_LENGTH(arg9); - lst = XEN_COPY_ARG(arg9); + len = Xen_list_length(arg9); + lst = Xen_copy_arg(arg9); gcloc = xm_protect(lst); fallbacks = (char **)calloc(len + 1, sizeof(char *)); /* +1 for null termination */ - for (i = 0; i < len; i++, lst = XEN_CDR(lst)) - fallbacks[i] = (char *)XEN_TO_C_STRING(XEN_CAR(lst)); + for (i = 0; i < len; i++, lst = Xen_cdr(lst)) + fallbacks[i] = (char *)Xen_string_to_C_string(Xen_car(lst)); xm_unprotect_at(gcloc); } - res = XtOpenApplication(&app, (char *)XEN_TO_C_STRING(arg1), + res = XtOpenApplication(&app, (char *)Xen_string_to_C_string(arg1), NULL, 0, &argc, - argv, fallbacks, XEN_TO_C_WidgetClass(arg7), + argv, fallbacks, Xen_to_C_WidgetClass(arg7), args, arglen); if (args) { @@ -14812,12 +14574,12 @@ of fallback resources." if (fallbacks[i]) free(fallbacks[i]); free(fallbacks); } - return(XEN_LIST_3(C_TO_XEN_Widget(res), - C_TO_XEN_XtAppContext(app), - gxm_argv_to_list(XEN_EMPTY_LIST, argc, argv))); + return(Xen_list_3(C_to_Xen_Widget(res), + C_to_Xen_XtAppContext(app), + gxm_argv_to_list(Xen_empty_list, argc, argv))); } -static XEN gxm_XtDisplayInitialize(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg7, XEN arg8) +static Xen gxm_XtDisplayInitialize(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg7, Xen arg8) { #define H_XtDisplayInitialize "void XtDisplayInitialize(app_context, display, application_name, application_class, argc, argv) \ builds the resource database, calls the Xlib XrmParseCommand to parse the command line, and performs other per display initialization." @@ -14825,58 +14587,58 @@ builds the resource database, calls the Xlib XrmParseCommand to parse the comman */ char **argv; int argc; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtDisplayInitialize", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_Display_P(arg2), arg2, 2, "XtDisplayInitialize", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XtDisplayInitialize", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg4), arg4, 4, "XtDisplayInitialize", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg7), arg7, 5, "XtDisplayInitialize", "int"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg8), arg8, 6, "XtDisplayInitialize", "list of char*"); - argc = XEN_TO_C_INT(arg7); - argv = XEN_TO_C_Strings(arg8, argc); - XtDisplayInitialize(XEN_TO_C_XtAppContext(arg1), - XEN_TO_C_Display(arg2), - (char *)XEN_TO_C_STRING(arg3), - (char *)XEN_TO_C_STRING(arg4), + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtDisplayInitialize", "XtAppContext"); + Xen_check_type(Xen_is_Display(arg2), arg2, 2, "XtDisplayInitialize", "Display*"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XtDisplayInitialize", "char*"); + Xen_check_type(Xen_is_string(arg4), arg4, 4, "XtDisplayInitialize", "char*"); + Xen_check_type(Xen_is_integer(arg7), arg7, 5, "XtDisplayInitialize", "int"); + Xen_check_type(Xen_is_list(arg8), arg8, 6, "XtDisplayInitialize", "list of char*"); + argc = Xen_integer_to_C_int(arg7); + argv = Xen_to_C_Strings(arg8, argc); + XtDisplayInitialize(Xen_to_C_XtAppContext(arg1), + Xen_to_C_Display(arg2), + (char *)Xen_string_to_C_string(arg3), + (char *)Xen_string_to_C_string(arg4), NULL, 0, &argc, argv); - return(gxm_argv_to_list(XEN_EMPTY_LIST, argc, argv)); + return(gxm_argv_to_list(Xen_empty_list, argc, argv)); } /* -------- XtLanguage callback -------- */ /* (456) a global */ -static XEN xm_language_proc; +static Xen xm_language_proc; static String gxm_XtLanguageProc(Display* d, String s, XtPointer context) { char *res; - res = (char *)XEN_TO_C_STRING(XEN_CALL_3(xm_language_proc, - C_TO_XEN_Display(d), - C_TO_XEN_STRING(s), - (XEN)context, - c__FUNCTION__)); + res = (char *)Xen_string_to_C_string(Xen_call_with_3_args(xm_language_proc, + C_to_Xen_Display(d), + C_string_to_Xen_string(s), + (Xen)context, + __func__)); if (res) return(xen_strdup(res)); return(NULL); } -static XEN gxm_XtSetLanguageProc(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtSetLanguageProc(Xen arg1, Xen arg2, Xen arg3) { #define H_XtSetLanguageProc "Widget XtSetLanguageProc(app_context, proc, client_data)" /* arg can be null -> use default */ /* DIFF: XtSetLanguageProc args1 and 2 use #f for NULL, return of #f means none was set */ - XEN previous_proc = XEN_FALSE; - XEN_ASSERT_TYPE(XEN_FALSE_P(arg1) || XEN_XtAppContext_P(arg1), arg1, 1, "XtSetLanguageProc", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg2) || (XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 3))), arg2, 2, "XtSetLanguageProc", "XtLanguageProc"); + Xen previous_proc = Xen_false; + Xen_check_type(Xen_is_false(arg1) || Xen_is_XtAppContext(arg1), arg1, 1, "XtSetLanguageProc", "XtAppContext"); + Xen_check_type(Xen_is_false(arg2) || (Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 3))), arg2, 2, "XtSetLanguageProc", "XtLanguageProc"); previous_proc = xm_language_proc; - if (XEN_PROCEDURE_P(previous_proc)) + if (Xen_is_procedure(previous_proc)) xm_unprotect(previous_proc); - if (XEN_PROCEDURE_P(arg2)) + if (Xen_is_procedure(arg2)) xm_protect(arg2); - if (XEN_FALSE_P(arg1)) + if (Xen_is_false(arg1)) { - if (XEN_FALSE_P(arg2)) + if (Xen_is_false(arg2)) XtSetLanguageProc(NULL, NULL, NULL); else XtSetLanguageProc(NULL, (XtLanguageProc)gxm_XtLanguageProc, @@ -14884,39 +14646,39 @@ static XEN gxm_XtSetLanguageProc(XEN arg1, XEN arg2, XEN arg3) } else { - if (XEN_FALSE_P(arg2)) - XtSetLanguageProc(XEN_TO_C_XtAppContext(arg1), NULL, NULL); - else XtSetLanguageProc(XEN_TO_C_XtAppContext(arg1), + if (Xen_is_false(arg2)) + XtSetLanguageProc(Xen_to_C_XtAppContext(arg1), NULL, NULL); + else XtSetLanguageProc(Xen_to_C_XtAppContext(arg1), (XtLanguageProc)gxm_XtLanguageProc, (XtPointer)arg3); } return(previous_proc); } -static XEN gxm_XtToolkitInitialize(void) +static Xen gxm_XtToolkitInitialize(void) { #define H_XtToolkitInitialize "void XtToolkitInitialize()" XtToolkitInitialize(); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtVaAppCreateShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtVaAppCreateShell(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtVaAppCreateShell "Widget XtVaAppCreateShell(application_name, application_class, widget_class, display, ...)" Arg *args; Widget w; int arglen; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtVaAppCreateShell", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtVaAppCreateShell", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg3), arg3, 3, "XtVaAppCreateShell", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Display_P(arg4), arg4, 4, "XtVaAppCreateShell", "Display*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg5), arg5, 5, "XtVaAppCreateShell", "List"); - args = XEN_TO_C_Args(arg5); - arglen = XEN_LIST_LENGTH(arg5) / 2; - w = XtAppCreateShell((char *)XEN_TO_C_STRING(arg1), - (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_WidgetClass(arg3), - XEN_TO_C_Display(arg4), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtVaAppCreateShell", "char*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtVaAppCreateShell", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg3), arg3, 3, "XtVaAppCreateShell", "WidgetClass"); + Xen_check_type(Xen_is_Display(arg4), arg4, 4, "XtVaAppCreateShell", "Display*"); + Xen_check_type(Xen_is_list(arg5), arg5, 5, "XtVaAppCreateShell", "List"); + args = Xen_to_C_Args(arg5); + arglen = Xen_list_length(arg5) / 2; + w = XtAppCreateShell((char *)Xen_string_to_C_string(arg1), + (char *)Xen_string_to_C_string(arg2), + Xen_to_C_WidgetClass(arg3), + Xen_to_C_Display(arg4), args, arglen); if (args) @@ -14924,28 +14686,28 @@ static XEN gxm_XtVaAppCreateShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN ar fixup_args(w, args, arglen); free_args(args, arglen); } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtAppCreateShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtAppCreateShell(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtAppCreateShell "Widget XtAppCreateShell(application_name, application_class, widget_class, display, args, num_args) saves \ the specified application name and application class for qualifying all widget resource specifiers." Arg *args; Widget w; int arglen; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtAppCreateShell", "char*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtAppCreateShell", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg3), arg3, 3, "XtAppCreateShell", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Display_P(arg4), arg4, 4, "XtAppCreateShell", "Display*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg5), arg5, 5, "XtAppCreateShell", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg6), arg6, 6, "XtAppCreateShell", "int"); - args = XEN_TO_C_Args(arg5); - arglen = XEN_TO_C_INT_DEF(arg6, arg5); - w = XtAppCreateShell((char *)XEN_TO_C_STRING(arg1), - (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_WidgetClass(arg3), - XEN_TO_C_Display(arg4), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtAppCreateShell", "char*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtAppCreateShell", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg3), arg3, 3, "XtAppCreateShell", "WidgetClass"); + Xen_check_type(Xen_is_Display(arg4), arg4, 4, "XtAppCreateShell", "Display*"); + Xen_check_type(Xen_is_list(arg5), arg5, 5, "XtAppCreateShell", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg6), arg6, 6, "XtAppCreateShell", "int"); + args = Xen_to_C_Args(arg5); + arglen = Xen_to_C_INT_DEF(arg6, arg5); + w = XtAppCreateShell((char *)Xen_string_to_C_string(arg1), + (char *)Xen_string_to_C_string(arg2), + Xen_to_C_WidgetClass(arg3), + Xen_to_C_Display(arg4), args, arglen); if (args) @@ -14953,24 +14715,24 @@ the specified application name and application class for qualifying all widget r fixup_args(w, args, arglen); free_args(args, arglen); } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtVaCreateManagedWidget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XtVaCreateManagedWidget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XtVaCreateManagedWidget "Widget XtVaCreateManagedWidget(name, widget_class, parent, ...)" Arg *args; Widget w; int arglen; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtVaCreateManagedWidget", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg2), arg2, 2, "XtVaCreateManagedWidget", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg3), arg3, 3, "XtVaCreateManagedWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XtVaCreateManagedWidget", "List"); - args = XEN_TO_C_Args(arg4); - arglen = XEN_LIST_LENGTH(arg4) / 2; - w = XtCreateManagedWidget((char *)XEN_TO_C_STRING(arg1), - XEN_TO_C_WidgetClass(arg2), - XEN_TO_C_Widget(arg3), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtVaCreateManagedWidget", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg2), arg2, 2, "XtVaCreateManagedWidget", "WidgetClass"); + Xen_check_type(Xen_is_Widget(arg3), arg3, 3, "XtVaCreateManagedWidget", "Widget"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XtVaCreateManagedWidget", "List"); + args = Xen_to_C_Args(arg4); + arglen = Xen_list_length(arg4) / 2; + w = XtCreateManagedWidget((char *)Xen_string_to_C_string(arg1), + Xen_to_C_WidgetClass(arg2), + Xen_to_C_Widget(arg3), args, arglen); if (args) @@ -14978,24 +14740,24 @@ static XEN gxm_XtVaCreateManagedWidget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) fixup_args(w, args, arglen); free_args(args, arglen); } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtVaCreateWidget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XtVaCreateWidget(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XtVaCreateWidget "Widget XtVaCreateWidget(name, widget_class, parent, ...)" Arg *args; int arglen; Widget w; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtVaCreateWidget", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg2), arg2, 2, "XtVaCreateWidget", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg3), arg3, 3, "XtVaCreateWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XtVaCreateWidget", "List"); - args = XEN_TO_C_Args(arg4); - arglen = XEN_LIST_LENGTH(arg4) / 2; - w = XtCreateWidget((char *)XEN_TO_C_STRING(arg1), - XEN_TO_C_WidgetClass(arg2), - XEN_TO_C_Widget(arg3), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtVaCreateWidget", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg2), arg2, 2, "XtVaCreateWidget", "WidgetClass"); + Xen_check_type(Xen_is_Widget(arg3), arg3, 3, "XtVaCreateWidget", "Widget"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XtVaCreateWidget", "List"); + args = Xen_to_C_Args(arg4); + arglen = Xen_list_length(arg4) / 2; + w = XtCreateWidget((char *)Xen_string_to_C_string(arg1), + Xen_to_C_WidgetClass(arg2), + Xen_to_C_Widget(arg3), args, arglen); if (args) @@ -15003,133 +14765,133 @@ static XEN gxm_XtVaCreateWidget(XEN arg1, XEN arg2, XEN arg3, XEN arg4) fixup_args(w, args, arglen); free_args(args, arglen); } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtCreateManagedWidget(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtCreateManagedWidget(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtCreateManagedWidget "Widget XtCreateManagedWidget(name, widget_class, parent, args, num_args) is a routine \ that calls XtCreateWidget and XtManageChild." Arg *args; Widget w; int arglen; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtCreateManagedWidget", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg2), arg2, 2, "XtCreateManagedWidget", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg3), arg3, 3, "XtCreateManagedWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XtCreateManagedWidget", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg5), arg5, 5, "XtCreateManagedWidget", "int"); - args = XEN_TO_C_Args(arg4); - arglen = XEN_TO_C_INT_DEF(arg5, arg4); - w = XtCreateManagedWidget((char *)XEN_TO_C_STRING(arg1), - XEN_TO_C_WidgetClass(arg2), - XEN_TO_C_Widget(arg3), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtCreateManagedWidget", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg2), arg2, 2, "XtCreateManagedWidget", "WidgetClass"); + Xen_check_type(Xen_is_Widget(arg3), arg3, 3, "XtCreateManagedWidget", "Widget"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XtCreateManagedWidget", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg5), arg5, 5, "XtCreateManagedWidget", "int"); + args = Xen_to_C_Args(arg4); + arglen = Xen_to_C_INT_DEF(arg5, arg4); + w = XtCreateManagedWidget((char *)Xen_string_to_C_string(arg1), + Xen_to_C_WidgetClass(arg2), + Xen_to_C_Widget(arg3), args, arglen); if (args) { fixup_args(w, args, arglen); free_args(args, arglen); } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtCreateWidget(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtCreateWidget(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtCreateWidget "Widget XtCreateWidget(name, widget_class, parent, args, num_args) performs much of the boilerplate operations of widget creation." Arg *args; Widget w; int arglen; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtCreateWidget", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg2), arg2, 2, "XtCreateWidget", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg3), arg3, 3, "XtCreateWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XtCreateWidget", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg5), arg5, 5, "XtCreateWidget", "int"); - args = XEN_TO_C_Args(arg4); - arglen = XEN_TO_C_INT_DEF(arg5, arg4); - w = XtCreateWidget((char *)XEN_TO_C_STRING(arg1), - XEN_TO_C_WidgetClass(arg2), - XEN_TO_C_Widget(arg3), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtCreateWidget", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg2), arg2, 2, "XtCreateWidget", "WidgetClass"); + Xen_check_type(Xen_is_Widget(arg3), arg3, 3, "XtCreateWidget", "Widget"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XtCreateWidget", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg5), arg5, 5, "XtCreateWidget", "int"); + args = Xen_to_C_Args(arg4); + arglen = Xen_to_C_INT_DEF(arg5, arg4); + w = XtCreateWidget((char *)Xen_string_to_C_string(arg1), + Xen_to_C_WidgetClass(arg2), + Xen_to_C_Widget(arg3), args, arglen); if (args) { fixup_args(w, args, arglen); free_args(args, arglen); } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtCallbackPopdown(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtCallbackPopdown(Xen arg1, Xen arg2, Xen arg3) { #define H_XtCallbackPopdown "void XtCallbackPopdown(w, client_data, call_data) calls XtPopdown with the specified shell_widget and then \ calls XtSetSensitive to resensitize the enable_widget." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCallbackPopdown", "Widget"); - XtCallbackPopdown(XEN_TO_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCallbackPopdown", "Widget"); + XtCallbackPopdown(Xen_to_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); + return(Xen_false); } -static XEN gxm_XtPopdown(XEN arg1) +static Xen gxm_XtPopdown(Xen arg1) { #define H_XtPopdown "void XtPopdown(popup_shell)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtPopdown", "Widget"); - XtPopdown(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtPopdown", "Widget"); + XtPopdown(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtCallbackExclusive(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtCallbackExclusive(Xen arg1, Xen arg2, Xen arg3) { #define H_XtCallbackExclusive "void XtCallbackExclusive(w, client_data, call_data)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCallbackExclusive", "Widget"); - XtCallbackExclusive(XEN_TO_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCallbackExclusive", "Widget"); + XtCallbackExclusive(Xen_to_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); + return(Xen_false); } -static XEN gxm_XtCallbackNonexclusive(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtCallbackNonexclusive(Xen arg1, Xen arg2, Xen arg3) { #define H_XtCallbackNonexclusive "void XtCallbackNonexclusive(w, client_data, call_data)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCallbackNonexclusive", "Widget"); - XtCallbackNonexclusive(XEN_TO_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCallbackNonexclusive", "Widget"); + XtCallbackNonexclusive(Xen_to_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); + return(Xen_false); } -static XEN gxm_XtCallbackNone(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtCallbackNone(Xen arg1, Xen arg2, Xen arg3) { #define H_XtCallbackNone "void XtCallbackNone(w, client_data, call_data)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCallbackNone", "Widget"); - XtCallbackNone(XEN_TO_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCallbackNone", "Widget"); + XtCallbackNone(Xen_to_C_Widget(arg1), (XtPointer)arg2, (XtPointer)arg3); + return(Xen_false); } -static XEN gxm_XtPopupSpringLoaded(XEN arg1) +static Xen gxm_XtPopupSpringLoaded(Xen arg1) { #define H_XtPopupSpringLoaded "void XtPopupSpringLoaded(popup_shell)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtPopupSpringLoaded", "Widget"); - XtPopupSpringLoaded(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtPopupSpringLoaded", "Widget"); + XtPopupSpringLoaded(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtPopup(XEN arg1, XEN arg2) +static Xen gxm_XtPopup(Xen arg1, Xen arg2) { #define H_XtPopup "void XtPopup(popup_shell, grab_kind)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtPopup", "Widget"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XtPopup", "XtGrabKind"); - XtPopup(XEN_TO_C_Widget(arg1), (XtGrabKind)XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtPopup", "Widget"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XtPopup", "XtGrabKind"); + XtPopup(Xen_to_C_Widget(arg1), (XtGrabKind)Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN gxm_XtVaCreatePopupShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XtVaCreatePopupShell(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XtVaCreatePopupShell "Widget XtVaCreatePopupShell(name, widget_class, parent, ...)" Arg *args; int arglen; Widget w; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtVaCreatePopupShell", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg2), arg2, 2, "XtVaCreatePopupShell", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg3), arg3, 3, "XtVaCreatePopupShell", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XtVaCreatePopupShell", "List"); - args = XEN_TO_C_Args(arg4); - arglen = XEN_LIST_LENGTH(arg4) / 2; - w = XtCreatePopupShell((char *)XEN_TO_C_STRING(arg1), - XEN_TO_C_WidgetClass(arg2), - XEN_TO_C_Widget(arg3), + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtVaCreatePopupShell", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg2), arg2, 2, "XtVaCreatePopupShell", "WidgetClass"); + Xen_check_type(Xen_is_Widget(arg3), arg3, 3, "XtVaCreatePopupShell", "Widget"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XtVaCreatePopupShell", "List"); + args = Xen_to_C_Args(arg4); + arglen = Xen_list_length(arg4) / 2; + w = XtCreatePopupShell((char *)Xen_string_to_C_string(arg1), + Xen_to_C_WidgetClass(arg2), + Xen_to_C_Widget(arg3), args, arglen); if (args) @@ -15137,28 +14899,28 @@ static XEN gxm_XtVaCreatePopupShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4) fixup_args(w, args, arglen); free_args(args, arglen); } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtCreatePopupShell(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtCreatePopupShell(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtCreatePopupShell "Widget XtCreatePopupShell(name, widget_class, parent, args, num_args) ensures that the specified \ class is a subclass of Shell and, rather than using insert_child to attach the widget to the parent's children list, attaches the shell \ to the parent's pop-ups list directly." Widget w; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtCreatePopupShell", "char*"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg2), arg2, 2, "XtCreatePopupShell", "WidgetClass"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg3), arg3, 3, "XtCreatePopupShell", "Widget"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4), arg4, 4, "XtCreatePopupShell", "ArgList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg5), arg5, 5, "XtCreatePopupShell", "int"); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtCreatePopupShell", "char*"); + Xen_check_type(Xen_is_WidgetClass(arg2), arg2, 2, "XtCreatePopupShell", "WidgetClass"); + Xen_check_type(Xen_is_Widget(arg3), arg3, 3, "XtCreatePopupShell", "Widget"); + Xen_check_type(Xen_is_list(arg4), arg4, 4, "XtCreatePopupShell", "ArgList"); + Xen_check_type(Xen_is_integer_or_unbound(arg5), arg5, 5, "XtCreatePopupShell", "int"); { Arg *args; int arglen; - args = XEN_TO_C_Args(arg4); - arglen = XEN_TO_C_INT_DEF(arg5, arg4); - w = XtCreatePopupShell((char *)XEN_TO_C_STRING(arg1), - XEN_TO_C_WidgetClass(arg2), - XEN_TO_C_Widget(arg3), + args = Xen_to_C_Args(arg4); + arglen = Xen_to_C_INT_DEF(arg5, arg4); + w = XtCreatePopupShell((char *)Xen_string_to_C_string(arg1), + Xen_to_C_WidgetClass(arg2), + Xen_to_C_Widget(arg3), args, arglen); if (args) { @@ -15166,67 +14928,67 @@ to the parent's pop-ups list directly." free_args(args, arglen); } } - return(C_TO_XEN_Widget(w)); + return(C_to_Xen_Widget(w)); } -static XEN gxm_XtHasCallbacks(XEN arg1, XEN arg2) +static Xen gxm_XtHasCallbacks(Xen arg1, Xen arg2) { #define H_XtHasCallbacks "XtCallbackStatus XtHasCallbacks(w, callback_name) first checks to see if the widget has a callback \ list identified by callback_name; returns XtCallbackNoList or XtCallbackHasNone if none, else XtCallbackHasSome" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtHasCallbacks", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtHasCallbacks", "char*"); - return(C_TO_XEN_INT(XtHasCallbacks(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtHasCallbacks", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtHasCallbacks", "char*"); + return(C_int_to_Xen_integer(XtHasCallbacks(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_XtCallCallbacks(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtCallCallbacks(Xen arg1, Xen arg2, Xen arg3) { #define H_XtCallCallbacks "void XtCallCallbacks(w, callback_name, call_data) calls each procedure that is registered in the \ specified widget's callback list. The call_data arg is assumed to be a callback struct reference" XtPointer val = NULL; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCallCallbacks", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtCallCallbacks", "char*"); - if (XEN_LIST_P(arg3)) val = (XtPointer)XEN_UNWRAP_C_POINTER(XEN_CADR(arg3)); - XtCallCallbacks(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2), val); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCallCallbacks", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtCallCallbacks", "char*"); + if (Xen_is_list(arg3)) val = (XtPointer)Xen_unwrap_C_pointer(Xen_cadr(arg3)); + XtCallCallbacks(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2), val); + return(Xen_false); } -static XEN gxm_XtRemoveAllCallbacks(XEN arg1, XEN arg2) +static Xen gxm_XtRemoveAllCallbacks(Xen arg1, Xen arg2) { #define H_XtRemoveAllCallbacks "void XtRemoveAllCallbacks(w, callback_name) removes all the callback procedures from the specified widget's callback list." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtRemoveAllCallbacks", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtRemoveAllCallbacks", "char*"); - XtRemoveAllCallbacks(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtRemoveAllCallbacks", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtRemoveAllCallbacks", "char*"); + XtRemoveAllCallbacks(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2)); + return(Xen_false); } -static XEN gxm_XtRemoveCallback(XEN arg1, XEN arg2, XEN arg4) +static Xen gxm_XtRemoveCallback(Xen arg1, Xen arg2, Xen arg4) { #define H_XtRemoveCallback "void XtRemoveCallback(w, callback_name, client_data) removes a callback" /* DIFF: XtRemoveCallback omits proc arg and is passed whatever XtAddCallback returned */ - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtRemoveCallback", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtRemoveCallback", "char*"); - xm_unprotect_at(XEN_TO_C_INT(XEN_LIST_REF(arg4, CALLBACK_GC_LOC))); - XtRemoveCallback(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2), gxm_XtCallbackProc, (XtPointer)arg4); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtRemoveCallback", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtRemoveCallback", "char*"); + xm_unprotect_at(Xen_integer_to_C_int(Xen_list_ref(arg4, CALLBACK_GC_LOC))); + XtRemoveCallback(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2), gxm_XtCallbackProc, (XtPointer)arg4); + return(Xen_false); } -static XEN gxm_XtRemoveCallbacks(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtRemoveCallbacks(Xen arg1, Xen arg2, Xen arg3) { #define H_XtRemoveCallbacks "void XtRemoveCallbacks(w, callback_name, callbacks) removes the specified callback procedures from the \ specified widget's callback list. (The 3rd arg is a list of descriptors returned by XtAddCallback)." /* DIFF: XtRemoveCallbacks takes list of descriptors as arg3 */ - XEN lst; + Xen lst; int i, len; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtRemoveCallbacks", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtRemoveCallbacks", "char*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XtRemoveCallbacks", "list of XtCallbacks"); - lst = XEN_COPY_ARG(arg3); - len = XEN_LIST_LENGTH(lst); - for (i = 0; i < len; i++, lst = XEN_CDR(lst)) - gxm_XtRemoveCallback(arg1, arg2, XEN_CAR(lst)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtRemoveCallbacks", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtRemoveCallbacks", "char*"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XtRemoveCallbacks", "list of XtCallbacks"); + lst = Xen_copy_arg(arg3); + len = Xen_list_length(lst); + for (i = 0; i < len; i++, lst = Xen_cdr(lst)) + gxm_XtRemoveCallback(arg1, arg2, Xen_car(lst)); + return(Xen_false); } /* need these for all callback proc types, and locations to store the list of them */ @@ -15237,57 +14999,51 @@ enum { GXM_Drawing, GXM_Drawn, GXM_Drop_Finish, GXM_Drop_Proc, GXM_DropSite_Enter, GXM_DropSite_Leave, GXM_Drop_Start, GXM_File, GXM_List, GXM_Notebook, GXM_Operation, GXM_Popup, GXM_PushButton, GXM_RowColumn, GXM_Scale, GXM_ScrollBar, GXM_Selection, GXM_SpinBox, GXM_ToggleButton, GXM_TopLevel_Enter, GXM_TopLevel_Leave, - GXM_Traverse, GXM_Verify, GXM_DataField, GXM_TabStack + GXM_Traverse, GXM_Verify }; -static XEN wrap_callback_struct(int type, XtPointer info) +static Xen wrap_callback_struct(int type, XtPointer info) { switch (type) { - case GXM_Any: return(C_TO_XEN_XmAnyCallbackStruct((XmAnyCallbackStruct *)info)); - case GXM_Arrow: return(C_TO_XEN_XmArrowButtonCallbackStruct((XmArrowButtonCallbackStruct *)info)); - case GXM_Command: return(C_TO_XEN_XmCommandCallbackStruct((XmCommandCallbackStruct *)info)); - case GXM_Drag_Drop: return(C_TO_XEN_XmDragDropFinishCallbackStruct((XmDragDropFinishCallbackStruct *)info)); - case GXM_Drag_Motion: return(C_TO_XEN_XmDragMotionCallbackStruct((XmDragMotionCallbackStruct *)info)); - case GXM_Drag_Proc: return(C_TO_XEN_XmDragProcCallbackStruct((XmDragProcCallbackStruct *)info)); - case GXM_Drawing: return(C_TO_XEN_XmDrawingAreaCallbackStruct((XmDrawingAreaCallbackStruct *)info)); - case GXM_Drawn: return(C_TO_XEN_XmDrawnButtonCallbackStruct((XmDrawnButtonCallbackStruct *)info)); - case GXM_Drop_Finish: return(C_TO_XEN_XmDropFinishCallbackStruct((XmDropFinishCallbackStruct *)info)); - case GXM_Drop_Proc: return(C_TO_XEN_XmDropProcCallbackStruct((XmDropProcCallbackStruct *)info)); - case GXM_DropSite_Enter: return(C_TO_XEN_XmDropSiteEnterCallbackStruct((XmDropSiteEnterCallbackStruct *)info)); - case GXM_DropSite_Leave: return(C_TO_XEN_XmDropSiteLeaveCallbackStruct((XmDropSiteLeaveCallbackStruct *)info)); - case GXM_Drop_Start: return(C_TO_XEN_XmDropStartCallbackStruct((XmDropStartCallbackStruct *)info)); - case GXM_File: return(C_TO_XEN_XmFileSelectionBoxCallbackStruct((XmFileSelectionBoxCallbackStruct *)info)); - case GXM_List: return(C_TO_XEN_XmListCallbackStruct((XmListCallbackStruct *)info)); - case GXM_PushButton: return(C_TO_XEN_XmPushButtonCallbackStruct((XmPushButtonCallbackStruct *)info)); - case GXM_RowColumn: return(C_TO_XEN_XmRowColumnCallbackStruct((XmRowColumnCallbackStruct *)info)); - case GXM_Scale: return(C_TO_XEN_XmScaleCallbackStruct((XmScaleCallbackStruct *)info)); - case GXM_ScrollBar: return(C_TO_XEN_XmScrollBarCallbackStruct((XmScrollBarCallbackStruct *)info)); - case GXM_Selection: return(C_TO_XEN_XmSelectionBoxCallbackStruct((XmSelectionBoxCallbackStruct *)info)); - case GXM_ToggleButton: return(C_TO_XEN_XmToggleButtonCallbackStruct((XmToggleButtonCallbackStruct *)info)); - case GXM_Verify: return(C_TO_XEN_XmTextVerifyCallbackStruct((XmTextVerifyCallbackStruct *)info)); - case GXM_Popup: return(C_TO_XEN_XmPopupHandlerCallbackStruct((XmPopupHandlerCallbackStruct *)info)); - case GXM_Drag_Start: return(C_TO_XEN_XmDragStartCallbackStruct((XmDragStartCallbackStruct *)info)); - case GXM_Convert: return(C_TO_XEN_XmConvertCallbackStruct((XmConvertCallbackStruct *)info)); - case GXM_Container_Outline: return(C_TO_XEN_XmContainerOutlineCallbackStruct((XmContainerOutlineCallbackStruct *)info)); - case GXM_Container_Select: return(C_TO_XEN_XmContainerSelectCallbackStruct((XmContainerSelectCallbackStruct *)info)); - case GXM_Destination: return(C_TO_XEN_XmDestinationCallbackStruct((XmDestinationCallbackStruct *)info)); - case GXM_Display: return(C_TO_XEN_XmDisplayCallbackStruct((XmDisplayCallbackStruct *)info)); - case GXM_Combo: return(C_TO_XEN_XmComboBoxCallbackStruct((XmComboBoxCallbackStruct *)info)); - case GXM_Notebook: return(C_TO_XEN_XmNotebookCallbackStruct((XmNotebookCallbackStruct *)info)); - case GXM_Operation: return(C_TO_XEN_XmOperationChangedCallbackStruct((XmOperationChangedCallbackStruct *)info)); - case GXM_SpinBox: return(C_TO_XEN_XmSpinBoxCallbackStruct((XmSpinBoxCallbackStruct *)info)); - case GXM_TopLevel_Enter: return(C_TO_XEN_XmTopLevelEnterCallbackStruct((XmTopLevelEnterCallbackStruct *)info)); - case GXM_TopLevel_Leave: return(C_TO_XEN_XmTopLevelLeaveCallbackStruct((XmTopLevelLeaveCallbackStruct *)info)); - case GXM_Traverse: return(C_TO_XEN_XmTraverseObscuredCallbackStruct((XmTraverseObscuredCallbackStruct *)info)); -#if HAVE_XmCreateDataField - case GXM_DataField: return(C_TO_XEN_XmDataFieldCallbackStruct((XmDataFieldCallbackStruct *)info)); -#endif -#if HAVE_XmCreateTabStack - case GXM_TabStack: return(C_TO_XEN_XmTabStackCallbackStruct((XmTabStackCallbackStruct *)info)); -#endif + case GXM_Any: return(C_to_Xen_XmAnyCallbackStruct((XmAnyCallbackStruct *)info)); + case GXM_Arrow: return(C_to_Xen_XmArrowButtonCallbackStruct((XmArrowButtonCallbackStruct *)info)); + case GXM_Command: return(C_to_Xen_XmCommandCallbackStruct((XmCommandCallbackStruct *)info)); + case GXM_Drag_Drop: return(C_to_Xen_XmDragDropFinishCallbackStruct((XmDragDropFinishCallbackStruct *)info)); + case GXM_Drag_Motion: return(C_to_Xen_XmDragMotionCallbackStruct((XmDragMotionCallbackStruct *)info)); + case GXM_Drag_Proc: return(C_to_Xen_XmDragProcCallbackStruct((XmDragProcCallbackStruct *)info)); + case GXM_Drawing: return(C_to_Xen_XmDrawingAreaCallbackStruct((XmDrawingAreaCallbackStruct *)info)); + case GXM_Drawn: return(C_to_Xen_XmDrawnButtonCallbackStruct((XmDrawnButtonCallbackStruct *)info)); + case GXM_Drop_Finish: return(C_to_Xen_XmDropFinishCallbackStruct((XmDropFinishCallbackStruct *)info)); + case GXM_Drop_Proc: return(C_to_Xen_XmDropProcCallbackStruct((XmDropProcCallbackStruct *)info)); + case GXM_DropSite_Enter: return(C_to_Xen_XmDropSiteEnterCallbackStruct((XmDropSiteEnterCallbackStruct *)info)); + case GXM_DropSite_Leave: return(C_to_Xen_XmDropSiteLeaveCallbackStruct((XmDropSiteLeaveCallbackStruct *)info)); + case GXM_Drop_Start: return(C_to_Xen_XmDropStartCallbackStruct((XmDropStartCallbackStruct *)info)); + case GXM_File: return(C_to_Xen_XmFileSelectionBoxCallbackStruct((XmFileSelectionBoxCallbackStruct *)info)); + case GXM_List: return(C_to_Xen_XmListCallbackStruct((XmListCallbackStruct *)info)); + case GXM_PushButton: return(C_to_Xen_XmPushButtonCallbackStruct((XmPushButtonCallbackStruct *)info)); + case GXM_RowColumn: return(C_to_Xen_XmRowColumnCallbackStruct((XmRowColumnCallbackStruct *)info)); + case GXM_Scale: return(C_to_Xen_XmScaleCallbackStruct((XmScaleCallbackStruct *)info)); + case GXM_ScrollBar: return(C_to_Xen_XmScrollBarCallbackStruct((XmScrollBarCallbackStruct *)info)); + case GXM_Selection: return(C_to_Xen_XmSelectionBoxCallbackStruct((XmSelectionBoxCallbackStruct *)info)); + case GXM_ToggleButton: return(C_to_Xen_XmToggleButtonCallbackStruct((XmToggleButtonCallbackStruct *)info)); + case GXM_Verify: return(C_to_Xen_XmTextVerifyCallbackStruct((XmTextVerifyCallbackStruct *)info)); + case GXM_Popup: return(C_to_Xen_XmPopupHandlerCallbackStruct((XmPopupHandlerCallbackStruct *)info)); + case GXM_Drag_Start: return(C_to_Xen_XmDragStartCallbackStruct((XmDragStartCallbackStruct *)info)); + case GXM_Convert: return(C_to_Xen_XmConvertCallbackStruct((XmConvertCallbackStruct *)info)); + case GXM_Container_Outline: return(C_to_Xen_XmContainerOutlineCallbackStruct((XmContainerOutlineCallbackStruct *)info)); + case GXM_Container_Select: return(C_to_Xen_XmContainerSelectCallbackStruct((XmContainerSelectCallbackStruct *)info)); + case GXM_Destination: return(C_to_Xen_XmDestinationCallbackStruct((XmDestinationCallbackStruct *)info)); + case GXM_Display: return(C_to_Xen_XmDisplayCallbackStruct((XmDisplayCallbackStruct *)info)); + case GXM_Combo: return(C_to_Xen_XmComboBoxCallbackStruct((XmComboBoxCallbackStruct *)info)); + case GXM_Notebook: return(C_to_Xen_XmNotebookCallbackStruct((XmNotebookCallbackStruct *)info)); + case GXM_Operation: return(C_to_Xen_XmOperationChangedCallbackStruct((XmOperationChangedCallbackStruct *)info)); + case GXM_SpinBox: return(C_to_Xen_XmSpinBoxCallbackStruct((XmSpinBoxCallbackStruct *)info)); + case GXM_TopLevel_Enter: return(C_to_Xen_XmTopLevelEnterCallbackStruct((XmTopLevelEnterCallbackStruct *)info)); + case GXM_TopLevel_Leave: return(C_to_Xen_XmTopLevelLeaveCallbackStruct((XmTopLevelLeaveCallbackStruct *)info)); + case GXM_Traverse: return(C_to_Xen_XmTraverseObscuredCallbackStruct((XmTraverseObscuredCallbackStruct *)info)); } - return(XEN_FALSE); + return(Xen_false); } static int callback_struct_type(Widget w, const char *name) @@ -15344,202 +15100,199 @@ static int callback_struct_type(Widget w, const char *name) if (strcmp(name, XmNtopLevelLeaveCallback) == 0) return(GXM_TopLevel_Leave); } if (XmIsDrawnButton(w)) return(GXM_Drawn); -#if HAVE_XmCreateDataField - if (XmIsDataField(w)) return(GXM_DataField); -#endif return(GXM_Any); } -static XEN gxm_XtAddCallback(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XtAddCallback(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XtAddCallback "void XtAddCallback(w, callback_name, callback, client_data) adds the specified callback procedure to \ -the specified widget's callback list. In xm, the client-data is optional, defaulting to #f. The callback procedure takes \ +the specified widget's callback list. In xm, the client-data is optional, defaulting to " PROC_FALSE ". The callback procedure takes \ 3 args: widget client-data callback-info. Returns a description of the callback suitable for use with XtRemoveCallback." /* DIFF: XtAddCallback returns the C-side "client-data" (for subsequent XtRemoveCallback) */ char *name; Widget w; int gc_loc; - XEN call_descr = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtAddCallback", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtAddCallback", "char*"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg3) && (XEN_REQUIRED_ARGS_OK(arg3, 3)), arg3, 3, "XtAddCallback", "(XtCallbackProc widget data callb)"); - w = XEN_TO_C_Widget(arg1); - name = (char *)XEN_TO_C_STRING(arg2); - call_descr = C_TO_XEN_XM_XtCallback(arg3, (XEN_BOUND_P(arg4)) ? arg4 : XEN_FALSE); + Xen call_descr = Xen_empty_list; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtAddCallback", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtAddCallback", "char*"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 3)), arg3, 3, "XtAddCallback", "(XtCallbackProc widget data callb)"); + w = Xen_to_C_Widget(arg1); + name = (char *)Xen_string_to_C_string(arg2); + call_descr = C_to_Xen_XM_XtCallback(arg3, (Xen_is_bound(arg4)) ? arg4 : Xen_false); gc_loc = xm_protect(call_descr); - XEN_LIST_SET(call_descr, CALLBACK_GC_LOC, C_TO_XEN_INT(gc_loc)); - XEN_LIST_SET(call_descr, CALLBACK_STRUCT_TYPE, C_TO_XEN_INT(callback_struct_type(w, name))); + Xen_list_set(call_descr, CALLBACK_GC_LOC, C_int_to_Xen_integer(gc_loc)); + Xen_list_set(call_descr, CALLBACK_STRUCT_TYPE, C_int_to_Xen_integer(callback_struct_type(w, name))); XtAddCallback(w, name, gxm_XtCallbackProc, (XtPointer)call_descr); return(call_descr); } -static XEN gxm_XtAddCallbacks(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtAddCallbacks(Xen arg1, Xen arg2, Xen arg3) { #define H_XtAddCallbacks "void XtAddCallbacks(w, callback_name, callbacks) add the specified list of callbacks to the specified widget's callback list. \ It returns a list of callback descriptors for use with XtRemoveCallback(s)." /* DIFF: XtAddCallbacks takes list of (func data) pairs as arg3 */ - XEN res = XEN_EMPTY_LIST, lst; + Xen res = Xen_empty_list, lst; int i, len; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtAddCallbacks", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtAddCallbacks", "char*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XtAddCallbacks", "list of XtCallbacks"); - len = XEN_LIST_LENGTH(arg3); - lst = XEN_COPY_ARG(arg3); - for (i = len - 1; i >= 0; i--, lst = XEN_CDR(lst)) - res = XEN_CONS(gxm_XtAddCallback(arg1, arg2, XEN_CAR(XEN_CAR(lst)), XEN_CADR(XEN_CAR(lst))), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtAddCallbacks", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtAddCallbacks", "char*"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XtAddCallbacks", "list of XtCallbacks"); + len = Xen_list_length(arg3); + lst = Xen_copy_arg(arg3); + for (i = len - 1; i >= 0; i--, lst = Xen_cdr(lst)) + res = Xen_cons(gxm_XtAddCallback(arg1, arg2, Xen_car(Xen_car(lst)), Xen_cadr(Xen_car(lst))), res); return(res); } -static XEN gxm_XtParent(XEN arg1) +static Xen gxm_XtParent(Xen arg1) { #define H_XtParent "Widget XtParent(w): returns the widget's parent widget ID." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtParent", "Widget"); - return(C_TO_XEN_Widget(XtParent(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtParent", "Widget"); + return(C_to_Xen_Widget(XtParent(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtClass(XEN arg1) +static Xen gxm_XtClass(Xen arg1) { #define H_XtClass "WidgetClass XtClass(w)" #define H_XtSuperclass "WidgetClass XtSuperclass(w): returns a pointer to the widget's superclass class structure." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtClass", "Widget"); - return(C_TO_XEN_WidgetClass(XtClass(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtClass", "Widget"); + return(C_to_Xen_WidgetClass(XtClass(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtSuperclass(XEN arg1) +static Xen gxm_XtSuperclass(Xen arg1) { - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtSuperclass", "Widget"); - return(C_TO_XEN_WidgetClass(XtSuperclass(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtSuperclass", "Widget"); + return(C_to_Xen_WidgetClass(XtSuperclass(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtName(XEN arg1) +static Xen gxm_XtName(Xen arg1) { #define H_XtName "Widget XtName(w): returns the widget's name." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtName", "Widget"); - return(C_TO_XEN_STRING(XtName(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtName", "Widget"); + return(C_string_to_Xen_string(XtName(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtWindowOfObject(XEN arg1) +static Xen gxm_XtWindowOfObject(Xen arg1) { #define H_XtWindowOfObject "Window XtWindowOfObject(object): returns the window of the specified object." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtWindowOfObject", "Widget"); - return(C_TO_XEN_Window(XtWindowOfObject(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtWindowOfObject", "Widget"); + return(C_to_Xen_Window(XtWindowOfObject(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtWindow(XEN arg1) +static Xen gxm_XtWindow(Xen arg1) { #define H_XtWindow "Window XtWindow(w): returns the window of the specified widget." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtWindow", "Widget"); - return(C_TO_XEN_Window(XtWindow(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtWindow", "Widget"); + return(C_to_Xen_Window(XtWindow(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtScreenOfObject(XEN arg1) +static Xen gxm_XtScreenOfObject(Xen arg1) { #define H_XtScreenOfObject "Screen *XtScreenOfObject(object): returns the screen pointer for the specified object." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtScreenOfObject", "Widget"); - return(C_TO_XEN_Screen(XtScreenOfObject(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtScreenOfObject", "Widget"); + return(C_to_Xen_Screen(XtScreenOfObject(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtScreen(XEN arg1) +static Xen gxm_XtScreen(Xen arg1) { #define H_XtScreen "Screen* XtScreen(w): returns the screen pointer for the specified widget." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtScreen", "Widget"); - return(C_TO_XEN_Screen(XtScreen(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtScreen", "Widget"); + return(C_to_Xen_Screen(XtScreen(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtDisplayOfObject(XEN arg1) +static Xen gxm_XtDisplayOfObject(Xen arg1) { #define H_XtDisplayOfObject "Display *XtDisplayOfObject(object): returns the display pointer for the specified object." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtDisplayOfObject", "Widget"); - return(C_TO_XEN_Display(XtDisplayOfObject(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtDisplayOfObject", "Widget"); + return(C_to_Xen_Display(XtDisplayOfObject(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtDisplay(XEN arg1) +static Xen gxm_XtDisplay(Xen arg1) { #define H_XtDisplay "Display* XtDisplay(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtDisplay", "Widget"); - return(C_TO_XEN_Display(XtDisplay(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtDisplay", "Widget"); + return(C_to_Xen_Display(XtDisplay(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtVaCreateArgsList(XEN arg1, XEN ignore2) +static Xen gxm_XtVaCreateArgsList(Xen arg1, Xen ignore2) { #define H_XtVaCreateArgsList "XtVarArgsList XtVaCreateArgsList(unused, ...) allocates memory and copies its arguments into a single \ list pointer, which may be used with XtVaNestedList." - /* DIFF: XtVaCreateArgsList just returns its 1st arg + /* DIFF: XtVaCreateArgsList just returns its first arg */ return(arg1); } -static XEN gxm_XtMergeArgLists(XEN arg1, XEN ignore2, XEN arg3, XEN ignore4) +static Xen gxm_XtMergeArgLists(Xen arg1, Xen ignore2, Xen arg3, Xen ignore4) { #define H_XtMergeArgLists "ArgList XtMergeArgLists(args1, num_args1, args2, num_args2) allocates enough storage to hold the combined \ ArgList structures and copies them into it." /* just merges, not duplicate check, kinda dumb to drop into C for that */ - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XtMergeArgLists", "list"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg3), arg3, 3, "XtMergeArgLists", "list"); - return(XEN_APPEND(arg1, arg3)); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XtMergeArgLists", "list"); + Xen_check_type(Xen_is_list(arg3), arg3, 3, "XtMergeArgLists", "list"); + return(Xen_append(arg1, arg3)); } -static XEN gxm_XtWindowToWidget(XEN arg1, XEN arg2) +static Xen gxm_XtWindowToWidget(Xen arg1, Xen arg2) { #define H_XtWindowToWidget "Widget XtWindowToWidget(display, window) translates the specified window and display pointer into the appropriate widget instance." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtWindowToWidget", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XtWindowToWidget", "Window"); - return(C_TO_XEN_Widget(XtWindowToWidget(XEN_TO_C_Display(arg1), XEN_TO_C_Window(arg2)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtWindowToWidget", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XtWindowToWidget", "Window"); + return(C_to_Xen_Widget(XtWindowToWidget(Xen_to_C_Display(arg1), Xen_to_C_Window(arg2)))); } -static XEN gxm_XtNameToWidget(XEN arg1, XEN arg2) +static Xen gxm_XtNameToWidget(Xen arg1, Xen arg2) { #define H_XtNameToWidget "Widget XtNameToWidget(reference, names) looks for a widget whose name is the first component in the specified names" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtNameToWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtNameToWidget", "char*"); - return(C_TO_XEN_Widget(XtNameToWidget(XEN_TO_C_Widget(arg1), (char *)XEN_TO_C_STRING(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtNameToWidget", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtNameToWidget", "char*"); + return(C_to_Xen_Widget(XtNameToWidget(Xen_to_C_Widget(arg1), (char *)Xen_string_to_C_string(arg2)))); } -static XEN gxm_XtSetSensitive(XEN arg1, XEN arg2) +static Xen gxm_XtSetSensitive(Xen arg1, Xen arg2) { #define H_XtSetSensitive "void XtSetSensitive(w, sensitive)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtSetSensitive", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XtSetSensitive", "boolean"); - XtSetSensitive(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtSetSensitive", "Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XtSetSensitive", "boolean"); + XtSetSensitive(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2)); + return(Xen_false); } -static XEN gxm_XtDestroyWidget(XEN arg1) +static Xen gxm_XtDestroyWidget(Xen arg1) { #define H_XtDestroyWidget "void XtDestroyWidget(w) provides the only method of destroying a widget, including widgets that need to destroy themselves." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtDestroyWidget", "Widget"); - XtDestroyWidget(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtDestroyWidget", "Widget"); + XtDestroyWidget(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtUnrealizeWidget(XEN arg1) +static Xen gxm_XtUnrealizeWidget(Xen arg1) { #define H_XtUnrealizeWidget "void XtUnrealizeWidget(w) destroys the windows of an existing widget and all of its children (recursively down the widget tree)." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtUnrealizeWidget", "Widget"); - XtUnrealizeWidget(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtUnrealizeWidget", "Widget"); + XtUnrealizeWidget(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtRealizeWidget(XEN arg1) +static Xen gxm_XtRealizeWidget(Xen arg1) { #define H_XtRealizeWidget "void XtRealizeWidget(w) maps the widget window." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtRealizeWidget", "Widget"); - XtRealizeWidget(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtRealizeWidget", "Widget"); + XtRealizeWidget(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtAppPending(XEN arg1) +static Xen gxm_XtAppPending(Xen arg1) { #define H_XtAppPending "XtInputMask XtAppPending(app_context): returns a nonzero value if there are events pending from the X server, timer \ pending, or other input sources pending. " - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppPending", "XtAppContext"); - return(C_TO_XEN_ULONG(XtAppPending(XEN_TO_C_XtAppContext(arg1)))); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppPending", "XtAppContext"); + return(C_ulong_to_Xen_ulong(XtAppPending(Xen_to_C_XtAppContext(arg1)))); } -static XEN gxm_XtAppNextEvent(XEN arg1) +static Xen gxm_XtAppNextEvent(Xen arg1) { #define H_XtAppNextEvent "void XtAppNextEvent(app_context) flushes the X output buffers of each Display in the application \ context and waits for an event while looking at the other input sources, timeout timeout values, and signal handlers and calling any callback \ @@ -15547,10 +15300,10 @@ procedures triggered by them -> event." /* DIFF: XtAppNextEvent app [ev] -> ev */ XEvent *e; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppNextEvent", "XtAppContext"); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppNextEvent", "XtAppContext"); e = (XEvent *)calloc(1, sizeof(XEvent)); - XtAppNextEvent(XEN_TO_C_XtAppContext(arg1), e); - return(C_TO_XEN_XEvent_OBJ(e)); + XtAppNextEvent(Xen_to_C_XtAppContext(arg1), e); + return(C_to_Xen_XEvent_OBJ(e)); } @@ -15559,25 +15312,25 @@ procedures triggered by them -> event." /* (77) explicitly removed via XtRemoveInput */ -#define C_TO_XEN_XM_Input(Code, Context) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("Input"), Code, Context, XEN_ZERO, XEN_ZERO) -#define XM_Input_P(Arg) WRAP_P("Input", Arg) +#define C_to_Xen_XM_Input(Code, Context) \ + Xen_list_5(C_string_to_Xen_symbol("Input"), Code, Context, Xen_integer_zero, Xen_integer_zero) +#define XM_is_Input(Arg) is_wrapped("Input", Arg) static void gxm_XtInputCallbackProc(XtPointer cdata, int *fileno, XtInputId *id) { - XEN descr = (XEN)cdata; + Xen descr = (Xen)cdata; /* (list 'Input function context gc-loc id) */ - XEN_CALL_3(XEN_CADR(descr), - XEN_CADDR(descr), - C_TO_XEN_ULONG(*fileno), - C_TO_XEN_XtInputId(*id), - c__FUNCTION__); + Xen_call_with_3_args(Xen_cadr(descr), + Xen_caddr(descr), + C_ulong_to_Xen_ulong(*fileno), + C_to_Xen_XtInputId(*id), + __func__); } -static bool unprotect_inputproc(XEN val, int loc, unsigned long id) +static bool unprotect_inputproc(Xen val, int loc, unsigned long id) { - if ((XM_Input_P(val)) && - ((XtInputId)XEN_TO_C_ULONG(XEN_LIST_REF(val, 4)) == id)) + if ((XM_is_Input(val)) && + ((XtInputId)Xen_ulong_to_C_ulong(Xen_list_ref(val, 4)) == id)) { xm_unprotect_at(loc); return(true); @@ -15585,68 +15338,68 @@ static bool unprotect_inputproc(XEN val, int loc, unsigned long id) return(false); } -static XEN gxm_XtRemoveInput(XEN arg1) +static Xen gxm_XtRemoveInput(Xen arg1) { #define H_XtRemoveInput "void XtRemoveInput(id) causes the read routine to stop watching for input from the input source." XtInputId id; - XEN_ASSERT_TYPE(XEN_XtInputId_P(arg1), arg1, 1, "XtRemoveInput", "XtInputId"); - id = XEN_TO_C_XtInputId(arg1); + Xen_check_type(Xen_is_XtInputId(arg1), arg1, 1, "XtRemoveInput", "XtInputId"); + id = Xen_to_C_XtInputId(arg1); XtRemoveInput(id); map_over_protected_elements(unprotect_inputproc, id); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtAppAddInput(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtAppAddInput(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtAppAddInput "XtInputId XtAppAddInput(app_context, source, condition, proc, client_data) registers with the read routine a \ new source of events, which is usually file input but can also be file output." XtInputId id; int gc_loc; - XEN descr; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppAddInput", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XtAppAddInput", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg3), arg3, 3, "XtAppAddInput", "int"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 3)), arg4, 4, "XtAppAddInput", "(XtInputCallbackProc data fileno id)"); - descr = C_TO_XEN_XM_Input(arg4, (XEN_BOUND_P(arg5)) ? arg5 : XEN_FALSE); + Xen descr; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppAddInput", "XtAppContext"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XtAppAddInput", "int"); + Xen_check_type(Xen_is_integer(arg3), arg3, 3, "XtAppAddInput", "int"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 3)), arg4, 4, "XtAppAddInput", "(XtInputCallbackProc data fileno id)"); + descr = C_to_Xen_XM_Input(arg4, (Xen_is_bound(arg5)) ? arg5 : Xen_false); gc_loc = xm_protect(descr); - id = XtAppAddInput(XEN_TO_C_XtAppContext(arg1), - XEN_TO_C_INT(arg2), -#if (SIZEOF_INT64_T != SIZEOF_VOID_P) - (XtPointer)((int)XEN_TO_C_ULONG(arg3)), + id = XtAppAddInput(Xen_to_C_XtAppContext(arg1), + Xen_integer_to_C_int(arg2), +#if (SIZEOF_VOID_P == 4) + (XtPointer)((int)Xen_ulong_to_C_ulong(arg3)), #else - (XtPointer)XEN_TO_C_INT64_T(arg3), + (XtPointer)Xen_llong_to_C_llong(arg3), #endif gxm_XtInputCallbackProc, (XtPointer)descr); - XEN_LIST_SET(descr, 3, C_TO_XEN_INT(gc_loc)); - XEN_LIST_SET(descr, 4, C_TO_XEN_ULONG(id)); - return(C_TO_XEN_XtInputId(id)); + Xen_list_set(descr, 3, C_int_to_Xen_integer(gc_loc)); + Xen_list_set(descr, 4, C_ulong_to_Xen_ulong(id)); + return(C_to_Xen_XtInputId(id)); } /* -------- Timer Callback -------- */ /* (79) protect the function, then unprotect after invocation */ -#define C_TO_XEN_XM_TimeOut(Code, Context) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("TimeOut"), Code, Context, XEN_ZERO, XEN_ZERO) -#define XM_TimeOut_P(Arg) WRAP_P("TimeOut", Arg) +#define C_to_Xen_XM_TimeOut(Code, Context) \ + Xen_list_5(C_string_to_Xen_symbol("TimeOut"), Code, Context, Xen_integer_zero, Xen_integer_zero) +#define XM_is_TimeOut(Arg) is_wrapped("TimeOut", Arg) static void gxm_XtTimerCallbackProc(XtPointer cdata, XtIntervalId* i) { - XEN descr = (XEN)cdata; + Xen descr = (Xen)cdata; /* (list 'TimeOut function context gc-loc id) */ int gc_loc; - gc_loc = XEN_TO_C_INT(XEN_LIST_REF(descr, 3)); - XEN_CALL_2(XEN_CADR(descr), - XEN_CADDR(descr), - C_TO_XEN_XtIntervalId(*i), - c__FUNCTION__); + gc_loc = Xen_integer_to_C_int(Xen_list_ref(descr, 3)); + Xen_call_with_2_args(Xen_cadr(descr), + Xen_caddr(descr), + C_to_Xen_XtIntervalId(*i), + __func__); xm_unprotect_at(gc_loc); } -static bool unprotect_timeoutproc(XEN val, int loc, unsigned long id) +static bool unprotect_timeoutproc(Xen val, int loc, unsigned long id) { - if ((XM_TimeOut_P(val)) && - ((XtIntervalId)XEN_TO_C_ULONG(XEN_LIST_REF(val, 4)) == id)) + if ((XM_is_TimeOut(val)) && + ((XtIntervalId)Xen_ulong_to_C_ulong(Xen_list_ref(val, 4)) == id)) { xm_unprotect_at(loc); return(true); @@ -15654,412 +15407,412 @@ static bool unprotect_timeoutproc(XEN val, int loc, unsigned long id) return(false); } -static XEN gxm_XtRemoveTimeOut(XEN arg1) +static Xen gxm_XtRemoveTimeOut(Xen arg1) { #define H_XtRemoveTimeOut "void XtRemoveTimeOut(timer) removes the timeout." XtIntervalId id; - XEN_ASSERT_TYPE(XEN_XtIntervalId_P(arg1), arg1, 1, "XtRemoveTimeOut", "XtIntervalId"); - id = XEN_TO_C_XtIntervalId(arg1); + Xen_check_type(Xen_is_XtIntervalId(arg1), arg1, 1, "XtRemoveTimeOut", "XtIntervalId"); + id = Xen_to_C_XtIntervalId(arg1); XtRemoveTimeOut(id); map_over_protected_elements(unprotect_timeoutproc, id); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtAppAddTimeOut(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XtAppAddTimeOut(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XtAppAddTimeOut "XtIntervalId XtAppAddTimeOut(app_context, interval, proc, client_data) creates a timeout and returns an identifier for it." XtIntervalId id; int gc_loc; - XEN descr; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppAddTimeOut", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtAppAddTimeOut", "ulong"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg3) && (XEN_REQUIRED_ARGS_OK(arg3, 2)), arg3, 3, "XtAppAddTimeOut", "(XtTimerCallbackProc data id)"); - descr = C_TO_XEN_XM_TimeOut(arg3, (XEN_BOUND_P(arg4)) ? arg4 : XEN_FALSE); + Xen descr; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppAddTimeOut", "XtAppContext"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtAppAddTimeOut", "ulong"); + Xen_check_type(Xen_is_procedure(arg3) && (Xen_is_aritable(arg3, 2)), arg3, 3, "XtAppAddTimeOut", "(XtTimerCallbackProc data id)"); + descr = C_to_Xen_XM_TimeOut(arg3, (Xen_is_bound(arg4)) ? arg4 : Xen_false); gc_loc = xm_protect(descr); - id = XtAppAddTimeOut(XEN_TO_C_XtAppContext(arg1), - XEN_TO_C_ULONG(arg2), + id = XtAppAddTimeOut(Xen_to_C_XtAppContext(arg1), + Xen_ulong_to_C_ulong(arg2), gxm_XtTimerCallbackProc, (XtPointer)descr); - XEN_LIST_SET(descr, 3, C_TO_XEN_INT(gc_loc)); - XEN_LIST_SET(descr, 4, C_TO_XEN_ULONG(id)); - return(C_TO_XEN_XtIntervalId(id)); + Xen_list_set(descr, 3, C_int_to_Xen_integer(gc_loc)); + Xen_list_set(descr, 4, C_ulong_to_Xen_ulong(id)); + return(C_to_Xen_XtIntervalId(id)); } -static XEN gxm_XtLastTimestampProcessed(XEN arg1) +static Xen gxm_XtLastTimestampProcessed(Xen arg1) { #define H_XtLastTimestampProcessed "Time XtLastTimestampProcessed(display): returns the timestamp of the last event" - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtLastTimestampProcessed", "Display*"); - return(C_TO_XEN_Time(XtLastTimestampProcessed(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtLastTimestampProcessed", "Display*"); + return(C_to_Xen_Time(XtLastTimestampProcessed(Xen_to_C_Display(arg1)))); } -static XEN gxm_XtLastEventProcessed(XEN arg1) +static Xen gxm_XtLastEventProcessed(Xen arg1) { #define H_XtLastEventProcessed "XEvent* XtLastEventProcessed(display): returns the last event passed to XtDispatchEvent for the \ specified display and NULL if there has been no event. " - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtLastEventProcessed", "Display*"); - return(C_TO_XEN_XEvent(XtLastEventProcessed(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtLastEventProcessed", "Display*"); + return(C_to_Xen_XEvent(XtLastEventProcessed(Xen_to_C_Display(arg1)))); } -static XEN gxm_XtGetKeyboardFocusWidget(XEN arg1) +static Xen gxm_XtGetKeyboardFocusWidget(Xen arg1) { #define H_XtGetKeyboardFocusWidget "Widget XtGetKeyboardFocusWidget(widget): returns the widget that would be the end result of keyboard \ event forwarding for a keyboard event for the specified widget." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtGetKeyboardFocusWidget", "Widget"); - return(C_TO_XEN_Widget(XtGetKeyboardFocusWidget(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtGetKeyboardFocusWidget", "Widget"); + return(C_to_Xen_Widget(XtGetKeyboardFocusWidget(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtSetKeyboardFocus(XEN arg1, XEN arg2) +static Xen gxm_XtSetKeyboardFocus(Xen arg1, Xen arg2) { #define H_XtSetKeyboardFocus "XtSetKeyboardFocus(subtree descendant) causes XtDispatchEvent to remap and send the event to the specified \ descendant widget." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtSetKeyboardFocus", "Widget"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg2), arg2, 2, "XtSetKeyboardFocus", "Widget"); - XtSetKeyboardFocus(XEN_TO_C_Widget(arg1), XEN_TO_C_Widget(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtSetKeyboardFocus", "Widget"); + Xen_check_type(Xen_is_Widget(arg2), arg2, 2, "XtSetKeyboardFocus", "Widget"); + XtSetKeyboardFocus(Xen_to_C_Widget(arg1), Xen_to_C_Widget(arg2)); + return(Xen_false); } -static XEN gxm_XtAddExposureToRegion(XEN arg1, XEN arg2) +static Xen gxm_XtAddExposureToRegion(Xen arg1, Xen arg2) { #define H_XtAddExposureToRegion "void XtAddExposureToRegion(event, region) computes the union of the rectangle defined by the exposure event \ and the specified region. Then, it stores the results back in region." - XEN_ASSERT_TYPE(XEN_XEvent_P(arg1), arg1, 1, "XtAddExposureToRegion", "XEvent*"); - XEN_ASSERT_TYPE(XEN_Region_P(arg2), arg2, 2, "XtAddExposureToRegion", "Region"); - XtAddExposureToRegion(XEN_TO_C_XEvent(arg1), XEN_TO_C_Region(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XEvent(arg1), arg1, 1, "XtAddExposureToRegion", "XEvent*"); + Xen_check_type(Xen_is_Region(arg2), arg2, 2, "XtAddExposureToRegion", "Region"); + XtAddExposureToRegion(Xen_to_C_XEvent(arg1), Xen_to_C_Region(arg2)); + return(Xen_false); } -static XEN gxm_XtAppMainLoop(XEN arg1) +static Xen gxm_XtAppMainLoop(Xen arg1) { #define H_XtAppMainLoop "void XtAppMainLoop(app_context) first reads the next incoming X event by calling XtAppNextEvent and then it dispatches \ the event to the appropriate registered procedure by calling XtDispatchEvent." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppMainLoop", "XtAppContext"); - XtAppMainLoop(XEN_TO_C_XtAppContext(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppMainLoop", "XtAppContext"); + XtAppMainLoop(Xen_to_C_XtAppContext(arg1)); + return(Xen_false); } -static XEN gxm_XtAppProcessEvent(XEN arg1, XEN arg2) +static Xen gxm_XtAppProcessEvent(Xen arg1, Xen arg2) { #define H_XtAppProcessEvent "void XtAppProcessEvent(app_context, mask) processes one timer, alternate input, signal source, or X event. \ If there is nothing of the appropriate type to process, XtAppProcessEvent blocks until there is." - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppProcessEvent", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtAppProcessEvent", "XtInputMask"); - XtAppProcessEvent(XEN_TO_C_XtAppContext(arg1), XEN_TO_C_ULONG(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppProcessEvent", "XtAppContext"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtAppProcessEvent", "XtInputMask"); + XtAppProcessEvent(Xen_to_C_XtAppContext(arg1), Xen_ulong_to_C_ulong(arg2)); + return(Xen_false); } -static XEN gxm_XtRemoveGrab(XEN arg1) +static Xen gxm_XtRemoveGrab(Xen arg1) { #define H_XtRemoveGrab "void XtRemoveGrab(w) removes widgets from the modal cascade starting at the most recent widget up to and \ including the specified widget. " - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtRemoveGrab", "Widget"); - XtRemoveGrab(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtRemoveGrab", "Widget"); + XtRemoveGrab(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtAddGrab(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtAddGrab(Xen arg1, Xen arg2, Xen arg3) { #define H_XtAddGrab "void XtAddGrab(w, exclusive, spring_loaded) appends the widget (and associated parameters) to the modal cascade and \ checks that exclusive is " PROC_TRUE " if spring_loaded is " PROC_TRUE "." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtAddGrab", "Widget"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XtAddGrab", "boolean"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XtAddGrab", "boolean"); - XtAddGrab(XEN_TO_C_Widget(arg1), XEN_TO_C_BOOLEAN(arg2), XEN_TO_C_BOOLEAN(arg3)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtAddGrab", "Widget"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XtAddGrab", "boolean"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XtAddGrab", "boolean"); + XtAddGrab(Xen_to_C_Widget(arg1), Xen_boolean_to_C_bool(arg2), Xen_boolean_to_C_bool(arg3)); + return(Xen_false); } -static XEN gxm_XtBuildEventMask(XEN arg1) +static Xen gxm_XtBuildEventMask(Xen arg1) { #define H_XtBuildEventMask "EventMask XtBuildEventMask(w): widget's event mask" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtBuildEventMask", "Widget"); - return(C_TO_XEN_ULONG(XtBuildEventMask(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtBuildEventMask", "Widget"); + return(C_ulong_to_Xen_ulong(XtBuildEventMask(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtDispatchEventToWidget(XEN arg1, XEN arg2) +static Xen gxm_XtDispatchEventToWidget(Xen arg1, Xen arg2) { #define H_XtDispatchEventToWidget "Boolean XtDispatchEventToWidget(widget, event) scans the list of registered event handlers for the \ specified widget and calls each handler that has been registered for the specified event type, subject to the continue_to_dispatch value \ returned by each handler." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtDispatchEventToWidget", "Widget"); - XEN_ASSERT_TYPE(XEN_XEvent_P(arg2), arg2, 2, "XtDispatchEventToWidget", "XEvent*"); - return(C_TO_XEN_BOOLEAN(XtDispatchEventToWidget(XEN_TO_C_Widget(arg1), XEN_TO_C_XEvent(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtDispatchEventToWidget", "Widget"); + Xen_check_type(Xen_is_XEvent(arg2), arg2, 2, "XtDispatchEventToWidget", "XEvent*"); + return(C_bool_to_Xen_boolean(XtDispatchEventToWidget(Xen_to_C_Widget(arg1), Xen_to_C_XEvent(arg2)))); } enum {EVENT_HANDLER_TYPE, EVENT_HANDLER_FUNC, EVENT_HANDLER_DATA, EVENT_HANDLER_GC_LOC, EVENT_HANDLER_WIDGET, EVENT_HANDLER_MASK}; -#define C_TO_XEN_XM_XtEventHandler(Code, Context, Widget, Mask) \ - XEN_LIST_6(C_STRING_TO_XEN_SYMBOL("XtEventHandler"), Code, Context, XEN_ZERO, Widget, Mask) -#define XM_XtEventHandler_P(Arg) WRAP_P("XtEventHandler", Arg) +#define C_to_Xen_XM_XtEventHandler(Code, Context, Widget, Mask) \ + Xen_list_6(C_string_to_Xen_symbol("XtEventHandler"), Code, Context, Xen_integer_zero, Widget, Mask) +#define XM_is_XtEventHandler(Arg) is_wrapped("XtEventHandler", Arg) static void gxm_XtEventHandler(Widget w, XtPointer context, XEvent *event, Boolean *flag) { - XEN result; - XEN descr = (XEN)context; - result = XEN_CALL_4(XEN_LIST_REF(descr, EVENT_HANDLER_FUNC), - C_TO_XEN_Widget(w), - XEN_LIST_REF(descr, EVENT_HANDLER_DATA), - C_TO_XEN_XEvent(event), - C_TO_XEN_BOOLEAN(*flag), - c__FUNCTION__); - if ((XEN_SYMBOL_P(result)) && (strcmp("done", XEN_SYMBOL_TO_C_STRING(result)) == 0)) + Xen result; + Xen descr = (Xen)context; + result = Xen_call_with_4_args(Xen_list_ref(descr, EVENT_HANDLER_FUNC), + C_to_Xen_Widget(w), + Xen_list_ref(descr, EVENT_HANDLER_DATA), + C_to_Xen_XEvent(event), + C_bool_to_Xen_boolean(*flag), + __func__); + if ((Xen_is_symbol(result)) && (strcmp("done", Xen_symbol_to_C_string(result)) == 0)) (*flag) = false; } -static bool find_xteventproc_1(XEN val, int loc, unsigned long wd) +static bool find_xteventproc_1(Xen val, int loc, unsigned long wd) { - XEN lst = (XEN)wd; + Xen lst = (Xen)wd; unsigned long w; - XEN code; - XEN data; - w = XEN_TO_C_ULONG(XEN_CAR(lst)); - code = XEN_CADR(lst); - data = XEN_CADDR(lst); - return((XM_XtEventHandler_P(val)) && - (XEN_Widget_P(XEN_LIST_REF(val, EVENT_HANDLER_WIDGET))) && - (XEN_TO_C_ULONG(XEN_CADR(XEN_LIST_REF(val, EVENT_HANDLER_WIDGET))) == w) && - (XEN_EQ_P(code, XEN_LIST_REF(val, EVENT_HANDLER_FUNC))) && - (XEN_EQ_P(data, XEN_LIST_REF(val, EVENT_HANDLER_DATA)))); + Xen code; + Xen data; + w = Xen_ulong_to_C_ulong(Xen_car(lst)); + code = Xen_cadr(lst); + data = Xen_caddr(lst); + return((XM_is_XtEventHandler(val)) && + (Xen_is_Widget(Xen_list_ref(val, EVENT_HANDLER_WIDGET))) && + (Xen_ulong_to_C_ulong(Xen_cadr(Xen_list_ref(val, EVENT_HANDLER_WIDGET))) == w) && + (Xen_is_eq(code, Xen_list_ref(val, EVENT_HANDLER_FUNC))) && + (Xen_is_eq(data, Xen_list_ref(val, EVENT_HANDLER_DATA)))); } -static XEN find_xteventproc(Widget w, XEN code, XEN data) +static Xen find_xteventproc(Widget w, Xen code, Xen data) { /* here we again have to go by the widget */ - XEN lst; + Xen lst; int i, loc; - lst = XEN_LIST_3(C_TO_XEN_ULONG((unsigned long)w),code, data); + lst = Xen_list_3(C_ulong_to_Xen_ulong((unsigned long)w),code, data); loc = xm_protect(lst); i = map_over_protected_elements(find_xteventproc_1, (unsigned long)lst); xm_unprotect_at(loc); if (i >= 0) return(xm_protected_element(i)); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtInsertRawEventHandler(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtInsertRawEventHandler(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtInsertRawEventHandler "void XtInsertRawEventHandler(w, event_mask, nonmaskable, proc, client_data, position) is similar to \ XtInsertEventHandler except that it does not modify the widget's event mask and never causes an XSelectInput for the specified events." - XEN call_descr = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtInsertRawEventHandler", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtInsertRawEventHandler", "EventMask"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XtInsertRawEventHandler", "boolean"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 4)), arg4, 4, "XtInsertRawEventHandler", "XtEventHandler"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XtInsertRawEventHandler", "XtListPosition"); - call_descr = C_TO_XEN_XM_XtEventHandler(arg4, (XEN_BOUND_P(arg5)) ? arg5 : XEN_FALSE, arg1, arg2); - XEN_LIST_SET(call_descr, EVENT_HANDLER_GC_LOC, C_TO_XEN_INT(xm_protect(call_descr))); - XtInsertRawEventHandler(XEN_TO_C_Widget(arg1), - XEN_TO_C_ULONG(arg2), - XEN_TO_C_BOOLEAN(arg3), + Xen call_descr = Xen_empty_list; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtInsertRawEventHandler", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtInsertRawEventHandler", "EventMask"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XtInsertRawEventHandler", "boolean"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 4)), arg4, 4, "XtInsertRawEventHandler", "XtEventHandler"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XtInsertRawEventHandler", "XtListPosition"); + call_descr = C_to_Xen_XM_XtEventHandler(arg4, (Xen_is_bound(arg5)) ? arg5 : Xen_false, arg1, arg2); + Xen_list_set(call_descr, EVENT_HANDLER_GC_LOC, C_int_to_Xen_integer(xm_protect(call_descr))); + XtInsertRawEventHandler(Xen_to_C_Widget(arg1), + Xen_ulong_to_C_ulong(arg2), + Xen_boolean_to_C_bool(arg3), gxm_XtEventHandler, (XtPointer)call_descr, - (XtListPosition)XEN_TO_C_INT(arg6)); - return(XEN_FALSE); + (XtListPosition)Xen_integer_to_C_int(arg6)); + return(Xen_false); } -static XEN gxm_XtInsertEventHandler(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtInsertEventHandler(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtInsertEventHandler "void XtInsertEventHandler(w, event_mask, nonmaskable, proc, client_data, position) is identical to \ XtAddEventHandler with the additional position argument. " - XEN call_descr = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtInsertEventHandler", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtInsertEventHandler", "EventMask"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XtInsertEventHandler", "boolean"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 4)), arg4, 4, "XtInsertEventHandler", "XtEventHandler"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg6), arg6, 6, "XtInsertEventHandler", "XtListPosition"); - call_descr = C_TO_XEN_XM_XtEventHandler(arg4, (XEN_BOUND_P(arg5)) ? arg5 : XEN_FALSE, arg1, arg2); - XEN_LIST_SET(call_descr, EVENT_HANDLER_GC_LOC, C_TO_XEN_INT(xm_protect(call_descr))); - XtInsertEventHandler(XEN_TO_C_Widget(arg1), - XEN_TO_C_ULONG(arg2), - XEN_TO_C_BOOLEAN(arg3), + Xen call_descr = Xen_empty_list; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtInsertEventHandler", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtInsertEventHandler", "EventMask"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XtInsertEventHandler", "boolean"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 4)), arg4, 4, "XtInsertEventHandler", "XtEventHandler"); + Xen_check_type(Xen_is_integer(arg6), arg6, 6, "XtInsertEventHandler", "XtListPosition"); + call_descr = C_to_Xen_XM_XtEventHandler(arg4, (Xen_is_bound(arg5)) ? arg5 : Xen_false, arg1, arg2); + Xen_list_set(call_descr, EVENT_HANDLER_GC_LOC, C_int_to_Xen_integer(xm_protect(call_descr))); + XtInsertEventHandler(Xen_to_C_Widget(arg1), + Xen_ulong_to_C_ulong(arg2), + Xen_boolean_to_C_bool(arg3), gxm_XtEventHandler, (XtPointer)call_descr, - (XtListPosition)XEN_TO_C_INT(arg6)); - return(XEN_FALSE); + (XtListPosition)Xen_integer_to_C_int(arg6)); + return(Xen_false); } -static XEN gxm_XtRemoveRawEventHandler(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtRemoveRawEventHandler(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtRemoveRawEventHandler "void XtRemoveRawEventHandler(w, event_mask, nonmaskable, proc, client_data) stops the specified \ procedure from receiving the specified events." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtRemoveRawEventHandler", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtRemoveRawEventHandler", "EventMask"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XtRemoveRawEventHandler", "boolean"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 4)), arg4, 4, "XtRemoveRawEventHandler", "XtEventHandler"); - XtRemoveRawEventHandler(XEN_TO_C_Widget(arg1), - XEN_TO_C_ULONG(arg2), - XEN_TO_C_BOOLEAN(arg3), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtRemoveRawEventHandler", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtRemoveRawEventHandler", "EventMask"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XtRemoveRawEventHandler", "boolean"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 4)), arg4, 4, "XtRemoveRawEventHandler", "XtEventHandler"); + XtRemoveRawEventHandler(Xen_to_C_Widget(arg1), + Xen_ulong_to_C_ulong(arg2), + Xen_boolean_to_C_bool(arg3), gxm_XtEventHandler, - (XtPointer)find_xteventproc(XEN_TO_C_Widget(arg1), arg4, arg5)); - return(XEN_FALSE); + (XtPointer)find_xteventproc(Xen_to_C_Widget(arg1), arg4, arg5)); + return(Xen_false); } -static XEN gxm_XtAddRawEventHandler(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtAddRawEventHandler(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtAddRawEventHandler "void XtAddRawEventHandler(w, event_mask, nonmaskable, proc, client_data) is similar to XtAddEventHandler \ except that it does not affect the widget's mask and never causes an XSelectInput for its events." - XEN call_descr = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtAddRawEventHandler", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtAddRawEventHandler", "EventMask"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XtAddRawEventHandler", "boolean"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 4)), arg4, 4, "XtAddRawEventHandler", "XtEventHandler"); - call_descr = C_TO_XEN_XM_XtEventHandler(arg4, (XEN_BOUND_P(arg5)) ? arg5 : XEN_FALSE, arg1, arg2); - XEN_LIST_SET(call_descr, EVENT_HANDLER_GC_LOC, C_TO_XEN_INT(xm_protect(call_descr))); - XtAddRawEventHandler(XEN_TO_C_Widget(arg1), - XEN_TO_C_ULONG(arg2), - XEN_TO_C_BOOLEAN(arg3), + Xen call_descr = Xen_empty_list; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtAddRawEventHandler", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtAddRawEventHandler", "EventMask"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XtAddRawEventHandler", "boolean"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 4)), arg4, 4, "XtAddRawEventHandler", "XtEventHandler"); + call_descr = C_to_Xen_XM_XtEventHandler(arg4, (Xen_is_bound(arg5)) ? arg5 : Xen_false, arg1, arg2); + Xen_list_set(call_descr, EVENT_HANDLER_GC_LOC, C_int_to_Xen_integer(xm_protect(call_descr))); + XtAddRawEventHandler(Xen_to_C_Widget(arg1), + Xen_ulong_to_C_ulong(arg2), + Xen_boolean_to_C_bool(arg3), gxm_XtEventHandler, (XtPointer)call_descr); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtRemoveEventHandler(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtRemoveEventHandler(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtRemoveEventHandler "XtRemoveEventHandler(w, event_mask, nonmaskable, proc, client_data)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtRemoveEventHandler", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtRemoveEventHandler", "EventMask"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XtRemoveEventHandler", "boolean"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 4)), arg4, 4, "XtRemoveEventHandler", "XtEventHandler"); - XtRemoveEventHandler(XEN_TO_C_Widget(arg1), - XEN_TO_C_ULONG(arg2), - XEN_TO_C_BOOLEAN(arg3), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtRemoveEventHandler", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtRemoveEventHandler", "EventMask"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XtRemoveEventHandler", "boolean"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 4)), arg4, 4, "XtRemoveEventHandler", "XtEventHandler"); + XtRemoveEventHandler(Xen_to_C_Widget(arg1), + Xen_ulong_to_C_ulong(arg2), + Xen_boolean_to_C_bool(arg3), gxm_XtEventHandler, - (XtPointer)find_xteventproc(XEN_TO_C_Widget(arg1), arg4, arg5)); - return(XEN_FALSE); + (XtPointer)find_xteventproc(Xen_to_C_Widget(arg1), arg4, arg5)); + return(Xen_false); } -static XEN gxm_XtAddEventHandler(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtAddEventHandler(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtAddEventHandler "void XtAddEventHandler(w, event_mask, nonmaskable, proc, client_data) registers a procedure with the dispatch \ mechanism that is to be called when an event that matches the mask occurs on the specified widget. To set the 'continue_to_dispatch' \ flag to 'false', return the symbol 'done from the event handler." - XEN call_descr = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtAddEventHandler", "Widget"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg2), arg2, 2, "XtAddEventHandler", "EventMask"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg3), arg3, 3, "XtAddEventHandler", "boolean"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 4)), arg4, 4, "XtAddEventHandler", "XtEventHandler"); - call_descr = C_TO_XEN_XM_XtEventHandler(arg4, (XEN_BOUND_P(arg5)) ? arg5 : XEN_FALSE, arg1, arg2); - XEN_LIST_SET(call_descr, EVENT_HANDLER_GC_LOC, C_TO_XEN_INT(xm_protect(call_descr))); - XtAddEventHandler(XEN_TO_C_Widget(arg1), - XEN_TO_C_ULONG(arg2), - XEN_TO_C_BOOLEAN(arg3), + Xen call_descr = Xen_empty_list; + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtAddEventHandler", "Widget"); + Xen_check_type(Xen_is_ulong(arg2), arg2, 2, "XtAddEventHandler", "EventMask"); + Xen_check_type(Xen_is_boolean(arg3), arg3, 3, "XtAddEventHandler", "boolean"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 4)), arg4, 4, "XtAddEventHandler", "XtEventHandler"); + call_descr = C_to_Xen_XM_XtEventHandler(arg4, (Xen_is_bound(arg5)) ? arg5 : Xen_false, arg1, arg2); + Xen_list_set(call_descr, EVENT_HANDLER_GC_LOC, C_int_to_Xen_integer(xm_protect(call_descr))); + XtAddEventHandler(Xen_to_C_Widget(arg1), + Xen_ulong_to_C_ulong(arg2), + Xen_boolean_to_C_bool(arg3), gxm_XtEventHandler, (XtPointer)call_descr); - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtConvertCase(XEN arg1, XEN arg2) +static Xen gxm_XtConvertCase(Xen arg1, Xen arg2) { #define H_XtConvertCase "void XtConvertCase(display, keysym) calls the appropriate converter and returns the results." /* DIFF: XtConvertCase dpy keysym [k1 k2] -> (list k1 k2) */ KeySym k1, k2; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtConvertCase", "Display*"); - XEN_ASSERT_TYPE(XEN_KeySym_P(arg2), arg2, 2, "XtConvertCase", "KeySym"); - XtConvertCase(XEN_TO_C_Display(arg1), XEN_TO_C_KeySym(arg2), &k1, &k2); - return(XEN_LIST_2(C_TO_XEN_KeySym(k1), - C_TO_XEN_KeySym(k2))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtConvertCase", "Display*"); + Xen_check_type(Xen_is_KeySym(arg2), arg2, 2, "XtConvertCase", "KeySym"); + XtConvertCase(Xen_to_C_Display(arg1), Xen_to_C_KeySym(arg2), &k1, &k2); + return(Xen_list_2(C_to_Xen_KeySym(k1), + C_to_Xen_KeySym(k2))); } /* -------- case converter -------- */ /* (424) convert case XtRegisterCaseConverter global */ -static XEN xm_XtCaseProc; +static Xen xm_XtCaseProc; static void gxm_XtCaseProc(Display* d, KeySym k1, KeySym* k2, KeySym* k3) { - XEN val; + Xen val; int loc; - val = XEN_CALL_2(xm_XtCaseProc, - C_TO_XEN_Display(d), - C_TO_XEN_KeySym(k1), - c__FUNCTION__); + val = Xen_call_with_2_args(xm_XtCaseProc, + C_to_Xen_Display(d), + C_to_Xen_KeySym(k1), + __func__); loc = xm_protect(val); - if (XEN_LIST_P(val)) + if (Xen_is_list(val)) { - (*k2) = XEN_TO_C_KeySym(XEN_CAR(val)); - (*k3) = XEN_TO_C_KeySym(XEN_CADR(val)); + (*k2) = Xen_to_C_KeySym(Xen_car(val)); + (*k3) = Xen_to_C_KeySym(Xen_cadr(val)); } xm_unprotect_at(loc); } -static XEN gxm_XtRegisterCaseConverter(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XtRegisterCaseConverter(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { #define H_XtRegisterCaseConverter "void XtRegisterCaseConverter(display, proc, start, stop) registers the specified case converter." /* DIFF: XtRegisterCaseConverter user XtCaseProc should return the new KeySyms as a list (not as ref args) */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtRegisterCaseConverter", "Display*"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 2)), arg2, 2, "XtRegisterCaseConverter", "(XtCaseProc dpy keysym)"); - XEN_ASSERT_TYPE(XEN_KeySym_P(arg3), arg3, 3, "XtRegisterCaseConverter", "KeySym"); - XEN_ASSERT_TYPE(XEN_KeySym_P(arg4), arg4, 4, "XtRegisterCaseConverter", "KeySym"); - if (XEN_PROCEDURE_P(xm_XtCaseProc)) xm_unprotect(xm_XtCaseProc); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtRegisterCaseConverter", "Display*"); + Xen_check_type(Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 2)), arg2, 2, "XtRegisterCaseConverter", "(XtCaseProc dpy keysym)"); + Xen_check_type(Xen_is_KeySym(arg3), arg3, 3, "XtRegisterCaseConverter", "KeySym"); + Xen_check_type(Xen_is_KeySym(arg4), arg4, 4, "XtRegisterCaseConverter", "KeySym"); + if (Xen_is_procedure(xm_XtCaseProc)) xm_unprotect(xm_XtCaseProc); xm_protect(arg2); xm_XtCaseProc = arg2; - XtRegisterCaseConverter(XEN_TO_C_Display(arg1), gxm_XtCaseProc, XEN_TO_C_KeySym(arg3), XEN_TO_C_KeySym(arg4)); - return(XEN_FALSE); + XtRegisterCaseConverter(Xen_to_C_Display(arg1), gxm_XtCaseProc, Xen_to_C_KeySym(arg3), Xen_to_C_KeySym(arg4)); + return(Xen_false); } /* -------- keyproc -------- */ /* (454) XtSetKeyTranslator global */ -static XEN xm_XtKeyProc; +static Xen xm_XtKeyProc; static void gxm_XtKeyProc(Display *dpy, KeyCode c, Modifiers m, Modifiers *mp, KeySym *sym) { - XEN val; + Xen val; int loc; - val = XEN_CALL_3(xm_XtKeyProc, - C_TO_XEN_Display(dpy), - C_TO_XEN_KeyCode(c), - C_TO_XEN_Modifiers(m), - c__FUNCTION__); + val = Xen_call_with_3_args(xm_XtKeyProc, + C_to_Xen_Display(dpy), + C_to_Xen_KeyCode(c), + C_to_Xen_Modifiers(m), + __func__); loc = xm_protect(val); - if (XEN_LIST_P(val)) + if (Xen_is_list(val)) { /* KeySym is long, Modifier(s) is int, so these can actually work, I guess */ - (*mp) = XEN_TO_C_Modifiers(XEN_CAR(val)); - (*sym) = XEN_TO_C_KeySym(XEN_CADR(val)); + (*mp) = Xen_to_C_Modifiers(Xen_car(val)); + (*sym) = Xen_to_C_KeySym(Xen_cadr(val)); } else XtTranslateKey(dpy, c, m, mp, sym); xm_unprotect_at(loc); } -static XEN gxm_XtSetKeyTranslator(XEN arg1, XEN arg2) +static Xen gxm_XtSetKeyTranslator(Xen arg1, Xen arg2) { #define H_XtSetKeyTranslator "void XtSetKeyTranslator(display, proc) sets the specified procedure as the current key translator. " /* DIFF: XtSetKeyTranslator user XtKeyProc should return the new Modifiers and KeySym as a list (not as ref arg), set arg2 #f to get default proc */ - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtSetKeyTranslator", "Display*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(arg2) || (XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 3))), arg2, 2, "XtSetKeyTranslator", "(XtKeyProc dpy key mod)"); - if (XEN_PROCEDURE_P(xm_XtKeyProc)) xm_unprotect(xm_XtKeyProc); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtSetKeyTranslator", "Display*"); + Xen_check_type(Xen_is_false(arg2) || (Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 3))), arg2, 2, "XtSetKeyTranslator", "(XtKeyProc dpy key mod)"); + if (Xen_is_procedure(xm_XtKeyProc)) xm_unprotect(xm_XtKeyProc); xm_XtKeyProc = arg2; - if (XEN_FALSE_P(arg2)) - XtSetKeyTranslator(XEN_TO_C_Display(arg1), XtTranslateKey); + if (Xen_is_false(arg2)) + XtSetKeyTranslator(Xen_to_C_Display(arg1), XtTranslateKey); else { xm_protect(arg2); - XtSetKeyTranslator(XEN_TO_C_Display(arg1), (XtKeyProc)gxm_XtKeyProc); + XtSetKeyTranslator(Xen_to_C_Display(arg1), (XtKeyProc)gxm_XtKeyProc); } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtTranslateKey(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtTranslateKey(Xen arg1, Xen arg2, Xen arg3) { #define H_XtTranslateKey "XtTranslateKey(Display *, XtKeyCode, Modifiers): modifiers and keysym" /* DIFF: XtTranslateKey omit and rtn last 2 args */ Modifiers m; KeySym k; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtTranslateKey", "Display*"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XtTranslateKey", "KeyCode"); - XEN_ASSERT_TYPE(XEN_Modifiers_P(arg3), arg3, 3, "XtTranslateKey", "Modifiers"); - XtTranslateKey(XEN_TO_C_Display(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_Modifiers(arg3), &m, &k); - return(XEN_LIST_2(C_TO_XEN_Modifiers(m), - C_TO_XEN_KeySym(k))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtTranslateKey", "Display*"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XtTranslateKey", "KeyCode"); + Xen_check_type(Xen_is_Modifiers(arg3), arg3, 3, "XtTranslateKey", "Modifiers"); + XtTranslateKey(Xen_to_C_Display(arg1), Xen_to_C_KeyCode(arg2), Xen_to_C_Modifiers(arg3), &m, &k); + return(Xen_list_2(C_to_Xen_Modifiers(m), + C_to_Xen_KeySym(k))); } -static XEN gxm_XtTranslateKeycode(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtTranslateKeycode(Xen arg1, Xen arg2, Xen arg3) { #define H_XtTranslateKeycode "void XtTranslateKeycode(display, keycode, modifiers) passes the specified \ arguments directly to the currently registered KeyCode to KeySym translator, returns (modifiers keysym)." @@ -16067,123 +15820,123 @@ arguments directly to the currently registered KeyCode to KeySym translator, ret */ Modifiers m; KeySym k; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtTranslateKeycode", "Display*"); - XEN_ASSERT_TYPE(XEN_KeyCode_P(arg2), arg2, 2, "XtTranslateKeycode", "KeyCode"); - XEN_ASSERT_TYPE(XEN_Modifiers_P(arg3), arg3, 3, "XtTranslateKeycode", "Modifiers"); - XtTranslateKeycode(XEN_TO_C_Display(arg1), XEN_TO_C_KeyCode(arg2), XEN_TO_C_Modifiers(arg3), &m, &k); - return(XEN_LIST_2(C_TO_XEN_Modifiers(m), - C_TO_XEN_KeySym(k))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtTranslateKeycode", "Display*"); + Xen_check_type(Xen_is_KeyCode(arg2), arg2, 2, "XtTranslateKeycode", "KeyCode"); + Xen_check_type(Xen_is_Modifiers(arg3), arg3, 3, "XtTranslateKeycode", "Modifiers"); + XtTranslateKeycode(Xen_to_C_Display(arg1), Xen_to_C_KeyCode(arg2), Xen_to_C_Modifiers(arg3), &m, &k); + return(Xen_list_2(C_to_Xen_Modifiers(m), + C_to_Xen_KeySym(k))); } -static XEN gxm_XtGetActionKeysym(XEN arg1) +static Xen gxm_XtGetActionKeysym(Xen arg1) { #define H_XtGetActionKeysym "KeySym XtGetActionKeysym(event): (keysym modifiers)" /* DIFF: XtGetActionKeysym omit and rtn last arg */ Modifiers m; KeySym k; - XEN_ASSERT_TYPE(XEN_XEvent_P(arg1), arg1, 1, "XtGetActionKeysym", "XEvent*"); - k = XtGetActionKeysym(XEN_TO_C_XEvent(arg1), &m); - return(XEN_LIST_2(C_TO_XEN_KeySym(k), - C_TO_XEN_Modifiers(m))); + Xen_check_type(Xen_is_XEvent(arg1), arg1, 1, "XtGetActionKeysym", "XEvent*"); + k = XtGetActionKeysym(Xen_to_C_XEvent(arg1), &m); + return(Xen_list_2(C_to_Xen_KeySym(k), + C_to_Xen_Modifiers(m))); } -static XEN gxm_XtGetResourceList(XEN widget_class) +static Xen gxm_XtGetResourceList(Xen widget_class) { #define H_XtGetResourceList "XtGetResourceList(widget-class): returns the widget class's resource list" - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; Cardinal len = 0; - int i; XtResourceList resources; - XEN_ASSERT_TYPE(XEN_WidgetClass_P(widget_class), widget_class, 1, "XtGetResourceList", "WidgetClass"); - XtGetResourceList(XEN_TO_C_WidgetClass(widget_class), &resources, &len); + Xen_check_type(Xen_is_WidgetClass(widget_class), widget_class, 1, "XtGetResourceList", "WidgetClass"); + XtGetResourceList(Xen_to_C_WidgetClass(widget_class), &resources, &len); if (len > 0) { + int i; for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(XEN_LIST_7(C_TO_XEN_STRING(resources[i].resource_name), - C_TO_XEN_STRING(resources[i].resource_class), - C_TO_XEN_STRING(resources[i].resource_type), - C_TO_XEN_INT((int)(resources[i].resource_size)), - C_TO_XEN_INT((int)(resources[i].resource_offset)), - C_TO_XEN_STRING(resources[i].default_type), - XEN_WRAP_C_POINTER(resources[i].default_addr)), + lst = Xen_cons(Xen_list_7(C_string_to_Xen_string(resources[i].resource_name), + C_string_to_Xen_string(resources[i].resource_class), + C_string_to_Xen_string(resources[i].resource_type), + C_int_to_Xen_integer((int)(resources[i].resource_size)), + C_int_to_Xen_integer((int)(resources[i].resource_offset)), + C_string_to_Xen_string(resources[i].default_type), + Xen_wrap_C_pointer(resources[i].default_addr)), lst); XtFree((char *)resources); } return(lst); } -static XEN gxm_XtGetMultiClickTime(XEN arg1) +static Xen gxm_XtGetMultiClickTime(Xen arg1) { #define H_XtGetMultiClickTime "int XtGetMultiClickTime(display): returns the time in milliseconds that the translation manager uses to \ determine if multiple events are to be interpreted as a repeated event " - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtGetMultiClickTime", "Display*"); - return(C_TO_XEN_INT(XtGetMultiClickTime(XEN_TO_C_Display(arg1)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtGetMultiClickTime", "Display*"); + return(C_int_to_Xen_integer(XtGetMultiClickTime(Xen_to_C_Display(arg1)))); } -static XEN gxm_XtSetMultiClickTime(XEN arg1, XEN arg2) +static Xen gxm_XtSetMultiClickTime(Xen arg1, Xen arg2) { #define H_XtSetMultiClickTime "void XtSetMultiClickTime(display, time) sets the time interval used by the translation manager to determine \ when multiple events are interpreted as a repeated event." - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtSetMultiClickTime", "Display*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg2), arg2, 2, "XtSetMultiClickTime", "int"); - XtSetMultiClickTime(XEN_TO_C_Display(arg1), XEN_TO_C_INT(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtSetMultiClickTime", "Display*"); + Xen_check_type(Xen_is_integer(arg2), arg2, 2, "XtSetMultiClickTime", "int"); + XtSetMultiClickTime(Xen_to_C_Display(arg1), Xen_integer_to_C_int(arg2)); + return(Xen_false); } -static XEN register_proc; +static Xen register_proc; static void gxm_XtRegisterGrabActionProc(Widget w, XEvent* e, String* s, Cardinal* c) { - XEN_CALL_3(register_proc, - C_TO_XEN_Widget(w), - C_TO_XEN_XEvent(e), - C_TO_XEN_Strings(s, *c), - c__FUNCTION__); + Xen_call_with_3_args(register_proc, + C_to_Xen_Widget(w), + C_to_Xen_XEvent(e), + C_to_Xen_Strings(s, *c), + __func__); } -static XEN gxm_XtRegisterGrabAction(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtRegisterGrabAction(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtRegisterGrabAction "void XtRegisterGrabAction(action_proc, owner_events, event_mask, pointer_mode, keyboard_mode) adds the \ specified action_proc to a list known to the translation manager." - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg1) && (XEN_REQUIRED_ARGS_OK(arg1, 3)), arg1, 1, "XtRegisterGrabAction", "XtActionProc"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(arg2), arg2, 2, "XtRegisterGrabAction", "boolean"); - XEN_ASSERT_TYPE(XEN_ULONG_P(arg3), arg3, 3, "XtRegisterGrabAction", "unsigned int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg4), arg4, 4, "XtRegisterGrabAction", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(arg5), arg5, 5, "XtRegisterGrabAction", "int"); + Xen_check_type(Xen_is_procedure(arg1) && (Xen_is_aritable(arg1, 3)), arg1, 1, "XtRegisterGrabAction", "XtActionProc"); + Xen_check_type(Xen_is_boolean(arg2), arg2, 2, "XtRegisterGrabAction", "boolean"); + Xen_check_type(Xen_is_ulong(arg3), arg3, 3, "XtRegisterGrabAction", "unsigned int"); + Xen_check_type(Xen_is_integer(arg4), arg4, 4, "XtRegisterGrabAction", "int"); + Xen_check_type(Xen_is_integer(arg5), arg5, 5, "XtRegisterGrabAction", "int"); xm_protect(arg1); register_proc = arg1; - XtRegisterGrabAction(gxm_XtRegisterGrabActionProc, XEN_TO_C_BOOLEAN(arg2), XEN_TO_C_ULONG(arg3), XEN_TO_C_INT(arg4), XEN_TO_C_INT(arg5)); - return(XEN_FALSE); + XtRegisterGrabAction(gxm_XtRegisterGrabActionProc, Xen_boolean_to_C_bool(arg2), Xen_ulong_to_C_ulong(arg3), Xen_integer_to_C_int(arg4), Xen_integer_to_C_int(arg5)); + return(Xen_false); } -static XEN gxm_XtCallActionProc(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XtCallActionProc(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { #define H_XtCallActionProc "void XtCallActionProc(widget, action, event, params, num_params) searches for the named action routine in the \ same manner and order as translation tables are bound. If found, the action routine is invoked with the specified widget, event pointer, \ and parameters." char **params = NULL; int i, len = 0; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCallActionProc", "Widget"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XtCallActionProc", "char*"); - XEN_ASSERT_TYPE(XEN_XEvent_P(arg3) || XEN_FALSE_P(arg3), arg3, 3, "XtCallActionProc", "XEvent*"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg4) || XEN_FALSE_P(arg4), arg4, 4, "XtCallActionProc", "list of String"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg5), arg5, 5, "XtCallActionProc", "int"); - if (XEN_LIST_P(arg4)) + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCallActionProc", "Widget"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XtCallActionProc", "char*"); + Xen_check_type(Xen_is_XEvent(arg3) || Xen_is_false(arg3), arg3, 3, "XtCallActionProc", "XEvent*"); + Xen_check_type(Xen_is_list(arg4) || Xen_is_false(arg4), arg4, 4, "XtCallActionProc", "list of String"); + Xen_check_type(Xen_is_integer_or_unbound(arg5), arg5, 5, "XtCallActionProc", "int"); + if (Xen_is_list(arg4)) { - if (XEN_INTEGER_P(arg5)) - len = XEN_TO_C_INT(arg5); - else len = XEN_LIST_LENGTH(arg4); + if (Xen_is_integer(arg5)) + len = Xen_integer_to_C_int(arg5); + else len = Xen_list_length(arg4); } if (len > 0) { params = (char **)calloc(len, sizeof(char *)); for (i = 0; i < len; i++) - params[i] = xen_strdup(XEN_TO_C_STRING(XEN_LIST_REF(arg4, i))); + params[i] = xen_strdup(Xen_string_to_C_string(Xen_list_ref(arg4, i))); } - XtCallActionProc(XEN_TO_C_Widget(arg1), - (char *)XEN_TO_C_STRING(arg2), - (XEN_XEvent_P(arg3)) ? XEN_TO_C_XEvent(arg3) : NULL, + XtCallActionProc(Xen_to_C_Widget(arg1), + (char *)Xen_string_to_C_string(arg2), + (Xen_is_XEvent(arg3)) ? Xen_to_C_XEvent(arg3) : NULL, params, len); if (params) { @@ -16191,39 +15944,39 @@ and parameters." if (params[i]) free(params[i]); free(params); } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtGetActionList(XEN arg1) +static Xen gxm_XtGetActionList(Xen arg1) { #define H_XtGetActionList "void XtGetActionList(widget_class): list of actions" /* DIFF: XtGetActionList omit arg2 and 3, return list of lists */ unsigned int len; XtActionList act; - XEN lst = XEN_EMPTY_LIST; - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg1), arg1, 1, "XtGetActionList", "WidgetClass"); - XtGetActionList(XEN_TO_C_WidgetClass(arg1), &act, &len); + Xen lst = Xen_empty_list; + Xen_check_type(Xen_is_WidgetClass(arg1), arg1, 1, "XtGetActionList", "WidgetClass"); + XtGetActionList(Xen_to_C_WidgetClass(arg1), &act, &len); if (len > 0) { int i; for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(XEN_LIST_2(C_TO_XEN_STRING(act[i].string), - C_TO_XEN_ULONG(act[i].proc)), + lst = Xen_cons(Xen_list_2(C_string_to_Xen_string(act[i].string), + C_ulong_to_Xen_ulong(act[i].proc)), lst); free(act); } return(lst); } -#define C_TO_XEN_XM_ActionHook(Code, Context) \ - XEN_LIST_5(C_STRING_TO_XEN_SYMBOL("ActionHook"), Code, Context, XEN_ZERO, XEN_ZERO) -#define XM_ActionHook_P(Arg) WRAP_P("ActionHook", Arg) +#define C_to_Xen_XM_ActionHook(Code, Context) \ + Xen_list_5(C_string_to_Xen_symbol("ActionHook"), Code, Context, Xen_integer_zero, Xen_integer_zero) +#define XM_is_ActionHook(Arg) is_wrapped("ActionHook", Arg) -static bool unprotect_actionhook(XEN val, int loc, unsigned long id) +static bool unprotect_actionhook(Xen val, int loc, unsigned long id) { - if ((XM_ActionHook_P(val)) && - ((XtActionHookId)XEN_TO_C_ULONG(XEN_LIST_REF(val, 4)) == (XtActionHookId)id)) + if ((XM_is_ActionHook(val)) && + ((XtActionHookId)Xen_ulong_to_C_ulong(Xen_list_ref(val, 4)) == (XtActionHookId)id)) { xm_unprotect_at(loc); return(true); @@ -16231,47 +15984,47 @@ static bool unprotect_actionhook(XEN val, int loc, unsigned long id) return(false); } -static XEN gxm_XtRemoveActionHook(XEN arg1) +static Xen gxm_XtRemoveActionHook(Xen arg1) { #define H_XtRemoveActionHook "void XtRemoveActionHook(idP) removes the specified action hook procedure from the list in which it was registered." XtActionHookId id; - XEN_ASSERT_TYPE(XEN_XtActionHookId_P(arg1), arg1, 1, "XtRemoveActionHook", "XtActionHookId"); - id = XEN_TO_C_XtActionHookId(arg1); + Xen_check_type(Xen_is_XtActionHookId(arg1), arg1, 1, "XtRemoveActionHook", "XtActionHookId"); + id = Xen_to_C_XtActionHookId(arg1); XtRemoveActionHook(id); map_over_protected_elements(unprotect_actionhook, (unsigned long)id); - return(XEN_FALSE); + return(Xen_false); } static void gxm_XtActionHookProc(Widget w, XtPointer p, String s, XEvent* e, String* s1, Cardinal* c) { /* DIFF: XtActionHookProc takes 5 args (last is string list) */ - XEN descr = (XEN)p; + Xen descr = (Xen)p; /* (list 'ActionHook function context gc-loc id) */ - XEN_CALL_5(XEN_CADR(descr), - C_TO_XEN_Widget(w), - XEN_CADDR(descr), - C_TO_XEN_STRING(s), - C_TO_XEN_XEvent(e), - C_TO_XEN_Strings(s1, *c), - c__FUNCTION__); + Xen_call_with_5_args(Xen_cadr(descr), + C_to_Xen_Widget(w), + Xen_caddr(descr), + C_string_to_Xen_string(s), + C_to_Xen_XEvent(e), + C_to_Xen_Strings(s1, *c), + __func__); } -static XEN gxm_XtAppAddActionHook(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtAppAddActionHook(Xen arg1, Xen arg2, Xen arg3) { #define H_XtAppAddActionHook "XtActionHookId XtAppAddActionHook(app_context, proc, client_data) adds the specified procedure to the front of \ a list maintained in the application context." XtActionHookId id; int gc_loc; - XEN descr; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppAddActionHook", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg2) && (XEN_REQUIRED_ARGS_OK(arg2, 5)), arg2, 2, "XtAppAddActionHook", "XtActionHookProc"); - descr = C_TO_XEN_XM_ActionHook(arg2, (XEN_BOUND_P(arg3)) ? arg3 : XEN_FALSE); + Xen descr; + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppAddActionHook", "XtAppContext"); + Xen_check_type(Xen_is_procedure(arg2) && (Xen_is_aritable(arg2, 5)), arg2, 2, "XtAppAddActionHook", "XtActionHookProc"); + descr = C_to_Xen_XM_ActionHook(arg2, (Xen_is_bound(arg3)) ? arg3 : Xen_false); gc_loc = xm_protect(descr); - id = XtAppAddActionHook(XEN_TO_C_XtAppContext(arg1), gxm_XtActionHookProc, (XtPointer)descr); - XEN_LIST_SET(descr, 3, C_TO_XEN_INT(gc_loc)); - XEN_LIST_SET(descr, 4, C_TO_XEN_ULONG(id)); - return(C_TO_XEN_XtActionHookId(id)); + id = XtAppAddActionHook(Xen_to_C_XtAppContext(arg1), gxm_XtActionHookProc, (XtPointer)descr); + Xen_list_set(descr, 3, C_int_to_Xen_integer(gc_loc)); + Xen_list_set(descr, 4, C_ulong_to_Xen_ulong(id)); + return(C_to_Xen_XtActionHookId(id)); } @@ -16290,38 +16043,38 @@ a list maintained in the application context." * struct _XtStateRec *current_state; */ -static XEN xtactionprocs[9]; +static Xen xtactionprocs[9]; static void gxm_XtActionProc0(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[0], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[0], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc1(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[1], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[1], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc2(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[2], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[2], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc3(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[3], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[3], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc4(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[4], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[4], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc5(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[5], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[5], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc6(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[6], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[6], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc7(Widget w, XEvent *e, char **args, Cardinal *argn) { - XEN_CALL_3(xtactionprocs[7], C_TO_XEN_Widget(w), C_TO_XEN_XEvent(e), C_TO_XEN_Strings(args, *argn), c__FUNCTION__); + Xen_call_with_3_args(xtactionprocs[7], C_to_Xen_Widget(w), C_to_Xen_XEvent(e), C_to_Xen_Strings(args, *argn), __func__); } static void gxm_XtActionProc8(Widget w, XEvent *e, char **args, Cardinal *argn) { @@ -16329,25 +16082,25 @@ static void gxm_XtActionProc8(Widget w, XEvent *e, char **args, Cardinal *argn) } static int xm_action_ctr = 0; -static XtActionsRec *make_action_rec(int len, XEN larg2) +static XtActionsRec *make_action_rec(int len, Xen larg2) { int i, gcloc; XtActionsRec *act; - XEN arg2; - arg2 = XEN_COPY_ARG(larg2); + Xen arg2; + arg2 = Xen_copy_arg(larg2); gcloc = xm_protect(arg2); act = (XtActionsRec *)calloc(len, sizeof(XtActionsRec)); - for (i = 0; i < len; i++, arg2 = XEN_CDR(arg2)) + for (i = 0; i < len; i++, arg2 = Xen_cdr(arg2)) { - XEN pair; - pair = XEN_CAR(arg2); - act[i].string = (String)xen_strdup(XEN_TO_C_STRING(XEN_CAR(pair))); + Xen pair; + pair = Xen_car(arg2); + act[i].string = (String)xen_strdup(Xen_string_to_C_string(Xen_car(pair))); if (xm_action_ctr >= 8) { fprintf(stderr,"too many actions..."); act[i].proc = (XtActionProc)gxm_XtActionProc8; - xm_protect(XEN_CADR(pair)); - xtactionprocs[8] = XEN_CADR(pair); + xm_protect(Xen_cadr(pair)); + xtactionprocs[8] = Xen_cadr(pair); } else { @@ -16362,15 +16115,15 @@ static XtActionsRec *make_action_rec(int len, XEN larg2) case 6: act[i].proc = (XtActionProc)gxm_XtActionProc6; break; case 7: act[i].proc = (XtActionProc)gxm_XtActionProc7; break; } - xm_protect(XEN_CADR(pair)); - xtactionprocs[xm_action_ctr++] = XEN_CADR(pair); + xm_protect(Xen_cadr(pair)); + xtactionprocs[xm_action_ctr++] = Xen_cadr(pair); } } xm_unprotect_at(gcloc); return(act); } -static XEN gxm_XtAppAddActions(XEN arg1, XEN arg2) +static Xen gxm_XtAppAddActions(Xen arg1, Xen arg2) { #define H_XtAppAddActions "void XtAppAddActions(app_context, actions, num_actions) adds the specified action table and registers it \ with the translation manager." @@ -16379,81 +16132,81 @@ with the translation manager." */ XtActionsRec *act; int i, len; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppAddActions", "XtAppContext"); - XEN_ASSERT_TYPE(XEN_LIST_P(arg2), arg2, 2, "XtAppAddActions", "list of XtActions"); - len = XEN_LIST_LENGTH(arg2); - if (len <= 0) XEN_ASSERT_TYPE(0, arg2, 2, "XtAppAddActions", "positive integer"); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppAddActions", "XtAppContext"); + Xen_check_type(Xen_is_list(arg2), arg2, 2, "XtAppAddActions", "list of XtActions"); + len = Xen_list_length(arg2); + if (len <= 0) Xen_check_type(0, arg2, 2, "XtAppAddActions", "positive integer"); act = make_action_rec(len, arg2); - XtAppAddActions(XEN_TO_C_XtAppContext(arg1), act, len); + XtAppAddActions(Xen_to_C_XtAppContext(arg1), act, len); for (i = 0; i < len; i++) if (act[i].string) free(act[i].string); free(act); return(arg1); } -static XEN gxm_XtUninstallTranslations(XEN arg1) +static Xen gxm_XtUninstallTranslations(Xen arg1) { #define H_XtUninstallTranslations "void XtUninstallTranslations(w) causes the entire translation table for widget to be removed." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtUninstallTranslations", "Widget"); - XtUninstallTranslations(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtUninstallTranslations", "Widget"); + XtUninstallTranslations(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtInstallAllAccelerators(XEN arg1, XEN arg2) +static Xen gxm_XtInstallAllAccelerators(Xen arg1, Xen arg2) { #define H_XtInstallAllAccelerators "void XtInstallAllAccelerators(destination, source)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtInstallAllAccelerators", "Widget"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg2), arg2, 2, "XtInstallAllAccelerators", "Widget"); - XtInstallAllAccelerators(XEN_TO_C_Widget(arg1), XEN_TO_C_Widget(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtInstallAllAccelerators", "Widget"); + Xen_check_type(Xen_is_Widget(arg2), arg2, 2, "XtInstallAllAccelerators", "Widget"); + XtInstallAllAccelerators(Xen_to_C_Widget(arg1), Xen_to_C_Widget(arg2)); + return(Xen_false); } -static XEN gxm_XtInstallAccelerators(XEN arg1, XEN arg2) +static Xen gxm_XtInstallAccelerators(Xen arg1, Xen arg2) { #define H_XtInstallAccelerators "void XtInstallAccelerators(destination, source) installs the accelerators from source onto destination by \ augmenting the destination translations with the source accelerators." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtInstallAccelerators", "Widget"); - XEN_ASSERT_TYPE(XEN_Widget_P(arg2), arg2, 2, "XtInstallAccelerators", "Widget"); - XtInstallAccelerators(XEN_TO_C_Widget(arg1), XEN_TO_C_Widget(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtInstallAccelerators", "Widget"); + Xen_check_type(Xen_is_Widget(arg2), arg2, 2, "XtInstallAccelerators", "Widget"); + XtInstallAccelerators(Xen_to_C_Widget(arg1), Xen_to_C_Widget(arg2)); + return(Xen_false); } -static XEN gxm_XtAugmentTranslations(XEN arg1, XEN arg2) +static Xen gxm_XtAugmentTranslations(Xen arg1, Xen arg2) { #define H_XtAugmentTranslations "void XtAugmentTranslations(w, translations) nondestructively merges the new translations into the existing \ widget translations." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtAugmentTranslations", "Widget"); - XEN_ASSERT_TYPE(XEN_XtTranslations_P(arg2), arg2, 2, "XtAugmentTranslations", "XtTranslations"); - XtAugmentTranslations(XEN_TO_C_Widget(arg1), XEN_TO_C_XtTranslations(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtAugmentTranslations", "Widget"); + Xen_check_type(Xen_is_XtTranslations(arg2), arg2, 2, "XtAugmentTranslations", "XtTranslations"); + XtAugmentTranslations(Xen_to_C_Widget(arg1), Xen_to_C_XtTranslations(arg2)); + return(Xen_false); } -static XEN gxm_XtOverrideTranslations(XEN arg1, XEN arg2) +static Xen gxm_XtOverrideTranslations(Xen arg1, Xen arg2) { #define H_XtOverrideTranslations "void XtOverrideTranslations(w, translations) destructively merges the new translations into the existing \ widget translations." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtOverrideTranslations", "Widget"); - XEN_ASSERT_TYPE(XEN_XtTranslations_P(arg2), arg2, 2, "XtOverrideTranslations", "XtTranslations"); - XtOverrideTranslations(XEN_TO_C_Widget(arg1), XEN_TO_C_XtTranslations(arg2)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtOverrideTranslations", "Widget"); + Xen_check_type(Xen_is_XtTranslations(arg2), arg2, 2, "XtOverrideTranslations", "XtTranslations"); + XtOverrideTranslations(Xen_to_C_Widget(arg1), Xen_to_C_XtTranslations(arg2)); + return(Xen_false); } -static XEN gxm_XtParseAcceleratorTable(XEN arg1) +static Xen gxm_XtParseAcceleratorTable(Xen arg1) { #define H_XtParseAcceleratorTable "XtAccelerators XtParseAcceleratorTable(const char *source) compiles source" - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtParseAcceleratorTable", "char*"); - return(C_TO_XEN_ULONG(XtParseAcceleratorTable((char *)XEN_TO_C_STRING(arg1)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtParseAcceleratorTable", "char*"); + return(C_ulong_to_Xen_ulong(XtParseAcceleratorTable((char *)Xen_string_to_C_string(arg1)))); } -static XEN gxm_XtParseTranslationTable(XEN arg1) +static Xen gxm_XtParseTranslationTable(Xen arg1) { #define H_XtParseTranslationTable "XtTranslations XtParseTranslationTable(table) compiles the translation table into the opaque internal \ representation of type XtTranslations." - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XtParseTranslationTable", "char*"); - return(C_TO_XEN_XtTranslations(XtParseTranslationTable((char *)XEN_TO_C_STRING(arg1)))); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XtParseTranslationTable", "char*"); + return(C_to_Xen_XtTranslations(XtParseTranslationTable((char *)Xen_string_to_C_string(arg1)))); } -static XEN gxm_XtKeysymToKeycodeList(XEN arg1, XEN arg2) +static Xen gxm_XtKeysymToKeycodeList(Xen arg1, Xen arg2) { #define H_XtKeysymToKeycodeList "void XtKeysymToKeycodeList(display, keysym) procedure returns all the \ KeyCodes that have keysym in their entry for the keyboard mapping table associated with display -> (keycodes)." @@ -16461,74 +16214,74 @@ KeyCodes that have keysym in their entry for the keyboard mapping table associat */ unsigned int len; KeyCode *kr; - XEN lst = XEN_EMPTY_LIST; + Xen lst = Xen_empty_list; int loc; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XtKeysymToKeycodeList", "Display*"); - XEN_ASSERT_TYPE(XEN_KeySym_P(arg2), arg2, 2, "XtKeysymToKeycodeList", "KeySym"); - XtKeysymToKeycodeList(XEN_TO_C_Display(arg1), XEN_TO_C_KeySym(arg2), &kr, &len); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XtKeysymToKeycodeList", "Display*"); + Xen_check_type(Xen_is_KeySym(arg2), arg2, 2, "XtKeysymToKeycodeList", "KeySym"); + XtKeysymToKeycodeList(Xen_to_C_Display(arg1), Xen_to_C_KeySym(arg2), &kr, &len); loc = xm_protect(lst); if (len > 0) { int i; for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(C_TO_XEN_KeyCode(kr[i]), lst); + lst = Xen_cons(C_to_Xen_KeyCode(kr[i]), lst); free(kr); } xm_unprotect_at(loc); return(lst); } -static XEN gxm_XtTranslateCoords(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtTranslateCoords(Xen arg1, Xen arg2, Xen arg3) { #define H_XtTranslateCoords "void XtTranslateCoords(w, x, y): (root_x root_y)" /* DIFF: XtTranslateCoords omits and returns last 2 args */ Position x, y; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtTranslateCoords", "Widget"); - XEN_ASSERT_TYPE(XEN_Position_P(arg2), arg2, 2, "XtTranslateCoords", "Position"); - XEN_ASSERT_TYPE(XEN_Position_P(arg3), arg3, 3, "XtTranslateCoords", "Position"); - XtTranslateCoords(XEN_TO_C_Widget(arg1), XEN_TO_C_Position(arg2), XEN_TO_C_Position(arg3), &x, &y); - return(XEN_LIST_2(C_TO_XEN_Position(x), - C_TO_XEN_Position(y))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtTranslateCoords", "Widget"); + Xen_check_type(Xen_is_Position(arg2), arg2, 2, "XtTranslateCoords", "Position"); + Xen_check_type(Xen_is_Position(arg3), arg3, 3, "XtTranslateCoords", "Position"); + XtTranslateCoords(Xen_to_C_Widget(arg1), Xen_to_C_Position(arg2), Xen_to_C_Position(arg3), &x, &y); + return(Xen_list_2(C_to_Xen_Position(x), + C_to_Xen_Position(y))); } -static XEN gxm_XtMakeResizeRequest(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtMakeResizeRequest(Xen arg1, Xen arg2, Xen arg3) { #define H_XtMakeResizeRequest "XtGeometryResult XtMakeResizeRequest(w, width, height): (res width height)" /* DIFF: XtMakeResizeRequest w wid hgt [rtnw rtn] -> (list res w h) */ Dimension w, h; int val; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtMakeResizeRequest", "Widget"); - XEN_ASSERT_TYPE(XEN_Dimension_P(arg2), arg2, 2, "XtMakeResizeRequest", "Dimension"); - XEN_ASSERT_TYPE(XEN_Dimension_P(arg3), arg3, 3, "XtMakeResizeRequest", "Dimension"); - val = XtMakeResizeRequest(XEN_TO_C_Widget(arg1), - XEN_TO_C_Dimension(arg2), - XEN_TO_C_Dimension(arg3), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtMakeResizeRequest", "Widget"); + Xen_check_type(Xen_is_Dimension(arg2), arg2, 2, "XtMakeResizeRequest", "Dimension"); + Xen_check_type(Xen_is_Dimension(arg3), arg3, 3, "XtMakeResizeRequest", "Dimension"); + val = XtMakeResizeRequest(Xen_to_C_Widget(arg1), + Xen_to_C_Dimension(arg2), + Xen_to_C_Dimension(arg3), &w, &h); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_Dimension(w), - C_TO_XEN_Dimension(h))); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_to_Xen_Dimension(w), + C_to_Xen_Dimension(h))); } -static XEN gxm_XtOwnSelectionIncremental(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6, XEN arg7, XEN arg8) +static Xen gxm_XtOwnSelectionIncremental(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6, Xen arg7, Xen arg8) { #define H_XtOwnSelectionIncremental "Boolean XtOwnSelectionIncremental(w, selection, time, convert_callback, lose_callback, \ done_callback, cancel_callback, client_data)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtOwnSelectionIncremental", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtOwnSelectionIncremental", "Atom"); - XEN_ASSERT_TYPE(XEN_Time_P(arg3), arg3, 3, "XtOwnSelectionIncremental", "Time"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 10)), arg4, 4, "XtOwnSelectionIncremental", "XtConvertSelectionIncrProc"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg5) && (XEN_REQUIRED_ARGS_OK(arg5, 3)), arg5, 5, "XtOwnSelectionIncremental", "XtLoseSelectionIncrProc"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg6) && (XEN_REQUIRED_ARGS_OK(arg6, 5)), arg6, 6, "XtOwnSelectionIncremental", "XtSelectionDoneIncrProc"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg7) && (XEN_REQUIRED_ARGS_OK(arg7, 5)), arg7, 7, "XtOwnSelectionIncremental", "XtCancelConvertSelectionProc"); - add_selmap(XEN_TO_C_Widget(arg1), CONVERT_INCR, arg4); - add_selmap(XEN_TO_C_Widget(arg1), LOSE_INCR, arg5); - add_selmap(XEN_TO_C_Widget(arg1), DONE_INCR, arg6); - add_selmap(XEN_TO_C_Widget(arg1), CANCEL_CONVERT, arg7); - return(C_TO_XEN_BOOLEAN(XtOwnSelectionIncremental(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), - XEN_TO_C_Time(arg3), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtOwnSelectionIncremental", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtOwnSelectionIncremental", "Atom"); + Xen_check_type(Xen_is_Time(arg3), arg3, 3, "XtOwnSelectionIncremental", "Time"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 10)), arg4, 4, "XtOwnSelectionIncremental", "XtConvertSelectionIncrProc"); + Xen_check_type(Xen_is_procedure(arg5) && (Xen_is_aritable(arg5, 3)), arg5, 5, "XtOwnSelectionIncremental", "XtLoseSelectionIncrProc"); + Xen_check_type(Xen_is_procedure(arg6) && (Xen_is_aritable(arg6, 5)), arg6, 6, "XtOwnSelectionIncremental", "XtSelectionDoneIncrProc"); + Xen_check_type(Xen_is_procedure(arg7) && (Xen_is_aritable(arg7, 5)), arg7, 7, "XtOwnSelectionIncremental", "XtCancelConvertSelectionProc"); + add_selmap(Xen_to_C_Widget(arg1), CONVERT_INCR, arg4); + add_selmap(Xen_to_C_Widget(arg1), LOSE_INCR, arg5); + add_selmap(Xen_to_C_Widget(arg1), DONE_INCR, arg6); + add_selmap(Xen_to_C_Widget(arg1), CANCEL_CONVERT, arg7); + return(C_bool_to_Xen_boolean(XtOwnSelectionIncremental(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), + Xen_to_C_Time(arg3), (XtConvertSelectionIncrProc)gxm_XtConvertSelectionIncrProc, gxm_XtLoseSelectionIncrProc, gxm_XtSelectionDoneIncrProc, @@ -16536,65 +16289,65 @@ done_callback, cancel_callback, client_data)" (XtPointer)arg8))); } -static XEN gxm_XtOwnSelection(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5, XEN arg6) +static Xen gxm_XtOwnSelection(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5, Xen arg6) { #define H_XtOwnSelection "Boolean XtOwnSelection(w, selection, time, convert_proc, lose_selection, done_proc) informs the selection \ mechanism that a widget believes it owns a selection." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtOwnSelection", "Widget"); - XEN_ASSERT_TYPE(XEN_Atom_P(arg2), arg2, 2, "XtOwnSelection", "Atom"); - XEN_ASSERT_TYPE(XEN_Time_P(arg3), arg3, 3, "XtOwnSelection", "Time"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg4) && (XEN_REQUIRED_ARGS_OK(arg4, 7)), arg4, 4, "XtOwnSelection", "XtConvertSelectionProc"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg5) && (XEN_REQUIRED_ARGS_OK(arg5, 2)), arg5, 5, "XtOwnSelection", "XtLoseSelectionProc"); - XEN_ASSERT_TYPE(XEN_PROCEDURE_P(arg6) && (XEN_REQUIRED_ARGS_OK(arg6, 3)), arg6, 6, "XtOwnSelection", "XtSelectionDoneProc"); - add_selmap(XEN_TO_C_Widget(arg1), CONVERT, arg4); - add_selmap(XEN_TO_C_Widget(arg1), LOSE, arg5); - add_selmap(XEN_TO_C_Widget(arg1), DONE, arg6); - return(C_TO_XEN_BOOLEAN(XtOwnSelection(XEN_TO_C_Widget(arg1), - XEN_TO_C_Atom(arg2), - XEN_TO_C_Time(arg3), + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtOwnSelection", "Widget"); + Xen_check_type(Xen_is_Atom(arg2), arg2, 2, "XtOwnSelection", "Atom"); + Xen_check_type(Xen_is_Time(arg3), arg3, 3, "XtOwnSelection", "Time"); + Xen_check_type(Xen_is_procedure(arg4) && (Xen_is_aritable(arg4, 7)), arg4, 4, "XtOwnSelection", "XtConvertSelectionProc"); + Xen_check_type(Xen_is_procedure(arg5) && (Xen_is_aritable(arg5, 2)), arg5, 5, "XtOwnSelection", "XtLoseSelectionProc"); + Xen_check_type(Xen_is_procedure(arg6) && (Xen_is_aritable(arg6, 3)), arg6, 6, "XtOwnSelection", "XtSelectionDoneProc"); + add_selmap(Xen_to_C_Widget(arg1), CONVERT, arg4); + add_selmap(Xen_to_C_Widget(arg1), LOSE, arg5); + add_selmap(Xen_to_C_Widget(arg1), DONE, arg6); + return(C_bool_to_Xen_boolean(XtOwnSelection(Xen_to_C_Widget(arg1), + Xen_to_C_Atom(arg2), + Xen_to_C_Time(arg3), (XtConvertSelectionProc)gxm_XtConvertSelectionProc, gxm_XtLoseSelectionProc, gxm_XtSelectionDoneProc))); } -static XEN gxm_XtIsSensitive(XEN arg1) +static Xen gxm_XtIsSensitive(Xen arg1) { #define H_XtIsSensitive "Boolean XtIsSensitive(w): returns " PROC_TRUE " if user input events are being dispatched." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtIsSensitive", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsSensitive(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtIsSensitive", "Widget"); + return(C_bool_to_Xen_boolean(XtIsSensitive(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtIsRealized(XEN arg1) +static Xen gxm_XtIsRealized(Xen arg1) { #define H_XtIsRealized "Boolean XtIsRealized(w): returns " PROC_TRUE " if the widget has been realized," - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtIsRealized", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsRealized(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtIsRealized", "Widget"); + return(C_bool_to_Xen_boolean(XtIsRealized(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtIsManaged(XEN arg1) +static Xen gxm_XtIsManaged(Xen arg1) { #define H_XtIsManaged "Boolean XtIsManaged(widget): returns " PROC_TRUE " if the specified widget is of class RectObj or any subclass thereof and is managed." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtIsManaged", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsManaged(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtIsManaged", "Widget"); + return(C_bool_to_Xen_boolean(XtIsManaged(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtIsObject(XEN arg1) +static Xen gxm_XtIsObject(Xen arg1) { #define H_XtIsObject "Boolean XtIsObject(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtIsObject", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsObject(XEN_TO_C_Widget(arg1)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtIsObject", "Widget"); + return(C_bool_to_Xen_boolean(XtIsObject(Xen_to_C_Widget(arg1)))); } -static XEN gxm_XtIsSubclass(XEN arg1, XEN arg2) +static Xen gxm_XtIsSubclass(Xen arg1, Xen arg2) { #define H_XtIsSubclass "Boolean XtIsSubclass(w, widget_class): returns " PROC_TRUE " if the class of the specified widget is equal to or is a \ subclass of the specified class." - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtIsSubclass", "Widget"); - XEN_ASSERT_TYPE(XEN_WidgetClass_P(arg2), arg2, 2, "XtIsSubclass", "WidgetClass"); - return(C_TO_XEN_BOOLEAN(XtIsSubclass(XEN_TO_C_Widget(arg1), XEN_TO_C_WidgetClass(arg2)))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtIsSubclass", "Widget"); + Xen_check_type(Xen_is_WidgetClass(arg2), arg2, 2, "XtIsSubclass", "WidgetClass"); + return(C_bool_to_Xen_boolean(XtIsSubclass(Xen_to_C_Widget(arg1), Xen_to_C_WidgetClass(arg2)))); } -static XEN gxm_XtAppPeekEvent(XEN arg1) +static Xen gxm_XtAppPeekEvent(Xen arg1) { #define H_XtAppPeekEvent "Boolean XtAppPeekEvent(app_context) fills in the event and returns a nonzero value. If no X \ input is on the queue, XtAppPeekEvent flushes the output buffer and blocks until input is available." @@ -16602,507 +16355,506 @@ input is on the queue, XtAppPeekEvent flushes the output buffer and blocks until */ XEvent *e; int val; - XEN_ASSERT_TYPE(XEN_XtAppContext_P(arg1), arg1, 1, "XtAppPeekEvent", "XtAppContext"); + Xen_check_type(Xen_is_XtAppContext(arg1), arg1, 1, "XtAppPeekEvent", "XtAppContext"); e = (XEvent *)calloc(1, sizeof(XEvent)); - val = XtAppPeekEvent(XEN_TO_C_XtAppContext(arg1), e); - return(XEN_LIST_2(C_TO_XEN_BOOLEAN(val), C_TO_XEN_XEvent_OBJ(e))); + val = XtAppPeekEvent(Xen_to_C_XtAppContext(arg1), e); + return(Xen_list_2(C_bool_to_Xen_boolean(val), C_to_Xen_XEvent_OBJ(e))); } -static XEN gxm_XtCallAcceptFocus(XEN arg1, XEN arg2) +static Xen gxm_XtCallAcceptFocus(Xen arg1, Xen arg2) { #define H_XtCallAcceptFocus "Boolean XtCallAcceptFocus(w, time) calls the specified widget's accept_focus procedure, passing it the \ specified widget and time, and returns what the accept_focus procedure returns." /* DIFF: XtCallAcceptFocus takes Time arg (not Time*) */ Time tm; - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtCallAcceptFocus", "Widget"); - XEN_ASSERT_TYPE(XEN_Time_P(arg2), arg2, 2, "XtCallAcceptFocus", "Time"); - tm = XEN_TO_C_Time(arg2); - return(C_TO_XEN_BOOLEAN(XtCallAcceptFocus(XEN_TO_C_Widget(arg1), &tm))); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtCallAcceptFocus", "Widget"); + Xen_check_type(Xen_is_Time(arg2), arg2, 2, "XtCallAcceptFocus", "Time"); + tm = Xen_to_C_Time(arg2); + return(C_bool_to_Xen_boolean(XtCallAcceptFocus(Xen_to_C_Widget(arg1), &tm))); } -static XEN gxm_XtDispatchEvent(XEN arg1) +static Xen gxm_XtDispatchEvent(Xen arg1) { #define H_XtDispatchEvent "Boolean XtDispatchEvent(event) sends those events to the event handler functions that have been previously \ registered with the dispatch routine." - XEN_ASSERT_TYPE(XEN_XEvent_P(arg1), arg1, 1, "XtDispatchEvent", "XEvent*"); - return(C_TO_XEN_BOOLEAN(XtDispatchEvent(XEN_TO_C_XEvent(arg1)))); + Xen_check_type(Xen_is_XEvent(arg1), arg1, 1, "XtDispatchEvent", "XEvent*"); + return(C_bool_to_Xen_boolean(XtDispatchEvent(Xen_to_C_XEvent(arg1)))); } -static XEN gxm_XtUnmanageChild(XEN arg1) +static Xen gxm_XtUnmanageChild(Xen arg1) { #define H_XtUnmanageChild "void XtUnmanageChild(child)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtUnmanageChild", "Widget"); - XtUnmanageChild(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtUnmanageChild", "Widget"); + XtUnmanageChild(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtUnmanageChildren(XEN arg1, XEN arg2) +static Xen gxm_XtUnmanageChildren(Xen arg1, Xen arg2) { #define H_XtUnmanageChildren "void XtUnmanageChildren(children, num_children)" /* DIFF: XtUnmanageChildren arg1 is list of widgets */ int len; - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XtUnmanageChildren", "WidgetList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg2), arg2, 2, "XtUnmanageChildren", "int"); - if (XEN_INTEGER_P(arg2)) len = XEN_TO_C_INT(arg2); else len = XEN_LIST_LENGTH(arg1); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XtUnmanageChildren", "WidgetList"); + Xen_check_type(Xen_is_integer_or_unbound(arg2), arg2, 2, "XtUnmanageChildren", "int"); + if (Xen_is_integer(arg2)) len = Xen_integer_to_C_int(arg2); else len = Xen_list_length(arg1); if (len > 0) { - if (len > XEN_LIST_LENGTH(arg1)) - XEN_OUT_OF_RANGE_ERROR("XmContainerReorder", 2, arg2, "len too large"); + if (len > Xen_list_length(arg1)) + Xen_out_of_range_error("XmContainerReorder", 2, arg2, "len too large"); else { WidgetList ws1; - ws1 = XEN_TO_C_Widgets(arg1, len); + ws1 = Xen_to_C_Widgets(arg1, len); XtUnmanageChildren(ws1, len); if (ws1) free(ws1); } } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtManageChild(XEN arg1) +static Xen gxm_XtManageChild(Xen arg1) { #define H_XtManageChild "void XtManageChild(child)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg1), arg1, 1, "XtManageChild", "Widget"); - XtManageChild(XEN_TO_C_Widget(arg1)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg1), arg1, 1, "XtManageChild", "Widget"); + XtManageChild(Xen_to_C_Widget(arg1)); + return(Xen_false); } -static XEN gxm_XtManageChildren(XEN arg1, XEN arg2) +static Xen gxm_XtManageChildren(Xen arg1, Xen arg2) { #define H_XtManageChildren "void XtManageChildren(children, num_children)" /* DIFF: XtManageChildren arg1 is list of widgets */ int len; - XEN_ASSERT_TYPE(XEN_LIST_P(arg1), arg1, 1, "XtManageChildren", "WidgetList"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(arg2), arg2, 2, "XtManageChildren", "int"); - if (XEN_INTEGER_P(arg2)) len = XEN_TO_C_INT(arg2); else len = XEN_LIST_LENGTH(arg1); + Xen_check_type(Xen_is_list(arg1), arg1, 1, "XtManageChildren", "WidgetList"); + Xen_check_type(Xen_is_integer_or_unbound(arg2), arg2, 2, "XtManageChildren", "int"); + if (Xen_is_integer(arg2)) len = Xen_integer_to_C_int(arg2); else len = Xen_list_length(arg1); if (len > 0) { - if (len > XEN_LIST_LENGTH(arg1)) - XEN_OUT_OF_RANGE_ERROR("XmContainerReorder", 2, arg2, "len too large"); + if (len > Xen_list_length(arg1)) + Xen_out_of_range_error("XmContainerReorder", 2, arg2, "len too large"); else { WidgetList ws1; - ws1 = XEN_TO_C_Widgets(arg1, len); + ws1 = Xen_to_C_Widgets(arg1, len); XtManageChildren(ws1, len); if (ws1) free(ws1); } } - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_XtIsRectObj(XEN arg) +static Xen gxm_XtIsRectObj(Xen arg) { #define H_XtIsRectObj "Boolean XtIsRectObj(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsRectObj", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsRectObj(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsRectObj", "Widget"); + return(C_bool_to_Xen_boolean(XtIsRectObj(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsWidget(XEN arg) +static Xen gxm_XtIsWidget(Xen arg) { #define H_XtIsWidget "Boolean XtIsWidget(w)" - return(C_TO_XEN_BOOLEAN(WRAP_P("Widget", arg) && - (XtIsWidget(XEN_TO_C_Widget(arg))))); + return(C_bool_to_Xen_boolean(is_wrapped("Widget", arg) && + (XtIsWidget(Xen_to_C_Widget(arg))))); } -static XEN gxm_XtIsComposite(XEN arg) +static Xen gxm_XtIsComposite(Xen arg) { #define H_XtIsComposite "Boolean XtIsComposite(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsComposite", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsComposite(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsComposite", "Widget"); + return(C_bool_to_Xen_boolean(XtIsComposite(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsConstraint(XEN arg) +static Xen gxm_XtIsConstraint(Xen arg) { #define H_XtIsConstraint "Boolean XtIsConstraint(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsConstraint", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsConstraint(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsConstraint", "Widget"); + return(C_bool_to_Xen_boolean(XtIsConstraint(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsShell(XEN arg) +static Xen gxm_XtIsShell(Xen arg) { #define H_XtIsShell "Boolean XtIsShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsOverrideShell(XEN arg) +static Xen gxm_XtIsOverrideShell(Xen arg) { #define H_XtIsOverrideShell "Boolean XtIsOverrideShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsOverrideShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsOverrideShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsOverrideShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsOverrideShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsWMShell(XEN arg) +static Xen gxm_XtIsWMShell(Xen arg) { #define H_XtIsWMShell "Boolean XtIsWMShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsWMShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsWMShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsWMShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsWMShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsVendorShell(XEN arg) +static Xen gxm_XtIsVendorShell(Xen arg) { #define H_XtIsVendorShell "Boolean XtIsVendorShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsVendorShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsVendorShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsVendorShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsVendorShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsTransientShell(XEN arg) +static Xen gxm_XtIsTransientShell(Xen arg) { #define H_XtIsTransientShell "Boolean XtIsTransientShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsTransientShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsTransientShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsTransientShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsTransientShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsTopLevelShell(XEN arg) +static Xen gxm_XtIsTopLevelShell(Xen arg) { #define H_XtIsTopLevelShell "Boolean XtIsTopLevelShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsTopLevelShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsTopLevelShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsTopLevelShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsTopLevelShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsApplicationShell(XEN arg) +static Xen gxm_XtIsApplicationShell(Xen arg) { #define H_XtIsApplicationShell "Boolean XtIsApplicationShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsApplicationShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsApplicationShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsApplicationShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsApplicationShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtIsSessionShell(XEN arg) +static Xen gxm_XtIsSessionShell(Xen arg) { #define H_XtIsSessionShell "Boolean XtIsSessionShell(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtIsSessionShell", "Widget"); - return(C_TO_XEN_BOOLEAN(XtIsSessionShell(XEN_TO_C_Widget(arg)))); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtIsSessionShell", "Widget"); + return(C_bool_to_Xen_boolean(XtIsSessionShell(Xen_to_C_Widget(arg)))); } -static XEN gxm_XtMapWidget(XEN arg) +static Xen gxm_XtMapWidget(Xen arg) { #define H_XtMapWidget "XtMapWidget(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtMapWidget", "Widget"); - XtMapWidget(XEN_TO_C_Widget(arg)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtMapWidget", "Widget"); + XtMapWidget(Xen_to_C_Widget(arg)); + return(Xen_false); } -static XEN gxm_XtUnmapWidget(XEN arg) +static Xen gxm_XtUnmapWidget(Xen arg) { #define H_XtUnmapWidget "XtUnmapWidget(w)" - XEN_ASSERT_TYPE(XEN_Widget_P(arg), arg, 0, "XtUnmapWidget", "Widget"); - XtUnmapWidget(XEN_TO_C_Widget(arg)); - return(XEN_FALSE); + Xen_check_type(Xen_is_Widget(arg), arg, 0, "XtUnmapWidget", "Widget"); + XtUnmapWidget(Xen_to_C_Widget(arg)); + return(Xen_false); } -static XEN gxm_XtSetArg(XEN arg1, XEN arg2, XEN arg3) +static Xen gxm_XtSetArg(Xen arg1, Xen arg2, Xen arg3) { #define H_XtSetArg "XtSetArg in xm is useless -- it returns its arguments as a list" - return(XEN_LIST_3(arg1, arg2, arg3)); + return(Xen_list_3(arg1, arg2, arg3)); } -#endif -/* end HAVE_MOTIF */ - /* ---------------------------------------------------------------------------------------------------- */ -XM_TYPE_PTR_NO_C2X(XpmImage, XpmImage *) -XM_TYPE_PTR_NO_C2X(XpmAttributes, XpmAttributes *) /* _OBJ?? */ -XM_TYPE_PTR_NO_C2X(XpmColorSymbol, XpmColorSymbol *) +Xm_type_ptr_no_c2x(XpmImage, XpmImage *) +Xm_type_ptr_no_c2x(XpmAttributes, XpmAttributes *) /* _OBJ?? */ +Xm_type_ptr_no_c2x(XpmColorSymbol, XpmColorSymbol *) -static XEN gxm_XpmCreateXpmImageFromPixmap(XEN arg1, XEN arg2, XEN arg3, XEN arg5) +static Xen gxm_XpmCreateXpmImageFromPixmap(Xen arg1, Xen arg2, Xen arg3, Xen arg5) { XpmImage *image; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XpmCreateXpmImageFromPixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg2), arg2, 2, "XpmCreateXpmImageFromPixmap", "Pixmap"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3), arg3, 3, "XpmCreateXpmImageFromPixmap", "Pixmap"); - XEN_ASSERT_TYPE(XEN_XpmAttributes_P(arg5) || XEN_FALSE_P(arg5), arg5, 5, "XpmCreateXpmImageFromPixmap", "XpmAttributes*"); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XpmCreateXpmImageFromPixmap", "Display*"); + Xen_check_type(Xen_is_Pixmap(arg2), arg2, 2, "XpmCreateXpmImageFromPixmap", "Pixmap"); + Xen_check_type(Xen_is_Pixmap(arg3), arg3, 3, "XpmCreateXpmImageFromPixmap", "Pixmap"); + Xen_check_type(Xen_is_XpmAttributes(arg5) || Xen_is_false(arg5), arg5, 5, "XpmCreateXpmImageFromPixmap", "XpmAttributes*"); image = (XpmImage *)calloc(1, sizeof(XpmImage)); - val = XpmCreateXpmImageFromPixmap(XEN_TO_C_Display(arg1), - XEN_TO_C_Pixmap(arg2), - XEN_TO_C_Pixmap(arg3), + val = XpmCreateXpmImageFromPixmap(Xen_to_C_Display(arg1), + Xen_to_C_Pixmap(arg2), + Xen_to_C_Pixmap(arg3), image, - (XEN_FALSE_P(arg5)) ? NULL : XEN_TO_C_XpmAttributes(arg5)); + (Xen_is_false(arg5)) ? NULL : Xen_to_C_XpmAttributes(arg5)); if (val == XpmSuccess) - return(WRAP_FOR_XEN_OBJ("XpmImage", image)); + return(wrap_for_Xen_obj("XpmImage", image)); free(image); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XpmCreatePixmapFromXpmImage(XEN arg1, XEN arg2, XEN arg3, XEN arg4) +static Xen gxm_XpmCreatePixmapFromXpmImage(Xen arg1, Xen arg2, Xen arg3, Xen arg4) { /* DIFF: XpmCreatePixmapFromXpmImage omits and returns pixmap args */ Pixmap p1, p2; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XpmCreatePixmapFromXpmImage", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XpmCreatePixmapFromXpmImage", "Drawable"); - XEN_ASSERT_TYPE(XEN_XpmImage_P(arg3), arg3, 3, "XpmCreatePixmapFromXpmImage", "XpmImage*"); - XEN_ASSERT_TYPE(XEN_XpmAttributes_P(arg4) || XEN_FALSE_P(arg4), arg4, 4, "XpmCreatePixmapFromXpmImage", "XpmAttributes*"); - val = XpmCreatePixmapFromXpmImage(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - XEN_TO_C_XpmImage(arg3), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XpmCreatePixmapFromXpmImage", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XpmCreatePixmapFromXpmImage", "Drawable"); + Xen_check_type(Xen_is_XpmImage(arg3), arg3, 3, "XpmCreatePixmapFromXpmImage", "XpmImage*"); + Xen_check_type(Xen_is_XpmAttributes(arg4) || Xen_is_false(arg4), arg4, 4, "XpmCreatePixmapFromXpmImage", "XpmAttributes*"); + val = XpmCreatePixmapFromXpmImage(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + Xen_to_C_XpmImage(arg3), &p1, &p2, - (XEN_FALSE_P(arg4)) ? NULL : XEN_TO_C_XpmAttributes(arg4)); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_Pixmap(p1), - C_TO_XEN_Pixmap(p2))); + (Xen_is_false(arg4)) ? NULL : Xen_to_C_XpmAttributes(arg4)); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_to_Xen_Pixmap(p1), + C_to_Xen_Pixmap(p2))); } -static XEN gxm_XpmReadFileToPixmap(XEN arg1, XEN arg2, XEN arg3, XEN arg6) +static Xen gxm_XpmReadFileToPixmap(Xen arg1, Xen arg2, Xen arg3, Xen arg6) { /* DIFF: XpmReadFileToPixmap omits and returns pixmap args */ Pixmap p1, p2; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XpmReadFileToPixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XpmReadFileToPixmap", "Drawable"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg3), arg3, 3, "XpmReadFileToPixmap", "char*"); - XEN_ASSERT_TYPE(XEN_XpmAttributes_P(arg6) || XEN_FALSE_P(arg6), arg6, 6, "XpmReadFileToPixmap", "XpmAttributes*"); - val = XpmReadFileToPixmap(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), - (char *)XEN_TO_C_STRING(arg3), + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XpmReadFileToPixmap", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XpmReadFileToPixmap", "Drawable"); + Xen_check_type(Xen_is_string(arg3), arg3, 3, "XpmReadFileToPixmap", "char*"); + Xen_check_type(Xen_is_XpmAttributes(arg6) || Xen_is_false(arg6), arg6, 6, "XpmReadFileToPixmap", "XpmAttributes*"); + val = XpmReadFileToPixmap(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), + (char *)Xen_string_to_C_string(arg3), &p1, &p2, - (XEN_FALSE_P(arg6)) ? NULL : XEN_TO_C_XpmAttributes(arg6)); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_Pixmap(p1), - C_TO_XEN_Pixmap(p2))); + (Xen_is_false(arg6)) ? NULL : Xen_to_C_XpmAttributes(arg6)); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_to_Xen_Pixmap(p1), + C_to_Xen_Pixmap(p2))); } -static XEN gxm_XpmReadFileToXpmImage(XEN arg1) +static Xen gxm_XpmReadFileToXpmImage(Xen arg1) { int val; XpmImage *image; - XEN_ASSERT_TYPE(XEN_STRING_P(arg1), arg1, 1, "XpmReadFileToXpmImage", "char*"); + Xen_check_type(Xen_is_string(arg1), arg1, 1, "XpmReadFileToXpmImage", "char*"); image = (XpmImage *)calloc(1, sizeof(XpmImage)); - val = XpmReadFileToXpmImage((char *)XEN_TO_C_STRING(arg1), image, NULL); + val = XpmReadFileToXpmImage((char *)Xen_string_to_C_string(arg1), image, NULL); if (val == XpmSuccess) - return(WRAP_FOR_XEN_OBJ("XpmImage", image)); + return(wrap_for_Xen_obj("XpmImage", image)); free(image); - return(C_TO_XEN_INT(val)); + return(C_int_to_Xen_integer(val)); } -static XEN gxm_XpmCreatePixmapFromData(XEN arg1, XEN arg2, XEN larg3, XEN arg6) +static Xen gxm_XpmCreatePixmapFromData(Xen arg1, Xen arg2, Xen larg3, Xen arg6) { /* DIFF: XpmCreatePixmapFromData omits and returns pixmap args, arg3 (bits) is list of strings */ Pixmap p1, p2; int val, i, len; char **bits; - XEN arg3; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XpmCreatePixmapFromData", "Display*"); - XEN_ASSERT_TYPE(XEN_Window_P(arg2), arg2, 2, "XpmCreatePixmapFromData", "Drawable"); - XEN_ASSERT_TYPE(XEN_LIST_P(larg3), larg3, 3, "XpmCreatePixmapFromData", "list of char*"); - XEN_ASSERT_TYPE(XEN_XpmAttributes_P(arg6) || XEN_FALSE_P(arg6), arg6, 6, "XpmCreatePixmapFromData", "XpmAttributes*"); - arg3 = XEN_COPY_ARG(larg3); - len = XEN_LIST_LENGTH(arg3); - if (len <= 0) XEN_ASSERT_TYPE(0, arg3, 3, "XpmCreatePixmapFromData", "positive integer"); + Xen arg3; + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XpmCreatePixmapFromData", "Display*"); + Xen_check_type(Xen_is_Window(arg2), arg2, 2, "XpmCreatePixmapFromData", "Drawable"); + Xen_check_type(Xen_is_list(larg3), larg3, 3, "XpmCreatePixmapFromData", "list of char*"); + Xen_check_type(Xen_is_XpmAttributes(arg6) || Xen_is_false(arg6), arg6, 6, "XpmCreatePixmapFromData", "XpmAttributes*"); + arg3 = Xen_copy_arg(larg3); + len = Xen_list_length(arg3); + if (len <= 0) Xen_check_type(0, arg3, 3, "XpmCreatePixmapFromData", "positive integer"); bits = (char **)calloc(len, sizeof(char *)); - for (i = 0; i < len; i++, arg3 = XEN_CDR(arg3)) - bits[i] = xen_strdup(XEN_TO_C_STRING(XEN_CAR(arg3))); - val = XpmCreatePixmapFromData(XEN_TO_C_Display(arg1), - XEN_TO_C_Window(arg2), + for (i = 0; i < len; i++, arg3 = Xen_cdr(arg3)) + bits[i] = xen_strdup(Xen_string_to_C_string(Xen_car(arg3))); + val = XpmCreatePixmapFromData(Xen_to_C_Display(arg1), + Xen_to_C_Window(arg2), bits, &p1, &p2, - (XEN_FALSE_P(arg6)) ? NULL : XEN_TO_C_XpmAttributes(arg6)); + (Xen_is_false(arg6)) ? NULL : Xen_to_C_XpmAttributes(arg6)); for (i = 0; i < len; i++) if (bits[i]) free(bits[i]); free(bits); - return(XEN_LIST_3(C_TO_XEN_INT(val), - C_TO_XEN_Pixmap(p1), - C_TO_XEN_Pixmap(p2))); + return(Xen_list_3(C_int_to_Xen_integer(val), + C_to_Xen_Pixmap(p1), + C_to_Xen_Pixmap(p2))); } -static XEN gxm_XpmWriteFileFromPixmap(XEN arg1, XEN arg2, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XpmWriteFileFromPixmap(Xen arg1, Xen arg2, Xen arg3, Xen arg4, Xen arg5) { - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XpmWriteFileFromPixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_STRING_P(arg2), arg2, 2, "XpmWriteFileFromPixmap", "char*"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3), arg3, 3, "XpmWriteFileFromPixmap", "Pixmap"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg4), arg4, 4, "XpmWriteFileFromPixmap", "Pixmap"); - XEN_ASSERT_TYPE(XEN_XpmAttributes_P(arg5) || XEN_FALSE_P(arg5), arg5, 5, "XpmWriteFileFromPixmap", "XpmAttributes*"); - return(C_TO_XEN_INT(XpmWriteFileFromPixmap(XEN_TO_C_Display(arg1), (char *)XEN_TO_C_STRING(arg2), - XEN_TO_C_Pixmap(arg3), XEN_TO_C_Pixmap(arg4), - (XEN_FALSE_P(arg5)) ? NULL : XEN_TO_C_XpmAttributes(arg5)))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XpmWriteFileFromPixmap", "Display*"); + Xen_check_type(Xen_is_string(arg2), arg2, 2, "XpmWriteFileFromPixmap", "char*"); + Xen_check_type(Xen_is_Pixmap(arg3), arg3, 3, "XpmWriteFileFromPixmap", "Pixmap"); + Xen_check_type(Xen_is_Pixmap(arg4), arg4, 4, "XpmWriteFileFromPixmap", "Pixmap"); + Xen_check_type(Xen_is_XpmAttributes(arg5) || Xen_is_false(arg5), arg5, 5, "XpmWriteFileFromPixmap", "XpmAttributes*"); + return(C_int_to_Xen_integer(XpmWriteFileFromPixmap(Xen_to_C_Display(arg1), (char *)Xen_string_to_C_string(arg2), + Xen_to_C_Pixmap(arg3), Xen_to_C_Pixmap(arg4), + (Xen_is_false(arg5)) ? NULL : Xen_to_C_XpmAttributes(arg5)))); } -static XEN gxm_XpmCreateDataFromPixmap(XEN arg1, XEN arg3, XEN arg4, XEN arg5) +static Xen gxm_XpmCreateDataFromPixmap(Xen arg1, Xen arg3, Xen arg4, Xen arg5) { /* DIFF: XpmCreateDataFromPixmap arg2 omitted and rtn'd */ char **buf = NULL; int val; - XEN_ASSERT_TYPE(XEN_Display_P(arg1), arg1, 1, "XpmCreateDataFromPixmap", "Display*"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg3), arg3, 3, "XpmCreateDataFromPixmap", "Pixmap"); - XEN_ASSERT_TYPE(XEN_Pixmap_P(arg4), arg4, 4, "XpmCreateDataFromPixmap", "Pixmap"); - XEN_ASSERT_TYPE(XEN_XpmAttributes_P(arg5) || XEN_FALSE_P(arg5), arg5, 5, "XpmCreateDataFromPixmap", "XpmAttributes*"); - val = XpmCreateDataFromPixmap(XEN_TO_C_Display(arg1), &buf, - XEN_TO_C_Pixmap(arg3), - XEN_TO_C_Pixmap(arg4), - (XEN_FALSE_P(arg5)) ? NULL : XEN_TO_C_XpmAttributes(arg5)); - return(XEN_LIST_2(C_TO_XEN_INT(val), - XEN_WRAP_C_POINTER(buf))); + Xen_check_type(Xen_is_Display(arg1), arg1, 1, "XpmCreateDataFromPixmap", "Display*"); + Xen_check_type(Xen_is_Pixmap(arg3), arg3, 3, "XpmCreateDataFromPixmap", "Pixmap"); + Xen_check_type(Xen_is_Pixmap(arg4), arg4, 4, "XpmCreateDataFromPixmap", "Pixmap"); + Xen_check_type(Xen_is_XpmAttributes(arg5) || Xen_is_false(arg5), arg5, 5, "XpmCreateDataFromPixmap", "XpmAttributes*"); + val = XpmCreateDataFromPixmap(Xen_to_C_Display(arg1), &buf, + Xen_to_C_Pixmap(arg3), + Xen_to_C_Pixmap(arg4), + (Xen_is_false(arg5)) ? NULL : Xen_to_C_XpmAttributes(arg5)); + return(Xen_list_2(C_int_to_Xen_integer(val), + Xen_wrap_C_pointer(buf))); } -static XEN gxm_XpmGetErrorString(XEN err) +static Xen gxm_XpmGetErrorString(Xen err) { #define H_XpmGetErrorString "(XpmGetErrorString err): string describing error" - XEN_ASSERT_TYPE(XEN_INTEGER_P(err), err, XEN_ONLY_ARG, "XpmGetErrorString", "an Xpm status code"); - return(C_TO_XEN_STRING(XpmGetErrorString(XEN_TO_C_INT(err)))); + Xen_check_type(Xen_is_integer(err), err, 1, "XpmGetErrorString", "an Xpm status code"); + return(C_string_to_Xen_string(XpmGetErrorString(Xen_integer_to_C_int(err)))); } -static XEN gxm_XpmColorSymbol(XEN name, XEN value, XEN pixel) +static Xen gxm_XpmColorSymbol(Xen name, Xen value, Xen pixel) { XpmColorSymbol *r; #define H_XpmColorSymbol "(XpmColorSymbol name val pix): new XpmColorSymbol struct" - XEN_ASSERT_TYPE(XEN_STRING_P(name), name, 1, "XpmColorSymbol", "char*"); - XEN_ASSERT_TYPE(XEN_FALSE_P(value) || XEN_STRING_P(value), value, 2, "XpmColorSymbol", "char*"); - XEN_ASSERT_TYPE(XEN_Pixel_P(pixel), pixel, 3, "XpmColorSymbol", "Pixel"); + Xen_check_type(Xen_is_string(name), name, 1, "XpmColorSymbol", "char*"); + Xen_check_type(Xen_is_false(value) || Xen_is_string(value), value, 2, "XpmColorSymbol", "char*"); + Xen_check_type(Xen_is_Pixel(pixel), pixel, 3, "XpmColorSymbol", "Pixel"); r = (XpmColorSymbol *)calloc(1, sizeof(XpmColorSymbol)); - r->name = (char *)XEN_TO_C_STRING(name); - r->value = (XEN_FALSE_P(value)) ? NULL : (char *)XEN_TO_C_STRING(value); - r->pixel = XEN_TO_C_Pixel(pixel); - return(WRAP_FOR_XEN_OBJ("XpmColorSymbol",r)); + r->name = (char *)Xen_string_to_C_string(name); + r->value = (Xen_is_false(value)) ? NULL : (char *)Xen_string_to_C_string(value); + r->pixel = Xen_to_C_Pixel(pixel); + return(wrap_for_Xen_obj("XpmColorSymbol",r)); } -static XEN gxm_XpmImage(XEN width, XEN height, XEN cpp, XEN ncolors, XEN data) +static Xen gxm_XpmImage(Xen width, Xen height, Xen cpp, Xen ncolors, Xen data) { XpmImage *r; #define H_XpmImage "(XpmImage w h cpp n data): new XpmImage struct" - XEN_ASSERT_TYPE(XEN_ULONG_P(width), width, 1, "XpmImage", "ulong"); - XEN_ASSERT_TYPE(XEN_ULONG_P(height), height, 2, "XpmImage", "ulong"); - XEN_ASSERT_TYPE(XEN_ULONG_P(cpp), cpp, 3, "XpmImage", "ulong"); - XEN_ASSERT_TYPE(XEN_ULONG_P(ncolors), ncolors, 4, "XpmImage", "ulong"); - XEN_ASSERT_TYPE(XEN_ULONG_P(data), data, 5, "XpmImage", "ulong"); + Xen_check_type(Xen_is_ulong(width), width, 1, "XpmImage", "ulong"); + Xen_check_type(Xen_is_ulong(height), height, 2, "XpmImage", "ulong"); + Xen_check_type(Xen_is_ulong(cpp), cpp, 3, "XpmImage", "ulong"); + Xen_check_type(Xen_is_ulong(ncolors), ncolors, 4, "XpmImage", "ulong"); + Xen_check_type(Xen_is_ulong(data), data, 5, "XpmImage", "ulong"); r = (XpmImage *)calloc(1, sizeof(XpmImage)); - r->width = XEN_TO_C_ULONG(width); - r->height = XEN_TO_C_ULONG(height); - r->cpp = XEN_TO_C_ULONG(cpp); - r->ncolors = XEN_TO_C_ULONG(ncolors); - r->data = (unsigned int *)XEN_TO_C_ULONG(data); - return(WRAP_FOR_XEN_OBJ("XpmImage", r)); + r->width = Xen_ulong_to_C_ulong(width); + r->height = Xen_ulong_to_C_ulong(height); + r->cpp = Xen_ulong_to_C_ulong(cpp); + r->ncolors = Xen_ulong_to_C_ulong(ncolors); + r->data = (unsigned int *)Xen_ulong_to_C_ulong(data); + return(wrap_for_Xen_obj("XpmImage", r)); } -static XEN gxm_XpmAttributes(void) +static Xen gxm_XpmAttributes(void) { #define H_XpmAttributes "(XpmAttributes): new XpmAttributes struct" - return(WRAP_FOR_XEN_OBJ("XpmAttributes", + return(wrap_for_Xen_obj("XpmAttributes", (XpmAttributes *)calloc(1, sizeof(XpmAttributes)))); } -static XEN gxm_cpp(XEN ptr) +static Xen gxm_cpp(Xen ptr) { - XM_FIELD_ASSERT_TYPE((XEN_XpmImage_P(ptr)) || (XEN_XpmAttributes_P(ptr)), ptr, XEN_ONLY_ARG, "cpp", "XpmImage"); - if (XEN_XpmImage_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmImage(ptr))->cpp))); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->cpp))); + XM_field_assert_type((Xen_is_XpmImage(ptr)) || (Xen_is_XpmAttributes(ptr)), ptr, 1, "cpp", "XpmImage"); + if (Xen_is_XpmImage(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmImage(ptr))->cpp))); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->cpp))); } -static XEN gxm_set_cpp(XEN ptr, XEN val) +static Xen gxm_set_cpp(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE((XEN_XpmImage_P(ptr)) || (XEN_XpmAttributes_P(ptr)), ptr, XEN_ARG_1, "cpp", "XpmImage"); - if (XEN_XpmImage_P(ptr)) (XEN_TO_C_XpmImage(ptr))->cpp = XEN_TO_C_ULONG(val); - (XEN_TO_C_XpmAttributes(ptr))->cpp = XEN_TO_C_ULONG(val); + XM_set_field_assert_type((Xen_is_XpmImage(ptr)) || (Xen_is_XpmAttributes(ptr)), ptr, 1, "cpp", "XpmImage"); + if (Xen_is_XpmImage(ptr)) (Xen_to_C_XpmImage(ptr))->cpp = Xen_ulong_to_C_ulong(val); + (Xen_to_C_XpmAttributes(ptr))->cpp = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_ncolors(XEN ptr) +static Xen gxm_ncolors(Xen ptr) { - XM_FIELD_ASSERT_TYPE((XEN_XpmImage_P(ptr)) || (XEN_XpmAttributes_P(ptr)), ptr, XEN_ONLY_ARG, "ncolors", "XpmImage"); - if (XEN_XpmImage_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmImage(ptr))->ncolors))); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->ncolors))); + XM_field_assert_type((Xen_is_XpmImage(ptr)) || (Xen_is_XpmAttributes(ptr)), ptr, 1, "ncolors", "XpmImage"); + if (Xen_is_XpmImage(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmImage(ptr))->ncolors))); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->ncolors))); } -static XEN gxm_set_ncolors(XEN ptr, XEN val) +static Xen gxm_set_ncolors(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE((XEN_XpmImage_P(ptr)) || (XEN_XpmAttributes_P(ptr)), ptr, XEN_ARG_1, "ncolors", "XpmImage"); - if (XEN_XpmImage_P(ptr)) (XEN_TO_C_XpmImage(ptr))->ncolors = XEN_TO_C_ULONG(val); - else (XEN_TO_C_XpmAttributes(ptr))->ncolors = XEN_TO_C_ULONG(val); + XM_set_field_assert_type((Xen_is_XpmImage(ptr)) || (Xen_is_XpmAttributes(ptr)), ptr, 1, "ncolors", "XpmImage"); + if (Xen_is_XpmImage(ptr)) (Xen_to_C_XpmImage(ptr))->ncolors = Xen_ulong_to_C_ulong(val); + else (Xen_to_C_XpmAttributes(ptr))->ncolors = Xen_ulong_to_C_ulong(val); return(val); } #if 0 -static XEN gxm_set_data(XEN ptr, XEN val) +static Xen gxm_set_data(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmImage_P(ptr), ptr, XEN_ARG_1, "data", "XpmImage"); - (XEN_TO_C_XpmImage(ptr))->data = (unsigned int *)XEN_UNWRAP_C_POINTER(val); + XM_set_field_assert_type(Xen_is_XpmImage(ptr), ptr, 1, "data", "XpmImage"); + (Xen_to_C_XpmImage(ptr))->data = (unsigned int *)Xen_unwrap_C_pointer(val); return(val); } #endif -static XEN gxm_valuemask(XEN ptr) +static Xen gxm_valuemask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ONLY_ARG, "valuemask", "XpmAttributes"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->valuemask))); + XM_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "valuemask", "XpmAttributes"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->valuemask))); } -static XEN gxm_set_valuemask(XEN ptr, XEN val) +static Xen gxm_set_valuemask(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "valuemask", "XpmAttributes"); - (XEN_TO_C_XpmAttributes(ptr))->valuemask = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "valuemask", "XpmAttributes"); + (Xen_to_C_XpmAttributes(ptr))->valuemask = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_x_hotspot(XEN ptr) +static Xen gxm_x_hotspot(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ONLY_ARG, "x_hotspot", "XpmAttributes"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->x_hotspot))); + XM_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "x_hotspot", "XpmAttributes"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->x_hotspot))); } -static XEN gxm_set_x_hotspot(XEN ptr, XEN val) +static Xen gxm_set_x_hotspot(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "x_hotspot", "XpmAttributes"); - (XEN_TO_C_XpmAttributes(ptr))->x_hotspot = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "x_hotspot", "XpmAttributes"); + (Xen_to_C_XpmAttributes(ptr))->x_hotspot = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_y_hotspot(XEN ptr) +static Xen gxm_y_hotspot(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ONLY_ARG, "y_hotspot", "XpmAttributes"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->y_hotspot))); + XM_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "y_hotspot", "XpmAttributes"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->y_hotspot))); } -static XEN gxm_set_y_hotspot(XEN ptr, XEN val) +static Xen gxm_set_y_hotspot(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "y_hotspot", "XpmAttributes"); - (XEN_TO_C_XpmAttributes(ptr))->y_hotspot = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "y_hotspot", "XpmAttributes"); + (Xen_to_C_XpmAttributes(ptr))->y_hotspot = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_colorsymbols(XEN ptr) +static Xen gxm_colorsymbols(Xen ptr) { XpmAttributes *atr; - int i, len; - XEN lst = XEN_EMPTY_LIST; - XM_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ONLY_ARG, "colorsymbols", "XpmAttributes"); - atr = XEN_TO_C_XpmAttributes(ptr); + int len; + Xen lst = Xen_empty_list; + XM_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "colorsymbols", "XpmAttributes"); + atr = Xen_to_C_XpmAttributes(ptr); len = atr->numsymbols; if (len > 0) { + int i; XpmColorSymbol *cols; cols = atr->colorsymbols; for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(WRAP_FOR_XEN("XpmColorSymbol", &(cols[i])), lst); + lst = Xen_cons(wrap_for_Xen("XpmColorSymbol", &(cols[i])), lst); } return(lst); } -static XEN gxm_set_colorsymbols(XEN ptr, XEN vals) +static Xen gxm_set_colorsymbols(Xen ptr, Xen vals) { XpmAttributes *atr; - int i, len; - XEN lst; - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "colorsymbols", "XpmAttributes"); - XM_SET_FIELD_ASSERT_TYPE(XEN_LIST_P(vals), vals, XEN_ARG_2, "colorsymbols", "list of XpmColorSymbols"); - atr = XEN_TO_C_XpmAttributes(ptr); - len = XEN_LIST_LENGTH(vals); + int len; + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "colorsymbols", "XpmAttributes"); + XM_set_field_assert_type(Xen_is_list(vals), vals, 2, "colorsymbols", "list of XpmColorSymbols"); + atr = Xen_to_C_XpmAttributes(ptr); + len = Xen_list_length(vals); if (len > 0) { + Xen lst; + int i; XpmColorSymbol *cols = NULL, *cur; cols = (XpmColorSymbol *)calloc(len, sizeof(XpmColorSymbol)); - for (lst = XEN_COPY_ARG(vals), i = 0; i < len; i++, lst = XEN_CDR(lst)) + for (lst = Xen_copy_arg(vals), i = 0; i < len; i++, lst = Xen_cdr(lst)) { - cur = XEN_TO_C_XpmColorSymbol(XEN_CAR(lst)); + cur = Xen_to_C_XpmColorSymbol(Xen_car(lst)); if (cur->name) cols[i].name = xen_strdup(cur->name); if (cur->value) cols[i].value = xen_strdup(cur->value); cols[i].pixel = cur->pixel; @@ -17112,49 +16864,49 @@ static XEN gxm_set_colorsymbols(XEN ptr, XEN vals) return(vals); } -static XEN gxm_numsymbols(XEN ptr) +static Xen gxm_numsymbols(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ONLY_ARG, "numsymbols", "XpmAttributes"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->numsymbols))); + XM_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "numsymbols", "XpmAttributes"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->numsymbols))); } -static XEN gxm_set_numsymbols(XEN ptr, XEN val) +static Xen gxm_set_numsymbols(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "numsymbols", "XpmAttributes"); - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "numsymbols", "integer"); - (XEN_TO_C_XpmAttributes(ptr))->numsymbols = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "numsymbols", "XpmAttributes"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "numsymbols", "integer"); + (Xen_to_C_XpmAttributes(ptr))->numsymbols = Xen_integer_to_C_int(val); return(val); } /* pixels is the list -- not sure what good npixels is without pixels */ -static XEN gxm_npixels(XEN ptr) +static Xen gxm_npixels(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ONLY_ARG, "npixels", "XpmAttributes"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->npixels))); + XM_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "npixels", "XpmAttributes"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->npixels))); } -static XEN gxm_set_npixels(XEN ptr, XEN val) +static Xen gxm_set_npixels(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "npixels", "XpmAttributes"); - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "npixels", "integer"); - (XEN_TO_C_XpmAttributes(ptr))->npixels = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "npixels", "XpmAttributes"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "npixels", "integer"); + (Xen_to_C_XpmAttributes(ptr))->npixels = Xen_integer_to_C_int(val); return(val); } -#if MUS_WITH_EDITRES -static XEN gxm_XEditResCheckMessages(XEN widget, XEN data, XEN event, XEN cont) +#if WITH_EDITRES +static Xen gxm_XEditResCheckMessages(Xen widget, Xen data, Xen event, Xen cont) { Boolean flag; - XEN_ASSERT_TYPE(XEN_Widget_P(widget), widget, XEN_ARG_1, "widget", "_XEditResCheckMessages"); - XEN_ASSERT_TYPE(XEN_XEvent_P(event), event, XEN_ARG_3, "XEvent", "_XEditResCheckMessages"); - XEN_ASSERT_TYPE(XEN_BOOLEAN_P(cont), cont, XEN_ARG_4, "boolean", "_XEditResCheckMessages"); - flag = XEN_TO_C_BOOLEAN(cont); - _XEditResCheckMessages(XEN_TO_C_Widget(widget), + Xen_check_type(Xen_is_Widget(widget), widget, 1, "widget", "_XEditResCheckMessages"); + Xen_check_type(Xen_is_XEvent(event), event, 3, "XEvent", "_XEditResCheckMessages"); + Xen_check_type(Xen_is_boolean(cont), cont, 4, "boolean", "_XEditResCheckMessages"); + flag = Xen_boolean_to_C_bool(cont); + _XEditResCheckMessages(Xen_to_C_Widget(widget), (XtPointer)data, - XEN_TO_C_XEvent(event), + Xen_to_C_XEvent(event), &flag); - return(XEN_FALSE); + return(Xen_false); } #endif @@ -17164,2546 +16916,2519 @@ static XEN gxm_XEditResCheckMessages(XEN widget, XEN data, XEN event, XEN cont) /* XRectangle */ -static XEN gxm_XRectangle(XEN x, XEN y, XEN width, XEN height) +static Xen gxm_XRectangle(Xen x, Xen y, Xen width, Xen height) { #define H_XRectangle "(XRectangle x y width height): returns the given XRectangle" XRectangle *r; - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, 1, "XRectangle", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, 2, "XRectangle", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(width), width, 3, "XRectangle", "INT"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(height), height, 4, "XRectangle", "INT"); + Xen_check_type(Xen_is_integer(x), x, 1, "XRectangle", "short"); + Xen_check_type(Xen_is_integer(y), y, 2, "XRectangle", "short"); + Xen_check_type(Xen_is_integer(width), width, 3, "XRectangle", "INT"); + Xen_check_type(Xen_is_integer(height), height, 4, "XRectangle", "INT"); r = (XRectangle *)calloc(1, sizeof(XRectangle)); - r->x = (short)XEN_TO_C_INT(x); - r->y = (short)XEN_TO_C_INT(y); - r->width = XEN_TO_C_INT(width); - r->height = XEN_TO_C_INT(height); - return(C_TO_XEN_XRectangle(r)); + r->x = (short)Xen_integer_to_C_int(x); + r->y = (short)Xen_integer_to_C_int(y); + r->width = Xen_integer_to_C_int(width); + r->height = Xen_integer_to_C_int(height); + return(C_to_Xen_XRectangle(r)); } /* XSegment */ -static XEN gxm_XSegment(XEN x1, XEN y1, XEN x2, XEN y2) +static Xen gxm_XSegment(Xen x1, Xen y1, Xen x2, Xen y2) { XSegment *r; #define H_XSegment "(XSegment x1 y1 x2 y2): new XSegment struct" - XEN_ASSERT_TYPE(XEN_INTEGER_P(x1), x1, 1, "XSegment", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y1), y1, 2, "XSegment", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(x2), x2, 3, "XSegment", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y2), y2, 4, "XSegment", "short"); + Xen_check_type(Xen_is_integer(x1), x1, 1, "XSegment", "short"); + Xen_check_type(Xen_is_integer(y1), y1, 2, "XSegment", "short"); + Xen_check_type(Xen_is_integer(x2), x2, 3, "XSegment", "short"); + Xen_check_type(Xen_is_integer(y2), y2, 4, "XSegment", "short"); r = (XSegment *)calloc(1, sizeof(XSegment)); - r->x1 = (short)XEN_TO_C_INT(x1); - r->y1 = (short)XEN_TO_C_INT(y1); - r->x2 = (short)XEN_TO_C_INT(x2); - r->y2 = (short)XEN_TO_C_INT(y2); - return(C_TO_XEN_XSegment(r)); + r->x1 = (short)Xen_integer_to_C_int(x1); + r->y1 = (short)Xen_integer_to_C_int(y1); + r->x2 = (short)Xen_integer_to_C_int(x2); + r->y2 = (short)Xen_integer_to_C_int(y2); + return(C_to_Xen_XSegment(r)); } -static XEN gxm_y2(XEN ptr) +static Xen gxm_y2(Xen ptr) { - if (XEN_XSegment_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XSegment(ptr))->y2))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "y2", "XSegment"); - return(XEN_FALSE); + if (Xen_is_XSegment(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XSegment(ptr))->y2))); + XM_field_assert_type(0, ptr, 1, "y2", "XSegment"); + return(Xen_false); } -static XEN gxm_set_y2(XEN ptr, XEN val) +static Xen gxm_set_y2(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_1, "y2", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XSegment_P(ptr), ptr, XEN_ARG_2, "y2", "XSegment"); - (XEN_TO_C_XSegment(ptr))->y2 = (short)XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 1, "y2", "an integer"); + XM_set_field_assert_type(Xen_is_XSegment(ptr), ptr, 2, "y2", "XSegment"); + (Xen_to_C_XSegment(ptr))->y2 = (short)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_x2(XEN ptr) +static Xen gxm_x2(Xen ptr) { - if (XEN_XSegment_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XSegment(ptr))->x2))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "x2", "XSegment"); - return(XEN_FALSE); + if (Xen_is_XSegment(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XSegment(ptr))->x2))); + XM_field_assert_type(0, ptr, 1, "x2", "XSegment"); + return(Xen_false); } -static XEN gxm_set_x2(XEN ptr, XEN val) +static Xen gxm_set_x2(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_1, "x2", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XSegment_P(ptr), ptr, XEN_ARG_2, "x2", "XSegment"); - (XEN_TO_C_XSegment(ptr))->x2 = (short)XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 1, "x2", "an integer"); + XM_set_field_assert_type(Xen_is_XSegment(ptr), ptr, 2, "x2", "XSegment"); + (Xen_to_C_XSegment(ptr))->x2 = (short)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_y1(XEN ptr) +static Xen gxm_y1(Xen ptr) { - if (XEN_XSegment_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XSegment(ptr))->y1))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "y1", "XSegment"); - return(XEN_FALSE); + if (Xen_is_XSegment(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XSegment(ptr))->y1))); + XM_field_assert_type(0, ptr, 1, "y1", "XSegment"); + return(Xen_false); } -static XEN gxm_set_y1(XEN ptr, XEN val) +static Xen gxm_set_y1(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_1, "y1", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XSegment_P(ptr), ptr, XEN_ARG_2, "y1", "XSegment"); - (XEN_TO_C_XSegment(ptr))->y1 = (short)XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 1, "y1", "an integer"); + XM_set_field_assert_type(Xen_is_XSegment(ptr), ptr, 2, "y1", "XSegment"); + (Xen_to_C_XSegment(ptr))->y1 = (short)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_x1(XEN ptr) +static Xen gxm_x1(Xen ptr) { - if (XEN_XSegment_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XSegment(ptr))->x1))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "x1", "XSegment"); - return(XEN_FALSE); + if (Xen_is_XSegment(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XSegment(ptr))->x1))); + XM_field_assert_type(0, ptr, 1, "x1", "XSegment"); + return(Xen_false); } -static XEN gxm_set_x1(XEN ptr, XEN val) +static Xen gxm_set_x1(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_1, "x1", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XSegment_P(ptr), ptr, XEN_ARG_2, "x1", "XSegment"); - (XEN_TO_C_XSegment(ptr))->x1 = (short)XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 1, "x1", "an integer"); + XM_set_field_assert_type(Xen_is_XSegment(ptr), ptr, 2, "x1", "XSegment"); + (Xen_to_C_XSegment(ptr))->x1 = (short)Xen_integer_to_C_int(val); return(val); } /* XPoint */ -static XEN gxm_XPoint(XEN x, XEN y) +static Xen gxm_XPoint(Xen x, Xen y) { XPoint *r; #define H_XPoint "(XPoint x y): new XPoint struct" - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, 1, "XPoint", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, 2, "XPoint", "short"); + Xen_check_type(Xen_is_integer(x), x, 1, "XPoint", "short"); + Xen_check_type(Xen_is_integer(y), y, 2, "XPoint", "short"); r = (XPoint *)calloc(1, sizeof(XPoint)); - r->x = (short)XEN_TO_C_INT(x); - r->y = (short)XEN_TO_C_INT(y); - return(C_TO_XEN_XPoint(r)); + r->x = (short)Xen_integer_to_C_int(x); + r->y = (short)Xen_integer_to_C_int(y); + return(C_to_Xen_XPoint(r)); } /* XArc */ -static XEN gxm_XArc(XEN x, XEN y, XEN width, XEN height, XEN angle1, XEN angle2) +static Xen gxm_XArc(Xen x, Xen y, Xen width, Xen height, Xen angle1, Xen angle2) { XArc *r; #define H_XArc "(XArc x y w h ang1 ang2): new XArc struct" - XEN_ASSERT_TYPE(XEN_INTEGER_P(x), x, 1, "XArc", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(y), y, 2, "XArc", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(width), width, 3, "XArc", "INT"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(height), height, 4, "XArc", "INT"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(angle1), angle1, 5, "XArc", "short"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(angle2), angle2, 6, "XArc", "short"); + Xen_check_type(Xen_is_integer(x), x, 1, "XArc", "short"); + Xen_check_type(Xen_is_integer(y), y, 2, "XArc", "short"); + Xen_check_type(Xen_is_integer(width), width, 3, "XArc", "INT"); + Xen_check_type(Xen_is_integer(height), height, 4, "XArc", "INT"); + Xen_check_type(Xen_is_integer(angle1), angle1, 5, "XArc", "short"); + Xen_check_type(Xen_is_integer(angle2), angle2, 6, "XArc", "short"); r = (XArc *)calloc(1, sizeof(XArc)); - r->x = (short)XEN_TO_C_INT(x); - r->y = (short)XEN_TO_C_INT(y); - r->width = XEN_TO_C_INT(width); - r->height = XEN_TO_C_INT(height); - r->angle1 = (short)XEN_TO_C_INT(angle1); - r->angle2 = (short)XEN_TO_C_INT(angle2); - return(C_TO_XEN_XArc(r)); + r->x = (short)Xen_integer_to_C_int(x); + r->y = (short)Xen_integer_to_C_int(y); + r->width = Xen_integer_to_C_int(width); + r->height = Xen_integer_to_C_int(height); + r->angle1 = (short)Xen_integer_to_C_int(angle1); + r->angle2 = (short)Xen_integer_to_C_int(angle2); + return(C_to_Xen_XArc(r)); } -static XEN gxm_angle2(XEN ptr) +static Xen gxm_angle2(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XArc_P(ptr), ptr, XEN_ONLY_ARG, "angle2", "XArc"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XArc(ptr))->angle2))); + XM_field_assert_type(Xen_is_XArc(ptr), ptr, 1, "angle2", "XArc"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XArc(ptr))->angle2))); } -static XEN gxm_set_angle2(XEN ptr, XEN val) +static Xen gxm_set_angle2(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_1, "angle2", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XArc_P(ptr), ptr, XEN_ARG_2, "angle2", "XArc"); - (XEN_TO_C_XArc(ptr))->angle2 = (short)XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 1, "angle2", "an integer"); + XM_set_field_assert_type(Xen_is_XArc(ptr), ptr, 2, "angle2", "XArc"); + (Xen_to_C_XArc(ptr))->angle2 = (short)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_angle1(XEN ptr) +static Xen gxm_angle1(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XArc_P(ptr), ptr, XEN_ONLY_ARG, "angle1", "XArc"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XArc(ptr))->angle1))); + XM_field_assert_type(Xen_is_XArc(ptr), ptr, 1, "angle1", "XArc"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XArc(ptr))->angle1))); } -static XEN gxm_set_angle1(XEN ptr, XEN val) +static Xen gxm_set_angle1(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_1, "angle1", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XArc_P(ptr), ptr, XEN_ARG_2, "angle1", "XArc"); - (XEN_TO_C_XArc(ptr))->angle1 = (short)XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 1, "angle1", "an integer"); + XM_set_field_assert_type(Xen_is_XArc(ptr), ptr, 2, "angle1", "XArc"); + (Xen_to_C_XArc(ptr))->angle1 = (short)Xen_integer_to_C_int(val); return(val); } /* XColor */ -static XEN gxm_XColor(XEN pixel, XEN red, XEN green, XEN blue, XEN flags, XEN pad) +static Xen gxm_XColor(Xen pixel, Xen red, Xen green, Xen blue, Xen flags, Xen pad) { XColor *r; #define H_XColor "(XColor pixel red green blue flags pad): new XColor struct" - XEN_ASSERT_TYPE(XEN_ULONG_P(pixel) || XEN_NOT_BOUND_P(pixel), pixel, 1, "XColor", "ulong"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(red), red, 2, "XColor", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(green), green, 3, "XColor", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(blue), blue, 4, "XColor", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(flags), flags, 5, "XColor", "char"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(pad), pad, 6, "XColor", "char"); + Xen_check_type(Xen_is_ulong(pixel) || !Xen_is_bound(pixel), pixel, 1, "XColor", "ulong"); + Xen_check_type(Xen_is_integer_or_unbound(red), red, 2, "XColor", "int"); + Xen_check_type(Xen_is_integer_or_unbound(green), green, 3, "XColor", "int"); + Xen_check_type(Xen_is_integer_or_unbound(blue), blue, 4, "XColor", "int"); + Xen_check_type(Xen_is_integer_or_unbound(flags), flags, 5, "XColor", "char"); + Xen_check_type(Xen_is_integer_or_unbound(pad), pad, 6, "XColor", "char"); r = (XColor *)calloc(1, sizeof(XColor)); - if (XEN_BOUND_P(pixel)) r->pixel = XEN_TO_C_ULONG(pixel); - if (XEN_BOUND_P(red)) r->red = XEN_TO_C_INT(red); - if (XEN_BOUND_P(green)) r->green = XEN_TO_C_INT(green); - if (XEN_BOUND_P(blue)) r->blue = XEN_TO_C_INT(blue); - if (XEN_BOUND_P(flags)) r->flags = (char)XEN_TO_C_INT(flags); - if (XEN_BOUND_P(pad)) r->pad = (char)XEN_TO_C_INT(pad); - return(C_TO_XEN_XColor(r)); + if (Xen_is_bound(pixel)) r->pixel = Xen_ulong_to_C_ulong(pixel); + if (Xen_is_bound(red)) r->red = Xen_integer_to_C_int(red); + if (Xen_is_bound(green)) r->green = Xen_integer_to_C_int(green); + if (Xen_is_bound(blue)) r->blue = Xen_integer_to_C_int(blue); + if (Xen_is_bound(flags)) r->flags = (char)Xen_integer_to_C_int(flags); + if (Xen_is_bound(pad)) r->pad = (char)Xen_integer_to_C_int(pad); + return(C_to_Xen_XColor(r)); } -static XEN gxm_pad(XEN ptr) +static Xen gxm_pad(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XColor_P(ptr), ptr, XEN_ONLY_ARG, "pad", "XColor"); - return(C_TO_XEN_char((char)((XEN_TO_C_XColor(ptr))->pad))); + XM_field_assert_type(Xen_is_XColor(ptr), ptr, 1, "pad", "XColor"); + return(C_int_to_Xen_integer((char)((Xen_to_C_XColor(ptr))->pad))); } -static XEN gxm_set_pad(XEN ptr, XEN val) +static Xen gxm_set_pad(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XColor_P(ptr), ptr, XEN_ARG_1, "pad", "XColor"); - XM_SET_FIELD_ASSERT_TYPE(XEN_char_P(val), val, XEN_ARG_2, "pad", "char"); - (XEN_TO_C_XColor(ptr))->pad = XEN_TO_C_char(val); + XM_set_field_assert_type(Xen_is_XColor(ptr), ptr, 1, "pad", "XColor"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "pad", "char"); + (Xen_to_C_XColor(ptr))->pad = (char)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_blue(XEN ptr) +static Xen gxm_blue(Xen ptr) { - if (XEN_XColor_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XColor(ptr))->blue))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "blue", "XColor"); - return(XEN_FALSE); + if (Xen_is_XColor(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XColor(ptr))->blue))); + XM_field_assert_type(0, ptr, 1, "blue", "XColor"); + return(Xen_false); } -static XEN gxm_set_blue(XEN ptr, XEN val) +static Xen gxm_set_blue(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "blue", "an integer"); - if (XEN_XColor_P(ptr)) (XEN_TO_C_XColor(ptr))->blue = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "blue", "XColor"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "blue", "an integer"); + if (Xen_is_XColor(ptr)) (Xen_to_C_XColor(ptr))->blue = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "blue", "XColor"); return(val); } -static XEN gxm_green(XEN ptr) +static Xen gxm_green(Xen ptr) { - if (XEN_XColor_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XColor(ptr))->green))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "green", "XColor"); - return(XEN_FALSE); + if (Xen_is_XColor(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XColor(ptr))->green))); + XM_field_assert_type(0, ptr, 1, "green", "XColor"); + return(Xen_false); } -static XEN gxm_set_green(XEN ptr, XEN val) +static Xen gxm_set_green(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "green", "an integer"); - if (XEN_XColor_P(ptr)) (XEN_TO_C_XColor(ptr))->green = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "green", "XColor"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "green", "an integer"); + if (Xen_is_XColor(ptr)) (Xen_to_C_XColor(ptr))->green = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "green", "XColor"); return(val); } -static XEN gxm_red(XEN ptr) +static Xen gxm_red(Xen ptr) { - if (XEN_XColor_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XColor(ptr))->red))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "red", "XColor"); - return(XEN_FALSE); + if (Xen_is_XColor(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XColor(ptr))->red))); + XM_field_assert_type(0, ptr, 1, "red", "XColor"); + return(Xen_false); } -static XEN gxm_set_red(XEN ptr, XEN val) +static Xen gxm_set_red(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "red", "an integer"); - if (XEN_XColor_P(ptr)) (XEN_TO_C_XColor(ptr))->red = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "red", "XColor"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "red", "an integer"); + if (Xen_is_XColor(ptr)) (Xen_to_C_XColor(ptr))->red = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "red", "XColor"); return(val); } -static XEN gxm_XWindowChanges(XEN x, XEN y, XEN width, XEN height, XEN border_width, XEN sibling, XEN stack_mode) +static Xen gxm_XWindowChanges(Xen x, Xen y, Xen width, Xen height, Xen border_width, Xen sibling, Xen stack_mode) { XWindowChanges *r; #define H_XWindowChanges "(XWindowChanges x y w h border sib stack_mode): new XWindowChanges struct" - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(x), x, 1, "XWindowChanges", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(y), y, 2, "XWindowChanges", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(width), width, 3, "XWindowChanges", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(height), height, 4, "XWindowChanges", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(border_width), border_width, 5, "XWindowChanges", "int"); - XEN_ASSERT_TYPE(XEN_Window_P(sibling) || XEN_NOT_BOUND_P(sibling), sibling, 6, "XWindowChanges", "Window"); - XEN_ASSERT_TYPE(XEN_INTEGER_IF_BOUND_P(stack_mode), stack_mode, 7, "XWindowChanges", "int"); + Xen_check_type(Xen_is_integer_or_unbound(x), x, 1, "XWindowChanges", "int"); + Xen_check_type(Xen_is_integer_or_unbound(y), y, 2, "XWindowChanges", "int"); + Xen_check_type(Xen_is_integer_or_unbound(width), width, 3, "XWindowChanges", "int"); + Xen_check_type(Xen_is_integer_or_unbound(height), height, 4, "XWindowChanges", "int"); + Xen_check_type(Xen_is_integer_or_unbound(border_width), border_width, 5, "XWindowChanges", "int"); + Xen_check_type(Xen_is_Window(sibling) || !Xen_is_bound(sibling), sibling, 6, "XWindowChanges", "Window"); + Xen_check_type(Xen_is_integer_or_unbound(stack_mode), stack_mode, 7, "XWindowChanges", "int"); r = (XWindowChanges *)calloc(1, sizeof(XWindowChanges)); - if (XEN_BOUND_P(x)) r->x = XEN_TO_C_INT(x); - if (XEN_BOUND_P(y)) r->y = XEN_TO_C_INT(y); - if (XEN_BOUND_P(width)) r->width = XEN_TO_C_INT(width); - if (XEN_BOUND_P(height)) r->height = XEN_TO_C_INT(height); - if (XEN_BOUND_P(border_width)) r->border_width = XEN_TO_C_INT(border_width); - if (XEN_BOUND_P(sibling)) r->sibling = XEN_TO_C_Window(sibling); - if (XEN_BOUND_P(stack_mode)) r->stack_mode = XEN_TO_C_INT(stack_mode); - return(C_TO_XEN_XWindowChanges(r)); + if (Xen_is_bound(x)) r->x = Xen_integer_to_C_int(x); + if (Xen_is_bound(y)) r->y = Xen_integer_to_C_int(y); + if (Xen_is_bound(width)) r->width = Xen_integer_to_C_int(width); + if (Xen_is_bound(height)) r->height = Xen_integer_to_C_int(height); + if (Xen_is_bound(border_width)) r->border_width = Xen_integer_to_C_int(border_width); + if (Xen_is_bound(sibling)) r->sibling = Xen_to_C_Window(sibling); + if (Xen_is_bound(stack_mode)) r->stack_mode = Xen_integer_to_C_int(stack_mode); + return(C_to_Xen_XWindowChanges(r)); } -static XEN gxm_XSetWindowAttributes(XEN arglist) +static Xen gxm_XSetWindowAttributes(Xen arglist) { int len; XSetWindowAttributes *r; #define H_XSetWindowAttributes "(XSetWindowAttributes args): new XSetWindowAttributes struct (14 or more args!)" r = (XSetWindowAttributes *)calloc(1, sizeof(XSetWindowAttributes)); - len = XEN_LIST_LENGTH(arglist); - if ((len > 0) && (XEN_Pixmap_P(XEN_LIST_REF(arglist, 0)))) r->background_pixmap = XEN_TO_C_Pixmap(XEN_LIST_REF(arglist, 0)); - if ((len > 1) && (XEN_Pixel_P(XEN_LIST_REF(arglist, 1)))) r->background_pixel = XEN_TO_C_Pixel(XEN_LIST_REF(arglist, 1)); - if ((len > 2) && (XEN_Pixmap_P(XEN_LIST_REF(arglist, 2)))) r->border_pixmap = XEN_TO_C_Pixmap(XEN_LIST_REF(arglist, 2)); - if ((len > 3) && (XEN_Pixel_P(XEN_LIST_REF(arglist, 3)))) r->border_pixel = XEN_TO_C_Pixel(XEN_LIST_REF(arglist, 3)); - if ((len > 4) && (XEN_INTEGER_P(XEN_LIST_REF(arglist, 4)))) r->bit_gravity = XEN_TO_C_INT(XEN_LIST_REF(arglist, 4)); - if ((len > 5) && (XEN_INTEGER_P(XEN_LIST_REF(arglist, 5)))) r->win_gravity = XEN_TO_C_INT(XEN_LIST_REF(arglist, 5)); - if ((len > 6) && (XEN_INTEGER_P(XEN_LIST_REF(arglist, 6)))) r->backing_store = XEN_TO_C_INT(XEN_LIST_REF(arglist, 6)); - if ((len > 7) && (XEN_ULONG_P(XEN_LIST_REF(arglist, 7)))) r->backing_planes = XEN_TO_C_ULONG(XEN_LIST_REF(arglist, 7)); - if ((len > 8) && (XEN_Pixel_P(XEN_LIST_REF(arglist, 8)))) r->backing_pixel = XEN_TO_C_Pixel(XEN_LIST_REF(arglist, 8)); - if ((len > 9) && (XEN_BOOLEAN_P(XEN_LIST_REF(arglist, 9)))) r->save_under = XEN_TO_C_BOOLEAN(XEN_LIST_REF(arglist, 9)); - if ((len > 10) && (XEN_INTEGER_P(XEN_LIST_REF(arglist, 10)))) r->event_mask = XEN_TO_C_INT(XEN_LIST_REF(arglist, 10)); - if ((len > 11) && (XEN_INTEGER_P(XEN_LIST_REF(arglist, 11)))) r->do_not_propagate_mask = XEN_TO_C_INT(XEN_LIST_REF(arglist, 11)); - if ((len > 12) && (XEN_BOOLEAN_P(XEN_LIST_REF(arglist, 12)))) r->override_redirect = XEN_TO_C_BOOLEAN(XEN_LIST_REF(arglist, 12)); - if ((len > 13) && (XEN_Colormap_P(XEN_LIST_REF(arglist, 13)))) r->colormap = XEN_TO_C_Colormap(XEN_LIST_REF(arglist, 13)); - if ((len > 14) && (XEN_Cursor_P(XEN_LIST_REF(arglist, 14)))) r->cursor = XEN_TO_C_Cursor(XEN_LIST_REF(arglist, 14)); - return(C_TO_XEN_XSetWindowAttributes(r)); + len = Xen_list_length(arglist); + if ((len > 0) && (Xen_is_Pixmap(Xen_list_ref(arglist, 0)))) r->background_pixmap = Xen_to_C_Pixmap(Xen_list_ref(arglist, 0)); + if ((len > 1) && (Xen_is_Pixel(Xen_list_ref(arglist, 1)))) r->background_pixel = Xen_to_C_Pixel(Xen_list_ref(arglist, 1)); + if ((len > 2) && (Xen_is_Pixmap(Xen_list_ref(arglist, 2)))) r->border_pixmap = Xen_to_C_Pixmap(Xen_list_ref(arglist, 2)); + if ((len > 3) && (Xen_is_Pixel(Xen_list_ref(arglist, 3)))) r->border_pixel = Xen_to_C_Pixel(Xen_list_ref(arglist, 3)); + if ((len > 4) && (Xen_is_integer(Xen_list_ref(arglist, 4)))) r->bit_gravity = Xen_integer_to_C_int(Xen_list_ref(arglist, 4)); + if ((len > 5) && (Xen_is_integer(Xen_list_ref(arglist, 5)))) r->win_gravity = Xen_integer_to_C_int(Xen_list_ref(arglist, 5)); + if ((len > 6) && (Xen_is_integer(Xen_list_ref(arglist, 6)))) r->backing_store = Xen_integer_to_C_int(Xen_list_ref(arglist, 6)); + if ((len > 7) && (Xen_is_ulong(Xen_list_ref(arglist, 7)))) r->backing_planes = Xen_ulong_to_C_ulong(Xen_list_ref(arglist, 7)); + if ((len > 8) && (Xen_is_Pixel(Xen_list_ref(arglist, 8)))) r->backing_pixel = Xen_to_C_Pixel(Xen_list_ref(arglist, 8)); + if ((len > 9) && (Xen_is_boolean(Xen_list_ref(arglist, 9)))) r->save_under = Xen_boolean_to_C_bool(Xen_list_ref(arglist, 9)); + if ((len > 10) && (Xen_is_integer(Xen_list_ref(arglist, 10)))) r->event_mask = Xen_integer_to_C_int(Xen_list_ref(arglist, 10)); + if ((len > 11) && (Xen_is_integer(Xen_list_ref(arglist, 11)))) r->do_not_propagate_mask = Xen_integer_to_C_int(Xen_list_ref(arglist, 11)); + if ((len > 12) && (Xen_is_boolean(Xen_list_ref(arglist, 12)))) r->override_redirect = Xen_boolean_to_C_bool(Xen_list_ref(arglist, 12)); + if ((len > 13) && (Xen_is_Colormap(Xen_list_ref(arglist, 13)))) r->colormap = Xen_to_C_Colormap(Xen_list_ref(arglist, 13)); + if ((len > 14) && (Xen_is_Cursor(Xen_list_ref(arglist, 14)))) r->cursor = Xen_to_C_Cursor(Xen_list_ref(arglist, 14)); + return(C_to_Xen_XSetWindowAttributes(r)); } -static XEN gxm_stack_mode(XEN ptr) +static Xen gxm_stack_mode(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowChanges_P(ptr), ptr, XEN_ONLY_ARG, "stack_mode", "XWindowChanges"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowChanges(ptr))->stack_mode))); + XM_field_assert_type(Xen_is_XWindowChanges(ptr), ptr, 1, "stack_mode", "XWindowChanges"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowChanges(ptr))->stack_mode))); } -static XEN gxm_sibling(XEN ptr) +static Xen gxm_sibling(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowChanges_P(ptr), ptr, XEN_ONLY_ARG, "sibling", "XWindowChanges"); - return(C_TO_XEN_Window((Window)((XEN_TO_C_XWindowChanges(ptr))->sibling))); + XM_field_assert_type(Xen_is_XWindowChanges(ptr), ptr, 1, "sibling", "XWindowChanges"); + return(C_to_Xen_Window((Window)((Xen_to_C_XWindowChanges(ptr))->sibling))); } -static XEN gxm_obdata(XEN ptr) +static Xen gxm_obdata(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XImage_P(ptr), ptr, XEN_ONLY_ARG, "obdata", "XImage"); - return(XEN_WRAP_C_POINTER((XPointer)((XEN_TO_C_XImage(ptr))->obdata))); + XM_field_assert_type(Xen_is_XImage(ptr), ptr, 1, "obdata", "XImage"); + return(Xen_wrap_C_pointer((XPointer)((Xen_to_C_XImage(ptr))->obdata))); } -static XEN gxm_bytes_per_line(XEN ptr) +static Xen gxm_bytes_per_line(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XImage_P(ptr), ptr, XEN_ONLY_ARG, "bytes_per_line", "XImage"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->bytes_per_line))); + XM_field_assert_type(Xen_is_XImage(ptr), ptr, 1, "bytes_per_line", "XImage"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->bytes_per_line))); } -static XEN gxm_bitmap_pad(XEN ptr) +static Xen gxm_bitmap_pad(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XImage_P(ptr), ptr, XEN_ONLY_ARG, "bitmap_pad", "XImage"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->bitmap_pad))); + XM_field_assert_type(Xen_is_XImage(ptr), ptr, 1, "bitmap_pad", "XImage"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->bitmap_pad))); } -static XEN gxm_bitmap_bit_order(XEN ptr) +static Xen gxm_bitmap_bit_order(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XImage_P(ptr), ptr, XEN_ONLY_ARG, "bitmap_bit_order", "XImage"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->bitmap_bit_order))); + XM_field_assert_type(Xen_is_XImage(ptr), ptr, 1, "bitmap_bit_order", "XImage"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->bitmap_bit_order))); } -static XEN gxm_bitmap_unit(XEN ptr) +static Xen gxm_bitmap_unit(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XImage_P(ptr), ptr, XEN_ONLY_ARG, "bitmap_unit", "XImage"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->bitmap_unit))); + XM_field_assert_type(Xen_is_XImage(ptr), ptr, 1, "bitmap_unit", "XImage"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->bitmap_unit))); } -static XEN gxm_byte_order(XEN ptr) +static Xen gxm_byte_order(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->byte_order))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "byte_order", "XImage"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->byte_order))); + XM_field_assert_type(0, ptr, 1, "byte_order", "XImage"); + return(Xen_false); } -static XEN gxm_xoffset(XEN ptr) +static Xen gxm_xoffset(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XImage_P(ptr), ptr, XEN_ONLY_ARG, "xoffset", "XImage"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->xoffset))); + XM_field_assert_type(Xen_is_XImage(ptr), ptr, 1, "xoffset", "XImage"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->xoffset))); } -static XEN gxm_screen(XEN ptr) +static Xen gxm_screen(Xen ptr) { - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_Screen((Screen *)((XEN_TO_C_XWindowAttributes(ptr))->screen))); -#if HAVE_MOTIF - if (XEN_XmTopLevelEnterCallbackStruct_P(ptr)) return(C_TO_XEN_Screen((Screen *)((XEN_TO_C_XmTopLevelEnterCallbackStruct(ptr))->screen))); - if (XEN_XmTopLevelLeaveCallbackStruct_P(ptr)) return(C_TO_XEN_Screen((Screen *)((XEN_TO_C_XmTopLevelLeaveCallbackStruct(ptr))->screen))); -#endif - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->screen))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "screen", "a struct with a screen field"); - return(XEN_FALSE); + if (Xen_is_XWindowAttributes(ptr)) return(C_to_Xen_Screen((Screen *)((Xen_to_C_XWindowAttributes(ptr))->screen))); + if (Xen_is_XmTopLevelEnterCallbackStruct(ptr)) return(C_to_Xen_Screen((Screen *)((Xen_to_C_XmTopLevelEnterCallbackStruct(ptr))->screen))); + if (Xen_is_XmTopLevelLeaveCallbackStruct(ptr)) return(C_to_Xen_Screen((Screen *)((Xen_to_C_XmTopLevelLeaveCallbackStruct(ptr))->screen))); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->screen))); + XM_field_assert_type(0, ptr, 1, "screen", "a struct with a screen field"); + return(Xen_false); } -static XEN gxm_your_event_mask(XEN ptr) +static Xen gxm_your_event_mask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "your_event_mask", "XWindowAttributes"); - return(C_TO_XEN_INT((long)((XEN_TO_C_XWindowAttributes(ptr))->your_event_mask))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr), ptr, 1, "your_event_mask", "XWindowAttributes"); + return(C_int_to_Xen_integer((long)((Xen_to_C_XWindowAttributes(ptr))->your_event_mask))); } -static XEN gxm_all_event_masks(XEN ptr) +static Xen gxm_all_event_masks(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "all_event_masks", "XWindowAttributes"); - return(C_TO_XEN_INT((long)((XEN_TO_C_XWindowAttributes(ptr))->all_event_masks))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr), ptr, 1, "all_event_masks", "XWindowAttributes"); + return(C_int_to_Xen_integer((long)((Xen_to_C_XWindowAttributes(ptr))->all_event_masks))); } -static XEN gxm_map_state(XEN ptr) +static Xen gxm_map_state(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "map_state", "XWindowAttributes"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->map_state))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr), ptr, 1, "map_state", "XWindowAttributes"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->map_state))); } -static XEN gxm_map_installed(XEN ptr) +static Xen gxm_map_installed(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "map_installed", "XWindowAttributes"); - return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XWindowAttributes(ptr))->map_installed))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr), ptr, 1, "map_installed", "XWindowAttributes"); + return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XWindowAttributes(ptr))->map_installed))); } -static XEN gxm_set_visual(XEN ptr, XEN val) +static Xen gxm_set_visual(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Visual_P(val), val, XEN_ARG_2, "visual", "Visual"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "visual", "Visual"); - (XEN_TO_C_XpmAttributes(ptr))->visual = (Visual *)XEN_TO_C_Visual(val); + XM_set_field_assert_type(Xen_is_Visual(val), val, 2, "visual", "Visual"); + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "visual", "Visual"); + (Xen_to_C_XpmAttributes(ptr))->visual = (Visual *)Xen_to_C_Visual(val); return(val); } -static XEN gxm_visual(XEN ptr) +static Xen gxm_visual(Xen ptr) { - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_Visual((Visual *)((XEN_TO_C_XWindowAttributes(ptr))->visual))); - if (XEN_XpmAttributes_P(ptr)) return(C_TO_XEN_Visual((Visual *)((XEN_TO_C_XpmAttributes(ptr))->visual))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "visual", "a struct with a visual field"); - return(XEN_FALSE); + if (Xen_is_XWindowAttributes(ptr)) return(C_to_Xen_Visual((Visual *)((Xen_to_C_XWindowAttributes(ptr))->visual))); + if (Xen_is_XpmAttributes(ptr)) return(C_to_Xen_Visual((Visual *)((Xen_to_C_XpmAttributes(ptr))->visual))); + XM_field_assert_type(0, ptr, 1, "visual", "a struct with a visual field"); + return(Xen_false); } -static XEN gxm_cursor(XEN ptr) +static Xen gxm_cursor(Xen ptr) { - if (XEN_XSetWindowAttributes_P(ptr)) return(C_TO_XEN_Cursor((Cursor)((XEN_TO_C_XSetWindowAttributes(ptr))->cursor))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "cursor", "XSetWindowAttributes"); - return(XEN_FALSE); + if (Xen_is_XSetWindowAttributes(ptr)) return(C_to_Xen_Cursor((Cursor)((Xen_to_C_XSetWindowAttributes(ptr))->cursor))); + XM_field_assert_type(0, ptr, 1, "cursor", "XSetWindowAttributes"); + return(Xen_false); } -static XEN gxm_set_cursor(XEN ptr, XEN val) +static Xen gxm_set_cursor(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ARG_1, "cursor", "XSetWindowAttributes"); - XM_SET_FIELD_ASSERT_TYPE(XEN_Cursor_P(val), val, XEN_ARG_2, "cursor", "a Cursor"); - (XEN_TO_C_XSetWindowAttributes(ptr))->cursor = XEN_TO_C_Cursor(val); + XM_set_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "cursor", "XSetWindowAttributes"); + XM_set_field_assert_type(Xen_is_Cursor(val), val, 2, "cursor", "a Cursor"); + (Xen_to_C_XSetWindowAttributes(ptr))->cursor = Xen_to_C_Cursor(val); return(val); } -static XEN gxm_do_not_propagate_mask(XEN ptr) +static Xen gxm_do_not_propagate_mask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr) || XEN_XSetWindowAttributes_P(ptr), - ptr, XEN_ONLY_ARG, "do_not_propagate_mask", "a struct with a do_not_propagate_mask field"); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((long)((XEN_TO_C_XWindowAttributes(ptr))->do_not_propagate_mask))); - return(C_TO_XEN_INT((long)((XEN_TO_C_XSetWindowAttributes(ptr))->do_not_propagate_mask))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr) || Xen_is_XSetWindowAttributes(ptr), + ptr, 1, "do_not_propagate_mask", "a struct with a do_not_propagate_mask field"); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((long)((Xen_to_C_XWindowAttributes(ptr))->do_not_propagate_mask))); + return(C_int_to_Xen_integer((long)((Xen_to_C_XSetWindowAttributes(ptr))->do_not_propagate_mask))); } -static XEN gxm_event_mask(XEN ptr) +static Xen gxm_event_mask(Xen ptr) { - if (XEN_XSetWindowAttributes_P(ptr)) return(C_TO_XEN_INT((long)((XEN_TO_C_XSetWindowAttributes(ptr))->event_mask))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "event_mask", "XSetWindowAttributes"); - return(XEN_FALSE); + if (Xen_is_XSetWindowAttributes(ptr)) return(C_int_to_Xen_integer((long)((Xen_to_C_XSetWindowAttributes(ptr))->event_mask))); + XM_field_assert_type(0, ptr, 1, "event_mask", "XSetWindowAttributes"); + return(Xen_false); } -static XEN gxm_set_event_mask(XEN ptr, XEN val) +static Xen gxm_set_event_mask(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ARG_1, "event_mask", "XSetWindowAttributes"); - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "event_mask", "an integer"); - (XEN_TO_C_XSetWindowAttributes(ptr))->event_mask = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "event_mask", "XSetWindowAttributes"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "event_mask", "an integer"); + (Xen_to_C_XSetWindowAttributes(ptr))->event_mask = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_save_under(XEN ptr) +static Xen gxm_save_under(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr) || XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "save_under", "a struct with a save_under field"); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XWindowAttributes(ptr))->save_under))); - return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XSetWindowAttributes(ptr))->save_under))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr) || Xen_is_XSetWindowAttributes(ptr), ptr, 1, "save_under", "a struct with a save_under field"); + if (Xen_is_XWindowAttributes(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XWindowAttributes(ptr))->save_under))); + return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XSetWindowAttributes(ptr))->save_under))); } -static XEN gxm_set_save_under(XEN ptr, XEN val) +static Xen gxm_set_save_under(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr) || XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ARG_1, "save_under", "a struct with a save_under field"); - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "save_under", "a Boolean"); - if (XEN_XWindowAttributes_P(ptr)) - (XEN_TO_C_XWindowAttributes(ptr))->save_under = XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_XWindowAttributes(ptr) || Xen_is_XSetWindowAttributes(ptr), ptr, 1, "save_under", "a struct with a save_under field"); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "save_under", "a Boolean"); + if (Xen_is_XWindowAttributes(ptr)) + (Xen_to_C_XWindowAttributes(ptr))->save_under = Xen_boolean_to_C_bool(val); else - (XEN_TO_C_XSetWindowAttributes(ptr))->save_under = XEN_TO_C_BOOLEAN(val); + (Xen_to_C_XSetWindowAttributes(ptr))->save_under = Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_backing_pixel(XEN ptr) +static Xen gxm_backing_pixel(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr) || XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "backing_pixel", "a struct with a backing_pixel field"); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_Pixel((unsigned long)((XEN_TO_C_XWindowAttributes(ptr))->backing_pixel))); - return(C_TO_XEN_Pixel((unsigned long)((XEN_TO_C_XSetWindowAttributes(ptr))->backing_pixel))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr) || Xen_is_XSetWindowAttributes(ptr), ptr, 1, "backing_pixel", "a struct with a backing_pixel field"); + if (Xen_is_XWindowAttributes(ptr)) return(C_to_Xen_Pixel((unsigned long)((Xen_to_C_XWindowAttributes(ptr))->backing_pixel))); + return(C_to_Xen_Pixel((unsigned long)((Xen_to_C_XSetWindowAttributes(ptr))->backing_pixel))); } -static XEN gxm_backing_planes(XEN ptr) +static Xen gxm_backing_planes(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr) || XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "backing_planes", "a struct with a backing_planes field"); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XWindowAttributes(ptr))->backing_planes))); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XSetWindowAttributes(ptr))->backing_planes))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr) || Xen_is_XSetWindowAttributes(ptr), ptr, 1, "backing_planes", "a struct with a backing_planes field"); + if (Xen_is_XWindowAttributes(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XWindowAttributes(ptr))->backing_planes))); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XSetWindowAttributes(ptr))->backing_planes))); } -static XEN gxm_win_gravity(XEN ptr) +static Xen gxm_win_gravity(Xen ptr) { - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->win_gravity))); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XSetWindowAttributes(ptr))->win_gravity))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "win_gravity", "a struct with a win_gravity field"); - return(XEN_FALSE); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->win_gravity))); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XSetWindowAttributes(ptr))->win_gravity))); + XM_field_assert_type(0, ptr, 1, "win_gravity", "a struct with a win_gravity field"); + return(Xen_false); } -static XEN gxm_bit_gravity(XEN ptr) +static Xen gxm_bit_gravity(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr) || XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "bit_gravity", "a struct with a bit_gravity field"); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->bit_gravity))); - return(C_TO_XEN_INT((int)((XEN_TO_C_XSetWindowAttributes(ptr))->bit_gravity))); + XM_field_assert_type(Xen_is_XWindowAttributes(ptr) || Xen_is_XSetWindowAttributes(ptr), ptr, 1, "bit_gravity", "a struct with a bit_gravity field"); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->bit_gravity))); + return(C_int_to_Xen_integer((int)((Xen_to_C_XSetWindowAttributes(ptr))->bit_gravity))); } -static XEN gxm_set_bit_gravity(XEN ptr, XEN val) +static Xen gxm_set_bit_gravity(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XWindowAttributes_P(ptr) || XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ARG_1, "bit_gravity", "a struct with a bit_gravity field"); - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "bit_gravity", "an integer"); - if (XEN_XWindowAttributes_P(ptr)) - (XEN_TO_C_XWindowAttributes(ptr))->bit_gravity = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_XWindowAttributes(ptr) || Xen_is_XSetWindowAttributes(ptr), ptr, 1, "bit_gravity", "a struct with a bit_gravity field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "bit_gravity", "an integer"); + if (Xen_is_XWindowAttributes(ptr)) + (Xen_to_C_XWindowAttributes(ptr))->bit_gravity = Xen_integer_to_C_int(val); else - (XEN_TO_C_XSetWindowAttributes(ptr))->bit_gravity = XEN_TO_C_INT(val); + (Xen_to_C_XSetWindowAttributes(ptr))->bit_gravity = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_border_pixel(XEN ptr) +static Xen gxm_border_pixel(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "border_pixel", "XSetWindowAttributes"); - return(C_TO_XEN_Pixel((unsigned long)((XEN_TO_C_XSetWindowAttributes(ptr))->border_pixel))); + XM_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "border_pixel", "XSetWindowAttributes"); + return(C_to_Xen_Pixel((unsigned long)((Xen_to_C_XSetWindowAttributes(ptr))->border_pixel))); } -static XEN gxm_set_border_pixel(XEN ptr, XEN val) +static Xen gxm_set_border_pixel(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ARG_1, "border_pixel", "XSetWindowAttributes"); - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixel_P(val), val, XEN_ARG_2, "border_pixel", "a Pixel"); - (XEN_TO_C_XSetWindowAttributes(ptr))->border_pixel = XEN_TO_C_Pixel(val); + XM_set_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "border_pixel", "XSetWindowAttributes"); + XM_set_field_assert_type(Xen_is_Pixel(val), val, 2, "border_pixel", "a Pixel"); + (Xen_to_C_XSetWindowAttributes(ptr))->border_pixel = Xen_to_C_Pixel(val); return(val); } -static XEN gxm_border_pixmap(XEN ptr) +static Xen gxm_border_pixmap(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "border_pixmap", "XSetWindowAttributes"); - return(C_TO_XEN_Pixmap((Pixmap)((XEN_TO_C_XSetWindowAttributes(ptr))->border_pixmap))); + XM_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "border_pixmap", "XSetWindowAttributes"); + return(C_to_Xen_Pixmap((Pixmap)((Xen_to_C_XSetWindowAttributes(ptr))->border_pixmap))); } -static XEN gxm_background_pixel(XEN ptr) +static Xen gxm_background_pixel(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "background_pixel", "XSetWindowAttributes"); - return(C_TO_XEN_Pixel((unsigned long)((XEN_TO_C_XSetWindowAttributes(ptr))->background_pixel))); + XM_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "background_pixel", "XSetWindowAttributes"); + return(C_to_Xen_Pixel((unsigned long)((Xen_to_C_XSetWindowAttributes(ptr))->background_pixel))); } -static XEN gxm_set_background_pixel(XEN ptr, XEN val) +static Xen gxm_set_background_pixel(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ARG_1, "background_pixel", "XSetWindowAttributes"); - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixel_P(val), val, XEN_ARG_2, "background_pixel", "a Pixel"); - (XEN_TO_C_XSetWindowAttributes(ptr))->background_pixel = XEN_TO_C_Pixel(val); + XM_set_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "background_pixel", "XSetWindowAttributes"); + XM_set_field_assert_type(Xen_is_Pixel(val), val, 2, "background_pixel", "a Pixel"); + (Xen_to_C_XSetWindowAttributes(ptr))->background_pixel = Xen_to_C_Pixel(val); return(val); } -static XEN gxm_background_pixmap(XEN ptr) +static Xen gxm_background_pixmap(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr), ptr, XEN_ONLY_ARG, "background_pixmap", "XSetWindowAttributes"); - return(C_TO_XEN_Pixmap((Pixmap)((XEN_TO_C_XSetWindowAttributes(ptr))->background_pixmap))); + XM_field_assert_type(Xen_is_XSetWindowAttributes(ptr), ptr, 1, "background_pixmap", "XSetWindowAttributes"); + return(C_to_Xen_Pixmap((Pixmap)((Xen_to_C_XSetWindowAttributes(ptr))->background_pixmap))); } -static XEN gxm_bits_per_pixel(XEN ptr) +static Xen gxm_bits_per_pixel(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->bits_per_pixel))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "bits_per_pixel", "XImage"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->bits_per_pixel))); + XM_field_assert_type(0, ptr, 1, "bits_per_pixel", "XImage"); + return(Xen_false); } -static XEN gxm_visuals(XEN ptr) +static Xen gxm_visuals(Xen ptr) { Depth *dps; - Visual *vs; - int i, len; - XEN lst = XEN_EMPTY_LIST; - XM_FIELD_ASSERT_TYPE(XEN_Depth_P(ptr), ptr, XEN_ONLY_ARG, "visuals", "Depth"); - dps = XEN_TO_C_Depth(ptr); + int len; + Xen lst = Xen_empty_list; + XM_field_assert_type(Xen_is_Depth(ptr), ptr, 1, "visuals", "Depth"); + dps = Xen_to_C_Depth(ptr); len = dps->nvisuals; if (len > 0) { + int i; + Visual *vs; vs = dps->visuals; for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(WRAP_FOR_XEN("Visual", &(vs[i])), lst); + lst = Xen_cons(wrap_for_Xen("Visual", &(vs[i])), lst); } return(lst); } -static XEN gxm_nvisuals(XEN ptr) +static Xen gxm_nvisuals(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Depth_P(ptr), ptr, XEN_ONLY_ARG, "nvisuals", "Depth"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Depth(ptr))->nvisuals))); + XM_field_assert_type(Xen_is_Depth(ptr), ptr, 1, "nvisuals", "Depth"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Depth(ptr))->nvisuals))); } -static XEN gxm_set_depth(XEN ptr, XEN val) +static Xen gxm_set_depth(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmAttributes_P(ptr), ptr, XEN_ARG_1, "depth", "XpmAttributes"); - (XEN_TO_C_XpmAttributes(ptr))->depth = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_XpmAttributes(ptr), ptr, 1, "depth", "XpmAttributes"); + (Xen_to_C_XpmAttributes(ptr))->depth = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_depth(XEN ptr) +static Xen gxm_depth(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->depth))); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->depth))); - if (XEN_Depth_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_Depth(ptr))->depth))); - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->depth))); - if (XEN_XpmAttributes_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->depth))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "depth", "a struct with a depth field"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->depth))); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->depth))); + if (Xen_is_Depth(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_Depth(ptr))->depth))); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->depth))); + if (Xen_is_XpmAttributes(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->depth))); + XM_field_assert_type(0, ptr, 1, "depth", "a struct with a depth field"); + return(Xen_false); } -static XEN gxm_map_entries(XEN ptr) +static Xen gxm_map_entries(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Visual_P(ptr), ptr, XEN_ONLY_ARG, "map_entries", "Visual"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Visual(ptr))->map_entries))); + XM_field_assert_type(Xen_is_Visual(ptr), ptr, 1, "map_entries", "Visual"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Visual(ptr))->map_entries))); } -static XEN gxm_bits_per_rgb(XEN ptr) +static Xen gxm_bits_per_rgb(Xen ptr) { - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->bits_per_rgb))); - if (XEN_Visual_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_Visual(ptr))->bits_per_rgb))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "bits_per_rgb", "Visual or XVisualInfo"); - return(XEN_FALSE); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->bits_per_rgb))); + if (Xen_is_Visual(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_Visual(ptr))->bits_per_rgb))); + XM_field_assert_type(0, ptr, 1, "bits_per_rgb", "Visual or XVisualInfo"); + return(Xen_false); } -static XEN gxm_blue_mask(XEN ptr) +static Xen gxm_blue_mask(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XImage(ptr))->blue_mask))); - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->blue_mask))); - if (XEN_Visual_P(ptr)) return(C_TO_XEN_INT((long)((XEN_TO_C_Visual(ptr))->blue_mask))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "blue_mask", "a struct with a blue_mask field"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XImage(ptr))->blue_mask))); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->blue_mask))); + if (Xen_is_Visual(ptr)) return(C_int_to_Xen_integer((long)((Xen_to_C_Visual(ptr))->blue_mask))); + XM_field_assert_type(0, ptr, 1, "blue_mask", "a struct with a blue_mask field"); + return(Xen_false); } -static XEN gxm_green_mask(XEN ptr) +static Xen gxm_green_mask(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XImage(ptr))->green_mask))); - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->green_mask))); - if (XEN_Visual_P(ptr)) return(C_TO_XEN_INT((long)((XEN_TO_C_Visual(ptr))->green_mask))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "green_mask", "a struct with a green_mask field"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XImage(ptr))->green_mask))); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->green_mask))); + if (Xen_is_Visual(ptr)) return(C_int_to_Xen_integer((long)((Xen_to_C_Visual(ptr))->green_mask))); + XM_field_assert_type(0, ptr, 1, "green_mask", "a struct with a green_mask field"); + return(Xen_false); } -static XEN gxm_red_mask(XEN ptr) +static Xen gxm_red_mask(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XImage(ptr))->red_mask))); - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->red_mask))); - if (XEN_Visual_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_Visual(ptr))->red_mask))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "red_mask", "a struct with a red_mask field"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XImage(ptr))->red_mask))); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->red_mask))); + if (Xen_is_Visual(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_Visual(ptr))->red_mask))); + XM_field_assert_type(0, ptr, 1, "red_mask", "a struct with a red_mask field"); + return(Xen_false); } -static XEN gxm_colormap_size(XEN ptr) +static Xen gxm_colormap_size(Xen ptr) { - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->colormap_size))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "colormap_size", "XVisualInfo*"); - return(XEN_FALSE); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->colormap_size))); + XM_field_assert_type(0, ptr, 1, "colormap_size", "XVisualInfo*"); + return(Xen_false); } -static XEN gxm_class(XEN ptr) +static Xen gxm_class(Xen ptr) { #ifndef __cplusplus - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->class))); - if (XEN_Visual_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_Visual(ptr))->class))); - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->class))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "class", "a struct with a class field"); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->class))); + if (Xen_is_Visual(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_Visual(ptr))->class))); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->class))); + XM_field_assert_type(0, ptr, 1, "class", "a struct with a class field"); #endif - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_visualid(XEN ptr) +static Xen gxm_visualid(Xen ptr) { - if (XEN_Visual_P(ptr)) return(C_TO_XEN_ULONG((VisualID)((XEN_TO_C_Visual(ptr))->visualid))); - if (XEN_XStandardColormap_P(ptr)) return(C_TO_XEN_ULONG((VisualID)((XEN_TO_C_XStandardColormap(ptr))->visualid))); - if (XEN_XVisualInfo_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisualInfo(ptr))->visualid))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "visualid", "a struct with a visualid field"); - return(XEN_FALSE); + if (Xen_is_Visual(ptr)) return(C_ulong_to_Xen_ulong((VisualID)((Xen_to_C_Visual(ptr))->visualid))); + if (Xen_is_XStandardColormap(ptr)) return(C_ulong_to_Xen_ulong((VisualID)((Xen_to_C_XStandardColormap(ptr))->visualid))); + if (Xen_is_XVisualInfo(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisualInfo(ptr))->visualid))); + XM_field_assert_type(0, ptr, 1, "visualid", "a struct with a visualid field"); + return(Xen_false); } -static XEN gxm_set_pixel(XEN ptr, XEN val) +static Xen gxm_set_pixel(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixel_P(val), val, XEN_ARG_2, "pixel", "a Pixel"); - if (XEN_XColor_P(ptr)) (XEN_TO_C_XColor(ptr))->pixel = XEN_TO_C_Pixel(val); - else if (XEN_XpmColorSymbol_P(ptr)) (XEN_TO_C_XpmColorSymbol(ptr))->pixel = XEN_TO_C_Pixel(val); + XM_set_field_assert_type(Xen_is_Pixel(val), val, 2, "pixel", "a Pixel"); + if (Xen_is_XColor(ptr)) (Xen_to_C_XColor(ptr))->pixel = Xen_to_C_Pixel(val); + else if (Xen_is_XpmColorSymbol(ptr)) (Xen_to_C_XpmColorSymbol(ptr))->pixel = Xen_to_C_Pixel(val); return(val); } -static XEN gxm_pixel(XEN ptr) +static Xen gxm_pixel(Xen ptr) { - if (XEN_XColor_P(ptr)) return(C_TO_XEN_Pixel((Pixel)((XEN_TO_C_XColor(ptr))->pixel))); -#if HAVE_MOTIF - if (XEN_XmScrollBarCallbackStruct_P(ptr)) return(C_TO_XEN_Pixel((Pixel)((XEN_TO_C_XmScrollBarCallbackStruct(ptr))->pixel))); -#endif - if (XEN_XpmColorSymbol_P(ptr)) return(C_TO_XEN_Pixel((Pixel)((XEN_TO_C_XpmColorSymbol(ptr))->pixel))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "pixel", "a struct with a pixel field"); - return(XEN_FALSE); + if (Xen_is_XColor(ptr)) return(C_to_Xen_Pixel((Pixel)((Xen_to_C_XColor(ptr))->pixel))); + if (Xen_is_XmScrollBarCallbackStruct(ptr)) return(C_to_Xen_Pixel((Pixel)((Xen_to_C_XmScrollBarCallbackStruct(ptr))->pixel))); + if (Xen_is_XpmColorSymbol(ptr)) return(C_to_Xen_Pixel((Pixel)((Xen_to_C_XpmColorSymbol(ptr))->pixel))); + XM_field_assert_type(0, ptr, 1, "pixel", "a struct with a pixel field"); + return(Xen_false); } -static XEN gxm_window_group(XEN ptr) +static Xen gxm_window_group(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "window_group", "XWMHints"); - return(C_TO_XEN_ULONG((XID)((XEN_TO_C_XWMHints(ptr))->window_group))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "window_group", "XWMHints"); + return(C_ulong_to_Xen_ulong((XID)((Xen_to_C_XWMHints(ptr))->window_group))); } -static XEN gxm_icon_mask(XEN ptr) +static Xen gxm_icon_mask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "icon_mask", "XWMHints"); - return(C_TO_XEN_Pixmap((Pixmap)((XEN_TO_C_XWMHints(ptr))->icon_mask))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "icon_mask", "XWMHints"); + return(C_to_Xen_Pixmap((Pixmap)((Xen_to_C_XWMHints(ptr))->icon_mask))); } -static XEN gxm_icon_y(XEN ptr) +static Xen gxm_icon_y(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "icon_y", "XWMHints"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XWMHints(ptr))->icon_y))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "icon_y", "XWMHints"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XWMHints(ptr))->icon_y))); } -static XEN gxm_icon_x(XEN ptr) +static Xen gxm_icon_x(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "icon_x", "XWMHints"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XWMHints(ptr))->icon_x))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "icon_x", "XWMHints"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XWMHints(ptr))->icon_x))); } -static XEN gxm_icon_window(XEN ptr) +static Xen gxm_icon_window(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "icon_window", "XWMHints"); - return(C_TO_XEN_Window((Window)((XEN_TO_C_XWMHints(ptr))->icon_window))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "icon_window", "XWMHints"); + return(C_to_Xen_Window((Window)((Xen_to_C_XWMHints(ptr))->icon_window))); } -static XEN gxm_icon_pixmap(XEN ptr) +static Xen gxm_icon_pixmap(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "icon_pixmap", "XWMHints"); - return(C_TO_XEN_Pixmap((Pixmap)((XEN_TO_C_XWMHints(ptr))->icon_pixmap))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "icon_pixmap", "XWMHints"); + return(C_to_Xen_Pixmap((Pixmap)((Xen_to_C_XWMHints(ptr))->icon_pixmap))); } -static XEN gxm_initial_state(XEN ptr) +static Xen gxm_initial_state(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "initial_state", "XWMHints"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XWMHints(ptr))->initial_state))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "initial_state", "XWMHints"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XWMHints(ptr))->initial_state))); } -static XEN gxm_set_initial_state(XEN ptr, XEN val) +static Xen gxm_set_initial_state(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ARG_1, "initial_state", "XWMHints"); - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "initial_state", "an integer"); - (XEN_TO_C_XWMHints(ptr))->initial_state = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "initial_state", "XWMHints"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "initial_state", "an integer"); + (Xen_to_C_XWMHints(ptr))->initial_state = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_input(XEN ptr) +static Xen gxm_input(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ONLY_ARG, "input", "XWMHints"); - return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XWMHints(ptr))->input))); + XM_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "input", "XWMHints"); + return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XWMHints(ptr))->input))); } -static XEN gxm_set_input(XEN ptr, XEN val) +static Xen gxm_set_input(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XWMHints_P(ptr), ptr, XEN_ARG_1, "input", "XWMHints"); - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "input", "a boolean"); - (XEN_TO_C_XWMHints(ptr))->input = XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_XWMHints(ptr), ptr, 1, "input", "XWMHints"); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "input", "a boolean"); + (Xen_to_C_XWMHints(ptr))->input = Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_flags(XEN ptr) +static Xen gxm_flags(Xen ptr) { - if (XEN_XColor_P(ptr)) return(C_TO_XEN_char((char)((XEN_TO_C_XColor(ptr))->flags))); -#if HAVE_MOTIF - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->flags))); - if (XEN_XmDestinationCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDestinationCallbackStruct(ptr))->flags))); - if (XEN_XmConvertCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmConvertCallbackStruct(ptr))->flags))); -#endif - if (XEN_XWMHints_P(ptr)) return(C_TO_XEN_INT((long)((XEN_TO_C_XWMHints(ptr))->flags))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "flags", "a struct with a flags field"); - return(XEN_FALSE); + if (Xen_is_XColor(ptr)) return(C_int_to_Xen_integer((char)((Xen_to_C_XColor(ptr))->flags))); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmSelectionCallbackStruct(ptr))->flags))); + if (Xen_is_XmDestinationCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDestinationCallbackStruct(ptr))->flags))); + if (Xen_is_XmConvertCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmConvertCallbackStruct(ptr))->flags))); + if (Xen_is_XWMHints(ptr)) return(C_int_to_Xen_integer((long)((Xen_to_C_XWMHints(ptr))->flags))); + XM_field_assert_type(0, ptr, 1, "flags", "a struct with a flags field"); + return(Xen_false); } -static XEN gxm_set_flags(XEN ptr, XEN val) +static Xen gxm_set_flags(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XColor_P(ptr) || XEN_XWMHints_P(ptr), ptr, XEN_ARG_1, "flags", "XColor or XWMHints"); - XM_SET_FIELD_ASSERT_TYPE(XEN_char_P(val), val, XEN_ARG_2, "input", "a char (int)"); - if (XEN_XColor_P(ptr)) (XEN_TO_C_XColor(ptr))->flags = XEN_TO_C_char(val); - else if (XEN_XWMHints_P(ptr)) (XEN_TO_C_XWMHints(ptr))->flags = XEN_TO_C_char(val); + XM_set_field_assert_type(Xen_is_XColor(ptr) || Xen_is_XWMHints(ptr), ptr, 1, "flags", "XColor or XWMHints"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "input", "a char (int)"); + if (Xen_is_XColor(ptr)) (Xen_to_C_XColor(ptr))->flags = (char)Xen_integer_to_C_int(val); + else if (Xen_is_XWMHints(ptr)) (Xen_to_C_XWMHints(ptr))->flags = (char)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_per_char(XEN ptr) +static Xen gxm_per_char(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XFontStruct_P(ptr), ptr, XEN_ONLY_ARG, "per_char", "XFontStruct"); - return(C_TO_XEN_XCharStruct((XCharStruct *)((XEN_TO_C_XFontStruct(ptr))->per_char))); + XM_field_assert_type(Xen_is_XFontStruct(ptr), ptr, 1, "per_char", "XFontStruct"); + return(C_to_Xen_XCharStruct((XCharStruct *)((Xen_to_C_XFontStruct(ptr))->per_char))); } -static XEN gxm_max_bounds(XEN ptr) +static Xen gxm_max_bounds(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XFontStruct_P(ptr), ptr, XEN_ONLY_ARG, "max_bounds", "XFontStruct"); - return(C_TO_XEN_XCharStruct((XCharStruct *)(&(XEN_TO_C_XFontStruct(ptr))->max_bounds))); + XM_field_assert_type(Xen_is_XFontStruct(ptr), ptr, 1, "max_bounds", "XFontStruct"); + return(C_to_Xen_XCharStruct((XCharStruct *)(&(Xen_to_C_XFontStruct(ptr))->max_bounds))); } -static XEN gxm_min_bounds(XEN ptr) +static Xen gxm_min_bounds(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XFontStruct_P(ptr), ptr, XEN_ONLY_ARG, "min_bounds", "XFontStruct"); - return(C_TO_XEN_XCharStruct((XCharStruct *)(&(XEN_TO_C_XFontStruct(ptr))->min_bounds))); + XM_field_assert_type(Xen_is_XFontStruct(ptr), ptr, 1, "min_bounds", "XFontStruct"); + return(C_to_Xen_XCharStruct((XCharStruct *)(&(Xen_to_C_XFontStruct(ptr))->min_bounds))); } -static XEN gxm_min_height(XEN ptr) +static Xen gxm_min_height(Xen ptr) { - if (XEN_XIconSize_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XIconSize(ptr))->min_height))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "min_height", "XIconSize"); - return(XEN_FALSE); + if (Xen_is_XIconSize(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XIconSize(ptr))->min_height))); + XM_field_assert_type(0, ptr, 1, "min_height", "XIconSize"); + return(Xen_false); } -static XEN gxm_min_width(XEN ptr) +static Xen gxm_min_width(Xen ptr) { - if (XEN_XIconSize_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XIconSize(ptr))->min_width))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "min_width", "XIconSize"); - return(XEN_FALSE); + if (Xen_is_XIconSize(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XIconSize(ptr))->min_width))); + XM_field_assert_type(0, ptr, 1, "min_width", "XIconSize"); + return(Xen_false); } -static XEN gxm_max_height(XEN ptr) +static Xen gxm_max_height(Xen ptr) { - if (XEN_XIconSize_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XIconSize(ptr))->max_height))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "max_height", "XIconSize"); - return(XEN_FALSE); + if (Xen_is_XIconSize(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XIconSize(ptr))->max_height))); + XM_field_assert_type(0, ptr, 1, "max_height", "XIconSize"); + return(Xen_false); } -static XEN gxm_max_width(XEN ptr) +static Xen gxm_max_width(Xen ptr) { - if (XEN_XIconSize_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XIconSize(ptr))->max_width))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "max_width", "XIconSize"); - return(XEN_FALSE); + if (Xen_is_XIconSize(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XIconSize(ptr))->max_width))); + XM_field_assert_type(0, ptr, 1, "max_width", "XIconSize"); + return(Xen_false); } -static XEN gxm_height_inc(XEN ptr) +static Xen gxm_height_inc(Xen ptr) { - if (XEN_XIconSize_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XIconSize(ptr))->height_inc))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "height_inc", "XIconSize"); - return(XEN_FALSE); + if (Xen_is_XIconSize(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XIconSize(ptr))->height_inc))); + XM_field_assert_type(0, ptr, 1, "height_inc", "XIconSize"); + return(Xen_false); } -static XEN gxm_width_inc(XEN ptr) +static Xen gxm_width_inc(Xen ptr) { - if (XEN_XIconSize_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XIconSize(ptr))->width_inc))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "width_inc", "XIconSize"); - return(XEN_FALSE); + if (Xen_is_XIconSize(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XIconSize(ptr))->width_inc))); + XM_field_assert_type(0, ptr, 1, "width_inc", "XIconSize"); + return(Xen_false); } -static XEN gxm_properties(XEN ptr) +static Xen gxm_properties(Xen ptr) { int i, len; XFontStruct *fs; XFontProp *props; - XEN lst = XEN_EMPTY_LIST; - XM_FIELD_ASSERT_TYPE(XEN_XFontStruct_P(ptr), ptr, XEN_ONLY_ARG, "properties", "XFontStruct"); - fs = XEN_TO_C_XFontStruct(ptr); + Xen lst = Xen_empty_list; + XM_field_assert_type(Xen_is_XFontStruct(ptr), ptr, 1, "properties", "XFontStruct"); + fs = Xen_to_C_XFontStruct(ptr); len = fs->n_properties; props = fs->properties; for (i = 0; i < len; i++) - lst = XEN_CONS(C_TO_XEN_XFontProp(&(props[i])), lst); + lst = Xen_cons(C_to_Xen_XFontProp(&(props[i])), lst); return(lst); } -static XEN gxm_fid(XEN ptr) +static Xen gxm_fid(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XFontStruct_P(ptr), ptr, XEN_ONLY_ARG, "fid", "XFontStruct"); - return(C_TO_XEN_Font((Font)((XEN_TO_C_XFontStruct(ptr))->fid))); + XM_field_assert_type(Xen_is_XFontStruct(ptr), ptr, 1, "fid", "XFontStruct"); + return(C_to_Xen_Font((Font)((Xen_to_C_XFontStruct(ptr))->fid))); } -static XEN gxm_card32(XEN ptr) +static Xen gxm_card32(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XFontProp_P(ptr), ptr, XEN_ONLY_ARG, "card32", "XFontProp"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XFontProp(ptr))->card32))); + XM_field_assert_type(Xen_is_XFontProp(ptr), ptr, 1, "card32", "XFontProp"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XFontProp(ptr))->card32))); } -static XEN gxm_set_name(XEN ptr, XEN val) +static Xen gxm_set_name(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_STRING_P(val), val, XEN_ARG_2, "name", "a string"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XpmColorSymbol_P(ptr), ptr, XEN_ARG_1, "name", "XpmColorSymbol"); - (XEN_TO_C_XpmColorSymbol(ptr))->name = xen_strdup(XEN_TO_C_STRING(val)); + XM_set_field_assert_type(Xen_is_string(val), val, 2, "name", "a string"); + XM_set_field_assert_type(Xen_is_XpmColorSymbol(ptr), ptr, 1, "name", "XpmColorSymbol"); + (Xen_to_C_XpmColorSymbol(ptr))->name = xen_strdup(Xen_string_to_C_string(val)); return(val); } -static XEN gxm_name(XEN ptr) +static Xen gxm_name(Xen ptr) { - if (XEN_XFontProp_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XFontProp(ptr))->name))); - if (XEN_XpmColorSymbol_P(ptr)) return(C_TO_XEN_STRING((char *)((XEN_TO_C_XpmColorSymbol(ptr))->name))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "name", "a struct with a name field"); - return(XEN_FALSE); + if (Xen_is_XFontProp(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XFontProp(ptr))->name))); + if (Xen_is_XpmColorSymbol(ptr)) return(C_string_to_Xen_string((char *)((Xen_to_C_XpmColorSymbol(ptr))->name))); + XM_field_assert_type(0, ptr, 1, "name", "a struct with a name field"); + return(Xen_false); } -static XEN gxm_attributes(XEN ptr) +static Xen gxm_attributes(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XCharStruct_P(ptr), ptr, XEN_ONLY_ARG, "attributes", "XCharStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XCharStruct(ptr))->attributes))); + XM_field_assert_type(Xen_is_XCharStruct(ptr), ptr, 1, "attributes", "XCharStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XCharStruct(ptr))->attributes))); } -static XEN gxm_descent(XEN ptr) +static Xen gxm_descent(Xen ptr) { - if (XEN_XFontStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XFontStruct(ptr))->descent))); - if (XEN_XCharStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCharStruct(ptr))->descent))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "descent", "a struct with a descent field"); - return(XEN_FALSE); + if (Xen_is_XFontStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XFontStruct(ptr))->descent))); + if (Xen_is_XCharStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCharStruct(ptr))->descent))); + XM_field_assert_type(0, ptr, 1, "descent", "a struct with a descent field"); + return(Xen_false); } -static XEN gxm_ascent(XEN ptr) +static Xen gxm_ascent(Xen ptr) { - if (XEN_XFontStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XFontStruct(ptr))->ascent))); - if (XEN_XCharStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCharStruct(ptr))->ascent))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "ascent", "a struct with an ascent field"); - return(XEN_FALSE); + if (Xen_is_XFontStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XFontStruct(ptr))->ascent))); + if (Xen_is_XCharStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCharStruct(ptr))->ascent))); + XM_field_assert_type(0, ptr, 1, "ascent", "a struct with an ascent field"); + return(Xen_false); } -static XEN gxm_rbearing(XEN ptr) +static Xen gxm_rbearing(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XCharStruct_P(ptr), ptr, XEN_ONLY_ARG, "rbearing", "XCharStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XCharStruct(ptr))->rbearing))); + XM_field_assert_type(Xen_is_XCharStruct(ptr), ptr, 1, "rbearing", "XCharStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XCharStruct(ptr))->rbearing))); } -static XEN gxm_lbearing(XEN ptr) +static Xen gxm_lbearing(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XCharStruct_P(ptr), ptr, XEN_ONLY_ARG, "lbearing", "XCharStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XCharStruct(ptr))->lbearing))); + XM_field_assert_type(Xen_is_XCharStruct(ptr), ptr, 1, "lbearing", "XCharStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XCharStruct(ptr))->lbearing))); } -static XEN gxm_request_code(XEN ptr) +static Xen gxm_request_code(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XErrorEvent_P(ptr), ptr, XEN_ONLY_ARG, "request_code", "XErrorEvent"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XErrorEvent(ptr))->request_code))); + XM_field_assert_type(Xen_is_XErrorEvent(ptr), ptr, 1, "request_code", "XErrorEvent"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XErrorEvent(ptr))->request_code))); } -static XEN gxm_set_request_code(XEN ptr, XEN val) +static Xen gxm_set_request_code(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "request_code", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XErrorEvent_P(ptr), ptr, XEN_ARG_1, "request_code", "XErrorEvent"); - (XEN_TO_C_XErrorEvent(ptr))->request_code = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "request_code", "an integer"); + XM_set_field_assert_type(Xen_is_XErrorEvent(ptr), ptr, 1, "request_code", "XErrorEvent"); + (Xen_to_C_XErrorEvent(ptr))->request_code = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_error_code(XEN ptr) +static Xen gxm_error_code(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XErrorEvent_P(ptr), ptr, XEN_ONLY_ARG, "error_code", "XErrorEvent"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XErrorEvent(ptr))->error_code))); + XM_field_assert_type(Xen_is_XErrorEvent(ptr), ptr, 1, "error_code", "XErrorEvent"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XErrorEvent(ptr))->error_code))); } -static XEN gxm_set_error_code(XEN ptr, XEN val) +static Xen gxm_set_error_code(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "error_code", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XErrorEvent_P(ptr), ptr, XEN_ARG_1, "error_code", "XErrorEvent"); - (XEN_TO_C_XErrorEvent(ptr))->error_code = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "error_code", "an integer"); + XM_set_field_assert_type(Xen_is_XErrorEvent(ptr), ptr, 1, "error_code", "XErrorEvent"); + (Xen_to_C_XErrorEvent(ptr))->error_code = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_resourceid(XEN ptr) +static Xen gxm_resourceid(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XErrorEvent_P(ptr), ptr, XEN_ONLY_ARG, "resourceid", "XErrorEvent"); - return(C_TO_XEN_ULONG((XID)((XEN_TO_C_XErrorEvent(ptr))->resourceid))); + XM_field_assert_type(Xen_is_XErrorEvent(ptr), ptr, 1, "resourceid", "XErrorEvent"); + return(C_ulong_to_Xen_ulong((XID)((Xen_to_C_XErrorEvent(ptr))->resourceid))); } -static XEN gxm_set_resourceid(XEN ptr, XEN val) +static Xen gxm_set_resourceid(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_ULONG_P(val), val, XEN_ARG_2, "resourceid", "an XID"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XErrorEvent_P(ptr), ptr, XEN_ARG_1, "resourceid", "XErrorEvent"); - (XEN_TO_C_XErrorEvent(ptr))->resourceid = (XID)XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_ulong(val), val, 2, "resourceid", "an XID"); + XM_set_field_assert_type(Xen_is_XErrorEvent(ptr), ptr, 1, "resourceid", "XErrorEvent"); + (Xen_to_C_XErrorEvent(ptr))->resourceid = (XID)Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_first_keycode(XEN ptr) +static Xen gxm_first_keycode(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XMappingEvent_P(ptr), ptr, XEN_ONLY_ARG, "first_keycode", "XMappingEvent"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XMappingEvent(ptr))->first_keycode))); + XM_field_assert_type(Xen_is_XMappingEvent(ptr), ptr, 1, "first_keycode", "XMappingEvent"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XMappingEvent(ptr))->first_keycode))); } -static XEN gxm_set_first_keycode(XEN ptr, XEN val) +static Xen gxm_set_first_keycode(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "first_keycode", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XMappingEvent_P(ptr), ptr, XEN_ARG_1, "first_keycode", "XMappingEvent"); - (XEN_TO_C_XMappingEvent(ptr))->first_keycode = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "first_keycode", "an integer"); + XM_set_field_assert_type(Xen_is_XMappingEvent(ptr), ptr, 1, "first_keycode", "XMappingEvent"); + (Xen_to_C_XMappingEvent(ptr))->first_keycode = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_request(XEN ptr) +static Xen gxm_request(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XMappingEvent_P(ptr), ptr, XEN_ONLY_ARG, "request", "XMappingEvent"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XMappingEvent(ptr))->request))); + XM_field_assert_type(Xen_is_XMappingEvent(ptr), ptr, 1, "request", "XMappingEvent"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XMappingEvent(ptr))->request))); } -static XEN gxm_set_request(XEN ptr, XEN val) +static Xen gxm_set_request(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "request", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XMappingEvent_P(ptr), ptr, XEN_ARG_1, "request", "XMappingEvent"); - (XEN_TO_C_XMappingEvent(ptr))->request = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "request", "an integer"); + XM_set_field_assert_type(Xen_is_XMappingEvent(ptr), ptr, 1, "request", "XMappingEvent"); + (Xen_to_C_XMappingEvent(ptr))->request = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_format(XEN ptr) +static Xen gxm_format(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->format))); -#if HAVE_MOTIF - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->format))); - if (XEN_XmConvertCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmConvertCallbackStruct(ptr))->format))); - if (XEN_XmTextBlock_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmTextBlock(ptr))->format))); -#endif - if (XEN_XClientMessageEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XClientMessageEvent(ptr))->format))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "format", "XClientMessageEvent"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->format))); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmSelectionCallbackStruct(ptr))->format))); + if (Xen_is_XmConvertCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmConvertCallbackStruct(ptr))->format))); + if (Xen_is_XmTextBlock(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmTextBlock(ptr))->format))); + if (Xen_is_XClientMessageEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XClientMessageEvent(ptr))->format))); + XM_field_assert_type(0, ptr, 1, "format", "XClientMessageEvent"); + return(Xen_false); } -static XEN gxm_set_format(XEN ptr, XEN val) +static Xen gxm_set_format(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "format", "an integer"); - if (XEN_XClientMessageEvent_P(ptr)) (XEN_TO_C_XClientMessageEvent(ptr))->format = XEN_TO_C_INT(val); -#if HAVE_MOTIF - else if (XEN_XmTextBlock_P(ptr)) (XEN_TO_C_XmTextBlock(ptr))->format = XEN_TO_C_INT(val); -#endif - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "format", "XClientMessageEvent or XmTextBlock"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "format", "an integer"); + if (Xen_is_XClientMessageEvent(ptr)) (Xen_to_C_XClientMessageEvent(ptr))->format = Xen_integer_to_C_int(val); + else if (Xen_is_XmTextBlock(ptr)) (Xen_to_C_XmTextBlock(ptr))->format = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "format", "XClientMessageEvent or XmTextBlock"); return(val); } -static XEN gxm_message_type(XEN ptr) +static Xen gxm_message_type(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XClientMessageEvent_P(ptr), ptr, XEN_ONLY_ARG, "message_type", "XClientMessageEvent"); - return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XClientMessageEvent(ptr))->message_type))); + XM_field_assert_type(Xen_is_XClientMessageEvent(ptr), ptr, 1, "message_type", "XClientMessageEvent"); + return(C_to_Xen_Atom((Atom)((Xen_to_C_XClientMessageEvent(ptr))->message_type))); } -static XEN gxm_set_message_type(XEN ptr, XEN val) +static Xen gxm_set_message_type(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Atom_P(val), val, XEN_ARG_2, "message_type", "an Atom"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XClientMessageEvent_P(ptr), ptr, XEN_ARG_1, "message_type", "XClientMessageEvent"); - (XEN_TO_C_XClientMessageEvent(ptr))->message_type = XEN_TO_C_Atom(val); + XM_set_field_assert_type(Xen_is_Atom(val), val, 2, "message_type", "an Atom"); + XM_set_field_assert_type(Xen_is_XClientMessageEvent(ptr), ptr, 1, "message_type", "XClientMessageEvent"); + (Xen_to_C_XClientMessageEvent(ptr))->message_type = Xen_to_C_Atom(val); return(val); } -static XEN gxm_new(XEN ptr) +static Xen gxm_new(Xen ptr) { #ifndef __cplusplus - XM_FIELD_ASSERT_TYPE(XEN_XColormapEvent_P(ptr), ptr, XEN_ONLY_ARG, "new", "XColormapEvent"); - return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XColormapEvent(ptr))->new))); + XM_field_assert_type(Xen_is_XColormapEvent(ptr), ptr, 1, "new", "XColormapEvent"); + return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XColormapEvent(ptr))->new))); #endif - return(XEN_FALSE); + return(Xen_false); } -static XEN gxm_set_new(XEN ptr, XEN val) +static Xen gxm_set_new(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "new", "a boolean"); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "new", "a boolean"); #ifndef __cplusplus - if (XEN_XColormapEvent_P(ptr)) (XEN_TO_C_XColormapEvent(ptr))->new = XEN_TO_C_BOOLEAN(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "new", "XColormapEvent"); + if (Xen_is_XColormapEvent(ptr)) (Xen_to_C_XColormapEvent(ptr))->new = Xen_boolean_to_C_bool(val); + else XM_set_field_assert_type(0, ptr, 1, "new", "XColormapEvent"); #endif return(val); } -static XEN gxm_colormap(XEN ptr) +static Xen gxm_colormap(Xen ptr) { - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_Colormap((Colormap)((XEN_TO_C_XWindowAttributes(ptr))->colormap))); - if (XEN_XSetWindowAttributes_P(ptr)) return(C_TO_XEN_Colormap((Colormap)((XEN_TO_C_XSetWindowAttributes(ptr))->colormap))); - if (XEN_XColormapEvent_P(ptr)) return(C_TO_XEN_Colormap((Colormap)((XEN_TO_C_XColormapEvent(ptr))->colormap))); - if (XEN_XStandardColormap_P(ptr)) return(C_TO_XEN_Colormap((Colormap)((XEN_TO_C_XStandardColormap(ptr))->colormap))); - if (XEN_XpmAttributes_P(ptr)) return(C_TO_XEN_Colormap((Colormap)((XEN_TO_C_XpmAttributes(ptr))->colormap))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "colormap", "a struct with a colormap field"); - return(XEN_FALSE); + if (Xen_is_XWindowAttributes(ptr)) return(C_to_Xen_Colormap((Colormap)((Xen_to_C_XWindowAttributes(ptr))->colormap))); + if (Xen_is_XSetWindowAttributes(ptr)) return(C_to_Xen_Colormap((Colormap)((Xen_to_C_XSetWindowAttributes(ptr))->colormap))); + if (Xen_is_XColormapEvent(ptr)) return(C_to_Xen_Colormap((Colormap)((Xen_to_C_XColormapEvent(ptr))->colormap))); + if (Xen_is_XStandardColormap(ptr)) return(C_to_Xen_Colormap((Colormap)((Xen_to_C_XStandardColormap(ptr))->colormap))); + if (Xen_is_XpmAttributes(ptr)) return(C_to_Xen_Colormap((Colormap)((Xen_to_C_XpmAttributes(ptr))->colormap))); + XM_field_assert_type(0, ptr, 1, "colormap", "a struct with a colormap field"); + return(Xen_false); } -static XEN gxm_set_colormap(XEN ptr, XEN val) +static Xen gxm_set_colormap(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Colormap_P(val), val, XEN_ARG_2, "colormap", "a Colormap"); - if (XEN_XpmAttributes_P(ptr)) (XEN_TO_C_XpmAttributes(ptr))->colormap = XEN_TO_C_Colormap(val); + XM_set_field_assert_type(Xen_is_Colormap(val), val, 2, "colormap", "a Colormap"); + if (Xen_is_XpmAttributes(ptr)) (Xen_to_C_XpmAttributes(ptr))->colormap = Xen_to_C_Colormap(val); else { - if (XEN_XColormapEvent_P(ptr)) (XEN_TO_C_XColormapEvent(ptr))->colormap = XEN_TO_C_Colormap(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "colormap", "XpmAttributes or XColormapEvent"); + if (Xen_is_XColormapEvent(ptr)) (Xen_to_C_XColormapEvent(ptr))->colormap = Xen_to_C_Colormap(val); + else XM_set_field_assert_type(0, ptr, 1, "colormap", "XpmAttributes or XColormapEvent"); } return(val); } -static XEN gxm_property(XEN ptr) +static Xen gxm_property(Xen ptr) { - if (XEN_XSelectionEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XSelectionEvent(ptr))->property))); - if (XEN_XSelectionRequestEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XSelectionRequestEvent(ptr))->property))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "property", "a struct with a property field"); - return(XEN_FALSE); + if (Xen_is_XSelectionEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XSelectionEvent(ptr))->property))); + if (Xen_is_XSelectionRequestEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XSelectionRequestEvent(ptr))->property))); + XM_field_assert_type(0, ptr, 1, "property", "a struct with a property field"); + return(Xen_false); } -static XEN gxm_set_property(XEN ptr, XEN val) +static Xen gxm_set_property(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Atom_P(val), val, XEN_ARG_2, "property", "an Atom"); - if (XEN_XSelectionEvent_P(ptr)) (XEN_TO_C_XSelectionEvent(ptr))->property = XEN_TO_C_Atom(val); - else if (XEN_XSelectionRequestEvent_P(ptr)) (XEN_TO_C_XSelectionRequestEvent(ptr))->property = XEN_TO_C_Atom(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "property", "XSelection(Request)Event"); + XM_set_field_assert_type(Xen_is_Atom(val), val, 2, "property", "an Atom"); + if (Xen_is_XSelectionEvent(ptr)) (Xen_to_C_XSelectionEvent(ptr))->property = Xen_to_C_Atom(val); + else if (Xen_is_XSelectionRequestEvent(ptr)) (Xen_to_C_XSelectionRequestEvent(ptr))->property = Xen_to_C_Atom(val); + else XM_set_field_assert_type(0, ptr, 1, "property", "XSelection(Request)Event"); return(val); } -static XEN gxm_target(XEN ptr) +static Xen gxm_target(Xen ptr) { -#if HAVE_MOTIF - if (XEN_XmPopupHandlerCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmPopupHandlerCallbackStruct(ptr))->target))); - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->target))); - if (XEN_XmConvertCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmConvertCallbackStruct(ptr))->target))); -#endif - if (XEN_XSelectionEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XSelectionEvent(ptr))->target))); - if (XEN_XSelectionRequestEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XSelectionRequestEvent(ptr))->target))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "target", "a struct with a target field"); - return(XEN_FALSE); + if (Xen_is_XmPopupHandlerCallbackStruct(ptr)) return(C_to_Xen_Widget((Widget)((Xen_to_C_XmPopupHandlerCallbackStruct(ptr))->target))); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmSelectionCallbackStruct(ptr))->target))); + if (Xen_is_XmConvertCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmConvertCallbackStruct(ptr))->target))); + if (Xen_is_XSelectionEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XSelectionEvent(ptr))->target))); + if (Xen_is_XSelectionRequestEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XSelectionRequestEvent(ptr))->target))); + XM_field_assert_type(0, ptr, 1, "target", "a struct with a target field"); + return(Xen_false); } -static XEN gxm_set_target(XEN ptr, XEN val) +static Xen gxm_set_target(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Atom_P(val), val, XEN_ARG_2, "target", "an Atom"); - if (XEN_XSelectionEvent_P(ptr)) (XEN_TO_C_XSelectionEvent(ptr))->target = XEN_TO_C_Atom(val); - else if (XEN_XSelectionRequestEvent_P(ptr)) (XEN_TO_C_XSelectionRequestEvent(ptr))->target = XEN_TO_C_Atom(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "target", "XSelection(Request)Event"); + XM_set_field_assert_type(Xen_is_Atom(val), val, 2, "target", "an Atom"); + if (Xen_is_XSelectionEvent(ptr)) (Xen_to_C_XSelectionEvent(ptr))->target = Xen_to_C_Atom(val); + else if (Xen_is_XSelectionRequestEvent(ptr)) (Xen_to_C_XSelectionRequestEvent(ptr))->target = Xen_to_C_Atom(val); + else XM_set_field_assert_type(0, ptr, 1, "target", "XSelection(Request)Event"); return(val); } -static XEN gxm_requestor(XEN ptr) +static Xen gxm_requestor(Xen ptr) { - if (XEN_XSelectionEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XSelectionEvent(ptr))->requestor))); - if (XEN_XSelectionRequestEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XSelectionRequestEvent(ptr))->requestor))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "requestor", "a struct with a requestor field"); - return(XEN_FALSE); + if (Xen_is_XSelectionEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XSelectionEvent(ptr))->requestor))); + if (Xen_is_XSelectionRequestEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XSelectionRequestEvent(ptr))->requestor))); + XM_field_assert_type(0, ptr, 1, "requestor", "a struct with a requestor field"); + return(Xen_false); } -static XEN gxm_set_requestor(XEN ptr, XEN val) +static Xen gxm_set_requestor(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "requestor", "a Window"); - if (XEN_XSelectionEvent_P(ptr)) (XEN_TO_C_XSelectionEvent(ptr))->requestor = XEN_TO_C_Window(val); - else if (XEN_XSelectionRequestEvent_P(ptr)) (XEN_TO_C_XSelectionRequestEvent(ptr))->requestor = XEN_TO_C_Window(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "requestor", "XSelection(Request)Event"); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "requestor", "a Window"); + if (Xen_is_XSelectionEvent(ptr)) (Xen_to_C_XSelectionEvent(ptr))->requestor = Xen_to_C_Window(val); + else if (Xen_is_XSelectionRequestEvent(ptr)) (Xen_to_C_XSelectionRequestEvent(ptr))->requestor = Xen_to_C_Window(val); + else XM_set_field_assert_type(0, ptr, 1, "requestor", "XSelection(Request)Event"); return(val); } -static XEN gxm_owner(XEN ptr) +static Xen gxm_owner(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XSelectionRequestEvent_P(ptr), ptr, XEN_ONLY_ARG, "owner", "XSelectionRequestEvent"); - return(C_TO_XEN_Window((Window)((XEN_TO_C_XSelectionRequestEvent(ptr))->owner))); + XM_field_assert_type(Xen_is_XSelectionRequestEvent(ptr), ptr, 1, "owner", "XSelectionRequestEvent"); + return(C_to_Xen_Window((Window)((Xen_to_C_XSelectionRequestEvent(ptr))->owner))); } -static XEN gxm_set_owner(XEN ptr, XEN val) +static Xen gxm_set_owner(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "owner", "a Window"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XSelectionRequestEvent_P(ptr), ptr, XEN_ARG_1, "owner", "XSelectionRequestEvent"); - (XEN_TO_C_XSelectionRequestEvent(ptr))->owner = XEN_TO_C_Window(val); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "owner", "a Window"); + XM_set_field_assert_type(Xen_is_XSelectionRequestEvent(ptr), ptr, 1, "owner", "XSelectionRequestEvent"); + (Xen_to_C_XSelectionRequestEvent(ptr))->owner = Xen_to_C_Window(val); return(val); } -static XEN gxm_selection(XEN ptr) +static Xen gxm_selection(Xen ptr) { -#if HAVE_MOTIF - if (XEN_XmTransferDoneCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmTransferDoneCallbackStruct(ptr))->selection))); - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->selection))); - if (XEN_XmDestinationCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmDestinationCallbackStruct(ptr))->selection))); - if (XEN_XmConvertCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmConvertCallbackStruct(ptr))->selection))); -#endif - if (XEN_XSelectionEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XSelectionEvent(ptr))->selection))); - if (XEN_XSelectionRequestEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XSelectionRequestEvent(ptr))->selection))); - if (XEN_XSelectionClearEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XSelectionClearEvent(ptr))->selection))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "selection", "a struct with a selection field"); - return(XEN_FALSE); + if (Xen_is_XmTransferDoneCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmTransferDoneCallbackStruct(ptr))->selection))); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmSelectionCallbackStruct(ptr))->selection))); + if (Xen_is_XmDestinationCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmDestinationCallbackStruct(ptr))->selection))); + if (Xen_is_XmConvertCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmConvertCallbackStruct(ptr))->selection))); + if (Xen_is_XSelectionEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XSelectionEvent(ptr))->selection))); + if (Xen_is_XSelectionRequestEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XSelectionRequestEvent(ptr))->selection))); + if (Xen_is_XSelectionClearEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XSelectionClearEvent(ptr))->selection))); + XM_field_assert_type(0, ptr, 1, "selection", "a struct with a selection field"); + return(Xen_false); } -static XEN gxm_set_selection(XEN ptr, XEN val) +static Xen gxm_set_selection(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Atom_P(val), val, XEN_ARG_2, "selection", "an Atom"); - if (XEN_XSelectionEvent_P(ptr)) (XEN_TO_C_XSelectionEvent(ptr))->selection = XEN_TO_C_Atom(val); - else if (XEN_XSelectionRequestEvent_P(ptr)) (XEN_TO_C_XSelectionRequestEvent(ptr))->selection = XEN_TO_C_Atom(val); - else if (XEN_XSelectionClearEvent_P(ptr)) (XEN_TO_C_XSelectionClearEvent(ptr))->selection = XEN_TO_C_Atom(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "selection", "XSelection(Request|Clear)Event"); + XM_set_field_assert_type(Xen_is_Atom(val), val, 2, "selection", "an Atom"); + if (Xen_is_XSelectionEvent(ptr)) (Xen_to_C_XSelectionEvent(ptr))->selection = Xen_to_C_Atom(val); + else if (Xen_is_XSelectionRequestEvent(ptr)) (Xen_to_C_XSelectionRequestEvent(ptr))->selection = Xen_to_C_Atom(val); + else if (Xen_is_XSelectionClearEvent(ptr)) (Xen_to_C_XSelectionClearEvent(ptr))->selection = Xen_to_C_Atom(val); + else XM_set_field_assert_type(0, ptr, 1, "selection", "XSelection(Request|Clear)Event"); return(val); } -static XEN gxm_atom(XEN ptr) +static Xen gxm_atom(Xen ptr) { - if (XEN_XPropertyEvent_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XPropertyEvent(ptr))->atom))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "atom", "XPropertyEvent"); - return(XEN_FALSE); + if (Xen_is_XPropertyEvent(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XPropertyEvent(ptr))->atom))); + XM_field_assert_type(0, ptr, 1, "atom", "XPropertyEvent"); + return(Xen_false); } -static XEN gxm_set_atom(XEN ptr, XEN val) +static Xen gxm_set_atom(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Atom_P(val), val, XEN_ARG_2, "atom", "an Atom"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XPropertyEvent_P(ptr), ptr, XEN_ARG_1, "atom", "XPropertyEvent"); - (XEN_TO_C_XPropertyEvent(ptr))->atom = XEN_TO_C_Atom(val); + XM_set_field_assert_type(Xen_is_Atom(val), val, 2, "atom", "an Atom"); + XM_set_field_assert_type(Xen_is_XPropertyEvent(ptr), ptr, 1, "atom", "XPropertyEvent"); + (Xen_to_C_XPropertyEvent(ptr))->atom = Xen_to_C_Atom(val); return(val); } -static XEN gxm_place(XEN ptr) +static Xen gxm_place(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XCirculateRequestEvent_P(ptr) || XEN_XCirculateEvent_P(ptr), ptr, XEN_ONLY_ARG, "place", "a struct with a place field"); - if (XEN_XCirculateRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCirculateRequestEvent(ptr))->place))); - return(C_TO_XEN_INT((int)((XEN_TO_C_XCirculateEvent(ptr))->place))); + XM_field_assert_type(Xen_is_XCirculateRequestEvent(ptr) || Xen_is_XCirculateEvent(ptr), ptr, 1, "place", "a struct with a place field"); + if (Xen_is_XCirculateRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCirculateRequestEvent(ptr))->place))); + return(C_int_to_Xen_integer((int)((Xen_to_C_XCirculateEvent(ptr))->place))); } -static XEN gxm_set_place(XEN ptr, XEN val) +static Xen gxm_set_place(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "place", "an integer"); - if (XEN_XCirculateRequestEvent_P(ptr)) (XEN_TO_C_XCirculateRequestEvent(ptr))->place = XEN_TO_C_INT(val); - else if (XEN_XCirculateEvent_P(ptr)) (XEN_TO_C_XCirculateEvent(ptr))->place = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "place", "a struct with a place field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "place", "an integer"); + if (Xen_is_XCirculateRequestEvent(ptr)) (Xen_to_C_XCirculateRequestEvent(ptr))->place = Xen_integer_to_C_int(val); + else if (Xen_is_XCirculateEvent(ptr)) (Xen_to_C_XCirculateEvent(ptr))->place = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "place", "a struct with a place field"); return(val); } -static XEN gxm_value_mask(XEN ptr) +static Xen gxm_value_mask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XConfigureRequestEvent_P(ptr), ptr, XEN_ONLY_ARG, "value_mask", "XConfigureRequestEvent"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XConfigureRequestEvent(ptr))->value_mask))); + XM_field_assert_type(Xen_is_XConfigureRequestEvent(ptr), ptr, 1, "value_mask", "XConfigureRequestEvent"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XConfigureRequestEvent(ptr))->value_mask))); } -static XEN gxm_set_value_mask(XEN ptr, XEN val) +static Xen gxm_set_value_mask(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_ULONG_P(val), val, XEN_ARG_2, "value_mask", "an unsigned long"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XConfigureRequestEvent_P(ptr), ptr, XEN_ARG_1, "value_mask", "XConfigureRequestEvent"); - (XEN_TO_C_XConfigureRequestEvent(ptr))->value_mask = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_ulong(val), val, 2, "value_mask", "an unsigned long"); + XM_set_field_assert_type(Xen_is_XConfigureRequestEvent(ptr), ptr, 1, "value_mask", "XConfigureRequestEvent"); + (Xen_to_C_XConfigureRequestEvent(ptr))->value_mask = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_above(XEN ptr) +static Xen gxm_above(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XConfigureRequestEvent_P(ptr) || XEN_XConfigureEvent_P(ptr), ptr, XEN_ONLY_ARG, "above", "a struct with an above field"); - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XConfigureRequestEvent(ptr))->above))); - return(C_TO_XEN_Window((Window)((XEN_TO_C_XConfigureEvent(ptr))->above))); + XM_field_assert_type(Xen_is_XConfigureRequestEvent(ptr) || Xen_is_XConfigureEvent(ptr), ptr, 1, "above", "a struct with an above field"); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XConfigureRequestEvent(ptr))->above))); + return(C_to_Xen_Window((Window)((Xen_to_C_XConfigureEvent(ptr))->above))); } -static XEN gxm_set_above(XEN ptr, XEN val) +static Xen gxm_set_above(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "above", "a Window"); - if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->above = XEN_TO_C_Window(val); - else if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->above = XEN_TO_C_Window(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "above", "a struct with an above field"); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "above", "a Window"); + if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->above = Xen_to_C_Window(val); + else if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->above = Xen_to_C_Window(val); + else XM_set_field_assert_type(0, ptr, 1, "above", "a struct with an above field"); return(val); } -static XEN gxm_from_configure(XEN ptr) +static Xen gxm_from_configure(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XUnmapEvent_P(ptr), ptr, XEN_ONLY_ARG, "from_configure", "XUnmapEvent"); - return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XUnmapEvent(ptr))->from_configure))); + XM_field_assert_type(Xen_is_XUnmapEvent(ptr), ptr, 1, "from_configure", "XUnmapEvent"); + return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XUnmapEvent(ptr))->from_configure))); } -static XEN gxm_set_from_configure(XEN ptr, XEN val) +static Xen gxm_set_from_configure(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "from_configure", "a boolean"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XUnmapEvent_P(ptr), ptr, XEN_ARG_1, "from_configure", "XUnmapEvent"); - (XEN_TO_C_XUnmapEvent(ptr))->from_configure = XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "from_configure", "a boolean"); + XM_set_field_assert_type(Xen_is_XUnmapEvent(ptr), ptr, 1, "from_configure", "XUnmapEvent"); + (Xen_to_C_XUnmapEvent(ptr))->from_configure = Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_event(XEN ptr) +static Xen gxm_event(Xen ptr) { /* Xlib.h says event is a window in these cases -- kinda strange looking */ - if (XEN_XCirculateEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XCirculateEvent(ptr))->event))); - if (XEN_XGravityEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XGravityEvent(ptr))->event))); - if (XEN_XConfigureEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XConfigureEvent(ptr))->event))); - if (XEN_XReparentEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XReparentEvent(ptr))->event))); - if (XEN_XMapEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XMapEvent(ptr))->event))); - if (XEN_XUnmapEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XUnmapEvent(ptr))->event))); - if (XEN_XDestroyWindowEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XDestroyWindowEvent(ptr))->event))); -#if HAVE_MOTIF - if (XEN_AnyCallbackStruct_P(ptr)) return(C_TO_XEN_XEvent((XEvent *)((XEN_TO_C_XmAnyCallbackStruct(ptr))->event))); -#endif - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "event", "a struct with an event field"); - return(XEN_FALSE); -} - -static XEN gxm_set_event(XEN ptr, XEN val) -{ - if (XEN_XCirculateEvent_P(ptr)) (XEN_TO_C_XCirculateEvent(ptr))->event = XEN_TO_C_Window(val); else - if (XEN_XGravityEvent_P(ptr)) (XEN_TO_C_XGravityEvent(ptr))->event = XEN_TO_C_Window(val); else - if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->event = XEN_TO_C_Window(val); else - if (XEN_XReparentEvent_P(ptr)) (XEN_TO_C_XReparentEvent(ptr))->event = XEN_TO_C_Window(val); else - if (XEN_XMapEvent_P(ptr)) (XEN_TO_C_XMapEvent(ptr))->event = XEN_TO_C_Window(val); else - if (XEN_XUnmapEvent_P(ptr)) (XEN_TO_C_XUnmapEvent(ptr))->event = XEN_TO_C_Window(val); else - if (XEN_XDestroyWindowEvent_P(ptr)) (XEN_TO_C_XDestroyWindowEvent(ptr))->event = XEN_TO_C_Window(val); else -#if HAVE_MOTIF - if (XEN_AnyCallbackStruct_P(ptr)) (XEN_TO_C_XmAnyCallbackStruct(ptr))->event = XEN_TO_C_XEvent(val); else -#endif - XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "event", "a struct with an event field"); + if (Xen_is_XCirculateEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XCirculateEvent(ptr))->event))); + if (Xen_is_XGravityEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XGravityEvent(ptr))->event))); + if (Xen_is_XConfigureEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XConfigureEvent(ptr))->event))); + if (Xen_is_XReparentEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XReparentEvent(ptr))->event))); + if (Xen_is_XMapEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XMapEvent(ptr))->event))); + if (Xen_is_XUnmapEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XUnmapEvent(ptr))->event))); + if (Xen_is_XDestroyWindowEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XDestroyWindowEvent(ptr))->event))); + if (Xen_is_AnyCallbackStruct(ptr)) return(C_to_Xen_XEvent((XEvent *)((Xen_to_C_XmAnyCallbackStruct(ptr))->event))); + XM_field_assert_type(0, ptr, 1, "event", "a struct with an event field"); + return(Xen_false); +} + +static Xen gxm_set_event(Xen ptr, Xen val) +{ + if (Xen_is_XCirculateEvent(ptr)) (Xen_to_C_XCirculateEvent(ptr))->event = Xen_to_C_Window(val); else + if (Xen_is_XGravityEvent(ptr)) (Xen_to_C_XGravityEvent(ptr))->event = Xen_to_C_Window(val); else + if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->event = Xen_to_C_Window(val); else + if (Xen_is_XReparentEvent(ptr)) (Xen_to_C_XReparentEvent(ptr))->event = Xen_to_C_Window(val); else + if (Xen_is_XMapEvent(ptr)) (Xen_to_C_XMapEvent(ptr))->event = Xen_to_C_Window(val); else + if (Xen_is_XUnmapEvent(ptr)) (Xen_to_C_XUnmapEvent(ptr))->event = Xen_to_C_Window(val); else + if (Xen_is_XDestroyWindowEvent(ptr)) (Xen_to_C_XDestroyWindowEvent(ptr))->event = Xen_to_C_Window(val); else + if (Xen_is_AnyCallbackStruct(ptr)) (Xen_to_C_XmAnyCallbackStruct(ptr))->event = Xen_to_C_XEvent(val); else + XM_set_field_assert_type(0, ptr, 1, "event", "a struct with an event field"); return(val); } -static XEN gxm_override_redirect(XEN ptr) +static Xen gxm_override_redirect(Xen ptr) { - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XWindowAttributes(ptr))->override_redirect))); - if (XEN_XSetWindowAttributes_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XSetWindowAttributes(ptr))->override_redirect))); - if (XEN_XConfigureEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XConfigureEvent(ptr))->override_redirect))); - if (XEN_XReparentEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XReparentEvent(ptr))->override_redirect))); - if (XEN_XMapEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XMapEvent(ptr))->override_redirect))); - if (XEN_XCreateWindowEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XCreateWindowEvent(ptr))->override_redirect))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "override_redirect", "a struct with an override_redirect field"); - return(XEN_FALSE); + if (Xen_is_XWindowAttributes(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XWindowAttributes(ptr))->override_redirect))); + if (Xen_is_XSetWindowAttributes(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XSetWindowAttributes(ptr))->override_redirect))); + if (Xen_is_XConfigureEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XConfigureEvent(ptr))->override_redirect))); + if (Xen_is_XReparentEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XReparentEvent(ptr))->override_redirect))); + if (Xen_is_XMapEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XMapEvent(ptr))->override_redirect))); + if (Xen_is_XCreateWindowEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XCreateWindowEvent(ptr))->override_redirect))); + XM_field_assert_type(0, ptr, 1, "override_redirect", "a struct with an override_redirect field"); + return(Xen_false); } -static XEN gxm_set_override_redirect(XEN ptr, XEN val) +static Xen gxm_set_override_redirect(Xen ptr, Xen val) { Bool b; - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "override_redirect", "a boolean"); - b = (Bool)XEN_TO_C_BOOLEAN(val); - if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->override_redirect = b; - else if (XEN_XReparentEvent_P(ptr)) (XEN_TO_C_XReparentEvent(ptr))->override_redirect = b; - else if (XEN_XMapEvent_P(ptr)) (XEN_TO_C_XMapEvent(ptr))->override_redirect = b; - else if (XEN_XCreateWindowEvent_P(ptr)) (XEN_TO_C_XCreateWindowEvent(ptr))->override_redirect = b; - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "override_redirect", "a struct with an override_redirect field"); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "override_redirect", "a boolean"); + b = (Bool)Xen_boolean_to_C_bool(val); + if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->override_redirect = b; + else if (Xen_is_XReparentEvent(ptr)) (Xen_to_C_XReparentEvent(ptr))->override_redirect = b; + else if (Xen_is_XMapEvent(ptr)) (Xen_to_C_XMapEvent(ptr))->override_redirect = b; + else if (Xen_is_XCreateWindowEvent(ptr)) (Xen_to_C_XCreateWindowEvent(ptr))->override_redirect = b; + else XM_set_field_assert_type(0, ptr, 1, "override_redirect", "a struct with an override_redirect field"); return(val); } -static XEN gxm_border_width(XEN ptr) +static Xen gxm_border_width(Xen ptr) { - if (XEN_XWindowChanges_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowChanges(ptr))->border_width))); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->border_width))); - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureRequestEvent(ptr))->border_width))); - if (XEN_XConfigureEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureEvent(ptr))->border_width))); - if (XEN_XCreateWindowEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCreateWindowEvent(ptr))->border_width))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "border_width", "a struct with a border_width field"); - return(XEN_FALSE); + if (Xen_is_XWindowChanges(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowChanges(ptr))->border_width))); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->border_width))); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureRequestEvent(ptr))->border_width))); + if (Xen_is_XConfigureEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureEvent(ptr))->border_width))); + if (Xen_is_XCreateWindowEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCreateWindowEvent(ptr))->border_width))); + XM_field_assert_type(0, ptr, 1, "border_width", "a struct with a border_width field"); + return(Xen_false); } -static XEN gxm_set_border_width(XEN ptr, XEN val) +static Xen gxm_set_border_width(Xen ptr, Xen val) { int wid; - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "border_width", "an integer"); - wid = XEN_TO_C_INT(val); - if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->border_width = wid; - else if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->border_width = wid; - else if (XEN_XCreateWindowEvent_P(ptr)) (XEN_TO_C_XCreateWindowEvent(ptr))->border_width = wid; - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "border_width", "a struct with a border_width field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "border_width", "an integer"); + wid = Xen_integer_to_C_int(val); + if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->border_width = wid; + else if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->border_width = wid; + else if (Xen_is_XCreateWindowEvent(ptr)) (Xen_to_C_XCreateWindowEvent(ptr))->border_width = wid; + else XM_set_field_assert_type(0, ptr, 1, "border_width", "a struct with a border_width field"); return(val); } -static XEN gxm_parent(XEN ptr) +static Xen gxm_parent(Xen ptr) { - if (XEN_XCirculateRequestEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XCirculateRequestEvent(ptr))->parent))); - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XConfigureRequestEvent(ptr))->parent))); - if (XEN_XReparentEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XReparentEvent(ptr))->parent))); - if (XEN_XMapRequestEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XMapRequestEvent(ptr))->parent))); - if (XEN_XCreateWindowEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XCreateWindowEvent(ptr))->parent))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "parent", "a struct with a parent field"); - return(XEN_FALSE); + if (Xen_is_XCirculateRequestEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XCirculateRequestEvent(ptr))->parent))); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XConfigureRequestEvent(ptr))->parent))); + if (Xen_is_XReparentEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XReparentEvent(ptr))->parent))); + if (Xen_is_XMapRequestEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XMapRequestEvent(ptr))->parent))); + if (Xen_is_XCreateWindowEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XCreateWindowEvent(ptr))->parent))); + XM_field_assert_type(0, ptr, 1, "parent", "a struct with a parent field"); + return(Xen_false); } -static XEN gxm_set_parent(XEN ptr, XEN val) +static Xen gxm_set_parent(Xen ptr, Xen val) { Window w; - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "parent", "a Window"); - w = XEN_TO_C_Window(val); - if (XEN_XCirculateRequestEvent_P(ptr)) (XEN_TO_C_XCirculateRequestEvent(ptr))->parent = w; - else if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->parent = w; - else if (XEN_XReparentEvent_P(ptr)) (XEN_TO_C_XReparentEvent(ptr))->parent = w; - else if (XEN_XMapRequestEvent_P(ptr)) (XEN_TO_C_XMapRequestEvent(ptr))->parent = w; - else if (XEN_XCreateWindowEvent_P(ptr)) (XEN_TO_C_XCreateWindowEvent(ptr))->parent= w; - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "parent", "a struct with a parent field"); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "parent", "a Window"); + w = Xen_to_C_Window(val); + if (Xen_is_XCirculateRequestEvent(ptr)) (Xen_to_C_XCirculateRequestEvent(ptr))->parent = w; + else if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->parent = w; + else if (Xen_is_XReparentEvent(ptr)) (Xen_to_C_XReparentEvent(ptr))->parent = w; + else if (Xen_is_XMapRequestEvent(ptr)) (Xen_to_C_XMapRequestEvent(ptr))->parent = w; + else if (Xen_is_XCreateWindowEvent(ptr)) (Xen_to_C_XCreateWindowEvent(ptr))->parent= w; + else XM_set_field_assert_type(0, ptr, 1, "parent", "a struct with a parent field"); return(val); } -static XEN gxm_minor_code(XEN ptr) +static Xen gxm_minor_code(Xen ptr) { - if (XEN_XErrorEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XErrorEvent(ptr))->minor_code))); - if (XEN_XNoExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XNoExposeEvent(ptr))->minor_code))); - if (XEN_XGraphicsExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGraphicsExposeEvent(ptr))->minor_code))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "minor_code", "a struct with a minor_code field"); - return(XEN_FALSE); + if (Xen_is_XErrorEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XErrorEvent(ptr))->minor_code))); + if (Xen_is_XNoExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XNoExposeEvent(ptr))->minor_code))); + if (Xen_is_XGraphicsExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGraphicsExposeEvent(ptr))->minor_code))); + XM_field_assert_type(0, ptr, 1, "minor_code", "a struct with a minor_code field"); + return(Xen_false); } -static XEN gxm_set_minor_code(XEN ptr, XEN val) +static Xen gxm_set_minor_code(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "minor_code", "an integer"); - if (XEN_XErrorEvent_P(ptr)) (XEN_TO_C_XErrorEvent(ptr))->minor_code = XEN_TO_C_INT(val); - else if (XEN_XNoExposeEvent_P(ptr)) (XEN_TO_C_XNoExposeEvent(ptr))->minor_code = XEN_TO_C_INT(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->minor_code = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "minor_code", "a struct with a minor_code field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "minor_code", "an integer"); + if (Xen_is_XErrorEvent(ptr)) (Xen_to_C_XErrorEvent(ptr))->minor_code = Xen_integer_to_C_int(val); + else if (Xen_is_XNoExposeEvent(ptr)) (Xen_to_C_XNoExposeEvent(ptr))->minor_code = Xen_integer_to_C_int(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->minor_code = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "minor_code", "a struct with a minor_code field"); return(val); } -static XEN gxm_major_code(XEN ptr) +static Xen gxm_major_code(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XNoExposeEvent_P(ptr) || XEN_XGraphicsExposeEvent_P(ptr), ptr, XEN_ONLY_ARG, "major_code", "a struct with a major_code field"); - if (XEN_XNoExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XNoExposeEvent(ptr))->major_code))); - return(C_TO_XEN_INT((int)((XEN_TO_C_XGraphicsExposeEvent(ptr))->major_code))); + XM_field_assert_type(Xen_is_XNoExposeEvent(ptr) || Xen_is_XGraphicsExposeEvent(ptr), ptr, 1, "major_code", "a struct with a major_code field"); + if (Xen_is_XNoExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XNoExposeEvent(ptr))->major_code))); + return(C_int_to_Xen_integer((int)((Xen_to_C_XGraphicsExposeEvent(ptr))->major_code))); } -static XEN gxm_set_major_code(XEN ptr, XEN val) +static Xen gxm_set_major_code(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "major_code", "an integer"); - if (XEN_XNoExposeEvent_P(ptr)) (XEN_TO_C_XNoExposeEvent(ptr))->major_code = XEN_TO_C_INT(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->major_code = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "major_code", "a struct with a major_code field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "major_code", "an integer"); + if (Xen_is_XNoExposeEvent(ptr)) (Xen_to_C_XNoExposeEvent(ptr))->major_code = Xen_integer_to_C_int(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->major_code = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "major_code", "a struct with a major_code field"); return(val); } -static XEN gxm_drawable(XEN ptr) +static Xen gxm_drawable(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XNoExposeEvent_P(ptr) || XEN_XGraphicsExposeEvent_P(ptr), ptr, XEN_ONLY_ARG, "drawable", "a struct with a drawable field"); - if (XEN_XNoExposeEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XNoExposeEvent(ptr))->drawable))); - return(C_TO_XEN_Window((Window)((XEN_TO_C_XGraphicsExposeEvent(ptr))->drawable))); + XM_field_assert_type(Xen_is_XNoExposeEvent(ptr) || Xen_is_XGraphicsExposeEvent(ptr), ptr, 1, "drawable", "a struct with a drawable field"); + if (Xen_is_XNoExposeEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XNoExposeEvent(ptr))->drawable))); + return(C_to_Xen_Window((Window)((Xen_to_C_XGraphicsExposeEvent(ptr))->drawable))); } -static XEN gxm_set_drawable(XEN ptr, XEN val) +static Xen gxm_set_drawable(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "drawable", "a Window"); - if (XEN_XNoExposeEvent_P(ptr)) (XEN_TO_C_XNoExposeEvent(ptr))->drawable = XEN_TO_C_Window(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->drawable = XEN_TO_C_Window(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "drawable", "a struct with a drawable field"); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "drawable", "a Window"); + if (Xen_is_XNoExposeEvent(ptr)) (Xen_to_C_XNoExposeEvent(ptr))->drawable = Xen_to_C_Window(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->drawable = Xen_to_C_Window(val); + else XM_set_field_assert_type(0, ptr, 1, "drawable", "a struct with a drawable field"); return(val); } -static XEN gxm_count(XEN ptr) +static Xen gxm_count(Xen ptr) { - if (XEN_XMappingEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XMappingEvent(ptr))->count))); - if (XEN_XGraphicsExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGraphicsExposeEvent(ptr))->count))); - if (XEN_XExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XExposeEvent(ptr))->count))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "count", "a struct with a count field"); - return(XEN_FALSE); + if (Xen_is_XMappingEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XMappingEvent(ptr))->count))); + if (Xen_is_XGraphicsExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGraphicsExposeEvent(ptr))->count))); + if (Xen_is_XExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XExposeEvent(ptr))->count))); + XM_field_assert_type(0, ptr, 1, "count", "a struct with a count field"); + return(Xen_false); } -static XEN gxm_set_count(XEN ptr, XEN val) +static Xen gxm_set_count(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "count", "an integer"); - if (XEN_XMappingEvent_P(ptr)) (XEN_TO_C_XMappingEvent(ptr))->count = XEN_TO_C_INT(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->count = XEN_TO_C_INT(val); - else if (XEN_XExposeEvent_P(ptr)) (XEN_TO_C_XExposeEvent(ptr))->count = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "count", "a struct with a count field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "count", "an integer"); + if (Xen_is_XMappingEvent(ptr)) (Xen_to_C_XMappingEvent(ptr))->count = Xen_integer_to_C_int(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->count = Xen_integer_to_C_int(val); + else if (Xen_is_XExposeEvent(ptr)) (Xen_to_C_XExposeEvent(ptr))->count = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "count", "a struct with a count field"); return(val); } -static XEN gxm_key_vector(XEN ptr) +static Xen gxm_key_vector(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XKeymapEvent_P(ptr), ptr, XEN_ONLY_ARG, "key_vector", "XKeymapEvent"); - return(C_TO_XEN_STRING((char *)((XEN_TO_C_XKeymapEvent(ptr))->key_vector))); + XM_field_assert_type(Xen_is_XKeymapEvent(ptr), ptr, 1, "key_vector", "XKeymapEvent"); + return(C_string_to_Xen_string((char *)((Xen_to_C_XKeymapEvent(ptr))->key_vector))); } -static XEN gxm_set_key_vector(XEN ptr, XEN val) +static Xen gxm_set_key_vector(Xen ptr, Xen val) { char *keys; - int i, lim = 0; - XM_SET_FIELD_ASSERT_TYPE(XEN_STRING_P(val), val, XEN_ARG_2, "key_vector", "a string"); - keys = (char *)XEN_TO_C_STRING(val); + int lim = 0; + XM_set_field_assert_type(Xen_is_string(val), val, 2, "key_vector", "a string"); + keys = (char *)Xen_string_to_C_string(val); if (keys) lim = strlen(keys); if (lim > 32) lim = 32; if (lim > 0) { - if (XEN_XKeymapEvent_P(ptr)) + if (Xen_is_XKeymapEvent(ptr)) { + int i; for (i = 0; i < lim; i++) - (XEN_TO_C_XKeymapEvent(ptr))->key_vector[i] = keys[i]; + (Xen_to_C_XKeymapEvent(ptr))->key_vector[i] = keys[i]; } - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "key_vector", "XKeymapEvent"); + else XM_set_field_assert_type(0, ptr, 1, "key_vector", "XKeymapEvent"); } return(val); } -static XEN gxm_focus(XEN ptr) +static Xen gxm_focus(Xen ptr) { - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XCrossingEvent(ptr))->focus))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "focus", "XCrossingEvent"); - return(XEN_FALSE); + if (Xen_is_XCrossingEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XCrossingEvent(ptr))->focus))); + XM_field_assert_type(0, ptr, 1, "focus", "XCrossingEvent"); + return(Xen_false); } -static XEN gxm_set_focus(XEN ptr, XEN val) +static Xen gxm_set_focus(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "focus", "a boolean"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XCrossingEvent_P(ptr), ptr, XEN_ARG_1, "focus", "XCrossingEvent"); - (XEN_TO_C_XCrossingEvent(ptr))->focus = (Bool)XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "focus", "a boolean"); + XM_set_field_assert_type(Xen_is_XCrossingEvent(ptr), ptr, 1, "focus", "XCrossingEvent"); + (Xen_to_C_XCrossingEvent(ptr))->focus = (Bool)Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_detail(XEN ptr) +static Xen gxm_detail(Xen ptr) { - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureRequestEvent(ptr))->detail))); - if (XEN_XFocusChangeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XFocusChangeEvent(ptr))->detail))); - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCrossingEvent(ptr))->detail))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "detail", "a struct with a detail field"); - return(XEN_FALSE); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureRequestEvent(ptr))->detail))); + if (Xen_is_XFocusChangeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XFocusChangeEvent(ptr))->detail))); + if (Xen_is_XCrossingEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCrossingEvent(ptr))->detail))); + XM_field_assert_type(0, ptr, 1, "detail", "a struct with a detail field"); + return(Xen_false); } -static XEN gxm_set_detail(XEN ptr, XEN val) +static Xen gxm_set_detail(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "detail", "an integer"); - if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->detail = XEN_TO_C_INT(val); - else if (XEN_XFocusChangeEvent_P(ptr)) (XEN_TO_C_XFocusChangeEvent(ptr))->detail = XEN_TO_C_INT(val); - else if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->detail = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "detail", "a struct with a detail field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "detail", "an integer"); + if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->detail = Xen_integer_to_C_int(val); + else if (Xen_is_XFocusChangeEvent(ptr)) (Xen_to_C_XFocusChangeEvent(ptr))->detail = Xen_integer_to_C_int(val); + else if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->detail = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "detail", "a struct with a detail field"); return(val); } -static XEN gxm_mode(XEN ptr) +static Xen gxm_mode(Xen ptr) { - if (XEN_XFocusChangeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XFocusChangeEvent(ptr))->mode))); - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCrossingEvent(ptr))->mode))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "mode", "a struct with a mode field"); - return(XEN_FALSE); + if (Xen_is_XFocusChangeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XFocusChangeEvent(ptr))->mode))); + if (Xen_is_XCrossingEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCrossingEvent(ptr))->mode))); + XM_field_assert_type(0, ptr, 1, "mode", "a struct with a mode field"); + return(Xen_false); } -static XEN gxm_set_mode(XEN ptr, XEN val) +static Xen gxm_set_mode(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "mode", "an integer"); - if (XEN_XFocusChangeEvent_P(ptr)) (XEN_TO_C_XFocusChangeEvent(ptr))->mode = XEN_TO_C_INT(val); - else if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->mode = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "mode", "a struct with a mode field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "mode", "an integer"); + if (Xen_is_XFocusChangeEvent(ptr)) (Xen_to_C_XFocusChangeEvent(ptr))->mode = Xen_integer_to_C_int(val); + else if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->mode = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "mode", "a struct with a mode field"); return(val); } -static XEN gxm_is_hint(XEN ptr) +static Xen gxm_is_hint(Xen ptr) { - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_char((char)((XEN_TO_C_XMotionEvent(ptr))->is_hint))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "is_hint", "XMotionEvent"); - return(XEN_FALSE); + if (Xen_is_XMotionEvent(ptr)) return(C_int_to_Xen_integer((char)((Xen_to_C_XMotionEvent(ptr))->is_hint))); + XM_field_assert_type(0, ptr, 1, "is_hint", "XMotionEvent"); + return(Xen_false); } -static XEN gxm_set_is_hint(XEN ptr, XEN val) +static Xen gxm_set_is_hint(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "is_hint", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XMotionEvent_P(ptr), ptr, XEN_ARG_1, "is_hint", "XMotionEvent"); - (XEN_TO_C_XMotionEvent(ptr))->is_hint = (char)XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "is_hint", "an integer"); + XM_set_field_assert_type(Xen_is_XMotionEvent(ptr), ptr, 1, "is_hint", "XMotionEvent"); + (Xen_to_C_XMotionEvent(ptr))->is_hint = (char)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_button(XEN ptr) +static Xen gxm_button(Xen ptr) { - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XButtonEvent(ptr))->button))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "button", "XButtonEvent"); - return(XEN_FALSE); + if (Xen_is_XButtonEvent(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XButtonEvent(ptr))->button))); + XM_field_assert_type(0, ptr, 1, "button", "XButtonEvent"); + return(Xen_false); } -static XEN gxm_set_button(XEN ptr, XEN val) +static Xen gxm_set_button(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_ULONG_P(val), val, XEN_ARG_2, "button", "an unsigned long"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XButtonEvent_P(ptr), ptr, XEN_ARG_1, "button", "XButtonEvent"); - (XEN_TO_C_XButtonEvent(ptr))->button = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_ulong(val), val, 2, "button", "an unsigned long"); + XM_set_field_assert_type(Xen_is_XButtonEvent(ptr), ptr, 1, "button", "XButtonEvent"); + (Xen_to_C_XButtonEvent(ptr))->button = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_same_screen(XEN ptr) +static Xen gxm_same_screen(Xen ptr) { - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XCrossingEvent(ptr))->same_screen))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XMotionEvent(ptr))->same_screen))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XButtonEvent(ptr))->same_screen))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XKeyEvent(ptr))->same_screen))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "same_screen", "a struct with a same_screen field"); - return(XEN_FALSE); + if (Xen_is_XCrossingEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XCrossingEvent(ptr))->same_screen))); + if (Xen_is_XMotionEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XMotionEvent(ptr))->same_screen))); + if (Xen_is_XButtonEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XButtonEvent(ptr))->same_screen))); + if (Xen_is_XKeyEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XKeyEvent(ptr))->same_screen))); + XM_field_assert_type(0, ptr, 1, "same_screen", "a struct with a same_screen field"); + return(Xen_false); } -static XEN gxm_set_same_screen(XEN ptr, XEN val) +static Xen gxm_set_same_screen(Xen ptr, Xen val) { Bool b; - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "same_screen", "a boolean"); - b = (Bool)XEN_TO_C_BOOLEAN(val); - if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->same_screen = b; - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->same_screen = b; - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->same_screen = b; - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->same_screen = b; - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "same_screen", "a struct with a same_screen field"); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "same_screen", "a boolean"); + b = (Bool)Xen_boolean_to_C_bool(val); + if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->same_screen = b; + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->same_screen = b; + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->same_screen = b; + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->same_screen = b; + else XM_set_field_assert_type(0, ptr, 1, "same_screen", "a struct with a same_screen field"); return(val); } -static XEN gxm_keycode(XEN ptr) +static Xen gxm_keycode(Xen ptr) { - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_KeyCode((XEN_TO_C_XKeyEvent(ptr))->keycode)); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "keycode", "XKeyEvent"); - return(XEN_FALSE); + if (Xen_is_XKeyEvent(ptr)) return(C_to_Xen_KeyCode((Xen_to_C_XKeyEvent(ptr))->keycode)); + XM_field_assert_type(0, ptr, 1, "keycode", "XKeyEvent"); + return(Xen_false); } -static XEN gxm_set_keycode(XEN ptr, XEN val) +static Xen gxm_set_keycode(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_KeyCode_P(val), val, XEN_ARG_2, "keycode", "a KeyCode"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XKeyEvent_P(ptr), ptr, XEN_ARG_1, "keycode", "XKeyEvent"); - (XEN_TO_C_XKeyEvent(ptr))->keycode = XEN_TO_C_KeyCode(val); + XM_set_field_assert_type(Xen_is_KeyCode(val), val, 2, "keycode", "a KeyCode"); + XM_set_field_assert_type(Xen_is_XKeyEvent(ptr), ptr, 1, "keycode", "XKeyEvent"); + (Xen_to_C_XKeyEvent(ptr))->keycode = Xen_to_C_KeyCode(val); return(val); } -static XEN gxm_state(XEN ptr) +static Xen gxm_state(Xen ptr) { - if (XEN_XColormapEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XColormapEvent(ptr))->state))); - if (XEN_XPropertyEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XPropertyEvent(ptr))->state))); - if (XEN_XVisibilityEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XVisibilityEvent(ptr))->state))); - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XCrossingEvent(ptr))->state))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XMotionEvent(ptr))->state))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XButtonEvent(ptr))->state))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XKeyEvent(ptr))->state))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "state", "a struct with a state field"); - return(XEN_FALSE); + if (Xen_is_XColormapEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XColormapEvent(ptr))->state))); + if (Xen_is_XPropertyEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XPropertyEvent(ptr))->state))); + if (Xen_is_XVisibilityEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XVisibilityEvent(ptr))->state))); + if (Xen_is_XCrossingEvent(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XCrossingEvent(ptr))->state))); + if (Xen_is_XMotionEvent(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XMotionEvent(ptr))->state))); + if (Xen_is_XButtonEvent(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XButtonEvent(ptr))->state))); + if (Xen_is_XKeyEvent(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XKeyEvent(ptr))->state))); + XM_field_assert_type(0, ptr, 1, "state", "a struct with a state field"); + return(Xen_false); } -static XEN gxm_set_state(XEN ptr, XEN val) +static Xen gxm_set_state(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val) || XEN_ULONG_P(val), val, XEN_ARG_2, "state", "an integer"); - if (XEN_XColormapEvent_P(ptr)) (XEN_TO_C_XColormapEvent(ptr))->state = XEN_TO_C_INT(val); - else if (XEN_XPropertyEvent_P(ptr)) (XEN_TO_C_XPropertyEvent(ptr))->state = XEN_TO_C_INT(val); - else if (XEN_XVisibilityEvent_P(ptr)) (XEN_TO_C_XVisibilityEvent(ptr))->state = XEN_TO_C_INT(val); - else if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->state = XEN_TO_C_ULONG(val); - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->state = XEN_TO_C_ULONG(val); - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->state = XEN_TO_C_ULONG(val); - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->state = XEN_TO_C_ULONG(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "state", "a struct with a state field"); + XM_set_field_assert_type(Xen_is_integer(val) || Xen_is_ulong(val), val, 2, "state", "an integer"); + if (Xen_is_XColormapEvent(ptr)) (Xen_to_C_XColormapEvent(ptr))->state = Xen_integer_to_C_int(val); + else if (Xen_is_XPropertyEvent(ptr)) (Xen_to_C_XPropertyEvent(ptr))->state = Xen_integer_to_C_int(val); + else if (Xen_is_XVisibilityEvent(ptr)) (Xen_to_C_XVisibilityEvent(ptr))->state = Xen_integer_to_C_int(val); + else if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->state = Xen_ulong_to_C_ulong(val); + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->state = Xen_ulong_to_C_ulong(val); + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->state = Xen_ulong_to_C_ulong(val); + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->state = Xen_ulong_to_C_ulong(val); + else XM_set_field_assert_type(0, ptr, 1, "state", "a struct with a state field"); return(val); } -static XEN gxm_y_root(XEN ptr) +static Xen gxm_y_root(Xen ptr) { - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCrossingEvent(ptr))->y_root))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XMotionEvent(ptr))->y_root))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XButtonEvent(ptr))->y_root))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XKeyEvent(ptr))->y_root))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "y_root", "a struct with a y_root field"); - return(XEN_FALSE); + if (Xen_is_XCrossingEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCrossingEvent(ptr))->y_root))); + if (Xen_is_XMotionEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XMotionEvent(ptr))->y_root))); + if (Xen_is_XButtonEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XButtonEvent(ptr))->y_root))); + if (Xen_is_XKeyEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XKeyEvent(ptr))->y_root))); + XM_field_assert_type(0, ptr, 1, "y_root", "a struct with a y_root field"); + return(Xen_false); } -static XEN gxm_set_y_root(XEN ptr, XEN val) +static Xen gxm_set_y_root(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "y_root", "an integer"); - if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->y_root = XEN_TO_C_INT(val); - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->y_root = XEN_TO_C_INT(val); - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->y_root = XEN_TO_C_INT(val); - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->y_root = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "y_root", "a struct with a y_root field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "y_root", "an integer"); + if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->y_root = Xen_integer_to_C_int(val); + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->y_root = Xen_integer_to_C_int(val); + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->y_root = Xen_integer_to_C_int(val); + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->y_root = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "y_root", "a struct with a y_root field"); return(val); } -static XEN gxm_x_root(XEN ptr) +static Xen gxm_x_root(Xen ptr) { - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCrossingEvent(ptr))->x_root))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XMotionEvent(ptr))->x_root))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XButtonEvent(ptr))->x_root))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XKeyEvent(ptr))->x_root))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "x_root", "a struct with an x_root field"); - return(XEN_FALSE); + if (Xen_is_XCrossingEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCrossingEvent(ptr))->x_root))); + if (Xen_is_XMotionEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XMotionEvent(ptr))->x_root))); + if (Xen_is_XButtonEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XButtonEvent(ptr))->x_root))); + if (Xen_is_XKeyEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XKeyEvent(ptr))->x_root))); + XM_field_assert_type(0, ptr, 1, "x_root", "a struct with an x_root field"); + return(Xen_false); } -static XEN gxm_set_x_root(XEN ptr, XEN val) +static Xen gxm_set_x_root(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "x_root", "an integer"); - if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->x_root = XEN_TO_C_INT(val); - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->x_root = XEN_TO_C_INT(val); - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->x_root = XEN_TO_C_INT(val); - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->x_root = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "x_root", "a struct with a x_root field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "x_root", "an integer"); + if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->x_root = Xen_integer_to_C_int(val); + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->x_root = Xen_integer_to_C_int(val); + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->x_root = Xen_integer_to_C_int(val); + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->x_root = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "x_root", "a struct with a x_root field"); return(val); } -static XEN gxm_set_x(XEN ptr, XEN val) -{ - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "x", "an integer"); - if (XEN_XRectangle_P(ptr)) (XEN_TO_C_XRectangle(ptr))->x = (short)XEN_TO_C_INT(val); - else if (XEN_XPoint_P(ptr)) (XEN_TO_C_XPoint(ptr))->x = (short)XEN_TO_C_INT(val); - else if (XEN_XArc_P(ptr)) (XEN_TO_C_XArc(ptr))->x = (short)XEN_TO_C_INT(val); - else if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XGravityEvent_P(ptr)) (XEN_TO_C_XGravityEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XReparentEvent_P(ptr)) (XEN_TO_C_XReparentEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XCreateWindowEvent_P(ptr)) (XEN_TO_C_XCreateWindowEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XExposeEvent_P(ptr)) (XEN_TO_C_XExposeEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->x = XEN_TO_C_INT(val); - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->x = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "x", "a struct with an x field"); +static Xen gxm_set_x(Xen ptr, Xen val) +{ + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "x", "an integer"); + if (Xen_is_XRectangle(ptr)) (Xen_to_C_XRectangle(ptr))->x = (short)Xen_integer_to_C_int(val); + else if (Xen_is_XPoint(ptr)) (Xen_to_C_XPoint(ptr))->x = (short)Xen_integer_to_C_int(val); + else if (Xen_is_XArc(ptr)) (Xen_to_C_XArc(ptr))->x = (short)Xen_integer_to_C_int(val); + else if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XGravityEvent(ptr)) (Xen_to_C_XGravityEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XReparentEvent(ptr)) (Xen_to_C_XReparentEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XCreateWindowEvent(ptr)) (Xen_to_C_XCreateWindowEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XExposeEvent(ptr)) (Xen_to_C_XExposeEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->x = Xen_integer_to_C_int(val); + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->x = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "x", "a struct with an x field"); return(val); } -static XEN gxm_set_y(XEN ptr, XEN val) -{ - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "y", "an integer"); - if (XEN_XRectangle_P(ptr)) (XEN_TO_C_XRectangle(ptr))->y = (short)XEN_TO_C_INT(val); - else if (XEN_XPoint_P(ptr)) (XEN_TO_C_XPoint(ptr))->y = (short)XEN_TO_C_INT(val); - else if (XEN_XArc_P(ptr)) (XEN_TO_C_XArc(ptr))->y = (short)XEN_TO_C_INT(val); - else if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XGravityEvent_P(ptr)) (XEN_TO_C_XGravityEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XReparentEvent_P(ptr)) (XEN_TO_C_XReparentEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XCreateWindowEvent_P(ptr)) (XEN_TO_C_XCreateWindowEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XExposeEvent_P(ptr)) (XEN_TO_C_XExposeEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->y = XEN_TO_C_INT(val); - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->y = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "y", "a struct with a y field"); +static Xen gxm_set_y(Xen ptr, Xen val) +{ + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "y", "an integer"); + if (Xen_is_XRectangle(ptr)) (Xen_to_C_XRectangle(ptr))->y = (short)Xen_integer_to_C_int(val); + else if (Xen_is_XPoint(ptr)) (Xen_to_C_XPoint(ptr))->y = (short)Xen_integer_to_C_int(val); + else if (Xen_is_XArc(ptr)) (Xen_to_C_XArc(ptr))->y = (short)Xen_integer_to_C_int(val); + else if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XGravityEvent(ptr)) (Xen_to_C_XGravityEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XReparentEvent(ptr)) (Xen_to_C_XReparentEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XCreateWindowEvent(ptr)) (Xen_to_C_XCreateWindowEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XExposeEvent(ptr)) (Xen_to_C_XExposeEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->y = Xen_integer_to_C_int(val); + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->y = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "y", "a struct with a y field"); return(val); } -static XEN gxm_y(XEN ptr) -{ - if (XEN_XRectangle_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XRectangle(ptr))->y))); - if (XEN_XPoint_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XPoint(ptr))->y))); - if (XEN_XArc_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XArc(ptr))->y))); - if (XEN_XWindowChanges_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowChanges(ptr))->y))); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->y))); -#if HAVE_MOTIF - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->y))); - if (XEN_XmDragProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->y))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->y))); - if (XEN_XmDragMotionCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragMotionCallbackStruct(ptr))->y))); - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->y))); - if (XEN_XmTopLevelEnterCallbackStruct_P(ptr)) return(C_TO_XEN_Position((Position)((XEN_TO_C_XmTopLevelEnterCallbackStruct(ptr))->y))); -#endif - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureRequestEvent(ptr))->y))); - if (XEN_XGravityEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGravityEvent(ptr))->y))); - if (XEN_XConfigureEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureEvent(ptr))->y))); - if (XEN_XReparentEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XReparentEvent(ptr))->y))); - if (XEN_XCreateWindowEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCreateWindowEvent(ptr))->y))); - if (XEN_XGraphicsExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGraphicsExposeEvent(ptr))->y))); - if (XEN_XExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XExposeEvent(ptr))->y))); - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCrossingEvent(ptr))->y))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XMotionEvent(ptr))->y))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XButtonEvent(ptr))->y))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XKeyEvent(ptr))->y))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "y", "a struct with a y field"); - return(XEN_FALSE); -} - -static XEN gxm_x(XEN ptr) -{ - if (XEN_XRectangle_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XRectangle(ptr))->x))); - if (XEN_XPoint_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XPoint(ptr))->x))); - if (XEN_XArc_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XArc(ptr))->x))); - if (XEN_XWindowChanges_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowChanges(ptr))->x))); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->x))); -#if HAVE_MOTIF - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->x))); - if (XEN_XmDragProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->x))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->x))); - if (XEN_XmDragMotionCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragMotionCallbackStruct(ptr))->x))); - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->x))); - if (XEN_XmTopLevelEnterCallbackStruct_P(ptr)) return(C_TO_XEN_Position((Position)((XEN_TO_C_XmTopLevelEnterCallbackStruct(ptr))->x))); -#endif - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureRequestEvent(ptr))->x))); - if (XEN_XGravityEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGravityEvent(ptr))->x))); - if (XEN_XConfigureEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureEvent(ptr))->x))); - if (XEN_XReparentEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XReparentEvent(ptr))->x))); - if (XEN_XCreateWindowEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCreateWindowEvent(ptr))->x))); - if (XEN_XGraphicsExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGraphicsExposeEvent(ptr))->x))); - if (XEN_XExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XExposeEvent(ptr))->x))); - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCrossingEvent(ptr))->x))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XMotionEvent(ptr))->x))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XButtonEvent(ptr))->x))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XKeyEvent(ptr))->x))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "x", "a struct with an x field"); - return(XEN_FALSE); -} - -static XEN gxm_time(XEN ptr) -{ -#if HAVE_MOTIF - if (XEN_XmDestinationCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDestinationCallbackStruct(ptr))->time))); -#endif - if (XEN_XSelectionEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XSelectionEvent(ptr))->time))); - if (XEN_XSelectionRequestEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XSelectionRequestEvent(ptr))->time))); - if (XEN_XSelectionClearEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XSelectionClearEvent(ptr))->time))); - if (XEN_XPropertyEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XPropertyEvent(ptr))->time))); - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XCrossingEvent(ptr))->time))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XMotionEvent(ptr))->time))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XButtonEvent(ptr))->time))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XKeyEvent(ptr))->time))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "time", "a struct with a time field"); - return(XEN_FALSE); -} - -static XEN gxm_set_time(XEN ptr, XEN val) +static Xen gxm_y(Xen ptr) +{ + if (Xen_is_XRectangle(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XRectangle(ptr))->y))); + if (Xen_is_XPoint(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XPoint(ptr))->y))); + if (Xen_is_XArc(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XArc(ptr))->y))); + if (Xen_is_XWindowChanges(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowChanges(ptr))->y))); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->y))); + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropProcCallbackStruct(ptr))->y))); + if (Xen_is_XmDragProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragProcCallbackStruct(ptr))->y))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropStartCallbackStruct(ptr))->y))); + if (Xen_is_XmDragMotionCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragMotionCallbackStruct(ptr))->y))); + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->y))); + if (Xen_is_XmTopLevelEnterCallbackStruct(ptr)) return(C_to_Xen_Position((Position)((Xen_to_C_XmTopLevelEnterCallbackStruct(ptr))->y))); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureRequestEvent(ptr))->y))); + if (Xen_is_XGravityEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGravityEvent(ptr))->y))); + if (Xen_is_XConfigureEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureEvent(ptr))->y))); + if (Xen_is_XReparentEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XReparentEvent(ptr))->y))); + if (Xen_is_XCreateWindowEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCreateWindowEvent(ptr))->y))); + if (Xen_is_XGraphicsExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGraphicsExposeEvent(ptr))->y))); + if (Xen_is_XExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XExposeEvent(ptr))->y))); + if (Xen_is_XCrossingEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCrossingEvent(ptr))->y))); + if (Xen_is_XMotionEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XMotionEvent(ptr))->y))); + if (Xen_is_XButtonEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XButtonEvent(ptr))->y))); + if (Xen_is_XKeyEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XKeyEvent(ptr))->y))); + XM_field_assert_type(0, ptr, 1, "y", "a struct with a y field"); + return(Xen_false); +} + +static Xen gxm_x(Xen ptr) +{ + if (Xen_is_XRectangle(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XRectangle(ptr))->x))); + if (Xen_is_XPoint(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XPoint(ptr))->x))); + if (Xen_is_XArc(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XArc(ptr))->x))); + if (Xen_is_XWindowChanges(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowChanges(ptr))->x))); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->x))); + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropProcCallbackStruct(ptr))->x))); + if (Xen_is_XmDragProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragProcCallbackStruct(ptr))->x))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropStartCallbackStruct(ptr))->x))); + if (Xen_is_XmDragMotionCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragMotionCallbackStruct(ptr))->x))); + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->x))); + if (Xen_is_XmTopLevelEnterCallbackStruct(ptr)) return(C_to_Xen_Position((Position)((Xen_to_C_XmTopLevelEnterCallbackStruct(ptr))->x))); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureRequestEvent(ptr))->x))); + if (Xen_is_XGravityEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGravityEvent(ptr))->x))); + if (Xen_is_XConfigureEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureEvent(ptr))->x))); + if (Xen_is_XReparentEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XReparentEvent(ptr))->x))); + if (Xen_is_XCreateWindowEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCreateWindowEvent(ptr))->x))); + if (Xen_is_XGraphicsExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGraphicsExposeEvent(ptr))->x))); + if (Xen_is_XExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XExposeEvent(ptr))->x))); + if (Xen_is_XCrossingEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCrossingEvent(ptr))->x))); + if (Xen_is_XMotionEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XMotionEvent(ptr))->x))); + if (Xen_is_XButtonEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XButtonEvent(ptr))->x))); + if (Xen_is_XKeyEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XKeyEvent(ptr))->x))); + XM_field_assert_type(0, ptr, 1, "x", "a struct with an x field"); + return(Xen_false); +} + +static Xen gxm_time(Xen ptr) +{ + if (Xen_is_XmDestinationCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDestinationCallbackStruct(ptr))->time))); + if (Xen_is_XSelectionEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XSelectionEvent(ptr))->time))); + if (Xen_is_XSelectionRequestEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XSelectionRequestEvent(ptr))->time))); + if (Xen_is_XSelectionClearEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XSelectionClearEvent(ptr))->time))); + if (Xen_is_XPropertyEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XPropertyEvent(ptr))->time))); + if (Xen_is_XCrossingEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XCrossingEvent(ptr))->time))); + if (Xen_is_XMotionEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XMotionEvent(ptr))->time))); + if (Xen_is_XButtonEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XButtonEvent(ptr))->time))); + if (Xen_is_XKeyEvent(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XKeyEvent(ptr))->time))); + XM_field_assert_type(0, ptr, 1, "time", "a struct with a time field"); + return(Xen_false); +} + +static Xen gxm_set_time(Xen ptr, Xen val) { Time tm; - XM_SET_FIELD_ASSERT_TYPE(XEN_Time_P(val), val, XEN_ARG_2, "time", "Time"); - tm = XEN_TO_C_Time(val); - if (XEN_XSelectionEvent_P(ptr)) (XEN_TO_C_XSelectionEvent(ptr))->time = tm; - else if (XEN_XSelectionRequestEvent_P(ptr)) (XEN_TO_C_XSelectionRequestEvent(ptr))->time = tm; - else if (XEN_XSelectionClearEvent_P(ptr)) (XEN_TO_C_XSelectionClearEvent(ptr))->time = tm; - else if (XEN_XPropertyEvent_P(ptr)) (XEN_TO_C_XPropertyEvent(ptr))->time = tm; - else if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->time = tm; - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->time = tm; - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->time = tm; - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->time = tm; - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "time", "a struct with a time field"); + XM_set_field_assert_type(Xen_is_Time(val), val, 2, "time", "Time"); + tm = Xen_to_C_Time(val); + if (Xen_is_XSelectionEvent(ptr)) (Xen_to_C_XSelectionEvent(ptr))->time = tm; + else if (Xen_is_XSelectionRequestEvent(ptr)) (Xen_to_C_XSelectionRequestEvent(ptr))->time = tm; + else if (Xen_is_XSelectionClearEvent(ptr)) (Xen_to_C_XSelectionClearEvent(ptr))->time = tm; + else if (Xen_is_XPropertyEvent(ptr)) (Xen_to_C_XPropertyEvent(ptr))->time = tm; + else if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->time = tm; + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->time = tm; + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->time = tm; + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->time = tm; + else XM_set_field_assert_type(0, ptr, 1, "time", "a struct with a time field"); return(val); } -static XEN gxm_subwindow(XEN ptr) +static Xen gxm_subwindow(Xen ptr) { - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XCrossingEvent(ptr))->subwindow))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XMotionEvent(ptr))->subwindow))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XButtonEvent(ptr))->subwindow))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XKeyEvent(ptr))->subwindow))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "subwindow", "a struct with a subwindow field"); - return(XEN_FALSE); + if (Xen_is_XCrossingEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XCrossingEvent(ptr))->subwindow))); + if (Xen_is_XMotionEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XMotionEvent(ptr))->subwindow))); + if (Xen_is_XButtonEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XButtonEvent(ptr))->subwindow))); + if (Xen_is_XKeyEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XKeyEvent(ptr))->subwindow))); + XM_field_assert_type(0, ptr, 1, "subwindow", "a struct with a subwindow field"); + return(Xen_false); } -static XEN gxm_set_subwindow(XEN ptr, XEN val) +static Xen gxm_set_subwindow(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "subwindow", "a Window"); - if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->subwindow = XEN_TO_C_Window(val); - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->subwindow = XEN_TO_C_Window(val); - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->subwindow = XEN_TO_C_Window(val); - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->subwindow = XEN_TO_C_Window(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "subwindow", "a struct with a subwindow field"); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "subwindow", "a Window"); + if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->subwindow = Xen_to_C_Window(val); + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->subwindow = Xen_to_C_Window(val); + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->subwindow = Xen_to_C_Window(val); + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->subwindow = Xen_to_C_Window(val); + else XM_set_field_assert_type(0, ptr, 1, "subwindow", "a struct with a subwindow field"); return(val); } -static XEN gxm_window(XEN ptr) +static Xen gxm_window(Xen ptr) { -#if HAVE_MOTIF - if (XEN_XmDrawnButtonCallbackStruct_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XmDrawnButtonCallbackStruct(ptr))->window))); - if (XEN_XmDrawingAreaCallbackStruct_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XmDrawingAreaCallbackStruct(ptr))->window))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->window))); - if (XEN_XmTopLevelEnterCallbackStruct_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XmTopLevelEnterCallbackStruct(ptr))->window))); - if (XEN_XmTopLevelLeaveCallbackStruct_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XmTopLevelLeaveCallbackStruct(ptr))->window))); -#endif - if (XEN_XEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XAnyEvent(ptr))->window))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "window", "a struct with a window field"); - return(XEN_FALSE); + if (Xen_is_XmDrawnButtonCallbackStruct(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XmDrawnButtonCallbackStruct(ptr))->window))); + if (Xen_is_XmDrawingAreaCallbackStruct(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XmDrawingAreaCallbackStruct(ptr))->window))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XmDropStartCallbackStruct(ptr))->window))); + if (Xen_is_XmTopLevelEnterCallbackStruct(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XmTopLevelEnterCallbackStruct(ptr))->window))); + if (Xen_is_XmTopLevelLeaveCallbackStruct(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XmTopLevelLeaveCallbackStruct(ptr))->window))); + if (Xen_is_XEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XAnyEvent(ptr))->window))); + XM_field_assert_type(0, ptr, 1, "window", "a struct with a window field"); + return(Xen_false); } -static XEN gxm_set_window(XEN ptr, XEN val) +static Xen gxm_set_window(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "window", "a Window"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XEvent_P(ptr), ptr, XEN_ARG_1, "window", "XEvent"); - (XEN_TO_C_XAnyEvent(ptr))->window = XEN_TO_C_Window(val); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "window", "a Window"); + XM_set_field_assert_type(Xen_is_XEvent(ptr), ptr, 1, "window", "XEvent"); + (Xen_to_C_XAnyEvent(ptr))->window = Xen_to_C_Window(val); return(val); } -static XEN gxm_send_event(XEN ptr) +static Xen gxm_send_event(Xen ptr) { - if (XEN_XEvent_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XAnyEvent(ptr))->send_event))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "send_event", "XEvent"); - return(XEN_FALSE); + if (Xen_is_XEvent(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XAnyEvent(ptr))->send_event))); + XM_field_assert_type(0, ptr, 1, "send_event", "XEvent"); + return(Xen_false); } -static XEN gxm_set_send_event(XEN ptr, XEN val) +static Xen gxm_set_send_event(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "send_event", "a boolean"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XEvent_P(ptr), ptr, XEN_ARG_1, "send_event", "XEvent"); - (XEN_TO_C_XAnyEvent(ptr))->send_event = (Bool)XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "send_event", "a boolean"); + XM_set_field_assert_type(Xen_is_XEvent(ptr), ptr, 1, "send_event", "XEvent"); + (Xen_to_C_XAnyEvent(ptr))->send_event = (Bool)Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_serial(XEN ptr) +static Xen gxm_serial(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XEvent_P(ptr), ptr, XEN_ONLY_ARG, "serial", "XEvent"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XAnyEvent(ptr))->serial))); + XM_field_assert_type(Xen_is_XEvent(ptr), ptr, 1, "serial", "XEvent"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XAnyEvent(ptr))->serial))); } -static XEN gxm_set_serial(XEN ptr, XEN val) +static Xen gxm_set_serial(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XEvent_P(ptr), ptr, XEN_ARG_1, "serial", "XEvent"); - (XEN_TO_C_XAnyEvent(ptr))->serial = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_XEvent(ptr), ptr, 1, "serial", "XEvent"); + (Xen_to_C_XAnyEvent(ptr))->serial = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_type(XEN ptr) +static Xen gxm_type(Xen ptr) { -#if HAVE_MOTIF - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->type))); - if (XEN_XmConvertCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmConvertCallbackStruct(ptr))->type))); -#endif - if (XEN_XEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XAnyEvent(ptr))->type))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "type", "a struct with a type field"); - return(XEN_FALSE); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmSelectionCallbackStruct(ptr))->type))); + if (Xen_is_XmConvertCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmConvertCallbackStruct(ptr))->type))); + if (Xen_is_XEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XAnyEvent(ptr))->type))); + XM_field_assert_type(0, ptr, 1, "type", "a struct with a type field"); + return(Xen_false); } -static XEN gxm_set_type(XEN ptr, XEN val) +static Xen gxm_set_type(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XEvent_P(ptr), ptr, XEN_ARG_1, "type", "XEvent"); - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "type", "integer"); - (XEN_TO_C_XAnyEvent(ptr))->type = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_XEvent(ptr), ptr, 1, "type", "XEvent"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "type", "integer"); + (Xen_to_C_XAnyEvent(ptr))->type = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_root_input_mask(XEN ptr) +static Xen gxm_root_input_mask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "root_input_mask", "Screen"); - return(C_TO_XEN_INT((long)((XEN_TO_C_Screen(ptr))->root_input_mask))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "root_input_mask", "Screen"); + return(C_int_to_Xen_integer((long)((Xen_to_C_Screen(ptr))->root_input_mask))); } -static XEN gxm_save_unders(XEN ptr) +static Xen gxm_save_unders(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "save_unders", "Screen"); - return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_Screen(ptr))->save_unders))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "save_unders", "Screen"); + return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_Screen(ptr))->save_unders))); } -static XEN gxm_backing_store(XEN ptr) +static Xen gxm_backing_store(Xen ptr) { - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_BOOLEAN((int)((XEN_TO_C_XWindowAttributes(ptr))->backing_store))); - if (XEN_XSetWindowAttributes_P(ptr)) return(C_TO_XEN_BOOLEAN((int)((XEN_TO_C_XSetWindowAttributes(ptr))->backing_store))); - if (XEN_Screen_P(ptr)) return(C_TO_XEN_BOOLEAN((int)((XEN_TO_C_Screen(ptr))->backing_store))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "backing_store", "a struct with a backing_store field"); - return(XEN_FALSE); + if (Xen_is_XWindowAttributes(ptr)) return(C_bool_to_Xen_boolean((int)((Xen_to_C_XWindowAttributes(ptr))->backing_store))); + if (Xen_is_XSetWindowAttributes(ptr)) return(C_bool_to_Xen_boolean((int)((Xen_to_C_XSetWindowAttributes(ptr))->backing_store))); + if (Xen_is_Screen(ptr)) return(C_bool_to_Xen_boolean((int)((Xen_to_C_Screen(ptr))->backing_store))); + XM_field_assert_type(0, ptr, 1, "backing_store", "a struct with a backing_store field"); + return(Xen_false); } -static XEN gxm_set_backing_store(XEN ptr, XEN val) +static Xen gxm_set_backing_store(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XSetWindowAttributes_P(ptr) || XEN_XWindowAttributes_P(ptr) || XEN_Screen_P(ptr), - ptr, XEN_ARG_1, "backing_store", "a struct with a backing_store field"); - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "backing_store", "a Boolean"); - if (XEN_XWindowAttributes_P(ptr)) - (XEN_TO_C_XWindowAttributes(ptr))->backing_store = XEN_TO_C_BOOLEAN(val); - else if (XEN_XSetWindowAttributes_P(ptr)) - (XEN_TO_C_XSetWindowAttributes(ptr))->backing_store = XEN_TO_C_BOOLEAN(val); - else if (XEN_Screen_P(ptr)) - (XEN_TO_C_Screen(ptr))->backing_store = XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_XSetWindowAttributes(ptr) || Xen_is_XWindowAttributes(ptr) || Xen_is_Screen(ptr), + ptr, 1, "backing_store", "a struct with a backing_store field"); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "backing_store", "a Boolean"); + if (Xen_is_XWindowAttributes(ptr)) + (Xen_to_C_XWindowAttributes(ptr))->backing_store = Xen_boolean_to_C_bool(val); + else if (Xen_is_XSetWindowAttributes(ptr)) + (Xen_to_C_XSetWindowAttributes(ptr))->backing_store = Xen_boolean_to_C_bool(val); + else if (Xen_is_Screen(ptr)) + (Xen_to_C_Screen(ptr))->backing_store = Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_min_maps(XEN ptr) +static Xen gxm_min_maps(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "min_maps", "Screen"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->min_maps))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "min_maps", "Screen"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->min_maps))); } -static XEN gxm_max_maps(XEN ptr) +static Xen gxm_max_maps(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "max_maps", "Screen"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->max_maps))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "max_maps", "Screen"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->max_maps))); } -static XEN gxm_black_pixel(XEN ptr) +static Xen gxm_black_pixel(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "black_pixel", "Screen"); - return(C_TO_XEN_Pixel((XEN_TO_C_Screen(ptr))->black_pixel)); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "black_pixel", "Screen"); + return(C_to_Xen_Pixel((Xen_to_C_Screen(ptr))->black_pixel)); } -static XEN gxm_white_pixel(XEN ptr) +static Xen gxm_white_pixel(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "white_pixel", "Screen"); - return(C_TO_XEN_Pixel((XEN_TO_C_Screen(ptr))->white_pixel)); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "white_pixel", "Screen"); + return(C_to_Xen_Pixel((Xen_to_C_Screen(ptr))->white_pixel)); } -static XEN gxm_cmap(XEN ptr) +static Xen gxm_cmap(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "cmap", "Screen"); - return(C_TO_XEN_Colormap((Colormap)((XEN_TO_C_Screen(ptr))->cmap))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "cmap", "Screen"); + return(C_to_Xen_Colormap((Colormap)((Xen_to_C_Screen(ptr))->cmap))); } -static XEN gxm_default_gc(XEN ptr) +static Xen gxm_default_gc(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "default_gc", "Screen"); - return(C_TO_XEN_GC((GC)((XEN_TO_C_Screen(ptr))->default_gc))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "default_gc", "Screen"); + return(C_to_Xen_GC((GC)((Xen_to_C_Screen(ptr))->default_gc))); } -static XEN gxm_root_visual(XEN ptr) +static Xen gxm_root_visual(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "root_visual", "Screen"); - return(C_TO_XEN_Visual((Visual *)((XEN_TO_C_Screen(ptr))->root_visual))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "root_visual", "Screen"); + return(C_to_Xen_Visual((Visual *)((Xen_to_C_Screen(ptr))->root_visual))); } -static XEN gxm_root_depth(XEN ptr) +static Xen gxm_root_depth(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "root_depth", "Screen"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->root_depth))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "root_depth", "Screen"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->root_depth))); } -static XEN gxm_depths(XEN ptr) +static Xen gxm_depths(Xen ptr) { - Depth *dps; Screen *scr; - int i, len; - XEN lst = XEN_EMPTY_LIST; - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "depths", "Screen"); - scr = XEN_TO_C_Screen(ptr); + int len; + Xen lst = Xen_empty_list; + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "depths", "Screen"); + scr = Xen_to_C_Screen(ptr); len = scr->ndepths; if (len > 0) { + Depth *dps; + int i; dps = scr->depths; for (i = len - 1; i >= 0; i--) - lst = XEN_CONS(WRAP_FOR_XEN("Depth", &(dps[i])), lst); + lst = Xen_cons(wrap_for_Xen("Depth", &(dps[i])), lst); } return(lst); } -static XEN gxm_ndepths(XEN ptr) +static Xen gxm_ndepths(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "ndepths", "Screen"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->ndepths))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "ndepths", "Screen"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->ndepths))); } -static XEN gxm_mheight(XEN ptr) +static Xen gxm_mheight(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "mheight", "Screen"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->mheight))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "mheight", "Screen"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->mheight))); } -static XEN gxm_mwidth(XEN ptr) +static Xen gxm_mwidth(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "mwidth", "Screen"); - return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->mwidth))); + XM_field_assert_type(Xen_is_Screen(ptr), ptr, 1, "mwidth", "Screen"); + return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->mwidth))); } -static XEN gxm_set_height(XEN ptr, XEN val) +static Xen gxm_set_height(Xen ptr, Xen val) { - if (XEN_XRectangle_P(ptr)) (XEN_TO_C_XRectangle(ptr))->height = XEN_TO_C_INT(val); - else if (XEN_XArc_P(ptr)) (XEN_TO_C_XArc(ptr))->height = XEN_TO_C_INT(val); - else if (XEN_XpmImage_P(ptr)) (XEN_TO_C_XpmImage(ptr))->height = XEN_TO_C_ULONG(val); - else if (XEN_XpmAttributes_P(ptr)) (XEN_TO_C_XpmAttributes(ptr))->height = XEN_TO_C_ULONG(val); - else if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->height = XEN_TO_C_INT(val); - else if (XEN_XResizeRequestEvent_P(ptr)) (XEN_TO_C_XResizeRequestEvent(ptr))->height = XEN_TO_C_INT(val); - else if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->height = XEN_TO_C_INT(val); - else if (XEN_XCreateWindowEvent_P(ptr)) (XEN_TO_C_XCreateWindowEvent(ptr))->height = XEN_TO_C_INT(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->height = XEN_TO_C_INT(val); - else if (XEN_XExposeEvent_P(ptr)) (XEN_TO_C_XExposeEvent(ptr))->height = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "height", "a struct with a height field"); + if (Xen_is_XRectangle(ptr)) (Xen_to_C_XRectangle(ptr))->height = Xen_integer_to_C_int(val); + else if (Xen_is_XArc(ptr)) (Xen_to_C_XArc(ptr))->height = Xen_integer_to_C_int(val); + else if (Xen_is_XpmImage(ptr)) (Xen_to_C_XpmImage(ptr))->height = Xen_ulong_to_C_ulong(val); + else if (Xen_is_XpmAttributes(ptr)) (Xen_to_C_XpmAttributes(ptr))->height = Xen_ulong_to_C_ulong(val); + else if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->height = Xen_integer_to_C_int(val); + else if (Xen_is_XResizeRequestEvent(ptr)) (Xen_to_C_XResizeRequestEvent(ptr))->height = Xen_integer_to_C_int(val); + else if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->height = Xen_integer_to_C_int(val); + else if (Xen_is_XCreateWindowEvent(ptr)) (Xen_to_C_XCreateWindowEvent(ptr))->height = Xen_integer_to_C_int(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->height = Xen_integer_to_C_int(val); + else if (Xen_is_XExposeEvent(ptr)) (Xen_to_C_XExposeEvent(ptr))->height = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "height", "a struct with a height field"); return(val); } -static XEN gxm_set_width(XEN ptr, XEN val) +static Xen gxm_set_width(Xen ptr, Xen val) { - if (XEN_XRectangle_P(ptr)) (XEN_TO_C_XRectangle(ptr))->width = XEN_TO_C_INT(val); - else if (XEN_XArc_P(ptr)) (XEN_TO_C_XArc(ptr))->width = XEN_TO_C_INT(val); - else if (XEN_XpmImage_P(ptr)) (XEN_TO_C_XpmImage(ptr))->width = XEN_TO_C_ULONG(val); - else if (XEN_XpmAttributes_P(ptr)) (XEN_TO_C_XpmAttributes(ptr))->width = XEN_TO_C_ULONG(val); - else if (XEN_XConfigureRequestEvent_P(ptr)) (XEN_TO_C_XConfigureRequestEvent(ptr))->width = XEN_TO_C_INT(val); - else if (XEN_XResizeRequestEvent_P(ptr)) (XEN_TO_C_XResizeRequestEvent(ptr))->width = XEN_TO_C_INT(val); - else if (XEN_XConfigureEvent_P(ptr)) (XEN_TO_C_XConfigureEvent(ptr))->width = XEN_TO_C_INT(val); - else if (XEN_XCreateWindowEvent_P(ptr)) (XEN_TO_C_XCreateWindowEvent(ptr))->width = XEN_TO_C_INT(val); - else if (XEN_XGraphicsExposeEvent_P(ptr)) (XEN_TO_C_XGraphicsExposeEvent(ptr))->width = XEN_TO_C_INT(val); - else if (XEN_XExposeEvent_P(ptr)) (XEN_TO_C_XExposeEvent(ptr))->width = XEN_TO_C_INT(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "width", "a struct with a width field"); + if (Xen_is_XRectangle(ptr)) (Xen_to_C_XRectangle(ptr))->width = Xen_integer_to_C_int(val); + else if (Xen_is_XArc(ptr)) (Xen_to_C_XArc(ptr))->width = Xen_integer_to_C_int(val); + else if (Xen_is_XpmImage(ptr)) (Xen_to_C_XpmImage(ptr))->width = Xen_ulong_to_C_ulong(val); + else if (Xen_is_XpmAttributes(ptr)) (Xen_to_C_XpmAttributes(ptr))->width = Xen_ulong_to_C_ulong(val); + else if (Xen_is_XConfigureRequestEvent(ptr)) (Xen_to_C_XConfigureRequestEvent(ptr))->width = Xen_integer_to_C_int(val); + else if (Xen_is_XResizeRequestEvent(ptr)) (Xen_to_C_XResizeRequestEvent(ptr))->width = Xen_integer_to_C_int(val); + else if (Xen_is_XConfigureEvent(ptr)) (Xen_to_C_XConfigureEvent(ptr))->width = Xen_integer_to_C_int(val); + else if (Xen_is_XCreateWindowEvent(ptr)) (Xen_to_C_XCreateWindowEvent(ptr))->width = Xen_integer_to_C_int(val); + else if (Xen_is_XGraphicsExposeEvent(ptr)) (Xen_to_C_XGraphicsExposeEvent(ptr))->width = Xen_integer_to_C_int(val); + else if (Xen_is_XExposeEvent(ptr)) (Xen_to_C_XExposeEvent(ptr))->width = Xen_integer_to_C_int(val); + else XM_set_field_assert_type(0, ptr, 1, "width", "a struct with a width field"); return(val); } -static XEN gxm_height(XEN ptr) -{ - if (XEN_XRectangle_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XRectangle(ptr))->height))); - if (XEN_XArc_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XArc(ptr))->height))); - if (XEN_XWindowChanges_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowChanges(ptr))->height))); - if (XEN_XImage_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->height))); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->height))); - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureRequestEvent(ptr))->height))); - if (XEN_XResizeRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XResizeRequestEvent(ptr))->height))); - if (XEN_XConfigureEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureEvent(ptr))->height))); - if (XEN_XCreateWindowEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCreateWindowEvent(ptr))->height))); - if (XEN_XGraphicsExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGraphicsExposeEvent(ptr))->height))); - if (XEN_XExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XExposeEvent(ptr))->height))); - if (XEN_Screen_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->height))); - if (XEN_XpmImage_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmImage(ptr))->height))); - if (XEN_XpmAttributes_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->height))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "height", "a struct with a height field"); - return(XEN_FALSE); -} - -static XEN gxm_width(XEN ptr) -{ - if (XEN_XRectangle_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XRectangle(ptr))->width))); - if (XEN_XArc_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XArc(ptr))->width))); - if (XEN_XWindowChanges_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowChanges(ptr))->width))); - if (XEN_XImage_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XImage(ptr))->width))); - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XWindowAttributes(ptr))->width))); - if (XEN_XCharStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCharStruct(ptr))->width))); - if (XEN_XConfigureRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureRequestEvent(ptr))->width))); - if (XEN_XResizeRequestEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XResizeRequestEvent(ptr))->width))); - if (XEN_XConfigureEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XConfigureEvent(ptr))->width))); - if (XEN_XCreateWindowEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XCreateWindowEvent(ptr))->width))); - if (XEN_XGraphicsExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGraphicsExposeEvent(ptr))->width))); - if (XEN_XExposeEvent_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XExposeEvent(ptr))->width))); - if (XEN_Screen_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_Screen(ptr))->width))); - if (XEN_XpmImage_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmImage(ptr))->width))); - if (XEN_XpmAttributes_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XpmAttributes(ptr))->width))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "width", "a struct with a width field"); - return(XEN_FALSE); -} - -static XEN gxm_root(XEN ptr) -{ - if (XEN_XWindowAttributes_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XWindowAttributes(ptr))->root))); - if (XEN_XCrossingEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XCrossingEvent(ptr))->root))); - if (XEN_XMotionEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XMotionEvent(ptr))->root))); - if (XEN_XButtonEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XButtonEvent(ptr))->root))); - if (XEN_XKeyEvent_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_XKeyEvent(ptr))->root))); - if (XEN_Screen_P(ptr)) return(C_TO_XEN_Window((Window)((XEN_TO_C_Screen(ptr))->root))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "root", "a struct with a root field"); - return(XEN_FALSE); -} - -static XEN gxm_set_root(XEN ptr, XEN val) +static Xen gxm_height(Xen ptr) +{ + if (Xen_is_XRectangle(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XRectangle(ptr))->height))); + if (Xen_is_XArc(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XArc(ptr))->height))); + if (Xen_is_XWindowChanges(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowChanges(ptr))->height))); + if (Xen_is_XImage(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->height))); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->height))); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureRequestEvent(ptr))->height))); + if (Xen_is_XResizeRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XResizeRequestEvent(ptr))->height))); + if (Xen_is_XConfigureEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureEvent(ptr))->height))); + if (Xen_is_XCreateWindowEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCreateWindowEvent(ptr))->height))); + if (Xen_is_XGraphicsExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGraphicsExposeEvent(ptr))->height))); + if (Xen_is_XExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XExposeEvent(ptr))->height))); + if (Xen_is_Screen(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->height))); + if (Xen_is_XpmImage(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmImage(ptr))->height))); + if (Xen_is_XpmAttributes(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->height))); + XM_field_assert_type(0, ptr, 1, "height", "a struct with a height field"); + return(Xen_false); +} + +static Xen gxm_width(Xen ptr) +{ + if (Xen_is_XRectangle(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XRectangle(ptr))->width))); + if (Xen_is_XArc(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XArc(ptr))->width))); + if (Xen_is_XWindowChanges(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowChanges(ptr))->width))); + if (Xen_is_XImage(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XImage(ptr))->width))); + if (Xen_is_XWindowAttributes(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XWindowAttributes(ptr))->width))); + if (Xen_is_XCharStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCharStruct(ptr))->width))); + if (Xen_is_XConfigureRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureRequestEvent(ptr))->width))); + if (Xen_is_XResizeRequestEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XResizeRequestEvent(ptr))->width))); + if (Xen_is_XConfigureEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XConfigureEvent(ptr))->width))); + if (Xen_is_XCreateWindowEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XCreateWindowEvent(ptr))->width))); + if (Xen_is_XGraphicsExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGraphicsExposeEvent(ptr))->width))); + if (Xen_is_XExposeEvent(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XExposeEvent(ptr))->width))); + if (Xen_is_Screen(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_Screen(ptr))->width))); + if (Xen_is_XpmImage(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmImage(ptr))->width))); + if (Xen_is_XpmAttributes(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XpmAttributes(ptr))->width))); + XM_field_assert_type(0, ptr, 1, "width", "a struct with a width field"); + return(Xen_false); +} + +static Xen gxm_root(Xen ptr) +{ + if (Xen_is_XWindowAttributes(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XWindowAttributes(ptr))->root))); + if (Xen_is_XCrossingEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XCrossingEvent(ptr))->root))); + if (Xen_is_XMotionEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XMotionEvent(ptr))->root))); + if (Xen_is_XButtonEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XButtonEvent(ptr))->root))); + if (Xen_is_XKeyEvent(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_XKeyEvent(ptr))->root))); + if (Xen_is_Screen(ptr)) return(C_to_Xen_Window((Window)((Xen_to_C_Screen(ptr))->root))); + XM_field_assert_type(0, ptr, 1, "root", "a struct with a root field"); + return(Xen_false); +} + +static Xen gxm_set_root(Xen ptr, Xen val) { Window w; - XM_SET_FIELD_ASSERT_TYPE(XEN_Window_P(val), val, XEN_ARG_2, "root", "a Window"); - w = XEN_TO_C_Window(val); - if (XEN_XWindowAttributes_P(ptr)) (XEN_TO_C_XWindowAttributes(ptr))->root = w; - else if (XEN_XCrossingEvent_P(ptr)) (XEN_TO_C_XCrossingEvent(ptr))->root = w; - else if (XEN_XMotionEvent_P(ptr)) (XEN_TO_C_XMotionEvent(ptr))->root = w; - else if (XEN_XButtonEvent_P(ptr)) (XEN_TO_C_XButtonEvent(ptr))->root = w; - else if (XEN_XKeyEvent_P(ptr)) (XEN_TO_C_XKeyEvent(ptr))->root = w; - else if (XEN_Screen_P(ptr)) (XEN_TO_C_Screen(ptr))->root = w; - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "root", "a struct with a root field"); + XM_set_field_assert_type(Xen_is_Window(val), val, 2, "root", "a Window"); + w = Xen_to_C_Window(val); + if (Xen_is_XWindowAttributes(ptr)) (Xen_to_C_XWindowAttributes(ptr))->root = w; + else if (Xen_is_XCrossingEvent(ptr)) (Xen_to_C_XCrossingEvent(ptr))->root = w; + else if (Xen_is_XMotionEvent(ptr)) (Xen_to_C_XMotionEvent(ptr))->root = w; + else if (Xen_is_XButtonEvent(ptr)) (Xen_to_C_XButtonEvent(ptr))->root = w; + else if (Xen_is_XKeyEvent(ptr)) (Xen_to_C_XKeyEvent(ptr))->root = w; + else if (Xen_is_Screen(ptr)) (Xen_to_C_Screen(ptr))->root = w; + else XM_set_field_assert_type(0, ptr, 1, "root", "a struct with a root field"); return(val); } -static XEN gxm_display(XEN ptr) +static Xen gxm_display(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XEvent_P(ptr) || XEN_Screen_P(ptr), ptr, XEN_ONLY_ARG, "display", "XEvent or Screen"); - if (XEN_XEvent_P(ptr)) return(C_TO_XEN_Display((Display *)((XEN_TO_C_XAnyEvent(ptr))->display))); - return(C_TO_XEN_Display((Display *)((XEN_TO_C_Screen(ptr))->display))); + XM_field_assert_type(Xen_is_XEvent(ptr) || Xen_is_Screen(ptr), ptr, 1, "display", "XEvent or Screen"); + if (Xen_is_XEvent(ptr)) return(C_to_Xen_Display((Display *)((Xen_to_C_XAnyEvent(ptr))->display))); + return(C_to_Xen_Display((Display *)((Xen_to_C_Screen(ptr))->display))); } -static XEN gxm_set_display(XEN ptr, XEN val) +static Xen gxm_set_display(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Display_P(val), val, XEN_ARG_2, "display", "a Display*"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XEvent_P(ptr), ptr, XEN_ARG_1, "display", "XEvent"); - (XEN_TO_C_XAnyEvent(ptr))->display = XEN_TO_C_Display(val); + XM_set_field_assert_type(Xen_is_Display(val), val, 2, "display", "a Display*"); + XM_set_field_assert_type(Xen_is_XEvent(ptr), ptr, 1, "display", "XEvent"); + (Xen_to_C_XAnyEvent(ptr))->display = Xen_to_C_Display(val); return(val); } -static XEN gxm_function(XEN ptr) +static Xen gxm_function(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->function))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "function", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->function))); + XM_field_assert_type(0, ptr, 1, "function", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_function(XEN ptr, XEN val) +static Xen gxm_set_function(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "function", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "function", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->function = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "function", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "function", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->function = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_plane_mask(XEN ptr) +static Xen gxm_plane_mask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ONLY_ARG, "plane_mask", "XGCValues"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XGCValues(ptr))->plane_mask))); + XM_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "plane_mask", "XGCValues"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XGCValues(ptr))->plane_mask))); } -static XEN gxm_set_plane_mask(XEN ptr, XEN val) +static Xen gxm_set_plane_mask(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "plane_mask", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->plane_mask = XEN_TO_C_ULONG(val); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "plane_mask", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->plane_mask = Xen_ulong_to_C_ulong(val); return(val); } -static XEN gxm_foreground(XEN ptr) +static Xen gxm_foreground(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_Pixel((Pixel)((XEN_TO_C_XGCValues(ptr))->foreground))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "foreground", "a struct with a foreground field"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_to_Xen_Pixel((Pixel)((Xen_to_C_XGCValues(ptr))->foreground))); + XM_field_assert_type(0, ptr, 1, "foreground", "a struct with a foreground field"); + return(Xen_false); } -static XEN gxm_set_foreground(XEN ptr, XEN val) +static Xen gxm_set_foreground(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixel_P(val), val, XEN_ARG_2, "foreground", "a Pixel"); - XM_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "foreground", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->foreground = XEN_TO_C_Pixel(val); + XM_set_field_assert_type(Xen_is_Pixel(val), val, 2, "foreground", "a Pixel"); + XM_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "foreground", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->foreground = Xen_to_C_Pixel(val); return(val); } -static XEN gxm_background(XEN ptr) +static Xen gxm_background(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_Pixel((Pixel)((XEN_TO_C_XGCValues(ptr))->background))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "background", "a struct with a background field"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_to_Xen_Pixel((Pixel)((Xen_to_C_XGCValues(ptr))->background))); + XM_field_assert_type(0, ptr, 1, "background", "a struct with a background field"); + return(Xen_false); } -static XEN gxm_set_background(XEN ptr, XEN val) +static Xen gxm_set_background(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixel_P(val), val, XEN_ARG_2, "background", "a Pixel"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "background", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->background = XEN_TO_C_Pixel(val); + XM_set_field_assert_type(Xen_is_Pixel(val), val, 2, "background", "a Pixel"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "background", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->background = Xen_to_C_Pixel(val); return(val); } -static XEN gxm_line_width(XEN ptr) +static Xen gxm_line_width(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->line_width))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "line_width", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->line_width))); + XM_field_assert_type(0, ptr, 1, "line_width", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_line_width(XEN ptr, XEN val) +static Xen gxm_set_line_width(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "line_width", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "line_width", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->line_width = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "line_width", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "line_width", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->line_width = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_line_style(XEN ptr) +static Xen gxm_line_style(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->line_style))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "line_style", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->line_style))); + XM_field_assert_type(0, ptr, 1, "line_style", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_line_style(XEN ptr, XEN val) +static Xen gxm_set_line_style(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "line_style", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "line_style", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->line_style = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "line_style", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "line_style", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->line_style = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_cap_style(XEN ptr) +static Xen gxm_cap_style(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->cap_style))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "cap_style", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->cap_style))); + XM_field_assert_type(0, ptr, 1, "cap_style", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_cap_style(XEN ptr, XEN val) +static Xen gxm_set_cap_style(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "cap_style", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "cap_style", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->cap_style = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "cap_style", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "cap_style", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->cap_style = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_join_style(XEN ptr) +static Xen gxm_join_style(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->join_style))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "join_style", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->join_style))); + XM_field_assert_type(0, ptr, 1, "join_style", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_join_style(XEN ptr, XEN val) +static Xen gxm_set_join_style(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "join_style", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "join_style", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->join_style = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "join_style", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "join_style", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->join_style = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_fill_style(XEN ptr) +static Xen gxm_fill_style(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ONLY_ARG, "fill_style", "XGCValues"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->fill_style))); + XM_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "fill_style", "XGCValues"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->fill_style))); } -static XEN gxm_set_fill_style(XEN ptr, XEN val) +static Xen gxm_set_fill_style(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "fill_style", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "fill_style", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->fill_style = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "fill_style", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "fill_style", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->fill_style = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_fill_rule(XEN ptr) +static Xen gxm_fill_rule(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ONLY_ARG, "fill_rule", "XGCValues"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->fill_rule))); + XM_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "fill_rule", "XGCValues"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->fill_rule))); } -static XEN gxm_set_fill_rule(XEN ptr, XEN val) +static Xen gxm_set_fill_rule(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "fill_rule", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "fill_rule", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->fill_rule = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "fill_rule", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "fill_rule", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->fill_rule = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_arc_mode(XEN ptr) +static Xen gxm_arc_mode(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ONLY_ARG, "arc_mode", "XGCValues"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->arc_mode))); + XM_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "arc_mode", "XGCValues"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->arc_mode))); } -static XEN gxm_set_arc_mode(XEN ptr, XEN val) +static Xen gxm_set_arc_mode(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "arc_mode", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "arc_mode", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->arc_mode = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "arc_mode", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "arc_mode", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->arc_mode = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_tile(XEN ptr) +static Xen gxm_tile(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_Pixmap((Pixmap)((XEN_TO_C_XGCValues(ptr))->tile))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "tile", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_to_Xen_Pixmap((Pixmap)((Xen_to_C_XGCValues(ptr))->tile))); + XM_field_assert_type(0, ptr, 1, "tile", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_tile(XEN ptr, XEN val) +static Xen gxm_set_tile(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixmap_P(val), val, XEN_ARG_2, "tile", "a Pixmap"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "tile", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->tile = XEN_TO_C_Pixmap(val); + XM_set_field_assert_type(Xen_is_Pixmap(val), val, 2, "tile", "a Pixmap"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "tile", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->tile = Xen_to_C_Pixmap(val); return(val); } -static XEN gxm_stipple(XEN ptr) +static Xen gxm_stipple(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_Pixmap((Pixmap)((XEN_TO_C_XGCValues(ptr))->stipple))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "stipple", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_to_Xen_Pixmap((Pixmap)((Xen_to_C_XGCValues(ptr))->stipple))); + XM_field_assert_type(0, ptr, 1, "stipple", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_stipple(XEN ptr, XEN val) +static Xen gxm_set_stipple(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixmap_P(val), val, XEN_ARG_2, "stipple", "a Pixmap"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "stipple", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->stipple = XEN_TO_C_Pixmap(val); + XM_set_field_assert_type(Xen_is_Pixmap(val), val, 2, "stipple", "a Pixmap"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "stipple", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->stipple = Xen_to_C_Pixmap(val); return(val); } -static XEN gxm_ts_x_origin(XEN ptr) +static Xen gxm_ts_x_origin(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->ts_x_origin))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "ts_x_origin", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->ts_x_origin))); + XM_field_assert_type(0, ptr, 1, "ts_x_origin", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_ts_x_origin(XEN ptr, XEN val) +static Xen gxm_set_ts_x_origin(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "ts_x_origin", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "ts_x_origin", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->ts_x_origin = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "ts_x_origin", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "ts_x_origin", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->ts_x_origin = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_ts_y_origin(XEN ptr) +static Xen gxm_ts_y_origin(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->ts_y_origin))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "ts_y_origin", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->ts_y_origin))); + XM_field_assert_type(0, ptr, 1, "ts_y_origin", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_ts_y_origin(XEN ptr, XEN val) +static Xen gxm_set_ts_y_origin(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "ts_y_origin", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "ts_y_origin", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->ts_y_origin = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "ts_y_origin", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "ts_y_origin", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->ts_y_origin = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_font(XEN ptr) +static Xen gxm_font(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_Font((Font)((XEN_TO_C_XGCValues(ptr))->font))); - if (XEN_XTextItem_P(ptr)) return(C_TO_XEN_Font((Font)((XEN_TO_C_XTextItem(ptr))->font))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "font", "a struct with a font field"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_to_Xen_Font((Font)((Xen_to_C_XGCValues(ptr))->font))); + if (Xen_is_XTextItem(ptr)) return(C_to_Xen_Font((Font)((Xen_to_C_XTextItem(ptr))->font))); + XM_field_assert_type(0, ptr, 1, "font", "a struct with a font field"); + return(Xen_false); } -static XEN gxm_set_font(XEN ptr, XEN val) +static Xen gxm_set_font(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Font_P(val), val, XEN_ARG_2, "font", "a font"); - if (XEN_XGCValues_P(ptr)) (XEN_TO_C_XGCValues(ptr))->font = XEN_TO_C_Font(val); - else if (XEN_XTextItem_P(ptr)) (XEN_TO_C_XTextItem(ptr))->font = XEN_TO_C_Font(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "font", "a struct with a font field"); + XM_set_field_assert_type(Xen_is_Font(val), val, 2, "font", "a font"); + if (Xen_is_XGCValues(ptr)) (Xen_to_C_XGCValues(ptr))->font = Xen_to_C_Font(val); + else if (Xen_is_XTextItem(ptr)) (Xen_to_C_XTextItem(ptr))->font = Xen_to_C_Font(val); + else XM_set_field_assert_type(0, ptr, 1, "font", "a struct with a font field"); return(val); } -static XEN gxm_subwindow_mode(XEN ptr) +static Xen gxm_subwindow_mode(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->subwindow_mode))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "subwindow_mode", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->subwindow_mode))); + XM_field_assert_type(0, ptr, 1, "subwindow_mode", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_subwindow_mode(XEN ptr, XEN val) +static Xen gxm_set_subwindow_mode(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "subwindow_mode", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "subwindow_mode", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->subwindow_mode = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "subwindow_mode", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "subwindow_mode", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->subwindow_mode = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_graphics_exposures(XEN ptr) +static Xen gxm_graphics_exposures(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_BOOLEAN((Bool)((XEN_TO_C_XGCValues(ptr))->graphics_exposures))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "graphics_exposures", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_bool_to_Xen_boolean((Bool)((Xen_to_C_XGCValues(ptr))->graphics_exposures))); + XM_field_assert_type(0, ptr, 1, "graphics_exposures", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_graphics_exposures(XEN ptr, XEN val) +static Xen gxm_set_graphics_exposures(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "graphics_exposures", "a boolean"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "graphics_exposure", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->graphics_exposures = XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "graphics_exposures", "a boolean"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "graphics_exposure", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->graphics_exposures = Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_clip_x_origin(XEN ptr) +static Xen gxm_clip_x_origin(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->clip_x_origin))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "clip_x_origin", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->clip_x_origin))); + XM_field_assert_type(0, ptr, 1, "clip_x_origin", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_clip_x_origin(XEN ptr, XEN val) +static Xen gxm_set_clip_x_origin(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "clip_x_origin", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "clip_x_origin", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->clip_x_origin = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "clip_x_origin", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "clip_x_origin", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->clip_x_origin = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_clip_y_origin(XEN ptr) +static Xen gxm_clip_y_origin(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->clip_y_origin))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "clip_y_origin", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->clip_y_origin))); + XM_field_assert_type(0, ptr, 1, "clip_y_origin", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_clip_y_origin(XEN ptr, XEN val) +static Xen gxm_set_clip_y_origin(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "clip_y_origin", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "clip_y_origin", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->clip_y_origin = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "clip_y_origin", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "clip_y_origin", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->clip_y_origin = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_clip_mask(XEN ptr) +static Xen gxm_clip_mask(Xen ptr) { - if (XEN_XGCValues_P(ptr)) return(C_TO_XEN_Pixmap((Pixmap)((XEN_TO_C_XGCValues(ptr))->clip_mask))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "clip_mask", "XGCValues"); - return(XEN_FALSE); + if (Xen_is_XGCValues(ptr)) return(C_to_Xen_Pixmap((Pixmap)((Xen_to_C_XGCValues(ptr))->clip_mask))); + XM_field_assert_type(0, ptr, 1, "clip_mask", "XGCValues"); + return(Xen_false); } -static XEN gxm_set_clip_mask(XEN ptr, XEN val) +static Xen gxm_set_clip_mask(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Pixmap_P(val), val, XEN_ARG_2, "clip_mask", "a Pixmap"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "clip_mask", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->clip_mask = XEN_TO_C_Pixmap(val); + XM_set_field_assert_type(Xen_is_Pixmap(val), val, 2, "clip_mask", "a Pixmap"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "clip_mask", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->clip_mask = Xen_to_C_Pixmap(val); return(val); } -static XEN gxm_dash_offset(XEN ptr) +static Xen gxm_dash_offset(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ONLY_ARG, "dash_offset", "XGCValues"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XGCValues(ptr))->dash_offset))); + XM_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "dash_offset", "XGCValues"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XGCValues(ptr))->dash_offset))); } -static XEN gxm_set_dash_offset(XEN ptr, XEN val) +static Xen gxm_set_dash_offset(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "dash_offset", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "dash_offset", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->dash_offset = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "dash_offset", "an integer"); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "dash_offset", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->dash_offset = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_dashes(XEN ptr) +static Xen gxm_dashes(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ONLY_ARG, "dashes", "XGCValues"); - return(C_TO_XEN_char((char)((XEN_TO_C_XGCValues(ptr))->dashes))); + XM_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "dashes", "XGCValues"); + return(C_int_to_Xen_integer((char)((Xen_to_C_XGCValues(ptr))->dashes))); } -static XEN gxm_set_dashes(XEN ptr, XEN val) +static Xen gxm_set_dashes(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XGCValues_P(ptr), ptr, XEN_ARG_1, "dashes", "XGCValues"); - (XEN_TO_C_XGCValues(ptr))->dashes = XEN_TO_C_char(val); + XM_set_field_assert_type(Xen_is_XGCValues(ptr), ptr, 1, "dashes", "XGCValues"); + (Xen_to_C_XGCValues(ptr))->dashes = (char)Xen_integer_to_C_int(val); return(val); } -static XEN gxm_killid(XEN ptr) +static Xen gxm_killid(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "killid", "XStandardColormap"); - return(C_TO_XEN_INT((long)((XEN_TO_C_XStandardColormap(ptr))->killid))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "killid", "XStandardColormap"); + return(C_int_to_Xen_integer((long)((Xen_to_C_XStandardColormap(ptr))->killid))); } -static XEN gxm_base_pixel(XEN ptr) +static Xen gxm_base_pixel(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "base_pixel", "XStandardColormap"); - return(C_TO_XEN_Pixel((unsigned long)((XEN_TO_C_XStandardColormap(ptr))->base_pixel))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "base_pixel", "XStandardColormap"); + return(C_to_Xen_Pixel((unsigned long)((Xen_to_C_XStandardColormap(ptr))->base_pixel))); } -static XEN gxm_blue_mult(XEN ptr) +static Xen gxm_blue_mult(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "blue_mult", "XStandardColormap"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XStandardColormap(ptr))->blue_mult))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "blue_mult", "XStandardColormap"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XStandardColormap(ptr))->blue_mult))); } -static XEN gxm_blue_max(XEN ptr) +static Xen gxm_blue_max(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "blue_max", "XStandardColormap"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XStandardColormap(ptr))->blue_max))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "blue_max", "XStandardColormap"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XStandardColormap(ptr))->blue_max))); } -static XEN gxm_green_mult(XEN ptr) +static Xen gxm_green_mult(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "green_mult", "XStandardColormap"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XStandardColormap(ptr))->green_mult))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "green_mult", "XStandardColormap"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XStandardColormap(ptr))->green_mult))); } -static XEN gxm_green_max(XEN ptr) +static Xen gxm_green_max(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "green_max", "XStandardColormap"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XStandardColormap(ptr))->green_max))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "green_max", "XStandardColormap"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XStandardColormap(ptr))->green_max))); } -static XEN gxm_red_mult(XEN ptr) +static Xen gxm_red_mult(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "red_mult", "XStandardColormap"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XStandardColormap(ptr))->red_mult))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "red_mult", "XStandardColormap"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XStandardColormap(ptr))->red_mult))); } -static XEN gxm_red_max(XEN ptr) +static Xen gxm_red_max(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XStandardColormap_P(ptr), ptr, XEN_ONLY_ARG, "red_max", "XStandardColormap"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XStandardColormap(ptr))->red_max))); + XM_field_assert_type(Xen_is_XStandardColormap(ptr), ptr, 1, "red_max", "XStandardColormap"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XStandardColormap(ptr))->red_max))); } -static XEN gxm_XTextItem(XEN chars, XEN nchars, XEN delta, XEN font) +static Xen gxm_XTextItem(Xen chars, Xen nchars, Xen delta, Xen font) { XTextItem *r; #define H_XTextItem "(XTextItem chars len delta font): new XTextItem struct" - XEN_ASSERT_TYPE(XEN_STRING_P(chars), chars, 1, "XTextItem", "char*"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(nchars), nchars, 2, "XTextItem", "int"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(delta), delta, 3, "XTextItem", "int"); - XEN_ASSERT_TYPE(XEN_Font_P(font), font, 4, "XTextItem", "Font"); + Xen_check_type(Xen_is_string(chars), chars, 1, "XTextItem", "char*"); + Xen_check_type(Xen_is_integer(nchars), nchars, 2, "XTextItem", "int"); + Xen_check_type(Xen_is_integer(delta), delta, 3, "XTextItem", "int"); + Xen_check_type(Xen_is_Font(font), font, 4, "XTextItem", "Font"); r = (XTextItem *)calloc(1, sizeof(XTextItem)); - r->chars = (char *)XEN_TO_C_STRING(chars); - r->nchars = XEN_TO_C_INT(nchars); - r->delta = XEN_TO_C_INT(delta); - r->font = XEN_TO_C_Font(font); - return(WRAP_FOR_XEN_OBJ("XTextItem", (XTextItem *)r)); + r->chars = (char *)Xen_string_to_C_string(chars); + r->nchars = Xen_integer_to_C_int(nchars); + r->delta = Xen_integer_to_C_int(delta); + r->font = Xen_to_C_Font(font); + return(wrap_for_Xen_obj("XTextItem", (XTextItem *)r)); } -static XEN gxm_chars(XEN ptr) +static Xen gxm_chars(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XTextItem_P(ptr), ptr, XEN_ONLY_ARG, "chars", "XTextItem"); - return(C_TO_XEN_STRING((char *)((XEN_TO_C_XTextItem(ptr))->chars))); + XM_field_assert_type(Xen_is_XTextItem(ptr), ptr, 1, "chars", "XTextItem"); + return(C_string_to_Xen_string((char *)((Xen_to_C_XTextItem(ptr))->chars))); } -static XEN gxm_set_chars(XEN ptr, XEN val) +static Xen gxm_set_chars(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_STRING_P(val), val, XEN_ARG_2, "chars", "a string"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XTextItem_P(ptr), ptr, XEN_ARG_1, "chars", "XTextItem"); - (XEN_TO_C_XTextItem(ptr))->chars = xen_strdup(XEN_TO_C_STRING(val)); + XM_set_field_assert_type(Xen_is_string(val), val, 2, "chars", "a string"); + XM_set_field_assert_type(Xen_is_XTextItem(ptr), ptr, 1, "chars", "XTextItem"); + (Xen_to_C_XTextItem(ptr))->chars = xen_strdup(Xen_string_to_C_string(val)); return(val); } -static XEN gxm_nchars(XEN ptr) +static Xen gxm_nchars(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XTextItem_P(ptr), ptr, XEN_ONLY_ARG, "nchars", "XTextItem"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XTextItem(ptr))->nchars))); + XM_field_assert_type(Xen_is_XTextItem(ptr), ptr, 1, "nchars", "XTextItem"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XTextItem(ptr))->nchars))); } -static XEN gxm_set_nchars(XEN ptr, XEN val) +static Xen gxm_set_nchars(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "nchars", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XTextItem_P(ptr), ptr, XEN_ARG_1, "nchars", "XTextItem"); - (XEN_TO_C_XTextItem(ptr))->nchars = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "nchars", "an integer"); + XM_set_field_assert_type(Xen_is_XTextItem(ptr), ptr, 1, "nchars", "XTextItem"); + (Xen_to_C_XTextItem(ptr))->nchars = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_delta(XEN ptr) +static Xen gxm_delta(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XTextItem_P(ptr), ptr, XEN_ONLY_ARG, "delta", "XTextItem"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XTextItem(ptr))->delta))); + XM_field_assert_type(Xen_is_XTextItem(ptr), ptr, 1, "delta", "XTextItem"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XTextItem(ptr))->delta))); } -static XEN gxm_set_delta(XEN ptr, XEN val) +static Xen gxm_set_delta(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "delta", "an integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XTextItem_P(ptr), ptr, XEN_ARG_1, "delta", "XTextItem"); - (XEN_TO_C_XTextItem(ptr))->delta = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "delta", "an integer"); + XM_set_field_assert_type(Xen_is_XTextItem(ptr), ptr, 1, "delta", "XTextItem"); + (Xen_to_C_XTextItem(ptr))->delta = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_data(XEN ptr) +static Xen gxm_data(Xen ptr) { - if (XEN_XImage_P(ptr)) return(C_TO_XEN_STRING((char *)((XEN_TO_C_XImage(ptr))->data))); - if (XEN_XClientMessageEvent_P(ptr)) return(C_TO_XEN_STRING((char *)((XEN_TO_C_XClientMessageEvent(ptr))->data.b))); -#if HAVE_MOTIF - if (XEN_XmRowColumnCallbackStruct_P(ptr)) return(C_TO_XEN_STRING((char *)((XEN_TO_C_XmRowColumnCallbackStruct(ptr))->data))); -#endif - if (XEN_XpmImage_P(ptr)) return(XEN_WRAP_C_POINTER((XEN_TO_C_XpmImage(ptr))->data)); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "data", "XpmImage"); - return(XEN_FALSE); + if (Xen_is_XImage(ptr)) return(C_string_to_Xen_string((char *)((Xen_to_C_XImage(ptr))->data))); + if (Xen_is_XClientMessageEvent(ptr)) return(C_string_to_Xen_string((char *)((Xen_to_C_XClientMessageEvent(ptr))->data.b))); + if (Xen_is_XmRowColumnCallbackStruct(ptr)) return(C_string_to_Xen_string((char *)((Xen_to_C_XmRowColumnCallbackStruct(ptr))->data))); + if (Xen_is_XpmImage(ptr)) return(Xen_wrap_C_pointer((Xen_to_C_XpmImage(ptr))->data)); + XM_field_assert_type(0, ptr, 1, "data", "XpmImage"); + return(Xen_false); } -static XEN gxm_set_data(XEN ptr, XEN val) +static Xen gxm_set_data(Xen ptr, Xen val) { - int i, len = 0; char *str; - XM_SET_FIELD_ASSERT_TYPE(XEN_STRING_P(val) || XEN_LIST_P(val), val, XEN_ARG_2, "data", "a string or a list of longs"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XClientMessageEvent_P(ptr), ptr, XEN_ARG_1, "data", "XClientMessageEvent"); - if (XEN_STRING_P(val)) + XM_set_field_assert_type(Xen_is_string(val) || Xen_is_list(val), val, 2, "data", "a string or a list of longs"); + XM_set_field_assert_type(Xen_is_XClientMessageEvent(ptr), ptr, 1, "data", "XClientMessageEvent"); + if (Xen_is_string(val)) { - str = (char *)XEN_TO_C_STRING(val); + int i, len = 0; + str = (char *)Xen_string_to_C_string(val); if (str) len = strlen(str); if (len > 19) len = 19; for (i = 0; i < len; i++) - (XEN_TO_C_XClientMessageEvent(ptr))->data.b[i] = str[i]; + (Xen_to_C_XClientMessageEvent(ptr))->data.b[i] = str[i]; } else { int i, len; - len = XEN_LIST_LENGTH(val); + len = Xen_list_length(val); if (len > 5) len = 5; /* only room here for 5 ints */ for (i = 0; i < len; i++) - (XEN_TO_C_XClientMessageEvent(ptr))->data.l[i] = XEN_TO_C_INT(XEN_LIST_REF(val, i)); + (Xen_to_C_XClientMessageEvent(ptr))->data.l[i] = Xen_integer_to_C_int(Xen_list_ref(val, i)); } return(val); } @@ -19711,5493 +19436,3684 @@ static XEN gxm_set_data(XEN ptr, XEN val) /* -------------------------------------------------------------------------------- */ -#if HAVE_MOTIF -static XEN gxm_text(XEN ptr) + +static Xen gxm_text(Xen ptr) { /* DIFF: TextVerifyCallbackStruct text field returns list (string format) */ XmTextBlock tb; - if (XEN_XmTextVerifyCallbackStruct_P(ptr)) + if (Xen_is_XmTextVerifyCallbackStruct(ptr)) { - tb = (XmTextBlock)(XEN_TO_C_XmTextVerifyCallbackStruct(ptr))->text; + tb = (XmTextBlock)(Xen_to_C_XmTextVerifyCallbackStruct(ptr))->text; if ((tb) && (tb->length > 0)) - return(XEN_LIST_2(C_TO_XEN_STRING(tb->ptr), - C_TO_XEN_ULONG(tb->format))); - return(XEN_FALSE); + return(Xen_list_2(C_string_to_Xen_string(tb->ptr), + C_ulong_to_Xen_ulong(tb->format))); + return(Xen_false); } -#if HAVE_XmCreateDataField - else if (XEN_XmDataFieldCallbackStruct_P(ptr)) return(C_TO_XEN_STRING((XEN_TO_C_XmDataFieldCallbackStruct(ptr))->text)); -#endif - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "text", "an XmTextVerifyCallbackStruct"); - return(XEN_FALSE); + XM_field_assert_type(0, ptr, 1, "text", "an XmTextVerifyCallbackStruct"); + return(Xen_false); } -#if HAVE_XmCreateDataField -static XEN gxm_w(XEN ptr) +static Xen gxm_endPos(Xen ptr) { - if (XEN_XmDataFieldCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmDataFieldCallbackStruct(ptr))->w))); - return(XEN_FALSE); + XM_field_assert_type(Xen_is_XmTextVerifyCallbackStruct(ptr), ptr, 1, "endPos", "XmTextVerifyCallbackStruct"); + return(C_int_to_Xen_integer((long)((Xen_to_C_XmTextVerifyCallbackStruct(ptr))->endPos))); } -static XEN gxm_accept(XEN ptr) -{ - if (XEN_XmDataFieldCallbackStruct_P(ptr)) return(C_TO_XEN_BOOLEAN((XEN_TO_C_XmDataFieldCallbackStruct(ptr))->accept)); - return(XEN_FALSE); -} -#endif -#if HAVE_XmCreateTabStack -static XEN gxm_selected_child(XEN ptr) -{ - if (XEN_XmTabStackCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((XEN_TO_C_XmTabStackCallbackStruct(ptr))->selected_child)); - return(XEN_FALSE); -} -#endif -static XEN gxm_endPos(XEN ptr) +static Xen gxm_startPos(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTextVerifyCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "endPos", "XmTextVerifyCallbackStruct"); - return(C_TO_XEN_INT((long)((XEN_TO_C_XmTextVerifyCallbackStruct(ptr))->endPos))); + XM_field_assert_type(Xen_is_XmTextVerifyCallbackStruct(ptr), ptr, 1, "startPos", "XmTextVerifyCallbackStruct"); + return(C_int_to_Xen_integer((long)((Xen_to_C_XmTextVerifyCallbackStruct(ptr))->startPos))); } -static XEN gxm_startPos(XEN ptr) +static Xen gxm_newInsert(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTextVerifyCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "startPos", "XmTextVerifyCallbackStruct"); - return(C_TO_XEN_INT((long)((XEN_TO_C_XmTextVerifyCallbackStruct(ptr))->startPos))); + XM_field_assert_type(Xen_is_XmTextVerifyCallbackStruct(ptr), ptr, 1, "newInsert", "XmTextVerifyCallbackStruct"); + return(C_int_to_Xen_integer((long)((Xen_to_C_XmTextVerifyCallbackStruct(ptr))->newInsert))); } -static XEN gxm_newInsert(XEN ptr) +static Xen gxm_currInsert(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTextVerifyCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "newInsert", "XmTextVerifyCallbackStruct"); - return(C_TO_XEN_INT((long)((XEN_TO_C_XmTextVerifyCallbackStruct(ptr))->newInsert))); + XM_field_assert_type(Xen_is_XmTextVerifyCallbackStruct(ptr), ptr, 1, "currInsert", "XmTextVerifyCallbackStruct"); + return(C_int_to_Xen_integer((long)((Xen_to_C_XmTextVerifyCallbackStruct(ptr))->currInsert))); } -static XEN gxm_currInsert(XEN ptr) +static Xen gxm_crossed_boundary(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTextVerifyCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "currInsert", "XmTextVerifyCallbackStruct"); - return(C_TO_XEN_INT((long)((XEN_TO_C_XmTextVerifyCallbackStruct(ptr))->currInsert))); + XM_field_assert_type(Xen_is_XmSpinBoxCallbackStruct(ptr), ptr, 1, "crossed_boundary", "XmSpinBoxCallbackStruct"); + return(C_bool_to_Xen_boolean((Boolean)((Xen_to_C_XmSpinBoxCallbackStruct(ptr))->crossed_boundary))); } -static XEN gxm_crossed_boundary(XEN ptr) +static Xen gxm_position(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmSpinBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "crossed_boundary", "XmSpinBoxCallbackStruct"); - return(C_TO_XEN_BOOLEAN((Boolean)((XEN_TO_C_XmSpinBoxCallbackStruct(ptr))->crossed_boundary))); + XM_field_assert_type(Xen_is_XmSpinBoxCallbackStruct(ptr), ptr, 1, "position", "XmSpinBoxCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmSpinBoxCallbackStruct(ptr))->position))); } -static XEN gxm_position(XEN ptr) +static Xen gxm_tag(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmSpinBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "position", "XmSpinBoxCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmSpinBoxCallbackStruct(ptr))->position))); + XM_field_assert_type(Xen_is_XmDisplayCallbackStruct(ptr), ptr, 1, "tag", "XmDisplayCallbackStruct"); + return(C_string_to_Xen_string((XmStringTag)((Xen_to_C_XmDisplayCallbackStruct(ptr))->tag))); } -static XEN gxm_tag(XEN ptr) +static Xen gxm_render_table(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmDisplayCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "tag", "XmDisplayCallbackStruct"); - return(C_TO_XEN_STRING((XmStringTag)((XEN_TO_C_XmDisplayCallbackStruct(ptr))->tag))); + XM_field_assert_type(Xen_is_XmDisplayCallbackStruct(ptr), ptr, 1, "render_table", "XmDisplayCallbackStruct"); + return(C_to_Xen_XmRenderTable((XmRenderTable)((Xen_to_C_XmDisplayCallbackStruct(ptr))->render_table))); } -static XEN gxm_render_table(XEN ptr) +static Xen gxm_font_name(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmDisplayCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "render_table", "XmDisplayCallbackStruct"); - return(C_TO_XEN_XmRenderTable((XmRenderTable)((XEN_TO_C_XmDisplayCallbackStruct(ptr))->render_table))); + XM_field_assert_type(Xen_is_XmDisplayCallbackStruct(ptr), ptr, 1, "font_name", "XmDisplayCallbackStruct"); + return(C_string_to_Xen_string((char *)((Xen_to_C_XmDisplayCallbackStruct(ptr))->font_name))); } -static XEN gxm_font_name(XEN ptr) +static Xen gxm_rendition(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmDisplayCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "font_name", "XmDisplayCallbackStruct"); - return(C_TO_XEN_STRING((char *)((XEN_TO_C_XmDisplayCallbackStruct(ptr))->font_name))); + XM_field_assert_type(Xen_is_XmDisplayCallbackStruct(ptr), ptr, 1, "rendition", "XmDisplayCallbackStruct"); + return(C_to_Xen_XmRendition((XmRendition)((Xen_to_C_XmDisplayCallbackStruct(ptr))->rendition))); } -static XEN gxm_rendition(XEN ptr) +static Xen gxm_prev_page_widget(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmDisplayCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "rendition", "XmDisplayCallbackStruct"); - return(C_TO_XEN_XmRendition((XmRendition)((XEN_TO_C_XmDisplayCallbackStruct(ptr))->rendition))); + XM_field_assert_type(Xen_is_XmNotebookCallbackStruct(ptr), ptr, 1, "prev_page_widget", "XmNotebookCallbackStruct"); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmNotebookCallbackStruct(ptr))->prev_page_widget))); } -static XEN gxm_prev_page_widget(XEN ptr) +static Xen gxm_prev_page_number(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmNotebookCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "prev_page_widget", "XmNotebookCallbackStruct"); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmNotebookCallbackStruct(ptr))->prev_page_widget))); + XM_field_assert_type(Xen_is_XmNotebookCallbackStruct(ptr), ptr, 1, "prev_page_number", "XmNotebookCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmNotebookCallbackStruct(ptr))->prev_page_number))); } -static XEN gxm_prev_page_number(XEN ptr) +static Xen gxm_new_outline_state(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmNotebookCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "prev_page_number", "XmNotebookCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmNotebookCallbackStruct(ptr))->prev_page_number))); + XM_field_assert_type(Xen_is_XmContainerOutlineCallbackStruct(ptr), ptr, 1, "new_outline_state", "XmContainerOutlineCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmContainerOutlineCallbackStruct(ptr))->new_outline_state))); } -static XEN gxm_new_outline_state(XEN ptr) +static Xen gxm_postIt(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmContainerOutlineCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "new_outline_state", "XmContainerOutlineCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmContainerOutlineCallbackStruct(ptr))->new_outline_state))); + XM_field_assert_type(Xen_is_XmPopupHandlerCallbackStruct(ptr), ptr, 1, "postIt", "XmPopupHandlerCallbackStruct"); + return(C_bool_to_Xen_boolean((Boolean)((Xen_to_C_XmPopupHandlerCallbackStruct(ptr))->postIt))); } -static XEN gxm_postIt(XEN ptr) +static Xen gxm_menuToPost(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmPopupHandlerCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "postIt", "XmPopupHandlerCallbackStruct"); - return(C_TO_XEN_BOOLEAN((Boolean)((XEN_TO_C_XmPopupHandlerCallbackStruct(ptr))->postIt))); + XM_field_assert_type(Xen_is_XmPopupHandlerCallbackStruct(ptr), ptr, 1, "menuToPost", "XmPopupHandlerCallbackStruct"); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmPopupHandlerCallbackStruct(ptr))->menuToPost))); } -static XEN gxm_menuToPost(XEN ptr) +static Xen gxm_set_postIt(Xen ptr, Xen post) { - XM_FIELD_ASSERT_TYPE(XEN_XmPopupHandlerCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "menuToPost", "XmPopupHandlerCallbackStruct"); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmPopupHandlerCallbackStruct(ptr))->menuToPost))); -} - -static XEN gxm_set_postIt(XEN ptr, XEN post) -{ - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(post), post, XEN_ARG_2, "postIt", "a boolean"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XmPopupHandlerCallbackStruct_P(ptr), ptr, XEN_ARG_1, "postIt", "XmPopupHandler"); - (XEN_TO_C_XmPopupHandlerCallbackStruct(ptr))->postIt = XEN_TO_C_BOOLEAN(post); + XM_set_field_assert_type(Xen_is_boolean(post), post, 2, "postIt", "a boolean"); + XM_set_field_assert_type(Xen_is_XmPopupHandlerCallbackStruct(ptr), ptr, 1, "postIt", "XmPopupHandler"); + (Xen_to_C_XmPopupHandlerCallbackStruct(ptr))->postIt = Xen_boolean_to_C_bool(post); return(post); } -static XEN gxm_set_menuToPost(XEN ptr, XEN menu) +static Xen gxm_set_menuToPost(Xen ptr, Xen menu) { - XM_SET_FIELD_ASSERT_TYPE(XEN_Widget_P(menu), menu, XEN_ARG_2, "menuToPost", "a Widget"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XmPopupHandlerCallbackStruct_P(ptr), ptr, XEN_ARG_1, "menuToPost", "XmPopupHandler"); - (XEN_TO_C_XmPopupHandlerCallbackStruct(ptr))->menuToPost = (Widget)XEN_TO_C_Widget(menu); + XM_set_field_assert_type(Xen_is_Widget(menu), menu, 2, "menuToPost", "a Widget"); + XM_set_field_assert_type(Xen_is_XmPopupHandlerCallbackStruct(ptr), ptr, 1, "menuToPost", "XmPopupHandler"); + (Xen_to_C_XmPopupHandlerCallbackStruct(ptr))->menuToPost = (Widget)Xen_to_C_Widget(menu); return(menu); } -static XEN gxm_pattern_length(XEN ptr) +static Xen gxm_pattern_length(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmFileSelectionBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "pattern_length", "XmFileSelectionBoxCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->pattern_length))); + XM_field_assert_type(Xen_is_XmFileSelectionBoxCallbackStruct(ptr), ptr, 1, "pattern_length", "XmFileSelectionBoxCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->pattern_length))); } -static XEN gxm_pattern(XEN ptr) +static Xen gxm_pattern(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmFileSelectionBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "pattern", "XmFileSelectionBoxCallbackStruct"); - return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->pattern))); + XM_field_assert_type(Xen_is_XmFileSelectionBoxCallbackStruct(ptr), ptr, 1, "pattern", "XmFileSelectionBoxCallbackStruct"); + return(C_to_Xen_XmString((XmString)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->pattern))); } -static XEN gxm_dir_length(XEN ptr) +static Xen gxm_dir_length(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmFileSelectionBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "dir_length", "XmFileSelectionBoxCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->dir_length))); + XM_field_assert_type(Xen_is_XmFileSelectionBoxCallbackStruct(ptr), ptr, 1, "dir_length", "XmFileSelectionBoxCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->dir_length))); } -static XEN gxm_dir(XEN ptr) +static Xen gxm_dir(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmFileSelectionBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "dir", "XmFileSelectionBoxCallbackStruct"); - return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->dir))); + XM_field_assert_type(Xen_is_XmFileSelectionBoxCallbackStruct(ptr), ptr, 1, "dir", "XmFileSelectionBoxCallbackStruct"); + return(C_to_Xen_XmString((XmString)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->dir))); } -static XEN gxm_mask_length(XEN ptr) +static Xen gxm_mask_length(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmFileSelectionBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "mask_length", "XmFileSelectionBoxCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->mask_length))); + XM_field_assert_type(Xen_is_XmFileSelectionBoxCallbackStruct(ptr), ptr, 1, "mask_length", "XmFileSelectionBoxCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->mask_length))); } -static XEN gxm_mask(XEN ptr) +static Xen gxm_mask(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmFileSelectionBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "mask", "XmFileSelectionBoxCallbackStruct"); - return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->mask))); + XM_field_assert_type(Xen_is_XmFileSelectionBoxCallbackStruct(ptr), ptr, 1, "mask", "XmFileSelectionBoxCallbackStruct"); + return(C_to_Xen_XmString((XmString)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->mask))); } -static XEN gxm_auto_selection_type(XEN ptr) +static Xen gxm_auto_selection_type(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmContainerSelectCallbackStruct_P(ptr) || XEN_XmListCallbackStruct_P(ptr), - ptr, XEN_ONLY_ARG, "auto_selection_type", "a struct with an auto_selection_type field"); - if (XEN_XmContainerSelectCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmContainerSelectCallbackStruct(ptr))->auto_selection_type))); - return(C_TO_XEN_char((char)((XEN_TO_C_XmListCallbackStruct(ptr))->auto_selection_type))); + XM_field_assert_type(Xen_is_XmContainerSelectCallbackStruct(ptr) || Xen_is_XmListCallbackStruct(ptr), + ptr, 1, "auto_selection_type", "a struct with an auto_selection_type field"); + if (Xen_is_XmContainerSelectCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmContainerSelectCallbackStruct(ptr))->auto_selection_type))); + return(C_int_to_Xen_integer((char)((Xen_to_C_XmListCallbackStruct(ptr))->auto_selection_type))); } -static XEN gxm_selection_type(XEN ptr) +static Xen gxm_selection_type(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmListCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "selection_type", "XmListCallbackStruct"); - return(C_TO_XEN_char((char)((XEN_TO_C_XmListCallbackStruct(ptr))->selection_type))); + XM_field_assert_type(Xen_is_XmListCallbackStruct(ptr), ptr, 1, "selection_type", "XmListCallbackStruct"); + return(C_int_to_Xen_integer((char)((Xen_to_C_XmListCallbackStruct(ptr))->selection_type))); } -static XEN gxm_selected_item_positions(XEN ptr) +static Xen gxm_selected_item_positions(Xen ptr) { /* DIFF: selected_item_positions is a list of ints */ - if (XEN_XmListCallbackStruct_P(ptr)) - return(C_TO_XEN_Ints((int *)((XEN_TO_C_XmListCallbackStruct(ptr))->selected_item_positions), - ((int)((XEN_TO_C_XmListCallbackStruct(ptr))->selected_item_count)))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "selected_item_positions", "a struct with a selected_item_positions field"); - return(XEN_FALSE); + if (Xen_is_XmListCallbackStruct(ptr)) + return(C_to_Xen_Ints((int *)((Xen_to_C_XmListCallbackStruct(ptr))->selected_item_positions), + ((int)((Xen_to_C_XmListCallbackStruct(ptr))->selected_item_count)))); + XM_field_assert_type(0, ptr, 1, "selected_item_positions", "a struct with a selected_item_positions field"); + return(Xen_false); } -static XEN gxm_selected_item_count(XEN ptr) +static Xen gxm_selected_item_count(Xen ptr) { - if (XEN_XmContainerSelectCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmContainerSelectCallbackStruct(ptr))->selected_item_count))); - if (XEN_XmListCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmListCallbackStruct(ptr))->selected_item_count))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "selected_item_count", "XmListCallbackStruct"); - return(XEN_FALSE); + if (Xen_is_XmContainerSelectCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmContainerSelectCallbackStruct(ptr))->selected_item_count))); + if (Xen_is_XmListCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmListCallbackStruct(ptr))->selected_item_count))); + XM_field_assert_type(0, ptr, 1, "selected_item_count", "XmListCallbackStruct"); + return(Xen_false); } -static XEN gxm_selected_items(XEN ptr) +static Xen gxm_selected_items(Xen ptr) { /* DIFF selected_items field returns list */ - if (XEN_XmContainerSelectCallbackStruct_P(ptr)) - return(C_TO_XEN_Widgets((WidgetList)((XEN_TO_C_XmContainerSelectCallbackStruct(ptr))->selected_items), - (XEN_TO_C_XmContainerSelectCallbackStruct(ptr))->selected_item_count)); - if (XEN_XmListCallbackStruct_P(ptr)) - return(C_TO_XEN_XmStringTable((XmStringTable)((XEN_TO_C_XmListCallbackStruct(ptr))->selected_items), - (XEN_TO_C_XmListCallbackStruct(ptr))->selected_item_count)); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "selected_items", "a struct with a selected_items field"); - return(XEN_FALSE); + if (Xen_is_XmContainerSelectCallbackStruct(ptr)) + return(C_to_Xen_Widgets((WidgetList)((Xen_to_C_XmContainerSelectCallbackStruct(ptr))->selected_items), + (Xen_to_C_XmContainerSelectCallbackStruct(ptr))->selected_item_count)); + if (Xen_is_XmListCallbackStruct(ptr)) + return(C_to_Xen_XmStringTable((XmStringTable)((Xen_to_C_XmListCallbackStruct(ptr))->selected_items), + (Xen_to_C_XmListCallbackStruct(ptr))->selected_item_count)); + XM_field_assert_type(0, ptr, 1, "selected_items", "a struct with a selected_items field"); + return(Xen_false); } -static XEN gxm_item_length(XEN ptr) +static Xen gxm_item_length(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmListCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "item_length", "XmListCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmListCallbackStruct(ptr))->item_length))); + XM_field_assert_type(Xen_is_XmListCallbackStruct(ptr), ptr, 1, "item_length", "XmListCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmListCallbackStruct(ptr))->item_length))); } -static XEN gxm_item(XEN ptr) +static Xen gxm_item(Xen ptr) { - if (XEN_XmContainerOutlineCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmContainerOutlineCallbackStruct(ptr))->item))); - if (XEN_XmListCallbackStruct_P(ptr)) return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmListCallbackStruct(ptr))->item))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "item", "XmListCallbackStruct"); - return(XEN_FALSE); + if (Xen_is_XmContainerOutlineCallbackStruct(ptr)) return(C_to_Xen_Widget((Widget)((Xen_to_C_XmContainerOutlineCallbackStruct(ptr))->item))); + if (Xen_is_XmListCallbackStruct(ptr)) return(C_to_Xen_XmString((XmString)((Xen_to_C_XmListCallbackStruct(ptr))->item))); + XM_field_assert_type(0, ptr, 1, "item", "XmListCallbackStruct"); + return(Xen_false); } /* in Motif 2, this field is an int: XmSET to XmINDETERMINATE -- should we change? */ -static XEN gxm_set(XEN ptr) +static Xen gxm_set(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmToggleButtonCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "set", "XmToggleButtonCallbackStruct"); - return(C_TO_XEN_BOOLEAN((int)((XEN_TO_C_XmToggleButtonCallbackStruct(ptr))->set))); + XM_field_assert_type(Xen_is_XmToggleButtonCallbackStruct(ptr), ptr, 1, "set", "XmToggleButtonCallbackStruct"); + return(C_bool_to_Xen_boolean((int)((Xen_to_C_XmToggleButtonCallbackStruct(ptr))->set))); } -static XEN gxm_set_set(XEN ptr, XEN val) +static Xen gxm_set_set(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val) || XEN_INTEGER_P(val), val, XEN_ARG_2, "set", "a boolean"); - XM_SET_FIELD_ASSERT_TYPE(XEN_XmToggleButtonCallbackStruct_P(ptr), ptr, XEN_ARG_1, "set", "XmToggleButtonCallbackStruct"); - (XEN_TO_C_XmToggleButtonCallbackStruct(ptr))->set = XEN_TO_C_BOOLEAN(val); + XM_set_field_assert_type(Xen_is_boolean(val) || Xen_is_integer(val), val, 2, "set", "a boolean"); + XM_set_field_assert_type(Xen_is_XmToggleButtonCallbackStruct(ptr), ptr, 1, "set", "XmToggleButtonCallbackStruct"); + (Xen_to_C_XmToggleButtonCallbackStruct(ptr))->set = Xen_boolean_to_C_bool(val); return(val); } -static XEN gxm_callbackstruct(XEN ptr) +static Xen gxm_callbackstruct(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmRowColumnCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "callbackstruct", "XmRowColumnCallbackStruct"); - return(C_TO_XEN_STRING((char *)((XEN_TO_C_XmRowColumnCallbackStruct(ptr))->callbackstruct))); + XM_field_assert_type(Xen_is_XmRowColumnCallbackStruct(ptr), ptr, 1, "callbackstruct", "XmRowColumnCallbackStruct"); + return(C_string_to_Xen_string((char *)((Xen_to_C_XmRowColumnCallbackStruct(ptr))->callbackstruct))); } -static XEN gxm_item_position(XEN ptr) +static Xen gxm_item_position(Xen ptr) { - if (XEN_XmListCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmListCallbackStruct(ptr))->item_position))); - if (XEN_XmComboBoxCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmComboBoxCallbackStruct(ptr))->item_position))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "item_position", "a struct with an item_position field"); - return(XEN_FALSE); + if (Xen_is_XmListCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmListCallbackStruct(ptr))->item_position))); + if (Xen_is_XmComboBoxCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmComboBoxCallbackStruct(ptr))->item_position))); + XM_field_assert_type(0, ptr, 1, "item_position", "a struct with an item_position field"); + return(Xen_false); } -static XEN gxm_item_or_text(XEN ptr) +static Xen gxm_item_or_text(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmComboBoxCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "item_or_text", "XmComboBoxCallbackStruct"); - return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmComboBoxCallbackStruct(ptr))->item_or_text))); + XM_field_assert_type(Xen_is_XmComboBoxCallbackStruct(ptr), ptr, 1, "item_or_text", "XmComboBoxCallbackStruct"); + return(C_to_Xen_XmString((XmString)((Xen_to_C_XmComboBoxCallbackStruct(ptr))->item_or_text))); } -static XEN gxm_doit(XEN ptr) +static Xen gxm_doit(Xen ptr) { - if (XEN_XmTextVerifyCallbackStruct_P(ptr)) return(C_TO_XEN_BOOLEAN((Boolean)((XEN_TO_C_XmTextVerifyCallbackStruct(ptr))->doit))); - if (XEN_XmSpinBoxCallbackStruct_P(ptr)) return(C_TO_XEN_BOOLEAN((Boolean)((XEN_TO_C_XmSpinBoxCallbackStruct(ptr))->doit))); - if (XEN_XmDragStartCallbackStruct_P(ptr)) return(C_TO_XEN_BOOLEAN((Boolean)((XEN_TO_C_XmDragStartCallbackStruct(ptr))->doit))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "doit", "a struct with a doit field"); - return(XEN_FALSE); + if (Xen_is_XmTextVerifyCallbackStruct(ptr)) return(C_bool_to_Xen_boolean((Boolean)((Xen_to_C_XmTextVerifyCallbackStruct(ptr))->doit))); + if (Xen_is_XmSpinBoxCallbackStruct(ptr)) return(C_bool_to_Xen_boolean((Boolean)((Xen_to_C_XmSpinBoxCallbackStruct(ptr))->doit))); + if (Xen_is_XmDragStartCallbackStruct(ptr)) return(C_bool_to_Xen_boolean((Boolean)((Xen_to_C_XmDragStartCallbackStruct(ptr))->doit))); + XM_field_assert_type(0, ptr, 1, "doit", "a struct with a doit field"); + return(Xen_false); } -static XEN gxm_set_doit(XEN ptr, XEN val) +static Xen gxm_set_doit(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_BOOLEAN_P(val), val, XEN_ARG_2, "doit", "a boolean"); - if (XEN_XmTextVerifyCallbackStruct_P(ptr)) (XEN_TO_C_XmTextVerifyCallbackStruct(ptr))->doit = XEN_TO_C_BOOLEAN(val); - else if (XEN_XmSpinBoxCallbackStruct_P(ptr)) (XEN_TO_C_XmSpinBoxCallbackStruct(ptr))->doit = XEN_TO_C_BOOLEAN(val); - else if (XEN_XmDragStartCallbackStruct_P(ptr)) (XEN_TO_C_XmDragStartCallbackStruct(ptr))->doit = XEN_TO_C_BOOLEAN(val); - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "doit", "a struct with a doit field"); + XM_set_field_assert_type(Xen_is_boolean(val), val, 2, "doit", "a boolean"); + if (Xen_is_XmTextVerifyCallbackStruct(ptr)) (Xen_to_C_XmTextVerifyCallbackStruct(ptr))->doit = Xen_boolean_to_C_bool(val); + else if (Xen_is_XmSpinBoxCallbackStruct(ptr)) (Xen_to_C_XmSpinBoxCallbackStruct(ptr))->doit = Xen_boolean_to_C_bool(val); + else if (Xen_is_XmDragStartCallbackStruct(ptr)) (Xen_to_C_XmDragStartCallbackStruct(ptr))->doit = Xen_boolean_to_C_bool(val); + else XM_set_field_assert_type(0, ptr, 1, "doit", "a struct with a doit field"); return(val); } -static XEN gxm_widget(XEN ptr) +static Xen gxm_widget(Xen ptr) { - if (XEN_XmSpinBoxCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmSpinBoxCallbackStruct(ptr))->widget))); - if (XEN_XmDragStartCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmDragStartCallbackStruct(ptr))->widget))); - if (XEN_XmRowColumnCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmRowColumnCallbackStruct(ptr))->widget))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "widget", "a struct with a widget field"); - return(XEN_FALSE); + if (Xen_is_XmSpinBoxCallbackStruct(ptr)) return(C_to_Xen_Widget((Widget)((Xen_to_C_XmSpinBoxCallbackStruct(ptr))->widget))); + if (Xen_is_XmDragStartCallbackStruct(ptr)) return(C_to_Xen_Widget((Widget)((Xen_to_C_XmDragStartCallbackStruct(ptr))->widget))); + if (Xen_is_XmRowColumnCallbackStruct(ptr)) return(C_to_Xen_Widget((Widget)((Xen_to_C_XmRowColumnCallbackStruct(ptr))->widget))); + XM_field_assert_type(0, ptr, 1, "widget", "a struct with a widget field"); + return(Xen_false); } -static XEN gxm_click_count(XEN ptr) +static Xen gxm_click_count(Xen ptr) { - if (XEN_XmPushButtonCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmPushButtonCallbackStruct(ptr))->click_count))); - if (XEN_XmDrawnButtonCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDrawnButtonCallbackStruct(ptr))->click_count))); - if (XEN_XmArrowButtonCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmArrowButtonCallbackStruct(ptr))->click_count))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "click_count", "a struct with a click_count field"); - return(XEN_FALSE); + if (Xen_is_XmPushButtonCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmPushButtonCallbackStruct(ptr))->click_count))); + if (Xen_is_XmDrawnButtonCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDrawnButtonCallbackStruct(ptr))->click_count))); + if (Xen_is_XmArrowButtonCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmArrowButtonCallbackStruct(ptr))->click_count))); + XM_field_assert_type(0, ptr, 1, "click_count", "a struct with a click_count field"); + return(Xen_false); } -static XEN gxm_set_click_count(XEN ptr, XEN val) +static Xen gxm_set_click_count(Xen ptr, Xen val) { int count; - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "click_count", "int"); - count = XEN_TO_C_INT(val); - if (XEN_XmPushButtonCallbackStruct_P(ptr)) (XEN_TO_C_XmPushButtonCallbackStruct(ptr))->click_count = count; - else if (XEN_XmDrawnButtonCallbackStruct_P(ptr)) (XEN_TO_C_XmDrawnButtonCallbackStruct(ptr))->click_count = count; - else if (XEN_XmArrowButtonCallbackStruct_P(ptr)) (XEN_TO_C_XmArrowButtonCallbackStruct(ptr))->click_count = count; - else XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "click_count", "a struct with a click_count field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "click_count", "int"); + count = Xen_integer_to_C_int(val); + if (Xen_is_XmPushButtonCallbackStruct(ptr)) (Xen_to_C_XmPushButtonCallbackStruct(ptr))->click_count = count; + else if (Xen_is_XmDrawnButtonCallbackStruct(ptr)) (Xen_to_C_XmDrawnButtonCallbackStruct(ptr))->click_count = count; + else if (Xen_is_XmArrowButtonCallbackStruct(ptr)) (Xen_to_C_XmArrowButtonCallbackStruct(ptr))->click_count = count; + else XM_set_field_assert_type(0, ptr, 1, "click_count", "a struct with a click_count field"); return(val); } -static XEN gxm_remaining(XEN ptr) +static Xen gxm_remaining(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmSelectionCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "remaining", "XmSelectionCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->remaining))); + XM_field_assert_type(Xen_is_XmSelectionCallbackStruct(ptr), ptr, 1, "remaining", "XmSelectionCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmSelectionCallbackStruct(ptr))->remaining))); } -static XEN gxm_destination_data(XEN ptr) +static Xen gxm_destination_data(Xen ptr) { /* widget-class specific interpretation -- is it worth untangling? */ - XM_FIELD_ASSERT_TYPE(XEN_XmDestinationCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "destination_data", "XmDestinationCallbackStruct"); - return(XEN_WRAP_C_POINTER(((XEN_TO_C_XmDestinationCallbackStruct(ptr))->destination_data))); + XM_field_assert_type(Xen_is_XmDestinationCallbackStruct(ptr), ptr, 1, "destination_data", "XmDestinationCallbackStruct"); + return(Xen_wrap_C_pointer(((Xen_to_C_XmDestinationCallbackStruct(ptr))->destination_data))); } -static XEN gxm_transfer_id(XEN ptr) +static Xen gxm_transfer_id(Xen ptr) { - if (XEN_XmTransferDoneCallbackStruct_P(ptr)) return(XEN_WRAP_C_POINTER(((XEN_TO_C_XmTransferDoneCallbackStruct(ptr))->transfer_id))); - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(XEN_WRAP_C_POINTER(((XEN_TO_C_XmSelectionCallbackStruct(ptr))->transfer_id))); - if (XEN_XmDestinationCallbackStruct_P(ptr)) return(XEN_WRAP_C_POINTER(((XEN_TO_C_XmDestinationCallbackStruct(ptr))->transfer_id))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "transfer_id", "a struct with a transfer_id field"); - return(XEN_FALSE); + if (Xen_is_XmTransferDoneCallbackStruct(ptr)) return(Xen_wrap_C_pointer(((Xen_to_C_XmTransferDoneCallbackStruct(ptr))->transfer_id))); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(Xen_wrap_C_pointer(((Xen_to_C_XmSelectionCallbackStruct(ptr))->transfer_id))); + if (Xen_is_XmDestinationCallbackStruct(ptr)) return(Xen_wrap_C_pointer(((Xen_to_C_XmDestinationCallbackStruct(ptr))->transfer_id))); + XM_field_assert_type(0, ptr, 1, "transfer_id", "a struct with a transfer_id field"); + return(Xen_false); } -static XEN gxm_length(XEN ptr) +static Xen gxm_length(Xen ptr) { - if (XEN_XmFileSelectionBoxCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->length))); - if (XEN_XmCommandCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmCommandCallbackStruct(ptr))->length))); - if (XEN_XmTextBlock_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmTextBlock(ptr))->length))); - if (XEN_XmSelectionBoxCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmSelectionBoxCallbackStruct(ptr))->length))); - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->length))); - if (XEN_XmConvertCallbackStruct_P(ptr)) return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XmConvertCallbackStruct(ptr))->length))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "length", "a struct with a length field"); - return(XEN_FALSE); + if (Xen_is_XmFileSelectionBoxCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->length))); + if (Xen_is_XmCommandCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmCommandCallbackStruct(ptr))->length))); + if (Xen_is_XmTextBlock(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmTextBlock(ptr))->length))); + if (Xen_is_XmSelectionBoxCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmSelectionBoxCallbackStruct(ptr))->length))); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XmSelectionCallbackStruct(ptr))->length))); + if (Xen_is_XmConvertCallbackStruct(ptr)) return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XmConvertCallbackStruct(ptr))->length))); + XM_field_assert_type(0, ptr, 1, "length", "a struct with a length field"); + return(Xen_false); } -static XEN gxm_set_length(XEN ptr, XEN val) +static Xen gxm_set_length(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XmTextBlock_P(ptr), ptr, XEN_ARG_1, "length", "XmTextBlock"); - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "length", "int"); - (XEN_TO_C_XmTextBlock(ptr))->length = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_XmTextBlock(ptr), ptr, 1, "length", "XmTextBlock"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "length", "int"); + (Xen_to_C_XmTextBlock(ptr))->length = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_ptr(XEN ptr) +static Xen gxm_ptr(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTextBlock_P(ptr), ptr, XEN_ARG_1, "ptr", "XmTextBlock"); - return(C_TO_XEN_STRING((XEN_TO_C_XmTextBlock(ptr))->ptr)); + XM_field_assert_type(Xen_is_XmTextBlock(ptr), ptr, 1, "ptr", "XmTextBlock"); + return(C_string_to_Xen_string((Xen_to_C_XmTextBlock(ptr))->ptr)); } -static XEN gxm_set_ptr(XEN pt, XEN val) +static Xen gxm_set_ptr(Xen pt, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_XmTextBlock_P(pt), pt, XEN_ARG_1, "ptr", "XmTextBlock"); - XM_SET_FIELD_ASSERT_TYPE(XEN_STRING_P(val), val, XEN_ARG_2, "length", "char*"); - (XEN_TO_C_XmTextBlock(pt))->ptr = xen_strdup(XEN_TO_C_STRING(val)); + XM_set_field_assert_type(Xen_is_XmTextBlock(pt), pt, 1, "ptr", "XmTextBlock"); + XM_set_field_assert_type(Xen_is_string(val), val, 2, "length", "char*"); + (Xen_to_C_XmTextBlock(pt))->ptr = xen_strdup(Xen_string_to_C_string(val)); return(val); } -static XEN gxm_value(XEN ptr) -{ - if (XEN_XmSpinBoxCallbackStruct_P(ptr)) return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmSpinBoxCallbackStruct(ptr))->value))); - if (XEN_XmSelectionBoxCallbackStruct_P(ptr)) return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmSelectionBoxCallbackStruct(ptr))->value))); - if (XEN_XmConvertCallbackStruct_P(ptr)) return(XEN_WRAP_C_POINTER((XtPointer)((XEN_TO_C_XmConvertCallbackStruct(ptr))->value))); - if (XEN_XmSelectionCallbackStruct_P(ptr)) return(XEN_WRAP_C_POINTER((XtPointer)((XEN_TO_C_XmSelectionCallbackStruct(ptr))->value))); - if (XEN_XmScaleCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmScaleCallbackStruct(ptr))->value))); - if (XEN_XmFileSelectionBoxCallbackStruct_P(ptr)) return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->value))); - if (XEN_XmCommandCallbackStruct_P(ptr)) return(C_TO_XEN_XmString((XmString)((XEN_TO_C_XmCommandCallbackStruct(ptr))->value))); - if (XEN_XmScrollBarCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmScrollBarCallbackStruct(ptr))->value))); - if (XEN_XpmColorSymbol_P(ptr)) return(C_TO_XEN_STRING((char *)((XEN_TO_C_XpmColorSymbol(ptr))->value))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "value", "a struct with a value field"); - return(XEN_FALSE); -} - -static XEN gxm_set_value(XEN ptr, XEN val) -{ -#if HAVE_MOTIF - if (XEN_XmScaleCallbackStruct_P(ptr)) (XEN_TO_C_XmScaleCallbackStruct(ptr))->value = XEN_TO_C_INT(val); else - if (XEN_XmFileSelectionBoxCallbackStruct_P(ptr)) (XEN_TO_C_XmFileSelectionBoxCallbackStruct(ptr))->value = XEN_TO_C_XmString(val); else - if (XEN_XmCommandCallbackStruct_P(ptr)) (XEN_TO_C_XmCommandCallbackStruct(ptr))->value = XEN_TO_C_XmString(val); else - if (XEN_XmScrollBarCallbackStruct_P(ptr)) (XEN_TO_C_XmScrollBarCallbackStruct(ptr))->value = XEN_TO_C_INT(val); else - if (XEN_XmConvertCallbackStruct_P(ptr)) (XEN_TO_C_XmConvertCallbackStruct(ptr))->value = (XtPointer)XEN_UNWRAP_C_POINTER(val); else - if (XEN_XmSpinBoxCallbackStruct_P(ptr)) (XEN_TO_C_XmSpinBoxCallbackStruct(ptr))->value = XEN_TO_C_XmString(val); else - if (XEN_XmSelectionBoxCallbackStruct_P(ptr)) (XEN_TO_C_XmSelectionBoxCallbackStruct(ptr))->value = XEN_TO_C_XmString(val); else - if (XEN_XmSelectionCallbackStruct_P(ptr)) (XEN_TO_C_XmSelectionCallbackStruct(ptr))->value = (XtPointer)XEN_UNWRAP_C_POINTER(val); else -#endif - if (XEN_XpmColorSymbol_P(ptr)) (XEN_TO_C_XpmColorSymbol(ptr))->value = xen_strdup(XEN_TO_C_STRING(val)); else - XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "value", "a struct with a value field"); +static Xen gxm_value(Xen ptr) +{ + if (Xen_is_XmSpinBoxCallbackStruct(ptr)) return(C_to_Xen_XmString((XmString)((Xen_to_C_XmSpinBoxCallbackStruct(ptr))->value))); + if (Xen_is_XmSelectionBoxCallbackStruct(ptr)) return(C_to_Xen_XmString((XmString)((Xen_to_C_XmSelectionBoxCallbackStruct(ptr))->value))); + if (Xen_is_XmConvertCallbackStruct(ptr)) return(Xen_wrap_C_pointer((XtPointer)((Xen_to_C_XmConvertCallbackStruct(ptr))->value))); + if (Xen_is_XmSelectionCallbackStruct(ptr)) return(Xen_wrap_C_pointer((XtPointer)((Xen_to_C_XmSelectionCallbackStruct(ptr))->value))); + if (Xen_is_XmScaleCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmScaleCallbackStruct(ptr))->value))); + if (Xen_is_XmFileSelectionBoxCallbackStruct(ptr)) return(C_to_Xen_XmString((XmString)((Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->value))); + if (Xen_is_XmCommandCallbackStruct(ptr)) return(C_to_Xen_XmString((XmString)((Xen_to_C_XmCommandCallbackStruct(ptr))->value))); + if (Xen_is_XmScrollBarCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmScrollBarCallbackStruct(ptr))->value))); + if (Xen_is_XpmColorSymbol(ptr)) return(C_string_to_Xen_string((char *)((Xen_to_C_XpmColorSymbol(ptr))->value))); + XM_field_assert_type(0, ptr, 1, "value", "a struct with a value field"); + return(Xen_false); +} + +static Xen gxm_set_value(Xen ptr, Xen val) +{ + if (Xen_is_XmScaleCallbackStruct(ptr)) (Xen_to_C_XmScaleCallbackStruct(ptr))->value = Xen_integer_to_C_int(val); else + if (Xen_is_XmFileSelectionBoxCallbackStruct(ptr)) (Xen_to_C_XmFileSelectionBoxCallbackStruct(ptr))->value = Xen_to_C_XmString(val); else + if (Xen_is_XmCommandCallbackStruct(ptr)) (Xen_to_C_XmCommandCallbackStruct(ptr))->value = Xen_to_C_XmString(val); else + if (Xen_is_XmScrollBarCallbackStruct(ptr)) (Xen_to_C_XmScrollBarCallbackStruct(ptr))->value = Xen_integer_to_C_int(val); else + if (Xen_is_XmConvertCallbackStruct(ptr)) (Xen_to_C_XmConvertCallbackStruct(ptr))->value = (XtPointer)Xen_unwrap_C_pointer(val); else + if (Xen_is_XmSpinBoxCallbackStruct(ptr)) (Xen_to_C_XmSpinBoxCallbackStruct(ptr))->value = Xen_to_C_XmString(val); else + if (Xen_is_XmSelectionBoxCallbackStruct(ptr)) (Xen_to_C_XmSelectionBoxCallbackStruct(ptr))->value = Xen_to_C_XmString(val); else + if (Xen_is_XmSelectionCallbackStruct(ptr)) (Xen_to_C_XmSelectionCallbackStruct(ptr))->value = (XtPointer)Xen_unwrap_C_pointer(val); else + if (Xen_is_XpmColorSymbol(ptr)) (Xen_to_C_XpmColorSymbol(ptr))->value = xen_strdup(Xen_string_to_C_string(val)); else + XM_set_field_assert_type(0, ptr, 1, "value", "a struct with a value field"); return(val); } -static XEN gxm_status(XEN ptr) +static Xen gxm_status(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTransferDoneCallbackStruct_P(ptr) || XEN_XmConvertCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "status", "a struct with a status field"); - if (XEN_XmTransferDoneCallbackStruct_P(ptr)) return(C_TO_XEN_INT((XmTransferStatus)((XEN_TO_C_XmTransferDoneCallbackStruct(ptr))->status))); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmConvertCallbackStruct(ptr))->status))); + XM_field_assert_type(Xen_is_XmTransferDoneCallbackStruct(ptr) || Xen_is_XmConvertCallbackStruct(ptr), ptr, 1, "status", "a struct with a status field"); + if (Xen_is_XmTransferDoneCallbackStruct(ptr)) return(C_int_to_Xen_integer((XmTransferStatus)((Xen_to_C_XmTransferDoneCallbackStruct(ptr))->status))); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmConvertCallbackStruct(ptr))->status))); } -static XEN gxm_parm_type(XEN ptr) +static Xen gxm_parm_type(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmConvertCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "parm_type", "XmConvertCallbackStruct"); - return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmConvertCallbackStruct(ptr))->parm_type))); + XM_field_assert_type(Xen_is_XmConvertCallbackStruct(ptr), ptr, 1, "parm_type", "XmConvertCallbackStruct"); + return(C_to_Xen_Atom((Atom)((Xen_to_C_XmConvertCallbackStruct(ptr))->parm_type))); } -static XEN gxm_parm_length(XEN ptr) +static Xen gxm_parm_length(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmConvertCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "parm_length", "XmConvertCallbackStruct"); - return(C_TO_XEN_ULONG((unsigned long)((XEN_TO_C_XmConvertCallbackStruct(ptr))->parm_length))); + XM_field_assert_type(Xen_is_XmConvertCallbackStruct(ptr), ptr, 1, "parm_length", "XmConvertCallbackStruct"); + return(C_ulong_to_Xen_ulong((unsigned long)((Xen_to_C_XmConvertCallbackStruct(ptr))->parm_length))); } -static XEN gxm_parm_format(XEN ptr) +static Xen gxm_parm_format(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmConvertCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "parm_format", "XmConvertCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmConvertCallbackStruct(ptr))->parm_format))); + XM_field_assert_type(Xen_is_XmConvertCallbackStruct(ptr), ptr, 1, "parm_format", "XmConvertCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmConvertCallbackStruct(ptr))->parm_format))); } -static XEN gxm_parm(XEN ptr) +static Xen gxm_parm(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmConvertCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "parm", "XmConvertCallbackStruct"); - return(XEN_WRAP_C_POINTER((XtPointer)((XEN_TO_C_XmConvertCallbackStruct(ptr))->parm))); + XM_field_assert_type(Xen_is_XmConvertCallbackStruct(ptr), ptr, 1, "parm", "XmConvertCallbackStruct"); + return(Xen_wrap_C_pointer((XtPointer)((Xen_to_C_XmConvertCallbackStruct(ptr))->parm))); } -static XEN gxm_location_data(XEN ptr) +static Xen gxm_location_data(Xen ptr) { /* widget-class specific interpretation -- is it worth untangling? */ - XM_FIELD_ASSERT_TYPE(XEN_XmDestinationCallbackStruct_P(ptr) || XEN_XmConvertCallbackStruct_P(ptr), - ptr, XEN_ONLY_ARG, "location_data", "a struct with a location_data field"); - if (XEN_XmDestinationCallbackStruct_P(ptr)) return(XEN_WRAP_C_POINTER((XtPointer)((XEN_TO_C_XmDestinationCallbackStruct(ptr))->location_data))); - return(XEN_WRAP_C_POINTER((XtPointer)((XEN_TO_C_XmConvertCallbackStruct(ptr))->location_data))); + XM_field_assert_type(Xen_is_XmDestinationCallbackStruct(ptr) || Xen_is_XmConvertCallbackStruct(ptr), + ptr, 1, "location_data", "a struct with a location_data field"); + if (Xen_is_XmDestinationCallbackStruct(ptr)) return(Xen_wrap_C_pointer((XtPointer)((Xen_to_C_XmDestinationCallbackStruct(ptr))->location_data))); + return(Xen_wrap_C_pointer((XtPointer)((Xen_to_C_XmConvertCallbackStruct(ptr))->location_data))); } -static XEN gxm_source_data(XEN ptr) +static Xen gxm_source_data(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmConvertCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "source_data", "XmConvertCallbackStruct"); - return(XEN_WRAP_C_POINTER((XtPointer)((XEN_TO_C_XmConvertCallbackStruct(ptr))->source_data))); + XM_field_assert_type(Xen_is_XmConvertCallbackStruct(ptr), ptr, 1, "source_data", "XmConvertCallbackStruct"); + return(Xen_wrap_C_pointer((XtPointer)((Xen_to_C_XmConvertCallbackStruct(ptr))->source_data))); } -static XEN gxm_client_data(XEN ptr) +static Xen gxm_client_data(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTransferDoneCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "client_data", "XmTransferDoneCallbackStruct"); - return(XEN_WRAP_C_POINTER((XtPointer)((XEN_TO_C_XmTransferDoneCallbackStruct(ptr))->client_data))); + XM_field_assert_type(Xen_is_XmTransferDoneCallbackStruct(ptr), ptr, 1, "client_data", "XmTransferDoneCallbackStruct"); + return(Xen_wrap_C_pointer((XtPointer)((Xen_to_C_XmTransferDoneCallbackStruct(ptr))->client_data))); } -static XEN gxm_animate(XEN ptr) +static Xen gxm_animate(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmDragProcCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "animate", "XmDragProcCallbackStruct"); - return(C_TO_XEN_BOOLEAN((Boolean)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->animate))); + XM_field_assert_type(Xen_is_XmDragProcCallbackStruct(ptr), ptr, 1, "animate", "XmDragProcCallbackStruct"); + return(C_bool_to_Xen_boolean((Boolean)((Xen_to_C_XmDragProcCallbackStruct(ptr))->animate))); } -static XEN gxm_dragContext(XEN ptr) +static Xen gxm_dragContext(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmDropProcCallbackStruct_P(ptr) || XEN_XmDragProcCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "dragContext", "a struct with a dragContext field"); - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->dragContext))); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->dragContext))); + XM_field_assert_type(Xen_is_XmDropProcCallbackStruct(ptr) || Xen_is_XmDragProcCallbackStruct(ptr), ptr, 1, "dragContext", "a struct with a dragContext field"); + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_to_Xen_Widget((Widget)((Xen_to_C_XmDropProcCallbackStruct(ptr))->dragContext))); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmDragProcCallbackStruct(ptr))->dragContext))); } -static XEN gxm_completionStatus(XEN ptr) +static Xen gxm_completionStatus(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmDropFinishCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "completionStatus", "XmDropFinishCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropFinishCallbackStruct(ptr))->completionStatus))); + XM_field_assert_type(Xen_is_XmDropFinishCallbackStruct(ptr), ptr, 1, "completionStatus", "XmDropFinishCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropFinishCallbackStruct(ptr))->completionStatus))); } -static XEN gxm_iccHandle(XEN ptr) +static Xen gxm_iccHandle(Xen ptr) { - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->iccHandle))); - if (XEN_XmTopLevelEnterCallbackStruct_P(ptr)) return(C_TO_XEN_Atom((Atom)((XEN_TO_C_XmTopLevelEnterCallbackStruct(ptr))->iccHandle))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "iccHandle", "a struct with an iccHandle field"); - return(XEN_FALSE); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmDropStartCallbackStruct(ptr))->iccHandle))); + if (Xen_is_XmTopLevelEnterCallbackStruct(ptr)) return(C_to_Xen_Atom((Atom)((Xen_to_C_XmTopLevelEnterCallbackStruct(ptr))->iccHandle))); + XM_field_assert_type(0, ptr, 1, "iccHandle", "a struct with an iccHandle field"); + return(Xen_false); } -static XEN gxm_dropAction(XEN ptr) +static Xen gxm_dropAction(Xen ptr) { - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->dropAction))); - if (XEN_XmDropFinishCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropFinishCallbackStruct(ptr))->dropAction))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->dropAction))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "dropAction", "a struct with a dropAction field"); - return(XEN_FALSE); + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropProcCallbackStruct(ptr))->dropAction))); + if (Xen_is_XmDropFinishCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropFinishCallbackStruct(ptr))->dropAction))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropStartCallbackStruct(ptr))->dropAction))); + XM_field_assert_type(0, ptr, 1, "dropAction", "a struct with a dropAction field"); + return(Xen_false); } -static XEN gxm_dropSiteStatus(XEN ptr) +static Xen gxm_dropSiteStatus(Xen ptr) { - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->dropSiteStatus))); - if (XEN_XmDragProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->dropSiteStatus))); - if (XEN_XmDropFinishCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropFinishCallbackStruct(ptr))->dropSiteStatus))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->dropSiteStatus))); - if (XEN_XmOperationChangedCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmOperationChangedCallbackStruct(ptr))->dropSiteStatus))); - if (XEN_XmDragMotionCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragMotionCallbackStruct(ptr))->dropSiteStatus))); - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->dropSiteStatus))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "dropSiteStatus", "a struct with a dropSiteStatus field"); - return(XEN_FALSE); + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropProcCallbackStruct(ptr))->dropSiteStatus))); + if (Xen_is_XmDragProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragProcCallbackStruct(ptr))->dropSiteStatus))); + if (Xen_is_XmDropFinishCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropFinishCallbackStruct(ptr))->dropSiteStatus))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropStartCallbackStruct(ptr))->dropSiteStatus))); + if (Xen_is_XmOperationChangedCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmOperationChangedCallbackStruct(ptr))->dropSiteStatus))); + if (Xen_is_XmDragMotionCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragMotionCallbackStruct(ptr))->dropSiteStatus))); + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->dropSiteStatus))); + XM_field_assert_type(0, ptr, 1, "dropSiteStatus", "a struct with a dropSiteStatus field"); + return(Xen_false); } -static XEN gxm_set_dropSiteStatus(XEN ptr, XEN val) +static Xen gxm_set_dropSiteStatus(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "dropSiteStatus", "an integer"); - if (XEN_XmDropProcCallbackStruct_P(ptr)) (XEN_TO_C_XmDropProcCallbackStruct(ptr))->dropSiteStatus = XEN_TO_C_INT(val); else - if (XEN_XmDragProcCallbackStruct_P(ptr)) (XEN_TO_C_XmDragProcCallbackStruct(ptr))->dropSiteStatus = XEN_TO_C_INT(val); else - if (XEN_XmDropFinishCallbackStruct_P(ptr)) (XEN_TO_C_XmDropFinishCallbackStruct(ptr))->dropSiteStatus = XEN_TO_C_INT(val); else - if (XEN_XmDropStartCallbackStruct_P(ptr)) (XEN_TO_C_XmDropStartCallbackStruct(ptr))->dropSiteStatus = XEN_TO_C_INT(val); else - if (XEN_XmOperationChangedCallbackStruct_P(ptr)) (XEN_TO_C_XmOperationChangedCallbackStruct(ptr))->dropSiteStatus = XEN_TO_C_INT(val); else - if (XEN_XmDragMotionCallbackStruct_P(ptr)) (XEN_TO_C_XmDragMotionCallbackStruct(ptr))->dropSiteStatus = XEN_TO_C_INT(val); else - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) (XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->dropSiteStatus = XEN_TO_C_INT(val); else - XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "dropSiteStatus", "a struct with a dropSiteStatus field"); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "dropSiteStatus", "an integer"); + if (Xen_is_XmDropProcCallbackStruct(ptr)) (Xen_to_C_XmDropProcCallbackStruct(ptr))->dropSiteStatus = Xen_integer_to_C_int(val); else + if (Xen_is_XmDragProcCallbackStruct(ptr)) (Xen_to_C_XmDragProcCallbackStruct(ptr))->dropSiteStatus = Xen_integer_to_C_int(val); else + if (Xen_is_XmDropFinishCallbackStruct(ptr)) (Xen_to_C_XmDropFinishCallbackStruct(ptr))->dropSiteStatus = Xen_integer_to_C_int(val); else + if (Xen_is_XmDropStartCallbackStruct(ptr)) (Xen_to_C_XmDropStartCallbackStruct(ptr))->dropSiteStatus = Xen_integer_to_C_int(val); else + if (Xen_is_XmOperationChangedCallbackStruct(ptr)) (Xen_to_C_XmOperationChangedCallbackStruct(ptr))->dropSiteStatus = Xen_integer_to_C_int(val); else + if (Xen_is_XmDragMotionCallbackStruct(ptr)) (Xen_to_C_XmDragMotionCallbackStruct(ptr))->dropSiteStatus = Xen_integer_to_C_int(val); else + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) (Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->dropSiteStatus = Xen_integer_to_C_int(val); else + XM_set_field_assert_type(0, ptr, 1, "dropSiteStatus", "a struct with a dropSiteStatus field"); return(val); } -static XEN gxm_operations(XEN ptr) -{ - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->operations))); - if (XEN_XmDragProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->operations))); - if (XEN_XmDropFinishCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropFinishCallbackStruct(ptr))->operations))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->operations))); - if (XEN_XmOperationChangedCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmOperationChangedCallbackStruct(ptr))->operations))); - if (XEN_XmDragMotionCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragMotionCallbackStruct(ptr))->operations))); - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->operations))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "operations", "a struct with an operations field"); - return(XEN_FALSE); -} - -static XEN gxm_operation(XEN ptr) -{ - if (XEN_XmDestinationCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDestinationCallbackStruct(ptr))->operation))); - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->operation))); - if (XEN_XmDragProcCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->operation))); - if (XEN_XmDropFinishCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropFinishCallbackStruct(ptr))->operation))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->operation))); - if (XEN_XmOperationChangedCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmOperationChangedCallbackStruct(ptr))->operation))); - if (XEN_XmDragMotionCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDragMotionCallbackStruct(ptr))->operation))); - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->operation))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "operation", "a struct with an operation field"); - return(XEN_FALSE); -} - -static XEN gxm_set_operation(XEN ptr, XEN val) -{ - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "operation", "an integer"); - if (XEN_XmDestinationCallbackStruct_P(ptr)) (XEN_TO_C_XmDestinationCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - if (XEN_XmDropProcCallbackStruct_P(ptr)) (XEN_TO_C_XmDropProcCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - if (XEN_XmDragProcCallbackStruct_P(ptr)) (XEN_TO_C_XmDragProcCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - if (XEN_XmDropFinishCallbackStruct_P(ptr)) (XEN_TO_C_XmDropFinishCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - if (XEN_XmDropStartCallbackStruct_P(ptr)) (XEN_TO_C_XmDropStartCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - if (XEN_XmOperationChangedCallbackStruct_P(ptr)) (XEN_TO_C_XmOperationChangedCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - if (XEN_XmDragMotionCallbackStruct_P(ptr)) (XEN_TO_C_XmDragMotionCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) (XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->operation = XEN_TO_C_INT(val); else - XM_SET_FIELD_ASSERT_TYPE(0, ptr, XEN_ARG_1, "operation", "a struct with an operation field"); +static Xen gxm_operations(Xen ptr) +{ + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropProcCallbackStruct(ptr))->operations))); + if (Xen_is_XmDragProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragProcCallbackStruct(ptr))->operations))); + if (Xen_is_XmDropFinishCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropFinishCallbackStruct(ptr))->operations))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropStartCallbackStruct(ptr))->operations))); + if (Xen_is_XmOperationChangedCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmOperationChangedCallbackStruct(ptr))->operations))); + if (Xen_is_XmDragMotionCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragMotionCallbackStruct(ptr))->operations))); + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->operations))); + XM_field_assert_type(0, ptr, 1, "operations", "a struct with an operations field"); + return(Xen_false); +} + +static Xen gxm_operation(Xen ptr) +{ + if (Xen_is_XmDestinationCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDestinationCallbackStruct(ptr))->operation))); + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropProcCallbackStruct(ptr))->operation))); + if (Xen_is_XmDragProcCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragProcCallbackStruct(ptr))->operation))); + if (Xen_is_XmDropFinishCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropFinishCallbackStruct(ptr))->operation))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropStartCallbackStruct(ptr))->operation))); + if (Xen_is_XmOperationChangedCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmOperationChangedCallbackStruct(ptr))->operation))); + if (Xen_is_XmDragMotionCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDragMotionCallbackStruct(ptr))->operation))); + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->operation))); + XM_field_assert_type(0, ptr, 1, "operation", "a struct with an operation field"); + return(Xen_false); +} + +static Xen gxm_set_operation(Xen ptr, Xen val) +{ + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "operation", "an integer"); + if (Xen_is_XmDestinationCallbackStruct(ptr)) (Xen_to_C_XmDestinationCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + if (Xen_is_XmDropProcCallbackStruct(ptr)) (Xen_to_C_XmDropProcCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + if (Xen_is_XmDragProcCallbackStruct(ptr)) (Xen_to_C_XmDragProcCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + if (Xen_is_XmDropFinishCallbackStruct(ptr)) (Xen_to_C_XmDropFinishCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + if (Xen_is_XmDropStartCallbackStruct(ptr)) (Xen_to_C_XmDropStartCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + if (Xen_is_XmOperationChangedCallbackStruct(ptr)) (Xen_to_C_XmOperationChangedCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + if (Xen_is_XmDragMotionCallbackStruct(ptr)) (Xen_to_C_XmDragMotionCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) (Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->operation = Xen_integer_to_C_int(val); else + XM_set_field_assert_type(0, ptr, 1, "operation", "a struct with an operation field"); return(val); } -static XEN gxm_timeStamp(XEN ptr) +static Xen gxm_timeStamp(Xen ptr) { - if (XEN_XmDropProcCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDropProcCallbackStruct(ptr))->timeStamp))); - if (XEN_XmDragProcCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDragProcCallbackStruct(ptr))->timeStamp))); - if (XEN_XmDragDropFinishCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDragDropFinishCallbackStruct(ptr))->timeStamp))); - if (XEN_XmDropFinishCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDropFinishCallbackStruct(ptr))->timeStamp))); - if (XEN_XmDropStartCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDropStartCallbackStruct(ptr))->timeStamp))); - if (XEN_XmOperationChangedCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmOperationChangedCallbackStruct(ptr))->timeStamp))); - if (XEN_XmDragMotionCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDragMotionCallbackStruct(ptr))->timeStamp))); - if (XEN_XmDropSiteLeaveCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDropSiteLeaveCallbackStruct(ptr))->timeStamp))); - if (XEN_XmDropSiteEnterCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmDropSiteEnterCallbackStruct(ptr))->timeStamp))); - if (XEN_XmTopLevelEnterCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmTopLevelEnterCallbackStruct(ptr))->timeStamp))); - if (XEN_XmTopLevelLeaveCallbackStruct_P(ptr)) return(C_TO_XEN_Time((Time)((XEN_TO_C_XmTopLevelLeaveCallbackStruct(ptr))->timeStamp))); - XM_FIELD_ASSERT_TYPE(0, ptr, XEN_ONLY_ARG, "timeStamp", "a struct with a timeStamp field"); - return(XEN_FALSE); + if (Xen_is_XmDropProcCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDropProcCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmDragProcCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDragProcCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmDragDropFinishCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDragDropFinishCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmDropFinishCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDropFinishCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmDropStartCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDropStartCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmOperationChangedCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmOperationChangedCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmDragMotionCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDragMotionCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmDropSiteLeaveCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDropSiteLeaveCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmDropSiteEnterCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmDropSiteEnterCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmTopLevelEnterCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmTopLevelEnterCallbackStruct(ptr))->timeStamp))); + if (Xen_is_XmTopLevelLeaveCallbackStruct(ptr)) return(C_to_Xen_Time((Time)((Xen_to_C_XmTopLevelLeaveCallbackStruct(ptr))->timeStamp))); + XM_field_assert_type(0, ptr, 1, "timeStamp", "a struct with a timeStamp field"); + return(Xen_false); } -static XEN gxm_reason(XEN ptr) +static Xen gxm_reason(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_AnyCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "reason", "a callbackstruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmAnyCallbackStruct(ptr))->reason))); + XM_field_assert_type(Xen_is_AnyCallbackStruct(ptr), ptr, 1, "reason", "a callbackstruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmAnyCallbackStruct(ptr))->reason))); } -static XEN gxm_set_reason(XEN ptr, XEN val) +static Xen gxm_set_reason(Xen ptr, Xen val) { - XM_SET_FIELD_ASSERT_TYPE(XEN_INTEGER_P(val), val, XEN_ARG_2, "reason", "integer"); - XM_SET_FIELD_ASSERT_TYPE(XEN_AnyCallbackStruct_P(ptr), ptr, XEN_ARG_1, "reason", "a callbackstruct"); - (XEN_TO_C_XmAnyCallbackStruct(ptr))->reason = XEN_TO_C_INT(val); + XM_set_field_assert_type(Xen_is_integer(val), val, 2, "reason", "integer"); + XM_set_field_assert_type(Xen_is_AnyCallbackStruct(ptr), ptr, 1, "reason", "a callbackstruct"); + (Xen_to_C_XmAnyCallbackStruct(ptr))->reason = Xen_integer_to_C_int(val); return(val); } -static XEN gxm_direction(XEN ptr) -{ - XM_FIELD_ASSERT_TYPE(XEN_XmTraverseObscuredCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "direction", "XmTraverseObscuredCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmTraverseObscuredCallbackStruct(ptr))->direction))); -} - -static XEN gxm_dragProtocolStyle(XEN ptr) -{ - XM_FIELD_ASSERT_TYPE(XEN_XmTopLevelEnterCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "dragProtocolStyle", "XmTopLevelEnterCallbackStruct"); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmTopLevelEnterCallbackStruct(ptr))->dragProtocolStyle))); -} - -static XEN gxm_traversal_destination(XEN ptr) +static Xen gxm_direction(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmTraverseObscuredCallbackStruct_P(ptr), ptr, XEN_ONLY_ARG, "traversal_destination", "XmTraverseObscuredCallbackStruct"); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmTraverseObscuredCallbackStruct(ptr))->traversal_destination))); + XM_field_assert_type(Xen_is_XmTraverseObscuredCallbackStruct(ptr), ptr, 1, "direction", "XmTraverseObscuredCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmTraverseObscuredCallbackStruct(ptr))->direction))); } -static XEN gxm_minor_tab_widget(XEN ptr) +static Xen gxm_dragProtocolStyle(Xen ptr) { - XM_FIELD_ASSERT_TYPE(XEN_XmNotebookPageInfo_P(ptr), ptr, XEN_ONLY_ARG, "minor_tab_widget", "XmNotebookPageInfo"); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmNotebookPageInfo(ptr))->minor_tab_widget))); -} - -static XEN gxm_major_tab_widget(XEN ptr) -{ - XM_FIELD_ASSERT_TYPE(XEN_XmNotebookPageInfo_P(ptr), ptr, XEN_ONLY_ARG, "major_tab_widget", "XmNotebookPageInfo"); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmNotebookPageInfo(ptr))->major_tab_widget))); -} - -static XEN gxm_status_area_widget(XEN ptr) -{ - XM_FIELD_ASSERT_TYPE(XEN_XmNotebookPageInfo_P(ptr), ptr, XEN_ONLY_ARG, "status_area_widget", "XmNotebookPageInfo"); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmNotebookPageInfo(ptr))->status_area_widget))); -} - -static XEN gxm_page_widget(XEN ptr) -{ - XM_FIELD_ASSERT_TYPE(XEN_XmNotebookCallbackStruct_P(ptr) || XEN_XmNotebookPageInfo_P(ptr), ptr, XEN_ONLY_ARG, "page_widget", "a struct with a page_widget field"); - if (XEN_XmNotebookCallbackStruct_P(ptr)) return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmNotebookCallbackStruct(ptr))->page_widget))); - return(C_TO_XEN_Widget((Widget)((XEN_TO_C_XmNotebookPageInfo(ptr))->page_widget))); -} - -static XEN gxm_page_number(XEN ptr) -{ - XM_FIELD_ASSERT_TYPE(XEN_XmNotebookCallbackStruct_P(ptr) || XEN_XmNotebookPageInfo_P(ptr), ptr, XEN_ONLY_ARG, "page_number", "a struct with a page_number field"); - if (XEN_XmNotebookCallbackStruct_P(ptr)) return(C_TO_XEN_INT((int)((XEN_TO_C_XmNotebookCallbackStruct(ptr))->page_number))); - return(C_TO_XEN_INT((int)((XEN_TO_C_XmNotebookPageInfo(ptr))->page_number))); -} -#endif -/* HAVE_MOTIF */ - - -#ifdef XEN_ARGIFY_1 -#if HAVE_MOTIF - XEN_NARGIFY_3(gxm_XtSetArg_w, gxm_XtSetArg) - XEN_ARGIFY_2(gxm_XtManageChildren_w, gxm_XtManageChildren) - XEN_NARGIFY_1(gxm_XtManageChild_w, gxm_XtManageChild) - XEN_ARGIFY_2(gxm_XtUnmanageChildren_w, gxm_XtUnmanageChildren) - XEN_NARGIFY_1(gxm_XtUnmanageChild_w, gxm_XtUnmanageChild) - XEN_NARGIFY_1(gxm_XtDispatchEvent_w, gxm_XtDispatchEvent) - XEN_NARGIFY_2(gxm_XtCallAcceptFocus_w, gxm_XtCallAcceptFocus) - XEN_NARGIFY_1(gxm_XtAppPeekEvent_w, gxm_XtAppPeekEvent) - XEN_NARGIFY_2(gxm_XtIsSubclass_w, gxm_XtIsSubclass) - XEN_NARGIFY_2(gxm_XtAppSetFallbackResources_w, gxm_XtAppSetFallbackResources) - XEN_NARGIFY_1(gxm_XtIsObject_w, gxm_XtIsObject) - XEN_NARGIFY_1(gxm_XtIsManaged_w, gxm_XtIsManaged) - XEN_NARGIFY_1(gxm_XtIsRealized_w, gxm_XtIsRealized) - XEN_NARGIFY_1(gxm_XtIsSensitive_w, gxm_XtIsSensitive) - XEN_NARGIFY_6(gxm_XtOwnSelection_w, gxm_XtOwnSelection) - XEN_NARGIFY_8(gxm_XtOwnSelectionIncremental_w, gxm_XtOwnSelectionIncremental) - XEN_NARGIFY_3(gxm_XtMakeResizeRequest_w, gxm_XtMakeResizeRequest) - XEN_NARGIFY_3(gxm_XtTranslateCoords_w, gxm_XtTranslateCoords) - XEN_NARGIFY_2(gxm_XtKeysymToKeycodeList_w, gxm_XtKeysymToKeycodeList) - XEN_NARGIFY_1(gxm_XtParseTranslationTable_w, gxm_XtParseTranslationTable) - XEN_NARGIFY_1(gxm_XtParseAcceleratorTable_w, gxm_XtParseAcceleratorTable) - XEN_NARGIFY_2(gxm_XtOverrideTranslations_w, gxm_XtOverrideTranslations) - XEN_NARGIFY_2(gxm_XtAugmentTranslations_w, gxm_XtAugmentTranslations) - XEN_NARGIFY_2(gxm_XtInstallAccelerators_w, gxm_XtInstallAccelerators) - XEN_NARGIFY_2(gxm_XtInstallAllAccelerators_w, gxm_XtInstallAllAccelerators) - XEN_NARGIFY_1(gxm_XtUninstallTranslations_w, gxm_XtUninstallTranslations) - XEN_NARGIFY_2(gxm_XtAppAddActions_w, gxm_XtAppAddActions) - XEN_ARGIFY_3(gxm_XtAppAddActionHook_w, gxm_XtAppAddActionHook) - XEN_NARGIFY_1(gxm_XtRemoveActionHook_w, gxm_XtRemoveActionHook) - XEN_NARGIFY_1(gxm_XtGetActionList_w, gxm_XtGetActionList) - XEN_ARGIFY_5(gxm_XtCallActionProc_w, gxm_XtCallActionProc) - XEN_NARGIFY_5(gxm_XtRegisterGrabAction_w, gxm_XtRegisterGrabAction) - XEN_NARGIFY_2(gxm_XtSetMultiClickTime_w, gxm_XtSetMultiClickTime) - XEN_NARGIFY_1(gxm_XtGetMultiClickTime_w, gxm_XtGetMultiClickTime) - XEN_NARGIFY_1(gxm_XtGetResourceList_w, gxm_XtGetResourceList) - XEN_NARGIFY_1(gxm_XtGetActionKeysym_w, gxm_XtGetActionKeysym) - XEN_NARGIFY_3(gxm_XtTranslateKeycode_w, gxm_XtTranslateKeycode) - XEN_NARGIFY_3(gxm_XtTranslateKey_w, gxm_XtTranslateKey) - XEN_NARGIFY_2(gxm_XtSetKeyTranslator_w, gxm_XtSetKeyTranslator) - XEN_NARGIFY_4(gxm_XtRegisterCaseConverter_w, gxm_XtRegisterCaseConverter) - XEN_NARGIFY_2(gxm_XtConvertCase_w, gxm_XtConvertCase) - XEN_ARGIFY_5(gxm_XtAddEventHandler_w, gxm_XtAddEventHandler) - XEN_NARGIFY_5(gxm_XtRemoveEventHandler_w, gxm_XtRemoveEventHandler) - XEN_NARGIFY_5(gxm_XtAddRawEventHandler_w, gxm_XtAddRawEventHandler) - XEN_NARGIFY_5(gxm_XtRemoveRawEventHandler_w, gxm_XtRemoveRawEventHandler) - XEN_NARGIFY_6(gxm_XtInsertEventHandler_w, gxm_XtInsertEventHandler) - XEN_NARGIFY_6(gxm_XtInsertRawEventHandler_w, gxm_XtInsertRawEventHandler) - XEN_NARGIFY_2(gxm_XtDispatchEventToWidget_w, gxm_XtDispatchEventToWidget) - XEN_NARGIFY_1(gxm_XtBuildEventMask_w, gxm_XtBuildEventMask) - XEN_NARGIFY_3(gxm_XtAddGrab_w, gxm_XtAddGrab) - XEN_NARGIFY_1(gxm_XtRemoveGrab_w, gxm_XtRemoveGrab) - XEN_NARGIFY_2(gxm_XtAppProcessEvent_w, gxm_XtAppProcessEvent) - XEN_NARGIFY_1(gxm_XtAppMainLoop_w, gxm_XtAppMainLoop) - XEN_NARGIFY_2(gxm_XtAddExposureToRegion_w, gxm_XtAddExposureToRegion) - XEN_NARGIFY_2(gxm_XtSetKeyboardFocus_w, gxm_XtSetKeyboardFocus) - XEN_NARGIFY_1(gxm_XtGetKeyboardFocusWidget_w, gxm_XtGetKeyboardFocusWidget) - XEN_NARGIFY_1(gxm_XtLastEventProcessed_w, gxm_XtLastEventProcessed) - XEN_NARGIFY_1(gxm_XtLastTimestampProcessed_w, gxm_XtLastTimestampProcessed) - XEN_ARGIFY_4(gxm_XtAppAddTimeOut_w, gxm_XtAppAddTimeOut) - XEN_NARGIFY_1(gxm_XtRemoveTimeOut_w, gxm_XtRemoveTimeOut) - XEN_ARGIFY_5(gxm_XtAppAddInput_w, gxm_XtAppAddInput) - XEN_NARGIFY_1(gxm_XtRemoveInput_w, gxm_XtRemoveInput) - XEN_NARGIFY_1(gxm_XtAppNextEvent_w, gxm_XtAppNextEvent) - XEN_NARGIFY_1(gxm_XtAppPending_w, gxm_XtAppPending) - XEN_NARGIFY_1(gxm_XtRealizeWidget_w, gxm_XtRealizeWidget) - XEN_NARGIFY_1(gxm_XtUnrealizeWidget_w, gxm_XtUnrealizeWidget) - XEN_NARGIFY_1(gxm_XtDestroyWidget_w, gxm_XtDestroyWidget) - XEN_NARGIFY_2(gxm_XtSetSensitive_w, gxm_XtSetSensitive) - XEN_NARGIFY_2(gxm_XtNameToWidget_w, gxm_XtNameToWidget) - XEN_NARGIFY_2(gxm_XtWindowToWidget_w, gxm_XtWindowToWidget) - XEN_NARGIFY_4(gxm_XtMergeArgLists_w, gxm_XtMergeArgLists) - XEN_NARGIFY_2(gxm_XtVaCreateArgsList_w, gxm_XtVaCreateArgsList) - XEN_NARGIFY_1(gxm_XtDisplay_w, gxm_XtDisplay) - XEN_NARGIFY_1(gxm_XtDisplayOfObject_w, gxm_XtDisplayOfObject) - XEN_NARGIFY_1(gxm_XtScreen_w, gxm_XtScreen) - XEN_NARGIFY_1(gxm_XtScreenOfObject_w, gxm_XtScreenOfObject) - XEN_NARGIFY_1(gxm_XtWindow_w, gxm_XtWindow) - XEN_NARGIFY_1(gxm_XtWindowOfObject_w, gxm_XtWindowOfObject) - XEN_NARGIFY_1(gxm_XtName_w, gxm_XtName) - XEN_NARGIFY_1(gxm_XtSuperclass_w, gxm_XtSuperclass) - XEN_NARGIFY_1(gxm_XtClass_w, gxm_XtClass) - XEN_NARGIFY_1(gxm_XtParent_w, gxm_XtParent) - XEN_ARGIFY_4(gxm_XtAddCallback_w, gxm_XtAddCallback) - XEN_NARGIFY_3(gxm_XtRemoveCallback_w, gxm_XtRemoveCallback) - XEN_NARGIFY_3(gxm_XtAddCallbacks_w, gxm_XtAddCallbacks) - XEN_NARGIFY_3(gxm_XtRemoveCallbacks_w, gxm_XtRemoveCallbacks) - XEN_NARGIFY_2(gxm_XtRemoveAllCallbacks_w, gxm_XtRemoveAllCallbacks) - XEN_NARGIFY_3(gxm_XtCallCallbacks_w, gxm_XtCallCallbacks) - XEN_NARGIFY_2(gxm_XtHasCallbacks_w, gxm_XtHasCallbacks) - XEN_ARGIFY_5(gxm_XtCreatePopupShell_w, gxm_XtCreatePopupShell) - XEN_NARGIFY_4(gxm_XtVaCreatePopupShell_w, gxm_XtVaCreatePopupShell) - XEN_NARGIFY_2(gxm_XtPopup_w, gxm_XtPopup) - XEN_NARGIFY_1(gxm_XtPopupSpringLoaded_w, gxm_XtPopupSpringLoaded) - XEN_NARGIFY_3(gxm_XtCallbackNone_w, gxm_XtCallbackNone) - XEN_NARGIFY_3(gxm_XtCallbackNonexclusive_w, gxm_XtCallbackNonexclusive) - XEN_NARGIFY_3(gxm_XtCallbackExclusive_w, gxm_XtCallbackExclusive) - XEN_NARGIFY_1(gxm_XtPopdown_w, gxm_XtPopdown) - XEN_NARGIFY_3(gxm_XtCallbackPopdown_w, gxm_XtCallbackPopdown) - XEN_ARGIFY_5(gxm_XtCreateWidget_w, gxm_XtCreateWidget) - XEN_ARGIFY_5(gxm_XtCreateManagedWidget_w, gxm_XtCreateManagedWidget) - XEN_NARGIFY_4(gxm_XtVaCreateWidget_w, gxm_XtVaCreateWidget) - XEN_NARGIFY_4(gxm_XtVaCreateManagedWidget_w, gxm_XtVaCreateManagedWidget) - XEN_ARGIFY_6(gxm_XtAppCreateShell_w, gxm_XtAppCreateShell) - XEN_NARGIFY_5(gxm_XtVaAppCreateShell_w, gxm_XtVaAppCreateShell) - XEN_NARGIFY_0(gxm_XtToolkitInitialize_w, gxm_XtToolkitInitialize) - XEN_NARGIFY_3(gxm_XtSetLanguageProc_w, gxm_XtSetLanguageProc) - XEN_NARGIFY_6(gxm_XtDisplayInitialize_w, gxm_XtDisplayInitialize) - XEN_ARGIFY_6(gxm_XtOpenApplication_w, gxm_XtOpenApplication) - XEN_ARGIFY_6(gxm_XtVaOpenApplication_w, gxm_XtVaOpenApplication) - XEN_ARGIFY_5(gxm_XtAppInitialize_w, gxm_XtAppInitialize) - XEN_ARGIFY_5(gxm_XtVaAppInitialize_w, gxm_XtVaAppInitialize) - XEN_NARGIFY_6(gxm_XtOpenDisplay_w, gxm_XtOpenDisplay) - XEN_NARGIFY_0(gxm_XtCreateApplicationContext_w, gxm_XtCreateApplicationContext) - XEN_NARGIFY_1(gxm_XtDestroyApplicationContext_w, gxm_XtDestroyApplicationContext) - XEN_NARGIFY_1(gxm_XtInitializeWidgetClass_w, gxm_XtInitializeWidgetClass) - XEN_NARGIFY_1(gxm_XtWidgetToApplicationContext_w, gxm_XtWidgetToApplicationContext) - XEN_NARGIFY_1(gxm_XtDisplayToApplicationContext_w, gxm_XtDisplayToApplicationContext) - XEN_NARGIFY_1(gxm_XtCloseDisplay_w, gxm_XtCloseDisplay) - XEN_ARGIFY_3(gxm_XtSetValues_w, gxm_XtSetValues) - XEN_NARGIFY_2(gxm_XtVaSetValues_w, gxm_XtVaSetValues) - XEN_ARGIFY_3(gxm_XtGetValues_w, gxm_XtGetValues) - XEN_NARGIFY_2(gxm_XtVaGetValues_w, gxm_XtVaGetValues) - XEN_NARGIFY_2(gxm_XtAppSetErrorMsgHandler_w, gxm_XtAppSetErrorMsgHandler) - XEN_NARGIFY_2(gxm_XtAppSetWarningMsgHandler_w, gxm_XtAppSetWarningMsgHandler) - XEN_NARGIFY_7(gxm_XtAppErrorMsg_w, gxm_XtAppErrorMsg) - XEN_NARGIFY_7(gxm_XtAppWarningMsg_w, gxm_XtAppWarningMsg) - XEN_NARGIFY_2(gxm_XtAppSetErrorHandler_w, gxm_XtAppSetErrorHandler) - XEN_NARGIFY_2(gxm_XtAppSetWarningHandler_w, gxm_XtAppSetWarningHandler) - XEN_NARGIFY_2(gxm_XtAppError_w, gxm_XtAppError) - XEN_NARGIFY_1(gxm_XtMalloc_w, gxm_XtMalloc) - XEN_NARGIFY_2(gxm_XtCalloc_w, gxm_XtCalloc) - XEN_NARGIFY_2(gxm_XtRealloc_w, gxm_XtRealloc) - XEN_NARGIFY_1(gxm_XtFree_w, gxm_XtFree) - XEN_ARGIFY_3(gxm_XtAppAddWorkProc_w, gxm_XtAppAddWorkProc) - XEN_NARGIFY_1(gxm_XtRemoveWorkProc_w, gxm_XtRemoveWorkProc) - XEN_NARGIFY_3(gxm_XtGetGC_w, gxm_XtGetGC) - XEN_NARGIFY_6(gxm_XtAllocateGC_w, gxm_XtAllocateGC) - XEN_NARGIFY_1(gxm_XtDestroyGC_w, gxm_XtDestroyGC) - XEN_NARGIFY_2(gxm_XtReleaseGC_w, gxm_XtReleaseGC) - XEN_NARGIFY_4(gxm_XtFindFile_w, gxm_XtFindFile) - XEN_NARGIFY_8(gxm_XtResolvePathname_w, gxm_XtResolvePathname) - XEN_NARGIFY_3(gxm_XtDisownSelection_w, gxm_XtDisownSelection) - XEN_NARGIFY_6(gxm_XtGetSelectionValue_w, gxm_XtGetSelectionValue) - XEN_NARGIFY_7(gxm_XtGetSelectionValues_w, gxm_XtGetSelectionValues) - XEN_NARGIFY_2(gxm_XtAppSetSelectionTimeout_w, gxm_XtAppSetSelectionTimeout) - XEN_NARGIFY_1(gxm_XtAppGetSelectionTimeout_w, gxm_XtAppGetSelectionTimeout) - XEN_NARGIFY_3(gxm_XtGetSelectionRequest_w, gxm_XtGetSelectionRequest) - XEN_NARGIFY_6(gxm_XtGetSelectionValueIncremental_w, gxm_XtGetSelectionValueIncremental) - XEN_NARGIFY_7(gxm_XtGetSelectionValuesIncremental_w, gxm_XtGetSelectionValuesIncremental) - XEN_NARGIFY_2(gxm_XtCreateSelectionRequest_w, gxm_XtCreateSelectionRequest) - XEN_NARGIFY_3(gxm_XtSendSelectionRequest_w, gxm_XtSendSelectionRequest) - XEN_NARGIFY_2(gxm_XtCancelSelectionRequest_w, gxm_XtCancelSelectionRequest) - XEN_NARGIFY_6(gxm_XtGrabKey_w, gxm_XtGrabKey) - XEN_NARGIFY_3(gxm_XtUngrabKey_w, gxm_XtUngrabKey) - XEN_NARGIFY_5(gxm_XtGrabKeyboard_w, gxm_XtGrabKeyboard) - XEN_NARGIFY_2(gxm_XtUngrabKeyboard_w, gxm_XtUngrabKeyboard) - XEN_NARGIFY_9(gxm_XtGrabButton_w, gxm_XtGrabButton) - XEN_NARGIFY_3(gxm_XtUngrabButton_w, gxm_XtUngrabButton) - XEN_NARGIFY_8(gxm_XtGrabPointer_w, gxm_XtGrabPointer) - XEN_NARGIFY_2(gxm_XtUngrabPointer_w, gxm_XtUngrabPointer) - XEN_NARGIFY_1(gxm_XtGetApplicationNameAndClass_w, gxm_XtGetApplicationNameAndClass) - XEN_NARGIFY_1(gxm_XtGetDisplays_w, gxm_XtGetDisplays) - XEN_NARGIFY_0(gxm_XtToolkitThreadInitialize_w, gxm_XtToolkitThreadInitialize) - XEN_NARGIFY_1(gxm_XtAppLock_w, gxm_XtAppLock) - XEN_NARGIFY_1(gxm_XtAppUnlock_w, gxm_XtAppUnlock) - XEN_NARGIFY_1(gxm_XtIsRectObj_w, gxm_XtIsRectObj) - XEN_NARGIFY_1(gxm_XtIsWidget_w, gxm_XtIsWidget) - XEN_NARGIFY_1(gxm_XtIsComposite_w, gxm_XtIsComposite) - XEN_NARGIFY_1(gxm_XtIsConstraint_w, gxm_XtIsConstraint) - XEN_NARGIFY_1(gxm_XtIsShell_w, gxm_XtIsShell) - XEN_NARGIFY_1(gxm_XtIsOverrideShell_w, gxm_XtIsOverrideShell) - XEN_NARGIFY_1(gxm_XtIsWMShell_w, gxm_XtIsWMShell) - XEN_NARGIFY_1(gxm_XtIsVendorShell_w, gxm_XtIsVendorShell) - XEN_NARGIFY_1(gxm_XtIsTransientShell_w, gxm_XtIsTransientShell) - XEN_NARGIFY_1(gxm_XtIsTopLevelShell_w, gxm_XtIsTopLevelShell) - XEN_NARGIFY_1(gxm_XtIsApplicationShell_w, gxm_XtIsApplicationShell) - XEN_NARGIFY_1(gxm_XtIsSessionShell_w, gxm_XtIsSessionShell) - XEN_NARGIFY_1(gxm_XtMapWidget_w, gxm_XtMapWidget) - XEN_NARGIFY_1(gxm_XtUnmapWidget_w, gxm_XtUnmapWidget) -#endif - XEN_NARGIFY_2(gxm_XLoadQueryFont_w, gxm_XLoadQueryFont) - XEN_NARGIFY_2(gxm_XQueryFont_w, gxm_XQueryFont) - XEN_NARGIFY_4(gxm_XGetMotionEvents_w, gxm_XGetMotionEvents) - XEN_NARGIFY_3(gxm_XDeleteModifiermapEntry_w, gxm_XDeleteModifiermapEntry) - XEN_NARGIFY_1(gxm_XGetModifierMapping_w, gxm_XGetModifierMapping) - XEN_NARGIFY_3(gxm_XInsertModifiermapEntry_w, gxm_XInsertModifiermapEntry) - XEN_NARGIFY_1(gxm_XNewModifiermap_w, gxm_XNewModifiermap) - XEN_VARGIFY(gxm_XCreateImage_w, gxm_XCreateImage) - XEN_NARGIFY_8(gxm_XGetImage_w, gxm_XGetImage) - XEN_VARGIFY(gxm_XGetSubImage_w, gxm_XGetSubImage) - XEN_NARGIFY_1(gxm_XOpenDisplay_w, gxm_XOpenDisplay) - XEN_NARGIFY_1(gxm_XFetchBytes_w, gxm_XFetchBytes) - XEN_NARGIFY_2(gxm_XFetchBuffer_w, gxm_XFetchBuffer) - XEN_NARGIFY_2(gxm_XGetAtomName_w, gxm_XGetAtomName) - XEN_NARGIFY_1(gxm_XDisplayName_w, gxm_XDisplayName) - XEN_NARGIFY_1(gxm_XKeysymToString_w, gxm_XKeysymToString) - XEN_NARGIFY_2(gxm_XSynchronize_w, gxm_XSynchronize) - XEN_NARGIFY_2(gxm_XSetAfterFunction_w, gxm_XSetAfterFunction) - XEN_NARGIFY_3(gxm_XInternAtom_w, gxm_XInternAtom) - XEN_NARGIFY_2(gxm_XCopyColormapAndFree_w, gxm_XCopyColormapAndFree) - XEN_NARGIFY_4(gxm_XCreateColormap_w, gxm_XCreateColormap) - XEN_NARGIFY_7(gxm_XCreatePixmapCursor_w, gxm_XCreatePixmapCursor) - XEN_NARGIFY_7(gxm_XCreateGlyphCursor_w, gxm_XCreateGlyphCursor) - XEN_NARGIFY_2(gxm_XCreateFontCursor_w, gxm_XCreateFontCursor) - XEN_NARGIFY_2(gxm_XLoadFont_w, gxm_XLoadFont) - XEN_NARGIFY_4(gxm_XCreateGC_w, gxm_XCreateGC) - XEN_NARGIFY_2(gxm_XFlushGC_w, gxm_XFlushGC) - XEN_NARGIFY_5(gxm_XCreatePixmap_w, gxm_XCreatePixmap) - XEN_NARGIFY_5(gxm_XCreateBitmapFromData_w, gxm_XCreateBitmapFromData) - XEN_NARGIFY_8(gxm_XCreatePixmapFromBitmapData_w, gxm_XCreatePixmapFromBitmapData) - XEN_NARGIFY_9(gxm_XCreateSimpleWindow_w, gxm_XCreateSimpleWindow) - XEN_NARGIFY_2(gxm_XGetSelectionOwner_w, gxm_XGetSelectionOwner) - XEN_VARGIFY(gxm_XCreateWindow_w, gxm_XCreateWindow) - XEN_NARGIFY_2(gxm_XListInstalledColormaps_w, gxm_XListInstalledColormaps) - XEN_NARGIFY_3(gxm_XListFonts_w, gxm_XListFonts) - XEN_NARGIFY_3(gxm_XListFontsWithInfo_w, gxm_XListFontsWithInfo) - XEN_NARGIFY_1(gxm_XGetFontPath_w, gxm_XGetFontPath) - XEN_NARGIFY_1(gxm_XListExtensions_w, gxm_XListExtensions) - XEN_NARGIFY_2(gxm_XListProperties_w, gxm_XListProperties) - XEN_NARGIFY_3(gxm_XKeycodeToKeysym_w, gxm_XKeycodeToKeysym) - XEN_NARGIFY_2(gxm_XLookupKeysym_w, gxm_XLookupKeysym) - XEN_NARGIFY_3(gxm_XGetKeyboardMapping_w, gxm_XGetKeyboardMapping) - XEN_NARGIFY_1(gxm_XStringToKeysym_w, gxm_XStringToKeysym) - XEN_NARGIFY_1(gxm_XMaxRequestSize_w, gxm_XMaxRequestSize) - XEN_NARGIFY_1(gxm_XExtendedMaxRequestSize_w, gxm_XExtendedMaxRequestSize) - XEN_NARGIFY_1(gxm_XDisplayMotionBufferSize_w, gxm_XDisplayMotionBufferSize) - XEN_NARGIFY_1(gxm_XVisualIDFromVisual_w, gxm_XVisualIDFromVisual) - XEN_NARGIFY_2(gxm_XRootWindow_w, gxm_XRootWindow) - XEN_NARGIFY_1(gxm_XDefaultRootWindow_w, gxm_XDefaultRootWindow) - XEN_NARGIFY_1(gxm_XRootWindowOfScreen_w, gxm_XRootWindowOfScreen) - XEN_NARGIFY_2(gxm_XDefaultVisual_w, gxm_XDefaultVisual) - XEN_NARGIFY_1(gxm_XDefaultVisualOfScreen_w, gxm_XDefaultVisualOfScreen) - XEN_NARGIFY_2(gxm_XDefaultGC_w, gxm_XDefaultGC) - XEN_NARGIFY_1(gxm_XDefaultGCOfScreen_w, gxm_XDefaultGCOfScreen) - XEN_NARGIFY_2(gxm_XBlackPixel_w, gxm_XBlackPixel) - XEN_NARGIFY_2(gxm_XWhitePixel_w, gxm_XWhitePixel) - XEN_NARGIFY_0(gxm_XAllPlanes_w, gxm_XAllPlanes) - XEN_NARGIFY_1(gxm_XBlackPixelOfScreen_w, gxm_XBlackPixelOfScreen) - XEN_NARGIFY_1(gxm_XWhitePixelOfScreen_w, gxm_XWhitePixelOfScreen) - XEN_NARGIFY_1(gxm_XNextRequest_w, gxm_XNextRequest) - XEN_NARGIFY_1(gxm_XLastKnownRequestProcessed_w, gxm_XLastKnownRequestProcessed) - XEN_NARGIFY_1(gxm_XServerVendor_w, gxm_XServerVendor) - XEN_NARGIFY_1(gxm_XDisplayString_w, gxm_XDisplayString) - XEN_NARGIFY_2(gxm_XDefaultColormap_w, gxm_XDefaultColormap) - XEN_NARGIFY_1(gxm_XDefaultColormapOfScreen_w, gxm_XDefaultColormapOfScreen) - XEN_NARGIFY_1(gxm_XDisplayOfScreen_w, gxm_XDisplayOfScreen) - XEN_NARGIFY_2(gxm_XScreenOfDisplay_w, gxm_XScreenOfDisplay) - XEN_NARGIFY_1(gxm_XDefaultScreenOfDisplay_w, gxm_XDefaultScreenOfDisplay) - XEN_NARGIFY_1(gxm_XEventMaskOfScreen_w, gxm_XEventMaskOfScreen) - XEN_NARGIFY_1(gxm_XScreenNumberOfScreen_w, gxm_XScreenNumberOfScreen) - XEN_NARGIFY_1(gxm_XSetErrorHandler_w, gxm_XSetErrorHandler) - XEN_NARGIFY_1(gxm_XSetIOErrorHandler_w, gxm_XSetIOErrorHandler) - XEN_NARGIFY_1(gxm_XListPixmapFormats_w, gxm_XListPixmapFormats) - XEN_NARGIFY_2(gxm_XListDepths_w, gxm_XListDepths) - XEN_NARGIFY_5(gxm_XReconfigureWMWindow_w, gxm_XReconfigureWMWindow) - XEN_NARGIFY_2(gxm_XGetWMProtocols_w, gxm_XGetWMProtocols) - XEN_NARGIFY_4(gxm_XSetWMProtocols_w, gxm_XSetWMProtocols) - XEN_NARGIFY_3(gxm_XIconifyWindow_w, gxm_XIconifyWindow) - XEN_NARGIFY_3(gxm_XWithdrawWindow_w, gxm_XWithdrawWindow) - XEN_NARGIFY_2(gxm_XGetCommand_w, gxm_XGetCommand) - XEN_NARGIFY_2(gxm_XGetWMColormapWindows_w, gxm_XGetWMColormapWindows) - XEN_NARGIFY_4(gxm_XSetWMColormapWindows_w, gxm_XSetWMColormapWindows) - XEN_NARGIFY_3(gxm_XSetTransientForHint_w, gxm_XSetTransientForHint) - XEN_NARGIFY_1(gxm_XActivateScreenSaver_w, gxm_XActivateScreenSaver) - XEN_NARGIFY_3(gxm_XAllocColor_w, gxm_XAllocColor) - XEN_NARGIFY_5(gxm_XAllocColorCells_w, gxm_XAllocColorCells) - XEN_VARGIFY(gxm_XAllocColorPlanes_w, gxm_XAllocColorPlanes) - XEN_NARGIFY_5(gxm_XAllocNamedColor_w, gxm_XAllocNamedColor) - XEN_NARGIFY_3(gxm_XAllowEvents_w, gxm_XAllowEvents) - XEN_NARGIFY_1(gxm_XAutoRepeatOff_w, gxm_XAutoRepeatOff) - XEN_NARGIFY_1(gxm_XAutoRepeatOn_w, gxm_XAutoRepeatOn) - XEN_NARGIFY_2(gxm_XBell_w, gxm_XBell) - XEN_NARGIFY_1(gxm_XBitmapBitOrder_w, gxm_XBitmapBitOrder) - XEN_NARGIFY_1(gxm_XBitmapPad_w, gxm_XBitmapPad) - XEN_NARGIFY_1(gxm_XBitmapUnit_w, gxm_XBitmapUnit) - XEN_NARGIFY_1(gxm_XCellsOfScreen_w, gxm_XCellsOfScreen) - XEN_NARGIFY_4(gxm_XChangeActivePointerGrab_w, gxm_XChangeActivePointerGrab) - XEN_NARGIFY_4(gxm_XChangeGC_w, gxm_XChangeGC) - XEN_NARGIFY_3(gxm_XChangeKeyboardControl_w, gxm_XChangeKeyboardControl) - XEN_NARGIFY_5(gxm_XChangeKeyboardMapping_w, gxm_XChangeKeyboardMapping) - XEN_NARGIFY_6(gxm_XChangePointerControl_w, gxm_XChangePointerControl) - XEN_ARGIFY_8(gxm_XChangeProperty_w, gxm_XChangeProperty) - XEN_NARGIFY_4(gxm_XChangeWindowAttributes_w, gxm_XChangeWindowAttributes) - XEN_NARGIFY_3(gxm_XCheckIfEvent_w, gxm_XCheckIfEvent) - XEN_NARGIFY_2(gxm_XCheckMaskEvent_w, gxm_XCheckMaskEvent) - XEN_NARGIFY_2(gxm_XCheckTypedEvent_w, gxm_XCheckTypedEvent) - XEN_NARGIFY_3(gxm_XCheckTypedWindowEvent_w, gxm_XCheckTypedWindowEvent) - XEN_NARGIFY_3(gxm_XCheckWindowEvent_w, gxm_XCheckWindowEvent) - XEN_NARGIFY_3(gxm_XCirculateSubwindows_w, gxm_XCirculateSubwindows) - XEN_NARGIFY_2(gxm_XCirculateSubwindowsDown_w, gxm_XCirculateSubwindowsDown) - XEN_NARGIFY_2(gxm_XCirculateSubwindowsUp_w, gxm_XCirculateSubwindowsUp) - XEN_NARGIFY_7(gxm_XClearArea_w, gxm_XClearArea) - XEN_NARGIFY_2(gxm_XClearWindow_w, gxm_XClearWindow) - XEN_NARGIFY_1(gxm_XCloseDisplay_w, gxm_XCloseDisplay) - XEN_NARGIFY_4(gxm_XConfigureWindow_w, gxm_XConfigureWindow) - XEN_NARGIFY_1(gxm_XConnectionNumber_w, gxm_XConnectionNumber) - XEN_NARGIFY_6(gxm_XConvertSelection_w, gxm_XConvertSelection) - XEN_VARGIFY(gxm_XCopyArea_w, gxm_XCopyArea) - XEN_NARGIFY_4(gxm_XCopyGC_w, gxm_XCopyGC) - XEN_VARGIFY(gxm_XCopyPlane_w, gxm_XCopyPlane) - XEN_NARGIFY_2(gxm_XDefaultDepth_w, gxm_XDefaultDepth) - XEN_NARGIFY_1(gxm_XDefaultDepthOfScreen_w, gxm_XDefaultDepthOfScreen) - XEN_NARGIFY_1(gxm_XDefaultScreen_w, gxm_XDefaultScreen) - XEN_NARGIFY_3(gxm_XDefineCursor_w, gxm_XDefineCursor) - XEN_NARGIFY_3(gxm_XDeleteProperty_w, gxm_XDeleteProperty) - XEN_NARGIFY_2(gxm_XDestroyWindow_w, gxm_XDestroyWindow) - XEN_NARGIFY_2(gxm_XDestroySubwindows_w, gxm_XDestroySubwindows) - XEN_NARGIFY_1(gxm_XDoesBackingStore_w, gxm_XDoesBackingStore) - XEN_NARGIFY_1(gxm_XDoesSaveUnders_w, gxm_XDoesSaveUnders) - XEN_NARGIFY_1(gxm_XDisableAccessControl_w, gxm_XDisableAccessControl) - XEN_NARGIFY_2(gxm_XDisplayCells_w, gxm_XDisplayCells) - XEN_NARGIFY_2(gxm_XDisplayHeight_w, gxm_XDisplayHeight) - XEN_NARGIFY_2(gxm_XDisplayHeightMM_w, gxm_XDisplayHeightMM) - XEN_NARGIFY_1(gxm_XDisplayKeycodes_w, gxm_XDisplayKeycodes) - XEN_NARGIFY_2(gxm_XDisplayPlanes_w, gxm_XDisplayPlanes) - XEN_NARGIFY_2(gxm_XDisplayWidth_w, gxm_XDisplayWidth) - XEN_NARGIFY_2(gxm_XDisplayWidthMM_w, gxm_XDisplayWidthMM) - XEN_NARGIFY_9(gxm_XDrawArc_w, gxm_XDrawArc) - XEN_NARGIFY_5(gxm_XDrawArcs_w, gxm_XDrawArcs) - XEN_NARGIFY_7(gxm_XDrawImageString_w, gxm_XDrawImageString) - XEN_NARGIFY_7(gxm_XDrawLine_w, gxm_XDrawLine) - XEN_NARGIFY_6(gxm_XDrawLines_w, gxm_XDrawLines) - XEN_NARGIFY_6(gxm_XDrawLinesDirect_w, gxm_XDrawLinesDirect) - XEN_NARGIFY_1(gxm_FreeXPoints_w, gxm_FreeXPoints) - XEN_NARGIFY_1(gxm_Vector2XPoints_w, gxm_Vector2XPoints) - XEN_NARGIFY_5(gxm_XDrawPoint_w, gxm_XDrawPoint) - XEN_NARGIFY_6(gxm_XDrawPoints_w, gxm_XDrawPoints) - XEN_NARGIFY_7(gxm_XDrawRectangle_w, gxm_XDrawRectangle) - XEN_NARGIFY_5(gxm_XDrawRectangles_w, gxm_XDrawRectangles) - XEN_NARGIFY_5(gxm_XDrawSegments_w, gxm_XDrawSegments) - XEN_NARGIFY_7(gxm_XDrawString_w, gxm_XDrawString) - XEN_ARGIFY_7(gxm_XDrawText_w, gxm_XDrawText) - XEN_NARGIFY_1(gxm_XEnableAccessControl_w, gxm_XEnableAccessControl) - XEN_NARGIFY_2(gxm_XEventsQueued_w, gxm_XEventsQueued) - XEN_NARGIFY_2(gxm_XFetchName_w, gxm_XFetchName) - XEN_NARGIFY_9(gxm_XFillArc_w, gxm_XFillArc) - XEN_NARGIFY_5(gxm_XFillArcs_w, gxm_XFillArcs) - XEN_NARGIFY_7(gxm_XFillPolygon_w, gxm_XFillPolygon) - XEN_NARGIFY_7(gxm_XFillRectangle_w, gxm_XFillRectangle) - XEN_NARGIFY_5(gxm_XFillRectangles_w, gxm_XFillRectangles) - XEN_NARGIFY_1(gxm_XFlush_w, gxm_XFlush) - XEN_NARGIFY_2(gxm_XForceScreenSaver_w, gxm_XForceScreenSaver) - XEN_NARGIFY_1(gxm_XFree_w, gxm_XFree) - XEN_NARGIFY_2(gxm_XFreeColormap_w, gxm_XFreeColormap) - XEN_NARGIFY_5(gxm_XFreeColors_w, gxm_XFreeColors) - XEN_NARGIFY_2(gxm_XFreeCursor_w, gxm_XFreeCursor) - XEN_NARGIFY_1(gxm_XFreeExtensionList_w, gxm_XFreeExtensionList) - XEN_NARGIFY_2(gxm_XFreeFont_w, gxm_XFreeFont) - XEN_NARGIFY_3(gxm_XFreeFontInfo_w, gxm_XFreeFontInfo) - XEN_NARGIFY_1(gxm_XFreeFontNames_w, gxm_XFreeFontNames) - XEN_NARGIFY_1(gxm_XFreeFontPath_w, gxm_XFreeFontPath) - XEN_NARGIFY_2(gxm_XFreeGC_w, gxm_XFreeGC) - XEN_NARGIFY_1(gxm_XFreeModifiermap_w, gxm_XFreeModifiermap) - XEN_NARGIFY_2(gxm_XFreePixmap_w, gxm_XFreePixmap) - XEN_VARGIFY(gxm_XGeometry_w, gxm_XGeometry) - XEN_NARGIFY_4(gxm_XGetErrorText_w, gxm_XGetErrorText) - XEN_NARGIFY_2(gxm_XGetFontProperty_w, gxm_XGetFontProperty) - XEN_NARGIFY_3(gxm_XGetGCValues_w, gxm_XGetGCValues) - XEN_NARGIFY_0(gxm_XGCValues_w, gxm_XGCValues) - XEN_ARGIFY_1(gxm_XEvent_w, gxm_XEvent) - XEN_NARGIFY_2(gxm_XGetGeometry_w, gxm_XGetGeometry) - XEN_NARGIFY_2(gxm_XGetIconName_w, gxm_XGetIconName) - XEN_NARGIFY_1(gxm_XGetInputFocus_w, gxm_XGetInputFocus) - XEN_NARGIFY_1(gxm_XGetKeyboardControl_w, gxm_XGetKeyboardControl) - XEN_NARGIFY_1(gxm_XGetPointerControl_w, gxm_XGetPointerControl) - XEN_NARGIFY_3(gxm_XGetPointerMapping_w, gxm_XGetPointerMapping) - XEN_NARGIFY_1(gxm_XGetScreenSaver_w, gxm_XGetScreenSaver) - XEN_NARGIFY_2(gxm_XGetTransientForHint_w, gxm_XGetTransientForHint) - XEN_VARGIFY(gxm_XGetWindowProperty_w, gxm_XGetWindowProperty) - XEN_NARGIFY_2(gxm_XGetWindowAttributes_w, gxm_XGetWindowAttributes) - XEN_VARGIFY(gxm_XGrabButton_w, gxm_XGrabButton) - XEN_NARGIFY_7(gxm_XGrabKey_w, gxm_XGrabKey) - XEN_NARGIFY_6(gxm_XGrabKeyboard_w, gxm_XGrabKeyboard) - XEN_NARGIFY_9(gxm_XGrabPointer_w, gxm_XGrabPointer) - XEN_NARGIFY_1(gxm_XGrabServer_w, gxm_XGrabServer) - XEN_NARGIFY_1(gxm_XHeightMMOfScreen_w, gxm_XHeightMMOfScreen) - XEN_NARGIFY_1(gxm_XHeightOfScreen_w, gxm_XHeightOfScreen) - XEN_NARGIFY_3(gxm_XIfEvent_w, gxm_XIfEvent) - XEN_NARGIFY_1(gxm_XImageByteOrder_w, gxm_XImageByteOrder) - XEN_NARGIFY_2(gxm_XInstallColormap_w, gxm_XInstallColormap) - XEN_NARGIFY_2(gxm_XKeysymToKeycode_w, gxm_XKeysymToKeycode) - XEN_NARGIFY_2(gxm_XKillClient_w, gxm_XKillClient) - XEN_NARGIFY_5(gxm_XLookupColor_w, gxm_XLookupColor) - XEN_NARGIFY_2(gxm_XLowerWindow_w, gxm_XLowerWindow) - XEN_NARGIFY_2(gxm_XMapRaised_w, gxm_XMapRaised) - XEN_NARGIFY_2(gxm_XMapSubwindows_w, gxm_XMapSubwindows) - XEN_NARGIFY_2(gxm_XMapWindow_w, gxm_XMapWindow) - XEN_NARGIFY_2(gxm_XMaskEvent_w, gxm_XMaskEvent) - XEN_NARGIFY_1(gxm_XMaxCmapsOfScreen_w, gxm_XMaxCmapsOfScreen) - XEN_NARGIFY_1(gxm_XMinCmapsOfScreen_w, gxm_XMinCmapsOfScreen) - XEN_NARGIFY_6(gxm_XMoveResizeWindow_w, gxm_XMoveResizeWindow) - XEN_NARGIFY_4(gxm_XMoveWindow_w, gxm_XMoveWindow) - XEN_NARGIFY_1(gxm_XNextEvent_w, gxm_XNextEvent) - XEN_NARGIFY_1(gxm_XNoOp_w, gxm_XNoOp) - XEN_NARGIFY_4(gxm_XParseColor_w, gxm_XParseColor) - XEN_NARGIFY_1(gxm_XParseGeometry_w, gxm_XParseGeometry) - XEN_NARGIFY_1(gxm_XPeekEvent_w, gxm_XPeekEvent) - XEN_NARGIFY_3(gxm_XPeekIfEvent_w, gxm_XPeekIfEvent) - XEN_NARGIFY_1(gxm_XPending_w, gxm_XPending) - XEN_NARGIFY_1(gxm_XPlanesOfScreen_w, gxm_XPlanesOfScreen) - XEN_NARGIFY_1(gxm_XProtocolRevision_w, gxm_XProtocolRevision) - XEN_NARGIFY_1(gxm_XProtocolVersion_w, gxm_XProtocolVersion) - XEN_NARGIFY_2(gxm_XPutBackEvent_w, gxm_XPutBackEvent) - XEN_VARGIFY(gxm_XPutImage_w, gxm_XPutImage) - XEN_NARGIFY_1(gxm_XQLength_w, gxm_XQLength) - XEN_NARGIFY_4(gxm_XQueryBestCursor_w, gxm_XQueryBestCursor) - XEN_NARGIFY_5(gxm_XQueryBestSize_w, gxm_XQueryBestSize) - XEN_NARGIFY_4(gxm_XQueryBestStipple_w, gxm_XQueryBestStipple) - XEN_NARGIFY_4(gxm_XQueryBestTile_w, gxm_XQueryBestTile) - XEN_NARGIFY_3(gxm_XQueryColor_w, gxm_XQueryColor) - XEN_ARGIFY_4(gxm_XQueryColors_w, gxm_XQueryColors) - XEN_NARGIFY_2(gxm_XQueryExtension_w, gxm_XQueryExtension) - XEN_NARGIFY_1(gxm_XQueryKeymap_w, gxm_XQueryKeymap) - XEN_NARGIFY_2(gxm_XQueryPointer_w, gxm_XQueryPointer) - XEN_NARGIFY_3(gxm_XQueryTextExtents_w, gxm_XQueryTextExtents) - XEN_NARGIFY_2(gxm_XQueryTree_w, gxm_XQueryTree) - XEN_NARGIFY_2(gxm_XRaiseWindow_w, gxm_XRaiseWindow) - XEN_NARGIFY_3(gxm_XReadBitmapFile_w, gxm_XReadBitmapFile) - XEN_NARGIFY_1(gxm_XReadBitmapFileData_w, gxm_XReadBitmapFileData) - XEN_NARGIFY_6(gxm_XRebindKeysym_w, gxm_XRebindKeysym) - XEN_NARGIFY_4(gxm_XRecolorCursor_w, gxm_XRecolorCursor) - XEN_NARGIFY_1(gxm_XRefreshKeyboardMapping_w, gxm_XRefreshKeyboardMapping) - XEN_NARGIFY_5(gxm_XReparentWindow_w, gxm_XReparentWindow) - XEN_NARGIFY_1(gxm_XResetScreenSaver_w, gxm_XResetScreenSaver) - XEN_NARGIFY_4(gxm_XResizeWindow_w, gxm_XResizeWindow) - XEN_NARGIFY_3(gxm_XRestackWindows_w, gxm_XRestackWindows) - XEN_NARGIFY_2(gxm_XRotateBuffers_w, gxm_XRotateBuffers) - XEN_NARGIFY_5(gxm_XRotateWindowProperties_w, gxm_XRotateWindowProperties) - XEN_NARGIFY_1(gxm_XScreenCount_w, gxm_XScreenCount) - XEN_NARGIFY_3(gxm_XSelectInput_w, gxm_XSelectInput) - XEN_NARGIFY_5(gxm_XSendEvent_w, gxm_XSendEvent) - XEN_NARGIFY_2(gxm_XSetAccessControl_w, gxm_XSetAccessControl) - XEN_NARGIFY_3(gxm_XSetArcMode_w, gxm_XSetArcMode) - XEN_NARGIFY_3(gxm_XSetBackground_w, gxm_XSetBackground) - XEN_NARGIFY_3(gxm_XSetClipMask_w, gxm_XSetClipMask) - XEN_NARGIFY_4(gxm_XSetClipOrigin_w, gxm_XSetClipOrigin) - XEN_NARGIFY_7(gxm_XSetClipRectangles_w, gxm_XSetClipRectangles) - XEN_NARGIFY_2(gxm_XSetCloseDownMode_w, gxm_XSetCloseDownMode) - XEN_NARGIFY_4(gxm_XSetCommand_w, gxm_XSetCommand) - XEN_ARGIFY_5(gxm_XSetDashes_w, gxm_XSetDashes) - XEN_NARGIFY_3(gxm_XSetFillRule_w, gxm_XSetFillRule) - XEN_NARGIFY_3(gxm_XSetFillStyle_w, gxm_XSetFillStyle) - XEN_NARGIFY_3(gxm_XSetFont_w, gxm_XSetFont) - XEN_NARGIFY_3(gxm_XSetFontPath_w, gxm_XSetFontPath) - XEN_NARGIFY_3(gxm_XSetForeground_w, gxm_XSetForeground) - XEN_NARGIFY_3(gxm_XSetFunction_w, gxm_XSetFunction) - XEN_NARGIFY_3(gxm_XSetGraphicsExposures_w, gxm_XSetGraphicsExposures) - XEN_NARGIFY_3(gxm_XSetIconName_w, gxm_XSetIconName) - XEN_NARGIFY_4(gxm_XSetInputFocus_w, gxm_XSetInputFocus) - XEN_NARGIFY_6(gxm_XSetLineAttributes_w, gxm_XSetLineAttributes) - XEN_NARGIFY_2(gxm_XSetModifierMapping_w, gxm_XSetModifierMapping) - XEN_NARGIFY_3(gxm_XSetPlaneMask_w, gxm_XSetPlaneMask) - XEN_ARGIFY_3(gxm_XSetPointerMapping_w, gxm_XSetPointerMapping) - XEN_NARGIFY_5(gxm_XSetScreenSaver_w, gxm_XSetScreenSaver) - XEN_NARGIFY_4(gxm_XSetSelectionOwner_w, gxm_XSetSelectionOwner) - XEN_NARGIFY_6(gxm_XSetState_w, gxm_XSetState) - XEN_NARGIFY_3(gxm_XSetStipple_w, gxm_XSetStipple) - XEN_NARGIFY_3(gxm_XSetSubwindowMode_w, gxm_XSetSubwindowMode) - XEN_NARGIFY_4(gxm_XSetTSOrigin_w, gxm_XSetTSOrigin) - XEN_NARGIFY_3(gxm_XSetTile_w, gxm_XSetTile) - XEN_NARGIFY_3(gxm_XSetWindowBackground_w, gxm_XSetWindowBackground) - XEN_NARGIFY_3(gxm_XSetWindowBackgroundPixmap_w, gxm_XSetWindowBackgroundPixmap) - XEN_NARGIFY_3(gxm_XSetWindowBorder_w, gxm_XSetWindowBorder) - XEN_NARGIFY_3(gxm_XSetWindowBorderPixmap_w, gxm_XSetWindowBorderPixmap) - XEN_NARGIFY_3(gxm_XSetWindowBorderWidth_w, gxm_XSetWindowBorderWidth) - XEN_NARGIFY_3(gxm_XSetWindowColormap_w, gxm_XSetWindowColormap) - XEN_NARGIFY_4(gxm_XStoreBuffer_w, gxm_XStoreBuffer) - XEN_NARGIFY_3(gxm_XStoreBytes_w, gxm_XStoreBytes) - XEN_NARGIFY_3(gxm_XStoreColor_w, gxm_XStoreColor) - XEN_NARGIFY_4(gxm_XStoreColors_w, gxm_XStoreColors) - XEN_NARGIFY_3(gxm_XStoreName_w, gxm_XStoreName) - XEN_NARGIFY_5(gxm_XStoreNamedColor_w, gxm_XStoreNamedColor) - XEN_NARGIFY_2(gxm_XSync_w, gxm_XSync) - XEN_NARGIFY_3(gxm_XTextExtents_w, gxm_XTextExtents) - XEN_NARGIFY_3(gxm_XTextWidth_w, gxm_XTextWidth) - XEN_NARGIFY_5(gxm_XTranslateCoordinates_w, gxm_XTranslateCoordinates) - XEN_NARGIFY_2(gxm_XUndefineCursor_w, gxm_XUndefineCursor) - XEN_NARGIFY_4(gxm_XUngrabButton_w, gxm_XUngrabButton) - XEN_NARGIFY_4(gxm_XUngrabKey_w, gxm_XUngrabKey) - XEN_NARGIFY_2(gxm_XUngrabKeyboard_w, gxm_XUngrabKeyboard) - XEN_NARGIFY_2(gxm_XUngrabPointer_w, gxm_XUngrabPointer) - XEN_NARGIFY_1(gxm_XUngrabServer_w, gxm_XUngrabServer) - XEN_NARGIFY_2(gxm_XUninstallColormap_w, gxm_XUninstallColormap) - XEN_NARGIFY_2(gxm_XUnloadFont_w, gxm_XUnloadFont) - XEN_NARGIFY_2(gxm_XUnmapSubwindows_w, gxm_XUnmapSubwindows) - XEN_NARGIFY_2(gxm_XUnmapWindow_w, gxm_XUnmapWindow) - XEN_NARGIFY_1(gxm_XVendorRelease_w, gxm_XVendorRelease) - XEN_NARGIFY_9(gxm_XWarpPointer_w, gxm_XWarpPointer) - XEN_NARGIFY_1(gxm_XWidthMMOfScreen_w, gxm_XWidthMMOfScreen) - XEN_NARGIFY_1(gxm_XWidthOfScreen_w, gxm_XWidthOfScreen) - XEN_NARGIFY_3(gxm_XWindowEvent_w, gxm_XWindowEvent) - XEN_NARGIFY_7(gxm_XWriteBitmapFile_w, gxm_XWriteBitmapFile) - XEN_NARGIFY_0(gxm_XSupportsLocale_w, gxm_XSupportsLocale) - XEN_NARGIFY_1(gxm_XSetLocaleModifiers_w, gxm_XSetLocaleModifiers) - XEN_NARGIFY_2(gxm_XCreateFontSet_w, gxm_XCreateFontSet) - XEN_NARGIFY_2(gxm_XFreeFontSet_w, gxm_XFreeFontSet) - XEN_NARGIFY_1(gxm_XFontsOfFontSet_w, gxm_XFontsOfFontSet) - XEN_NARGIFY_1(gxm_XBaseFontNameListOfFontSet_w, gxm_XBaseFontNameListOfFontSet) - XEN_NARGIFY_1(gxm_XLocaleOfFontSet_w, gxm_XLocaleOfFontSet) - XEN_NARGIFY_1(gxm_XContextDependentDrawing_w, gxm_XContextDependentDrawing) - XEN_NARGIFY_1(gxm_XDirectionalDependentDrawing_w, gxm_XDirectionalDependentDrawing) - XEN_NARGIFY_1(gxm_XContextualDrawing_w, gxm_XContextualDrawing) - XEN_NARGIFY_2(gxm_XFilterEvent_w, gxm_XFilterEvent) - XEN_NARGIFY_0(gxm_XAllocIconSize_w, gxm_XAllocIconSize) - XEN_NARGIFY_0(gxm_XAllocStandardColormap_w, gxm_XAllocStandardColormap) - XEN_NARGIFY_0(gxm_XAllocWMHints_w, gxm_XAllocWMHints) - XEN_NARGIFY_1(gxm_XClipBox_w, gxm_XClipBox) - XEN_NARGIFY_0(gxm_XCreateRegion_w, gxm_XCreateRegion) - XEN_NARGIFY_0(gxm_XDefaultString_w, gxm_XDefaultString) - XEN_NARGIFY_3(gxm_XDeleteContext_w, gxm_XDeleteContext) - XEN_NARGIFY_1(gxm_XDestroyRegion_w, gxm_XDestroyRegion) - XEN_NARGIFY_1(gxm_XEmptyRegion_w, gxm_XEmptyRegion) - XEN_NARGIFY_2(gxm_XEqualRegion_w, gxm_XEqualRegion) - XEN_NARGIFY_3(gxm_XFindContext_w, gxm_XFindContext) - XEN_NARGIFY_2(gxm_XGetIconSizes_w, gxm_XGetIconSizes) - XEN_NARGIFY_3(gxm_XGetRGBColormaps_w, gxm_XGetRGBColormaps) - XEN_NARGIFY_3(gxm_XGetVisualInfo_w, gxm_XGetVisualInfo) - XEN_NARGIFY_2(gxm_XGetWMHints_w, gxm_XGetWMHints) - XEN_NARGIFY_3(gxm_XIntersectRegion_w, gxm_XIntersectRegion) - XEN_NARGIFY_1(gxm_XConvertCase_w, gxm_XConvertCase) - XEN_NARGIFY_1(gxm_XLookupString_w, gxm_XLookupString) - XEN_NARGIFY_4(gxm_XMatchVisualInfo_w, gxm_XMatchVisualInfo) - XEN_NARGIFY_3(gxm_XOffsetRegion_w, gxm_XOffsetRegion) - XEN_NARGIFY_3(gxm_XPointInRegion_w, gxm_XPointInRegion) - XEN_NARGIFY_3(gxm_XPolygonRegion_w, gxm_XPolygonRegion) - XEN_NARGIFY_5(gxm_XRectInRegion_w, gxm_XRectInRegion) - XEN_NARGIFY_4(gxm_XSaveContext_w, gxm_XSaveContext) - XEN_NARGIFY_0(gxm_XUniqueContext_w, gxm_XUniqueContext) - XEN_NARGIFY_5(gxm_XSetRGBColormaps_w, gxm_XSetRGBColormaps) - XEN_NARGIFY_3(gxm_XSetWMHints_w, gxm_XSetWMHints) - XEN_NARGIFY_3(gxm_XSetRegion_w, gxm_XSetRegion) - XEN_NARGIFY_8(gxm_XSetWMProperties_w, gxm_XSetWMProperties) - XEN_NARGIFY_3(gxm_XShrinkRegion_w, gxm_XShrinkRegion) - XEN_NARGIFY_3(gxm_XSubtractRegion_w, gxm_XSubtractRegion) - XEN_NARGIFY_3(gxm_XUnionRectWithRegion_w, gxm_XUnionRectWithRegion) - XEN_NARGIFY_3(gxm_XUnionRegion_w, gxm_XUnionRegion) - XEN_NARGIFY_3(gxm_XXorRegion_w, gxm_XXorRegion) - - XEN_NARGIFY_1(gxm_DefaultScreen_w, gxm_DefaultScreen) - XEN_NARGIFY_1(gxm_DefaultRootWindow_w, gxm_DefaultRootWindow) - XEN_NARGIFY_1(gxm_QLength_w, gxm_QLength) - XEN_NARGIFY_1(gxm_ScreenCount_w, gxm_ScreenCount) - XEN_NARGIFY_1(gxm_ServerVendor_w, gxm_ServerVendor) - XEN_NARGIFY_1(gxm_ProtocolVersion_w, gxm_ProtocolVersion) - XEN_NARGIFY_1(gxm_ProtocolRevision_w, gxm_ProtocolRevision) - XEN_NARGIFY_1(gxm_VendorRelease_w, gxm_VendorRelease) - XEN_NARGIFY_1(gxm_DisplayString_w, gxm_DisplayString) - XEN_NARGIFY_1(gxm_BitmapUnit_w, gxm_BitmapUnit) - XEN_NARGIFY_1(gxm_BitmapBitOrder_w, gxm_BitmapBitOrder) - XEN_NARGIFY_1(gxm_BitmapPad_w, gxm_BitmapPad) - XEN_NARGIFY_1(gxm_ImageByteOrder_w, gxm_ImageByteOrder) - XEN_NARGIFY_1(gxm_NextRequest_w, gxm_NextRequest) - XEN_NARGIFY_1(gxm_LastKnownRequestProcessed_w, gxm_LastKnownRequestProcessed) - XEN_NARGIFY_1(gxm_DefaultScreenOfDisplay_w, gxm_DefaultScreenOfDisplay) - XEN_NARGIFY_1(gxm_DisplayOfScreen_w, gxm_DisplayOfScreen) - XEN_NARGIFY_1(gxm_RootWindowOfScreen_w, gxm_RootWindowOfScreen) - XEN_NARGIFY_1(gxm_BlackPixelOfScreen_w, gxm_BlackPixelOfScreen) - XEN_NARGIFY_1(gxm_WhitePixelOfScreen_w, gxm_WhitePixelOfScreen) - XEN_NARGIFY_1(gxm_DefaultColormapOfScreen_w, gxm_DefaultColormapOfScreen) - XEN_NARGIFY_1(gxm_DefaultDepthOfScreen_w, gxm_DefaultDepthOfScreen) - XEN_NARGIFY_1(gxm_DefaultGCOfScreen_w, gxm_DefaultGCOfScreen) - XEN_NARGIFY_1(gxm_DefaultVisualOfScreen_w, gxm_DefaultVisualOfScreen) - XEN_NARGIFY_1(gxm_WidthOfScreen_w, gxm_WidthOfScreen) - XEN_NARGIFY_1(gxm_HeightOfScreen_w, gxm_HeightOfScreen) - XEN_NARGIFY_1(gxm_WidthMMOfScreen_w, gxm_WidthMMOfScreen) - XEN_NARGIFY_1(gxm_HeightMMOfScreen_w, gxm_HeightMMOfScreen) - XEN_NARGIFY_1(gxm_PlanesOfScreen_w, gxm_PlanesOfScreen) - XEN_NARGIFY_1(gxm_CellsOfScreen_w, gxm_CellsOfScreen) - XEN_NARGIFY_1(gxm_MinCmapsOfScreen_w, gxm_MinCmapsOfScreen) - XEN_NARGIFY_1(gxm_MaxCmapsOfScreen_w, gxm_MaxCmapsOfScreen) - XEN_NARGIFY_1(gxm_DoesSaveUnders_w, gxm_DoesSaveUnders) - XEN_NARGIFY_1(gxm_DoesBackingStore_w, gxm_DoesBackingStore) - XEN_NARGIFY_1(gxm_EventMaskOfScreen_w, gxm_EventMaskOfScreen) - XEN_NARGIFY_2(gxm_RootWindow_w, gxm_RootWindow) - XEN_NARGIFY_2(gxm_DefaultVisual_w, gxm_DefaultVisual) - XEN_NARGIFY_2(gxm_DefaultGC_w, gxm_DefaultGC) - XEN_NARGIFY_2(gxm_BlackPixel_w, gxm_BlackPixel) - XEN_NARGIFY_2(gxm_WhitePixel_w, gxm_WhitePixel) - XEN_NARGIFY_2(gxm_DisplayWidth_w, gxm_DisplayWidth) - XEN_NARGIFY_2(gxm_DisplayHeight_w, gxm_DisplayHeight) - XEN_NARGIFY_2(gxm_DisplayWidthMM_w, gxm_DisplayWidthMM) - XEN_NARGIFY_2(gxm_DisplayHeightMM_w, gxm_DisplayHeightMM) - XEN_NARGIFY_2(gxm_DisplayPlanes_w, gxm_DisplayPlanes) - XEN_NARGIFY_2(gxm_DisplayCells_w, gxm_DisplayCells) - XEN_NARGIFY_2(gxm_DefaultColormap_w, gxm_DefaultColormap) - XEN_NARGIFY_2(gxm_ScreenOfDisplay_w, gxm_ScreenOfDisplay) - XEN_NARGIFY_2(gxm_DefaultDepth_w, gxm_DefaultDepth) - - XEN_NARGIFY_1(gxm_IsKeypadKey_w, gxm_IsKeypadKey) - XEN_NARGIFY_1(gxm_IsPrivateKeypadKey_w, gxm_IsPrivateKeypadKey) - XEN_NARGIFY_1(gxm_IsCursorKey_w, gxm_IsCursorKey) - XEN_NARGIFY_1(gxm_IsPFKey_w, gxm_IsPFKey) - XEN_NARGIFY_1(gxm_IsFunctionKey_w, gxm_IsFunctionKey) - XEN_NARGIFY_1(gxm_IsMiscFunctionKey_w, gxm_IsMiscFunctionKey) - XEN_NARGIFY_1(gxm_IsModifierKey_w, gxm_IsModifierKey) - - XEN_NARGIFY_1(XEN_XButtonEvent_p_w, XEN_XButtonEvent_p) - XEN_NARGIFY_1(XEN_XCirculateEvent_p_w, XEN_XCirculateEvent_p) - XEN_NARGIFY_1(XEN_XCirculateRequestEvent_p_w, XEN_XCirculateRequestEvent_p) - XEN_NARGIFY_1(XEN_XClientMessageEvent_p_w, XEN_XClientMessageEvent_p) - XEN_NARGIFY_1(XEN_XColormapEvent_p_w, XEN_XColormapEvent_p) - XEN_NARGIFY_1(XEN_XConfigureEvent_p_w, XEN_XConfigureEvent_p) - XEN_NARGIFY_1(XEN_XConfigureRequestEvent_p_w, XEN_XConfigureRequestEvent_p) - XEN_NARGIFY_1(XEN_XCreateWindowEvent_p_w, XEN_XCreateWindowEvent_p) - XEN_NARGIFY_1(XEN_XCrossingEvent_p_w, XEN_XCrossingEvent_p) - XEN_NARGIFY_1(XEN_XDestroyWindowEvent_p_w, XEN_XDestroyWindowEvent_p) - XEN_NARGIFY_1(XEN_XErrorEvent_p_w, XEN_XErrorEvent_p) - XEN_NARGIFY_1(XEN_XExposeEvent_p_w, XEN_XExposeEvent_p) - XEN_NARGIFY_1(XEN_XFocusChangeEvent_p_w, XEN_XFocusChangeEvent_p) - XEN_NARGIFY_1(XEN_XGraphicsExposeEvent_p_w, XEN_XGraphicsExposeEvent_p) - XEN_NARGIFY_1(XEN_XGravityEvent_p_w, XEN_XGravityEvent_p) - XEN_NARGIFY_1(XEN_XKeyEvent_p_w, XEN_XKeyEvent_p) - XEN_NARGIFY_1(XEN_XKeymapEvent_p_w, XEN_XKeymapEvent_p) - XEN_NARGIFY_1(XEN_XMapEvent_p_w, XEN_XMapEvent_p) - XEN_NARGIFY_1(XEN_XMapRequestEvent_p_w, XEN_XMapRequestEvent_p) - XEN_NARGIFY_1(XEN_XMappingEvent_p_w, XEN_XMappingEvent_p) - XEN_NARGIFY_1(XEN_XMotionEvent_p_w, XEN_XMotionEvent_p) - XEN_NARGIFY_1(XEN_XNoExposeEvent_p_w, XEN_XNoExposeEvent_p) - XEN_NARGIFY_1(XEN_XPropertyEvent_p_w, XEN_XPropertyEvent_p) - XEN_NARGIFY_1(XEN_XReparentEvent_p_w, XEN_XReparentEvent_p) - XEN_NARGIFY_1(XEN_XResizeRequestEvent_p_w, XEN_XResizeRequestEvent_p) - XEN_NARGIFY_1(XEN_XSelectionClearEvent_p_w, XEN_XSelectionClearEvent_p) - XEN_NARGIFY_1(XEN_XSelectionEvent_p_w, XEN_XSelectionEvent_p) - XEN_NARGIFY_1(XEN_XSelectionRequestEvent_p_w, XEN_XSelectionRequestEvent_p) - XEN_NARGIFY_1(XEN_XSetWindowAttributes_p_w, XEN_XSetWindowAttributes_p) - XEN_NARGIFY_1(XEN_XUnmapEvent_p_w, XEN_XUnmapEvent_p) - XEN_NARGIFY_1(XEN_XVisibilityEvent_p_w, XEN_XVisibilityEvent_p) - XEN_NARGIFY_1(XEN_XIconSize_p_w, XEN_XIconSize_p) - -#if HAVE_MOTIF - XEN_ARGIFY_4(gxm_XmCreateMessageBox_w, gxm_XmCreateMessageBox) - XEN_ARGIFY_4(gxm_XmCreateMessageDialog_w, gxm_XmCreateMessageDialog) - XEN_ARGIFY_4(gxm_XmCreateErrorDialog_w, gxm_XmCreateErrorDialog) - XEN_ARGIFY_4(gxm_XmCreateInformationDialog_w, gxm_XmCreateInformationDialog) - XEN_ARGIFY_4(gxm_XmCreateQuestionDialog_w, gxm_XmCreateQuestionDialog) - XEN_ARGIFY_4(gxm_XmCreateWarningDialog_w, gxm_XmCreateWarningDialog) - XEN_ARGIFY_4(gxm_XmCreateWorkingDialog_w, gxm_XmCreateWorkingDialog) - XEN_ARGIFY_4(gxm_XmCreateTemplateDialog_w, gxm_XmCreateTemplateDialog) - XEN_NARGIFY_2(gxm_XmMessageBoxGetChild_w, gxm_XmMessageBoxGetChild) - XEN_ARGIFY_4(gxm_XmCreateArrowButtonGadget_w, gxm_XmCreateArrowButtonGadget) - XEN_ARGIFY_4(gxm_XmCreateArrowButton_w, gxm_XmCreateArrowButton) - XEN_ARGIFY_4(gxm_XmCreateNotebook_w, gxm_XmCreateNotebook) - XEN_NARGIFY_2(gxm_XmNotebookGetPageInfo_w, gxm_XmNotebookGetPageInfo) - XEN_NARGIFY_5(gxm_XmTransferSetParameters_w, gxm_XmTransferSetParameters) - XEN_NARGIFY_2(gxm_XmTransferDone_w, gxm_XmTransferDone) - XEN_NARGIFY_5(gxm_XmTransferValue_w, gxm_XmTransferValue) - XEN_NARGIFY_1(gxm_XmTransferStartRequest_w, gxm_XmTransferStartRequest) - XEN_NARGIFY_2(gxm_XmTransferSendRequest_w, gxm_XmTransferSendRequest) - XEN_ARGIFY_4(gxm_XmCreateComboBox_w, gxm_XmCreateComboBox) - XEN_ARGIFY_4(gxm_XmCreateDropDownComboBox_w, gxm_XmCreateDropDownComboBox) - XEN_ARGIFY_4(gxm_XmCreateDropDownList_w, gxm_XmCreateDropDownList) - XEN_NARGIFY_4(gxm_XmComboBoxAddItem_w, gxm_XmComboBoxAddItem) - XEN_NARGIFY_2(gxm_XmComboBoxDeletePos_w, gxm_XmComboBoxDeletePos) - XEN_NARGIFY_2(gxm_XmComboBoxSelectItem_w, gxm_XmComboBoxSelectItem) - XEN_NARGIFY_2(gxm_XmComboBoxSetItem_w, gxm_XmComboBoxSetItem) - XEN_NARGIFY_1(gxm_XmComboBoxUpdate_w, gxm_XmComboBoxUpdate) - XEN_ARGIFY_4(gxm_XmCreateContainer_w, gxm_XmCreateContainer) - XEN_NARGIFY_2(gxm_XmContainerGetItemChildren_w, gxm_XmContainerGetItemChildren) - XEN_NARGIFY_1(gxm_XmContainerRelayout_w, gxm_XmContainerRelayout) - XEN_NARGIFY_3(gxm_XmContainerReorder_w, gxm_XmContainerReorder) - XEN_NARGIFY_2(gxm_XmContainerCut_w, gxm_XmContainerCut) - XEN_NARGIFY_2(gxm_XmContainerCopy_w, gxm_XmContainerCopy) - XEN_NARGIFY_1(gxm_XmContainerPaste_w, gxm_XmContainerPaste) - XEN_NARGIFY_2(gxm_XmContainerCopyLink_w, gxm_XmContainerCopyLink) - XEN_NARGIFY_1(gxm_XmContainerPasteLink_w, gxm_XmContainerPasteLink) - XEN_ARGIFY_4(gxm_XmCreateSpinBox_w, gxm_XmCreateSpinBox) - XEN_NARGIFY_1(gxm_XmSpinBoxValidatePosition_w, gxm_XmSpinBoxValidatePosition) - XEN_ARGIFY_4(gxm_XmCreateSimpleSpinBox_w, gxm_XmCreateSimpleSpinBox) - XEN_NARGIFY_3(gxm_XmSimpleSpinBoxAddItem_w, gxm_XmSimpleSpinBoxAddItem) - XEN_NARGIFY_2(gxm_XmSimpleSpinBoxDeletePos_w, gxm_XmSimpleSpinBoxDeletePos) - XEN_NARGIFY_2(gxm_XmSimpleSpinBoxSetItem_w, gxm_XmSimpleSpinBoxSetItem) - XEN_NARGIFY_1(gxm_XmDropSiteRegistered_w, gxm_XmDropSiteRegistered) - XEN_NARGIFY_2(gxm_XmTextFieldCopyLink_w, gxm_XmTextFieldCopyLink) - XEN_NARGIFY_1(gxm_XmTextFieldPasteLink_w, gxm_XmTextFieldPasteLink) - XEN_NARGIFY_1(gxm_XmTextGetCenterline_w, gxm_XmTextGetCenterline) - XEN_NARGIFY_3(gxm_XmToggleButtonGadgetSetValue_w, gxm_XmToggleButtonGadgetSetValue) - XEN_ARGIFY_4(gxm_XmCreateIconGadget_w, gxm_XmCreateIconGadget) - XEN_ARGIFY_4(gxm_XmCreateIconHeader_w, gxm_XmCreateIconHeader) - XEN_NARGIFY_3(gxm_XmObjectAtPoint_w, gxm_XmObjectAtPoint) - XEN_NARGIFY_4(gxm_XmConvertStringToUnits_w, gxm_XmConvertStringToUnits) - XEN_ARGIFY_4(gxm_XmCreateGrabShell_w, gxm_XmCreateGrabShell) - XEN_NARGIFY_3(gxm_XmToggleButtonSetValue_w, gxm_XmToggleButtonSetValue) - XEN_NARGIFY_1(gxm_XmTextPasteLink_w, gxm_XmTextPasteLink) - XEN_NARGIFY_2(gxm_XmTextCopyLink_w, gxm_XmTextCopyLink) - XEN_NARGIFY_7(gxm_XmScaleSetTicks_w, gxm_XmScaleSetTicks) - XEN_NARGIFY_3(gxm_XmInternAtom_w, gxm_XmInternAtom) - XEN_NARGIFY_2(gxm_XmGetAtomName_w, gxm_XmGetAtomName) - XEN_ARGIFY_4(gxm_XmCreatePanedWindow_w, gxm_XmCreatePanedWindow) - XEN_ARGIFY_4(gxm_XmCreateBulletinBoard_w, gxm_XmCreateBulletinBoard) - XEN_ARGIFY_4(gxm_XmCreateBulletinBoardDialog_w, gxm_XmCreateBulletinBoardDialog) - XEN_ARGIFY_4(gxm_XmCreateCascadeButtonGadget_w, gxm_XmCreateCascadeButtonGadget) - XEN_NARGIFY_2(gxm_XmCascadeButtonGadgetHighlight_w, gxm_XmCascadeButtonGadgetHighlight) - XEN_ARGIFY_4(gxm_XmAddProtocols_w, gxm_XmAddProtocols) - XEN_ARGIFY_4(gxm_XmRemoveProtocols_w, gxm_XmRemoveProtocols) - XEN_NARGIFY_5(gxm_XmAddProtocolCallback_w, gxm_XmAddProtocolCallback) - XEN_NARGIFY_5(gxm_XmRemoveProtocolCallback_w, gxm_XmRemoveProtocolCallback) - XEN_NARGIFY_3(gxm_XmActivateProtocol_w, gxm_XmActivateProtocol) - XEN_NARGIFY_3(gxm_XmDeactivateProtocol_w, gxm_XmDeactivateProtocol) - XEN_NARGIFY_7(gxm_XmSetProtocolHooks_w, gxm_XmSetProtocolHooks) - XEN_ARGIFY_4(gxm_XmCreateCascadeButton_w, gxm_XmCreateCascadeButton) - XEN_NARGIFY_2(gxm_XmCascadeButtonHighlight_w, gxm_XmCascadeButtonHighlight) - XEN_ARGIFY_4(gxm_XmCreatePushButtonGadget_w, gxm_XmCreatePushButtonGadget) - XEN_ARGIFY_4(gxm_XmCreatePushButton_w, gxm_XmCreatePushButton) - XEN_ARGIFY_4(gxm_XmCreateCommand_w, gxm_XmCreateCommand) - XEN_NARGIFY_2(gxm_XmCommandGetChild_w, gxm_XmCommandGetChild) - XEN_NARGIFY_2(gxm_XmCommandSetValue_w, gxm_XmCommandSetValue) - XEN_NARGIFY_2(gxm_XmCommandAppendValue_w, gxm_XmCommandAppendValue) - XEN_NARGIFY_2(gxm_XmCommandError_w, gxm_XmCommandError) - XEN_ARGIFY_4(gxm_XmCreateCommandDialog_w, gxm_XmCreateCommandDialog) - XEN_NARGIFY_2(gxm_XmMenuPosition_w, gxm_XmMenuPosition) - XEN_ARGIFY_4(gxm_XmCreateRowColumn_w, gxm_XmCreateRowColumn) - XEN_ARGIFY_4(gxm_XmCreateWorkArea_w, gxm_XmCreateWorkArea) - XEN_ARGIFY_4(gxm_XmCreateRadioBox_w, gxm_XmCreateRadioBox) - XEN_ARGIFY_4(gxm_XmCreateOptionMenu_w, gxm_XmCreateOptionMenu) - XEN_NARGIFY_1(gxm_XmOptionLabelGadget_w, gxm_XmOptionLabelGadget) - XEN_NARGIFY_1(gxm_XmOptionButtonGadget_w, gxm_XmOptionButtonGadget) - XEN_ARGIFY_4(gxm_XmCreateMenuBar_w, gxm_XmCreateMenuBar) - XEN_ARGIFY_4(gxm_XmCreatePopupMenu_w, gxm_XmCreatePopupMenu) - XEN_ARGIFY_4(gxm_XmCreatePulldownMenu_w, gxm_XmCreatePulldownMenu) - XEN_NARGIFY_1(gxm_XmGetPostedFromWidget_w, gxm_XmGetPostedFromWidget) - XEN_NARGIFY_1(gxm_XmGetTearOffControl_w, gxm_XmGetTearOffControl) - XEN_NARGIFY_2(gxm_XmScaleSetValue_w, gxm_XmScaleSetValue) - XEN_NARGIFY_1(gxm_XmScaleGetValue_w, gxm_XmScaleGetValue) - XEN_ARGIFY_4(gxm_XmCreateScale_w, gxm_XmCreateScale) - XEN_NARGIFY_5(gxm_XmClipboardBeginCopy_w, gxm_XmClipboardBeginCopy) - XEN_NARGIFY_6(gxm_XmClipboardStartCopy_w, gxm_XmClipboardStartCopy) - XEN_NARGIFY_7(gxm_XmClipboardCopy_w, gxm_XmClipboardCopy) - XEN_NARGIFY_3(gxm_XmClipboardEndCopy_w, gxm_XmClipboardEndCopy) - XEN_NARGIFY_3(gxm_XmClipboardCancelCopy_w, gxm_XmClipboardCancelCopy) - XEN_NARGIFY_3(gxm_XmClipboardWithdrawFormat_w, gxm_XmClipboardWithdrawFormat) - XEN_NARGIFY_6(gxm_XmClipboardCopyByName_w, gxm_XmClipboardCopyByName) - XEN_NARGIFY_2(gxm_XmClipboardUndoCopy_w, gxm_XmClipboardUndoCopy) - XEN_NARGIFY_2(gxm_XmClipboardLock_w, gxm_XmClipboardLock) - XEN_NARGIFY_3(gxm_XmClipboardUnlock_w, gxm_XmClipboardUnlock) - XEN_NARGIFY_3(gxm_XmClipboardStartRetrieve_w, gxm_XmClipboardStartRetrieve) - XEN_NARGIFY_2(gxm_XmClipboardEndRetrieve_w, gxm_XmClipboardEndRetrieve) - XEN_NARGIFY_4(gxm_XmClipboardRetrieve_w, gxm_XmClipboardRetrieve) - XEN_NARGIFY_2(gxm_XmClipboardInquireCount_w, gxm_XmClipboardInquireCount) - XEN_NARGIFY_4(gxm_XmClipboardInquireFormat_w, gxm_XmClipboardInquireFormat) - XEN_NARGIFY_3(gxm_XmClipboardInquireLength_w, gxm_XmClipboardInquireLength) - XEN_NARGIFY_3(gxm_XmClipboardInquirePendingItems_w, gxm_XmClipboardInquirePendingItems) - XEN_NARGIFY_3(gxm_XmClipboardRegisterFormat_w, gxm_XmClipboardRegisterFormat) -#if HAVE_XmToolTipGetLabel - XEN_NARGIFY_1(gxm_XmToolTipGetLabel_w, gxm_XmToolTipGetLabel) -#endif - XEN_NARGIFY_1(gxm_XmGetXmScreen_w, gxm_XmGetXmScreen) -#if HAVE_XmCreateFontSelector - XEN_ARGIFY_4(gxm_XmCreateFontSelector_w, gxm_XmCreateFontSelector) -#endif -#if HAVE_XmCreateColorSelector - XEN_ARGIFY_4(gxm_XmCreateColorSelector_w, gxm_XmCreateColorSelector) -#endif - XEN_ARGIFY_4(gxm_XmCreateScrollBar_w, gxm_XmCreateScrollBar) - XEN_NARGIFY_1(gxm_XmScrollBarGetValues_w, gxm_XmScrollBarGetValues) - XEN_NARGIFY_6(gxm_XmScrollBarSetValues_w, gxm_XmScrollBarSetValues) - XEN_ARGIFY_4(gxm_XmCreateDialogShell_w, gxm_XmCreateDialogShell) - XEN_ARGIFY_4(gxm_XmCreateScrolledWindow_w, gxm_XmCreateScrolledWindow) - XEN_NARGIFY_4(gxm_XmScrollVisible_w, gxm_XmScrollVisible) - XEN_NARGIFY_2(gxm_XmGetDragContext_w, gxm_XmGetDragContext) - XEN_NARGIFY_1(gxm_XmGetXmDisplay_w, gxm_XmGetXmDisplay) - XEN_NARGIFY_2(gxm_XmSelectionBoxGetChild_w, gxm_XmSelectionBoxGetChild) - XEN_ARGIFY_4(gxm_XmCreateSelectionBox_w, gxm_XmCreateSelectionBox) - XEN_ARGIFY_4(gxm_XmCreateSelectionDialog_w, gxm_XmCreateSelectionDialog) - XEN_ARGIFY_4(gxm_XmCreatePromptDialog_w, gxm_XmCreatePromptDialog) - XEN_ARGIFY_4(gxm_XmDragStart_w, gxm_XmDragStart) - XEN_NARGIFY_1(gxm_XmDragCancel_w, gxm_XmDragCancel) - XEN_NARGIFY_5(gxm_XmTargetsAreCompatible_w, gxm_XmTargetsAreCompatible) - XEN_ARGIFY_4(gxm_XmCreateSeparatorGadget_w, gxm_XmCreateSeparatorGadget) - XEN_ARGIFY_4(gxm_XmCreateDragIcon_w, gxm_XmCreateDragIcon) - XEN_ARGIFY_4(gxm_XmCreateSeparator_w, gxm_XmCreateSeparator) - XEN_ARGIFY_4(gxm_XmCreateDrawingArea_w, gxm_XmCreateDrawingArea) - XEN_ARGIFY_4(gxm_XmCreateDrawnButton_w, gxm_XmCreateDrawnButton) - XEN_ARGIFY_3(gxm_XmDropSiteRegister_w, gxm_XmDropSiteRegister) - XEN_NARGIFY_1(gxm_XmDropSiteUnregister_w, gxm_XmDropSiteUnregister) - XEN_NARGIFY_1(gxm_XmDropSiteStartUpdate_w, gxm_XmDropSiteStartUpdate) - XEN_ARGIFY_3(gxm_XmDropSiteUpdate_w, gxm_XmDropSiteUpdate) - XEN_NARGIFY_1(gxm_XmDropSiteEndUpdate_w, gxm_XmDropSiteEndUpdate) - XEN_ARGIFY_3(gxm_XmDropSiteRetrieve_w, gxm_XmDropSiteRetrieve) - XEN_NARGIFY_1(gxm_XmDropSiteQueryStackingOrder_w, gxm_XmDropSiteQueryStackingOrder) - XEN_NARGIFY_3(gxm_XmDropSiteConfigureStackingOrder_w, gxm_XmDropSiteConfigureStackingOrder) - XEN_ARGIFY_3(gxm_XmDropTransferStart_w, gxm_XmDropTransferStart) - XEN_NARGIFY_2(gxm_XmDropTransferAdd_w, gxm_XmDropTransferAdd) - XEN_NARGIFY_1(gxm_XmTextFieldGetString_w, gxm_XmTextFieldGetString) - XEN_NARGIFY_3(gxm_XmTextFieldGetSubstring_w, gxm_XmTextFieldGetSubstring) - XEN_NARGIFY_1(gxm_XmTextFieldGetLastPosition_w, gxm_XmTextFieldGetLastPosition) - XEN_NARGIFY_2(gxm_XmTextFieldSetString_w, gxm_XmTextFieldSetString) - XEN_NARGIFY_4(gxm_XmTextFieldReplace_w, gxm_XmTextFieldReplace) - XEN_NARGIFY_3(gxm_XmTextFieldInsert_w, gxm_XmTextFieldInsert) - XEN_NARGIFY_2(gxm_XmTextFieldSetAddMode_w, gxm_XmTextFieldSetAddMode) - XEN_NARGIFY_1(gxm_XmTextFieldGetAddMode_w, gxm_XmTextFieldGetAddMode) - XEN_NARGIFY_1(gxm_XmTextFieldGetEditable_w, gxm_XmTextFieldGetEditable) - XEN_NARGIFY_2(gxm_XmTextFieldSetEditable_w, gxm_XmTextFieldSetEditable) - XEN_NARGIFY_1(gxm_XmTextFieldGetMaxLength_w, gxm_XmTextFieldGetMaxLength) - XEN_NARGIFY_2(gxm_XmTextFieldSetMaxLength_w, gxm_XmTextFieldSetMaxLength) - XEN_NARGIFY_1(gxm_XmTextFieldGetCursorPosition_w, gxm_XmTextFieldGetCursorPosition) - XEN_NARGIFY_1(gxm_XmTextFieldGetInsertionPosition_w, gxm_XmTextFieldGetInsertionPosition) - XEN_NARGIFY_2(gxm_XmTextFieldSetCursorPosition_w, gxm_XmTextFieldSetCursorPosition) - XEN_NARGIFY_2(gxm_XmTextFieldSetInsertionPosition_w, gxm_XmTextFieldSetInsertionPosition) - XEN_NARGIFY_1(gxm_XmTextFieldGetSelectionPosition_w, gxm_XmTextFieldGetSelectionPosition) - XEN_NARGIFY_1(gxm_XmTextFieldGetSelection_w, gxm_XmTextFieldGetSelection) - XEN_NARGIFY_1(gxm_XmTextFieldRemove_w, gxm_XmTextFieldRemove) - XEN_NARGIFY_2(gxm_XmTextFieldCopy_w, gxm_XmTextFieldCopy) - XEN_NARGIFY_2(gxm_XmTextFieldCut_w, gxm_XmTextFieldCut) - XEN_NARGIFY_1(gxm_XmTextFieldPaste_w, gxm_XmTextFieldPaste) - XEN_NARGIFY_2(gxm_XmTextFieldClearSelection_w, gxm_XmTextFieldClearSelection) - XEN_NARGIFY_4(gxm_XmTextFieldSetSelection_w, gxm_XmTextFieldSetSelection) - XEN_NARGIFY_3(gxm_XmTextFieldXYToPos_w, gxm_XmTextFieldXYToPos) - XEN_NARGIFY_2(gxm_XmTextFieldPosToXY_w, gxm_XmTextFieldPosToXY) - XEN_NARGIFY_2(gxm_XmTextFieldShowPosition_w, gxm_XmTextFieldShowPosition) - XEN_NARGIFY_4(gxm_XmTextFieldSetHighlight_w, gxm_XmTextFieldSetHighlight) - XEN_NARGIFY_1(gxm_XmTextFieldGetBaseline_w, gxm_XmTextFieldGetBaseline) - XEN_ARGIFY_4(gxm_XmCreateTextField_w, gxm_XmCreateTextField) - XEN_NARGIFY_2(gxm_XmFileSelectionBoxGetChild_w, gxm_XmFileSelectionBoxGetChild) - XEN_NARGIFY_2(gxm_XmFileSelectionDoSearch_w, gxm_XmFileSelectionDoSearch) - XEN_ARGIFY_4(gxm_XmCreateFileSelectionBox_w, gxm_XmCreateFileSelectionBox) - XEN_ARGIFY_4(gxm_XmCreateFileSelectionDialog_w, gxm_XmCreateFileSelectionDialog) - XEN_NARGIFY_4(gxm_XmTextSetHighlight_w, gxm_XmTextSetHighlight) - XEN_ARGIFY_4(gxm_XmCreateScrolledText_w, gxm_XmCreateScrolledText) - XEN_ARGIFY_4(gxm_XmCreateText_w, gxm_XmCreateText) - XEN_NARGIFY_3(gxm_XmTextGetSubstring_w, gxm_XmTextGetSubstring) - XEN_NARGIFY_1(gxm_XmTextGetString_w, gxm_XmTextGetString) - XEN_NARGIFY_1(gxm_XmTextGetLastPosition_w, gxm_XmTextGetLastPosition) - XEN_NARGIFY_2(gxm_XmTextSetString_w, gxm_XmTextSetString) - XEN_NARGIFY_4(gxm_XmTextReplace_w, gxm_XmTextReplace) - XEN_NARGIFY_3(gxm_XmTextInsert_w, gxm_XmTextInsert) - XEN_NARGIFY_2(gxm_XmTextSetAddMode_w, gxm_XmTextSetAddMode) - XEN_NARGIFY_1(gxm_XmTextGetAddMode_w, gxm_XmTextGetAddMode) - XEN_NARGIFY_1(gxm_XmTextGetEditable_w, gxm_XmTextGetEditable) - XEN_NARGIFY_2(gxm_XmTextSetEditable_w, gxm_XmTextSetEditable) - XEN_NARGIFY_1(gxm_XmTextGetMaxLength_w, gxm_XmTextGetMaxLength) - XEN_NARGIFY_2(gxm_XmTextSetMaxLength_w, gxm_XmTextSetMaxLength) - XEN_NARGIFY_1(gxm_XmTextGetTopCharacter_w, gxm_XmTextGetTopCharacter) - XEN_NARGIFY_2(gxm_XmTextSetTopCharacter_w, gxm_XmTextSetTopCharacter) - XEN_NARGIFY_1(gxm_XmTextGetCursorPosition_w, gxm_XmTextGetCursorPosition) - XEN_NARGIFY_1(gxm_XmTextGetInsertionPosition_w, gxm_XmTextGetInsertionPosition) - XEN_NARGIFY_2(gxm_XmTextSetInsertionPosition_w, gxm_XmTextSetInsertionPosition) - XEN_NARGIFY_2(gxm_XmTextSetCursorPosition_w, gxm_XmTextSetCursorPosition) - XEN_NARGIFY_1(gxm_XmTextRemove_w, gxm_XmTextRemove) - XEN_NARGIFY_2(gxm_XmTextCopy_w, gxm_XmTextCopy) - XEN_NARGIFY_2(gxm_XmTextCut_w, gxm_XmTextCut) - XEN_NARGIFY_1(gxm_XmTextPaste_w, gxm_XmTextPaste) - XEN_NARGIFY_1(gxm_XmTextGetSelection_w, gxm_XmTextGetSelection) - XEN_NARGIFY_4(gxm_XmTextSetSelection_w, gxm_XmTextSetSelection) - XEN_NARGIFY_2(gxm_XmTextClearSelection_w, gxm_XmTextClearSelection) - XEN_NARGIFY_1(gxm_XmTextGetSelectionPosition_w, gxm_XmTextGetSelectionPosition) - XEN_NARGIFY_3(gxm_XmTextXYToPos_w, gxm_XmTextXYToPos) - XEN_NARGIFY_2(gxm_XmTextPosToXY_w, gxm_XmTextPosToXY) - XEN_NARGIFY_1(gxm_XmTextGetSource_w, gxm_XmTextGetSource) - XEN_NARGIFY_4(gxm_XmTextSetSource_w, gxm_XmTextSetSource) - XEN_NARGIFY_2(gxm_XmTextShowPosition_w, gxm_XmTextShowPosition) - XEN_NARGIFY_2(gxm_XmTextScroll_w, gxm_XmTextScroll) - XEN_NARGIFY_1(gxm_XmTextGetBaseline_w, gxm_XmTextGetBaseline) - XEN_NARGIFY_1(gxm_XmTextDisableRedisplay_w, gxm_XmTextDisableRedisplay) - XEN_NARGIFY_1(gxm_XmTextEnableRedisplay_w, gxm_XmTextEnableRedisplay) - XEN_NARGIFY_4(gxm_XmTextFindString_w, gxm_XmTextFindString) - XEN_ARGIFY_4(gxm_XmCreateForm_w, gxm_XmCreateForm) - XEN_ARGIFY_4(gxm_XmCreateFormDialog_w, gxm_XmCreateFormDialog) - XEN_ARGIFY_4(gxm_XmCreateFrame_w, gxm_XmCreateFrame) - XEN_NARGIFY_1(gxm_XmToggleButtonGadgetGetState_w, gxm_XmToggleButtonGadgetGetState) - XEN_NARGIFY_3(gxm_XmToggleButtonGadgetSetState_w, gxm_XmToggleButtonGadgetSetState) - XEN_ARGIFY_4(gxm_XmCreateToggleButtonGadget_w, gxm_XmCreateToggleButtonGadget) - XEN_NARGIFY_1(gxm_XmToggleButtonGetState_w, gxm_XmToggleButtonGetState) - XEN_NARGIFY_3(gxm_XmToggleButtonSetState_w, gxm_XmToggleButtonSetState) - XEN_ARGIFY_4(gxm_XmCreateToggleButton_w, gxm_XmCreateToggleButton) - XEN_ARGIFY_4(gxm_XmCreateLabelGadget_w, gxm_XmCreateLabelGadget) - XEN_ARGIFY_4(gxm_XmCreateLabel_w, gxm_XmCreateLabel) - XEN_NARGIFY_1(gxm_XmIsMotifWMRunning_w, gxm_XmIsMotifWMRunning) - XEN_NARGIFY_3(gxm_XmListAddItem_w, gxm_XmListAddItem) - XEN_NARGIFY_4(gxm_XmListAddItems_w, gxm_XmListAddItems) - XEN_NARGIFY_4(gxm_XmListAddItemsUnselected_w, gxm_XmListAddItemsUnselected) - XEN_NARGIFY_3(gxm_XmListAddItemUnselected_w, gxm_XmListAddItemUnselected) - XEN_NARGIFY_2(gxm_XmListDeleteItem_w, gxm_XmListDeleteItem) - XEN_ARGIFY_3(gxm_XmListDeleteItems_w, gxm_XmListDeleteItems) - XEN_ARGIFY_3(gxm_XmListDeletePositions_w, gxm_XmListDeletePositions) - XEN_NARGIFY_2(gxm_XmListDeletePos_w, gxm_XmListDeletePos) - XEN_NARGIFY_3(gxm_XmListDeleteItemsPos_w, gxm_XmListDeleteItemsPos) - XEN_NARGIFY_1(gxm_XmListDeleteAllItems_w, gxm_XmListDeleteAllItems) - XEN_NARGIFY_4(gxm_XmListReplaceItems_w, gxm_XmListReplaceItems) - XEN_NARGIFY_4(gxm_XmListReplaceItemsPos_w, gxm_XmListReplaceItemsPos) - XEN_NARGIFY_4(gxm_XmListReplaceItemsUnselected_w, gxm_XmListReplaceItemsUnselected) - XEN_NARGIFY_4(gxm_XmListReplaceItemsPosUnselected_w, gxm_XmListReplaceItemsPosUnselected) - XEN_NARGIFY_4(gxm_XmListReplacePositions_w, gxm_XmListReplacePositions) - XEN_NARGIFY_3(gxm_XmListSelectItem_w, gxm_XmListSelectItem) - XEN_NARGIFY_3(gxm_XmListSelectPos_w, gxm_XmListSelectPos) - XEN_NARGIFY_2(gxm_XmListDeselectItem_w, gxm_XmListDeselectItem) - XEN_NARGIFY_2(gxm_XmListDeselectPos_w, gxm_XmListDeselectPos) - XEN_NARGIFY_1(gxm_XmListDeselectAllItems_w, gxm_XmListDeselectAllItems) - XEN_NARGIFY_2(gxm_XmListSetPos_w, gxm_XmListSetPos) - XEN_NARGIFY_2(gxm_XmListSetBottomPos_w, gxm_XmListSetBottomPos) - XEN_NARGIFY_2(gxm_XmListSetItem_w, gxm_XmListSetItem) - XEN_NARGIFY_2(gxm_XmListSetBottomItem_w, gxm_XmListSetBottomItem) - XEN_NARGIFY_2(gxm_XmListSetAddMode_w, gxm_XmListSetAddMode) - XEN_NARGIFY_2(gxm_XmListItemExists_w, gxm_XmListItemExists) - XEN_NARGIFY_2(gxm_XmListItemPos_w, gxm_XmListItemPos) - XEN_NARGIFY_1(gxm_XmListGetKbdItemPos_w, gxm_XmListGetKbdItemPos) - XEN_NARGIFY_2(gxm_XmListSetKbdItemPos_w, gxm_XmListSetKbdItemPos) - XEN_NARGIFY_2(gxm_XmListYToPos_w, gxm_XmListYToPos) - XEN_NARGIFY_2(gxm_XmListPosToBounds_w, gxm_XmListPosToBounds) - XEN_NARGIFY_2(gxm_XmListGetMatchPos_w, gxm_XmListGetMatchPos) - XEN_NARGIFY_2(gxm_XmListSetHorizPos_w, gxm_XmListSetHorizPos) - XEN_NARGIFY_1(gxm_XmListUpdateSelectedList_w, gxm_XmListUpdateSelectedList) - XEN_NARGIFY_2(gxm_XmListPosSelected_w, gxm_XmListPosSelected) - XEN_ARGIFY_4(gxm_XmCreateList_w, gxm_XmCreateList) - XEN_ARGIFY_4(gxm_XmCreateScrolledList_w, gxm_XmCreateScrolledList) - XEN_NARGIFY_3(gxm_XmTranslateKey_w, gxm_XmTranslateKey) - XEN_ARGIFY_4(gxm_XmCreateMainWindow_w, gxm_XmCreateMainWindow) - XEN_NARGIFY_2(gxm_XmInstallImage_w, gxm_XmInstallImage) - XEN_NARGIFY_1(gxm_XmUninstallImage_w, gxm_XmUninstallImage) - XEN_NARGIFY_4(gxm_XmGetPixmap_w, gxm_XmGetPixmap) - XEN_NARGIFY_5(gxm_XmGetPixmapByDepth_w, gxm_XmGetPixmapByDepth) - XEN_NARGIFY_2(gxm_XmDestroyPixmap_w, gxm_XmDestroyPixmap) - XEN_NARGIFY_1(gxm_XmUpdateDisplay_w, gxm_XmUpdateDisplay) - XEN_NARGIFY_1(gxm_XmWidgetGetBaselines_w, gxm_XmWidgetGetBaselines) - XEN_NARGIFY_2(gxm_XmRegisterSegmentEncoding_w, gxm_XmRegisterSegmentEncoding) - XEN_NARGIFY_1(gxm_XmMapSegmentEncoding_w, gxm_XmMapSegmentEncoding) - XEN_NARGIFY_1(gxm_XmCvtCTToXmString_w, gxm_XmCvtCTToXmString) - XEN_NARGIFY_1(gxm_XmCvtXmStringToCT_w, gxm_XmCvtXmStringToCT) - XEN_NARGIFY_5(gxm_XmConvertUnits_w, gxm_XmConvertUnits) - XEN_ARGIFY_4(gxm_XmCreateSimpleMenuBar_w, gxm_XmCreateSimpleMenuBar) - XEN_ARGIFY_4(gxm_XmCreateSimplePopupMenu_w, gxm_XmCreateSimplePopupMenu) - XEN_ARGIFY_4(gxm_XmCreateSimplePulldownMenu_w, gxm_XmCreateSimplePulldownMenu) - XEN_ARGIFY_4(gxm_XmCreateSimpleOptionMenu_w, gxm_XmCreateSimpleOptionMenu) - XEN_ARGIFY_4(gxm_XmCreateSimpleRadioBox_w, gxm_XmCreateSimpleRadioBox) - XEN_ARGIFY_4(gxm_XmCreateSimpleCheckBox_w, gxm_XmCreateSimpleCheckBox) - XEN_NARGIFY_3(gxm_XmVaCreateSimpleMenuBar_w, gxm_XmVaCreateSimpleMenuBar) - XEN_NARGIFY_4(gxm_XmVaCreateSimplePopupMenu_w, gxm_XmVaCreateSimplePopupMenu) - XEN_NARGIFY_5(gxm_XmVaCreateSimplePulldownMenu_w, gxm_XmVaCreateSimplePulldownMenu) - XEN_NARGIFY_7(gxm_XmVaCreateSimpleOptionMenu_w, gxm_XmVaCreateSimpleOptionMenu) - XEN_NARGIFY_5(gxm_XmVaCreateSimpleRadioBox_w, gxm_XmVaCreateSimpleRadioBox) - XEN_NARGIFY_4(gxm_XmVaCreateSimpleCheckBox_w, gxm_XmVaCreateSimpleCheckBox) - XEN_NARGIFY_3(gxm_XmTrackingEvent_w, gxm_XmTrackingEvent) - XEN_NARGIFY_1(gxm_XmSetColorCalculation_w, gxm_XmSetColorCalculation) - XEN_NARGIFY_0(gxm_XmGetColorCalculation_w, gxm_XmGetColorCalculation) - XEN_NARGIFY_3(gxm_XmGetColors_w, gxm_XmGetColors) - XEN_NARGIFY_2(gxm_XmChangeColor_w, gxm_XmChangeColor) - XEN_NARGIFY_2(gxm_XmStringCreate_w, gxm_XmStringCreate) - XEN_NARGIFY_1(gxm_XmStringCreateLocalized_w, gxm_XmStringCreateLocalized) - XEN_NARGIFY_1(gxm_XmStringDirectionCreate_w, gxm_XmStringDirectionCreate) - XEN_NARGIFY_0(gxm_XmStringSeparatorCreate_w, gxm_XmStringSeparatorCreate) - XEN_NARGIFY_1(gxm_XmStringInitContext_w, gxm_XmStringInitContext) - XEN_NARGIFY_1(gxm_XmStringFreeContext_w, gxm_XmStringFreeContext) - XEN_NARGIFY_2(gxm_XmStringConcatAndFree_w, gxm_XmStringConcatAndFree) - XEN_NARGIFY_1(gxm_XmStringIsVoid_w, gxm_XmStringIsVoid) - XEN_NARGIFY_1(gxm_XmStringPeekNextTriple_w, gxm_XmStringPeekNextTriple) - XEN_NARGIFY_1(gxm_XmStringGetNextTriple_w, gxm_XmStringGetNextTriple) - XEN_NARGIFY_3(gxm_XmStringComponentCreate_w, gxm_XmStringComponentCreate) - XEN_NARGIFY_7(gxm_XmStringUnparse_w, gxm_XmStringUnparse) - XEN_NARGIFY_7(gxm_XmStringParseText_w, gxm_XmStringParseText) - XEN_NARGIFY_2(gxm_XmStringToXmStringTable_w, gxm_XmStringToXmStringTable) - XEN_NARGIFY_3(gxm_XmStringTableToXmString_w, gxm_XmStringTableToXmString) - XEN_NARGIFY_8(gxm_XmStringTableUnparse_w, gxm_XmStringTableUnparse) - XEN_NARGIFY_7(gxm_XmStringTableParseStringArray_w, gxm_XmStringTableParseStringArray) - XEN_NARGIFY_1(gxm_XmDirectionToStringDirection_w, gxm_XmDirectionToStringDirection) - XEN_NARGIFY_1(gxm_XmStringDirectionToDirection_w, gxm_XmStringDirectionToDirection) - XEN_NARGIFY_4(gxm_XmStringGenerate_w, gxm_XmStringGenerate) - XEN_NARGIFY_2(gxm_XmStringPutRendition_w, gxm_XmStringPutRendition) - XEN_ARGIFY_2(gxm_XmParseMappingCreate_w, gxm_XmParseMappingCreate) - XEN_ARGIFY_3(gxm_XmParseMappingSetValues_w, gxm_XmParseMappingSetValues) - XEN_ARGIFY_3(gxm_XmParseMappingGetValues_w, gxm_XmParseMappingGetValues) - XEN_NARGIFY_1(gxm_XmParseMappingFree_w, gxm_XmParseMappingFree) - XEN_ARGIFY_2(gxm_XmParseTableFree_w, gxm_XmParseTableFree) - XEN_NARGIFY_5(gxm_XmStringTableProposeTablist_w, gxm_XmStringTableProposeTablist) - XEN_NARGIFY_2(gxm_XmTabSetValue_w, gxm_XmTabSetValue) - XEN_NARGIFY_1(gxm_XmTabGetValues_w, gxm_XmTabGetValues) - XEN_NARGIFY_1(gxm_XmTabFree_w, gxm_XmTabFree) - XEN_NARGIFY_1(gxm_XmTabListFree_w, gxm_XmTabListFree) - XEN_NARGIFY_5(gxm_XmTabCreate_w, gxm_XmTabCreate) - XEN_NARGIFY_1(gxm_XmTabListTabCount_w, gxm_XmTabListTabCount) - XEN_ARGIFY_3(gxm_XmTabListRemoveTabs_w, gxm_XmTabListRemoveTabs) - XEN_ARGIFY_4(gxm_XmTabListReplacePositions_w, gxm_XmTabListReplacePositions) - XEN_NARGIFY_2(gxm_XmTabListGetTab_w, gxm_XmTabListGetTab) - XEN_NARGIFY_3(gxm_XmTabListCopy_w, gxm_XmTabListCopy) - XEN_NARGIFY_4(gxm_XmTabListInsertTabs_w, gxm_XmTabListInsertTabs) - XEN_NARGIFY_3(gxm_XmRenderTableCvtFromProp_w, gxm_XmRenderTableCvtFromProp) - XEN_NARGIFY_2(gxm_XmRenderTableCvtToProp_w, gxm_XmRenderTableCvtToProp) - XEN_ARGIFY_3(gxm_XmRenditionUpdate_w, gxm_XmRenditionUpdate) - XEN_ARGIFY_3(gxm_XmRenditionRetrieve_w, gxm_XmRenditionRetrieve) - XEN_NARGIFY_1(gxm_XmRenditionFree_w, gxm_XmRenditionFree) - XEN_ARGIFY_4(gxm_XmRenditionCreate_w, gxm_XmRenditionCreate) - XEN_ARGIFY_3(gxm_XmRenderTableGetRenditions_w, gxm_XmRenderTableGetRenditions) - XEN_NARGIFY_2(gxm_XmRenderTableGetRendition_w, gxm_XmRenderTableGetRendition) - XEN_NARGIFY_1(gxm_XmRenderTableGetTags_w, gxm_XmRenderTableGetTags) - XEN_NARGIFY_1(gxm_XmRenderTableFree_w, gxm_XmRenderTableFree) - XEN_ARGIFY_3(gxm_XmRenderTableCopy_w, gxm_XmRenderTableCopy) - XEN_ARGIFY_3(gxm_XmRenderTableRemoveRenditions_w, gxm_XmRenderTableRemoveRenditions) - XEN_NARGIFY_4(gxm_XmRenderTableAddRenditions_w, gxm_XmRenderTableAddRenditions) - XEN_NARGIFY_2(gxm_XmStringConcat_w, gxm_XmStringConcat) - XEN_NARGIFY_1(gxm_XmStringCopy_w, gxm_XmStringCopy) - XEN_NARGIFY_2(gxm_XmStringCompare_w, gxm_XmStringCompare) - XEN_NARGIFY_1(gxm_XmStringEmpty_w, gxm_XmStringEmpty) - XEN_NARGIFY_2(gxm_XmStringHasSubstring_w, gxm_XmStringHasSubstring) - XEN_NARGIFY_1(gxm_XmStringFree_w, gxm_XmStringFree) - XEN_NARGIFY_2(gxm_XmStringBaseline_w, gxm_XmStringBaseline) - XEN_NARGIFY_2(gxm_XmStringWidth_w, gxm_XmStringWidth) - XEN_NARGIFY_2(gxm_XmStringHeight_w, gxm_XmStringHeight) - XEN_NARGIFY_2(gxm_XmStringExtent_w, gxm_XmStringExtent) - XEN_NARGIFY_1(gxm_XmStringLineCount_w, gxm_XmStringLineCount) - XEN_VARGIFY(gxm_XmStringDraw_w, gxm_XmStringDraw) - XEN_VARGIFY(gxm_XmStringDrawImage_w, gxm_XmStringDrawImage) - XEN_VARGIFY(gxm_XmStringDrawUnderline_w, gxm_XmStringDrawUnderline) - - XEN_NARGIFY_1(gxm_XmGetDestination_w, gxm_XmGetDestination) - XEN_NARGIFY_1(gxm_XmIsTraversable_w, gxm_XmIsTraversable) - XEN_NARGIFY_1(gxm_XmGetVisibility_w, gxm_XmGetVisibility) - XEN_NARGIFY_1(gxm_XmGetTabGroup_w, gxm_XmGetTabGroup) - XEN_NARGIFY_1(gxm_XmGetFocusWidget_w, gxm_XmGetFocusWidget) - XEN_NARGIFY_2(gxm_XmProcessTraversal_w, gxm_XmProcessTraversal) - XEN_ARGIFY_4(gxm_XmCreateMenuShell_w, gxm_XmCreateMenuShell) - - XEN_NARGIFY_1(gxm_XmIsMessageBox_w, gxm_XmIsMessageBox) - XEN_NARGIFY_1(gxm_XmIsArrowButtonGadget_w, gxm_XmIsArrowButtonGadget) - XEN_NARGIFY_1(gxm_XmIsArrowButton_w, gxm_XmIsArrowButton) - XEN_NARGIFY_1(gxm_XmCvtXmStringToByteStream_w, gxm_XmCvtXmStringToByteStream) - XEN_NARGIFY_1(gxm_XmCvtByteStreamToXmString_w, gxm_XmCvtByteStreamToXmString) - XEN_NARGIFY_1(gxm_XmStringByteStreamLength_w, gxm_XmStringByteStreamLength) - XEN_NARGIFY_1(gxm_XmIsNotebook_w, gxm_XmIsNotebook) - XEN_NARGIFY_1(gxm_XmIsComboBox_w, gxm_XmIsComboBox) - XEN_NARGIFY_1(gxm_XmIsContainer_w, gxm_XmIsContainer) - XEN_NARGIFY_1(gxm_XmIsGrabShell_w, gxm_XmIsGrabShell) - XEN_NARGIFY_1(gxm_XmIsIconGadget_w, gxm_XmIsIconGadget) - XEN_NARGIFY_1(gxm_XmIsIconHeader_w, gxm_XmIsIconHeader) - XEN_NARGIFY_1(gxm_XmIsPanedWindow_w, gxm_XmIsPanedWindow) - XEN_NARGIFY_1(gxm_XmIsBulletinBoard_w, gxm_XmIsBulletinBoard) - XEN_NARGIFY_1(gxm_XmIsPrimitive_w, gxm_XmIsPrimitive) - XEN_NARGIFY_1(gxm_XmIsCascadeButtonGadget_w, gxm_XmIsCascadeButtonGadget) - XEN_NARGIFY_1(gxm_XmIsCascadeButton_w, gxm_XmIsCascadeButton) - XEN_NARGIFY_1(gxm_XmIsPushButtonGadget_w, gxm_XmIsPushButtonGadget) - XEN_NARGIFY_1(gxm_XmIsPushButton_w, gxm_XmIsPushButton) - XEN_NARGIFY_1(gxm_XmIsCommand_w, gxm_XmIsCommand) - XEN_NARGIFY_1(gxm_XmIsRowColumn_w, gxm_XmIsRowColumn) - XEN_NARGIFY_1(gxm_XmIsScale_w, gxm_XmIsScale) - XEN_NARGIFY_1(gxm_XmIsScreen_w, gxm_XmIsScreen) - XEN_NARGIFY_1(gxm_XmIsScrollBar_w, gxm_XmIsScrollBar) - XEN_NARGIFY_1(gxm_XmIsDialogShell_w, gxm_XmIsDialogShell) - XEN_NARGIFY_1(gxm_XmIsScrolledWindow_w, gxm_XmIsScrolledWindow) - XEN_NARGIFY_1(gxm_XmIsDisplay_w, gxm_XmIsDisplay) - XEN_NARGIFY_1(gxm_XmIsSelectionBox_w, gxm_XmIsSelectionBox) - XEN_NARGIFY_1(gxm_XmIsDragContext_w, gxm_XmIsDragContext) - XEN_NARGIFY_1(gxm_XmIsSeparatorGadget_w, gxm_XmIsSeparatorGadget) - XEN_NARGIFY_1(gxm_XmIsDragIconObjectClass_w, gxm_XmIsDragIconObjectClass) - XEN_NARGIFY_1(gxm_XmIsSeparator_w, gxm_XmIsSeparator) - XEN_NARGIFY_1(gxm_XmIsDrawingArea_w, gxm_XmIsDrawingArea) - XEN_NARGIFY_1(gxm_XmIsDrawnButton_w, gxm_XmIsDrawnButton) - XEN_NARGIFY_1(gxm_XmIsDropSiteManager_w, gxm_XmIsDropSiteManager) - XEN_NARGIFY_1(gxm_XmIsDropTransfer_w, gxm_XmIsDropTransfer) - XEN_NARGIFY_1(gxm_XmIsTextField_w, gxm_XmIsTextField) - XEN_NARGIFY_1(gxm_XmIsFileSelectionBox_w, gxm_XmIsFileSelectionBox) - XEN_NARGIFY_1(gxm_XmIsText_w, gxm_XmIsText) - XEN_NARGIFY_1(gxm_XmIsForm_w, gxm_XmIsForm) - XEN_NARGIFY_1(gxm_XmIsFrame_w, gxm_XmIsFrame) - XEN_NARGIFY_1(gxm_XmIsGadget_w, gxm_XmIsGadget) - XEN_NARGIFY_1(gxm_XmIsToggleButtonGadget_w, gxm_XmIsToggleButtonGadget) - XEN_NARGIFY_1(gxm_XmIsToggleButton_w, gxm_XmIsToggleButton) - XEN_NARGIFY_1(gxm_XmIsLabelGadget_w, gxm_XmIsLabelGadget) - XEN_NARGIFY_1(gxm_XmIsLabel_w, gxm_XmIsLabel) - XEN_NARGIFY_1(gxm_XmIsVendorShell_w, gxm_XmIsVendorShell) - XEN_NARGIFY_1(gxm_XmIsList_w, gxm_XmIsList) - XEN_NARGIFY_1(gxm_XmIsMainWindow_w, gxm_XmIsMainWindow) - XEN_NARGIFY_1(gxm_XmIsManager_w, gxm_XmIsManager) - XEN_NARGIFY_1(gxm_XmIsMenuShell_w, gxm_XmIsMenuShell) - XEN_NARGIFY_1(gxm_XmListGetSelectedPos_w, gxm_XmListGetSelectedPos) - XEN_NARGIFY_1(gxm_XmWidgetGetDisplayRect_w, gxm_XmWidgetGetDisplayRect) - -#if HAVE_XmCreateButtonBox - XEN_NARGIFY_1(gxm_XmIsButtonBox_w, gxm_XmIsButtonBox) - XEN_ARGIFY_4(gxm_XmCreateButtonBox_w, gxm_XmCreateButtonBox) -#endif -#if HAVE_XmCreateTabStack - XEN_ARGIFY_4(gxm_XmCreateTabStack_w, gxm_XmCreateTabStack) - XEN_NARGIFY_1(gxm_XmIsTabStack_w, gxm_XmIsTabStack) - XEN_NARGIFY_1(gxm_XmTabStackGetSelectedTab_w, gxm_XmTabStackGetSelectedTab) - XEN_NARGIFY_2(gxm_XmTabStackSelectTab_w, gxm_XmTabStackSelectTab) -#if HAVE_XmTabStackXYToWidget - XEN_NARGIFY_2(gxm_XmTabStackIndexToWidget_w, gxm_XmTabStackIndexToWidget) - XEN_NARGIFY_3(gxm_XmTabStackXYToWidget_w, gxm_XmTabStackXYToWidget) -#endif -#endif -#if HAVE_XmCreateDataField - XEN_NARGIFY_1(gxm_XmIsDataField_w, gxm_XmIsDataField) - XEN_ARGIFY_4(gxm_XmCreateDataField_w, gxm_XmCreateDataField) - XEN_NARGIFY_2(gxm_XmDataFieldSetString_w, gxm_XmDataFieldSetString) - XEN_NARGIFY_1(gxm_XmDataFieldGetString_w, gxm_XmDataFieldGetString) - XEN_NARGIFY_4(gxm_XmDataFieldSetHighlight_w, gxm_XmDataFieldSetHighlight) - XEN_NARGIFY_2(gxm_XmDataFieldSetAddMode_w, gxm_XmDataFieldSetAddMode) - XEN_NARGIFY_1(gxm_XmDataFieldGetSelection_w, gxm_XmDataFieldGetSelection) - XEN_NARGIFY_4(gxm_XmDataFieldSetSelection_w, gxm_XmDataFieldSetSelection) - XEN_NARGIFY_1(gxm_XmDataFieldGetSelectionPosition_w, gxm_XmDataFieldGetSelectionPosition) - XEN_NARGIFY_3(gxm_XmDataFieldXYToPos_w, gxm_XmDataFieldXYToPos) - XEN_NARGIFY_2(gxm_XmDataFieldShowPosition_w, gxm_XmDataFieldShowPosition) - XEN_NARGIFY_2(gxm_XmDataFieldCut_w, gxm_XmDataFieldCut) - XEN_NARGIFY_2(gxm_XmDataFieldCopy_w, gxm_XmDataFieldCopy) - XEN_NARGIFY_1(gxm_XmDataFieldPaste_w, gxm_XmDataFieldPaste) - XEN_NARGIFY_2(gxm_XmDataFieldSetEditable_w, gxm_XmDataFieldSetEditable) - XEN_NARGIFY_2(gxm_XmDataFieldSetInsertionPosition_w, gxm_XmDataFieldSetInsertionPosition) -#endif -#if HAVE_XmCreateColumn - XEN_ARGIFY_4(gxm_XmCreateColumn_w, gxm_XmCreateColumn) - XEN_NARGIFY_1(gxm_XmIsColumn_w, gxm_XmIsColumn) -#if HAVE_XmColumnGetChildLabel - XEN_NARGIFY_1(gxm_XmColumnGetChildLabel_w, gxm_XmColumnGetChildLabel) -#endif -#endif -#if HAVE_XmCreateDropDown - XEN_NARGIFY_1(gxm_XmIsDropDown_w, gxm_XmIsDropDown) - XEN_NARGIFY_1(gxm_XmDropDownGetValue_w, gxm_XmDropDownGetValue) - XEN_NARGIFY_1(gxm_XmDropDownGetList_w, gxm_XmDropDownGetList) - XEN_NARGIFY_1(gxm_XmDropDownGetText_w, gxm_XmDropDownGetText) - XEN_NARGIFY_1(gxm_XmDropDownGetArrow_w, gxm_XmDropDownGetArrow) - XEN_NARGIFY_1(gxm_XmDropDownGetLabel_w, gxm_XmDropDownGetLabel) - XEN_ARGIFY_4(gxm_XmCreateDropDown_w, gxm_XmCreateDropDown) -#endif - -#endif - - XEN_NARGIFY_4(gxm_XpmCreatePixmapFromData_w, gxm_XpmCreatePixmapFromData) - XEN_NARGIFY_4(gxm_XpmCreateDataFromPixmap_w, gxm_XpmCreateDataFromPixmap) - XEN_NARGIFY_4(gxm_XpmReadFileToPixmap_w, gxm_XpmReadFileToPixmap) - XEN_NARGIFY_1(gxm_XpmReadFileToXpmImage_w, gxm_XpmReadFileToXpmImage) - XEN_NARGIFY_5(gxm_XpmWriteFileFromPixmap_w, gxm_XpmWriteFileFromPixmap) - XEN_NARGIFY_4(gxm_XpmCreatePixmapFromXpmImage_w, gxm_XpmCreatePixmapFromXpmImage) - XEN_NARGIFY_4(gxm_XpmCreateXpmImageFromPixmap_w, gxm_XpmCreateXpmImageFromPixmap) - XEN_NARGIFY_1(gxm_XpmGetErrorString_w, gxm_XpmGetErrorString) - - XEN_NARGIFY_3(gxm_XGetPixel_w, gxm_XGetPixel) - XEN_NARGIFY_1(gxm_XDestroyImage_w, gxm_XDestroyImage) - XEN_NARGIFY_4(gxm_XPutPixel_w, gxm_XPutPixel) - XEN_NARGIFY_5(gxm_XSubImage_w, gxm_XSubImage) - XEN_NARGIFY_2(gxm_XAddPixel_w, gxm_XAddPixel) - -#if HAVE_MOTIF - XEN_NARGIFY_1(XEN_XtAppContext_p_w, XEN_XtAppContext_p) - XEN_NARGIFY_1(XEN_XtRequestId_p_w, XEN_XtRequestId_p) - XEN_NARGIFY_1(XEN_XtWorkProcId_p_w, XEN_XtWorkProcId_p) - XEN_NARGIFY_1(XEN_XtInputId_p_w, XEN_XtInputId_p) - XEN_NARGIFY_1(XEN_XtIntervalId_p_w, XEN_XtIntervalId_p) -#endif - XEN_NARGIFY_1(XEN_Screen_p_w, XEN_Screen_p) - XEN_NARGIFY_1(XEN_XEvent_p_w, XEN_XEvent_p) - XEN_NARGIFY_1(XEN_XRectangle_p_w, XEN_XRectangle_p) - XEN_NARGIFY_1(XEN_XArc_p_w, XEN_XArc_p) - XEN_NARGIFY_1(XEN_XPoint_p_w, XEN_XPoint_p) - XEN_NARGIFY_1(XEN_XSegment_p_w, XEN_XSegment_p) - XEN_NARGIFY_1(XEN_XColor_p_w, XEN_XColor_p) - XEN_NARGIFY_1(XEN_Atom_p_w, XEN_Atom_p) - XEN_NARGIFY_1(XEN_Colormap_p_w, XEN_Colormap_p) - XEN_NARGIFY_1(XEN_XModifierKeymap_p_w, XEN_XModifierKeymap_p) - XEN_NARGIFY_1(XEN_Depth_p_w, XEN_Depth_p) - XEN_NARGIFY_1(XEN_Display_p_w, XEN_Display_p) - XEN_NARGIFY_1(XEN_Font_p_w, XEN_Font_p) - XEN_NARGIFY_1(XEN_GC_p_w, XEN_GC_p) - XEN_NARGIFY_1(XEN_KeySym_p_w, XEN_KeySym_p) - XEN_NARGIFY_1(XEN_Pixel_p_w, XEN_Pixel_p) - XEN_NARGIFY_1(XEN_Pixmap_p_w, XEN_Pixmap_p) - XEN_NARGIFY_1(XEN_Region_p_w, XEN_Region_p) - XEN_NARGIFY_1(XEN_Time_p_w, XEN_Time_p) - XEN_NARGIFY_1(XEN_Visual_p_w, XEN_Visual_p) - XEN_NARGIFY_1(XEN_Window_p_w, XEN_Window_p) -#if HAVE_MOTIF - XEN_NARGIFY_1(XEN_Widget_p_w, XEN_Widget_p) - XEN_NARGIFY_1(XEN_XmStringContext_p_w, XEN_XmStringContext_p) -#endif - XEN_NARGIFY_1(XEN_XFontProp_p_w, XEN_XFontProp_p) - XEN_NARGIFY_1(XEN_XFontSet_p_w, XEN_XFontSet_p) - XEN_NARGIFY_1(XEN_XFontStruct_p_w, XEN_XFontStruct_p) - XEN_NARGIFY_1(XEN_XGCValues_p_w, XEN_XGCValues_p) - XEN_NARGIFY_1(XEN_XImage_p_w, XEN_XImage_p) - XEN_NARGIFY_1(XEN_XVisualInfo_p_w, XEN_XVisualInfo_p) - XEN_NARGIFY_1(XEN_XWMHints_p_w, XEN_XWMHints_p) - XEN_NARGIFY_1(XEN_XWindowAttributes_p_w, XEN_XWindowAttributes_p) - XEN_NARGIFY_1(XEN_XWindowChanges_p_w, XEN_XWindowChanges_p) - XEN_NARGIFY_1(XEN_KeyCode_p_w, XEN_KeyCode_p) - XEN_NARGIFY_1(XEN_XContext_p_w, XEN_XContext_p) - XEN_NARGIFY_1(XEN_XCharStruct_p_w, XEN_XCharStruct_p) - XEN_NARGIFY_1(XEN_XTextItem_p_w, XEN_XTextItem_p) - XEN_NARGIFY_1(XEN_XStandardColormap_p_w, XEN_XStandardColormap_p) - XEN_NARGIFY_1(XEN_Cursor_p_w, XEN_Cursor_p) -#if HAVE_MOTIF - XEN_NARGIFY_1(XEN_WidgetClass_p_w, XEN_WidgetClass_p) - XEN_NARGIFY_1(XEN_XmString_p_w, XEN_XmString_p) - XEN_NARGIFY_1(XEN_XmTab_p_w, XEN_XmTab_p) - XEN_NARGIFY_1(XEN_XmRendition_p_w, XEN_XmRendition_p) - XEN_NARGIFY_1(XEN_XmRenderTable_p_w, XEN_XmRenderTable_p) - XEN_NARGIFY_1(XEN_XmTabList_p_w, XEN_XmTabList_p) - XEN_NARGIFY_1(XEN_XmParseMapping_p_w, XEN_XmParseMapping_p) - XEN_NARGIFY_1(XEN_XmTextSource_p_w, XEN_XmTextSource_p) -#endif - - XEN_NARGIFY_1(XEN_XpmAttributes_p_w, XEN_XpmAttributes_p) - XEN_NARGIFY_1(XEN_XpmImage_p_w, XEN_XpmImage_p) - XEN_NARGIFY_1(XEN_XpmColorSymbol_p_w, XEN_XpmColorSymbol_p) - -#if MUS_WITH_EDITRES - XEN_NARGIFY_4(gxm_XEditResCheckMessages_w, gxm_XEditResCheckMessages) -#endif - -#if HAVE_XSHAPEQUERYEXTENSION - XEN_NARGIFY_1(gxm_XShapeQueryExtension_w, gxm_XShapeQueryExtension) - XEN_NARGIFY_1(gxm_XShapeQueryVersion_w, gxm_XShapeQueryVersion) - XEN_NARGIFY_2(gxm_XShapeQueryExtents_w, gxm_XShapeQueryExtents) - XEN_NARGIFY_3(gxm_XShapeGetRectangles_w, gxm_XShapeGetRectangles) - XEN_NARGIFY_5(gxm_XShapeOffsetShape_w, gxm_XShapeOffsetShape) - XEN_NARGIFY_7(gxm_XShapeCombineRegion_w, gxm_XShapeCombineRegion) - XEN_NARGIFY_7(gxm_XShapeCombineMask_w, gxm_XShapeCombineMask) - XEN_NARGIFY_8(gxm_XShapeCombineShape_w, gxm_XShapeCombineShape) - XEN_NARGIFY_9(gxm_XShapeCombineRectangles_w, gxm_XShapeCombineRectangles) -#endif - - XEN_NARGIFY_4(gxm_XSegment_w, gxm_XSegment) - XEN_NARGIFY_4(gxm_XRectangle_w, gxm_XRectangle) - XEN_ARGIFY_6(gxm_XColor_w, gxm_XColor) - XEN_NARGIFY_6(gxm_XArc_w, gxm_XArc) - XEN_NARGIFY_7(gxm_XWindowChanges_w, gxm_XWindowChanges) - XEN_VARGIFY(gxm_XSetWindowAttributes_w, gxm_XSetWindowAttributes) - XEN_NARGIFY_2(gxm_XPoint_w, gxm_XPoint) - XEN_NARGIFY_4(gxm_XTextItem_w, gxm_XTextItem) - XEN_NARGIFY_1(gxm_pixel_w, gxm_pixel) - XEN_NARGIFY_2(gxm_set_pixel_w, gxm_set_pixel) - XEN_NARGIFY_1(gxm_red_w, gxm_red) - XEN_NARGIFY_2(gxm_set_red_w, gxm_set_red) - XEN_NARGIFY_1(gxm_green_w, gxm_green) - XEN_NARGIFY_2(gxm_set_green_w, gxm_set_green) - XEN_NARGIFY_1(gxm_blue_w, gxm_blue) - XEN_NARGIFY_2(gxm_set_blue_w, gxm_set_blue) - XEN_NARGIFY_1(gxm_flags_w, gxm_flags) - XEN_NARGIFY_2(gxm_set_flags_w, gxm_set_flags) - XEN_NARGIFY_1(gxm_pad_w, gxm_pad) - XEN_NARGIFY_2(gxm_set_pad_w, gxm_set_pad) - XEN_NARGIFY_1(gxm_x_w, gxm_x) - XEN_NARGIFY_2(gxm_set_x_w, gxm_set_x) - XEN_NARGIFY_1(gxm_y_w, gxm_y) - XEN_NARGIFY_2(gxm_set_y_w, gxm_set_y) - XEN_NARGIFY_1(gxm_width_w, gxm_width) - XEN_NARGIFY_2(gxm_set_width_w, gxm_set_width) - XEN_NARGIFY_1(gxm_height_w, gxm_height) - XEN_NARGIFY_2(gxm_set_height_w, gxm_set_height) - XEN_NARGIFY_1(gxm_angle1_w, gxm_angle1) - XEN_NARGIFY_2(gxm_set_angle1_w, gxm_set_angle1) - XEN_NARGIFY_1(gxm_angle2_w, gxm_angle2) - XEN_NARGIFY_2(gxm_set_angle2_w, gxm_set_angle2) - XEN_NARGIFY_1(gxm_x1_w, gxm_x1) - XEN_NARGIFY_2(gxm_set_x1_w, gxm_set_x1) - XEN_NARGIFY_1(gxm_y1_w, gxm_y1) - XEN_NARGIFY_2(gxm_set_y1_w, gxm_set_y1) - XEN_NARGIFY_1(gxm_x2_w, gxm_x2) - XEN_NARGIFY_2(gxm_set_x2_w, gxm_set_x2) - XEN_NARGIFY_1(gxm_y2_w, gxm_y2) - XEN_NARGIFY_2(gxm_set_y2_w, gxm_set_y2) - XEN_NARGIFY_1(gxm_dashes_w, gxm_dashes) - XEN_NARGIFY_2(gxm_set_dashes_w, gxm_set_dashes) - XEN_NARGIFY_1(gxm_dash_offset_w, gxm_dash_offset) - XEN_NARGIFY_2(gxm_set_dash_offset_w, gxm_set_dash_offset) - XEN_NARGIFY_1(gxm_clip_mask_w, gxm_clip_mask) - XEN_NARGIFY_2(gxm_set_clip_mask_w, gxm_set_clip_mask) - XEN_NARGIFY_1(gxm_clip_y_origin_w, gxm_clip_y_origin) - XEN_NARGIFY_2(gxm_set_clip_y_origin_w, gxm_set_clip_y_origin) - XEN_NARGIFY_1(gxm_clip_x_origin_w, gxm_clip_x_origin) - XEN_NARGIFY_2(gxm_set_clip_x_origin_w, gxm_set_clip_x_origin) - XEN_NARGIFY_1(gxm_graphics_exposures_w, gxm_graphics_exposures) - XEN_NARGIFY_2(gxm_set_graphics_exposures_w, gxm_set_graphics_exposures) - XEN_NARGIFY_1(gxm_subwindow_mode_w, gxm_subwindow_mode) - XEN_NARGIFY_2(gxm_set_subwindow_mode_w, gxm_set_subwindow_mode) - XEN_NARGIFY_1(gxm_font_w, gxm_font) - XEN_NARGIFY_2(gxm_set_font_w, gxm_set_font) - XEN_NARGIFY_1(gxm_ts_y_origin_w, gxm_ts_y_origin) - XEN_NARGIFY_2(gxm_set_ts_y_origin_w, gxm_set_ts_y_origin) - XEN_NARGIFY_1(gxm_ts_x_origin_w, gxm_ts_x_origin) - XEN_NARGIFY_2(gxm_set_ts_x_origin_w, gxm_set_ts_x_origin) - XEN_NARGIFY_1(gxm_stipple_w, gxm_stipple) - XEN_NARGIFY_2(gxm_set_stipple_w, gxm_set_stipple) - XEN_NARGIFY_1(gxm_tile_w, gxm_tile) - XEN_NARGIFY_2(gxm_set_tile_w, gxm_set_tile) - XEN_NARGIFY_1(gxm_arc_mode_w, gxm_arc_mode) - XEN_NARGIFY_2(gxm_set_arc_mode_w, gxm_set_arc_mode) - XEN_NARGIFY_1(gxm_fill_rule_w, gxm_fill_rule) - XEN_NARGIFY_2(gxm_set_fill_rule_w, gxm_set_fill_rule) - XEN_NARGIFY_1(gxm_fill_style_w, gxm_fill_style) - XEN_NARGIFY_2(gxm_set_fill_style_w, gxm_set_fill_style) - XEN_NARGIFY_1(gxm_join_style_w, gxm_join_style) - XEN_NARGIFY_2(gxm_set_join_style_w, gxm_set_join_style) - XEN_NARGIFY_1(gxm_cap_style_w, gxm_cap_style) - XEN_NARGIFY_2(gxm_set_cap_style_w, gxm_set_cap_style) - XEN_NARGIFY_1(gxm_line_style_w, gxm_line_style) - XEN_NARGIFY_2(gxm_set_line_style_w, gxm_set_line_style) - XEN_NARGIFY_1(gxm_line_width_w, gxm_line_width) - XEN_NARGIFY_2(gxm_set_line_width_w, gxm_set_line_width) - XEN_NARGIFY_1(gxm_background_w, gxm_background) - XEN_NARGIFY_2(gxm_set_background_w, gxm_set_background) - XEN_NARGIFY_1(gxm_foreground_w, gxm_foreground) - XEN_NARGIFY_2(gxm_set_foreground_w, gxm_set_foreground) - XEN_NARGIFY_1(gxm_plane_mask_w, gxm_plane_mask) - XEN_NARGIFY_2(gxm_set_plane_mask_w, gxm_set_plane_mask) - XEN_NARGIFY_1(gxm_function_w, gxm_function) - XEN_NARGIFY_2(gxm_set_function_w, gxm_set_function) - XEN_NARGIFY_1(gxm_delta_w, gxm_delta) - XEN_NARGIFY_2(gxm_set_delta_w, gxm_set_delta) - XEN_NARGIFY_1(gxm_nchars_w, gxm_nchars) - XEN_NARGIFY_2(gxm_set_nchars_w, gxm_set_nchars) - XEN_NARGIFY_1(gxm_chars_w, gxm_chars) - XEN_NARGIFY_2(gxm_set_chars_w, gxm_set_chars) - XEN_NARGIFY_1(gxm_name_w, gxm_name) - XEN_NARGIFY_2(gxm_set_name_w, gxm_set_name) - XEN_NARGIFY_1(gxm_depth_w, gxm_depth) - XEN_NARGIFY_2(gxm_set_depth_w, gxm_set_depth) - XEN_NARGIFY_1(gxm_visual_w, gxm_visual) - XEN_NARGIFY_2(gxm_set_visual_w, gxm_set_visual) - - XEN_NARGIFY_1(gxm_display_w, gxm_display) - XEN_NARGIFY_1(gxm_root_w, gxm_root) - XEN_NARGIFY_1(gxm_mwidth_w, gxm_mwidth) - XEN_NARGIFY_1(gxm_mheight_w, gxm_mheight) - XEN_NARGIFY_1(gxm_ndepths_w, gxm_ndepths) - XEN_NARGIFY_1(gxm_depths_w, gxm_depths) - XEN_NARGIFY_1(gxm_root_depth_w, gxm_root_depth) - XEN_NARGIFY_1(gxm_root_visual_w, gxm_root_visual) - XEN_NARGIFY_1(gxm_default_gc_w, gxm_default_gc) - XEN_NARGIFY_1(gxm_cmap_w, gxm_cmap) - XEN_NARGIFY_1(gxm_white_pixel_w, gxm_white_pixel) - XEN_NARGIFY_1(gxm_black_pixel_w, gxm_black_pixel) - XEN_NARGIFY_1(gxm_max_maps_w, gxm_max_maps) - XEN_NARGIFY_1(gxm_min_maps_w, gxm_min_maps) - XEN_NARGIFY_1(gxm_backing_store_w, gxm_backing_store) - XEN_NARGIFY_1(gxm_save_unders_w, gxm_save_unders) - XEN_NARGIFY_1(gxm_root_input_mask_w, gxm_root_input_mask) - XEN_NARGIFY_1(gxm_type_w, gxm_type) - XEN_NARGIFY_1(gxm_serial_w, gxm_serial) - XEN_NARGIFY_1(gxm_send_event_w, gxm_send_event) - XEN_NARGIFY_1(gxm_window_w, gxm_window) - XEN_NARGIFY_1(gxm_subwindow_w, gxm_subwindow) - XEN_NARGIFY_1(gxm_time_w, gxm_time) - XEN_NARGIFY_1(gxm_x_root_w, gxm_x_root) - XEN_NARGIFY_1(gxm_y_root_w, gxm_y_root) - XEN_NARGIFY_1(gxm_state_w, gxm_state) - XEN_NARGIFY_1(gxm_keycode_w, gxm_keycode) - XEN_NARGIFY_1(gxm_same_screen_w, gxm_same_screen) - XEN_NARGIFY_1(gxm_button_w, gxm_button) - XEN_NARGIFY_1(gxm_is_hint_w, gxm_is_hint) - XEN_NARGIFY_1(gxm_mode_w, gxm_mode) - XEN_NARGIFY_1(gxm_detail_w, gxm_detail) - XEN_NARGIFY_1(gxm_focus_w, gxm_focus) - XEN_NARGIFY_1(gxm_key_vector_w, gxm_key_vector) - XEN_NARGIFY_1(gxm_count_w, gxm_count) - XEN_NARGIFY_1(gxm_drawable_w, gxm_drawable) - XEN_NARGIFY_1(gxm_major_code_w, gxm_major_code) - XEN_NARGIFY_1(gxm_minor_code_w, gxm_minor_code) - XEN_NARGIFY_1(gxm_parent_w, gxm_parent) - XEN_NARGIFY_1(gxm_border_width_w, gxm_border_width) - XEN_NARGIFY_1(gxm_override_redirect_w, gxm_override_redirect) - XEN_NARGIFY_1(gxm_event_w, gxm_event) - XEN_NARGIFY_1(gxm_from_configure_w, gxm_from_configure) - XEN_NARGIFY_1(gxm_above_w, gxm_above) - XEN_NARGIFY_1(gxm_value_mask_w, gxm_value_mask) - XEN_NARGIFY_1(gxm_place_w, gxm_place) - XEN_NARGIFY_1(gxm_atom_w, gxm_atom) - XEN_NARGIFY_1(gxm_selection_w, gxm_selection) - XEN_NARGIFY_1(gxm_owner_w, gxm_owner) - XEN_NARGIFY_1(gxm_requestor_w, gxm_requestor) - XEN_NARGIFY_1(gxm_target_w, gxm_target) - XEN_NARGIFY_1(gxm_property_w, gxm_property) - XEN_NARGIFY_1(gxm_new_w, gxm_new) - XEN_NARGIFY_1(gxm_message_type_w, gxm_message_type) - XEN_NARGIFY_1(gxm_format_w, gxm_format) - XEN_NARGIFY_1(gxm_request_w, gxm_request) - XEN_NARGIFY_1(gxm_first_keycode_w, gxm_first_keycode) - XEN_NARGIFY_1(gxm_resourceid_w, gxm_resourceid) - XEN_NARGIFY_1(gxm_error_code_w, gxm_error_code) - XEN_NARGIFY_1(gxm_request_code_w, gxm_request_code) - XEN_NARGIFY_1(gxm_lbearing_w, gxm_lbearing) - XEN_NARGIFY_1(gxm_rbearing_w, gxm_rbearing) - XEN_NARGIFY_1(gxm_ascent_w, gxm_ascent) - XEN_NARGIFY_1(gxm_descent_w, gxm_descent) - XEN_NARGIFY_1(gxm_attributes_w, gxm_attributes) - XEN_NARGIFY_1(gxm_card32_w, gxm_card32) - XEN_NARGIFY_1(gxm_fid_w, gxm_fid) - XEN_NARGIFY_1(gxm_properties_w, gxm_properties) - XEN_NARGIFY_1(gxm_min_bounds_w, gxm_min_bounds) - XEN_NARGIFY_1(gxm_max_bounds_w, gxm_max_bounds) - XEN_NARGIFY_1(gxm_per_char_w, gxm_per_char) - XEN_NARGIFY_1(gxm_input_w, gxm_input) - XEN_NARGIFY_1(gxm_initial_state_w, gxm_initial_state) - XEN_NARGIFY_1(gxm_icon_pixmap_w, gxm_icon_pixmap) - XEN_NARGIFY_1(gxm_icon_window_w, gxm_icon_window) - XEN_NARGIFY_1(gxm_icon_x_w, gxm_icon_x) - XEN_NARGIFY_1(gxm_icon_y_w, gxm_icon_y) - XEN_NARGIFY_1(gxm_icon_mask_w, gxm_icon_mask) - XEN_NARGIFY_1(gxm_window_group_w, gxm_window_group) - XEN_NARGIFY_1(gxm_visualid_w, gxm_visualid) - XEN_NARGIFY_1(gxm_class_w, gxm_class) - XEN_NARGIFY_1(gxm_red_mask_w, gxm_red_mask) - XEN_NARGIFY_1(gxm_green_mask_w, gxm_green_mask) - XEN_NARGIFY_1(gxm_blue_mask_w, gxm_blue_mask) - XEN_NARGIFY_1(gxm_bits_per_rgb_w, gxm_bits_per_rgb) - XEN_NARGIFY_1(gxm_map_entries_w, gxm_map_entries) - XEN_NARGIFY_1(gxm_colormap_size_w, gxm_colormap_size) - XEN_NARGIFY_1(gxm_nvisuals_w, gxm_nvisuals) - XEN_NARGIFY_1(gxm_visuals_w, gxm_visuals) - XEN_NARGIFY_1(gxm_bits_per_pixel_w, gxm_bits_per_pixel) - XEN_NARGIFY_1(gxm_background_pixmap_w, gxm_background_pixmap) - XEN_NARGIFY_1(gxm_background_pixel_w, gxm_background_pixel) - XEN_NARGIFY_1(gxm_border_pixmap_w, gxm_border_pixmap) - XEN_NARGIFY_1(gxm_border_pixel_w, gxm_border_pixel) - XEN_NARGIFY_1(gxm_bit_gravity_w, gxm_bit_gravity) - XEN_NARGIFY_1(gxm_win_gravity_w, gxm_win_gravity) - XEN_NARGIFY_1(gxm_backing_planes_w, gxm_backing_planes) - XEN_NARGIFY_1(gxm_backing_pixel_w, gxm_backing_pixel) - XEN_NARGIFY_1(gxm_save_under_w, gxm_save_under) - XEN_NARGIFY_1(gxm_event_mask_w, gxm_event_mask) - XEN_NARGIFY_1(gxm_do_not_propagate_mask_w, gxm_do_not_propagate_mask) - XEN_NARGIFY_1(gxm_cursor_w, gxm_cursor) - XEN_NARGIFY_1(gxm_map_installed_w, gxm_map_installed) - XEN_NARGIFY_1(gxm_map_state_w, gxm_map_state) - XEN_NARGIFY_1(gxm_all_event_masks_w, gxm_all_event_masks) - XEN_NARGIFY_1(gxm_your_event_mask_w, gxm_your_event_mask) - XEN_NARGIFY_1(gxm_screen_w, gxm_screen) - XEN_NARGIFY_1(gxm_xoffset_w, gxm_xoffset) - XEN_NARGIFY_1(gxm_byte_order_w, gxm_byte_order) - XEN_NARGIFY_1(gxm_bitmap_unit_w, gxm_bitmap_unit) - XEN_NARGIFY_1(gxm_bitmap_bit_order_w, gxm_bitmap_bit_order) - XEN_NARGIFY_1(gxm_bitmap_pad_w, gxm_bitmap_pad) - XEN_NARGIFY_1(gxm_bytes_per_line_w, gxm_bytes_per_line) - XEN_NARGIFY_1(gxm_obdata_w, gxm_obdata) - XEN_NARGIFY_1(gxm_sibling_w, gxm_sibling) - XEN_NARGIFY_1(gxm_stack_mode_w, gxm_stack_mode) - - XEN_NARGIFY_1(gxm_red_max_w, gxm_red_max) - XEN_NARGIFY_1(gxm_red_mult_w, gxm_red_mult) - XEN_NARGIFY_1(gxm_green_max_w, gxm_green_max) - XEN_NARGIFY_1(gxm_green_mult_w, gxm_green_mult) - XEN_NARGIFY_1(gxm_blue_max_w, gxm_blue_max) - XEN_NARGIFY_1(gxm_blue_mult_w, gxm_blue_mult) - XEN_NARGIFY_1(gxm_base_pixel_w, gxm_base_pixel) - XEN_NARGIFY_1(gxm_killid_w, gxm_killid) - XEN_NARGIFY_1(gxm_data_w, gxm_data) - - XEN_NARGIFY_2(gxm_set_request_code_w, gxm_set_request_code) - XEN_NARGIFY_2(gxm_set_error_code_w, gxm_set_error_code) - XEN_NARGIFY_2(gxm_set_first_keycode_w, gxm_set_first_keycode) - XEN_NARGIFY_2(gxm_set_request_w, gxm_set_request) - XEN_NARGIFY_2(gxm_set_resourceid_w, gxm_set_resourceid) - XEN_NARGIFY_2(gxm_set_format_w, gxm_set_format) - XEN_NARGIFY_2(gxm_set_message_type_w, gxm_set_message_type) - XEN_NARGIFY_2(gxm_set_new_w, gxm_set_new) - XEN_NARGIFY_2(gxm_set_property_w, gxm_set_property) - XEN_NARGIFY_2(gxm_set_display_w, gxm_set_display) - XEN_NARGIFY_2(gxm_set_target_w, gxm_set_target) - XEN_NARGIFY_2(gxm_set_requestor_w, gxm_set_requestor) - XEN_NARGIFY_2(gxm_set_owner_w, gxm_set_owner) - XEN_NARGIFY_2(gxm_set_selection_w, gxm_set_selection) - XEN_NARGIFY_2(gxm_set_atom_w, gxm_set_atom) - XEN_NARGIFY_2(gxm_set_place_w, gxm_set_place) - XEN_NARGIFY_2(gxm_set_value_mask_w, gxm_set_value_mask) - XEN_NARGIFY_2(gxm_set_above_w, gxm_set_above) - XEN_NARGIFY_2(gxm_set_from_configure_w, gxm_set_from_configure) - XEN_NARGIFY_2(gxm_set_event_w, gxm_set_event) - XEN_NARGIFY_2(gxm_set_override_redirect_w, gxm_set_override_redirect) - XEN_NARGIFY_2(gxm_set_border_width_w, gxm_set_border_width) - XEN_NARGIFY_2(gxm_set_parent_w, gxm_set_parent) - XEN_NARGIFY_2(gxm_set_minor_code_w, gxm_set_minor_code) - XEN_NARGIFY_2(gxm_set_major_code_w, gxm_set_major_code) - XEN_NARGIFY_2(gxm_set_drawable_w, gxm_set_drawable) - XEN_NARGIFY_2(gxm_set_count_w, gxm_set_count) - XEN_NARGIFY_2(gxm_set_key_vector_w, gxm_set_key_vector) - XEN_NARGIFY_2(gxm_set_focus_w, gxm_set_focus) - XEN_NARGIFY_2(gxm_set_detail_w, gxm_set_detail) - XEN_NARGIFY_2(gxm_set_mode_w, gxm_set_mode) - XEN_NARGIFY_2(gxm_set_is_hint_w, gxm_set_is_hint) - XEN_NARGIFY_2(gxm_set_button_w, gxm_set_button) - XEN_NARGIFY_2(gxm_set_same_screen_w, gxm_set_same_screen) - XEN_NARGIFY_2(gxm_set_keycode_w, gxm_set_keycode) - XEN_NARGIFY_2(gxm_set_state_w, gxm_set_state) - XEN_NARGIFY_2(gxm_set_y_root_w, gxm_set_y_root) - XEN_NARGIFY_2(gxm_set_x_root_w, gxm_set_x_root) - XEN_NARGIFY_2(gxm_set_root_w, gxm_set_root) - XEN_NARGIFY_2(gxm_set_time_w, gxm_set_time) - XEN_NARGIFY_2(gxm_set_subwindow_w, gxm_set_subwindow) - XEN_NARGIFY_2(gxm_set_window_w, gxm_set_window) - XEN_NARGIFY_2(gxm_set_send_event_w, gxm_set_send_event) - XEN_NARGIFY_2(gxm_set_serial_w, gxm_set_serial) - XEN_NARGIFY_2(gxm_set_type_w, gxm_set_type) - XEN_NARGIFY_1(gxm_colormap_w, gxm_colormap) - XEN_NARGIFY_2(gxm_set_colormap_w, gxm_set_colormap) - - XEN_NARGIFY_2(gxm_set_input_w, gxm_set_input) - XEN_NARGIFY_2(gxm_set_initial_state_w, gxm_set_initial_state) - - XEN_NARGIFY_1(gxm_min_height_w, gxm_min_height) - XEN_NARGIFY_1(gxm_max_height_w, gxm_max_height) - XEN_NARGIFY_1(gxm_min_width_w, gxm_min_width) - XEN_NARGIFY_1(gxm_max_width_w, gxm_max_width) - XEN_NARGIFY_1(gxm_height_inc_w, gxm_height_inc) - XEN_NARGIFY_1(gxm_width_inc_w, gxm_width_inc) - - XEN_NARGIFY_2(gxm_set_data_w, gxm_set_data) - XEN_NARGIFY_2(gxm_set_backing_store_w, gxm_set_backing_store) - XEN_NARGIFY_2(gxm_set_background_pixel_w, gxm_set_background_pixel) - XEN_NARGIFY_2(gxm_set_border_pixel_w, gxm_set_border_pixel) - XEN_NARGIFY_2(gxm_set_bit_gravity_w, gxm_set_bit_gravity) - XEN_NARGIFY_2(gxm_set_save_under_w, gxm_set_save_under) - XEN_NARGIFY_2(gxm_set_event_mask_w, gxm_set_event_mask) - XEN_NARGIFY_2(gxm_set_cursor_w, gxm_set_cursor) - -#if HAVE_MOTIF - XEN_NARGIFY_2(gxm_set_set_w, gxm_set_set) - XEN_NARGIFY_2(gxm_set_click_count_w, gxm_set_click_count) - XEN_NARGIFY_2(gxm_set_length_w, gxm_set_length) - XEN_NARGIFY_1(gxm_ptr_w, gxm_ptr) - XEN_NARGIFY_2(gxm_set_ptr_w, gxm_set_ptr) - XEN_NARGIFY_2(gxm_set_reason_w, gxm_set_reason) - XEN_NARGIFY_1(gxm_page_number_w, gxm_page_number) - XEN_NARGIFY_1(gxm_page_widget_w, gxm_page_widget) - XEN_NARGIFY_1(gxm_status_area_widget_w, gxm_status_area_widget) - XEN_NARGIFY_1(gxm_major_tab_widget_w, gxm_major_tab_widget) - XEN_NARGIFY_1(gxm_minor_tab_widget_w, gxm_minor_tab_widget) - XEN_NARGIFY_1(gxm_source_data_w, gxm_source_data) - XEN_NARGIFY_1(gxm_location_data_w, gxm_location_data) - XEN_NARGIFY_1(gxm_parm_w, gxm_parm) - XEN_NARGIFY_1(gxm_parm_format_w, gxm_parm_format) - XEN_NARGIFY_1(gxm_parm_length_w, gxm_parm_length) - XEN_NARGIFY_1(gxm_parm_type_w, gxm_parm_type) - XEN_NARGIFY_1(gxm_transfer_id_w, gxm_transfer_id) - XEN_NARGIFY_1(gxm_destination_data_w, gxm_destination_data) - XEN_NARGIFY_1(gxm_remaining_w, gxm_remaining) - XEN_NARGIFY_1(gxm_item_or_text_w, gxm_item_or_text) - XEN_NARGIFY_1(gxm_auto_selection_type_w, gxm_auto_selection_type) - XEN_NARGIFY_1(gxm_new_outline_state_w, gxm_new_outline_state) - XEN_NARGIFY_1(gxm_prev_page_number_w, gxm_prev_page_number) - XEN_NARGIFY_1(gxm_prev_page_widget_w, gxm_prev_page_widget) - XEN_NARGIFY_1(gxm_rendition_w, gxm_rendition) - XEN_NARGIFY_1(gxm_render_table_w, gxm_render_table) - XEN_NARGIFY_1(gxm_crossed_boundary_w, gxm_crossed_boundary) - XEN_NARGIFY_1(gxm_client_data_w, gxm_client_data) - XEN_NARGIFY_1(gxm_status_w, gxm_status) - XEN_NARGIFY_1(gxm_font_name_w, gxm_font_name) - XEN_NARGIFY_1(gxm_tag_w, gxm_tag) - XEN_NARGIFY_1(gxm_traversal_destination_w, gxm_traversal_destination) - XEN_NARGIFY_1(gxm_dragProtocolStyle_w, gxm_dragProtocolStyle) - XEN_NARGIFY_1(gxm_direction_w, gxm_direction) - XEN_NARGIFY_1(gxm_reason_w, gxm_reason) - XEN_NARGIFY_1(gxm_timeStamp_w, gxm_timeStamp) - XEN_NARGIFY_1(gxm_operation_w, gxm_operation ) - XEN_NARGIFY_2(gxm_set_operation_w, gxm_set_operation) - XEN_NARGIFY_1(gxm_operations_w, gxm_operations) - XEN_NARGIFY_1(gxm_dropSiteStatus_w, gxm_dropSiteStatus ) - XEN_NARGIFY_2(gxm_set_dropSiteStatus_w, gxm_set_dropSiteStatus) - XEN_NARGIFY_1(gxm_dropAction_w, gxm_dropAction) - XEN_NARGIFY_1(gxm_iccHandle_w, gxm_iccHandle) - XEN_NARGIFY_1(gxm_completionStatus_w, gxm_completionStatus) - XEN_NARGIFY_1(gxm_dragContext_w, gxm_dragContext) - XEN_NARGIFY_1(gxm_animate_w, gxm_animate) - XEN_NARGIFY_1(gxm_length_w, gxm_length) - XEN_NARGIFY_1(gxm_click_count_w, gxm_click_count) - XEN_NARGIFY_1(gxm_widget_w, gxm_widget) - XEN_NARGIFY_1(gxm_item_position_w, gxm_item_position) - XEN_NARGIFY_1(gxm_callbackstruct_w, gxm_callbackstruct) - XEN_NARGIFY_1(gxm_set_w, gxm_set) - XEN_NARGIFY_1(gxm_item_w, gxm_item) - XEN_NARGIFY_1(gxm_item_length_w, gxm_item_length) - XEN_NARGIFY_1(gxm_selected_items_w, gxm_selected_items) - XEN_NARGIFY_1(gxm_selected_item_count_w, gxm_selected_item_count) - XEN_NARGIFY_1(gxm_selected_item_positions_w, gxm_selected_item_positions) - XEN_NARGIFY_1(gxm_selection_type_w, gxm_selection_type) - XEN_NARGIFY_1(gxm_mask_w, gxm_mask) - XEN_NARGIFY_1(gxm_mask_length_w, gxm_mask_length) - XEN_NARGIFY_1(gxm_dir_w, gxm_dir) - XEN_NARGIFY_1(gxm_dir_length_w, gxm_dir_length) - XEN_NARGIFY_1(gxm_pattern_w, gxm_pattern) - XEN_NARGIFY_1(gxm_pattern_length_w, gxm_pattern_length) - XEN_NARGIFY_1(gxm_position_w, gxm_position) - XEN_NARGIFY_1(gxm_currInsert_w, gxm_currInsert) - XEN_NARGIFY_1(gxm_newInsert_w, gxm_newInsert) - XEN_NARGIFY_1(gxm_startPos_w, gxm_startPos) - XEN_NARGIFY_1(gxm_endPos_w, gxm_endPos) - XEN_NARGIFY_1(gxm_text_w, gxm_text) - XEN_NARGIFY_1(gxm_value_w, gxm_value) - XEN_NARGIFY_2(gxm_set_value_w, gxm_set_value) - XEN_NARGIFY_1(gxm_doit_w, gxm_doit) - XEN_NARGIFY_2(gxm_set_doit_w, gxm_set_doit) - XEN_NARGIFY_1(gxm_menuToPost_w, gxm_menuToPost) - XEN_NARGIFY_2(gxm_set_menuToPost_w, gxm_set_menuToPost) - XEN_NARGIFY_1(gxm_postIt_w, gxm_postIt) - XEN_NARGIFY_2(gxm_set_postIt_w, gxm_set_postIt) -#if HAVE_XmCreateDataField - XEN_NARGIFY_1(gxm_w_w, gxm_w) - XEN_NARGIFY_1(gxm_accept_w, gxm_accept) -#endif -#if HAVE_XmCreateTabStack - XEN_NARGIFY_1(gxm_selected_child_w, gxm_selected_child) -#endif - - XEN_NARGIFY_1(gxm_valuemask_w, gxm_valuemask) - XEN_NARGIFY_2(gxm_set_valuemask_w, gxm_set_valuemask) - XEN_NARGIFY_1(gxm_ncolors_w, gxm_ncolors) - XEN_NARGIFY_2(gxm_set_ncolors_w, gxm_set_ncolors) - XEN_NARGIFY_1(gxm_cpp_w, gxm_cpp) - XEN_NARGIFY_2(gxm_set_cpp_w, gxm_set_cpp) - XEN_NARGIFY_1(gxm_numsymbols_w, gxm_numsymbols) - XEN_NARGIFY_2(gxm_set_numsymbols_w, gxm_set_numsymbols) - XEN_NARGIFY_1(gxm_colorsymbols_w, gxm_colorsymbols) - XEN_NARGIFY_2(gxm_set_colorsymbols_w, gxm_set_colorsymbols) - XEN_NARGIFY_1(gxm_npixels_w, gxm_npixels) - XEN_NARGIFY_2(gxm_set_npixels_w, gxm_set_npixels) - XEN_NARGIFY_1(gxm_y_hotspot_w, gxm_y_hotspot) - XEN_NARGIFY_2(gxm_set_y_hotspot_w, gxm_set_y_hotspot) - XEN_NARGIFY_1(gxm_x_hotspot_w, gxm_x_hotspot) - XEN_NARGIFY_2(gxm_set_x_hotspot_w, gxm_set_x_hotspot) - - XEN_NARGIFY_5(gxm_XpmImage_w, gxm_XpmImage) - XEN_NARGIFY_3(gxm_XpmColorSymbol_w, gxm_XpmColorSymbol) - XEN_NARGIFY_0(gxm_XpmAttributes_w, gxm_XpmAttributes) - -#if HAVE_SCHEME - XEN_NARGIFY_1(c_to_xen_string_w, c_to_xen_string) - XEN_NARGIFY_2(c_to_xen_strings_w, c_to_xen_strings) - XEN_NARGIFY_2(c_to_xen_ints_w, c_to_xen_ints) - XEN_NARGIFY_2(c_to_xen_atoms_w, c_to_xen_atoms) - XEN_NARGIFY_2(c_to_xen_xrectangles_w, c_to_xen_xrectangles) -#endif -#endif - -#else - -/* no argify */ -#if HAVE_MOTIF - #define gxm_XtSetArg_w gxm_XtSetArg - #define gxm_XtManageChildren_w gxm_XtManageChildren - #define gxm_XtManageChild_w gxm_XtManageChild - #define gxm_XtUnmanageChildren_w gxm_XtUnmanageChildren - #define gxm_XtUnmanageChild_w gxm_XtUnmanageChild - #define gxm_XtDispatchEvent_w gxm_XtDispatchEvent - #define gxm_XtCallAcceptFocus_w gxm_XtCallAcceptFocus - #define gxm_XtAppPeekEvent_w gxm_XtAppPeekEvent - #define gxm_XtIsSubclass_w gxm_XtIsSubclass - #define gxm_XtAppSetFallbackResources_w gxm_XtAppSetFallbackResources - #define gxm_XtIsObject_w gxm_XtIsObject - #define gxm_XtIsManaged_w gxm_XtIsManaged - #define gxm_XtIsRealized_w gxm_XtIsRealized - #define gxm_XtIsSensitive_w gxm_XtIsSensitive - #define gxm_XtOwnSelection_w gxm_XtOwnSelection - #define gxm_XtOwnSelectionIncremental_w gxm_XtOwnSelectionIncremental - #define gxm_XtMakeResizeRequest_w gxm_XtMakeResizeRequest - #define gxm_XtTranslateCoords_w gxm_XtTranslateCoords - #define gxm_XtKeysymToKeycodeList_w gxm_XtKeysymToKeycodeList - #define gxm_XtParseTranslationTable_w gxm_XtParseTranslationTable - #define gxm_XtParseAcceleratorTable_w gxm_XtParseAcceleratorTable - #define gxm_XtOverrideTranslations_w gxm_XtOverrideTranslations - #define gxm_XtAugmentTranslations_w gxm_XtAugmentTranslations - #define gxm_XtInstallAccelerators_w gxm_XtInstallAccelerators - #define gxm_XtInstallAllAccelerators_w gxm_XtInstallAllAccelerators - #define gxm_XtUninstallTranslations_w gxm_XtUninstallTranslations - #define gxm_XtAppAddActions_w gxm_XtAppAddActions - #define gxm_XtAppAddActionHook_w gxm_XtAppAddActionHook - #define gxm_XtRemoveActionHook_w gxm_XtRemoveActionHook - #define gxm_XtGetActionList_w gxm_XtGetActionList - #define gxm_XtCallActionProc_w gxm_XtCallActionProc - #define gxm_XtRegisterGrabAction_w gxm_XtRegisterGrabAction - #define gxm_XtSetMultiClickTime_w gxm_XtSetMultiClickTime - #define gxm_XtGetMultiClickTime_w gxm_XtGetMultiClickTime - #define gxm_XtGetResourceList_w gxm_XtGetResourceList - #define gxm_XtGetActionKeysym_w gxm_XtGetActionKeysym - #define gxm_XtTranslateKeycode_w gxm_XtTranslateKeycode - #define gxm_XtTranslateKey_w gxm_XtTranslateKey - #define gxm_XtSetKeyTranslator_w gxm_XtSetKeyTranslator - #define gxm_XtRegisterCaseConverter_w gxm_XtRegisterCaseConverter - #define gxm_XtConvertCase_w gxm_XtConvertCase - #define gxm_XtAddEventHandler_w gxm_XtAddEventHandler - #define gxm_XtRemoveEventHandler_w gxm_XtRemoveEventHandler - #define gxm_XtAddRawEventHandler_w gxm_XtAddRawEventHandler - #define gxm_XtRemoveRawEventHandler_w gxm_XtRemoveRawEventHandler - #define gxm_XtInsertEventHandler_w gxm_XtInsertEventHandler - #define gxm_XtInsertRawEventHandler_w gxm_XtInsertRawEventHandler - #define gxm_XtDispatchEventToWidget_w gxm_XtDispatchEventToWidget - #define gxm_XtBuildEventMask_w gxm_XtBuildEventMask - #define gxm_XtAddGrab_w gxm_XtAddGrab - #define gxm_XtRemoveGrab_w gxm_XtRemoveGrab - #define gxm_XtAppProcessEvent_w gxm_XtAppProcessEvent - #define gxm_XtAppMainLoop_w gxm_XtAppMainLoop - #define gxm_XtAddExposureToRegion_w gxm_XtAddExposureToRegion - #define gxm_XtSetKeyboardFocus_w gxm_XtSetKeyboardFocus - #define gxm_XtGetKeyboardFocusWidget_w gxm_XtGetKeyboardFocusWidget - #define gxm_XtLastEventProcessed_w gxm_XtLastEventProcessed - #define gxm_XtLastTimestampProcessed_w gxm_XtLastTimestampProcessed - #define gxm_XtAppAddTimeOut_w gxm_XtAppAddTimeOut - #define gxm_XtRemoveTimeOut_w gxm_XtRemoveTimeOut - #define gxm_XtAppAddInput_w gxm_XtAppAddInput - #define gxm_XtRemoveInput_w gxm_XtRemoveInput - #define gxm_XtAppNextEvent_w gxm_XtAppNextEvent - #define gxm_XtAppPending_w gxm_XtAppPending - #define gxm_XtRealizeWidget_w gxm_XtRealizeWidget - #define gxm_XtUnrealizeWidget_w gxm_XtUnrealizeWidget - #define gxm_XtDestroyWidget_w gxm_XtDestroyWidget - #define gxm_XtSetSensitive_w gxm_XtSetSensitive - #define gxm_XtNameToWidget_w gxm_XtNameToWidget - #define gxm_XtWindowToWidget_w gxm_XtWindowToWidget - #define gxm_XtMergeArgLists_w gxm_XtMergeArgLists - #define gxm_XtVaCreateArgsList_w gxm_XtVaCreateArgsList - #define gxm_XtDisplay_w gxm_XtDisplay - #define gxm_XtDisplayOfObject_w gxm_XtDisplayOfObject - #define gxm_XtScreen_w gxm_XtScreen - #define gxm_XtScreenOfObject_w gxm_XtScreenOfObject - #define gxm_XtWindow_w gxm_XtWindow - #define gxm_XtWindowOfObject_w gxm_XtWindowOfObject - #define gxm_XtName_w gxm_XtName - #define gxm_XtSuperclass_w gxm_XtSuperclass - #define gxm_XtClass_w gxm_XtClass - #define gxm_XtParent_w gxm_XtParent - #define gxm_XtAddCallback_w gxm_XtAddCallback - #define gxm_XtRemoveCallback_w gxm_XtRemoveCallback - #define gxm_XtAddCallbacks_w gxm_XtAddCallbacks - #define gxm_XtRemoveCallbacks_w gxm_XtRemoveCallbacks - #define gxm_XtRemoveAllCallbacks_w gxm_XtRemoveAllCallbacks - #define gxm_XtCallCallbacks_w gxm_XtCallCallbacks - #define gxm_XtHasCallbacks_w gxm_XtHasCallbacks - #define gxm_XtCreatePopupShell_w gxm_XtCreatePopupShell - #define gxm_XtVaCreatePopupShell_w gxm_XtVaCreatePopupShell - #define gxm_XtPopup_w gxm_XtPopup - #define gxm_XtPopupSpringLoaded_w gxm_XtPopupSpringLoaded - #define gxm_XtCallbackNone_w gxm_XtCallbackNone - #define gxm_XtCallbackNonexclusive_w gxm_XtCallbackNonexclusive - #define gxm_XtCallbackExclusive_w gxm_XtCallbackExclusive - #define gxm_XtPopdown_w gxm_XtPopdown - #define gxm_XtCallbackPopdown_w gxm_XtCallbackPopdown - #define gxm_XtCreateWidget_w gxm_XtCreateWidget - #define gxm_XtCreateManagedWidget_w gxm_XtCreateManagedWidget - #define gxm_XtVaCreateWidget_w gxm_XtVaCreateWidget - #define gxm_XtVaCreateManagedWidget_w gxm_XtVaCreateManagedWidget - #define gxm_XtAppCreateShell_w gxm_XtAppCreateShell - #define gxm_XtVaAppCreateShell_w gxm_XtVaAppCreateShell - #define gxm_XtToolkitInitialize_w gxm_XtToolkitInitialize - #define gxm_XtSetLanguageProc_w gxm_XtSetLanguageProc - #define gxm_XtDisplayInitialize_w gxm_XtDisplayInitialize - #define gxm_XtOpenApplication_w gxm_XtOpenApplication - #define gxm_XtVaOpenApplication_w gxm_XtVaOpenApplication - #define gxm_XtAppInitialize_w gxm_XtAppInitialize - #define gxm_XtVaAppInitialize_w gxm_XtVaAppInitialize - #define gxm_XtOpenDisplay_w gxm_XtOpenDisplay - #define gxm_XtCreateApplicationContext_w gxm_XtCreateApplicationContext - #define gxm_XtDestroyApplicationContext_w gxm_XtDestroyApplicationContext - #define gxm_XtInitializeWidgetClass_w gxm_XtInitializeWidgetClass - #define gxm_XtWidgetToApplicationContext_w gxm_XtWidgetToApplicationContext - #define gxm_XtDisplayToApplicationContext_w gxm_XtDisplayToApplicationContext - #define gxm_XtCloseDisplay_w gxm_XtCloseDisplay - #define gxm_XtSetValues_w gxm_XtSetValues - #define gxm_XtVaSetValues_w gxm_XtVaSetValues - #define gxm_XtGetValues_w gxm_XtGetValues - #define gxm_XtVaGetValues_w gxm_XtVaGetValues - #define gxm_XtAppSetErrorMsgHandler_w gxm_XtAppSetErrorMsgHandler - #define gxm_XtAppSetWarningMsgHandler_w gxm_XtAppSetWarningMsgHandler - #define gxm_XtAppErrorMsg_w gxm_XtAppErrorMsg - #define gxm_XtAppWarningMsg_w gxm_XtAppWarningMsg - #define gxm_XtAppSetErrorHandler_w gxm_XtAppSetErrorHandler - #define gxm_XtAppSetWarningHandler_w gxm_XtAppSetWarningHandler - #define gxm_XtAppError_w gxm_XtAppError - #define gxm_XtMalloc_w gxm_XtMalloc - #define gxm_XtCalloc_w gxm_XtCalloc - #define gxm_XtRealloc_w gxm_XtRealloc - #define gxm_XtFree_w gxm_XtFree - #define gxm_XtAppAddWorkProc_w gxm_XtAppAddWorkProc - #define gxm_XtRemoveWorkProc_w gxm_XtRemoveWorkProc - #define gxm_XtGetGC_w gxm_XtGetGC - #define gxm_XtAllocateGC_w gxm_XtAllocateGC - #define gxm_XtDestroyGC_w gxm_XtDestroyGC - #define gxm_XtReleaseGC_w gxm_XtReleaseGC - #define gxm_XtFindFile_w gxm_XtFindFile - #define gxm_XtResolvePathname_w gxm_XtResolvePathname - #define gxm_XtDisownSelection_w gxm_XtDisownSelection - #define gxm_XtGetSelectionValue_w gxm_XtGetSelectionValue - #define gxm_XtGetSelectionValues_w gxm_XtGetSelectionValues - #define gxm_XtAppSetSelectionTimeout_w gxm_XtAppSetSelectionTimeout - #define gxm_XtAppGetSelectionTimeout_w gxm_XtAppGetSelectionTimeout - #define gxm_XtGetSelectionRequest_w gxm_XtGetSelectionRequest - #define gxm_XtGetSelectionValueIncremental_w gxm_XtGetSelectionValueIncremental - #define gxm_XtGetSelectionValuesIncremental_w gxm_XtGetSelectionValuesIncremental - #define gxm_XtCreateSelectionRequest_w gxm_XtCreateSelectionRequest - #define gxm_XtSendSelectionRequest_w gxm_XtSendSelectionRequest - #define gxm_XtCancelSelectionRequest_w gxm_XtCancelSelectionRequest - #define gxm_XtGrabKey_w gxm_XtGrabKey - #define gxm_XtUngrabKey_w gxm_XtUngrabKey - #define gxm_XtGrabKeyboard_w gxm_XtGrabKeyboard - #define gxm_XtUngrabKeyboard_w gxm_XtUngrabKeyboard - #define gxm_XtGrabButton_w gxm_XtGrabButton - #define gxm_XtUngrabButton_w gxm_XtUngrabButton - #define gxm_XtGrabPointer_w gxm_XtGrabPointer - #define gxm_XtUngrabPointer_w gxm_XtUngrabPointer - #define gxm_XtGetApplicationNameAndClass_w gxm_XtGetApplicationNameAndClass - #define gxm_XtGetDisplays_w gxm_XtGetDisplays - #define gxm_XtToolkitThreadInitialize_w gxm_XtToolkitThreadInitialize - #define gxm_XtAppLock_w gxm_XtAppLock - #define gxm_XtAppUnlock_w gxm_XtAppUnlock - #define gxm_XtIsRectObj_w gxm_XtIsRectObj - #define gxm_XtIsWidget_w gxm_XtIsWidget - #define gxm_XtIsComposite_w gxm_XtIsComposite - #define gxm_XtIsConstraint_w gxm_XtIsConstraint - #define gxm_XtIsShell_w gxm_XtIsShell - #define gxm_XtIsOverrideShell_w gxm_XtIsOverrideShell - #define gxm_XtIsWMShell_w gxm_XtIsWMShell - #define gxm_XtIsVendorShell_w gxm_XtIsVendorShell - #define gxm_XtIsTransientShell_w gxm_XtIsTransientShell - #define gxm_XtIsTopLevelShell_w gxm_XtIsTopLevelShell - #define gxm_XtIsApplicationShell_w gxm_XtIsApplicationShell - #define gxm_XtIsSessionShell_w gxm_XtIsSessionShell - #define gxm_XtMapWidget_w gxm_XtMapWidget - #define gxm_XtUnmapWidget_w gxm_XtUnmapWidget -#endif - #define gxm_XLoadQueryFont_w gxm_XLoadQueryFont - #define gxm_XQueryFont_w gxm_XQueryFont - #define gxm_XGetMotionEvents_w gxm_XGetMotionEvents - #define gxm_XDeleteModifiermapEntry_w gxm_XDeleteModifiermapEntry - #define gxm_XGetModifierMapping_w gxm_XGetModifierMapping - #define gxm_XInsertModifiermapEntry_w gxm_XInsertModifiermapEntry - #define gxm_XNewModifiermap_w gxm_XNewModifiermap - #define gxm_XCreateImage_w gxm_XCreateImage - #define gxm_XGetImage_w gxm_XGetImage - #define gxm_XGetSubImage_w gxm_XGetSubImage - #define gxm_XOpenDisplay_w gxm_XOpenDisplay - #define gxm_XFetchBytes_w gxm_XFetchBytes - #define gxm_XFetchBuffer_w gxm_XFetchBuffer - #define gxm_XGetAtomName_w gxm_XGetAtomName - #define gxm_XDisplayName_w gxm_XDisplayName - #define gxm_XKeysymToString_w gxm_XKeysymToString - #define gxm_XSynchronize_w gxm_XSynchronize - #define gxm_XSetAfterFunction_w gxm_XSetAfterFunction - #define gxm_XInternAtom_w gxm_XInternAtom - #define gxm_XCopyColormapAndFree_w gxm_XCopyColormapAndFree - #define gxm_XCreateColormap_w gxm_XCreateColormap - #define gxm_XCreatePixmapCursor_w gxm_XCreatePixmapCursor - #define gxm_XCreateGlyphCursor_w gxm_XCreateGlyphCursor - #define gxm_XCreateFontCursor_w gxm_XCreateFontCursor - #define gxm_XLoadFont_w gxm_XLoadFont - #define gxm_XCreateGC_w gxm_XCreateGC - #define gxm_XFlushGC_w gxm_XFlushGC - #define gxm_XCreatePixmap_w gxm_XCreatePixmap - #define gxm_XCreateBitmapFromData_w gxm_XCreateBitmapFromData - #define gxm_XCreatePixmapFromBitmapData_w gxm_XCreatePixmapFromBitmapData - #define gxm_XCreateSimpleWindow_w gxm_XCreateSimpleWindow - #define gxm_XGetSelectionOwner_w gxm_XGetSelectionOwner - #define gxm_XCreateWindow_w gxm_XCreateWindow - #define gxm_XListInstalledColormaps_w gxm_XListInstalledColormaps - #define gxm_XListFonts_w gxm_XListFonts - #define gxm_XListFontsWithInfo_w gxm_XListFontsWithInfo - #define gxm_XGetFontPath_w gxm_XGetFontPath - #define gxm_XListExtensions_w gxm_XListExtensions - #define gxm_XListProperties_w gxm_XListProperties - #define gxm_XKeycodeToKeysym_w gxm_XKeycodeToKeysym - #define gxm_XLookupKeysym_w gxm_XLookupKeysym - #define gxm_XGetKeyboardMapping_w gxm_XGetKeyboardMapping - #define gxm_XStringToKeysym_w gxm_XStringToKeysym - #define gxm_XMaxRequestSize_w gxm_XMaxRequestSize - #define gxm_XExtendedMaxRequestSize_w gxm_XExtendedMaxRequestSize - #define gxm_XDisplayMotionBufferSize_w gxm_XDisplayMotionBufferSize - #define gxm_XVisualIDFromVisual_w gxm_XVisualIDFromVisual - #define gxm_XRootWindow_w gxm_XRootWindow - #define gxm_XDefaultRootWindow_w gxm_XDefaultRootWindow - #define gxm_XRootWindowOfScreen_w gxm_XRootWindowOfScreen - #define gxm_XDefaultVisual_w gxm_XDefaultVisual - #define gxm_XDefaultVisualOfScreen_w gxm_XDefaultVisualOfScreen - #define gxm_XDefaultGC_w gxm_XDefaultGC - #define gxm_XDefaultGCOfScreen_w gxm_XDefaultGCOfScreen - #define gxm_XBlackPixel_w gxm_XBlackPixel - #define gxm_XWhitePixel_w gxm_XWhitePixel - #define gxm_XAllPlanes_w gxm_XAllPlanes - #define gxm_XBlackPixelOfScreen_w gxm_XBlackPixelOfScreen - #define gxm_XWhitePixelOfScreen_w gxm_XWhitePixelOfScreen - #define gxm_XNextRequest_w gxm_XNextRequest - #define gxm_XLastKnownRequestProcessed_w gxm_XLastKnownRequestProcessed - #define gxm_XServerVendor_w gxm_XServerVendor - #define gxm_XDisplayString_w gxm_XDisplayString - #define gxm_XDefaultColormap_w gxm_XDefaultColormap - #define gxm_XDefaultColormapOfScreen_w gxm_XDefaultColormapOfScreen - #define gxm_XDisplayOfScreen_w gxm_XDisplayOfScreen - #define gxm_XScreenOfDisplay_w gxm_XScreenOfDisplay - #define gxm_XDefaultScreenOfDisplay_w gxm_XDefaultScreenOfDisplay - #define gxm_XEventMaskOfScreen_w gxm_XEventMaskOfScreen - #define gxm_XScreenNumberOfScreen_w gxm_XScreenNumberOfScreen - #define gxm_XSetErrorHandler_w gxm_XSetErrorHandler - #define gxm_XSetIOErrorHandler_w gxm_XSetIOErrorHandler - #define gxm_XListPixmapFormats_w gxm_XListPixmapFormats - #define gxm_XListDepths_w gxm_XListDepths - #define gxm_XReconfigureWMWindow_w gxm_XReconfigureWMWindow - #define gxm_XGetWMProtocols_w gxm_XGetWMProtocols - #define gxm_XSetWMProtocols_w gxm_XSetWMProtocols - #define gxm_XIconifyWindow_w gxm_XIconifyWindow - #define gxm_XWithdrawWindow_w gxm_XWithdrawWindow - #define gxm_XGetCommand_w gxm_XGetCommand - #define gxm_XGetWMColormapWindows_w gxm_XGetWMColormapWindows - #define gxm_XSetWMColormapWindows_w gxm_XSetWMColormapWindows - #define gxm_XSetTransientForHint_w gxm_XSetTransientForHint - #define gxm_XActivateScreenSaver_w gxm_XActivateScreenSaver - #define gxm_XAllocColor_w gxm_XAllocColor - #define gxm_XAllocColorCells_w gxm_XAllocColorCells - #define gxm_XAllocColorPlanes_w gxm_XAllocColorPlanes - #define gxm_XAllocNamedColor_w gxm_XAllocNamedColor - #define gxm_XAllowEvents_w gxm_XAllowEvents - #define gxm_XAutoRepeatOff_w gxm_XAutoRepeatOff - #define gxm_XAutoRepeatOn_w gxm_XAutoRepeatOn - #define gxm_XBell_w gxm_XBell - #define gxm_XBitmapBitOrder_w gxm_XBitmapBitOrder - #define gxm_XBitmapPad_w gxm_XBitmapPad - #define gxm_XBitmapUnit_w gxm_XBitmapUnit - #define gxm_XCellsOfScreen_w gxm_XCellsOfScreen - #define gxm_XChangeActivePointerGrab_w gxm_XChangeActivePointerGrab - #define gxm_XChangeGC_w gxm_XChangeGC - #define gxm_XChangeKeyboardControl_w gxm_XChangeKeyboardControl - #define gxm_XChangeKeyboardMapping_w gxm_XChangeKeyboardMapping - #define gxm_XChangePointerControl_w gxm_XChangePointerControl - #define gxm_XChangeProperty_w gxm_XChangeProperty - #define gxm_XChangeWindowAttributes_w gxm_XChangeWindowAttributes - #define gxm_XCheckIfEvent_w gxm_XCheckIfEvent - #define gxm_XCheckMaskEvent_w gxm_XCheckMaskEvent - #define gxm_XCheckTypedEvent_w gxm_XCheckTypedEvent - #define gxm_XCheckTypedWindowEvent_w gxm_XCheckTypedWindowEvent - #define gxm_XCheckWindowEvent_w gxm_XCheckWindowEvent - #define gxm_XCirculateSubwindows_w gxm_XCirculateSubwindows - #define gxm_XCirculateSubwindowsDown_w gxm_XCirculateSubwindowsDown - #define gxm_XCirculateSubwindowsUp_w gxm_XCirculateSubwindowsUp - #define gxm_XClearArea_w gxm_XClearArea - #define gxm_XClearWindow_w gxm_XClearWindow - #define gxm_XCloseDisplay_w gxm_XCloseDisplay - #define gxm_XConfigureWindow_w gxm_XConfigureWindow - #define gxm_XConnectionNumber_w gxm_XConnectionNumber - #define gxm_XConvertSelection_w gxm_XConvertSelection - #define gxm_XCopyArea_w gxm_XCopyArea - #define gxm_XCopyGC_w gxm_XCopyGC - #define gxm_XCopyPlane_w gxm_XCopyPlane - #define gxm_XDefaultDepth_w gxm_XDefaultDepth - #define gxm_XDefaultDepthOfScreen_w gxm_XDefaultDepthOfScreen - #define gxm_XDefaultScreen_w gxm_XDefaultScreen - #define gxm_XDefineCursor_w gxm_XDefineCursor - #define gxm_XDeleteProperty_w gxm_XDeleteProperty - #define gxm_XDestroyWindow_w gxm_XDestroyWindow - #define gxm_XDestroySubwindows_w gxm_XDestroySubwindows - #define gxm_XDoesBackingStore_w gxm_XDoesBackingStore - #define gxm_XDoesSaveUnders_w gxm_XDoesSaveUnders - #define gxm_XDisableAccessControl_w gxm_XDisableAccessControl - #define gxm_XDisplayCells_w gxm_XDisplayCells - #define gxm_XDisplayHeight_w gxm_XDisplayHeight - #define gxm_XDisplayHeightMM_w gxm_XDisplayHeightMM - #define gxm_XDisplayKeycodes_w gxm_XDisplayKeycodes - #define gxm_XDisplayPlanes_w gxm_XDisplayPlanes - #define gxm_XDisplayWidth_w gxm_XDisplayWidth - #define gxm_XDisplayWidthMM_w gxm_XDisplayWidthMM - #define gxm_XDrawArc_w gxm_XDrawArc - #define gxm_XDrawArcs_w gxm_XDrawArcs - #define gxm_XDrawImageString_w gxm_XDrawImageString - #define gxm_XDrawLine_w gxm_XDrawLine - #define gxm_XDrawLines_w gxm_XDrawLines - #define gxm_XDrawLinesDirect_w gxm_XDrawLinesDirect - #define gxm_FreeXPoints_w gxm_FreeXPoints - #define gxm_Vector2XPoints_w gxm_Vector2XPoints - #define gxm_XDrawPoint_w gxm_XDrawPoint - #define gxm_XDrawPoints_w gxm_XDrawPoints - #define gxm_XDrawRectangle_w gxm_XDrawRectangle - #define gxm_XDrawRectangles_w gxm_XDrawRectangles - #define gxm_XDrawSegments_w gxm_XDrawSegments - #define gxm_XDrawString_w gxm_XDrawString - #define gxm_XDrawText_w gxm_XDrawText - #define gxm_XEnableAccessControl_w gxm_XEnableAccessControl - #define gxm_XEventsQueued_w gxm_XEventsQueued - #define gxm_XFetchName_w gxm_XFetchName - #define gxm_XFillArc_w gxm_XFillArc - #define gxm_XFillArcs_w gxm_XFillArcs - #define gxm_XFillPolygon_w gxm_XFillPolygon - #define gxm_XFillRectangle_w gxm_XFillRectangle - #define gxm_XFillRectangles_w gxm_XFillRectangles - #define gxm_XFlush_w gxm_XFlush - #define gxm_XForceScreenSaver_w gxm_XForceScreenSaver - #define gxm_XFree_w gxm_XFree - #define gxm_XFreeColormap_w gxm_XFreeColormap - #define gxm_XFreeColors_w gxm_XFreeColors - #define gxm_XFreeCursor_w gxm_XFreeCursor - #define gxm_XFreeExtensionList_w gxm_XFreeExtensionList - #define gxm_XFreeFont_w gxm_XFreeFont - #define gxm_XFreeFontInfo_w gxm_XFreeFontInfo - #define gxm_XFreeFontNames_w gxm_XFreeFontNames - #define gxm_XFreeFontPath_w gxm_XFreeFontPath - #define gxm_XFreeGC_w gxm_XFreeGC - #define gxm_XFreeModifiermap_w gxm_XFreeModifiermap - #define gxm_XFreePixmap_w gxm_XFreePixmap - #define gxm_XGeometry_w gxm_XGeometry - #define gxm_XGetErrorText_w gxm_XGetErrorText - #define gxm_XGetFontProperty_w gxm_XGetFontProperty - #define gxm_XGetGCValues_w gxm_XGetGCValues - #define gxm_XGCValues_w gxm_XGCValues - #define gxm_XEvent_w gxm_XEvent - #define gxm_XGetGeometry_w gxm_XGetGeometry - #define gxm_XGetIconName_w gxm_XGetIconName - #define gxm_XGetInputFocus_w gxm_XGetInputFocus - #define gxm_XGetKeyboardControl_w gxm_XGetKeyboardControl - #define gxm_XGetPointerControl_w gxm_XGetPointerControl - #define gxm_XGetPointerMapping_w gxm_XGetPointerMapping - #define gxm_XGetScreenSaver_w gxm_XGetScreenSaver - #define gxm_XGetTransientForHint_w gxm_XGetTransientForHint - #define gxm_XGetWindowProperty_w gxm_XGetWindowProperty - #define gxm_XGetWindowAttributes_w gxm_XGetWindowAttributes - #define gxm_XGrabButton_w gxm_XGrabButton - #define gxm_XGrabKey_w gxm_XGrabKey - #define gxm_XGrabKeyboard_w gxm_XGrabKeyboard - #define gxm_XGrabPointer_w gxm_XGrabPointer - #define gxm_XGrabServer_w gxm_XGrabServer - #define gxm_XHeightMMOfScreen_w gxm_XHeightMMOfScreen - #define gxm_XHeightOfScreen_w gxm_XHeightOfScreen - #define gxm_XIfEvent_w gxm_XIfEvent - #define gxm_XImageByteOrder_w gxm_XImageByteOrder - #define gxm_XInstallColormap_w gxm_XInstallColormap - #define gxm_XKeysymToKeycode_w gxm_XKeysymToKeycode - #define gxm_XKillClient_w gxm_XKillClient - #define gxm_XLookupColor_w gxm_XLookupColor - #define gxm_XLowerWindow_w gxm_XLowerWindow - #define gxm_XMapRaised_w gxm_XMapRaised - #define gxm_XMapSubwindows_w gxm_XMapSubwindows - #define gxm_XMapWindow_w gxm_XMapWindow - #define gxm_XMaskEvent_w gxm_XMaskEvent - #define gxm_XMaxCmapsOfScreen_w gxm_XMaxCmapsOfScreen - #define gxm_XMinCmapsOfScreen_w gxm_XMinCmapsOfScreen - #define gxm_XMoveResizeWindow_w gxm_XMoveResizeWindow - #define gxm_XMoveWindow_w gxm_XMoveWindow - #define gxm_XNextEvent_w gxm_XNextEvent - #define gxm_XNoOp_w gxm_XNoOp - #define gxm_XParseColor_w gxm_XParseColor - #define gxm_XParseGeometry_w gxm_XParseGeometry - #define gxm_XPeekEvent_w gxm_XPeekEvent - #define gxm_XPeekIfEvent_w gxm_XPeekIfEvent - #define gxm_XPending_w gxm_XPending - #define gxm_XPlanesOfScreen_w gxm_XPlanesOfScreen - #define gxm_XProtocolRevision_w gxm_XProtocolRevision - #define gxm_XProtocolVersion_w gxm_XProtocolVersion - #define gxm_XPutBackEvent_w gxm_XPutBackEvent - #define gxm_XPutImage_w gxm_XPutImage - #define gxm_XQLength_w gxm_XQLength - #define gxm_XQueryBestCursor_w gxm_XQueryBestCursor - #define gxm_XQueryBestSize_w gxm_XQueryBestSize - #define gxm_XQueryBestStipple_w gxm_XQueryBestStipple - #define gxm_XQueryBestTile_w gxm_XQueryBestTile - #define gxm_XQueryColor_w gxm_XQueryColor - #define gxm_XQueryColors_w gxm_XQueryColors - #define gxm_XQueryExtension_w gxm_XQueryExtension - #define gxm_XQueryKeymap_w gxm_XQueryKeymap - #define gxm_XQueryPointer_w gxm_XQueryPointer - #define gxm_XQueryTextExtents_w gxm_XQueryTextExtents - #define gxm_XQueryTree_w gxm_XQueryTree - #define gxm_XRaiseWindow_w gxm_XRaiseWindow - #define gxm_XReadBitmapFile_w gxm_XReadBitmapFile - #define gxm_XReadBitmapFileData_w gxm_XReadBitmapFileData - #define gxm_XRebindKeysym_w gxm_XRebindKeysym - #define gxm_XRecolorCursor_w gxm_XRecolorCursor - #define gxm_XRefreshKeyboardMapping_w gxm_XRefreshKeyboardMapping - #define gxm_XReparentWindow_w gxm_XReparentWindow - #define gxm_XResetScreenSaver_w gxm_XResetScreenSaver - #define gxm_XResizeWindow_w gxm_XResizeWindow - #define gxm_XRestackWindows_w gxm_XRestackWindows - #define gxm_XRotateBuffers_w gxm_XRotateBuffers - #define gxm_XRotateWindowProperties_w gxm_XRotateWindowProperties - #define gxm_XScreenCount_w gxm_XScreenCount - #define gxm_XSelectInput_w gxm_XSelectInput - #define gxm_XSendEvent_w gxm_XSendEvent - #define gxm_XSetAccessControl_w gxm_XSetAccessControl - #define gxm_XSetArcMode_w gxm_XSetArcMode - #define gxm_XSetBackground_w gxm_XSetBackground - #define gxm_XSetClipMask_w gxm_XSetClipMask - #define gxm_XSetClipOrigin_w gxm_XSetClipOrigin - #define gxm_XSetClipRectangles_w gxm_XSetClipRectangles - #define gxm_XSetCloseDownMode_w gxm_XSetCloseDownMode - #define gxm_XSetCommand_w gxm_XSetCommand - #define gxm_XSetDashes_w gxm_XSetDashes - #define gxm_XSetFillRule_w gxm_XSetFillRule - #define gxm_XSetFillStyle_w gxm_XSetFillStyle - #define gxm_XSetFont_w gxm_XSetFont - #define gxm_XSetFontPath_w gxm_XSetFontPath - #define gxm_XSetForeground_w gxm_XSetForeground - #define gxm_XSetFunction_w gxm_XSetFunction - #define gxm_XSetGraphicsExposures_w gxm_XSetGraphicsExposures - #define gxm_XSetIconName_w gxm_XSetIconName - #define gxm_XSetInputFocus_w gxm_XSetInputFocus - #define gxm_XSetLineAttributes_w gxm_XSetLineAttributes - #define gxm_XSetModifierMapping_w gxm_XSetModifierMapping - #define gxm_XSetPlaneMask_w gxm_XSetPlaneMask - #define gxm_XSetPointerMapping_w gxm_XSetPointerMapping - #define gxm_XSetScreenSaver_w gxm_XSetScreenSaver - #define gxm_XSetSelectionOwner_w gxm_XSetSelectionOwner - #define gxm_XSetState_w gxm_XSetState - #define gxm_XSetStipple_w gxm_XSetStipple - #define gxm_XSetSubwindowMode_w gxm_XSetSubwindowMode - #define gxm_XSetTSOrigin_w gxm_XSetTSOrigin - #define gxm_XSetTile_w gxm_XSetTile - #define gxm_XSetWindowBackground_w gxm_XSetWindowBackground - #define gxm_XSetWindowBackgroundPixmap_w gxm_XSetWindowBackgroundPixmap - #define gxm_XSetWindowBorder_w gxm_XSetWindowBorder - #define gxm_XSetWindowBorderPixmap_w gxm_XSetWindowBorderPixmap - #define gxm_XSetWindowBorderWidth_w gxm_XSetWindowBorderWidth - #define gxm_XSetWindowColormap_w gxm_XSetWindowColormap - #define gxm_XStoreBuffer_w gxm_XStoreBuffer - #define gxm_XStoreBytes_w gxm_XStoreBytes - #define gxm_XStoreColor_w gxm_XStoreColor - #define gxm_XStoreColors_w gxm_XStoreColors - #define gxm_XStoreName_w gxm_XStoreName - #define gxm_XStoreNamedColor_w gxm_XStoreNamedColor - #define gxm_XSync_w gxm_XSync - #define gxm_XTextExtents_w gxm_XTextExtents - #define gxm_XTextWidth_w gxm_XTextWidth - #define gxm_XTranslateCoordinates_w gxm_XTranslateCoordinates - #define gxm_XUndefineCursor_w gxm_XUndefineCursor - #define gxm_XUngrabButton_w gxm_XUngrabButton - #define gxm_XUngrabKey_w gxm_XUngrabKey - #define gxm_XUngrabKeyboard_w gxm_XUngrabKeyboard - #define gxm_XUngrabPointer_w gxm_XUngrabPointer - #define gxm_XUngrabServer_w gxm_XUngrabServer - #define gxm_XUninstallColormap_w gxm_XUninstallColormap - #define gxm_XUnloadFont_w gxm_XUnloadFont - #define gxm_XUnmapSubwindows_w gxm_XUnmapSubwindows - #define gxm_XUnmapWindow_w gxm_XUnmapWindow - #define gxm_XVendorRelease_w gxm_XVendorRelease - #define gxm_XWarpPointer_w gxm_XWarpPointer - #define gxm_XWidthMMOfScreen_w gxm_XWidthMMOfScreen - #define gxm_XWidthOfScreen_w gxm_XWidthOfScreen - #define gxm_XWindowEvent_w gxm_XWindowEvent - #define gxm_XWriteBitmapFile_w gxm_XWriteBitmapFile - #define gxm_XSupportsLocale_w gxm_XSupportsLocale - #define gxm_XSetLocaleModifiers_w gxm_XSetLocaleModifiers - #define gxm_XCreateFontSet_w gxm_XCreateFontSet - #define gxm_XFreeFontSet_w gxm_XFreeFontSet - #define gxm_XFontsOfFontSet_w gxm_XFontsOfFontSet - #define gxm_XBaseFontNameListOfFontSet_w gxm_XBaseFontNameListOfFontSet - #define gxm_XLocaleOfFontSet_w gxm_XLocaleOfFontSet - #define gxm_XContextDependentDrawing_w gxm_XContextDependentDrawing - #define gxm_XDirectionalDependentDrawing_w gxm_XDirectionalDependentDrawing - #define gxm_XContextualDrawing_w gxm_XContextualDrawing - #define gxm_XFilterEvent_w gxm_XFilterEvent - #define gxm_XAllocIconSize_w gxm_XAllocIconSize - #define gxm_XAllocStandardColormap_w gxm_XAllocStandardColormap - #define gxm_XAllocWMHints_w gxm_XAllocWMHints - #define gxm_XClipBox_w gxm_XClipBox - #define gxm_XCreateRegion_w gxm_XCreateRegion - #define gxm_XDefaultString_w gxm_XDefaultString - #define gxm_XDeleteContext_w gxm_XDeleteContext - #define gxm_XDestroyRegion_w gxm_XDestroyRegion - #define gxm_XEmptyRegion_w gxm_XEmptyRegion - #define gxm_XEqualRegion_w gxm_XEqualRegion - #define gxm_XFindContext_w gxm_XFindContext - #define gxm_XGetIconSizes_w gxm_XGetIconSizes - #define gxm_XGetRGBColormaps_w gxm_XGetRGBColormaps - #define gxm_XGetVisualInfo_w gxm_XGetVisualInfo - #define gxm_XGetWMHints_w gxm_XGetWMHints - #define gxm_XIntersectRegion_w gxm_XIntersectRegion - #define gxm_XConvertCase_w gxm_XConvertCase - #define gxm_XLookupString_w gxm_XLookupString - #define gxm_XMatchVisualInfo_w gxm_XMatchVisualInfo - #define gxm_XOffsetRegion_w gxm_XOffsetRegion - #define gxm_XPointInRegion_w gxm_XPointInRegion - #define gxm_XPolygonRegion_w gxm_XPolygonRegion - #define gxm_XRectInRegion_w gxm_XRectInRegion - #define gxm_XSaveContext_w gxm_XSaveContext - #define gxm_XUniqueContext_w gxm_XUniqueContext - #define gxm_XSetRGBColormaps_w gxm_XSetRGBColormaps - #define gxm_XSetWMHints_w gxm_XSetWMHints - #define gxm_XSetRegion_w gxm_XSetRegion - #define gxm_XSetWMProperties_w gxm_XSetWMProperties - #define gxm_XShrinkRegion_w gxm_XShrinkRegion - #define gxm_XSubtractRegion_w gxm_XSubtractRegion - #define gxm_XUnionRectWithRegion_w gxm_XUnionRectWithRegion - #define gxm_XUnionRegion_w gxm_XUnionRegion - #define gxm_XXorRegion_w gxm_XXorRegion - - #define gxm_DefaultScreen_w gxm_DefaultScreen - #define gxm_DefaultRootWindow_w gxm_DefaultRootWindow - #define gxm_QLength_w gxm_QLength - #define gxm_ScreenCount_w gxm_ScreenCount - #define gxm_ServerVendor_w gxm_ServerVendor - #define gxm_ProtocolVersion_w gxm_ProtocolVersion - #define gxm_ProtocolRevision_w gxm_ProtocolRevision - #define gxm_VendorRelease_w gxm_VendorRelease - #define gxm_DisplayString_w gxm_DisplayString - #define gxm_BitmapUnit_w gxm_BitmapUnit - #define gxm_BitmapBitOrder_w gxm_BitmapBitOrder - #define gxm_BitmapPad_w gxm_BitmapPad - #define gxm_ImageByteOrder_w gxm_ImageByteOrder - #define gxm_NextRequest_w gxm_NextRequest - #define gxm_LastKnownRequestProcessed_w gxm_LastKnownRequestProcessed - #define gxm_DefaultScreenOfDisplay_w gxm_DefaultScreenOfDisplay - #define gxm_DisplayOfScreen_w gxm_DisplayOfScreen - #define gxm_RootWindowOfScreen_w gxm_RootWindowOfScreen - #define gxm_BlackPixelOfScreen_w gxm_BlackPixelOfScreen - #define gxm_WhitePixelOfScreen_w gxm_WhitePixelOfScreen - #define gxm_DefaultColormapOfScreen_w gxm_DefaultColormapOfScreen - #define gxm_DefaultDepthOfScreen_w gxm_DefaultDepthOfScreen - #define gxm_DefaultGCOfScreen_w gxm_DefaultGCOfScreen - #define gxm_DefaultVisualOfScreen_w gxm_DefaultVisualOfScreen - #define gxm_WidthOfScreen_w gxm_WidthOfScreen - #define gxm_HeightOfScreen_w gxm_HeightOfScreen - #define gxm_WidthMMOfScreen_w gxm_WidthMMOfScreen - #define gxm_HeightMMOfScreen_w gxm_HeightMMOfScreen - #define gxm_PlanesOfScreen_w gxm_PlanesOfScreen - #define gxm_CellsOfScreen_w gxm_CellsOfScreen - #define gxm_MinCmapsOfScreen_w gxm_MinCmapsOfScreen - #define gxm_MaxCmapsOfScreen_w gxm_MaxCmapsOfScreen - #define gxm_DoesSaveUnders_w gxm_DoesSaveUnders - #define gxm_DoesBackingStore_w gxm_DoesBackingStore - #define gxm_EventMaskOfScreen_w gxm_EventMaskOfScreen - #define gxm_RootWindow_w gxm_RootWindow - #define gxm_DefaultVisual_w gxm_DefaultVisual - #define gxm_DefaultGC_w gxm_DefaultGC - #define gxm_BlackPixel_w gxm_BlackPixel - #define gxm_WhitePixel_w gxm_WhitePixel - #define gxm_DisplayWidth_w gxm_DisplayWidth - #define gxm_DisplayHeight_w gxm_DisplayHeight - #define gxm_DisplayWidthMM_w gxm_DisplayWidthMM - #define gxm_DisplayHeightMM_w gxm_DisplayHeightMM - #define gxm_DisplayPlanes_w gxm_DisplayPlanes - #define gxm_DisplayCells_w gxm_DisplayCells - #define gxm_DefaultColormap_w gxm_DefaultColormap - #define gxm_ScreenOfDisplay_w gxm_ScreenOfDisplay - #define gxm_DefaultDepth_w gxm_DefaultDepth - - #define gxm_IsKeypadKey_w gxm_IsKeypadKey - #define gxm_IsPrivateKeypadKey_w gxm_IsPrivateKeypadKey - #define gxm_IsCursorKey_w gxm_IsCursorKey - #define gxm_IsPFKey_w gxm_IsPFKey - #define gxm_IsFunctionKey_w gxm_IsFunctionKey - #define gxm_IsMiscFunctionKey_w gxm_IsMiscFunctionKey - #define gxm_IsModifierKey_w gxm_IsModifierKey - - #define XEN_XButtonEvent_p_w XEN_XButtonEvent_p - #define XEN_XCirculateEvent_p_w XEN_XCirculateEvent_p - #define XEN_XCirculateRequestEvent_p_w XEN_XCirculateRequestEvent_p - #define XEN_XClientMessageEvent_p_w XEN_XClientMessageEvent_p - #define XEN_XColormapEvent_p_w XEN_XColormapEvent_p - #define XEN_XConfigureEvent_p_w XEN_XConfigureEvent_p - #define XEN_XConfigureRequestEvent_p_w XEN_XConfigureRequestEvent_p - #define XEN_XCreateWindowEvent_p_w XEN_XCreateWindowEvent_p - #define XEN_XCrossingEvent_p_w XEN_XCrossingEvent_p - #define XEN_XDestroyWindowEvent_p_w XEN_XDestroyWindowEvent_p - #define XEN_XErrorEvent_p_w XEN_XErrorEvent_p - #define XEN_XExposeEvent_p_w XEN_XExposeEvent_p - #define XEN_XFocusChangeEvent_p_w XEN_XFocusChangeEvent_p - #define XEN_XGraphicsExposeEvent_p_w XEN_XGraphicsExposeEvent_p - #define XEN_XGravityEvent_p_w XEN_XGravityEvent_p - #define XEN_XKeyEvent_p_w XEN_XKeyEvent_p - #define XEN_XKeymapEvent_p_w XEN_XKeymapEvent_p - #define XEN_XMapEvent_p_w XEN_XMapEvent_p - #define XEN_XMapRequestEvent_p_w XEN_XMapRequestEvent_p - #define XEN_XMappingEvent_p_w XEN_XMappingEvent_p - #define XEN_XMotionEvent_p_w XEN_XMotionEvent_p - #define XEN_XNoExposeEvent_p_w XEN_XNoExposeEvent_p - #define XEN_XPropertyEvent_p_w XEN_XPropertyEvent_p - #define XEN_XReparentEvent_p_w XEN_XReparentEvent_p - #define XEN_XResizeRequestEvent_p_w XEN_XResizeRequestEvent_p - #define XEN_XSelectionClearEvent_p_w XEN_XSelectionClearEvent_p - #define XEN_XSelectionEvent_p_w XEN_XSelectionEvent_p - #define XEN_XSelectionRequestEvent_p_w XEN_XSelectionRequestEvent_p - #define XEN_XSetWindowAttributes_p_w XEN_XSetWindowAttributes_p - #define XEN_XUnmapEvent_p_w XEN_XUnmapEvent_p - #define XEN_XVisibilityEvent_p_w XEN_XVisibilityEvent_p - #define XEN_XIconSize_p_w XEN_XIconSize_p - -#if HAVE_MOTIF - #define gxm_XmCreateMessageBox_w gxm_XmCreateMessageBox - #define gxm_XmCreateMessageDialog_w gxm_XmCreateMessageDialog - #define gxm_XmCreateErrorDialog_w gxm_XmCreateErrorDialog - #define gxm_XmCreateInformationDialog_w gxm_XmCreateInformationDialog - #define gxm_XmCreateQuestionDialog_w gxm_XmCreateQuestionDialog - #define gxm_XmCreateWarningDialog_w gxm_XmCreateWarningDialog - #define gxm_XmCreateWorkingDialog_w gxm_XmCreateWorkingDialog - #define gxm_XmCreateTemplateDialog_w gxm_XmCreateTemplateDialog - #define gxm_XmMessageBoxGetChild_w gxm_XmMessageBoxGetChild - #define gxm_XmCreateArrowButtonGadget_w gxm_XmCreateArrowButtonGadget - #define gxm_XmCreateArrowButton_w gxm_XmCreateArrowButton - #define gxm_XmCreateNotebook_w gxm_XmCreateNotebook - #define gxm_XmNotebookGetPageInfo_w gxm_XmNotebookGetPageInfo - #define gxm_XmTransferSetParameters_w gxm_XmTransferSetParameters - #define gxm_XmTransferDone_w gxm_XmTransferDone - #define gxm_XmTransferValue_w gxm_XmTransferValue - #define gxm_XmTransferStartRequest_w gxm_XmTransferStartRequest - #define gxm_XmTransferSendRequest_w gxm_XmTransferSendRequest - #define gxm_XmCreateComboBox_w gxm_XmCreateComboBox - #define gxm_XmCreateDropDownComboBox_w gxm_XmCreateDropDownComboBox - #define gxm_XmCreateDropDownList_w gxm_XmCreateDropDownList - #define gxm_XmComboBoxAddItem_w gxm_XmComboBoxAddItem - #define gxm_XmComboBoxDeletePos_w gxm_XmComboBoxDeletePos - #define gxm_XmComboBoxSelectItem_w gxm_XmComboBoxSelectItem - #define gxm_XmComboBoxSetItem_w gxm_XmComboBoxSetItem - #define gxm_XmComboBoxUpdate_w gxm_XmComboBoxUpdate - #define gxm_XmCreateContainer_w gxm_XmCreateContainer - #define gxm_XmContainerGetItemChildren_w gxm_XmContainerGetItemChildren - #define gxm_XmContainerRelayout_w gxm_XmContainerRelayout - #define gxm_XmContainerReorder_w gxm_XmContainerReorder - #define gxm_XmContainerCut_w gxm_XmContainerCut - #define gxm_XmContainerCopy_w gxm_XmContainerCopy - #define gxm_XmContainerPaste_w gxm_XmContainerPaste - #define gxm_XmContainerCopyLink_w gxm_XmContainerCopyLink - #define gxm_XmContainerPasteLink_w gxm_XmContainerPasteLink - #define gxm_XmCreateSpinBox_w gxm_XmCreateSpinBox - #define gxm_XmSpinBoxValidatePosition_w gxm_XmSpinBoxValidatePosition - #define gxm_XmCreateSimpleSpinBox_w gxm_XmCreateSimpleSpinBox - #define gxm_XmSimpleSpinBoxAddItem_w gxm_XmSimpleSpinBoxAddItem - #define gxm_XmSimpleSpinBoxDeletePos_w gxm_XmSimpleSpinBoxDeletePos - #define gxm_XmSimpleSpinBoxSetItem_w gxm_XmSimpleSpinBoxSetItem - #define gxm_XmDropSiteRegistered_w gxm_XmDropSiteRegistered - #define gxm_XmTextFieldCopyLink_w gxm_XmTextFieldCopyLink - #define gxm_XmTextFieldPasteLink_w gxm_XmTextFieldPasteLink - #define gxm_XmTextGetCenterline_w gxm_XmTextGetCenterline - #define gxm_XmToggleButtonGadgetSetValue_w gxm_XmToggleButtonGadgetSetValue - #define gxm_XmCreateIconGadget_w gxm_XmCreateIconGadget - #define gxm_XmCreateIconHeader_w gxm_XmCreateIconHeader - #define gxm_XmObjectAtPoint_w gxm_XmObjectAtPoint - #define gxm_XmConvertStringToUnits_w gxm_XmConvertStringToUnits - #define gxm_XmCreateGrabShell_w gxm_XmCreateGrabShell - #define gxm_XmToggleButtonSetValue_w gxm_XmToggleButtonSetValue - #define gxm_XmTextPasteLink_w gxm_XmTextPasteLink - #define gxm_XmTextCopyLink_w gxm_XmTextCopyLink - #define gxm_XmScaleSetTicks_w gxm_XmScaleSetTicks - #define gxm_XmInternAtom_w gxm_XmInternAtom - #define gxm_XmGetAtomName_w gxm_XmGetAtomName - #define gxm_XmCreatePanedWindow_w gxm_XmCreatePanedWindow - #define gxm_XmCreateBulletinBoard_w gxm_XmCreateBulletinBoard - #define gxm_XmCreateBulletinBoardDialog_w gxm_XmCreateBulletinBoardDialog - #define gxm_XmCreateCascadeButtonGadget_w gxm_XmCreateCascadeButtonGadget - #define gxm_XmCascadeButtonGadgetHighlight_w gxm_XmCascadeButtonGadgetHighlight - #define gxm_XmAddProtocols_w gxm_XmAddProtocols - #define gxm_XmRemoveProtocols_w gxm_XmRemoveProtocols - #define gxm_XmAddProtocolCallback_w gxm_XmAddProtocolCallback - #define gxm_XmRemoveProtocolCallback_w gxm_XmRemoveProtocolCallback - #define gxm_XmActivateProtocol_w gxm_XmActivateProtocol - #define gxm_XmDeactivateProtocol_w gxm_XmDeactivateProtocol - #define gxm_XmSetProtocolHooks_w gxm_XmSetProtocolHooks - #define gxm_XmCreateCascadeButton_w gxm_XmCreateCascadeButton - #define gxm_XmCascadeButtonHighlight_w gxm_XmCascadeButtonHighlight - #define gxm_XmCreatePushButtonGadget_w gxm_XmCreatePushButtonGadget - #define gxm_XmCreatePushButton_w gxm_XmCreatePushButton - #define gxm_XmCreateCommand_w gxm_XmCreateCommand - #define gxm_XmCommandGetChild_w gxm_XmCommandGetChild - #define gxm_XmCommandSetValue_w gxm_XmCommandSetValue - #define gxm_XmCommandAppendValue_w gxm_XmCommandAppendValue - #define gxm_XmCommandError_w gxm_XmCommandError - #define gxm_XmCreateCommandDialog_w gxm_XmCreateCommandDialog - #define gxm_XmMenuPosition_w gxm_XmMenuPosition - #define gxm_XmCreateRowColumn_w gxm_XmCreateRowColumn - #define gxm_XmCreateWorkArea_w gxm_XmCreateWorkArea - #define gxm_XmCreateRadioBox_w gxm_XmCreateRadioBox - #define gxm_XmCreateOptionMenu_w gxm_XmCreateOptionMenu - #define gxm_XmOptionLabelGadget_w gxm_XmOptionLabelGadget - #define gxm_XmOptionButtonGadget_w gxm_XmOptionButtonGadget - #define gxm_XmCreateMenuBar_w gxm_XmCreateMenuBar - #define gxm_XmCreatePopupMenu_w gxm_XmCreatePopupMenu - #define gxm_XmCreatePulldownMenu_w gxm_XmCreatePulldownMenu - #define gxm_XmGetPostedFromWidget_w gxm_XmGetPostedFromWidget - #define gxm_XmGetTearOffControl_w gxm_XmGetTearOffControl - #define gxm_XmScaleSetValue_w gxm_XmScaleSetValue - #define gxm_XmScaleGetValue_w gxm_XmScaleGetValue - #define gxm_XmCreateScale_w gxm_XmCreateScale - #define gxm_XmClipboardBeginCopy_w gxm_XmClipboardBeginCopy - #define gxm_XmClipboardStartCopy_w gxm_XmClipboardStartCopy - #define gxm_XmClipboardCopy_w gxm_XmClipboardCopy - #define gxm_XmClipboardEndCopy_w gxm_XmClipboardEndCopy - #define gxm_XmClipboardCancelCopy_w gxm_XmClipboardCancelCopy - #define gxm_XmClipboardWithdrawFormat_w gxm_XmClipboardWithdrawFormat - #define gxm_XmClipboardCopyByName_w gxm_XmClipboardCopyByName - #define gxm_XmClipboardUndoCopy_w gxm_XmClipboardUndoCopy - #define gxm_XmClipboardLock_w gxm_XmClipboardLock - #define gxm_XmClipboardUnlock_w gxm_XmClipboardUnlock - #define gxm_XmClipboardStartRetrieve_w gxm_XmClipboardStartRetrieve - #define gxm_XmClipboardEndRetrieve_w gxm_XmClipboardEndRetrieve - #define gxm_XmClipboardRetrieve_w gxm_XmClipboardRetrieve - #define gxm_XmClipboardInquireCount_w gxm_XmClipboardInquireCount - #define gxm_XmClipboardInquireFormat_w gxm_XmClipboardInquireFormat - #define gxm_XmClipboardInquireLength_w gxm_XmClipboardInquireLength - #define gxm_XmClipboardInquirePendingItems_w gxm_XmClipboardInquirePendingItems - #define gxm_XmClipboardRegisterFormat_w gxm_XmClipboardRegisterFormat -#if HAVE_XmToolTipGetLabel - #define gxm_XmToolTipGetLabel_w gxm_XmToolTipGetLabel -#endif - #define gxm_XmGetXmScreen_w gxm_XmGetXmScreen -#if HAVE_XmCreateFontSelector - #define gxm_XmCreateFontSelector_w gxm_XmCreateFontSelector -#endif -#if HAVE_XmCreateColorSelector - #define gxm_XmCreateColorSelector_w gxm_XmCreateColorSelector -#endif - #define gxm_XmCreateScrollBar_w gxm_XmCreateScrollBar - #define gxm_XmScrollBarGetValues_w gxm_XmScrollBarGetValues - #define gxm_XmScrollBarSetValues_w gxm_XmScrollBarSetValues - #define gxm_XmCreateDialogShell_w gxm_XmCreateDialogShell - #define gxm_XmCreateScrolledWindow_w gxm_XmCreateScrolledWindow - #define gxm_XmScrollVisible_w gxm_XmScrollVisible - #define gxm_XmGetDragContext_w gxm_XmGetDragContext - #define gxm_XmGetXmDisplay_w gxm_XmGetXmDisplay - #define gxm_XmSelectionBoxGetChild_w gxm_XmSelectionBoxGetChild - #define gxm_XmCreateSelectionBox_w gxm_XmCreateSelectionBox - #define gxm_XmCreateSelectionDialog_w gxm_XmCreateSelectionDialog - #define gxm_XmCreatePromptDialog_w gxm_XmCreatePromptDialog - #define gxm_XmDragStart_w gxm_XmDragStart - #define gxm_XmDragCancel_w gxm_XmDragCancel - #define gxm_XmTargetsAreCompatible_w gxm_XmTargetsAreCompatible - #define gxm_XmCreateSeparatorGadget_w gxm_XmCreateSeparatorGadget - #define gxm_XmCreateDragIcon_w gxm_XmCreateDragIcon - #define gxm_XmCreateSeparator_w gxm_XmCreateSeparator - #define gxm_XmCreateDrawingArea_w gxm_XmCreateDrawingArea - #define gxm_XmCreateDrawnButton_w gxm_XmCreateDrawnButton - #define gxm_XmDropSiteRegister_w gxm_XmDropSiteRegister - #define gxm_XmDropSiteUnregister_w gxm_XmDropSiteUnregister - #define gxm_XmDropSiteStartUpdate_w gxm_XmDropSiteStartUpdate - #define gxm_XmDropSiteUpdate_w gxm_XmDropSiteUpdate - #define gxm_XmDropSiteEndUpdate_w gxm_XmDropSiteEndUpdate - #define gxm_XmDropSiteRetrieve_w gxm_XmDropSiteRetrieve - #define gxm_XmDropSiteQueryStackingOrder_w gxm_XmDropSiteQueryStackingOrder - #define gxm_XmDropSiteConfigureStackingOrder_w gxm_XmDropSiteConfigureStackingOrder - #define gxm_XmDropTransferStart_w gxm_XmDropTransferStart - #define gxm_XmDropTransferAdd_w gxm_XmDropTransferAdd - #define gxm_XmTextFieldGetString_w gxm_XmTextFieldGetString - #define gxm_XmTextFieldGetSubstring_w gxm_XmTextFieldGetSubstring - #define gxm_XmTextFieldGetLastPosition_w gxm_XmTextFieldGetLastPosition - #define gxm_XmTextFieldSetString_w gxm_XmTextFieldSetString - #define gxm_XmTextFieldReplace_w gxm_XmTextFieldReplace - #define gxm_XmTextFieldInsert_w gxm_XmTextFieldInsert - #define gxm_XmTextFieldSetAddMode_w gxm_XmTextFieldSetAddMode - #define gxm_XmTextFieldGetAddMode_w gxm_XmTextFieldGetAddMode - #define gxm_XmTextFieldGetEditable_w gxm_XmTextFieldGetEditable - #define gxm_XmTextFieldSetEditable_w gxm_XmTextFieldSetEditable - #define gxm_XmTextFieldGetMaxLength_w gxm_XmTextFieldGetMaxLength - #define gxm_XmTextFieldSetMaxLength_w gxm_XmTextFieldSetMaxLength - #define gxm_XmTextFieldGetCursorPosition_w gxm_XmTextFieldGetCursorPosition - #define gxm_XmTextFieldGetInsertionPosition_w gxm_XmTextFieldGetInsertionPosition - #define gxm_XmTextFieldSetCursorPosition_w gxm_XmTextFieldSetCursorPosition - #define gxm_XmTextFieldSetInsertionPosition_w gxm_XmTextFieldSetInsertionPosition - #define gxm_XmTextFieldGetSelectionPosition_w gxm_XmTextFieldGetSelectionPosition - #define gxm_XmTextFieldGetSelection_w gxm_XmTextFieldGetSelection - #define gxm_XmTextFieldRemove_w gxm_XmTextFieldRemove - #define gxm_XmTextFieldCopy_w gxm_XmTextFieldCopy - #define gxm_XmTextFieldCut_w gxm_XmTextFieldCut - #define gxm_XmTextFieldPaste_w gxm_XmTextFieldPaste - #define gxm_XmTextFieldClearSelection_w gxm_XmTextFieldClearSelection - #define gxm_XmTextFieldSetSelection_w gxm_XmTextFieldSetSelection - #define gxm_XmTextFieldXYToPos_w gxm_XmTextFieldXYToPos - #define gxm_XmTextFieldPosToXY_w gxm_XmTextFieldPosToXY - #define gxm_XmTextFieldShowPosition_w gxm_XmTextFieldShowPosition - #define gxm_XmTextFieldSetHighlight_w gxm_XmTextFieldSetHighlight - #define gxm_XmTextFieldGetBaseline_w gxm_XmTextFieldGetBaseline - #define gxm_XmCreateTextField_w gxm_XmCreateTextField - #define gxm_XmFileSelectionBoxGetChild_w gxm_XmFileSelectionBoxGetChild - #define gxm_XmFileSelectionDoSearch_w gxm_XmFileSelectionDoSearch - #define gxm_XmCreateFileSelectionBox_w gxm_XmCreateFileSelectionBox - #define gxm_XmCreateFileSelectionDialog_w gxm_XmCreateFileSelectionDialog - #define gxm_XmTextSetHighlight_w gxm_XmTextSetHighlight - #define gxm_XmCreateScrolledText_w gxm_XmCreateScrolledText - #define gxm_XmCreateText_w gxm_XmCreateText - #define gxm_XmTextGetSubstring_w gxm_XmTextGetSubstring - #define gxm_XmTextGetString_w gxm_XmTextGetString - #define gxm_XmTextGetLastPosition_w gxm_XmTextGetLastPosition - #define gxm_XmTextSetString_w gxm_XmTextSetString - #define gxm_XmTextReplace_w gxm_XmTextReplace - #define gxm_XmTextInsert_w gxm_XmTextInsert - #define gxm_XmTextSetAddMode_w gxm_XmTextSetAddMode - #define gxm_XmTextGetAddMode_w gxm_XmTextGetAddMode - #define gxm_XmTextGetEditable_w gxm_XmTextGetEditable - #define gxm_XmTextSetEditable_w gxm_XmTextSetEditable - #define gxm_XmTextGetMaxLength_w gxm_XmTextGetMaxLength - #define gxm_XmTextSetMaxLength_w gxm_XmTextSetMaxLength - #define gxm_XmTextGetTopCharacter_w gxm_XmTextGetTopCharacter - #define gxm_XmTextSetTopCharacter_w gxm_XmTextSetTopCharacter - #define gxm_XmTextGetCursorPosition_w gxm_XmTextGetCursorPosition - #define gxm_XmTextGetInsertionPosition_w gxm_XmTextGetInsertionPosition - #define gxm_XmTextSetInsertionPosition_w gxm_XmTextSetInsertionPosition - #define gxm_XmTextSetCursorPosition_w gxm_XmTextSetCursorPosition - #define gxm_XmTextRemove_w gxm_XmTextRemove - #define gxm_XmTextCopy_w gxm_XmTextCopy - #define gxm_XmTextCut_w gxm_XmTextCut - #define gxm_XmTextPaste_w gxm_XmTextPaste - #define gxm_XmTextGetSelection_w gxm_XmTextGetSelection - #define gxm_XmTextSetSelection_w gxm_XmTextSetSelection - #define gxm_XmTextClearSelection_w gxm_XmTextClearSelection - #define gxm_XmTextGetSelectionPosition_w gxm_XmTextGetSelectionPosition - #define gxm_XmTextXYToPos_w gxm_XmTextXYToPos - #define gxm_XmTextPosToXY_w gxm_XmTextPosToXY - #define gxm_XmTextGetSource_w gxm_XmTextGetSource - #define gxm_XmTextSetSource_w gxm_XmTextSetSource - #define gxm_XmTextShowPosition_w gxm_XmTextShowPosition - #define gxm_XmTextScroll_w gxm_XmTextScroll - #define gxm_XmTextGetBaseline_w gxm_XmTextGetBaseline - #define gxm_XmTextDisableRedisplay_w gxm_XmTextDisableRedisplay - #define gxm_XmTextEnableRedisplay_w gxm_XmTextEnableRedisplay - #define gxm_XmTextFindString_w gxm_XmTextFindString - #define gxm_XmCreateForm_w gxm_XmCreateForm - #define gxm_XmCreateFormDialog_w gxm_XmCreateFormDialog - #define gxm_XmCreateFrame_w gxm_XmCreateFrame - #define gxm_XmToggleButtonGadgetGetState_w gxm_XmToggleButtonGadgetGetState - #define gxm_XmToggleButtonGadgetSetState_w gxm_XmToggleButtonGadgetSetState - #define gxm_XmCreateToggleButtonGadget_w gxm_XmCreateToggleButtonGadget - #define gxm_XmToggleButtonGetState_w gxm_XmToggleButtonGetState - #define gxm_XmToggleButtonSetState_w gxm_XmToggleButtonSetState - #define gxm_XmCreateToggleButton_w gxm_XmCreateToggleButton - #define gxm_XmCreateLabelGadget_w gxm_XmCreateLabelGadget - #define gxm_XmCreateLabel_w gxm_XmCreateLabel - #define gxm_XmIsMotifWMRunning_w gxm_XmIsMotifWMRunning - #define gxm_XmListAddItem_w gxm_XmListAddItem - #define gxm_XmListAddItems_w gxm_XmListAddItems - #define gxm_XmListAddItemsUnselected_w gxm_XmListAddItemsUnselected - #define gxm_XmListAddItemUnselected_w gxm_XmListAddItemUnselected - #define gxm_XmListDeleteItem_w gxm_XmListDeleteItem - #define gxm_XmListDeleteItems_w gxm_XmListDeleteItems - #define gxm_XmListDeletePositions_w gxm_XmListDeletePositions - #define gxm_XmListDeletePos_w gxm_XmListDeletePos - #define gxm_XmListDeleteItemsPos_w gxm_XmListDeleteItemsPos - #define gxm_XmListDeleteAllItems_w gxm_XmListDeleteAllItems - #define gxm_XmListReplaceItems_w gxm_XmListReplaceItems - #define gxm_XmListReplaceItemsPos_w gxm_XmListReplaceItemsPos - #define gxm_XmListReplaceItemsUnselected_w gxm_XmListReplaceItemsUnselected - #define gxm_XmListReplaceItemsPosUnselected_w gxm_XmListReplaceItemsPosUnselected - #define gxm_XmListReplacePositions_w gxm_XmListReplacePositions - #define gxm_XmListSelectItem_w gxm_XmListSelectItem - #define gxm_XmListSelectPos_w gxm_XmListSelectPos - #define gxm_XmListDeselectItem_w gxm_XmListDeselectItem - #define gxm_XmListDeselectPos_w gxm_XmListDeselectPos - #define gxm_XmListDeselectAllItems_w gxm_XmListDeselectAllItems - #define gxm_XmListSetPos_w gxm_XmListSetPos - #define gxm_XmListSetBottomPos_w gxm_XmListSetBottomPos - #define gxm_XmListSetItem_w gxm_XmListSetItem - #define gxm_XmListSetBottomItem_w gxm_XmListSetBottomItem - #define gxm_XmListSetAddMode_w gxm_XmListSetAddMode - #define gxm_XmListItemExists_w gxm_XmListItemExists - #define gxm_XmListItemPos_w gxm_XmListItemPos - #define gxm_XmListGetKbdItemPos_w gxm_XmListGetKbdItemPos - #define gxm_XmListSetKbdItemPos_w gxm_XmListSetKbdItemPos - #define gxm_XmListYToPos_w gxm_XmListYToPos - #define gxm_XmListPosToBounds_w gxm_XmListPosToBounds - #define gxm_XmListGetMatchPos_w gxm_XmListGetMatchPos - #define gxm_XmListSetHorizPos_w gxm_XmListSetHorizPos - #define gxm_XmListUpdateSelectedList_w gxm_XmListUpdateSelectedList - #define gxm_XmListPosSelected_w gxm_XmListPosSelected - #define gxm_XmCreateList_w gxm_XmCreateList - #define gxm_XmCreateScrolledList_w gxm_XmCreateScrolledList - #define gxm_XmTranslateKey_w gxm_XmTranslateKey - #define gxm_XmCreateMainWindow_w gxm_XmCreateMainWindow - #define gxm_XmInstallImage_w gxm_XmInstallImage - #define gxm_XmUninstallImage_w gxm_XmUninstallImage - #define gxm_XmGetPixmap_w gxm_XmGetPixmap - #define gxm_XmGetPixmapByDepth_w gxm_XmGetPixmapByDepth - #define gxm_XmDestroyPixmap_w gxm_XmDestroyPixmap - #define gxm_XmUpdateDisplay_w gxm_XmUpdateDisplay - #define gxm_XmWidgetGetBaselines_w gxm_XmWidgetGetBaselines - #define gxm_XmRegisterSegmentEncoding_w gxm_XmRegisterSegmentEncoding - #define gxm_XmMapSegmentEncoding_w gxm_XmMapSegmentEncoding - #define gxm_XmCvtCTToXmString_w gxm_XmCvtCTToXmString - #define gxm_XmCvtXmStringToCT_w gxm_XmCvtXmStringToCT - #define gxm_XmConvertUnits_w gxm_XmConvertUnits - #define gxm_XmCreateSimpleMenuBar_w gxm_XmCreateSimpleMenuBar - #define gxm_XmCreateSimplePopupMenu_w gxm_XmCreateSimplePopupMenu - #define gxm_XmCreateSimplePulldownMenu_w gxm_XmCreateSimplePulldownMenu - #define gxm_XmCreateSimpleOptionMenu_w gxm_XmCreateSimpleOptionMenu - #define gxm_XmCreateSimpleRadioBox_w gxm_XmCreateSimpleRadioBox - #define gxm_XmCreateSimpleCheckBox_w gxm_XmCreateSimpleCheckBox - #define gxm_XmVaCreateSimpleMenuBar_w gxm_XmVaCreateSimpleMenuBar - #define gxm_XmVaCreateSimplePopupMenu_w gxm_XmVaCreateSimplePopupMenu - #define gxm_XmVaCreateSimplePulldownMenu_w gxm_XmVaCreateSimplePulldownMenu - #define gxm_XmVaCreateSimpleOptionMenu_w gxm_XmVaCreateSimpleOptionMenu - #define gxm_XmVaCreateSimpleRadioBox_w gxm_XmVaCreateSimpleRadioBox - #define gxm_XmVaCreateSimpleCheckBox_w gxm_XmVaCreateSimpleCheckBox - #define gxm_XmTrackingEvent_w gxm_XmTrackingEvent - #define gxm_XmSetColorCalculation_w gxm_XmSetColorCalculation - #define gxm_XmGetColorCalculation_w gxm_XmGetColorCalculation - #define gxm_XmGetColors_w gxm_XmGetColors - #define gxm_XmChangeColor_w gxm_XmChangeColor - #define gxm_XmStringCreate_w gxm_XmStringCreate - #define gxm_XmStringCreateLocalized_w gxm_XmStringCreateLocalized - #define gxm_XmStringDirectionCreate_w gxm_XmStringDirectionCreate - #define gxm_XmStringSeparatorCreate_w gxm_XmStringSeparatorCreate - #define gxm_XmStringInitContext_w gxm_XmStringInitContext - #define gxm_XmStringFreeContext_w gxm_XmStringFreeContext - #define gxm_XmStringConcatAndFree_w gxm_XmStringConcatAndFree - #define gxm_XmStringIsVoid_w gxm_XmStringIsVoid - #define gxm_XmStringPeekNextTriple_w gxm_XmStringPeekNextTriple - #define gxm_XmStringGetNextTriple_w gxm_XmStringGetNextTriple - #define gxm_XmStringComponentCreate_w gxm_XmStringComponentCreate - #define gxm_XmStringUnparse_w gxm_XmStringUnparse - #define gxm_XmStringParseText_w gxm_XmStringParseText - #define gxm_XmStringToXmStringTable_w gxm_XmStringToXmStringTable - #define gxm_XmStringTableToXmString_w gxm_XmStringTableToXmString - #define gxm_XmStringTableUnparse_w gxm_XmStringTableUnparse - #define gxm_XmStringTableParseStringArray_w gxm_XmStringTableParseStringArray - #define gxm_XmDirectionToStringDirection_w gxm_XmDirectionToStringDirection - #define gxm_XmStringDirectionToDirection_w gxm_XmStringDirectionToDirection - #define gxm_XmStringGenerate_w gxm_XmStringGenerate - #define gxm_XmStringPutRendition_w gxm_XmStringPutRendition - #define gxm_XmParseMappingCreate_w gxm_XmParseMappingCreate - #define gxm_XmParseMappingSetValues_w gxm_XmParseMappingSetValues - #define gxm_XmParseMappingGetValues_w gxm_XmParseMappingGetValues - #define gxm_XmParseMappingFree_w gxm_XmParseMappingFree - #define gxm_XmParseTableFree_w gxm_XmParseTableFree - #define gxm_XmStringTableProposeTablist_w gxm_XmStringTableProposeTablist - #define gxm_XmTabSetValue_w gxm_XmTabSetValue - #define gxm_XmTabGetValues_w gxm_XmTabGetValues - #define gxm_XmTabFree_w gxm_XmTabFree - #define gxm_XmTabListFree_w gxm_XmTabListFree - #define gxm_XmTabCreate_w gxm_XmTabCreate - #define gxm_XmTabListTabCount_w gxm_XmTabListTabCount - #define gxm_XmTabListRemoveTabs_w gxm_XmTabListRemoveTabs - #define gxm_XmTabListReplacePositions_w gxm_XmTabListReplacePositions - #define gxm_XmTabListGetTab_w gxm_XmTabListGetTab - #define gxm_XmTabListCopy_w gxm_XmTabListCopy - #define gxm_XmTabListInsertTabs_w gxm_XmTabListInsertTabs - #define gxm_XmRenderTableCvtFromProp_w gxm_XmRenderTableCvtFromProp - #define gxm_XmRenderTableCvtToProp_w gxm_XmRenderTableCvtToProp - #define gxm_XmRenditionUpdate_w gxm_XmRenditionUpdate - #define gxm_XmRenditionRetrieve_w gxm_XmRenditionRetrieve - #define gxm_XmRenditionFree_w gxm_XmRenditionFree - #define gxm_XmRenditionCreate_w gxm_XmRenditionCreate - #define gxm_XmRenderTableGetRenditions_w gxm_XmRenderTableGetRenditions - #define gxm_XmRenderTableGetRendition_w gxm_XmRenderTableGetRendition - #define gxm_XmRenderTableGetTags_w gxm_XmRenderTableGetTags - #define gxm_XmRenderTableFree_w gxm_XmRenderTableFree - #define gxm_XmRenderTableCopy_w gxm_XmRenderTableCopy - #define gxm_XmRenderTableRemoveRenditions_w gxm_XmRenderTableRemoveRenditions - #define gxm_XmRenderTableAddRenditions_w gxm_XmRenderTableAddRenditions - #define gxm_XmStringConcat_w gxm_XmStringConcat - #define gxm_XmStringCopy_w gxm_XmStringCopy - #define gxm_XmStringCompare_w gxm_XmStringCompare - #define gxm_XmStringEmpty_w gxm_XmStringEmpty - #define gxm_XmStringHasSubstring_w gxm_XmStringHasSubstring - #define gxm_XmStringFree_w gxm_XmStringFree - #define gxm_XmStringBaseline_w gxm_XmStringBaseline - #define gxm_XmStringWidth_w gxm_XmStringWidth - #define gxm_XmStringHeight_w gxm_XmStringHeight - #define gxm_XmStringExtent_w gxm_XmStringExtent - #define gxm_XmStringLineCount_w gxm_XmStringLineCount - #define gxm_XmStringDraw_w gxm_XmStringDraw - #define gxm_XmStringDrawImage_w gxm_XmStringDrawImage - #define gxm_XmStringDrawUnderline_w gxm_XmStringDrawUnderline - - #define gxm_XmGetDestination_w gxm_XmGetDestination - #define gxm_XmIsTraversable_w gxm_XmIsTraversable - #define gxm_XmGetVisibility_w gxm_XmGetVisibility - #define gxm_XmGetTabGroup_w gxm_XmGetTabGroup - #define gxm_XmGetFocusWidget_w gxm_XmGetFocusWidget - #define gxm_XmProcessTraversal_w gxm_XmProcessTraversal - #define gxm_XmCreateMenuShell_w gxm_XmCreateMenuShell - - #define gxm_XmIsMessageBox_w gxm_XmIsMessageBox - #define gxm_XmIsArrowButtonGadget_w gxm_XmIsArrowButtonGadget - #define gxm_XmIsArrowButton_w gxm_XmIsArrowButton - #define gxm_XmCvtXmStringToByteStream_w gxm_XmCvtXmStringToByteStream - #define gxm_XmCvtByteStreamToXmString_w gxm_XmCvtByteStreamToXmString - #define gxm_XmStringByteStreamLength_w gxm_XmStringByteStreamLength - #define gxm_XmIsNotebook_w gxm_XmIsNotebook - #define gxm_XmIsComboBox_w gxm_XmIsComboBox - #define gxm_XmIsContainer_w gxm_XmIsContainer - #define gxm_XmIsGrabShell_w gxm_XmIsGrabShell - #define gxm_XmIsIconGadget_w gxm_XmIsIconGadget - #define gxm_XmIsIconHeader_w gxm_XmIsIconHeader - #define gxm_XmIsPanedWindow_w gxm_XmIsPanedWindow - #define gxm_XmIsBulletinBoard_w gxm_XmIsBulletinBoard - #define gxm_XmIsPrimitive_w gxm_XmIsPrimitive - #define gxm_XmIsCascadeButtonGadget_w gxm_XmIsCascadeButtonGadget - #define gxm_XmIsCascadeButton_w gxm_XmIsCascadeButton - #define gxm_XmIsPushButtonGadget_w gxm_XmIsPushButtonGadget - #define gxm_XmIsPushButton_w gxm_XmIsPushButton - #define gxm_XmIsCommand_w gxm_XmIsCommand - #define gxm_XmIsRowColumn_w gxm_XmIsRowColumn - #define gxm_XmIsScale_w gxm_XmIsScale - #define gxm_XmIsScreen_w gxm_XmIsScreen - #define gxm_XmIsScrollBar_w gxm_XmIsScrollBar - #define gxm_XmIsDialogShell_w gxm_XmIsDialogShell - #define gxm_XmIsScrolledWindow_w gxm_XmIsScrolledWindow - #define gxm_XmIsDisplay_w gxm_XmIsDisplay - #define gxm_XmIsSelectionBox_w gxm_XmIsSelectionBox - #define gxm_XmIsDragContext_w gxm_XmIsDragContext - #define gxm_XmIsSeparatorGadget_w gxm_XmIsSeparatorGadget - #define gxm_XmIsDragIconObjectClass_w gxm_XmIsDragIconObjectClass - #define gxm_XmIsSeparator_w gxm_XmIsSeparator - #define gxm_XmIsDrawingArea_w gxm_XmIsDrawingArea - #define gxm_XmIsDrawnButton_w gxm_XmIsDrawnButton - #define gxm_XmIsDropSiteManager_w gxm_XmIsDropSiteManager - #define gxm_XmIsDropTransfer_w gxm_XmIsDropTransfer - #define gxm_XmIsTextField_w gxm_XmIsTextField - #define gxm_XmIsFileSelectionBox_w gxm_XmIsFileSelectionBox - #define gxm_XmIsText_w gxm_XmIsText - #define gxm_XmIsForm_w gxm_XmIsForm - #define gxm_XmIsFrame_w gxm_XmIsFrame - #define gxm_XmIsGadget_w gxm_XmIsGadget - #define gxm_XmIsToggleButtonGadget_w gxm_XmIsToggleButtonGadget - #define gxm_XmIsToggleButton_w gxm_XmIsToggleButton - #define gxm_XmIsLabelGadget_w gxm_XmIsLabelGadget - #define gxm_XmIsLabel_w gxm_XmIsLabel - #define gxm_XmIsVendorShell_w gxm_XmIsVendorShell - #define gxm_XmIsList_w gxm_XmIsList - #define gxm_XmIsMainWindow_w gxm_XmIsMainWindow - #define gxm_XmIsManager_w gxm_XmIsManager - #define gxm_XmIsMenuShell_w gxm_XmIsMenuShell - #define gxm_XmListGetSelectedPos_w gxm_XmListGetSelectedPos - #define gxm_XmWidgetGetDisplayRect_w gxm_XmWidgetGetDisplayRect - -#if HAVE_XmCreateButtonBox - #define gxm_XmIsButtonBox_w gxm_XmIsButtonBox - #define gxm_XmCreateButtonBox_w gxm_XmCreateButtonBox -#endif -#if HAVE_XmCreateTabStack - #define gxm_XmCreateTabStack_w gxm_XmCreateTabStack - #define gxm_XmIsTabStack_w gxm_XmIsTabStack - #define gxm_XmTabStackGetSelectedTab_w gxm_XmTabStackGetSelectedTab - #define gxm_XmTabStackSelectTab_w gxm_XmTabStackSelectTab -#if HAVE_XmTabStackXYToWidget - #define gxm_XmTabStackIndexToWidget_w gxm_XmTabStackIndexToWidget - #define gxm_XmTabStackXYToWidget_w gxm_XmTabStackXYToWidget -#endif -#endif -#if HAVE_XmCreateDataField - #define gxm_XmIsDataField_w gxm_XmIsDataField - #define gxm_XmCreateDataField_w gxm_XmCreateDataField - #define gxm_XmDataFieldSetString_w gxm_XmDataFieldSetString - #define gxm_XmDataFieldGetString_w gxm_XmDataFieldGetString - #define gxm_XmDataFieldSetHighlight_w gxm_XmDataFieldSetHighlight - #define gxm_XmDataFieldSetAddMode_w gxm_XmDataFieldSetAddMode - #define gxm_XmDataFieldGetSelection_w gxm_XmDataFieldGetSelection - #define gxm_XmDataFieldSetSelection_w gxm_XmDataFieldSetSelection - #define gxm_XmDataFieldGetSelectionPosition_w gxm_XmDataFieldGetSelectionPosition - #define gxm_XmDataFieldXYToPos_w gxm_XmDataFieldXYToPos - #define gxm_XmDataFieldShowPosition_w gxm_XmDataFieldShowPosition - #define gxm_XmDataFieldCut_w gxm_XmDataFieldCut - #define gxm_XmDataFieldCopy_w gxm_XmDataFieldCopy - #define gxm_XmDataFieldPaste_w gxm_XmDataFieldPaste - #define gxm_XmDataFieldSetEditable_w gxm_XmDataFieldSetEditable - #define gxm_XmDataFieldSetInsertionPosition_w gxm_XmDataFieldSetInsertionPosition -#endif -#if HAVE_XmCreateColumn - #define gxm_XmCreateColumn_w gxm_XmCreateColumn - #define gxm_XmIsColumn_w gxm_XmIsColumn -#if HAVE_XmColumnGetChildLabel - #define gxm_XmColumnGetChildLabel_w gxm_XmColumnGetChildLabel -#endif -#endif -#if HAVE_XmCreateDropDown - #define gxm_XmIsDropDown_w gxm_XmIsDropDown - #define gxm_XmDropDownGetValue_w gxm_XmDropDownGetValue - #define gxm_XmDropDownGetList_w gxm_XmDropDownGetList - #define gxm_XmDropDownGetText_w gxm_XmDropDownGetText - #define gxm_XmDropDownGetArrow_w gxm_XmDropDownGetArrow - #define gxm_XmDropDownGetLabel_w gxm_XmDropDownGetLabel - #define gxm_XmCreateDropDown_w gxm_XmCreateDropDown -#endif - -#endif - - #define gxm_XpmCreatePixmapFromData_w gxm_XpmCreatePixmapFromData - #define gxm_XpmCreateDataFromPixmap_w gxm_XpmCreateDataFromPixmap - #define gxm_XpmReadFileToPixmap_w gxm_XpmReadFileToPixmap - #define gxm_XpmReadFileToXpmImage_w gxm_XpmReadFileToXpmImage - #define gxm_XpmWriteFileFromPixmap_w gxm_XpmWriteFileFromPixmap - #define gxm_XpmCreatePixmapFromXpmImage_w gxm_XpmCreatePixmapFromXpmImage - #define gxm_XpmCreateXpmImageFromPixmap_w gxm_XpmCreateXpmImageFromPixmap - #define gxm_XpmGetErrorString_w gxm_XpmGetErrorString - - #define gxm_XGetPixel_w gxm_XGetPixel - #define gxm_XDestroyImage_w gxm_XDestroyImage - #define gxm_XPutPixel_w gxm_XPutPixel - #define gxm_XSubImage_w gxm_XSubImage - #define gxm_XAddPixel_w gxm_XAddPixel - -#if HAVE_MOTIF - #define XEN_XtAppContext_p_w XEN_XtAppContext_p - #define XEN_XtRequestId_p_w XEN_XtRequestId_p - #define XEN_XtWorkProcId_p_w XEN_XtWorkProcId_p - #define XEN_XtInputId_p_w XEN_XtInputId_p - #define XEN_XtIntervalId_p_w XEN_XtIntervalId_p -#endif - #define XEN_Screen_p_w XEN_Screen_p - #define XEN_XEvent_p_w XEN_XEvent_p - #define XEN_XRectangle_p_w XEN_XRectangle_p - #define XEN_XArc_p_w XEN_XArc_p - #define XEN_XPoint_p_w XEN_XPoint_p - #define XEN_XSegment_p_w XEN_XSegment_p - #define XEN_XColor_p_w XEN_XColor_p - #define XEN_Atom_p_w XEN_Atom_p - #define XEN_Colormap_p_w XEN_Colormap_p - #define XEN_XModifierKeymap_p_w XEN_XModifierKeymap_p - #define XEN_Depth_p_w XEN_Depth_p - #define XEN_Display_p_w XEN_Display_p - #define XEN_Font_p_w XEN_Font_p - #define XEN_GC_p_w XEN_GC_p - #define XEN_KeySym_p_w XEN_KeySym_p - #define XEN_Pixel_p_w XEN_Pixel_p - #define XEN_Pixmap_p_w XEN_Pixmap_p - #define XEN_Region_p_w XEN_Region_p - #define XEN_Time_p_w XEN_Time_p - #define XEN_Visual_p_w XEN_Visual_p - #define XEN_Window_p_w XEN_Window_p -#if HAVE_MOTIF - #define XEN_Widget_p_w XEN_Widget_p - #define XEN_XmStringContext_p_w XEN_XmStringContext_p -#endif - #define XEN_XFontProp_p_w XEN_XFontProp_p - #define XEN_XFontSet_p_w XEN_XFontSet_p - #define XEN_XFontStruct_p_w XEN_XFontStruct_p - #define XEN_XGCValues_p_w XEN_XGCValues_p - #define XEN_XImage_p_w XEN_XImage_p - #define XEN_XVisualInfo_p_w XEN_XVisualInfo_p - #define XEN_XWMHints_p_w XEN_XWMHints_p - #define XEN_XWindowAttributes_p_w XEN_XWindowAttributes_p - #define XEN_XWindowChanges_p_w XEN_XWindowChanges_p - #define XEN_KeyCode_p_w XEN_KeyCode_p - #define XEN_XContext_p_w XEN_XContext_p - #define XEN_XCharStruct_p_w XEN_XCharStruct_p - #define XEN_XTextItem_p_w XEN_XTextItem_p - #define XEN_XStandardColormap_p_w XEN_XStandardColormap_p - #define XEN_Cursor_p_w XEN_Cursor_p -#if HAVE_MOTIF - #define XEN_WidgetClass_p_w XEN_WidgetClass_p - #define XEN_XmString_p_w XEN_XmString_p - #define XEN_XmTab_p_w XEN_XmTab_p - #define XEN_XmRendition_p_w XEN_XmRendition_p - #define XEN_XmRenderTable_p_w XEN_XmRenderTable_p - #define XEN_XmTabList_p_w XEN_XmTabList_p - #define XEN_XmParseMapping_p_w XEN_XmParseMapping_p - #define XEN_XmTextSource_p_w XEN_XmTextSource_p + XM_field_assert_type(Xen_is_XmTopLevelEnterCallbackStruct(ptr), ptr, 1, "dragProtocolStyle", "XmTopLevelEnterCallbackStruct"); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmTopLevelEnterCallbackStruct(ptr))->dragProtocolStyle))); +} + +static Xen gxm_traversal_destination(Xen ptr) +{ + XM_field_assert_type(Xen_is_XmTraverseObscuredCallbackStruct(ptr), ptr, 1, "traversal_destination", "XmTraverseObscuredCallbackStruct"); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmTraverseObscuredCallbackStruct(ptr))->traversal_destination))); +} + +static Xen gxm_minor_tab_widget(Xen ptr) +{ + XM_field_assert_type(Xen_is_XmNotebookPageInfo(ptr), ptr, 1, "minor_tab_widget", "XmNotebookPageInfo"); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmNotebookPageInfo(ptr))->minor_tab_widget))); +} + +static Xen gxm_major_tab_widget(Xen ptr) +{ + XM_field_assert_type(Xen_is_XmNotebookPageInfo(ptr), ptr, 1, "major_tab_widget", "XmNotebookPageInfo"); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmNotebookPageInfo(ptr))->major_tab_widget))); +} + +static Xen gxm_status_area_widget(Xen ptr) +{ + XM_field_assert_type(Xen_is_XmNotebookPageInfo(ptr), ptr, 1, "status_area_widget", "XmNotebookPageInfo"); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmNotebookPageInfo(ptr))->status_area_widget))); +} + +static Xen gxm_page_widget(Xen ptr) +{ + XM_field_assert_type(Xen_is_XmNotebookCallbackStruct(ptr) || Xen_is_XmNotebookPageInfo(ptr), ptr, 1, "page_widget", "a struct with a page_widget field"); + if (Xen_is_XmNotebookCallbackStruct(ptr)) return(C_to_Xen_Widget((Widget)((Xen_to_C_XmNotebookCallbackStruct(ptr))->page_widget))); + return(C_to_Xen_Widget((Widget)((Xen_to_C_XmNotebookPageInfo(ptr))->page_widget))); +} + +static Xen gxm_page_number(Xen ptr) +{ + XM_field_assert_type(Xen_is_XmNotebookCallbackStruct(ptr) || Xen_is_XmNotebookPageInfo(ptr), ptr, 1, "page_number", "a struct with a page_number field"); + if (Xen_is_XmNotebookCallbackStruct(ptr)) return(C_int_to_Xen_integer((int)((Xen_to_C_XmNotebookCallbackStruct(ptr))->page_number))); + return(C_int_to_Xen_integer((int)((Xen_to_C_XmNotebookPageInfo(ptr))->page_number))); +} + + +Xen_wrap_3_args(gxm_XtSetArg_w, gxm_XtSetArg) +Xen_wrap_2_optional_args(gxm_XtManageChildren_w, gxm_XtManageChildren) +Xen_wrap_1_arg(gxm_XtManageChild_w, gxm_XtManageChild) +Xen_wrap_2_optional_args(gxm_XtUnmanageChildren_w, gxm_XtUnmanageChildren) +Xen_wrap_1_arg(gxm_XtUnmanageChild_w, gxm_XtUnmanageChild) +Xen_wrap_1_arg(gxm_XtDispatchEvent_w, gxm_XtDispatchEvent) +Xen_wrap_2_args(gxm_XtCallAcceptFocus_w, gxm_XtCallAcceptFocus) +Xen_wrap_1_arg(gxm_XtAppPeekEvent_w, gxm_XtAppPeekEvent) +Xen_wrap_2_args(gxm_XtIsSubclass_w, gxm_XtIsSubclass) +Xen_wrap_2_args(gxm_XtAppSetFallbackResources_w, gxm_XtAppSetFallbackResources) +Xen_wrap_1_arg(gxm_XtIsObject_w, gxm_XtIsObject) +Xen_wrap_1_arg(gxm_XtIsManaged_w, gxm_XtIsManaged) +Xen_wrap_1_arg(gxm_XtIsRealized_w, gxm_XtIsRealized) +Xen_wrap_1_arg(gxm_XtIsSensitive_w, gxm_XtIsSensitive) +Xen_wrap_6_args(gxm_XtOwnSelection_w, gxm_XtOwnSelection) +Xen_wrap_8_args(gxm_XtOwnSelectionIncremental_w, gxm_XtOwnSelectionIncremental) +Xen_wrap_3_args(gxm_XtMakeResizeRequest_w, gxm_XtMakeResizeRequest) +Xen_wrap_3_args(gxm_XtTranslateCoords_w, gxm_XtTranslateCoords) +Xen_wrap_2_args(gxm_XtKeysymToKeycodeList_w, gxm_XtKeysymToKeycodeList) +Xen_wrap_1_arg(gxm_XtParseTranslationTable_w, gxm_XtParseTranslationTable) +Xen_wrap_1_arg(gxm_XtParseAcceleratorTable_w, gxm_XtParseAcceleratorTable) +Xen_wrap_2_args(gxm_XtOverrideTranslations_w, gxm_XtOverrideTranslations) +Xen_wrap_2_args(gxm_XtAugmentTranslations_w, gxm_XtAugmentTranslations) +Xen_wrap_2_args(gxm_XtInstallAccelerators_w, gxm_XtInstallAccelerators) +Xen_wrap_2_args(gxm_XtInstallAllAccelerators_w, gxm_XtInstallAllAccelerators) +Xen_wrap_1_arg(gxm_XtUninstallTranslations_w, gxm_XtUninstallTranslations) +Xen_wrap_2_args(gxm_XtAppAddActions_w, gxm_XtAppAddActions) +Xen_wrap_3_optional_args(gxm_XtAppAddActionHook_w, gxm_XtAppAddActionHook) +Xen_wrap_1_arg(gxm_XtRemoveActionHook_w, gxm_XtRemoveActionHook) +Xen_wrap_1_arg(gxm_XtGetActionList_w, gxm_XtGetActionList) +Xen_wrap_5_optional_args(gxm_XtCallActionProc_w, gxm_XtCallActionProc) +Xen_wrap_5_args(gxm_XtRegisterGrabAction_w, gxm_XtRegisterGrabAction) +Xen_wrap_2_args(gxm_XtSetMultiClickTime_w, gxm_XtSetMultiClickTime) +Xen_wrap_1_arg(gxm_XtGetMultiClickTime_w, gxm_XtGetMultiClickTime) +Xen_wrap_1_arg(gxm_XtGetResourceList_w, gxm_XtGetResourceList) +Xen_wrap_1_arg(gxm_XtGetActionKeysym_w, gxm_XtGetActionKeysym) +Xen_wrap_3_args(gxm_XtTranslateKeycode_w, gxm_XtTranslateKeycode) +Xen_wrap_3_args(gxm_XtTranslateKey_w, gxm_XtTranslateKey) +Xen_wrap_2_args(gxm_XtSetKeyTranslator_w, gxm_XtSetKeyTranslator) +Xen_wrap_4_args(gxm_XtRegisterCaseConverter_w, gxm_XtRegisterCaseConverter) +Xen_wrap_2_args(gxm_XtConvertCase_w, gxm_XtConvertCase) +Xen_wrap_5_optional_args(gxm_XtAddEventHandler_w, gxm_XtAddEventHandler) +Xen_wrap_5_args(gxm_XtRemoveEventHandler_w, gxm_XtRemoveEventHandler) +Xen_wrap_5_args(gxm_XtAddRawEventHandler_w, gxm_XtAddRawEventHandler) +Xen_wrap_5_args(gxm_XtRemoveRawEventHandler_w, gxm_XtRemoveRawEventHandler) +Xen_wrap_6_args(gxm_XtInsertEventHandler_w, gxm_XtInsertEventHandler) +Xen_wrap_6_args(gxm_XtInsertRawEventHandler_w, gxm_XtInsertRawEventHandler) +Xen_wrap_2_args(gxm_XtDispatchEventToWidget_w, gxm_XtDispatchEventToWidget) +Xen_wrap_1_arg(gxm_XtBuildEventMask_w, gxm_XtBuildEventMask) +Xen_wrap_3_args(gxm_XtAddGrab_w, gxm_XtAddGrab) +Xen_wrap_1_arg(gxm_XtRemoveGrab_w, gxm_XtRemoveGrab) +Xen_wrap_2_args(gxm_XtAppProcessEvent_w, gxm_XtAppProcessEvent) +Xen_wrap_1_arg(gxm_XtAppMainLoop_w, gxm_XtAppMainLoop) +Xen_wrap_2_args(gxm_XtAddExposureToRegion_w, gxm_XtAddExposureToRegion) +Xen_wrap_2_args(gxm_XtSetKeyboardFocus_w, gxm_XtSetKeyboardFocus) +Xen_wrap_1_arg(gxm_XtGetKeyboardFocusWidget_w, gxm_XtGetKeyboardFocusWidget) +Xen_wrap_1_arg(gxm_XtLastEventProcessed_w, gxm_XtLastEventProcessed) +Xen_wrap_1_arg(gxm_XtLastTimestampProcessed_w, gxm_XtLastTimestampProcessed) +Xen_wrap_4_optional_args(gxm_XtAppAddTimeOut_w, gxm_XtAppAddTimeOut) +Xen_wrap_1_arg(gxm_XtRemoveTimeOut_w, gxm_XtRemoveTimeOut) +Xen_wrap_5_optional_args(gxm_XtAppAddInput_w, gxm_XtAppAddInput) +Xen_wrap_1_arg(gxm_XtRemoveInput_w, gxm_XtRemoveInput) +Xen_wrap_1_arg(gxm_XtAppNextEvent_w, gxm_XtAppNextEvent) +Xen_wrap_1_arg(gxm_XtAppPending_w, gxm_XtAppPending) +Xen_wrap_1_arg(gxm_XtRealizeWidget_w, gxm_XtRealizeWidget) +Xen_wrap_1_arg(gxm_XtUnrealizeWidget_w, gxm_XtUnrealizeWidget) +Xen_wrap_1_arg(gxm_XtDestroyWidget_w, gxm_XtDestroyWidget) +Xen_wrap_2_args(gxm_XtSetSensitive_w, gxm_XtSetSensitive) +Xen_wrap_2_args(gxm_XtNameToWidget_w, gxm_XtNameToWidget) +Xen_wrap_2_args(gxm_XtWindowToWidget_w, gxm_XtWindowToWidget) +Xen_wrap_4_args(gxm_XtMergeArgLists_w, gxm_XtMergeArgLists) +Xen_wrap_2_args(gxm_XtVaCreateArgsList_w, gxm_XtVaCreateArgsList) +Xen_wrap_1_arg(gxm_XtDisplay_w, gxm_XtDisplay) +Xen_wrap_1_arg(gxm_XtDisplayOfObject_w, gxm_XtDisplayOfObject) +Xen_wrap_1_arg(gxm_XtScreen_w, gxm_XtScreen) +Xen_wrap_1_arg(gxm_XtScreenOfObject_w, gxm_XtScreenOfObject) +Xen_wrap_1_arg(gxm_XtWindow_w, gxm_XtWindow) +Xen_wrap_1_arg(gxm_XtWindowOfObject_w, gxm_XtWindowOfObject) +Xen_wrap_1_arg(gxm_XtName_w, gxm_XtName) +Xen_wrap_1_arg(gxm_XtSuperclass_w, gxm_XtSuperclass) +Xen_wrap_1_arg(gxm_XtClass_w, gxm_XtClass) +Xen_wrap_1_arg(gxm_XtParent_w, gxm_XtParent) +Xen_wrap_4_optional_args(gxm_XtAddCallback_w, gxm_XtAddCallback) +Xen_wrap_3_args(gxm_XtRemoveCallback_w, gxm_XtRemoveCallback) +Xen_wrap_3_args(gxm_XtAddCallbacks_w, gxm_XtAddCallbacks) +Xen_wrap_3_args(gxm_XtRemoveCallbacks_w, gxm_XtRemoveCallbacks) +Xen_wrap_2_args(gxm_XtRemoveAllCallbacks_w, gxm_XtRemoveAllCallbacks) +Xen_wrap_3_args(gxm_XtCallCallbacks_w, gxm_XtCallCallbacks) +Xen_wrap_2_args(gxm_XtHasCallbacks_w, gxm_XtHasCallbacks) +Xen_wrap_5_optional_args(gxm_XtCreatePopupShell_w, gxm_XtCreatePopupShell) +Xen_wrap_4_args(gxm_XtVaCreatePopupShell_w, gxm_XtVaCreatePopupShell) +Xen_wrap_2_args(gxm_XtPopup_w, gxm_XtPopup) +Xen_wrap_1_arg(gxm_XtPopupSpringLoaded_w, gxm_XtPopupSpringLoaded) +Xen_wrap_3_args(gxm_XtCallbackNone_w, gxm_XtCallbackNone) +Xen_wrap_3_args(gxm_XtCallbackNonexclusive_w, gxm_XtCallbackNonexclusive) +Xen_wrap_3_args(gxm_XtCallbackExclusive_w, gxm_XtCallbackExclusive) +Xen_wrap_1_arg(gxm_XtPopdown_w, gxm_XtPopdown) +Xen_wrap_3_args(gxm_XtCallbackPopdown_w, gxm_XtCallbackPopdown) +Xen_wrap_5_optional_args(gxm_XtCreateWidget_w, gxm_XtCreateWidget) +Xen_wrap_5_optional_args(gxm_XtCreateManagedWidget_w, gxm_XtCreateManagedWidget) +Xen_wrap_4_args(gxm_XtVaCreateWidget_w, gxm_XtVaCreateWidget) +Xen_wrap_4_args(gxm_XtVaCreateManagedWidget_w, gxm_XtVaCreateManagedWidget) +Xen_wrap_6_optional_args(gxm_XtAppCreateShell_w, gxm_XtAppCreateShell) +Xen_wrap_5_args(gxm_XtVaAppCreateShell_w, gxm_XtVaAppCreateShell) +Xen_wrap_no_args(gxm_XtToolkitInitialize_w, gxm_XtToolkitInitialize) +Xen_wrap_3_args(gxm_XtSetLanguageProc_w, gxm_XtSetLanguageProc) +Xen_wrap_6_args(gxm_XtDisplayInitialize_w, gxm_XtDisplayInitialize) +Xen_wrap_6_optional_args(gxm_XtOpenApplication_w, gxm_XtOpenApplication) +Xen_wrap_6_optional_args(gxm_XtVaOpenApplication_w, gxm_XtVaOpenApplication) +Xen_wrap_5_optional_args(gxm_XtAppInitialize_w, gxm_XtAppInitialize) +Xen_wrap_5_optional_args(gxm_XtVaAppInitialize_w, gxm_XtVaAppInitialize) +Xen_wrap_6_args(gxm_XtOpenDisplay_w, gxm_XtOpenDisplay) +Xen_wrap_no_args(gxm_XtCreateApplicationContext_w, gxm_XtCreateApplicationContext) +Xen_wrap_1_arg(gxm_XtDestroyApplicationContext_w, gxm_XtDestroyApplicationContext) +Xen_wrap_1_arg(gxm_XtInitializeWidgetClass_w, gxm_XtInitializeWidgetClass) +Xen_wrap_1_arg(gxm_XtWidgetToApplicationContext_w, gxm_XtWidgetToApplicationContext) +Xen_wrap_1_arg(gxm_XtDisplayToApplicationContext_w, gxm_XtDisplayToApplicationContext) +Xen_wrap_1_arg(gxm_XtCloseDisplay_w, gxm_XtCloseDisplay) +Xen_wrap_3_optional_args(gxm_XtSetValues_w, gxm_XtSetValues) +Xen_wrap_2_args(gxm_XtVaSetValues_w, gxm_XtVaSetValues) +Xen_wrap_3_optional_args(gxm_XtGetValues_w, gxm_XtGetValues) +Xen_wrap_2_args(gxm_XtVaGetValues_w, gxm_XtVaGetValues) +Xen_wrap_2_args(gxm_XtAppSetErrorMsgHandler_w, gxm_XtAppSetErrorMsgHandler) +Xen_wrap_2_args(gxm_XtAppSetWarningMsgHandler_w, gxm_XtAppSetWarningMsgHandler) +Xen_wrap_7_args(gxm_XtAppErrorMsg_w, gxm_XtAppErrorMsg) +Xen_wrap_7_args(gxm_XtAppWarningMsg_w, gxm_XtAppWarningMsg) +Xen_wrap_2_args(gxm_XtAppSetErrorHandler_w, gxm_XtAppSetErrorHandler) +Xen_wrap_2_args(gxm_XtAppSetWarningHandler_w, gxm_XtAppSetWarningHandler) +Xen_wrap_2_args(gxm_XtAppError_w, gxm_XtAppError) +Xen_wrap_1_arg(gxm_XtMalloc_w, gxm_XtMalloc) +Xen_wrap_2_args(gxm_XtCalloc_w, gxm_XtCalloc) +Xen_wrap_2_args(gxm_XtRealloc_w, gxm_XtRealloc) +Xen_wrap_1_arg(gxm_XtFree_w, gxm_XtFree) +Xen_wrap_3_optional_args(gxm_XtAppAddWorkProc_w, gxm_XtAppAddWorkProc) +Xen_wrap_1_arg(gxm_XtRemoveWorkProc_w, gxm_XtRemoveWorkProc) +Xen_wrap_3_args(gxm_XtGetGC_w, gxm_XtGetGC) +Xen_wrap_6_args(gxm_XtAllocateGC_w, gxm_XtAllocateGC) +Xen_wrap_1_arg(gxm_XtDestroyGC_w, gxm_XtDestroyGC) +Xen_wrap_2_args(gxm_XtReleaseGC_w, gxm_XtReleaseGC) +Xen_wrap_4_args(gxm_XtFindFile_w, gxm_XtFindFile) +Xen_wrap_8_args(gxm_XtResolvePathname_w, gxm_XtResolvePathname) +Xen_wrap_3_args(gxm_XtDisownSelection_w, gxm_XtDisownSelection) +Xen_wrap_6_args(gxm_XtGetSelectionValue_w, gxm_XtGetSelectionValue) +Xen_wrap_7_args(gxm_XtGetSelectionValues_w, gxm_XtGetSelectionValues) +Xen_wrap_2_args(gxm_XtAppSetSelectionTimeout_w, gxm_XtAppSetSelectionTimeout) +Xen_wrap_1_arg(gxm_XtAppGetSelectionTimeout_w, gxm_XtAppGetSelectionTimeout) +Xen_wrap_3_args(gxm_XtGetSelectionRequest_w, gxm_XtGetSelectionRequest) +Xen_wrap_6_args(gxm_XtGetSelectionValueIncremental_w, gxm_XtGetSelectionValueIncremental) +Xen_wrap_7_args(gxm_XtGetSelectionValuesIncremental_w, gxm_XtGetSelectionValuesIncremental) +Xen_wrap_2_args(gxm_XtCreateSelectionRequest_w, gxm_XtCreateSelectionRequest) +Xen_wrap_3_args(gxm_XtSendSelectionRequest_w, gxm_XtSendSelectionRequest) +Xen_wrap_2_args(gxm_XtCancelSelectionRequest_w, gxm_XtCancelSelectionRequest) +Xen_wrap_6_args(gxm_XtGrabKey_w, gxm_XtGrabKey) +Xen_wrap_3_args(gxm_XtUngrabKey_w, gxm_XtUngrabKey) +Xen_wrap_5_args(gxm_XtGrabKeyboard_w, gxm_XtGrabKeyboard) +Xen_wrap_2_args(gxm_XtUngrabKeyboard_w, gxm_XtUngrabKeyboard) +Xen_wrap_9_args(gxm_XtGrabButton_w, gxm_XtGrabButton) +Xen_wrap_3_args(gxm_XtUngrabButton_w, gxm_XtUngrabButton) +Xen_wrap_8_args(gxm_XtGrabPointer_w, gxm_XtGrabPointer) +Xen_wrap_2_args(gxm_XtUngrabPointer_w, gxm_XtUngrabPointer) +Xen_wrap_1_arg(gxm_XtGetApplicationNameAndClass_w, gxm_XtGetApplicationNameAndClass) +Xen_wrap_1_arg(gxm_XtGetDisplays_w, gxm_XtGetDisplays) +Xen_wrap_no_args(gxm_XtToolkitThreadInitialize_w, gxm_XtToolkitThreadInitialize) +Xen_wrap_1_arg(gxm_XtAppLock_w, gxm_XtAppLock) +Xen_wrap_1_arg(gxm_XtAppUnlock_w, gxm_XtAppUnlock) +Xen_wrap_1_arg(gxm_XtIsRectObj_w, gxm_XtIsRectObj) +Xen_wrap_1_arg(gxm_XtIsWidget_w, gxm_XtIsWidget) +Xen_wrap_1_arg(gxm_XtIsComposite_w, gxm_XtIsComposite) +Xen_wrap_1_arg(gxm_XtIsConstraint_w, gxm_XtIsConstraint) +Xen_wrap_1_arg(gxm_XtIsShell_w, gxm_XtIsShell) +Xen_wrap_1_arg(gxm_XtIsOverrideShell_w, gxm_XtIsOverrideShell) +Xen_wrap_1_arg(gxm_XtIsWMShell_w, gxm_XtIsWMShell) +Xen_wrap_1_arg(gxm_XtIsVendorShell_w, gxm_XtIsVendorShell) +Xen_wrap_1_arg(gxm_XtIsTransientShell_w, gxm_XtIsTransientShell) +Xen_wrap_1_arg(gxm_XtIsTopLevelShell_w, gxm_XtIsTopLevelShell) +Xen_wrap_1_arg(gxm_XtIsApplicationShell_w, gxm_XtIsApplicationShell) +Xen_wrap_1_arg(gxm_XtIsSessionShell_w, gxm_XtIsSessionShell) +Xen_wrap_1_arg(gxm_XtMapWidget_w, gxm_XtMapWidget) +Xen_wrap_1_arg(gxm_XtUnmapWidget_w, gxm_XtUnmapWidget) + +Xen_wrap_2_args(gxm_XLoadQueryFont_w, gxm_XLoadQueryFont) +Xen_wrap_2_args(gxm_XQueryFont_w, gxm_XQueryFont) +Xen_wrap_4_args(gxm_XGetMotionEvents_w, gxm_XGetMotionEvents) +Xen_wrap_3_args(gxm_XDeleteModifiermapEntry_w, gxm_XDeleteModifiermapEntry) +Xen_wrap_1_arg(gxm_XGetModifierMapping_w, gxm_XGetModifierMapping) +Xen_wrap_3_args(gxm_XInsertModifiermapEntry_w, gxm_XInsertModifiermapEntry) +Xen_wrap_1_arg(gxm_XNewModifiermap_w, gxm_XNewModifiermap) +Xen_wrap_any_args(gxm_XCreateImage_w, gxm_XCreateImage) +Xen_wrap_8_args(gxm_XGetImage_w, gxm_XGetImage) +Xen_wrap_any_args(gxm_XGetSubImage_w, gxm_XGetSubImage) +Xen_wrap_1_arg(gxm_XOpenDisplay_w, gxm_XOpenDisplay) +Xen_wrap_1_arg(gxm_XFetchBytes_w, gxm_XFetchBytes) +Xen_wrap_2_args(gxm_XFetchBuffer_w, gxm_XFetchBuffer) +Xen_wrap_2_args(gxm_XGetAtomName_w, gxm_XGetAtomName) +Xen_wrap_1_arg(gxm_XDisplayName_w, gxm_XDisplayName) +Xen_wrap_1_arg(gxm_XKeysymToString_w, gxm_XKeysymToString) +Xen_wrap_2_args(gxm_XSynchronize_w, gxm_XSynchronize) +Xen_wrap_2_args(gxm_XSetAfterFunction_w, gxm_XSetAfterFunction) +Xen_wrap_3_args(gxm_XInternAtom_w, gxm_XInternAtom) +Xen_wrap_2_args(gxm_XCopyColormapAndFree_w, gxm_XCopyColormapAndFree) +Xen_wrap_4_args(gxm_XCreateColormap_w, gxm_XCreateColormap) +Xen_wrap_7_args(gxm_XCreatePixmapCursor_w, gxm_XCreatePixmapCursor) +Xen_wrap_7_args(gxm_XCreateGlyphCursor_w, gxm_XCreateGlyphCursor) +Xen_wrap_2_args(gxm_XCreateFontCursor_w, gxm_XCreateFontCursor) +Xen_wrap_2_args(gxm_XLoadFont_w, gxm_XLoadFont) +Xen_wrap_4_args(gxm_XCreateGC_w, gxm_XCreateGC) +Xen_wrap_2_args(gxm_XFlushGC_w, gxm_XFlushGC) +Xen_wrap_5_args(gxm_XCreatePixmap_w, gxm_XCreatePixmap) +Xen_wrap_5_args(gxm_XCreateBitmapFromData_w, gxm_XCreateBitmapFromData) +Xen_wrap_8_args(gxm_XCreatePixmapFromBitmapData_w, gxm_XCreatePixmapFromBitmapData) +Xen_wrap_9_args(gxm_XCreateSimpleWindow_w, gxm_XCreateSimpleWindow) +Xen_wrap_2_args(gxm_XGetSelectionOwner_w, gxm_XGetSelectionOwner) +Xen_wrap_any_args(gxm_XCreateWindow_w, gxm_XCreateWindow) +Xen_wrap_2_args(gxm_XListInstalledColormaps_w, gxm_XListInstalledColormaps) +Xen_wrap_3_args(gxm_XListFonts_w, gxm_XListFonts) +Xen_wrap_3_args(gxm_XListFontsWithInfo_w, gxm_XListFontsWithInfo) +Xen_wrap_1_arg(gxm_XGetFontPath_w, gxm_XGetFontPath) +Xen_wrap_1_arg(gxm_XListExtensions_w, gxm_XListExtensions) +Xen_wrap_2_args(gxm_XListProperties_w, gxm_XListProperties) +#if 0 +Xen_wrap_3_args(gxm_XKeycodeToKeysym_w, gxm_XKeycodeToKeysym) #endif - - #define XEN_XpmAttributes_p_w XEN_XpmAttributes_p - #define XEN_XpmImage_p_w XEN_XpmImage_p - #define XEN_XpmColorSymbol_p_w XEN_XpmColorSymbol_p - -#if MUS_WITH_EDITRES - #define gxm_XEditResCheckMessages_w gxm_XEditResCheckMessages +Xen_wrap_2_args(gxm_XLookupKeysym_w, gxm_XLookupKeysym) +Xen_wrap_3_args(gxm_XGetKeyboardMapping_w, gxm_XGetKeyboardMapping) +Xen_wrap_1_arg(gxm_XStringToKeysym_w, gxm_XStringToKeysym) +Xen_wrap_1_arg(gxm_XMaxRequestSize_w, gxm_XMaxRequestSize) +Xen_wrap_1_arg(gxm_XExtendedMaxRequestSize_w, gxm_XExtendedMaxRequestSize) +Xen_wrap_1_arg(gxm_XDisplayMotionBufferSize_w, gxm_XDisplayMotionBufferSize) +Xen_wrap_1_arg(gxm_XVisualIDFromVisual_w, gxm_XVisualIDFromVisual) +Xen_wrap_2_args(gxm_XRootWindow_w, gxm_XRootWindow) +Xen_wrap_1_arg(gxm_XDefaultRootWindow_w, gxm_XDefaultRootWindow) +Xen_wrap_1_arg(gxm_XRootWindowOfScreen_w, gxm_XRootWindowOfScreen) +Xen_wrap_2_args(gxm_XDefaultVisual_w, gxm_XDefaultVisual) +Xen_wrap_1_arg(gxm_XDefaultVisualOfScreen_w, gxm_XDefaultVisualOfScreen) +Xen_wrap_2_args(gxm_XDefaultGC_w, gxm_XDefaultGC) +Xen_wrap_1_arg(gxm_XDefaultGCOfScreen_w, gxm_XDefaultGCOfScreen) +Xen_wrap_2_args(gxm_XBlackPixel_w, gxm_XBlackPixel) +Xen_wrap_2_args(gxm_XWhitePixel_w, gxm_XWhitePixel) +Xen_wrap_no_args(gxm_XAllPlanes_w, gxm_XAllPlanes) +Xen_wrap_1_arg(gxm_XBlackPixelOfScreen_w, gxm_XBlackPixelOfScreen) +Xen_wrap_1_arg(gxm_XWhitePixelOfScreen_w, gxm_XWhitePixelOfScreen) +Xen_wrap_1_arg(gxm_XNextRequest_w, gxm_XNextRequest) +Xen_wrap_1_arg(gxm_XLastKnownRequestProcessed_w, gxm_XLastKnownRequestProcessed) +Xen_wrap_1_arg(gxm_XServerVendor_w, gxm_XServerVendor) +Xen_wrap_1_arg(gxm_XDisplayString_w, gxm_XDisplayString) +Xen_wrap_2_args(gxm_XDefaultColormap_w, gxm_XDefaultColormap) +Xen_wrap_1_arg(gxm_XDefaultColormapOfScreen_w, gxm_XDefaultColormapOfScreen) +Xen_wrap_1_arg(gxm_XDisplayOfScreen_w, gxm_XDisplayOfScreen) +Xen_wrap_2_args(gxm_XScreenOfDisplay_w, gxm_XScreenOfDisplay) +Xen_wrap_1_arg(gxm_XDefaultScreenOfDisplay_w, gxm_XDefaultScreenOfDisplay) +Xen_wrap_1_arg(gxm_XEventMaskOfScreen_w, gxm_XEventMaskOfScreen) +Xen_wrap_1_arg(gxm_XScreenNumberOfScreen_w, gxm_XScreenNumberOfScreen) +Xen_wrap_1_arg(gxm_XSetErrorHandler_w, gxm_XSetErrorHandler) +Xen_wrap_1_arg(gxm_XSetIOErrorHandler_w, gxm_XSetIOErrorHandler) +Xen_wrap_1_arg(gxm_XListPixmapFormats_w, gxm_XListPixmapFormats) +Xen_wrap_2_args(gxm_XListDepths_w, gxm_XListDepths) +Xen_wrap_5_args(gxm_XReconfigureWMWindow_w, gxm_XReconfigureWMWindow) +Xen_wrap_2_args(gxm_XGetWMProtocols_w, gxm_XGetWMProtocols) +Xen_wrap_4_args(gxm_XSetWMProtocols_w, gxm_XSetWMProtocols) +Xen_wrap_3_args(gxm_XIconifyWindow_w, gxm_XIconifyWindow) +Xen_wrap_3_args(gxm_XWithdrawWindow_w, gxm_XWithdrawWindow) +Xen_wrap_2_args(gxm_XGetCommand_w, gxm_XGetCommand) +Xen_wrap_2_args(gxm_XGetWMColormapWindows_w, gxm_XGetWMColormapWindows) +Xen_wrap_4_args(gxm_XSetWMColormapWindows_w, gxm_XSetWMColormapWindows) +Xen_wrap_3_args(gxm_XSetTransientForHint_w, gxm_XSetTransientForHint) +Xen_wrap_1_arg(gxm_XActivateScreenSaver_w, gxm_XActivateScreenSaver) +Xen_wrap_3_args(gxm_XAllocColor_w, gxm_XAllocColor) +Xen_wrap_5_args(gxm_XAllocColorCells_w, gxm_XAllocColorCells) +Xen_wrap_any_args(gxm_XAllocColorPlanes_w, gxm_XAllocColorPlanes) +Xen_wrap_5_args(gxm_XAllocNamedColor_w, gxm_XAllocNamedColor) +Xen_wrap_3_args(gxm_XAllowEvents_w, gxm_XAllowEvents) +Xen_wrap_1_arg(gxm_XAutoRepeatOff_w, gxm_XAutoRepeatOff) +Xen_wrap_1_arg(gxm_XAutoRepeatOn_w, gxm_XAutoRepeatOn) +Xen_wrap_2_args(gxm_XBell_w, gxm_XBell) +Xen_wrap_1_arg(gxm_XBitmapBitOrder_w, gxm_XBitmapBitOrder) +Xen_wrap_1_arg(gxm_XBitmapPad_w, gxm_XBitmapPad) +Xen_wrap_1_arg(gxm_XBitmapUnit_w, gxm_XBitmapUnit) +Xen_wrap_1_arg(gxm_XCellsOfScreen_w, gxm_XCellsOfScreen) +Xen_wrap_4_args(gxm_XChangeActivePointerGrab_w, gxm_XChangeActivePointerGrab) +Xen_wrap_4_args(gxm_XChangeGC_w, gxm_XChangeGC) +Xen_wrap_3_args(gxm_XChangeKeyboardControl_w, gxm_XChangeKeyboardControl) +Xen_wrap_5_args(gxm_XChangeKeyboardMapping_w, gxm_XChangeKeyboardMapping) +Xen_wrap_6_args(gxm_XChangePointerControl_w, gxm_XChangePointerControl) +Xen_wrap_8_optional_args(gxm_XChangeProperty_w, gxm_XChangeProperty) +Xen_wrap_4_args(gxm_XChangeWindowAttributes_w, gxm_XChangeWindowAttributes) +Xen_wrap_3_args(gxm_XCheckIfEvent_w, gxm_XCheckIfEvent) +Xen_wrap_2_args(gxm_XCheckMaskEvent_w, gxm_XCheckMaskEvent) +Xen_wrap_2_args(gxm_XCheckTypedEvent_w, gxm_XCheckTypedEvent) +Xen_wrap_3_args(gxm_XCheckTypedWindowEvent_w, gxm_XCheckTypedWindowEvent) +Xen_wrap_3_args(gxm_XCheckWindowEvent_w, gxm_XCheckWindowEvent) +Xen_wrap_3_args(gxm_XCirculateSubwindows_w, gxm_XCirculateSubwindows) +Xen_wrap_2_args(gxm_XCirculateSubwindowsDown_w, gxm_XCirculateSubwindowsDown) +Xen_wrap_2_args(gxm_XCirculateSubwindowsUp_w, gxm_XCirculateSubwindowsUp) +Xen_wrap_7_args(gxm_XClearArea_w, gxm_XClearArea) +Xen_wrap_2_args(gxm_XClearWindow_w, gxm_XClearWindow) +Xen_wrap_1_arg(gxm_XCloseDisplay_w, gxm_XCloseDisplay) +Xen_wrap_4_args(gxm_XConfigureWindow_w, gxm_XConfigureWindow) +Xen_wrap_1_arg(gxm_XConnectionNumber_w, gxm_XConnectionNumber) +Xen_wrap_6_args(gxm_XConvertSelection_w, gxm_XConvertSelection) +Xen_wrap_any_args(gxm_XCopyArea_w, gxm_XCopyArea) +Xen_wrap_4_args(gxm_XCopyGC_w, gxm_XCopyGC) +Xen_wrap_any_args(gxm_XCopyPlane_w, gxm_XCopyPlane) +Xen_wrap_2_args(gxm_XDefaultDepth_w, gxm_XDefaultDepth) +Xen_wrap_1_arg(gxm_XDefaultDepthOfScreen_w, gxm_XDefaultDepthOfScreen) +Xen_wrap_1_arg(gxm_XDefaultScreen_w, gxm_XDefaultScreen) +Xen_wrap_3_args(gxm_XDefineCursor_w, gxm_XDefineCursor) +Xen_wrap_3_args(gxm_XDeleteProperty_w, gxm_XDeleteProperty) +Xen_wrap_2_args(gxm_XDestroyWindow_w, gxm_XDestroyWindow) +Xen_wrap_2_args(gxm_XDestroySubwindows_w, gxm_XDestroySubwindows) +Xen_wrap_1_arg(gxm_XDoesBackingStore_w, gxm_XDoesBackingStore) +Xen_wrap_1_arg(gxm_XDoesSaveUnders_w, gxm_XDoesSaveUnders) +Xen_wrap_1_arg(gxm_XDisableAccessControl_w, gxm_XDisableAccessControl) +Xen_wrap_2_args(gxm_XDisplayCells_w, gxm_XDisplayCells) +Xen_wrap_2_args(gxm_XDisplayHeight_w, gxm_XDisplayHeight) +Xen_wrap_2_args(gxm_XDisplayHeightMM_w, gxm_XDisplayHeightMM) +Xen_wrap_1_arg(gxm_XDisplayKeycodes_w, gxm_XDisplayKeycodes) +Xen_wrap_2_args(gxm_XDisplayPlanes_w, gxm_XDisplayPlanes) +Xen_wrap_2_args(gxm_XDisplayWidth_w, gxm_XDisplayWidth) +Xen_wrap_2_args(gxm_XDisplayWidthMM_w, gxm_XDisplayWidthMM) +Xen_wrap_9_args(gxm_XDrawArc_w, gxm_XDrawArc) +Xen_wrap_5_args(gxm_XDrawArcs_w, gxm_XDrawArcs) +Xen_wrap_7_args(gxm_XDrawImageString_w, gxm_XDrawImageString) +Xen_wrap_7_args(gxm_XDrawLine_w, gxm_XDrawLine) +Xen_wrap_6_args(gxm_XDrawLines_w, gxm_XDrawLines) +Xen_wrap_6_args(gxm_XDrawLinesDirect_w, gxm_XDrawLinesDirect) +Xen_wrap_1_arg(gxm_FreeXPoints_w, gxm_FreeXPoints) +Xen_wrap_1_arg(gxm_Vector2XPoints_w, gxm_Vector2XPoints) +Xen_wrap_5_args(gxm_XDrawPoint_w, gxm_XDrawPoint) +Xen_wrap_6_args(gxm_XDrawPoints_w, gxm_XDrawPoints) +Xen_wrap_7_args(gxm_XDrawRectangle_w, gxm_XDrawRectangle) +Xen_wrap_5_args(gxm_XDrawRectangles_w, gxm_XDrawRectangles) +Xen_wrap_5_args(gxm_XDrawSegments_w, gxm_XDrawSegments) +Xen_wrap_7_args(gxm_XDrawString_w, gxm_XDrawString) +Xen_wrap_7_optional_args(gxm_XDrawText_w, gxm_XDrawText) +Xen_wrap_1_arg(gxm_XEnableAccessControl_w, gxm_XEnableAccessControl) +Xen_wrap_2_args(gxm_XEventsQueued_w, gxm_XEventsQueued) +Xen_wrap_2_args(gxm_XFetchName_w, gxm_XFetchName) +Xen_wrap_9_args(gxm_XFillArc_w, gxm_XFillArc) +Xen_wrap_5_args(gxm_XFillArcs_w, gxm_XFillArcs) +Xen_wrap_7_args(gxm_XFillPolygon_w, gxm_XFillPolygon) +Xen_wrap_7_args(gxm_XFillRectangle_w, gxm_XFillRectangle) +Xen_wrap_5_args(gxm_XFillRectangles_w, gxm_XFillRectangles) +Xen_wrap_1_arg(gxm_XFlush_w, gxm_XFlush) +Xen_wrap_2_args(gxm_XForceScreenSaver_w, gxm_XForceScreenSaver) +Xen_wrap_1_arg(gxm_XFree_w, gxm_XFree) +Xen_wrap_2_args(gxm_XFreeColormap_w, gxm_XFreeColormap) +Xen_wrap_5_args(gxm_XFreeColors_w, gxm_XFreeColors) +Xen_wrap_2_args(gxm_XFreeCursor_w, gxm_XFreeCursor) +Xen_wrap_1_arg(gxm_XFreeExtensionList_w, gxm_XFreeExtensionList) +Xen_wrap_2_args(gxm_XFreeFont_w, gxm_XFreeFont) +Xen_wrap_3_args(gxm_XFreeFontInfo_w, gxm_XFreeFontInfo) +Xen_wrap_1_arg(gxm_XFreeFontNames_w, gxm_XFreeFontNames) +Xen_wrap_1_arg(gxm_XFreeFontPath_w, gxm_XFreeFontPath) +Xen_wrap_2_args(gxm_XFreeGC_w, gxm_XFreeGC) +Xen_wrap_1_arg(gxm_XFreeModifiermap_w, gxm_XFreeModifiermap) +Xen_wrap_2_args(gxm_XFreePixmap_w, gxm_XFreePixmap) +Xen_wrap_any_args(gxm_XGeometry_w, gxm_XGeometry) +Xen_wrap_4_args(gxm_XGetErrorText_w, gxm_XGetErrorText) +Xen_wrap_2_args(gxm_XGetFontProperty_w, gxm_XGetFontProperty) +Xen_wrap_3_args(gxm_XGetGCValues_w, gxm_XGetGCValues) +Xen_wrap_no_args(gxm_XGCValues_w, gxm_XGCValues) +Xen_wrap_1_optional_arg(gxm_XEvent_w, gxm_XEvent) +Xen_wrap_2_args(gxm_XGetGeometry_w, gxm_XGetGeometry) +Xen_wrap_2_args(gxm_XGetIconName_w, gxm_XGetIconName) +Xen_wrap_1_arg(gxm_XGetInputFocus_w, gxm_XGetInputFocus) +Xen_wrap_1_arg(gxm_XGetKeyboardControl_w, gxm_XGetKeyboardControl) +Xen_wrap_1_arg(gxm_XGetPointerControl_w, gxm_XGetPointerControl) +Xen_wrap_3_args(gxm_XGetPointerMapping_w, gxm_XGetPointerMapping) +Xen_wrap_1_arg(gxm_XGetScreenSaver_w, gxm_XGetScreenSaver) +Xen_wrap_2_args(gxm_XGetTransientForHint_w, gxm_XGetTransientForHint) +Xen_wrap_any_args(gxm_XGetWindowProperty_w, gxm_XGetWindowProperty) +Xen_wrap_2_args(gxm_XGetWindowAttributes_w, gxm_XGetWindowAttributes) +Xen_wrap_any_args(gxm_XGrabButton_w, gxm_XGrabButton) +Xen_wrap_7_args(gxm_XGrabKey_w, gxm_XGrabKey) +Xen_wrap_6_args(gxm_XGrabKeyboard_w, gxm_XGrabKeyboard) +Xen_wrap_9_args(gxm_XGrabPointer_w, gxm_XGrabPointer) +Xen_wrap_1_arg(gxm_XGrabServer_w, gxm_XGrabServer) +Xen_wrap_1_arg(gxm_XHeightMMOfScreen_w, gxm_XHeightMMOfScreen) +Xen_wrap_1_arg(gxm_XHeightOfScreen_w, gxm_XHeightOfScreen) +Xen_wrap_3_args(gxm_XIfEvent_w, gxm_XIfEvent) +Xen_wrap_1_arg(gxm_XImageByteOrder_w, gxm_XImageByteOrder) +Xen_wrap_2_args(gxm_XInstallColormap_w, gxm_XInstallColormap) +Xen_wrap_2_args(gxm_XKeysymToKeycode_w, gxm_XKeysymToKeycode) +Xen_wrap_2_args(gxm_XKillClient_w, gxm_XKillClient) +Xen_wrap_5_args(gxm_XLookupColor_w, gxm_XLookupColor) +Xen_wrap_2_args(gxm_XLowerWindow_w, gxm_XLowerWindow) +Xen_wrap_2_args(gxm_XMapRaised_w, gxm_XMapRaised) +Xen_wrap_2_args(gxm_XMapSubwindows_w, gxm_XMapSubwindows) +Xen_wrap_2_args(gxm_XMapWindow_w, gxm_XMapWindow) +Xen_wrap_2_args(gxm_XMaskEvent_w, gxm_XMaskEvent) +Xen_wrap_1_arg(gxm_XMaxCmapsOfScreen_w, gxm_XMaxCmapsOfScreen) +Xen_wrap_1_arg(gxm_XMinCmapsOfScreen_w, gxm_XMinCmapsOfScreen) +Xen_wrap_6_args(gxm_XMoveResizeWindow_w, gxm_XMoveResizeWindow) +Xen_wrap_4_args(gxm_XMoveWindow_w, gxm_XMoveWindow) +Xen_wrap_1_arg(gxm_XNextEvent_w, gxm_XNextEvent) +Xen_wrap_1_arg(gxm_XNoOp_w, gxm_XNoOp) +Xen_wrap_4_args(gxm_XParseColor_w, gxm_XParseColor) +Xen_wrap_1_arg(gxm_XParseGeometry_w, gxm_XParseGeometry) +Xen_wrap_1_arg(gxm_XPeekEvent_w, gxm_XPeekEvent) +Xen_wrap_3_args(gxm_XPeekIfEvent_w, gxm_XPeekIfEvent) +Xen_wrap_1_arg(gxm_XPending_w, gxm_XPending) +Xen_wrap_1_arg(gxm_XPlanesOfScreen_w, gxm_XPlanesOfScreen) +Xen_wrap_1_arg(gxm_XProtocolRevision_w, gxm_XProtocolRevision) +Xen_wrap_1_arg(gxm_XProtocolVersion_w, gxm_XProtocolVersion) +Xen_wrap_2_args(gxm_XPutBackEvent_w, gxm_XPutBackEvent) +Xen_wrap_any_args(gxm_XPutImage_w, gxm_XPutImage) +Xen_wrap_1_arg(gxm_XQLength_w, gxm_XQLength) +Xen_wrap_4_args(gxm_XQueryBestCursor_w, gxm_XQueryBestCursor) +Xen_wrap_5_args(gxm_XQueryBestSize_w, gxm_XQueryBestSize) +Xen_wrap_4_args(gxm_XQueryBestStipple_w, gxm_XQueryBestStipple) +Xen_wrap_4_args(gxm_XQueryBestTile_w, gxm_XQueryBestTile) +Xen_wrap_3_args(gxm_XQueryColor_w, gxm_XQueryColor) +Xen_wrap_4_optional_args(gxm_XQueryColors_w, gxm_XQueryColors) +Xen_wrap_2_args(gxm_XQueryExtension_w, gxm_XQueryExtension) +Xen_wrap_1_arg(gxm_XQueryKeymap_w, gxm_XQueryKeymap) +Xen_wrap_2_args(gxm_XQueryPointer_w, gxm_XQueryPointer) +Xen_wrap_3_args(gxm_XQueryTextExtents_w, gxm_XQueryTextExtents) +Xen_wrap_2_args(gxm_XQueryTree_w, gxm_XQueryTree) +Xen_wrap_2_args(gxm_XRaiseWindow_w, gxm_XRaiseWindow) +Xen_wrap_3_args(gxm_XReadBitmapFile_w, gxm_XReadBitmapFile) +Xen_wrap_1_arg(gxm_XReadBitmapFileData_w, gxm_XReadBitmapFileData) +Xen_wrap_6_args(gxm_XRebindKeysym_w, gxm_XRebindKeysym) +Xen_wrap_4_args(gxm_XRecolorCursor_w, gxm_XRecolorCursor) +Xen_wrap_1_arg(gxm_XRefreshKeyboardMapping_w, gxm_XRefreshKeyboardMapping) +Xen_wrap_5_args(gxm_XReparentWindow_w, gxm_XReparentWindow) +Xen_wrap_1_arg(gxm_XResetScreenSaver_w, gxm_XResetScreenSaver) +Xen_wrap_4_args(gxm_XResizeWindow_w, gxm_XResizeWindow) +Xen_wrap_3_args(gxm_XRestackWindows_w, gxm_XRestackWindows) +Xen_wrap_2_args(gxm_XRotateBuffers_w, gxm_XRotateBuffers) +Xen_wrap_5_args(gxm_XRotateWindowProperties_w, gxm_XRotateWindowProperties) +Xen_wrap_1_arg(gxm_XScreenCount_w, gxm_XScreenCount) +Xen_wrap_3_args(gxm_XSelectInput_w, gxm_XSelectInput) +Xen_wrap_5_args(gxm_XSendEvent_w, gxm_XSendEvent) +Xen_wrap_2_args(gxm_XSetAccessControl_w, gxm_XSetAccessControl) +Xen_wrap_3_args(gxm_XSetArcMode_w, gxm_XSetArcMode) +Xen_wrap_3_args(gxm_XSetBackground_w, gxm_XSetBackground) +Xen_wrap_3_args(gxm_XSetClipMask_w, gxm_XSetClipMask) +Xen_wrap_4_args(gxm_XSetClipOrigin_w, gxm_XSetClipOrigin) +Xen_wrap_7_args(gxm_XSetClipRectangles_w, gxm_XSetClipRectangles) +Xen_wrap_2_args(gxm_XSetCloseDownMode_w, gxm_XSetCloseDownMode) +Xen_wrap_4_args(gxm_XSetCommand_w, gxm_XSetCommand) +Xen_wrap_5_optional_args(gxm_XSetDashes_w, gxm_XSetDashes) +Xen_wrap_3_args(gxm_XSetFillRule_w, gxm_XSetFillRule) +Xen_wrap_3_args(gxm_XSetFillStyle_w, gxm_XSetFillStyle) +Xen_wrap_3_args(gxm_XSetFont_w, gxm_XSetFont) +Xen_wrap_3_args(gxm_XSetFontPath_w, gxm_XSetFontPath) +Xen_wrap_3_args(gxm_XSetForeground_w, gxm_XSetForeground) +Xen_wrap_3_args(gxm_XSetFunction_w, gxm_XSetFunction) +Xen_wrap_3_args(gxm_XSetGraphicsExposures_w, gxm_XSetGraphicsExposures) +Xen_wrap_3_args(gxm_XSetIconName_w, gxm_XSetIconName) +Xen_wrap_4_args(gxm_XSetInputFocus_w, gxm_XSetInputFocus) +Xen_wrap_6_args(gxm_XSetLineAttributes_w, gxm_XSetLineAttributes) +Xen_wrap_2_args(gxm_XSetModifierMapping_w, gxm_XSetModifierMapping) +Xen_wrap_3_args(gxm_XSetPlaneMask_w, gxm_XSetPlaneMask) +Xen_wrap_3_optional_args(gxm_XSetPointerMapping_w, gxm_XSetPointerMapping) +Xen_wrap_5_args(gxm_XSetScreenSaver_w, gxm_XSetScreenSaver) +Xen_wrap_4_args(gxm_XSetSelectionOwner_w, gxm_XSetSelectionOwner) +Xen_wrap_6_args(gxm_XSetState_w, gxm_XSetState) +Xen_wrap_3_args(gxm_XSetStipple_w, gxm_XSetStipple) +Xen_wrap_3_args(gxm_XSetSubwindowMode_w, gxm_XSetSubwindowMode) +Xen_wrap_4_args(gxm_XSetTSOrigin_w, gxm_XSetTSOrigin) +Xen_wrap_3_args(gxm_XSetTile_w, gxm_XSetTile) +Xen_wrap_3_args(gxm_XSetWindowBackground_w, gxm_XSetWindowBackground) +Xen_wrap_3_args(gxm_XSetWindowBackgroundPixmap_w, gxm_XSetWindowBackgroundPixmap) +Xen_wrap_3_args(gxm_XSetWindowBorder_w, gxm_XSetWindowBorder) +Xen_wrap_3_args(gxm_XSetWindowBorderPixmap_w, gxm_XSetWindowBorderPixmap) +Xen_wrap_3_args(gxm_XSetWindowBorderWidth_w, gxm_XSetWindowBorderWidth) +Xen_wrap_3_args(gxm_XSetWindowColormap_w, gxm_XSetWindowColormap) +Xen_wrap_4_args(gxm_XStoreBuffer_w, gxm_XStoreBuffer) +Xen_wrap_3_args(gxm_XStoreBytes_w, gxm_XStoreBytes) +Xen_wrap_3_args(gxm_XStoreColor_w, gxm_XStoreColor) +Xen_wrap_4_args(gxm_XStoreColors_w, gxm_XStoreColors) +Xen_wrap_3_args(gxm_XStoreName_w, gxm_XStoreName) +Xen_wrap_5_args(gxm_XStoreNamedColor_w, gxm_XStoreNamedColor) +Xen_wrap_2_args(gxm_XSync_w, gxm_XSync) +Xen_wrap_3_args(gxm_XTextExtents_w, gxm_XTextExtents) +Xen_wrap_3_args(gxm_XTextWidth_w, gxm_XTextWidth) +Xen_wrap_5_args(gxm_XTranslateCoordinates_w, gxm_XTranslateCoordinates) +Xen_wrap_2_args(gxm_XUndefineCursor_w, gxm_XUndefineCursor) +Xen_wrap_4_args(gxm_XUngrabButton_w, gxm_XUngrabButton) +Xen_wrap_4_args(gxm_XUngrabKey_w, gxm_XUngrabKey) +Xen_wrap_2_args(gxm_XUngrabKeyboard_w, gxm_XUngrabKeyboard) +Xen_wrap_2_args(gxm_XUngrabPointer_w, gxm_XUngrabPointer) +Xen_wrap_1_arg(gxm_XUngrabServer_w, gxm_XUngrabServer) +Xen_wrap_2_args(gxm_XUninstallColormap_w, gxm_XUninstallColormap) +Xen_wrap_2_args(gxm_XUnloadFont_w, gxm_XUnloadFont) +Xen_wrap_2_args(gxm_XUnmapSubwindows_w, gxm_XUnmapSubwindows) +Xen_wrap_2_args(gxm_XUnmapWindow_w, gxm_XUnmapWindow) +Xen_wrap_1_arg(gxm_XVendorRelease_w, gxm_XVendorRelease) +Xen_wrap_9_args(gxm_XWarpPointer_w, gxm_XWarpPointer) +Xen_wrap_1_arg(gxm_XWidthMMOfScreen_w, gxm_XWidthMMOfScreen) +Xen_wrap_1_arg(gxm_XWidthOfScreen_w, gxm_XWidthOfScreen) +Xen_wrap_3_args(gxm_XWindowEvent_w, gxm_XWindowEvent) +Xen_wrap_7_args(gxm_XWriteBitmapFile_w, gxm_XWriteBitmapFile) +Xen_wrap_no_args(gxm_XSupportsLocale_w, gxm_XSupportsLocale) +Xen_wrap_1_arg(gxm_XSetLocaleModifiers_w, gxm_XSetLocaleModifiers) +Xen_wrap_2_args(gxm_XCreateFontSet_w, gxm_XCreateFontSet) +Xen_wrap_2_args(gxm_XFreeFontSet_w, gxm_XFreeFontSet) +Xen_wrap_1_arg(gxm_XFontsOfFontSet_w, gxm_XFontsOfFontSet) +Xen_wrap_1_arg(gxm_XBaseFontNameListOfFontSet_w, gxm_XBaseFontNameListOfFontSet) +Xen_wrap_1_arg(gxm_XLocaleOfFontSet_w, gxm_XLocaleOfFontSet) +Xen_wrap_1_arg(gxm_XContextDependentDrawing_w, gxm_XContextDependentDrawing) +Xen_wrap_1_arg(gxm_XDirectionalDependentDrawing_w, gxm_XDirectionalDependentDrawing) +Xen_wrap_1_arg(gxm_XContextualDrawing_w, gxm_XContextualDrawing) +Xen_wrap_2_args(gxm_XFilterEvent_w, gxm_XFilterEvent) +Xen_wrap_no_args(gxm_XAllocIconSize_w, gxm_XAllocIconSize) +Xen_wrap_no_args(gxm_XAllocStandardColormap_w, gxm_XAllocStandardColormap) +Xen_wrap_no_args(gxm_XAllocWMHints_w, gxm_XAllocWMHints) +Xen_wrap_1_arg(gxm_XClipBox_w, gxm_XClipBox) +Xen_wrap_no_args(gxm_XCreateRegion_w, gxm_XCreateRegion) +Xen_wrap_no_args(gxm_XDefaultString_w, gxm_XDefaultString) +Xen_wrap_3_args(gxm_XDeleteContext_w, gxm_XDeleteContext) +Xen_wrap_1_arg(gxm_XDestroyRegion_w, gxm_XDestroyRegion) +Xen_wrap_1_arg(gxm_XEmptyRegion_w, gxm_XEmptyRegion) +Xen_wrap_2_args(gxm_XEqualRegion_w, gxm_XEqualRegion) +Xen_wrap_3_args(gxm_XFindContext_w, gxm_XFindContext) +Xen_wrap_2_args(gxm_XGetIconSizes_w, gxm_XGetIconSizes) +Xen_wrap_3_args(gxm_XGetRGBColormaps_w, gxm_XGetRGBColormaps) +Xen_wrap_3_args(gxm_XGetVisualInfo_w, gxm_XGetVisualInfo) +Xen_wrap_2_args(gxm_XGetWMHints_w, gxm_XGetWMHints) +Xen_wrap_3_args(gxm_XIntersectRegion_w, gxm_XIntersectRegion) +Xen_wrap_1_arg(gxm_XConvertCase_w, gxm_XConvertCase) +Xen_wrap_1_arg(gxm_XLookupString_w, gxm_XLookupString) +Xen_wrap_4_args(gxm_XMatchVisualInfo_w, gxm_XMatchVisualInfo) +Xen_wrap_3_args(gxm_XOffsetRegion_w, gxm_XOffsetRegion) +Xen_wrap_3_args(gxm_XPointInRegion_w, gxm_XPointInRegion) +Xen_wrap_3_args(gxm_XPolygonRegion_w, gxm_XPolygonRegion) +Xen_wrap_5_args(gxm_XRectInRegion_w, gxm_XRectInRegion) +Xen_wrap_4_args(gxm_XSaveContext_w, gxm_XSaveContext) +Xen_wrap_no_args(gxm_XUniqueContext_w, gxm_XUniqueContext) +Xen_wrap_5_args(gxm_XSetRGBColormaps_w, gxm_XSetRGBColormaps) +Xen_wrap_3_args(gxm_XSetWMHints_w, gxm_XSetWMHints) +Xen_wrap_3_args(gxm_XSetRegion_w, gxm_XSetRegion) +Xen_wrap_8_args(gxm_XSetWMProperties_w, gxm_XSetWMProperties) +Xen_wrap_3_args(gxm_XShrinkRegion_w, gxm_XShrinkRegion) +Xen_wrap_3_args(gxm_XSubtractRegion_w, gxm_XSubtractRegion) +Xen_wrap_3_args(gxm_XUnionRectWithRegion_w, gxm_XUnionRectWithRegion) +Xen_wrap_3_args(gxm_XUnionRegion_w, gxm_XUnionRegion) +Xen_wrap_3_args(gxm_XXorRegion_w, gxm_XXorRegion) + +Xen_wrap_1_arg(gxm_DefaultScreen_w, gxm_DefaultScreen) +Xen_wrap_1_arg(gxm_DefaultRootWindow_w, gxm_DefaultRootWindow) +Xen_wrap_1_arg(gxm_QLength_w, gxm_QLength) +Xen_wrap_1_arg(gxm_ScreenCount_w, gxm_ScreenCount) +Xen_wrap_1_arg(gxm_ServerVendor_w, gxm_ServerVendor) +Xen_wrap_1_arg(gxm_ProtocolVersion_w, gxm_ProtocolVersion) +Xen_wrap_1_arg(gxm_ProtocolRevision_w, gxm_ProtocolRevision) +Xen_wrap_1_arg(gxm_VendorRelease_w, gxm_VendorRelease) +Xen_wrap_1_arg(gxm_DisplayString_w, gxm_DisplayString) +Xen_wrap_1_arg(gxm_BitmapUnit_w, gxm_BitmapUnit) +Xen_wrap_1_arg(gxm_BitmapBitOrder_w, gxm_BitmapBitOrder) +Xen_wrap_1_arg(gxm_BitmapPad_w, gxm_BitmapPad) +Xen_wrap_1_arg(gxm_ImageByteOrder_w, gxm_ImageByteOrder) +Xen_wrap_1_arg(gxm_NextRequest_w, gxm_NextRequest) +Xen_wrap_1_arg(gxm_LastKnownRequestProcessed_w, gxm_LastKnownRequestProcessed) +Xen_wrap_1_arg(gxm_DefaultScreenOfDisplay_w, gxm_DefaultScreenOfDisplay) +Xen_wrap_1_arg(gxm_DisplayOfScreen_w, gxm_DisplayOfScreen) +Xen_wrap_1_arg(gxm_RootWindowOfScreen_w, gxm_RootWindowOfScreen) +Xen_wrap_1_arg(gxm_BlackPixelOfScreen_w, gxm_BlackPixelOfScreen) +Xen_wrap_1_arg(gxm_WhitePixelOfScreen_w, gxm_WhitePixelOfScreen) +Xen_wrap_1_arg(gxm_DefaultColormapOfScreen_w, gxm_DefaultColormapOfScreen) +Xen_wrap_1_arg(gxm_DefaultDepthOfScreen_w, gxm_DefaultDepthOfScreen) +Xen_wrap_1_arg(gxm_DefaultGCOfScreen_w, gxm_DefaultGCOfScreen) +Xen_wrap_1_arg(gxm_DefaultVisualOfScreen_w, gxm_DefaultVisualOfScreen) +Xen_wrap_1_arg(gxm_WidthOfScreen_w, gxm_WidthOfScreen) +Xen_wrap_1_arg(gxm_HeightOfScreen_w, gxm_HeightOfScreen) +Xen_wrap_1_arg(gxm_WidthMMOfScreen_w, gxm_WidthMMOfScreen) +Xen_wrap_1_arg(gxm_HeightMMOfScreen_w, gxm_HeightMMOfScreen) +Xen_wrap_1_arg(gxm_PlanesOfScreen_w, gxm_PlanesOfScreen) +Xen_wrap_1_arg(gxm_CellsOfScreen_w, gxm_CellsOfScreen) +Xen_wrap_1_arg(gxm_MinCmapsOfScreen_w, gxm_MinCmapsOfScreen) +Xen_wrap_1_arg(gxm_MaxCmapsOfScreen_w, gxm_MaxCmapsOfScreen) +Xen_wrap_1_arg(gxm_DoesSaveUnders_w, gxm_DoesSaveUnders) +Xen_wrap_1_arg(gxm_DoesBackingStore_w, gxm_DoesBackingStore) +Xen_wrap_1_arg(gxm_EventMaskOfScreen_w, gxm_EventMaskOfScreen) +Xen_wrap_2_args(gxm_RootWindow_w, gxm_RootWindow) +Xen_wrap_2_args(gxm_DefaultVisual_w, gxm_DefaultVisual) +Xen_wrap_2_args(gxm_DefaultGC_w, gxm_DefaultGC) +Xen_wrap_2_args(gxm_BlackPixel_w, gxm_BlackPixel) +Xen_wrap_2_args(gxm_WhitePixel_w, gxm_WhitePixel) +Xen_wrap_2_args(gxm_DisplayWidth_w, gxm_DisplayWidth) +Xen_wrap_2_args(gxm_DisplayHeight_w, gxm_DisplayHeight) +Xen_wrap_2_args(gxm_DisplayWidthMM_w, gxm_DisplayWidthMM) +Xen_wrap_2_args(gxm_DisplayHeightMM_w, gxm_DisplayHeightMM) +Xen_wrap_2_args(gxm_DisplayPlanes_w, gxm_DisplayPlanes) +Xen_wrap_2_args(gxm_DisplayCells_w, gxm_DisplayCells) +Xen_wrap_2_args(gxm_DefaultColormap_w, gxm_DefaultColormap) +Xen_wrap_2_args(gxm_ScreenOfDisplay_w, gxm_ScreenOfDisplay) +Xen_wrap_2_args(gxm_DefaultDepth_w, gxm_DefaultDepth) + +Xen_wrap_1_arg(gxm_IsKeypadKey_w, gxm_IsKeypadKey) +Xen_wrap_1_arg(gxm_IsPrivateKeypadKey_w, gxm_IsPrivateKeypadKey) +Xen_wrap_1_arg(gxm_IsCursorKey_w, gxm_IsCursorKey) +Xen_wrap_1_arg(gxm_IsPFKey_w, gxm_IsPFKey) +Xen_wrap_1_arg(gxm_IsFunctionKey_w, gxm_IsFunctionKey) +Xen_wrap_1_arg(gxm_IsMiscFunctionKey_w, gxm_IsMiscFunctionKey) +Xen_wrap_1_arg(gxm_IsModifierKey_w, gxm_IsModifierKey) + +Xen_wrap_1_arg(g_is_XButtonEvent_w, g_is_XButtonEvent) +Xen_wrap_1_arg(g_is_XCirculateEvent_w, g_is_XCirculateEvent) +Xen_wrap_1_arg(g_is_XCirculateRequestEvent_w, g_is_XCirculateRequestEvent) +Xen_wrap_1_arg(g_is_XClientMessageEvent_w, g_is_XClientMessageEvent) +Xen_wrap_1_arg(g_is_XColormapEvent_w, g_is_XColormapEvent) +Xen_wrap_1_arg(g_is_XConfigureEvent_w, g_is_XConfigureEvent) +Xen_wrap_1_arg(g_is_XConfigureRequestEvent_w, g_is_XConfigureRequestEvent) +Xen_wrap_1_arg(g_is_XCreateWindowEvent_w, g_is_XCreateWindowEvent) +Xen_wrap_1_arg(g_is_XCrossingEvent_w, g_is_XCrossingEvent) +Xen_wrap_1_arg(g_is_XDestroyWindowEvent_w, g_is_XDestroyWindowEvent) +Xen_wrap_1_arg(g_is_XErrorEvent_w, g_is_XErrorEvent) +Xen_wrap_1_arg(g_is_XExposeEvent_w, g_is_XExposeEvent) +Xen_wrap_1_arg(g_is_XFocusChangeEvent_w, g_is_XFocusChangeEvent) +Xen_wrap_1_arg(g_is_XGraphicsExposeEvent_w, g_is_XGraphicsExposeEvent) +Xen_wrap_1_arg(g_is_XGravityEvent_w, g_is_XGravityEvent) +Xen_wrap_1_arg(g_is_XKeyEvent_w, g_is_XKeyEvent) +Xen_wrap_1_arg(g_is_XKeymapEvent_w, g_is_XKeymapEvent) +Xen_wrap_1_arg(g_is_XMapEvent_w, g_is_XMapEvent) +Xen_wrap_1_arg(g_is_XMapRequestEvent_w, g_is_XMapRequestEvent) +Xen_wrap_1_arg(g_is_XMappingEvent_w, g_is_XMappingEvent) +Xen_wrap_1_arg(g_is_XMotionEvent_w, g_is_XMotionEvent) +Xen_wrap_1_arg(g_is_XNoExposeEvent_w, g_is_XNoExposeEvent) +Xen_wrap_1_arg(g_is_XPropertyEvent_w, g_is_XPropertyEvent) +Xen_wrap_1_arg(g_is_XReparentEvent_w, g_is_XReparentEvent) +Xen_wrap_1_arg(g_is_XResizeRequestEvent_w, g_is_XResizeRequestEvent) +Xen_wrap_1_arg(g_is_XSelectionClearEvent_w, g_is_XSelectionClearEvent) +Xen_wrap_1_arg(g_is_XSelectionEvent_w, g_is_XSelectionEvent) +Xen_wrap_1_arg(g_is_XSelectionRequestEvent_w, g_is_XSelectionRequestEvent) +Xen_wrap_1_arg(g_is_XSetWindowAttributes_w, g_is_XSetWindowAttributes) +Xen_wrap_1_arg(g_is_XUnmapEvent_w, g_is_XUnmapEvent) +Xen_wrap_1_arg(g_is_XVisibilityEvent_w, g_is_XVisibilityEvent) +Xen_wrap_1_arg(g_is_XIconSize_w, g_is_XIconSize) + +Xen_wrap_4_optional_args(gxm_XmCreateMessageBox_w, gxm_XmCreateMessageBox) +Xen_wrap_4_optional_args(gxm_XmCreateMessageDialog_w, gxm_XmCreateMessageDialog) +Xen_wrap_4_optional_args(gxm_XmCreateErrorDialog_w, gxm_XmCreateErrorDialog) +Xen_wrap_4_optional_args(gxm_XmCreateInformationDialog_w, gxm_XmCreateInformationDialog) +Xen_wrap_4_optional_args(gxm_XmCreateQuestionDialog_w, gxm_XmCreateQuestionDialog) +Xen_wrap_4_optional_args(gxm_XmCreateWarningDialog_w, gxm_XmCreateWarningDialog) +Xen_wrap_4_optional_args(gxm_XmCreateWorkingDialog_w, gxm_XmCreateWorkingDialog) +Xen_wrap_4_optional_args(gxm_XmCreateTemplateDialog_w, gxm_XmCreateTemplateDialog) +Xen_wrap_2_args(gxm_XmMessageBoxGetChild_w, gxm_XmMessageBoxGetChild) +Xen_wrap_4_optional_args(gxm_XmCreateArrowButtonGadget_w, gxm_XmCreateArrowButtonGadget) +Xen_wrap_4_optional_args(gxm_XmCreateArrowButton_w, gxm_XmCreateArrowButton) +Xen_wrap_4_optional_args(gxm_XmCreateNotebook_w, gxm_XmCreateNotebook) +Xen_wrap_2_args(gxm_XmNotebookGetPageInfo_w, gxm_XmNotebookGetPageInfo) +Xen_wrap_5_args(gxm_XmTransferSetParameters_w, gxm_XmTransferSetParameters) +Xen_wrap_2_args(gxm_XmTransferDone_w, gxm_XmTransferDone) +Xen_wrap_5_args(gxm_XmTransferValue_w, gxm_XmTransferValue) +Xen_wrap_1_arg(gxm_XmTransferStartRequest_w, gxm_XmTransferStartRequest) +Xen_wrap_2_args(gxm_XmTransferSendRequest_w, gxm_XmTransferSendRequest) +Xen_wrap_4_optional_args(gxm_XmCreateComboBox_w, gxm_XmCreateComboBox) +Xen_wrap_4_optional_args(gxm_XmCreateDropDownComboBox_w, gxm_XmCreateDropDownComboBox) +Xen_wrap_4_optional_args(gxm_XmCreateDropDownList_w, gxm_XmCreateDropDownList) +Xen_wrap_4_args(gxm_XmComboBoxAddItem_w, gxm_XmComboBoxAddItem) +Xen_wrap_2_args(gxm_XmComboBoxDeletePos_w, gxm_XmComboBoxDeletePos) +Xen_wrap_2_args(gxm_XmComboBoxSelectItem_w, gxm_XmComboBoxSelectItem) +Xen_wrap_2_args(gxm_XmComboBoxSetItem_w, gxm_XmComboBoxSetItem) +Xen_wrap_1_arg(gxm_XmComboBoxUpdate_w, gxm_XmComboBoxUpdate) +Xen_wrap_4_optional_args(gxm_XmCreateContainer_w, gxm_XmCreateContainer) +Xen_wrap_2_args(gxm_XmContainerGetItemChildren_w, gxm_XmContainerGetItemChildren) +Xen_wrap_1_arg(gxm_XmContainerRelayout_w, gxm_XmContainerRelayout) +Xen_wrap_3_args(gxm_XmContainerReorder_w, gxm_XmContainerReorder) +Xen_wrap_2_args(gxm_XmContainerCut_w, gxm_XmContainerCut) +Xen_wrap_2_args(gxm_XmContainerCopy_w, gxm_XmContainerCopy) +Xen_wrap_1_arg(gxm_XmContainerPaste_w, gxm_XmContainerPaste) +Xen_wrap_2_args(gxm_XmContainerCopyLink_w, gxm_XmContainerCopyLink) +Xen_wrap_1_arg(gxm_XmContainerPasteLink_w, gxm_XmContainerPasteLink) +Xen_wrap_4_optional_args(gxm_XmCreateSpinBox_w, gxm_XmCreateSpinBox) +Xen_wrap_1_arg(gxm_XmSpinBoxValidatePosition_w, gxm_XmSpinBoxValidatePosition) +Xen_wrap_4_optional_args(gxm_XmCreateSimpleSpinBox_w, gxm_XmCreateSimpleSpinBox) +Xen_wrap_3_args(gxm_XmSimpleSpinBoxAddItem_w, gxm_XmSimpleSpinBoxAddItem) +Xen_wrap_2_args(gxm_XmSimpleSpinBoxDeletePos_w, gxm_XmSimpleSpinBoxDeletePos) +Xen_wrap_2_args(gxm_XmSimpleSpinBoxSetItem_w, gxm_XmSimpleSpinBoxSetItem) +Xen_wrap_1_arg(gxm_XmDropSiteRegistered_w, gxm_XmDropSiteRegistered) +Xen_wrap_2_args(gxm_XmTextFieldCopyLink_w, gxm_XmTextFieldCopyLink) +Xen_wrap_1_arg(gxm_XmTextFieldPasteLink_w, gxm_XmTextFieldPasteLink) +Xen_wrap_1_arg(gxm_XmTextGetCenterline_w, gxm_XmTextGetCenterline) +Xen_wrap_3_args(gxm_XmToggleButtonGadgetSetValue_w, gxm_XmToggleButtonGadgetSetValue) +Xen_wrap_4_optional_args(gxm_XmCreateIconGadget_w, gxm_XmCreateIconGadget) +Xen_wrap_4_optional_args(gxm_XmCreateIconHeader_w, gxm_XmCreateIconHeader) +Xen_wrap_3_args(gxm_XmObjectAtPoint_w, gxm_XmObjectAtPoint) +Xen_wrap_4_args(gxm_XmConvertStringToUnits_w, gxm_XmConvertStringToUnits) +Xen_wrap_4_optional_args(gxm_XmCreateGrabShell_w, gxm_XmCreateGrabShell) +Xen_wrap_3_args(gxm_XmToggleButtonSetValue_w, gxm_XmToggleButtonSetValue) +Xen_wrap_1_arg(gxm_XmTextPasteLink_w, gxm_XmTextPasteLink) +Xen_wrap_2_args(gxm_XmTextCopyLink_w, gxm_XmTextCopyLink) +Xen_wrap_7_args(gxm_XmScaleSetTicks_w, gxm_XmScaleSetTicks) +Xen_wrap_3_args(gxm_XmInternAtom_w, gxm_XmInternAtom) +Xen_wrap_2_args(gxm_XmGetAtomName_w, gxm_XmGetAtomName) +Xen_wrap_4_optional_args(gxm_XmCreatePanedWindow_w, gxm_XmCreatePanedWindow) +Xen_wrap_4_optional_args(gxm_XmCreateBulletinBoard_w, gxm_XmCreateBulletinBoard) +Xen_wrap_4_optional_args(gxm_XmCreateBulletinBoardDialog_w, gxm_XmCreateBulletinBoardDialog) +Xen_wrap_4_optional_args(gxm_XmCreateCascadeButtonGadget_w, gxm_XmCreateCascadeButtonGadget) +Xen_wrap_2_args(gxm_XmCascadeButtonGadgetHighlight_w, gxm_XmCascadeButtonGadgetHighlight) +Xen_wrap_4_optional_args(gxm_XmAddProtocols_w, gxm_XmAddProtocols) +Xen_wrap_3_optional_args(gxm_XmAddWMProtocols_w, gxm_XmAddWMProtocols) +Xen_wrap_4_optional_args(gxm_XmRemoveProtocols_w, gxm_XmRemoveProtocols) +Xen_wrap_3_optional_args(gxm_XmRemoveWMProtocols_w, gxm_XmRemoveWMProtocols) +Xen_wrap_5_args(gxm_XmAddProtocolCallback_w, gxm_XmAddProtocolCallback) +Xen_wrap_4_args(gxm_XmAddWMProtocolCallback_w, gxm_XmAddWMProtocolCallback) +Xen_wrap_5_args(gxm_XmRemoveProtocolCallback_w, gxm_XmRemoveProtocolCallback) +Xen_wrap_4_args(gxm_XmRemoveWMProtocolCallback_w, gxm_XmRemoveWMProtocolCallback) +Xen_wrap_3_args(gxm_XmActivateProtocol_w, gxm_XmActivateProtocol) +Xen_wrap_3_args(gxm_XmDeactivateProtocol_w, gxm_XmDeactivateProtocol) +Xen_wrap_2_args(gxm_XmActivateWMProtocol_w, gxm_XmActivateWMProtocol) +Xen_wrap_2_args(gxm_XmDeactivateWMProtocol_w, gxm_XmDeactivateWMProtocol) +Xen_wrap_7_args(gxm_XmSetProtocolHooks_w, gxm_XmSetProtocolHooks) +Xen_wrap_6_args(gxm_XmSetWMProtocolHooks_w, gxm_XmSetWMProtocolHooks) +Xen_wrap_4_optional_args(gxm_XmCreateCascadeButton_w, gxm_XmCreateCascadeButton) +Xen_wrap_2_args(gxm_XmCascadeButtonHighlight_w, gxm_XmCascadeButtonHighlight) +Xen_wrap_4_optional_args(gxm_XmCreatePushButtonGadget_w, gxm_XmCreatePushButtonGadget) +Xen_wrap_4_optional_args(gxm_XmCreatePushButton_w, gxm_XmCreatePushButton) +Xen_wrap_4_optional_args(gxm_XmCreateCommand_w, gxm_XmCreateCommand) +Xen_wrap_2_args(gxm_XmCommandGetChild_w, gxm_XmCommandGetChild) +Xen_wrap_2_args(gxm_XmCommandSetValue_w, gxm_XmCommandSetValue) +Xen_wrap_2_args(gxm_XmCommandAppendValue_w, gxm_XmCommandAppendValue) +Xen_wrap_2_args(gxm_XmCommandError_w, gxm_XmCommandError) +Xen_wrap_4_optional_args(gxm_XmCreateCommandDialog_w, gxm_XmCreateCommandDialog) +Xen_wrap_2_args(gxm_XmMenuPosition_w, gxm_XmMenuPosition) +Xen_wrap_4_optional_args(gxm_XmCreateRowColumn_w, gxm_XmCreateRowColumn) +Xen_wrap_4_optional_args(gxm_XmCreateWorkArea_w, gxm_XmCreateWorkArea) +Xen_wrap_4_optional_args(gxm_XmCreateRadioBox_w, gxm_XmCreateRadioBox) +Xen_wrap_4_optional_args(gxm_XmCreateOptionMenu_w, gxm_XmCreateOptionMenu) +Xen_wrap_1_arg(gxm_XmOptionLabelGadget_w, gxm_XmOptionLabelGadget) +Xen_wrap_1_arg(gxm_XmOptionButtonGadget_w, gxm_XmOptionButtonGadget) +Xen_wrap_4_optional_args(gxm_XmCreateMenuBar_w, gxm_XmCreateMenuBar) +Xen_wrap_4_optional_args(gxm_XmCreatePopupMenu_w, gxm_XmCreatePopupMenu) +Xen_wrap_4_optional_args(gxm_XmCreatePulldownMenu_w, gxm_XmCreatePulldownMenu) +Xen_wrap_1_arg(gxm_XmGetPostedFromWidget_w, gxm_XmGetPostedFromWidget) +Xen_wrap_1_arg(gxm_XmGetTearOffControl_w, gxm_XmGetTearOffControl) +Xen_wrap_2_args(gxm_XmScaleSetValue_w, gxm_XmScaleSetValue) +Xen_wrap_1_arg(gxm_XmScaleGetValue_w, gxm_XmScaleGetValue) +Xen_wrap_4_optional_args(gxm_XmCreateScale_w, gxm_XmCreateScale) +Xen_wrap_5_args(gxm_XmClipboardBeginCopy_w, gxm_XmClipboardBeginCopy) +Xen_wrap_6_args(gxm_XmClipboardStartCopy_w, gxm_XmClipboardStartCopy) +Xen_wrap_7_args(gxm_XmClipboardCopy_w, gxm_XmClipboardCopy) +Xen_wrap_3_args(gxm_XmClipboardEndCopy_w, gxm_XmClipboardEndCopy) +Xen_wrap_3_args(gxm_XmClipboardCancelCopy_w, gxm_XmClipboardCancelCopy) +Xen_wrap_3_args(gxm_XmClipboardWithdrawFormat_w, gxm_XmClipboardWithdrawFormat) +Xen_wrap_6_args(gxm_XmClipboardCopyByName_w, gxm_XmClipboardCopyByName) +Xen_wrap_2_args(gxm_XmClipboardUndoCopy_w, gxm_XmClipboardUndoCopy) +Xen_wrap_2_args(gxm_XmClipboardLock_w, gxm_XmClipboardLock) +Xen_wrap_3_args(gxm_XmClipboardUnlock_w, gxm_XmClipboardUnlock) +Xen_wrap_3_args(gxm_XmClipboardStartRetrieve_w, gxm_XmClipboardStartRetrieve) +Xen_wrap_2_args(gxm_XmClipboardEndRetrieve_w, gxm_XmClipboardEndRetrieve) +Xen_wrap_4_args(gxm_XmClipboardRetrieve_w, gxm_XmClipboardRetrieve) +Xen_wrap_2_args(gxm_XmClipboardInquireCount_w, gxm_XmClipboardInquireCount) +Xen_wrap_4_args(gxm_XmClipboardInquireFormat_w, gxm_XmClipboardInquireFormat) +Xen_wrap_3_args(gxm_XmClipboardInquireLength_w, gxm_XmClipboardInquireLength) +Xen_wrap_3_args(gxm_XmClipboardInquirePendingItems_w, gxm_XmClipboardInquirePendingItems) +Xen_wrap_3_args(gxm_XmClipboardRegisterFormat_w, gxm_XmClipboardRegisterFormat) +Xen_wrap_1_arg(gxm_XmGetXmScreen_w, gxm_XmGetXmScreen) +Xen_wrap_4_optional_args(gxm_XmCreateScrollBar_w, gxm_XmCreateScrollBar) +Xen_wrap_1_arg(gxm_XmScrollBarGetValues_w, gxm_XmScrollBarGetValues) +Xen_wrap_6_args(gxm_XmScrollBarSetValues_w, gxm_XmScrollBarSetValues) +Xen_wrap_4_optional_args(gxm_XmCreateDialogShell_w, gxm_XmCreateDialogShell) +Xen_wrap_4_optional_args(gxm_XmCreateScrolledWindow_w, gxm_XmCreateScrolledWindow) +Xen_wrap_4_args(gxm_XmScrollVisible_w, gxm_XmScrollVisible) +Xen_wrap_2_args(gxm_XmGetDragContext_w, gxm_XmGetDragContext) +Xen_wrap_1_arg(gxm_XmGetXmDisplay_w, gxm_XmGetXmDisplay) +Xen_wrap_2_args(gxm_XmSelectionBoxGetChild_w, gxm_XmSelectionBoxGetChild) +Xen_wrap_4_optional_args(gxm_XmCreateSelectionBox_w, gxm_XmCreateSelectionBox) +Xen_wrap_4_optional_args(gxm_XmCreateSelectionDialog_w, gxm_XmCreateSelectionDialog) +Xen_wrap_4_optional_args(gxm_XmCreatePromptDialog_w, gxm_XmCreatePromptDialog) +Xen_wrap_4_optional_args(gxm_XmDragStart_w, gxm_XmDragStart) +Xen_wrap_1_arg(gxm_XmDragCancel_w, gxm_XmDragCancel) +Xen_wrap_5_args(gxm_XmTargetsAreCompatible_w, gxm_XmTargetsAreCompatible) +Xen_wrap_4_optional_args(gxm_XmCreateSeparatorGadget_w, gxm_XmCreateSeparatorGadget) +Xen_wrap_4_optional_args(gxm_XmCreateDragIcon_w, gxm_XmCreateDragIcon) +Xen_wrap_4_optional_args(gxm_XmCreateSeparator_w, gxm_XmCreateSeparator) +Xen_wrap_4_optional_args(gxm_XmCreateDrawingArea_w, gxm_XmCreateDrawingArea) +Xen_wrap_4_optional_args(gxm_XmCreateDrawnButton_w, gxm_XmCreateDrawnButton) +Xen_wrap_3_optional_args(gxm_XmDropSiteRegister_w, gxm_XmDropSiteRegister) +Xen_wrap_1_arg(gxm_XmDropSiteUnregister_w, gxm_XmDropSiteUnregister) +Xen_wrap_1_arg(gxm_XmDropSiteStartUpdate_w, gxm_XmDropSiteStartUpdate) +Xen_wrap_3_optional_args(gxm_XmDropSiteUpdate_w, gxm_XmDropSiteUpdate) +Xen_wrap_1_arg(gxm_XmDropSiteEndUpdate_w, gxm_XmDropSiteEndUpdate) +Xen_wrap_3_optional_args(gxm_XmDropSiteRetrieve_w, gxm_XmDropSiteRetrieve) +Xen_wrap_1_arg(gxm_XmDropSiteQueryStackingOrder_w, gxm_XmDropSiteQueryStackingOrder) +Xen_wrap_3_args(gxm_XmDropSiteConfigureStackingOrder_w, gxm_XmDropSiteConfigureStackingOrder) +Xen_wrap_3_optional_args(gxm_XmDropTransferStart_w, gxm_XmDropTransferStart) +Xen_wrap_2_args(gxm_XmDropTransferAdd_w, gxm_XmDropTransferAdd) +Xen_wrap_1_arg(gxm_XmTextFieldGetString_w, gxm_XmTextFieldGetString) +Xen_wrap_3_args(gxm_XmTextFieldGetSubstring_w, gxm_XmTextFieldGetSubstring) +Xen_wrap_1_arg(gxm_XmTextFieldGetLastPosition_w, gxm_XmTextFieldGetLastPosition) +Xen_wrap_2_args(gxm_XmTextFieldSetString_w, gxm_XmTextFieldSetString) +Xen_wrap_4_args(gxm_XmTextFieldReplace_w, gxm_XmTextFieldReplace) +Xen_wrap_3_args(gxm_XmTextFieldInsert_w, gxm_XmTextFieldInsert) +Xen_wrap_2_args(gxm_XmTextFieldSetAddMode_w, gxm_XmTextFieldSetAddMode) +Xen_wrap_1_arg(gxm_XmTextFieldGetAddMode_w, gxm_XmTextFieldGetAddMode) +Xen_wrap_1_arg(gxm_XmTextFieldGetEditable_w, gxm_XmTextFieldGetEditable) +Xen_wrap_2_args(gxm_XmTextFieldSetEditable_w, gxm_XmTextFieldSetEditable) +Xen_wrap_1_arg(gxm_XmTextFieldGetMaxLength_w, gxm_XmTextFieldGetMaxLength) +Xen_wrap_2_args(gxm_XmTextFieldSetMaxLength_w, gxm_XmTextFieldSetMaxLength) +Xen_wrap_1_arg(gxm_XmTextFieldGetCursorPosition_w, gxm_XmTextFieldGetCursorPosition) +Xen_wrap_1_arg(gxm_XmTextFieldGetInsertionPosition_w, gxm_XmTextFieldGetInsertionPosition) +Xen_wrap_2_args(gxm_XmTextFieldSetCursorPosition_w, gxm_XmTextFieldSetCursorPosition) +Xen_wrap_2_args(gxm_XmTextFieldSetInsertionPosition_w, gxm_XmTextFieldSetInsertionPosition) +Xen_wrap_1_arg(gxm_XmTextFieldGetSelectionPosition_w, gxm_XmTextFieldGetSelectionPosition) +Xen_wrap_1_arg(gxm_XmTextFieldGetSelection_w, gxm_XmTextFieldGetSelection) +Xen_wrap_1_arg(gxm_XmTextFieldRemove_w, gxm_XmTextFieldRemove) +Xen_wrap_2_args(gxm_XmTextFieldCopy_w, gxm_XmTextFieldCopy) +Xen_wrap_2_args(gxm_XmTextFieldCut_w, gxm_XmTextFieldCut) +Xen_wrap_1_arg(gxm_XmTextFieldPaste_w, gxm_XmTextFieldPaste) +Xen_wrap_2_args(gxm_XmTextFieldClearSelection_w, gxm_XmTextFieldClearSelection) +Xen_wrap_4_args(gxm_XmTextFieldSetSelection_w, gxm_XmTextFieldSetSelection) +Xen_wrap_3_args(gxm_XmTextFieldXYToPos_w, gxm_XmTextFieldXYToPos) +Xen_wrap_2_args(gxm_XmTextFieldPosToXY_w, gxm_XmTextFieldPosToXY) +Xen_wrap_2_args(gxm_XmTextFieldShowPosition_w, gxm_XmTextFieldShowPosition) +Xen_wrap_4_args(gxm_XmTextFieldSetHighlight_w, gxm_XmTextFieldSetHighlight) +Xen_wrap_1_arg(gxm_XmTextFieldGetBaseline_w, gxm_XmTextFieldGetBaseline) +Xen_wrap_4_optional_args(gxm_XmCreateTextField_w, gxm_XmCreateTextField) +Xen_wrap_2_args(gxm_XmFileSelectionBoxGetChild_w, gxm_XmFileSelectionBoxGetChild) +Xen_wrap_2_args(gxm_XmFileSelectionDoSearch_w, gxm_XmFileSelectionDoSearch) +Xen_wrap_4_optional_args(gxm_XmCreateFileSelectionBox_w, gxm_XmCreateFileSelectionBox) +Xen_wrap_4_optional_args(gxm_XmCreateFileSelectionDialog_w, gxm_XmCreateFileSelectionDialog) +Xen_wrap_4_args(gxm_XmTextSetHighlight_w, gxm_XmTextSetHighlight) +Xen_wrap_4_optional_args(gxm_XmCreateScrolledText_w, gxm_XmCreateScrolledText) +Xen_wrap_4_optional_args(gxm_XmCreateText_w, gxm_XmCreateText) +Xen_wrap_3_args(gxm_XmTextGetSubstring_w, gxm_XmTextGetSubstring) +Xen_wrap_1_arg(gxm_XmTextGetString_w, gxm_XmTextGetString) +Xen_wrap_1_arg(gxm_XmTextGetLastPosition_w, gxm_XmTextGetLastPosition) +Xen_wrap_2_args(gxm_XmTextSetString_w, gxm_XmTextSetString) +Xen_wrap_4_args(gxm_XmTextReplace_w, gxm_XmTextReplace) +Xen_wrap_3_args(gxm_XmTextInsert_w, gxm_XmTextInsert) +Xen_wrap_2_args(gxm_XmTextSetAddMode_w, gxm_XmTextSetAddMode) +Xen_wrap_1_arg(gxm_XmTextGetAddMode_w, gxm_XmTextGetAddMode) +Xen_wrap_1_arg(gxm_XmTextGetEditable_w, gxm_XmTextGetEditable) +Xen_wrap_2_args(gxm_XmTextSetEditable_w, gxm_XmTextSetEditable) +Xen_wrap_1_arg(gxm_XmTextGetMaxLength_w, gxm_XmTextGetMaxLength) +Xen_wrap_2_args(gxm_XmTextSetMaxLength_w, gxm_XmTextSetMaxLength) +Xen_wrap_1_arg(gxm_XmTextGetTopCharacter_w, gxm_XmTextGetTopCharacter) +Xen_wrap_2_args(gxm_XmTextSetTopCharacter_w, gxm_XmTextSetTopCharacter) +Xen_wrap_1_arg(gxm_XmTextGetCursorPosition_w, gxm_XmTextGetCursorPosition) +Xen_wrap_1_arg(gxm_XmTextGetInsertionPosition_w, gxm_XmTextGetInsertionPosition) +Xen_wrap_2_args(gxm_XmTextSetInsertionPosition_w, gxm_XmTextSetInsertionPosition) +Xen_wrap_2_args(gxm_XmTextSetCursorPosition_w, gxm_XmTextSetCursorPosition) +Xen_wrap_1_arg(gxm_XmTextRemove_w, gxm_XmTextRemove) +Xen_wrap_2_args(gxm_XmTextCopy_w, gxm_XmTextCopy) +Xen_wrap_2_args(gxm_XmTextCut_w, gxm_XmTextCut) +Xen_wrap_1_arg(gxm_XmTextPaste_w, gxm_XmTextPaste) +Xen_wrap_1_arg(gxm_XmTextGetSelection_w, gxm_XmTextGetSelection) +Xen_wrap_4_args(gxm_XmTextSetSelection_w, gxm_XmTextSetSelection) +Xen_wrap_2_args(gxm_XmTextClearSelection_w, gxm_XmTextClearSelection) +Xen_wrap_1_arg(gxm_XmTextGetSelectionPosition_w, gxm_XmTextGetSelectionPosition) +Xen_wrap_3_args(gxm_XmTextXYToPos_w, gxm_XmTextXYToPos) +Xen_wrap_2_args(gxm_XmTextPosToXY_w, gxm_XmTextPosToXY) +Xen_wrap_1_arg(gxm_XmTextGetSource_w, gxm_XmTextGetSource) +Xen_wrap_4_args(gxm_XmTextSetSource_w, gxm_XmTextSetSource) +Xen_wrap_2_args(gxm_XmTextShowPosition_w, gxm_XmTextShowPosition) +Xen_wrap_2_args(gxm_XmTextScroll_w, gxm_XmTextScroll) +Xen_wrap_1_arg(gxm_XmTextGetBaseline_w, gxm_XmTextGetBaseline) +Xen_wrap_1_arg(gxm_XmTextDisableRedisplay_w, gxm_XmTextDisableRedisplay) +Xen_wrap_1_arg(gxm_XmTextEnableRedisplay_w, gxm_XmTextEnableRedisplay) +Xen_wrap_4_args(gxm_XmTextFindString_w, gxm_XmTextFindString) +Xen_wrap_4_optional_args(gxm_XmCreateForm_w, gxm_XmCreateForm) +Xen_wrap_4_optional_args(gxm_XmCreateFormDialog_w, gxm_XmCreateFormDialog) +Xen_wrap_4_optional_args(gxm_XmCreateFrame_w, gxm_XmCreateFrame) +Xen_wrap_1_arg(gxm_XmToggleButtonGadgetGetState_w, gxm_XmToggleButtonGadgetGetState) +Xen_wrap_3_args(gxm_XmToggleButtonGadgetSetState_w, gxm_XmToggleButtonGadgetSetState) +Xen_wrap_4_optional_args(gxm_XmCreateToggleButtonGadget_w, gxm_XmCreateToggleButtonGadget) +Xen_wrap_1_arg(gxm_XmToggleButtonGetState_w, gxm_XmToggleButtonGetState) +Xen_wrap_3_args(gxm_XmToggleButtonSetState_w, gxm_XmToggleButtonSetState) +Xen_wrap_4_optional_args(gxm_XmCreateToggleButton_w, gxm_XmCreateToggleButton) +Xen_wrap_4_optional_args(gxm_XmCreateLabelGadget_w, gxm_XmCreateLabelGadget) +Xen_wrap_4_optional_args(gxm_XmCreateLabel_w, gxm_XmCreateLabel) +Xen_wrap_1_arg(gxm_XmIsMotifWMRunning_w, gxm_XmIsMotifWMRunning) +Xen_wrap_3_args(gxm_XmListAddItem_w, gxm_XmListAddItem) +Xen_wrap_4_args(gxm_XmListAddItems_w, gxm_XmListAddItems) +Xen_wrap_4_args(gxm_XmListAddItemsUnselected_w, gxm_XmListAddItemsUnselected) +Xen_wrap_3_args(gxm_XmListAddItemUnselected_w, gxm_XmListAddItemUnselected) +Xen_wrap_2_args(gxm_XmListDeleteItem_w, gxm_XmListDeleteItem) +Xen_wrap_3_optional_args(gxm_XmListDeleteItems_w, gxm_XmListDeleteItems) +Xen_wrap_3_optional_args(gxm_XmListDeletePositions_w, gxm_XmListDeletePositions) +Xen_wrap_2_args(gxm_XmListDeletePos_w, gxm_XmListDeletePos) +Xen_wrap_3_args(gxm_XmListDeleteItemsPos_w, gxm_XmListDeleteItemsPos) +Xen_wrap_1_arg(gxm_XmListDeleteAllItems_w, gxm_XmListDeleteAllItems) +Xen_wrap_4_args(gxm_XmListReplaceItems_w, gxm_XmListReplaceItems) +Xen_wrap_4_args(gxm_XmListReplaceItemsPos_w, gxm_XmListReplaceItemsPos) +Xen_wrap_4_args(gxm_XmListReplaceItemsUnselected_w, gxm_XmListReplaceItemsUnselected) +Xen_wrap_4_args(gxm_XmListReplaceItemsPosUnselected_w, gxm_XmListReplaceItemsPosUnselected) +Xen_wrap_4_args(gxm_XmListReplacePositions_w, gxm_XmListReplacePositions) +Xen_wrap_3_args(gxm_XmListSelectItem_w, gxm_XmListSelectItem) +Xen_wrap_3_args(gxm_XmListSelectPos_w, gxm_XmListSelectPos) +Xen_wrap_2_args(gxm_XmListDeselectItem_w, gxm_XmListDeselectItem) +Xen_wrap_2_args(gxm_XmListDeselectPos_w, gxm_XmListDeselectPos) +Xen_wrap_1_arg(gxm_XmListDeselectAllItems_w, gxm_XmListDeselectAllItems) +Xen_wrap_2_args(gxm_XmListSetPos_w, gxm_XmListSetPos) +Xen_wrap_2_args(gxm_XmListSetBottomPos_w, gxm_XmListSetBottomPos) +Xen_wrap_2_args(gxm_XmListSetItem_w, gxm_XmListSetItem) +Xen_wrap_2_args(gxm_XmListSetBottomItem_w, gxm_XmListSetBottomItem) +Xen_wrap_2_args(gxm_XmListSetAddMode_w, gxm_XmListSetAddMode) +Xen_wrap_2_args(gxm_XmListItemExists_w, gxm_XmListItemExists) +Xen_wrap_2_args(gxm_XmListItemPos_w, gxm_XmListItemPos) +Xen_wrap_1_arg(gxm_XmListGetKbdItemPos_w, gxm_XmListGetKbdItemPos) +Xen_wrap_2_args(gxm_XmListSetKbdItemPos_w, gxm_XmListSetKbdItemPos) +Xen_wrap_2_args(gxm_XmListYToPos_w, gxm_XmListYToPos) +Xen_wrap_2_args(gxm_XmListPosToBounds_w, gxm_XmListPosToBounds) +Xen_wrap_2_args(gxm_XmListGetMatchPos_w, gxm_XmListGetMatchPos) +Xen_wrap_2_args(gxm_XmListSetHorizPos_w, gxm_XmListSetHorizPos) +Xen_wrap_1_arg(gxm_XmListUpdateSelectedList_w, gxm_XmListUpdateSelectedList) +Xen_wrap_2_args(gxm_XmListPosSelected_w, gxm_XmListPosSelected) +Xen_wrap_4_optional_args(gxm_XmCreateList_w, gxm_XmCreateList) +Xen_wrap_4_optional_args(gxm_XmCreateScrolledList_w, gxm_XmCreateScrolledList) +Xen_wrap_3_args(gxm_XmTranslateKey_w, gxm_XmTranslateKey) +Xen_wrap_4_optional_args(gxm_XmCreateMainWindow_w, gxm_XmCreateMainWindow) +Xen_wrap_2_args(gxm_XmInstallImage_w, gxm_XmInstallImage) +Xen_wrap_1_arg(gxm_XmUninstallImage_w, gxm_XmUninstallImage) +Xen_wrap_4_args(gxm_XmGetPixmap_w, gxm_XmGetPixmap) +Xen_wrap_5_args(gxm_XmGetPixmapByDepth_w, gxm_XmGetPixmapByDepth) +Xen_wrap_2_args(gxm_XmDestroyPixmap_w, gxm_XmDestroyPixmap) +Xen_wrap_1_arg(gxm_XmUpdateDisplay_w, gxm_XmUpdateDisplay) +Xen_wrap_1_arg(gxm_XmWidgetGetBaselines_w, gxm_XmWidgetGetBaselines) +Xen_wrap_2_args(gxm_XmRegisterSegmentEncoding_w, gxm_XmRegisterSegmentEncoding) +Xen_wrap_1_arg(gxm_XmMapSegmentEncoding_w, gxm_XmMapSegmentEncoding) +Xen_wrap_1_arg(gxm_XmCvtCTToXmString_w, gxm_XmCvtCTToXmString) +Xen_wrap_1_arg(gxm_XmCvtXmStringToCT_w, gxm_XmCvtXmStringToCT) +Xen_wrap_5_args(gxm_XmConvertUnits_w, gxm_XmConvertUnits) +Xen_wrap_4_optional_args(gxm_XmCreateSimpleMenuBar_w, gxm_XmCreateSimpleMenuBar) +Xen_wrap_4_optional_args(gxm_XmCreateSimplePopupMenu_w, gxm_XmCreateSimplePopupMenu) +Xen_wrap_4_optional_args(gxm_XmCreateSimplePulldownMenu_w, gxm_XmCreateSimplePulldownMenu) +Xen_wrap_4_optional_args(gxm_XmCreateSimpleOptionMenu_w, gxm_XmCreateSimpleOptionMenu) +Xen_wrap_4_optional_args(gxm_XmCreateSimpleRadioBox_w, gxm_XmCreateSimpleRadioBox) +Xen_wrap_4_optional_args(gxm_XmCreateSimpleCheckBox_w, gxm_XmCreateSimpleCheckBox) +Xen_wrap_3_args(gxm_XmVaCreateSimpleMenuBar_w, gxm_XmVaCreateSimpleMenuBar) +Xen_wrap_4_args(gxm_XmVaCreateSimplePopupMenu_w, gxm_XmVaCreateSimplePopupMenu) +Xen_wrap_5_args(gxm_XmVaCreateSimplePulldownMenu_w, gxm_XmVaCreateSimplePulldownMenu) +Xen_wrap_7_args(gxm_XmVaCreateSimpleOptionMenu_w, gxm_XmVaCreateSimpleOptionMenu) +Xen_wrap_5_args(gxm_XmVaCreateSimpleRadioBox_w, gxm_XmVaCreateSimpleRadioBox) +Xen_wrap_4_args(gxm_XmVaCreateSimpleCheckBox_w, gxm_XmVaCreateSimpleCheckBox) +Xen_wrap_3_args(gxm_XmTrackingEvent_w, gxm_XmTrackingEvent) +Xen_wrap_1_arg(gxm_XmSetColorCalculation_w, gxm_XmSetColorCalculation) +Xen_wrap_no_args(gxm_XmGetColorCalculation_w, gxm_XmGetColorCalculation) +Xen_wrap_3_args(gxm_XmGetColors_w, gxm_XmGetColors) +Xen_wrap_2_args(gxm_XmChangeColor_w, gxm_XmChangeColor) +Xen_wrap_2_args(gxm_XmStringCreate_w, gxm_XmStringCreate) +Xen_wrap_1_arg(gxm_XmStringCreateLocalized_w, gxm_XmStringCreateLocalized) +Xen_wrap_1_arg(gxm_XmStringDirectionCreate_w, gxm_XmStringDirectionCreate) +Xen_wrap_no_args(gxm_XmStringSeparatorCreate_w, gxm_XmStringSeparatorCreate) +Xen_wrap_1_arg(gxm_XmStringInitContext_w, gxm_XmStringInitContext) +Xen_wrap_1_arg(gxm_XmStringFreeContext_w, gxm_XmStringFreeContext) +Xen_wrap_2_args(gxm_XmStringConcatAndFree_w, gxm_XmStringConcatAndFree) +Xen_wrap_1_arg(gxm_XmStringIsVoid_w, gxm_XmStringIsVoid) +Xen_wrap_1_arg(gxm_XmStringPeekNextTriple_w, gxm_XmStringPeekNextTriple) +Xen_wrap_1_arg(gxm_XmStringGetNextTriple_w, gxm_XmStringGetNextTriple) +Xen_wrap_3_args(gxm_XmStringComponentCreate_w, gxm_XmStringComponentCreate) +Xen_wrap_7_args(gxm_XmStringUnparse_w, gxm_XmStringUnparse) +Xen_wrap_7_args(gxm_XmStringParseText_w, gxm_XmStringParseText) +Xen_wrap_2_args(gxm_XmStringToXmStringTable_w, gxm_XmStringToXmStringTable) +Xen_wrap_3_args(gxm_XmStringTableToXmString_w, gxm_XmStringTableToXmString) +Xen_wrap_8_args(gxm_XmStringTableUnparse_w, gxm_XmStringTableUnparse) +Xen_wrap_7_args(gxm_XmStringTableParseStringArray_w, gxm_XmStringTableParseStringArray) +Xen_wrap_1_arg(gxm_XmDirectionToStringDirection_w, gxm_XmDirectionToStringDirection) +Xen_wrap_1_arg(gxm_XmStringDirectionToDirection_w, gxm_XmStringDirectionToDirection) +Xen_wrap_4_args(gxm_XmStringGenerate_w, gxm_XmStringGenerate) +Xen_wrap_2_args(gxm_XmStringPutRendition_w, gxm_XmStringPutRendition) +Xen_wrap_2_optional_args(gxm_XmParseMappingCreate_w, gxm_XmParseMappingCreate) +Xen_wrap_3_optional_args(gxm_XmParseMappingSetValues_w, gxm_XmParseMappingSetValues) +Xen_wrap_3_optional_args(gxm_XmParseMappingGetValues_w, gxm_XmParseMappingGetValues) +Xen_wrap_1_arg(gxm_XmParseMappingFree_w, gxm_XmParseMappingFree) +Xen_wrap_2_optional_args(gxm_XmParseTableFree_w, gxm_XmParseTableFree) +Xen_wrap_5_args(gxm_XmStringTableProposeTablist_w, gxm_XmStringTableProposeTablist) +Xen_wrap_2_args(gxm_XmTabSetValue_w, gxm_XmTabSetValue) +Xen_wrap_1_arg(gxm_XmTabGetValues_w, gxm_XmTabGetValues) +Xen_wrap_1_arg(gxm_XmTabFree_w, gxm_XmTabFree) +Xen_wrap_1_arg(gxm_XmTabListFree_w, gxm_XmTabListFree) +Xen_wrap_5_args(gxm_XmTabCreate_w, gxm_XmTabCreate) +Xen_wrap_1_arg(gxm_XmTabListTabCount_w, gxm_XmTabListTabCount) +Xen_wrap_3_optional_args(gxm_XmTabListRemoveTabs_w, gxm_XmTabListRemoveTabs) +Xen_wrap_4_optional_args(gxm_XmTabListReplacePositions_w, gxm_XmTabListReplacePositions) +Xen_wrap_2_args(gxm_XmTabListGetTab_w, gxm_XmTabListGetTab) +Xen_wrap_3_args(gxm_XmTabListCopy_w, gxm_XmTabListCopy) +Xen_wrap_4_args(gxm_XmTabListInsertTabs_w, gxm_XmTabListInsertTabs) +Xen_wrap_3_args(gxm_XmRenderTableCvtFromProp_w, gxm_XmRenderTableCvtFromProp) +Xen_wrap_2_args(gxm_XmRenderTableCvtToProp_w, gxm_XmRenderTableCvtToProp) +Xen_wrap_3_optional_args(gxm_XmRenditionUpdate_w, gxm_XmRenditionUpdate) +Xen_wrap_3_optional_args(gxm_XmRenditionRetrieve_w, gxm_XmRenditionRetrieve) +Xen_wrap_1_arg(gxm_XmRenditionFree_w, gxm_XmRenditionFree) +Xen_wrap_4_optional_args(gxm_XmRenditionCreate_w, gxm_XmRenditionCreate) +Xen_wrap_3_optional_args(gxm_XmRenderTableGetRenditions_w, gxm_XmRenderTableGetRenditions) +Xen_wrap_2_args(gxm_XmRenderTableGetRendition_w, gxm_XmRenderTableGetRendition) +Xen_wrap_1_arg(gxm_XmRenderTableGetTags_w, gxm_XmRenderTableGetTags) +Xen_wrap_1_arg(gxm_XmRenderTableFree_w, gxm_XmRenderTableFree) +Xen_wrap_3_optional_args(gxm_XmRenderTableCopy_w, gxm_XmRenderTableCopy) +Xen_wrap_3_optional_args(gxm_XmRenderTableRemoveRenditions_w, gxm_XmRenderTableRemoveRenditions) +Xen_wrap_4_args(gxm_XmRenderTableAddRenditions_w, gxm_XmRenderTableAddRenditions) +Xen_wrap_2_args(gxm_XmStringConcat_w, gxm_XmStringConcat) +Xen_wrap_1_arg(gxm_XmStringCopy_w, gxm_XmStringCopy) +Xen_wrap_2_args(gxm_XmStringCompare_w, gxm_XmStringCompare) +Xen_wrap_1_arg(gxm_XmStringEmpty_w, gxm_XmStringEmpty) +Xen_wrap_2_args(gxm_XmStringHasSubstring_w, gxm_XmStringHasSubstring) +Xen_wrap_1_arg(gxm_XmStringFree_w, gxm_XmStringFree) +Xen_wrap_2_args(gxm_XmStringBaseline_w, gxm_XmStringBaseline) +Xen_wrap_2_args(gxm_XmStringWidth_w, gxm_XmStringWidth) +Xen_wrap_2_args(gxm_XmStringHeight_w, gxm_XmStringHeight) +Xen_wrap_2_args(gxm_XmStringExtent_w, gxm_XmStringExtent) +Xen_wrap_1_arg(gxm_XmStringLineCount_w, gxm_XmStringLineCount) +Xen_wrap_any_args(gxm_XmStringDraw_w, gxm_XmStringDraw) +Xen_wrap_any_args(gxm_XmStringDrawImage_w, gxm_XmStringDrawImage) +Xen_wrap_any_args(gxm_XmStringDrawUnderline_w, gxm_XmStringDrawUnderline) + +Xen_wrap_1_arg(gxm_XmGetDestination_w, gxm_XmGetDestination) +Xen_wrap_1_arg(gxm_XmIsTraversable_w, gxm_XmIsTraversable) +Xen_wrap_1_arg(gxm_XmGetVisibility_w, gxm_XmGetVisibility) +Xen_wrap_1_arg(gxm_XmGetTabGroup_w, gxm_XmGetTabGroup) +Xen_wrap_1_arg(gxm_XmGetFocusWidget_w, gxm_XmGetFocusWidget) +Xen_wrap_2_args(gxm_XmProcessTraversal_w, gxm_XmProcessTraversal) +Xen_wrap_4_optional_args(gxm_XmCreateMenuShell_w, gxm_XmCreateMenuShell) + +Xen_wrap_1_arg(gxm_XmIsMessageBox_w, gxm_XmIsMessageBox) +Xen_wrap_1_arg(gxm_XmIsArrowButtonGadget_w, gxm_XmIsArrowButtonGadget) +Xen_wrap_1_arg(gxm_XmIsArrowButton_w, gxm_XmIsArrowButton) +Xen_wrap_1_arg(gxm_XmCvtXmStringToByteStream_w, gxm_XmCvtXmStringToByteStream) +Xen_wrap_1_arg(gxm_XmCvtByteStreamToXmString_w, gxm_XmCvtByteStreamToXmString) +Xen_wrap_1_arg(gxm_XmStringByteStreamLength_w, gxm_XmStringByteStreamLength) +Xen_wrap_1_arg(gxm_XmIsNotebook_w, gxm_XmIsNotebook) +Xen_wrap_1_arg(gxm_XmIsComboBox_w, gxm_XmIsComboBox) +Xen_wrap_1_arg(gxm_XmIsContainer_w, gxm_XmIsContainer) +Xen_wrap_1_arg(gxm_XmIsGrabShell_w, gxm_XmIsGrabShell) +Xen_wrap_1_arg(gxm_XmIsIconGadget_w, gxm_XmIsIconGadget) +Xen_wrap_1_arg(gxm_XmIsIconHeader_w, gxm_XmIsIconHeader) +Xen_wrap_1_arg(gxm_XmIsPanedWindow_w, gxm_XmIsPanedWindow) +Xen_wrap_1_arg(gxm_XmIsBulletinBoard_w, gxm_XmIsBulletinBoard) +Xen_wrap_1_arg(gxm_XmIsPrimitive_w, gxm_XmIsPrimitive) +Xen_wrap_1_arg(gxm_XmIsCascadeButtonGadget_w, gxm_XmIsCascadeButtonGadget) +Xen_wrap_1_arg(gxm_XmIsCascadeButton_w, gxm_XmIsCascadeButton) +Xen_wrap_1_arg(gxm_XmIsPushButtonGadget_w, gxm_XmIsPushButtonGadget) +Xen_wrap_1_arg(gxm_XmIsPushButton_w, gxm_XmIsPushButton) +Xen_wrap_1_arg(gxm_XmIsCommand_w, gxm_XmIsCommand) +Xen_wrap_1_arg(gxm_XmIsRowColumn_w, gxm_XmIsRowColumn) +Xen_wrap_1_arg(gxm_XmIsScale_w, gxm_XmIsScale) +Xen_wrap_1_arg(gxm_XmIsScreen_w, gxm_XmIsScreen) +Xen_wrap_1_arg(gxm_XmIsScrollBar_w, gxm_XmIsScrollBar) +Xen_wrap_1_arg(gxm_XmIsDialogShell_w, gxm_XmIsDialogShell) +Xen_wrap_1_arg(gxm_XmIsScrolledWindow_w, gxm_XmIsScrolledWindow) +Xen_wrap_1_arg(gxm_XmIsDisplay_w, gxm_XmIsDisplay) +Xen_wrap_1_arg(gxm_XmIsSelectionBox_w, gxm_XmIsSelectionBox) +Xen_wrap_1_arg(gxm_XmIsDragContext_w, gxm_XmIsDragContext) +Xen_wrap_1_arg(gxm_XmIsSeparatorGadget_w, gxm_XmIsSeparatorGadget) +Xen_wrap_1_arg(gxm_XmIsDragIconObjectClass_w, gxm_XmIsDragIconObjectClass) +Xen_wrap_1_arg(gxm_XmIsSeparator_w, gxm_XmIsSeparator) +Xen_wrap_1_arg(gxm_XmIsDrawingArea_w, gxm_XmIsDrawingArea) +Xen_wrap_1_arg(gxm_XmIsDrawnButton_w, gxm_XmIsDrawnButton) +Xen_wrap_1_arg(gxm_XmIsDropSiteManager_w, gxm_XmIsDropSiteManager) +Xen_wrap_1_arg(gxm_XmIsDropTransfer_w, gxm_XmIsDropTransfer) +Xen_wrap_1_arg(gxm_XmIsTextField_w, gxm_XmIsTextField) +Xen_wrap_1_arg(gxm_XmIsFileSelectionBox_w, gxm_XmIsFileSelectionBox) +Xen_wrap_1_arg(gxm_XmIsText_w, gxm_XmIsText) +Xen_wrap_1_arg(gxm_XmIsForm_w, gxm_XmIsForm) +Xen_wrap_1_arg(gxm_XmIsFrame_w, gxm_XmIsFrame) +Xen_wrap_1_arg(gxm_XmIsGadget_w, gxm_XmIsGadget) +Xen_wrap_1_arg(gxm_XmIsToggleButtonGadget_w, gxm_XmIsToggleButtonGadget) +Xen_wrap_1_arg(gxm_XmIsToggleButton_w, gxm_XmIsToggleButton) +Xen_wrap_1_arg(gxm_XmIsLabelGadget_w, gxm_XmIsLabelGadget) +Xen_wrap_1_arg(gxm_XmIsLabel_w, gxm_XmIsLabel) +Xen_wrap_1_arg(gxm_XmIsVendorShell_w, gxm_XmIsVendorShell) +Xen_wrap_1_arg(gxm_XmIsList_w, gxm_XmIsList) +Xen_wrap_1_arg(gxm_XmIsMainWindow_w, gxm_XmIsMainWindow) +Xen_wrap_1_arg(gxm_XmIsManager_w, gxm_XmIsManager) +Xen_wrap_1_arg(gxm_XmIsMenuShell_w, gxm_XmIsMenuShell) +Xen_wrap_1_arg(gxm_XmListGetSelectedPos_w, gxm_XmListGetSelectedPos) +Xen_wrap_1_arg(gxm_XmWidgetGetDisplayRect_w, gxm_XmWidgetGetDisplayRect) + +Xen_wrap_4_args(gxm_XpmCreatePixmapFromData_w, gxm_XpmCreatePixmapFromData) +Xen_wrap_4_args(gxm_XpmCreateDataFromPixmap_w, gxm_XpmCreateDataFromPixmap) +Xen_wrap_4_args(gxm_XpmReadFileToPixmap_w, gxm_XpmReadFileToPixmap) +Xen_wrap_1_arg(gxm_XpmReadFileToXpmImage_w, gxm_XpmReadFileToXpmImage) +Xen_wrap_5_args(gxm_XpmWriteFileFromPixmap_w, gxm_XpmWriteFileFromPixmap) +Xen_wrap_4_args(gxm_XpmCreatePixmapFromXpmImage_w, gxm_XpmCreatePixmapFromXpmImage) +Xen_wrap_4_args(gxm_XpmCreateXpmImageFromPixmap_w, gxm_XpmCreateXpmImageFromPixmap) +Xen_wrap_1_arg(gxm_XpmGetErrorString_w, gxm_XpmGetErrorString) + +Xen_wrap_3_args(gxm_XGetPixel_w, gxm_XGetPixel) +Xen_wrap_1_arg(gxm_XDestroyImage_w, gxm_XDestroyImage) +Xen_wrap_4_args(gxm_XPutPixel_w, gxm_XPutPixel) +Xen_wrap_5_args(gxm_XSubImage_w, gxm_XSubImage) +Xen_wrap_2_args(gxm_XAddPixel_w, gxm_XAddPixel) + +Xen_wrap_1_arg(g_is_XtAppContext_w, g_is_XtAppContext) +Xen_wrap_1_arg(g_is_XtRequestId_w, g_is_XtRequestId) +Xen_wrap_1_arg(g_is_XtWorkProcId_w, g_is_XtWorkProcId) +Xen_wrap_1_arg(g_is_XtInputId_w, g_is_XtInputId) +Xen_wrap_1_arg(g_is_XtIntervalId_w, g_is_XtIntervalId) + +Xen_wrap_1_arg(g_is_Screen_w, g_is_Screen) +Xen_wrap_1_arg(g_is_XEvent_w, g_is_XEvent) +Xen_wrap_1_arg(g_is_XRectangle_w, g_is_XRectangle) +Xen_wrap_1_arg(g_is_XArc_w, g_is_XArc) +Xen_wrap_1_arg(g_is_XPoint_w, g_is_XPoint) +Xen_wrap_1_arg(g_is_XSegment_w, g_is_XSegment) +Xen_wrap_1_arg(g_is_XColor_w, g_is_XColor) +Xen_wrap_1_arg(g_is_Atom_w, g_is_Atom) +Xen_wrap_1_arg(g_is_Colormap_w, g_is_Colormap) +Xen_wrap_1_arg(g_is_XModifierKeymap_w, g_is_XModifierKeymap) +Xen_wrap_1_arg(g_is_Depth_w, g_is_Depth) +Xen_wrap_1_arg(g_is_Display_w, g_is_Display) +Xen_wrap_1_arg(g_is_Font_w, g_is_Font) +Xen_wrap_1_arg(g_is_GC_w, g_is_GC) +Xen_wrap_1_arg(g_is_KeySym_w, g_is_KeySym) +Xen_wrap_1_arg(g_is_Pixel_w, g_is_Pixel) +Xen_wrap_1_arg(g_is_Pixmap_w, g_is_Pixmap) +Xen_wrap_1_arg(g_is_Region_w, g_is_Region) +Xen_wrap_1_arg(g_is_Time_w, g_is_Time) +Xen_wrap_1_arg(g_is_Visual_w, g_is_Visual) +Xen_wrap_1_arg(g_is_Window_w, g_is_Window) +Xen_wrap_1_arg(g_is_Widget_w, g_is_Widget) +Xen_wrap_1_arg(g_is_XmStringContext_w, g_is_XmStringContext) +Xen_wrap_1_arg(g_is_XFontProp_w, g_is_XFontProp) +Xen_wrap_1_arg(g_is_XFontSet_w, g_is_XFontSet) +Xen_wrap_1_arg(g_is_XFontStruct_w, g_is_XFontStruct) +Xen_wrap_1_arg(g_is_XGCValues_w, g_is_XGCValues) +Xen_wrap_1_arg(g_is_XImage_w, g_is_XImage) +Xen_wrap_1_arg(g_is_XVisualInfo_w, g_is_XVisualInfo) +Xen_wrap_1_arg(g_is_XWMHints_w, g_is_XWMHints) +Xen_wrap_1_arg(g_is_XWindowAttributes_w, g_is_XWindowAttributes) +Xen_wrap_1_arg(g_is_XWindowChanges_w, g_is_XWindowChanges) +Xen_wrap_1_arg(g_is_KeyCode_w, g_is_KeyCode) +Xen_wrap_1_arg(g_is_XContext_w, g_is_XContext) +Xen_wrap_1_arg(g_is_XCharStruct_w, g_is_XCharStruct) +Xen_wrap_1_arg(g_is_XTextItem_w, g_is_XTextItem) +Xen_wrap_1_arg(g_is_XStandardColormap_w, g_is_XStandardColormap) +Xen_wrap_1_arg(g_is_Cursor_w, g_is_Cursor) +Xen_wrap_1_arg(g_is_WidgetClass_w, g_is_WidgetClass) +Xen_wrap_1_arg(g_is_XmString_w, g_is_XmString) +Xen_wrap_1_arg(g_is_XmTab_w, g_is_XmTab) +Xen_wrap_1_arg(g_is_XmRendition_w, g_is_XmRendition) +Xen_wrap_1_arg(g_is_XmRenderTable_w, g_is_XmRenderTable) +Xen_wrap_1_arg(g_is_XmTabList_w, g_is_XmTabList) +Xen_wrap_1_arg(g_is_XmParseMapping_w, g_is_XmParseMapping) +Xen_wrap_1_arg(g_is_XmTextSource_w, g_is_XmTextSource) + +Xen_wrap_1_arg(g_is_XpmAttributes_w, g_is_XpmAttributes) +Xen_wrap_1_arg(g_is_XpmImage_w, g_is_XpmImage) +Xen_wrap_1_arg(g_is_XpmColorSymbol_w, g_is_XpmColorSymbol) + +#if WITH_EDITRES +Xen_wrap_4_args(gxm_XEditResCheckMessages_w, gxm_XEditResCheckMessages) #endif #if HAVE_XSHAPEQUERYEXTENSION - #define gxm_XShapeQueryExtension_w gxm_XShapeQueryExtension - #define gxm_XShapeQueryVersion_w gxm_XShapeQueryVersion - #define gxm_XShapeQueryExtents_w gxm_XShapeQueryExtents - #define gxm_XShapeGetRectangles_w gxm_XShapeGetRectangles - #define gxm_XShapeOffsetShape_w gxm_XShapeOffsetShape - #define gxm_XShapeCombineRegion_w gxm_XShapeCombineRegion - #define gxm_XShapeCombineMask_w gxm_XShapeCombineMask - #define gxm_XShapeCombineShape_w gxm_XShapeCombineShape - #define gxm_XShapeCombineRectangles_w gxm_XShapeCombineRectangles +Xen_wrap_1_arg(gxm_XShapeQueryExtension_w, gxm_XShapeQueryExtension) +Xen_wrap_1_arg(gxm_XShapeQueryVersion_w, gxm_XShapeQueryVersion) +Xen_wrap_2_args(gxm_XShapeQueryExtents_w, gxm_XShapeQueryExtents) +Xen_wrap_3_args(gxm_XShapeGetRectangles_w, gxm_XShapeGetRectangles) +Xen_wrap_5_args(gxm_XShapeOffsetShape_w, gxm_XShapeOffsetShape) +Xen_wrap_7_args(gxm_XShapeCombineRegion_w, gxm_XShapeCombineRegion) +Xen_wrap_7_args(gxm_XShapeCombineMask_w, gxm_XShapeCombineMask) +Xen_wrap_8_args(gxm_XShapeCombineShape_w, gxm_XShapeCombineShape) +Xen_wrap_9_args(gxm_XShapeCombineRectangles_w, gxm_XShapeCombineRectangles) #endif - #define gxm_XSegment_w gxm_XSegment - #define gxm_XRectangle_w gxm_XRectangle - #define gxm_XColor_w gxm_XColor - #define gxm_XArc_w gxm_XArc - #define gxm_XWindowChanges_w gxm_XWindowChanges - #define gxm_XSetWindowAttributes_w gxm_XSetWindowAttributes - #define gxm_XPoint_w gxm_XPoint - #define gxm_XTextItem_w gxm_XTextItem - #define gxm_pixel_w gxm_pixel - #define gxm_set_pixel_w gxm_set_pixel - #define gxm_red_w gxm_red - #define gxm_set_red_w gxm_set_red - #define gxm_green_w gxm_green - #define gxm_set_green_w gxm_set_green - #define gxm_blue_w gxm_blue - #define gxm_set_blue_w gxm_set_blue - #define gxm_flags_w gxm_flags - #define gxm_set_flags_w gxm_set_flags - #define gxm_pad_w gxm_pad - #define gxm_set_pad_w gxm_set_pad - #define gxm_x_w gxm_x - #define gxm_set_x_w gxm_set_x - #define gxm_y_w gxm_y - #define gxm_set_y_w gxm_set_y - #define gxm_width_w gxm_width - #define gxm_set_width_w gxm_set_width - #define gxm_height_w gxm_height - #define gxm_set_height_w gxm_set_height - #define gxm_angle1_w gxm_angle1 - #define gxm_set_angle1_w gxm_set_angle1 - #define gxm_angle2_w gxm_angle2 - #define gxm_set_angle2_w gxm_set_angle2 - #define gxm_x1_w gxm_x1 - #define gxm_set_x1_w gxm_set_x1 - #define gxm_y1_w gxm_y1 - #define gxm_set_y1_w gxm_set_y1 - #define gxm_x2_w gxm_x2 - #define gxm_set_x2_w gxm_set_x2 - #define gxm_y2_w gxm_y2 - #define gxm_set_y2_w gxm_set_y2 - #define gxm_dashes_w gxm_dashes - #define gxm_set_dashes_w gxm_set_dashes - #define gxm_dash_offset_w gxm_dash_offset - #define gxm_set_dash_offset_w gxm_set_dash_offset - #define gxm_clip_mask_w gxm_clip_mask - #define gxm_set_clip_mask_w gxm_set_clip_mask - #define gxm_clip_y_origin_w gxm_clip_y_origin - #define gxm_set_clip_y_origin_w gxm_set_clip_y_origin - #define gxm_clip_x_origin_w gxm_clip_x_origin - #define gxm_set_clip_x_origin_w gxm_set_clip_x_origin - #define gxm_graphics_exposures_w gxm_graphics_exposures - #define gxm_set_graphics_exposures_w gxm_set_graphics_exposures - #define gxm_subwindow_mode_w gxm_subwindow_mode - #define gxm_set_subwindow_mode_w gxm_set_subwindow_mode - #define gxm_font_w gxm_font - #define gxm_set_font_w gxm_set_font - #define gxm_ts_y_origin_w gxm_ts_y_origin - #define gxm_set_ts_y_origin_w gxm_set_ts_y_origin - #define gxm_ts_x_origin_w gxm_ts_x_origin - #define gxm_set_ts_x_origin_w gxm_set_ts_x_origin - #define gxm_stipple_w gxm_stipple - #define gxm_set_stipple_w gxm_set_stipple - #define gxm_tile_w gxm_tile - #define gxm_set_tile_w gxm_set_tile - #define gxm_arc_mode_w gxm_arc_mode - #define gxm_set_arc_mode_w gxm_set_arc_mode - #define gxm_fill_rule_w gxm_fill_rule - #define gxm_set_fill_rule_w gxm_set_fill_rule - #define gxm_fill_style_w gxm_fill_style - #define gxm_set_fill_style_w gxm_set_fill_style - #define gxm_join_style_w gxm_join_style - #define gxm_set_join_style_w gxm_set_join_style - #define gxm_cap_style_w gxm_cap_style - #define gxm_set_cap_style_w gxm_set_cap_style - #define gxm_line_style_w gxm_line_style - #define gxm_set_line_style_w gxm_set_line_style - #define gxm_line_width_w gxm_line_width - #define gxm_set_line_width_w gxm_set_line_width - #define gxm_background_w gxm_background - #define gxm_set_background_w gxm_set_background - #define gxm_foreground_w gxm_foreground - #define gxm_set_foreground_w gxm_set_foreground - #define gxm_plane_mask_w gxm_plane_mask - #define gxm_set_plane_mask_w gxm_set_plane_mask - #define gxm_function_w gxm_function - #define gxm_set_function_w gxm_set_function - #define gxm_delta_w gxm_delta - #define gxm_set_delta_w gxm_set_delta - #define gxm_nchars_w gxm_nchars - #define gxm_set_nchars_w gxm_set_nchars - #define gxm_chars_w gxm_chars - #define gxm_set_chars_w gxm_set_chars - #define gxm_name_w gxm_name - #define gxm_set_name_w gxm_set_name - #define gxm_depth_w gxm_depth - #define gxm_set_depth_w gxm_set_depth - #define gxm_visual_w gxm_visual - #define gxm_set_visual_w gxm_set_visual - - #define gxm_display_w gxm_display - #define gxm_root_w gxm_root - #define gxm_mwidth_w gxm_mwidth - #define gxm_mheight_w gxm_mheight - #define gxm_ndepths_w gxm_ndepths - #define gxm_depths_w gxm_depths - #define gxm_root_depth_w gxm_root_depth - #define gxm_root_visual_w gxm_root_visual - #define gxm_default_gc_w gxm_default_gc - #define gxm_cmap_w gxm_cmap - #define gxm_white_pixel_w gxm_white_pixel - #define gxm_black_pixel_w gxm_black_pixel - #define gxm_max_maps_w gxm_max_maps - #define gxm_min_maps_w gxm_min_maps - #define gxm_backing_store_w gxm_backing_store - #define gxm_save_unders_w gxm_save_unders - #define gxm_root_input_mask_w gxm_root_input_mask - #define gxm_type_w gxm_type - #define gxm_serial_w gxm_serial - #define gxm_send_event_w gxm_send_event - #define gxm_window_w gxm_window - #define gxm_subwindow_w gxm_subwindow - #define gxm_time_w gxm_time - #define gxm_x_root_w gxm_x_root - #define gxm_y_root_w gxm_y_root - #define gxm_state_w gxm_state - #define gxm_keycode_w gxm_keycode - #define gxm_same_screen_w gxm_same_screen - #define gxm_button_w gxm_button - #define gxm_is_hint_w gxm_is_hint - #define gxm_mode_w gxm_mode - #define gxm_detail_w gxm_detail - #define gxm_focus_w gxm_focus - #define gxm_key_vector_w gxm_key_vector - #define gxm_count_w gxm_count - #define gxm_drawable_w gxm_drawable - #define gxm_major_code_w gxm_major_code - #define gxm_minor_code_w gxm_minor_code - #define gxm_parent_w gxm_parent - #define gxm_border_width_w gxm_border_width - #define gxm_override_redirect_w gxm_override_redirect - #define gxm_event_w gxm_event - #define gxm_from_configure_w gxm_from_configure - #define gxm_above_w gxm_above - #define gxm_value_mask_w gxm_value_mask - #define gxm_place_w gxm_place - #define gxm_atom_w gxm_atom - #define gxm_selection_w gxm_selection - #define gxm_owner_w gxm_owner - #define gxm_requestor_w gxm_requestor - #define gxm_target_w gxm_target - #define gxm_property_w gxm_property - #define gxm_new_w gxm_new - #define gxm_message_type_w gxm_message_type - #define gxm_format_w gxm_format - #define gxm_request_w gxm_request - #define gxm_first_keycode_w gxm_first_keycode - #define gxm_resourceid_w gxm_resourceid - #define gxm_error_code_w gxm_error_code - #define gxm_request_code_w gxm_request_code - #define gxm_lbearing_w gxm_lbearing - #define gxm_rbearing_w gxm_rbearing - #define gxm_ascent_w gxm_ascent - #define gxm_descent_w gxm_descent - #define gxm_attributes_w gxm_attributes - #define gxm_card32_w gxm_card32 - #define gxm_fid_w gxm_fid - #define gxm_properties_w gxm_properties - #define gxm_min_bounds_w gxm_min_bounds - #define gxm_max_bounds_w gxm_max_bounds - #define gxm_per_char_w gxm_per_char - #define gxm_input_w gxm_input - #define gxm_initial_state_w gxm_initial_state - #define gxm_icon_pixmap_w gxm_icon_pixmap - #define gxm_icon_window_w gxm_icon_window - #define gxm_icon_x_w gxm_icon_x - #define gxm_icon_y_w gxm_icon_y - #define gxm_icon_mask_w gxm_icon_mask - #define gxm_window_group_w gxm_window_group - #define gxm_visualid_w gxm_visualid - #define gxm_class_w gxm_class - #define gxm_red_mask_w gxm_red_mask - #define gxm_green_mask_w gxm_green_mask - #define gxm_blue_mask_w gxm_blue_mask - #define gxm_bits_per_rgb_w gxm_bits_per_rgb - #define gxm_map_entries_w gxm_map_entries - #define gxm_colormap_size_w gxm_colormap_size - #define gxm_nvisuals_w gxm_nvisuals - #define gxm_visuals_w gxm_visuals - #define gxm_bits_per_pixel_w gxm_bits_per_pixel - #define gxm_background_pixmap_w gxm_background_pixmap - #define gxm_background_pixel_w gxm_background_pixel - #define gxm_border_pixmap_w gxm_border_pixmap - #define gxm_border_pixel_w gxm_border_pixel - #define gxm_bit_gravity_w gxm_bit_gravity - #define gxm_win_gravity_w gxm_win_gravity - #define gxm_backing_planes_w gxm_backing_planes - #define gxm_backing_pixel_w gxm_backing_pixel - #define gxm_save_under_w gxm_save_under - #define gxm_event_mask_w gxm_event_mask - #define gxm_do_not_propagate_mask_w gxm_do_not_propagate_mask - #define gxm_cursor_w gxm_cursor - #define gxm_map_installed_w gxm_map_installed - #define gxm_map_state_w gxm_map_state - #define gxm_all_event_masks_w gxm_all_event_masks - #define gxm_your_event_mask_w gxm_your_event_mask - #define gxm_screen_w gxm_screen - #define gxm_xoffset_w gxm_xoffset - #define gxm_byte_order_w gxm_byte_order - #define gxm_bitmap_unit_w gxm_bitmap_unit - #define gxm_bitmap_bit_order_w gxm_bitmap_bit_order - #define gxm_bitmap_pad_w gxm_bitmap_pad - #define gxm_bytes_per_line_w gxm_bytes_per_line - #define gxm_obdata_w gxm_obdata - #define gxm_sibling_w gxm_sibling - #define gxm_stack_mode_w gxm_stack_mode +Xen_wrap_4_args(gxm_XSegment_w, gxm_XSegment) +Xen_wrap_4_args(gxm_XRectangle_w, gxm_XRectangle) +Xen_wrap_6_optional_args(gxm_XColor_w, gxm_XColor) +Xen_wrap_6_args(gxm_XArc_w, gxm_XArc) +Xen_wrap_7_args(gxm_XWindowChanges_w, gxm_XWindowChanges) +Xen_wrap_any_args(gxm_XSetWindowAttributes_w, gxm_XSetWindowAttributes) +Xen_wrap_2_args(gxm_XPoint_w, gxm_XPoint) +Xen_wrap_4_args(gxm_XTextItem_w, gxm_XTextItem) +Xen_wrap_1_arg(gxm_pixel_w, gxm_pixel) +Xen_wrap_2_args(gxm_set_pixel_w, gxm_set_pixel) +Xen_wrap_1_arg(gxm_red_w, gxm_red) +Xen_wrap_2_args(gxm_set_red_w, gxm_set_red) +Xen_wrap_1_arg(gxm_green_w, gxm_green) +Xen_wrap_2_args(gxm_set_green_w, gxm_set_green) +Xen_wrap_1_arg(gxm_blue_w, gxm_blue) +Xen_wrap_2_args(gxm_set_blue_w, gxm_set_blue) +Xen_wrap_1_arg(gxm_flags_w, gxm_flags) +Xen_wrap_2_args(gxm_set_flags_w, gxm_set_flags) +Xen_wrap_1_arg(gxm_pad_w, gxm_pad) +Xen_wrap_2_args(gxm_set_pad_w, gxm_set_pad) +Xen_wrap_1_arg(gxm_x_w, gxm_x) +Xen_wrap_2_args(gxm_set_x_w, gxm_set_x) +Xen_wrap_1_arg(gxm_y_w, gxm_y) +Xen_wrap_2_args(gxm_set_y_w, gxm_set_y) +Xen_wrap_1_arg(gxm_width_w, gxm_width) +Xen_wrap_2_args(gxm_set_width_w, gxm_set_width) +Xen_wrap_1_arg(gxm_height_w, gxm_height) +Xen_wrap_2_args(gxm_set_height_w, gxm_set_height) +Xen_wrap_1_arg(gxm_angle1_w, gxm_angle1) +Xen_wrap_2_args(gxm_set_angle1_w, gxm_set_angle1) +Xen_wrap_1_arg(gxm_angle2_w, gxm_angle2) +Xen_wrap_2_args(gxm_set_angle2_w, gxm_set_angle2) +Xen_wrap_1_arg(gxm_x1_w, gxm_x1) +Xen_wrap_2_args(gxm_set_x1_w, gxm_set_x1) +Xen_wrap_1_arg(gxm_y1_w, gxm_y1) +Xen_wrap_2_args(gxm_set_y1_w, gxm_set_y1) +Xen_wrap_1_arg(gxm_x2_w, gxm_x2) +Xen_wrap_2_args(gxm_set_x2_w, gxm_set_x2) +Xen_wrap_1_arg(gxm_y2_w, gxm_y2) +Xen_wrap_2_args(gxm_set_y2_w, gxm_set_y2) +Xen_wrap_1_arg(gxm_dashes_w, gxm_dashes) +Xen_wrap_2_args(gxm_set_dashes_w, gxm_set_dashes) +Xen_wrap_1_arg(gxm_dash_offset_w, gxm_dash_offset) +Xen_wrap_2_args(gxm_set_dash_offset_w, gxm_set_dash_offset) +Xen_wrap_1_arg(gxm_clip_mask_w, gxm_clip_mask) +Xen_wrap_2_args(gxm_set_clip_mask_w, gxm_set_clip_mask) +Xen_wrap_1_arg(gxm_clip_y_origin_w, gxm_clip_y_origin) +Xen_wrap_2_args(gxm_set_clip_y_origin_w, gxm_set_clip_y_origin) +Xen_wrap_1_arg(gxm_clip_x_origin_w, gxm_clip_x_origin) +Xen_wrap_2_args(gxm_set_clip_x_origin_w, gxm_set_clip_x_origin) +Xen_wrap_1_arg(gxm_graphics_exposures_w, gxm_graphics_exposures) +Xen_wrap_2_args(gxm_set_graphics_exposures_w, gxm_set_graphics_exposures) +Xen_wrap_1_arg(gxm_subwindow_mode_w, gxm_subwindow_mode) +Xen_wrap_2_args(gxm_set_subwindow_mode_w, gxm_set_subwindow_mode) +Xen_wrap_1_arg(gxm_font_w, gxm_font) +Xen_wrap_2_args(gxm_set_font_w, gxm_set_font) +Xen_wrap_1_arg(gxm_ts_y_origin_w, gxm_ts_y_origin) +Xen_wrap_2_args(gxm_set_ts_y_origin_w, gxm_set_ts_y_origin) +Xen_wrap_1_arg(gxm_ts_x_origin_w, gxm_ts_x_origin) +Xen_wrap_2_args(gxm_set_ts_x_origin_w, gxm_set_ts_x_origin) +Xen_wrap_1_arg(gxm_stipple_w, gxm_stipple) +Xen_wrap_2_args(gxm_set_stipple_w, gxm_set_stipple) +Xen_wrap_1_arg(gxm_tile_w, gxm_tile) +Xen_wrap_2_args(gxm_set_tile_w, gxm_set_tile) +Xen_wrap_1_arg(gxm_arc_mode_w, gxm_arc_mode) +Xen_wrap_2_args(gxm_set_arc_mode_w, gxm_set_arc_mode) +Xen_wrap_1_arg(gxm_fill_rule_w, gxm_fill_rule) +Xen_wrap_2_args(gxm_set_fill_rule_w, gxm_set_fill_rule) +Xen_wrap_1_arg(gxm_fill_style_w, gxm_fill_style) +Xen_wrap_2_args(gxm_set_fill_style_w, gxm_set_fill_style) +Xen_wrap_1_arg(gxm_join_style_w, gxm_join_style) +Xen_wrap_2_args(gxm_set_join_style_w, gxm_set_join_style) +Xen_wrap_1_arg(gxm_cap_style_w, gxm_cap_style) +Xen_wrap_2_args(gxm_set_cap_style_w, gxm_set_cap_style) +Xen_wrap_1_arg(gxm_line_style_w, gxm_line_style) +Xen_wrap_2_args(gxm_set_line_style_w, gxm_set_line_style) +Xen_wrap_1_arg(gxm_line_width_w, gxm_line_width) +Xen_wrap_2_args(gxm_set_line_width_w, gxm_set_line_width) +Xen_wrap_1_arg(gxm_background_w, gxm_background) +Xen_wrap_2_args(gxm_set_background_w, gxm_set_background) +Xen_wrap_1_arg(gxm_foreground_w, gxm_foreground) +Xen_wrap_2_args(gxm_set_foreground_w, gxm_set_foreground) +Xen_wrap_1_arg(gxm_plane_mask_w, gxm_plane_mask) +Xen_wrap_2_args(gxm_set_plane_mask_w, gxm_set_plane_mask) +Xen_wrap_1_arg(gxm_function_w, gxm_function) +Xen_wrap_2_args(gxm_set_function_w, gxm_set_function) +Xen_wrap_1_arg(gxm_delta_w, gxm_delta) +Xen_wrap_2_args(gxm_set_delta_w, gxm_set_delta) +Xen_wrap_1_arg(gxm_nchars_w, gxm_nchars) +Xen_wrap_2_args(gxm_set_nchars_w, gxm_set_nchars) +Xen_wrap_1_arg(gxm_chars_w, gxm_chars) +Xen_wrap_2_args(gxm_set_chars_w, gxm_set_chars) +Xen_wrap_1_arg(gxm_name_w, gxm_name) +Xen_wrap_2_args(gxm_set_name_w, gxm_set_name) +Xen_wrap_1_arg(gxm_depth_w, gxm_depth) +Xen_wrap_2_args(gxm_set_depth_w, gxm_set_depth) +Xen_wrap_1_arg(gxm_visual_w, gxm_visual) +Xen_wrap_2_args(gxm_set_visual_w, gxm_set_visual) + +Xen_wrap_1_arg(gxm_display_w, gxm_display) +Xen_wrap_1_arg(gxm_root_w, gxm_root) +Xen_wrap_1_arg(gxm_mwidth_w, gxm_mwidth) +Xen_wrap_1_arg(gxm_mheight_w, gxm_mheight) +Xen_wrap_1_arg(gxm_ndepths_w, gxm_ndepths) +Xen_wrap_1_arg(gxm_depths_w, gxm_depths) +Xen_wrap_1_arg(gxm_root_depth_w, gxm_root_depth) +Xen_wrap_1_arg(gxm_root_visual_w, gxm_root_visual) +Xen_wrap_1_arg(gxm_default_gc_w, gxm_default_gc) +Xen_wrap_1_arg(gxm_cmap_w, gxm_cmap) +Xen_wrap_1_arg(gxm_white_pixel_w, gxm_white_pixel) +Xen_wrap_1_arg(gxm_black_pixel_w, gxm_black_pixel) +Xen_wrap_1_arg(gxm_max_maps_w, gxm_max_maps) +Xen_wrap_1_arg(gxm_min_maps_w, gxm_min_maps) +Xen_wrap_1_arg(gxm_backing_store_w, gxm_backing_store) +Xen_wrap_1_arg(gxm_save_unders_w, gxm_save_unders) +Xen_wrap_1_arg(gxm_root_input_mask_w, gxm_root_input_mask) +Xen_wrap_1_arg(gxm_type_w, gxm_type) +Xen_wrap_1_arg(gxm_serial_w, gxm_serial) +Xen_wrap_1_arg(gxm_send_event_w, gxm_send_event) +Xen_wrap_1_arg(gxm_window_w, gxm_window) +Xen_wrap_1_arg(gxm_subwindow_w, gxm_subwindow) +Xen_wrap_1_arg(gxm_time_w, gxm_time) +Xen_wrap_1_arg(gxm_x_root_w, gxm_x_root) +Xen_wrap_1_arg(gxm_y_root_w, gxm_y_root) +Xen_wrap_1_arg(gxm_state_w, gxm_state) +Xen_wrap_1_arg(gxm_keycode_w, gxm_keycode) +Xen_wrap_1_arg(gxm_same_screen_w, gxm_same_screen) +Xen_wrap_1_arg(gxm_button_w, gxm_button) +Xen_wrap_1_arg(gxm_is_hint_w, gxm_is_hint) +Xen_wrap_1_arg(gxm_mode_w, gxm_mode) +Xen_wrap_1_arg(gxm_detail_w, gxm_detail) +Xen_wrap_1_arg(gxm_focus_w, gxm_focus) +Xen_wrap_1_arg(gxm_key_vector_w, gxm_key_vector) +Xen_wrap_1_arg(gxm_count_w, gxm_count) +Xen_wrap_1_arg(gxm_drawable_w, gxm_drawable) +Xen_wrap_1_arg(gxm_major_code_w, gxm_major_code) +Xen_wrap_1_arg(gxm_minor_code_w, gxm_minor_code) +Xen_wrap_1_arg(gxm_parent_w, gxm_parent) +Xen_wrap_1_arg(gxm_border_width_w, gxm_border_width) +Xen_wrap_1_arg(gxm_override_redirect_w, gxm_override_redirect) +Xen_wrap_1_arg(gxm_event_w, gxm_event) +Xen_wrap_1_arg(gxm_from_configure_w, gxm_from_configure) +Xen_wrap_1_arg(gxm_above_w, gxm_above) +Xen_wrap_1_arg(gxm_value_mask_w, gxm_value_mask) +Xen_wrap_1_arg(gxm_place_w, gxm_place) +Xen_wrap_1_arg(gxm_atom_w, gxm_atom) +Xen_wrap_1_arg(gxm_selection_w, gxm_selection) +Xen_wrap_1_arg(gxm_owner_w, gxm_owner) +Xen_wrap_1_arg(gxm_requestor_w, gxm_requestor) +Xen_wrap_1_arg(gxm_target_w, gxm_target) +Xen_wrap_1_arg(gxm_property_w, gxm_property) +Xen_wrap_1_arg(gxm_new_w, gxm_new) +Xen_wrap_1_arg(gxm_message_type_w, gxm_message_type) +Xen_wrap_1_arg(gxm_format_w, gxm_format) +Xen_wrap_1_arg(gxm_request_w, gxm_request) +Xen_wrap_1_arg(gxm_first_keycode_w, gxm_first_keycode) +Xen_wrap_1_arg(gxm_resourceid_w, gxm_resourceid) +Xen_wrap_1_arg(gxm_error_code_w, gxm_error_code) +Xen_wrap_1_arg(gxm_request_code_w, gxm_request_code) +Xen_wrap_1_arg(gxm_lbearing_w, gxm_lbearing) +Xen_wrap_1_arg(gxm_rbearing_w, gxm_rbearing) +Xen_wrap_1_arg(gxm_ascent_w, gxm_ascent) +Xen_wrap_1_arg(gxm_descent_w, gxm_descent) +Xen_wrap_1_arg(gxm_attributes_w, gxm_attributes) +Xen_wrap_1_arg(gxm_card32_w, gxm_card32) +Xen_wrap_1_arg(gxm_fid_w, gxm_fid) +Xen_wrap_1_arg(gxm_properties_w, gxm_properties) +Xen_wrap_1_arg(gxm_min_bounds_w, gxm_min_bounds) +Xen_wrap_1_arg(gxm_max_bounds_w, gxm_max_bounds) +Xen_wrap_1_arg(gxm_per_char_w, gxm_per_char) +Xen_wrap_1_arg(gxm_input_w, gxm_input) +Xen_wrap_1_arg(gxm_initial_state_w, gxm_initial_state) +Xen_wrap_1_arg(gxm_icon_pixmap_w, gxm_icon_pixmap) +Xen_wrap_1_arg(gxm_icon_window_w, gxm_icon_window) +Xen_wrap_1_arg(gxm_icon_x_w, gxm_icon_x) +Xen_wrap_1_arg(gxm_icon_y_w, gxm_icon_y) +Xen_wrap_1_arg(gxm_icon_mask_w, gxm_icon_mask) +Xen_wrap_1_arg(gxm_window_group_w, gxm_window_group) +Xen_wrap_1_arg(gxm_visualid_w, gxm_visualid) +Xen_wrap_1_arg(gxm_class_w, gxm_class) +Xen_wrap_1_arg(gxm_red_mask_w, gxm_red_mask) +Xen_wrap_1_arg(gxm_green_mask_w, gxm_green_mask) +Xen_wrap_1_arg(gxm_blue_mask_w, gxm_blue_mask) +Xen_wrap_1_arg(gxm_bits_per_rgb_w, gxm_bits_per_rgb) +Xen_wrap_1_arg(gxm_map_entries_w, gxm_map_entries) +Xen_wrap_1_arg(gxm_colormap_size_w, gxm_colormap_size) +Xen_wrap_1_arg(gxm_nvisuals_w, gxm_nvisuals) +Xen_wrap_1_arg(gxm_visuals_w, gxm_visuals) +Xen_wrap_1_arg(gxm_bits_per_pixel_w, gxm_bits_per_pixel) +Xen_wrap_1_arg(gxm_background_pixmap_w, gxm_background_pixmap) +Xen_wrap_1_arg(gxm_background_pixel_w, gxm_background_pixel) +Xen_wrap_1_arg(gxm_border_pixmap_w, gxm_border_pixmap) +Xen_wrap_1_arg(gxm_border_pixel_w, gxm_border_pixel) +Xen_wrap_1_arg(gxm_bit_gravity_w, gxm_bit_gravity) +Xen_wrap_1_arg(gxm_win_gravity_w, gxm_win_gravity) +Xen_wrap_1_arg(gxm_backing_planes_w, gxm_backing_planes) +Xen_wrap_1_arg(gxm_backing_pixel_w, gxm_backing_pixel) +Xen_wrap_1_arg(gxm_save_under_w, gxm_save_under) +Xen_wrap_1_arg(gxm_event_mask_w, gxm_event_mask) +Xen_wrap_1_arg(gxm_do_not_propagate_mask_w, gxm_do_not_propagate_mask) +Xen_wrap_1_arg(gxm_cursor_w, gxm_cursor) +Xen_wrap_1_arg(gxm_map_installed_w, gxm_map_installed) +Xen_wrap_1_arg(gxm_map_state_w, gxm_map_state) +Xen_wrap_1_arg(gxm_all_event_masks_w, gxm_all_event_masks) +Xen_wrap_1_arg(gxm_your_event_mask_w, gxm_your_event_mask) +Xen_wrap_1_arg(gxm_screen_w, gxm_screen) +Xen_wrap_1_arg(gxm_xoffset_w, gxm_xoffset) +Xen_wrap_1_arg(gxm_byte_order_w, gxm_byte_order) +Xen_wrap_1_arg(gxm_bitmap_unit_w, gxm_bitmap_unit) +Xen_wrap_1_arg(gxm_bitmap_bit_order_w, gxm_bitmap_bit_order) +Xen_wrap_1_arg(gxm_bitmap_pad_w, gxm_bitmap_pad) +Xen_wrap_1_arg(gxm_bytes_per_line_w, gxm_bytes_per_line) +Xen_wrap_1_arg(gxm_obdata_w, gxm_obdata) +Xen_wrap_1_arg(gxm_sibling_w, gxm_sibling) +Xen_wrap_1_arg(gxm_stack_mode_w, gxm_stack_mode) - #define gxm_red_max_w gxm_red_max - #define gxm_red_mult_w gxm_red_mult - #define gxm_green_max_w gxm_green_max - #define gxm_green_mult_w gxm_green_mult - #define gxm_blue_max_w gxm_blue_max - #define gxm_blue_mult_w gxm_blue_mult - #define gxm_base_pixel_w gxm_base_pixel - #define gxm_killid_w gxm_killid - #define gxm_data_w gxm_data - - #define gxm_set_request_code_w gxm_set_request_code - #define gxm_set_error_code_w gxm_set_error_code - #define gxm_set_first_keycode_w gxm_set_first_keycode - #define gxm_set_request_w gxm_set_request - #define gxm_set_resourceid_w gxm_set_resourceid - #define gxm_set_format_w gxm_set_format - #define gxm_set_message_type_w gxm_set_message_type - #define gxm_set_new_w gxm_set_new - #define gxm_set_property_w gxm_set_property - #define gxm_set_display_w gxm_set_display - #define gxm_set_target_w gxm_set_target - #define gxm_set_requestor_w gxm_set_requestor - #define gxm_set_owner_w gxm_set_owner - #define gxm_set_selection_w gxm_set_selection - #define gxm_set_atom_w gxm_set_atom - #define gxm_set_place_w gxm_set_place - #define gxm_set_value_mask_w gxm_set_value_mask - #define gxm_set_above_w gxm_set_above - #define gxm_set_from_configure_w gxm_set_from_configure - #define gxm_set_event_w gxm_set_event - #define gxm_set_override_redirect_w gxm_set_override_redirect - #define gxm_set_border_width_w gxm_set_border_width - #define gxm_set_parent_w gxm_set_parent - #define gxm_set_minor_code_w gxm_set_minor_code - #define gxm_set_major_code_w gxm_set_major_code - #define gxm_set_drawable_w gxm_set_drawable - #define gxm_set_count_w gxm_set_count - #define gxm_set_key_vector_w gxm_set_key_vector - #define gxm_set_focus_w gxm_set_focus - #define gxm_set_detail_w gxm_set_detail - #define gxm_set_mode_w gxm_set_mode - #define gxm_set_is_hint_w gxm_set_is_hint - #define gxm_set_button_w gxm_set_button - #define gxm_set_same_screen_w gxm_set_same_screen - #define gxm_set_keycode_w gxm_set_keycode - #define gxm_set_state_w gxm_set_state - #define gxm_set_y_root_w gxm_set_y_root - #define gxm_set_x_root_w gxm_set_x_root - #define gxm_set_root_w gxm_set_root - #define gxm_set_time_w gxm_set_time - #define gxm_set_subwindow_w gxm_set_subwindow - #define gxm_set_window_w gxm_set_window - #define gxm_set_send_event_w gxm_set_send_event - #define gxm_set_serial_w gxm_set_serial - #define gxm_set_type_w gxm_set_type - #define gxm_colormap_w gxm_colormap - #define gxm_set_colormap_w gxm_set_colormap - - #define gxm_set_input_w gxm_set_input - #define gxm_set_initial_state_w gxm_set_initial_state - - #define gxm_min_height_w gxm_min_height - #define gxm_max_height_w gxm_max_height - #define gxm_min_width_w gxm_min_width - #define gxm_max_width_w gxm_max_width - #define gxm_height_inc_w gxm_height_inc - #define gxm_width_inc_w gxm_width_inc - - #define gxm_set_data_w gxm_set_data - #define gxm_set_backing_store_w gxm_set_backing_store - #define gxm_set_background_pixel_w gxm_set_background_pixel - #define gxm_set_border_pixel_w gxm_set_border_pixel - #define gxm_set_bit_gravity_w gxm_set_bit_gravity - #define gxm_set_save_under_w gxm_set_save_under - #define gxm_set_event_mask_w gxm_set_event_mask - #define gxm_set_cursor_w gxm_set_cursor - -#if HAVE_MOTIF - #define gxm_set_set_w gxm_set_set - #define gxm_set_click_count_w gxm_set_click_count - #define gxm_set_length_w gxm_set_length - #define gxm_ptr_w gxm_ptr - #define gxm_set_ptr_w gxm_set_ptr - #define gxm_set_reason_w gxm_set_reason - #define gxm_page_number_w gxm_page_number - #define gxm_page_widget_w gxm_page_widget - #define gxm_status_area_widget_w gxm_status_area_widget - #define gxm_major_tab_widget_w gxm_major_tab_widget - #define gxm_minor_tab_widget_w gxm_minor_tab_widget - #define gxm_source_data_w gxm_source_data - #define gxm_location_data_w gxm_location_data - #define gxm_parm_w gxm_parm - #define gxm_parm_format_w gxm_parm_format - #define gxm_parm_length_w gxm_parm_length - #define gxm_parm_type_w gxm_parm_type - #define gxm_transfer_id_w gxm_transfer_id - #define gxm_destination_data_w gxm_destination_data - #define gxm_remaining_w gxm_remaining - #define gxm_item_or_text_w gxm_item_or_text - #define gxm_auto_selection_type_w gxm_auto_selection_type - #define gxm_new_outline_state_w gxm_new_outline_state - #define gxm_prev_page_number_w gxm_prev_page_number - #define gxm_prev_page_widget_w gxm_prev_page_widget - #define gxm_rendition_w gxm_rendition - #define gxm_render_table_w gxm_render_table - #define gxm_crossed_boundary_w gxm_crossed_boundary - #define gxm_client_data_w gxm_client_data - #define gxm_status_w gxm_status - #define gxm_font_name_w gxm_font_name - #define gxm_tag_w gxm_tag - #define gxm_traversal_destination_w gxm_traversal_destination - #define gxm_dragProtocolStyle_w gxm_dragProtocolStyle - #define gxm_direction_w gxm_direction - #define gxm_reason_w gxm_reason - #define gxm_timeStamp_w gxm_timeStamp - #define gxm_operation_w gxm_operation - #define gxm_set_operation_w gxm_set_operation - #define gxm_operations_w gxm_operations - #define gxm_dropSiteStatus_w gxm_dropSiteStatus - #define gxm_set_dropSiteStatus_w gxm_set_dropSiteStatus - #define gxm_dropAction_w gxm_dropAction - #define gxm_iccHandle_w gxm_iccHandle - #define gxm_completionStatus_w gxm_completionStatus - #define gxm_dragContext_w gxm_dragContext - #define gxm_animate_w gxm_animate - #define gxm_length_w gxm_length - #define gxm_click_count_w gxm_click_count - #define gxm_widget_w gxm_widget - #define gxm_item_position_w gxm_item_position - #define gxm_callbackstruct_w gxm_callbackstruct - #define gxm_set_w gxm_set - #define gxm_item_w gxm_item - #define gxm_item_length_w gxm_item_length - #define gxm_selected_items_w gxm_selected_items - #define gxm_selected_item_count_w gxm_selected_item_count - #define gxm_selected_item_positions_w gxm_selected_item_positions - #define gxm_selection_type_w gxm_selection_type - #define gxm_mask_w gxm_mask - #define gxm_mask_length_w gxm_mask_length - #define gxm_dir_w gxm_dir - #define gxm_dir_length_w gxm_dir_length - #define gxm_pattern_w gxm_pattern - #define gxm_pattern_length_w gxm_pattern_length - #define gxm_position_w gxm_position - #define gxm_currInsert_w gxm_currInsert - #define gxm_newInsert_w gxm_newInsert - #define gxm_startPos_w gxm_startPos - #define gxm_endPos_w gxm_endPos - #define gxm_text_w gxm_text - #define gxm_value_w gxm_value - #define gxm_set_value_w gxm_set_value - #define gxm_doit_w gxm_doit - #define gxm_set_doit_w gxm_set_doit - #define gxm_menuToPost_w gxm_menuToPost - #define gxm_set_menuToPost_w gxm_set_menuToPost - #define gxm_postIt_w gxm_postIt - #define gxm_set_postIt_w gxm_set_postIt -#if HAVE_XmCreateDataField - #define gxm_w_w gxm_w - #define gxm_accept_w gxm_accept -#endif -#if HAVE_XmCreateTabStack - #define gxm_selected_child_w gxm_selected_child -#endif - - #define gxm_valuemask_w gxm_valuemask - #define gxm_set_valuemask_w gxm_set_valuemask - #define gxm_ncolors_w gxm_ncolors - #define gxm_set_ncolors_w gxm_set_ncolors - #define gxm_cpp_w gxm_cpp - #define gxm_set_cpp_w gxm_set_cpp - #define gxm_numsymbols_w gxm_numsymbols - #define gxm_set_numsymbols_w gxm_set_numsymbols - #define gxm_colorsymbols_w gxm_colorsymbols - #define gxm_set_colorsymbols_w gxm_set_colorsymbols - #define gxm_npixels_w gxm_npixels - #define gxm_set_npixels_w gxm_set_npixels - #define gxm_y_hotspot_w gxm_y_hotspot - #define gxm_set_y_hotspot_w gxm_set_y_hotspot - #define gxm_x_hotspot_w gxm_x_hotspot - #define gxm_set_x_hotspot_w gxm_set_x_hotspot - - #define gxm_XpmImage_w gxm_XpmImage - #define gxm_XpmColorSymbol_w gxm_XpmColorSymbol - #define gxm_XpmAttributes_w gxm_XpmAttributes +Xen_wrap_1_arg(gxm_red_max_w, gxm_red_max) +Xen_wrap_1_arg(gxm_red_mult_w, gxm_red_mult) +Xen_wrap_1_arg(gxm_green_max_w, gxm_green_max) +Xen_wrap_1_arg(gxm_green_mult_w, gxm_green_mult) +Xen_wrap_1_arg(gxm_blue_max_w, gxm_blue_max) +Xen_wrap_1_arg(gxm_blue_mult_w, gxm_blue_mult) +Xen_wrap_1_arg(gxm_base_pixel_w, gxm_base_pixel) +Xen_wrap_1_arg(gxm_killid_w, gxm_killid) +Xen_wrap_1_arg(gxm_data_w, gxm_data) + +Xen_wrap_2_args(gxm_set_request_code_w, gxm_set_request_code) +Xen_wrap_2_args(gxm_set_error_code_w, gxm_set_error_code) +Xen_wrap_2_args(gxm_set_first_keycode_w, gxm_set_first_keycode) +Xen_wrap_2_args(gxm_set_request_w, gxm_set_request) +Xen_wrap_2_args(gxm_set_resourceid_w, gxm_set_resourceid) +Xen_wrap_2_args(gxm_set_format_w, gxm_set_format) +Xen_wrap_2_args(gxm_set_message_type_w, gxm_set_message_type) +Xen_wrap_2_args(gxm_set_new_w, gxm_set_new) +Xen_wrap_2_args(gxm_set_property_w, gxm_set_property) +Xen_wrap_2_args(gxm_set_display_w, gxm_set_display) +Xen_wrap_2_args(gxm_set_target_w, gxm_set_target) +Xen_wrap_2_args(gxm_set_requestor_w, gxm_set_requestor) +Xen_wrap_2_args(gxm_set_owner_w, gxm_set_owner) +Xen_wrap_2_args(gxm_set_selection_w, gxm_set_selection) +Xen_wrap_2_args(gxm_set_atom_w, gxm_set_atom) +Xen_wrap_2_args(gxm_set_place_w, gxm_set_place) +Xen_wrap_2_args(gxm_set_value_mask_w, gxm_set_value_mask) +Xen_wrap_2_args(gxm_set_above_w, gxm_set_above) +Xen_wrap_2_args(gxm_set_from_configure_w, gxm_set_from_configure) +Xen_wrap_2_args(gxm_set_event_w, gxm_set_event) +Xen_wrap_2_args(gxm_set_override_redirect_w, gxm_set_override_redirect) +Xen_wrap_2_args(gxm_set_border_width_w, gxm_set_border_width) +Xen_wrap_2_args(gxm_set_parent_w, gxm_set_parent) +Xen_wrap_2_args(gxm_set_minor_code_w, gxm_set_minor_code) +Xen_wrap_2_args(gxm_set_major_code_w, gxm_set_major_code) +Xen_wrap_2_args(gxm_set_drawable_w, gxm_set_drawable) +Xen_wrap_2_args(gxm_set_count_w, gxm_set_count) +Xen_wrap_2_args(gxm_set_key_vector_w, gxm_set_key_vector) +Xen_wrap_2_args(gxm_set_focus_w, gxm_set_focus) +Xen_wrap_2_args(gxm_set_detail_w, gxm_set_detail) +Xen_wrap_2_args(gxm_set_mode_w, gxm_set_mode) +Xen_wrap_2_args(gxm_set_is_hint_w, gxm_set_is_hint) +Xen_wrap_2_args(gxm_set_button_w, gxm_set_button) +Xen_wrap_2_args(gxm_set_same_screen_w, gxm_set_same_screen) +Xen_wrap_2_args(gxm_set_keycode_w, gxm_set_keycode) +Xen_wrap_2_args(gxm_set_state_w, gxm_set_state) +Xen_wrap_2_args(gxm_set_y_root_w, gxm_set_y_root) +Xen_wrap_2_args(gxm_set_x_root_w, gxm_set_x_root) +Xen_wrap_2_args(gxm_set_root_w, gxm_set_root) +Xen_wrap_2_args(gxm_set_time_w, gxm_set_time) +Xen_wrap_2_args(gxm_set_subwindow_w, gxm_set_subwindow) +Xen_wrap_2_args(gxm_set_window_w, gxm_set_window) +Xen_wrap_2_args(gxm_set_send_event_w, gxm_set_send_event) +Xen_wrap_2_args(gxm_set_serial_w, gxm_set_serial) +Xen_wrap_2_args(gxm_set_type_w, gxm_set_type) +Xen_wrap_1_arg(gxm_colormap_w, gxm_colormap) +Xen_wrap_2_args(gxm_set_colormap_w, gxm_set_colormap) + +Xen_wrap_2_args(gxm_set_input_w, gxm_set_input) +Xen_wrap_2_args(gxm_set_initial_state_w, gxm_set_initial_state) + +Xen_wrap_1_arg(gxm_min_height_w, gxm_min_height) +Xen_wrap_1_arg(gxm_max_height_w, gxm_max_height) +Xen_wrap_1_arg(gxm_min_width_w, gxm_min_width) +Xen_wrap_1_arg(gxm_max_width_w, gxm_max_width) +Xen_wrap_1_arg(gxm_height_inc_w, gxm_height_inc) +Xen_wrap_1_arg(gxm_width_inc_w, gxm_width_inc) + +Xen_wrap_2_args(gxm_set_data_w, gxm_set_data) +Xen_wrap_2_args(gxm_set_backing_store_w, gxm_set_backing_store) +Xen_wrap_2_args(gxm_set_background_pixel_w, gxm_set_background_pixel) +Xen_wrap_2_args(gxm_set_border_pixel_w, gxm_set_border_pixel) +Xen_wrap_2_args(gxm_set_bit_gravity_w, gxm_set_bit_gravity) +Xen_wrap_2_args(gxm_set_save_under_w, gxm_set_save_under) +Xen_wrap_2_args(gxm_set_event_mask_w, gxm_set_event_mask) +Xen_wrap_2_args(gxm_set_cursor_w, gxm_set_cursor) + +Xen_wrap_2_args(gxm_set_set_w, gxm_set_set) +Xen_wrap_2_args(gxm_set_click_count_w, gxm_set_click_count) +Xen_wrap_2_args(gxm_set_length_w, gxm_set_length) +Xen_wrap_1_arg(gxm_ptr_w, gxm_ptr) +Xen_wrap_2_args(gxm_set_ptr_w, gxm_set_ptr) +Xen_wrap_2_args(gxm_set_reason_w, gxm_set_reason) +Xen_wrap_1_arg(gxm_page_number_w, gxm_page_number) +Xen_wrap_1_arg(gxm_page_widget_w, gxm_page_widget) +Xen_wrap_1_arg(gxm_status_area_widget_w, gxm_status_area_widget) +Xen_wrap_1_arg(gxm_major_tab_widget_w, gxm_major_tab_widget) +Xen_wrap_1_arg(gxm_minor_tab_widget_w, gxm_minor_tab_widget) +Xen_wrap_1_arg(gxm_source_data_w, gxm_source_data) +Xen_wrap_1_arg(gxm_location_data_w, gxm_location_data) +Xen_wrap_1_arg(gxm_parm_w, gxm_parm) +Xen_wrap_1_arg(gxm_parm_format_w, gxm_parm_format) +Xen_wrap_1_arg(gxm_parm_length_w, gxm_parm_length) +Xen_wrap_1_arg(gxm_parm_type_w, gxm_parm_type) +Xen_wrap_1_arg(gxm_transfer_id_w, gxm_transfer_id) +Xen_wrap_1_arg(gxm_destination_data_w, gxm_destination_data) +Xen_wrap_1_arg(gxm_remaining_w, gxm_remaining) +Xen_wrap_1_arg(gxm_item_or_text_w, gxm_item_or_text) +Xen_wrap_1_arg(gxm_auto_selection_type_w, gxm_auto_selection_type) +Xen_wrap_1_arg(gxm_new_outline_state_w, gxm_new_outline_state) +Xen_wrap_1_arg(gxm_prev_page_number_w, gxm_prev_page_number) +Xen_wrap_1_arg(gxm_prev_page_widget_w, gxm_prev_page_widget) +Xen_wrap_1_arg(gxm_rendition_w, gxm_rendition) +Xen_wrap_1_arg(gxm_render_table_w, gxm_render_table) +Xen_wrap_1_arg(gxm_crossed_boundary_w, gxm_crossed_boundary) +Xen_wrap_1_arg(gxm_client_data_w, gxm_client_data) +Xen_wrap_1_arg(gxm_status_w, gxm_status) +Xen_wrap_1_arg(gxm_font_name_w, gxm_font_name) +Xen_wrap_1_arg(gxm_tag_w, gxm_tag) +Xen_wrap_1_arg(gxm_traversal_destination_w, gxm_traversal_destination) +Xen_wrap_1_arg(gxm_dragProtocolStyle_w, gxm_dragProtocolStyle) +Xen_wrap_1_arg(gxm_direction_w, gxm_direction) +Xen_wrap_1_arg(gxm_reason_w, gxm_reason) +Xen_wrap_1_arg(gxm_timeStamp_w, gxm_timeStamp) +Xen_wrap_1_arg(gxm_operation_w, gxm_operation ) +Xen_wrap_2_args(gxm_set_operation_w, gxm_set_operation) +Xen_wrap_1_arg(gxm_operations_w, gxm_operations) +Xen_wrap_1_arg(gxm_dropSiteStatus_w, gxm_dropSiteStatus ) +Xen_wrap_2_args(gxm_set_dropSiteStatus_w, gxm_set_dropSiteStatus) +Xen_wrap_1_arg(gxm_dropAction_w, gxm_dropAction) +Xen_wrap_1_arg(gxm_iccHandle_w, gxm_iccHandle) +Xen_wrap_1_arg(gxm_completionStatus_w, gxm_completionStatus) +Xen_wrap_1_arg(gxm_dragContext_w, gxm_dragContext) +Xen_wrap_1_arg(gxm_animate_w, gxm_animate) +Xen_wrap_1_arg(gxm_length_w, gxm_length) +Xen_wrap_1_arg(gxm_click_count_w, gxm_click_count) +Xen_wrap_1_arg(gxm_widget_w, gxm_widget) +Xen_wrap_1_arg(gxm_item_position_w, gxm_item_position) +Xen_wrap_1_arg(gxm_callbackstruct_w, gxm_callbackstruct) +Xen_wrap_1_arg(gxm_set_w, gxm_set) +Xen_wrap_1_arg(gxm_item_w, gxm_item) +Xen_wrap_1_arg(gxm_item_length_w, gxm_item_length) +Xen_wrap_1_arg(gxm_selected_items_w, gxm_selected_items) +Xen_wrap_1_arg(gxm_selected_item_count_w, gxm_selected_item_count) +Xen_wrap_1_arg(gxm_selected_item_positions_w, gxm_selected_item_positions) +Xen_wrap_1_arg(gxm_selection_type_w, gxm_selection_type) +Xen_wrap_1_arg(gxm_mask_w, gxm_mask) +Xen_wrap_1_arg(gxm_mask_length_w, gxm_mask_length) +Xen_wrap_1_arg(gxm_dir_w, gxm_dir) +Xen_wrap_1_arg(gxm_dir_length_w, gxm_dir_length) +Xen_wrap_1_arg(gxm_pattern_w, gxm_pattern) +Xen_wrap_1_arg(gxm_pattern_length_w, gxm_pattern_length) +Xen_wrap_1_arg(gxm_position_w, gxm_position) +Xen_wrap_1_arg(gxm_currInsert_w, gxm_currInsert) +Xen_wrap_1_arg(gxm_newInsert_w, gxm_newInsert) +Xen_wrap_1_arg(gxm_startPos_w, gxm_startPos) +Xen_wrap_1_arg(gxm_endPos_w, gxm_endPos) +Xen_wrap_1_arg(gxm_text_w, gxm_text) +Xen_wrap_1_arg(gxm_value_w, gxm_value) +Xen_wrap_2_args(gxm_set_value_w, gxm_set_value) +Xen_wrap_1_arg(gxm_doit_w, gxm_doit) +Xen_wrap_2_args(gxm_set_doit_w, gxm_set_doit) +Xen_wrap_1_arg(gxm_menuToPost_w, gxm_menuToPost) +Xen_wrap_2_args(gxm_set_menuToPost_w, gxm_set_menuToPost) +Xen_wrap_1_arg(gxm_postIt_w, gxm_postIt) +Xen_wrap_2_args(gxm_set_postIt_w, gxm_set_postIt) + +Xen_wrap_1_arg(gxm_valuemask_w, gxm_valuemask) +Xen_wrap_2_args(gxm_set_valuemask_w, gxm_set_valuemask) +Xen_wrap_1_arg(gxm_ncolors_w, gxm_ncolors) +Xen_wrap_2_args(gxm_set_ncolors_w, gxm_set_ncolors) +Xen_wrap_1_arg(gxm_cpp_w, gxm_cpp) +Xen_wrap_2_args(gxm_set_cpp_w, gxm_set_cpp) +Xen_wrap_1_arg(gxm_numsymbols_w, gxm_numsymbols) +Xen_wrap_2_args(gxm_set_numsymbols_w, gxm_set_numsymbols) +Xen_wrap_1_arg(gxm_colorsymbols_w, gxm_colorsymbols) +Xen_wrap_2_args(gxm_set_colorsymbols_w, gxm_set_colorsymbols) +Xen_wrap_1_arg(gxm_npixels_w, gxm_npixels) +Xen_wrap_2_args(gxm_set_npixels_w, gxm_set_npixels) +Xen_wrap_1_arg(gxm_y_hotspot_w, gxm_y_hotspot) +Xen_wrap_2_args(gxm_set_y_hotspot_w, gxm_set_y_hotspot) +Xen_wrap_1_arg(gxm_x_hotspot_w, gxm_x_hotspot) +Xen_wrap_2_args(gxm_set_x_hotspot_w, gxm_set_x_hotspot) + +Xen_wrap_5_args(gxm_XpmImage_w, gxm_XpmImage) +Xen_wrap_3_args(gxm_XpmColorSymbol_w, gxm_XpmColorSymbol) +Xen_wrap_no_args(gxm_XpmAttributes_w, gxm_XpmAttributes) #if HAVE_SCHEME - #define c_to_xen_string_w c_to_xen_string - #define c_to_xen_strings_w c_to_xen_strings - #define c_to_xen_ints_w c_to_xen_ints - #define c_to_xen_atoms_w c_to_xen_atoms - #define c_to_xen_xrectangles_w c_to_xen_xrectangles -#endif - +Xen_wrap_2_args(c_to_xen_strings_w, c_to_xen_strings) +Xen_wrap_2_args(c_to_xen_ints_w, c_to_xen_ints) +Xen_wrap_2_args(c_to_xen_atoms_w, c_to_xen_atoms) +Xen_wrap_2_args(c_to_xen_xrectangles_w, c_to_xen_xrectangles) #endif -/* HAVE_MOTIF */ -#endif -/* argify */ - static void define_procedures(void) { - #define XM_DEFINE_PROCEDURE(Name, Value, A1, A2, A3, Help) XEN_DEFINE_PROCEDURE(XM_PREFIX #Name XM_POSTFIX, Value, A1, A2, A3, Help) + #define XM_define_procedure(Name, Value, A1, A2, A3, Help) Xen_define_safe_procedure(XM_PREFIX #Name XM_POSTFIX, Value, A1, A2, A3, Help) - xm_gc_table = XEN_MAKE_VECTOR(1, XEN_FALSE); - XEN_PROTECT_FROM_GC(xm_gc_table); + xm_gc_table = Xen_make_vector(1, Xen_false); + Xen_GC_protect(xm_gc_table); xm_protected_size = 512; - xm_protected = XEN_MAKE_VECTOR(xm_protected_size, XEN_FALSE); - XEN_VECTOR_SET(xm_gc_table, 0, xm_protected); - -#if HAVE_MOTIF - XM_DEFINE_PROCEDURE(XtSetArg, gxm_XtSetArg_w, 3, 0, 0, H_XtSetArg); - XM_DEFINE_PROCEDURE(XtManageChildren, gxm_XtManageChildren_w, 1, 1, 0, H_XtManageChildren); - XM_DEFINE_PROCEDURE(XtManageChild, gxm_XtManageChild_w, 1, 0, 0, H_XtManageChild); - XM_DEFINE_PROCEDURE(XtUnmanageChildren, gxm_XtUnmanageChildren_w, 1, 1, 0, H_XtUnmanageChildren); - XM_DEFINE_PROCEDURE(XtUnmanageChild, gxm_XtUnmanageChild_w, 1, 0, 0, H_XtUnmanageChild); - XM_DEFINE_PROCEDURE(XtDispatchEvent, gxm_XtDispatchEvent_w, 1, 0, 0, H_XtDispatchEvent); - XM_DEFINE_PROCEDURE(XtCallAcceptFocus, gxm_XtCallAcceptFocus_w, 2, 0, 0, H_XtCallAcceptFocus); - XM_DEFINE_PROCEDURE(XtAppPeekEvent, gxm_XtAppPeekEvent_w, 1, 0, 0, H_XtAppPeekEvent); - XM_DEFINE_PROCEDURE(XtIsSubclass, gxm_XtIsSubclass_w, 2, 0, 0, H_XtIsSubclass); - XM_DEFINE_PROCEDURE(XtIsObject, gxm_XtIsObject_w, 1, 0, 0, H_XtIsObject); - XM_DEFINE_PROCEDURE(XtIsManaged, gxm_XtIsManaged_w, 1, 0, 0, H_XtIsManaged); - XM_DEFINE_PROCEDURE(XtIsRealized, gxm_XtIsRealized_w, 1, 0, 0, H_XtIsRealized); - XM_DEFINE_PROCEDURE(XtIsSensitive, gxm_XtIsSensitive_w, 1, 0, 0, H_XtIsSensitive); - XM_DEFINE_PROCEDURE(XtOwnSelection, gxm_XtOwnSelection_w, 6, 0, 0, H_XtOwnSelection); - XM_DEFINE_PROCEDURE(XtOwnSelectionIncremental, gxm_XtOwnSelectionIncremental_w, 8, 0, 0, H_XtOwnSelectionIncremental); - XM_DEFINE_PROCEDURE(XtMakeResizeRequest, gxm_XtMakeResizeRequest_w, 3, 0, 0, H_XtMakeResizeRequest); - XM_DEFINE_PROCEDURE(XtTranslateCoords, gxm_XtTranslateCoords_w, 3, 0, 0, H_XtTranslateCoords); - XM_DEFINE_PROCEDURE(XtKeysymToKeycodeList, gxm_XtKeysymToKeycodeList_w, 2, 0, 0, H_XtKeysymToKeycodeList); - XM_DEFINE_PROCEDURE(XtParseTranslationTable, gxm_XtParseTranslationTable_w, 1, 0, 0, H_XtParseTranslationTable); - XM_DEFINE_PROCEDURE(XtParseAcceleratorTable, gxm_XtParseAcceleratorTable_w, 1, 0, 0, H_XtParseAcceleratorTable); - XM_DEFINE_PROCEDURE(XtOverrideTranslations, gxm_XtOverrideTranslations_w, 2, 0, 0, H_XtOverrideTranslations); - XM_DEFINE_PROCEDURE(XtAugmentTranslations, gxm_XtAugmentTranslations_w, 2, 0, 0, H_XtAugmentTranslations); - XM_DEFINE_PROCEDURE(XtInstallAccelerators, gxm_XtInstallAccelerators_w, 2, 0, 0, H_XtInstallAccelerators); - XM_DEFINE_PROCEDURE(XtInstallAllAccelerators, gxm_XtInstallAllAccelerators_w, 2, 0, 0, H_XtInstallAllAccelerators); - XM_DEFINE_PROCEDURE(XtUninstallTranslations, gxm_XtUninstallTranslations_w, 1, 0, 0, H_XtUninstallTranslations); - XM_DEFINE_PROCEDURE(XtAppAddActions, gxm_XtAppAddActions_w, 2, 0, 0, H_XtAppAddActions); - XM_DEFINE_PROCEDURE(XtAppAddActionHook, gxm_XtAppAddActionHook_w, 2, 1, 0, H_XtAppAddActionHook); - XM_DEFINE_PROCEDURE(XtRemoveActionHook, gxm_XtRemoveActionHook_w, 1, 0, 0, H_XtRemoveActionHook); - XM_DEFINE_PROCEDURE(XtGetActionList, gxm_XtGetActionList_w, 1, 0, 0, H_XtGetActionList); - XM_DEFINE_PROCEDURE(XtCallActionProc, gxm_XtCallActionProc_w, 4, 1, 0, H_XtCallActionProc); - XM_DEFINE_PROCEDURE(XtRegisterGrabAction, gxm_XtRegisterGrabAction_w, 5, 0, 0, H_XtRegisterGrabAction); - XM_DEFINE_PROCEDURE(XtSetMultiClickTime, gxm_XtSetMultiClickTime_w, 2, 0, 0, H_XtSetMultiClickTime); - XM_DEFINE_PROCEDURE(XtGetMultiClickTime, gxm_XtGetMultiClickTime_w, 1, 0, 0, H_XtGetMultiClickTime); - XM_DEFINE_PROCEDURE(XtGetResourceList, gxm_XtGetResourceList_w, 1, 0, 0, H_XtGetResourceList); - XM_DEFINE_PROCEDURE(XtGetActionKeysym, gxm_XtGetActionKeysym_w, 1, 0, 0, H_XtGetActionKeysym); - XM_DEFINE_PROCEDURE(XtTranslateKeycode, gxm_XtTranslateKeycode_w, 3, 0, 0, H_XtTranslateKeycode); - XM_DEFINE_PROCEDURE(XtTranslateKey, gxm_XtTranslateKey_w, 3, 0, 0, H_XtTranslateKey); - XM_DEFINE_PROCEDURE(XtSetKeyTranslator, gxm_XtSetKeyTranslator_w, 2, 0, 0, H_XtSetKeyTranslator); - XM_DEFINE_PROCEDURE(XtRegisterCaseConverter, gxm_XtRegisterCaseConverter_w, 4, 0, 0, H_XtRegisterCaseConverter); - XM_DEFINE_PROCEDURE(XtConvertCase, gxm_XtConvertCase_w, 2, 0, 0, H_XtConvertCase); - XM_DEFINE_PROCEDURE(XtAddEventHandler, gxm_XtAddEventHandler_w, 4, 1, 0, H_XtAddEventHandler); - XM_DEFINE_PROCEDURE(XtRemoveEventHandler, gxm_XtRemoveEventHandler_w, 5, 0, 0, H_XtRemoveEventHandler); - XM_DEFINE_PROCEDURE(XtAddRawEventHandler, gxm_XtAddRawEventHandler_w, 5, 0, 0, H_XtAddRawEventHandler); - XM_DEFINE_PROCEDURE(XtRemoveRawEventHandler, gxm_XtRemoveRawEventHandler_w, 5, 0, 0, H_XtRemoveRawEventHandler); - XM_DEFINE_PROCEDURE(XtInsertEventHandler, gxm_XtInsertEventHandler_w, 6, 0, 0, H_XtInsertEventHandler); - XM_DEFINE_PROCEDURE(XtInsertRawEventHandler, gxm_XtInsertRawEventHandler_w, 6, 0, 0, H_XtInsertRawEventHandler); - XM_DEFINE_PROCEDURE(XtDispatchEventToWidget, gxm_XtDispatchEventToWidget_w, 2, 0, 0, H_XtDispatchEventToWidget); - XM_DEFINE_PROCEDURE(XtBuildEventMask, gxm_XtBuildEventMask_w, 1, 0, 0, H_XtBuildEventMask); - XM_DEFINE_PROCEDURE(XtAddGrab, gxm_XtAddGrab_w, 3, 0, 0, H_XtAddGrab); - XM_DEFINE_PROCEDURE(XtRemoveGrab, gxm_XtRemoveGrab_w, 1, 0, 0, H_XtRemoveGrab); - XM_DEFINE_PROCEDURE(XtAppProcessEvent, gxm_XtAppProcessEvent_w, 2, 0, 0, H_XtAppProcessEvent); - XM_DEFINE_PROCEDURE(XtAppMainLoop, gxm_XtAppMainLoop_w, 1, 0, 0, H_XtAppMainLoop); - XM_DEFINE_PROCEDURE(XtAddExposureToRegion, gxm_XtAddExposureToRegion_w, 2, 0, 0, H_XtAddExposureToRegion); - XM_DEFINE_PROCEDURE(XtSetKeyboardFocus, gxm_XtSetKeyboardFocus_w, 2, 0, 0, H_XtSetKeyboardFocus); - XM_DEFINE_PROCEDURE(XtGetKeyboardFocusWidget, gxm_XtGetKeyboardFocusWidget_w, 1, 0, 0, H_XtGetKeyboardFocusWidget); - XM_DEFINE_PROCEDURE(XtLastEventProcessed, gxm_XtLastEventProcessed_w, 1, 0, 0, H_XtLastEventProcessed); - XM_DEFINE_PROCEDURE(XtLastTimestampProcessed, gxm_XtLastTimestampProcessed_w, 1, 0, 0, H_XtLastTimestampProcessed); - XM_DEFINE_PROCEDURE(XtAppAddTimeOut, gxm_XtAppAddTimeOut_w, 3, 1, 0, H_XtAppAddTimeOut); - XM_DEFINE_PROCEDURE(XtRemoveTimeOut, gxm_XtRemoveTimeOut_w, 1, 0, 0, H_XtRemoveTimeOut); - XM_DEFINE_PROCEDURE(XtAppAddInput, gxm_XtAppAddInput_w, 4, 1, 0, H_XtAppAddInput); - XM_DEFINE_PROCEDURE(XtRemoveInput, gxm_XtRemoveInput_w, 1, 0, 0, H_XtRemoveInput); - XM_DEFINE_PROCEDURE(XtAppNextEvent, gxm_XtAppNextEvent_w, 1, 0, 0, H_XtAppNextEvent); - XM_DEFINE_PROCEDURE(XtAppPending, gxm_XtAppPending_w, 1, 0, 0, H_XtAppPending); - XM_DEFINE_PROCEDURE(XtRealizeWidget, gxm_XtRealizeWidget_w, 1, 0, 0, H_XtRealizeWidget); - XM_DEFINE_PROCEDURE(XtUnrealizeWidget, gxm_XtUnrealizeWidget_w, 1, 0, 0, H_XtUnrealizeWidget); - XM_DEFINE_PROCEDURE(XtDestroyWidget, gxm_XtDestroyWidget_w, 1, 0, 0, H_XtDestroyWidget); - XM_DEFINE_PROCEDURE(XtSetSensitive, gxm_XtSetSensitive_w, 2, 0, 0, H_XtSetSensitive); - XM_DEFINE_PROCEDURE(XtNameToWidget, gxm_XtNameToWidget_w, 2, 0, 0, H_XtNameToWidget); - XM_DEFINE_PROCEDURE(XtWindowToWidget, gxm_XtWindowToWidget_w, 2, 0, 0, H_XtWindowToWidget); - XM_DEFINE_PROCEDURE(XtMergeArgLists, gxm_XtMergeArgLists_w, 4, 0, 0, H_XtMergeArgLists); - XM_DEFINE_PROCEDURE(XtVaCreateArgsList, gxm_XtVaCreateArgsList_w, 2, 0, 0, H_XtVaCreateArgsList); - XM_DEFINE_PROCEDURE(XtDisplay, gxm_XtDisplay_w, 1, 0, 0, H_XtDisplay); - XM_DEFINE_PROCEDURE(XtDisplayOfObject, gxm_XtDisplayOfObject_w, 1, 0, 0, H_XtDisplayOfObject); - XM_DEFINE_PROCEDURE(XtScreen, gxm_XtScreen_w, 1, 0, 0, H_XtScreen); - XM_DEFINE_PROCEDURE(XtScreenOfObject, gxm_XtScreenOfObject_w, 1, 0, 0, H_XtScreenOfObject); - XM_DEFINE_PROCEDURE(XtWindow, gxm_XtWindow_w, 1, 0, 0, H_XtWindow); - XM_DEFINE_PROCEDURE(XtWindowOfObject, gxm_XtWindowOfObject_w, 1, 0, 0, H_XtWindowOfObject); - XM_DEFINE_PROCEDURE(XtName, gxm_XtName_w, 1, 0, 0, H_XtName); - XM_DEFINE_PROCEDURE(XtSuperclass, gxm_XtSuperclass_w, 1, 0, 0, H_XtSuperclass); - XM_DEFINE_PROCEDURE(XtClass, gxm_XtClass_w, 1, 0, 0, H_XtClass); - XM_DEFINE_PROCEDURE(XtParent, gxm_XtParent_w, 1, 0, 0, H_XtParent); - XM_DEFINE_PROCEDURE(XtAddCallback, gxm_XtAddCallback_w, 3, 1, 0, H_XtAddCallback); - XM_DEFINE_PROCEDURE(XtRemoveCallback, gxm_XtRemoveCallback_w, 3, 0, 0, H_XtRemoveCallback); - XM_DEFINE_PROCEDURE(XtAddCallbacks, gxm_XtAddCallbacks_w, 3, 0, 0, H_XtAddCallbacks); - XM_DEFINE_PROCEDURE(XtRemoveCallbacks, gxm_XtRemoveCallbacks_w, 3, 0, 0, H_XtRemoveCallbacks); - XM_DEFINE_PROCEDURE(XtRemoveAllCallbacks, gxm_XtRemoveAllCallbacks_w, 2, 0, 0, H_XtRemoveAllCallbacks); - XM_DEFINE_PROCEDURE(XtCallCallbacks, gxm_XtCallCallbacks_w, 3, 0, 0, H_XtCallCallbacks); - XM_DEFINE_PROCEDURE(XtHasCallbacks, gxm_XtHasCallbacks_w, 2, 0, 0, H_XtHasCallbacks); - XM_DEFINE_PROCEDURE(XtCreatePopupShell, gxm_XtCreatePopupShell_w, 4, 1, 0, H_XtCreatePopupShell); - XM_DEFINE_PROCEDURE(XtVaCreatePopupShell, gxm_XtVaCreatePopupShell_w, 4, 0, 0, H_XtVaCreatePopupShell); - XM_DEFINE_PROCEDURE(XtPopup, gxm_XtPopup_w, 2, 0, 0, H_XtPopup); - XM_DEFINE_PROCEDURE(XtPopupSpringLoaded, gxm_XtPopupSpringLoaded_w, 1, 0, 0, H_XtPopupSpringLoaded); - XM_DEFINE_PROCEDURE(XtCallbackNone, gxm_XtCallbackNone_w, 3, 0, 0, H_XtCallbackNone); - XM_DEFINE_PROCEDURE(XtCallbackNonexclusive, gxm_XtCallbackNonexclusive_w, 3, 0, 0, H_XtCallbackNonexclusive); - XM_DEFINE_PROCEDURE(XtCallbackExclusive, gxm_XtCallbackExclusive_w, 3, 0, 0, H_XtCallbackExclusive); - XM_DEFINE_PROCEDURE(XtPopdown, gxm_XtPopdown_w, 1, 0, 0, H_XtPopdown); - XM_DEFINE_PROCEDURE(XtCallbackPopdown, gxm_XtCallbackPopdown_w, 3, 0, 0, H_XtCallbackPopdown); - XM_DEFINE_PROCEDURE(XtCreateWidget, gxm_XtCreateWidget_w, 4, 1, 0, H_XtCreateWidget); - XM_DEFINE_PROCEDURE(XtCreateManagedWidget, gxm_XtCreateManagedWidget_w, 4, 1, 0, H_XtCreateManagedWidget); - XM_DEFINE_PROCEDURE(XtVaCreateWidget, gxm_XtVaCreateWidget_w, 4, 0, 0, H_XtVaCreateWidget); - XM_DEFINE_PROCEDURE(XtVaCreateManagedWidget, gxm_XtVaCreateManagedWidget_w, 4, 0, 0, H_XtVaCreateManagedWidget); - XM_DEFINE_PROCEDURE(XtAppCreateShell, gxm_XtAppCreateShell_w, 5, 1, 0, H_XtAppCreateShell); - XM_DEFINE_PROCEDURE(XtVaAppCreateShell, gxm_XtVaAppCreateShell_w, 5, 0, 0, H_XtVaAppCreateShell); - XM_DEFINE_PROCEDURE(XtToolkitInitialize, gxm_XtToolkitInitialize_w, 0, 0, 0, H_XtToolkitInitialize); - XM_DEFINE_PROCEDURE(XtSetLanguageProc, gxm_XtSetLanguageProc_w, 3, 0, 0, H_XtSetLanguageProc); - XM_DEFINE_PROCEDURE(XtDisplayInitialize, gxm_XtDisplayInitialize_w, 6, 0, 0, H_XtDisplayInitialize); - XM_DEFINE_PROCEDURE(XtOpenApplication, gxm_XtOpenApplication_w, 5, 1, 0, H_XtOpenApplication); - XM_DEFINE_PROCEDURE(XtVaOpenApplication, gxm_XtVaOpenApplication_w, 5, 1, 0, H_XtVaOpenApplication); - XM_DEFINE_PROCEDURE(XtAppInitialize, gxm_XtAppInitialize_w, 4, 1, 0, H_XtAppInitialize); - XM_DEFINE_PROCEDURE(XtVaAppInitialize, gxm_XtVaAppInitialize_w, 4, 1, 0, H_XtVaAppInitialize); - XM_DEFINE_PROCEDURE(XtOpenDisplay, gxm_XtOpenDisplay_w, 6, 0, 0, H_XtOpenDisplay); - XM_DEFINE_PROCEDURE(XtCreateApplicationContext, gxm_XtCreateApplicationContext_w, 0, 0, 0, H_XtCreateApplicationContext); - XM_DEFINE_PROCEDURE(XtDestroyApplicationContext, gxm_XtDestroyApplicationContext_w, 1, 0, 0, H_XtDestroyApplicationContext); - XM_DEFINE_PROCEDURE(XtAppSetFallbackResources, gxm_XtAppSetFallbackResources_w, 2, 0, 0, H_XtAppSetFallbackResources); - XM_DEFINE_PROCEDURE(XtInitializeWidgetClass, gxm_XtInitializeWidgetClass_w, 1, 0, 0, H_XtInitializeWidgetClass); - XM_DEFINE_PROCEDURE(XtWidgetToApplicationContext, gxm_XtWidgetToApplicationContext_w, 1, 0, 0, H_XtWidgetToApplicationContext); - XM_DEFINE_PROCEDURE(XtDisplayToApplicationContext, gxm_XtDisplayToApplicationContext_w, 1, 0, 0, H_XtDisplayToApplicationContext); - XM_DEFINE_PROCEDURE(XtCloseDisplay, gxm_XtCloseDisplay_w, 1, 0, 0, H_XtCloseDisplay); - XM_DEFINE_PROCEDURE(XtSetValues, gxm_XtSetValues_w, 2, 1, 0, H_XtSetValues); - XM_DEFINE_PROCEDURE(XtVaSetValues, gxm_XtVaSetValues_w, 2, 0, 0, H_XtVaSetValues); - XM_DEFINE_PROCEDURE(XtGetValues, gxm_XtGetValues_w, 2, 1, 0, H_XtGetValues); - XM_DEFINE_PROCEDURE(XtVaGetValues, gxm_XtVaGetValues_w, 2, 0, 0, H_XtVaGetValues); - XM_DEFINE_PROCEDURE(XtAppSetErrorMsgHandler, gxm_XtAppSetErrorMsgHandler_w, 2, 0, 0, H_XtAppSetErrorMsgHandler); - XM_DEFINE_PROCEDURE(XtAppSetWarningMsgHandler, gxm_XtAppSetWarningMsgHandler_w, 2, 0, 0, H_XtAppSetWarningMsgHandler); - XM_DEFINE_PROCEDURE(XtAppErrorMsg, gxm_XtAppErrorMsg_w, 7, 0, 0, H_XtAppErrorMsg); - XM_DEFINE_PROCEDURE(XtAppWarningMsg, gxm_XtAppWarningMsg_w, 7, 0, 0, H_XtAppWarningMsg); - XM_DEFINE_PROCEDURE(XtAppSetErrorHandler, gxm_XtAppSetErrorHandler_w, 2, 0, 0, H_XtAppSetErrorHandler); - XM_DEFINE_PROCEDURE(XtAppSetWarningHandler, gxm_XtAppSetWarningHandler_w, 2, 0, 0, H_XtAppSetWarningHandler); - XM_DEFINE_PROCEDURE(XtAppError, gxm_XtAppError_w, 2, 0, 0, H_XtAppError); - XM_DEFINE_PROCEDURE(XtMalloc, gxm_XtMalloc_w, 1, 0, 0, H_XtMalloc); - XM_DEFINE_PROCEDURE(XtCalloc, gxm_XtCalloc_w, 2, 0, 0, H_XtCalloc); - XM_DEFINE_PROCEDURE(XtRealloc, gxm_XtRealloc_w, 2, 0, 0, H_XtRealloc); - XM_DEFINE_PROCEDURE(XtFree, gxm_XtFree_w, 1, 0, 0, H_XtFree); - XM_DEFINE_PROCEDURE(XtAppAddWorkProc, gxm_XtAppAddWorkProc_w, 2, 1, 0, H_XtAppAddWorkProc); - XM_DEFINE_PROCEDURE(XtRemoveWorkProc, gxm_XtRemoveWorkProc_w, 1, 0, 0, H_XtRemoveWorkProc); - XM_DEFINE_PROCEDURE(XtGetGC, gxm_XtGetGC_w, 3, 0, 0, H_XtGetGC); - XM_DEFINE_PROCEDURE(XtAllocateGC, gxm_XtAllocateGC_w, 6, 0, 0, H_XtAllocateGC); - XM_DEFINE_PROCEDURE(XtDestroyGC, gxm_XtDestroyGC_w, 1, 0, 0, H_XtDestroyGC); - XM_DEFINE_PROCEDURE(XtReleaseGC, gxm_XtReleaseGC_w, 2, 0, 0, H_XtReleaseGC); - XM_DEFINE_PROCEDURE(XtFindFile, gxm_XtFindFile_w, 4, 0, 0, H_XtFindFile); - XM_DEFINE_PROCEDURE(XtResolvePathname, gxm_XtResolvePathname_w, 8, 0, 0, H_XtResolvePathname); - XM_DEFINE_PROCEDURE(XtDisownSelection, gxm_XtDisownSelection_w, 3, 0, 0, H_XtDisownSelection); - XM_DEFINE_PROCEDURE(XtGetSelectionValue, gxm_XtGetSelectionValue_w, 6, 0, 0, H_XtGetSelectionValue); - XM_DEFINE_PROCEDURE(XtGetSelectionValues, gxm_XtGetSelectionValues_w, 7, 0, 0, H_XtGetSelectionValues); - XM_DEFINE_PROCEDURE(XtAppSetSelectionTimeout, gxm_XtAppSetSelectionTimeout_w, 2, 0, 0, H_XtAppSetSelectionTimeout); - XM_DEFINE_PROCEDURE(XtAppGetSelectionTimeout, gxm_XtAppGetSelectionTimeout_w, 1, 0, 0, H_XtAppGetSelectionTimeout); - XM_DEFINE_PROCEDURE(XtGetSelectionRequest, gxm_XtGetSelectionRequest_w, 3, 0, 0, H_XtGetSelectionRequest); - XM_DEFINE_PROCEDURE(XtGetSelectionValueIncremental, gxm_XtGetSelectionValueIncremental_w, 6, 0, 0, H_XtGetSelectionValueIncremental); - XM_DEFINE_PROCEDURE(XtGetSelectionValuesIncremental, gxm_XtGetSelectionValuesIncremental_w, 7, 0, 0, H_XtGetSelectionValuesIncremental); - XM_DEFINE_PROCEDURE(XtCreateSelectionRequest, gxm_XtCreateSelectionRequest_w, 2, 0, 0, H_XtCreateSelectionRequest); - XM_DEFINE_PROCEDURE(XtSendSelectionRequest, gxm_XtSendSelectionRequest_w, 3, 0, 0, H_XtSendSelectionRequest); - XM_DEFINE_PROCEDURE(XtCancelSelectionRequest, gxm_XtCancelSelectionRequest_w, 2, 0, 0, H_XtCancelSelectionRequest); - XM_DEFINE_PROCEDURE(XtGrabKey, gxm_XtGrabKey_w, 6, 0, 0, H_XtGrabKey); - XM_DEFINE_PROCEDURE(XtUngrabKey, gxm_XtUngrabKey_w, 3, 0, 0, H_XtUngrabKey); - XM_DEFINE_PROCEDURE(XtGrabKeyboard, gxm_XtGrabKeyboard_w, 5, 0, 0, H_XtGrabKeyboard); - XM_DEFINE_PROCEDURE(XtUngrabKeyboard, gxm_XtUngrabKeyboard_w, 2, 0, 0, H_XtUngrabKeyboard); - XM_DEFINE_PROCEDURE(XtGrabButton, gxm_XtGrabButton_w, 9, 0, 0, H_XtGrabButton); - XM_DEFINE_PROCEDURE(XtUngrabButton, gxm_XtUngrabButton_w, 3, 0, 0, H_XtUngrabButton); - XM_DEFINE_PROCEDURE(XtGrabPointer, gxm_XtGrabPointer_w, 8, 0, 0, H_XtGrabPointer); - XM_DEFINE_PROCEDURE(XtUngrabPointer, gxm_XtUngrabPointer_w, 2, 0, 0, H_XtUngrabPointer); - XM_DEFINE_PROCEDURE(XtGetApplicationNameAndClass, gxm_XtGetApplicationNameAndClass_w, 1, 0, 0, H_XtGetApplicationNameAndClass); - XM_DEFINE_PROCEDURE(XtGetDisplays, gxm_XtGetDisplays_w, 1, 0, 0, H_XtGetDisplays); - XM_DEFINE_PROCEDURE(XtToolkitThreadInitialize, gxm_XtToolkitThreadInitialize_w, 0, 0, 0, H_XtToolkitThreadInitialize); - XM_DEFINE_PROCEDURE(XtAppLock, gxm_XtAppLock_w, 1, 0, 0, H_XtAppLock); - XM_DEFINE_PROCEDURE(XtAppUnlock, gxm_XtAppUnlock_w, 1, 0, 0, H_XtAppUnlock); - XM_DEFINE_PROCEDURE(XtIsRectObj, gxm_XtIsRectObj_w, 1, 0, 0, H_XtIsRectObj); - XM_DEFINE_PROCEDURE(XtIsWidget, gxm_XtIsWidget_w, 1, 0, 0, H_XtIsWidget); - XM_DEFINE_PROCEDURE(XtIsComposite, gxm_XtIsComposite_w, 1, 0, 0, H_XtIsComposite); - XM_DEFINE_PROCEDURE(XtIsConstraint, gxm_XtIsConstraint_w, 1, 0, 0, H_XtIsConstraint); - XM_DEFINE_PROCEDURE(XtIsShell, gxm_XtIsShell_w, 1, 0, 0, H_XtIsShell); - XM_DEFINE_PROCEDURE(XtIsOverrideShell, gxm_XtIsOverrideShell_w, 1, 0, 0, H_XtIsOverrideShell); - XM_DEFINE_PROCEDURE(XtIsWMShell, gxm_XtIsWMShell_w, 1, 0, 0, H_XtIsWMShell); - XM_DEFINE_PROCEDURE(XtIsVendorShell, gxm_XtIsVendorShell_w, 1, 0, 0, H_XtIsVendorShell); - XM_DEFINE_PROCEDURE(XtIsTransientShell, gxm_XtIsTransientShell_w, 1, 0, 0, H_XtIsTransientShell); - XM_DEFINE_PROCEDURE(XtIsTopLevelShell, gxm_XtIsTopLevelShell_w, 1, 0, 0, H_XtIsTopLevelShell); - XM_DEFINE_PROCEDURE(XtIsApplicationShell, gxm_XtIsApplicationShell_w, 1, 0, 0, H_XtIsApplicationShell); - XM_DEFINE_PROCEDURE(XtIsSessionShell, gxm_XtIsSessionShell_w, 1, 0, 0, H_XtIsSessionShell); - XM_DEFINE_PROCEDURE(XtMapWidget, gxm_XtMapWidget_w, 1, 0, 0, H_XtMapWidget); - XM_DEFINE_PROCEDURE(XtUnmapWidget, gxm_XtUnmapWidget_w, 1, 0, 0, H_XtUnmapWidget); -#endif - XM_DEFINE_PROCEDURE(XUniqueContext, gxm_XUniqueContext_w, 0, 0, 0, H_XUniqueContext); - XM_DEFINE_PROCEDURE(XLoadQueryFont, gxm_XLoadQueryFont_w, 2, 0, 0, H_XLoadQueryFont); - XM_DEFINE_PROCEDURE(XQueryFont, gxm_XQueryFont_w, 2, 0, 0, H_XQueryFont); - XM_DEFINE_PROCEDURE(XGetMotionEvents, gxm_XGetMotionEvents_w, 4, 0, 0, H_XGetMotionEvents); - XM_DEFINE_PROCEDURE(XDeleteModifiermapEntry, gxm_XDeleteModifiermapEntry_w, 3, 0, 0, H_XDeleteModifiermapEntry); - XM_DEFINE_PROCEDURE(XGetModifierMapping, gxm_XGetModifierMapping_w, 1, 0, 0, H_XGetModifierMapping); - XM_DEFINE_PROCEDURE(XInsertModifiermapEntry, gxm_XInsertModifiermapEntry_w, 3, 0, 0, H_XInsertModifiermapEntry); - XM_DEFINE_PROCEDURE(XNewModifiermap, gxm_XNewModifiermap_w, 1, 0, 0, H_XNewModifiermap); - XM_DEFINE_PROCEDURE(XCreateImage, gxm_XCreateImage_w, 0, 0, 1, H_XCreateImage); - XM_DEFINE_PROCEDURE(XGetImage, gxm_XGetImage_w, 8, 0, 0, H_XGetImage); - XM_DEFINE_PROCEDURE(XGetSubImage, gxm_XGetSubImage_w, 0, 0, 1, H_XGetSubImage); - XM_DEFINE_PROCEDURE(XOpenDisplay, gxm_XOpenDisplay_w, 1, 0, 0, H_XOpenDisplay); - XM_DEFINE_PROCEDURE(XFetchBytes, gxm_XFetchBytes_w, 1, 0, 0, H_XFetchBytes); - XM_DEFINE_PROCEDURE(XFetchBuffer, gxm_XFetchBuffer_w, 2, 0, 0, H_XFetchBuffer); - XM_DEFINE_PROCEDURE(XGetAtomName, gxm_XGetAtomName_w, 2, 0, 0, H_XGetAtomName); - XM_DEFINE_PROCEDURE(XDisplayName, gxm_XDisplayName_w, 1, 0, 0, H_XDisplayName); - XM_DEFINE_PROCEDURE(XKeysymToString, gxm_XKeysymToString_w, 1, 0, 0, H_XKeysymToString); - XM_DEFINE_PROCEDURE(XSynchronize, gxm_XSynchronize_w, 2, 0, 0, H_XSynchronize); - XM_DEFINE_PROCEDURE(XSetAfterFunction, gxm_XSetAfterFunction_w, 2, 0, 0, H_XSetAfterFunction); - XM_DEFINE_PROCEDURE(XInternAtom, gxm_XInternAtom_w, 3, 0, 0, H_XInternAtom); - XM_DEFINE_PROCEDURE(XCopyColormapAndFree, gxm_XCopyColormapAndFree_w, 2, 0, 0, H_XCopyColormapAndFree); - XM_DEFINE_PROCEDURE(XCreateColormap, gxm_XCreateColormap_w, 4, 0, 0, H_XCreateColormap); - XM_DEFINE_PROCEDURE(XCreatePixmapCursor, gxm_XCreatePixmapCursor_w, 7, 0, 0, H_XCreatePixmapCursor); - XM_DEFINE_PROCEDURE(XCreateGlyphCursor, gxm_XCreateGlyphCursor_w, 7, 0, 0, H_XCreateGlyphCursor); - XM_DEFINE_PROCEDURE(XCreateFontCursor, gxm_XCreateFontCursor_w, 2, 0, 0, H_XCreateFontCursor); - XM_DEFINE_PROCEDURE(XLoadFont, gxm_XLoadFont_w, 2, 0, 0, H_XLoadFont); - XM_DEFINE_PROCEDURE(XCreateGC, gxm_XCreateGC_w, 4, 0, 0, H_XCreateGC); - XM_DEFINE_PROCEDURE(XFlushGC, gxm_XFlushGC_w, 2, 0, 0, H_XFlushGC); - XM_DEFINE_PROCEDURE(XCreatePixmap, gxm_XCreatePixmap_w, 5, 0, 0, H_XCreatePixmap); - XM_DEFINE_PROCEDURE(XCreateBitmapFromData, gxm_XCreateBitmapFromData_w, 5, 0, 0, H_XCreateBitmapFromData); - XM_DEFINE_PROCEDURE(XCreatePixmapFromBitmapData, gxm_XCreatePixmapFromBitmapData_w, 8, 0, 0, H_XCreatePixmapFromBitmapData); - XM_DEFINE_PROCEDURE(XCreateSimpleWindow, gxm_XCreateSimpleWindow_w, 9, 0, 0, H_XCreateSimpleWindow); - XM_DEFINE_PROCEDURE(XGetSelectionOwner, gxm_XGetSelectionOwner_w, 2, 0, 0, H_XGetSelectionOwner); - XM_DEFINE_PROCEDURE(XCreateWindow, gxm_XCreateWindow_w, 0, 0, 1, H_XCreateWindow); - XM_DEFINE_PROCEDURE(XListInstalledColormaps, gxm_XListInstalledColormaps_w, 2, 0, 0, H_XListInstalledColormaps); - XM_DEFINE_PROCEDURE(XListFonts, gxm_XListFonts_w, 3, 0, 0, H_XListFonts); - XM_DEFINE_PROCEDURE(XListFontsWithInfo, gxm_XListFontsWithInfo_w, 3, 0, 0, H_XListFontsWithInfo); - XM_DEFINE_PROCEDURE(XGetFontPath, gxm_XGetFontPath_w, 1, 0, 0, H_XGetFontPath); - XM_DEFINE_PROCEDURE(XListExtensions, gxm_XListExtensions_w, 1, 0, 0, H_XListExtensions); - XM_DEFINE_PROCEDURE(XListProperties, gxm_XListProperties_w, 2, 0, 0, H_XListProperties); - XM_DEFINE_PROCEDURE(XKeycodeToKeysym, gxm_XKeycodeToKeysym_w, 3, 0, 0, H_XKeycodeToKeysym); - XM_DEFINE_PROCEDURE(XLookupKeysym, gxm_XLookupKeysym_w, 2, 0, 0, H_XLookupKeysym); - XM_DEFINE_PROCEDURE(XGetKeyboardMapping, gxm_XGetKeyboardMapping_w, 3, 0, 0, H_XGetKeyboardMapping); - XM_DEFINE_PROCEDURE(XStringToKeysym, gxm_XStringToKeysym_w, 1, 0, 0, H_XStringToKeysym); - XM_DEFINE_PROCEDURE(XMaxRequestSize, gxm_XMaxRequestSize_w, 1, 0, 0, H_XMaxRequestSize); - XM_DEFINE_PROCEDURE(XExtendedMaxRequestSize, gxm_XExtendedMaxRequestSize_w, 1, 0, 0, H_XExtendedMaxRequestSize); - XM_DEFINE_PROCEDURE(XDisplayMotionBufferSize, gxm_XDisplayMotionBufferSize_w, 1, 0, 0, H_XDisplayMotionBufferSize); - XM_DEFINE_PROCEDURE(XVisualIDFromVisual, gxm_XVisualIDFromVisual_w, 1, 0, 0, H_XVisualIDFromVisual); - XM_DEFINE_PROCEDURE(XRootWindow, gxm_XRootWindow_w, 2, 0, 0, H_RootWindow); - XM_DEFINE_PROCEDURE(XDefaultRootWindow, gxm_XDefaultRootWindow_w, 1, 0, 0, H_DefaultRootWindow); - XM_DEFINE_PROCEDURE(XRootWindowOfScreen, gxm_XRootWindowOfScreen_w, 1, 0, 0, H_RootWindowOfScreen); - XM_DEFINE_PROCEDURE(XDefaultVisual, gxm_XDefaultVisual_w, 2, 0, 0, H_DefaultVisual); - XM_DEFINE_PROCEDURE(XDefaultVisualOfScreen, gxm_XDefaultVisualOfScreen_w, 1, 0, 0, H_DefaultVisualOfScreen); - XM_DEFINE_PROCEDURE(XDefaultGC, gxm_XDefaultGC_w, 2, 0, 0, H_DefaultGC); - XM_DEFINE_PROCEDURE(XDefaultGCOfScreen, gxm_XDefaultGCOfScreen_w, 1, 0, 0, H_DefaultGCOfScreen); - XM_DEFINE_PROCEDURE(XBlackPixel, gxm_XBlackPixel_w, 2, 0, 0, H_BlackPixel); - XM_DEFINE_PROCEDURE(XWhitePixel, gxm_XWhitePixel_w, 2, 0, 0, H_WhitePixel); - XM_DEFINE_PROCEDURE(XAllPlanes, gxm_XAllPlanes_w, 0, 0, 0, H_AllPlanes); - XM_DEFINE_PROCEDURE(XBlackPixelOfScreen, gxm_XBlackPixelOfScreen_w, 1, 0, 0, H_BlackPixelOfScreen); - XM_DEFINE_PROCEDURE(XWhitePixelOfScreen, gxm_XWhitePixelOfScreen_w, 1, 0, 0, H_WhitePixelOfScreen); - XM_DEFINE_PROCEDURE(XNextRequest, gxm_XNextRequest_w, 1, 0, 0, H_NextRequest); - XM_DEFINE_PROCEDURE(XLastKnownRequestProcessed, gxm_XLastKnownRequestProcessed_w, 1, 0, 0, H_LastKnownRequestProcessed); - XM_DEFINE_PROCEDURE(XServerVendor, gxm_XServerVendor_w, 1, 0, 0, H_ServerVendor); - XM_DEFINE_PROCEDURE(XDisplayString, gxm_XDisplayString_w, 1, 0, 0, H_DisplayString); - XM_DEFINE_PROCEDURE(XDefaultColormap, gxm_XDefaultColormap_w, 2, 0, 0, H_DefaultColormap); - XM_DEFINE_PROCEDURE(XDefaultColormapOfScreen, gxm_XDefaultColormapOfScreen_w, 1, 0, 0, H_DefaultColormapOfScreen); - XM_DEFINE_PROCEDURE(XDisplayOfScreen, gxm_XDisplayOfScreen_w, 1, 0, 0, H_DisplayOfScreen); - XM_DEFINE_PROCEDURE(XScreenOfDisplay, gxm_XScreenOfDisplay_w, 2, 0, 0, H_ScreenOfDisplay); - XM_DEFINE_PROCEDURE(XDefaultScreenOfDisplay, gxm_XDefaultScreenOfDisplay_w, 1, 0, 0, H_XDefaultScreenOfDisplay); - XM_DEFINE_PROCEDURE(XEventMaskOfScreen, gxm_XEventMaskOfScreen_w, 1, 0, 0, H_EventMaskOfScreen); - XM_DEFINE_PROCEDURE(XScreenNumberOfScreen, gxm_XScreenNumberOfScreen_w, 1, 0, 0, H_XScreenNumberOfScreen); - XM_DEFINE_PROCEDURE(XSetErrorHandler, gxm_XSetErrorHandler_w, 1, 0, 0, H_XSetErrorHandler); - XM_DEFINE_PROCEDURE(XSetIOErrorHandler, gxm_XSetIOErrorHandler_w, 1, 0, 0, H_XSetIOErrorHandler); - XM_DEFINE_PROCEDURE(XListPixmapFormats, gxm_XListPixmapFormats_w, 1, 0, 0, H_XListPixmapFormats); - XM_DEFINE_PROCEDURE(XListDepths, gxm_XListDepths_w, 2, 0, 0, H_XListDepths); - XM_DEFINE_PROCEDURE(XReconfigureWMWindow, gxm_XReconfigureWMWindow_w, 5, 0, 0, H_XReconfigureWMWindow); - XM_DEFINE_PROCEDURE(XGetWMProtocols, gxm_XGetWMProtocols_w, 2, 0, 0, H_XGetWMProtocols); - XM_DEFINE_PROCEDURE(XSetWMProtocols, gxm_XSetWMProtocols_w, 4, 0, 0, H_XSetWMProtocols); - XM_DEFINE_PROCEDURE(XIconifyWindow, gxm_XIconifyWindow_w, 3, 0, 0, H_XIconifyWindow); - XM_DEFINE_PROCEDURE(XWithdrawWindow, gxm_XWithdrawWindow_w, 3, 0, 0, H_XWithdrawWindow); - XM_DEFINE_PROCEDURE(XGetCommand, gxm_XGetCommand_w, 2, 0, 0, H_XGetCommand); - XM_DEFINE_PROCEDURE(XGetWMColormapWindows, gxm_XGetWMColormapWindows_w, 2, 0, 0, H_XGetWMColormapWindows); - XM_DEFINE_PROCEDURE(XSetWMColormapWindows, gxm_XSetWMColormapWindows_w, 4, 0, 0, H_XSetWMColormapWindows); - XM_DEFINE_PROCEDURE(XSetTransientForHint, gxm_XSetTransientForHint_w, 3, 0, 0, H_XSetTransientForHint); - XM_DEFINE_PROCEDURE(XActivateScreenSaver, gxm_XActivateScreenSaver_w, 1, 0, 0, H_XActivateScreenSaver); - XM_DEFINE_PROCEDURE(XAllocColor, gxm_XAllocColor_w, 3, 0, 0, H_XAllocColor); - XM_DEFINE_PROCEDURE(XAllocColorCells, gxm_XAllocColorCells_w, 5, 0, 0, H_XAllocColorCells); - XM_DEFINE_PROCEDURE(XAllocColorPlanes, gxm_XAllocColorPlanes_w, 0, 0, 1, H_XAllocColorPlanes); - XM_DEFINE_PROCEDURE(XAllocNamedColor, gxm_XAllocNamedColor_w, 5, 0, 0, H_XAllocNamedColor); - XM_DEFINE_PROCEDURE(XAllowEvents, gxm_XAllowEvents_w, 3, 0, 0, H_XAllowEvents); - XM_DEFINE_PROCEDURE(XAutoRepeatOff, gxm_XAutoRepeatOff_w, 1, 0, 0, H_XAutoRepeatOff); - XM_DEFINE_PROCEDURE(XAutoRepeatOn, gxm_XAutoRepeatOn_w, 1, 0, 0, H_XAutoRepeatOn); - XM_DEFINE_PROCEDURE(XBell, gxm_XBell_w, 2, 0, 0, H_XBell); - XM_DEFINE_PROCEDURE(XBitmapBitOrder, gxm_XBitmapBitOrder_w, 1, 0, 0, H_BitmapBitOrder); - XM_DEFINE_PROCEDURE(XBitmapPad, gxm_XBitmapPad_w, 1, 0, 0, H_BitmapPad); - XM_DEFINE_PROCEDURE(XBitmapUnit, gxm_XBitmapUnit_w, 1, 0, 0, H_BitmapUnit); - XM_DEFINE_PROCEDURE(XCellsOfScreen, gxm_XCellsOfScreen_w, 1, 0, 0, H_CellsOfScreen); - XM_DEFINE_PROCEDURE(XChangeActivePointerGrab, gxm_XChangeActivePointerGrab_w, 4, 0, 0, H_XChangeActivePointerGrab); - XM_DEFINE_PROCEDURE(XChangeGC, gxm_XChangeGC_w, 4, 0, 0, H_XChangeGC); - XM_DEFINE_PROCEDURE(XChangeKeyboardControl, gxm_XChangeKeyboardControl_w, 3, 0, 0, H_XChangeKeyboardControl); - XM_DEFINE_PROCEDURE(XChangeKeyboardMapping, gxm_XChangeKeyboardMapping_w, 5, 0, 0, H_XChangeKeyboardMapping); - XM_DEFINE_PROCEDURE(XChangePointerControl, gxm_XChangePointerControl_w, 6, 0, 0, H_XChangePointerControl); - XM_DEFINE_PROCEDURE(XChangeProperty, gxm_XChangeProperty_w, 7, 1, 0, H_XChangeProperty); - XM_DEFINE_PROCEDURE(XChangeWindowAttributes, gxm_XChangeWindowAttributes_w, 4, 0, 0, H_XChangeWindowAttributes); - XM_DEFINE_PROCEDURE(XCheckIfEvent, gxm_XCheckIfEvent_w, 3, 0, 0, H_XCheckIfEvent); - XM_DEFINE_PROCEDURE(XCheckMaskEvent, gxm_XCheckMaskEvent_w, 2, 0, 0, H_XCheckMaskEvent); - XM_DEFINE_PROCEDURE(XCheckTypedEvent, gxm_XCheckTypedEvent_w, 2, 0, 0, H_XCheckTypedEvent); - XM_DEFINE_PROCEDURE(XCheckTypedWindowEvent, gxm_XCheckTypedWindowEvent_w, 3, 0, 0, H_XCheckTypedWindowEvent); - XM_DEFINE_PROCEDURE(XCheckWindowEvent, gxm_XCheckWindowEvent_w, 3, 0, 0, H_XCheckWindowEvent); - XM_DEFINE_PROCEDURE(XCirculateSubwindows, gxm_XCirculateSubwindows_w, 3, 0, 0, H_XCirculateSubwindows); - XM_DEFINE_PROCEDURE(XCirculateSubwindowsDown, gxm_XCirculateSubwindowsDown_w, 2, 0, 0, H_XCirculateSubwindowsDown); - XM_DEFINE_PROCEDURE(XCirculateSubwindowsUp, gxm_XCirculateSubwindowsUp_w, 2, 0, 0, H_XCirculateSubwindowsUp); - XM_DEFINE_PROCEDURE(XClearArea, gxm_XClearArea_w, 7, 0, 0, H_XClearArea); - XM_DEFINE_PROCEDURE(XClearWindow, gxm_XClearWindow_w, 2, 0, 0, H_XClearWindow); - XM_DEFINE_PROCEDURE(XCloseDisplay, gxm_XCloseDisplay_w, 1, 0, 0, H_XCloseDisplay); - XM_DEFINE_PROCEDURE(XConfigureWindow, gxm_XConfigureWindow_w, 4, 0, 0, H_XConfigureWindow); - XM_DEFINE_PROCEDURE(XConnectionNumber, gxm_XConnectionNumber_w, 1, 0, 0, H_XConnectionNumber); - XM_DEFINE_PROCEDURE(XConvertSelection, gxm_XConvertSelection_w, 6, 0, 0, H_XConvertSelection); - XM_DEFINE_PROCEDURE(XCopyArea, gxm_XCopyArea_w, 0, 0, 1, H_XCopyArea); - XM_DEFINE_PROCEDURE(XCopyGC, gxm_XCopyGC_w, 4, 0, 0, H_XCopyGC); - XM_DEFINE_PROCEDURE(XCopyPlane, gxm_XCopyPlane_w, 0, 0, 1, H_XCopyPlane); - XM_DEFINE_PROCEDURE(XDefaultDepth, gxm_XDefaultDepth_w, 2, 0, 0, H_XDefaultDepth); - XM_DEFINE_PROCEDURE(XDefaultDepthOfScreen, gxm_XDefaultDepthOfScreen_w, 1, 0, 0, H_XDefaultDepthOfScreen); - XM_DEFINE_PROCEDURE(XDefaultScreen, gxm_XDefaultScreen_w, 1, 0, 0, H_XDefaultScreen); - XM_DEFINE_PROCEDURE(XDefineCursor, gxm_XDefineCursor_w, 3, 0, 0, H_XDefineCursor); - XM_DEFINE_PROCEDURE(XDeleteProperty, gxm_XDeleteProperty_w, 3, 0, 0, H_XDeleteProperty); - XM_DEFINE_PROCEDURE(XDestroyWindow, gxm_XDestroyWindow_w, 2, 0, 0, H_XDestroyWindow); - XM_DEFINE_PROCEDURE(XDestroySubwindows, gxm_XDestroySubwindows_w, 2, 0, 0, H_XDestroySubwindows); - XM_DEFINE_PROCEDURE(XDoesBackingStore, gxm_XDoesBackingStore_w, 1, 0, 0, H_XDoesBackingStore); - XM_DEFINE_PROCEDURE(XDoesSaveUnders, gxm_XDoesSaveUnders_w, 1, 0, 0, H_XDoesSaveUnders); - XM_DEFINE_PROCEDURE(XDisableAccessControl, gxm_XDisableAccessControl_w, 1, 0, 0, H_XDisableAccessControl); - XM_DEFINE_PROCEDURE(XDisplayCells, gxm_XDisplayCells_w, 2, 0, 0, H_XDisplayCells); - XM_DEFINE_PROCEDURE(XDisplayHeight, gxm_XDisplayHeight_w, 2, 0, 0, H_XDisplayHeight); - XM_DEFINE_PROCEDURE(XDisplayHeightMM, gxm_XDisplayHeightMM_w, 2, 0, 0, H_XDisplayHeightMM); - XM_DEFINE_PROCEDURE(XDisplayKeycodes, gxm_XDisplayKeycodes_w, 1, 0, 0, H_XDisplayKeycodes); - XM_DEFINE_PROCEDURE(XDisplayPlanes, gxm_XDisplayPlanes_w, 2, 0, 0, H_XDisplayPlanes); - XM_DEFINE_PROCEDURE(XDisplayWidth, gxm_XDisplayWidth_w, 2, 0, 0, H_XDisplayWidth); - XM_DEFINE_PROCEDURE(XDisplayWidthMM, gxm_XDisplayWidthMM_w, 2, 0, 0, H_XDisplayWidthMM); - XM_DEFINE_PROCEDURE(XDrawArc, gxm_XDrawArc_w, 9, 0, 0, H_XDrawArc); - XM_DEFINE_PROCEDURE(XDrawArcs, gxm_XDrawArcs_w, 5, 0, 0, H_XDrawArcs); - XM_DEFINE_PROCEDURE(XDrawImageString, gxm_XDrawImageString_w, 7, 0, 0, H_XDrawImageString); - XM_DEFINE_PROCEDURE(XDrawLine, gxm_XDrawLine_w, 7, 0, 0, H_XDrawLine); - XM_DEFINE_PROCEDURE(XDrawLines, gxm_XDrawLines_w, 6, 0, 0, H_XDrawLines); - XM_DEFINE_PROCEDURE(XDrawLinesDirect, gxm_XDrawLinesDirect_w, 6, 0, 0, H_XDrawLinesDirect); - XM_DEFINE_PROCEDURE(freeXPoints, gxm_FreeXPoints_w, 1, 0, 0, H_freeXPoints); - XM_DEFINE_PROCEDURE(vector->XPoints, gxm_Vector2XPoints_w, 1, 0, 0, H_vector2XPoints); - XM_DEFINE_PROCEDURE(XDrawPoint, gxm_XDrawPoint_w, 5, 0, 0, H_XDrawPoint); - XM_DEFINE_PROCEDURE(XDrawPoints, gxm_XDrawPoints_w, 6, 0, 0, H_XDrawPoints); - XM_DEFINE_PROCEDURE(XDrawRectangle, gxm_XDrawRectangle_w, 7, 0, 0, H_XDrawRectangle); - XM_DEFINE_PROCEDURE(XDrawRectangles, gxm_XDrawRectangles_w, 5, 0, 0, H_XDrawRectangles); - XM_DEFINE_PROCEDURE(XDrawSegments, gxm_XDrawSegments_w, 5, 0, 0, H_XDrawSegments); - XM_DEFINE_PROCEDURE(XDrawString, gxm_XDrawString_w, 7, 0, 0, H_XDrawString); - XM_DEFINE_PROCEDURE(XDrawText, gxm_XDrawText_w, 6, 1, 0, H_XDrawText); - XM_DEFINE_PROCEDURE(XEnableAccessControl, gxm_XEnableAccessControl_w, 1, 0, 0, H_XEnableAccessControl); - XM_DEFINE_PROCEDURE(XEventsQueued, gxm_XEventsQueued_w, 2, 0, 0, H_XEventsQueued); - XM_DEFINE_PROCEDURE(XFetchName, gxm_XFetchName_w, 2, 0, 0, H_XFetchName); - XM_DEFINE_PROCEDURE(XFillArc, gxm_XFillArc_w, 9, 0, 0, H_XFillArc); - XM_DEFINE_PROCEDURE(XFillArcs, gxm_XFillArcs_w, 5, 0, 0, H_XFillArcs); - XM_DEFINE_PROCEDURE(XFillPolygon, gxm_XFillPolygon_w, 7, 0, 0, H_XFillPolygon); - XM_DEFINE_PROCEDURE(XFillRectangle, gxm_XFillRectangle_w, 7, 0, 0, H_XFillRectangle); - XM_DEFINE_PROCEDURE(XFillRectangles, gxm_XFillRectangles_w, 5, 0, 0, H_XFillRectangles); - XM_DEFINE_PROCEDURE(XFlush, gxm_XFlush_w, 1, 0, 0, H_XFlush); - XM_DEFINE_PROCEDURE(XForceScreenSaver, gxm_XForceScreenSaver_w, 2, 0, 0, H_XForceScreenSaver); - XM_DEFINE_PROCEDURE(XFree, gxm_XFree_w, 1, 0, 0, H_XFree); - XM_DEFINE_PROCEDURE(XFreeColormap, gxm_XFreeColormap_w, 2, 0, 0, H_XFreeColormap); - XM_DEFINE_PROCEDURE(XFreeColors, gxm_XFreeColors_w, 5, 0, 0, H_XFreeColors); - XM_DEFINE_PROCEDURE(XFreeCursor, gxm_XFreeCursor_w, 2, 0, 0, H_XFreeCursor); - XM_DEFINE_PROCEDURE(XFreeExtensionList, gxm_XFreeExtensionList_w, 1, 0, 0, "XFreeExtensionList(list) frees list (from XListExtensions)"); - XM_DEFINE_PROCEDURE(XFreeFont, gxm_XFreeFont_w, 2, 0, 0, H_XFreeFont); - XM_DEFINE_PROCEDURE(XFreeFontInfo, gxm_XFreeFontInfo_w, 3, 0, 0, H_XFreeFontInfo); - XM_DEFINE_PROCEDURE(XFreeFontNames, gxm_XFreeFontNames_w, 1, 0, 0, H_XFreeFontNames); - XM_DEFINE_PROCEDURE(XFreeFontPath, gxm_XFreeFontPath_w, 1, 0, 0, H_XFreeFontPath); - XM_DEFINE_PROCEDURE(XFreeGC, gxm_XFreeGC_w, 2, 0, 0, H_XFreeGC); - XM_DEFINE_PROCEDURE(XFreeModifiermap, gxm_XFreeModifiermap_w, 1, 0, 0, H_XFreeModifiermap); - XM_DEFINE_PROCEDURE(XFreePixmap, gxm_XFreePixmap_w, 2, 0, 0, H_XFreePixmap); - XM_DEFINE_PROCEDURE(XGeometry, gxm_XGeometry_w, 0, 0, 1, H_XGeometry); - XM_DEFINE_PROCEDURE(XGetErrorText, gxm_XGetErrorText_w, 4, 0, 0, H_XGetErrorText); - XM_DEFINE_PROCEDURE(XGetFontProperty, gxm_XGetFontProperty_w, 2, 0, 0, H_XGetFontProperty); - XM_DEFINE_PROCEDURE(XGetGCValues, gxm_XGetGCValues_w, 3, 0, 0, H_XGetGCValues); - XM_DEFINE_PROCEDURE(XGCValues, gxm_XGCValues_w, 0, 0, 0, "XGCValues returns a new XGCValue struct"); - XM_DEFINE_PROCEDURE(XEvent, gxm_XEvent_w, 0, 1, 0, "XEvent returns a new XEvent struct"); - XM_DEFINE_PROCEDURE(XGetGeometry, gxm_XGetGeometry_w, 2, 0, 0, H_XGetGeometry); - XM_DEFINE_PROCEDURE(XGetIconName, gxm_XGetIconName_w, 2, 0, 0, H_XGetIconName); - XM_DEFINE_PROCEDURE(XGetInputFocus, gxm_XGetInputFocus_w, 1, 0, 0, H_XGetInputFocus); - XM_DEFINE_PROCEDURE(XGetKeyboardControl, gxm_XGetKeyboardControl_w, 1, 0, 0, H_XGetKeyboardControl); - XM_DEFINE_PROCEDURE(XGetPointerControl, gxm_XGetPointerControl_w, 1, 0, 0, H_XGetPointerControl); - XM_DEFINE_PROCEDURE(XGetPointerMapping, gxm_XGetPointerMapping_w, 3, 0, 0, H_XGetPointerMapping); - XM_DEFINE_PROCEDURE(XGetScreenSaver, gxm_XGetScreenSaver_w, 1, 0, 0, H_XGetScreenSaver); - XM_DEFINE_PROCEDURE(XGetTransientForHint, gxm_XGetTransientForHint_w, 2, 0, 0, H_XGetTransientForHint); - XM_DEFINE_PROCEDURE(XGetWindowProperty, gxm_XGetWindowProperty_w, 0, 0, 1, H_XGetWindowProperty); - XM_DEFINE_PROCEDURE(XGetWindowAttributes, gxm_XGetWindowAttributes_w, 2, 0, 0, H_XGetWindowAttributes); - XM_DEFINE_PROCEDURE(XGrabButton, gxm_XGrabButton_w, 0, 0, 1, H_XGrabButton); - XM_DEFINE_PROCEDURE(XGrabKey, gxm_XGrabKey_w, 7, 0, 0, H_XGrabKey); - XM_DEFINE_PROCEDURE(XGrabKeyboard, gxm_XGrabKeyboard_w, 6, 0, 0, H_XGrabKeyboard); - XM_DEFINE_PROCEDURE(XGrabPointer, gxm_XGrabPointer_w, 9, 0, 0, H_XGrabPointer); - XM_DEFINE_PROCEDURE(XGrabServer, gxm_XGrabServer_w, 1, 0, 0, H_XGrabServer); - XM_DEFINE_PROCEDURE(XHeightMMOfScreen, gxm_XHeightMMOfScreen_w, 1, 0, 0, H_HeightMMOfScreen); - XM_DEFINE_PROCEDURE(XHeightOfScreen, gxm_XHeightOfScreen_w, 1, 0, 0, H_HeightOfScreen); - XM_DEFINE_PROCEDURE(XIfEvent, gxm_XIfEvent_w, 3, 0, 0, H_XIfEvent); - XM_DEFINE_PROCEDURE(XImageByteOrder, gxm_XImageByteOrder_w, 1, 0, 0, H_ImageByteOrder); - XM_DEFINE_PROCEDURE(XInstallColormap, gxm_XInstallColormap_w, 2, 0, 0, H_XInstallColormap); - XM_DEFINE_PROCEDURE(XKeysymToKeycode, gxm_XKeysymToKeycode_w, 2, 0, 0, H_XKeysymToKeycode); - XM_DEFINE_PROCEDURE(XKillClient, gxm_XKillClient_w, 2, 0, 0, H_XKillClient); - XM_DEFINE_PROCEDURE(XLookupColor, gxm_XLookupColor_w, 5, 0, 0, H_XLookupColor); - XM_DEFINE_PROCEDURE(XLowerWindow, gxm_XLowerWindow_w, 2, 0, 0, H_XLowerWindow); - XM_DEFINE_PROCEDURE(XMapRaised, gxm_XMapRaised_w, 2, 0, 0, H_XMapRaised); - XM_DEFINE_PROCEDURE(XMapSubwindows, gxm_XMapSubwindows_w, 2, 0, 0, H_XMapSubwindows); - XM_DEFINE_PROCEDURE(XMapWindow, gxm_XMapWindow_w, 2, 0, 0, H_XMapWindow); - XM_DEFINE_PROCEDURE(XMaskEvent, gxm_XMaskEvent_w, 2, 0, 0, H_XMaskEvent); - XM_DEFINE_PROCEDURE(XMaxCmapsOfScreen, gxm_XMaxCmapsOfScreen_w, 1, 0, 0, H_MaxCmapsOfScreen); - XM_DEFINE_PROCEDURE(XMinCmapsOfScreen, gxm_XMinCmapsOfScreen_w, 1, 0, 0, H_MinCmapsOfScreen); - XM_DEFINE_PROCEDURE(XMoveResizeWindow, gxm_XMoveResizeWindow_w, 6, 0, 0, H_XMoveResizeWindow); - XM_DEFINE_PROCEDURE(XMoveWindow, gxm_XMoveWindow_w, 4, 0, 0, H_XMoveWindow); - XM_DEFINE_PROCEDURE(XNextEvent, gxm_XNextEvent_w, 1, 0, 0, H_XNextEvent); - XM_DEFINE_PROCEDURE(XNoOp, gxm_XNoOp_w, 1, 0, 0, H_XNoOp); - XM_DEFINE_PROCEDURE(XParseColor, gxm_XParseColor_w, 4, 0, 0, H_XParseColor); - XM_DEFINE_PROCEDURE(XParseGeometry, gxm_XParseGeometry_w, 1, 0, 0, H_XParseGeometry); - XM_DEFINE_PROCEDURE(XPeekEvent, gxm_XPeekEvent_w, 1, 0, 0, H_XPeekEvent); - XM_DEFINE_PROCEDURE(XPeekIfEvent, gxm_XPeekIfEvent_w, 3, 0, 0, H_XPeekIfEvent); - XM_DEFINE_PROCEDURE(XPending, gxm_XPending_w, 1, 0, 0, H_XPending); - XM_DEFINE_PROCEDURE(XPlanesOfScreen, gxm_XPlanesOfScreen_w, 1, 0, 0, H_PlanesOfScreen); - XM_DEFINE_PROCEDURE(XProtocolRevision, gxm_XProtocolRevision_w, 1, 0, 0, H_ProtocolRevision); - XM_DEFINE_PROCEDURE(XProtocolVersion, gxm_XProtocolVersion_w, 1, 0, 0, H_ProtocolVersion); - XM_DEFINE_PROCEDURE(XPutBackEvent, gxm_XPutBackEvent_w, 2, 0, 0, H_XPutBackEvent); - XM_DEFINE_PROCEDURE(XPutImage, gxm_XPutImage_w, 0, 0, 1, H_XPutImage); - XM_DEFINE_PROCEDURE(XQLength, gxm_XQLength_w, 1, 0, 0, H_QLength); - XM_DEFINE_PROCEDURE(XQueryBestCursor, gxm_XQueryBestCursor_w, 4, 0, 0, H_XQueryBestCursor); - XM_DEFINE_PROCEDURE(XQueryBestSize, gxm_XQueryBestSize_w, 5, 0, 0, H_XQueryBestSize); - XM_DEFINE_PROCEDURE(XQueryBestStipple, gxm_XQueryBestStipple_w, 4, 0, 0, H_XQueryBestStipple); - XM_DEFINE_PROCEDURE(XQueryBestTile, gxm_XQueryBestTile_w, 4, 0, 0, H_XQueryBestTile); - XM_DEFINE_PROCEDURE(XQueryColor, gxm_XQueryColor_w, 3, 0, 0, H_XQueryColor); - XM_DEFINE_PROCEDURE(XQueryColors, gxm_XQueryColors_w, 3, 1, 0, H_XQueryColors); - XM_DEFINE_PROCEDURE(XQueryExtension, gxm_XQueryExtension_w, 2, 0, 0, H_XQueryExtension); - XM_DEFINE_PROCEDURE(XQueryKeymap, gxm_XQueryKeymap_w, 1, 0, 0, H_XQueryKeymap); - XM_DEFINE_PROCEDURE(XQueryPointer, gxm_XQueryPointer_w, 2, 0, 0, H_XQueryPointer); - XM_DEFINE_PROCEDURE(XQueryTextExtents, gxm_XQueryTextExtents_w, 3, 0, 0, H_XQueryTextExtents); - XM_DEFINE_PROCEDURE(XQueryTree, gxm_XQueryTree_w, 2, 0, 0, H_XQueryTree); - XM_DEFINE_PROCEDURE(XRaiseWindow, gxm_XRaiseWindow_w, 2, 0, 0, H_XRaiseWindow); - XM_DEFINE_PROCEDURE(XReadBitmapFile, gxm_XReadBitmapFile_w, 3, 0, 0, H_XReadBitmapFile); - XM_DEFINE_PROCEDURE(XReadBitmapFileData, gxm_XReadBitmapFileData_w, 1, 0, 0, H_XReadBitmapFileData); - XM_DEFINE_PROCEDURE(XRebindKeysym, gxm_XRebindKeysym_w, 6, 0, 0, H_XRebindKeysym); - XM_DEFINE_PROCEDURE(XRecolorCursor, gxm_XRecolorCursor_w, 4, 0, 0, H_XRecolorCursor); - XM_DEFINE_PROCEDURE(XRefreshKeyboardMapping, gxm_XRefreshKeyboardMapping_w, 1, 0, 0, H_XRefreshKeyboardMapping); - XM_DEFINE_PROCEDURE(XReparentWindow, gxm_XReparentWindow_w, 5, 0, 0, H_XReparentWindow); - XM_DEFINE_PROCEDURE(XResetScreenSaver, gxm_XResetScreenSaver_w, 1, 0, 0, H_XResetScreenSaver); - XM_DEFINE_PROCEDURE(XResizeWindow, gxm_XResizeWindow_w, 4, 0, 0, H_XResizeWindow); - XM_DEFINE_PROCEDURE(XRestackWindows, gxm_XRestackWindows_w, 3, 0, 0, H_XRestackWindows); - XM_DEFINE_PROCEDURE(XRotateBuffers, gxm_XRotateBuffers_w, 2, 0, 0, H_XRotateBuffers); - XM_DEFINE_PROCEDURE(XRotateWindowProperties, gxm_XRotateWindowProperties_w, 5, 0, 0, H_XRotateWindowProperties); - XM_DEFINE_PROCEDURE(XScreenCount, gxm_XScreenCount_w, 1, 0, 0, H_ScreenCount); - XM_DEFINE_PROCEDURE(XSelectInput, gxm_XSelectInput_w, 3, 0, 0, H_XSelectInput); - XM_DEFINE_PROCEDURE(XSendEvent, gxm_XSendEvent_w, 5, 0, 0, H_XSendEvent); - XM_DEFINE_PROCEDURE(XSetAccessControl, gxm_XSetAccessControl_w, 2, 0, 0, H_XSetAccessControl); - XM_DEFINE_PROCEDURE(XSetArcMode, gxm_XSetArcMode_w, 3, 0, 0, H_XSetArcMode); - XM_DEFINE_PROCEDURE(XSetBackground, gxm_XSetBackground_w, 3, 0, 0, H_XSetBackground); - XM_DEFINE_PROCEDURE(XSetClipMask, gxm_XSetClipMask_w, 3, 0, 0, H_XSetClipMask); - XM_DEFINE_PROCEDURE(XSetClipOrigin, gxm_XSetClipOrigin_w, 4, 0, 0, H_XSetClipOrigin); - XM_DEFINE_PROCEDURE(XSetClipRectangles, gxm_XSetClipRectangles_w, 7, 0, 0, H_XSetClipRectangles); - XM_DEFINE_PROCEDURE(XSetCloseDownMode, gxm_XSetCloseDownMode_w, 2, 0, 0, H_XSetCloseDownMode); - XM_DEFINE_PROCEDURE(XSetCommand, gxm_XSetCommand_w, 4, 0, 0, H_XSetCommand); - XM_DEFINE_PROCEDURE(XSetDashes, gxm_XSetDashes_w, 4, 1, 0, H_XSetDashes); - XM_DEFINE_PROCEDURE(XSetFillRule, gxm_XSetFillRule_w, 3, 0, 0, H_XSetFillRule); - XM_DEFINE_PROCEDURE(XSetFillStyle, gxm_XSetFillStyle_w, 3, 0, 0, H_XSetFillStyle); - XM_DEFINE_PROCEDURE(XSetFont, gxm_XSetFont_w, 3, 0, 0, H_XSetFont); - XM_DEFINE_PROCEDURE(XSetFontPath, gxm_XSetFontPath_w, 3, 0, 0, H_XSetFontPath); - XM_DEFINE_PROCEDURE(XSetForeground, gxm_XSetForeground_w, 3, 0, 0, H_XSetForeground); - XM_DEFINE_PROCEDURE(XSetFunction, gxm_XSetFunction_w, 3, 0, 0, H_XSetFunction); - XM_DEFINE_PROCEDURE(XSetGraphicsExposures, gxm_XSetGraphicsExposures_w, 3, 0, 0, H_XSetGraphicsExposures); - XM_DEFINE_PROCEDURE(XSetIconName, gxm_XSetIconName_w, 3, 0, 0, H_XSetIconName); - XM_DEFINE_PROCEDURE(XSetInputFocus, gxm_XSetInputFocus_w, 4, 0, 0, H_XSetInputFocus); - XM_DEFINE_PROCEDURE(XSetLineAttributes, gxm_XSetLineAttributes_w, 6, 0, 0, H_XSetLineAttributes); - XM_DEFINE_PROCEDURE(XSetModifierMapping, gxm_XSetModifierMapping_w, 2, 0, 0, H_XSetModifierMapping); - XM_DEFINE_PROCEDURE(XSetPlaneMask, gxm_XSetPlaneMask_w, 3, 0, 0, H_XSetPlaneMask); - XM_DEFINE_PROCEDURE(XSetPointerMapping, gxm_XSetPointerMapping_w, 2, 1, 0, H_XSetPointerMapping); - XM_DEFINE_PROCEDURE(XSetScreenSaver, gxm_XSetScreenSaver_w, 5, 0, 0, H_XSetScreenSaver); - XM_DEFINE_PROCEDURE(XSetSelectionOwner, gxm_XSetSelectionOwner_w, 4, 0, 0, H_XSetSelectionOwner); - XM_DEFINE_PROCEDURE(XSetState, gxm_XSetState_w, 6, 0, 0, H_XSetState); - XM_DEFINE_PROCEDURE(XSetStipple, gxm_XSetStipple_w, 3, 0, 0, H_XSetStipple); - XM_DEFINE_PROCEDURE(XSetSubwindowMode, gxm_XSetSubwindowMode_w, 3, 0, 0, H_XSetSubwindowMode); - XM_DEFINE_PROCEDURE(XSetTSOrigin, gxm_XSetTSOrigin_w, 4, 0, 0, H_XSetTSOrigin); - XM_DEFINE_PROCEDURE(XSetTile, gxm_XSetTile_w, 3, 0, 0, H_XSetTile); - XM_DEFINE_PROCEDURE(XSetWindowBackground, gxm_XSetWindowBackground_w, 3, 0, 0, H_XSetWindowBackground); - XM_DEFINE_PROCEDURE(XSetWindowBackgroundPixmap, gxm_XSetWindowBackgroundPixmap_w, 3, 0, 0, H_XSetWindowBackgroundPixmap); - XM_DEFINE_PROCEDURE(XSetWindowBorder, gxm_XSetWindowBorder_w, 3, 0, 0, H_XSetWindowBorder); - XM_DEFINE_PROCEDURE(XSetWindowBorderPixmap, gxm_XSetWindowBorderPixmap_w, 3, 0, 0, H_XSetWindowBorderPixmap); - XM_DEFINE_PROCEDURE(XSetWindowBorderWidth, gxm_XSetWindowBorderWidth_w, 3, 0, 0, H_XSetWindowBorderWidth); - XM_DEFINE_PROCEDURE(XSetWindowColormap, gxm_XSetWindowColormap_w, 3, 0, 0, H_XSetWindowColormap); - XM_DEFINE_PROCEDURE(XStoreBuffer, gxm_XStoreBuffer_w, 4, 0, 0, H_XStoreBuffer); - XM_DEFINE_PROCEDURE(XStoreBytes, gxm_XStoreBytes_w, 3, 0, 0, H_XStoreBytes); - XM_DEFINE_PROCEDURE(XStoreColor, gxm_XStoreColor_w, 3, 0, 0, H_XStoreColor); - XM_DEFINE_PROCEDURE(XStoreColors, gxm_XStoreColors_w, 4, 0, 0, H_XStoreColors); - XM_DEFINE_PROCEDURE(XStoreName, gxm_XStoreName_w, 3, 0, 0, H_XStoreName); - XM_DEFINE_PROCEDURE(XStoreNamedColor, gxm_XStoreNamedColor_w, 5, 0, 0, H_XStoreNamedColor); - XM_DEFINE_PROCEDURE(XSync, gxm_XSync_w, 2, 0, 0, H_XSync); - XM_DEFINE_PROCEDURE(XTextExtents, gxm_XTextExtents_w, 3, 0, 0, H_XTextExtents); - XM_DEFINE_PROCEDURE(XTextWidth, gxm_XTextWidth_w, 3, 0, 0, H_XTextWidth); - XM_DEFINE_PROCEDURE(XTranslateCoordinates, gxm_XTranslateCoordinates_w, 5, 0, 0, H_XTranslateCoordinates); - XM_DEFINE_PROCEDURE(XUndefineCursor, gxm_XUndefineCursor_w, 2, 0, 0, H_XUndefineCursor); - XM_DEFINE_PROCEDURE(XUngrabButton, gxm_XUngrabButton_w, 4, 0, 0, H_XUngrabButton); - XM_DEFINE_PROCEDURE(XUngrabKey, gxm_XUngrabKey_w, 4, 0, 0, H_XUngrabKey); - XM_DEFINE_PROCEDURE(XUngrabKeyboard, gxm_XUngrabKeyboard_w, 2, 0, 0, H_XUngrabKeyboard); - XM_DEFINE_PROCEDURE(XUngrabPointer, gxm_XUngrabPointer_w, 2, 0, 0, H_XUngrabPointer); - XM_DEFINE_PROCEDURE(XUngrabServer, gxm_XUngrabServer_w, 1, 0, 0, H_XUngrabServer); - XM_DEFINE_PROCEDURE(XUninstallColormap, gxm_XUninstallColormap_w, 2, 0, 0, H_XUninstallColormap); - XM_DEFINE_PROCEDURE(XUnloadFont, gxm_XUnloadFont_w, 2, 0, 0, H_XUnloadFont); - XM_DEFINE_PROCEDURE(XUnmapSubwindows, gxm_XUnmapSubwindows_w, 2, 0, 0, H_XUnmapSubwindows); - XM_DEFINE_PROCEDURE(XUnmapWindow, gxm_XUnmapWindow_w, 2, 0, 0, H_XUnmapWindow); - XM_DEFINE_PROCEDURE(XVendorRelease, gxm_XVendorRelease_w, 1, 0, 0, H_VendorRelease); - XM_DEFINE_PROCEDURE(XWarpPointer, gxm_XWarpPointer_w, 9, 0, 0, H_XWarpPointer); - XM_DEFINE_PROCEDURE(XWidthMMOfScreen, gxm_XWidthMMOfScreen_w, 1, 0, 0, H_WidthMMOfScreen); - XM_DEFINE_PROCEDURE(XWidthOfScreen, gxm_XWidthOfScreen_w, 1, 0, 0, H_WidthOfScreen); - XM_DEFINE_PROCEDURE(XWindowEvent, gxm_XWindowEvent_w, 3, 0, 0, H_XWindowEvent); - XM_DEFINE_PROCEDURE(XWriteBitmapFile, gxm_XWriteBitmapFile_w, 7, 0, 0, H_XWriteBitmapFile); - XM_DEFINE_PROCEDURE(XSupportsLocale, gxm_XSupportsLocale_w, 0, 0, 0, H_XSupportsLocale); - XM_DEFINE_PROCEDURE(XSetLocaleModifiers, gxm_XSetLocaleModifiers_w, 1, 0, 0, H_XSetLocaleModifiers); - XM_DEFINE_PROCEDURE(XCreateFontSet, gxm_XCreateFontSet_w, 2, 0, 0, H_XCreateFontSet); - XM_DEFINE_PROCEDURE(XFreeFontSet, gxm_XFreeFontSet_w, 2, 0, 0, H_XFreeFontSet); - XM_DEFINE_PROCEDURE(XFontsOfFontSet, gxm_XFontsOfFontSet_w, 1, 0, 0, H_XFontsOfFontSet); - XM_DEFINE_PROCEDURE(XBaseFontNameListOfFontSet, gxm_XBaseFontNameListOfFontSet_w, 1, 0, 0, H_XBaseFontNameListOfFontSet); - XM_DEFINE_PROCEDURE(XLocaleOfFontSet, gxm_XLocaleOfFontSet_w, 1, 0, 0, H_XLocaleOfFontSet); - XM_DEFINE_PROCEDURE(XContextDependentDrawing, gxm_XContextDependentDrawing_w, 1, 0, 0, H_XContextDependentDrawing); - XM_DEFINE_PROCEDURE(XDirectionalDependentDrawing, gxm_XDirectionalDependentDrawing_w, 1, 0, 0, H_XDirectionalDependentDrawing); - XM_DEFINE_PROCEDURE(XContextualDrawing, gxm_XContextualDrawing_w, 1, 0, 0, H_XContextualDrawing); - XM_DEFINE_PROCEDURE(XFilterEvent, gxm_XFilterEvent_w, 2, 0, 0, H_XFilterEvent); - XM_DEFINE_PROCEDURE(XAllocIconSize, gxm_XAllocIconSize_w, 0, 0, 0, H_XAllocIconSize); - XM_DEFINE_PROCEDURE(XAllocStandardColormap, gxm_XAllocStandardColormap_w, 0, 0, 0, H_XAllocStandardColormap); - XM_DEFINE_PROCEDURE(XAllocWMHints, gxm_XAllocWMHints_w, 0, 0, 0, H_XAllocWMHints); - XM_DEFINE_PROCEDURE(XClipBox, gxm_XClipBox_w, 1, 0, 0, H_XClipBox); - XM_DEFINE_PROCEDURE(XCreateRegion, gxm_XCreateRegion_w, 0, 0, 0, H_XCreateRegion); - XM_DEFINE_PROCEDURE(XDefaultString, gxm_XDefaultString_w, 0, 0, 0, H_XDefaultString); - XM_DEFINE_PROCEDURE(XDeleteContext, gxm_XDeleteContext_w, 3, 0, 0, H_XDeleteContext); - XM_DEFINE_PROCEDURE(XDestroyRegion, gxm_XDestroyRegion_w, 1, 0, 0, H_XDestroyRegion); - XM_DEFINE_PROCEDURE(XEmptyRegion, gxm_XEmptyRegion_w, 1, 0, 0, H_XEmptyRegion); - XM_DEFINE_PROCEDURE(XEqualRegion, gxm_XEqualRegion_w, 2, 0, 0, H_XEqualRegion); - XM_DEFINE_PROCEDURE(XFindContext, gxm_XFindContext_w, 3, 0, 0, H_XFindContext); - XM_DEFINE_PROCEDURE(XGetIconSizes, gxm_XGetIconSizes_w, 2, 0, 0, H_XGetIconSizes); - XM_DEFINE_PROCEDURE(XGetRGBColormaps, gxm_XGetRGBColormaps_w, 3, 0, 0, H_XGetRGBColormaps); - XM_DEFINE_PROCEDURE(XGetVisualInfo, gxm_XGetVisualInfo_w, 3, 0, 0, H_XGetVisualInfo); - XM_DEFINE_PROCEDURE(XGetWMHints, gxm_XGetWMHints_w, 2, 0, 0, H_XGetWMHints); - XM_DEFINE_PROCEDURE(XIntersectRegion, gxm_XIntersectRegion_w, 3, 0, 0, H_XIntersectRegion); - XM_DEFINE_PROCEDURE(XConvertCase, gxm_XConvertCase_w, 1, 0, 0, H_XConvertCase); - XM_DEFINE_PROCEDURE(XLookupString, gxm_XLookupString_w, 1, 0, 0, H_XLookupString); - XM_DEFINE_PROCEDURE(XMatchVisualInfo, gxm_XMatchVisualInfo_w, 4, 0, 0, H_XMatchVisualInfo); - XM_DEFINE_PROCEDURE(XOffsetRegion, gxm_XOffsetRegion_w, 3, 0, 0, H_XOffsetRegion); - XM_DEFINE_PROCEDURE(XPointInRegion, gxm_XPointInRegion_w, 3, 0, 0, H_XPointInRegion); - XM_DEFINE_PROCEDURE(XPolygonRegion, gxm_XPolygonRegion_w, 3, 0, 0, H_XPolygonRegion); - XM_DEFINE_PROCEDURE(XRectInRegion, gxm_XRectInRegion_w, 5, 0, 0, H_XRectInRegion); - XM_DEFINE_PROCEDURE(XSaveContext, gxm_XSaveContext_w, 4, 0, 0, H_XSaveContext); - XM_DEFINE_PROCEDURE(XSetRGBColormaps, gxm_XSetRGBColormaps_w, 5, 0, 0, H_XSetRGBColormaps); - XM_DEFINE_PROCEDURE(XSetWMHints, gxm_XSetWMHints_w, 3, 0, 0, H_XSetWMHints); - XM_DEFINE_PROCEDURE(XSetRegion, gxm_XSetRegion_w, 3, 0, 0, H_XSetRegion); - XM_DEFINE_PROCEDURE(XSetWMProperties, gxm_XSetWMProperties_w, 8, 0, 0, H_XSetWMProperties); - XM_DEFINE_PROCEDURE(XShrinkRegion, gxm_XShrinkRegion_w, 3, 0, 0, H_XShrinkRegion); - XM_DEFINE_PROCEDURE(XSubtractRegion, gxm_XSubtractRegion_w, 3, 0, 0, H_XSubtractRegion); - XM_DEFINE_PROCEDURE(XUnionRectWithRegion, gxm_XUnionRectWithRegion_w, 3, 0, 0, H_XUnionRectWithRegion); - XM_DEFINE_PROCEDURE(XUnionRegion, gxm_XUnionRegion_w, 3, 0, 0, H_XUnionRegion); - XM_DEFINE_PROCEDURE(XXorRegion, gxm_XXorRegion_w, 3, 0, 0, H_XXorRegion); - - XM_DEFINE_PROCEDURE(DefaultScreen, gxm_DefaultScreen_w, 1, 0, 0, H_DefaultScreen); - XM_DEFINE_PROCEDURE(DefaultRootWindow, gxm_DefaultRootWindow_w, 1, 0, 0, H_DefaultRootWindow); - XM_DEFINE_PROCEDURE(QLength, gxm_QLength_w, 1, 0, 0, H_QLength); - XM_DEFINE_PROCEDURE(ScreenCount, gxm_ScreenCount_w, 1, 0, 0, H_ScreenCount); - XM_DEFINE_PROCEDURE(ServerVendor, gxm_ServerVendor_w, 1, 0, 0, H_ServerVendor); - XM_DEFINE_PROCEDURE(ProtocolVersion, gxm_ProtocolVersion_w, 1, 0, 0, H_ProtocolVersion); - XM_DEFINE_PROCEDURE(ProtocolRevision, gxm_ProtocolRevision_w, 1, 0, 0, H_ProtocolRevision); - XM_DEFINE_PROCEDURE(VendorRelease, gxm_VendorRelease_w, 1, 0, 0, H_VendorRelease); - XM_DEFINE_PROCEDURE(DisplayString, gxm_DisplayString_w, 1, 0, 0, H_DisplayString); - XM_DEFINE_PROCEDURE(BitmapUnit, gxm_BitmapUnit_w, 1, 0, 0, H_BitmapUnit); - XM_DEFINE_PROCEDURE(BitmapBitOrder, gxm_BitmapBitOrder_w, 1, 0, 0, H_BitmapBitOrder); - XM_DEFINE_PROCEDURE(BitmapPad, gxm_BitmapPad_w, 1, 0, 0, H_BitmapPad); - XM_DEFINE_PROCEDURE(ImageByteOrder, gxm_ImageByteOrder_w, 1, 0, 0, H_ImageByteOrder); - XM_DEFINE_PROCEDURE(NextRequest, gxm_NextRequest_w, 1, 0, 0, H_NextRequest); - XM_DEFINE_PROCEDURE(LastKnownRequestProcessed, gxm_LastKnownRequestProcessed_w, 1, 0, 0, H_LastKnownRequestProcessed); - XM_DEFINE_PROCEDURE(DefaultScreenOfDisplay, gxm_DefaultScreenOfDisplay_w, 1, 0, 0, H_DefaultScreenOfDisplay); - XM_DEFINE_PROCEDURE(DisplayOfScreen, gxm_DisplayOfScreen_w, 1, 0, 0, H_DisplayOfScreen); - XM_DEFINE_PROCEDURE(RootWindowOfScreen, gxm_RootWindowOfScreen_w, 1, 0, 0, H_RootWindowOfScreen); - XM_DEFINE_PROCEDURE(BlackPixelOfScreen, gxm_BlackPixelOfScreen_w, 1, 0, 0, H_BlackPixelOfScreen); - XM_DEFINE_PROCEDURE(WhitePixelOfScreen, gxm_WhitePixelOfScreen_w, 1, 0, 0, H_WhitePixelOfScreen); - XM_DEFINE_PROCEDURE(DefaultColormapOfScreen, gxm_DefaultColormapOfScreen_w, 1, 0, 0, H_DefaultColormapOfScreen); - XM_DEFINE_PROCEDURE(DefaultDepthOfScreen, gxm_DefaultDepthOfScreen_w, 1, 0, 0, H_DefaultDepthOfScreen); - XM_DEFINE_PROCEDURE(DefaultGCOfScreen, gxm_DefaultGCOfScreen_w, 1, 0, 0, H_DefaultGCOfScreen); - XM_DEFINE_PROCEDURE(DefaultVisualOfScreen, gxm_DefaultVisualOfScreen_w, 1, 0, 0, H_DefaultVisualOfScreen); - XM_DEFINE_PROCEDURE(WidthOfScreen, gxm_WidthOfScreen_w, 1, 0, 0, H_WidthOfScreen); - XM_DEFINE_PROCEDURE(HeightOfScreen, gxm_HeightOfScreen_w, 1, 0, 0, H_HeightOfScreen); - XM_DEFINE_PROCEDURE(WidthMMOfScreen, gxm_WidthMMOfScreen_w, 1, 0, 0, H_WidthMMOfScreen); - XM_DEFINE_PROCEDURE(HeightMMOfScreen, gxm_HeightMMOfScreen_w, 1, 0, 0, H_HeightMMOfScreen); - XM_DEFINE_PROCEDURE(PlanesOfScreen, gxm_PlanesOfScreen_w, 1, 0, 0, H_PlanesOfScreen); - XM_DEFINE_PROCEDURE(CellsOfScreen, gxm_CellsOfScreen_w, 1, 0, 0, H_CellsOfScreen); - XM_DEFINE_PROCEDURE(MinCmapsOfScreen, gxm_MinCmapsOfScreen_w, 1, 0, 0, H_MinCmapsOfScreen); - XM_DEFINE_PROCEDURE(MaxCmapsOfScreen, gxm_MaxCmapsOfScreen_w, 1, 0, 0, H_MaxCmapsOfScreen); - XM_DEFINE_PROCEDURE(DoesSaveUnders, gxm_DoesSaveUnders_w, 1, 0, 0, H_DoesSaveUnders); - XM_DEFINE_PROCEDURE(DoesBackingStore, gxm_DoesBackingStore_w, 1, 0, 0, H_DoesBackingStore); - XM_DEFINE_PROCEDURE(EventMaskOfScreen, gxm_EventMaskOfScreen_w, 1, 0, 0, H_EventMaskOfScreen); - XM_DEFINE_PROCEDURE(RootWindow, gxm_RootWindow_w, 2, 0, 0, H_RootWindow); - XM_DEFINE_PROCEDURE(DefaultVisual, gxm_DefaultVisual_w, 2, 0, 0, H_DefaultVisual); - XM_DEFINE_PROCEDURE(DefaultGC, gxm_DefaultGC_w, 2, 0, 0, H_DefaultGC); - XM_DEFINE_PROCEDURE(BlackPixel, gxm_BlackPixel_w, 2, 0, 0, H_BlackPixel); - XM_DEFINE_PROCEDURE(WhitePixel, gxm_WhitePixel_w, 2, 0, 0, H_WhitePixel); - XM_DEFINE_PROCEDURE(DisplayWidth, gxm_DisplayWidth_w, 2, 0, 0, H_DisplayWidth); - XM_DEFINE_PROCEDURE(DisplayHeight, gxm_DisplayHeight_w, 2, 0, 0, H_DisplayHeight); - XM_DEFINE_PROCEDURE(DisplayWidthMM, gxm_DisplayWidthMM_w, 2, 0, 0, H_DisplayWidthMM); - XM_DEFINE_PROCEDURE(DisplayHeightMM, gxm_DisplayHeightMM_w, 2, 0, 0, H_DisplayHeightMM); - XM_DEFINE_PROCEDURE(DisplayPlanes, gxm_DisplayPlanes_w, 2, 0, 0, H_DisplayPlanes); - XM_DEFINE_PROCEDURE(DisplayCells, gxm_DisplayCells_w, 2, 0, 0, H_DisplayCells); - XM_DEFINE_PROCEDURE(DefaultColormap, gxm_DefaultColormap_w, 2, 0, 0, H_DefaultColormap); - XM_DEFINE_PROCEDURE(ScreenOfDisplay, gxm_ScreenOfDisplay_w, 2, 0, 0, H_ScreenOfDisplay); - XM_DEFINE_PROCEDURE(DefaultDepth, gxm_DefaultDepth_w, 2, 0, 0, H_DefaultDepth); - - XM_DEFINE_PROCEDURE(IsKeypadKey, gxm_IsKeypadKey_w, 1, 0, 0, H_IsKeypadKey); - XM_DEFINE_PROCEDURE(IsPrivateKeypadKey, gxm_IsPrivateKeypadKey_w, 1, 0, 0, H_IsPrivateKeypadKey); - XM_DEFINE_PROCEDURE(IsCursorKey, gxm_IsCursorKey_w, 1, 0, 0, H_IsCursorKey); - XM_DEFINE_PROCEDURE(IsPFKey, gxm_IsPFKey_w, 1, 0, 0, H_IsPFKey); - XM_DEFINE_PROCEDURE(IsFunctionKey, gxm_IsFunctionKey_w, 1, 0, 0, H_IsFunctionKey); - XM_DEFINE_PROCEDURE(IsMiscFunctionKey, gxm_IsMiscFunctionKey_w, 1, 0, 0, H_IsMiscFunctionKey); - XM_DEFINE_PROCEDURE(IsModifierKey, gxm_IsModifierKey_w, 1, 0, 0, H_IsModifierKey); - - XM_DEFINE_PROCEDURE(XButtonEvent?, XEN_XButtonEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XButtonEvent"); - XM_DEFINE_PROCEDURE(XCirculateEvent?, XEN_XCirculateEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XCirculateEvent"); - XM_DEFINE_PROCEDURE(XCirculateRequestEvent?, XEN_XCirculateRequestEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XCirculateRequestEvent"); - XM_DEFINE_PROCEDURE(XClientMessageEvent?, XEN_XClientMessageEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XClientMessageEvent"); - XM_DEFINE_PROCEDURE(XColormapEvent?, XEN_XColormapEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XColormapEvent"); - XM_DEFINE_PROCEDURE(XConfigureEvent?, XEN_XConfigureEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XConfigureEvent"); - XM_DEFINE_PROCEDURE(XConfigureRequestEvent?, XEN_XConfigureRequestEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XConfigureRequestEvent"); - XM_DEFINE_PROCEDURE(XCreateWindowEvent?, XEN_XCreateWindowEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XCreateWindowEvent"); - XM_DEFINE_PROCEDURE(XCrossingEvent?, XEN_XCrossingEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XCrossingEvent"); - XM_DEFINE_PROCEDURE(XDestroyWindowEvent?, XEN_XDestroyWindowEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XDestroyWindowEvent"); - XM_DEFINE_PROCEDURE(XErrorEvent?, XEN_XErrorEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XErrorEvent"); - XM_DEFINE_PROCEDURE(XExposeEvent?, XEN_XExposeEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XExposeEvent"); - XM_DEFINE_PROCEDURE(XFocusChangeEvent?, XEN_XFocusChangeEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XFocusChangeEvent"); - XM_DEFINE_PROCEDURE(XGraphicsExposeEvent?, XEN_XGraphicsExposeEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XGraphicsExposeEvent"); - XM_DEFINE_PROCEDURE(XGravityEvent?, XEN_XGravityEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XGravityEvent"); - XM_DEFINE_PROCEDURE(XKeyEvent?, XEN_XKeyEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XKeyEvent"); - XM_DEFINE_PROCEDURE(XKeymapEvent?, XEN_XKeymapEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XKeymapEvent"); - XM_DEFINE_PROCEDURE(XMapEvent?, XEN_XMapEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XMapEvent"); - XM_DEFINE_PROCEDURE(XMapRequestEvent?, XEN_XMapRequestEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XMapRequestEvent"); - XM_DEFINE_PROCEDURE(XMappingEvent?, XEN_XMappingEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XMappingEvent"); - XM_DEFINE_PROCEDURE(XMotionEvent?, XEN_XMotionEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XMotionEvent"); - XM_DEFINE_PROCEDURE(XNoExposeEvent?, XEN_XNoExposeEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XNoExposeEvent"); - XM_DEFINE_PROCEDURE(XPropertyEvent?, XEN_XPropertyEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XPropertyEvent"); - XM_DEFINE_PROCEDURE(XReparentEvent?, XEN_XReparentEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XReparentEvent"); - XM_DEFINE_PROCEDURE(XResizeRequestEvent?, XEN_XResizeRequestEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XResizeRequestEvent"); - XM_DEFINE_PROCEDURE(XSelectionClearEvent?, XEN_XSelectionClearEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XSelectionClearEvent"); - XM_DEFINE_PROCEDURE(XSelectionEvent?, XEN_XSelectionEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XSelectionEvent"); - XM_DEFINE_PROCEDURE(XSelectionRequestEvent?, XEN_XSelectionRequestEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XSelectionRequestEvent"); - XM_DEFINE_PROCEDURE(XSetWindowAttributes?, XEN_XSetWindowAttributes_p_w, 1, 0, 0, PROC_TRUE " if arg is a XSetWindowAttributes"); - XM_DEFINE_PROCEDURE(XUnmapEvent?, XEN_XUnmapEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XUnmapEvent"); - XM_DEFINE_PROCEDURE(XVisibilityEvent?, XEN_XVisibilityEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XVisibilityEvent"); - XM_DEFINE_PROCEDURE(XIconSize?, XEN_XIconSize_p_w, 1, 0, 0, PROC_TRUE " if arg is a XIconSize object"); - -#if HAVE_MOTIF - XM_DEFINE_PROCEDURE(XmCreateMessageBox, gxm_XmCreateMessageBox_w, 3, 1, 0, H_XmCreateMessageBox); - XM_DEFINE_PROCEDURE(XmCreateMessageDialog, gxm_XmCreateMessageDialog_w, 3, 1, 0, H_XmCreateMessageDialog); - XM_DEFINE_PROCEDURE(XmCreateErrorDialog, gxm_XmCreateErrorDialog_w, 3, 1, 0, H_XmCreateErrorDialog); - XM_DEFINE_PROCEDURE(XmCreateInformationDialog, gxm_XmCreateInformationDialog_w, 3, 1, 0, H_XmCreateInformationDialog); - XM_DEFINE_PROCEDURE(XmCreateQuestionDialog, gxm_XmCreateQuestionDialog_w, 3, 1, 0, H_XmCreateQuestionDialog); - XM_DEFINE_PROCEDURE(XmCreateWarningDialog, gxm_XmCreateWarningDialog_w, 3, 1, 0, H_XmCreateWarningDialog); - XM_DEFINE_PROCEDURE(XmCreateWorkingDialog, gxm_XmCreateWorkingDialog_w, 3, 1, 0, H_XmCreateWorkingDialog); - XM_DEFINE_PROCEDURE(XmCreateTemplateDialog, gxm_XmCreateTemplateDialog_w, 3, 1, 0, H_XmCreateTemplateDialog); - XM_DEFINE_PROCEDURE(XmMessageBoxGetChild, gxm_XmMessageBoxGetChild_w, 2, 0, 0, H_XmMessageBoxGetChild); - XM_DEFINE_PROCEDURE(XmCreateArrowButtonGadget, gxm_XmCreateArrowButtonGadget_w, 3, 1, 0, H_XmCreateArrowButtonGadget); - XM_DEFINE_PROCEDURE(XmCreateArrowButton, gxm_XmCreateArrowButton_w, 3, 1, 0, H_XmCreateArrowButton); -#if HAVE_XmCreateFontSelector - XM_DEFINE_PROCEDURE(XmCreateFontSelector, gxm_XmCreateFontSelector_w, 3, 1, 0, H_XmCreateFontSelector); -#endif -#if HAVE_XmCreateColorSelector - XM_DEFINE_PROCEDURE(XmCreateColorSelector, gxm_XmCreateColorSelector_w, 3, 1, 0, H_XmCreateColorSelector); -#endif -#if HAVE_XmToolTipGetLabel - XM_DEFINE_PROCEDURE(XmToolTipGetLabel, gxm_XmToolTipGetLabel_w, 1, 0, 0, H_XmToolTipGetLabel); -#endif - XM_DEFINE_PROCEDURE(XmCreateNotebook, gxm_XmCreateNotebook_w, 3, 1, 0, H_XmCreateNotebook); - XM_DEFINE_PROCEDURE(XmNotebookGetPageInfo, gxm_XmNotebookGetPageInfo_w, 2, 0, 0, H_XmNotebookGetPageInfo); - XM_DEFINE_PROCEDURE(XmTransferSetParameters, gxm_XmTransferSetParameters_w, 5, 0, 0, H_XmTransferSetParameters); - XM_DEFINE_PROCEDURE(XmTransferDone, gxm_XmTransferDone_w, 2, 0, 0, H_XmTransferDone); - XM_DEFINE_PROCEDURE(XmTransferValue, gxm_XmTransferValue_w, 5, 0, 0, H_XmTransferValue); - XM_DEFINE_PROCEDURE(XmTransferStartRequest, gxm_XmTransferStartRequest_w, 1, 0, 0, H_XmTransferStartRequest); - XM_DEFINE_PROCEDURE(XmTransferSendRequest, gxm_XmTransferSendRequest_w, 2, 0, 0, H_XmTransferSendRequest); - XM_DEFINE_PROCEDURE(XmCreateComboBox, gxm_XmCreateComboBox_w, 3, 1, 0, H_XmCreateComboBox); - XM_DEFINE_PROCEDURE(XmCreateDropDownComboBox, gxm_XmCreateDropDownComboBox_w, 3, 1, 0, H_XmCreateDropDownComboBox); - XM_DEFINE_PROCEDURE(XmCreateDropDownList, gxm_XmCreateDropDownList_w, 3, 1, 0, H_XmCreateDropDownList); - XM_DEFINE_PROCEDURE(XmComboBoxAddItem, gxm_XmComboBoxAddItem_w, 4, 0, 0, H_XmComboBoxAddItem); - XM_DEFINE_PROCEDURE(XmComboBoxDeletePos, gxm_XmComboBoxDeletePos_w, 2, 0, 0, H_XmComboBoxDeletePos); - XM_DEFINE_PROCEDURE(XmComboBoxSelectItem, gxm_XmComboBoxSelectItem_w, 2, 0, 0, H_XmComboBoxSelectItem); - XM_DEFINE_PROCEDURE(XmComboBoxSetItem, gxm_XmComboBoxSetItem_w, 2, 0, 0, H_XmComboBoxSetItem); - XM_DEFINE_PROCEDURE(XmComboBoxUpdate, gxm_XmComboBoxUpdate_w, 1, 0, 0, H_XmComboBoxUpdate); - XM_DEFINE_PROCEDURE(XmCreateContainer, gxm_XmCreateContainer_w, 3, 1, 0, H_XmCreateContainer); - XM_DEFINE_PROCEDURE(XmContainerGetItemChildren, gxm_XmContainerGetItemChildren_w, 2, 0, 0, H_XmContainerGetItemChildren); - XM_DEFINE_PROCEDURE(XmContainerRelayout, gxm_XmContainerRelayout_w, 1, 0, 0, H_XmContainerRelayout); - XM_DEFINE_PROCEDURE(XmContainerReorder, gxm_XmContainerReorder_w, 3, 0, 0, H_XmContainerReorder); - XM_DEFINE_PROCEDURE(XmContainerCut, gxm_XmContainerCut_w, 2, 0, 0, H_XmContainerCut); - XM_DEFINE_PROCEDURE(XmContainerCopy, gxm_XmContainerCopy_w, 2, 0, 0, H_XmContainerCopy); - XM_DEFINE_PROCEDURE(XmContainerPaste, gxm_XmContainerPaste_w, 1, 0, 0, H_XmContainerPaste); - XM_DEFINE_PROCEDURE(XmContainerCopyLink, gxm_XmContainerCopyLink_w, 2, 0, 0, H_XmContainerCopyLink); - XM_DEFINE_PROCEDURE(XmContainerPasteLink, gxm_XmContainerPasteLink_w, 1, 0, 0, H_XmContainerPasteLink); - XM_DEFINE_PROCEDURE(XmCreateSpinBox, gxm_XmCreateSpinBox_w, 3, 1, 0, H_XmCreateSpinBox); - XM_DEFINE_PROCEDURE(XmSpinBoxValidatePosition, gxm_XmSpinBoxValidatePosition_w, 1, 0, 0, H_XmSpinBoxValidatePosition); - XM_DEFINE_PROCEDURE(XmCreateSimpleSpinBox, gxm_XmCreateSimpleSpinBox_w, 3, 1, 0, H_XmCreateSimpleSpinBox); - XM_DEFINE_PROCEDURE(XmSimpleSpinBoxAddItem, gxm_XmSimpleSpinBoxAddItem_w, 3, 0, 0, H_XmSimpleSpinBoxAddItem); - XM_DEFINE_PROCEDURE(XmSimpleSpinBoxDeletePos, gxm_XmSimpleSpinBoxDeletePos_w, 2, 0, 0, H_XmSimpleSpinBoxDeletePos); - XM_DEFINE_PROCEDURE(XmSimpleSpinBoxSetItem, gxm_XmSimpleSpinBoxSetItem_w, 2, 0, 0, H_XmSimpleSpinBoxSetItem); - XM_DEFINE_PROCEDURE(XmDropSiteRegistered, gxm_XmDropSiteRegistered_w, 1, 0, 0, H_XmDropSiteRegistered); - XM_DEFINE_PROCEDURE(XmTextFieldCopyLink, gxm_XmTextFieldCopyLink_w, 2, 0, 0, H_XmTextFieldCopyLink); - XM_DEFINE_PROCEDURE(XmTextFieldPasteLink, gxm_XmTextFieldPasteLink_w, 1, 0, 0, H_XmTextFieldPasteLink); - XM_DEFINE_PROCEDURE(XmTextGetCenterline, gxm_XmTextGetCenterline_w, 1, 0, 0, H_XmTextGetCenterline); - XM_DEFINE_PROCEDURE(XmToggleButtonGadgetSetValue, gxm_XmToggleButtonGadgetSetValue_w, 3, 0, 0, H_XmToggleButtonGadgetSetValue); - XM_DEFINE_PROCEDURE(XmCreateIconGadget, gxm_XmCreateIconGadget_w, 3, 1, 0, H_XmCreateIconGadget); - XM_DEFINE_PROCEDURE(XmCreateIconHeader, gxm_XmCreateIconHeader_w, 3, 1, 0, H_XmCreateIconHeader); - XM_DEFINE_PROCEDURE(XmObjectAtPoint, gxm_XmObjectAtPoint_w, 3, 0, 0, H_XmObjectAtPoint); - XM_DEFINE_PROCEDURE(XmConvertStringToUnits, gxm_XmConvertStringToUnits_w, 4, 0, 0, H_XmConvertStringToUnits); - XM_DEFINE_PROCEDURE(XmCreateGrabShell, gxm_XmCreateGrabShell_w, 3, 1, 0, H_XmCreateGrabShell); - XM_DEFINE_PROCEDURE(XmToggleButtonSetValue, gxm_XmToggleButtonSetValue_w, 3, 0, 0, H_XmToggleButtonSetValue); - XM_DEFINE_PROCEDURE(XmTextPasteLink, gxm_XmTextPasteLink_w, 1, 0, 0, H_XmTextPasteLink); - XM_DEFINE_PROCEDURE(XmTextCopyLink, gxm_XmTextCopyLink_w, 2, 0, 0, H_XmTextCopyLink); - XM_DEFINE_PROCEDURE(XmScaleSetTicks, gxm_XmScaleSetTicks_w, 7, 0, 0, H_XmScaleSetTicks); - XM_DEFINE_PROCEDURE(XmInternAtom, gxm_XmInternAtom_w, 3, 0, 0, H_XmInternAtom); - XM_DEFINE_PROCEDURE(XmGetAtomName, gxm_XmGetAtomName_w, 2, 0, 0, H_XmGetAtomName); - XM_DEFINE_PROCEDURE(XmCreatePanedWindow, gxm_XmCreatePanedWindow_w, 3, 1, 0, H_XmCreatePanedWindow); - XM_DEFINE_PROCEDURE(XmCreateBulletinBoard, gxm_XmCreateBulletinBoard_w, 3, 1, 0, H_XmCreateBulletinBoard); - XM_DEFINE_PROCEDURE(XmCreateBulletinBoardDialog, gxm_XmCreateBulletinBoardDialog_w, 3, 1, 0, H_XmCreateBulletinBoardDialog); - XM_DEFINE_PROCEDURE(XmCreateCascadeButtonGadget, gxm_XmCreateCascadeButtonGadget_w, 3, 1, 0, H_XmCreateCascadeButtonGadget); - XM_DEFINE_PROCEDURE(XmCascadeButtonGadgetHighlight, gxm_XmCascadeButtonGadgetHighlight_w, 2, 0, 0, H_XmCascadeButtonGadgetHighlight); - XM_DEFINE_PROCEDURE(XmAddProtocols, gxm_XmAddProtocols_w, 3, 1, 0, H_XmAddProtocols); - XM_DEFINE_PROCEDURE(XmRemoveProtocols, gxm_XmRemoveProtocols_w, 3, 1, 0, H_XmRemoveProtocols); - XM_DEFINE_PROCEDURE(XmAddProtocolCallback, gxm_XmAddProtocolCallback_w, 5, 0, 0, H_XmAddProtocolCallback); - XM_DEFINE_PROCEDURE(XmRemoveProtocolCallback, gxm_XmRemoveProtocolCallback_w, 5, 0, 0, H_XmRemoveProtocolCallback); - XM_DEFINE_PROCEDURE(XmActivateProtocol, gxm_XmActivateProtocol_w, 3, 0, 0, H_XmActivateProtocol); - XM_DEFINE_PROCEDURE(XmDeactivateProtocol, gxm_XmDeactivateProtocol_w, 3, 0, 0, H_XmDeactivateProtocol); - XM_DEFINE_PROCEDURE(XmSetProtocolHooks, gxm_XmSetProtocolHooks_w, 7, 0, 0, H_XmSetProtocolHooks); - XM_DEFINE_PROCEDURE(XmCreateCascadeButton, gxm_XmCreateCascadeButton_w, 3, 1, 0, H_XmCreateCascadeButton); - XM_DEFINE_PROCEDURE(XmCascadeButtonHighlight, gxm_XmCascadeButtonHighlight_w, 2, 0, 0, H_XmCascadeButtonHighlight); - XM_DEFINE_PROCEDURE(XmCreatePushButtonGadget, gxm_XmCreatePushButtonGadget_w, 3, 1, 0, H_XmCreatePushButtonGadget); - XM_DEFINE_PROCEDURE(XmCreatePushButton, gxm_XmCreatePushButton_w, 3, 1, 0, H_XmCreatePushButton); - XM_DEFINE_PROCEDURE(XmCreateCommand, gxm_XmCreateCommand_w, 3, 1, 0, H_XmCreateCommand); - XM_DEFINE_PROCEDURE(XmCommandGetChild, gxm_XmCommandGetChild_w, 2, 0, 0, H_XmCommandGetChild); - XM_DEFINE_PROCEDURE(XmCommandSetValue, gxm_XmCommandSetValue_w, 2, 0, 0, H_XmCommandSetValue); - XM_DEFINE_PROCEDURE(XmCommandAppendValue, gxm_XmCommandAppendValue_w, 2, 0, 0, H_XmCommandAppendValue); - XM_DEFINE_PROCEDURE(XmCommandError, gxm_XmCommandError_w, 2, 0, 0, H_XmCommandError); - XM_DEFINE_PROCEDURE(XmCreateCommandDialog, gxm_XmCreateCommandDialog_w, 3, 1, 0, H_XmCreateCommandDialog); - XM_DEFINE_PROCEDURE(XmMenuPosition, gxm_XmMenuPosition_w, 2, 0, 0, H_XmMenuPosition); - XM_DEFINE_PROCEDURE(XmCreateRowColumn, gxm_XmCreateRowColumn_w, 3, 1, 0, H_XmCreateRowColumn); - XM_DEFINE_PROCEDURE(XmCreateWorkArea, gxm_XmCreateWorkArea_w, 3, 1, 0, H_XmCreateWorkArea); - XM_DEFINE_PROCEDURE(XmCreateRadioBox, gxm_XmCreateRadioBox_w, 3, 1, 0, H_XmCreateRadioBox); - XM_DEFINE_PROCEDURE(XmCreateOptionMenu, gxm_XmCreateOptionMenu_w, 3, 1, 0, H_XmCreateOptionMenu); - XM_DEFINE_PROCEDURE(XmOptionLabelGadget, gxm_XmOptionLabelGadget_w, 1, 0, 0, H_XmOptionLabelGadget); - XM_DEFINE_PROCEDURE(XmOptionButtonGadget, gxm_XmOptionButtonGadget_w, 1, 0, 0, H_XmOptionButtonGadget); - XM_DEFINE_PROCEDURE(XmCreateMenuBar, gxm_XmCreateMenuBar_w, 3, 1, 0, H_XmCreateMenuBar); - XM_DEFINE_PROCEDURE(XmCreatePopupMenu, gxm_XmCreatePopupMenu_w, 3, 1, 0, H_XmCreatePopupMenu); - XM_DEFINE_PROCEDURE(XmCreatePulldownMenu, gxm_XmCreatePulldownMenu_w, 3, 1, 0, H_XmCreatePulldownMenu); - XM_DEFINE_PROCEDURE(XmGetPostedFromWidget, gxm_XmGetPostedFromWidget_w, 1, 0, 0, H_XmGetPostedFromWidget); - XM_DEFINE_PROCEDURE(XmGetTearOffControl, gxm_XmGetTearOffControl_w, 1, 0, 0, H_XmGetTearOffControl); - XM_DEFINE_PROCEDURE(XmScaleSetValue, gxm_XmScaleSetValue_w, 2, 0, 0, H_XmScaleSetValue); - XM_DEFINE_PROCEDURE(XmScaleGetValue, gxm_XmScaleGetValue_w, 1, 0, 0, H_XmScaleGetValue); - XM_DEFINE_PROCEDURE(XmCreateScale, gxm_XmCreateScale_w, 3, 1, 0, H_XmCreateScale); - XM_DEFINE_PROCEDURE(XmClipboardBeginCopy, gxm_XmClipboardBeginCopy_w, 5, 0, 0, H_XmClipboardBeginCopy); - XM_DEFINE_PROCEDURE(XmWidgetGetDisplayRect, gxm_XmWidgetGetDisplayRect_w, 1, 0, 0, H_XmWidgetGetDisplayRect); - XM_DEFINE_PROCEDURE(XmClipboardStartCopy, gxm_XmClipboardStartCopy_w, 6, 0, 0, H_XmClipboardStartCopy); - XM_DEFINE_PROCEDURE(XmClipboardCopy, gxm_XmClipboardCopy_w, 7, 0, 0, H_XmClipboardCopy); - XM_DEFINE_PROCEDURE(XmClipboardEndCopy, gxm_XmClipboardEndCopy_w, 3, 0, 0, H_XmClipboardEndCopy); - XM_DEFINE_PROCEDURE(XmClipboardCancelCopy, gxm_XmClipboardCancelCopy_w, 3, 0, 0, H_XmClipboardCancelCopy); - XM_DEFINE_PROCEDURE(XmClipboardWithdrawFormat, gxm_XmClipboardWithdrawFormat_w, 3, 0, 0, H_XmClipboardWithdrawFormat); - XM_DEFINE_PROCEDURE(XmClipboardCopyByName, gxm_XmClipboardCopyByName_w, 6, 0, 0, H_XmClipboardCopyByName); - XM_DEFINE_PROCEDURE(XmClipboardUndoCopy, gxm_XmClipboardUndoCopy_w, 2, 0, 0, H_XmClipboardUndoCopy); - XM_DEFINE_PROCEDURE(XmClipboardLock, gxm_XmClipboardLock_w, 2, 0, 0, H_XmClipboardLock); - XM_DEFINE_PROCEDURE(XmClipboardUnlock, gxm_XmClipboardUnlock_w, 3, 0, 0, H_XmClipboardUnlock); - XM_DEFINE_PROCEDURE(XmClipboardStartRetrieve, gxm_XmClipboardStartRetrieve_w, 3, 0, 0, H_XmClipboardStartRetrieve); - XM_DEFINE_PROCEDURE(XmClipboardEndRetrieve, gxm_XmClipboardEndRetrieve_w, 2, 0, 0, H_XmClipboardEndRetrieve); - XM_DEFINE_PROCEDURE(XmClipboardRetrieve, gxm_XmClipboardRetrieve_w, 4, 0, 0, H_XmClipboardRetrieve); - XM_DEFINE_PROCEDURE(XmClipboardInquireCount, gxm_XmClipboardInquireCount_w, 2, 0, 0, H_XmClipboardInquireCount); - XM_DEFINE_PROCEDURE(XmClipboardInquireFormat, gxm_XmClipboardInquireFormat_w, 4, 0, 0, H_XmClipboardInquireFormat); - XM_DEFINE_PROCEDURE(XmClipboardInquireLength, gxm_XmClipboardInquireLength_w, 3, 0, 0, H_XmClipboardInquireLength); - XM_DEFINE_PROCEDURE(XmClipboardInquirePendingItems, gxm_XmClipboardInquirePendingItems_w, 3, 0, 0, H_XmClipboardInquirePendingItems); - XM_DEFINE_PROCEDURE(XmClipboardRegisterFormat, gxm_XmClipboardRegisterFormat_w, 3, 0, 0, H_XmClipboardRegisterFormat); - XM_DEFINE_PROCEDURE(XmGetXmScreen, gxm_XmGetXmScreen_w, 1, 0, 0, H_XmGetXmScreen); - XM_DEFINE_PROCEDURE(XmCreateScrollBar, gxm_XmCreateScrollBar_w, 3, 1, 0, H_XmCreateScrollBar); - XM_DEFINE_PROCEDURE(XmScrollBarGetValues, gxm_XmScrollBarGetValues_w, 1, 0, 0, H_XmScrollBarGetValues); - XM_DEFINE_PROCEDURE(XmScrollBarSetValues, gxm_XmScrollBarSetValues_w, 6, 0, 0, H_XmScrollBarSetValues); - XM_DEFINE_PROCEDURE(XmCreateDialogShell, gxm_XmCreateDialogShell_w, 3, 1, 0, H_XmCreateDialogShell); - XM_DEFINE_PROCEDURE(XmCreateScrolledWindow, gxm_XmCreateScrolledWindow_w, 3, 1, 0, H_XmCreateScrolledWindow); - XM_DEFINE_PROCEDURE(XmScrollVisible, gxm_XmScrollVisible_w, 4, 0, 0, H_XmScrollVisible); - XM_DEFINE_PROCEDURE(XmGetDragContext, gxm_XmGetDragContext_w, 2, 0, 0, H_XmGetDragContext); - XM_DEFINE_PROCEDURE(XmGetXmDisplay, gxm_XmGetXmDisplay_w, 1, 0, 0, H_XmGetXmDisplay); - XM_DEFINE_PROCEDURE(XmSelectionBoxGetChild, gxm_XmSelectionBoxGetChild_w, 2, 0, 0, H_XmSelectionBoxGetChild); - XM_DEFINE_PROCEDURE(XmCreateSelectionBox, gxm_XmCreateSelectionBox_w, 3, 1, 0, H_XmCreateSelectionBox); - XM_DEFINE_PROCEDURE(XmCreateSelectionDialog, gxm_XmCreateSelectionDialog_w, 3, 1, 0, H_XmCreateSelectionDialog); - XM_DEFINE_PROCEDURE(XmCreatePromptDialog, gxm_XmCreatePromptDialog_w, 3, 1, 0, H_XmCreatePromptDialog); - XM_DEFINE_PROCEDURE(XmDragStart, gxm_XmDragStart_w, 3, 1, 0, H_XmDragStart); - XM_DEFINE_PROCEDURE(XmDragCancel, gxm_XmDragCancel_w, 1, 0, 0, H_XmDragCancel); - XM_DEFINE_PROCEDURE(XmTargetsAreCompatible, gxm_XmTargetsAreCompatible_w, 5, 0, 0, H_XmTargetsAreCompatible); - XM_DEFINE_PROCEDURE(XmCreateSeparatorGadget, gxm_XmCreateSeparatorGadget_w, 3, 1, 0, H_XmCreateSeparatorGadget); - XM_DEFINE_PROCEDURE(XmCreateDragIcon, gxm_XmCreateDragIcon_w, 3, 1, 0, H_XmCreateDragIcon); - XM_DEFINE_PROCEDURE(XmCreateSeparator, gxm_XmCreateSeparator_w, 3, 1, 0, H_XmCreateSeparator); - XM_DEFINE_PROCEDURE(XmCreateDrawingArea, gxm_XmCreateDrawingArea_w, 3, 1, 0, H_XmCreateDrawingArea); - XM_DEFINE_PROCEDURE(XmCreateDrawnButton, gxm_XmCreateDrawnButton_w, 3, 1, 0, H_XmCreateDrawnButton); - XM_DEFINE_PROCEDURE(XmDropSiteRegister, gxm_XmDropSiteRegister_w, 2, 1, 0, H_XmDropSiteRegister); - XM_DEFINE_PROCEDURE(XmDropSiteUnregister, gxm_XmDropSiteUnregister_w, 1, 0, 0, H_XmDropSiteUnregister); - XM_DEFINE_PROCEDURE(XmDropSiteStartUpdate, gxm_XmDropSiteStartUpdate_w, 1, 0, 0, H_XmDropSiteStartUpdate); - XM_DEFINE_PROCEDURE(XmDropSiteUpdate, gxm_XmDropSiteUpdate_w, 2, 1, 0, H_XmDropSiteUpdate); - XM_DEFINE_PROCEDURE(XmDropSiteEndUpdate, gxm_XmDropSiteEndUpdate_w, 1, 0, 0, H_XmDropSiteEndUpdate); - XM_DEFINE_PROCEDURE(XmDropSiteRetrieve, gxm_XmDropSiteRetrieve_w, 2, 1, 0, H_XmDropSiteRetrieve); - XM_DEFINE_PROCEDURE(XmDropSiteQueryStackingOrder, gxm_XmDropSiteQueryStackingOrder_w, 1, 0, 0, H_XmDropSiteQueryStackingOrder); - XM_DEFINE_PROCEDURE(XmDropSiteConfigureStackingOrder, gxm_XmDropSiteConfigureStackingOrder_w, 3, 0, 0, H_XmDropSiteConfigureStackingOrder); - XM_DEFINE_PROCEDURE(XmDropTransferStart, gxm_XmDropTransferStart_w, 2, 1, 0, H_XmDropTransferStart); - XM_DEFINE_PROCEDURE(XmDropTransferAdd, gxm_XmDropTransferAdd_w, 2, 0, 0, H_XmDropTransferAdd); - XM_DEFINE_PROCEDURE(XmTextFieldGetString, gxm_XmTextFieldGetString_w, 1, 0, 0, H_XmTextFieldGetString); - XM_DEFINE_PROCEDURE(XmTextFieldGetSubstring, gxm_XmTextFieldGetSubstring_w, 3, 0, 0, H_XmTextFieldGetSubstring); - XM_DEFINE_PROCEDURE(XmTextFieldGetLastPosition, gxm_XmTextFieldGetLastPosition_w, 1, 0, 0, H_XmTextFieldGetLastPosition); - XM_DEFINE_PROCEDURE(XmTextFieldSetString, gxm_XmTextFieldSetString_w, 2, 0, 0, H_XmTextFieldSetString); - XM_DEFINE_PROCEDURE(XmTextFieldReplace, gxm_XmTextFieldReplace_w, 4, 0, 0, H_XmTextFieldReplace); - XM_DEFINE_PROCEDURE(XmTextFieldInsert, gxm_XmTextFieldInsert_w, 3, 0, 0, H_XmTextFieldInsert); - XM_DEFINE_PROCEDURE(XmTextFieldSetAddMode, gxm_XmTextFieldSetAddMode_w, 2, 0, 0, H_XmTextFieldSetAddMode); - XM_DEFINE_PROCEDURE(XmTextFieldGetAddMode, gxm_XmTextFieldGetAddMode_w, 1, 0, 0, H_XmTextFieldGetAddMode); - XM_DEFINE_PROCEDURE(XmTextFieldGetEditable, gxm_XmTextFieldGetEditable_w, 1, 0, 0, H_XmTextFieldGetEditable); - XM_DEFINE_PROCEDURE(XmTextFieldSetEditable, gxm_XmTextFieldSetEditable_w, 2, 0, 0, H_XmTextFieldSetEditable); - XM_DEFINE_PROCEDURE(XmTextFieldGetMaxLength, gxm_XmTextFieldGetMaxLength_w, 1, 0, 0, H_XmTextFieldGetMaxLength); - XM_DEFINE_PROCEDURE(XmTextFieldSetMaxLength, gxm_XmTextFieldSetMaxLength_w, 2, 0, 0, H_XmTextFieldSetMaxLength); - XM_DEFINE_PROCEDURE(XmTextFieldGetCursorPosition, gxm_XmTextFieldGetCursorPosition_w, 1, 0, 0, H_XmTextFieldGetCursorPosition); - XM_DEFINE_PROCEDURE(XmTextFieldGetInsertionPosition, gxm_XmTextFieldGetInsertionPosition_w, 1, 0, 0, H_XmTextFieldGetInsertionPosition); - XM_DEFINE_PROCEDURE(XmTextFieldSetCursorPosition, gxm_XmTextFieldSetCursorPosition_w, 2, 0, 0, H_XmTextFieldSetCursorPosition); - XM_DEFINE_PROCEDURE(XmTextFieldSetInsertionPosition, gxm_XmTextFieldSetInsertionPosition_w, 2, 0, 0, H_XmTextFieldSetInsertionPosition); - XM_DEFINE_PROCEDURE(XmTextFieldGetSelectionPosition, gxm_XmTextFieldGetSelectionPosition_w, 1, 0, 0, H_XmTextFieldGetSelectionPosition); - XM_DEFINE_PROCEDURE(XmTextFieldGetSelection, gxm_XmTextFieldGetSelection_w, 1, 0, 0, H_XmTextFieldGetSelection); - XM_DEFINE_PROCEDURE(XmTextFieldRemove, gxm_XmTextFieldRemove_w, 1, 0, 0, H_XmTextFieldRemove); - XM_DEFINE_PROCEDURE(XmTextFieldCopy, gxm_XmTextFieldCopy_w, 2, 0, 0, H_XmTextFieldCopy); - XM_DEFINE_PROCEDURE(XmTextFieldCut, gxm_XmTextFieldCut_w, 2, 0, 0, H_XmTextFieldCut); - XM_DEFINE_PROCEDURE(XmTextFieldPaste, gxm_XmTextFieldPaste_w, 1, 0, 0, H_XmTextFieldPaste); - XM_DEFINE_PROCEDURE(XmTextFieldClearSelection, gxm_XmTextFieldClearSelection_w, 2, 0, 0, H_XmTextFieldClearSelection); - XM_DEFINE_PROCEDURE(XmTextFieldSetSelection, gxm_XmTextFieldSetSelection_w, 4, 0, 0, H_XmTextFieldSetSelection); - XM_DEFINE_PROCEDURE(XmTextFieldXYToPos, gxm_XmTextFieldXYToPos_w, 3, 0, 0, H_XmTextFieldXYToPos); - XM_DEFINE_PROCEDURE(XmTextFieldPosToXY, gxm_XmTextFieldPosToXY_w, 2, 0, 0, H_XmTextFieldPosToXY); - XM_DEFINE_PROCEDURE(XmTextFieldShowPosition, gxm_XmTextFieldShowPosition_w, 2, 0, 0, H_XmTextFieldShowPosition); - XM_DEFINE_PROCEDURE(XmTextFieldSetHighlight, gxm_XmTextFieldSetHighlight_w, 4, 0, 0, H_XmTextFieldSetHighlight); - XM_DEFINE_PROCEDURE(XmTextFieldGetBaseline, gxm_XmTextFieldGetBaseline_w, 1, 0, 0, H_XmTextFieldGetBaseline); - XM_DEFINE_PROCEDURE(XmCreateTextField, gxm_XmCreateTextField_w, 3, 1, 0, H_XmCreateTextField); - XM_DEFINE_PROCEDURE(XmFileSelectionBoxGetChild, gxm_XmFileSelectionBoxGetChild_w, 2, 0, 0, H_XmFileSelectionBoxGetChild); - XM_DEFINE_PROCEDURE(XmFileSelectionDoSearch, gxm_XmFileSelectionDoSearch_w, 2, 0, 0, H_XmFileSelectionDoSearch); - XM_DEFINE_PROCEDURE(XmCreateFileSelectionBox, gxm_XmCreateFileSelectionBox_w, 3, 1, 0, H_XmCreateFileSelectionBox); - XM_DEFINE_PROCEDURE(XmCreateFileSelectionDialog, gxm_XmCreateFileSelectionDialog_w, 3, 1, 0, H_XmCreateFileSelectionDialog); - XM_DEFINE_PROCEDURE(XmTextSetHighlight, gxm_XmTextSetHighlight_w, 4, 0, 0, H_XmTextSetHighlight); - XM_DEFINE_PROCEDURE(XmCreateScrolledText, gxm_XmCreateScrolledText_w, 3, 1, 0, H_XmCreateScrolledText); - XM_DEFINE_PROCEDURE(XmCreateText, gxm_XmCreateText_w, 3, 1, 0, H_XmCreateText); - XM_DEFINE_PROCEDURE(XmTextGetSubstring, gxm_XmTextGetSubstring_w, 3, 0, 0, H_XmTextGetSubstring); - XM_DEFINE_PROCEDURE(XmTextGetString, gxm_XmTextGetString_w, 1, 0, 0, H_XmTextGetString); - XM_DEFINE_PROCEDURE(XmTextGetLastPosition, gxm_XmTextGetLastPosition_w, 1, 0, 0, H_XmTextGetLastPosition); - XM_DEFINE_PROCEDURE(XmTextSetString, gxm_XmTextSetString_w, 2, 0, 0, H_XmTextSetString); - XM_DEFINE_PROCEDURE(XmTextReplace, gxm_XmTextReplace_w, 4, 0, 0, H_XmTextReplace); - XM_DEFINE_PROCEDURE(XmTextInsert, gxm_XmTextInsert_w, 3, 0, 0, H_XmTextInsert); - XM_DEFINE_PROCEDURE(XmTextSetAddMode, gxm_XmTextSetAddMode_w, 2, 0, 0, H_XmTextSetAddMode); - XM_DEFINE_PROCEDURE(XmTextGetAddMode, gxm_XmTextGetAddMode_w, 1, 0, 0, H_XmTextGetAddMode); - XM_DEFINE_PROCEDURE(XmTextGetEditable, gxm_XmTextGetEditable_w, 1, 0, 0, H_XmTextGetEditable); - XM_DEFINE_PROCEDURE(XmTextSetEditable, gxm_XmTextSetEditable_w, 2, 0, 0, H_XmTextSetEditable); - XM_DEFINE_PROCEDURE(XmTextGetMaxLength, gxm_XmTextGetMaxLength_w, 1, 0, 0, H_XmTextGetMaxLength); - XM_DEFINE_PROCEDURE(XmTextSetMaxLength, gxm_XmTextSetMaxLength_w, 2, 0, 0, H_XmTextSetMaxLength); - XM_DEFINE_PROCEDURE(XmTextGetTopCharacter, gxm_XmTextGetTopCharacter_w, 1, 0, 0, H_XmTextGetTopCharacter); - XM_DEFINE_PROCEDURE(XmTextSetTopCharacter, gxm_XmTextSetTopCharacter_w, 2, 0, 0, H_XmTextSetTopCharacter); - XM_DEFINE_PROCEDURE(XmTextGetCursorPosition, gxm_XmTextGetCursorPosition_w, 1, 0, 0, H_XmTextGetCursorPosition); - XM_DEFINE_PROCEDURE(XmTextGetInsertionPosition, gxm_XmTextGetInsertionPosition_w, 1, 0, 0, H_XmTextGetInsertionPosition); - XM_DEFINE_PROCEDURE(XmTextSetInsertionPosition, gxm_XmTextSetInsertionPosition_w, 2, 0, 0, H_XmTextSetInsertionPosition); - XM_DEFINE_PROCEDURE(XmTextSetCursorPosition, gxm_XmTextSetCursorPosition_w, 2, 0, 0, H_XmTextSetCursorPosition); - XM_DEFINE_PROCEDURE(XmTextRemove, gxm_XmTextRemove_w, 1, 0, 0, H_XmTextRemove); - XM_DEFINE_PROCEDURE(XmTextCopy, gxm_XmTextCopy_w, 2, 0, 0, H_XmTextCopy); - XM_DEFINE_PROCEDURE(XmTextCut, gxm_XmTextCut_w, 2, 0, 0, H_XmTextCut); - XM_DEFINE_PROCEDURE(XmTextPaste, gxm_XmTextPaste_w, 1, 0, 0, H_XmTextPaste); - XM_DEFINE_PROCEDURE(XmTextGetSelection, gxm_XmTextGetSelection_w, 1, 0, 0, H_XmTextGetSelection); - XM_DEFINE_PROCEDURE(XmTextSetSelection, gxm_XmTextSetSelection_w, 4, 0, 0, H_XmTextSetSelection); - XM_DEFINE_PROCEDURE(XmTextClearSelection, gxm_XmTextClearSelection_w, 2, 0, 0, H_XmTextClearSelection); - XM_DEFINE_PROCEDURE(XmTextGetSelectionPosition, gxm_XmTextGetSelectionPosition_w, 1, 0, 0, H_XmTextGetSelectionPosition); - XM_DEFINE_PROCEDURE(XmTextXYToPos, gxm_XmTextXYToPos_w, 3, 0, 0, H_XmTextXYToPos); - XM_DEFINE_PROCEDURE(XmTextPosToXY, gxm_XmTextPosToXY_w, 2, 0, 0, H_XmTextPosToXY); - XM_DEFINE_PROCEDURE(XmTextGetSource, gxm_XmTextGetSource_w, 1, 0, 0, H_XmTextGetSource); - XM_DEFINE_PROCEDURE(XmTextSetSource, gxm_XmTextSetSource_w, 4, 0, 0, H_XmTextSetSource); - XM_DEFINE_PROCEDURE(XmTextShowPosition, gxm_XmTextShowPosition_w, 2, 0, 0, H_XmTextShowPosition); - XM_DEFINE_PROCEDURE(XmTextScroll, gxm_XmTextScroll_w, 2, 0, 0, H_XmTextScroll); - XM_DEFINE_PROCEDURE(XmTextGetBaseline, gxm_XmTextGetBaseline_w, 1, 0, 0, H_XmTextGetBaseline); - XM_DEFINE_PROCEDURE(XmTextDisableRedisplay, gxm_XmTextDisableRedisplay_w, 1, 0, 0, H_XmTextDisableRedisplay); - XM_DEFINE_PROCEDURE(XmTextEnableRedisplay, gxm_XmTextEnableRedisplay_w, 1, 0, 0, H_XmTextEnableRedisplay); - XM_DEFINE_PROCEDURE(XmTextFindString, gxm_XmTextFindString_w, 4, 0, 0, H_XmTextFindString); - XM_DEFINE_PROCEDURE(XmCreateForm, gxm_XmCreateForm_w, 3, 1, 0, H_XmCreateForm); - XM_DEFINE_PROCEDURE(XmCreateFormDialog, gxm_XmCreateFormDialog_w, 3, 1, 0, H_XmCreateFormDialog); - XM_DEFINE_PROCEDURE(XmCreateFrame, gxm_XmCreateFrame_w, 3, 1, 0, H_XmCreateFrame); - XM_DEFINE_PROCEDURE(XmToggleButtonGadgetGetState, gxm_XmToggleButtonGadgetGetState_w, 1, 0, 0, H_XmToggleButtonGadgetGetState); - XM_DEFINE_PROCEDURE(XmToggleButtonGadgetSetState, gxm_XmToggleButtonGadgetSetState_w, 3, 0, 0, H_XmToggleButtonGadgetSetState); - XM_DEFINE_PROCEDURE(XmCreateToggleButtonGadget, gxm_XmCreateToggleButtonGadget_w, 3, 1, 0, H_XmCreateToggleButtonGadget); - XM_DEFINE_PROCEDURE(XmToggleButtonGetState, gxm_XmToggleButtonGetState_w, 1, 0, 0, H_XmToggleButtonGetState); - XM_DEFINE_PROCEDURE(XmToggleButtonSetState, gxm_XmToggleButtonSetState_w, 3, 0, 0, H_XmToggleButtonSetState); - XM_DEFINE_PROCEDURE(XmCreateToggleButton, gxm_XmCreateToggleButton_w, 3, 1, 0, H_XmCreateToggleButton); - XM_DEFINE_PROCEDURE(XmCreateLabelGadget, gxm_XmCreateLabelGadget_w, 3, 1, 0, H_XmCreateLabelGadget); - XM_DEFINE_PROCEDURE(XmCreateLabel, gxm_XmCreateLabel_w, 3, 1, 0, H_XmCreateLabel); - XM_DEFINE_PROCEDURE(XmIsMotifWMRunning, gxm_XmIsMotifWMRunning_w, 1, 0, 0, H_XmIsMotifWMRunning); - XM_DEFINE_PROCEDURE(XmListAddItem, gxm_XmListAddItem_w, 3, 0, 0, H_XmListAddItem); - XM_DEFINE_PROCEDURE(XmListAddItems, gxm_XmListAddItems_w, 4, 0, 0, H_XmListAddItems); - XM_DEFINE_PROCEDURE(XmListAddItemsUnselected, gxm_XmListAddItemsUnselected_w, 4, 0, 0, H_XmListAddItemsUnselected); - XM_DEFINE_PROCEDURE(XmListAddItemUnselected, gxm_XmListAddItemUnselected_w, 3, 0, 0, H_XmListAddItemUnselected); - XM_DEFINE_PROCEDURE(XmListDeleteItem, gxm_XmListDeleteItem_w, 2, 0, 0, H_XmListDeleteItem); - XM_DEFINE_PROCEDURE(XmListDeleteItems, gxm_XmListDeleteItems_w, 2, 1, 0, H_XmListDeleteItems); - XM_DEFINE_PROCEDURE(XmListDeletePositions, gxm_XmListDeletePositions_w, 2, 1, 0, H_XmListDeletePositions); - XM_DEFINE_PROCEDURE(XmListDeletePos, gxm_XmListDeletePos_w, 2, 0, 0, H_XmListDeletePos); - XM_DEFINE_PROCEDURE(XmListDeleteItemsPos, gxm_XmListDeleteItemsPos_w, 3, 0, 0, H_XmListDeleteItemsPos); - XM_DEFINE_PROCEDURE(XmListDeleteAllItems, gxm_XmListDeleteAllItems_w, 1, 0, 0, H_XmListDeleteAllItems); - XM_DEFINE_PROCEDURE(XmListReplaceItems, gxm_XmListReplaceItems_w, 4, 0, 0, H_XmListReplaceItems); - XM_DEFINE_PROCEDURE(XmListReplaceItemsPos, gxm_XmListReplaceItemsPos_w, 4, 0, 0, H_XmListReplaceItemsPos); - XM_DEFINE_PROCEDURE(XmListReplaceItemsUnselected, gxm_XmListReplaceItemsUnselected_w, 4, 0, 0, H_XmListReplaceItemsUnselected); - XM_DEFINE_PROCEDURE(XmListReplaceItemsPosUnselected, gxm_XmListReplaceItemsPosUnselected_w, 4, 0, 0, H_XmListReplaceItemsPosUnselected); - XM_DEFINE_PROCEDURE(XmListReplacePositions, gxm_XmListReplacePositions_w, 4, 0, 0, H_XmListReplacePositions); - XM_DEFINE_PROCEDURE(XmListSelectItem, gxm_XmListSelectItem_w, 3, 0, 0, H_XmListSelectItem); - XM_DEFINE_PROCEDURE(XmListSelectPos, gxm_XmListSelectPos_w, 3, 0, 0, H_XmListSelectPos); - XM_DEFINE_PROCEDURE(XmListDeselectItem, gxm_XmListDeselectItem_w, 2, 0, 0, H_XmListDeselectItem); - XM_DEFINE_PROCEDURE(XmListDeselectPos, gxm_XmListDeselectPos_w, 2, 0, 0, H_XmListDeselectPos); - XM_DEFINE_PROCEDURE(XmListDeselectAllItems, gxm_XmListDeselectAllItems_w, 1, 0, 0, H_XmListDeselectAllItems); - XM_DEFINE_PROCEDURE(XmListSetPos, gxm_XmListSetPos_w, 2, 0, 0, H_XmListSetPos); - XM_DEFINE_PROCEDURE(XmListSetBottomPos, gxm_XmListSetBottomPos_w, 2, 0, 0, H_XmListSetBottomPos); - XM_DEFINE_PROCEDURE(XmListSetItem, gxm_XmListSetItem_w, 2, 0, 0, H_XmListSetItem); - XM_DEFINE_PROCEDURE(XmListSetBottomItem, gxm_XmListSetBottomItem_w, 2, 0, 0, H_XmListSetBottomItem); - XM_DEFINE_PROCEDURE(XmListSetAddMode, gxm_XmListSetAddMode_w, 2, 0, 0, H_XmListSetAddMode); - XM_DEFINE_PROCEDURE(XmListItemExists, gxm_XmListItemExists_w, 2, 0, 0, H_XmListItemExists); - XM_DEFINE_PROCEDURE(XmListItemPos, gxm_XmListItemPos_w, 2, 0, 0, H_XmListItemPos); - XM_DEFINE_PROCEDURE(XmListGetKbdItemPos, gxm_XmListGetKbdItemPos_w, 1, 0, 0, H_XmListGetKbdItemPos); - XM_DEFINE_PROCEDURE(XmListSetKbdItemPos, gxm_XmListSetKbdItemPos_w, 2, 0, 0, H_XmListSetKbdItemPos); - XM_DEFINE_PROCEDURE(XmListYToPos, gxm_XmListYToPos_w, 2, 0, 0, H_XmListYToPos); - XM_DEFINE_PROCEDURE(XmListPosToBounds, gxm_XmListPosToBounds_w, 2, 0, 0, H_XmListPosToBounds); - XM_DEFINE_PROCEDURE(XmListGetMatchPos, gxm_XmListGetMatchPos_w, 2, 0, 0, H_XmListGetMatchPos); - XM_DEFINE_PROCEDURE(XmListSetHorizPos, gxm_XmListSetHorizPos_w, 2, 0, 0, H_XmListSetHorizPos); - XM_DEFINE_PROCEDURE(XmListUpdateSelectedList, gxm_XmListUpdateSelectedList_w, 1, 0, 0, H_XmListUpdateSelectedList); - XM_DEFINE_PROCEDURE(XmListPosSelected, gxm_XmListPosSelected_w, 2, 0, 0, H_XmListPosSelected); - XM_DEFINE_PROCEDURE(XmCreateList, gxm_XmCreateList_w, 3, 1, 0, H_XmCreateList); - XM_DEFINE_PROCEDURE(XmCreateScrolledList, gxm_XmCreateScrolledList_w, 3, 1, 0, H_XmCreateScrolledList); - XM_DEFINE_PROCEDURE(XmTranslateKey, gxm_XmTranslateKey_w, 3, 0, 0, H_XmTranslateKey); - XM_DEFINE_PROCEDURE(XmCreateMainWindow, gxm_XmCreateMainWindow_w, 3, 1, 0, H_XmCreateMainWindow); - XM_DEFINE_PROCEDURE(XmInstallImage, gxm_XmInstallImage_w, 2, 0, 0, H_XmInstallImage); - XM_DEFINE_PROCEDURE(XmUninstallImage, gxm_XmUninstallImage_w, 1, 0, 0, H_XmUninstallImage); - XM_DEFINE_PROCEDURE(XmGetPixmap, gxm_XmGetPixmap_w, 4, 0, 0, H_XmGetPixmap); - XM_DEFINE_PROCEDURE(XmGetPixmapByDepth, gxm_XmGetPixmapByDepth_w, 5, 0, 0, H_XmGetPixmapByDepth); - XM_DEFINE_PROCEDURE(XmDestroyPixmap, gxm_XmDestroyPixmap_w, 2, 0, 0, H_XmDestroyPixmap); - XM_DEFINE_PROCEDURE(XmUpdateDisplay, gxm_XmUpdateDisplay_w, 1, 0, 0, H_XmUpdateDisplay); - XM_DEFINE_PROCEDURE(XmWidgetGetBaselines, gxm_XmWidgetGetBaselines_w, 1, 0, 0, H_XmWidgetGetBaselines); - XM_DEFINE_PROCEDURE(XmRegisterSegmentEncoding, gxm_XmRegisterSegmentEncoding_w, 2, 0, 0, H_XmRegisterSegmentEncoding); - XM_DEFINE_PROCEDURE(XmMapSegmentEncoding, gxm_XmMapSegmentEncoding_w, 1, 0, 0, H_XmMapSegmentEncoding); - XM_DEFINE_PROCEDURE(XmCvtCTToXmString, gxm_XmCvtCTToXmString_w, 1, 0, 0, H_XmCvtCTToXmString); - XM_DEFINE_PROCEDURE(XmCvtXmStringToCT, gxm_XmCvtXmStringToCT_w, 1, 0, 0, H_XmCvtXmStringToCT); - XM_DEFINE_PROCEDURE(XmConvertUnits, gxm_XmConvertUnits_w, 5, 0, 0, H_XmConvertUnits); - XM_DEFINE_PROCEDURE(XmCreateSimpleMenuBar, gxm_XmCreateSimpleMenuBar_w, 3, 1, 0, H_XmCreateSimpleMenuBar); - XM_DEFINE_PROCEDURE(XmCreateSimplePopupMenu, gxm_XmCreateSimplePopupMenu_w, 3, 1, 0, H_XmCreateSimplePopupMenu); - XM_DEFINE_PROCEDURE(XmCreateSimplePulldownMenu, gxm_XmCreateSimplePulldownMenu_w, 3, 1, 0, H_XmCreateSimplePulldownMenu); - XM_DEFINE_PROCEDURE(XmCreateSimpleOptionMenu, gxm_XmCreateSimpleOptionMenu_w, 3, 1, 0, H_XmCreateSimpleOptionMenu); - XM_DEFINE_PROCEDURE(XmCreateSimpleRadioBox, gxm_XmCreateSimpleRadioBox_w, 3, 1, 0, H_XmCreateSimpleRadioBox); - XM_DEFINE_PROCEDURE(XmCreateSimpleCheckBox, gxm_XmCreateSimpleCheckBox_w, 3, 1, 0, H_XmCreateSimpleCheckBox); - XM_DEFINE_PROCEDURE(XmVaCreateSimpleMenuBar, gxm_XmVaCreateSimpleMenuBar_w, 3, 0, 0, H_XmVaCreateSimpleMenuBar); - XM_DEFINE_PROCEDURE(XmVaCreateSimplePopupMenu, gxm_XmVaCreateSimplePopupMenu_w, 4, 0, 0, H_XmVaCreateSimplePopupMenu); - XM_DEFINE_PROCEDURE(XmVaCreateSimplePulldownMenu, gxm_XmVaCreateSimplePulldownMenu_w, 5, 0, 0, H_XmVaCreateSimplePulldownMenu); - XM_DEFINE_PROCEDURE(XmVaCreateSimpleOptionMenu, gxm_XmVaCreateSimpleOptionMenu_w, 7, 0, 0, H_XmVaCreateSimpleOptionMenu); - XM_DEFINE_PROCEDURE(XmVaCreateSimpleRadioBox, gxm_XmVaCreateSimpleRadioBox_w, 5, 0, 0, H_XmVaCreateSimpleRadioBox); - XM_DEFINE_PROCEDURE(XmVaCreateSimpleCheckBox, gxm_XmVaCreateSimpleCheckBox_w, 4, 0, 0, H_XmVaCreateSimpleCheckBox); - XM_DEFINE_PROCEDURE(XmTrackingEvent, gxm_XmTrackingEvent_w, 3, 0, 0, H_XmTrackingEvent); - XM_DEFINE_PROCEDURE(XmSetColorCalculation, gxm_XmSetColorCalculation_w, 1, 0, 0, H_XmSetColorCalculation); - XM_DEFINE_PROCEDURE(XmGetColorCalculation, gxm_XmGetColorCalculation_w, 0, 0, 0, H_XmGetColorCalculation); - XM_DEFINE_PROCEDURE(XmGetColors, gxm_XmGetColors_w, 3, 0, 0, H_XmGetColors); - XM_DEFINE_PROCEDURE(XmChangeColor, gxm_XmChangeColor_w, 2, 0, 0, H_XmChangeColor); - XM_DEFINE_PROCEDURE(XmStringCreate, gxm_XmStringCreate_w, 2, 0, 0, H_XmStringCreate); - XM_DEFINE_PROCEDURE(XmStringCreateLocalized, gxm_XmStringCreateLocalized_w, 1, 0, 0, H_XmStringCreateLocalized); - XM_DEFINE_PROCEDURE(XmStringDirectionCreate, gxm_XmStringDirectionCreate_w, 1, 0, 0, H_XmStringDirectionCreate); - XM_DEFINE_PROCEDURE(XmStringSeparatorCreate, gxm_XmStringSeparatorCreate_w, 0, 0, 0, H_XmStringSeparatorCreate); - XM_DEFINE_PROCEDURE(XmStringInitContext, gxm_XmStringInitContext_w, 1, 0, 0, H_XmStringInitContext); - XM_DEFINE_PROCEDURE(XmStringFreeContext, gxm_XmStringFreeContext_w, 1, 0, 0, H_XmStringFreeContext); - XM_DEFINE_PROCEDURE(XmCvtXmStringToByteStream, gxm_XmCvtXmStringToByteStream_w, 1, 0, 0, H_XmCvtXmStringToByteStream); - XM_DEFINE_PROCEDURE(XmCvtByteStreamToXmString, gxm_XmCvtByteStreamToXmString_w, 1, 0, 0, H_XmCvtByteStreamToXmString); - XM_DEFINE_PROCEDURE(XmStringByteStreamLength, gxm_XmStringByteStreamLength_w, 1, 0, 0, H_XmStringByteStreamLength); - XM_DEFINE_PROCEDURE(XmStringConcatAndFree, gxm_XmStringConcatAndFree_w, 2, 0, 0, H_XmStringConcatAndFree); - XM_DEFINE_PROCEDURE(XmStringIsVoid, gxm_XmStringIsVoid_w, 1, 0, 0, H_XmStringIsVoid); - XM_DEFINE_PROCEDURE(XmStringPeekNextTriple, gxm_XmStringPeekNextTriple_w, 1, 0, 0, H_XmStringPeekNextTriple); - XM_DEFINE_PROCEDURE(XmStringGetNextTriple, gxm_XmStringGetNextTriple_w, 1, 0, 0, H_XmStringGetNextTriple); - XM_DEFINE_PROCEDURE(XmStringComponentCreate, gxm_XmStringComponentCreate_w, 3, 0, 0, H_XmStringComponentCreate); - XM_DEFINE_PROCEDURE(XmStringUnparse, gxm_XmStringUnparse_w, 7, 0, 0, H_XmStringUnparse); - XM_DEFINE_PROCEDURE(XmStringParseText, gxm_XmStringParseText_w, 7, 0, 0, H_XmStringParseText); - XM_DEFINE_PROCEDURE(XmStringToXmStringTable, gxm_XmStringToXmStringTable_w, 2, 0, 0, H_XmStringToXmStringTable); - XM_DEFINE_PROCEDURE(XmStringTableToXmString, gxm_XmStringTableToXmString_w, 3, 0, 0, H_XmStringTableToXmString); - XM_DEFINE_PROCEDURE(XmStringTableUnparse, gxm_XmStringTableUnparse_w, 8, 0, 0, H_XmStringTableUnparse); - XM_DEFINE_PROCEDURE(XmStringTableParseStringArray, gxm_XmStringTableParseStringArray_w, 7, 0, 0, H_XmStringTableParseStringArray); - XM_DEFINE_PROCEDURE(XmDirectionToStringDirection, gxm_XmDirectionToStringDirection_w, 1, 0, 0, H_XmDirectionToStringDirection); - XM_DEFINE_PROCEDURE(XmStringDirectionToDirection, gxm_XmStringDirectionToDirection_w, 1, 0, 0, H_XmStringDirectionToDirection); - XM_DEFINE_PROCEDURE(XmStringGenerate, gxm_XmStringGenerate_w, 4, 0, 0, H_XmStringGenerate); - XM_DEFINE_PROCEDURE(XmStringPutRendition, gxm_XmStringPutRendition_w, 2, 0, 0, H_XmStringPutRendition); - XM_DEFINE_PROCEDURE(XmParseMappingCreate, gxm_XmParseMappingCreate_w, 1, 1, 0, H_XmParseMappingCreate); - XM_DEFINE_PROCEDURE(XmParseMappingSetValues, gxm_XmParseMappingSetValues_w, 2, 1, 0, H_XmParseMappingSetValues); - XM_DEFINE_PROCEDURE(XmParseMappingGetValues, gxm_XmParseMappingGetValues_w, 2, 1, 0, H_XmParseMappingGetValues); - XM_DEFINE_PROCEDURE(XmParseMappingFree, gxm_XmParseMappingFree_w, 1, 0, 0, H_XmParseMappingFree); - XM_DEFINE_PROCEDURE(XmParseTableFree, gxm_XmParseTableFree_w, 1, 1, 0, H_XmParseTableFree); - XM_DEFINE_PROCEDURE(XmStringTableProposeTablist, gxm_XmStringTableProposeTablist_w, 5, 0, 0, H_XmStringTableProposeTablist); - XM_DEFINE_PROCEDURE(XmTabSetValue, gxm_XmTabSetValue_w, 2, 0, 0, H_XmTabSetValue); - XM_DEFINE_PROCEDURE(XmTabGetValues, gxm_XmTabGetValues_w, 1, 0, 0, H_XmTabGetValues); - XM_DEFINE_PROCEDURE(XmTabFree, gxm_XmTabFree_w, 1, 0, 0, H_XmTabFree); - XM_DEFINE_PROCEDURE(XmTabListFree, gxm_XmTabListFree_w, 1, 0, 0, H_XmTabListFree); - XM_DEFINE_PROCEDURE(XmTabCreate, gxm_XmTabCreate_w, 5, 0, 0, H_XmTabCreate); - XM_DEFINE_PROCEDURE(XmTabListTabCount, gxm_XmTabListTabCount_w, 1, 0, 0, H_XmTabListTabCount); - XM_DEFINE_PROCEDURE(XmTabListRemoveTabs, gxm_XmTabListRemoveTabs_w, 2, 1, 0, H_XmTabListRemoveTabs); - XM_DEFINE_PROCEDURE(XmTabListReplacePositions, gxm_XmTabListReplacePositions_w, 3, 1, 0, H_XmTabListReplacePositions); - XM_DEFINE_PROCEDURE(XmTabListGetTab, gxm_XmTabListGetTab_w, 2, 0, 0, H_XmTabListGetTab); - XM_DEFINE_PROCEDURE(XmTabListCopy, gxm_XmTabListCopy_w, 3, 0, 0, H_XmTabListCopy); - XM_DEFINE_PROCEDURE(XmTabListInsertTabs, gxm_XmTabListInsertTabs_w, 4, 0, 0, H_XmTabListInsertTabs); - XM_DEFINE_PROCEDURE(XmRenderTableCvtFromProp, gxm_XmRenderTableCvtFromProp_w, 3, 0, 0, H_XmRenderTableCvtFromProp); - XM_DEFINE_PROCEDURE(XmRenderTableCvtToProp, gxm_XmRenderTableCvtToProp_w, 2, 0, 0, H_XmRenderTableCvtToProp); - XM_DEFINE_PROCEDURE(XmRenditionUpdate, gxm_XmRenditionUpdate_w, 2, 1, 0, H_XmRenditionUpdate); - XM_DEFINE_PROCEDURE(XmRenditionRetrieve, gxm_XmRenditionRetrieve_w, 2, 1, 0, H_XmRenditionRetrieve); - XM_DEFINE_PROCEDURE(XmRenditionFree, gxm_XmRenditionFree_w, 1, 0, 0, H_XmRenditionFree); - XM_DEFINE_PROCEDURE(XmRenditionCreate, gxm_XmRenditionCreate_w, 3, 1, 0, H_XmRenditionCreate); - XM_DEFINE_PROCEDURE(XmRenderTableGetRenditions, gxm_XmRenderTableGetRenditions_w, 0, 3, 0, H_XmRenderTableGetRenditions); - XM_DEFINE_PROCEDURE(XmRenderTableGetRendition, gxm_XmRenderTableGetRendition_w, 2, 0, 0, H_XmRenderTableGetRendition); - XM_DEFINE_PROCEDURE(XmRenderTableGetTags, gxm_XmRenderTableGetTags_w, 1, 0, 0, H_XmRenderTableGetTags); - XM_DEFINE_PROCEDURE(XmRenderTableFree, gxm_XmRenderTableFree_w, 1, 0, 0, H_XmRenderTableFree); - XM_DEFINE_PROCEDURE(XmRenderTableCopy, gxm_XmRenderTableCopy_w, 0, 3, 0, H_XmRenderTableCopy); - XM_DEFINE_PROCEDURE(XmRenderTableRemoveRenditions, gxm_XmRenderTableRemoveRenditions_w, 0, 3, 0, H_XmRenderTableRemoveRenditions); - XM_DEFINE_PROCEDURE(XmRenderTableAddRenditions, gxm_XmRenderTableAddRenditions_w, 4, 0, 0, H_XmRenderTableAddRenditions); - XM_DEFINE_PROCEDURE(XmStringConcat, gxm_XmStringConcat_w, 2, 0, 0, H_XmStringConcat); - XM_DEFINE_PROCEDURE(XmStringCopy, gxm_XmStringCopy_w, 1, 0, 0, H_XmStringCopy); - XM_DEFINE_PROCEDURE(XmStringCompare, gxm_XmStringCompare_w, 2, 0, 0, H_XmStringCompare); - XM_DEFINE_PROCEDURE(XmStringEmpty, gxm_XmStringEmpty_w, 1, 0, 0, H_XmStringEmpty); - XM_DEFINE_PROCEDURE(XmStringHasSubstring, gxm_XmStringHasSubstring_w, 2, 0, 0, H_XmStringHasSubstring); - XM_DEFINE_PROCEDURE(XmStringFree, gxm_XmStringFree_w, 1, 0, 0, H_XmStringFree); - XM_DEFINE_PROCEDURE(XmStringBaseline, gxm_XmStringBaseline_w, 2, 0, 0, H_XmStringBaseline); - XM_DEFINE_PROCEDURE(XmStringWidth, gxm_XmStringWidth_w, 2, 0, 0, H_XmStringWidth); - XM_DEFINE_PROCEDURE(XmStringHeight, gxm_XmStringHeight_w, 2, 0, 0, H_XmStringHeight); - XM_DEFINE_PROCEDURE(XmStringExtent, gxm_XmStringExtent_w, 2, 0, 0, H_XmStringExtent); - XM_DEFINE_PROCEDURE(XmStringLineCount, gxm_XmStringLineCount_w, 1, 0, 0, H_XmStringLineCount); - XM_DEFINE_PROCEDURE(XmStringDraw, gxm_XmStringDraw_w, 0, 0, 1, H_XmStringDraw); - XM_DEFINE_PROCEDURE(XmStringDrawImage, gxm_XmStringDrawImage_w, 0, 0, 1, H_XmStringDrawImage); - XM_DEFINE_PROCEDURE(XmStringDrawUnderline, gxm_XmStringDrawUnderline_w, 0, 0, 1, H_XmStringDrawUnderline); - XM_DEFINE_PROCEDURE(XmGetDestination, gxm_XmGetDestination_w, 1, 0, 0, H_XmGetDestination); - XM_DEFINE_PROCEDURE(XmIsTraversable, gxm_XmIsTraversable_w, 1, 0, 0, H_XmIsTraversable); - XM_DEFINE_PROCEDURE(XmGetVisibility, gxm_XmGetVisibility_w, 1, 0, 0, H_XmGetVisibility); - XM_DEFINE_PROCEDURE(XmGetTabGroup, gxm_XmGetTabGroup_w, 1, 0, 0, H_XmGetTabGroup); - XM_DEFINE_PROCEDURE(XmGetFocusWidget, gxm_XmGetFocusWidget_w, 1, 0, 0, H_XmGetFocusWidget); - XM_DEFINE_PROCEDURE(XmProcessTraversal, gxm_XmProcessTraversal_w, 2, 0, 0, H_XmProcessTraversal); - XM_DEFINE_PROCEDURE(XmCreateMenuShell, gxm_XmCreateMenuShell_w, 3, 1, 0, H_XmCreateMenuShell); - - XM_DEFINE_PROCEDURE(XmIsMessageBox, gxm_XmIsMessageBox_w, 1, 0, 0, H_XmIsMessageBox); - XM_DEFINE_PROCEDURE(XmIsArrowButtonGadget, gxm_XmIsArrowButtonGadget_w, 1, 0, 0, H_XmIsArrowButtonGadget); - XM_DEFINE_PROCEDURE(XmIsArrowButton, gxm_XmIsArrowButton_w, 1, 0, 0, H_XmIsArrowButton); - XM_DEFINE_PROCEDURE(XmIsNotebook, gxm_XmIsNotebook_w, 1, 0, 0, H_XmIsNotebook); - XM_DEFINE_PROCEDURE(XmIsComboBox, gxm_XmIsComboBox_w, 1, 0, 0, H_XmIsComboBox); - XM_DEFINE_PROCEDURE(XmIsContainer, gxm_XmIsContainer_w, 1, 0, 0, H_XmIsContainer); - XM_DEFINE_PROCEDURE(XmIsGrabShell, gxm_XmIsGrabShell_w, 1, 0, 0, H_XmIsGrabShell); - XM_DEFINE_PROCEDURE(XmIsIconGadget, gxm_XmIsIconGadget_w, 1, 0, 0, H_XmIsIconGadget); - XM_DEFINE_PROCEDURE(XmIsIconHeader, gxm_XmIsIconHeader_w, 1, 0, 0, H_XmIsIconHeader); - XM_DEFINE_PROCEDURE(XmIsPanedWindow, gxm_XmIsPanedWindow_w, 1, 0, 0, H_XmIsPanedWindow); - XM_DEFINE_PROCEDURE(XmIsBulletinBoard, gxm_XmIsBulletinBoard_w, 1, 0, 0, H_XmIsBulletinBoard); - XM_DEFINE_PROCEDURE(XmIsPrimitive, gxm_XmIsPrimitive_w, 1, 0, 0, H_XmIsPrimitive); - XM_DEFINE_PROCEDURE(XmIsCascadeButtonGadget, gxm_XmIsCascadeButtonGadget_w, 1, 0, 0, H_XmIsCascadeButtonGadget); - XM_DEFINE_PROCEDURE(XmIsCascadeButton, gxm_XmIsCascadeButton_w, 1, 0, 0, H_XmIsCascadeButton); - XM_DEFINE_PROCEDURE(XmIsPushButtonGadget, gxm_XmIsPushButtonGadget_w, 1, 0, 0, H_XmIsPushButtonGadget); - XM_DEFINE_PROCEDURE(XmIsPushButton, gxm_XmIsPushButton_w, 1, 0, 0, H_XmIsPushButton); - XM_DEFINE_PROCEDURE(XmIsCommand, gxm_XmIsCommand_w, 1, 0, 0, H_XmIsCommand); - XM_DEFINE_PROCEDURE(XmIsRowColumn, gxm_XmIsRowColumn_w, 1, 0, 0, H_XmIsRowColumn); - XM_DEFINE_PROCEDURE(XmIsScale, gxm_XmIsScale_w, 1, 0, 0, H_XmIsScale); - XM_DEFINE_PROCEDURE(XmIsScreen, gxm_XmIsScreen_w, 1, 0, 0, H_XmIsScreen); - XM_DEFINE_PROCEDURE(XmIsScrollBar, gxm_XmIsScrollBar_w, 1, 0, 0, H_XmIsScrollBar); - XM_DEFINE_PROCEDURE(XmIsDialogShell, gxm_XmIsDialogShell_w, 1, 0, 0, H_XmIsDialogShell); - XM_DEFINE_PROCEDURE(XmIsScrolledWindow, gxm_XmIsScrolledWindow_w, 1, 0, 0, H_XmIsScrolledWindow); - XM_DEFINE_PROCEDURE(XmIsDisplay, gxm_XmIsDisplay_w, 1, 0, 0, H_XmIsDisplay); - XM_DEFINE_PROCEDURE(XmIsSelectionBox, gxm_XmIsSelectionBox_w, 1, 0, 0, H_XmIsSelectionBox); - XM_DEFINE_PROCEDURE(XmIsDragContext, gxm_XmIsDragContext_w, 1, 0, 0, H_XmIsDragContext); - XM_DEFINE_PROCEDURE(XmIsSeparatorGadget, gxm_XmIsSeparatorGadget_w, 1, 0, 0, H_XmIsSeparatorGadget); - XM_DEFINE_PROCEDURE(XmIsDragIconObjectClass, gxm_XmIsDragIconObjectClass_w, 1, 0, 0, H_XmIsDragIconObjectClass); - XM_DEFINE_PROCEDURE(XmIsSeparator, gxm_XmIsSeparator_w, 1, 0, 0, H_XmIsSeparator); - XM_DEFINE_PROCEDURE(XmIsDrawingArea, gxm_XmIsDrawingArea_w, 1, 0, 0, H_XmIsDrawingArea); - XM_DEFINE_PROCEDURE(XmIsDrawnButton, gxm_XmIsDrawnButton_w, 1, 0, 0, H_XmIsDrawnButton); - XM_DEFINE_PROCEDURE(XmIsDropSiteManager, gxm_XmIsDropSiteManager_w, 1, 0, 0, H_XmIsDropSiteManager); - XM_DEFINE_PROCEDURE(XmIsDropTransfer, gxm_XmIsDropTransfer_w, 1, 0, 0, H_XmIsDropTransfer); - XM_DEFINE_PROCEDURE(XmIsTextField, gxm_XmIsTextField_w, 1, 0, 0, H_XmIsTextField); - XM_DEFINE_PROCEDURE(XmIsFileSelectionBox, gxm_XmIsFileSelectionBox_w, 1, 0, 0, H_XmIsFileSelectionBox); - XM_DEFINE_PROCEDURE(XmIsText, gxm_XmIsText_w, 1, 0, 0, H_XmIsText); - XM_DEFINE_PROCEDURE(XmIsForm, gxm_XmIsForm_w, 1, 0, 0, H_XmIsForm); - XM_DEFINE_PROCEDURE(XmIsFrame, gxm_XmIsFrame_w, 1, 0, 0, H_XmIsFrame); - XM_DEFINE_PROCEDURE(XmIsGadget, gxm_XmIsGadget_w, 1, 0, 0, H_XmIsGadget); - XM_DEFINE_PROCEDURE(XmIsToggleButtonGadget, gxm_XmIsToggleButtonGadget_w, 1, 0, 0, H_XmIsToggleButtonGadget); - XM_DEFINE_PROCEDURE(XmIsToggleButton, gxm_XmIsToggleButton_w, 1, 0, 0, H_XmIsToggleButton); - XM_DEFINE_PROCEDURE(XmIsLabelGadget, gxm_XmIsLabelGadget_w, 1, 0, 0, H_XmIsLabelGadget); - XM_DEFINE_PROCEDURE(XmIsLabel, gxm_XmIsLabel_w, 1, 0, 0, H_XmIsLabel); - XM_DEFINE_PROCEDURE(XmIsVendorShell, gxm_XmIsVendorShell_w, 1, 0, 0, H_XmIsVendorShell); - XM_DEFINE_PROCEDURE(XmIsList, gxm_XmIsList_w, 1, 0, 0, H_XmIsList); - XM_DEFINE_PROCEDURE(XmIsMainWindow, gxm_XmIsMainWindow_w, 1, 0, 0, H_XmIsMainWindow); - XM_DEFINE_PROCEDURE(XmIsManager, gxm_XmIsManager_w, 1, 0, 0, H_XmIsManager); - XM_DEFINE_PROCEDURE(XmIsMenuShell, gxm_XmIsMenuShell_w, 1, 0, 0, H_XmIsMenuShell); - XM_DEFINE_PROCEDURE(XmListGetSelectedPos, gxm_XmListGetSelectedPos_w, 1, 0, 0, H_XmListGetSelectedPos); -#endif -#if HAVE_XmCreateButtonBox - XM_DEFINE_PROCEDURE(XmIsButtonBox, gxm_XmIsButtonBox_w, 1, 0, 0, H_XmIsButtonBox); - XM_DEFINE_PROCEDURE(XmCreateButtonBox, gxm_XmCreateButtonBox_w, 3, 1, 0, H_XmCreateButtonBox); -#endif -#if HAVE_XmCreateDataField - XM_DEFINE_PROCEDURE(XmIsDataField, gxm_XmIsDataField_w, 1, 0, 0, H_XmIsDataField); - XM_DEFINE_PROCEDURE(XmCreateDataField, gxm_XmCreateDataField_w, 3, 1, 0, H_XmCreateDataField); - XM_DEFINE_PROCEDURE(XmDataFieldSetString, gxm_XmDataFieldSetString_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldGetString, gxm_XmDataFieldGetString_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldSetHighlight, gxm_XmDataFieldSetHighlight_w, 4, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldSetAddMode, gxm_XmDataFieldSetAddMode_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldGetSelection, gxm_XmDataFieldGetSelection_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldSetSelection, gxm_XmDataFieldSetSelection_w, 4, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldGetSelectionPosition, gxm_XmDataFieldGetSelectionPosition_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldXYToPos, gxm_XmDataFieldXYToPos_w, 3, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldShowPosition, gxm_XmDataFieldShowPosition_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldCut, gxm_XmDataFieldCut_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldCopy, gxm_XmDataFieldCopy_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldPaste, gxm_XmDataFieldPaste_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldSetEditable, gxm_XmDataFieldSetEditable_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDataFieldSetInsertionPosition, gxm_XmDataFieldSetInsertionPosition_w, 2, 0, 0, NULL); -#endif -#if HAVE_XmCreateTabStack - XM_DEFINE_PROCEDURE(XmIsTabStack, gxm_XmIsTabStack_w, 1, 0, 0, H_XmIsTabStack); - XM_DEFINE_PROCEDURE(XmTabStackGetSelectedTab, gxm_XmTabStackGetSelectedTab_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmTabStackSelectTab, gxm_XmTabStackSelectTab_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmCreateTabStack, gxm_XmCreateTabStack_w, 3, 1, 0, H_XmCreateTabStack); -#if HAVE_XmTabStackXYToWidget - XM_DEFINE_PROCEDURE(XmTabStackIndexToWidget, gxm_XmTabStackIndexToWidget_w, 2, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmTabStackXYToWidget, gxm_XmTabStackXYToWidget_w, 3, 0, 0, NULL); -#endif -#endif -#if HAVE_XmCreateColumn - XM_DEFINE_PROCEDURE(XmCreateColumn, gxm_XmCreateColumn_w, 3, 1, 0, H_XmCreateColumn); - XM_DEFINE_PROCEDURE(XmIsColumn, gxm_XmIsColumn_w, 1, 0, 0, H_XmIsColumn); -#if HAVE_XmColumnGetChildLabel - XM_DEFINE_PROCEDURE(XmColumnGetChildLabel, gxm_XmColumnGetChildLabel_w, 1, 0, 0, NULL); -#endif -#endif -#if HAVE_XmCreateDropDown - XM_DEFINE_PROCEDURE(XmIsDropDown, gxm_XmIsDropDown_w, 1, 0, 0, H_XmIsDropDown); - XM_DEFINE_PROCEDURE(XmDropDownGetValue, gxm_XmDropDownGetValue_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDropDownGetList, gxm_XmDropDownGetList_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDropDownGetText, gxm_XmDropDownGetText_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDropDownGetArrow, gxm_XmDropDownGetArrow_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmDropDownGetLabel, gxm_XmDropDownGetLabel_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XmCreateDropDown, gxm_XmCreateDropDown_w, 3, 1, 0, H_XmCreateDropDown); -#endif -#if HAVE_XmCreateButtonBox - XM_DEFINE_PROCEDURE(XmButtonBox?, gxm_XmIsButtonBox_w, 1, 0, 0, H_XmIsButtonBox); -#endif -#if HAVE_XmCreateTabStack - XM_DEFINE_PROCEDURE(XmTabStack?, gxm_XmIsTabStack_w, 1, 0, 0, H_XmIsTabStack); -#endif -#if HAVE_XmCreateDataField - XM_DEFINE_PROCEDURE(XmDataField?, gxm_XmIsDataField_w, 1, 0, 0, H_XmIsDataField); -#endif -#if HAVE_XmCreateDropDown - XM_DEFINE_PROCEDURE(XmDropDown?, gxm_XmIsDropDown_w, 1, 0, 0, H_XmIsDropDown); -#endif -#if HAVE_XmCreateColumn - XM_DEFINE_PROCEDURE(XmColumn?, gxm_XmIsColumn_w, 1, 0, 0, H_XmIsColumn); -#endif - -#if HAVE_MOTIF -#endif - - XM_DEFINE_PROCEDURE(XpmCreatePixmapFromData, gxm_XpmCreatePixmapFromData_w, 4, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmCreateDataFromPixmap, gxm_XpmCreateDataFromPixmap_w, 4, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmReadFileToPixmap, gxm_XpmReadFileToPixmap_w, 4, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmReadFileToXpmImage, gxm_XpmReadFileToXpmImage_w, 1, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmGetErrorString, gxm_XpmGetErrorString_w, 1, 0, 0, H_XpmGetErrorString); - XM_DEFINE_PROCEDURE(XpmReadPixmapFile, gxm_XpmReadFileToPixmap_w, 4, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmWriteFileFromPixmap, gxm_XpmWriteFileFromPixmap_w, 5, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmWritePixmapFile, gxm_XpmWriteFileFromPixmap_w, 5, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmCreatePixmapFromXpmImage, gxm_XpmCreatePixmapFromXpmImage_w, 4, 0, 0, NULL); - XM_DEFINE_PROCEDURE(XpmCreateXpmImageFromPixmap, gxm_XpmCreateXpmImageFromPixmap_w, 4, 0, 0, NULL); - - XM_DEFINE_PROCEDURE(XGetPixel, gxm_XGetPixel_w, 3, 0, 0, H_XGetPixel); - XM_DEFINE_PROCEDURE(XDestroyImage, gxm_XDestroyImage_w, 1, 0, 0, H_XDestroyImage); - XM_DEFINE_PROCEDURE(XPutPixel, gxm_XPutPixel_w, 4, 0, 0, H_XPutPixel); - XM_DEFINE_PROCEDURE(XSubImage, gxm_XSubImage_w, 5, 0, 0, H_XSubImage); - XM_DEFINE_PROCEDURE(XAddPixel, gxm_XAddPixel_w, 2, 0, 0, H_XAddPixel); - -#if HAVE_MOTIF - XM_DEFINE_PROCEDURE(XtAppContext?, XEN_XtAppContext_p_w, 1, 0, 0, PROC_TRUE " if arg is a XtAppContext"); - XM_DEFINE_PROCEDURE(XtRequestId?, XEN_XtRequestId_p_w, 1, 0, 0, PROC_TRUE " if arg is a XtRequestId"); - XM_DEFINE_PROCEDURE(XtWorkProcId?, XEN_XtWorkProcId_p_w, 1, 0, 0, PROC_TRUE " if arg is a XtWorkProcId"); - XM_DEFINE_PROCEDURE(XtInputId?, XEN_XtInputId_p_w, 1, 0, 0, PROC_TRUE " if arg is a XtInputId"); - XM_DEFINE_PROCEDURE(XtIntervalId?, XEN_XtIntervalId_p_w, 1, 0, 0, PROC_TRUE " if arg is a XtIntervalId"); -#endif - XM_DEFINE_PROCEDURE(Screen?, XEN_Screen_p_w, 1, 0, 0, PROC_TRUE " if arg is a Screen"); - XM_DEFINE_PROCEDURE(XEvent?, XEN_XEvent_p_w, 1, 0, 0, PROC_TRUE " if arg is a XEvent"); - XM_DEFINE_PROCEDURE(XRectangle?, XEN_XRectangle_p_w, 1, 0, 0, PROC_TRUE " if arg is a XRectangle"); - XM_DEFINE_PROCEDURE(XArc?, XEN_XArc_p_w, 1, 0, 0, PROC_TRUE " if arg is a XArc"); - XM_DEFINE_PROCEDURE(XPoint?, XEN_XPoint_p_w, 1, 0, 0, PROC_TRUE " if arg is a XPoint"); - XM_DEFINE_PROCEDURE(XSegment?, XEN_XSegment_p_w, 1, 0, 0, PROC_TRUE " if arg is a XSegment"); - XM_DEFINE_PROCEDURE(XColor?, XEN_XColor_p_w, 1, 0, 0, PROC_TRUE " if arg is a XColor"); - XM_DEFINE_PROCEDURE(Atom?, XEN_Atom_p_w, 1, 0, 0, PROC_TRUE " if arg is an Atom"); - XM_DEFINE_PROCEDURE(Colormap?, XEN_Colormap_p_w, 1, 0, 0, PROC_TRUE " if arg is a Colormap"); - XM_DEFINE_PROCEDURE(XModifierKeymap?, XEN_XModifierKeymap_p_w, 1, 0, 0, PROC_TRUE " if arg is a XModifierKeymap"); - XM_DEFINE_PROCEDURE(Depth?, XEN_Depth_p_w, 1, 0, 0, PROC_TRUE " if arg is a Depth"); - XM_DEFINE_PROCEDURE(Display?, XEN_Display_p_w, 1, 0, 0, PROC_TRUE " if arg is a Display"); - XM_DEFINE_PROCEDURE(Drawable?, XEN_Window_p_w, 1, 0, 0, PROC_TRUE " if arg is a Drawable"); - XM_DEFINE_PROCEDURE(Font?, XEN_Font_p_w, 1, 0, 0, PROC_TRUE " if arg is a Font"); - XM_DEFINE_PROCEDURE(GC?, XEN_GC_p_w, 1, 0, 0, PROC_TRUE " if arg is a GC"); - XM_DEFINE_PROCEDURE(KeySym?, XEN_KeySym_p_w, 1, 0, 0, PROC_TRUE " if arg is a KeySym"); - XM_DEFINE_PROCEDURE(Pixel?, XEN_Pixel_p_w, 1, 0, 0, PROC_TRUE " if arg is a Pixel"); - XM_DEFINE_PROCEDURE(Pixmap?, XEN_Pixmap_p_w, 1, 0, 0, PROC_TRUE " if arg is a Pixmap"); - XM_DEFINE_PROCEDURE(Region?, XEN_Region_p_w, 1, 0, 0, PROC_TRUE " if arg is a Region"); - XM_DEFINE_PROCEDURE(Time?, XEN_Time_p_w, 1, 0, 0, PROC_TRUE " if arg is a Time"); - XM_DEFINE_PROCEDURE(Visual?, XEN_Visual_p_w, 1, 0, 0, PROC_TRUE " if arg is a Visual"); - XM_DEFINE_PROCEDURE(Window?, XEN_Window_p_w, 1, 0, 0, PROC_TRUE " if arg is a Window"); -#if HAVE_MOTIF - XM_DEFINE_PROCEDURE(Widget?, XEN_Widget_p_w, 1, 0, 0, PROC_TRUE " if arg is a Widget"); - XM_DEFINE_PROCEDURE(XmStringContext?, XEN_XmStringContext_p_w, 1, 0, 0, PROC_TRUE " if arg is a XmStringContext"); -#endif - XM_DEFINE_PROCEDURE(XFontProp?, XEN_XFontProp_p_w, 1, 0, 0, PROC_TRUE " if arg is a XFontProp"); - XM_DEFINE_PROCEDURE(XFontSet?, XEN_XFontSet_p_w, 1, 0, 0, PROC_TRUE " if arg is a XFontSet"); - XM_DEFINE_PROCEDURE(XFontStruct?, XEN_XFontStruct_p_w, 1, 0, 0, PROC_TRUE " if arg is a XFontStruct"); - XM_DEFINE_PROCEDURE(XGCValues?, XEN_XGCValues_p_w, 1, 0, 0, PROC_TRUE " if arg is a XGCValues"); - XM_DEFINE_PROCEDURE(XImage?, XEN_XImage_p_w, 1, 0, 0, PROC_TRUE " if arg is a XImage"); - XM_DEFINE_PROCEDURE(XVisualInfo?, XEN_XVisualInfo_p_w, 1, 0, 0, PROC_TRUE " if arg is a XVisualInfo"); - XM_DEFINE_PROCEDURE(XWMHints?, XEN_XWMHints_p_w, 1, 0, 0, PROC_TRUE " if arg is a XWMHints"); - XM_DEFINE_PROCEDURE(XWindowAttributes?, XEN_XWindowAttributes_p_w, 1, 0, 0, PROC_TRUE " if arg is a XWindowAttributes"); - XM_DEFINE_PROCEDURE(XWindowChanges?, XEN_XWindowChanges_p_w, 1, 0, 0, PROC_TRUE " if arg is a XWindowChanges"); - XM_DEFINE_PROCEDURE(KeyCode?, XEN_KeyCode_p_w, 1, 0, 0, PROC_TRUE " if arg is a KeyCode"); - XM_DEFINE_PROCEDURE(XContext?, XEN_XContext_p_w, 1, 0, 0, PROC_TRUE " if arg is a XContext"); - XM_DEFINE_PROCEDURE(XCharStruct?, XEN_XCharStruct_p_w, 1, 0, 0, PROC_TRUE " if arg is a XCharStruct"); - XM_DEFINE_PROCEDURE(XTextItem?, XEN_XTextItem_p_w, 1, 0, 0, PROC_TRUE " if arg is a XTextItem"); - XM_DEFINE_PROCEDURE(XStandardColormap?, XEN_XStandardColormap_p_w, 1, 0, 0, PROC_TRUE " if arg is a XStandardColormap"); - XM_DEFINE_PROCEDURE(Cursor?, XEN_Cursor_p_w, 1, 0, 0, PROC_TRUE " if arg is a Cursor"); -#if HAVE_MOTIF - XM_DEFINE_PROCEDURE(WidgetClass?, XEN_WidgetClass_p_w, 1, 0, 0, PROC_TRUE " if arg is a WidgetClass"); - XM_DEFINE_PROCEDURE(XmString?, XEN_XmString_p_w, 1, 0, 0, PROC_TRUE " if arg is a XmString"); - XM_DEFINE_PROCEDURE(XmToggleButton?, gxm_XmIsToggleButton_w, 1, 0, 0, H_XmIsToggleButton); - XM_DEFINE_PROCEDURE(XmDrawingArea?, gxm_XmIsDrawingArea_w, 1, 0, 0, H_XmIsDrawingArea); - XM_DEFINE_PROCEDURE(XmPushButton?, gxm_XmIsPushButton_w, 1, 0, 0, H_XmIsPushButton); - XM_DEFINE_PROCEDURE(XmTextField?, gxm_XmIsTextField_w, 1, 0, 0, H_XmIsTextField); - XM_DEFINE_PROCEDURE(XmFileSelectionBox?, gxm_XmIsFileSelectionBox_w, 1, 0, 0, H_XmIsFileSelectionBox); - XM_DEFINE_PROCEDURE(XmText?, gxm_XmIsText_w, 1, 0, 0, H_XmIsText); - XM_DEFINE_PROCEDURE(XmFrame?, gxm_XmIsFrame_w, 1, 0, 0, H_XmIsFrame); - XM_DEFINE_PROCEDURE(XmLabel?, gxm_XmIsLabel_w, 1, 0, 0, H_XmIsLabel); - XM_DEFINE_PROCEDURE(XmList?, gxm_XmIsList_w, 1, 0, 0, H_XmIsList); - XM_DEFINE_PROCEDURE(XmArrowButton?, gxm_XmIsArrowButton_w, 1, 0, 0, H_XmIsArrowButton); - XM_DEFINE_PROCEDURE(XmScrollBar?, gxm_XmIsScrollBar_w, 1, 0, 0, H_XmIsScrollBar); - XM_DEFINE_PROCEDURE(XmCommand?, gxm_XmIsCommand_w, 1, 0, 0, H_XmIsCommand); - XM_DEFINE_PROCEDURE(XmScale?, gxm_XmIsScale_w, 1, 0, 0, H_XmIsScale); - XM_DEFINE_PROCEDURE(XmRowColumn?, gxm_XmIsRowColumn_w, 1, 0, 0, H_XmIsRowColumn); - XM_DEFINE_PROCEDURE(XmTab?, XEN_XmTab_p_w, 1, 0, 0, PROC_TRUE " if arg is a Tab"); - XM_DEFINE_PROCEDURE(XmNotebook?, gxm_XmIsNotebook_w, 1, 0, 0, H_XmIsNotebook); - XM_DEFINE_PROCEDURE(XmComboBox?, gxm_XmIsComboBox_w, 1, 0, 0, H_XmIsComboBox); - XM_DEFINE_PROCEDURE(XmContainer?, gxm_XmIsContainer_w, 1, 0, 0, H_XmIsContainer); - XM_DEFINE_PROCEDURE(XmIconHeader?, gxm_XmIsIconHeader_w, 1, 0, 0, H_XmIsIconHeader); - XM_DEFINE_PROCEDURE(XmGrabShell?, gxm_XmIsGrabShell_w, 1, 0, 0, H_XmIsGrabShell); - XM_DEFINE_PROCEDURE(XmRendition?, XEN_XmRendition_p_w, 1, 0, 0, PROC_TRUE " if arg is a Rendition"); - XM_DEFINE_PROCEDURE(XmRenderTable?, XEN_XmRenderTable_p_w, 1, 0, 0, PROC_TRUE " if arg is a RenderTable"); - XM_DEFINE_PROCEDURE(XmIconGadget?, gxm_XmIsIconGadget_w, 1, 0, 0, H_XmIsIconGadget); - XM_DEFINE_PROCEDURE(XmTabList?, XEN_XmTabList_p_w, 1, 0, 0, PROC_TRUE " if arg is a TabList"); - XM_DEFINE_PROCEDURE(XmParseMapping?, XEN_XmParseMapping_p_w, 1, 0, 0, PROC_TRUE " if arg is a ParseMapping"); - XM_DEFINE_PROCEDURE(XmPanedWindow?, gxm_XmIsPanedWindow_w, 1, 0, 0, H_XmIsPanedWindow); - XM_DEFINE_PROCEDURE(XmScrolledWindow?, gxm_XmIsScrolledWindow_w, 1, 0, 0, H_XmIsScrolledWindow); - XM_DEFINE_PROCEDURE(XmCascadeButton?, gxm_XmIsCascadeButton_w, 1, 0, 0, H_XmIsCascadeButton); - XM_DEFINE_PROCEDURE(XmForm?, gxm_XmIsForm_w, 1, 0, 0, H_XmIsForm); - XM_DEFINE_PROCEDURE(XmBulletinBoard?, gxm_XmIsBulletinBoard_w, 1, 0, 0, H_XmIsBulletinBoard); - XM_DEFINE_PROCEDURE(XmScreen?, gxm_XmIsScreen_w, 1, 0, 0, H_XmIsScreen); - XM_DEFINE_PROCEDURE(XmDialogShell?, gxm_XmIsDialogShell_w, 1, 0, 0, H_XmIsDialogShell); - XM_DEFINE_PROCEDURE(XmDisplay?, gxm_XmIsDisplay_w, 1, 0, 0, H_XmIsDisplay); - XM_DEFINE_PROCEDURE(XmSelectionBox?, gxm_XmIsSelectionBox_w, 1, 0, 0, H_XmIsSelectionBox); - XM_DEFINE_PROCEDURE(XmDragContext?, gxm_XmIsDragContext_w, 1, 0, 0, H_XmIsDragContext); - XM_DEFINE_PROCEDURE(XmDragIconObjectClass?, gxm_XmIsDragIconObjectClass_w, 1, 0, 0, H_XmIsDragIconObjectClass); - XM_DEFINE_PROCEDURE(XmSeparator?, gxm_XmIsSeparator_w, 1, 0, 0, H_XmIsSeparator); - XM_DEFINE_PROCEDURE(XmDropSiteManager?, gxm_XmIsDropSiteManager_w, 1, 0, 0, H_XmIsDropSiteManager); - XM_DEFINE_PROCEDURE(XmDropTransfer?, gxm_XmIsDropTransfer_w, 1, 0, 0, H_XmIsDropTransfer); - XM_DEFINE_PROCEDURE(XmVendorShell?, gxm_XmIsVendorShell_w, 1, 0, 0, H_XmIsVendorShell); - XM_DEFINE_PROCEDURE(XmMainWindow?, gxm_XmIsMainWindow_w, 1, 0, 0, H_XmIsMainWindow); - XM_DEFINE_PROCEDURE(XmMessageBox?, gxm_XmIsMessageBox_w, 1, 0, 0, H_XmIsMessageBox); - XM_DEFINE_PROCEDURE(XmManager?, gxm_XmIsManager_w, 1, 0, 0, H_XmIsManager); - XM_DEFINE_PROCEDURE(XmMenuShell?, gxm_XmIsMenuShell_w, 1, 0, 0, H_XmIsMenuShell); - XM_DEFINE_PROCEDURE(XmLabelGadget?, gxm_XmIsLabelGadget_w, 1, 0, 0, H_XmIsLabelGadget); - XM_DEFINE_PROCEDURE(XmPushButtonGadget?, gxm_XmIsPushButtonGadget_w, 1, 0, 0, H_XmIsPushButtonGadget); - XM_DEFINE_PROCEDURE(XmSeparatorGadget?, gxm_XmIsSeparatorGadget_w, 1, 0, 0, H_XmIsSeparatorGadget); - XM_DEFINE_PROCEDURE(XmArrowButtonGadget?, gxm_XmIsArrowButtonGadget_w, 1, 0, 0, H_XmIsArrowButtonGadget); - XM_DEFINE_PROCEDURE(XmCascadeButtonGadget?, gxm_XmIsCascadeButtonGadget_w, 1, 0, 0, H_XmIsCascadeButtonGadget); - XM_DEFINE_PROCEDURE(XmToggleButtonGadget?, gxm_XmIsToggleButtonGadget_w, 1, 0, 0, H_XmIsToggleButtonGadget); - XM_DEFINE_PROCEDURE(XmDrawnButton?, gxm_XmIsDrawnButton_w, 1, 0, 0, H_XmIsDrawnButton); - XM_DEFINE_PROCEDURE(XmPrimitive?, gxm_XmIsPrimitive_w, 1, 0, 0, H_XmIsPrimitive); - XM_DEFINE_PROCEDURE(XmTextSource?, XEN_XmTextSource_p_w, 1, 0, 0, PROC_TRUE " if arg is a TextSource"); + xm_protected = Xen_make_vector(xm_protected_size, Xen_false); + Xen_vector_set(xm_gc_table, 0, xm_protected); + + XM_define_procedure(XtSetArg, gxm_XtSetArg_w, 3, 0, 0, H_XtSetArg); + XM_define_procedure(XtManageChildren, gxm_XtManageChildren_w, 1, 1, 0, H_XtManageChildren); + XM_define_procedure(XtManageChild, gxm_XtManageChild_w, 1, 0, 0, H_XtManageChild); + XM_define_procedure(XtUnmanageChildren, gxm_XtUnmanageChildren_w, 1, 1, 0, H_XtUnmanageChildren); + XM_define_procedure(XtUnmanageChild, gxm_XtUnmanageChild_w, 1, 0, 0, H_XtUnmanageChild); + XM_define_procedure(XtDispatchEvent, gxm_XtDispatchEvent_w, 1, 0, 0, H_XtDispatchEvent); + XM_define_procedure(XtCallAcceptFocus, gxm_XtCallAcceptFocus_w, 2, 0, 0, H_XtCallAcceptFocus); + XM_define_procedure(XtAppPeekEvent, gxm_XtAppPeekEvent_w, 1, 0, 0, H_XtAppPeekEvent); + XM_define_procedure(XtIsSubclass, gxm_XtIsSubclass_w, 2, 0, 0, H_XtIsSubclass); + XM_define_procedure(XtIsObject, gxm_XtIsObject_w, 1, 0, 0, H_XtIsObject); + XM_define_procedure(XtIsManaged, gxm_XtIsManaged_w, 1, 0, 0, H_XtIsManaged); + XM_define_procedure(XtIsRealized, gxm_XtIsRealized_w, 1, 0, 0, H_XtIsRealized); + XM_define_procedure(XtIsSensitive, gxm_XtIsSensitive_w, 1, 0, 0, H_XtIsSensitive); + XM_define_procedure(XtOwnSelection, gxm_XtOwnSelection_w, 6, 0, 0, H_XtOwnSelection); + XM_define_procedure(XtOwnSelectionIncremental, gxm_XtOwnSelectionIncremental_w, 8, 0, 0, H_XtOwnSelectionIncremental); + XM_define_procedure(XtMakeResizeRequest, gxm_XtMakeResizeRequest_w, 3, 0, 0, H_XtMakeResizeRequest); + XM_define_procedure(XtTranslateCoords, gxm_XtTranslateCoords_w, 3, 0, 0, H_XtTranslateCoords); + XM_define_procedure(XtKeysymToKeycodeList, gxm_XtKeysymToKeycodeList_w, 2, 0, 0, H_XtKeysymToKeycodeList); + XM_define_procedure(XtParseTranslationTable, gxm_XtParseTranslationTable_w, 1, 0, 0, H_XtParseTranslationTable); + XM_define_procedure(XtParseAcceleratorTable, gxm_XtParseAcceleratorTable_w, 1, 0, 0, H_XtParseAcceleratorTable); + XM_define_procedure(XtOverrideTranslations, gxm_XtOverrideTranslations_w, 2, 0, 0, H_XtOverrideTranslations); + XM_define_procedure(XtAugmentTranslations, gxm_XtAugmentTranslations_w, 2, 0, 0, H_XtAugmentTranslations); + XM_define_procedure(XtInstallAccelerators, gxm_XtInstallAccelerators_w, 2, 0, 0, H_XtInstallAccelerators); + XM_define_procedure(XtInstallAllAccelerators, gxm_XtInstallAllAccelerators_w, 2, 0, 0, H_XtInstallAllAccelerators); + XM_define_procedure(XtUninstallTranslations, gxm_XtUninstallTranslations_w, 1, 0, 0, H_XtUninstallTranslations); + XM_define_procedure(XtAppAddActions, gxm_XtAppAddActions_w, 2, 0, 0, H_XtAppAddActions); + XM_define_procedure(XtAppAddActionHook, gxm_XtAppAddActionHook_w, 2, 1, 0, H_XtAppAddActionHook); + XM_define_procedure(XtRemoveActionHook, gxm_XtRemoveActionHook_w, 1, 0, 0, H_XtRemoveActionHook); + XM_define_procedure(XtGetActionList, gxm_XtGetActionList_w, 1, 0, 0, H_XtGetActionList); + XM_define_procedure(XtCallActionProc, gxm_XtCallActionProc_w, 4, 1, 0, H_XtCallActionProc); + XM_define_procedure(XtRegisterGrabAction, gxm_XtRegisterGrabAction_w, 5, 0, 0, H_XtRegisterGrabAction); + XM_define_procedure(XtSetMultiClickTime, gxm_XtSetMultiClickTime_w, 2, 0, 0, H_XtSetMultiClickTime); + XM_define_procedure(XtGetMultiClickTime, gxm_XtGetMultiClickTime_w, 1, 0, 0, H_XtGetMultiClickTime); + XM_define_procedure(XtGetResourceList, gxm_XtGetResourceList_w, 1, 0, 0, H_XtGetResourceList); + XM_define_procedure(XtGetActionKeysym, gxm_XtGetActionKeysym_w, 1, 0, 0, H_XtGetActionKeysym); + XM_define_procedure(XtTranslateKeycode, gxm_XtTranslateKeycode_w, 3, 0, 0, H_XtTranslateKeycode); + XM_define_procedure(XtTranslateKey, gxm_XtTranslateKey_w, 3, 0, 0, H_XtTranslateKey); + XM_define_procedure(XtSetKeyTranslator, gxm_XtSetKeyTranslator_w, 2, 0, 0, H_XtSetKeyTranslator); + XM_define_procedure(XtRegisterCaseConverter, gxm_XtRegisterCaseConverter_w, 4, 0, 0, H_XtRegisterCaseConverter); + XM_define_procedure(XtConvertCase, gxm_XtConvertCase_w, 2, 0, 0, H_XtConvertCase); + XM_define_procedure(XtAddEventHandler, gxm_XtAddEventHandler_w, 4, 1, 0, H_XtAddEventHandler); + XM_define_procedure(XtRemoveEventHandler, gxm_XtRemoveEventHandler_w, 5, 0, 0, H_XtRemoveEventHandler); + XM_define_procedure(XtAddRawEventHandler, gxm_XtAddRawEventHandler_w, 5, 0, 0, H_XtAddRawEventHandler); + XM_define_procedure(XtRemoveRawEventHandler, gxm_XtRemoveRawEventHandler_w, 5, 0, 0, H_XtRemoveRawEventHandler); + XM_define_procedure(XtInsertEventHandler, gxm_XtInsertEventHandler_w, 6, 0, 0, H_XtInsertEventHandler); + XM_define_procedure(XtInsertRawEventHandler, gxm_XtInsertRawEventHandler_w, 6, 0, 0, H_XtInsertRawEventHandler); + XM_define_procedure(XtDispatchEventToWidget, gxm_XtDispatchEventToWidget_w, 2, 0, 0, H_XtDispatchEventToWidget); + XM_define_procedure(XtBuildEventMask, gxm_XtBuildEventMask_w, 1, 0, 0, H_XtBuildEventMask); + XM_define_procedure(XtAddGrab, gxm_XtAddGrab_w, 3, 0, 0, H_XtAddGrab); + XM_define_procedure(XtRemoveGrab, gxm_XtRemoveGrab_w, 1, 0, 0, H_XtRemoveGrab); + XM_define_procedure(XtAppProcessEvent, gxm_XtAppProcessEvent_w, 2, 0, 0, H_XtAppProcessEvent); + XM_define_procedure(XtAppMainLoop, gxm_XtAppMainLoop_w, 1, 0, 0, H_XtAppMainLoop); + XM_define_procedure(XtAddExposureToRegion, gxm_XtAddExposureToRegion_w, 2, 0, 0, H_XtAddExposureToRegion); + XM_define_procedure(XtSetKeyboardFocus, gxm_XtSetKeyboardFocus_w, 2, 0, 0, H_XtSetKeyboardFocus); + XM_define_procedure(XtGetKeyboardFocusWidget, gxm_XtGetKeyboardFocusWidget_w, 1, 0, 0, H_XtGetKeyboardFocusWidget); + XM_define_procedure(XtLastEventProcessed, gxm_XtLastEventProcessed_w, 1, 0, 0, H_XtLastEventProcessed); + XM_define_procedure(XtLastTimestampProcessed, gxm_XtLastTimestampProcessed_w, 1, 0, 0, H_XtLastTimestampProcessed); + XM_define_procedure(XtAppAddTimeOut, gxm_XtAppAddTimeOut_w, 3, 1, 0, H_XtAppAddTimeOut); + XM_define_procedure(XtRemoveTimeOut, gxm_XtRemoveTimeOut_w, 1, 0, 0, H_XtRemoveTimeOut); + XM_define_procedure(XtAppAddInput, gxm_XtAppAddInput_w, 4, 1, 0, H_XtAppAddInput); + XM_define_procedure(XtRemoveInput, gxm_XtRemoveInput_w, 1, 0, 0, H_XtRemoveInput); + XM_define_procedure(XtAppNextEvent, gxm_XtAppNextEvent_w, 1, 0, 0, H_XtAppNextEvent); + XM_define_procedure(XtAppPending, gxm_XtAppPending_w, 1, 0, 0, H_XtAppPending); + XM_define_procedure(XtRealizeWidget, gxm_XtRealizeWidget_w, 1, 0, 0, H_XtRealizeWidget); + XM_define_procedure(XtUnrealizeWidget, gxm_XtUnrealizeWidget_w, 1, 0, 0, H_XtUnrealizeWidget); + XM_define_procedure(XtDestroyWidget, gxm_XtDestroyWidget_w, 1, 0, 0, H_XtDestroyWidget); + XM_define_procedure(XtSetSensitive, gxm_XtSetSensitive_w, 2, 0, 0, H_XtSetSensitive); + XM_define_procedure(XtNameToWidget, gxm_XtNameToWidget_w, 2, 0, 0, H_XtNameToWidget); + XM_define_procedure(XtWindowToWidget, gxm_XtWindowToWidget_w, 2, 0, 0, H_XtWindowToWidget); + XM_define_procedure(XtMergeArgLists, gxm_XtMergeArgLists_w, 4, 0, 0, H_XtMergeArgLists); + XM_define_procedure(XtVaCreateArgsList, gxm_XtVaCreateArgsList_w, 2, 0, 0, H_XtVaCreateArgsList); + XM_define_procedure(XtDisplay, gxm_XtDisplay_w, 1, 0, 0, H_XtDisplay); + XM_define_procedure(XtDisplayOfObject, gxm_XtDisplayOfObject_w, 1, 0, 0, H_XtDisplayOfObject); + XM_define_procedure(XtScreen, gxm_XtScreen_w, 1, 0, 0, H_XtScreen); + XM_define_procedure(XtScreenOfObject, gxm_XtScreenOfObject_w, 1, 0, 0, H_XtScreenOfObject); + XM_define_procedure(XtWindow, gxm_XtWindow_w, 1, 0, 0, H_XtWindow); + XM_define_procedure(XtWindowOfObject, gxm_XtWindowOfObject_w, 1, 0, 0, H_XtWindowOfObject); + XM_define_procedure(XtName, gxm_XtName_w, 1, 0, 0, H_XtName); + XM_define_procedure(XtSuperclass, gxm_XtSuperclass_w, 1, 0, 0, H_XtSuperclass); + XM_define_procedure(XtClass, gxm_XtClass_w, 1, 0, 0, H_XtClass); + XM_define_procedure(XtParent, gxm_XtParent_w, 1, 0, 0, H_XtParent); + XM_define_procedure(XtAddCallback, gxm_XtAddCallback_w, 3, 1, 0, H_XtAddCallback); + XM_define_procedure(XtRemoveCallback, gxm_XtRemoveCallback_w, 3, 0, 0, H_XtRemoveCallback); + XM_define_procedure(XtAddCallbacks, gxm_XtAddCallbacks_w, 3, 0, 0, H_XtAddCallbacks); + XM_define_procedure(XtRemoveCallbacks, gxm_XtRemoveCallbacks_w, 3, 0, 0, H_XtRemoveCallbacks); + XM_define_procedure(XtRemoveAllCallbacks, gxm_XtRemoveAllCallbacks_w, 2, 0, 0, H_XtRemoveAllCallbacks); + XM_define_procedure(XtCallCallbacks, gxm_XtCallCallbacks_w, 3, 0, 0, H_XtCallCallbacks); + XM_define_procedure(XtHasCallbacks, gxm_XtHasCallbacks_w, 2, 0, 0, H_XtHasCallbacks); + XM_define_procedure(XtCreatePopupShell, gxm_XtCreatePopupShell_w, 4, 1, 0, H_XtCreatePopupShell); + XM_define_procedure(XtVaCreatePopupShell, gxm_XtVaCreatePopupShell_w, 4, 0, 0, H_XtVaCreatePopupShell); + XM_define_procedure(XtPopup, gxm_XtPopup_w, 2, 0, 0, H_XtPopup); + XM_define_procedure(XtPopupSpringLoaded, gxm_XtPopupSpringLoaded_w, 1, 0, 0, H_XtPopupSpringLoaded); + XM_define_procedure(XtCallbackNone, gxm_XtCallbackNone_w, 3, 0, 0, H_XtCallbackNone); + XM_define_procedure(XtCallbackNonexclusive, gxm_XtCallbackNonexclusive_w, 3, 0, 0, H_XtCallbackNonexclusive); + XM_define_procedure(XtCallbackExclusive, gxm_XtCallbackExclusive_w, 3, 0, 0, H_XtCallbackExclusive); + XM_define_procedure(XtPopdown, gxm_XtPopdown_w, 1, 0, 0, H_XtPopdown); + XM_define_procedure(XtCallbackPopdown, gxm_XtCallbackPopdown_w, 3, 0, 0, H_XtCallbackPopdown); + XM_define_procedure(XtCreateWidget, gxm_XtCreateWidget_w, 4, 1, 0, H_XtCreateWidget); + XM_define_procedure(XtCreateManagedWidget, gxm_XtCreateManagedWidget_w, 4, 1, 0, H_XtCreateManagedWidget); + XM_define_procedure(XtVaCreateWidget, gxm_XtVaCreateWidget_w, 4, 0, 0, H_XtVaCreateWidget); + XM_define_procedure(XtVaCreateManagedWidget, gxm_XtVaCreateManagedWidget_w, 4, 0, 0, H_XtVaCreateManagedWidget); + XM_define_procedure(XtAppCreateShell, gxm_XtAppCreateShell_w, 5, 1, 0, H_XtAppCreateShell); + XM_define_procedure(XtVaAppCreateShell, gxm_XtVaAppCreateShell_w, 5, 0, 0, H_XtVaAppCreateShell); + XM_define_procedure(XtToolkitInitialize, gxm_XtToolkitInitialize_w, 0, 0, 0, H_XtToolkitInitialize); + XM_define_procedure(XtSetLanguageProc, gxm_XtSetLanguageProc_w, 3, 0, 0, H_XtSetLanguageProc); + XM_define_procedure(XtDisplayInitialize, gxm_XtDisplayInitialize_w, 6, 0, 0, H_XtDisplayInitialize); + XM_define_procedure(XtOpenApplication, gxm_XtOpenApplication_w, 5, 1, 0, H_XtOpenApplication); + XM_define_procedure(XtVaOpenApplication, gxm_XtVaOpenApplication_w, 5, 1, 0, H_XtVaOpenApplication); + XM_define_procedure(XtAppInitialize, gxm_XtAppInitialize_w, 4, 1, 0, H_XtAppInitialize); + XM_define_procedure(XtVaAppInitialize, gxm_XtVaAppInitialize_w, 4, 1, 0, H_XtVaAppInitialize); + XM_define_procedure(XtOpenDisplay, gxm_XtOpenDisplay_w, 6, 0, 0, H_XtOpenDisplay); + XM_define_procedure(XtCreateApplicationContext, gxm_XtCreateApplicationContext_w, 0, 0, 0, H_XtCreateApplicationContext); + XM_define_procedure(XtDestroyApplicationContext, gxm_XtDestroyApplicationContext_w, 1, 0, 0, H_XtDestroyApplicationContext); + XM_define_procedure(XtAppSetFallbackResources, gxm_XtAppSetFallbackResources_w, 2, 0, 0, H_XtAppSetFallbackResources); + XM_define_procedure(XtInitializeWidgetClass, gxm_XtInitializeWidgetClass_w, 1, 0, 0, H_XtInitializeWidgetClass); + XM_define_procedure(XtWidgetToApplicationContext, gxm_XtWidgetToApplicationContext_w, 1, 0, 0, H_XtWidgetToApplicationContext); + XM_define_procedure(XtDisplayToApplicationContext, gxm_XtDisplayToApplicationContext_w, 1, 0, 0, H_XtDisplayToApplicationContext); + XM_define_procedure(XtCloseDisplay, gxm_XtCloseDisplay_w, 1, 0, 0, H_XtCloseDisplay); + XM_define_procedure(XtSetValues, gxm_XtSetValues_w, 2, 1, 0, H_XtSetValues); + XM_define_procedure(XtVaSetValues, gxm_XtVaSetValues_w, 2, 0, 0, H_XtVaSetValues); + XM_define_procedure(XtGetValues, gxm_XtGetValues_w, 2, 1, 0, H_XtGetValues); + XM_define_procedure(XtVaGetValues, gxm_XtVaGetValues_w, 2, 0, 0, H_XtVaGetValues); + XM_define_procedure(XtAppSetErrorMsgHandler, gxm_XtAppSetErrorMsgHandler_w, 2, 0, 0, H_XtAppSetErrorMsgHandler); + XM_define_procedure(XtAppSetWarningMsgHandler, gxm_XtAppSetWarningMsgHandler_w, 2, 0, 0, H_XtAppSetWarningMsgHandler); + XM_define_procedure(XtAppErrorMsg, gxm_XtAppErrorMsg_w, 7, 0, 0, H_XtAppErrorMsg); + XM_define_procedure(XtAppWarningMsg, gxm_XtAppWarningMsg_w, 7, 0, 0, H_XtAppWarningMsg); + XM_define_procedure(XtAppSetErrorHandler, gxm_XtAppSetErrorHandler_w, 2, 0, 0, H_XtAppSetErrorHandler); + XM_define_procedure(XtAppSetWarningHandler, gxm_XtAppSetWarningHandler_w, 2, 0, 0, H_XtAppSetWarningHandler); + XM_define_procedure(XtAppError, gxm_XtAppError_w, 2, 0, 0, H_XtAppError); + XM_define_procedure(XtMalloc, gxm_XtMalloc_w, 1, 0, 0, H_XtMalloc); + XM_define_procedure(XtCalloc, gxm_XtCalloc_w, 2, 0, 0, H_XtCalloc); + XM_define_procedure(XtRealloc, gxm_XtRealloc_w, 2, 0, 0, H_XtRealloc); + XM_define_procedure(XtFree, gxm_XtFree_w, 1, 0, 0, H_XtFree); + XM_define_procedure(XtAppAddWorkProc, gxm_XtAppAddWorkProc_w, 2, 1, 0, H_XtAppAddWorkProc); + XM_define_procedure(XtRemoveWorkProc, gxm_XtRemoveWorkProc_w, 1, 0, 0, H_XtRemoveWorkProc); + XM_define_procedure(XtGetGC, gxm_XtGetGC_w, 3, 0, 0, H_XtGetGC); + XM_define_procedure(XtAllocateGC, gxm_XtAllocateGC_w, 6, 0, 0, H_XtAllocateGC); + XM_define_procedure(XtDestroyGC, gxm_XtDestroyGC_w, 1, 0, 0, H_XtDestroyGC); + XM_define_procedure(XtReleaseGC, gxm_XtReleaseGC_w, 2, 0, 0, H_XtReleaseGC); + XM_define_procedure(XtFindFile, gxm_XtFindFile_w, 4, 0, 0, H_XtFindFile); + XM_define_procedure(XtResolvePathname, gxm_XtResolvePathname_w, 8, 0, 0, H_XtResolvePathname); + XM_define_procedure(XtDisownSelection, gxm_XtDisownSelection_w, 3, 0, 0, H_XtDisownSelection); + XM_define_procedure(XtGetSelectionValue, gxm_XtGetSelectionValue_w, 6, 0, 0, H_XtGetSelectionValue); + XM_define_procedure(XtGetSelectionValues, gxm_XtGetSelectionValues_w, 7, 0, 0, H_XtGetSelectionValues); + XM_define_procedure(XtAppSetSelectionTimeout, gxm_XtAppSetSelectionTimeout_w, 2, 0, 0, H_XtAppSetSelectionTimeout); + XM_define_procedure(XtAppGetSelectionTimeout, gxm_XtAppGetSelectionTimeout_w, 1, 0, 0, H_XtAppGetSelectionTimeout); + XM_define_procedure(XtGetSelectionRequest, gxm_XtGetSelectionRequest_w, 3, 0, 0, H_XtGetSelectionRequest); + XM_define_procedure(XtGetSelectionValueIncremental, gxm_XtGetSelectionValueIncremental_w, 6, 0, 0, H_XtGetSelectionValueIncremental); + XM_define_procedure(XtGetSelectionValuesIncremental, gxm_XtGetSelectionValuesIncremental_w, 7, 0, 0, H_XtGetSelectionValuesIncremental); + XM_define_procedure(XtCreateSelectionRequest, gxm_XtCreateSelectionRequest_w, 2, 0, 0, H_XtCreateSelectionRequest); + XM_define_procedure(XtSendSelectionRequest, gxm_XtSendSelectionRequest_w, 3, 0, 0, H_XtSendSelectionRequest); + XM_define_procedure(XtCancelSelectionRequest, gxm_XtCancelSelectionRequest_w, 2, 0, 0, H_XtCancelSelectionRequest); + XM_define_procedure(XtGrabKey, gxm_XtGrabKey_w, 6, 0, 0, H_XtGrabKey); + XM_define_procedure(XtUngrabKey, gxm_XtUngrabKey_w, 3, 0, 0, H_XtUngrabKey); + XM_define_procedure(XtGrabKeyboard, gxm_XtGrabKeyboard_w, 5, 0, 0, H_XtGrabKeyboard); + XM_define_procedure(XtUngrabKeyboard, gxm_XtUngrabKeyboard_w, 2, 0, 0, H_XtUngrabKeyboard); + XM_define_procedure(XtGrabButton, gxm_XtGrabButton_w, 9, 0, 0, H_XtGrabButton); + XM_define_procedure(XtUngrabButton, gxm_XtUngrabButton_w, 3, 0, 0, H_XtUngrabButton); + XM_define_procedure(XtGrabPointer, gxm_XtGrabPointer_w, 8, 0, 0, H_XtGrabPointer); + XM_define_procedure(XtUngrabPointer, gxm_XtUngrabPointer_w, 2, 0, 0, H_XtUngrabPointer); + XM_define_procedure(XtGetApplicationNameAndClass, gxm_XtGetApplicationNameAndClass_w, 1, 0, 0, H_XtGetApplicationNameAndClass); + XM_define_procedure(XtGetDisplays, gxm_XtGetDisplays_w, 1, 0, 0, H_XtGetDisplays); + XM_define_procedure(XtToolkitThreadInitialize, gxm_XtToolkitThreadInitialize_w, 0, 0, 0, H_XtToolkitThreadInitialize); + XM_define_procedure(XtAppLock, gxm_XtAppLock_w, 1, 0, 0, H_XtAppLock); + XM_define_procedure(XtAppUnlock, gxm_XtAppUnlock_w, 1, 0, 0, H_XtAppUnlock); + XM_define_procedure(XtIsRectObj, gxm_XtIsRectObj_w, 1, 0, 0, H_XtIsRectObj); + XM_define_procedure(XtIsWidget, gxm_XtIsWidget_w, 1, 0, 0, H_XtIsWidget); + XM_define_procedure(XtIsComposite, gxm_XtIsComposite_w, 1, 0, 0, H_XtIsComposite); + XM_define_procedure(XtIsConstraint, gxm_XtIsConstraint_w, 1, 0, 0, H_XtIsConstraint); + XM_define_procedure(XtIsShell, gxm_XtIsShell_w, 1, 0, 0, H_XtIsShell); + XM_define_procedure(XtIsOverrideShell, gxm_XtIsOverrideShell_w, 1, 0, 0, H_XtIsOverrideShell); + XM_define_procedure(XtIsWMShell, gxm_XtIsWMShell_w, 1, 0, 0, H_XtIsWMShell); + XM_define_procedure(XtIsVendorShell, gxm_XtIsVendorShell_w, 1, 0, 0, H_XtIsVendorShell); + XM_define_procedure(XtIsTransientShell, gxm_XtIsTransientShell_w, 1, 0, 0, H_XtIsTransientShell); + XM_define_procedure(XtIsTopLevelShell, gxm_XtIsTopLevelShell_w, 1, 0, 0, H_XtIsTopLevelShell); + XM_define_procedure(XtIsApplicationShell, gxm_XtIsApplicationShell_w, 1, 0, 0, H_XtIsApplicationShell); + XM_define_procedure(XtIsSessionShell, gxm_XtIsSessionShell_w, 1, 0, 0, H_XtIsSessionShell); + XM_define_procedure(XtMapWidget, gxm_XtMapWidget_w, 1, 0, 0, H_XtMapWidget); + XM_define_procedure(XtUnmapWidget, gxm_XtUnmapWidget_w, 1, 0, 0, H_XtUnmapWidget); + + XM_define_procedure(XUniqueContext, gxm_XUniqueContext_w, 0, 0, 0, H_XUniqueContext); + XM_define_procedure(XLoadQueryFont, gxm_XLoadQueryFont_w, 2, 0, 0, H_XLoadQueryFont); + XM_define_procedure(XQueryFont, gxm_XQueryFont_w, 2, 0, 0, H_XQueryFont); + XM_define_procedure(XGetMotionEvents, gxm_XGetMotionEvents_w, 4, 0, 0, H_XGetMotionEvents); + XM_define_procedure(XDeleteModifiermapEntry, gxm_XDeleteModifiermapEntry_w, 3, 0, 0, H_XDeleteModifiermapEntry); + XM_define_procedure(XGetModifierMapping, gxm_XGetModifierMapping_w, 1, 0, 0, H_XGetModifierMapping); + XM_define_procedure(XInsertModifiermapEntry, gxm_XInsertModifiermapEntry_w, 3, 0, 0, H_XInsertModifiermapEntry); + XM_define_procedure(XNewModifiermap, gxm_XNewModifiermap_w, 1, 0, 0, H_XNewModifiermap); + XM_define_procedure(XCreateImage, gxm_XCreateImage_w, 0, 0, 1, H_XCreateImage); + XM_define_procedure(XGetImage, gxm_XGetImage_w, 8, 0, 0, H_XGetImage); + XM_define_procedure(XGetSubImage, gxm_XGetSubImage_w, 0, 0, 1, H_XGetSubImage); + XM_define_procedure(XOpenDisplay, gxm_XOpenDisplay_w, 1, 0, 0, H_XOpenDisplay); + XM_define_procedure(XFetchBytes, gxm_XFetchBytes_w, 1, 0, 0, H_XFetchBytes); + XM_define_procedure(XFetchBuffer, gxm_XFetchBuffer_w, 2, 0, 0, H_XFetchBuffer); + XM_define_procedure(XGetAtomName, gxm_XGetAtomName_w, 2, 0, 0, H_XGetAtomName); + XM_define_procedure(XDisplayName, gxm_XDisplayName_w, 1, 0, 0, H_XDisplayName); + XM_define_procedure(XKeysymToString, gxm_XKeysymToString_w, 1, 0, 0, H_XKeysymToString); + XM_define_procedure(XSynchronize, gxm_XSynchronize_w, 2, 0, 0, H_XSynchronize); + XM_define_procedure(XSetAfterFunction, gxm_XSetAfterFunction_w, 2, 0, 0, H_XSetAfterFunction); + XM_define_procedure(XInternAtom, gxm_XInternAtom_w, 3, 0, 0, H_XInternAtom); + XM_define_procedure(XCopyColormapAndFree, gxm_XCopyColormapAndFree_w, 2, 0, 0, H_XCopyColormapAndFree); + XM_define_procedure(XCreateColormap, gxm_XCreateColormap_w, 4, 0, 0, H_XCreateColormap); + XM_define_procedure(XCreatePixmapCursor, gxm_XCreatePixmapCursor_w, 7, 0, 0, H_XCreatePixmapCursor); + XM_define_procedure(XCreateGlyphCursor, gxm_XCreateGlyphCursor_w, 7, 0, 0, H_XCreateGlyphCursor); + XM_define_procedure(XCreateFontCursor, gxm_XCreateFontCursor_w, 2, 0, 0, H_XCreateFontCursor); + XM_define_procedure(XLoadFont, gxm_XLoadFont_w, 2, 0, 0, H_XLoadFont); + XM_define_procedure(XCreateGC, gxm_XCreateGC_w, 4, 0, 0, H_XCreateGC); + XM_define_procedure(XFlushGC, gxm_XFlushGC_w, 2, 0, 0, H_XFlushGC); + XM_define_procedure(XCreatePixmap, gxm_XCreatePixmap_w, 5, 0, 0, H_XCreatePixmap); + XM_define_procedure(XCreateBitmapFromData, gxm_XCreateBitmapFromData_w, 5, 0, 0, H_XCreateBitmapFromData); + XM_define_procedure(XCreatePixmapFromBitmapData, gxm_XCreatePixmapFromBitmapData_w, 8, 0, 0, H_XCreatePixmapFromBitmapData); + XM_define_procedure(XCreateSimpleWindow, gxm_XCreateSimpleWindow_w, 9, 0, 0, H_XCreateSimpleWindow); + XM_define_procedure(XGetSelectionOwner, gxm_XGetSelectionOwner_w, 2, 0, 0, H_XGetSelectionOwner); + XM_define_procedure(XCreateWindow, gxm_XCreateWindow_w, 0, 0, 1, H_XCreateWindow); + XM_define_procedure(XListInstalledColormaps, gxm_XListInstalledColormaps_w, 2, 0, 0, H_XListInstalledColormaps); + XM_define_procedure(XListFonts, gxm_XListFonts_w, 3, 0, 0, H_XListFonts); + XM_define_procedure(XListFontsWithInfo, gxm_XListFontsWithInfo_w, 3, 0, 0, H_XListFontsWithInfo); + XM_define_procedure(XGetFontPath, gxm_XGetFontPath_w, 1, 0, 0, H_XGetFontPath); + XM_define_procedure(XListExtensions, gxm_XListExtensions_w, 1, 0, 0, H_XListExtensions); + XM_define_procedure(XListProperties, gxm_XListProperties_w, 2, 0, 0, H_XListProperties); +#if 0 + XM_define_procedure(XKeycodeToKeysym, gxm_XKeycodeToKeysym_w, 3, 0, 0, H_XKeycodeToKeysym); #endif + XM_define_procedure(XLookupKeysym, gxm_XLookupKeysym_w, 2, 0, 0, H_XLookupKeysym); + XM_define_procedure(XGetKeyboardMapping, gxm_XGetKeyboardMapping_w, 3, 0, 0, H_XGetKeyboardMapping); + XM_define_procedure(XStringToKeysym, gxm_XStringToKeysym_w, 1, 0, 0, H_XStringToKeysym); + XM_define_procedure(XMaxRequestSize, gxm_XMaxRequestSize_w, 1, 0, 0, H_XMaxRequestSize); + XM_define_procedure(XExtendedMaxRequestSize, gxm_XExtendedMaxRequestSize_w, 1, 0, 0, H_XExtendedMaxRequestSize); + XM_define_procedure(XDisplayMotionBufferSize, gxm_XDisplayMotionBufferSize_w, 1, 0, 0, H_XDisplayMotionBufferSize); + XM_define_procedure(XVisualIDFromVisual, gxm_XVisualIDFromVisual_w, 1, 0, 0, H_XVisualIDFromVisual); + XM_define_procedure(XRootWindow, gxm_XRootWindow_w, 2, 0, 0, H_RootWindow); + XM_define_procedure(XDefaultRootWindow, gxm_XDefaultRootWindow_w, 1, 0, 0, H_DefaultRootWindow); + XM_define_procedure(XRootWindowOfScreen, gxm_XRootWindowOfScreen_w, 1, 0, 0, H_RootWindowOfScreen); + XM_define_procedure(XDefaultVisual, gxm_XDefaultVisual_w, 2, 0, 0, H_DefaultVisual); + XM_define_procedure(XDefaultVisualOfScreen, gxm_XDefaultVisualOfScreen_w, 1, 0, 0, H_DefaultVisualOfScreen); + XM_define_procedure(XDefaultGC, gxm_XDefaultGC_w, 2, 0, 0, H_DefaultGC); + XM_define_procedure(XDefaultGCOfScreen, gxm_XDefaultGCOfScreen_w, 1, 0, 0, H_DefaultGCOfScreen); + XM_define_procedure(XBlackPixel, gxm_XBlackPixel_w, 2, 0, 0, H_BlackPixel); + XM_define_procedure(XWhitePixel, gxm_XWhitePixel_w, 2, 0, 0, H_WhitePixel); + XM_define_procedure(XAllPlanes, gxm_XAllPlanes_w, 0, 0, 0, H_AllPlanes); + XM_define_procedure(XBlackPixelOfScreen, gxm_XBlackPixelOfScreen_w, 1, 0, 0, H_BlackPixelOfScreen); + XM_define_procedure(XWhitePixelOfScreen, gxm_XWhitePixelOfScreen_w, 1, 0, 0, H_WhitePixelOfScreen); + XM_define_procedure(XNextRequest, gxm_XNextRequest_w, 1, 0, 0, H_NextRequest); + XM_define_procedure(XLastKnownRequestProcessed, gxm_XLastKnownRequestProcessed_w, 1, 0, 0, H_LastKnownRequestProcessed); + XM_define_procedure(XServerVendor, gxm_XServerVendor_w, 1, 0, 0, H_ServerVendor); + XM_define_procedure(XDisplayString, gxm_XDisplayString_w, 1, 0, 0, H_DisplayString); + XM_define_procedure(XDefaultColormap, gxm_XDefaultColormap_w, 2, 0, 0, H_DefaultColormap); + XM_define_procedure(XDefaultColormapOfScreen, gxm_XDefaultColormapOfScreen_w, 1, 0, 0, H_DefaultColormapOfScreen); + XM_define_procedure(XDisplayOfScreen, gxm_XDisplayOfScreen_w, 1, 0, 0, H_DisplayOfScreen); + XM_define_procedure(XScreenOfDisplay, gxm_XScreenOfDisplay_w, 2, 0, 0, H_ScreenOfDisplay); + XM_define_procedure(XDefaultScreenOfDisplay, gxm_XDefaultScreenOfDisplay_w, 1, 0, 0, H_XDefaultScreenOfDisplay); + XM_define_procedure(XEventMaskOfScreen, gxm_XEventMaskOfScreen_w, 1, 0, 0, H_EventMaskOfScreen); + XM_define_procedure(XScreenNumberOfScreen, gxm_XScreenNumberOfScreen_w, 1, 0, 0, H_XScreenNumberOfScreen); + XM_define_procedure(XSetErrorHandler, gxm_XSetErrorHandler_w, 1, 0, 0, H_XSetErrorHandler); + XM_define_procedure(XSetIOErrorHandler, gxm_XSetIOErrorHandler_w, 1, 0, 0, H_XSetIOErrorHandler); + XM_define_procedure(XListPixmapFormats, gxm_XListPixmapFormats_w, 1, 0, 0, H_XListPixmapFormats); + XM_define_procedure(XListDepths, gxm_XListDepths_w, 2, 0, 0, H_XListDepths); + XM_define_procedure(XReconfigureWMWindow, gxm_XReconfigureWMWindow_w, 5, 0, 0, H_XReconfigureWMWindow); + XM_define_procedure(XGetWMProtocols, gxm_XGetWMProtocols_w, 2, 0, 0, H_XGetWMProtocols); + XM_define_procedure(XSetWMProtocols, gxm_XSetWMProtocols_w, 4, 0, 0, H_XSetWMProtocols); + XM_define_procedure(XIconifyWindow, gxm_XIconifyWindow_w, 3, 0, 0, H_XIconifyWindow); + XM_define_procedure(XWithdrawWindow, gxm_XWithdrawWindow_w, 3, 0, 0, H_XWithdrawWindow); + XM_define_procedure(XGetCommand, gxm_XGetCommand_w, 2, 0, 0, H_XGetCommand); + XM_define_procedure(XGetWMColormapWindows, gxm_XGetWMColormapWindows_w, 2, 0, 0, H_XGetWMColormapWindows); + XM_define_procedure(XSetWMColormapWindows, gxm_XSetWMColormapWindows_w, 4, 0, 0, H_XSetWMColormapWindows); + XM_define_procedure(XSetTransientForHint, gxm_XSetTransientForHint_w, 3, 0, 0, H_XSetTransientForHint); + XM_define_procedure(XActivateScreenSaver, gxm_XActivateScreenSaver_w, 1, 0, 0, H_XActivateScreenSaver); + XM_define_procedure(XAllocColor, gxm_XAllocColor_w, 3, 0, 0, H_XAllocColor); + XM_define_procedure(XAllocColorCells, gxm_XAllocColorCells_w, 5, 0, 0, H_XAllocColorCells); + XM_define_procedure(XAllocColorPlanes, gxm_XAllocColorPlanes_w, 0, 0, 1, H_XAllocColorPlanes); + XM_define_procedure(XAllocNamedColor, gxm_XAllocNamedColor_w, 5, 0, 0, H_XAllocNamedColor); + XM_define_procedure(XAllowEvents, gxm_XAllowEvents_w, 3, 0, 0, H_XAllowEvents); + XM_define_procedure(XAutoRepeatOff, gxm_XAutoRepeatOff_w, 1, 0, 0, H_XAutoRepeatOff); + XM_define_procedure(XAutoRepeatOn, gxm_XAutoRepeatOn_w, 1, 0, 0, H_XAutoRepeatOn); + XM_define_procedure(XBell, gxm_XBell_w, 2, 0, 0, H_XBell); + XM_define_procedure(XBitmapBitOrder, gxm_XBitmapBitOrder_w, 1, 0, 0, H_BitmapBitOrder); + XM_define_procedure(XBitmapPad, gxm_XBitmapPad_w, 1, 0, 0, H_BitmapPad); + XM_define_procedure(XBitmapUnit, gxm_XBitmapUnit_w, 1, 0, 0, H_BitmapUnit); + XM_define_procedure(XCellsOfScreen, gxm_XCellsOfScreen_w, 1, 0, 0, H_CellsOfScreen); + XM_define_procedure(XChangeActivePointerGrab, gxm_XChangeActivePointerGrab_w, 4, 0, 0, H_XChangeActivePointerGrab); + XM_define_procedure(XChangeGC, gxm_XChangeGC_w, 4, 0, 0, H_XChangeGC); + XM_define_procedure(XChangeKeyboardControl, gxm_XChangeKeyboardControl_w, 3, 0, 0, H_XChangeKeyboardControl); + XM_define_procedure(XChangeKeyboardMapping, gxm_XChangeKeyboardMapping_w, 5, 0, 0, H_XChangeKeyboardMapping); + XM_define_procedure(XChangePointerControl, gxm_XChangePointerControl_w, 6, 0, 0, H_XChangePointerControl); + XM_define_procedure(XChangeProperty, gxm_XChangeProperty_w, 7, 1, 0, H_XChangeProperty); + XM_define_procedure(XChangeWindowAttributes, gxm_XChangeWindowAttributes_w, 4, 0, 0, H_XChangeWindowAttributes); + XM_define_procedure(XCheckIfEvent, gxm_XCheckIfEvent_w, 3, 0, 0, H_XCheckIfEvent); + XM_define_procedure(XCheckMaskEvent, gxm_XCheckMaskEvent_w, 2, 0, 0, H_XCheckMaskEvent); + XM_define_procedure(XCheckTypedEvent, gxm_XCheckTypedEvent_w, 2, 0, 0, H_XCheckTypedEvent); + XM_define_procedure(XCheckTypedWindowEvent, gxm_XCheckTypedWindowEvent_w, 3, 0, 0, H_XCheckTypedWindowEvent); + XM_define_procedure(XCheckWindowEvent, gxm_XCheckWindowEvent_w, 3, 0, 0, H_XCheckWindowEvent); + XM_define_procedure(XCirculateSubwindows, gxm_XCirculateSubwindows_w, 3, 0, 0, H_XCirculateSubwindows); + XM_define_procedure(XCirculateSubwindowsDown, gxm_XCirculateSubwindowsDown_w, 2, 0, 0, H_XCirculateSubwindowsDown); + XM_define_procedure(XCirculateSubwindowsUp, gxm_XCirculateSubwindowsUp_w, 2, 0, 0, H_XCirculateSubwindowsUp); + XM_define_procedure(XClearArea, gxm_XClearArea_w, 7, 0, 0, H_XClearArea); + XM_define_procedure(XClearWindow, gxm_XClearWindow_w, 2, 0, 0, H_XClearWindow); + XM_define_procedure(XCloseDisplay, gxm_XCloseDisplay_w, 1, 0, 0, H_XCloseDisplay); + XM_define_procedure(XConfigureWindow, gxm_XConfigureWindow_w, 4, 0, 0, H_XConfigureWindow); + XM_define_procedure(XConnectionNumber, gxm_XConnectionNumber_w, 1, 0, 0, H_XConnectionNumber); + XM_define_procedure(XConvertSelection, gxm_XConvertSelection_w, 6, 0, 0, H_XConvertSelection); + XM_define_procedure(XCopyArea, gxm_XCopyArea_w, 0, 0, 1, H_XCopyArea); + XM_define_procedure(XCopyGC, gxm_XCopyGC_w, 4, 0, 0, H_XCopyGC); + XM_define_procedure(XCopyPlane, gxm_XCopyPlane_w, 0, 0, 1, H_XCopyPlane); + XM_define_procedure(XDefaultDepth, gxm_XDefaultDepth_w, 2, 0, 0, H_XDefaultDepth); + XM_define_procedure(XDefaultDepthOfScreen, gxm_XDefaultDepthOfScreen_w, 1, 0, 0, H_XDefaultDepthOfScreen); + XM_define_procedure(XDefaultScreen, gxm_XDefaultScreen_w, 1, 0, 0, H_XDefaultScreen); + XM_define_procedure(XDefineCursor, gxm_XDefineCursor_w, 3, 0, 0, H_XDefineCursor); + XM_define_procedure(XDeleteProperty, gxm_XDeleteProperty_w, 3, 0, 0, H_XDeleteProperty); + XM_define_procedure(XDestroyWindow, gxm_XDestroyWindow_w, 2, 0, 0, H_XDestroyWindow); + XM_define_procedure(XDestroySubwindows, gxm_XDestroySubwindows_w, 2, 0, 0, H_XDestroySubwindows); + XM_define_procedure(XDoesBackingStore, gxm_XDoesBackingStore_w, 1, 0, 0, H_XDoesBackingStore); + XM_define_procedure(XDoesSaveUnders, gxm_XDoesSaveUnders_w, 1, 0, 0, H_XDoesSaveUnders); + XM_define_procedure(XDisableAccessControl, gxm_XDisableAccessControl_w, 1, 0, 0, H_XDisableAccessControl); + XM_define_procedure(XDisplayCells, gxm_XDisplayCells_w, 2, 0, 0, H_XDisplayCells); + XM_define_procedure(XDisplayHeight, gxm_XDisplayHeight_w, 2, 0, 0, H_XDisplayHeight); + XM_define_procedure(XDisplayHeightMM, gxm_XDisplayHeightMM_w, 2, 0, 0, H_XDisplayHeightMM); + XM_define_procedure(XDisplayKeycodes, gxm_XDisplayKeycodes_w, 1, 0, 0, H_XDisplayKeycodes); + XM_define_procedure(XDisplayPlanes, gxm_XDisplayPlanes_w, 2, 0, 0, H_XDisplayPlanes); + XM_define_procedure(XDisplayWidth, gxm_XDisplayWidth_w, 2, 0, 0, H_XDisplayWidth); + XM_define_procedure(XDisplayWidthMM, gxm_XDisplayWidthMM_w, 2, 0, 0, H_XDisplayWidthMM); + XM_define_procedure(XDrawArc, gxm_XDrawArc_w, 9, 0, 0, H_XDrawArc); + XM_define_procedure(XDrawArcs, gxm_XDrawArcs_w, 5, 0, 0, H_XDrawArcs); + XM_define_procedure(XDrawImageString, gxm_XDrawImageString_w, 7, 0, 0, H_XDrawImageString); + XM_define_procedure(XDrawLine, gxm_XDrawLine_w, 7, 0, 0, H_XDrawLine); + XM_define_procedure(XDrawLines, gxm_XDrawLines_w, 6, 0, 0, H_XDrawLines); + XM_define_procedure(XDrawLinesDirect, gxm_XDrawLinesDirect_w, 6, 0, 0, H_XDrawLinesDirect); + XM_define_procedure(freeXPoints, gxm_FreeXPoints_w, 1, 0, 0, H_freeXPoints); + XM_define_procedure(vector->XPoints, gxm_Vector2XPoints_w, 1, 0, 0, H_vector2XPoints); + XM_define_procedure(XDrawPoint, gxm_XDrawPoint_w, 5, 0, 0, H_XDrawPoint); + XM_define_procedure(XDrawPoints, gxm_XDrawPoints_w, 6, 0, 0, H_XDrawPoints); + XM_define_procedure(XDrawRectangle, gxm_XDrawRectangle_w, 7, 0, 0, H_XDrawRectangle); + XM_define_procedure(XDrawRectangles, gxm_XDrawRectangles_w, 5, 0, 0, H_XDrawRectangles); + XM_define_procedure(XDrawSegments, gxm_XDrawSegments_w, 5, 0, 0, H_XDrawSegments); + XM_define_procedure(XDrawString, gxm_XDrawString_w, 7, 0, 0, H_XDrawString); + XM_define_procedure(XDrawText, gxm_XDrawText_w, 6, 1, 0, H_XDrawText); + XM_define_procedure(XEnableAccessControl, gxm_XEnableAccessControl_w, 1, 0, 0, H_XEnableAccessControl); + XM_define_procedure(XEventsQueued, gxm_XEventsQueued_w, 2, 0, 0, H_XEventsQueued); + XM_define_procedure(XFetchName, gxm_XFetchName_w, 2, 0, 0, H_XFetchName); + XM_define_procedure(XFillArc, gxm_XFillArc_w, 9, 0, 0, H_XFillArc); + XM_define_procedure(XFillArcs, gxm_XFillArcs_w, 5, 0, 0, H_XFillArcs); + XM_define_procedure(XFillPolygon, gxm_XFillPolygon_w, 7, 0, 0, H_XFillPolygon); + XM_define_procedure(XFillRectangle, gxm_XFillRectangle_w, 7, 0, 0, H_XFillRectangle); + XM_define_procedure(XFillRectangles, gxm_XFillRectangles_w, 5, 0, 0, H_XFillRectangles); + XM_define_procedure(XFlush, gxm_XFlush_w, 1, 0, 0, H_XFlush); + XM_define_procedure(XForceScreenSaver, gxm_XForceScreenSaver_w, 2, 0, 0, H_XForceScreenSaver); + XM_define_procedure(XFree, gxm_XFree_w, 1, 0, 0, H_XFree); + XM_define_procedure(XFreeColormap, gxm_XFreeColormap_w, 2, 0, 0, H_XFreeColormap); + XM_define_procedure(XFreeColors, gxm_XFreeColors_w, 5, 0, 0, H_XFreeColors); + XM_define_procedure(XFreeCursor, gxm_XFreeCursor_w, 2, 0, 0, H_XFreeCursor); + XM_define_procedure(XFreeExtensionList, gxm_XFreeExtensionList_w, 1, 0, 0, "XFreeExtensionList(list) frees list (from XListExtensions)"); + XM_define_procedure(XFreeFont, gxm_XFreeFont_w, 2, 0, 0, H_XFreeFont); + XM_define_procedure(XFreeFontInfo, gxm_XFreeFontInfo_w, 3, 0, 0, H_XFreeFontInfo); + XM_define_procedure(XFreeFontNames, gxm_XFreeFontNames_w, 1, 0, 0, H_XFreeFontNames); + XM_define_procedure(XFreeFontPath, gxm_XFreeFontPath_w, 1, 0, 0, H_XFreeFontPath); + XM_define_procedure(XFreeGC, gxm_XFreeGC_w, 2, 0, 0, H_XFreeGC); + XM_define_procedure(XFreeModifiermap, gxm_XFreeModifiermap_w, 1, 0, 0, H_XFreeModifiermap); + XM_define_procedure(XFreePixmap, gxm_XFreePixmap_w, 2, 0, 0, H_XFreePixmap); + XM_define_procedure(XGeometry, gxm_XGeometry_w, 0, 0, 1, H_XGeometry); + XM_define_procedure(XGetErrorText, gxm_XGetErrorText_w, 4, 0, 0, H_XGetErrorText); + XM_define_procedure(XGetFontProperty, gxm_XGetFontProperty_w, 2, 0, 0, H_XGetFontProperty); + XM_define_procedure(XGetGCValues, gxm_XGetGCValues_w, 3, 0, 0, H_XGetGCValues); + XM_define_procedure(XGCValues, gxm_XGCValues_w, 0, 0, 0, "XGCValues returns a new XGCValue struct"); + XM_define_procedure(XEvent, gxm_XEvent_w, 0, 1, 0, "XEvent returns a new XEvent struct"); + XM_define_procedure(XGetGeometry, gxm_XGetGeometry_w, 2, 0, 0, H_XGetGeometry); + XM_define_procedure(XGetIconName, gxm_XGetIconName_w, 2, 0, 0, H_XGetIconName); + XM_define_procedure(XGetInputFocus, gxm_XGetInputFocus_w, 1, 0, 0, H_XGetInputFocus); + XM_define_procedure(XGetKeyboardControl, gxm_XGetKeyboardControl_w, 1, 0, 0, H_XGetKeyboardControl); + XM_define_procedure(XGetPointerControl, gxm_XGetPointerControl_w, 1, 0, 0, H_XGetPointerControl); + XM_define_procedure(XGetPointerMapping, gxm_XGetPointerMapping_w, 3, 0, 0, H_XGetPointerMapping); + XM_define_procedure(XGetScreenSaver, gxm_XGetScreenSaver_w, 1, 0, 0, H_XGetScreenSaver); + XM_define_procedure(XGetTransientForHint, gxm_XGetTransientForHint_w, 2, 0, 0, H_XGetTransientForHint); + XM_define_procedure(XGetWindowProperty, gxm_XGetWindowProperty_w, 0, 0, 1, H_XGetWindowProperty); + XM_define_procedure(XGetWindowAttributes, gxm_XGetWindowAttributes_w, 2, 0, 0, H_XGetWindowAttributes); + XM_define_procedure(XGrabButton, gxm_XGrabButton_w, 0, 0, 1, H_XGrabButton); + XM_define_procedure(XGrabKey, gxm_XGrabKey_w, 7, 0, 0, H_XGrabKey); + XM_define_procedure(XGrabKeyboard, gxm_XGrabKeyboard_w, 6, 0, 0, H_XGrabKeyboard); + XM_define_procedure(XGrabPointer, gxm_XGrabPointer_w, 9, 0, 0, H_XGrabPointer); + XM_define_procedure(XGrabServer, gxm_XGrabServer_w, 1, 0, 0, H_XGrabServer); + XM_define_procedure(XHeightMMOfScreen, gxm_XHeightMMOfScreen_w, 1, 0, 0, H_HeightMMOfScreen); + XM_define_procedure(XHeightOfScreen, gxm_XHeightOfScreen_w, 1, 0, 0, H_HeightOfScreen); + XM_define_procedure(XIfEvent, gxm_XIfEvent_w, 3, 0, 0, H_XIfEvent); + XM_define_procedure(XImageByteOrder, gxm_XImageByteOrder_w, 1, 0, 0, H_ImageByteOrder); + XM_define_procedure(XInstallColormap, gxm_XInstallColormap_w, 2, 0, 0, H_XInstallColormap); + XM_define_procedure(XKeysymToKeycode, gxm_XKeysymToKeycode_w, 2, 0, 0, H_XKeysymToKeycode); + XM_define_procedure(XKillClient, gxm_XKillClient_w, 2, 0, 0, H_XKillClient); + XM_define_procedure(XLookupColor, gxm_XLookupColor_w, 5, 0, 0, H_XLookupColor); + XM_define_procedure(XLowerWindow, gxm_XLowerWindow_w, 2, 0, 0, H_XLowerWindow); + XM_define_procedure(XMapRaised, gxm_XMapRaised_w, 2, 0, 0, H_XMapRaised); + XM_define_procedure(XMapSubwindows, gxm_XMapSubwindows_w, 2, 0, 0, H_XMapSubwindows); + XM_define_procedure(XMapWindow, gxm_XMapWindow_w, 2, 0, 0, H_XMapWindow); + XM_define_procedure(XMaskEvent, gxm_XMaskEvent_w, 2, 0, 0, H_XMaskEvent); + XM_define_procedure(XMaxCmapsOfScreen, gxm_XMaxCmapsOfScreen_w, 1, 0, 0, H_MaxCmapsOfScreen); + XM_define_procedure(XMinCmapsOfScreen, gxm_XMinCmapsOfScreen_w, 1, 0, 0, H_MinCmapsOfScreen); + XM_define_procedure(XMoveResizeWindow, gxm_XMoveResizeWindow_w, 6, 0, 0, H_XMoveResizeWindow); + XM_define_procedure(XMoveWindow, gxm_XMoveWindow_w, 4, 0, 0, H_XMoveWindow); + XM_define_procedure(XNextEvent, gxm_XNextEvent_w, 1, 0, 0, H_XNextEvent); + XM_define_procedure(XNoOp, gxm_XNoOp_w, 1, 0, 0, H_XNoOp); + XM_define_procedure(XParseColor, gxm_XParseColor_w, 4, 0, 0, H_XParseColor); + XM_define_procedure(XParseGeometry, gxm_XParseGeometry_w, 1, 0, 0, H_XParseGeometry); + XM_define_procedure(XPeekEvent, gxm_XPeekEvent_w, 1, 0, 0, H_XPeekEvent); + XM_define_procedure(XPeekIfEvent, gxm_XPeekIfEvent_w, 3, 0, 0, H_XPeekIfEvent); + XM_define_procedure(XPending, gxm_XPending_w, 1, 0, 0, H_XPending); + XM_define_procedure(XPlanesOfScreen, gxm_XPlanesOfScreen_w, 1, 0, 0, H_PlanesOfScreen); + XM_define_procedure(XProtocolRevision, gxm_XProtocolRevision_w, 1, 0, 0, H_ProtocolRevision); + XM_define_procedure(XProtocolVersion, gxm_XProtocolVersion_w, 1, 0, 0, H_ProtocolVersion); + XM_define_procedure(XPutBackEvent, gxm_XPutBackEvent_w, 2, 0, 0, H_XPutBackEvent); + XM_define_procedure(XPutImage, gxm_XPutImage_w, 0, 0, 1, H_XPutImage); + XM_define_procedure(XQLength, gxm_XQLength_w, 1, 0, 0, H_QLength); + XM_define_procedure(XQueryBestCursor, gxm_XQueryBestCursor_w, 4, 0, 0, H_XQueryBestCursor); + XM_define_procedure(XQueryBestSize, gxm_XQueryBestSize_w, 5, 0, 0, H_XQueryBestSize); + XM_define_procedure(XQueryBestStipple, gxm_XQueryBestStipple_w, 4, 0, 0, H_XQueryBestStipple); + XM_define_procedure(XQueryBestTile, gxm_XQueryBestTile_w, 4, 0, 0, H_XQueryBestTile); + XM_define_procedure(XQueryColor, gxm_XQueryColor_w, 3, 0, 0, H_XQueryColor); + XM_define_procedure(XQueryColors, gxm_XQueryColors_w, 3, 1, 0, H_XQueryColors); + XM_define_procedure(XQueryExtension, gxm_XQueryExtension_w, 2, 0, 0, H_XQueryExtension); + XM_define_procedure(XQueryKeymap, gxm_XQueryKeymap_w, 1, 0, 0, H_XQueryKeymap); + XM_define_procedure(XQueryPointer, gxm_XQueryPointer_w, 2, 0, 0, H_XQueryPointer); + XM_define_procedure(XQueryTextExtents, gxm_XQueryTextExtents_w, 3, 0, 0, H_XQueryTextExtents); + XM_define_procedure(XQueryTree, gxm_XQueryTree_w, 2, 0, 0, H_XQueryTree); + XM_define_procedure(XRaiseWindow, gxm_XRaiseWindow_w, 2, 0, 0, H_XRaiseWindow); + XM_define_procedure(XReadBitmapFile, gxm_XReadBitmapFile_w, 3, 0, 0, H_XReadBitmapFile); + XM_define_procedure(XReadBitmapFileData, gxm_XReadBitmapFileData_w, 1, 0, 0, H_XReadBitmapFileData); + XM_define_procedure(XRebindKeysym, gxm_XRebindKeysym_w, 6, 0, 0, H_XRebindKeysym); + XM_define_procedure(XRecolorCursor, gxm_XRecolorCursor_w, 4, 0, 0, H_XRecolorCursor); + XM_define_procedure(XRefreshKeyboardMapping, gxm_XRefreshKeyboardMapping_w, 1, 0, 0, H_XRefreshKeyboardMapping); + XM_define_procedure(XReparentWindow, gxm_XReparentWindow_w, 5, 0, 0, H_XReparentWindow); + XM_define_procedure(XResetScreenSaver, gxm_XResetScreenSaver_w, 1, 0, 0, H_XResetScreenSaver); + XM_define_procedure(XResizeWindow, gxm_XResizeWindow_w, 4, 0, 0, H_XResizeWindow); + XM_define_procedure(XRestackWindows, gxm_XRestackWindows_w, 3, 0, 0, H_XRestackWindows); + XM_define_procedure(XRotateBuffers, gxm_XRotateBuffers_w, 2, 0, 0, H_XRotateBuffers); + XM_define_procedure(XRotateWindowProperties, gxm_XRotateWindowProperties_w, 5, 0, 0, H_XRotateWindowProperties); + XM_define_procedure(XScreenCount, gxm_XScreenCount_w, 1, 0, 0, H_ScreenCount); + XM_define_procedure(XSelectInput, gxm_XSelectInput_w, 3, 0, 0, H_XSelectInput); + XM_define_procedure(XSendEvent, gxm_XSendEvent_w, 5, 0, 0, H_XSendEvent); + XM_define_procedure(XSetAccessControl, gxm_XSetAccessControl_w, 2, 0, 0, H_XSetAccessControl); + XM_define_procedure(XSetArcMode, gxm_XSetArcMode_w, 3, 0, 0, H_XSetArcMode); + XM_define_procedure(XSetBackground, gxm_XSetBackground_w, 3, 0, 0, H_XSetBackground); + XM_define_procedure(XSetClipMask, gxm_XSetClipMask_w, 3, 0, 0, H_XSetClipMask); + XM_define_procedure(XSetClipOrigin, gxm_XSetClipOrigin_w, 4, 0, 0, H_XSetClipOrigin); + XM_define_procedure(XSetClipRectangles, gxm_XSetClipRectangles_w, 7, 0, 0, H_XSetClipRectangles); + XM_define_procedure(XSetCloseDownMode, gxm_XSetCloseDownMode_w, 2, 0, 0, H_XSetCloseDownMode); + XM_define_procedure(XSetCommand, gxm_XSetCommand_w, 4, 0, 0, H_XSetCommand); + XM_define_procedure(XSetDashes, gxm_XSetDashes_w, 4, 1, 0, H_XSetDashes); + XM_define_procedure(XSetFillRule, gxm_XSetFillRule_w, 3, 0, 0, H_XSetFillRule); + XM_define_procedure(XSetFillStyle, gxm_XSetFillStyle_w, 3, 0, 0, H_XSetFillStyle); + XM_define_procedure(XSetFont, gxm_XSetFont_w, 3, 0, 0, H_XSetFont); + XM_define_procedure(XSetFontPath, gxm_XSetFontPath_w, 3, 0, 0, H_XSetFontPath); + XM_define_procedure(XSetForeground, gxm_XSetForeground_w, 3, 0, 0, H_XSetForeground); + XM_define_procedure(XSetFunction, gxm_XSetFunction_w, 3, 0, 0, H_XSetFunction); + XM_define_procedure(XSetGraphicsExposures, gxm_XSetGraphicsExposures_w, 3, 0, 0, H_XSetGraphicsExposures); + XM_define_procedure(XSetIconName, gxm_XSetIconName_w, 3, 0, 0, H_XSetIconName); + XM_define_procedure(XSetInputFocus, gxm_XSetInputFocus_w, 4, 0, 0, H_XSetInputFocus); + XM_define_procedure(XSetLineAttributes, gxm_XSetLineAttributes_w, 6, 0, 0, H_XSetLineAttributes); + XM_define_procedure(XSetModifierMapping, gxm_XSetModifierMapping_w, 2, 0, 0, H_XSetModifierMapping); + XM_define_procedure(XSetPlaneMask, gxm_XSetPlaneMask_w, 3, 0, 0, H_XSetPlaneMask); + XM_define_procedure(XSetPointerMapping, gxm_XSetPointerMapping_w, 2, 1, 0, H_XSetPointerMapping); + XM_define_procedure(XSetScreenSaver, gxm_XSetScreenSaver_w, 5, 0, 0, H_XSetScreenSaver); + XM_define_procedure(XSetSelectionOwner, gxm_XSetSelectionOwner_w, 4, 0, 0, H_XSetSelectionOwner); + XM_define_procedure(XSetState, gxm_XSetState_w, 6, 0, 0, H_XSetState); + XM_define_procedure(XSetStipple, gxm_XSetStipple_w, 3, 0, 0, H_XSetStipple); + XM_define_procedure(XSetSubwindowMode, gxm_XSetSubwindowMode_w, 3, 0, 0, H_XSetSubwindowMode); + XM_define_procedure(XSetTSOrigin, gxm_XSetTSOrigin_w, 4, 0, 0, H_XSetTSOrigin); + XM_define_procedure(XSetTile, gxm_XSetTile_w, 3, 0, 0, H_XSetTile); + XM_define_procedure(XSetWindowBackground, gxm_XSetWindowBackground_w, 3, 0, 0, H_XSetWindowBackground); + XM_define_procedure(XSetWindowBackgroundPixmap, gxm_XSetWindowBackgroundPixmap_w, 3, 0, 0, H_XSetWindowBackgroundPixmap); + XM_define_procedure(XSetWindowBorder, gxm_XSetWindowBorder_w, 3, 0, 0, H_XSetWindowBorder); + XM_define_procedure(XSetWindowBorderPixmap, gxm_XSetWindowBorderPixmap_w, 3, 0, 0, H_XSetWindowBorderPixmap); + XM_define_procedure(XSetWindowBorderWidth, gxm_XSetWindowBorderWidth_w, 3, 0, 0, H_XSetWindowBorderWidth); + XM_define_procedure(XSetWindowColormap, gxm_XSetWindowColormap_w, 3, 0, 0, H_XSetWindowColormap); + XM_define_procedure(XStoreBuffer, gxm_XStoreBuffer_w, 4, 0, 0, H_XStoreBuffer); + XM_define_procedure(XStoreBytes, gxm_XStoreBytes_w, 3, 0, 0, H_XStoreBytes); + XM_define_procedure(XStoreColor, gxm_XStoreColor_w, 3, 0, 0, H_XStoreColor); + XM_define_procedure(XStoreColors, gxm_XStoreColors_w, 4, 0, 0, H_XStoreColors); + XM_define_procedure(XStoreName, gxm_XStoreName_w, 3, 0, 0, H_XStoreName); + XM_define_procedure(XStoreNamedColor, gxm_XStoreNamedColor_w, 5, 0, 0, H_XStoreNamedColor); + XM_define_procedure(XSync, gxm_XSync_w, 2, 0, 0, H_XSync); + XM_define_procedure(XTextExtents, gxm_XTextExtents_w, 3, 0, 0, H_XTextExtents); + XM_define_procedure(XTextWidth, gxm_XTextWidth_w, 3, 0, 0, H_XTextWidth); + XM_define_procedure(XTranslateCoordinates, gxm_XTranslateCoordinates_w, 5, 0, 0, H_XTranslateCoordinates); + XM_define_procedure(XUndefineCursor, gxm_XUndefineCursor_w, 2, 0, 0, H_XUndefineCursor); + XM_define_procedure(XUngrabButton, gxm_XUngrabButton_w, 4, 0, 0, H_XUngrabButton); + XM_define_procedure(XUngrabKey, gxm_XUngrabKey_w, 4, 0, 0, H_XUngrabKey); + XM_define_procedure(XUngrabKeyboard, gxm_XUngrabKeyboard_w, 2, 0, 0, H_XUngrabKeyboard); + XM_define_procedure(XUngrabPointer, gxm_XUngrabPointer_w, 2, 0, 0, H_XUngrabPointer); + XM_define_procedure(XUngrabServer, gxm_XUngrabServer_w, 1, 0, 0, H_XUngrabServer); + XM_define_procedure(XUninstallColormap, gxm_XUninstallColormap_w, 2, 0, 0, H_XUninstallColormap); + XM_define_procedure(XUnloadFont, gxm_XUnloadFont_w, 2, 0, 0, H_XUnloadFont); + XM_define_procedure(XUnmapSubwindows, gxm_XUnmapSubwindows_w, 2, 0, 0, H_XUnmapSubwindows); + XM_define_procedure(XUnmapWindow, gxm_XUnmapWindow_w, 2, 0, 0, H_XUnmapWindow); + XM_define_procedure(XVendorRelease, gxm_XVendorRelease_w, 1, 0, 0, H_VendorRelease); + XM_define_procedure(XWarpPointer, gxm_XWarpPointer_w, 9, 0, 0, H_XWarpPointer); + XM_define_procedure(XWidthMMOfScreen, gxm_XWidthMMOfScreen_w, 1, 0, 0, H_WidthMMOfScreen); + XM_define_procedure(XWidthOfScreen, gxm_XWidthOfScreen_w, 1, 0, 0, H_WidthOfScreen); + XM_define_procedure(XWindowEvent, gxm_XWindowEvent_w, 3, 0, 0, H_XWindowEvent); + XM_define_procedure(XWriteBitmapFile, gxm_XWriteBitmapFile_w, 7, 0, 0, H_XWriteBitmapFile); + XM_define_procedure(XSupportsLocale, gxm_XSupportsLocale_w, 0, 0, 0, H_XSupportsLocale); + XM_define_procedure(XSetLocaleModifiers, gxm_XSetLocaleModifiers_w, 1, 0, 0, H_XSetLocaleModifiers); + XM_define_procedure(XCreateFontSet, gxm_XCreateFontSet_w, 2, 0, 0, H_XCreateFontSet); + XM_define_procedure(XFreeFontSet, gxm_XFreeFontSet_w, 2, 0, 0, H_XFreeFontSet); + XM_define_procedure(XFontsOfFontSet, gxm_XFontsOfFontSet_w, 1, 0, 0, H_XFontsOfFontSet); + XM_define_procedure(XBaseFontNameListOfFontSet, gxm_XBaseFontNameListOfFontSet_w, 1, 0, 0, H_XBaseFontNameListOfFontSet); + XM_define_procedure(XLocaleOfFontSet, gxm_XLocaleOfFontSet_w, 1, 0, 0, H_XLocaleOfFontSet); + XM_define_procedure(XContextDependentDrawing, gxm_XContextDependentDrawing_w, 1, 0, 0, H_XContextDependentDrawing); + XM_define_procedure(XDirectionalDependentDrawing, gxm_XDirectionalDependentDrawing_w, 1, 0, 0, H_XDirectionalDependentDrawing); + XM_define_procedure(XContextualDrawing, gxm_XContextualDrawing_w, 1, 0, 0, H_XContextualDrawing); + XM_define_procedure(XFilterEvent, gxm_XFilterEvent_w, 2, 0, 0, H_XFilterEvent); + XM_define_procedure(XAllocIconSize, gxm_XAllocIconSize_w, 0, 0, 0, H_XAllocIconSize); + XM_define_procedure(XAllocStandardColormap, gxm_XAllocStandardColormap_w, 0, 0, 0, H_XAllocStandardColormap); + XM_define_procedure(XAllocWMHints, gxm_XAllocWMHints_w, 0, 0, 0, H_XAllocWMHints); + XM_define_procedure(XClipBox, gxm_XClipBox_w, 1, 0, 0, H_XClipBox); + XM_define_procedure(XCreateRegion, gxm_XCreateRegion_w, 0, 0, 0, H_XCreateRegion); + XM_define_procedure(XDefaultString, gxm_XDefaultString_w, 0, 0, 0, H_XDefaultString); + XM_define_procedure(XDeleteContext, gxm_XDeleteContext_w, 3, 0, 0, H_XDeleteContext); + XM_define_procedure(XDestroyRegion, gxm_XDestroyRegion_w, 1, 0, 0, H_XDestroyRegion); + XM_define_procedure(XEmptyRegion, gxm_XEmptyRegion_w, 1, 0, 0, H_XEmptyRegion); + XM_define_procedure(XEqualRegion, gxm_XEqualRegion_w, 2, 0, 0, H_XEqualRegion); + XM_define_procedure(XFindContext, gxm_XFindContext_w, 3, 0, 0, H_XFindContext); + XM_define_procedure(XGetIconSizes, gxm_XGetIconSizes_w, 2, 0, 0, H_XGetIconSizes); + XM_define_procedure(XGetRGBColormaps, gxm_XGetRGBColormaps_w, 3, 0, 0, H_XGetRGBColormaps); + XM_define_procedure(XGetVisualInfo, gxm_XGetVisualInfo_w, 3, 0, 0, H_XGetVisualInfo); + XM_define_procedure(XGetWMHints, gxm_XGetWMHints_w, 2, 0, 0, H_XGetWMHints); + XM_define_procedure(XIntersectRegion, gxm_XIntersectRegion_w, 3, 0, 0, H_XIntersectRegion); + XM_define_procedure(XConvertCase, gxm_XConvertCase_w, 1, 0, 0, H_XConvertCase); + XM_define_procedure(XLookupString, gxm_XLookupString_w, 1, 0, 0, H_XLookupString); + XM_define_procedure(XMatchVisualInfo, gxm_XMatchVisualInfo_w, 4, 0, 0, H_XMatchVisualInfo); + XM_define_procedure(XOffsetRegion, gxm_XOffsetRegion_w, 3, 0, 0, H_XOffsetRegion); + XM_define_procedure(XPointInRegion, gxm_XPointInRegion_w, 3, 0, 0, H_XPointInRegion); + XM_define_procedure(XPolygonRegion, gxm_XPolygonRegion_w, 3, 0, 0, H_XPolygonRegion); + XM_define_procedure(XRectInRegion, gxm_XRectInRegion_w, 5, 0, 0, H_XRectInRegion); + XM_define_procedure(XSaveContext, gxm_XSaveContext_w, 4, 0, 0, H_XSaveContext); + XM_define_procedure(XSetRGBColormaps, gxm_XSetRGBColormaps_w, 5, 0, 0, H_XSetRGBColormaps); + XM_define_procedure(XSetWMHints, gxm_XSetWMHints_w, 3, 0, 0, H_XSetWMHints); + XM_define_procedure(XSetRegion, gxm_XSetRegion_w, 3, 0, 0, H_XSetRegion); + XM_define_procedure(XSetWMProperties, gxm_XSetWMProperties_w, 8, 0, 0, H_XSetWMProperties); + XM_define_procedure(XShrinkRegion, gxm_XShrinkRegion_w, 3, 0, 0, H_XShrinkRegion); + XM_define_procedure(XSubtractRegion, gxm_XSubtractRegion_w, 3, 0, 0, H_XSubtractRegion); + XM_define_procedure(XUnionRectWithRegion, gxm_XUnionRectWithRegion_w, 3, 0, 0, H_XUnionRectWithRegion); + XM_define_procedure(XUnionRegion, gxm_XUnionRegion_w, 3, 0, 0, H_XUnionRegion); + XM_define_procedure(XXorRegion, gxm_XXorRegion_w, 3, 0, 0, H_XXorRegion); + + XM_define_procedure(DefaultScreen, gxm_DefaultScreen_w, 1, 0, 0, H_DefaultScreen); + XM_define_procedure(DefaultRootWindow, gxm_DefaultRootWindow_w, 1, 0, 0, H_DefaultRootWindow); + XM_define_procedure(QLength, gxm_QLength_w, 1, 0, 0, H_QLength); + XM_define_procedure(ScreenCount, gxm_ScreenCount_w, 1, 0, 0, H_ScreenCount); + XM_define_procedure(ServerVendor, gxm_ServerVendor_w, 1, 0, 0, H_ServerVendor); + XM_define_procedure(ProtocolVersion, gxm_ProtocolVersion_w, 1, 0, 0, H_ProtocolVersion); + XM_define_procedure(ProtocolRevision, gxm_ProtocolRevision_w, 1, 0, 0, H_ProtocolRevision); + XM_define_procedure(VendorRelease, gxm_VendorRelease_w, 1, 0, 0, H_VendorRelease); + XM_define_procedure(DisplayString, gxm_DisplayString_w, 1, 0, 0, H_DisplayString); + XM_define_procedure(BitmapUnit, gxm_BitmapUnit_w, 1, 0, 0, H_BitmapUnit); + XM_define_procedure(BitmapBitOrder, gxm_BitmapBitOrder_w, 1, 0, 0, H_BitmapBitOrder); + XM_define_procedure(BitmapPad, gxm_BitmapPad_w, 1, 0, 0, H_BitmapPad); + XM_define_procedure(ImageByteOrder, gxm_ImageByteOrder_w, 1, 0, 0, H_ImageByteOrder); + XM_define_procedure(NextRequest, gxm_NextRequest_w, 1, 0, 0, H_NextRequest); + XM_define_procedure(LastKnownRequestProcessed, gxm_LastKnownRequestProcessed_w, 1, 0, 0, H_LastKnownRequestProcessed); + XM_define_procedure(DefaultScreenOfDisplay, gxm_DefaultScreenOfDisplay_w, 1, 0, 0, H_DefaultScreenOfDisplay); + XM_define_procedure(DisplayOfScreen, gxm_DisplayOfScreen_w, 1, 0, 0, H_DisplayOfScreen); + XM_define_procedure(RootWindowOfScreen, gxm_RootWindowOfScreen_w, 1, 0, 0, H_RootWindowOfScreen); + XM_define_procedure(BlackPixelOfScreen, gxm_BlackPixelOfScreen_w, 1, 0, 0, H_BlackPixelOfScreen); + XM_define_procedure(WhitePixelOfScreen, gxm_WhitePixelOfScreen_w, 1, 0, 0, H_WhitePixelOfScreen); + XM_define_procedure(DefaultColormapOfScreen, gxm_DefaultColormapOfScreen_w, 1, 0, 0, H_DefaultColormapOfScreen); + XM_define_procedure(DefaultDepthOfScreen, gxm_DefaultDepthOfScreen_w, 1, 0, 0, H_DefaultDepthOfScreen); + XM_define_procedure(DefaultGCOfScreen, gxm_DefaultGCOfScreen_w, 1, 0, 0, H_DefaultGCOfScreen); + XM_define_procedure(DefaultVisualOfScreen, gxm_DefaultVisualOfScreen_w, 1, 0, 0, H_DefaultVisualOfScreen); + XM_define_procedure(WidthOfScreen, gxm_WidthOfScreen_w, 1, 0, 0, H_WidthOfScreen); + XM_define_procedure(HeightOfScreen, gxm_HeightOfScreen_w, 1, 0, 0, H_HeightOfScreen); + XM_define_procedure(WidthMMOfScreen, gxm_WidthMMOfScreen_w, 1, 0, 0, H_WidthMMOfScreen); + XM_define_procedure(HeightMMOfScreen, gxm_HeightMMOfScreen_w, 1, 0, 0, H_HeightMMOfScreen); + XM_define_procedure(PlanesOfScreen, gxm_PlanesOfScreen_w, 1, 0, 0, H_PlanesOfScreen); + XM_define_procedure(CellsOfScreen, gxm_CellsOfScreen_w, 1, 0, 0, H_CellsOfScreen); + XM_define_procedure(MinCmapsOfScreen, gxm_MinCmapsOfScreen_w, 1, 0, 0, H_MinCmapsOfScreen); + XM_define_procedure(MaxCmapsOfScreen, gxm_MaxCmapsOfScreen_w, 1, 0, 0, H_MaxCmapsOfScreen); + XM_define_procedure(DoesSaveUnders, gxm_DoesSaveUnders_w, 1, 0, 0, H_DoesSaveUnders); + XM_define_procedure(DoesBackingStore, gxm_DoesBackingStore_w, 1, 0, 0, H_DoesBackingStore); + XM_define_procedure(EventMaskOfScreen, gxm_EventMaskOfScreen_w, 1, 0, 0, H_EventMaskOfScreen); + XM_define_procedure(RootWindow, gxm_RootWindow_w, 2, 0, 0, H_RootWindow); + XM_define_procedure(DefaultVisual, gxm_DefaultVisual_w, 2, 0, 0, H_DefaultVisual); + XM_define_procedure(DefaultGC, gxm_DefaultGC_w, 2, 0, 0, H_DefaultGC); + XM_define_procedure(BlackPixel, gxm_BlackPixel_w, 2, 0, 0, H_BlackPixel); + XM_define_procedure(WhitePixel, gxm_WhitePixel_w, 2, 0, 0, H_WhitePixel); + XM_define_procedure(DisplayWidth, gxm_DisplayWidth_w, 2, 0, 0, H_DisplayWidth); + XM_define_procedure(DisplayHeight, gxm_DisplayHeight_w, 2, 0, 0, H_DisplayHeight); + XM_define_procedure(DisplayWidthMM, gxm_DisplayWidthMM_w, 2, 0, 0, H_DisplayWidthMM); + XM_define_procedure(DisplayHeightMM, gxm_DisplayHeightMM_w, 2, 0, 0, H_DisplayHeightMM); + XM_define_procedure(DisplayPlanes, gxm_DisplayPlanes_w, 2, 0, 0, H_DisplayPlanes); + XM_define_procedure(DisplayCells, gxm_DisplayCells_w, 2, 0, 0, H_DisplayCells); + XM_define_procedure(DefaultColormap, gxm_DefaultColormap_w, 2, 0, 0, H_DefaultColormap); + XM_define_procedure(ScreenOfDisplay, gxm_ScreenOfDisplay_w, 2, 0, 0, H_ScreenOfDisplay); + XM_define_procedure(DefaultDepth, gxm_DefaultDepth_w, 2, 0, 0, H_DefaultDepth); + + XM_define_procedure(IsKeypadKey, gxm_IsKeypadKey_w, 1, 0, 0, H_IsKeypadKey); + XM_define_procedure(IsPrivateKeypadKey, gxm_IsPrivateKeypadKey_w, 1, 0, 0, H_IsPrivateKeypadKey); + XM_define_procedure(IsCursorKey, gxm_IsCursorKey_w, 1, 0, 0, H_IsCursorKey); + XM_define_procedure(IsPFKey, gxm_IsPFKey_w, 1, 0, 0, H_IsPFKey); + XM_define_procedure(IsFunctionKey, gxm_IsFunctionKey_w, 1, 0, 0, H_IsFunctionKey); + XM_define_procedure(IsMiscFunctionKey, gxm_IsMiscFunctionKey_w, 1, 0, 0, H_IsMiscFunctionKey); + XM_define_procedure(IsModifierKey, gxm_IsModifierKey_w, 1, 0, 0, H_IsModifierKey); + + XM_define_procedure(XButtonEvent?, g_is_XButtonEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XButtonEvent"); + XM_define_procedure(XCirculateEvent?, g_is_XCirculateEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XCirculateEvent"); + XM_define_procedure(XCirculateRequestEvent?, g_is_XCirculateRequestEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XCirculateRequestEvent"); + XM_define_procedure(XClientMessageEvent?, g_is_XClientMessageEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XClientMessageEvent"); + XM_define_procedure(XColormapEvent?, g_is_XColormapEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XColormapEvent"); + XM_define_procedure(XConfigureEvent?, g_is_XConfigureEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XConfigureEvent"); + XM_define_procedure(XConfigureRequestEvent?, g_is_XConfigureRequestEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XConfigureRequestEvent"); + XM_define_procedure(XCreateWindowEvent?, g_is_XCreateWindowEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XCreateWindowEvent"); + XM_define_procedure(XCrossingEvent?, g_is_XCrossingEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XCrossingEvent"); + XM_define_procedure(XDestroyWindowEvent?, g_is_XDestroyWindowEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XDestroyWindowEvent"); + XM_define_procedure(XErrorEvent?, g_is_XErrorEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XErrorEvent"); + XM_define_procedure(XExposeEvent?, g_is_XExposeEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XExposeEvent"); + XM_define_procedure(XFocusChangeEvent?, g_is_XFocusChangeEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XFocusChangeEvent"); + XM_define_procedure(XGraphicsExposeEvent?, g_is_XGraphicsExposeEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XGraphicsExposeEvent"); + XM_define_procedure(XGravityEvent?, g_is_XGravityEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XGravityEvent"); + XM_define_procedure(XKeyEvent?, g_is_XKeyEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XKeyEvent"); + XM_define_procedure(XKeymapEvent?, g_is_XKeymapEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XKeymapEvent"); + XM_define_procedure(XMapEvent?, g_is_XMapEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XMapEvent"); + XM_define_procedure(XMapRequestEvent?, g_is_XMapRequestEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XMapRequestEvent"); + XM_define_procedure(XMappingEvent?, g_is_XMappingEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XMappingEvent"); + XM_define_procedure(XMotionEvent?, g_is_XMotionEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XMotionEvent"); + XM_define_procedure(XNoExposeEvent?, g_is_XNoExposeEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XNoExposeEvent"); + XM_define_procedure(XPropertyEvent?, g_is_XPropertyEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XPropertyEvent"); + XM_define_procedure(XReparentEvent?, g_is_XReparentEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XReparentEvent"); + XM_define_procedure(XResizeRequestEvent?, g_is_XResizeRequestEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XResizeRequestEvent"); + XM_define_procedure(XSelectionClearEvent?, g_is_XSelectionClearEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XSelectionClearEvent"); + XM_define_procedure(XSelectionEvent?, g_is_XSelectionEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XSelectionEvent"); + XM_define_procedure(XSelectionRequestEvent?, g_is_XSelectionRequestEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XSelectionRequestEvent"); + XM_define_procedure(XSetWindowAttributes?, g_is_XSetWindowAttributes_w, 1, 0, 0, PROC_TRUE " if arg is a XSetWindowAttributes"); + XM_define_procedure(XUnmapEvent?, g_is_XUnmapEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XUnmapEvent"); + XM_define_procedure(XVisibilityEvent?, g_is_XVisibilityEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XVisibilityEvent"); + XM_define_procedure(XIconSize?, g_is_XIconSize_w, 1, 0, 0, PROC_TRUE " if arg is a XIconSize object"); + + XM_define_procedure(XmCreateMessageBox, gxm_XmCreateMessageBox_w, 3, 1, 0, H_XmCreateMessageBox); + XM_define_procedure(XmCreateMessageDialog, gxm_XmCreateMessageDialog_w, 3, 1, 0, H_XmCreateMessageDialog); + XM_define_procedure(XmCreateErrorDialog, gxm_XmCreateErrorDialog_w, 3, 1, 0, H_XmCreateErrorDialog); + XM_define_procedure(XmCreateInformationDialog, gxm_XmCreateInformationDialog_w, 3, 1, 0, H_XmCreateInformationDialog); + XM_define_procedure(XmCreateQuestionDialog, gxm_XmCreateQuestionDialog_w, 3, 1, 0, H_XmCreateQuestionDialog); + XM_define_procedure(XmCreateWarningDialog, gxm_XmCreateWarningDialog_w, 3, 1, 0, H_XmCreateWarningDialog); + XM_define_procedure(XmCreateWorkingDialog, gxm_XmCreateWorkingDialog_w, 3, 1, 0, H_XmCreateWorkingDialog); + XM_define_procedure(XmCreateTemplateDialog, gxm_XmCreateTemplateDialog_w, 3, 1, 0, H_XmCreateTemplateDialog); + XM_define_procedure(XmMessageBoxGetChild, gxm_XmMessageBoxGetChild_w, 2, 0, 0, H_XmMessageBoxGetChild); + XM_define_procedure(XmCreateArrowButtonGadget, gxm_XmCreateArrowButtonGadget_w, 3, 1, 0, H_XmCreateArrowButtonGadget); + XM_define_procedure(XmCreateArrowButton, gxm_XmCreateArrowButton_w, 3, 1, 0, H_XmCreateArrowButton); + XM_define_procedure(XmCreateNotebook, gxm_XmCreateNotebook_w, 3, 1, 0, H_XmCreateNotebook); + XM_define_procedure(XmNotebookGetPageInfo, gxm_XmNotebookGetPageInfo_w, 2, 0, 0, H_XmNotebookGetPageInfo); + XM_define_procedure(XmTransferSetParameters, gxm_XmTransferSetParameters_w, 5, 0, 0, H_XmTransferSetParameters); + XM_define_procedure(XmTransferDone, gxm_XmTransferDone_w, 2, 0, 0, H_XmTransferDone); + XM_define_procedure(XmTransferValue, gxm_XmTransferValue_w, 5, 0, 0, H_XmTransferValue); + XM_define_procedure(XmTransferStartRequest, gxm_XmTransferStartRequest_w, 1, 0, 0, H_XmTransferStartRequest); + XM_define_procedure(XmTransferSendRequest, gxm_XmTransferSendRequest_w, 2, 0, 0, H_XmTransferSendRequest); + XM_define_procedure(XmCreateComboBox, gxm_XmCreateComboBox_w, 3, 1, 0, H_XmCreateComboBox); + XM_define_procedure(XmCreateDropDownComboBox, gxm_XmCreateDropDownComboBox_w, 3, 1, 0, H_XmCreateDropDownComboBox); + XM_define_procedure(XmCreateDropDownList, gxm_XmCreateDropDownList_w, 3, 1, 0, H_XmCreateDropDownList); + XM_define_procedure(XmComboBoxAddItem, gxm_XmComboBoxAddItem_w, 4, 0, 0, H_XmComboBoxAddItem); + XM_define_procedure(XmComboBoxDeletePos, gxm_XmComboBoxDeletePos_w, 2, 0, 0, H_XmComboBoxDeletePos); + XM_define_procedure(XmComboBoxSelectItem, gxm_XmComboBoxSelectItem_w, 2, 0, 0, H_XmComboBoxSelectItem); + XM_define_procedure(XmComboBoxSetItem, gxm_XmComboBoxSetItem_w, 2, 0, 0, H_XmComboBoxSetItem); + XM_define_procedure(XmComboBoxUpdate, gxm_XmComboBoxUpdate_w, 1, 0, 0, H_XmComboBoxUpdate); + XM_define_procedure(XmCreateContainer, gxm_XmCreateContainer_w, 3, 1, 0, H_XmCreateContainer); + XM_define_procedure(XmContainerGetItemChildren, gxm_XmContainerGetItemChildren_w, 2, 0, 0, H_XmContainerGetItemChildren); + XM_define_procedure(XmContainerRelayout, gxm_XmContainerRelayout_w, 1, 0, 0, H_XmContainerRelayout); + XM_define_procedure(XmContainerReorder, gxm_XmContainerReorder_w, 3, 0, 0, H_XmContainerReorder); + XM_define_procedure(XmContainerCut, gxm_XmContainerCut_w, 2, 0, 0, H_XmContainerCut); + XM_define_procedure(XmContainerCopy, gxm_XmContainerCopy_w, 2, 0, 0, H_XmContainerCopy); + XM_define_procedure(XmContainerPaste, gxm_XmContainerPaste_w, 1, 0, 0, H_XmContainerPaste); + XM_define_procedure(XmContainerCopyLink, gxm_XmContainerCopyLink_w, 2, 0, 0, H_XmContainerCopyLink); + XM_define_procedure(XmContainerPasteLink, gxm_XmContainerPasteLink_w, 1, 0, 0, H_XmContainerPasteLink); + XM_define_procedure(XmCreateSpinBox, gxm_XmCreateSpinBox_w, 3, 1, 0, H_XmCreateSpinBox); + XM_define_procedure(XmSpinBoxValidatePosition, gxm_XmSpinBoxValidatePosition_w, 1, 0, 0, H_XmSpinBoxValidatePosition); + XM_define_procedure(XmCreateSimpleSpinBox, gxm_XmCreateSimpleSpinBox_w, 3, 1, 0, H_XmCreateSimpleSpinBox); + XM_define_procedure(XmSimpleSpinBoxAddItem, gxm_XmSimpleSpinBoxAddItem_w, 3, 0, 0, H_XmSimpleSpinBoxAddItem); + XM_define_procedure(XmSimpleSpinBoxDeletePos, gxm_XmSimpleSpinBoxDeletePos_w, 2, 0, 0, H_XmSimpleSpinBoxDeletePos); + XM_define_procedure(XmSimpleSpinBoxSetItem, gxm_XmSimpleSpinBoxSetItem_w, 2, 0, 0, H_XmSimpleSpinBoxSetItem); + XM_define_procedure(XmDropSiteRegistered, gxm_XmDropSiteRegistered_w, 1, 0, 0, H_XmDropSiteRegistered); + XM_define_procedure(XmTextFieldCopyLink, gxm_XmTextFieldCopyLink_w, 2, 0, 0, H_XmTextFieldCopyLink); + XM_define_procedure(XmTextFieldPasteLink, gxm_XmTextFieldPasteLink_w, 1, 0, 0, H_XmTextFieldPasteLink); + XM_define_procedure(XmTextGetCenterline, gxm_XmTextGetCenterline_w, 1, 0, 0, H_XmTextGetCenterline); + XM_define_procedure(XmToggleButtonGadgetSetValue, gxm_XmToggleButtonGadgetSetValue_w, 3, 0, 0, H_XmToggleButtonGadgetSetValue); + XM_define_procedure(XmCreateIconGadget, gxm_XmCreateIconGadget_w, 3, 1, 0, H_XmCreateIconGadget); + XM_define_procedure(XmCreateIconHeader, gxm_XmCreateIconHeader_w, 3, 1, 0, H_XmCreateIconHeader); + XM_define_procedure(XmObjectAtPoint, gxm_XmObjectAtPoint_w, 3, 0, 0, H_XmObjectAtPoint); + XM_define_procedure(XmConvertStringToUnits, gxm_XmConvertStringToUnits_w, 4, 0, 0, H_XmConvertStringToUnits); + XM_define_procedure(XmCreateGrabShell, gxm_XmCreateGrabShell_w, 3, 1, 0, H_XmCreateGrabShell); + XM_define_procedure(XmToggleButtonSetValue, gxm_XmToggleButtonSetValue_w, 3, 0, 0, H_XmToggleButtonSetValue); + XM_define_procedure(XmTextPasteLink, gxm_XmTextPasteLink_w, 1, 0, 0, H_XmTextPasteLink); + XM_define_procedure(XmTextCopyLink, gxm_XmTextCopyLink_w, 2, 0, 0, H_XmTextCopyLink); + XM_define_procedure(XmScaleSetTicks, gxm_XmScaleSetTicks_w, 7, 0, 0, H_XmScaleSetTicks); + XM_define_procedure(XmInternAtom, gxm_XmInternAtom_w, 3, 0, 0, H_XmInternAtom); + XM_define_procedure(XmGetAtomName, gxm_XmGetAtomName_w, 2, 0, 0, H_XmGetAtomName); + XM_define_procedure(XmCreatePanedWindow, gxm_XmCreatePanedWindow_w, 3, 1, 0, H_XmCreatePanedWindow); + XM_define_procedure(XmCreateBulletinBoard, gxm_XmCreateBulletinBoard_w, 3, 1, 0, H_XmCreateBulletinBoard); + XM_define_procedure(XmCreateBulletinBoardDialog, gxm_XmCreateBulletinBoardDialog_w, 3, 1, 0, H_XmCreateBulletinBoardDialog); + XM_define_procedure(XmCreateCascadeButtonGadget, gxm_XmCreateCascadeButtonGadget_w, 3, 1, 0, H_XmCreateCascadeButtonGadget); + XM_define_procedure(XmCascadeButtonGadgetHighlight, gxm_XmCascadeButtonGadgetHighlight_w, 2, 0, 0, H_XmCascadeButtonGadgetHighlight); + XM_define_procedure(XmAddProtocols, gxm_XmAddProtocols_w, 3, 1, 0, H_XmAddProtocols); + XM_define_procedure(XmAddWMProtocols, gxm_XmAddWMProtocols_w, 2, 1, 0, H_XmAddWMProtocols); + XM_define_procedure(XmRemoveProtocols, gxm_XmRemoveProtocols_w, 3, 1, 0, H_XmRemoveProtocols); + XM_define_procedure(XmRemoveWMProtocols, gxm_XmRemoveWMProtocols_w, 2, 1, 0, H_XmRemoveWMProtocols); + XM_define_procedure(XmAddProtocolCallback, gxm_XmAddProtocolCallback_w, 5, 0, 0, H_XmAddProtocolCallback); + XM_define_procedure(XmAddWMProtocolCallback, gxm_XmAddWMProtocolCallback_w, 4, 0, 0, H_XmAddWMProtocolCallback); + XM_define_procedure(XmRemoveProtocolCallback, gxm_XmRemoveProtocolCallback_w, 5, 0, 0, H_XmRemoveProtocolCallback); + XM_define_procedure(XmRemoveWMProtocolCallback, gxm_XmRemoveWMProtocolCallback_w, 4, 0, 0, H_XmRemoveWMProtocolCallback); + XM_define_procedure(XmActivateProtocol, gxm_XmActivateProtocol_w, 3, 0, 0, H_XmActivateProtocol); + XM_define_procedure(XmDeactivateProtocol, gxm_XmDeactivateProtocol_w, 3, 0, 0, H_XmDeactivateProtocol); + XM_define_procedure(XmActivateWMProtocol, gxm_XmActivateWMProtocol_w, 2, 0, 0, H_XmActivateWMProtocol); + XM_define_procedure(XmDeactivateWMProtocol, gxm_XmDeactivateWMProtocol_w, 2, 0, 0, H_XmDeactivateWMProtocol); + XM_define_procedure(XmSetProtocolHooks, gxm_XmSetProtocolHooks_w, 7, 0, 0, H_XmSetProtocolHooks); + XM_define_procedure(XmSetWMProtocolHooks, gxm_XmSetWMProtocolHooks_w, 6, 0, 0, H_XmSetWMProtocolHooks); + XM_define_procedure(XmCreateCascadeButton, gxm_XmCreateCascadeButton_w, 3, 1, 0, H_XmCreateCascadeButton); + XM_define_procedure(XmCascadeButtonHighlight, gxm_XmCascadeButtonHighlight_w, 2, 0, 0, H_XmCascadeButtonHighlight); + XM_define_procedure(XmCreatePushButtonGadget, gxm_XmCreatePushButtonGadget_w, 3, 1, 0, H_XmCreatePushButtonGadget); + XM_define_procedure(XmCreatePushButton, gxm_XmCreatePushButton_w, 3, 1, 0, H_XmCreatePushButton); + XM_define_procedure(XmCreateCommand, gxm_XmCreateCommand_w, 3, 1, 0, H_XmCreateCommand); + XM_define_procedure(XmCommandGetChild, gxm_XmCommandGetChild_w, 2, 0, 0, H_XmCommandGetChild); + XM_define_procedure(XmCommandSetValue, gxm_XmCommandSetValue_w, 2, 0, 0, H_XmCommandSetValue); + XM_define_procedure(XmCommandAppendValue, gxm_XmCommandAppendValue_w, 2, 0, 0, H_XmCommandAppendValue); + XM_define_procedure(XmCommandError, gxm_XmCommandError_w, 2, 0, 0, H_XmCommandError); + XM_define_procedure(XmCreateCommandDialog, gxm_XmCreateCommandDialog_w, 3, 1, 0, H_XmCreateCommandDialog); + XM_define_procedure(XmMenuPosition, gxm_XmMenuPosition_w, 2, 0, 0, H_XmMenuPosition); + XM_define_procedure(XmCreateRowColumn, gxm_XmCreateRowColumn_w, 3, 1, 0, H_XmCreateRowColumn); + XM_define_procedure(XmCreateWorkArea, gxm_XmCreateWorkArea_w, 3, 1, 0, H_XmCreateWorkArea); + XM_define_procedure(XmCreateRadioBox, gxm_XmCreateRadioBox_w, 3, 1, 0, H_XmCreateRadioBox); + XM_define_procedure(XmCreateOptionMenu, gxm_XmCreateOptionMenu_w, 3, 1, 0, H_XmCreateOptionMenu); + XM_define_procedure(XmOptionLabelGadget, gxm_XmOptionLabelGadget_w, 1, 0, 0, H_XmOptionLabelGadget); + XM_define_procedure(XmOptionButtonGadget, gxm_XmOptionButtonGadget_w, 1, 0, 0, H_XmOptionButtonGadget); + XM_define_procedure(XmCreateMenuBar, gxm_XmCreateMenuBar_w, 3, 1, 0, H_XmCreateMenuBar); + XM_define_procedure(XmCreatePopupMenu, gxm_XmCreatePopupMenu_w, 3, 1, 0, H_XmCreatePopupMenu); + XM_define_procedure(XmCreatePulldownMenu, gxm_XmCreatePulldownMenu_w, 3, 1, 0, H_XmCreatePulldownMenu); + XM_define_procedure(XmGetPostedFromWidget, gxm_XmGetPostedFromWidget_w, 1, 0, 0, H_XmGetPostedFromWidget); + XM_define_procedure(XmGetTearOffControl, gxm_XmGetTearOffControl_w, 1, 0, 0, H_XmGetTearOffControl); + XM_define_procedure(XmScaleSetValue, gxm_XmScaleSetValue_w, 2, 0, 0, H_XmScaleSetValue); + XM_define_procedure(XmScaleGetValue, gxm_XmScaleGetValue_w, 1, 0, 0, H_XmScaleGetValue); + XM_define_procedure(XmCreateScale, gxm_XmCreateScale_w, 3, 1, 0, H_XmCreateScale); + XM_define_procedure(XmClipboardBeginCopy, gxm_XmClipboardBeginCopy_w, 5, 0, 0, H_XmClipboardBeginCopy); + XM_define_procedure(XmWidgetGetDisplayRect, gxm_XmWidgetGetDisplayRect_w, 1, 0, 0, H_XmWidgetGetDisplayRect); + XM_define_procedure(XmClipboardStartCopy, gxm_XmClipboardStartCopy_w, 6, 0, 0, H_XmClipboardStartCopy); + XM_define_procedure(XmClipboardCopy, gxm_XmClipboardCopy_w, 7, 0, 0, H_XmClipboardCopy); + XM_define_procedure(XmClipboardEndCopy, gxm_XmClipboardEndCopy_w, 3, 0, 0, H_XmClipboardEndCopy); + XM_define_procedure(XmClipboardCancelCopy, gxm_XmClipboardCancelCopy_w, 3, 0, 0, H_XmClipboardCancelCopy); + XM_define_procedure(XmClipboardWithdrawFormat, gxm_XmClipboardWithdrawFormat_w, 3, 0, 0, H_XmClipboardWithdrawFormat); + XM_define_procedure(XmClipboardCopyByName, gxm_XmClipboardCopyByName_w, 6, 0, 0, H_XmClipboardCopyByName); + XM_define_procedure(XmClipboardUndoCopy, gxm_XmClipboardUndoCopy_w, 2, 0, 0, H_XmClipboardUndoCopy); + XM_define_procedure(XmClipboardLock, gxm_XmClipboardLock_w, 2, 0, 0, H_XmClipboardLock); + XM_define_procedure(XmClipboardUnlock, gxm_XmClipboardUnlock_w, 3, 0, 0, H_XmClipboardUnlock); + XM_define_procedure(XmClipboardStartRetrieve, gxm_XmClipboardStartRetrieve_w, 3, 0, 0, H_XmClipboardStartRetrieve); + XM_define_procedure(XmClipboardEndRetrieve, gxm_XmClipboardEndRetrieve_w, 2, 0, 0, H_XmClipboardEndRetrieve); + XM_define_procedure(XmClipboardRetrieve, gxm_XmClipboardRetrieve_w, 4, 0, 0, H_XmClipboardRetrieve); + XM_define_procedure(XmClipboardInquireCount, gxm_XmClipboardInquireCount_w, 2, 0, 0, H_XmClipboardInquireCount); + XM_define_procedure(XmClipboardInquireFormat, gxm_XmClipboardInquireFormat_w, 4, 0, 0, H_XmClipboardInquireFormat); + XM_define_procedure(XmClipboardInquireLength, gxm_XmClipboardInquireLength_w, 3, 0, 0, H_XmClipboardInquireLength); + XM_define_procedure(XmClipboardInquirePendingItems, gxm_XmClipboardInquirePendingItems_w, 3, 0, 0, H_XmClipboardInquirePendingItems); + XM_define_procedure(XmClipboardRegisterFormat, gxm_XmClipboardRegisterFormat_w, 3, 0, 0, H_XmClipboardRegisterFormat); + XM_define_procedure(XmGetXmScreen, gxm_XmGetXmScreen_w, 1, 0, 0, H_XmGetXmScreen); + XM_define_procedure(XmCreateScrollBar, gxm_XmCreateScrollBar_w, 3, 1, 0, H_XmCreateScrollBar); + XM_define_procedure(XmScrollBarGetValues, gxm_XmScrollBarGetValues_w, 1, 0, 0, H_XmScrollBarGetValues); + XM_define_procedure(XmScrollBarSetValues, gxm_XmScrollBarSetValues_w, 6, 0, 0, H_XmScrollBarSetValues); + XM_define_procedure(XmCreateDialogShell, gxm_XmCreateDialogShell_w, 3, 1, 0, H_XmCreateDialogShell); + XM_define_procedure(XmCreateScrolledWindow, gxm_XmCreateScrolledWindow_w, 3, 1, 0, H_XmCreateScrolledWindow); + XM_define_procedure(XmScrollVisible, gxm_XmScrollVisible_w, 4, 0, 0, H_XmScrollVisible); + XM_define_procedure(XmGetDragContext, gxm_XmGetDragContext_w, 2, 0, 0, H_XmGetDragContext); + XM_define_procedure(XmGetXmDisplay, gxm_XmGetXmDisplay_w, 1, 0, 0, H_XmGetXmDisplay); + XM_define_procedure(XmSelectionBoxGetChild, gxm_XmSelectionBoxGetChild_w, 2, 0, 0, H_XmSelectionBoxGetChild); + XM_define_procedure(XmCreateSelectionBox, gxm_XmCreateSelectionBox_w, 3, 1, 0, H_XmCreateSelectionBox); + XM_define_procedure(XmCreateSelectionDialog, gxm_XmCreateSelectionDialog_w, 3, 1, 0, H_XmCreateSelectionDialog); + XM_define_procedure(XmCreatePromptDialog, gxm_XmCreatePromptDialog_w, 3, 1, 0, H_XmCreatePromptDialog); + XM_define_procedure(XmDragStart, gxm_XmDragStart_w, 3, 1, 0, H_XmDragStart); + XM_define_procedure(XmDragCancel, gxm_XmDragCancel_w, 1, 0, 0, H_XmDragCancel); + XM_define_procedure(XmTargetsAreCompatible, gxm_XmTargetsAreCompatible_w, 5, 0, 0, H_XmTargetsAreCompatible); + XM_define_procedure(XmCreateSeparatorGadget, gxm_XmCreateSeparatorGadget_w, 3, 1, 0, H_XmCreateSeparatorGadget); + XM_define_procedure(XmCreateDragIcon, gxm_XmCreateDragIcon_w, 3, 1, 0, H_XmCreateDragIcon); + XM_define_procedure(XmCreateSeparator, gxm_XmCreateSeparator_w, 3, 1, 0, H_XmCreateSeparator); + XM_define_procedure(XmCreateDrawingArea, gxm_XmCreateDrawingArea_w, 3, 1, 0, H_XmCreateDrawingArea); + XM_define_procedure(XmCreateDrawnButton, gxm_XmCreateDrawnButton_w, 3, 1, 0, H_XmCreateDrawnButton); + XM_define_procedure(XmDropSiteRegister, gxm_XmDropSiteRegister_w, 2, 1, 0, H_XmDropSiteRegister); + XM_define_procedure(XmDropSiteUnregister, gxm_XmDropSiteUnregister_w, 1, 0, 0, H_XmDropSiteUnregister); + XM_define_procedure(XmDropSiteStartUpdate, gxm_XmDropSiteStartUpdate_w, 1, 0, 0, H_XmDropSiteStartUpdate); + XM_define_procedure(XmDropSiteUpdate, gxm_XmDropSiteUpdate_w, 2, 1, 0, H_XmDropSiteUpdate); + XM_define_procedure(XmDropSiteEndUpdate, gxm_XmDropSiteEndUpdate_w, 1, 0, 0, H_XmDropSiteEndUpdate); + XM_define_procedure(XmDropSiteRetrieve, gxm_XmDropSiteRetrieve_w, 2, 1, 0, H_XmDropSiteRetrieve); + XM_define_procedure(XmDropSiteQueryStackingOrder, gxm_XmDropSiteQueryStackingOrder_w, 1, 0, 0, H_XmDropSiteQueryStackingOrder); + XM_define_procedure(XmDropSiteConfigureStackingOrder, gxm_XmDropSiteConfigureStackingOrder_w, 3, 0, 0, H_XmDropSiteConfigureStackingOrder); + XM_define_procedure(XmDropTransferStart, gxm_XmDropTransferStart_w, 2, 1, 0, H_XmDropTransferStart); + XM_define_procedure(XmDropTransferAdd, gxm_XmDropTransferAdd_w, 2, 0, 0, H_XmDropTransferAdd); + XM_define_procedure(XmTextFieldGetString, gxm_XmTextFieldGetString_w, 1, 0, 0, H_XmTextFieldGetString); + XM_define_procedure(XmTextFieldGetSubstring, gxm_XmTextFieldGetSubstring_w, 3, 0, 0, H_XmTextFieldGetSubstring); + XM_define_procedure(XmTextFieldGetLastPosition, gxm_XmTextFieldGetLastPosition_w, 1, 0, 0, H_XmTextFieldGetLastPosition); + XM_define_procedure(XmTextFieldSetString, gxm_XmTextFieldSetString_w, 2, 0, 0, H_XmTextFieldSetString); + XM_define_procedure(XmTextFieldReplace, gxm_XmTextFieldReplace_w, 4, 0, 0, H_XmTextFieldReplace); + XM_define_procedure(XmTextFieldInsert, gxm_XmTextFieldInsert_w, 3, 0, 0, H_XmTextFieldInsert); + XM_define_procedure(XmTextFieldSetAddMode, gxm_XmTextFieldSetAddMode_w, 2, 0, 0, H_XmTextFieldSetAddMode); + XM_define_procedure(XmTextFieldGetAddMode, gxm_XmTextFieldGetAddMode_w, 1, 0, 0, H_XmTextFieldGetAddMode); + XM_define_procedure(XmTextFieldGetEditable, gxm_XmTextFieldGetEditable_w, 1, 0, 0, H_XmTextFieldGetEditable); + XM_define_procedure(XmTextFieldSetEditable, gxm_XmTextFieldSetEditable_w, 2, 0, 0, H_XmTextFieldSetEditable); + XM_define_procedure(XmTextFieldGetMaxLength, gxm_XmTextFieldGetMaxLength_w, 1, 0, 0, H_XmTextFieldGetMaxLength); + XM_define_procedure(XmTextFieldSetMaxLength, gxm_XmTextFieldSetMaxLength_w, 2, 0, 0, H_XmTextFieldSetMaxLength); + XM_define_procedure(XmTextFieldGetCursorPosition, gxm_XmTextFieldGetCursorPosition_w, 1, 0, 0, H_XmTextFieldGetCursorPosition); + XM_define_procedure(XmTextFieldGetInsertionPosition, gxm_XmTextFieldGetInsertionPosition_w, 1, 0, 0, H_XmTextFieldGetInsertionPosition); + XM_define_procedure(XmTextFieldSetCursorPosition, gxm_XmTextFieldSetCursorPosition_w, 2, 0, 0, H_XmTextFieldSetCursorPosition); + XM_define_procedure(XmTextFieldSetInsertionPosition, gxm_XmTextFieldSetInsertionPosition_w, 2, 0, 0, H_XmTextFieldSetInsertionPosition); + XM_define_procedure(XmTextFieldGetSelectionPosition, gxm_XmTextFieldGetSelectionPosition_w, 1, 0, 0, H_XmTextFieldGetSelectionPosition); + XM_define_procedure(XmTextFieldGetSelection, gxm_XmTextFieldGetSelection_w, 1, 0, 0, H_XmTextFieldGetSelection); + XM_define_procedure(XmTextFieldRemove, gxm_XmTextFieldRemove_w, 1, 0, 0, H_XmTextFieldRemove); + XM_define_procedure(XmTextFieldCopy, gxm_XmTextFieldCopy_w, 2, 0, 0, H_XmTextFieldCopy); + XM_define_procedure(XmTextFieldCut, gxm_XmTextFieldCut_w, 2, 0, 0, H_XmTextFieldCut); + XM_define_procedure(XmTextFieldPaste, gxm_XmTextFieldPaste_w, 1, 0, 0, H_XmTextFieldPaste); + XM_define_procedure(XmTextFieldClearSelection, gxm_XmTextFieldClearSelection_w, 2, 0, 0, H_XmTextFieldClearSelection); + XM_define_procedure(XmTextFieldSetSelection, gxm_XmTextFieldSetSelection_w, 4, 0, 0, H_XmTextFieldSetSelection); + XM_define_procedure(XmTextFieldXYToPos, gxm_XmTextFieldXYToPos_w, 3, 0, 0, H_XmTextFieldXYToPos); + XM_define_procedure(XmTextFieldPosToXY, gxm_XmTextFieldPosToXY_w, 2, 0, 0, H_XmTextFieldPosToXY); + XM_define_procedure(XmTextFieldShowPosition, gxm_XmTextFieldShowPosition_w, 2, 0, 0, H_XmTextFieldShowPosition); + XM_define_procedure(XmTextFieldSetHighlight, gxm_XmTextFieldSetHighlight_w, 4, 0, 0, H_XmTextFieldSetHighlight); + XM_define_procedure(XmTextFieldGetBaseline, gxm_XmTextFieldGetBaseline_w, 1, 0, 0, H_XmTextFieldGetBaseline); + XM_define_procedure(XmCreateTextField, gxm_XmCreateTextField_w, 3, 1, 0, H_XmCreateTextField); + XM_define_procedure(XmFileSelectionBoxGetChild, gxm_XmFileSelectionBoxGetChild_w, 2, 0, 0, H_XmFileSelectionBoxGetChild); + XM_define_procedure(XmFileSelectionDoSearch, gxm_XmFileSelectionDoSearch_w, 2, 0, 0, H_XmFileSelectionDoSearch); + XM_define_procedure(XmCreateFileSelectionBox, gxm_XmCreateFileSelectionBox_w, 3, 1, 0, H_XmCreateFileSelectionBox); + XM_define_procedure(XmCreateFileSelectionDialog, gxm_XmCreateFileSelectionDialog_w, 3, 1, 0, H_XmCreateFileSelectionDialog); + XM_define_procedure(XmTextSetHighlight, gxm_XmTextSetHighlight_w, 4, 0, 0, H_XmTextSetHighlight); + XM_define_procedure(XmCreateScrolledText, gxm_XmCreateScrolledText_w, 3, 1, 0, H_XmCreateScrolledText); + XM_define_procedure(XmCreateText, gxm_XmCreateText_w, 3, 1, 0, H_XmCreateText); + XM_define_procedure(XmTextGetSubstring, gxm_XmTextGetSubstring_w, 3, 0, 0, H_XmTextGetSubstring); + XM_define_procedure(XmTextGetString, gxm_XmTextGetString_w, 1, 0, 0, H_XmTextGetString); + XM_define_procedure(XmTextGetLastPosition, gxm_XmTextGetLastPosition_w, 1, 0, 0, H_XmTextGetLastPosition); + XM_define_procedure(XmTextSetString, gxm_XmTextSetString_w, 2, 0, 0, H_XmTextSetString); + XM_define_procedure(XmTextReplace, gxm_XmTextReplace_w, 4, 0, 0, H_XmTextReplace); + XM_define_procedure(XmTextInsert, gxm_XmTextInsert_w, 3, 0, 0, H_XmTextInsert); + XM_define_procedure(XmTextSetAddMode, gxm_XmTextSetAddMode_w, 2, 0, 0, H_XmTextSetAddMode); + XM_define_procedure(XmTextGetAddMode, gxm_XmTextGetAddMode_w, 1, 0, 0, H_XmTextGetAddMode); + XM_define_procedure(XmTextGetEditable, gxm_XmTextGetEditable_w, 1, 0, 0, H_XmTextGetEditable); + XM_define_procedure(XmTextSetEditable, gxm_XmTextSetEditable_w, 2, 0, 0, H_XmTextSetEditable); + XM_define_procedure(XmTextGetMaxLength, gxm_XmTextGetMaxLength_w, 1, 0, 0, H_XmTextGetMaxLength); + XM_define_procedure(XmTextSetMaxLength, gxm_XmTextSetMaxLength_w, 2, 0, 0, H_XmTextSetMaxLength); + XM_define_procedure(XmTextGetTopCharacter, gxm_XmTextGetTopCharacter_w, 1, 0, 0, H_XmTextGetTopCharacter); + XM_define_procedure(XmTextSetTopCharacter, gxm_XmTextSetTopCharacter_w, 2, 0, 0, H_XmTextSetTopCharacter); + XM_define_procedure(XmTextGetCursorPosition, gxm_XmTextGetCursorPosition_w, 1, 0, 0, H_XmTextGetCursorPosition); + XM_define_procedure(XmTextGetInsertionPosition, gxm_XmTextGetInsertionPosition_w, 1, 0, 0, H_XmTextGetInsertionPosition); + XM_define_procedure(XmTextSetInsertionPosition, gxm_XmTextSetInsertionPosition_w, 2, 0, 0, H_XmTextSetInsertionPosition); + XM_define_procedure(XmTextSetCursorPosition, gxm_XmTextSetCursorPosition_w, 2, 0, 0, H_XmTextSetCursorPosition); + XM_define_procedure(XmTextRemove, gxm_XmTextRemove_w, 1, 0, 0, H_XmTextRemove); + XM_define_procedure(XmTextCopy, gxm_XmTextCopy_w, 2, 0, 0, H_XmTextCopy); + XM_define_procedure(XmTextCut, gxm_XmTextCut_w, 2, 0, 0, H_XmTextCut); + XM_define_procedure(XmTextPaste, gxm_XmTextPaste_w, 1, 0, 0, H_XmTextPaste); + XM_define_procedure(XmTextGetSelection, gxm_XmTextGetSelection_w, 1, 0, 0, H_XmTextGetSelection); + XM_define_procedure(XmTextSetSelection, gxm_XmTextSetSelection_w, 4, 0, 0, H_XmTextSetSelection); + XM_define_procedure(XmTextClearSelection, gxm_XmTextClearSelection_w, 2, 0, 0, H_XmTextClearSelection); + XM_define_procedure(XmTextGetSelectionPosition, gxm_XmTextGetSelectionPosition_w, 1, 0, 0, H_XmTextGetSelectionPosition); + XM_define_procedure(XmTextXYToPos, gxm_XmTextXYToPos_w, 3, 0, 0, H_XmTextXYToPos); + XM_define_procedure(XmTextPosToXY, gxm_XmTextPosToXY_w, 2, 0, 0, H_XmTextPosToXY); + XM_define_procedure(XmTextGetSource, gxm_XmTextGetSource_w, 1, 0, 0, H_XmTextGetSource); + XM_define_procedure(XmTextSetSource, gxm_XmTextSetSource_w, 4, 0, 0, H_XmTextSetSource); + XM_define_procedure(XmTextShowPosition, gxm_XmTextShowPosition_w, 2, 0, 0, H_XmTextShowPosition); + XM_define_procedure(XmTextScroll, gxm_XmTextScroll_w, 2, 0, 0, H_XmTextScroll); + XM_define_procedure(XmTextGetBaseline, gxm_XmTextGetBaseline_w, 1, 0, 0, H_XmTextGetBaseline); + XM_define_procedure(XmTextDisableRedisplay, gxm_XmTextDisableRedisplay_w, 1, 0, 0, H_XmTextDisableRedisplay); + XM_define_procedure(XmTextEnableRedisplay, gxm_XmTextEnableRedisplay_w, 1, 0, 0, H_XmTextEnableRedisplay); + XM_define_procedure(XmTextFindString, gxm_XmTextFindString_w, 4, 0, 0, H_XmTextFindString); + XM_define_procedure(XmCreateForm, gxm_XmCreateForm_w, 3, 1, 0, H_XmCreateForm); + XM_define_procedure(XmCreateFormDialog, gxm_XmCreateFormDialog_w, 3, 1, 0, H_XmCreateFormDialog); + XM_define_procedure(XmCreateFrame, gxm_XmCreateFrame_w, 3, 1, 0, H_XmCreateFrame); + XM_define_procedure(XmToggleButtonGadgetGetState, gxm_XmToggleButtonGadgetGetState_w, 1, 0, 0, H_XmToggleButtonGadgetGetState); + XM_define_procedure(XmToggleButtonGadgetSetState, gxm_XmToggleButtonGadgetSetState_w, 3, 0, 0, H_XmToggleButtonGadgetSetState); + XM_define_procedure(XmCreateToggleButtonGadget, gxm_XmCreateToggleButtonGadget_w, 3, 1, 0, H_XmCreateToggleButtonGadget); + XM_define_procedure(XmToggleButtonGetState, gxm_XmToggleButtonGetState_w, 1, 0, 0, H_XmToggleButtonGetState); + XM_define_procedure(XmToggleButtonSetState, gxm_XmToggleButtonSetState_w, 3, 0, 0, H_XmToggleButtonSetState); + XM_define_procedure(XmCreateToggleButton, gxm_XmCreateToggleButton_w, 3, 1, 0, H_XmCreateToggleButton); + XM_define_procedure(XmCreateLabelGadget, gxm_XmCreateLabelGadget_w, 3, 1, 0, H_XmCreateLabelGadget); + XM_define_procedure(XmCreateLabel, gxm_XmCreateLabel_w, 3, 1, 0, H_XmCreateLabel); + XM_define_procedure(XmIsMotifWMRunning, gxm_XmIsMotifWMRunning_w, 1, 0, 0, H_XmIsMotifWMRunning); + XM_define_procedure(XmListAddItem, gxm_XmListAddItem_w, 3, 0, 0, H_XmListAddItem); + XM_define_procedure(XmListAddItems, gxm_XmListAddItems_w, 4, 0, 0, H_XmListAddItems); + XM_define_procedure(XmListAddItemsUnselected, gxm_XmListAddItemsUnselected_w, 4, 0, 0, H_XmListAddItemsUnselected); + XM_define_procedure(XmListAddItemUnselected, gxm_XmListAddItemUnselected_w, 3, 0, 0, H_XmListAddItemUnselected); + XM_define_procedure(XmListDeleteItem, gxm_XmListDeleteItem_w, 2, 0, 0, H_XmListDeleteItem); + XM_define_procedure(XmListDeleteItems, gxm_XmListDeleteItems_w, 2, 1, 0, H_XmListDeleteItems); + XM_define_procedure(XmListDeletePositions, gxm_XmListDeletePositions_w, 2, 1, 0, H_XmListDeletePositions); + XM_define_procedure(XmListDeletePos, gxm_XmListDeletePos_w, 2, 0, 0, H_XmListDeletePos); + XM_define_procedure(XmListDeleteItemsPos, gxm_XmListDeleteItemsPos_w, 3, 0, 0, H_XmListDeleteItemsPos); + XM_define_procedure(XmListDeleteAllItems, gxm_XmListDeleteAllItems_w, 1, 0, 0, H_XmListDeleteAllItems); + XM_define_procedure(XmListReplaceItems, gxm_XmListReplaceItems_w, 4, 0, 0, H_XmListReplaceItems); + XM_define_procedure(XmListReplaceItemsPos, gxm_XmListReplaceItemsPos_w, 4, 0, 0, H_XmListReplaceItemsPos); + XM_define_procedure(XmListReplaceItemsUnselected, gxm_XmListReplaceItemsUnselected_w, 4, 0, 0, H_XmListReplaceItemsUnselected); + XM_define_procedure(XmListReplaceItemsPosUnselected, gxm_XmListReplaceItemsPosUnselected_w, 4, 0, 0, H_XmListReplaceItemsPosUnselected); + XM_define_procedure(XmListReplacePositions, gxm_XmListReplacePositions_w, 4, 0, 0, H_XmListReplacePositions); + XM_define_procedure(XmListSelectItem, gxm_XmListSelectItem_w, 3, 0, 0, H_XmListSelectItem); + XM_define_procedure(XmListSelectPos, gxm_XmListSelectPos_w, 3, 0, 0, H_XmListSelectPos); + XM_define_procedure(XmListDeselectItem, gxm_XmListDeselectItem_w, 2, 0, 0, H_XmListDeselectItem); + XM_define_procedure(XmListDeselectPos, gxm_XmListDeselectPos_w, 2, 0, 0, H_XmListDeselectPos); + XM_define_procedure(XmListDeselectAllItems, gxm_XmListDeselectAllItems_w, 1, 0, 0, H_XmListDeselectAllItems); + XM_define_procedure(XmListSetPos, gxm_XmListSetPos_w, 2, 0, 0, H_XmListSetPos); + XM_define_procedure(XmListSetBottomPos, gxm_XmListSetBottomPos_w, 2, 0, 0, H_XmListSetBottomPos); + XM_define_procedure(XmListSetItem, gxm_XmListSetItem_w, 2, 0, 0, H_XmListSetItem); + XM_define_procedure(XmListSetBottomItem, gxm_XmListSetBottomItem_w, 2, 0, 0, H_XmListSetBottomItem); + XM_define_procedure(XmListSetAddMode, gxm_XmListSetAddMode_w, 2, 0, 0, H_XmListSetAddMode); + XM_define_procedure(XmListItemExists, gxm_XmListItemExists_w, 2, 0, 0, H_XmListItemExists); + XM_define_procedure(XmListItemPos, gxm_XmListItemPos_w, 2, 0, 0, H_XmListItemPos); + XM_define_procedure(XmListGetKbdItemPos, gxm_XmListGetKbdItemPos_w, 1, 0, 0, H_XmListGetKbdItemPos); + XM_define_procedure(XmListSetKbdItemPos, gxm_XmListSetKbdItemPos_w, 2, 0, 0, H_XmListSetKbdItemPos); + XM_define_procedure(XmListYToPos, gxm_XmListYToPos_w, 2, 0, 0, H_XmListYToPos); + XM_define_procedure(XmListPosToBounds, gxm_XmListPosToBounds_w, 2, 0, 0, H_XmListPosToBounds); + XM_define_procedure(XmListGetMatchPos, gxm_XmListGetMatchPos_w, 2, 0, 0, H_XmListGetMatchPos); + XM_define_procedure(XmListSetHorizPos, gxm_XmListSetHorizPos_w, 2, 0, 0, H_XmListSetHorizPos); + XM_define_procedure(XmListUpdateSelectedList, gxm_XmListUpdateSelectedList_w, 1, 0, 0, H_XmListUpdateSelectedList); + XM_define_procedure(XmListPosSelected, gxm_XmListPosSelected_w, 2, 0, 0, H_XmListPosSelected); + XM_define_procedure(XmCreateList, gxm_XmCreateList_w, 3, 1, 0, H_XmCreateList); + XM_define_procedure(XmCreateScrolledList, gxm_XmCreateScrolledList_w, 3, 1, 0, H_XmCreateScrolledList); + XM_define_procedure(XmTranslateKey, gxm_XmTranslateKey_w, 3, 0, 0, H_XmTranslateKey); + XM_define_procedure(XmCreateMainWindow, gxm_XmCreateMainWindow_w, 3, 1, 0, H_XmCreateMainWindow); + XM_define_procedure(XmInstallImage, gxm_XmInstallImage_w, 2, 0, 0, H_XmInstallImage); + XM_define_procedure(XmUninstallImage, gxm_XmUninstallImage_w, 1, 0, 0, H_XmUninstallImage); + XM_define_procedure(XmGetPixmap, gxm_XmGetPixmap_w, 4, 0, 0, H_XmGetPixmap); + XM_define_procedure(XmGetPixmapByDepth, gxm_XmGetPixmapByDepth_w, 5, 0, 0, H_XmGetPixmapByDepth); + XM_define_procedure(XmDestroyPixmap, gxm_XmDestroyPixmap_w, 2, 0, 0, H_XmDestroyPixmap); + XM_define_procedure(XmUpdateDisplay, gxm_XmUpdateDisplay_w, 1, 0, 0, H_XmUpdateDisplay); + XM_define_procedure(XmWidgetGetBaselines, gxm_XmWidgetGetBaselines_w, 1, 0, 0, H_XmWidgetGetBaselines); + XM_define_procedure(XmRegisterSegmentEncoding, gxm_XmRegisterSegmentEncoding_w, 2, 0, 0, H_XmRegisterSegmentEncoding); + XM_define_procedure(XmMapSegmentEncoding, gxm_XmMapSegmentEncoding_w, 1, 0, 0, H_XmMapSegmentEncoding); + XM_define_procedure(XmCvtCTToXmString, gxm_XmCvtCTToXmString_w, 1, 0, 0, H_XmCvtCTToXmString); + XM_define_procedure(XmCvtXmStringToCT, gxm_XmCvtXmStringToCT_w, 1, 0, 0, H_XmCvtXmStringToCT); + XM_define_procedure(XmConvertUnits, gxm_XmConvertUnits_w, 5, 0, 0, H_XmConvertUnits); + XM_define_procedure(XmCreateSimpleMenuBar, gxm_XmCreateSimpleMenuBar_w, 3, 1, 0, H_XmCreateSimpleMenuBar); + XM_define_procedure(XmCreateSimplePopupMenu, gxm_XmCreateSimplePopupMenu_w, 3, 1, 0, H_XmCreateSimplePopupMenu); + XM_define_procedure(XmCreateSimplePulldownMenu, gxm_XmCreateSimplePulldownMenu_w, 3, 1, 0, H_XmCreateSimplePulldownMenu); + XM_define_procedure(XmCreateSimpleOptionMenu, gxm_XmCreateSimpleOptionMenu_w, 3, 1, 0, H_XmCreateSimpleOptionMenu); + XM_define_procedure(XmCreateSimpleRadioBox, gxm_XmCreateSimpleRadioBox_w, 3, 1, 0, H_XmCreateSimpleRadioBox); + XM_define_procedure(XmCreateSimpleCheckBox, gxm_XmCreateSimpleCheckBox_w, 3, 1, 0, H_XmCreateSimpleCheckBox); + XM_define_procedure(XmVaCreateSimpleMenuBar, gxm_XmVaCreateSimpleMenuBar_w, 3, 0, 0, H_XmVaCreateSimpleMenuBar); + XM_define_procedure(XmVaCreateSimplePopupMenu, gxm_XmVaCreateSimplePopupMenu_w, 4, 0, 0, H_XmVaCreateSimplePopupMenu); + XM_define_procedure(XmVaCreateSimplePulldownMenu, gxm_XmVaCreateSimplePulldownMenu_w, 5, 0, 0, H_XmVaCreateSimplePulldownMenu); + XM_define_procedure(XmVaCreateSimpleOptionMenu, gxm_XmVaCreateSimpleOptionMenu_w, 7, 0, 0, H_XmVaCreateSimpleOptionMenu); + XM_define_procedure(XmVaCreateSimpleRadioBox, gxm_XmVaCreateSimpleRadioBox_w, 5, 0, 0, H_XmVaCreateSimpleRadioBox); + XM_define_procedure(XmVaCreateSimpleCheckBox, gxm_XmVaCreateSimpleCheckBox_w, 4, 0, 0, H_XmVaCreateSimpleCheckBox); + XM_define_procedure(XmTrackingEvent, gxm_XmTrackingEvent_w, 3, 0, 0, H_XmTrackingEvent); + XM_define_procedure(XmSetColorCalculation, gxm_XmSetColorCalculation_w, 1, 0, 0, H_XmSetColorCalculation); + XM_define_procedure(XmGetColorCalculation, gxm_XmGetColorCalculation_w, 0, 0, 0, H_XmGetColorCalculation); + XM_define_procedure(XmGetColors, gxm_XmGetColors_w, 3, 0, 0, H_XmGetColors); + XM_define_procedure(XmChangeColor, gxm_XmChangeColor_w, 2, 0, 0, H_XmChangeColor); + XM_define_procedure(XmStringCreate, gxm_XmStringCreate_w, 2, 0, 0, H_XmStringCreate); + XM_define_procedure(XmStringCreateLocalized, gxm_XmStringCreateLocalized_w, 1, 0, 0, H_XmStringCreateLocalized); + XM_define_procedure(XmStringDirectionCreate, gxm_XmStringDirectionCreate_w, 1, 0, 0, H_XmStringDirectionCreate); + XM_define_procedure(XmStringSeparatorCreate, gxm_XmStringSeparatorCreate_w, 0, 0, 0, H_XmStringSeparatorCreate); + XM_define_procedure(XmStringInitContext, gxm_XmStringInitContext_w, 1, 0, 0, H_XmStringInitContext); + XM_define_procedure(XmStringFreeContext, gxm_XmStringFreeContext_w, 1, 0, 0, H_XmStringFreeContext); + XM_define_procedure(XmCvtXmStringToByteStream, gxm_XmCvtXmStringToByteStream_w, 1, 0, 0, H_XmCvtXmStringToByteStream); + XM_define_procedure(XmCvtByteStreamToXmString, gxm_XmCvtByteStreamToXmString_w, 1, 0, 0, H_XmCvtByteStreamToXmString); + XM_define_procedure(XmStringByteStreamLength, gxm_XmStringByteStreamLength_w, 1, 0, 0, H_XmStringByteStreamLength); + XM_define_procedure(XmStringConcatAndFree, gxm_XmStringConcatAndFree_w, 2, 0, 0, H_XmStringConcatAndFree); + XM_define_procedure(XmStringIsVoid, gxm_XmStringIsVoid_w, 1, 0, 0, H_XmStringIsVoid); + XM_define_procedure(XmStringPeekNextTriple, gxm_XmStringPeekNextTriple_w, 1, 0, 0, H_XmStringPeekNextTriple); + XM_define_procedure(XmStringGetNextTriple, gxm_XmStringGetNextTriple_w, 1, 0, 0, H_XmStringGetNextTriple); + XM_define_procedure(XmStringComponentCreate, gxm_XmStringComponentCreate_w, 3, 0, 0, H_XmStringComponentCreate); + XM_define_procedure(XmStringUnparse, gxm_XmStringUnparse_w, 7, 0, 0, H_XmStringUnparse); + XM_define_procedure(XmStringParseText, gxm_XmStringParseText_w, 7, 0, 0, H_XmStringParseText); + XM_define_procedure(XmStringToXmStringTable, gxm_XmStringToXmStringTable_w, 2, 0, 0, H_XmStringToXmStringTable); + XM_define_procedure(XmStringTableToXmString, gxm_XmStringTableToXmString_w, 3, 0, 0, H_XmStringTableToXmString); + XM_define_procedure(XmStringTableUnparse, gxm_XmStringTableUnparse_w, 8, 0, 0, H_XmStringTableUnparse); + XM_define_procedure(XmStringTableParseStringArray, gxm_XmStringTableParseStringArray_w, 7, 0, 0, H_XmStringTableParseStringArray); + XM_define_procedure(XmDirectionToStringDirection, gxm_XmDirectionToStringDirection_w, 1, 0, 0, H_XmDirectionToStringDirection); + XM_define_procedure(XmStringDirectionToDirection, gxm_XmStringDirectionToDirection_w, 1, 0, 0, H_XmStringDirectionToDirection); + XM_define_procedure(XmStringGenerate, gxm_XmStringGenerate_w, 4, 0, 0, H_XmStringGenerate); + XM_define_procedure(XmStringPutRendition, gxm_XmStringPutRendition_w, 2, 0, 0, H_XmStringPutRendition); + XM_define_procedure(XmParseMappingCreate, gxm_XmParseMappingCreate_w, 1, 1, 0, H_XmParseMappingCreate); + XM_define_procedure(XmParseMappingSetValues, gxm_XmParseMappingSetValues_w, 2, 1, 0, H_XmParseMappingSetValues); + XM_define_procedure(XmParseMappingGetValues, gxm_XmParseMappingGetValues_w, 2, 1, 0, H_XmParseMappingGetValues); + XM_define_procedure(XmParseMappingFree, gxm_XmParseMappingFree_w, 1, 0, 0, H_XmParseMappingFree); + XM_define_procedure(XmParseTableFree, gxm_XmParseTableFree_w, 1, 1, 0, H_XmParseTableFree); + XM_define_procedure(XmStringTableProposeTablist, gxm_XmStringTableProposeTablist_w, 5, 0, 0, H_XmStringTableProposeTablist); + XM_define_procedure(XmTabSetValue, gxm_XmTabSetValue_w, 2, 0, 0, H_XmTabSetValue); + XM_define_procedure(XmTabGetValues, gxm_XmTabGetValues_w, 1, 0, 0, H_XmTabGetValues); + XM_define_procedure(XmTabFree, gxm_XmTabFree_w, 1, 0, 0, H_XmTabFree); + XM_define_procedure(XmTabListFree, gxm_XmTabListFree_w, 1, 0, 0, H_XmTabListFree); + XM_define_procedure(XmTabCreate, gxm_XmTabCreate_w, 5, 0, 0, H_XmTabCreate); + XM_define_procedure(XmTabListTabCount, gxm_XmTabListTabCount_w, 1, 0, 0, H_XmTabListTabCount); + XM_define_procedure(XmTabListRemoveTabs, gxm_XmTabListRemoveTabs_w, 2, 1, 0, H_XmTabListRemoveTabs); + XM_define_procedure(XmTabListReplacePositions, gxm_XmTabListReplacePositions_w, 3, 1, 0, H_XmTabListReplacePositions); + XM_define_procedure(XmTabListGetTab, gxm_XmTabListGetTab_w, 2, 0, 0, H_XmTabListGetTab); + XM_define_procedure(XmTabListCopy, gxm_XmTabListCopy_w, 3, 0, 0, H_XmTabListCopy); + XM_define_procedure(XmTabListInsertTabs, gxm_XmTabListInsertTabs_w, 4, 0, 0, H_XmTabListInsertTabs); + XM_define_procedure(XmRenderTableCvtFromProp, gxm_XmRenderTableCvtFromProp_w, 3, 0, 0, H_XmRenderTableCvtFromProp); + XM_define_procedure(XmRenderTableCvtToProp, gxm_XmRenderTableCvtToProp_w, 2, 0, 0, H_XmRenderTableCvtToProp); + XM_define_procedure(XmRenditionUpdate, gxm_XmRenditionUpdate_w, 2, 1, 0, H_XmRenditionUpdate); + XM_define_procedure(XmRenditionRetrieve, gxm_XmRenditionRetrieve_w, 2, 1, 0, H_XmRenditionRetrieve); + XM_define_procedure(XmRenditionFree, gxm_XmRenditionFree_w, 1, 0, 0, H_XmRenditionFree); + XM_define_procedure(XmRenditionCreate, gxm_XmRenditionCreate_w, 3, 1, 0, H_XmRenditionCreate); + XM_define_procedure(XmRenderTableGetRenditions, gxm_XmRenderTableGetRenditions_w, 0, 3, 0, H_XmRenderTableGetRenditions); + XM_define_procedure(XmRenderTableGetRendition, gxm_XmRenderTableGetRendition_w, 2, 0, 0, H_XmRenderTableGetRendition); + XM_define_procedure(XmRenderTableGetTags, gxm_XmRenderTableGetTags_w, 1, 0, 0, H_XmRenderTableGetTags); + XM_define_procedure(XmRenderTableFree, gxm_XmRenderTableFree_w, 1, 0, 0, H_XmRenderTableFree); + XM_define_procedure(XmRenderTableCopy, gxm_XmRenderTableCopy_w, 0, 3, 0, H_XmRenderTableCopy); + XM_define_procedure(XmRenderTableRemoveRenditions, gxm_XmRenderTableRemoveRenditions_w, 0, 3, 0, H_XmRenderTableRemoveRenditions); + XM_define_procedure(XmRenderTableAddRenditions, gxm_XmRenderTableAddRenditions_w, 4, 0, 0, H_XmRenderTableAddRenditions); + XM_define_procedure(XmStringConcat, gxm_XmStringConcat_w, 2, 0, 0, H_XmStringConcat); + XM_define_procedure(XmStringCopy, gxm_XmStringCopy_w, 1, 0, 0, H_XmStringCopy); + XM_define_procedure(XmStringCompare, gxm_XmStringCompare_w, 2, 0, 0, H_XmStringCompare); + XM_define_procedure(XmStringEmpty, gxm_XmStringEmpty_w, 1, 0, 0, H_XmStringEmpty); + XM_define_procedure(XmStringHasSubstring, gxm_XmStringHasSubstring_w, 2, 0, 0, H_XmStringHasSubstring); + XM_define_procedure(XmStringFree, gxm_XmStringFree_w, 1, 0, 0, H_XmStringFree); + XM_define_procedure(XmStringBaseline, gxm_XmStringBaseline_w, 2, 0, 0, H_XmStringBaseline); + XM_define_procedure(XmStringWidth, gxm_XmStringWidth_w, 2, 0, 0, H_XmStringWidth); + XM_define_procedure(XmStringHeight, gxm_XmStringHeight_w, 2, 0, 0, H_XmStringHeight); + XM_define_procedure(XmStringExtent, gxm_XmStringExtent_w, 2, 0, 0, H_XmStringExtent); + XM_define_procedure(XmStringLineCount, gxm_XmStringLineCount_w, 1, 0, 0, H_XmStringLineCount); + XM_define_procedure(XmStringDraw, gxm_XmStringDraw_w, 0, 0, 1, H_XmStringDraw); + XM_define_procedure(XmStringDrawImage, gxm_XmStringDrawImage_w, 0, 0, 1, H_XmStringDrawImage); + XM_define_procedure(XmStringDrawUnderline, gxm_XmStringDrawUnderline_w, 0, 0, 1, H_XmStringDrawUnderline); + XM_define_procedure(XmGetDestination, gxm_XmGetDestination_w, 1, 0, 0, H_XmGetDestination); + XM_define_procedure(XmIsTraversable, gxm_XmIsTraversable_w, 1, 0, 0, H_XmIsTraversable); + XM_define_procedure(XmGetVisibility, gxm_XmGetVisibility_w, 1, 0, 0, H_XmGetVisibility); + XM_define_procedure(XmGetTabGroup, gxm_XmGetTabGroup_w, 1, 0, 0, H_XmGetTabGroup); + XM_define_procedure(XmGetFocusWidget, gxm_XmGetFocusWidget_w, 1, 0, 0, H_XmGetFocusWidget); + XM_define_procedure(XmProcessTraversal, gxm_XmProcessTraversal_w, 2, 0, 0, H_XmProcessTraversal); + XM_define_procedure(XmCreateMenuShell, gxm_XmCreateMenuShell_w, 3, 1, 0, H_XmCreateMenuShell); + + XM_define_procedure(XmIsMessageBox, gxm_XmIsMessageBox_w, 1, 0, 0, H_XmIsMessageBox); + XM_define_procedure(XmIsArrowButtonGadget, gxm_XmIsArrowButtonGadget_w, 1, 0, 0, H_XmIsArrowButtonGadget); + XM_define_procedure(XmIsArrowButton, gxm_XmIsArrowButton_w, 1, 0, 0, H_XmIsArrowButton); + XM_define_procedure(XmIsNotebook, gxm_XmIsNotebook_w, 1, 0, 0, H_XmIsNotebook); + XM_define_procedure(XmIsComboBox, gxm_XmIsComboBox_w, 1, 0, 0, H_XmIsComboBox); + XM_define_procedure(XmIsContainer, gxm_XmIsContainer_w, 1, 0, 0, H_XmIsContainer); + XM_define_procedure(XmIsGrabShell, gxm_XmIsGrabShell_w, 1, 0, 0, H_XmIsGrabShell); + XM_define_procedure(XmIsIconGadget, gxm_XmIsIconGadget_w, 1, 0, 0, H_XmIsIconGadget); + XM_define_procedure(XmIsIconHeader, gxm_XmIsIconHeader_w, 1, 0, 0, H_XmIsIconHeader); + XM_define_procedure(XmIsPanedWindow, gxm_XmIsPanedWindow_w, 1, 0, 0, H_XmIsPanedWindow); + XM_define_procedure(XmIsBulletinBoard, gxm_XmIsBulletinBoard_w, 1, 0, 0, H_XmIsBulletinBoard); + XM_define_procedure(XmIsPrimitive, gxm_XmIsPrimitive_w, 1, 0, 0, H_XmIsPrimitive); + XM_define_procedure(XmIsCascadeButtonGadget, gxm_XmIsCascadeButtonGadget_w, 1, 0, 0, H_XmIsCascadeButtonGadget); + XM_define_procedure(XmIsCascadeButton, gxm_XmIsCascadeButton_w, 1, 0, 0, H_XmIsCascadeButton); + XM_define_procedure(XmIsPushButtonGadget, gxm_XmIsPushButtonGadget_w, 1, 0, 0, H_XmIsPushButtonGadget); + XM_define_procedure(XmIsPushButton, gxm_XmIsPushButton_w, 1, 0, 0, H_XmIsPushButton); + XM_define_procedure(XmIsCommand, gxm_XmIsCommand_w, 1, 0, 0, H_XmIsCommand); + XM_define_procedure(XmIsRowColumn, gxm_XmIsRowColumn_w, 1, 0, 0, H_XmIsRowColumn); + XM_define_procedure(XmIsScale, gxm_XmIsScale_w, 1, 0, 0, H_XmIsScale); + XM_define_procedure(XmIsScreen, gxm_XmIsScreen_w, 1, 0, 0, H_XmIsScreen); + XM_define_procedure(XmIsScrollBar, gxm_XmIsScrollBar_w, 1, 0, 0, H_XmIsScrollBar); + XM_define_procedure(XmIsDialogShell, gxm_XmIsDialogShell_w, 1, 0, 0, H_XmIsDialogShell); + XM_define_procedure(XmIsScrolledWindow, gxm_XmIsScrolledWindow_w, 1, 0, 0, H_XmIsScrolledWindow); + XM_define_procedure(XmIsDisplay, gxm_XmIsDisplay_w, 1, 0, 0, H_XmIsDisplay); + XM_define_procedure(XmIsSelectionBox, gxm_XmIsSelectionBox_w, 1, 0, 0, H_XmIsSelectionBox); + XM_define_procedure(XmIsDragContext, gxm_XmIsDragContext_w, 1, 0, 0, H_XmIsDragContext); + XM_define_procedure(XmIsSeparatorGadget, gxm_XmIsSeparatorGadget_w, 1, 0, 0, H_XmIsSeparatorGadget); + XM_define_procedure(XmIsDragIconObjectClass, gxm_XmIsDragIconObjectClass_w, 1, 0, 0, H_XmIsDragIconObjectClass); + XM_define_procedure(XmIsSeparator, gxm_XmIsSeparator_w, 1, 0, 0, H_XmIsSeparator); + XM_define_procedure(XmIsDrawingArea, gxm_XmIsDrawingArea_w, 1, 0, 0, H_XmIsDrawingArea); + XM_define_procedure(XmIsDrawnButton, gxm_XmIsDrawnButton_w, 1, 0, 0, H_XmIsDrawnButton); + XM_define_procedure(XmIsDropSiteManager, gxm_XmIsDropSiteManager_w, 1, 0, 0, H_XmIsDropSiteManager); + XM_define_procedure(XmIsDropTransfer, gxm_XmIsDropTransfer_w, 1, 0, 0, H_XmIsDropTransfer); + XM_define_procedure(XmIsTextField, gxm_XmIsTextField_w, 1, 0, 0, H_XmIsTextField); + XM_define_procedure(XmIsFileSelectionBox, gxm_XmIsFileSelectionBox_w, 1, 0, 0, H_XmIsFileSelectionBox); + XM_define_procedure(XmIsText, gxm_XmIsText_w, 1, 0, 0, H_XmIsText); + XM_define_procedure(XmIsForm, gxm_XmIsForm_w, 1, 0, 0, H_XmIsForm); + XM_define_procedure(XmIsFrame, gxm_XmIsFrame_w, 1, 0, 0, H_XmIsFrame); + XM_define_procedure(XmIsGadget, gxm_XmIsGadget_w, 1, 0, 0, H_XmIsGadget); + XM_define_procedure(XmIsToggleButtonGadget, gxm_XmIsToggleButtonGadget_w, 1, 0, 0, H_XmIsToggleButtonGadget); + XM_define_procedure(XmIsToggleButton, gxm_XmIsToggleButton_w, 1, 0, 0, H_XmIsToggleButton); + XM_define_procedure(XmIsLabelGadget, gxm_XmIsLabelGadget_w, 1, 0, 0, H_XmIsLabelGadget); + XM_define_procedure(XmIsLabel, gxm_XmIsLabel_w, 1, 0, 0, H_XmIsLabel); + XM_define_procedure(XmIsVendorShell, gxm_XmIsVendorShell_w, 1, 0, 0, H_XmIsVendorShell); + XM_define_procedure(XmIsList, gxm_XmIsList_w, 1, 0, 0, H_XmIsList); + XM_define_procedure(XmIsMainWindow, gxm_XmIsMainWindow_w, 1, 0, 0, H_XmIsMainWindow); + XM_define_procedure(XmIsManager, gxm_XmIsManager_w, 1, 0, 0, H_XmIsManager); + XM_define_procedure(XmIsMenuShell, gxm_XmIsMenuShell_w, 1, 0, 0, H_XmIsMenuShell); + XM_define_procedure(XmListGetSelectedPos, gxm_XmListGetSelectedPos_w, 1, 0, 0, H_XmListGetSelectedPos); + + XM_define_procedure(XpmCreatePixmapFromData, gxm_XpmCreatePixmapFromData_w, 4, 0, 0, NULL); + XM_define_procedure(XpmCreateDataFromPixmap, gxm_XpmCreateDataFromPixmap_w, 4, 0, 0, NULL); + XM_define_procedure(XpmReadFileToPixmap, gxm_XpmReadFileToPixmap_w, 4, 0, 0, NULL); + XM_define_procedure(XpmReadFileToXpmImage, gxm_XpmReadFileToXpmImage_w, 1, 0, 0, NULL); + XM_define_procedure(XpmGetErrorString, gxm_XpmGetErrorString_w, 1, 0, 0, H_XpmGetErrorString); + XM_define_procedure(XpmReadPixmapFile, gxm_XpmReadFileToPixmap_w, 4, 0, 0, NULL); + XM_define_procedure(XpmWriteFileFromPixmap, gxm_XpmWriteFileFromPixmap_w, 5, 0, 0, NULL); + XM_define_procedure(XpmWritePixmapFile, gxm_XpmWriteFileFromPixmap_w, 5, 0, 0, NULL); + XM_define_procedure(XpmCreatePixmapFromXpmImage, gxm_XpmCreatePixmapFromXpmImage_w, 4, 0, 0, NULL); + XM_define_procedure(XpmCreateXpmImageFromPixmap, gxm_XpmCreateXpmImageFromPixmap_w, 4, 0, 0, NULL); + + XM_define_procedure(XGetPixel, gxm_XGetPixel_w, 3, 0, 0, H_XGetPixel); + XM_define_procedure(XDestroyImage, gxm_XDestroyImage_w, 1, 0, 0, H_XDestroyImage); + XM_define_procedure(XPutPixel, gxm_XPutPixel_w, 4, 0, 0, H_XPutPixel); + XM_define_procedure(XSubImage, gxm_XSubImage_w, 5, 0, 0, H_XSubImage); + XM_define_procedure(XAddPixel, gxm_XAddPixel_w, 2, 0, 0, H_XAddPixel); + + XM_define_procedure(XtAppContext?, g_is_XtAppContext_w, 1, 0, 0, PROC_TRUE " if arg is a XtAppContext"); + XM_define_procedure(XtRequestId?, g_is_XtRequestId_w, 1, 0, 0, PROC_TRUE " if arg is a XtRequestId"); + XM_define_procedure(XtWorkProcId?, g_is_XtWorkProcId_w, 1, 0, 0, PROC_TRUE " if arg is a XtWorkProcId"); + XM_define_procedure(XtInputId?, g_is_XtInputId_w, 1, 0, 0, PROC_TRUE " if arg is a XtInputId"); + XM_define_procedure(XtIntervalId?, g_is_XtIntervalId_w, 1, 0, 0, PROC_TRUE " if arg is a XtIntervalId"); + XM_define_procedure(Screen?, g_is_Screen_w, 1, 0, 0, PROC_TRUE " if arg is a Screen"); + XM_define_procedure(XEvent?, g_is_XEvent_w, 1, 0, 0, PROC_TRUE " if arg is a XEvent"); + XM_define_procedure(XRectangle?, g_is_XRectangle_w, 1, 0, 0, PROC_TRUE " if arg is a XRectangle"); + XM_define_procedure(XArc?, g_is_XArc_w, 1, 0, 0, PROC_TRUE " if arg is a XArc"); + XM_define_procedure(XPoint?, g_is_XPoint_w, 1, 0, 0, PROC_TRUE " if arg is a XPoint"); + XM_define_procedure(XSegment?, g_is_XSegment_w, 1, 0, 0, PROC_TRUE " if arg is a XSegment"); + XM_define_procedure(XColor?, g_is_XColor_w, 1, 0, 0, PROC_TRUE " if arg is a XColor"); + XM_define_procedure(Atom?, g_is_Atom_w, 1, 0, 0, PROC_TRUE " if arg is an Atom"); + XM_define_procedure(Colormap?, g_is_Colormap_w, 1, 0, 0, PROC_TRUE " if arg is a Colormap"); + XM_define_procedure(XModifierKeymap?, g_is_XModifierKeymap_w, 1, 0, 0, PROC_TRUE " if arg is a XModifierKeymap"); + XM_define_procedure(Depth?, g_is_Depth_w, 1, 0, 0, PROC_TRUE " if arg is a Depth"); + XM_define_procedure(Display?, g_is_Display_w, 1, 0, 0, PROC_TRUE " if arg is a Display"); + XM_define_procedure(Drawable?, g_is_Window_w, 1, 0, 0, PROC_TRUE " if arg is a Drawable"); + XM_define_procedure(Font?, g_is_Font_w, 1, 0, 0, PROC_TRUE " if arg is a Font"); + XM_define_procedure(GC?, g_is_GC_w, 1, 0, 0, PROC_TRUE " if arg is a GC"); + XM_define_procedure(KeySym?, g_is_KeySym_w, 1, 0, 0, PROC_TRUE " if arg is a KeySym"); + XM_define_procedure(Pixel?, g_is_Pixel_w, 1, 0, 0, PROC_TRUE " if arg is a Pixel"); + XM_define_procedure(Pixmap?, g_is_Pixmap_w, 1, 0, 0, PROC_TRUE " if arg is a Pixmap"); + XM_define_procedure(Region?, g_is_Region_w, 1, 0, 0, PROC_TRUE " if arg is a Region"); + XM_define_procedure(Time?, g_is_Time_w, 1, 0, 0, PROC_TRUE " if arg is a Time"); + XM_define_procedure(Visual?, g_is_Visual_w, 1, 0, 0, PROC_TRUE " if arg is a Visual"); + XM_define_procedure(Window?, g_is_Window_w, 1, 0, 0, PROC_TRUE " if arg is a Window"); + XM_define_procedure(Widget?, g_is_Widget_w, 1, 0, 0, PROC_TRUE " if arg is a Widget"); + XM_define_procedure(XmStringContext?, g_is_XmStringContext_w, 1, 0, 0, PROC_TRUE " if arg is a XmStringContext"); + XM_define_procedure(XFontProp?, g_is_XFontProp_w, 1, 0, 0, PROC_TRUE " if arg is a XFontProp"); + XM_define_procedure(XFontSet?, g_is_XFontSet_w, 1, 0, 0, PROC_TRUE " if arg is a XFontSet"); + XM_define_procedure(XFontStruct?, g_is_XFontStruct_w, 1, 0, 0, PROC_TRUE " if arg is a XFontStruct"); + XM_define_procedure(XGCValues?, g_is_XGCValues_w, 1, 0, 0, PROC_TRUE " if arg is a XGCValues"); + XM_define_procedure(XImage?, g_is_XImage_w, 1, 0, 0, PROC_TRUE " if arg is a XImage"); + XM_define_procedure(XVisualInfo?, g_is_XVisualInfo_w, 1, 0, 0, PROC_TRUE " if arg is a XVisualInfo"); + XM_define_procedure(XWMHints?, g_is_XWMHints_w, 1, 0, 0, PROC_TRUE " if arg is a XWMHints"); + XM_define_procedure(XWindowAttributes?, g_is_XWindowAttributes_w, 1, 0, 0, PROC_TRUE " if arg is a XWindowAttributes"); + XM_define_procedure(XWindowChanges?, g_is_XWindowChanges_w, 1, 0, 0, PROC_TRUE " if arg is a XWindowChanges"); + XM_define_procedure(KeyCode?, g_is_KeyCode_w, 1, 0, 0, PROC_TRUE " if arg is a KeyCode"); + XM_define_procedure(XContext?, g_is_XContext_w, 1, 0, 0, PROC_TRUE " if arg is a XContext"); + XM_define_procedure(XCharStruct?, g_is_XCharStruct_w, 1, 0, 0, PROC_TRUE " if arg is a XCharStruct"); + XM_define_procedure(XTextItem?, g_is_XTextItem_w, 1, 0, 0, PROC_TRUE " if arg is a XTextItem"); + XM_define_procedure(XStandardColormap?, g_is_XStandardColormap_w, 1, 0, 0, PROC_TRUE " if arg is a XStandardColormap"); + XM_define_procedure(Cursor?, g_is_Cursor_w, 1, 0, 0, PROC_TRUE " if arg is a Cursor"); + XM_define_procedure(WidgetClass?, g_is_WidgetClass_w, 1, 0, 0, PROC_TRUE " if arg is a WidgetClass"); + XM_define_procedure(XmString?, g_is_XmString_w, 1, 0, 0, PROC_TRUE " if arg is a XmString"); + XM_define_procedure(XmToggleButton?, gxm_XmIsToggleButton_w, 1, 0, 0, H_XmIsToggleButton); + XM_define_procedure(XmDrawingArea?, gxm_XmIsDrawingArea_w, 1, 0, 0, H_XmIsDrawingArea); + XM_define_procedure(XmPushButton?, gxm_XmIsPushButton_w, 1, 0, 0, H_XmIsPushButton); + XM_define_procedure(XmTextField?, gxm_XmIsTextField_w, 1, 0, 0, H_XmIsTextField); + XM_define_procedure(XmFileSelectionBox?, gxm_XmIsFileSelectionBox_w, 1, 0, 0, H_XmIsFileSelectionBox); + XM_define_procedure(XmText?, gxm_XmIsText_w, 1, 0, 0, H_XmIsText); + XM_define_procedure(XmFrame?, gxm_XmIsFrame_w, 1, 0, 0, H_XmIsFrame); + XM_define_procedure(XmLabel?, gxm_XmIsLabel_w, 1, 0, 0, H_XmIsLabel); + XM_define_procedure(XmList?, gxm_XmIsList_w, 1, 0, 0, H_XmIsList); + XM_define_procedure(XmArrowButton?, gxm_XmIsArrowButton_w, 1, 0, 0, H_XmIsArrowButton); + XM_define_procedure(XmScrollBar?, gxm_XmIsScrollBar_w, 1, 0, 0, H_XmIsScrollBar); + XM_define_procedure(XmCommand?, gxm_XmIsCommand_w, 1, 0, 0, H_XmIsCommand); + XM_define_procedure(XmScale?, gxm_XmIsScale_w, 1, 0, 0, H_XmIsScale); + XM_define_procedure(XmRowColumn?, gxm_XmIsRowColumn_w, 1, 0, 0, H_XmIsRowColumn); + XM_define_procedure(XmTab?, g_is_XmTab_w, 1, 0, 0, PROC_TRUE " if arg is a Tab"); + XM_define_procedure(XmNotebook?, gxm_XmIsNotebook_w, 1, 0, 0, H_XmIsNotebook); + XM_define_procedure(XmComboBox?, gxm_XmIsComboBox_w, 1, 0, 0, H_XmIsComboBox); + XM_define_procedure(XmContainer?, gxm_XmIsContainer_w, 1, 0, 0, H_XmIsContainer); + XM_define_procedure(XmIconHeader?, gxm_XmIsIconHeader_w, 1, 0, 0, H_XmIsIconHeader); + XM_define_procedure(XmGrabShell?, gxm_XmIsGrabShell_w, 1, 0, 0, H_XmIsGrabShell); + XM_define_procedure(XmRendition?, g_is_XmRendition_w, 1, 0, 0, PROC_TRUE " if arg is a Rendition"); + XM_define_procedure(XmRenderTable?, g_is_XmRenderTable_w, 1, 0, 0, PROC_TRUE " if arg is a RenderTable"); + XM_define_procedure(XmIconGadget?, gxm_XmIsIconGadget_w, 1, 0, 0, H_XmIsIconGadget); + XM_define_procedure(XmTabList?, g_is_XmTabList_w, 1, 0, 0, PROC_TRUE " if arg is a TabList"); + XM_define_procedure(XmParseMapping?, g_is_XmParseMapping_w, 1, 0, 0, PROC_TRUE " if arg is a ParseMapping"); + XM_define_procedure(XmPanedWindow?, gxm_XmIsPanedWindow_w, 1, 0, 0, H_XmIsPanedWindow); + XM_define_procedure(XmScrolledWindow?, gxm_XmIsScrolledWindow_w, 1, 0, 0, H_XmIsScrolledWindow); + XM_define_procedure(XmCascadeButton?, gxm_XmIsCascadeButton_w, 1, 0, 0, H_XmIsCascadeButton); + XM_define_procedure(XmForm?, gxm_XmIsForm_w, 1, 0, 0, H_XmIsForm); + XM_define_procedure(XmBulletinBoard?, gxm_XmIsBulletinBoard_w, 1, 0, 0, H_XmIsBulletinBoard); + XM_define_procedure(XmScreen?, gxm_XmIsScreen_w, 1, 0, 0, H_XmIsScreen); + XM_define_procedure(XmDialogShell?, gxm_XmIsDialogShell_w, 1, 0, 0, H_XmIsDialogShell); + XM_define_procedure(XmDisplay?, gxm_XmIsDisplay_w, 1, 0, 0, H_XmIsDisplay); + XM_define_procedure(XmSelectionBox?, gxm_XmIsSelectionBox_w, 1, 0, 0, H_XmIsSelectionBox); + XM_define_procedure(XmDragContext?, gxm_XmIsDragContext_w, 1, 0, 0, H_XmIsDragContext); + XM_define_procedure(XmDragIconObjectClass?, gxm_XmIsDragIconObjectClass_w, 1, 0, 0, H_XmIsDragIconObjectClass); + XM_define_procedure(XmSeparator?, gxm_XmIsSeparator_w, 1, 0, 0, H_XmIsSeparator); + XM_define_procedure(XmDropSiteManager?, gxm_XmIsDropSiteManager_w, 1, 0, 0, H_XmIsDropSiteManager); + XM_define_procedure(XmDropTransfer?, gxm_XmIsDropTransfer_w, 1, 0, 0, H_XmIsDropTransfer); + XM_define_procedure(XmVendorShell?, gxm_XmIsVendorShell_w, 1, 0, 0, H_XmIsVendorShell); + XM_define_procedure(XmMainWindow?, gxm_XmIsMainWindow_w, 1, 0, 0, H_XmIsMainWindow); + XM_define_procedure(XmMessageBox?, gxm_XmIsMessageBox_w, 1, 0, 0, H_XmIsMessageBox); + XM_define_procedure(XmManager?, gxm_XmIsManager_w, 1, 0, 0, H_XmIsManager); + XM_define_procedure(XmMenuShell?, gxm_XmIsMenuShell_w, 1, 0, 0, H_XmIsMenuShell); + XM_define_procedure(XmLabelGadget?, gxm_XmIsLabelGadget_w, 1, 0, 0, H_XmIsLabelGadget); + XM_define_procedure(XmPushButtonGadget?, gxm_XmIsPushButtonGadget_w, 1, 0, 0, H_XmIsPushButtonGadget); + XM_define_procedure(XmSeparatorGadget?, gxm_XmIsSeparatorGadget_w, 1, 0, 0, H_XmIsSeparatorGadget); + XM_define_procedure(XmArrowButtonGadget?, gxm_XmIsArrowButtonGadget_w, 1, 0, 0, H_XmIsArrowButtonGadget); + XM_define_procedure(XmCascadeButtonGadget?, gxm_XmIsCascadeButtonGadget_w, 1, 0, 0, H_XmIsCascadeButtonGadget); + XM_define_procedure(XmToggleButtonGadget?, gxm_XmIsToggleButtonGadget_w, 1, 0, 0, H_XmIsToggleButtonGadget); + XM_define_procedure(XmDrawnButton?, gxm_XmIsDrawnButton_w, 1, 0, 0, H_XmIsDrawnButton); + XM_define_procedure(XmPrimitive?, gxm_XmIsPrimitive_w, 1, 0, 0, H_XmIsPrimitive); + XM_define_procedure(XmTextSource?, g_is_XmTextSource_w, 1, 0, 0, PROC_TRUE " if arg is a TextSource"); + + XM_define_procedure(XpmAttributes?, g_is_XpmAttributes_w, 1, 0, 0, PROC_TRUE " if arg is a XpmAttributes"); + XM_define_procedure(XpmImage?, g_is_XpmImage_w, 1, 0, 0, PROC_TRUE " if arg is a XpmImage"); + XM_define_procedure(XpmColorSymbol?, g_is_XpmColorSymbol_w, 1, 0, 0, PROC_TRUE " if arg is a XpmColorSymbol"); - XM_DEFINE_PROCEDURE(XpmAttributes?, XEN_XpmAttributes_p_w, 1, 0, 0, PROC_TRUE " if arg is a XpmAttributes"); - XM_DEFINE_PROCEDURE(XpmImage?, XEN_XpmImage_p_w, 1, 0, 0, PROC_TRUE " if arg is a XpmImage"); - XM_DEFINE_PROCEDURE(XpmColorSymbol?, XEN_XpmColorSymbol_p_w, 1, 0, 0, PROC_TRUE " if arg is a XpmColorSymbol"); - -#if HAVE_SCHEME && HAVE_MOTIF - XEN_DEFINE_PROCEDURE("->string", c_to_xen_string_w, 1, 0, 0, H_to_string); - XEN_DEFINE_PROCEDURE("->strings", c_to_xen_strings_w, 2, 0, 0, H_to_strings); - XEN_DEFINE_PROCEDURE("->ints", c_to_xen_ints_w, 2, 0, 0, H_to_ints); - XEN_DEFINE_PROCEDURE("->Atoms", c_to_xen_atoms_w, 2, 0, 0, H_to_Atoms); - XEN_DEFINE_PROCEDURE("->XRectangles", c_to_xen_xrectangles_w, 2, 0, 0, H_to_XRectangles); +#if HAVE_SCHEME + Xen_define_safe_procedure("->strings", c_to_xen_strings_w, 2, 0, 0, H_to_strings); + Xen_define_safe_procedure("->ints", c_to_xen_ints_w, 2, 0, 0, H_to_ints); + Xen_define_safe_procedure("->Atoms", c_to_xen_atoms_w, 2, 0, 0, H_to_Atoms); + Xen_define_safe_procedure("->XRectangles", c_to_xen_xrectangles_w, 2, 0, 0, H_to_XRectangles); #endif -#if MUS_WITH_EDITRES - XM_DEFINE_PROCEDURE(_XEditResCheckMessages, gxm_XEditResCheckMessages_w, 4, 0, 0, NULL); +#if WITH_EDITRES + XM_define_procedure(_XEditResCheckMessages, gxm_XEditResCheckMessages_w, 4, 0, 0, NULL); #endif #if HAVE_XSHAPEQUERYEXTENSION - XM_DEFINE_PROCEDURE(XShapeQueryExtension, gxm_XShapeQueryExtension_w, 1, 0, 0, H_XShapeQueryExtension); - XM_DEFINE_PROCEDURE(XShapeQueryVersion, gxm_XShapeQueryVersion_w, 1, 0, 0, H_XShapeQueryVersion); - XM_DEFINE_PROCEDURE(XShapeQueryExtents, gxm_XShapeQueryExtents_w, 2, 0, 0, H_XShapeQueryExtents); - XM_DEFINE_PROCEDURE(XShapeGetRectangles, gxm_XShapeGetRectangles_w, 3, 0, 0, H_XShapeGetRectangles); - XM_DEFINE_PROCEDURE(XShapeOffsetShape, gxm_XShapeOffsetShape_w, 5, 0, 0, H_XShapeOffsetShape); - XM_DEFINE_PROCEDURE(XShapeCombineRegion, gxm_XShapeCombineRegion_w, 7, 0, 0, H_XShapeCombineRegion); - XM_DEFINE_PROCEDURE(XShapeCombineMask, gxm_XShapeCombineMask_w, 7, 0, 0, H_XShapeCombineMask); - XM_DEFINE_PROCEDURE(XShapeCombineShape, gxm_XShapeCombineShape_w, 8, 0, 0, H_XShapeCombineShape); - XM_DEFINE_PROCEDURE(XShapeCombineRectangles, gxm_XShapeCombineRectangles_w, 9, 0, 0, H_XShapeCombineRectangles); + XM_define_procedure(XShapeQueryExtension, gxm_XShapeQueryExtension_w, 1, 0, 0, H_XShapeQueryExtension); + XM_define_procedure(XShapeQueryVersion, gxm_XShapeQueryVersion_w, 1, 0, 0, H_XShapeQueryVersion); + XM_define_procedure(XShapeQueryExtents, gxm_XShapeQueryExtents_w, 2, 0, 0, H_XShapeQueryExtents); + XM_define_procedure(XShapeGetRectangles, gxm_XShapeGetRectangles_w, 3, 0, 0, H_XShapeGetRectangles); + XM_define_procedure(XShapeOffsetShape, gxm_XShapeOffsetShape_w, 5, 0, 0, H_XShapeOffsetShape); + XM_define_procedure(XShapeCombineRegion, gxm_XShapeCombineRegion_w, 7, 0, 0, H_XShapeCombineRegion); + XM_define_procedure(XShapeCombineMask, gxm_XShapeCombineMask_w, 7, 0, 0, H_XShapeCombineMask); + XM_define_procedure(XShapeCombineShape, gxm_XShapeCombineShape_w, 8, 0, 0, H_XShapeCombineShape); + XM_define_procedure(XShapeCombineRectangles, gxm_XShapeCombineRectangles_w, 9, 0, 0, H_XShapeCombineRectangles); #endif } static void define_structs(void) { - #define XM_DEFINE_ACCESSOR(Name, Value, SetName, SetValue, A1, A2, A3, A4) \ - XEN_DEFINE_PROCEDURE_WITH_SETTER(XM_FIELD_PREFIX #Name XM_POSTFIX, Value, #Name " field accessor", XM_FIELD_PREFIX #SetName XM_POSTFIX, SetValue, A1, A2, A3, A4) - #define XM_DEFINE_READER(Name, Value, A1, A2, A3) XEN_DEFINE_PROCEDURE(XM_FIELD_PREFIX #Name XM_POSTFIX, Value, A1, A2, A3, #Name " field reader") - - XM_DEFINE_ACCESSOR(pixel, gxm_pixel_w, set_pixel, gxm_set_pixel_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(red, gxm_red_w, set_red, gxm_set_red_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(green, gxm_green_w, set_green, gxm_set_green_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(blue, gxm_blue_w, set_blue, gxm_set_blue_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(flags, gxm_flags_w, set_flags, gxm_set_flags_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(pad, gxm_pad_w, set_pad, gxm_set_pad_w, 1, 0, 2, 0); - XM_DEFINE_PROCEDURE(XColor, gxm_XColor_w, 0, 6, 0, H_XColor); - XM_DEFINE_ACCESSOR(x, gxm_x_w, set_x, gxm_set_x_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(y, gxm_y_w, set_y, gxm_set_y_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(width, gxm_width_w, set_width, gxm_set_width_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(height, gxm_height_w, set_height, gxm_set_height_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(angle1, gxm_angle1_w, set_angle1, gxm_set_angle1_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(angle2, gxm_angle2_w, set_angle2, gxm_set_angle2_w, 1, 0, 2, 0); - XM_DEFINE_PROCEDURE(XArc, gxm_XArc_w, 6, 0, 0, H_XArc); - XM_DEFINE_PROCEDURE(XWindowChanges, gxm_XWindowChanges_w, 7, 0, 0, H_XWindowChanges); - XM_DEFINE_PROCEDURE(XSetWindowAttributes, gxm_XSetWindowAttributes_w, 0, 0, 1, H_XSetWindowAttributes); - XM_DEFINE_PROCEDURE(XPoint, gxm_XPoint_w, 2, 0, 0, H_XPoint); - XM_DEFINE_ACCESSOR(x1, gxm_x1_w, set_x1, gxm_set_x1_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(y1, gxm_y1_w, set_y1, gxm_set_y1_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(x2, gxm_x2_w, set_x2, gxm_set_x2_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(y2, gxm_y2_w, set_y2, gxm_set_y2_w, 1, 0, 2, 0); - XM_DEFINE_PROCEDURE(XSegment, gxm_XSegment_w, 4, 0, 0, H_XSegment); - XM_DEFINE_PROCEDURE(XRectangle, gxm_XRectangle_w, 4, 0, 0, H_XRectangle); - XM_DEFINE_ACCESSOR(dashes, gxm_dashes_w, set_dashes, gxm_set_dashes_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(dash_offset, gxm_dash_offset_w, set_dash_offset, gxm_set_dash_offset_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(clip_mask, gxm_clip_mask_w, set_clip_mask, gxm_set_clip_mask_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(clip_y_origin, gxm_clip_y_origin_w, set_clip_y_origin, gxm_set_clip_y_origin_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(clip_x_origin, gxm_clip_x_origin_w, set_clip_x_origin, gxm_set_clip_x_origin_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(graphics_exposures, gxm_graphics_exposures_w, set_graphics_exposures, gxm_set_graphics_exposures_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(subwindow_mode, gxm_subwindow_mode_w, set_subwindow_mode, gxm_set_subwindow_mode_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(font, gxm_font_w, set_font, gxm_set_font_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(ts_y_origin, gxm_ts_y_origin_w, set_ts_y_origin, gxm_set_ts_y_origin_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(ts_x_origin, gxm_ts_x_origin_w, set_ts_x_origin, gxm_set_ts_x_origin_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(stipple, gxm_stipple_w, set_stipple, gxm_set_stipple_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(tile, gxm_tile_w, set_tile, gxm_set_tile_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(arc_mode, gxm_arc_mode_w, set_arc_mode, gxm_set_arc_mode_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(fill_rule, gxm_fill_rule_w, set_fill_rule, gxm_set_fill_rule_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(fill_style, gxm_fill_style_w, set_fill_style, gxm_set_fill_style_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(join_style, gxm_join_style_w, set_join_style, gxm_set_join_style_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(cap_style, gxm_cap_style_w, set_cap_style, gxm_set_cap_style_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(line_style, gxm_line_style_w, set_line_style, gxm_set_line_style_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(line_width, gxm_line_width_w, set_line_width, gxm_set_line_width_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(background, gxm_background_w, set_background, gxm_set_background_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(foreground, gxm_foreground_w, set_foreground, gxm_set_foreground_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(plane_mask, gxm_plane_mask_w, set_plane_mask, gxm_set_plane_mask_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(function, gxm_function_w, set_function, gxm_set_function_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(delta, gxm_delta_w, set_delta, gxm_set_delta_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(nchars, gxm_nchars_w, set_nchars, gxm_set_nchars_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(chars, gxm_chars_w, set_chars, gxm_set_chars_w, 1, 0, 2, 0); - XM_DEFINE_PROCEDURE(XTextItem, gxm_XTextItem_w, 4, 0, 0, H_XTextItem); - XM_DEFINE_ACCESSOR(name, gxm_name_w, set_name, gxm_set_name_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(depth, gxm_depth_w, set_depth, gxm_set_depth_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(visual, gxm_visual_w, set_visual, gxm_set_visual_w, 1, 0, 2, 0); - - XM_DEFINE_READER(mwidth, gxm_mwidth_w, 1, 0, 0); - XM_DEFINE_READER(mheight, gxm_mheight_w, 1, 0, 0); - XM_DEFINE_READER(ndepths, gxm_ndepths_w, 1, 0, 0); - XM_DEFINE_READER(depths, gxm_depths_w, 1, 0, 0); - XM_DEFINE_READER(root_depth, gxm_root_depth_w, 1, 0, 0); - XM_DEFINE_READER(root_visual, gxm_root_visual_w, 1, 0, 0); - XM_DEFINE_READER(default_gc, gxm_default_gc_w, 1, 0, 0); - XM_DEFINE_READER(cmap, gxm_cmap_w, 1, 0, 0); - XM_DEFINE_READER(white_pixel, gxm_white_pixel_w, 1, 0, 0); - XM_DEFINE_READER(black_pixel, gxm_black_pixel_w, 1, 0, 0); - XM_DEFINE_READER(max_maps, gxm_max_maps_w, 1, 0, 0); - XM_DEFINE_READER(min_maps, gxm_min_maps_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(backing_store, gxm_backing_store_w, set_backing_store, gxm_set_backing_store_w, 1, 0, 2, 0); - XM_DEFINE_READER(save_unders, gxm_save_unders_w, 1, 0, 0); - XM_DEFINE_READER(root_input_mask, gxm_root_input_mask_w, 1, 0, 0); - XM_DEFINE_READER(lbearing, gxm_lbearing_w, 1, 0, 0); - XM_DEFINE_READER(rbearing, gxm_rbearing_w, 1, 0, 0); - XM_DEFINE_READER(ascent, gxm_ascent_w, 1, 0, 0); - XM_DEFINE_READER(descent, gxm_descent_w, 1, 0, 0); - XM_DEFINE_READER(attributes, gxm_attributes_w, 1, 0, 0); - XM_DEFINE_READER(card32, gxm_card32_w, 1, 0, 0); - XM_DEFINE_READER(fid, gxm_fid_w, 1, 0, 0); - XM_DEFINE_READER(properties, gxm_properties_w, 1, 0, 0); - XM_DEFINE_READER(min_bounds, gxm_min_bounds_w, 1, 0, 0); - XM_DEFINE_READER(max_bounds, gxm_max_bounds_w, 1, 0, 0); - XM_DEFINE_READER(per_char, gxm_per_char_w, 1, 0, 0); - - XM_DEFINE_ACCESSOR(input, gxm_input_w, set_input, gxm_set_input_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(initial_state, gxm_initial_state_w, set_initial_state, gxm_set_initial_state_w, 1, 0, 2, 0); - - XM_DEFINE_READER(icon_pixmap, gxm_icon_pixmap_w, 1, 0, 0); - XM_DEFINE_READER(icon_window, gxm_icon_window_w, 1, 0, 0); - XM_DEFINE_READER(icon_x, gxm_icon_x_w, 1, 0, 0); - XM_DEFINE_READER(icon_y, gxm_icon_y_w, 1, 0, 0); - XM_DEFINE_READER(icon_mask, gxm_icon_mask_w, 1, 0, 0); - XM_DEFINE_READER(window_group, gxm_window_group_w, 1, 0, 0); - XM_DEFINE_READER(visualid, gxm_visualid_w, 1, 0, 0); - XM_DEFINE_READER(class, gxm_class_w, 1, 0, 0); - XM_DEFINE_READER(red_mask, gxm_red_mask_w, 1, 0, 0); - XM_DEFINE_READER(green_mask, gxm_green_mask_w, 1, 0, 0); - XM_DEFINE_READER(blue_mask, gxm_blue_mask_w, 1, 0, 0); - XM_DEFINE_READER(bits_per_rgb, gxm_bits_per_rgb_w, 1, 0, 0); - XM_DEFINE_READER(colormap_size, gxm_colormap_size_w, 1, 0, 0); - XM_DEFINE_READER(map_entries, gxm_map_entries_w, 1, 0, 0); - XM_DEFINE_READER(nvisuals, gxm_nvisuals_w, 1, 0, 0); - XM_DEFINE_READER(visuals, gxm_visuals_w, 1, 0, 0); - XM_DEFINE_READER(bits_per_pixel, gxm_bits_per_pixel_w, 1, 0, 0); - XM_DEFINE_READER(background_pixmap, gxm_background_pixmap_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(background_pixel, gxm_background_pixel_w, set_background_pixel, gxm_set_background_pixel_w, 1, 0, 2, 0); - XM_DEFINE_READER(border_pixmap, gxm_border_pixmap_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(border_pixel, gxm_border_pixel_w, set_border_pixel, gxm_set_border_pixel_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(bit_gravity, gxm_bit_gravity_w, set_bit_gravity, gxm_set_bit_gravity_w, 1, 0, 2, 0); - XM_DEFINE_READER(win_gravity, gxm_win_gravity_w, 1, 0, 0); - XM_DEFINE_READER(backing_planes, gxm_backing_planes_w, 1, 0, 0); - XM_DEFINE_READER(backing_pixel, gxm_backing_pixel_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(save_under, gxm_save_under_w, set_save_under, gxm_set_save_under_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(event_mask, gxm_event_mask_w, set_event_mask, gxm_set_event_mask_w, 1, 0, 2, 0); - XM_DEFINE_READER(do_not_propagate_mask, gxm_do_not_propagate_mask_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(cursor, gxm_cursor_w, set_cursor, gxm_set_cursor_w, 1, 0, 2, 0); - XM_DEFINE_READER(map_installed, gxm_map_installed_w, 1, 0, 0); - XM_DEFINE_READER(map_state, gxm_map_state_w, 1, 0, 0); - XM_DEFINE_READER(all_event_masks, gxm_all_event_masks_w, 1, 0, 0); - XM_DEFINE_READER(your_event_mask, gxm_your_event_mask_w, 1, 0, 0); - XM_DEFINE_READER(screen, gxm_screen_w, 1, 0, 0); - XM_DEFINE_READER(xoffset, gxm_xoffset_w, 1, 0, 0); - XM_DEFINE_READER(byte_order, gxm_byte_order_w, 1, 0, 0); - XM_DEFINE_READER(bitmap_unit, gxm_bitmap_unit_w, 1, 0, 0); - XM_DEFINE_READER(bitmap_bit_order, gxm_bitmap_bit_order_w, 1, 0, 0); - XM_DEFINE_READER(bitmap_pad, gxm_bitmap_pad_w, 1, 0, 0); - XM_DEFINE_READER(bytes_per_line, gxm_bytes_per_line_w, 1, 0, 0); - XM_DEFINE_READER(obdata, gxm_obdata_w, 1, 0, 0); - XM_DEFINE_READER(sibling, gxm_sibling_w, 1, 0, 0); - XM_DEFINE_READER(stack_mode, gxm_stack_mode_w, 1, 0, 0); + #define XM_define_accessor(Name, Value, SetName, SetValue, A1, A2, A3, A4) \ + Xen_define_dilambda(XM_FIELD_PREFIX #Name XM_POSTFIX, Value, #Name " field accessor", XM_FIELD_PREFIX #SetName XM_POSTFIX, SetValue, A1, A2, A3, A4) + #define XM_define_reader(Name, Value, A1, A2, A3) Xen_define_safe_procedure(XM_FIELD_PREFIX #Name XM_POSTFIX, Value, A1, A2, A3, #Name " field reader") + + XM_define_accessor(pixel, gxm_pixel_w, set_pixel, gxm_set_pixel_w, 1, 0, 2, 0); + XM_define_accessor(red, gxm_red_w, set_red, gxm_set_red_w, 1, 0, 2, 0); + XM_define_accessor(green, gxm_green_w, set_green, gxm_set_green_w, 1, 0, 2, 0); + XM_define_accessor(blue, gxm_blue_w, set_blue, gxm_set_blue_w, 1, 0, 2, 0); + XM_define_accessor(flags, gxm_flags_w, set_flags, gxm_set_flags_w, 1, 0, 2, 0); + XM_define_accessor(pad, gxm_pad_w, set_pad, gxm_set_pad_w, 1, 0, 2, 0); + XM_define_procedure(XColor, gxm_XColor_w, 0, 6, 0, H_XColor); + XM_define_accessor(x, gxm_x_w, set_x, gxm_set_x_w, 1, 0, 2, 0); + XM_define_accessor(y, gxm_y_w, set_y, gxm_set_y_w, 1, 0, 2, 0); + XM_define_accessor(width, gxm_width_w, set_width, gxm_set_width_w, 1, 0, 2, 0); + XM_define_accessor(height, gxm_height_w, set_height, gxm_set_height_w, 1, 0, 2, 0); + XM_define_accessor(angle1, gxm_angle1_w, set_angle1, gxm_set_angle1_w, 1, 0, 2, 0); + XM_define_accessor(angle2, gxm_angle2_w, set_angle2, gxm_set_angle2_w, 1, 0, 2, 0); + XM_define_procedure(XArc, gxm_XArc_w, 6, 0, 0, H_XArc); + XM_define_procedure(XWindowChanges, gxm_XWindowChanges_w, 7, 0, 0, H_XWindowChanges); + XM_define_procedure(XSetWindowAttributes, gxm_XSetWindowAttributes_w, 0, 0, 1, H_XSetWindowAttributes); + XM_define_procedure(XPoint, gxm_XPoint_w, 2, 0, 0, H_XPoint); + XM_define_accessor(x1, gxm_x1_w, set_x1, gxm_set_x1_w, 1, 0, 2, 0); + XM_define_accessor(y1, gxm_y1_w, set_y1, gxm_set_y1_w, 1, 0, 2, 0); + XM_define_accessor(x2, gxm_x2_w, set_x2, gxm_set_x2_w, 1, 0, 2, 0); + XM_define_accessor(y2, gxm_y2_w, set_y2, gxm_set_y2_w, 1, 0, 2, 0); + XM_define_procedure(XSegment, gxm_XSegment_w, 4, 0, 0, H_XSegment); + XM_define_procedure(XRectangle, gxm_XRectangle_w, 4, 0, 0, H_XRectangle); + XM_define_accessor(dashes, gxm_dashes_w, set_dashes, gxm_set_dashes_w, 1, 0, 2, 0); + XM_define_accessor(dash_offset, gxm_dash_offset_w, set_dash_offset, gxm_set_dash_offset_w, 1, 0, 2, 0); + XM_define_accessor(clip_mask, gxm_clip_mask_w, set_clip_mask, gxm_set_clip_mask_w, 1, 0, 2, 0); + XM_define_accessor(clip_y_origin, gxm_clip_y_origin_w, set_clip_y_origin, gxm_set_clip_y_origin_w, 1, 0, 2, 0); + XM_define_accessor(clip_x_origin, gxm_clip_x_origin_w, set_clip_x_origin, gxm_set_clip_x_origin_w, 1, 0, 2, 0); + XM_define_accessor(graphics_exposures, gxm_graphics_exposures_w, set_graphics_exposures, gxm_set_graphics_exposures_w, 1, 0, 2, 0); + XM_define_accessor(subwindow_mode, gxm_subwindow_mode_w, set_subwindow_mode, gxm_set_subwindow_mode_w, 1, 0, 2, 0); + XM_define_accessor(font, gxm_font_w, set_font, gxm_set_font_w, 1, 0, 2, 0); + XM_define_accessor(ts_y_origin, gxm_ts_y_origin_w, set_ts_y_origin, gxm_set_ts_y_origin_w, 1, 0, 2, 0); + XM_define_accessor(ts_x_origin, gxm_ts_x_origin_w, set_ts_x_origin, gxm_set_ts_x_origin_w, 1, 0, 2, 0); + XM_define_accessor(stipple, gxm_stipple_w, set_stipple, gxm_set_stipple_w, 1, 0, 2, 0); + XM_define_accessor(tile, gxm_tile_w, set_tile, gxm_set_tile_w, 1, 0, 2, 0); + XM_define_accessor(arc_mode, gxm_arc_mode_w, set_arc_mode, gxm_set_arc_mode_w, 1, 0, 2, 0); + XM_define_accessor(fill_rule, gxm_fill_rule_w, set_fill_rule, gxm_set_fill_rule_w, 1, 0, 2, 0); + XM_define_accessor(fill_style, gxm_fill_style_w, set_fill_style, gxm_set_fill_style_w, 1, 0, 2, 0); + XM_define_accessor(join_style, gxm_join_style_w, set_join_style, gxm_set_join_style_w, 1, 0, 2, 0); + XM_define_accessor(cap_style, gxm_cap_style_w, set_cap_style, gxm_set_cap_style_w, 1, 0, 2, 0); + XM_define_accessor(line_style, gxm_line_style_w, set_line_style, gxm_set_line_style_w, 1, 0, 2, 0); + XM_define_accessor(line_width, gxm_line_width_w, set_line_width, gxm_set_line_width_w, 1, 0, 2, 0); + XM_define_accessor(background, gxm_background_w, set_background, gxm_set_background_w, 1, 0, 2, 0); + XM_define_accessor(foreground, gxm_foreground_w, set_foreground, gxm_set_foreground_w, 1, 0, 2, 0); + XM_define_accessor(plane_mask, gxm_plane_mask_w, set_plane_mask, gxm_set_plane_mask_w, 1, 0, 2, 0); + XM_define_accessor(function, gxm_function_w, set_function, gxm_set_function_w, 1, 0, 2, 0); + XM_define_accessor(delta, gxm_delta_w, set_delta, gxm_set_delta_w, 1, 0, 2, 0); + XM_define_accessor(nchars, gxm_nchars_w, set_nchars, gxm_set_nchars_w, 1, 0, 2, 0); + XM_define_accessor(chars, gxm_chars_w, set_chars, gxm_set_chars_w, 1, 0, 2, 0); + XM_define_procedure(XTextItem, gxm_XTextItem_w, 4, 0, 0, H_XTextItem); + XM_define_accessor(name, gxm_name_w, set_name, gxm_set_name_w, 1, 0, 2, 0); + XM_define_accessor(depth, gxm_depth_w, set_depth, gxm_set_depth_w, 1, 0, 2, 0); + XM_define_accessor(visual, gxm_visual_w, set_visual, gxm_set_visual_w, 1, 0, 2, 0); + + XM_define_reader(mwidth, gxm_mwidth_w, 1, 0, 0); + XM_define_reader(mheight, gxm_mheight_w, 1, 0, 0); + XM_define_reader(ndepths, gxm_ndepths_w, 1, 0, 0); + XM_define_reader(depths, gxm_depths_w, 1, 0, 0); + XM_define_reader(root_depth, gxm_root_depth_w, 1, 0, 0); + XM_define_reader(root_visual, gxm_root_visual_w, 1, 0, 0); + XM_define_reader(default_gc, gxm_default_gc_w, 1, 0, 0); + XM_define_reader(cmap, gxm_cmap_w, 1, 0, 0); + XM_define_reader(white_pixel, gxm_white_pixel_w, 1, 0, 0); + XM_define_reader(black_pixel, gxm_black_pixel_w, 1, 0, 0); + XM_define_reader(max_maps, gxm_max_maps_w, 1, 0, 0); + XM_define_reader(min_maps, gxm_min_maps_w, 1, 0, 0); + XM_define_accessor(backing_store, gxm_backing_store_w, set_backing_store, gxm_set_backing_store_w, 1, 0, 2, 0); + XM_define_reader(save_unders, gxm_save_unders_w, 1, 0, 0); + XM_define_reader(root_input_mask, gxm_root_input_mask_w, 1, 0, 0); + XM_define_reader(lbearing, gxm_lbearing_w, 1, 0, 0); + XM_define_reader(rbearing, gxm_rbearing_w, 1, 0, 0); + XM_define_reader(ascent, gxm_ascent_w, 1, 0, 0); + XM_define_reader(descent, gxm_descent_w, 1, 0, 0); + XM_define_reader(attributes, gxm_attributes_w, 1, 0, 0); + XM_define_reader(card32, gxm_card32_w, 1, 0, 0); + XM_define_reader(fid, gxm_fid_w, 1, 0, 0); + XM_define_reader(properties, gxm_properties_w, 1, 0, 0); + XM_define_reader(min_bounds, gxm_min_bounds_w, 1, 0, 0); + XM_define_reader(max_bounds, gxm_max_bounds_w, 1, 0, 0); + XM_define_reader(per_char, gxm_per_char_w, 1, 0, 0); + + XM_define_accessor(input, gxm_input_w, set_input, gxm_set_input_w, 1, 0, 2, 0); + XM_define_accessor(initial_state, gxm_initial_state_w, set_initial_state, gxm_set_initial_state_w, 1, 0, 2, 0); + + XM_define_reader(icon_pixmap, gxm_icon_pixmap_w, 1, 0, 0); + XM_define_reader(icon_window, gxm_icon_window_w, 1, 0, 0); + XM_define_reader(icon_x, gxm_icon_x_w, 1, 0, 0); + XM_define_reader(icon_y, gxm_icon_y_w, 1, 0, 0); + XM_define_reader(icon_mask, gxm_icon_mask_w, 1, 0, 0); + XM_define_reader(window_group, gxm_window_group_w, 1, 0, 0); + XM_define_reader(visualid, gxm_visualid_w, 1, 0, 0); + XM_define_reader(class, gxm_class_w, 1, 0, 0); + XM_define_reader(red_mask, gxm_red_mask_w, 1, 0, 0); + XM_define_reader(green_mask, gxm_green_mask_w, 1, 0, 0); + XM_define_reader(blue_mask, gxm_blue_mask_w, 1, 0, 0); + XM_define_reader(bits_per_rgb, gxm_bits_per_rgb_w, 1, 0, 0); + XM_define_reader(colormap_size, gxm_colormap_size_w, 1, 0, 0); + XM_define_reader(map_entries, gxm_map_entries_w, 1, 0, 0); + XM_define_reader(nvisuals, gxm_nvisuals_w, 1, 0, 0); + XM_define_reader(visuals, gxm_visuals_w, 1, 0, 0); + XM_define_reader(bits_per_pixel, gxm_bits_per_pixel_w, 1, 0, 0); + XM_define_reader(background_pixmap, gxm_background_pixmap_w, 1, 0, 0); + XM_define_accessor(background_pixel, gxm_background_pixel_w, set_background_pixel, gxm_set_background_pixel_w, 1, 0, 2, 0); + XM_define_reader(border_pixmap, gxm_border_pixmap_w, 1, 0, 0); + XM_define_accessor(border_pixel, gxm_border_pixel_w, set_border_pixel, gxm_set_border_pixel_w, 1, 0, 2, 0); + XM_define_accessor(bit_gravity, gxm_bit_gravity_w, set_bit_gravity, gxm_set_bit_gravity_w, 1, 0, 2, 0); + XM_define_reader(win_gravity, gxm_win_gravity_w, 1, 0, 0); + XM_define_reader(backing_planes, gxm_backing_planes_w, 1, 0, 0); + XM_define_reader(backing_pixel, gxm_backing_pixel_w, 1, 0, 0); + XM_define_accessor(save_under, gxm_save_under_w, set_save_under, gxm_set_save_under_w, 1, 0, 2, 0); + XM_define_accessor(event_mask, gxm_event_mask_w, set_event_mask, gxm_set_event_mask_w, 1, 0, 2, 0); + XM_define_reader(do_not_propagate_mask, gxm_do_not_propagate_mask_w, 1, 0, 0); + XM_define_accessor(cursor, gxm_cursor_w, set_cursor, gxm_set_cursor_w, 1, 0, 2, 0); + XM_define_reader(map_installed, gxm_map_installed_w, 1, 0, 0); + XM_define_reader(map_state, gxm_map_state_w, 1, 0, 0); + XM_define_reader(all_event_masks, gxm_all_event_masks_w, 1, 0, 0); + XM_define_reader(your_event_mask, gxm_your_event_mask_w, 1, 0, 0); + XM_define_reader(screen, gxm_screen_w, 1, 0, 0); + XM_define_reader(xoffset, gxm_xoffset_w, 1, 0, 0); + XM_define_reader(byte_order, gxm_byte_order_w, 1, 0, 0); + XM_define_reader(bitmap_unit, gxm_bitmap_unit_w, 1, 0, 0); + XM_define_reader(bitmap_bit_order, gxm_bitmap_bit_order_w, 1, 0, 0); + XM_define_reader(bitmap_pad, gxm_bitmap_pad_w, 1, 0, 0); + XM_define_reader(bytes_per_line, gxm_bytes_per_line_w, 1, 0, 0); + XM_define_reader(obdata, gxm_obdata_w, 1, 0, 0); + XM_define_reader(sibling, gxm_sibling_w, 1, 0, 0); + XM_define_reader(stack_mode, gxm_stack_mode_w, 1, 0, 0); - XM_DEFINE_READER(red_max, gxm_red_max_w, 1, 0, 0); - XM_DEFINE_READER(red_mult, gxm_red_mult_w, 1, 0, 0); - XM_DEFINE_READER(green_max, gxm_green_max_w, 1, 0, 0); - XM_DEFINE_READER(green_mult, gxm_green_mult_w, 1, 0, 0); - XM_DEFINE_READER(blue_max, gxm_blue_max_w, 1, 0, 0); - XM_DEFINE_READER(blue_mult, gxm_blue_mult_w, 1, 0, 0); - XM_DEFINE_READER(base_pixel, gxm_base_pixel_w, 1, 0, 0); - XM_DEFINE_READER(killid, gxm_killid_w, 1, 0, 0); - - XM_DEFINE_READER(min_height, gxm_min_height_w, 1, 0, 0); - XM_DEFINE_READER(max_height, gxm_max_height_w, 1, 0, 0); - XM_DEFINE_READER(min_width, gxm_min_width_w, 1, 0, 0); - XM_DEFINE_READER(max_width, gxm_max_width_w, 1, 0, 0); - XM_DEFINE_READER(height_inc, gxm_height_inc_w, 1, 0, 0); - XM_DEFINE_READER(width_inc, gxm_width_inc_w, 1, 0, 0); - -#if HAVE_MOTIF - XM_DEFINE_READER(page_number, gxm_page_number_w, 1, 0, 0); - XM_DEFINE_READER(page_widget, gxm_page_widget_w, 1, 0, 0); - XM_DEFINE_READER(status_area_widget, gxm_status_area_widget_w, 1, 0, 0); - XM_DEFINE_READER(major_tab_widget, gxm_major_tab_widget_w, 1, 0, 0); - XM_DEFINE_READER(minor_tab_widget, gxm_minor_tab_widget_w, 1, 0, 0); - XM_DEFINE_READER(source_data, gxm_source_data_w, 1, 0, 0); - XM_DEFINE_READER(location_data, gxm_location_data_w, 1, 0, 0); - XM_DEFINE_READER(parm, gxm_parm_w, 1, 0, 0); - XM_DEFINE_READER(parm_format, gxm_parm_format_w, 1, 0, 0); - XM_DEFINE_READER(parm_length, gxm_parm_length_w, 1, 0, 0); - XM_DEFINE_READER(parm_type, gxm_parm_type_w, 1, 0, 0); - XM_DEFINE_READER(transfer_id, gxm_transfer_id_w, 1, 0, 0); - XM_DEFINE_READER(destination_data, gxm_destination_data_w, 1, 0, 0); - XM_DEFINE_READER(remaining, gxm_remaining_w, 1, 0, 0); - XM_DEFINE_READER(item_or_text, gxm_item_or_text_w, 1, 0, 0); - XM_DEFINE_READER(auto_selection_type, gxm_auto_selection_type_w, 1, 0, 0); - XM_DEFINE_READER(new_outline_state, gxm_new_outline_state_w, 1, 0, 0); - XM_DEFINE_READER(prev_page_number, gxm_prev_page_number_w, 1, 0, 0); - XM_DEFINE_READER(prev_page_widget, gxm_prev_page_widget_w, 1, 0, 0); - XM_DEFINE_READER(rendition, gxm_rendition_w, 1, 0, 0); - XM_DEFINE_READER(render_table, gxm_render_table_w, 1, 0, 0); - XM_DEFINE_READER(crossed_boundary, gxm_crossed_boundary_w, 1, 0, 0); - XM_DEFINE_READER(client_data, gxm_client_data_w, 1, 0, 0); - XM_DEFINE_READER(status, gxm_status_w, 1, 0, 0); - XM_DEFINE_READER(font_name, gxm_font_name_w, 1, 0, 0); - XM_DEFINE_READER(tag, gxm_tag_w, 1, 0, 0); - XM_DEFINE_READER(traversal_destination, gxm_traversal_destination_w, 1, 0, 0); - XM_DEFINE_READER(dragProtocolStyle, gxm_dragProtocolStyle_w, 1, 0, 0); - XM_DEFINE_READER(direction, gxm_direction_w, 1, 0, 0); - XM_DEFINE_READER(position, gxm_position_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(menuToPost, gxm_menuToPost_w, set_menuToPost, gxm_set_menuToPost_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(postIt, gxm_postIt_w, set_postIt, gxm_set_postIt_w, 1, 0, 2, 0); - XM_DEFINE_READER(timeStamp, gxm_timeStamp_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(operation, gxm_operation_w, set_operation, gxm_set_operation_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(reason, gxm_reason_w, set_reason, gxm_set_reason_w, 1, 0, 2, 0); - XM_DEFINE_READER(operations, gxm_operations_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(dropSiteStatus, gxm_dropSiteStatus_w, set_dropSiteStatus, gxm_set_dropSiteStatus_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(set, gxm_set_w, set_set, gxm_set_set_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(click_count, gxm_click_count_w, set_click_count, gxm_set_click_count_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(length, gxm_length_w, set_length, gxm_set_length_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(ptr, gxm_ptr_w, set_ptr, gxm_set_ptr_w, 1, 0, 2, 0); - XM_DEFINE_READER(dropAction, gxm_dropAction_w, 1, 0, 0); - XM_DEFINE_READER(iccHandle, gxm_iccHandle_w, 1, 0, 0); - XM_DEFINE_READER(completionStatus, gxm_completionStatus_w, 1, 0, 0); - XM_DEFINE_READER(dragContext, gxm_dragContext_w, 1, 0, 0); - XM_DEFINE_READER(animate, gxm_animate_w, 1, 0, 0); - XM_DEFINE_READER(widget, gxm_widget_w, 1, 0, 0); - XM_DEFINE_READER(item_position, gxm_item_position_w, 1, 0, 0); - XM_DEFINE_READER(callbackstruct, gxm_callbackstruct_w, 1, 0, 0); - XM_DEFINE_READER(item, gxm_item_w, 1, 0, 0); - XM_DEFINE_READER(item_length, gxm_item_length_w, 1, 0, 0); - XM_DEFINE_READER(selected_items, gxm_selected_items_w, 1, 0, 0); - XM_DEFINE_READER(selected_item_count, gxm_selected_item_count_w, 1, 0, 0); - XM_DEFINE_READER(selected_item_positions, gxm_selected_item_positions_w, 1, 0, 0); - XM_DEFINE_READER(selection_type, gxm_selection_type_w, 1, 0, 0); - XM_DEFINE_READER(mask, gxm_mask_w, 1, 0, 0); - XM_DEFINE_READER(mask_length, gxm_mask_length_w, 1, 0, 0); - XM_DEFINE_READER(dir, gxm_dir_w, 1, 0, 0); - XM_DEFINE_READER(dir_length, gxm_dir_length_w, 1, 0, 0); - XM_DEFINE_READER(pattern, gxm_pattern_w, 1, 0, 0); - XM_DEFINE_READER(pattern_length, gxm_pattern_length_w, 1, 0, 0); - XM_DEFINE_READER(currInsert, gxm_currInsert_w, 1, 0, 0); - XM_DEFINE_READER(newInsert, gxm_newInsert_w, 1, 0, 0); - XM_DEFINE_READER(startPos, gxm_startPos_w, 1, 0, 0); - XM_DEFINE_READER(endPos, gxm_endPos_w, 1, 0, 0); - XM_DEFINE_READER(text, gxm_text_w, 1, 0, 0); - XM_DEFINE_ACCESSOR(value, gxm_value_w, set_value, gxm_set_value_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(doit, gxm_doit_w, set_doit, gxm_set_doit_w, 1, 0, 2, 0); -#if HAVE_XmCreateDataField - XM_DEFINE_READER(w, gxm_w_w, 1, 0, 0); - XM_DEFINE_READER(accept, gxm_accept_w, 1, 0, 0); -#endif -#if HAVE_XmCreateTabStack - XM_DEFINE_READER(selected_child, gxm_selected_child_w, 1, 0, 0); -#endif + XM_define_reader(red_max, gxm_red_max_w, 1, 0, 0); + XM_define_reader(red_mult, gxm_red_mult_w, 1, 0, 0); + XM_define_reader(green_max, gxm_green_max_w, 1, 0, 0); + XM_define_reader(green_mult, gxm_green_mult_w, 1, 0, 0); + XM_define_reader(blue_max, gxm_blue_max_w, 1, 0, 0); + XM_define_reader(blue_mult, gxm_blue_mult_w, 1, 0, 0); + XM_define_reader(base_pixel, gxm_base_pixel_w, 1, 0, 0); + XM_define_reader(killid, gxm_killid_w, 1, 0, 0); + + XM_define_reader(min_height, gxm_min_height_w, 1, 0, 0); + XM_define_reader(max_height, gxm_max_height_w, 1, 0, 0); + XM_define_reader(min_width, gxm_min_width_w, 1, 0, 0); + XM_define_reader(max_width, gxm_max_width_w, 1, 0, 0); + XM_define_reader(height_inc, gxm_height_inc_w, 1, 0, 0); + XM_define_reader(width_inc, gxm_width_inc_w, 1, 0, 0); + + XM_define_reader(page_number, gxm_page_number_w, 1, 0, 0); + XM_define_reader(page_widget, gxm_page_widget_w, 1, 0, 0); + XM_define_reader(status_area_widget, gxm_status_area_widget_w, 1, 0, 0); + XM_define_reader(major_tab_widget, gxm_major_tab_widget_w, 1, 0, 0); + XM_define_reader(minor_tab_widget, gxm_minor_tab_widget_w, 1, 0, 0); + XM_define_reader(source_data, gxm_source_data_w, 1, 0, 0); + XM_define_reader(location_data, gxm_location_data_w, 1, 0, 0); + XM_define_reader(parm, gxm_parm_w, 1, 0, 0); + XM_define_reader(parm_format, gxm_parm_format_w, 1, 0, 0); + XM_define_reader(parm_length, gxm_parm_length_w, 1, 0, 0); + XM_define_reader(parm_type, gxm_parm_type_w, 1, 0, 0); + XM_define_reader(transfer_id, gxm_transfer_id_w, 1, 0, 0); + XM_define_reader(destination_data, gxm_destination_data_w, 1, 0, 0); + XM_define_reader(remaining, gxm_remaining_w, 1, 0, 0); + XM_define_reader(item_or_text, gxm_item_or_text_w, 1, 0, 0); + XM_define_reader(auto_selection_type, gxm_auto_selection_type_w, 1, 0, 0); + XM_define_reader(new_outline_state, gxm_new_outline_state_w, 1, 0, 0); + XM_define_reader(prev_page_number, gxm_prev_page_number_w, 1, 0, 0); + XM_define_reader(prev_page_widget, gxm_prev_page_widget_w, 1, 0, 0); + XM_define_reader(rendition, gxm_rendition_w, 1, 0, 0); + XM_define_reader(render_table, gxm_render_table_w, 1, 0, 0); + XM_define_reader(crossed_boundary, gxm_crossed_boundary_w, 1, 0, 0); + XM_define_reader(client_data, gxm_client_data_w, 1, 0, 0); + XM_define_reader(status, gxm_status_w, 1, 0, 0); + XM_define_reader(font_name, gxm_font_name_w, 1, 0, 0); + XM_define_reader(tag, gxm_tag_w, 1, 0, 0); + XM_define_reader(traversal_destination, gxm_traversal_destination_w, 1, 0, 0); + XM_define_reader(dragProtocolStyle, gxm_dragProtocolStyle_w, 1, 0, 0); + XM_define_reader(direction, gxm_direction_w, 1, 0, 0); + XM_define_reader(position, gxm_position_w, 1, 0, 0); + XM_define_accessor(menuToPost, gxm_menuToPost_w, set_menuToPost, gxm_set_menuToPost_w, 1, 0, 2, 0); + XM_define_accessor(postIt, gxm_postIt_w, set_postIt, gxm_set_postIt_w, 1, 0, 2, 0); + XM_define_reader(timeStamp, gxm_timeStamp_w, 1, 0, 0); + XM_define_accessor(operation, gxm_operation_w, set_operation, gxm_set_operation_w, 1, 0, 2, 0); + XM_define_accessor(reason, gxm_reason_w, set_reason, gxm_set_reason_w, 1, 0, 2, 0); + XM_define_reader(operations, gxm_operations_w, 1, 0, 0); + XM_define_accessor(dropSiteStatus, gxm_dropSiteStatus_w, set_dropSiteStatus, gxm_set_dropSiteStatus_w, 1, 0, 2, 0); + XM_define_accessor(set, gxm_set_w, set_set, gxm_set_set_w, 1, 0, 2, 0); + XM_define_accessor(click_count, gxm_click_count_w, set_click_count, gxm_set_click_count_w, 1, 0, 2, 0); + XM_define_accessor(length, gxm_length_w, set_length, gxm_set_length_w, 1, 0, 2, 0); + XM_define_accessor(ptr, gxm_ptr_w, set_ptr, gxm_set_ptr_w, 1, 0, 2, 0); + XM_define_reader(dropAction, gxm_dropAction_w, 1, 0, 0); + XM_define_reader(iccHandle, gxm_iccHandle_w, 1, 0, 0); + XM_define_reader(completionStatus, gxm_completionStatus_w, 1, 0, 0); + XM_define_reader(dragContext, gxm_dragContext_w, 1, 0, 0); + XM_define_reader(animate, gxm_animate_w, 1, 0, 0); + XM_define_reader(widget, gxm_widget_w, 1, 0, 0); + XM_define_reader(item_position, gxm_item_position_w, 1, 0, 0); + XM_define_reader(callbackstruct, gxm_callbackstruct_w, 1, 0, 0); + XM_define_reader(item, gxm_item_w, 1, 0, 0); + XM_define_reader(item_length, gxm_item_length_w, 1, 0, 0); + XM_define_reader(selected_items, gxm_selected_items_w, 1, 0, 0); + XM_define_reader(selected_item_count, gxm_selected_item_count_w, 1, 0, 0); + XM_define_reader(selected_item_positions, gxm_selected_item_positions_w, 1, 0, 0); + XM_define_reader(selection_type, gxm_selection_type_w, 1, 0, 0); + XM_define_reader(mask, gxm_mask_w, 1, 0, 0); + XM_define_reader(mask_length, gxm_mask_length_w, 1, 0, 0); + XM_define_reader(dir, gxm_dir_w, 1, 0, 0); + XM_define_reader(dir_length, gxm_dir_length_w, 1, 0, 0); + XM_define_reader(pattern, gxm_pattern_w, 1, 0, 0); + XM_define_reader(pattern_length, gxm_pattern_length_w, 1, 0, 0); + XM_define_reader(currInsert, gxm_currInsert_w, 1, 0, 0); + XM_define_reader(newInsert, gxm_newInsert_w, 1, 0, 0); + XM_define_reader(startPos, gxm_startPos_w, 1, 0, 0); + XM_define_reader(endPos, gxm_endPos_w, 1, 0, 0); + XM_define_reader(text, gxm_text_w, 1, 0, 0); + XM_define_accessor(value, gxm_value_w, set_value, gxm_set_value_w, 1, 0, 2, 0); + XM_define_accessor(doit, gxm_doit_w, set_doit, gxm_set_doit_w, 1, 0, 2, 0); + + XM_define_accessor(valuemask, gxm_valuemask_w, set_valuemask, gxm_set_valuemask_w, 1, 0, 2, 0); + XM_define_accessor(ncolors, gxm_ncolors_w, set_ncolors, gxm_set_ncolors_w, 1, 0, 2, 0); + XM_define_accessor(cpp, gxm_cpp_w, set_cpp, gxm_set_cpp_w, 1, 0, 2, 0); + XM_define_procedure(XpmImage, gxm_XpmImage_w, 5, 0, 0, H_XpmImage); + XM_define_accessor(numsymbols, gxm_numsymbols_w, set_numsymbols, gxm_set_numsymbols_w, 1, 0, 2, 0); + XM_define_accessor(colorsymbols, gxm_colorsymbols_w, set_colorsymbols, gxm_set_colorsymbols_w, 1, 0, 2, 0); + XM_define_accessor(npixels, gxm_npixels_w, set_npixels, gxm_set_npixels_w, 1, 0, 2, 0); + XM_define_accessor(y_hotspot, gxm_y_hotspot_w, set_y_hotspot, gxm_set_y_hotspot_w, 1, 0, 2, 0); + XM_define_accessor(x_hotspot, gxm_x_hotspot_w, set_x_hotspot, gxm_set_x_hotspot_w, 1, 0, 2, 0); + XM_define_procedure(XpmColorSymbol, gxm_XpmColorSymbol_w, 3, 0, 0, H_XpmColorSymbol); + XM_define_procedure(XpmAttributes, gxm_XpmAttributes_w, 0, 0, 0, H_XpmAttributes); + + XM_define_accessor(request_code, gxm_request_code_w, set_request_code, gxm_set_request_code_w, 1, 0, 2, 0); + XM_define_accessor(error_code, gxm_error_code_w, set_error_code, gxm_set_error_code_w, 1, 0, 2, 0); + XM_define_accessor(first_keycode, gxm_first_keycode_w, set_first_keycode, gxm_set_first_keycode_w, 1, 0, 2, 0); + XM_define_accessor(request, gxm_request_w, set_request, gxm_set_request_w, 1, 0, 2, 0); + XM_define_accessor(resourceid, gxm_resourceid_w, set_resourceid, gxm_set_resourceid_w, 1, 0, 2, 0); + XM_define_accessor(format, gxm_format_w, set_format, gxm_set_format_w, 1, 0, 2, 0); + XM_define_accessor(data, gxm_data_w, set_data, gxm_set_data_w, 1, 0, 2, 0); + XM_define_accessor(message_type, gxm_message_type_w, set_message_type, gxm_set_message_type_w, 1, 0, 2, 0); + XM_define_accessor(new, gxm_new_w, set_new, gxm_set_new_w, 1, 0, 2, 0); + XM_define_accessor(property, gxm_property_w, set_property, gxm_set_property_w, 1, 0, 2, 0); + XM_define_accessor(display, gxm_display_w, set_display, gxm_set_display_w, 1, 0, 2, 0); + XM_define_accessor(target, gxm_target_w, set_target, gxm_set_target_w, 1, 0, 2, 0); + XM_define_accessor(requestor, gxm_requestor_w, set_requestor, gxm_set_requestor_w, 1, 0, 2, 0); + XM_define_accessor(owner, gxm_owner_w, set_owner, gxm_set_owner_w, 1, 0, 2, 0); + XM_define_accessor(selection, gxm_selection_w, set_selection, gxm_set_selection_w, 1, 0, 2, 0); + XM_define_accessor(atom, gxm_atom_w, set_atom, gxm_set_atom_w, 1, 0, 2, 0); + XM_define_accessor(place, gxm_place_w, set_place, gxm_set_place_w, 1, 0, 2, 0); + XM_define_accessor(value_mask, gxm_value_mask_w, set_value_mask, gxm_set_value_mask_w, 1, 0, 2, 0); + XM_define_accessor(above, gxm_above_w, set_above, gxm_set_above_w, 1, 0, 2, 0); + XM_define_accessor(from_configure, gxm_from_configure_w, set_from_configure, gxm_set_from_configure_w, 1, 0, 2, 0); + XM_define_accessor(event, gxm_event_w, set_event, gxm_set_event_w, 1, 0, 2, 0); + XM_define_accessor(override_redirect, gxm_override_redirect_w, set_override_redirect, gxm_set_override_redirect_w, 1, 0, 2, 0); + XM_define_accessor(border_width, gxm_border_width_w, set_border_width, gxm_set_border_width_w, 1, 0, 2, 0); + XM_define_accessor(parent, gxm_parent_w, set_parent, gxm_set_parent_w, 1, 0, 2, 0); + XM_define_accessor(minor_code, gxm_minor_code_w, set_minor_code, gxm_set_minor_code_w, 1, 0, 2, 0); + XM_define_accessor(major_code, gxm_major_code_w, set_major_code, gxm_set_major_code_w, 1, 0, 2, 0); + XM_define_accessor(drawable, gxm_drawable_w, set_drawable, gxm_set_drawable_w, 1, 0, 2, 0); + XM_define_accessor(count, gxm_count_w, set_count, gxm_set_count_w, 1, 0, 2, 0); + XM_define_accessor(key_vector, gxm_key_vector_w, set_key_vector, gxm_set_key_vector_w, 1, 0, 2, 0); + XM_define_accessor(focus, gxm_focus_w, set_focus, gxm_set_focus_w, 1, 0, 2, 0); + XM_define_accessor(detail, gxm_detail_w, set_detail, gxm_set_detail_w, 1, 0, 2, 0); + XM_define_accessor(mode, gxm_mode_w, set_mode, gxm_set_mode_w, 1, 0, 2, 0); + XM_define_accessor(is_hint, gxm_is_hint_w, set_is_hint, gxm_set_is_hint_w, 1, 0, 2, 0); + XM_define_accessor(button, gxm_button_w, set_button, gxm_set_button_w, 1, 0, 2, 0); + XM_define_accessor(same_screen, gxm_same_screen_w, set_same_screen, gxm_set_same_screen_w, 1, 0, 2, 0); + XM_define_accessor(keycode, gxm_keycode_w, set_keycode, gxm_set_keycode_w, 1, 0, 2, 0); + XM_define_accessor(state, gxm_state_w, set_state, gxm_set_state_w, 1, 0, 2, 0); + XM_define_accessor(y_root, gxm_y_root_w, set_y_root, gxm_set_y_root_w, 1, 0, 2, 0); + XM_define_accessor(x_root, gxm_x_root_w, set_x_root, gxm_set_x_root_w, 1, 0, 2, 0); + XM_define_accessor(root, gxm_root_w, set_root, gxm_set_root_w, 1, 0, 2, 0); + XM_define_accessor(time, gxm_time_w, set_time, gxm_set_time_w, 1, 0, 2, 0); + XM_define_accessor(subwindow, gxm_subwindow_w, set_subwindow, gxm_set_subwindow_w, 1, 0, 2, 0); + XM_define_accessor(window, gxm_window_w, set_window, gxm_set_window_w, 1, 0, 2, 0); + XM_define_accessor(send_event, gxm_send_event_w, set_send_event, gxm_set_send_event_w, 1, 0, 2, 0); + XM_define_accessor(serial, gxm_serial_w, set_serial, gxm_set_serial_w, 1, 0, 2, 0); + XM_define_accessor(type, gxm_type_w, set_type, gxm_set_type_w, 1, 0, 2, 0); + XM_define_accessor(colormap, gxm_colormap_w, set_colormap, gxm_set_colormap_w, 1, 0, 2, 0); +} - XM_DEFINE_ACCESSOR(valuemask, gxm_valuemask_w, set_valuemask, gxm_set_valuemask_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(ncolors, gxm_ncolors_w, set_ncolors, gxm_set_ncolors_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(cpp, gxm_cpp_w, set_cpp, gxm_set_cpp_w, 1, 0, 2, 0); - XM_DEFINE_PROCEDURE(XpmImage, gxm_XpmImage_w, 5, 0, 0, H_XpmImage); - XM_DEFINE_ACCESSOR(numsymbols, gxm_numsymbols_w, set_numsymbols, gxm_set_numsymbols_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(colorsymbols, gxm_colorsymbols_w, set_colorsymbols, gxm_set_colorsymbols_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(npixels, gxm_npixels_w, set_npixels, gxm_set_npixels_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(y_hotspot, gxm_y_hotspot_w, set_y_hotspot, gxm_set_y_hotspot_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(x_hotspot, gxm_x_hotspot_w, set_x_hotspot, gxm_set_x_hotspot_w, 1, 0, 2, 0); - XM_DEFINE_PROCEDURE(XpmColorSymbol, gxm_XpmColorSymbol_w, 3, 0, 0, H_XpmColorSymbol); - XM_DEFINE_PROCEDURE(XpmAttributes, gxm_XpmAttributes_w, 0, 0, 0, H_XpmAttributes); -#endif - XM_DEFINE_ACCESSOR(request_code, gxm_request_code_w, set_request_code, gxm_set_request_code_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(error_code, gxm_error_code_w, set_error_code, gxm_set_error_code_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(first_keycode, gxm_first_keycode_w, set_first_keycode, gxm_set_first_keycode_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(request, gxm_request_w, set_request, gxm_set_request_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(resourceid, gxm_resourceid_w, set_resourceid, gxm_set_resourceid_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(format, gxm_format_w, set_format, gxm_set_format_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(data, gxm_data_w, set_data, gxm_set_data_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(message_type, gxm_message_type_w, set_message_type, gxm_set_message_type_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(new, gxm_new_w, set_new, gxm_set_new_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(property, gxm_property_w, set_property, gxm_set_property_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(display, gxm_display_w, set_display, gxm_set_display_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(target, gxm_target_w, set_target, gxm_set_target_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(requestor, gxm_requestor_w, set_requestor, gxm_set_requestor_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(owner, gxm_owner_w, set_owner, gxm_set_owner_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(selection, gxm_selection_w, set_selection, gxm_set_selection_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(atom, gxm_atom_w, set_atom, gxm_set_atom_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(place, gxm_place_w, set_place, gxm_set_place_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(value_mask, gxm_value_mask_w, set_value_mask, gxm_set_value_mask_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(above, gxm_above_w, set_above, gxm_set_above_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(from_configure, gxm_from_configure_w, set_from_configure, gxm_set_from_configure_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(event, gxm_event_w, set_event, gxm_set_event_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(override_redirect, gxm_override_redirect_w, set_override_redirect, gxm_set_override_redirect_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(border_width, gxm_border_width_w, set_border_width, gxm_set_border_width_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(parent, gxm_parent_w, set_parent, gxm_set_parent_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(minor_code, gxm_minor_code_w, set_minor_code, gxm_set_minor_code_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(major_code, gxm_major_code_w, set_major_code, gxm_set_major_code_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(drawable, gxm_drawable_w, set_drawable, gxm_set_drawable_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(count, gxm_count_w, set_count, gxm_set_count_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(key_vector, gxm_key_vector_w, set_key_vector, gxm_set_key_vector_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(focus, gxm_focus_w, set_focus, gxm_set_focus_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(detail, gxm_detail_w, set_detail, gxm_set_detail_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(mode, gxm_mode_w, set_mode, gxm_set_mode_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(is_hint, gxm_is_hint_w, set_is_hint, gxm_set_is_hint_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(button, gxm_button_w, set_button, gxm_set_button_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(same_screen, gxm_same_screen_w, set_same_screen, gxm_set_same_screen_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(keycode, gxm_keycode_w, set_keycode, gxm_set_keycode_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(state, gxm_state_w, set_state, gxm_set_state_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(y_root, gxm_y_root_w, set_y_root, gxm_set_y_root_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(x_root, gxm_x_root_w, set_x_root, gxm_set_x_root_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(root, gxm_root_w, set_root, gxm_set_root_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(time, gxm_time_w, set_time, gxm_set_time_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(subwindow, gxm_subwindow_w, set_subwindow, gxm_set_subwindow_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(window, gxm_window_w, set_window, gxm_set_window_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(send_event, gxm_send_event_w, set_send_event, gxm_set_send_event_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(serial, gxm_serial_w, set_serial, gxm_set_serial_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(type, gxm_type_w, set_type, gxm_set_type_w, 1, 0, 2, 0); - XM_DEFINE_ACCESSOR(colormap, gxm_colormap_w, set_colormap, gxm_set_colormap_w, 1, 0, 2, 0); -} - - -#if HAVE_MOTIF /* -------------------------------- string constants -------------------------------- */ /* can't get hcreate in glibc to work so... */ @@ -25239,9 +23155,9 @@ static xm_resource_t resource_type(const char *name) /* unfortunately, we have names like 100DPIString in the newer Motif widgets... */ if ((ind < 0) || (ind >= LINKS_SIZE)) { - XEN_ERROR(XEN_ERROR_TYPE("no-such-resource"), - XEN_LIST_2(C_TO_XEN_STRING("no such resource: ~A"), - C_TO_XEN_STRING(name))); + Xen_error(Xen_make_error_type("no-such-resource"), + Xen_list_2(C_string_to_Xen_string("no such resource: ~A"), + C_string_to_Xen_string(name))); return(XM_NOT_A_RESOURCE); } start = hd_links[ind]; @@ -25256,2534 +23172,2228 @@ static xm_resource_t resource_type(const char *name) static void define_strings(void) { -#if HAVE_SCHEME - #define DEFINE_STRING(Name) s7_define_constant(s7, XM_PREFIX #Name XM_POSTFIX, s7_make_permanent_string(Name)) - #define DEFINE_RESOURCE(Name, Type) \ - s7_define_constant(s7, XM_PREFIX #Name XM_POSTFIX, s7_make_permanent_string(Name)); \ - hash_resource(Name, Type) -#else - #define DEFINE_STRING(Name) XEN_DEFINE(XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_STRING(Name)) - #define DEFINE_RESOURCE(Name, Type) \ - XEN_DEFINE(XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_STRING(Name)); \ + #define define_string(Name) Xen_define(XM_PREFIX #Name XM_POSTFIX, C_string_to_Xen_string(Name)) + #define define_resource(Name, Type) \ + Xen_define(XM_PREFIX #Name XM_POSTFIX, C_string_to_Xen_string(Name)); \ hash_resource(Name, Type) -#endif xm_hash = (hdata **)calloc(XM_HASH_SIZE, sizeof(hdata *)); - DEFINE_STRING(XmSTRING_DEFAULT_CHARSET); - DEFINE_STRING(XmFONTLIST_DEFAULT_TAG); - DEFINE_STRING(XmFONTLIST_DEFAULT_TAG_STRING); + define_string(XmSTRING_DEFAULT_CHARSET); + define_string(XmFONTLIST_DEFAULT_TAG); + define_string(XmFONTLIST_DEFAULT_TAG_STRING); /* these define special XmVaCreateSimple... arg possibilities */ - DEFINE_STRING(XmVaCASCADEBUTTON); - DEFINE_STRING(XmVaCHECKBUTTON); - DEFINE_STRING(XmVaDOUBLE_SEPARATOR); - DEFINE_STRING(XmVaPUSHBUTTON); - DEFINE_STRING(XmVaRADIOBUTTON); - DEFINE_STRING(XmVaSEPARATOR); - DEFINE_STRING(XmVaSINGLE_SEPARATOR); - DEFINE_STRING(XmVaTOGGLEBUTTON); - DEFINE_STRING(XmVaTITLE); + define_string(XmVaCASCADEBUTTON); + define_string(XmVaCHECKBUTTON); + define_string(XmVaDOUBLE_SEPARATOR); + define_string(XmVaPUSHBUTTON); + define_string(XmVaRADIOBUTTON); + define_string(XmVaSEPARATOR); + define_string(XmVaSINGLE_SEPARATOR); + define_string(XmVaTOGGLEBUTTON); + define_string(XmVaTITLE); #if 0 - DEFINE_STRING(XtVaNestedList); - DEFINE_STRING(XtVaTypedArg); + define_string(XtVaNestedList); + define_string(XtVaTypedArg); #endif /* XM_CALLBACK is used where the resource type is XtCallbackList */ - DEFINE_RESOURCE(XmNaccelerator, XM_STRING); - DEFINE_RESOURCE(XmNacceleratorText, XM_XMSTRING); - DEFINE_RESOURCE(XmNaccelerators, XM_ULONG); - DEFINE_RESOURCE(XmNactivateCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNadjustLast, XM_BOOLEAN); - DEFINE_RESOURCE(XmNadjustMargin, XM_BOOLEAN); - DEFINE_RESOURCE(XmNalignment, XM_UCHAR); - DEFINE_RESOURCE(XmNallowOverlap, XM_BOOLEAN); - DEFINE_RESOURCE(XmNallowResize, XM_BOOLEAN); - DEFINE_RESOURCE(XmNallowShellResize, XM_BOOLEAN); - DEFINE_RESOURCE(XmNancestorSensitive, XM_BOOLEAN); - DEFINE_RESOURCE(XmNanimationMask, XM_PIXMAP); - DEFINE_RESOURCE(XmNanimationPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNanimationPixmapDepth, XM_INT); - DEFINE_RESOURCE(XmNanimationStyle, XM_UCHAR); - DEFINE_RESOURCE(XmNapplyCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNapplyLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNargc, XM_INT); - DEFINE_RESOURCE(XmNargv, XM_STRING_LIST); - DEFINE_RESOURCE(XmNarmCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNarmColor, XM_PIXEL); - DEFINE_RESOURCE(XmNarmPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNarrowDirection, XM_UCHAR); - DEFINE_RESOURCE(XmNattachment, XM_UCHAR); - DEFINE_RESOURCE(XmNaudibleWarning, XM_UCHAR); - DEFINE_RESOURCE(XmNautoShowCursorPosition, XM_BOOLEAN); - DEFINE_RESOURCE(XmNautoUnmanage, XM_BOOLEAN); - DEFINE_RESOURCE(XmNautomaticSelection, XM_UCHAR); - DEFINE_RESOURCE(XmNbackground, XM_PIXEL); - DEFINE_RESOURCE(XmNbackgroundPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNbaseHeight, XM_INT); - DEFINE_RESOURCE(XmNbaseWidth, XM_INT); - DEFINE_RESOURCE(XmNbitmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNblendModel, XM_ULONG); - DEFINE_RESOURCE(XmNblinkRate, XM_INT); - /* DEFINE_RESOURCE(XmNborder, XM_ULONG); */ - DEFINE_RESOURCE(XmNborderColor, XM_PIXEL); - DEFINE_RESOURCE(XmNborderPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNborderWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNbottomAttachment, XM_UCHAR); - DEFINE_RESOURCE(XmNbottomOffset, XM_INT); - DEFINE_RESOURCE(XmNbottomPosition, XM_INT); - DEFINE_RESOURCE(XmNbottomShadowColor, XM_PIXEL); - DEFINE_RESOURCE(XmNbottomShadowPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNbottomWidget, XM_WIDGET); - DEFINE_RESOURCE(XmNbrowseSelectionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNbuttonAcceleratorText, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNbuttonAccelerators, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNbuttonCount, XM_INT); - DEFINE_RESOURCE(XmNbuttonMnemonicCharSets, XM_CHARSET_TABLE); - DEFINE_RESOURCE(XmNbuttonMnemonics, XM_KEYSYM_TABLE); - DEFINE_RESOURCE(XmNbuttonSet, XM_INT); - DEFINE_RESOURCE(XmNbuttonType, XM_ULONG); - DEFINE_RESOURCE(XmNbuttons, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNcancelButton, XM_WIDGET); - DEFINE_RESOURCE(XmNcancelCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNcancelLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNcascadePixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNcascadingCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNchildHorizontalAlignment, XM_UCHAR); - DEFINE_RESOURCE(XmNchildHorizontalSpacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNchildPlacement, XM_UCHAR); - DEFINE_RESOURCE(XmNchildVerticalAlignment, XM_UCHAR); - DEFINE_RESOURCE(XmNchildren, XM_WIDGET_LIST); - DEFINE_RESOURCE(XmNclientData, XM_XTPOINTER); - DEFINE_RESOURCE(XmNclipWindow, XM_WIDGET); - DEFINE_RESOURCE(XmNcolormap, XM_COLORMAP); - DEFINE_RESOURCE(XmNcolumns, XM_SHORT); - DEFINE_RESOURCE(XmNcommand, XM_XMSTRING); - DEFINE_RESOURCE(XmNcommandChangedCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNcommandEnteredCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNcommandWindow, XM_WIDGET); - DEFINE_RESOURCE(XmNcommandWindowLocation, XM_UCHAR); - DEFINE_RESOURCE(XmNconvertProc, XM_CONVERT_CALLBACK); - DEFINE_RESOURCE(XmNcreatePopupChildProc, XM_POPUP_CALLBACK); - DEFINE_RESOURCE(XmNcursorBackground, XM_PIXEL); - DEFINE_RESOURCE(XmNcursorForeground, XM_PIXEL); - DEFINE_RESOURCE(XmNcursorPosition, XM_INT); - DEFINE_RESOURCE(XmNcursorPositionVisible, XM_BOOLEAN); - DEFINE_RESOURCE(XmNdarkThreshold, XM_INT); - DEFINE_RESOURCE(XmNdecimalPoints, XM_SHORT); - DEFINE_RESOURCE(XmNdecrementCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdefaultActionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdefaultButton, XM_WIDGET); - DEFINE_RESOURCE(XmNdefaultButtonShadowThickness, XM_DIMENSION); - DEFINE_RESOURCE(XmNdefaultButtonType, XM_UCHAR); - DEFINE_RESOURCE(XmNdefaultCopyCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNdefaultInvalidCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNdefaultLinkCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNdefaultMoveCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNdefaultNoneCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNdefaultPosition, XM_BOOLEAN); - DEFINE_RESOURCE(XmNdefaultSourceCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNdefaultValidCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNdeleteResponse, XM_UCHAR); - DEFINE_RESOURCE(XmNdepth, XM_INT); - DEFINE_RESOURCE(XmNdestroyCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdialogStyle, XM_UCHAR); - DEFINE_RESOURCE(XmNdialogTitle, XM_XMSTRING); - DEFINE_RESOURCE(XmNdialogType, XM_UCHAR); - DEFINE_RESOURCE(XmNdirListItemCount, XM_INT); - DEFINE_RESOURCE(XmNdirListItems, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNdirListLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNdirMask, XM_XMSTRING); - DEFINE_RESOURCE(XmNdirSearchProc, XM_SEARCH_CALLBACK); - DEFINE_RESOURCE(XmNdirSpec, XM_XMSTRING); - DEFINE_RESOURCE(XmNdirectory, XM_XMSTRING); - DEFINE_RESOURCE(XmNdirectoryValid, XM_BOOLEAN); - DEFINE_RESOURCE(XmNdisarmCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdoubleClickInterval, XM_INT); - DEFINE_RESOURCE(XmNdragCallback, XM_CALLBACK); /* scale slider etc */ - DEFINE_RESOURCE(XmNdragDropFinishCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdragInitiatorProtocolStyle, XM_UCHAR); - DEFINE_RESOURCE(XmNdragMotionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdragOperations, XM_UCHAR); - DEFINE_RESOURCE(XmNdragProc, XM_DRAG_CALLBACK); /* drag and drop, not scale drag */ - DEFINE_RESOURCE(XmNdragReceiverProtocolStyle, XM_UCHAR); - DEFINE_RESOURCE(XmNdropFinishCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdropProc, XM_DROP_CALLBACK); - DEFINE_RESOURCE(XmNdropRectangles, XM_RECTANGLE_LIST); - DEFINE_RESOURCE(XmNdropSiteActivity, XM_UCHAR); - DEFINE_RESOURCE(XmNdropSiteEnterCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdropSiteLeaveCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdropSiteOperations, XM_UCHAR); - DEFINE_RESOURCE(XmNdropSiteType, XM_UCHAR); - DEFINE_RESOURCE(XmNdropStartCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdropTransfers, XM_TRANSFER_ENTRY_LIST); - DEFINE_RESOURCE(XmNeditMode, XM_INT); - DEFINE_RESOURCE(XmNeditable, XM_BOOLEAN); - DEFINE_RESOURCE(XmNentryAlignment, XM_UCHAR); - DEFINE_RESOURCE(XmNentryBorder, XM_DIMENSION); - DEFINE_RESOURCE(XmNentryCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNentryClass, XM_WIDGET_CLASS); - DEFINE_RESOURCE(XmNentryVerticalAlignment, XM_UCHAR); - DEFINE_RESOURCE(XmNexportTargets, XM_ATOM_LIST); - DEFINE_RESOURCE(XmNexposeCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNextendedSelectionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNfileListItemCount, XM_INT); - DEFINE_RESOURCE(XmNfileListItems, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNfileListLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNfileSearchProc, XM_SEARCH_CALLBACK); - DEFINE_RESOURCE(XmNfileTypeMask, XM_UCHAR); - DEFINE_RESOURCE(XmNfillOnArm, XM_BOOLEAN); - DEFINE_RESOURCE(XmNfillOnSelect, XM_BOOLEAN); - DEFINE_RESOURCE(XmNfilterLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNfocusCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNfont, XM_XFONTSTRUCT); - DEFINE_RESOURCE(XmNforeground, XM_PIXEL); - DEFINE_RESOURCE(XmNforegroundThreshold, XM_INT); - DEFINE_RESOURCE(XmNfractionBase, XM_INT); - DEFINE_RESOURCE(XmNgainPrimaryCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNgeometry, XM_STRING); - DEFINE_RESOURCE(XmNheight, XM_DIMENSION); - DEFINE_RESOURCE(XmNheightInc, XM_INT); - DEFINE_RESOURCE(XmNhelpCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNhelpLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNhighlightColor, XM_PIXEL); - DEFINE_RESOURCE(XmNhighlightOnEnter, XM_BOOLEAN); - DEFINE_RESOURCE(XmNhighlightPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNhighlightThickness, XM_DIMENSION); - DEFINE_RESOURCE(XmNhistoryItemCount, XM_INT); - DEFINE_RESOURCE(XmNhistoryItems, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNhistoryMaxItems, XM_INT); - DEFINE_RESOURCE(XmNhistoryVisibleItemCount, XM_INT); - DEFINE_RESOURCE(XmNhorizontalFontUnit, XM_INT); - DEFINE_RESOURCE(XmNhorizontalScrollBar, XM_WIDGET); - DEFINE_RESOURCE(XmNhorizontalSpacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNhotX, XM_POSITION); - DEFINE_RESOURCE(XmNhotY, XM_POSITION); - DEFINE_RESOURCE(XmNiconMask, XM_PIXMAP); - DEFINE_RESOURCE(XmNiconName, XM_STRING); - DEFINE_RESOURCE(XmNiconNameEncoding, XM_ATOM); - DEFINE_RESOURCE(XmNiconPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNiconWindow, XM_WIDGET); - DEFINE_RESOURCE(XmNiconX, XM_INT); - DEFINE_RESOURCE(XmNiconY, XM_INT); - DEFINE_RESOURCE(XmNiconic, XM_BOOLEAN); - DEFINE_RESOURCE(XmNimportTargets, XM_ATOM_LIST); - DEFINE_RESOURCE(XmNincrement, XM_INT); - DEFINE_RESOURCE(XmNincrementCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNincremental, XM_BOOLEAN); - DEFINE_RESOURCE(XmNindicatorOn, XM_INT); - DEFINE_RESOURCE(XmNindicatorSize, XM_DIMENSION); - DEFINE_RESOURCE(XmNindicatorType, XM_UCHAR); - DEFINE_RESOURCE(XmNinitialDelay, XM_INT); - DEFINE_RESOURCE(XmNinitialFocus, XM_WIDGET); - DEFINE_RESOURCE(XmNinitialResourcesPersistent, XM_BOOLEAN); - DEFINE_RESOURCE(XmNinitialState, XM_INT); - DEFINE_RESOURCE(XmNinput, XM_BOOLEAN); - DEFINE_RESOURCE(XmNinputCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNinputMethod, XM_STRING); - DEFINE_RESOURCE(XmNinsertPosition, XM_ORDER_CALLBACK); - DEFINE_RESOURCE(XmNinvalidCursorForeground, XM_PIXEL); - DEFINE_RESOURCE(XmNisAligned, XM_BOOLEAN); - DEFINE_RESOURCE(XmNisHomogeneous, XM_BOOLEAN); - DEFINE_RESOURCE(XmNitemCount, XM_INT); - DEFINE_RESOURCE(XmNitems, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNkeyboardFocusPolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNlabelInsensitivePixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNlabelPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNlabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNlabelType, XM_UCHAR); - DEFINE_RESOURCE(XmNleftAttachment, XM_UCHAR); - DEFINE_RESOURCE(XmNleftOffset, XM_INT); - DEFINE_RESOURCE(XmNleftPosition, XM_INT); - DEFINE_RESOURCE(XmNleftWidget, XM_WIDGET); - DEFINE_RESOURCE(XmNlightThreshold, XM_INT); - DEFINE_RESOURCE(XmNlistItemCount, XM_INT); - DEFINE_RESOURCE(XmNlistItems, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNlistLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNlistMarginHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNlistMarginWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNlistSizePolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNlistSpacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNlistUpdated, XM_BOOLEAN); - DEFINE_RESOURCE(XmNlistVisibleItemCount, XM_INT); - DEFINE_RESOURCE(XmNlosePrimaryCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNlosingFocusCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNmainWindowMarginHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNmainWindowMarginWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNmapCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNmappedWhenManaged, XM_BOOLEAN); - DEFINE_RESOURCE(XmNmappingDelay, XM_INT); - DEFINE_RESOURCE(XmNmargin, XM_DIMENSION); - DEFINE_RESOURCE(XmNmarginBottom, XM_DIMENSION); - DEFINE_RESOURCE(XmNmarginHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNmarginLeft, XM_DIMENSION); - DEFINE_RESOURCE(XmNmarginRight, XM_DIMENSION); - DEFINE_RESOURCE(XmNmarginTop, XM_DIMENSION); - DEFINE_RESOURCE(XmNmarginWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNmask, XM_PIXMAP); - DEFINE_RESOURCE(XmNmaxAspectX, XM_INT); - DEFINE_RESOURCE(XmNmaxAspectY, XM_INT); - DEFINE_RESOURCE(XmNmaxHeight, XM_INT); - DEFINE_RESOURCE(XmNmaxLength, XM_INT); - DEFINE_RESOURCE(XmNmaxWidth, XM_INT); - DEFINE_RESOURCE(XmNmaximum, XM_INT); - DEFINE_RESOURCE(XmNmenuAccelerator, XM_STRING); - DEFINE_RESOURCE(XmNmenuBar, XM_WIDGET); - DEFINE_RESOURCE(XmNmenuCursor, XM_STRING); - DEFINE_RESOURCE(XmNmenuHelpWidget, XM_WIDGET); - DEFINE_RESOURCE(XmNmenuHistory, XM_WIDGET); - DEFINE_RESOURCE(XmNmenuPost, XM_STRING); - DEFINE_RESOURCE(XmNmessageAlignment, XM_UCHAR); - DEFINE_RESOURCE(XmNmessageString, XM_XMSTRING); - DEFINE_RESOURCE(XmNmessageWindow, XM_WIDGET); - DEFINE_RESOURCE(XmNminAspectX, XM_INT); - DEFINE_RESOURCE(XmNminAspectY, XM_INT); - DEFINE_RESOURCE(XmNminHeight, XM_INT); - DEFINE_RESOURCE(XmNminWidth, XM_INT); - DEFINE_RESOURCE(XmNminimizeButtons, XM_BOOLEAN); - DEFINE_RESOURCE(XmNminimum, XM_INT); - DEFINE_RESOURCE(XmNmnemonic, XM_KEYSYM); - DEFINE_RESOURCE(XmNmnemonicCharSet, XM_STRING); - DEFINE_RESOURCE(XmNmodifyVerifyCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNmotionVerifyCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNmoveOpaque, XM_BOOLEAN); - DEFINE_RESOURCE(XmNmultiClick, XM_UCHAR); - DEFINE_RESOURCE(XmNmultipleSelectionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNmustMatch, XM_BOOLEAN); - DEFINE_RESOURCE(XmNmwmDecorations, XM_INT); - DEFINE_RESOURCE(XmNmwmFunctions, XM_INT); - DEFINE_RESOURCE(XmNmwmInputMode, XM_INT); - DEFINE_RESOURCE(XmNmwmMenu, XM_STRING); - DEFINE_RESOURCE(XmNnavigationType, XM_UCHAR); - DEFINE_RESOURCE(XmNnoMatchCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNnoMatchString, XM_XMSTRING); - DEFINE_RESOURCE(XmNnoResize, XM_BOOLEAN); - DEFINE_RESOURCE(XmNnoneCursorForeground, XM_PIXEL); - DEFINE_RESOURCE(XmNnumChildren, XM_INT); - DEFINE_RESOURCE(XmNnumColumns, XM_SHORT); - DEFINE_RESOURCE(XmNnumDropRectangles, XM_INT); - DEFINE_RESOURCE(XmNnumDropTransfers, XM_INT); - DEFINE_RESOURCE(XmNnumExportTargets, XM_INT); - DEFINE_RESOURCE(XmNnumImportTargets, XM_INT); - DEFINE_RESOURCE(XmNoffsetX, XM_POSITION); - DEFINE_RESOURCE(XmNoffsetY, XM_POSITION); - DEFINE_RESOURCE(XmNokCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNokLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNoperationChangedCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNoperationCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNoptionLabel, XM_XMSTRING); - DEFINE_RESOURCE(XmNoptionMnemonic, XM_KEYSYM); - DEFINE_RESOURCE(XmNorientation, XM_UCHAR); - DEFINE_RESOURCE(XmNoverrideRedirect, XM_BOOLEAN); - DEFINE_RESOURCE(XmNpacking, XM_UCHAR); - DEFINE_RESOURCE(XmNpageDecrementCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNpageIncrement, XM_INT); - DEFINE_RESOURCE(XmNpageIncrementCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNpaneMaximum, XM_DIMENSION); - DEFINE_RESOURCE(XmNpaneMinimum, XM_DIMENSION); - DEFINE_RESOURCE(XmNpattern, XM_STRING_OR_XMSTRING); - DEFINE_RESOURCE(XmNpendingDelete, XM_BOOLEAN); - DEFINE_RESOURCE(XmNpixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNpopdownCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNpopupCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNpopupEnabled, XM_INT); /* docs say boolean, but that is incorrect -- see rowcolumn docs */ - DEFINE_RESOURCE(XmNpositionIndex, XM_SHORT); - DEFINE_RESOURCE(XmNpostFromButton, XM_INT); - DEFINE_RESOURCE(XmNpreeditType, XM_STRING); - DEFINE_RESOURCE(XmNprocessingDirection, XM_UCHAR); - DEFINE_RESOURCE(XmNpromptString, XM_XMSTRING); - DEFINE_RESOURCE(XmNpushButtonEnabled, XM_BOOLEAN); - DEFINE_RESOURCE(XmNqualifySearchDataProc, XM_QUALIFY_CALLBACK); - DEFINE_RESOURCE(XmNradioAlwaysOne, XM_BOOLEAN); - DEFINE_RESOURCE(XmNradioBehavior, XM_BOOLEAN); - DEFINE_RESOURCE(XmNrecomputeSize, XM_BOOLEAN); - DEFINE_RESOURCE(XmNrefigureMode, XM_BOOLEAN); - DEFINE_RESOURCE(XmNrepeatDelay, XM_INT); - DEFINE_RESOURCE(XmNresizable, XM_BOOLEAN); - DEFINE_RESOURCE(XmNresizeCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNresizeHeight, XM_BOOLEAN); - DEFINE_RESOURCE(XmNresizePolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNresizeWidth, XM_BOOLEAN); - DEFINE_RESOURCE(XmNrightAttachment, XM_UCHAR); - DEFINE_RESOURCE(XmNrightOffset, XM_INT); - DEFINE_RESOURCE(XmNrightPosition, XM_INT); - DEFINE_RESOURCE(XmNrightWidget, XM_WIDGET); - DEFINE_RESOURCE(XmNrowColumnType, XM_UCHAR); - DEFINE_RESOURCE(XmNrows, XM_SHORT); - DEFINE_RESOURCE(XmNrubberPositioning, XM_BOOLEAN); - DEFINE_RESOURCE(XmNsashHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNsashIndent, XM_POSITION); - DEFINE_RESOURCE(XmNsashShadowThickness, XM_DIMENSION); - DEFINE_RESOURCE(XmNsashWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNsaveUnder, XM_BOOLEAN); - DEFINE_RESOURCE(XmNscaleHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNscaleMultiple, XM_INT); - DEFINE_RESOURCE(XmNscaleWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNscreen, XM_SCREEN); - DEFINE_RESOURCE(XmNscrollBarDisplayPolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNscrollBarPlacement, XM_UCHAR); - DEFINE_RESOURCE(XmNscrollHorizontal, XM_BOOLEAN); - DEFINE_RESOURCE(XmNscrollLeftSide, XM_BOOLEAN); - DEFINE_RESOURCE(XmNscrollTopSide, XM_BOOLEAN); - DEFINE_RESOURCE(XmNscrollVertical, XM_BOOLEAN); - DEFINE_RESOURCE(XmNscrolledWindowMarginHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNscrolledWindowMarginWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNscrollingPolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNselectColor, XM_PIXEL); - DEFINE_RESOURCE(XmNselectInsensitivePixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNselectPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNselectThreshold, XM_INT); - DEFINE_RESOURCE(XmNselectedItemCount, XM_INT); - DEFINE_RESOURCE(XmNselectedItems, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNselectionArray, XM_INT_TABLE); - DEFINE_RESOURCE(XmNselectionArrayCount, XM_INT); - DEFINE_RESOURCE(XmNselectionLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNselectionPolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNsensitive, XM_BOOLEAN); - DEFINE_RESOURCE(XmNseparatorOn, XM_BOOLEAN); - DEFINE_RESOURCE(XmNseparatorType, XM_UCHAR); - DEFINE_RESOURCE(XmNset, XM_UCHAR); - DEFINE_RESOURCE(XmNshadowThickness, XM_DIMENSION); - DEFINE_RESOURCE(XmNshadowType, XM_UCHAR); - DEFINE_RESOURCE(XmNshowArrows, XM_BOOLEAN); - DEFINE_RESOURCE(XmNshowAsDefault, XM_DIMENSION); - DEFINE_RESOURCE(XmNshowSeparator, XM_BOOLEAN); - DEFINE_RESOURCE(XmNshowValue, XM_BOOLEAN_OR_INT); /* should be int, but that's incompatible with tons of existing code */ - DEFINE_RESOURCE(XmNsimpleCallback, XM_CALLBACK); + define_resource(XmNaccelerator, XM_STRING); + define_resource(XmNacceleratorText, XM_XMSTRING); + define_resource(XmNaccelerators, XM_ULONG); + define_resource(XmNactivateCallback, XM_CALLBACK); + define_resource(XmNadjustLast, XM_BOOLEAN); + define_resource(XmNadjustMargin, XM_BOOLEAN); + define_resource(XmNalignment, XM_UCHAR); + define_resource(XmNallowOverlap, XM_BOOLEAN); + define_resource(XmNallowResize, XM_BOOLEAN); + define_resource(XmNallowShellResize, XM_BOOLEAN); + define_resource(XmNancestorSensitive, XM_BOOLEAN); + define_resource(XmNanimationMask, XM_PIXMAP); + define_resource(XmNanimationPixmap, XM_PIXMAP); + define_resource(XmNanimationPixmapDepth, XM_INT); + define_resource(XmNanimationStyle, XM_UCHAR); + define_resource(XmNapplyCallback, XM_CALLBACK); + define_resource(XmNapplyLabelString, XM_XMSTRING); + define_resource(XmNargc, XM_INT); + define_resource(XmNargv, XM_STRING_LIST); + define_resource(XmNarmCallback, XM_CALLBACK); + define_resource(XmNarmColor, XM_PIXEL); + define_resource(XmNarmPixmap, XM_PIXMAP); + define_resource(XmNarrowDirection, XM_UCHAR); + define_resource(XmNattachment, XM_UCHAR); + define_resource(XmNaudibleWarning, XM_UCHAR); + define_resource(XmNautoShowCursorPosition, XM_BOOLEAN); + define_resource(XmNautoUnmanage, XM_BOOLEAN); + define_resource(XmNautomaticSelection, XM_UCHAR); + define_resource(XmNbackground, XM_PIXEL); + define_resource(XmNbackgroundPixmap, XM_PIXMAP); + define_resource(XmNbaseHeight, XM_INT); + define_resource(XmNbaseWidth, XM_INT); + define_resource(XmNbitmap, XM_PIXMAP); + define_resource(XmNblendModel, XM_ULONG); + define_resource(XmNblinkRate, XM_INT); + /* define_resource(XmNborder, XM_ULONG); */ + define_resource(XmNborderColor, XM_PIXEL); + define_resource(XmNborderPixmap, XM_PIXMAP); + define_resource(XmNborderWidth, XM_DIMENSION); + define_resource(XmNbottomAttachment, XM_UCHAR); + define_resource(XmNbottomOffset, XM_INT); + define_resource(XmNbottomPosition, XM_INT); + define_resource(XmNbottomShadowColor, XM_PIXEL); + define_resource(XmNbottomShadowPixmap, XM_PIXMAP); + define_resource(XmNbottomWidget, XM_WIDGET); + define_resource(XmNbrowseSelectionCallback, XM_CALLBACK); + define_resource(XmNbuttonAcceleratorText, XM_STRING_TABLE); + define_resource(XmNbuttonAccelerators, XM_STRING_TABLE); + define_resource(XmNbuttonCount, XM_INT); + define_resource(XmNbuttonMnemonicCharSets, XM_CHARSET_TABLE); + define_resource(XmNbuttonMnemonics, XM_KEYSYM_TABLE); + define_resource(XmNbuttonSet, XM_INT); + define_resource(XmNbuttonType, XM_ULONG); + define_resource(XmNbuttons, XM_STRING_TABLE); + define_resource(XmNcancelButton, XM_WIDGET); + define_resource(XmNcancelCallback, XM_CALLBACK); + define_resource(XmNcancelLabelString, XM_XMSTRING); + define_resource(XmNcascadePixmap, XM_PIXMAP); + define_resource(XmNcascadingCallback, XM_CALLBACK); + define_resource(XmNchildHorizontalAlignment, XM_UCHAR); + define_resource(XmNchildHorizontalSpacing, XM_DIMENSION); + define_resource(XmNchildPlacement, XM_UCHAR); + define_resource(XmNchildVerticalAlignment, XM_UCHAR); + define_resource(XmNchildren, XM_WIDGET_LIST); + define_resource(XmNclientData, XM_XTPOINTER); + define_resource(XmNclipWindow, XM_WIDGET); + define_resource(XmNcolormap, XM_COLORMAP); + define_resource(XmNcolumns, XM_SHORT); + define_resource(XmNcommand, XM_XMSTRING); + define_resource(XmNcommandChangedCallback, XM_CALLBACK); + define_resource(XmNcommandEnteredCallback, XM_CALLBACK); + define_resource(XmNcommandWindow, XM_WIDGET); + define_resource(XmNcommandWindowLocation, XM_UCHAR); + define_resource(XmNconvertProc, XM_CONVERT_CALLBACK); + define_resource(XmNcreatePopupChildProc, XM_POPUP_CALLBACK); + define_resource(XmNcursorBackground, XM_PIXEL); + define_resource(XmNcursorForeground, XM_PIXEL); + define_resource(XmNcursorPosition, XM_INT); + define_resource(XmNcursorPositionVisible, XM_BOOLEAN); + define_resource(XmNdarkThreshold, XM_INT); + define_resource(XmNdecimalPoints, XM_SHORT); + define_resource(XmNdecrementCallback, XM_CALLBACK); + define_resource(XmNdefaultActionCallback, XM_CALLBACK); + define_resource(XmNdefaultButton, XM_WIDGET); + define_resource(XmNdefaultButtonShadowThickness, XM_DIMENSION); + define_resource(XmNdefaultButtonType, XM_UCHAR); + define_resource(XmNdefaultCopyCursorIcon, XM_WIDGET); + define_resource(XmNdefaultInvalidCursorIcon, XM_WIDGET); + define_resource(XmNdefaultLinkCursorIcon, XM_WIDGET); + define_resource(XmNdefaultMoveCursorIcon, XM_WIDGET); + define_resource(XmNdefaultNoneCursorIcon, XM_WIDGET); + define_resource(XmNdefaultPosition, XM_BOOLEAN); + define_resource(XmNdefaultSourceCursorIcon, XM_WIDGET); + define_resource(XmNdefaultValidCursorIcon, XM_WIDGET); + define_resource(XmNdeleteResponse, XM_UCHAR); + define_resource(XmNdepth, XM_INT); + define_resource(XmNdestroyCallback, XM_CALLBACK); + define_resource(XmNdialogStyle, XM_UCHAR); + define_resource(XmNdialogTitle, XM_XMSTRING); + define_resource(XmNdialogType, XM_UCHAR); + define_resource(XmNdirListItemCount, XM_INT); + define_resource(XmNdirListItems, XM_STRING_TABLE); + define_resource(XmNdirListLabelString, XM_XMSTRING); + define_resource(XmNdirMask, XM_XMSTRING); + define_resource(XmNdirSearchProc, XM_SEARCH_CALLBACK); + define_resource(XmNdirSpec, XM_XMSTRING); + define_resource(XmNdirectory, XM_XMSTRING); + define_resource(XmNdirectoryValid, XM_BOOLEAN); + define_resource(XmNdisarmCallback, XM_CALLBACK); + define_resource(XmNdoubleClickInterval, XM_INT); + define_resource(XmNdragCallback, XM_CALLBACK); /* scale slider etc */ + define_resource(XmNdragDropFinishCallback, XM_CALLBACK); + define_resource(XmNdragInitiatorProtocolStyle, XM_UCHAR); + define_resource(XmNdragMotionCallback, XM_CALLBACK); + define_resource(XmNdragOperations, XM_UCHAR); + define_resource(XmNdragProc, XM_DRAG_CALLBACK); /* drag and drop, not scale drag */ + define_resource(XmNdragReceiverProtocolStyle, XM_UCHAR); + define_resource(XmNdropFinishCallback, XM_CALLBACK); + define_resource(XmNdropProc, XM_DROP_CALLBACK); + define_resource(XmNdropRectangles, XM_RECTANGLE_LIST); + define_resource(XmNdropSiteActivity, XM_UCHAR); + define_resource(XmNdropSiteEnterCallback, XM_CALLBACK); + define_resource(XmNdropSiteLeaveCallback, XM_CALLBACK); + define_resource(XmNdropSiteOperations, XM_UCHAR); + define_resource(XmNdropSiteType, XM_UCHAR); + define_resource(XmNdropStartCallback, XM_CALLBACK); + define_resource(XmNdropTransfers, XM_TRANSFER_ENTRY_LIST); + define_resource(XmNeditMode, XM_INT); + define_resource(XmNeditable, XM_BOOLEAN); + define_resource(XmNentryAlignment, XM_UCHAR); + define_resource(XmNentryBorder, XM_DIMENSION); + define_resource(XmNentryCallback, XM_CALLBACK); + define_resource(XmNentryClass, XM_WIDGET_CLASS); + define_resource(XmNentryVerticalAlignment, XM_UCHAR); + define_resource(XmNexportTargets, XM_ATOM_LIST); + define_resource(XmNexposeCallback, XM_CALLBACK); + define_resource(XmNextendedSelectionCallback, XM_CALLBACK); + define_resource(XmNfileListItemCount, XM_INT); + define_resource(XmNfileListItems, XM_STRING_TABLE); + define_resource(XmNfileListLabelString, XM_XMSTRING); + define_resource(XmNfileSearchProc, XM_SEARCH_CALLBACK); + define_resource(XmNfileTypeMask, XM_UCHAR); + define_resource(XmNfillOnArm, XM_BOOLEAN); + define_resource(XmNfillOnSelect, XM_BOOLEAN); + define_resource(XmNfilterLabelString, XM_XMSTRING); + define_resource(XmNfocusCallback, XM_CALLBACK); + define_resource(XmNfont, XM_XFONTSTRUCT); + define_resource(XmNforeground, XM_PIXEL); + define_resource(XmNforegroundThreshold, XM_INT); + define_resource(XmNfractionBase, XM_INT); + define_resource(XmNgainPrimaryCallback, XM_CALLBACK); + define_resource(XmNgeometry, XM_STRING); + define_resource(XmNheight, XM_DIMENSION); + define_resource(XmNheightInc, XM_INT); + define_resource(XmNhelpCallback, XM_CALLBACK); + define_resource(XmNhelpLabelString, XM_XMSTRING); + define_resource(XmNhighlightColor, XM_PIXEL); + define_resource(XmNhighlightOnEnter, XM_BOOLEAN); + define_resource(XmNhighlightPixmap, XM_PIXMAP); + define_resource(XmNhighlightThickness, XM_DIMENSION); + define_resource(XmNhistoryItemCount, XM_INT); + define_resource(XmNhistoryItems, XM_STRING_TABLE); + define_resource(XmNhistoryMaxItems, XM_INT); + define_resource(XmNhistoryVisibleItemCount, XM_INT); + define_resource(XmNhorizontalFontUnit, XM_INT); + define_resource(XmNhorizontalScrollBar, XM_WIDGET); + define_resource(XmNhorizontalSpacing, XM_DIMENSION); + define_resource(XmNhotX, XM_POSITION); + define_resource(XmNhotY, XM_POSITION); + define_resource(XmNiconMask, XM_PIXMAP); + define_resource(XmNiconName, XM_STRING); + define_resource(XmNiconNameEncoding, XM_ATOM); + define_resource(XmNiconPixmap, XM_PIXMAP); + define_resource(XmNiconWindow, XM_WIDGET); + define_resource(XmNiconX, XM_INT); + define_resource(XmNiconY, XM_INT); + define_resource(XmNiconic, XM_BOOLEAN); + define_resource(XmNimportTargets, XM_ATOM_LIST); + define_resource(XmNincrement, XM_INT); + define_resource(XmNincrementCallback, XM_CALLBACK); + define_resource(XmNincremental, XM_BOOLEAN); + define_resource(XmNindicatorOn, XM_INT); + define_resource(XmNindicatorSize, XM_DIMENSION); + define_resource(XmNindicatorType, XM_UCHAR); + define_resource(XmNinitialDelay, XM_INT); + define_resource(XmNinitialFocus, XM_WIDGET); + define_resource(XmNinitialResourcesPersistent, XM_BOOLEAN); + define_resource(XmNinitialState, XM_INT); + define_resource(XmNinput, XM_BOOLEAN); + define_resource(XmNinputCallback, XM_CALLBACK); + define_resource(XmNinputMethod, XM_STRING); + define_resource(XmNinsertPosition, XM_ORDER_CALLBACK); + define_resource(XmNinvalidCursorForeground, XM_PIXEL); + define_resource(XmNisAligned, XM_BOOLEAN); + define_resource(XmNisHomogeneous, XM_BOOLEAN); + define_resource(XmNitemCount, XM_INT); + define_resource(XmNitems, XM_STRING_TABLE); + define_resource(XmNkeyboardFocusPolicy, XM_UCHAR); + define_resource(XmNlabelInsensitivePixmap, XM_PIXMAP); + define_resource(XmNlabelPixmap, XM_PIXMAP); + define_resource(XmNlabelString, XM_XMSTRING); + define_resource(XmNlabelType, XM_UCHAR); + define_resource(XmNleftAttachment, XM_UCHAR); + define_resource(XmNleftOffset, XM_INT); + define_resource(XmNleftPosition, XM_INT); + define_resource(XmNleftWidget, XM_WIDGET); + define_resource(XmNlightThreshold, XM_INT); + define_resource(XmNlistItemCount, XM_INT); + define_resource(XmNlistItems, XM_STRING_TABLE); + define_resource(XmNlistLabelString, XM_XMSTRING); + define_resource(XmNlistMarginHeight, XM_DIMENSION); + define_resource(XmNlistMarginWidth, XM_DIMENSION); + define_resource(XmNlistSizePolicy, XM_UCHAR); + define_resource(XmNlistSpacing, XM_DIMENSION); + define_resource(XmNlistUpdated, XM_BOOLEAN); + define_resource(XmNlistVisibleItemCount, XM_INT); + define_resource(XmNlosePrimaryCallback, XM_CALLBACK); + define_resource(XmNlosingFocusCallback, XM_CALLBACK); + define_resource(XmNmainWindowMarginHeight, XM_DIMENSION); + define_resource(XmNmainWindowMarginWidth, XM_DIMENSION); + define_resource(XmNmapCallback, XM_CALLBACK); + define_resource(XmNmappedWhenManaged, XM_BOOLEAN); + define_resource(XmNmappingDelay, XM_INT); + define_resource(XmNmargin, XM_DIMENSION); + define_resource(XmNmarginBottom, XM_DIMENSION); + define_resource(XmNmarginHeight, XM_DIMENSION); + define_resource(XmNmarginLeft, XM_DIMENSION); + define_resource(XmNmarginRight, XM_DIMENSION); + define_resource(XmNmarginTop, XM_DIMENSION); + define_resource(XmNmarginWidth, XM_DIMENSION); + define_resource(XmNmask, XM_PIXMAP); + define_resource(XmNmaxAspectX, XM_INT); + define_resource(XmNmaxAspectY, XM_INT); + define_resource(XmNmaxHeight, XM_INT); + define_resource(XmNmaxLength, XM_INT); + define_resource(XmNmaxWidth, XM_INT); + define_resource(XmNmaximum, XM_INT); + define_resource(XmNmenuAccelerator, XM_STRING); + define_resource(XmNmenuBar, XM_WIDGET); + define_resource(XmNmenuCursor, XM_STRING); + define_resource(XmNmenuHelpWidget, XM_WIDGET); + define_resource(XmNmenuHistory, XM_WIDGET); + define_resource(XmNmenuPost, XM_STRING); + define_resource(XmNmessageAlignment, XM_UCHAR); + define_resource(XmNmessageString, XM_XMSTRING); + define_resource(XmNmessageWindow, XM_WIDGET); + define_resource(XmNminAspectX, XM_INT); + define_resource(XmNminAspectY, XM_INT); + define_resource(XmNminHeight, XM_INT); + define_resource(XmNminWidth, XM_INT); + define_resource(XmNminimizeButtons, XM_BOOLEAN); + define_resource(XmNminimum, XM_INT); + define_resource(XmNmnemonic, XM_KEYSYM); + define_resource(XmNmnemonicCharSet, XM_STRING); + define_resource(XmNmodifyVerifyCallback, XM_CALLBACK); + define_resource(XmNmotionVerifyCallback, XM_CALLBACK); + define_resource(XmNmoveOpaque, XM_BOOLEAN); + define_resource(XmNmultiClick, XM_UCHAR); + define_resource(XmNmultipleSelectionCallback, XM_CALLBACK); + define_resource(XmNmustMatch, XM_BOOLEAN); + define_resource(XmNmwmDecorations, XM_INT); + define_resource(XmNmwmFunctions, XM_INT); + define_resource(XmNmwmInputMode, XM_INT); + define_resource(XmNmwmMenu, XM_STRING); + define_resource(XmNnavigationType, XM_UCHAR); + define_resource(XmNnoMatchCallback, XM_CALLBACK); + define_resource(XmNnoMatchString, XM_XMSTRING); + define_resource(XmNnoResize, XM_BOOLEAN); + define_resource(XmNnoneCursorForeground, XM_PIXEL); + define_resource(XmNnumChildren, XM_INT); + define_resource(XmNnumColumns, XM_SHORT); + define_resource(XmNnumDropRectangles, XM_INT); + define_resource(XmNnumDropTransfers, XM_INT); + define_resource(XmNnumExportTargets, XM_INT); + define_resource(XmNnumImportTargets, XM_INT); + define_resource(XmNoffsetX, XM_POSITION); + define_resource(XmNoffsetY, XM_POSITION); + define_resource(XmNokCallback, XM_CALLBACK); + define_resource(XmNokLabelString, XM_XMSTRING); + define_resource(XmNoperationChangedCallback, XM_CALLBACK); + define_resource(XmNoperationCursorIcon, XM_WIDGET); + define_resource(XmNoptionLabel, XM_XMSTRING); + define_resource(XmNoptionMnemonic, XM_KEYSYM); + define_resource(XmNorientation, XM_UCHAR); + define_resource(XmNoverrideRedirect, XM_BOOLEAN); + define_resource(XmNpacking, XM_UCHAR); + define_resource(XmNpageDecrementCallback, XM_CALLBACK); + define_resource(XmNpageIncrement, XM_INT); + define_resource(XmNpageIncrementCallback, XM_CALLBACK); + define_resource(XmNpaneMaximum, XM_DIMENSION); + define_resource(XmNpaneMinimum, XM_DIMENSION); + define_resource(XmNpattern, XM_STRING_OR_XMSTRING); + define_resource(XmNpendingDelete, XM_BOOLEAN); + define_resource(XmNpixmap, XM_PIXMAP); + define_resource(XmNpopdownCallback, XM_CALLBACK); + define_resource(XmNpopupCallback, XM_CALLBACK); + define_resource(XmNpopupEnabled, XM_INT); /* docs say boolean, but that is incorrect -- see rowcolumn docs */ + define_resource(XmNpositionIndex, XM_SHORT); + define_resource(XmNpostFromButton, XM_INT); + define_resource(XmNpreeditType, XM_STRING); + define_resource(XmNprocessingDirection, XM_UCHAR); + define_resource(XmNpromptString, XM_XMSTRING); + define_resource(XmNpushButtonEnabled, XM_BOOLEAN); + define_resource(XmNqualifySearchDataProc, XM_QUALIFY_CALLBACK); + define_resource(XmNradioAlwaysOne, XM_BOOLEAN); + define_resource(XmNradioBehavior, XM_BOOLEAN); + define_resource(XmNrecomputeSize, XM_BOOLEAN); + define_resource(XmNrefigureMode, XM_BOOLEAN); + define_resource(XmNrepeatDelay, XM_INT); + define_resource(XmNresizable, XM_BOOLEAN); + define_resource(XmNresizeCallback, XM_CALLBACK); + define_resource(XmNresizeHeight, XM_BOOLEAN); + define_resource(XmNresizePolicy, XM_UCHAR); + define_resource(XmNresizeWidth, XM_BOOLEAN); + define_resource(XmNrightAttachment, XM_UCHAR); + define_resource(XmNrightOffset, XM_INT); + define_resource(XmNrightPosition, XM_INT); + define_resource(XmNrightWidget, XM_WIDGET); + define_resource(XmNrowColumnType, XM_UCHAR); + define_resource(XmNrows, XM_SHORT); + define_resource(XmNrubberPositioning, XM_BOOLEAN); + define_resource(XmNsashHeight, XM_DIMENSION); + define_resource(XmNsashIndent, XM_POSITION); + define_resource(XmNsashShadowThickness, XM_DIMENSION); + define_resource(XmNsashWidth, XM_DIMENSION); + define_resource(XmNsaveUnder, XM_BOOLEAN); + define_resource(XmNscaleHeight, XM_DIMENSION); + define_resource(XmNscaleMultiple, XM_INT); + define_resource(XmNscaleWidth, XM_DIMENSION); + define_resource(XmNscreen, XM_SCREEN); + define_resource(XmNscrollBarDisplayPolicy, XM_UCHAR); + define_resource(XmNscrollBarPlacement, XM_UCHAR); + define_resource(XmNscrollHorizontal, XM_BOOLEAN); + define_resource(XmNscrollLeftSide, XM_BOOLEAN); + define_resource(XmNscrollTopSide, XM_BOOLEAN); + define_resource(XmNscrollVertical, XM_BOOLEAN); + define_resource(XmNscrolledWindowMarginHeight, XM_DIMENSION); + define_resource(XmNscrolledWindowMarginWidth, XM_DIMENSION); + define_resource(XmNscrollingPolicy, XM_UCHAR); + define_resource(XmNselectColor, XM_PIXEL); + define_resource(XmNselectInsensitivePixmap, XM_PIXMAP); + define_resource(XmNselectPixmap, XM_PIXMAP); + define_resource(XmNselectThreshold, XM_INT); + define_resource(XmNselectedItemCount, XM_INT); + define_resource(XmNselectedItems, XM_STRING_TABLE); + define_resource(XmNselectionArray, XM_INT_TABLE); + define_resource(XmNselectionArrayCount, XM_INT); + define_resource(XmNselectionLabelString, XM_XMSTRING); + define_resource(XmNselectionPolicy, XM_UCHAR); + define_resource(XmNsensitive, XM_BOOLEAN); + define_resource(XmNseparatorOn, XM_BOOLEAN); + define_resource(XmNseparatorType, XM_UCHAR); + define_resource(XmNset, XM_UCHAR); + define_resource(XmNshadowThickness, XM_DIMENSION); + define_resource(XmNshadowType, XM_UCHAR); + define_resource(XmNshowArrows, XM_BOOLEAN); + define_resource(XmNshowAsDefault, XM_DIMENSION); + define_resource(XmNshowSeparator, XM_BOOLEAN); + define_resource(XmNshowValue, XM_BOOLEAN_OR_INT); /* should be int, but that's incompatible with tons of existing code */ + define_resource(XmNsimpleCallback, XM_CALLBACK); /* doc p905 calls this an XtCallbackProc (not list), but next pages says it's a list, Motif sources appear to treat it as a proc */ - DEFINE_RESOURCE(XmNsingleSelectionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNskipAdjust, XM_BOOLEAN); - DEFINE_RESOURCE(XmNsliderSize, XM_INT); - DEFINE_RESOURCE(XmNsliderVisual, XM_INT); - DEFINE_RESOURCE(XmNslidingMode, XM_INT); - DEFINE_RESOURCE(XmNsource, XM_TEXT_SOURCE); - DEFINE_RESOURCE(XmNsourceCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNsourcePixmapIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNspacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNspotLocation, XM_INT); - DEFINE_RESOURCE(XmNstateCursorIcon, XM_WIDGET); - DEFINE_RESOURCE(XmNsubMenuId, XM_WIDGET); - DEFINE_RESOURCE(XmNsymbolPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNtearOffMenuActivateCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtearOffMenuDeactivateCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtearOffModel, XM_UCHAR); - DEFINE_RESOURCE(XmNtextAccelerators, XM_ULONG); - DEFINE_RESOURCE(XmNtextColumns, XM_SHORT); - DEFINE_RESOURCE(XmNtextString, XM_XMSTRING); - DEFINE_RESOURCE(XmNtextTranslations, XM_CALLBACK); - DEFINE_RESOURCE(XmNtitle, XM_STRING); - DEFINE_RESOURCE(XmNtitleEncoding, XM_ATOM); - DEFINE_RESOURCE(XmNtitleString, XM_XMSTRING); + define_resource(XmNsingleSelectionCallback, XM_CALLBACK); + define_resource(XmNskipAdjust, XM_BOOLEAN); + define_resource(XmNsliderSize, XM_INT); + define_resource(XmNsliderVisual, XM_INT); + define_resource(XmNslidingMode, XM_INT); + define_resource(XmNsource, XM_TEXT_SOURCE); + define_resource(XmNsourceCursorIcon, XM_WIDGET); + define_resource(XmNsourcePixmapIcon, XM_WIDGET); + define_resource(XmNspacing, XM_DIMENSION); + define_resource(XmNspotLocation, XM_INT); + define_resource(XmNstateCursorIcon, XM_WIDGET); + define_resource(XmNsubMenuId, XM_WIDGET); + define_resource(XmNsymbolPixmap, XM_PIXMAP); + define_resource(XmNtearOffMenuActivateCallback, XM_CALLBACK); + define_resource(XmNtearOffMenuDeactivateCallback, XM_CALLBACK); + define_resource(XmNtearOffModel, XM_UCHAR); + define_resource(XmNtextAccelerators, XM_ULONG); + define_resource(XmNtextColumns, XM_SHORT); + define_resource(XmNtextString, XM_XMSTRING); + define_resource(XmNtextTranslations, XM_CALLBACK); + define_resource(XmNtitle, XM_STRING); + define_resource(XmNtitleEncoding, XM_ATOM); + define_resource(XmNtitleString, XM_XMSTRING); #ifdef XmNtoolTipString - DEFINE_RESOURCE((char *)XmNtoolTipString, XM_XMSTRING); - DEFINE_RESOURCE((char *)XmNtoolTipPostDelay, XM_INT); - DEFINE_RESOURCE((char *)XmNtoolTipPostDuration, XM_INT); - DEFINE_RESOURCE((char *)XmNtoolTipEnable, XM_BOOLEAN); - DEFINE_RESOURCE((char *)XmNanimate, XM_BOOLEAN); + define_resource((char *)XmNtoolTipString, XM_XMSTRING); + define_resource((char *)XmNtoolTipPostDelay, XM_INT); + define_resource((char *)XmNtoolTipPostDuration, XM_INT); + define_resource((char *)XmNtoolTipEnable, XM_BOOLEAN); + define_resource((char *)XmNanimate, XM_BOOLEAN); #endif - DEFINE_RESOURCE(XmNtoBottomCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtoTopCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtopAttachment, XM_UCHAR); - DEFINE_RESOURCE(XmNtopCharacter, XM_INT); - DEFINE_RESOURCE(XmNtopItemPosition, XM_INT); - DEFINE_RESOURCE(XmNtopLevelEnterCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtopLevelLeaveCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtopOffset, XM_INT); - DEFINE_RESOURCE(XmNtopPosition, XM_INT); - DEFINE_RESOURCE(XmNtopShadowColor, XM_PIXEL); - DEFINE_RESOURCE(XmNtopShadowPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNtopWidget, XM_WIDGET); - DEFINE_RESOURCE(XmNtransferProc, XM_TRANSFER_CALLBACK); - DEFINE_RESOURCE(XmNtransferStatus, XM_UCHAR); - DEFINE_RESOURCE(XmNtransient, XM_BOOLEAN); - DEFINE_RESOURCE(XmNtransientFor, XM_WIDGET); - DEFINE_RESOURCE(XmNtranslations, XM_CALLBACK); - DEFINE_RESOURCE(XmNtraversalOn, XM_BOOLEAN); - DEFINE_RESOURCE(XmNtraverseObscuredCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtroughColor, XM_PIXEL); - DEFINE_RESOURCE(XmNunitType, XM_UCHAR); - DEFINE_RESOURCE(XmNunmapCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNunpostBehavior, XM_UCHAR); - DEFINE_RESOURCE(XmNuseAsyncGeometry, XM_BOOLEAN); - DEFINE_RESOURCE(XmNuserData, XM_XTPOINTER); - DEFINE_RESOURCE(XmNvalidCursorForeground, XM_PIXEL); - DEFINE_RESOURCE(XmNvalue, XM_STRING_OR_INT); - DEFINE_RESOURCE(XmNvalueChangedCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNverifyBell, XM_BOOLEAN); - DEFINE_RESOURCE(XmNverticalFontUnit, XM_INT); - DEFINE_RESOURCE(XmNverticalScrollBar, XM_WIDGET); - DEFINE_RESOURCE(XmNverticalSpacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNvisibleItemCount, XM_INT); - DEFINE_RESOURCE(XmNvisibleWhenOff, XM_BOOLEAN); - DEFINE_RESOURCE(XmNvisual, XM_VISUAL); - DEFINE_RESOURCE(XmNvisualPolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNwidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNwidthInc, XM_INT); - DEFINE_RESOURCE(XmNwinGravity, XM_INT); - DEFINE_RESOURCE(XmNwindow, XM_WIDGET); - DEFINE_RESOURCE(XmNwindowGroup, XM_WINDOW); - DEFINE_RESOURCE(XmNwmTimeout, XM_INT); - DEFINE_RESOURCE(XmNwordWrap, XM_BOOLEAN); - DEFINE_RESOURCE(XmNworkWindow, XM_WIDGET); - DEFINE_RESOURCE(XmNx, XM_POSITION); - DEFINE_RESOURCE(XmNy, XM_POSITION); - DEFINE_RESOURCE(XmNarrowLayout, XM_UCHAR); - DEFINE_RESOURCE(XmNarrowOrientation, XM_UCHAR); - DEFINE_RESOURCE(XmNarrowSensitivity, XM_UCHAR); - DEFINE_RESOURCE(XmNarrowSize, XM_INT); - DEFINE_RESOURCE(XmNarrowSpacing, XM_INT); - DEFINE_RESOURCE(XmNautoDragModel, XM_INT); - DEFINE_RESOURCE(XmNbackPageBackground, XM_PIXEL); - DEFINE_RESOURCE(XmNbackPageForeground, XM_PIXEL); - DEFINE_RESOURCE(XmNbackPageNumber, XM_INT); - DEFINE_RESOURCE(XmNbackPagePlacement, XM_UCHAR); - DEFINE_RESOURCE(XmNbackPageSize, XM_DIMENSION); - DEFINE_RESOURCE(XmNbindingPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNbindingType, XM_UCHAR); - DEFINE_RESOURCE(XmNbindingWidth, XM_INT); - DEFINE_RESOURCE(XmNbitmapConversionModel, XM_INT); - DEFINE_RESOURCE(XmNbuttonRenderTable, XM_RENDER_TABLE); - DEFINE_RESOURCE(XmNcollapsedStatePixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNcolorAllocationProc, XM_ALLOC_COLOR_CALLBACK); - DEFINE_RESOURCE(XmNcolorCalculationProc, XM_SCREEN_COLOR_CALLBACK); - DEFINE_RESOURCE(XmNcomboBoxType, XM_UCHAR); - DEFINE_RESOURCE(XmNconvertCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNcurrentPageNumber, XM_INT); - DEFINE_RESOURCE(XmNdecimal, XM_STRING); - DEFINE_RESOURCE(XmNdefaultArrowSensitivity, XM_UCHAR); - DEFINE_RESOURCE(XmNdefaultButtonEmphasis, XM_INT); - DEFINE_RESOURCE(XmNdefaultVirtualBindings, XM_STRING); - DEFINE_RESOURCE(XmNdestinationCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNdetail, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNdetailColumnHeading, XM_INT); - DEFINE_RESOURCE(XmNdetailColumnHeadingCount, XM_INT); - DEFINE_RESOURCE(XmNdetailCount, XM_INT); - DEFINE_RESOURCE(XmNdetailOrder, XM_INT_TABLE); - DEFINE_RESOURCE(XmNdetailOrderCount, XM_INT); - DEFINE_RESOURCE(XmNdetailShadowThickness, XM_INT); - DEFINE_RESOURCE(XmNdetailTabList, XM_TAB_LIST); - DEFINE_RESOURCE(XmNdirTextLabelString, XM_XMSTRING); - DEFINE_RESOURCE(XmNdragStartCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNenableBtn1Transfer, XM_INT); - DEFINE_RESOURCE(XmNenableButtonTab, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableDragIcon, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableEtchedInMenu, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableMultiKeyBindings, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableThinThickness, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableToggleColor, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableToggleVisual, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableUnselectableDrag, XM_BOOLEAN); - DEFINE_RESOURCE(XmNenableWarp, XM_INT); + define_resource(XmNtoBottomCallback, XM_CALLBACK); + define_resource(XmNtoTopCallback, XM_CALLBACK); + define_resource(XmNtopAttachment, XM_UCHAR); + define_resource(XmNtopCharacter, XM_INT); + define_resource(XmNtopItemPosition, XM_INT); + define_resource(XmNtopLevelEnterCallback, XM_CALLBACK); + define_resource(XmNtopLevelLeaveCallback, XM_CALLBACK); + define_resource(XmNtopOffset, XM_INT); + define_resource(XmNtopPosition, XM_INT); + define_resource(XmNtopShadowColor, XM_PIXEL); + define_resource(XmNtopShadowPixmap, XM_PIXMAP); + define_resource(XmNtopWidget, XM_WIDGET); + define_resource(XmNtransferProc, XM_TRANSFER_CALLBACK); + define_resource(XmNtransferStatus, XM_UCHAR); + define_resource(XmNtransient, XM_BOOLEAN); + define_resource(XmNtransientFor, XM_WIDGET); + define_resource(XmNtranslations, XM_CALLBACK); + define_resource(XmNtraversalOn, XM_BOOLEAN); + define_resource(XmNtraverseObscuredCallback, XM_CALLBACK); + define_resource(XmNtroughColor, XM_PIXEL); + define_resource(XmNunitType, XM_UCHAR); + define_resource(XmNunmapCallback, XM_CALLBACK); + define_resource(XmNunpostBehavior, XM_UCHAR); + define_resource(XmNuseAsyncGeometry, XM_BOOLEAN); + define_resource(XmNuserData, XM_XTPOINTER); + define_resource(XmNvalidCursorForeground, XM_PIXEL); + define_resource(XmNvalue, XM_STRING_OR_INT); + define_resource(XmNvalueChangedCallback, XM_CALLBACK); + define_resource(XmNverifyBell, XM_BOOLEAN); + define_resource(XmNverticalFontUnit, XM_INT); + define_resource(XmNverticalScrollBar, XM_WIDGET); + define_resource(XmNverticalSpacing, XM_DIMENSION); + define_resource(XmNvisibleItemCount, XM_INT); + define_resource(XmNvisibleWhenOff, XM_BOOLEAN); + define_resource(XmNvisual, XM_VISUAL); + define_resource(XmNvisualPolicy, XM_UCHAR); + define_resource(XmNwidth, XM_DIMENSION); + define_resource(XmNwidthInc, XM_INT); + define_resource(XmNwinGravity, XM_INT); + define_resource(XmNwindow, XM_WIDGET); + define_resource(XmNwindowGroup, XM_WINDOW); + define_resource(XmNwmTimeout, XM_INT); + define_resource(XmNwordWrap, XM_BOOLEAN); + define_resource(XmNworkWindow, XM_WIDGET); + define_resource(XmNx, XM_POSITION); + define_resource(XmNy, XM_POSITION); + define_resource(XmNarrowLayout, XM_UCHAR); + define_resource(XmNarrowOrientation, XM_UCHAR); + define_resource(XmNarrowSensitivity, XM_UCHAR); + define_resource(XmNarrowSize, XM_INT); + define_resource(XmNarrowSpacing, XM_INT); + define_resource(XmNautoDragModel, XM_INT); + define_resource(XmNbackPageBackground, XM_PIXEL); + define_resource(XmNbackPageForeground, XM_PIXEL); + define_resource(XmNbackPageNumber, XM_INT); + define_resource(XmNbackPagePlacement, XM_UCHAR); + define_resource(XmNbackPageSize, XM_DIMENSION); + define_resource(XmNbindingPixmap, XM_PIXMAP); + define_resource(XmNbindingType, XM_UCHAR); + define_resource(XmNbindingWidth, XM_INT); + define_resource(XmNbitmapConversionModel, XM_INT); + define_resource(XmNbuttonRenderTable, XM_RENDER_TABLE); + define_resource(XmNcollapsedStatePixmap, XM_PIXMAP); + define_resource(XmNcolorAllocationProc, XM_ALLOC_COLOR_CALLBACK); + define_resource(XmNcolorCalculationProc, XM_SCREEN_COLOR_CALLBACK); + define_resource(XmNcomboBoxType, XM_UCHAR); + define_resource(XmNconvertCallback, XM_CALLBACK); + define_resource(XmNcurrentPageNumber, XM_INT); + define_resource(XmNdecimal, XM_STRING); + define_resource(XmNdefaultArrowSensitivity, XM_UCHAR); + define_resource(XmNdefaultButtonEmphasis, XM_INT); + define_resource(XmNdefaultVirtualBindings, XM_STRING); + define_resource(XmNdestinationCallback, XM_CALLBACK); + define_resource(XmNdetail, XM_STRING_TABLE); + define_resource(XmNdetailColumnHeading, XM_INT); + define_resource(XmNdetailColumnHeadingCount, XM_INT); + define_resource(XmNdetailCount, XM_INT); + define_resource(XmNdetailOrder, XM_INT_TABLE); + define_resource(XmNdetailOrderCount, XM_INT); + define_resource(XmNdetailShadowThickness, XM_INT); + define_resource(XmNdetailTabList, XM_TAB_LIST); + define_resource(XmNdirTextLabelString, XM_XMSTRING); + define_resource(XmNdragStartCallback, XM_CALLBACK); + define_resource(XmNenableBtn1Transfer, XM_INT); + define_resource(XmNenableButtonTab, XM_BOOLEAN); + define_resource(XmNenableDragIcon, XM_BOOLEAN); + define_resource(XmNenableEtchedInMenu, XM_BOOLEAN); + define_resource(XmNenableMultiKeyBindings, XM_BOOLEAN); + define_resource(XmNenableThinThickness, XM_BOOLEAN); + define_resource(XmNenableToggleColor, XM_BOOLEAN); + define_resource(XmNenableToggleVisual, XM_BOOLEAN); + define_resource(XmNenableUnselectableDrag, XM_BOOLEAN); + define_resource(XmNenableWarp, XM_INT); #if HAVE_XP - DEFINE_RESOURCE(XmNendJobCallback, XM_CALLBACK); + define_resource(XmNendJobCallback, XM_CALLBACK); #endif - DEFINE_RESOURCE(XmNentryParent, XM_WIDGET); - DEFINE_RESOURCE(XmNentryViewType, XM_UCHAR); - DEFINE_RESOURCE(XmNexpandedStatePixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNfileFilterStyle, XM_INT); - DEFINE_RESOURCE(XmNfirstPageNumber, XM_INT); - DEFINE_RESOURCE(XmNfontName, XM_STRING); - DEFINE_RESOURCE(XmNfontType, XM_UCHAR); - DEFINE_RESOURCE(XmNframeBackground, XM_PIXEL); - DEFINE_RESOURCE(XmNframeChildType, XM_UCHAR); - DEFINE_RESOURCE(XmNframeShadowThickness, XM_DIMENSION); - DEFINE_RESOURCE(XmNgrabStyle, XM_INT); - DEFINE_RESOURCE(XmNincludeStatus, XM_INT); - DEFINE_RESOURCE(XmNincrementValue, XM_INT); - DEFINE_RESOURCE(XmNindeterminateInsensitivePixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNindeterminatePixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNinnerMarginHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNinnerMarginWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNinputPolicy, XM_ULONG); - DEFINE_RESOURCE(XmNinsensitiveStippleBitmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNinvokeParseProc, XM_PARSE_CALLBACK); - DEFINE_RESOURCE(XmNlabelRenderTable, XM_RENDER_TABLE); - DEFINE_RESOURCE(XmNlargeCellHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNlargeCellWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNlargeIconMask, XM_PIXMAP); - DEFINE_RESOURCE(XmNlargeIconPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNlargeIconX, XM_FLOAT); - DEFINE_RESOURCE(XmNlargeIconY, XM_FLOAT); - DEFINE_RESOURCE(XmNlastPageNumber, XM_INT); - DEFINE_RESOURCE(XmNlayoutDirection, XM_UCHAR); - DEFINE_RESOURCE(XmNlayoutType, XM_UCHAR); - DEFINE_RESOURCE(XmNlist, XM_WIDGET); - DEFINE_RESOURCE(XmNloadModel, XM_UCHAR); - DEFINE_RESOURCE(XmNmajorTabSpacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNmatchBehavior, XM_UCHAR); + define_resource(XmNentryParent, XM_WIDGET); + define_resource(XmNentryViewType, XM_UCHAR); + define_resource(XmNexpandedStatePixmap, XM_PIXMAP); + define_resource(XmNfileFilterStyle, XM_INT); + define_resource(XmNfirstPageNumber, XM_INT); + define_resource(XmNfontName, XM_STRING); + define_resource(XmNfontType, XM_UCHAR); + define_resource(XmNframeBackground, XM_PIXEL); + define_resource(XmNframeChildType, XM_UCHAR); + define_resource(XmNframeShadowThickness, XM_DIMENSION); + define_resource(XmNgrabStyle, XM_INT); + define_resource(XmNincludeStatus, XM_INT); + define_resource(XmNincrementValue, XM_INT); + define_resource(XmNindeterminateInsensitivePixmap, XM_PIXMAP); + define_resource(XmNindeterminatePixmap, XM_PIXMAP); + define_resource(XmNinnerMarginHeight, XM_DIMENSION); + define_resource(XmNinnerMarginWidth, XM_DIMENSION); + define_resource(XmNinputPolicy, XM_ULONG); + define_resource(XmNinsensitiveStippleBitmap, XM_PIXMAP); + define_resource(XmNinvokeParseProc, XM_PARSE_CALLBACK); + define_resource(XmNlabelRenderTable, XM_RENDER_TABLE); + define_resource(XmNlargeCellHeight, XM_DIMENSION); + define_resource(XmNlargeCellWidth, XM_DIMENSION); + define_resource(XmNlargeIconMask, XM_PIXMAP); + define_resource(XmNlargeIconPixmap, XM_PIXMAP); + define_resource(XmNlargeIconX, XM_FLOAT); + define_resource(XmNlargeIconY, XM_FLOAT); + define_resource(XmNlastPageNumber, XM_INT); + define_resource(XmNlayoutDirection, XM_UCHAR); + define_resource(XmNlayoutType, XM_UCHAR); + define_resource(XmNlist, XM_WIDGET); + define_resource(XmNloadModel, XM_UCHAR); + define_resource(XmNmajorTabSpacing, XM_DIMENSION); + define_resource(XmNmatchBehavior, XM_UCHAR); #if HAVE_XP - DEFINE_RESOURCE(XmNmaxX, XM_DIMENSION); - DEFINE_RESOURCE(XmNmaxY, XM_DIMENSION); - DEFINE_RESOURCE(XmNminX, XM_DIMENSION); - DEFINE_RESOURCE(XmNminY, XM_DIMENSION); + define_resource(XmNmaxX, XM_DIMENSION); + define_resource(XmNmaxY, XM_DIMENSION); + define_resource(XmNminX, XM_DIMENSION); + define_resource(XmNminY, XM_DIMENSION); #endif - DEFINE_RESOURCE(XmNmaximumValue, XM_INT); - DEFINE_RESOURCE(XmNminimumValue, XM_INT); - DEFINE_RESOURCE(XmNminorTabSpacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNmotifVersion, XM_INT); - DEFINE_RESOURCE(XmNnoFontCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNnoRenditionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNnotebookChildType, XM_UCHAR); - DEFINE_RESOURCE(XmNnumValues, XM_INT); - DEFINE_RESOURCE(XmNoutlineButtonPolicy, XM_UCHAR); - DEFINE_RESOURCE(XmNoutlineChangedCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNoutlineColumnWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNoutlineIndentation, XM_DIMENSION); - DEFINE_RESOURCE(XmNoutlineLineStyle, XM_UCHAR); - DEFINE_RESOURCE(XmNoutlineState, XM_UCHAR); - DEFINE_RESOURCE(XmNpageChangedCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNpageNumber, XM_INT); + define_resource(XmNmaximumValue, XM_INT); + define_resource(XmNminimumValue, XM_INT); + define_resource(XmNminorTabSpacing, XM_DIMENSION); + define_resource(XmNmotifVersion, XM_INT); + define_resource(XmNnoFontCallback, XM_CALLBACK); + define_resource(XmNnoRenditionCallback, XM_CALLBACK); + define_resource(XmNnotebookChildType, XM_UCHAR); + define_resource(XmNnumValues, XM_INT); + define_resource(XmNoutlineButtonPolicy, XM_UCHAR); + define_resource(XmNoutlineChangedCallback, XM_CALLBACK); + define_resource(XmNoutlineColumnWidth, XM_DIMENSION); + define_resource(XmNoutlineIndentation, XM_DIMENSION); + define_resource(XmNoutlineLineStyle, XM_UCHAR); + define_resource(XmNoutlineState, XM_UCHAR); + define_resource(XmNpageChangedCallback, XM_CALLBACK); + define_resource(XmNpageNumber, XM_INT); #if HAVE_XP - DEFINE_RESOURCE(XmNpageSetupCallback, XM_CALLBACK); + define_resource(XmNpageSetupCallback, XM_CALLBACK); #endif - DEFINE_RESOURCE(XmNpathMode, XM_INT); - DEFINE_RESOURCE(XmNpatternType, XM_UCHAR); + define_resource(XmNpathMode, XM_INT); + define_resource(XmNpatternType, XM_UCHAR); #if HAVE_XP - DEFINE_RESOURCE(XmNpdmNotificationCallback, XM_CALLBACK); + define_resource(XmNpdmNotificationCallback, XM_CALLBACK); #endif - DEFINE_RESOURCE(XmNpopupHandlerCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNposition, XM_INT); - DEFINE_RESOURCE(XmNpositionMode, XM_INT); - DEFINE_RESOURCE(XmNpositionType, XM_UCHAR); - DEFINE_RESOURCE(XmNprimaryOwnership, XM_UCHAR); - DEFINE_RESOURCE(XmNrenderTable, XM_RENDER_TABLE); - DEFINE_RESOURCE(XmNrenditionBackground, XM_PIXEL); - DEFINE_RESOURCE(XmNrenditionForeground, XM_PIXEL); - DEFINE_RESOURCE(XmNscrolledWindowChildType, XM_UCHAR); - DEFINE_RESOURCE(XmNselectedItem, XM_XMSTRING); - DEFINE_RESOURCE(XmNselectedObjectCount, XM_INT); - DEFINE_RESOURCE(XmNselectedObjects, XM_WIDGET_LIST); - DEFINE_RESOURCE(XmNselectedPosition, XM_INT); - DEFINE_RESOURCE(XmNselectedPositionCount, XM_INT); - DEFINE_RESOURCE(XmNselectedPositions, XM_INT_TABLE); - DEFINE_RESOURCE(XmNselectionCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNselectionMode, XM_UCHAR); - DEFINE_RESOURCE(XmNselectionTechnique, XM_UCHAR); - DEFINE_RESOURCE(XmNsliderMark, XM_INT); - DEFINE_RESOURCE(XmNsmallCellHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNsmallCellWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNsmallIconMask, XM_PIXMAP); - DEFINE_RESOURCE(XmNsmallIconPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNsmallIconX, XM_FLOAT); - DEFINE_RESOURCE(XmNsmallIconY, XM_FLOAT); - DEFINE_RESOURCE(XmNsnapBackMultiple, XM_SHORT); - DEFINE_RESOURCE(XmNspatialIncludeModel, XM_UCHAR); - DEFINE_RESOURCE(XmNspatialResizeModel, XM_UCHAR); - DEFINE_RESOURCE(XmNspatialSnapModel, XM_UCHAR); - DEFINE_RESOURCE(XmNspatialStyle, XM_UCHAR); - DEFINE_RESOURCE(XmNspinBoxChildType, XM_UCHAR); + define_resource(XmNpopupHandlerCallback, XM_CALLBACK); + define_resource(XmNposition, XM_INT); + define_resource(XmNpositionMode, XM_INT); + define_resource(XmNpositionType, XM_UCHAR); + define_resource(XmNprimaryOwnership, XM_UCHAR); + define_resource(XmNrenderTable, XM_RENDER_TABLE); + define_resource(XmNrenditionBackground, XM_PIXEL); + define_resource(XmNrenditionForeground, XM_PIXEL); + define_resource(XmNscrolledWindowChildType, XM_UCHAR); + define_resource(XmNselectedItem, XM_XMSTRING); + define_resource(XmNselectedObjectCount, XM_INT); + define_resource(XmNselectedObjects, XM_WIDGET_LIST); + define_resource(XmNselectedPosition, XM_INT); + define_resource(XmNselectedPositionCount, XM_INT); + define_resource(XmNselectedPositions, XM_INT_TABLE); + define_resource(XmNselectionCallback, XM_CALLBACK); + define_resource(XmNselectionMode, XM_UCHAR); + define_resource(XmNselectionTechnique, XM_UCHAR); + define_resource(XmNsliderMark, XM_INT); + define_resource(XmNsmallCellHeight, XM_DIMENSION); + define_resource(XmNsmallCellWidth, XM_DIMENSION); + define_resource(XmNsmallIconMask, XM_PIXMAP); + define_resource(XmNsmallIconPixmap, XM_PIXMAP); + define_resource(XmNsmallIconX, XM_FLOAT); + define_resource(XmNsmallIconY, XM_FLOAT); + define_resource(XmNsnapBackMultiple, XM_SHORT); + define_resource(XmNspatialIncludeModel, XM_UCHAR); + define_resource(XmNspatialResizeModel, XM_UCHAR); + define_resource(XmNspatialSnapModel, XM_UCHAR); + define_resource(XmNspatialStyle, XM_UCHAR); + define_resource(XmNspinBoxChildType, XM_UCHAR); #if HAVE_XP - DEFINE_RESOURCE(XmNstartJobCallback, XM_CALLBACK); -#endif - DEFINE_RESOURCE(XmNstrikethruType, XM_UCHAR); - DEFINE_RESOURCE(XmNsubstitute, XM_XMSTRING); - DEFINE_RESOURCE(XmNtabList, XM_TAB_LIST); - DEFINE_RESOURCE(XmNtag, XM_STRING); - DEFINE_RESOURCE(XmNtearOffTitle, XM_XMSTRING); - DEFINE_RESOURCE(XmNtextField, XM_WIDGET); - DEFINE_RESOURCE(XmNtextRenderTable, XM_RENDER_TABLE); - DEFINE_RESOURCE(XmNtoggleMode, XM_UCHAR); - DEFINE_RESOURCE(XmNunderlineType, XM_UCHAR); - DEFINE_RESOURCE(XmNunselectColor, XM_PIXEL); - - DEFINE_RESOURCE(XmNtabValue, XM_FLOAT); - DEFINE_RESOURCE(XmNoffsetModel, XM_INT); - DEFINE_RESOURCE(XmNcallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNwaitForWm, XM_BOOLEAN); - DEFINE_RESOURCE(XmNuseColorObj, XM_BOOLEAN); - DEFINE_RESOURCE(XmNvalues, XM_STRING_TABLE); - /* DEFINE_RESOURCE(XmNverifyPreedit, XM_BOOLEAN); */ - DEFINE_RESOURCE(XmNviewType, XM_UCHAR); - DEFINE_RESOURCE(XmNvisualEmphasis, XM_UCHAR); - DEFINE_RESOURCE(XmNwrap, XM_BOOLEAN); - -#if HAVE_XmCreateFontSelector - /* presumably in a "correct" setup these would be defined in Xm/XmStrDefs.h */ - #ifndef XmNcurrentFont - /* see comment under resource definition above - #define XmN100DPIstring "100DPIstring" - #define XmN75DPIstring "75DPIstring" - */ - #define XmNanyLowerString "anyLowerString" - #define XmNanyString "anyString" - #define XmNboldString "boldString" - #define XmNbothString "bothString" - #define XmNcurrentFont "currentFont" - #define XmNdefaultEncodingString "defaultEncodingString" - #define XmNencodingList "encodingList" - #define XmNencodingString "encodingString" - #define XmNfamilyString "familyString" - #define XmNitalicString "italicString" - #define XmNmonoSpaceString "monoSpaceString" - #define XmNoptionString "optionString" - #define XmNotherString "otherString" - #define XmNpropSpaceString "propSpaceString" - #define XmNsampleText "sampleText" - #define XmNscalingString "scalingString" - #define XmNshowFontName "showFontName" - #define XmNshowNameString "showNameString" - #define XmNsizeString "sizeString" - #define XmNtextRows "textRows" - #define XmNuseScaling "useScaling" - #define XmNxlfdString "xlfdString" - #endif - /* - DEFINE_RESOURCE(XmN100DPIstring, XM_XMSTRING); - DEFINE_RESOURCE(XmN75DPIstring, XM_XMSTRING); - */ - DEFINE_RESOURCE(XmNanyLowerString, XM_XMSTRING); - DEFINE_RESOURCE(XmNanyString, XM_XMSTRING); - DEFINE_RESOURCE(XmNboldString, XM_XMSTRING); - DEFINE_RESOURCE(XmNbothString, XM_XMSTRING); - DEFINE_RESOURCE(XmNcurrentFont, XM_STRING); - DEFINE_RESOURCE(XmNdefaultEncodingString, XM_STRING); - DEFINE_RESOURCE(XmNencodingList, XM_STRING_TABLE); - DEFINE_RESOURCE(XmNencodingString, XM_XMSTRING); - DEFINE_RESOURCE(XmNfamilyString, XM_XMSTRING); - DEFINE_RESOURCE(XmNitalicString, XM_XMSTRING); - DEFINE_RESOURCE(XmNmonoSpaceString, XM_XMSTRING); - DEFINE_RESOURCE(XmNoptionString, XM_XMSTRING); - DEFINE_RESOURCE(XmNotherString, XM_XMSTRING); - DEFINE_RESOURCE(XmNpropSpaceString, XM_XMSTRING); - DEFINE_RESOURCE(XmNsampleText, XM_XMSTRING); - DEFINE_RESOURCE(XmNscalingString, XM_XMSTRING); - DEFINE_RESOURCE(XmNshowFontName, XM_BOOLEAN); - DEFINE_RESOURCE(XmNshowNameString, XM_XMSTRING); - DEFINE_RESOURCE(XmNsizeString, XM_XMSTRING); - DEFINE_RESOURCE(XmNtextRows, XM_DIMENSION); - DEFINE_RESOURCE(XmNuseScaling, XM_BOOLEAN); - DEFINE_RESOURCE(XmNxlfdString, XM_XMSTRING); -#endif -#if HAVE_XmCreateColorSelector - #ifndef XmNblueSliderLabel - #define XmNblueSliderLabel "blueSliderLabel" - #define XmNcolorListTogLabel "colorListTogLabel" - #define XmNcolorMode "colorMode" - #define XmNcolorName "colorName" - #define XmNfileReadError "fileReadError" - #define XmNgreenSliderLabel "greenSliderLabel" - #define XmNnoCellError "noCellError" - #define XmNredSliderLabel "redSliderLabel" - #define XmNrgbFile "rgbFile" - #define XmNsliderTogLabel "sliderTogLabel" - #endif - DEFINE_RESOURCE(XmNblueSliderLabel, XM_XMSTRING); - DEFINE_RESOURCE(XmNcolorListTogLabel, XM_XMSTRING); - DEFINE_RESOURCE(XmNcolorMode, XM_STRING); - DEFINE_RESOURCE(XmNcolorName, XM_STRING); - DEFINE_RESOURCE(XmNfileReadError, XM_XMSTRING); - DEFINE_RESOURCE(XmNgreenSliderLabel, XM_XMSTRING); - DEFINE_RESOURCE(XmNnoCellError, XM_XMSTRING); - DEFINE_RESOURCE(XmNredSliderLabel, XM_XMSTRING); - DEFINE_RESOURCE(XmNrgbFile, XM_STRING); - DEFINE_RESOURCE(XmNsliderTogLabel, XM_XMSTRING); + define_resource(XmNstartJobCallback, XM_CALLBACK); #endif -#if HAVE_XmCreateButtonBox - #ifndef XmNequalSize - #define XmNequalSize "equalSize" - #define XmNfillOption "fillOption" - #endif - DEFINE_RESOURCE(XmNequalSize, XM_BOOLEAN); - DEFINE_RESOURCE(XmNfillOption, XM_INT); -#endif -#ifdef XmNdefaultEntryLabelRenderTable - DEFINE_RESOURCE(XmNdefaultEntryLabelRenderTable, XM_RENDER_TABLE); -#endif -#ifdef XmNentryLabelRenderTable - DEFINE_RESOURCE(XmNentryLabelRenderTable, XM_RENDER_TABLE); -#endif -#ifdef XmNpixmapPlacement - DEFINE_RESOURCE(XmNpixmapPlacement, XM_INT); -#endif -#ifdef XmNpixmapTextPadding - DEFINE_RESOURCE(XmNpixmapTextPadding, XM_INT); -#endif -#if HAVE_XmCreateDataField - #ifndef XmNautoFill - #define XmNautoFill "autoFill" - #define XmNpicture "picture" - #define XmNpictureErrorCallback "pictureErrorCallback" - #define XmNvalidateCallback "validateCallback" - #endif - DEFINE_RESOURCE(XmNautoFill, XM_BOOLEAN); - DEFINE_RESOURCE(XmNpicture, XM_STRING); - DEFINE_RESOURCE(XmNpictureErrorCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNvalidateCallback, XM_CALLBACK); -#endif -#if HAVE_XmCreateColumn - #ifndef XmNdefaultEntryLabelAlignment - #define XmNdefaultEntryLabelAlignment "defaultEntryLabelAlignment" - #define XmNdefaultEntryLabelFontList "defaultEntryLabelFontList" - #define XmNdefaultFillStyle "defaultFillStyle" - #define XmNdistribution "distribution" - #define XmNitemSpacing "itemSpacing" - #define XmNlabelSpacing "labelSpacing" - #define XmNentryLabelAlignment "entryLabelAlignment" - #define XmNentryLabelFontList "entryLabelFontList" - #define XmNentryLabelPixmap "entryLabelPixmap" - #define XmNentryLabelString "entryLabelString" - #define XmNentryLabelType "entryLabelType" - #define XmNfillStyle "fillStyle" - #define XmNshowEntryLabel "showEntryLabel" - #define XmNstretchable "stretchable" - #endif - DEFINE_RESOURCE(XmNdefaultEntryLabelAlignment, XM_INT); - DEFINE_RESOURCE(XmNdefaultEntryLabelFontList, XM_FONTLIST); - DEFINE_RESOURCE(XmNdefaultFillStyle, XM_INT); - DEFINE_RESOURCE(XmNdistribution, XM_INT); - DEFINE_RESOURCE(XmNitemSpacing, XM_INT); - DEFINE_RESOURCE(XmNlabelSpacing, XM_INT); - DEFINE_RESOURCE(XmNentryLabelAlignment, XM_INT); - DEFINE_RESOURCE(XmNentryLabelFontList, XM_FONTLIST); - DEFINE_RESOURCE(XmNentryLabelPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNentryLabelString, XM_XMSTRING); /* ? */ - DEFINE_RESOURCE(XmNentryLabelType, XM_INT); - DEFINE_RESOURCE(XmNfillStyle, XM_INT); - DEFINE_RESOURCE(XmNshowEntryLabel, XM_BOOLEAN); - DEFINE_RESOURCE(XmNstretchable, XM_BOOLEAN); -#endif -#if HAVE_XmCreateDropDown - #ifndef XmNpopupCursor - #define XmNcustomizedCombinationBox "customizedCombinationBox" - #define XmNhorizontalMargin "horizontalMargin" - #define XmNpopupCursor "popupCursor" - #define XmNpopupOffset "popupOffset" - #define XmNpopupShellWidget "popupShellWidget" - #define XmNshowLabel "showLabel" - #define XmNupdateShellCallback "updateShellCallback" - #define XmNupdateTextCallback "updateTextCallback" - #define XmNuseTextField "useTextField" - #define XmNverify "verify" - #define XmNverifyTextCallback "verifyTextCallback" - #define XmNverticalMargin "verticalMargin" - #endif - DEFINE_RESOURCE(XmNcustomizedCombinationBox, XM_BOOLEAN); - DEFINE_RESOURCE(XmNhorizontalMargin, XM_DIMENSION); - DEFINE_RESOURCE(XmNpopupCursor, XM_CURSOR); - DEFINE_RESOURCE(XmNpopupOffset, XM_INT); - DEFINE_RESOURCE(XmNpopupShellWidget, XM_WIDGET); - DEFINE_RESOURCE(XmNshowLabel, XM_BOOLEAN); - DEFINE_RESOURCE(XmNupdateShellCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNupdateTextCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNuseTextField, XM_BOOLEAN); - DEFINE_RESOURCE(XmNverify, XM_BOOLEAN); - DEFINE_RESOURCE(XmNverifyTextCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNverticalMargin, XM_DIMENSION); -#endif -#if HAVE_XmCreateTabStack - #ifndef XmNstackedEffect - #define XmNstackedEffect "stackedEffect" - #define XmNtabAutoSelect "tabAutoSelect" - #define XmNtabCornerPercent "tabCornerPercent" - #define XmNtabLabelSpacing "tabLabelSpacing" - #define XmNtabMarginHeight "tabMarginHeight" - #define XmNtabMarginWidth "tabMarginWidth" - #define XmNtabMode "tabMode" - #define XmNtabOffset "tabOffset" - #define XmNtabOrientation "tabOrientation" - #define XmNtabSelectColor "tabSelectColor" - #define XmNtabSelectedCallback "tabSelectedCallback" - #define XmNtabSelectPixmap "tabSelectPixmap" - #define XmNtabSide "tabSide" - #define XmNtabStyle "tabStyle" - #define XmNuniformTabSize "uniformTabSize" - #define XmNuseImageCache "useImageCache" - #endif - DEFINE_RESOURCE(XmNstackedEffect, XM_BOOLEAN); - DEFINE_RESOURCE(XmNtabAutoSelect, XM_BOOLEAN); - DEFINE_RESOURCE(XmNtabCornerPercent, XM_INT); - DEFINE_RESOURCE(XmNtabLabelSpacing, XM_DIMENSION); - DEFINE_RESOURCE(XmNtabMarginHeight, XM_DIMENSION); - DEFINE_RESOURCE(XmNtabMarginWidth, XM_DIMENSION); - DEFINE_RESOURCE(XmNtabMode, XM_INT); - DEFINE_RESOURCE(XmNtabOffset, XM_DIMENSION); - DEFINE_RESOURCE(XmNtabOrientation, XM_INT); - DEFINE_RESOURCE(XmNtabSelectColor, XM_PIXEL); - DEFINE_RESOURCE(XmNtabSelectedCallback, XM_CALLBACK); - DEFINE_RESOURCE(XmNtabSelectPixmap, XM_PIXMAP); - DEFINE_RESOURCE(XmNtabSide, XM_INT); - DEFINE_RESOURCE(XmNtabStyle, XM_INT); - DEFINE_RESOURCE(XmNuniformTabSize, XM_BOOLEAN); - DEFINE_RESOURCE(XmNuseImageCache, XM_BOOLEAN); -#endif + define_resource(XmNstrikethruType, XM_UCHAR); + define_resource(XmNsubstitute, XM_XMSTRING); + define_resource(XmNtabList, XM_TAB_LIST); + define_resource(XmNtag, XM_STRING); + define_resource(XmNtearOffTitle, XM_XMSTRING); + define_resource(XmNtextField, XM_WIDGET); + define_resource(XmNtextRenderTable, XM_RENDER_TABLE); + define_resource(XmNtoggleMode, XM_UCHAR); + define_resource(XmNunderlineType, XM_UCHAR); + define_resource(XmNunselectColor, XM_PIXEL); + + define_resource(XmNtabValue, XM_FLOAT); + define_resource(XmNoffsetModel, XM_INT); + define_resource(XmNcallback, XM_CALLBACK); + define_resource(XmNwaitForWm, XM_BOOLEAN); + define_resource(XmNuseColorObj, XM_BOOLEAN); + define_resource(XmNvalues, XM_STRING_TABLE); + /* define_resource(XmNverifyPreedit, XM_BOOLEAN); */ + define_resource(XmNviewType, XM_UCHAR); + define_resource(XmNvisualEmphasis, XM_UCHAR); + define_resource(XmNwrap, XM_BOOLEAN); qsort((void *)xm_hash, hd_ctr, sizeof(hdata *), alphabet_compare); { - int i, n; + int i; for (i = 0; i < LINKS_SIZE; i++) hd_links[i] = hd_ctr; for (i = 0; i < hd_ctr; i++) { + int n; n = (int)(xm_hash[i]->name[0]) - 97; /* (char->integer #\a) */ -#if MUS_DEBUGGING - if ((n < 0) || (n >= LINKS_SIZE)) - { - fprintf(stderr, "index %s at %d\n", xm_hash[i]->name, n); - abort(); - } -#endif if (hd_links[n] > i) hd_links[n] = i; } } } -#endif -#if HAVE_MOTIF + #define S_add_resource "add-resource" -static XEN g_add_resource(XEN nam, XEN typ) +static Xen g_add_resource(Xen nam, Xen typ) { #define H_add_resource "(" S_add_resource " name type) adds the resource 'name' with the libxm type 'type'. \ The types are defined in xm.c around line 679. To add XmNhiho as an integer: \n\ (define XmNhiho (add-resource \"hiho\" 0))" - XEN_ASSERT_TYPE(XEN_STRING_P(nam), nam, XEN_ARG_1, S_add_resource, "a string"); - XEN_ASSERT_TYPE(XEN_INTEGER_P(typ), typ, XEN_ARG_2, S_add_resource, "an integer"); - hash_resource(XEN_TO_C_STRING(nam), (xm_resource_t)XEN_TO_C_INT(typ)); + Xen_check_type(Xen_is_string(nam), nam, 1, S_add_resource, "a string"); + Xen_check_type(Xen_is_integer(typ), typ, 2, S_add_resource, "an integer"); + hash_resource(Xen_string_to_C_string(nam), (xm_resource_t)Xen_integer_to_C_int(typ)); return(nam); } -#ifdef XEN_ARGIFY_1 - XEN_NARGIFY_2(g_add_resource_w, g_add_resource) -#else - #define g_add_resource_w g_add_resource -#endif -#endif +Xen_wrap_2_args(g_add_resource_w, g_add_resource) /* -------------------------------- integer constants -------------------------------- */ static void define_integers(void) { -#if HAVE_SCHEME - #define DEFINE_INTEGER(Name) s7_define_constant(s7, XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_INT(Name)) - #define DEFINE_ULONG(Name) s7_define_constant(s7, XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_ULONG(Name)) -#else - #define DEFINE_INTEGER(Name) XEN_DEFINE(XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_INT(Name)) - #define DEFINE_ULONG(Name) XEN_DEFINE(XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_ULONG(Name)) -#endif + #define define_integer(Name) Xen_define(XM_PREFIX #Name XM_POSTFIX, C_int_to_Xen_integer(Name)) + #define define_ulong(Name) Xen_define(XM_PREFIX #Name XM_POSTFIX, C_ulong_to_Xen_ulong(Name)) - DEFINE_ULONG(AllPlanes); - DEFINE_INTEGER(XC_num_glyphs); - DEFINE_INTEGER(XC_X_cursor); - DEFINE_INTEGER(XC_arrow); - DEFINE_INTEGER(XC_based_arrow_down); - DEFINE_INTEGER(XC_based_arrow_up); - DEFINE_INTEGER(XC_boat); - DEFINE_INTEGER(XC_bogosity); - DEFINE_INTEGER(XC_bottom_left_corner); - DEFINE_INTEGER(XC_bottom_right_corner); - DEFINE_INTEGER(XC_bottom_side); - DEFINE_INTEGER(XC_bottom_tee); - DEFINE_INTEGER(XC_box_spiral); - DEFINE_INTEGER(XC_center_ptr); - DEFINE_INTEGER(XC_circle); - DEFINE_INTEGER(XC_clock); - DEFINE_INTEGER(XC_coffee_mug); - DEFINE_INTEGER(XC_cross); - DEFINE_INTEGER(XC_cross_reverse); - DEFINE_INTEGER(XC_crosshair); - DEFINE_INTEGER(XC_diamond_cross); - DEFINE_INTEGER(XC_dot); - DEFINE_INTEGER(XC_dotbox); - DEFINE_INTEGER(XC_double_arrow); - DEFINE_INTEGER(XC_draft_large); - DEFINE_INTEGER(XC_draft_small); - DEFINE_INTEGER(XC_draped_box); - DEFINE_INTEGER(XC_exchange); - DEFINE_INTEGER(XC_fleur); - DEFINE_INTEGER(XC_gobbler); - DEFINE_INTEGER(XC_gumby); - DEFINE_INTEGER(XC_hand1); - DEFINE_INTEGER(XC_hand2); - DEFINE_INTEGER(XC_heart); - DEFINE_INTEGER(XC_icon); - DEFINE_INTEGER(XC_iron_cross); - DEFINE_INTEGER(XC_left_ptr); - DEFINE_INTEGER(XC_left_side); - DEFINE_INTEGER(XC_left_tee); - DEFINE_INTEGER(XC_leftbutton); - DEFINE_INTEGER(XC_ll_angle); - DEFINE_INTEGER(XC_lr_angle); - DEFINE_INTEGER(XC_man); - DEFINE_INTEGER(XC_middlebutton); - DEFINE_INTEGER(XC_mouse); - DEFINE_INTEGER(XC_pencil); - DEFINE_INTEGER(XC_pirate); - DEFINE_INTEGER(XC_plus); - DEFINE_INTEGER(XC_question_arrow); - DEFINE_INTEGER(XC_right_ptr); - DEFINE_INTEGER(XC_right_side); - DEFINE_INTEGER(XC_right_tee); - DEFINE_INTEGER(XC_rightbutton); - DEFINE_INTEGER(XC_rtl_logo); - DEFINE_INTEGER(XC_sailboat); - DEFINE_INTEGER(XC_sb_down_arrow); - DEFINE_INTEGER(XC_sb_h_double_arrow); - DEFINE_INTEGER(XC_sb_left_arrow); - DEFINE_INTEGER(XC_sb_right_arrow); - DEFINE_INTEGER(XC_sb_up_arrow); - DEFINE_INTEGER(XC_sb_v_double_arrow); - DEFINE_INTEGER(XC_shuttle); - DEFINE_INTEGER(XC_sizing); - DEFINE_INTEGER(XC_spider); - DEFINE_INTEGER(XC_spraycan); - DEFINE_INTEGER(XC_star); - DEFINE_INTEGER(XC_target); - DEFINE_INTEGER(XC_tcross); - DEFINE_INTEGER(XC_top_left_arrow); - DEFINE_INTEGER(XC_top_left_corner); - DEFINE_INTEGER(XC_top_right_corner); - DEFINE_INTEGER(XC_top_side); - DEFINE_INTEGER(XC_top_tee); - DEFINE_INTEGER(XC_trek); - DEFINE_INTEGER(XC_ul_angle); - DEFINE_INTEGER(XC_umbrella); - DEFINE_INTEGER(XC_ur_angle); - DEFINE_INTEGER(XC_watch); - DEFINE_INTEGER(XC_xterm); - DEFINE_INTEGER(None); - DEFINE_INTEGER(ParentRelative); - DEFINE_INTEGER(CopyFromParent); - DEFINE_INTEGER(PointerWindow); - DEFINE_INTEGER(InputFocus); - DEFINE_INTEGER(PointerRoot); - DEFINE_INTEGER(AnyPropertyType); - DEFINE_INTEGER(AnyKey); - DEFINE_INTEGER(AnyButton); - DEFINE_INTEGER(AllTemporary); - DEFINE_INTEGER(CurrentTime); - DEFINE_INTEGER(NoSymbol); - DEFINE_INTEGER(NoEventMask); - DEFINE_INTEGER(KeyPressMask); - DEFINE_INTEGER(KeyReleaseMask); - DEFINE_INTEGER(ButtonPressMask); - DEFINE_INTEGER(ButtonReleaseMask); - DEFINE_INTEGER(EnterWindowMask); - DEFINE_INTEGER(LeaveWindowMask); - DEFINE_INTEGER(PointerMotionMask); - DEFINE_INTEGER(PointerMotionHintMask); - DEFINE_INTEGER(Button1MotionMask); - DEFINE_INTEGER(Button2MotionMask); - DEFINE_INTEGER(Button3MotionMask); - DEFINE_INTEGER(Button4MotionMask); - DEFINE_INTEGER(Button5MotionMask); - DEFINE_INTEGER(ButtonMotionMask); - DEFINE_INTEGER(KeymapStateMask); - DEFINE_INTEGER(ExposureMask); - DEFINE_INTEGER(VisibilityChangeMask); - DEFINE_INTEGER(StructureNotifyMask); - DEFINE_INTEGER(ResizeRedirectMask); - DEFINE_INTEGER(SubstructureNotifyMask); - DEFINE_INTEGER(SubstructureRedirectMask); - DEFINE_INTEGER(FocusChangeMask); - DEFINE_INTEGER(PropertyChangeMask); - DEFINE_INTEGER(ColormapChangeMask); - DEFINE_INTEGER(OwnerGrabButtonMask); - DEFINE_INTEGER(KeyPress); - DEFINE_INTEGER(KeyRelease); - DEFINE_INTEGER(ButtonPress); - DEFINE_INTEGER(ButtonRelease); - DEFINE_INTEGER(MotionNotify); - DEFINE_INTEGER(EnterNotify); - DEFINE_INTEGER(LeaveNotify); - DEFINE_INTEGER(FocusIn); - DEFINE_INTEGER(FocusOut); - DEFINE_INTEGER(KeymapNotify); - DEFINE_INTEGER(Expose); - DEFINE_INTEGER(GraphicsExpose); - DEFINE_INTEGER(NoExpose); - DEFINE_INTEGER(VisibilityNotify); - DEFINE_INTEGER(CreateNotify); - DEFINE_INTEGER(DestroyNotify); - DEFINE_INTEGER(UnmapNotify); - DEFINE_INTEGER(MapNotify); - DEFINE_INTEGER(MapRequest); - DEFINE_INTEGER(ReparentNotify); - DEFINE_INTEGER(ConfigureNotify); - DEFINE_INTEGER(ConfigureRequest); - DEFINE_INTEGER(GravityNotify); - DEFINE_INTEGER(ResizeRequest); - DEFINE_INTEGER(CirculateNotify); - DEFINE_INTEGER(CirculateRequest); - DEFINE_INTEGER(PropertyNotify); - DEFINE_INTEGER(SelectionClear); - DEFINE_INTEGER(SelectionRequest); - DEFINE_INTEGER(SelectionNotify); - DEFINE_INTEGER(ColormapNotify); - DEFINE_INTEGER(ClientMessage); - DEFINE_INTEGER(MappingNotify); - DEFINE_INTEGER(ShiftMask); - DEFINE_INTEGER(LockMask); - DEFINE_INTEGER(ControlMask); - DEFINE_INTEGER(Mod1Mask); - DEFINE_INTEGER(Mod2Mask); - DEFINE_INTEGER(Mod3Mask); - DEFINE_INTEGER(Mod4Mask); - DEFINE_INTEGER(Mod5Mask); - DEFINE_INTEGER(ShiftMapIndex); - DEFINE_INTEGER(LockMapIndex); - DEFINE_INTEGER(ControlMapIndex); - DEFINE_INTEGER(Mod1MapIndex); - DEFINE_INTEGER(Mod2MapIndex); - DEFINE_INTEGER(Mod3MapIndex); - DEFINE_INTEGER(Mod4MapIndex); - DEFINE_INTEGER(Mod5MapIndex); - DEFINE_INTEGER(Button1Mask); - DEFINE_INTEGER(Button2Mask); - DEFINE_INTEGER(Button3Mask); - DEFINE_INTEGER(Button4Mask); - DEFINE_INTEGER(Button5Mask); - DEFINE_INTEGER(AnyModifier); - DEFINE_INTEGER(Button1); - DEFINE_INTEGER(Button2); - DEFINE_INTEGER(Button3); - DEFINE_INTEGER(Button4); - DEFINE_INTEGER(Button5); - DEFINE_INTEGER(NotifyNormal); - DEFINE_INTEGER(NotifyGrab); - DEFINE_INTEGER(NotifyUngrab); - DEFINE_INTEGER(NotifyWhileGrabbed); - DEFINE_INTEGER(NotifyHint); - DEFINE_INTEGER(NotifyAncestor); - DEFINE_INTEGER(NotifyVirtual); - DEFINE_INTEGER(NotifyInferior); - DEFINE_INTEGER(NotifyNonlinear); - DEFINE_INTEGER(NotifyNonlinearVirtual); - DEFINE_INTEGER(NotifyPointer); - DEFINE_INTEGER(NotifyPointerRoot); - DEFINE_INTEGER(NotifyDetailNone); - DEFINE_INTEGER(VisibilityUnobscured); - DEFINE_INTEGER(VisibilityPartiallyObscured); - DEFINE_INTEGER(VisibilityFullyObscured); - DEFINE_INTEGER(PlaceOnTop); - DEFINE_INTEGER(PlaceOnBottom); - DEFINE_INTEGER(FamilyInternet); - DEFINE_INTEGER(FamilyDECnet); - DEFINE_INTEGER(FamilyChaos); - DEFINE_INTEGER(PropertyNewValue); - DEFINE_INTEGER(PropertyDelete); - DEFINE_INTEGER(ColormapUninstalled); - DEFINE_INTEGER(ColormapInstalled); - DEFINE_INTEGER(GrabModeSync); - DEFINE_INTEGER(GrabModeAsync); - DEFINE_INTEGER(GrabSuccess); - DEFINE_INTEGER(AlreadyGrabbed); - DEFINE_INTEGER(GrabInvalidTime); - DEFINE_INTEGER(GrabNotViewable); - DEFINE_INTEGER(GrabFrozen); - DEFINE_INTEGER(AsyncPointer); - DEFINE_INTEGER(SyncPointer); - DEFINE_INTEGER(ReplayPointer); - DEFINE_INTEGER(AsyncKeyboard); - DEFINE_INTEGER(SyncKeyboard); - DEFINE_INTEGER(ReplayKeyboard); - DEFINE_INTEGER(AsyncBoth); - DEFINE_INTEGER(SyncBoth); - DEFINE_INTEGER(RevertToNone); - DEFINE_INTEGER(RevertToPointerRoot); - DEFINE_INTEGER(RevertToParent); - DEFINE_INTEGER(Success); - DEFINE_INTEGER(BadRequest); - DEFINE_INTEGER(BadValue); - DEFINE_INTEGER(BadWindow); - DEFINE_INTEGER(BadPixmap); - DEFINE_INTEGER(BadAtom); - DEFINE_INTEGER(BadCursor); - DEFINE_INTEGER(BadFont); - DEFINE_INTEGER(BadMatch); - DEFINE_INTEGER(BadDrawable); - DEFINE_INTEGER(BadAccess); - DEFINE_INTEGER(BadAlloc); - DEFINE_INTEGER(BadColor); - DEFINE_INTEGER(BadGC); - DEFINE_INTEGER(BadIDChoice); - DEFINE_INTEGER(BadName); - DEFINE_INTEGER(BadLength); - DEFINE_INTEGER(BadImplementation); - DEFINE_INTEGER(InputOutput); - DEFINE_INTEGER(InputOnly); - DEFINE_INTEGER(UnmapGravity); - DEFINE_INTEGER(NotUseful); - DEFINE_INTEGER(WhenMapped); - DEFINE_INTEGER(Always); - DEFINE_INTEGER(IsUnmapped); - DEFINE_INTEGER(IsUnviewable); - DEFINE_INTEGER(IsViewable); - DEFINE_INTEGER(SetModeInsert); - DEFINE_INTEGER(SetModeDelete); - DEFINE_INTEGER(DestroyAll); - DEFINE_INTEGER(RetainPermanent); - DEFINE_INTEGER(RetainTemporary); - DEFINE_INTEGER(CWBackPixmap); - DEFINE_INTEGER(CWBackPixel); - DEFINE_INTEGER(CWBorderPixmap); - DEFINE_INTEGER(CWBorderPixel); - DEFINE_INTEGER(CWBitGravity); - DEFINE_INTEGER(CWWinGravity); - DEFINE_INTEGER(CWBackingStore); - DEFINE_INTEGER(CWBackingPlanes); - DEFINE_INTEGER(CWBackingPixel); - DEFINE_INTEGER(CWOverrideRedirect); - DEFINE_INTEGER(CWSaveUnder); - DEFINE_INTEGER(CWEventMask); - DEFINE_INTEGER(CWDontPropagate); - DEFINE_INTEGER(CWColormap); - DEFINE_INTEGER(CWCursor); - DEFINE_INTEGER(CWX); - DEFINE_INTEGER(CWY); - DEFINE_INTEGER(CWWidth); - DEFINE_INTEGER(CWHeight); - DEFINE_INTEGER(CWBorderWidth); - DEFINE_INTEGER(CWSibling); - DEFINE_INTEGER(CWStackMode); - DEFINE_INTEGER(ForgetGravity); - DEFINE_INTEGER(NorthWestGravity); - DEFINE_INTEGER(NorthGravity); - DEFINE_INTEGER(NorthEastGravity); - DEFINE_INTEGER(WestGravity); - DEFINE_INTEGER(CenterGravity); - DEFINE_INTEGER(EastGravity); - DEFINE_INTEGER(SouthWestGravity); - DEFINE_INTEGER(SouthGravity); - DEFINE_INTEGER(SouthEastGravity); - DEFINE_INTEGER(StaticGravity); - DEFINE_INTEGER(Above); - DEFINE_INTEGER(Below); - DEFINE_INTEGER(TopIf); - DEFINE_INTEGER(BottomIf); - DEFINE_INTEGER(Opposite); - DEFINE_INTEGER(RaiseLowest); - DEFINE_INTEGER(LowerHighest); - DEFINE_INTEGER(PropModeReplace); - DEFINE_INTEGER(PropModePrepend); - DEFINE_INTEGER(PropModeAppend); - DEFINE_INTEGER(KBKeyClickPercent); - DEFINE_INTEGER(KBBellPercent); - DEFINE_INTEGER(KBBellPitch); - DEFINE_INTEGER(KBBellDuration); - DEFINE_INTEGER(KBLed); - DEFINE_INTEGER(KBLedMode); - DEFINE_INTEGER(KBKey); - DEFINE_INTEGER(KBAutoRepeatMode); - DEFINE_INTEGER(AutoRepeatModeOff); - DEFINE_INTEGER(AutoRepeatModeOn); - DEFINE_INTEGER(AutoRepeatModeDefault); - DEFINE_INTEGER(LedModeOff); - DEFINE_INTEGER(LedModeOn); - DEFINE_INTEGER(GXclear); - DEFINE_INTEGER(GXand); - DEFINE_INTEGER(GXandReverse); - DEFINE_INTEGER(GXcopy); - DEFINE_INTEGER(GXandInverted); - DEFINE_INTEGER(GXnoop); - DEFINE_INTEGER(GXxor); - DEFINE_INTEGER(GXor); - DEFINE_INTEGER(GXnor); - DEFINE_INTEGER(GXequiv); - DEFINE_INTEGER(GXinvert); - DEFINE_INTEGER(GXorReverse); - DEFINE_INTEGER(GXcopyInverted); - DEFINE_INTEGER(GXorInverted); - DEFINE_INTEGER(GXnand); - DEFINE_INTEGER(GXset); - DEFINE_INTEGER(LineSolid); - DEFINE_INTEGER(LineOnOffDash); - DEFINE_INTEGER(LineDoubleDash); - DEFINE_INTEGER(CapNotLast); - DEFINE_INTEGER(CapButt); - DEFINE_INTEGER(CapRound); - DEFINE_INTEGER(CapProjecting); - DEFINE_INTEGER(JoinMiter); - DEFINE_INTEGER(JoinRound); - DEFINE_INTEGER(JoinBevel); - DEFINE_INTEGER(FillSolid); - DEFINE_INTEGER(FillTiled); - DEFINE_INTEGER(FillStippled); - DEFINE_INTEGER(FillOpaqueStippled); - DEFINE_INTEGER(EvenOddRule); - DEFINE_INTEGER(WindingRule); - DEFINE_INTEGER(ClipByChildren); - DEFINE_INTEGER(IncludeInferiors); - DEFINE_INTEGER(Unsorted); - DEFINE_INTEGER(YSorted); - DEFINE_INTEGER(YXSorted); - DEFINE_INTEGER(YXBanded); - DEFINE_INTEGER(CoordModeOrigin); - DEFINE_INTEGER(CoordModePrevious); - DEFINE_INTEGER(Complex); - DEFINE_INTEGER(Nonconvex); - DEFINE_INTEGER(Convex); - DEFINE_INTEGER(ArcChord); - DEFINE_INTEGER(ArcPieSlice); - DEFINE_INTEGER(GCFunction); - DEFINE_INTEGER(GCPlaneMask); - DEFINE_INTEGER(GCForeground); - DEFINE_INTEGER(GCBackground); - DEFINE_INTEGER(GCLineWidth); - DEFINE_INTEGER(GCLineStyle); - DEFINE_INTEGER(GCCapStyle); - DEFINE_INTEGER(GCJoinStyle); - DEFINE_INTEGER(GCFillStyle); - DEFINE_INTEGER(GCFillRule); - DEFINE_INTEGER(GCTile); - DEFINE_INTEGER(GCStipple); - DEFINE_INTEGER(GCTileStipXOrigin); - DEFINE_INTEGER(GCTileStipYOrigin); - DEFINE_INTEGER(GCFont); - DEFINE_INTEGER(GCSubwindowMode); - DEFINE_INTEGER(GCGraphicsExposures); - DEFINE_INTEGER(GCClipXOrigin); - DEFINE_INTEGER(GCClipYOrigin); - DEFINE_INTEGER(GCClipMask); - DEFINE_INTEGER(GCDashOffset); - DEFINE_INTEGER(GCDashList); - DEFINE_INTEGER(GCArcMode); - DEFINE_INTEGER(GCLastBit); - DEFINE_INTEGER(FontLeftToRight); - DEFINE_INTEGER(FontRightToLeft); - DEFINE_INTEGER(FontChange); - DEFINE_INTEGER(XYBitmap); - DEFINE_INTEGER(XYPixmap); - DEFINE_INTEGER(ZPixmap); - DEFINE_INTEGER(AllocNone); - DEFINE_INTEGER(AllocAll); - DEFINE_INTEGER(DoRed); - DEFINE_INTEGER(DoGreen); - DEFINE_INTEGER(DoBlue); - DEFINE_INTEGER(CursorShape); - DEFINE_INTEGER(TileShape); - DEFINE_INTEGER(StippleShape); - DEFINE_INTEGER(MappingSuccess); - DEFINE_INTEGER(MappingBusy); - DEFINE_INTEGER(MappingFailed); - DEFINE_INTEGER(MappingModifier); - DEFINE_INTEGER(MappingKeyboard); - DEFINE_INTEGER(MappingPointer); - - DEFINE_INTEGER(DontPreferBlanking); - DEFINE_INTEGER(PreferBlanking); - DEFINE_INTEGER(DefaultBlanking); - DEFINE_INTEGER(DisableScreenSaver); - DEFINE_INTEGER(DisableScreenInterval); - DEFINE_INTEGER(DontAllowExposures); - DEFINE_INTEGER(AllowExposures); - DEFINE_INTEGER(DefaultExposures); - DEFINE_INTEGER(ScreenSaverReset); - DEFINE_INTEGER(ScreenSaverActive); - - DEFINE_INTEGER(StaticGray); - DEFINE_INTEGER(GrayScale); - DEFINE_INTEGER(StaticColor); - DEFINE_INTEGER(PseudoColor); - DEFINE_INTEGER(TrueColor); - DEFINE_INTEGER(DirectColor); - -#if HAVE_MOTIF - DEFINE_INTEGER(XtInputNoneMask); - DEFINE_INTEGER(XtInputReadMask); - DEFINE_INTEGER(XtInputWriteMask); - DEFINE_INTEGER(XtInputExceptMask); + define_ulong(AllPlanes); + define_integer(XC_num_glyphs); + define_integer(XC_X_cursor); + define_integer(XC_arrow); + define_integer(XC_based_arrow_down); + define_integer(XC_based_arrow_up); + define_integer(XC_boat); + define_integer(XC_bogosity); + define_integer(XC_bottom_left_corner); + define_integer(XC_bottom_right_corner); + define_integer(XC_bottom_side); + define_integer(XC_bottom_tee); + define_integer(XC_box_spiral); + define_integer(XC_center_ptr); + define_integer(XC_circle); + define_integer(XC_clock); + define_integer(XC_coffee_mug); + define_integer(XC_cross); + define_integer(XC_cross_reverse); + define_integer(XC_crosshair); + define_integer(XC_diamond_cross); + define_integer(XC_dot); + define_integer(XC_dotbox); + define_integer(XC_double_arrow); + define_integer(XC_draft_large); + define_integer(XC_draft_small); + define_integer(XC_draped_box); + define_integer(XC_exchange); + define_integer(XC_fleur); + define_integer(XC_gobbler); + define_integer(XC_gumby); + define_integer(XC_hand1); + define_integer(XC_hand2); + define_integer(XC_heart); + define_integer(XC_icon); + define_integer(XC_iron_cross); + define_integer(XC_left_ptr); + define_integer(XC_left_side); + define_integer(XC_left_tee); + define_integer(XC_leftbutton); + define_integer(XC_ll_angle); + define_integer(XC_lr_angle); + define_integer(XC_man); + define_integer(XC_middlebutton); + define_integer(XC_mouse); + define_integer(XC_pencil); + define_integer(XC_pirate); + define_integer(XC_plus); + define_integer(XC_question_arrow); + define_integer(XC_right_ptr); + define_integer(XC_right_side); + define_integer(XC_right_tee); + define_integer(XC_rightbutton); + define_integer(XC_rtl_logo); + define_integer(XC_sailboat); + define_integer(XC_sb_down_arrow); + define_integer(XC_sb_h_double_arrow); + define_integer(XC_sb_left_arrow); + define_integer(XC_sb_right_arrow); + define_integer(XC_sb_up_arrow); + define_integer(XC_sb_v_double_arrow); + define_integer(XC_shuttle); + define_integer(XC_sizing); + define_integer(XC_spider); + define_integer(XC_spraycan); + define_integer(XC_star); + define_integer(XC_target); + define_integer(XC_tcross); + define_integer(XC_top_left_arrow); + define_integer(XC_top_left_corner); + define_integer(XC_top_right_corner); + define_integer(XC_top_side); + define_integer(XC_top_tee); + define_integer(XC_trek); + define_integer(XC_ul_angle); + define_integer(XC_umbrella); + define_integer(XC_ur_angle); + define_integer(XC_watch); + define_integer(XC_xterm); + define_integer(None); + define_integer(ParentRelative); + define_integer(CopyFromParent); + define_integer(PointerWindow); + define_integer(InputFocus); + define_integer(PointerRoot); + define_integer(AnyPropertyType); + define_integer(AnyKey); + define_integer(AnyButton); + define_integer(AllTemporary); + define_integer(CurrentTime); + define_integer(NoSymbol); + define_integer(NoEventMask); + define_integer(KeyPressMask); + define_integer(KeyReleaseMask); + define_integer(ButtonPressMask); + define_integer(ButtonReleaseMask); + define_integer(EnterWindowMask); + define_integer(LeaveWindowMask); + define_integer(PointerMotionMask); + define_integer(PointerMotionHintMask); + define_integer(Button1MotionMask); + define_integer(Button2MotionMask); + define_integer(Button3MotionMask); + define_integer(Button4MotionMask); + define_integer(Button5MotionMask); + define_integer(ButtonMotionMask); + define_integer(KeymapStateMask); + define_integer(ExposureMask); + define_integer(VisibilityChangeMask); + define_integer(StructureNotifyMask); + define_integer(ResizeRedirectMask); + define_integer(SubstructureNotifyMask); + define_integer(SubstructureRedirectMask); + define_integer(FocusChangeMask); + define_integer(PropertyChangeMask); + define_integer(ColormapChangeMask); + define_integer(OwnerGrabButtonMask); + define_integer(KeyPress); + define_integer(KeyRelease); + define_integer(ButtonPress); + define_integer(ButtonRelease); + define_integer(MotionNotify); + define_integer(EnterNotify); + define_integer(LeaveNotify); + define_integer(FocusIn); + define_integer(FocusOut); + define_integer(KeymapNotify); + define_integer(Expose); + define_integer(GraphicsExpose); + define_integer(NoExpose); + define_integer(VisibilityNotify); + define_integer(CreateNotify); + define_integer(DestroyNotify); + define_integer(UnmapNotify); + define_integer(MapNotify); + define_integer(MapRequest); + define_integer(ReparentNotify); + define_integer(ConfigureNotify); + define_integer(ConfigureRequest); + define_integer(GravityNotify); + define_integer(ResizeRequest); + define_integer(CirculateNotify); + define_integer(CirculateRequest); + define_integer(PropertyNotify); + define_integer(SelectionClear); + define_integer(SelectionRequest); + define_integer(SelectionNotify); + define_integer(ColormapNotify); + define_integer(ClientMessage); + define_integer(MappingNotify); + define_integer(ShiftMask); + define_integer(LockMask); + define_integer(ControlMask); + define_integer(Mod1Mask); + define_integer(Mod2Mask); + define_integer(Mod3Mask); + define_integer(Mod4Mask); + define_integer(Mod5Mask); + define_integer(ShiftMapIndex); + define_integer(LockMapIndex); + define_integer(ControlMapIndex); + define_integer(Mod1MapIndex); + define_integer(Mod2MapIndex); + define_integer(Mod3MapIndex); + define_integer(Mod4MapIndex); + define_integer(Mod5MapIndex); + define_integer(Button1Mask); + define_integer(Button2Mask); + define_integer(Button3Mask); + define_integer(Button4Mask); + define_integer(Button5Mask); + define_integer(AnyModifier); + define_integer(Button1); + define_integer(Button2); + define_integer(Button3); + define_integer(Button4); + define_integer(Button5); + define_integer(NotifyNormal); + define_integer(NotifyGrab); + define_integer(NotifyUngrab); + define_integer(NotifyWhileGrabbed); + define_integer(NotifyHint); + define_integer(NotifyAncestor); + define_integer(NotifyVirtual); + define_integer(NotifyInferior); + define_integer(NotifyNonlinear); + define_integer(NotifyNonlinearVirtual); + define_integer(NotifyPointer); + define_integer(NotifyPointerRoot); + define_integer(NotifyDetailNone); + define_integer(VisibilityUnobscured); + define_integer(VisibilityPartiallyObscured); + define_integer(VisibilityFullyObscured); + define_integer(PlaceOnTop); + define_integer(PlaceOnBottom); + define_integer(FamilyInternet); + define_integer(FamilyDECnet); + define_integer(FamilyChaos); + define_integer(PropertyNewValue); + define_integer(PropertyDelete); + define_integer(ColormapUninstalled); + define_integer(ColormapInstalled); + define_integer(GrabModeSync); + define_integer(GrabModeAsync); + define_integer(GrabSuccess); + define_integer(AlreadyGrabbed); + define_integer(GrabInvalidTime); + define_integer(GrabNotViewable); + define_integer(GrabFrozen); + define_integer(AsyncPointer); + define_integer(SyncPointer); + define_integer(ReplayPointer); + define_integer(AsyncKeyboard); + define_integer(SyncKeyboard); + define_integer(ReplayKeyboard); + define_integer(AsyncBoth); + define_integer(SyncBoth); + define_integer(RevertToNone); + define_integer(RevertToPointerRoot); + define_integer(RevertToParent); + define_integer(Success); + define_integer(BadRequest); + define_integer(BadValue); + define_integer(BadWindow); + define_integer(BadPixmap); + define_integer(BadAtom); + define_integer(BadCursor); + define_integer(BadFont); + define_integer(BadMatch); + define_integer(BadDrawable); + define_integer(BadAccess); + define_integer(BadAlloc); + define_integer(BadColor); + define_integer(BadGC); + define_integer(BadIDChoice); + define_integer(BadName); + define_integer(BadLength); + define_integer(BadImplementation); + define_integer(InputOutput); + define_integer(InputOnly); + define_integer(UnmapGravity); + define_integer(NotUseful); + define_integer(WhenMapped); + define_integer(Always); + define_integer(IsUnmapped); + define_integer(IsUnviewable); + define_integer(IsViewable); + define_integer(SetModeInsert); + define_integer(SetModeDelete); + define_integer(DestroyAll); + define_integer(RetainPermanent); + define_integer(RetainTemporary); + define_integer(CWBackPixmap); + define_integer(CWBackPixel); + define_integer(CWBorderPixmap); + define_integer(CWBorderPixel); + define_integer(CWBitGravity); + define_integer(CWWinGravity); + define_integer(CWBackingStore); + define_integer(CWBackingPlanes); + define_integer(CWBackingPixel); + define_integer(CWOverrideRedirect); + define_integer(CWSaveUnder); + define_integer(CWEventMask); + define_integer(CWDontPropagate); + define_integer(CWColormap); + define_integer(CWCursor); + define_integer(CWX); + define_integer(CWY); + define_integer(CWWidth); + define_integer(CWHeight); + define_integer(CWBorderWidth); + define_integer(CWSibling); + define_integer(CWStackMode); + define_integer(ForgetGravity); + define_integer(NorthWestGravity); + define_integer(NorthGravity); + define_integer(NorthEastGravity); + define_integer(WestGravity); + define_integer(CenterGravity); + define_integer(EastGravity); + define_integer(SouthWestGravity); + define_integer(SouthGravity); + define_integer(SouthEastGravity); + define_integer(StaticGravity); + define_integer(Above); + define_integer(Below); + define_integer(TopIf); + define_integer(BottomIf); + define_integer(Opposite); + define_integer(RaiseLowest); + define_integer(LowerHighest); + define_integer(PropModeReplace); + define_integer(PropModePrepend); + define_integer(PropModeAppend); + define_integer(KBKeyClickPercent); + define_integer(KBBellPercent); + define_integer(KBBellPitch); + define_integer(KBBellDuration); + define_integer(KBLed); + define_integer(KBLedMode); + define_integer(KBKey); + define_integer(KBAutoRepeatMode); + define_integer(AutoRepeatModeOff); + define_integer(AutoRepeatModeOn); + define_integer(AutoRepeatModeDefault); + define_integer(LedModeOff); + define_integer(LedModeOn); + define_integer(GXclear); + define_integer(GXand); + define_integer(GXandReverse); + define_integer(GXcopy); + define_integer(GXandInverted); + define_integer(GXnoop); + define_integer(GXxor); + define_integer(GXor); + define_integer(GXnor); + define_integer(GXequiv); + define_integer(GXinvert); + define_integer(GXorReverse); + define_integer(GXcopyInverted); + define_integer(GXorInverted); + define_integer(GXnand); + define_integer(GXset); + define_integer(LineSolid); + define_integer(LineOnOffDash); + define_integer(LineDoubleDash); + define_integer(CapNotLast); + define_integer(CapButt); + define_integer(CapRound); + define_integer(CapProjecting); + define_integer(JoinMiter); + define_integer(JoinRound); + define_integer(JoinBevel); + define_integer(FillSolid); + define_integer(FillTiled); + define_integer(FillStippled); + define_integer(FillOpaqueStippled); + define_integer(EvenOddRule); + define_integer(WindingRule); + define_integer(ClipByChildren); + define_integer(IncludeInferiors); + define_integer(Unsorted); + define_integer(YSorted); + define_integer(YXSorted); + define_integer(YXBanded); + define_integer(CoordModeOrigin); + define_integer(CoordModePrevious); + define_integer(Complex); + define_integer(Nonconvex); + define_integer(Convex); + define_integer(ArcChord); + define_integer(ArcPieSlice); + define_integer(GCFunction); + define_integer(GCPlaneMask); + define_integer(GCForeground); + define_integer(GCBackground); + define_integer(GCLineWidth); + define_integer(GCLineStyle); + define_integer(GCCapStyle); + define_integer(GCJoinStyle); + define_integer(GCFillStyle); + define_integer(GCFillRule); + define_integer(GCTile); + define_integer(GCStipple); + define_integer(GCTileStipXOrigin); + define_integer(GCTileStipYOrigin); + define_integer(GCFont); + define_integer(GCSubwindowMode); + define_integer(GCGraphicsExposures); + define_integer(GCClipXOrigin); + define_integer(GCClipYOrigin); + define_integer(GCClipMask); + define_integer(GCDashOffset); + define_integer(GCDashList); + define_integer(GCArcMode); + define_integer(GCLastBit); + define_integer(FontLeftToRight); + define_integer(FontRightToLeft); + define_integer(FontChange); + define_integer(XYBitmap); + define_integer(XYPixmap); + define_integer(ZPixmap); + define_integer(AllocNone); + define_integer(AllocAll); + define_integer(DoRed); + define_integer(DoGreen); + define_integer(DoBlue); + define_integer(CursorShape); + define_integer(TileShape); + define_integer(StippleShape); + define_integer(MappingSuccess); + define_integer(MappingBusy); + define_integer(MappingFailed); + define_integer(MappingModifier); + define_integer(MappingKeyboard); + define_integer(MappingPointer); + + define_integer(DontPreferBlanking); + define_integer(PreferBlanking); + define_integer(DefaultBlanking); + define_integer(DisableScreenSaver); + define_integer(DisableScreenInterval); + define_integer(DontAllowExposures); + define_integer(AllowExposures); + define_integer(DefaultExposures); + define_integer(ScreenSaverReset); + define_integer(ScreenSaverActive); + + define_integer(StaticGray); + define_integer(GrayScale); + define_integer(StaticColor); + define_integer(PseudoColor); + define_integer(TrueColor); + define_integer(DirectColor); + + define_integer(XtInputNoneMask); + define_integer(XtInputReadMask); + define_integer(XtInputWriteMask); + define_integer(XtInputExceptMask); /* XtAllEvents is unsigned long EventMask: #define XtAllEvents ((EventMask) -1L) * which I assume should be positive */ #if 0 - DEFINE_INTEGER(XtAllEvents); + define_integer(XtAllEvents); #else - DEFINE_ULONG(XtAllEvents); + define_ulong(XtAllEvents); #endif - DEFINE_INTEGER(XtIMXEvent); - DEFINE_INTEGER(XtIMTimer); - DEFINE_INTEGER(XtIMAlternateInput); - DEFINE_INTEGER(XtIMSignal); - DEFINE_INTEGER(XtIMAll); - DEFINE_INTEGER(XtUnspecifiedPixmap); - DEFINE_INTEGER(XtUnspecifiedShellInt); - DEFINE_INTEGER(XtUnspecifiedWindow); - DEFINE_INTEGER(XtUnspecifiedWindowGroup); - DEFINE_INTEGER(XT_CONVERT_FAIL); -#endif - DEFINE_INTEGER(XlibSpecificationRelease); - DEFINE_INTEGER(QueuedAlready); - DEFINE_INTEGER(QueuedAfterReading); - DEFINE_INTEGER(QueuedAfterFlush); - DEFINE_INTEGER(XBufferOverflow); - DEFINE_INTEGER(XLookupNone); - DEFINE_INTEGER(XLookupChars); - DEFINE_INTEGER(XLookupKeySym); - DEFINE_INTEGER(XLookupBoth); - DEFINE_INTEGER(XK_VoidSymbol); - DEFINE_INTEGER(XK_BackSpace); - DEFINE_INTEGER(XK_Tab); - DEFINE_INTEGER(XK_Linefeed); - DEFINE_INTEGER(XK_Clear); - DEFINE_INTEGER(XK_Return); - DEFINE_INTEGER(XK_Pause); - DEFINE_INTEGER(XK_Scroll_Lock); - DEFINE_INTEGER(XK_Sys_Req); - DEFINE_INTEGER(XK_Escape); - DEFINE_INTEGER(XK_Delete); - DEFINE_INTEGER(XK_Home); - DEFINE_INTEGER(XK_Left); - DEFINE_INTEGER(XK_Up); - DEFINE_INTEGER(XK_Right); - DEFINE_INTEGER(XK_Down); - DEFINE_INTEGER(XK_Prior); - DEFINE_INTEGER(XK_Page_Up); - DEFINE_INTEGER(XK_Next); - DEFINE_INTEGER(XK_Page_Down); - DEFINE_INTEGER(XK_End); - DEFINE_INTEGER(XK_Begin); - DEFINE_INTEGER(XK_Select); - DEFINE_INTEGER(XK_Print); - DEFINE_INTEGER(XK_Execute); - DEFINE_INTEGER(XK_Insert); - DEFINE_INTEGER(XK_Undo); - DEFINE_INTEGER(XK_Redo); - DEFINE_INTEGER(XK_Menu); - DEFINE_INTEGER(XK_Find); - DEFINE_INTEGER(XK_Cancel); - DEFINE_INTEGER(XK_Help); - DEFINE_INTEGER(XK_Break); - DEFINE_INTEGER(XK_Mode_switch); - DEFINE_INTEGER(XK_script_switch); - DEFINE_INTEGER(XK_Num_Lock); - DEFINE_INTEGER(XK_KP_Space); - DEFINE_INTEGER(XK_KP_Tab); - DEFINE_INTEGER(XK_KP_Enter); - DEFINE_INTEGER(XK_KP_F1); - DEFINE_INTEGER(XK_KP_F2); - DEFINE_INTEGER(XK_KP_F3); - DEFINE_INTEGER(XK_KP_F4); - DEFINE_INTEGER(XK_KP_Home); - DEFINE_INTEGER(XK_KP_Left); - DEFINE_INTEGER(XK_KP_Up); - DEFINE_INTEGER(XK_KP_Right); - DEFINE_INTEGER(XK_KP_Down); - DEFINE_INTEGER(XK_KP_Prior); - DEFINE_INTEGER(XK_KP_Page_Up); - DEFINE_INTEGER(XK_KP_Next); - DEFINE_INTEGER(XK_KP_Page_Down); - DEFINE_INTEGER(XK_KP_End); - DEFINE_INTEGER(XK_KP_Begin); - DEFINE_INTEGER(XK_KP_Insert); - DEFINE_INTEGER(XK_KP_Delete); - DEFINE_INTEGER(XK_KP_Equal); - DEFINE_INTEGER(XK_KP_Multiply); - DEFINE_INTEGER(XK_KP_Add); - DEFINE_INTEGER(XK_KP_Separator); - DEFINE_INTEGER(XK_KP_Subtract); - DEFINE_INTEGER(XK_KP_Decimal); - DEFINE_INTEGER(XK_KP_Divide); - DEFINE_INTEGER(XK_KP_0); - DEFINE_INTEGER(XK_KP_1); - DEFINE_INTEGER(XK_KP_2); - DEFINE_INTEGER(XK_KP_3); - DEFINE_INTEGER(XK_KP_4); - DEFINE_INTEGER(XK_KP_5); - DEFINE_INTEGER(XK_KP_6); - DEFINE_INTEGER(XK_KP_7); - DEFINE_INTEGER(XK_KP_8); - DEFINE_INTEGER(XK_KP_9); - DEFINE_INTEGER(XK_F1); - DEFINE_INTEGER(XK_F2); - DEFINE_INTEGER(XK_F3); - DEFINE_INTEGER(XK_F4); - DEFINE_INTEGER(XK_F5); - DEFINE_INTEGER(XK_F6); - DEFINE_INTEGER(XK_F7); - DEFINE_INTEGER(XK_F8); - DEFINE_INTEGER(XK_F9); - DEFINE_INTEGER(XK_F10); - DEFINE_INTEGER(XK_F11); - DEFINE_INTEGER(XK_L1); - DEFINE_INTEGER(XK_F12); - DEFINE_INTEGER(XK_L2); - DEFINE_INTEGER(XK_F13); - DEFINE_INTEGER(XK_L3); - DEFINE_INTEGER(XK_F14); - DEFINE_INTEGER(XK_L4); - DEFINE_INTEGER(XK_F15); - DEFINE_INTEGER(XK_L5); - DEFINE_INTEGER(XK_F16); - DEFINE_INTEGER(XK_L6); - DEFINE_INTEGER(XK_F17); - DEFINE_INTEGER(XK_L7); - DEFINE_INTEGER(XK_F18); - DEFINE_INTEGER(XK_L8); - DEFINE_INTEGER(XK_F19); - DEFINE_INTEGER(XK_L9); - DEFINE_INTEGER(XK_F20); - DEFINE_INTEGER(XK_L10); - DEFINE_INTEGER(XK_F21); - DEFINE_INTEGER(XK_R1); - DEFINE_INTEGER(XK_F22); - DEFINE_INTEGER(XK_R2); - DEFINE_INTEGER(XK_F23); - DEFINE_INTEGER(XK_R3); - DEFINE_INTEGER(XK_F24); - DEFINE_INTEGER(XK_R4); - DEFINE_INTEGER(XK_F25); - DEFINE_INTEGER(XK_R5); - DEFINE_INTEGER(XK_F26); - DEFINE_INTEGER(XK_R6); - DEFINE_INTEGER(XK_F27); - DEFINE_INTEGER(XK_R7); - DEFINE_INTEGER(XK_F28); - DEFINE_INTEGER(XK_R8); - DEFINE_INTEGER(XK_F29); - DEFINE_INTEGER(XK_R9); - DEFINE_INTEGER(XK_F30); - DEFINE_INTEGER(XK_R10); - DEFINE_INTEGER(XK_F31); - DEFINE_INTEGER(XK_R11); - DEFINE_INTEGER(XK_F32); - DEFINE_INTEGER(XK_R12); - DEFINE_INTEGER(XK_F33); - DEFINE_INTEGER(XK_R13); - DEFINE_INTEGER(XK_F34); - DEFINE_INTEGER(XK_R14); - DEFINE_INTEGER(XK_F35); - DEFINE_INTEGER(XK_R15); - DEFINE_INTEGER(XK_Shift_L); - DEFINE_INTEGER(XK_Shift_R); - DEFINE_INTEGER(XK_Control_L); - DEFINE_INTEGER(XK_Control_R); - DEFINE_INTEGER(XK_Caps_Lock); - DEFINE_INTEGER(XK_Shift_Lock); - DEFINE_INTEGER(XK_Meta_L); - DEFINE_INTEGER(XK_Meta_R); - DEFINE_INTEGER(XK_Alt_L); - DEFINE_INTEGER(XK_Alt_R); - DEFINE_INTEGER(XK_Super_L); - DEFINE_INTEGER(XK_Super_R); - DEFINE_INTEGER(XK_Hyper_L); - DEFINE_INTEGER(XK_Hyper_R); - DEFINE_INTEGER(XK_space); - DEFINE_INTEGER(XK_exclam); - DEFINE_INTEGER(XK_quotedbl); - DEFINE_INTEGER(XK_numbersign); - DEFINE_INTEGER(XK_dollar); - DEFINE_INTEGER(XK_percent); - DEFINE_INTEGER(XK_ampersand); - DEFINE_INTEGER(XK_apostrophe); - DEFINE_INTEGER(XK_quoteright); - DEFINE_INTEGER(XK_parenleft); - DEFINE_INTEGER(XK_parenright); - DEFINE_INTEGER(XK_asterisk); - DEFINE_INTEGER(XK_plus); - DEFINE_INTEGER(XK_comma); - DEFINE_INTEGER(XK_minus); - DEFINE_INTEGER(XK_period); - DEFINE_INTEGER(XK_slash); - DEFINE_INTEGER(XK_0); - DEFINE_INTEGER(XK_1); - DEFINE_INTEGER(XK_2); - DEFINE_INTEGER(XK_3); - DEFINE_INTEGER(XK_4); - DEFINE_INTEGER(XK_5); - DEFINE_INTEGER(XK_6); - DEFINE_INTEGER(XK_7); - DEFINE_INTEGER(XK_8); - DEFINE_INTEGER(XK_9); - DEFINE_INTEGER(XK_colon); - DEFINE_INTEGER(XK_semicolon); - DEFINE_INTEGER(XK_less); - DEFINE_INTEGER(XK_equal); - DEFINE_INTEGER(XK_greater); - DEFINE_INTEGER(XK_question); - DEFINE_INTEGER(XK_at); - DEFINE_INTEGER(XK_A); - DEFINE_INTEGER(XK_B); - DEFINE_INTEGER(XK_C); - DEFINE_INTEGER(XK_D); - DEFINE_INTEGER(XK_E); - DEFINE_INTEGER(XK_F); - DEFINE_INTEGER(XK_G); - DEFINE_INTEGER(XK_H); - DEFINE_INTEGER(XK_I); - DEFINE_INTEGER(XK_J); - DEFINE_INTEGER(XK_K); - DEFINE_INTEGER(XK_L); - DEFINE_INTEGER(XK_M); - DEFINE_INTEGER(XK_N); - DEFINE_INTEGER(XK_O); - DEFINE_INTEGER(XK_P); - DEFINE_INTEGER(XK_Q); - DEFINE_INTEGER(XK_R); - DEFINE_INTEGER(XK_S); - DEFINE_INTEGER(XK_T); - DEFINE_INTEGER(XK_U); - DEFINE_INTEGER(XK_V); - DEFINE_INTEGER(XK_W); - DEFINE_INTEGER(XK_X); - DEFINE_INTEGER(XK_Y); - DEFINE_INTEGER(XK_Z); - DEFINE_INTEGER(XK_bracketleft); - DEFINE_INTEGER(XK_backslash); - DEFINE_INTEGER(XK_bracketright); - DEFINE_INTEGER(XK_asciicircum); - DEFINE_INTEGER(XK_underscore); - DEFINE_INTEGER(XK_grave); - DEFINE_INTEGER(XK_quoteleft); - DEFINE_INTEGER(XK_a); - DEFINE_INTEGER(XK_b); - DEFINE_INTEGER(XK_c); - DEFINE_INTEGER(XK_d); - DEFINE_INTEGER(XK_e); - DEFINE_INTEGER(XK_f); - DEFINE_INTEGER(XK_g); - DEFINE_INTEGER(XK_h); - DEFINE_INTEGER(XK_i); - DEFINE_INTEGER(XK_j); - DEFINE_INTEGER(XK_k); - DEFINE_INTEGER(XK_l); - DEFINE_INTEGER(XK_m); - DEFINE_INTEGER(XK_n); - DEFINE_INTEGER(XK_o); - DEFINE_INTEGER(XK_p); - DEFINE_INTEGER(XK_q); - DEFINE_INTEGER(XK_r); - DEFINE_INTEGER(XK_s); - DEFINE_INTEGER(XK_t); - DEFINE_INTEGER(XK_u); - DEFINE_INTEGER(XK_v); - DEFINE_INTEGER(XK_w); - DEFINE_INTEGER(XK_x); - DEFINE_INTEGER(XK_y); - DEFINE_INTEGER(XK_z); - DEFINE_INTEGER(XK_braceleft); - DEFINE_INTEGER(XK_bar); - DEFINE_INTEGER(XK_braceright); - DEFINE_INTEGER(XK_asciitilde); - DEFINE_INTEGER(XK_nobreakspace); - DEFINE_INTEGER(XK_exclamdown); - DEFINE_INTEGER(XK_cent); - DEFINE_INTEGER(XK_sterling); - DEFINE_INTEGER(XK_currency); - DEFINE_INTEGER(XK_yen); - DEFINE_INTEGER(XK_brokenbar); - DEFINE_INTEGER(XK_section); - DEFINE_INTEGER(XK_diaeresis); - DEFINE_INTEGER(XK_copyright); - DEFINE_INTEGER(XK_ordfeminine); - DEFINE_INTEGER(XK_guillemotleft); - DEFINE_INTEGER(XK_notsign); - DEFINE_INTEGER(XK_hyphen); - DEFINE_INTEGER(XK_registered); - DEFINE_INTEGER(XK_macron); - DEFINE_INTEGER(XK_degree); - DEFINE_INTEGER(XK_plusminus); - DEFINE_INTEGER(XK_twosuperior); - DEFINE_INTEGER(XK_threesuperior); - DEFINE_INTEGER(XK_acute); - DEFINE_INTEGER(XK_mu); - DEFINE_INTEGER(XK_paragraph); - DEFINE_INTEGER(XK_periodcentered); - DEFINE_INTEGER(XK_cedilla); - DEFINE_INTEGER(XK_onesuperior); - DEFINE_INTEGER(XK_masculine); - DEFINE_INTEGER(XK_guillemotright); - DEFINE_INTEGER(XK_onequarter); - DEFINE_INTEGER(XK_onehalf); - DEFINE_INTEGER(XK_threequarters); - DEFINE_INTEGER(XK_questiondown); - DEFINE_INTEGER(XK_Agrave); - DEFINE_INTEGER(XK_Aacute); - DEFINE_INTEGER(XK_Acircumflex); - DEFINE_INTEGER(XK_Atilde); - DEFINE_INTEGER(XK_Adiaeresis); - DEFINE_INTEGER(XK_Aring); - DEFINE_INTEGER(XK_AE); - DEFINE_INTEGER(XK_Ccedilla); - DEFINE_INTEGER(XK_Egrave); - DEFINE_INTEGER(XK_Eacute); - DEFINE_INTEGER(XK_Ecircumflex); - DEFINE_INTEGER(XK_Ediaeresis); - DEFINE_INTEGER(XK_Igrave); - DEFINE_INTEGER(XK_Iacute); - DEFINE_INTEGER(XK_Icircumflex); - DEFINE_INTEGER(XK_Idiaeresis); - DEFINE_INTEGER(XK_ETH); - DEFINE_INTEGER(XK_Eth); - DEFINE_INTEGER(XK_Ntilde); - DEFINE_INTEGER(XK_Ograve); - DEFINE_INTEGER(XK_Oacute); - DEFINE_INTEGER(XK_Ocircumflex); - DEFINE_INTEGER(XK_Otilde); - DEFINE_INTEGER(XK_Odiaeresis); - DEFINE_INTEGER(XK_multiply); - DEFINE_INTEGER(XK_Ooblique); - DEFINE_INTEGER(XK_Ugrave); - DEFINE_INTEGER(XK_Uacute); - DEFINE_INTEGER(XK_Ucircumflex); - DEFINE_INTEGER(XK_Udiaeresis); - DEFINE_INTEGER(XK_Yacute); - DEFINE_INTEGER(XK_THORN); - DEFINE_INTEGER(XK_Thorn); - DEFINE_INTEGER(XK_ssharp); - DEFINE_INTEGER(XK_agrave); - DEFINE_INTEGER(XK_aacute); - DEFINE_INTEGER(XK_acircumflex); - DEFINE_INTEGER(XK_atilde); - DEFINE_INTEGER(XK_adiaeresis); - DEFINE_INTEGER(XK_aring); - DEFINE_INTEGER(XK_ae); - DEFINE_INTEGER(XK_ccedilla); - DEFINE_INTEGER(XK_egrave); - DEFINE_INTEGER(XK_eacute); - DEFINE_INTEGER(XK_ecircumflex); - DEFINE_INTEGER(XK_ediaeresis); - DEFINE_INTEGER(XK_igrave); - DEFINE_INTEGER(XK_iacute); - DEFINE_INTEGER(XK_icircumflex); - DEFINE_INTEGER(XK_idiaeresis); - DEFINE_INTEGER(XK_eth); - DEFINE_INTEGER(XK_ntilde); - DEFINE_INTEGER(XK_ograve); - DEFINE_INTEGER(XK_oacute); - DEFINE_INTEGER(XK_ocircumflex); - DEFINE_INTEGER(XK_otilde); - DEFINE_INTEGER(XK_odiaeresis); - DEFINE_INTEGER(XK_division); - DEFINE_INTEGER(XK_oslash); - DEFINE_INTEGER(XK_ugrave); - DEFINE_INTEGER(XK_uacute); - DEFINE_INTEGER(XK_ucircumflex); - DEFINE_INTEGER(XK_udiaeresis); - DEFINE_INTEGER(XK_yacute); - DEFINE_INTEGER(XK_thorn); - DEFINE_INTEGER(XK_ydiaeresis); - - DEFINE_INTEGER(XpmFormat); - DEFINE_INTEGER(XpmVersion); - DEFINE_INTEGER(XpmRevision); - DEFINE_INTEGER(XpmIncludeVersion); - DEFINE_INTEGER(XpmColorError); - DEFINE_INTEGER(XpmSuccess); - DEFINE_INTEGER(XpmOpenFailed); - DEFINE_INTEGER(XpmFileInvalid); - DEFINE_INTEGER(XpmNoMemory); - DEFINE_INTEGER(XpmColorFailed); - DEFINE_INTEGER(XpmVisual); - DEFINE_INTEGER(XpmColormap); - DEFINE_INTEGER(XpmDepth); - DEFINE_INTEGER(XpmSize); - DEFINE_INTEGER(XpmHotspot); - DEFINE_INTEGER(XpmCharsPerPixel); - DEFINE_INTEGER(XpmColorSymbols); - DEFINE_INTEGER(XpmRgbFilename); - DEFINE_INTEGER(XpmInfos); - DEFINE_INTEGER(XpmReturnInfos); - DEFINE_INTEGER(XpmReturnPixels); - DEFINE_INTEGER(XpmExtensions); - DEFINE_INTEGER(XpmReturnExtensions); - DEFINE_INTEGER(XpmExactColors); - DEFINE_INTEGER(XpmCloseness); - DEFINE_INTEGER(XpmRGBCloseness); - DEFINE_INTEGER(XpmColorKey); - DEFINE_INTEGER(XpmColorTable); - DEFINE_INTEGER(XpmReturnColorTable); + define_integer(XtIMXEvent); + define_integer(XtIMTimer); + define_integer(XtIMAlternateInput); + define_integer(XtIMSignal); + define_integer(XtIMAll); + define_integer(XtUnspecifiedPixmap); + define_integer(XtUnspecifiedShellInt); + define_integer(XtUnspecifiedWindow); + define_integer(XtUnspecifiedWindowGroup); + define_integer(XT_CONVERT_FAIL); + + define_integer(XlibSpecificationRelease); + define_integer(QueuedAlready); + define_integer(QueuedAfterReading); + define_integer(QueuedAfterFlush); + define_integer(XBufferOverflow); + define_integer(XLookupNone); + define_integer(XLookupChars); + define_integer(XLookupKeySym); + define_integer(XLookupBoth); + define_integer(XK_VoidSymbol); + define_integer(XK_BackSpace); + define_integer(XK_Tab); + define_integer(XK_Linefeed); + define_integer(XK_Clear); + define_integer(XK_Return); + define_integer(XK_Pause); + define_integer(XK_Scroll_Lock); + define_integer(XK_Sys_Req); + define_integer(XK_Escape); + define_integer(XK_Delete); + define_integer(XK_Home); + define_integer(XK_Left); + define_integer(XK_Up); + define_integer(XK_Right); + define_integer(XK_Down); + define_integer(XK_Prior); + define_integer(XK_Page_Up); + define_integer(XK_Next); + define_integer(XK_Page_Down); + define_integer(XK_End); + define_integer(XK_Begin); + define_integer(XK_Select); + define_integer(XK_Print); + define_integer(XK_Execute); + define_integer(XK_Insert); + define_integer(XK_Undo); + define_integer(XK_Redo); + define_integer(XK_Menu); + define_integer(XK_Find); + define_integer(XK_Cancel); + define_integer(XK_Help); + define_integer(XK_Break); + define_integer(XK_Mode_switch); + define_integer(XK_script_switch); + define_integer(XK_Num_Lock); + define_integer(XK_KP_Space); + define_integer(XK_KP_Tab); + define_integer(XK_KP_Enter); + define_integer(XK_KP_F1); + define_integer(XK_KP_F2); + define_integer(XK_KP_F3); + define_integer(XK_KP_F4); + define_integer(XK_KP_Home); + define_integer(XK_KP_Left); + define_integer(XK_KP_Up); + define_integer(XK_KP_Right); + define_integer(XK_KP_Down); + define_integer(XK_KP_Prior); + define_integer(XK_KP_Page_Up); + define_integer(XK_KP_Next); + define_integer(XK_KP_Page_Down); + define_integer(XK_KP_End); + define_integer(XK_KP_Begin); + define_integer(XK_KP_Insert); + define_integer(XK_KP_Delete); + define_integer(XK_KP_Equal); + define_integer(XK_KP_Multiply); + define_integer(XK_KP_Add); + define_integer(XK_KP_Separator); + define_integer(XK_KP_Subtract); + define_integer(XK_KP_Decimal); + define_integer(XK_KP_Divide); + define_integer(XK_KP_0); + define_integer(XK_KP_1); + define_integer(XK_KP_2); + define_integer(XK_KP_3); + define_integer(XK_KP_4); + define_integer(XK_KP_5); + define_integer(XK_KP_6); + define_integer(XK_KP_7); + define_integer(XK_KP_8); + define_integer(XK_KP_9); + define_integer(XK_F1); + define_integer(XK_F2); + define_integer(XK_F3); + define_integer(XK_F4); + define_integer(XK_F5); + define_integer(XK_F6); + define_integer(XK_F7); + define_integer(XK_F8); + define_integer(XK_F9); + define_integer(XK_F10); + define_integer(XK_F11); + define_integer(XK_L1); + define_integer(XK_F12); + define_integer(XK_L2); + define_integer(XK_F13); + define_integer(XK_L3); + define_integer(XK_F14); + define_integer(XK_L4); + define_integer(XK_F15); + define_integer(XK_L5); + define_integer(XK_F16); + define_integer(XK_L6); + define_integer(XK_F17); + define_integer(XK_L7); + define_integer(XK_F18); + define_integer(XK_L8); + define_integer(XK_F19); + define_integer(XK_L9); + define_integer(XK_F20); + define_integer(XK_L10); + define_integer(XK_F21); + define_integer(XK_R1); + define_integer(XK_F22); + define_integer(XK_R2); + define_integer(XK_F23); + define_integer(XK_R3); + define_integer(XK_F24); + define_integer(XK_R4); + define_integer(XK_F25); + define_integer(XK_R5); + define_integer(XK_F26); + define_integer(XK_R6); + define_integer(XK_F27); + define_integer(XK_R7); + define_integer(XK_F28); + define_integer(XK_R8); + define_integer(XK_F29); + define_integer(XK_R9); + define_integer(XK_F30); + define_integer(XK_R10); + define_integer(XK_F31); + define_integer(XK_R11); + define_integer(XK_F32); + define_integer(XK_R12); + define_integer(XK_F33); + define_integer(XK_R13); + define_integer(XK_F34); + define_integer(XK_R14); + define_integer(XK_F35); + define_integer(XK_R15); + define_integer(XK_Shift_L); + define_integer(XK_Shift_R); + define_integer(XK_Control_L); + define_integer(XK_Control_R); + define_integer(XK_Caps_Lock); + define_integer(XK_Shift_Lock); + define_integer(XK_Meta_L); + define_integer(XK_Meta_R); + define_integer(XK_Alt_L); + define_integer(XK_Alt_R); + define_integer(XK_Super_L); + define_integer(XK_Super_R); + define_integer(XK_Hyper_L); + define_integer(XK_Hyper_R); + define_integer(XK_space); + define_integer(XK_exclam); + define_integer(XK_quotedbl); + define_integer(XK_numbersign); + define_integer(XK_dollar); + define_integer(XK_percent); + define_integer(XK_ampersand); + define_integer(XK_apostrophe); + define_integer(XK_quoteright); + define_integer(XK_parenleft); + define_integer(XK_parenright); + define_integer(XK_asterisk); + define_integer(XK_plus); + define_integer(XK_comma); + define_integer(XK_minus); + define_integer(XK_period); + define_integer(XK_slash); + define_integer(XK_0); + define_integer(XK_1); + define_integer(XK_2); + define_integer(XK_3); + define_integer(XK_4); + define_integer(XK_5); + define_integer(XK_6); + define_integer(XK_7); + define_integer(XK_8); + define_integer(XK_9); + define_integer(XK_colon); + define_integer(XK_semicolon); + define_integer(XK_less); + define_integer(XK_equal); + define_integer(XK_greater); + define_integer(XK_question); + define_integer(XK_at); + define_integer(XK_A); + define_integer(XK_B); + define_integer(XK_C); + define_integer(XK_D); + define_integer(XK_E); + define_integer(XK_F); + define_integer(XK_G); + define_integer(XK_H); + define_integer(XK_I); + define_integer(XK_J); + define_integer(XK_K); + define_integer(XK_L); + define_integer(XK_M); + define_integer(XK_N); + define_integer(XK_O); + define_integer(XK_P); + define_integer(XK_Q); + define_integer(XK_R); + define_integer(XK_S); + define_integer(XK_T); + define_integer(XK_U); + define_integer(XK_V); + define_integer(XK_W); + define_integer(XK_X); + define_integer(XK_Y); + define_integer(XK_Z); + define_integer(XK_bracketleft); + define_integer(XK_backslash); + define_integer(XK_bracketright); + define_integer(XK_asciicircum); + define_integer(XK_underscore); + define_integer(XK_grave); + define_integer(XK_quoteleft); + define_integer(XK_a); + define_integer(XK_b); + define_integer(XK_c); + define_integer(XK_d); + define_integer(XK_e); + define_integer(XK_f); + define_integer(XK_g); + define_integer(XK_h); + define_integer(XK_i); + define_integer(XK_j); + define_integer(XK_k); + define_integer(XK_l); + define_integer(XK_m); + define_integer(XK_n); + define_integer(XK_o); + define_integer(XK_p); + define_integer(XK_q); + define_integer(XK_r); + define_integer(XK_s); + define_integer(XK_t); + define_integer(XK_u); + define_integer(XK_v); + define_integer(XK_w); + define_integer(XK_x); + define_integer(XK_y); + define_integer(XK_z); + define_integer(XK_braceleft); + define_integer(XK_bar); + define_integer(XK_braceright); + define_integer(XK_asciitilde); + define_integer(XK_nobreakspace); + define_integer(XK_exclamdown); + define_integer(XK_cent); + define_integer(XK_sterling); + define_integer(XK_currency); + define_integer(XK_yen); + define_integer(XK_brokenbar); + define_integer(XK_section); + define_integer(XK_diaeresis); + define_integer(XK_copyright); + define_integer(XK_ordfeminine); + define_integer(XK_guillemotleft); + define_integer(XK_notsign); + define_integer(XK_hyphen); + define_integer(XK_registered); + define_integer(XK_macron); + define_integer(XK_degree); + define_integer(XK_plusminus); + define_integer(XK_twosuperior); + define_integer(XK_threesuperior); + define_integer(XK_acute); + define_integer(XK_mu); + define_integer(XK_paragraph); + define_integer(XK_periodcentered); + define_integer(XK_cedilla); + define_integer(XK_onesuperior); + define_integer(XK_masculine); + define_integer(XK_guillemotright); + define_integer(XK_onequarter); + define_integer(XK_onehalf); + define_integer(XK_threequarters); + define_integer(XK_questiondown); + define_integer(XK_Agrave); + define_integer(XK_Aacute); + define_integer(XK_Acircumflex); + define_integer(XK_Atilde); + define_integer(XK_Adiaeresis); + define_integer(XK_Aring); + define_integer(XK_AE); + define_integer(XK_Ccedilla); + define_integer(XK_Egrave); + define_integer(XK_Eacute); + define_integer(XK_Ecircumflex); + define_integer(XK_Ediaeresis); + define_integer(XK_Igrave); + define_integer(XK_Iacute); + define_integer(XK_Icircumflex); + define_integer(XK_Idiaeresis); + define_integer(XK_ETH); + define_integer(XK_Eth); + define_integer(XK_Ntilde); + define_integer(XK_Ograve); + define_integer(XK_Oacute); + define_integer(XK_Ocircumflex); + define_integer(XK_Otilde); + define_integer(XK_Odiaeresis); + define_integer(XK_multiply); + define_integer(XK_Ooblique); + define_integer(XK_Ugrave); + define_integer(XK_Uacute); + define_integer(XK_Ucircumflex); + define_integer(XK_Udiaeresis); + define_integer(XK_Yacute); + define_integer(XK_THORN); + define_integer(XK_Thorn); + define_integer(XK_ssharp); + define_integer(XK_agrave); + define_integer(XK_aacute); + define_integer(XK_acircumflex); + define_integer(XK_atilde); + define_integer(XK_adiaeresis); + define_integer(XK_aring); + define_integer(XK_ae); + define_integer(XK_ccedilla); + define_integer(XK_egrave); + define_integer(XK_eacute); + define_integer(XK_ecircumflex); + define_integer(XK_ediaeresis); + define_integer(XK_igrave); + define_integer(XK_iacute); + define_integer(XK_icircumflex); + define_integer(XK_idiaeresis); + define_integer(XK_eth); + define_integer(XK_ntilde); + define_integer(XK_ograve); + define_integer(XK_oacute); + define_integer(XK_ocircumflex); + define_integer(XK_otilde); + define_integer(XK_odiaeresis); + define_integer(XK_division); + define_integer(XK_oslash); + define_integer(XK_ugrave); + define_integer(XK_uacute); + define_integer(XK_ucircumflex); + define_integer(XK_udiaeresis); + define_integer(XK_yacute); + define_integer(XK_thorn); + define_integer(XK_ydiaeresis); + + define_integer(XpmFormat); + define_integer(XpmVersion); + define_integer(XpmRevision); + define_integer(XpmIncludeVersion); + define_integer(XpmColorError); + define_integer(XpmSuccess); + define_integer(XpmOpenFailed); + define_integer(XpmFileInvalid); + define_integer(XpmNoMemory); + define_integer(XpmColorFailed); + define_integer(XpmVisual); + define_integer(XpmColormap); + define_integer(XpmDepth); + define_integer(XpmSize); + define_integer(XpmHotspot); + define_integer(XpmCharsPerPixel); + define_integer(XpmColorSymbols); + define_integer(XpmRgbFilename); + define_integer(XpmInfos); + define_integer(XpmReturnInfos); + define_integer(XpmReturnPixels); + define_integer(XpmExtensions); + define_integer(XpmReturnExtensions); + define_integer(XpmExactColors); + define_integer(XpmCloseness); + define_integer(XpmRGBCloseness); + define_integer(XpmColorKey); + define_integer(XpmColorTable); + define_integer(XpmReturnColorTable); #ifdef XpmReturnAllocPixels - DEFINE_INTEGER(XpmReturnAllocPixels); - DEFINE_INTEGER(XpmAllocCloseColors); - DEFINE_INTEGER(XpmBitmapFormat); - DEFINE_INTEGER(XpmAllocColor); - DEFINE_INTEGER(XpmFreeColors); - DEFINE_INTEGER(XpmColorClosure); + define_integer(XpmReturnAllocPixels); + define_integer(XpmAllocCloseColors); + define_integer(XpmBitmapFormat); + define_integer(XpmAllocColor); + define_integer(XpmFreeColors); + define_integer(XpmColorClosure); #endif - DEFINE_INTEGER(XpmComments); - DEFINE_INTEGER(XpmReturnComments); - DEFINE_INTEGER(XpmUndefPixel); - - DEFINE_INTEGER(NoValue); - DEFINE_INTEGER(XValue); - DEFINE_INTEGER(YValue); - DEFINE_INTEGER(WidthValue); - DEFINE_INTEGER(HeightValue); - DEFINE_INTEGER(AllValues); - DEFINE_INTEGER(XNegative); - DEFINE_INTEGER(YNegative); - DEFINE_INTEGER(InputHint); - DEFINE_INTEGER(StateHint); - DEFINE_INTEGER(IconPixmapHint); - DEFINE_INTEGER(IconWindowHint); - DEFINE_INTEGER(IconPositionHint); - DEFINE_INTEGER(IconMaskHint); - DEFINE_INTEGER(WindowGroupHint); - DEFINE_INTEGER(AllHints); - DEFINE_INTEGER(XUrgencyHint); - DEFINE_INTEGER(WithdrawnState); - DEFINE_INTEGER(NormalState); - DEFINE_INTEGER(IconicState); - DEFINE_INTEGER(DontCareState); - DEFINE_INTEGER(ZoomState); - DEFINE_INTEGER(InactiveState); - DEFINE_INTEGER(XNoMemory); - DEFINE_INTEGER(XLocaleNotSupported); - DEFINE_INTEGER(XConverterNotFound); - DEFINE_INTEGER(RectangleOut); - DEFINE_INTEGER(RectangleIn); - DEFINE_INTEGER(RectanglePart); - DEFINE_INTEGER(VisualNoMask); - DEFINE_INTEGER(VisualIDMask); - DEFINE_INTEGER(VisualScreenMask); - DEFINE_INTEGER(VisualDepthMask); - DEFINE_INTEGER(VisualClassMask); - DEFINE_INTEGER(VisualRedMaskMask); - DEFINE_INTEGER(VisualGreenMaskMask); - DEFINE_INTEGER(VisualBlueMaskMask); - DEFINE_INTEGER(VisualColormapSizeMask); - DEFINE_INTEGER(VisualBitsPerRGBMask); - DEFINE_INTEGER(VisualAllMask); - DEFINE_INTEGER(ReleaseByFreeingColormap); - DEFINE_INTEGER(BitmapSuccess); - DEFINE_INTEGER(BitmapOpenFailed); - DEFINE_INTEGER(BitmapFileInvalid); - DEFINE_INTEGER(BitmapNoMemory); -#if HAVE_MOTIF - DEFINE_INTEGER(MWM_HINTS_FUNCTIONS); - DEFINE_INTEGER(MWM_HINTS_DECORATIONS); - DEFINE_INTEGER(MWM_HINTS_INPUT_MODE); - DEFINE_INTEGER(MWM_HINTS_STATUS); - DEFINE_INTEGER(MWM_FUNC_ALL); - DEFINE_INTEGER(MWM_FUNC_RESIZE); - DEFINE_INTEGER(MWM_FUNC_MOVE); - DEFINE_INTEGER(MWM_FUNC_MINIMIZE); - DEFINE_INTEGER(MWM_FUNC_MAXIMIZE); - DEFINE_INTEGER(MWM_FUNC_CLOSE); - DEFINE_INTEGER(MWM_DECOR_ALL); - DEFINE_INTEGER(MWM_DECOR_BORDER); - DEFINE_INTEGER(MWM_DECOR_RESIZEH); - DEFINE_INTEGER(MWM_DECOR_TITLE); - DEFINE_INTEGER(MWM_DECOR_MENU); - DEFINE_INTEGER(MWM_DECOR_MINIMIZE); - DEFINE_INTEGER(MWM_DECOR_MAXIMIZE); + define_integer(XpmComments); + define_integer(XpmReturnComments); + define_integer(XpmUndefPixel); + + define_integer(NoValue); + define_integer(XValue); + define_integer(YValue); + define_integer(WidthValue); + define_integer(HeightValue); + define_integer(AllValues); + define_integer(XNegative); + define_integer(YNegative); + define_integer(InputHint); + define_integer(StateHint); + define_integer(IconPixmapHint); + define_integer(IconWindowHint); + define_integer(IconPositionHint); + define_integer(IconMaskHint); + define_integer(WindowGroupHint); + define_integer(AllHints); + define_integer(XUrgencyHint); + define_integer(WithdrawnState); + define_integer(NormalState); + define_integer(IconicState); + define_integer(DontCareState); + define_integer(ZoomState); + define_integer(InactiveState); + define_integer(XNoMemory); + define_integer(XLocaleNotSupported); + define_integer(XConverterNotFound); + define_integer(RectangleOut); + define_integer(RectangleIn); + define_integer(RectanglePart); + define_integer(VisualNoMask); + define_integer(VisualIDMask); + define_integer(VisualScreenMask); + define_integer(VisualDepthMask); + define_integer(VisualClassMask); + define_integer(VisualRedMaskMask); + define_integer(VisualGreenMaskMask); + define_integer(VisualBlueMaskMask); + define_integer(VisualColormapSizeMask); + define_integer(VisualBitsPerRGBMask); + define_integer(VisualAllMask); + define_integer(ReleaseByFreeingColormap); + define_integer(BitmapSuccess); + define_integer(BitmapOpenFailed); + define_integer(BitmapFileInvalid); + define_integer(BitmapNoMemory); + + define_integer(MWM_HINTS_FUNCTIONS); + define_integer(MWM_HINTS_DECORATIONS); + define_integer(MWM_HINTS_INPUT_MODE); + define_integer(MWM_HINTS_STATUS); + define_integer(MWM_FUNC_ALL); + define_integer(MWM_FUNC_RESIZE); + define_integer(MWM_FUNC_MOVE); + define_integer(MWM_FUNC_MINIMIZE); + define_integer(MWM_FUNC_MAXIMIZE); + define_integer(MWM_FUNC_CLOSE); + define_integer(MWM_DECOR_ALL); + define_integer(MWM_DECOR_BORDER); + define_integer(MWM_DECOR_RESIZEH); + define_integer(MWM_DECOR_TITLE); + define_integer(MWM_DECOR_MENU); + define_integer(MWM_DECOR_MINIMIZE); + define_integer(MWM_DECOR_MAXIMIZE); #ifdef XmCR_WM_PROTOCOLS - DEFINE_INTEGER(XmCR_WM_PROTOCOLS); + define_integer(XmCR_WM_PROTOCOLS); #endif - DEFINE_INTEGER(MWM_INPUT_MODELESS); - DEFINE_INTEGER(MWM_INPUT_PRIMARY_APPLICATION_MODAL); - DEFINE_INTEGER(MWM_INPUT_SYSTEM_MODAL); - DEFINE_INTEGER(MWM_INPUT_FULL_APPLICATION_MODAL); - DEFINE_INTEGER(MWM_TEAROFF_WINDOW); - DEFINE_INTEGER(MWM_INPUT_APPLICATION_MODAL); - DEFINE_INTEGER(MWM_INFO_STARTUP_STANDARD); - DEFINE_INTEGER(MWM_INFO_STARTUP_CUSTOM); - DEFINE_INTEGER(PROP_MOTIF_WM_HINTS_ELEMENTS); - DEFINE_INTEGER(PROP_MWM_HINTS_ELEMENTS); - DEFINE_INTEGER(PROP_MOTIF_WM_INFO_ELEMENTS); - DEFINE_INTEGER(PROP_MWM_INFO_ELEMENTS); - DEFINE_INTEGER(ClipboardFail); - DEFINE_INTEGER(ClipboardSuccess); - DEFINE_INTEGER(ClipboardTruncate); - DEFINE_INTEGER(ClipboardLocked); - DEFINE_INTEGER(ClipboardBadFormat); - DEFINE_INTEGER(ClipboardNoData); - DEFINE_INTEGER(XmHELP); - DEFINE_INTEGER(XmDROP_NOOP); - DEFINE_INTEGER(XmDROP_MOVE); - DEFINE_INTEGER(XmDROP_COPY); - DEFINE_INTEGER(XmDROP_LINK); - DEFINE_INTEGER(XmCR_DROP_SITE_LEAVE_MESSAGE); - DEFINE_INTEGER(XmCR_DROP_SITE_ENTER_MESSAGE); - DEFINE_INTEGER(XmCR_DROP_SITE_MOTION_MESSAGE); - DEFINE_INTEGER(XmCR_DROP_MESSAGE); - DEFINE_INTEGER(XmNO_DROP_SITE); - DEFINE_INTEGER(XmINVALID_DROP_SITE); - DEFINE_INTEGER(XmVALID_DROP_SITE); - DEFINE_INTEGER(XmDROP_SITE_INVALID); - DEFINE_INTEGER(XmDROP_SITE_VALID); - DEFINE_INTEGER(XmTRANSFER_FAILURE); - DEFINE_INTEGER(XmTRANSFER_SUCCESS); - DEFINE_INTEGER(XmUNSPECIFIED_ICON_SIZE); - DEFINE_INTEGER(XmLARGE_ICON_SIZE); - DEFINE_INTEGER(XmMEDIUM_ICON_SIZE); - DEFINE_INTEGER(XmSMALL_ICON_SIZE); - DEFINE_INTEGER(XmTINY_ICON_SIZE); - DEFINE_INTEGER(XmUNSPECIFIED_POSITION); - DEFINE_INTEGER(XmINVALID_POSITION); - DEFINE_INTEGER(XmINDICATOR_3D_BOX); - DEFINE_INTEGER(XmINDICATOR_FLAT_BOX); - DEFINE_INTEGER(XmINDICATOR_CHECK_GLYPH); - DEFINE_INTEGER(XmINDICATOR_CROSS_GLYPH); - DEFINE_INTEGER(XmINITIAL); - DEFINE_INTEGER(XmADDITION); - DEFINE_INTEGER(XmMODIFICATION); - DEFINE_INTEGER(XmVERSION); - DEFINE_INTEGER(XmREVISION); - DEFINE_INTEGER(XmUPDATE_LEVEL); - DEFINE_INTEGER(XmVersion); - DEFINE_INTEGER(XmUNSPECIFIED_PIXMAP); - DEFINE_INTEGER(XmCOPY_FAILED); - DEFINE_INTEGER(XmCOPY_SUCCEEDED); - DEFINE_INTEGER(XmCOPY_TRUNCATED); - DEFINE_INTEGER(XmDIALOG_HISTORY_LIST); - DEFINE_INTEGER(XmDIALOG_PROMPT_LABEL); - DEFINE_INTEGER(XmDIALOG_VALUE_TEXT); - DEFINE_INTEGER(XmDIALOG_COMMAND_TEXT); - DEFINE_INTEGER(XmDIALOG_FILE_LIST); - DEFINE_INTEGER(XmDIALOG_FILE_LIST_LABEL); - DEFINE_INTEGER(XmDIALOG_APPLICATION_MODAL); - DEFINE_INTEGER(XmFILE_DIRECTORY); - DEFINE_INTEGER(XmFILE_REGULAR); - DEFINE_INTEGER(XmFILE_ANY_TYPE); - DEFINE_INTEGER(XmCHECKBUTTON); -#endif - /* enums */ - -#if HAVE_MOTIF - DEFINE_INTEGER(XtCallbackNoList); - DEFINE_INTEGER(XtCallbackHasNone); - DEFINE_INTEGER(XtCallbackHasSome); - DEFINE_INTEGER(XtGeometryYes); - DEFINE_INTEGER(XtGeometryNo); - DEFINE_INTEGER(XtGeometryAlmost); - DEFINE_INTEGER(XtGeometryDone); - DEFINE_INTEGER(XtGrabNone); - DEFINE_INTEGER(XtGrabNonexclusive); - DEFINE_INTEGER(XtGrabExclusive); - DEFINE_INTEGER(XtListHead); - DEFINE_INTEGER(XtListTail); -#endif - DEFINE_INTEGER(XStringStyle); - DEFINE_INTEGER(XCompoundTextStyle); - DEFINE_INTEGER(XTextStyle); - DEFINE_INTEGER(XStdICCTextStyle); -#if HAVE_MOTIF - DEFINE_INTEGER(XmClipboardFail); - DEFINE_INTEGER(XmClipboardSuccess); - DEFINE_INTEGER(XmClipboardTruncate); - DEFINE_INTEGER(XmClipboardLocked); - DEFINE_INTEGER(XmClipboardBadFormat); - DEFINE_INTEGER(XmClipboardNoData); - DEFINE_INTEGER(XmDRAG_NONE); - DEFINE_INTEGER(XmDRAG_DROP_ONLY); - DEFINE_INTEGER(XmDRAG_PREFER_PREREGISTER); - DEFINE_INTEGER(XmDRAG_PREREGISTER); - DEFINE_INTEGER(XmDRAG_PREFER_DYNAMIC); - DEFINE_INTEGER(XmDRAG_DYNAMIC); - DEFINE_INTEGER(XmDRAG_PREFER_RECEIVER); - DEFINE_INTEGER(XmTOP_LEVEL_ENTER); - DEFINE_INTEGER(XmTOP_LEVEL_LEAVE); - DEFINE_INTEGER(XmDRAG_MOTION); - DEFINE_INTEGER(XmDROP_SITE_ENTER); - DEFINE_INTEGER(XmDROP_SITE_LEAVE); - DEFINE_INTEGER(XmDROP_START); - DEFINE_INTEGER(XmDROP_FINISH); - DEFINE_INTEGER(XmDRAG_DROP_FINISH); - DEFINE_INTEGER(XmOPERATION_CHANGED); - DEFINE_INTEGER(XmDROP); - DEFINE_INTEGER(XmDROP_HELP); - DEFINE_INTEGER(XmDROP_CANCEL); - DEFINE_INTEGER(XmDROP_INTERRUPT); - DEFINE_INTEGER(XmBLEND_ALL); - DEFINE_INTEGER(XmBLEND_STATE_SOURCE); - DEFINE_INTEGER(XmBLEND_JUST_SOURCE); - DEFINE_INTEGER(XmBLEND_NONE); - DEFINE_INTEGER(XmDROP_FAILURE); - DEFINE_INTEGER(XmDROP_SUCCESS); - DEFINE_INTEGER(XmCR_TOP_LEVEL_ENTER); - DEFINE_INTEGER(XmCR_TOP_LEVEL_LEAVE); - DEFINE_INTEGER(XmCR_DRAG_MOTION); - DEFINE_INTEGER(XmCR_DROP_SITE_ENTER); - DEFINE_INTEGER(XmCR_DROP_SITE_LEAVE); - DEFINE_INTEGER(XmCR_DROP_START); - DEFINE_INTEGER(XmCR_DROP_FINISH); - DEFINE_INTEGER(XmCR_DRAG_DROP_FINISH); - DEFINE_INTEGER(XmCR_OPERATION_CHANGED); - DEFINE_INTEGER(XmATTACH_NORTH_WEST); - DEFINE_INTEGER(XmATTACH_NORTH); - DEFINE_INTEGER(XmATTACH_NORTH_EAST); - DEFINE_INTEGER(XmATTACH_EAST); - DEFINE_INTEGER(XmATTACH_SOUTH_EAST); - DEFINE_INTEGER(XmATTACH_SOUTH); - DEFINE_INTEGER(XmATTACH_SOUTH_WEST); - DEFINE_INTEGER(XmATTACH_WEST); - DEFINE_INTEGER(XmATTACH_CENTER); - DEFINE_INTEGER(XmATTACH_HOT); - DEFINE_INTEGER(XmDRAG_UNDER_NONE); - DEFINE_INTEGER(XmDRAG_UNDER_PIXMAP); - DEFINE_INTEGER(XmDRAG_UNDER_SHADOW_IN); - DEFINE_INTEGER(XmDRAG_UNDER_SHADOW_OUT); - DEFINE_INTEGER(XmDRAG_UNDER_HIGHLIGHT); - DEFINE_INTEGER(XmDROP_SITE_SIMPLE); - DEFINE_INTEGER(XmDROP_SITE_COMPOSITE); - DEFINE_INTEGER(XmDROP_SITE_SIMPLE_CLIP_ONLY); - DEFINE_INTEGER(XmDROP_SITE_COMPOSITE_CLIP_ONLY); - DEFINE_INTEGER(XmABOVE); - DEFINE_INTEGER(XmBELOW); - DEFINE_INTEGER(XmDROP_SITE_ACTIVE); - DEFINE_INTEGER(XmDROP_SITE_INACTIVE); - DEFINE_INTEGER(XmFONT_IS_FONT); - DEFINE_INTEGER(XmFONT_IS_FONTSET); - DEFINE_INTEGER(XmSTRING_DIRECTION_L_TO_R); - DEFINE_INTEGER(XmSTRING_DIRECTION_R_TO_L); - DEFINE_INTEGER(XmSTRING_DIRECTION_DEFAULT); - DEFINE_INTEGER(XmSTRING_COMPONENT_UNKNOWN); - DEFINE_INTEGER(XmSTRING_COMPONENT_TEXT); - DEFINE_INTEGER(XmSTRING_COMPONENT_DIRECTION); - DEFINE_INTEGER(XmSTRING_COMPONENT_SEPARATOR); - DEFINE_INTEGER(XmSTRING_COMPONENT_LOCALE_TEXT); - DEFINE_INTEGER(XmSTRING_COMPONENT_END); - DEFINE_INTEGER(XmPAGE_FOUND); - DEFINE_INTEGER(XmPAGE_INVALID); - DEFINE_INTEGER(XmPAGE_EMPTY); - DEFINE_INTEGER(XmPAGE_DUPLICATED); - DEFINE_INTEGER(XmMOVE); - DEFINE_INTEGER(XmCOPY); - DEFINE_INTEGER(XmLINK); - DEFINE_INTEGER(XmOTHER); - DEFINE_INTEGER(XmDROP_SITE_IGNORE); - DEFINE_INTEGER(XmTRANSFER_DONE_SUCCEED); - DEFINE_INTEGER(XmTRANSFER_DONE_FAIL); - DEFINE_INTEGER(XmTRANSFER_DONE_CONTINUE); - DEFINE_INTEGER(XmTRANSFER_DONE_DEFAULT); - DEFINE_INTEGER(XmSELECTION_DEFAULT); - DEFINE_INTEGER(XmSELECTION_INCREMENTAL); - DEFINE_INTEGER(XmSELECTION_PERSIST); - DEFINE_INTEGER(XmSELECTION_SNAPSHOT); - DEFINE_INTEGER(XmSELECTION_TRANSACT); - DEFINE_INTEGER(XmCONVERTING_NONE); - DEFINE_INTEGER(XmCONVERTING_SAME); - DEFINE_INTEGER(XmCONVERTING_TRANSACT); - DEFINE_INTEGER(XmCONVERTING_PARTIAL); - DEFINE_INTEGER(XmCONVERT_DEFAULT); - DEFINE_INTEGER(XmCONVERT_MORE); - DEFINE_INTEGER(XmCONVERT_MERGE); - DEFINE_INTEGER(XmCONVERT_REFUSE); - DEFINE_INTEGER(XmCONVERT_DONE); - DEFINE_INTEGER(XmSTRING_DIRECTION_UNSET); - DEFINE_INTEGER(XmSTRING_COMPONENT_LOCALE); - DEFINE_INTEGER(XmSTRING_COMPONENT_WIDECHAR_TEXT); - DEFINE_INTEGER(XmSTRING_COMPONENT_LAYOUT_PUSH); - DEFINE_INTEGER(XmSTRING_COMPONENT_LAYOUT_POP); - DEFINE_INTEGER(XmSTRING_COMPONENT_RENDITION_BEGIN); - DEFINE_INTEGER(XmSTRING_COMPONENT_RENDITION_END); - DEFINE_INTEGER(XmSTRING_COMPONENT_TAB); - DEFINE_INTEGER(XmSTRING_COMPONENT_TAG); - DEFINE_INTEGER(XmCHARSET_TEXT); - DEFINE_INTEGER(XmMULTIBYTE_TEXT); - DEFINE_INTEGER(XmWIDECHAR_TEXT); - DEFINE_INTEGER(XmNO_TEXT); - DEFINE_INTEGER(XmOUTPUT_ALL); - DEFINE_INTEGER(XmOUTPUT_BETWEEN); - DEFINE_INTEGER(XmOUTPUT_BEGINNING); - DEFINE_INTEGER(XmOUTPUT_END); - DEFINE_INTEGER(XmOUTPUT_BOTH); - DEFINE_INTEGER(XmINSERT); - DEFINE_INTEGER(XmTERMINATE); - DEFINE_INTEGER(XmINVOKE); - DEFINE_INTEGER(XmSTYLE_STRING); - DEFINE_INTEGER(XmSTYLE_COMPOUND_TEXT); - DEFINE_INTEGER(XmSTYLE_TEXT); - DEFINE_INTEGER(XmSTYLE_STANDARD_ICC_TEXT); - DEFINE_INTEGER(XmSTYLE_LOCALE); - DEFINE_INTEGER(XmSTYLE_COMPOUND_STRING); - DEFINE_INTEGER(XmABSOLUTE); - DEFINE_INTEGER(XmRELATIVE); - DEFINE_INTEGER(XmSKIP); - DEFINE_INTEGER(XmMERGE_REPLACE); - DEFINE_INTEGER(XmMERGE_OLD); - DEFINE_INTEGER(XmMERGE_NEW); - DEFINE_INTEGER(XmDUPLICATE); - DEFINE_INTEGER(XmAS_IS); - DEFINE_INTEGER(XmFORCE_COLOR); + define_integer(MWM_INPUT_MODELESS); + define_integer(MWM_INPUT_PRIMARY_APPLICATION_MODAL); + define_integer(MWM_INPUT_SYSTEM_MODAL); + define_integer(MWM_INPUT_FULL_APPLICATION_MODAL); + define_integer(MWM_TEAROFF_WINDOW); + define_integer(MWM_INPUT_APPLICATION_MODAL); + define_integer(MWM_INFO_STARTUP_STANDARD); + define_integer(MWM_INFO_STARTUP_CUSTOM); + define_integer(PROP_MOTIF_WM_HINTS_ELEMENTS); + define_integer(PROP_MWM_HINTS_ELEMENTS); + define_integer(PROP_MOTIF_WM_INFO_ELEMENTS); + define_integer(PROP_MWM_INFO_ELEMENTS); + define_integer(ClipboardFail); + define_integer(ClipboardSuccess); + define_integer(ClipboardTruncate); + define_integer(ClipboardLocked); + define_integer(ClipboardBadFormat); + define_integer(ClipboardNoData); + define_integer(XmHELP); + define_integer(XmDROP_NOOP); + define_integer(XmDROP_MOVE); + define_integer(XmDROP_COPY); + define_integer(XmDROP_LINK); + define_integer(XmCR_DROP_SITE_LEAVE_MESSAGE); + define_integer(XmCR_DROP_SITE_ENTER_MESSAGE); + define_integer(XmCR_DROP_SITE_MOTION_MESSAGE); + define_integer(XmCR_DROP_MESSAGE); + define_integer(XmNO_DROP_SITE); + define_integer(XmINVALID_DROP_SITE); + define_integer(XmVALID_DROP_SITE); + define_integer(XmDROP_SITE_INVALID); + define_integer(XmDROP_SITE_VALID); + define_integer(XmTRANSFER_FAILURE); + define_integer(XmTRANSFER_SUCCESS); + define_integer(XmUNSPECIFIED_ICON_SIZE); + define_integer(XmLARGE_ICON_SIZE); + define_integer(XmMEDIUM_ICON_SIZE); + define_integer(XmSMALL_ICON_SIZE); + define_integer(XmTINY_ICON_SIZE); + define_integer(XmUNSPECIFIED_POSITION); + define_integer(XmINVALID_POSITION); + define_integer(XmINDICATOR_3D_BOX); + define_integer(XmINDICATOR_FLAT_BOX); + define_integer(XmINDICATOR_CHECK_GLYPH); + define_integer(XmINDICATOR_CROSS_GLYPH); + define_integer(XmINITIAL); + define_integer(XmADDITION); + define_integer(XmMODIFICATION); + define_integer(XmVERSION); + define_integer(XmREVISION); + define_integer(XmUPDATE_LEVEL); + define_integer(XmVersion); + define_integer(XmUNSPECIFIED_PIXMAP); + define_integer(XmCOPY_FAILED); + define_integer(XmCOPY_SUCCEEDED); + define_integer(XmCOPY_TRUNCATED); + define_integer(XmDIALOG_HISTORY_LIST); + define_integer(XmDIALOG_PROMPT_LABEL); + define_integer(XmDIALOG_VALUE_TEXT); + define_integer(XmDIALOG_COMMAND_TEXT); + define_integer(XmDIALOG_FILE_LIST); + define_integer(XmDIALOG_FILE_LIST_LABEL); + define_integer(XmDIALOG_APPLICATION_MODAL); + define_integer(XmFILE_DIRECTORY); + define_integer(XmFILE_REGULAR); + define_integer(XmFILE_ANY_TYPE); + define_integer(XmCHECKBUTTON); + + define_integer(XtCallbackNoList); + define_integer(XtCallbackHasNone); + define_integer(XtCallbackHasSome); + define_integer(XtGeometryYes); + define_integer(XtGeometryNo); + define_integer(XtGeometryAlmost); + define_integer(XtGeometryDone); + define_integer(XtGrabNone); + define_integer(XtGrabNonexclusive); + define_integer(XtGrabExclusive); + define_integer(XtListHead); + define_integer(XtListTail); + define_integer(XStringStyle); + define_integer(XCompoundTextStyle); + define_integer(XTextStyle); + define_integer(XStdICCTextStyle); + define_integer(XmClipboardFail); + define_integer(XmClipboardSuccess); + define_integer(XmClipboardTruncate); + define_integer(XmClipboardLocked); + define_integer(XmClipboardBadFormat); + define_integer(XmClipboardNoData); + define_integer(XmDRAG_NONE); + define_integer(XmDRAG_DROP_ONLY); + define_integer(XmDRAG_PREFER_PREREGISTER); + define_integer(XmDRAG_PREREGISTER); + define_integer(XmDRAG_PREFER_DYNAMIC); + define_integer(XmDRAG_DYNAMIC); + define_integer(XmDRAG_PREFER_RECEIVER); + define_integer(XmTOP_LEVEL_ENTER); + define_integer(XmTOP_LEVEL_LEAVE); + define_integer(XmDRAG_MOTION); + define_integer(XmDROP_SITE_ENTER); + define_integer(XmDROP_SITE_LEAVE); + define_integer(XmDROP_START); + define_integer(XmDROP_FINISH); + define_integer(XmDRAG_DROP_FINISH); + define_integer(XmOPERATION_CHANGED); + define_integer(XmDROP); + define_integer(XmDROP_HELP); + define_integer(XmDROP_CANCEL); + define_integer(XmDROP_INTERRUPT); + define_integer(XmBLEND_ALL); + define_integer(XmBLEND_STATE_SOURCE); + define_integer(XmBLEND_JUST_SOURCE); + define_integer(XmBLEND_NONE); + define_integer(XmDROP_FAILURE); + define_integer(XmDROP_SUCCESS); + define_integer(XmCR_TOP_LEVEL_ENTER); + define_integer(XmCR_TOP_LEVEL_LEAVE); + define_integer(XmCR_DRAG_MOTION); + define_integer(XmCR_DROP_SITE_ENTER); + define_integer(XmCR_DROP_SITE_LEAVE); + define_integer(XmCR_DROP_START); + define_integer(XmCR_DROP_FINISH); + define_integer(XmCR_DRAG_DROP_FINISH); + define_integer(XmCR_OPERATION_CHANGED); + define_integer(XmATTACH_NORTH_WEST); + define_integer(XmATTACH_NORTH); + define_integer(XmATTACH_NORTH_EAST); + define_integer(XmATTACH_EAST); + define_integer(XmATTACH_SOUTH_EAST); + define_integer(XmATTACH_SOUTH); + define_integer(XmATTACH_SOUTH_WEST); + define_integer(XmATTACH_WEST); + define_integer(XmATTACH_CENTER); + define_integer(XmATTACH_HOT); + define_integer(XmDRAG_UNDER_NONE); + define_integer(XmDRAG_UNDER_PIXMAP); + define_integer(XmDRAG_UNDER_SHADOW_IN); + define_integer(XmDRAG_UNDER_SHADOW_OUT); + define_integer(XmDRAG_UNDER_HIGHLIGHT); + define_integer(XmDROP_SITE_SIMPLE); + define_integer(XmDROP_SITE_COMPOSITE); + define_integer(XmDROP_SITE_SIMPLE_CLIP_ONLY); + define_integer(XmDROP_SITE_COMPOSITE_CLIP_ONLY); + define_integer(XmABOVE); + define_integer(XmBELOW); + define_integer(XmDROP_SITE_ACTIVE); + define_integer(XmDROP_SITE_INACTIVE); + define_integer(XmFONT_IS_FONT); + define_integer(XmFONT_IS_FONTSET); + define_integer(XmSTRING_DIRECTION_L_TO_R); + define_integer(XmSTRING_DIRECTION_R_TO_L); + define_integer(XmSTRING_DIRECTION_DEFAULT); + define_integer(XmSTRING_COMPONENT_UNKNOWN); + define_integer(XmSTRING_COMPONENT_TEXT); + define_integer(XmSTRING_COMPONENT_DIRECTION); + define_integer(XmSTRING_COMPONENT_SEPARATOR); + define_integer(XmSTRING_COMPONENT_LOCALE_TEXT); + define_integer(XmSTRING_COMPONENT_END); + define_integer(XmPAGE_FOUND); + define_integer(XmPAGE_INVALID); + define_integer(XmPAGE_EMPTY); + define_integer(XmPAGE_DUPLICATED); + define_integer(XmMOVE); + define_integer(XmCOPY); + define_integer(XmLINK); + define_integer(XmOTHER); + define_integer(XmDROP_SITE_IGNORE); + define_integer(XmTRANSFER_DONE_SUCCEED); + define_integer(XmTRANSFER_DONE_FAIL); + define_integer(XmTRANSFER_DONE_CONTINUE); + define_integer(XmTRANSFER_DONE_DEFAULT); + define_integer(XmSELECTION_DEFAULT); + define_integer(XmSELECTION_INCREMENTAL); + define_integer(XmSELECTION_PERSIST); + define_integer(XmSELECTION_SNAPSHOT); + define_integer(XmSELECTION_TRANSACT); + define_integer(XmCONVERTING_NONE); + define_integer(XmCONVERTING_SAME); + define_integer(XmCONVERTING_TRANSACT); + define_integer(XmCONVERTING_PARTIAL); + define_integer(XmCONVERT_DEFAULT); + define_integer(XmCONVERT_MORE); + define_integer(XmCONVERT_MERGE); + define_integer(XmCONVERT_REFUSE); + define_integer(XmCONVERT_DONE); + define_integer(XmSTRING_DIRECTION_UNSET); + define_integer(XmSTRING_COMPONENT_LOCALE); + define_integer(XmSTRING_COMPONENT_WIDECHAR_TEXT); + define_integer(XmSTRING_COMPONENT_LAYOUT_PUSH); + define_integer(XmSTRING_COMPONENT_LAYOUT_POP); + define_integer(XmSTRING_COMPONENT_RENDITION_BEGIN); + define_integer(XmSTRING_COMPONENT_RENDITION_END); + define_integer(XmSTRING_COMPONENT_TAB); + define_integer(XmSTRING_COMPONENT_TAG); + define_integer(XmCHARSET_TEXT); + define_integer(XmMULTIBYTE_TEXT); + define_integer(XmWIDECHAR_TEXT); + define_integer(XmNO_TEXT); + define_integer(XmOUTPUT_ALL); + define_integer(XmOUTPUT_BETWEEN); + define_integer(XmOUTPUT_BEGINNING); + define_integer(XmOUTPUT_END); + define_integer(XmOUTPUT_BOTH); + define_integer(XmINSERT); + define_integer(XmTERMINATE); + define_integer(XmINVOKE); + define_integer(XmSTYLE_STRING); + define_integer(XmSTYLE_COMPOUND_TEXT); + define_integer(XmSTYLE_TEXT); + define_integer(XmSTYLE_STANDARD_ICC_TEXT); + define_integer(XmSTYLE_LOCALE); + define_integer(XmSTYLE_COMPOUND_STRING); + define_integer(XmABSOLUTE); + define_integer(XmRELATIVE); + define_integer(XmSKIP); + define_integer(XmMERGE_REPLACE); + define_integer(XmMERGE_OLD); + define_integer(XmMERGE_NEW); + define_integer(XmDUPLICATE); + define_integer(XmAS_IS); + define_integer(XmFORCE_COLOR); /* the next 4 are dependent on (Pixel)(~0) which is unsigned long in X terminology, but we then subtract from it -- * that is, XmHIGHLIGHT_COLOR is: ((Pixel)(~0)) - 2, which I assume is intended to be a positive number */ #if 0 - DEFINE_INTEGER(XmUNSPECIFIED_PIXEL); - DEFINE_INTEGER(XmDEFAULT_SELECT_COLOR); - DEFINE_INTEGER(XmREVERSED_GROUND_COLORS); - DEFINE_INTEGER(XmHIGHLIGHT_COLOR); + define_integer(XmUNSPECIFIED_PIXEL); + define_integer(XmDEFAULT_SELECT_COLOR); + define_integer(XmREVERSED_GROUND_COLORS); + define_integer(XmHIGHLIGHT_COLOR); #else - DEFINE_ULONG(XmUNSPECIFIED_PIXEL); - DEFINE_ULONG(XmDEFAULT_SELECT_COLOR); - DEFINE_ULONG(XmREVERSED_GROUND_COLORS); - DEFINE_ULONG(XmHIGHLIGHT_COLOR); + define_ulong(XmUNSPECIFIED_PIXEL); + define_ulong(XmDEFAULT_SELECT_COLOR); + define_ulong(XmREVERSED_GROUND_COLORS); + define_ulong(XmHIGHLIGHT_COLOR); #endif - DEFINE_INTEGER(XmUNSPECIFIED_LOAD_MODEL); - DEFINE_INTEGER(XmLOAD_DEFERRED); - DEFINE_INTEGER(XmLOAD_IMMEDIATE); - DEFINE_INTEGER(XmCHANGE_ALL); - DEFINE_INTEGER(XmCHANGE_NONE); - DEFINE_INTEGER(XmCHANGE_WIDTH); - DEFINE_INTEGER(XmCHANGE_HEIGHT); - DEFINE_INTEGER(XmDYNAMIC_DEFAULT_TAB_GROUP); - DEFINE_INTEGER(XmPIXELS); - DEFINE_INTEGER(Xm100TH_MILLIMETERS); - DEFINE_INTEGER(Xm1000TH_INCHES); - DEFINE_INTEGER(Xm100TH_POINTS); - DEFINE_INTEGER(Xm100TH_FONT_UNITS); - DEFINE_INTEGER(XmDESTROY); - DEFINE_INTEGER(XmUNMAP); - DEFINE_INTEGER(XmDO_NOTHING); - DEFINE_INTEGER(XmEXPLICIT); - DEFINE_INTEGER(XmPOINTER); - DEFINE_INTEGER(XmNONE); - DEFINE_INTEGER(XmTAB_GROUP); - DEFINE_INTEGER(XmSTICKY_TAB_GROUP); - DEFINE_INTEGER(XmEXCLUSIVE_TAB_GROUP); - DEFINE_INTEGER(XmBELL); - DEFINE_INTEGER(XmNO_ORIENTATION); - DEFINE_INTEGER(XmVERTICAL); - DEFINE_INTEGER(XmHORIZONTAL); - DEFINE_INTEGER(XmWORK_AREA); - DEFINE_INTEGER(XmMENU_BAR); - DEFINE_INTEGER(XmMENU_PULLDOWN); - DEFINE_INTEGER(XmMENU_POPUP); - DEFINE_INTEGER(XmMENU_OPTION); - DEFINE_INTEGER(XmNO_PACKING); - DEFINE_INTEGER(XmPACK_TIGHT); - DEFINE_INTEGER(XmPACK_COLUMN); - DEFINE_INTEGER(XmPACK_NONE); - DEFINE_INTEGER(XmALIGNMENT_CONTENTS_TOP); - DEFINE_INTEGER(XmALIGNMENT_CONTENTS_BOTTOM); - DEFINE_INTEGER(XmTEAR_OFF_ENABLED); - DEFINE_INTEGER(XmTEAR_OFF_DISABLED); - DEFINE_INTEGER(XmUNPOST); - DEFINE_INTEGER(XmUNPOST_AND_REPLAY); - DEFINE_INTEGER(XmLAST_POSITION); - DEFINE_INTEGER(XmFIRST_POSITION); - DEFINE_INTEGER(XmINCHES); - DEFINE_INTEGER(XmCENTIMETERS); - DEFINE_INTEGER(XmMILLIMETERS); - DEFINE_INTEGER(XmPOINTS); - DEFINE_INTEGER(XmFONT_UNITS); - DEFINE_INTEGER(XmPER_SHELL); - DEFINE_INTEGER(XmPER_WIDGET); - DEFINE_INTEGER(XmINHERIT_POLICY); - DEFINE_INTEGER(XmPOPUP_DISABLED); - DEFINE_INTEGER(XmPOPUP_KEYBOARD); - DEFINE_INTEGER(XmPOPUP_AUTOMATIC); - DEFINE_INTEGER(XmPOPUP_AUTOMATIC_RECURSIVE); - DEFINE_INTEGER(XmCOMBO_BOX); - DEFINE_INTEGER(XmDROP_DOWN_COMBO_BOX); - DEFINE_INTEGER(XmDROP_DOWN_LIST); - DEFINE_INTEGER(XmQUICK_NAVIGATE); - DEFINE_INTEGER(XmINVALID_MATCH_BEHAVIOR); - DEFINE_INTEGER(XmZERO_BASED); - DEFINE_INTEGER(XmONE_BASED); - DEFINE_INTEGER(XmALIGNMENT_CHILD_TOP); - DEFINE_INTEGER(XmALIGNMENT_CHILD_BOTTOM); - DEFINE_INTEGER(XmONE_OF_MANY_ROUND); - DEFINE_INTEGER(XmONE_OF_MANY_DIAMOND); - DEFINE_INTEGER(XmALIGNMENT_BEGINNING); - DEFINE_INTEGER(XmALIGNMENT_CENTER); - DEFINE_INTEGER(XmALIGNMENT_END); - DEFINE_INTEGER(XmALIGNMENT_BASELINE_TOP); - DEFINE_INTEGER(XmALIGNMENT_BASELINE_BOTTOM); - DEFINE_INTEGER(XmALIGNMENT_WIDGET_TOP); - DEFINE_INTEGER(XmALIGNMENT_WIDGET_BOTTOM); + define_integer(XmUNSPECIFIED_LOAD_MODEL); + define_integer(XmLOAD_DEFERRED); + define_integer(XmLOAD_IMMEDIATE); + define_integer(XmCHANGE_ALL); + define_integer(XmCHANGE_NONE); + define_integer(XmCHANGE_WIDTH); + define_integer(XmCHANGE_HEIGHT); + define_integer(XmDYNAMIC_DEFAULT_TAB_GROUP); + define_integer(XmPIXELS); + define_integer(Xm100TH_MILLIMETERS); + define_integer(Xm1000TH_INCHES); + define_integer(Xm100TH_POINTS); + define_integer(Xm100TH_FONT_UNITS); + define_integer(XmDESTROY); + define_integer(XmUNMAP); + define_integer(XmDO_NOTHING); + define_integer(XmEXPLICIT); + define_integer(XmPOINTER); + define_integer(XmNONE); + define_integer(XmTAB_GROUP); + define_integer(XmSTICKY_TAB_GROUP); + define_integer(XmEXCLUSIVE_TAB_GROUP); + define_integer(XmBELL); + define_integer(XmNO_ORIENTATION); + define_integer(XmVERTICAL); + define_integer(XmHORIZONTAL); + define_integer(XmWORK_AREA); + define_integer(XmMENU_BAR); + define_integer(XmMENU_PULLDOWN); + define_integer(XmMENU_POPUP); + define_integer(XmMENU_OPTION); + define_integer(XmNO_PACKING); + define_integer(XmPACK_TIGHT); + define_integer(XmPACK_COLUMN); + define_integer(XmPACK_NONE); + define_integer(XmALIGNMENT_CONTENTS_TOP); + define_integer(XmALIGNMENT_CONTENTS_BOTTOM); + define_integer(XmTEAR_OFF_ENABLED); + define_integer(XmTEAR_OFF_DISABLED); + define_integer(XmUNPOST); + define_integer(XmUNPOST_AND_REPLAY); + define_integer(XmLAST_POSITION); + define_integer(XmFIRST_POSITION); + define_integer(XmINCHES); + define_integer(XmCENTIMETERS); + define_integer(XmMILLIMETERS); + define_integer(XmPOINTS); + define_integer(XmFONT_UNITS); + define_integer(XmPER_SHELL); + define_integer(XmPER_WIDGET); + define_integer(XmINHERIT_POLICY); + define_integer(XmPOPUP_DISABLED); + define_integer(XmPOPUP_KEYBOARD); + define_integer(XmPOPUP_AUTOMATIC); + define_integer(XmPOPUP_AUTOMATIC_RECURSIVE); + define_integer(XmCOMBO_BOX); + define_integer(XmDROP_DOWN_COMBO_BOX); + define_integer(XmDROP_DOWN_LIST); + define_integer(XmQUICK_NAVIGATE); + define_integer(XmINVALID_MATCH_BEHAVIOR); + define_integer(XmZERO_BASED); + define_integer(XmONE_BASED); + define_integer(XmALIGNMENT_CHILD_TOP); + define_integer(XmALIGNMENT_CHILD_BOTTOM); + define_integer(XmONE_OF_MANY_ROUND); + define_integer(XmONE_OF_MANY_DIAMOND); + define_integer(XmALIGNMENT_BEGINNING); + define_integer(XmALIGNMENT_CENTER); + define_integer(XmALIGNMENT_END); + define_integer(XmALIGNMENT_BASELINE_TOP); + define_integer(XmALIGNMENT_BASELINE_BOTTOM); + define_integer(XmALIGNMENT_WIDGET_TOP); + define_integer(XmALIGNMENT_WIDGET_BOTTOM); #ifdef XmALIGNMENT_UNSPECIFIED - DEFINE_INTEGER(XmALIGNMENT_UNSPECIFIED); -#endif - DEFINE_INTEGER(XmFRAME_GENERIC_CHILD); - DEFINE_INTEGER(XmFRAME_WORKAREA_CHILD); - DEFINE_INTEGER(XmFRAME_TITLE_CHILD); - DEFINE_INTEGER(XmN_OF_MANY); - DEFINE_INTEGER(XmONE_OF_MANY); - DEFINE_INTEGER(XmATTACH_NONE); - DEFINE_INTEGER(XmATTACH_FORM); - DEFINE_INTEGER(XmATTACH_OPPOSITE_FORM); - DEFINE_INTEGER(XmATTACH_WIDGET); - DEFINE_INTEGER(XmATTACH_OPPOSITE_WIDGET); - DEFINE_INTEGER(XmATTACH_POSITION); - DEFINE_INTEGER(XmATTACH_SELF); - DEFINE_INTEGER(XmRESIZE_NONE); - DEFINE_INTEGER(XmRESIZE_GROW); - DEFINE_INTEGER(XmRESIZE_ANY); - DEFINE_INTEGER(XmCR_NONE); - DEFINE_INTEGER(XmCR_HELP); - DEFINE_INTEGER(XmCR_VALUE_CHANGED); - DEFINE_INTEGER(XmCR_INCREMENT); - DEFINE_INTEGER(XmCR_DECREMENT); - DEFINE_INTEGER(XmCR_PAGE_INCREMENT); - DEFINE_INTEGER(XmCR_PAGE_DECREMENT); - DEFINE_INTEGER(XmCR_TO_TOP); - DEFINE_INTEGER(XmCR_TO_BOTTOM); - DEFINE_INTEGER(XmCR_DRAG); - DEFINE_INTEGER(XmCR_ACTIVATE); - DEFINE_INTEGER(XmCR_ARM); - DEFINE_INTEGER(XmCR_DISARM); - DEFINE_INTEGER(XmCR_MAP); - DEFINE_INTEGER(XmCR_UNMAP); - DEFINE_INTEGER(XmCR_FOCUS); - DEFINE_INTEGER(XmCR_LOSING_FOCUS); - DEFINE_INTEGER(XmCR_MODIFYING_TEXT_VALUE); - DEFINE_INTEGER(XmCR_MOVING_INSERT_CURSOR); - DEFINE_INTEGER(XmCR_EXECUTE); - DEFINE_INTEGER(XmCR_SINGLE_SELECT); - DEFINE_INTEGER(XmCR_MULTIPLE_SELECT); - DEFINE_INTEGER(XmCR_EXTENDED_SELECT); - DEFINE_INTEGER(XmCR_BROWSE_SELECT); - DEFINE_INTEGER(XmCR_DEFAULT_ACTION); - DEFINE_INTEGER(XmCR_CLIPBOARD_DATA_REQUEST); - DEFINE_INTEGER(XmCR_CLIPBOARD_DATA_DELETE); - DEFINE_INTEGER(XmCR_CASCADING); - DEFINE_INTEGER(XmCR_OK); - DEFINE_INTEGER(XmCR_CANCEL); - DEFINE_INTEGER(XmCR_APPLY); - DEFINE_INTEGER(XmCR_NO_MATCH); - DEFINE_INTEGER(XmCR_COMMAND_ENTERED); - DEFINE_INTEGER(XmCR_COMMAND_CHANGED); - DEFINE_INTEGER(XmCR_EXPOSE); - DEFINE_INTEGER(XmCR_RESIZE); - DEFINE_INTEGER(XmCR_INPUT); - DEFINE_INTEGER(XmCR_GAIN_PRIMARY); - DEFINE_INTEGER(XmCR_LOSE_PRIMARY); - DEFINE_INTEGER(XmCR_CREATE); - DEFINE_INTEGER(XmCR_TEAR_OFF_ACTIVATE); - DEFINE_INTEGER(XmCR_TEAR_OFF_DEACTIVATE); - DEFINE_INTEGER(XmCR_OBSCURED_TRAVERSAL); - DEFINE_INTEGER(XmCR_FOCUS_MOVED); - DEFINE_INTEGER(XmCR_REPOST); - DEFINE_INTEGER(XmCR_COLLAPSED); - DEFINE_INTEGER(XmCR_EXPANDED); - DEFINE_INTEGER(XmCR_SELECT); - DEFINE_INTEGER(XmCR_DRAG_START); - DEFINE_INTEGER(XmCR_NO_FONT); - DEFINE_INTEGER(XmCR_NO_RENDITION); - DEFINE_INTEGER(XmCR_POST); - DEFINE_INTEGER(XmCR_SPIN_NEXT); - DEFINE_INTEGER(XmCR_SPIN_PRIOR); - DEFINE_INTEGER(XmCR_SPIN_FIRST); - DEFINE_INTEGER(XmCR_SPIN_LAST); - DEFINE_INTEGER(XmCR_PAGE_SCROLLER_INCREMENT); - DEFINE_INTEGER(XmCR_PAGE_SCROLLER_DECREMENT); - DEFINE_INTEGER(XmCR_MAJOR_TAB); - DEFINE_INTEGER(XmCR_MINOR_TAB); - DEFINE_INTEGER(XmCR_START_JOB); - DEFINE_INTEGER(XmCR_END_JOB); - DEFINE_INTEGER(XmCR_PAGE_SETUP); - DEFINE_INTEGER(XmCR_PDM_NONE); - DEFINE_INTEGER(XmCR_PDM_UP); - DEFINE_INTEGER(XmCR_PDM_START_ERROR); - DEFINE_INTEGER(XmCR_PDM_START_VXAUTH); - DEFINE_INTEGER(XmCR_PDM_START_PXAUTH); - DEFINE_INTEGER(XmCR_PDM_OK); - DEFINE_INTEGER(XmCR_PDM_CANCEL); - DEFINE_INTEGER(XmCR_PDM_EXIT_ERROR); - DEFINE_INTEGER(XmCR_PROTOCOLS); - DEFINE_INTEGER(XmEACH_SIDE); - DEFINE_INTEGER(XmMAX_SIDE); - DEFINE_INTEGER(XmMIN_SIDE); - DEFINE_INTEGER(XmBACKGROUND_COLOR); - DEFINE_INTEGER(XmFOREGROUND_COLOR); - DEFINE_INTEGER(XmTROUGH_COLOR); - DEFINE_INTEGER(XmSHADOWED_BACKGROUND); - DEFINE_INTEGER(XmTHUMB_MARK); - DEFINE_INTEGER(XmROUND_MARK); - DEFINE_INTEGER(XmNEAR_SLIDER); - DEFINE_INTEGER(XmNEAR_BORDER); - DEFINE_INTEGER(XmHOR_SCROLLBAR); - DEFINE_INTEGER(XmVERT_SCROLLBAR); - DEFINE_INTEGER(XmCOMMAND_WINDOW); - DEFINE_INTEGER(XmMESSAGE_WINDOW); - DEFINE_INTEGER(XmSCROLL_HOR); - DEFINE_INTEGER(XmSCROLL_VERT); - DEFINE_INTEGER(XmNO_SCROLL); - DEFINE_INTEGER(XmCLIP_WINDOW); - DEFINE_INTEGER(XmGENERIC_CHILD); - DEFINE_INTEGER(XmAUTO_DRAG_ENABLED); - DEFINE_INTEGER(XmAUTO_DRAG_DISABLED); - DEFINE_INTEGER(XmENABLE_WARP_ON); - DEFINE_INTEGER(XmENABLE_WARP_OFF); - DEFINE_INTEGER(XmOFF); - DEFINE_INTEGER(XmBUTTON2_ADJUST); - DEFINE_INTEGER(XmBUTTON2_TRANSFER); - DEFINE_INTEGER(XmAUTO_UNSET); - DEFINE_INTEGER(XmAUTO_BEGIN); - DEFINE_INTEGER(XmAUTO_MOTION); - DEFINE_INTEGER(XmAUTO_CANCEL); - DEFINE_INTEGER(XmAUTO_NO_CHANGE); - DEFINE_INTEGER(XmAUTO_CHANGE); - DEFINE_INTEGER(XmDRAG_WINDOW); - DEFINE_INTEGER(XmSLIDER); - DEFINE_INTEGER(XmTHERMOMETER); - DEFINE_INTEGER(XmETCHED_LINE); - DEFINE_INTEGER(XmMULTICLICK_DISCARD); - DEFINE_INTEGER(XmMULTICLICK_KEEP); - DEFINE_INTEGER(XmSHADOW_IN); - DEFINE_INTEGER(XmSHADOW_OUT); - DEFINE_INTEGER(XmARROW_UP); - DEFINE_INTEGER(XmARROW_DOWN); - DEFINE_INTEGER(XmARROW_LEFT); - DEFINE_INTEGER(XmARROW_RIGHT); - DEFINE_INTEGER(XmNO_LINE); - DEFINE_INTEGER(XmSINGLE_LINE); - DEFINE_INTEGER(XmDOUBLE_LINE); - DEFINE_INTEGER(XmSINGLE_DASHED_LINE); - DEFINE_INTEGER(XmDOUBLE_DASHED_LINE); - DEFINE_INTEGER(XmSHADOW_ETCHED_IN); - DEFINE_INTEGER(XmSHADOW_ETCHED_OUT); - DEFINE_INTEGER(XmSHADOW_ETCHED_IN_DASH); - DEFINE_INTEGER(XmSHADOW_ETCHED_OUT_DASH); - DEFINE_INTEGER(XmINVALID_SEPARATOR_TYPE); - DEFINE_INTEGER(XmPIXMAP); - DEFINE_INTEGER(XmSTRING); - DEFINE_INTEGER(XmWINDOW); - DEFINE_INTEGER(XmCURSOR); - DEFINE_INTEGER(XmMAX_ON_TOP); - DEFINE_INTEGER(XmMAX_ON_BOTTOM); - DEFINE_INTEGER(XmMAX_ON_LEFT); - DEFINE_INTEGER(XmMAX_ON_RIGHT); - DEFINE_INTEGER(XmSINGLE_SELECT); - DEFINE_INTEGER(XmMULTIPLE_SELECT); - DEFINE_INTEGER(XmEXTENDED_SELECT); - DEFINE_INTEGER(XmBROWSE_SELECT); - DEFINE_INTEGER(XmSTATIC); - DEFINE_INTEGER(XmDYNAMIC); - DEFINE_INTEGER(XmNORMAL_MODE); - DEFINE_INTEGER(XmADD_MODE); - DEFINE_INTEGER(XmNO_AUTO_SELECT); - DEFINE_INTEGER(XmAUTO_SELECT); - DEFINE_INTEGER(XmSINGLE); - DEFINE_INTEGER(XmANY_ICON); - DEFINE_INTEGER(XmAPPEND); - DEFINE_INTEGER(XmCLOSEST); - DEFINE_INTEGER(XmFIRST_FIT); - DEFINE_INTEGER(XmOUTLINE); - DEFINE_INTEGER(XmSPATIAL); - DEFINE_INTEGER(XmDETAIL); - DEFINE_INTEGER(XmOUTLINE_BUTTON_PRESENT); - DEFINE_INTEGER(XmOUTLINE_BUTTON_ABSENT); - DEFINE_INTEGER(XmGRID); - DEFINE_INTEGER(XmCELLS); - DEFINE_INTEGER(XmOWN_NEVER); - DEFINE_INTEGER(XmOWN_ALWAYS); - DEFINE_INTEGER(XmOWN_MULTIPLE); - DEFINE_INTEGER(XmOWN_POSSIBLE_MULTIPLE); - DEFINE_INTEGER(XmGROW_MINOR); - DEFINE_INTEGER(XmGROW_MAJOR); - DEFINE_INTEGER(XmGROW_BALANCED); - DEFINE_INTEGER(XmMARQUEE); - DEFINE_INTEGER(XmMARQUEE_EXTEND_START); - DEFINE_INTEGER(XmMARQUEE_EXTEND_BOTH); - DEFINE_INTEGER(XmTOUCH_ONLY); - DEFINE_INTEGER(XmTOUCH_OVER); - DEFINE_INTEGER(XmSNAP_TO_GRID); - DEFINE_INTEGER(XmCENTER); - DEFINE_INTEGER(XmCOLLAPSED); - DEFINE_INTEGER(XmEXPANDED); - DEFINE_INTEGER(XmLARGE_ICON); - DEFINE_INTEGER(XmSMALL_ICON); - DEFINE_INTEGER(XmSELECTED); - DEFINE_INTEGER(XmNOT_SELECTED); - DEFINE_INTEGER(XmSOLID); - DEFINE_INTEGER(XmSPIRAL); - DEFINE_INTEGER(XmPIXMAP_OVERLAP_ONLY); - DEFINE_INTEGER(XmPAGE); - DEFINE_INTEGER(XmMAJOR_TAB); - DEFINE_INTEGER(XmMINOR_TAB); - DEFINE_INTEGER(XmSTATUS_AREA); - DEFINE_INTEGER(XmPAGE_SCROLLER); - DEFINE_INTEGER(XmARROWS_VERTICAL); - DEFINE_INTEGER(XmARROWS_HORIZONTAL); - DEFINE_INTEGER(XmARROWS_END); - DEFINE_INTEGER(XmARROWS_BEGINNING); - DEFINE_INTEGER(XmARROWS_SPLIT); - DEFINE_INTEGER(XmARROWS_FLAT_END); - DEFINE_INTEGER(XmARROWS_FLAT_BEGINNING); - DEFINE_INTEGER(XmARROWS_INSENSITIVE); - DEFINE_INTEGER(XmARROWS_INCREMENT_SENSITIVE); - DEFINE_INTEGER(XmARROWS_DECREMENT_SENSITIVE); - DEFINE_INTEGER(XmARROWS_SENSITIVE); - DEFINE_INTEGER(XmARROWS_DEFAULT_SENSITIVITY); - DEFINE_INTEGER(XmPOSITION_INDEX); - DEFINE_INTEGER(XmPOSITION_VALUE); - DEFINE_INTEGER(XmNUMERIC); - DEFINE_INTEGER(XmVALID_VALUE); - DEFINE_INTEGER(XmCURRENT_VALUE); - DEFINE_INTEGER(XmMAXIMUM_VALUE); - DEFINE_INTEGER(XmMINIMUM_VALUE); - DEFINE_INTEGER(XmINCREMENT_VALUE); - DEFINE_INTEGER(XmSELECT_OUT_LINE); - DEFINE_INTEGER(XmSEE_DETAIL); - DEFINE_INTEGER(XmVARIABLE); - DEFINE_INTEGER(XmCONSTANT); - DEFINE_INTEGER(XmRESIZE_IF_POSSIBLE); - DEFINE_INTEGER(XmAUTOMATIC); - DEFINE_INTEGER(XmAPPLICATION_DEFINED); - DEFINE_INTEGER(XmAS_NEEDED); - DEFINE_INTEGER(XmCOMMAND_ABOVE_WORKSPACE); - DEFINE_INTEGER(XmCOMMAND_BELOW_WORKSPACE); - DEFINE_INTEGER(XmMULTI_LINE_EDIT); - DEFINE_INTEGER(XmSINGLE_LINE_EDIT); - DEFINE_INTEGER(XmTEXT_FORWARD); - DEFINE_INTEGER(XmTEXT_BACKWARD); - DEFINE_INTEGER(XmSELECT_POSITION); - DEFINE_INTEGER(XmSELECT_WHITESPACE); - DEFINE_INTEGER(XmSELECT_WORD); - DEFINE_INTEGER(XmSELECT_LINE); - DEFINE_INTEGER(XmSELECT_ALL); - DEFINE_INTEGER(XmSELECT_PARAGRAPH); - DEFINE_INTEGER(XmHIGHLIGHT_NORMAL); - DEFINE_INTEGER(XmHIGHLIGHT_SELECTED); - DEFINE_INTEGER(XmHIGHLIGHT_SECONDARY_SELECTED); - DEFINE_INTEGER(XmDIALOG_NONE); - DEFINE_INTEGER(XmDIALOG_APPLY_BUTTON); - DEFINE_INTEGER(XmDIALOG_CANCEL_BUTTON); - DEFINE_INTEGER(XmDIALOG_DEFAULT_BUTTON); - DEFINE_INTEGER(XmDIALOG_OK_BUTTON); - DEFINE_INTEGER(XmDIALOG_FILTER_LABEL); - DEFINE_INTEGER(XmDIALOG_FILTER_TEXT); - DEFINE_INTEGER(XmDIALOG_HELP_BUTTON); - DEFINE_INTEGER(XmDIALOG_LIST); - DEFINE_INTEGER(XmDIALOG_LIST_LABEL); - DEFINE_INTEGER(XmDIALOG_MESSAGE_LABEL); - DEFINE_INTEGER(XmDIALOG_SELECTION_LABEL); - DEFINE_INTEGER(XmDIALOG_SYMBOL_LABEL); - DEFINE_INTEGER(XmDIALOG_TEXT); - DEFINE_INTEGER(XmDIALOG_SEPARATOR); - DEFINE_INTEGER(XmDIALOG_DIR_LIST); - DEFINE_INTEGER(XmDIALOG_DIR_LIST_LABEL); - DEFINE_INTEGER(XmDIALOG_MODELESS); - DEFINE_INTEGER(XmDIALOG_PRIMARY_APPLICATION_MODAL); - DEFINE_INTEGER(XmDIALOG_FULL_APPLICATION_MODAL); - DEFINE_INTEGER(XmDIALOG_SYSTEM_MODAL); - DEFINE_INTEGER(XmPLACE_TOP); - DEFINE_INTEGER(XmPLACE_ABOVE_SELECTION); - DEFINE_INTEGER(XmPLACE_BELOW_SELECTION); - DEFINE_INTEGER(XmDIALOG_WORK_AREA); - DEFINE_INTEGER(XmDIALOG_PROMPT); - DEFINE_INTEGER(XmDIALOG_SELECTION); - DEFINE_INTEGER(XmDIALOG_COMMAND); - DEFINE_INTEGER(XmDIALOG_FILE_SELECTION); - DEFINE_INTEGER(XmDIALOG_TEMPLATE); - DEFINE_INTEGER(XmDIALOG_ERROR); - DEFINE_INTEGER(XmDIALOG_INFORMATION); - DEFINE_INTEGER(XmDIALOG_MESSAGE); - DEFINE_INTEGER(XmDIALOG_QUESTION); - DEFINE_INTEGER(XmDIALOG_WARNING); - DEFINE_INTEGER(XmDIALOG_WORKING); - DEFINE_INTEGER(XmVISIBILITY_UNOBSCURED); - DEFINE_INTEGER(XmVISIBILITY_PARTIALLY_OBSCURED); - DEFINE_INTEGER(XmVISIBILITY_FULLY_OBSCURED); - DEFINE_INTEGER(XmTRAVERSE_CURRENT); - DEFINE_INTEGER(XmTRAVERSE_NEXT); - DEFINE_INTEGER(XmTRAVERSE_PREV); - DEFINE_INTEGER(XmTRAVERSE_HOME); - DEFINE_INTEGER(XmTRAVERSE_NEXT_TAB_GROUP); - DEFINE_INTEGER(XmTRAVERSE_PREV_TAB_GROUP); - DEFINE_INTEGER(XmTRAVERSE_UP); - DEFINE_INTEGER(XmTRAVERSE_DOWN); - DEFINE_INTEGER(XmTRAVERSE_LEFT); - DEFINE_INTEGER(XmTRAVERSE_RIGHT); - DEFINE_INTEGER(XmPUSHBUTTON); - DEFINE_INTEGER(XmTOGGLEBUTTON); - DEFINE_INTEGER(XmRADIOBUTTON); - DEFINE_INTEGER(XmCASCADEBUTTON); - DEFINE_INTEGER(XmSEPARATOR); - DEFINE_INTEGER(XmDOUBLE_SEPARATOR); - DEFINE_INTEGER(XmTITLE); - DEFINE_INTEGER(XmBOTTOM_RIGHT); - DEFINE_INTEGER(XmBOTTOM_LEFT); - DEFINE_INTEGER(XmTOP_RIGHT); - DEFINE_INTEGER(XmTOP_LEFT); - DEFINE_INTEGER(XmTRAVERSE_GLOBALLY_FORWARD); - DEFINE_INTEGER(XmTRAVERSE_GLOBALLY_BACKWARD); - DEFINE_INTEGER(XmMATCH_DEPTH); - DEFINE_INTEGER(XmDYNAMIC_DEPTH); - DEFINE_INTEGER(XmPDM_NOTIFY_FAIL); - DEFINE_INTEGER(XmPDM_NOTIFY_SUCCESS); - DEFINE_INTEGER(XmINDICATOR_NONE); - DEFINE_INTEGER(XmINDICATOR_FILL); - DEFINE_INTEGER(XmINDICATOR_BOX); - DEFINE_INTEGER(XmINDICATOR_CHECK); - DEFINE_INTEGER(XmINDICATOR_CHECK_BOX); - DEFINE_INTEGER(XmINDICATOR_CROSS); - DEFINE_INTEGER(XmINDICATOR_CROSS_BOX); - DEFINE_INTEGER(XmUNSET); - DEFINE_INTEGER(XmSET); - DEFINE_INTEGER(XmINDETERMINATE); - DEFINE_INTEGER(XmTOGGLE_BOOLEAN); - DEFINE_INTEGER(XmTOGGLE_INDETERMINATE); - DEFINE_INTEGER(XmPATH_MODE_FULL); - DEFINE_INTEGER(XmPATH_MODE_RELATIVE); - DEFINE_INTEGER(XmFILTER_NONE); - DEFINE_INTEGER(XmFILTER_HIDDEN_FILES); -#if HAVE_XmCreateColorSelector - DEFINE_INTEGER(XmScaleMode); - DEFINE_INTEGER(XmListMode); -#endif -#endif -#if HAVE_XSHAPEQUERYEXTENSION - DEFINE_INTEGER(ShapeSet); - DEFINE_INTEGER(ShapeUnion); - DEFINE_INTEGER(ShapeIntersect); - DEFINE_INTEGER(ShapeSubtract); - DEFINE_INTEGER(ShapeInvert); - DEFINE_INTEGER(ShapeBounding); - DEFINE_INTEGER(ShapeClip); -#endif - -#if HAVE_XmCreateButtonBox - DEFINE_INTEGER(XmFillNone); - DEFINE_INTEGER(XmFillMajor); - DEFINE_INTEGER(XmFillMinor); - DEFINE_INTEGER(XmFillAll); - DEFINE_INTEGER(XmIconTop); - DEFINE_INTEGER(XmIconLeft); - DEFINE_INTEGER(XmIconRight); - DEFINE_INTEGER(XmIconBottom); - DEFINE_INTEGER(XmIconOnly); - DEFINE_INTEGER(XmIconNone); + define_integer(XmALIGNMENT_UNSPECIFIED); #endif + define_integer(XmFRAME_GENERIC_CHILD); + define_integer(XmFRAME_WORKAREA_CHILD); + define_integer(XmFRAME_TITLE_CHILD); + define_integer(XmN_OF_MANY); + define_integer(XmONE_OF_MANY); + define_integer(XmATTACH_NONE); + define_integer(XmATTACH_FORM); + define_integer(XmATTACH_OPPOSITE_FORM); + define_integer(XmATTACH_WIDGET); + define_integer(XmATTACH_OPPOSITE_WIDGET); + define_integer(XmATTACH_POSITION); + define_integer(XmATTACH_SELF); + define_integer(XmRESIZE_NONE); + define_integer(XmRESIZE_GROW); + define_integer(XmRESIZE_ANY); + define_integer(XmCR_NONE); + define_integer(XmCR_HELP); + define_integer(XmCR_VALUE_CHANGED); + define_integer(XmCR_INCREMENT); + define_integer(XmCR_DECREMENT); + define_integer(XmCR_PAGE_INCREMENT); + define_integer(XmCR_PAGE_DECREMENT); + define_integer(XmCR_TO_TOP); + define_integer(XmCR_TO_BOTTOM); + define_integer(XmCR_DRAG); + define_integer(XmCR_ACTIVATE); + define_integer(XmCR_ARM); + define_integer(XmCR_DISARM); + define_integer(XmCR_MAP); + define_integer(XmCR_UNMAP); + define_integer(XmCR_FOCUS); + define_integer(XmCR_LOSING_FOCUS); + define_integer(XmCR_MODIFYING_TEXT_VALUE); + define_integer(XmCR_MOVING_INSERT_CURSOR); + define_integer(XmCR_EXECUTE); + define_integer(XmCR_SINGLE_SELECT); + define_integer(XmCR_MULTIPLE_SELECT); + define_integer(XmCR_EXTENDED_SELECT); + define_integer(XmCR_BROWSE_SELECT); + define_integer(XmCR_DEFAULT_ACTION); + define_integer(XmCR_CLIPBOARD_DATA_REQUEST); + define_integer(XmCR_CLIPBOARD_DATA_DELETE); + define_integer(XmCR_CASCADING); + define_integer(XmCR_OK); + define_integer(XmCR_CANCEL); + define_integer(XmCR_APPLY); + define_integer(XmCR_NO_MATCH); + define_integer(XmCR_COMMAND_ENTERED); + define_integer(XmCR_COMMAND_CHANGED); + define_integer(XmCR_EXPOSE); + define_integer(XmCR_RESIZE); + define_integer(XmCR_INPUT); + define_integer(XmCR_GAIN_PRIMARY); + define_integer(XmCR_LOSE_PRIMARY); + define_integer(XmCR_CREATE); + define_integer(XmCR_TEAR_OFF_ACTIVATE); + define_integer(XmCR_TEAR_OFF_DEACTIVATE); + define_integer(XmCR_OBSCURED_TRAVERSAL); + define_integer(XmCR_FOCUS_MOVED); + define_integer(XmCR_REPOST); + define_integer(XmCR_COLLAPSED); + define_integer(XmCR_EXPANDED); + define_integer(XmCR_SELECT); + define_integer(XmCR_DRAG_START); + define_integer(XmCR_NO_FONT); + define_integer(XmCR_NO_RENDITION); + define_integer(XmCR_POST); + define_integer(XmCR_SPIN_NEXT); + define_integer(XmCR_SPIN_PRIOR); + define_integer(XmCR_SPIN_FIRST); + define_integer(XmCR_SPIN_LAST); + define_integer(XmCR_PAGE_SCROLLER_INCREMENT); + define_integer(XmCR_PAGE_SCROLLER_DECREMENT); + define_integer(XmCR_MAJOR_TAB); + define_integer(XmCR_MINOR_TAB); + define_integer(XmCR_START_JOB); + define_integer(XmCR_END_JOB); + define_integer(XmCR_PAGE_SETUP); + define_integer(XmCR_PDM_NONE); + define_integer(XmCR_PDM_UP); + define_integer(XmCR_PDM_START_ERROR); + define_integer(XmCR_PDM_START_VXAUTH); + define_integer(XmCR_PDM_START_PXAUTH); + define_integer(XmCR_PDM_OK); + define_integer(XmCR_PDM_CANCEL); + define_integer(XmCR_PDM_EXIT_ERROR); + define_integer(XmCR_PROTOCOLS); + define_integer(XmEACH_SIDE); + define_integer(XmMAX_SIDE); + define_integer(XmMIN_SIDE); + define_integer(XmBACKGROUND_COLOR); + define_integer(XmFOREGROUND_COLOR); + define_integer(XmTROUGH_COLOR); + define_integer(XmSHADOWED_BACKGROUND); + define_integer(XmTHUMB_MARK); + define_integer(XmROUND_MARK); + define_integer(XmNEAR_SLIDER); + define_integer(XmNEAR_BORDER); + define_integer(XmHOR_SCROLLBAR); + define_integer(XmVERT_SCROLLBAR); + define_integer(XmCOMMAND_WINDOW); + define_integer(XmMESSAGE_WINDOW); + define_integer(XmSCROLL_HOR); + define_integer(XmSCROLL_VERT); + define_integer(XmNO_SCROLL); + define_integer(XmCLIP_WINDOW); + define_integer(XmGENERIC_CHILD); + define_integer(XmAUTO_DRAG_ENABLED); + define_integer(XmAUTO_DRAG_DISABLED); + define_integer(XmENABLE_WARP_ON); + define_integer(XmENABLE_WARP_OFF); + define_integer(XmOFF); + define_integer(XmBUTTON2_ADJUST); + define_integer(XmBUTTON2_TRANSFER); + define_integer(XmAUTO_UNSET); + define_integer(XmAUTO_BEGIN); + define_integer(XmAUTO_MOTION); + define_integer(XmAUTO_CANCEL); + define_integer(XmAUTO_NO_CHANGE); + define_integer(XmAUTO_CHANGE); + define_integer(XmDRAG_WINDOW); + define_integer(XmSLIDER); + define_integer(XmTHERMOMETER); + define_integer(XmETCHED_LINE); + define_integer(XmMULTICLICK_DISCARD); + define_integer(XmMULTICLICK_KEEP); + define_integer(XmSHADOW_IN); + define_integer(XmSHADOW_OUT); + define_integer(XmARROW_UP); + define_integer(XmARROW_DOWN); + define_integer(XmARROW_LEFT); + define_integer(XmARROW_RIGHT); + define_integer(XmNO_LINE); + define_integer(XmSINGLE_LINE); + define_integer(XmDOUBLE_LINE); + define_integer(XmSINGLE_DASHED_LINE); + define_integer(XmDOUBLE_DASHED_LINE); + define_integer(XmSHADOW_ETCHED_IN); + define_integer(XmSHADOW_ETCHED_OUT); + define_integer(XmSHADOW_ETCHED_IN_DASH); + define_integer(XmSHADOW_ETCHED_OUT_DASH); + define_integer(XmINVALID_SEPARATOR_TYPE); + define_integer(XmPIXMAP); + define_integer(XmSTRING); + define_integer(XmWINDOW); + define_integer(XmCURSOR); + define_integer(XmMAX_ON_TOP); + define_integer(XmMAX_ON_BOTTOM); + define_integer(XmMAX_ON_LEFT); + define_integer(XmMAX_ON_RIGHT); + define_integer(XmSINGLE_SELECT); + define_integer(XmMULTIPLE_SELECT); + define_integer(XmEXTENDED_SELECT); + define_integer(XmBROWSE_SELECT); + define_integer(XmSTATIC); + define_integer(XmDYNAMIC); + define_integer(XmNORMAL_MODE); + define_integer(XmADD_MODE); + define_integer(XmNO_AUTO_SELECT); + define_integer(XmAUTO_SELECT); + define_integer(XmSINGLE); + define_integer(XmANY_ICON); + define_integer(XmAPPEND); + define_integer(XmCLOSEST); + define_integer(XmFIRST_FIT); + define_integer(XmOUTLINE); + define_integer(XmSPATIAL); + define_integer(XmDETAIL); + define_integer(XmOUTLINE_BUTTON_PRESENT); + define_integer(XmOUTLINE_BUTTON_ABSENT); + define_integer(XmGRID); + define_integer(XmCELLS); + define_integer(XmOWN_NEVER); + define_integer(XmOWN_ALWAYS); + define_integer(XmOWN_MULTIPLE); + define_integer(XmOWN_POSSIBLE_MULTIPLE); + define_integer(XmGROW_MINOR); + define_integer(XmGROW_MAJOR); + define_integer(XmGROW_BALANCED); + define_integer(XmMARQUEE); + define_integer(XmMARQUEE_EXTEND_START); + define_integer(XmMARQUEE_EXTEND_BOTH); + define_integer(XmTOUCH_ONLY); + define_integer(XmTOUCH_OVER); + define_integer(XmSNAP_TO_GRID); + define_integer(XmCENTER); + define_integer(XmCOLLAPSED); + define_integer(XmEXPANDED); + define_integer(XmLARGE_ICON); + define_integer(XmSMALL_ICON); + define_integer(XmSELECTED); + define_integer(XmNOT_SELECTED); + define_integer(XmSOLID); + define_integer(XmSPIRAL); + define_integer(XmPIXMAP_OVERLAP_ONLY); + define_integer(XmPAGE); + define_integer(XmMAJOR_TAB); + define_integer(XmMINOR_TAB); + define_integer(XmSTATUS_AREA); + define_integer(XmPAGE_SCROLLER); + define_integer(XmARROWS_VERTICAL); + define_integer(XmARROWS_HORIZONTAL); + define_integer(XmARROWS_END); + define_integer(XmARROWS_BEGINNING); + define_integer(XmARROWS_SPLIT); + define_integer(XmARROWS_FLAT_END); + define_integer(XmARROWS_FLAT_BEGINNING); + define_integer(XmARROWS_INSENSITIVE); + define_integer(XmARROWS_INCREMENT_SENSITIVE); + define_integer(XmARROWS_DECREMENT_SENSITIVE); + define_integer(XmARROWS_SENSITIVE); + define_integer(XmARROWS_DEFAULT_SENSITIVITY); + define_integer(XmPOSITION_INDEX); + define_integer(XmPOSITION_VALUE); + define_integer(XmNUMERIC); + define_integer(XmVALID_VALUE); + define_integer(XmCURRENT_VALUE); + define_integer(XmMAXIMUM_VALUE); + define_integer(XmMINIMUM_VALUE); + define_integer(XmINCREMENT_VALUE); + define_integer(XmSELECT_OUT_LINE); + define_integer(XmSEE_DETAIL); + define_integer(XmVARIABLE); + define_integer(XmCONSTANT); + define_integer(XmRESIZE_IF_POSSIBLE); + define_integer(XmAUTOMATIC); + define_integer(XmAPPLICATION_DEFINED); + define_integer(XmAS_NEEDED); + define_integer(XmCOMMAND_ABOVE_WORKSPACE); + define_integer(XmCOMMAND_BELOW_WORKSPACE); + define_integer(XmMULTI_LINE_EDIT); + define_integer(XmSINGLE_LINE_EDIT); + define_integer(XmTEXT_FORWARD); + define_integer(XmTEXT_BACKWARD); + define_integer(XmSELECT_POSITION); + define_integer(XmSELECT_WHITESPACE); + define_integer(XmSELECT_WORD); + define_integer(XmSELECT_LINE); + define_integer(XmSELECT_ALL); + define_integer(XmSELECT_PARAGRAPH); + define_integer(XmHIGHLIGHT_NORMAL); + define_integer(XmHIGHLIGHT_SELECTED); + define_integer(XmHIGHLIGHT_SECONDARY_SELECTED); + define_integer(XmDIALOG_NONE); + define_integer(XmDIALOG_APPLY_BUTTON); + define_integer(XmDIALOG_CANCEL_BUTTON); + define_integer(XmDIALOG_DEFAULT_BUTTON); + define_integer(XmDIALOG_OK_BUTTON); + define_integer(XmDIALOG_FILTER_LABEL); + define_integer(XmDIALOG_FILTER_TEXT); + define_integer(XmDIALOG_HELP_BUTTON); + define_integer(XmDIALOG_LIST); + define_integer(XmDIALOG_LIST_LABEL); + define_integer(XmDIALOG_MESSAGE_LABEL); + define_integer(XmDIALOG_SELECTION_LABEL); + define_integer(XmDIALOG_SYMBOL_LABEL); + define_integer(XmDIALOG_TEXT); + define_integer(XmDIALOG_SEPARATOR); + define_integer(XmDIALOG_DIR_LIST); + define_integer(XmDIALOG_DIR_LIST_LABEL); + define_integer(XmDIALOG_MODELESS); + define_integer(XmDIALOG_PRIMARY_APPLICATION_MODAL); + define_integer(XmDIALOG_FULL_APPLICATION_MODAL); + define_integer(XmDIALOG_SYSTEM_MODAL); + define_integer(XmPLACE_TOP); + define_integer(XmPLACE_ABOVE_SELECTION); + define_integer(XmPLACE_BELOW_SELECTION); + define_integer(XmDIALOG_WORK_AREA); + define_integer(XmDIALOG_PROMPT); + define_integer(XmDIALOG_SELECTION); + define_integer(XmDIALOG_COMMAND); + define_integer(XmDIALOG_FILE_SELECTION); + define_integer(XmDIALOG_TEMPLATE); + define_integer(XmDIALOG_ERROR); + define_integer(XmDIALOG_INFORMATION); + define_integer(XmDIALOG_MESSAGE); + define_integer(XmDIALOG_QUESTION); + define_integer(XmDIALOG_WARNING); + define_integer(XmDIALOG_WORKING); + define_integer(XmVISIBILITY_UNOBSCURED); + define_integer(XmVISIBILITY_PARTIALLY_OBSCURED); + define_integer(XmVISIBILITY_FULLY_OBSCURED); + define_integer(XmTRAVERSE_CURRENT); + define_integer(XmTRAVERSE_NEXT); + define_integer(XmTRAVERSE_PREV); + define_integer(XmTRAVERSE_HOME); + define_integer(XmTRAVERSE_NEXT_TAB_GROUP); + define_integer(XmTRAVERSE_PREV_TAB_GROUP); + define_integer(XmTRAVERSE_UP); + define_integer(XmTRAVERSE_DOWN); + define_integer(XmTRAVERSE_LEFT); + define_integer(XmTRAVERSE_RIGHT); + define_integer(XmPUSHBUTTON); + define_integer(XmTOGGLEBUTTON); + define_integer(XmRADIOBUTTON); + define_integer(XmCASCADEBUTTON); + define_integer(XmSEPARATOR); + define_integer(XmDOUBLE_SEPARATOR); + define_integer(XmTITLE); + define_integer(XmBOTTOM_RIGHT); + define_integer(XmBOTTOM_LEFT); + define_integer(XmTOP_RIGHT); + define_integer(XmTOP_LEFT); + define_integer(XmTRAVERSE_GLOBALLY_FORWARD); + define_integer(XmTRAVERSE_GLOBALLY_BACKWARD); + define_integer(XmMATCH_DEPTH); + define_integer(XmDYNAMIC_DEPTH); + define_integer(XmPDM_NOTIFY_FAIL); + define_integer(XmPDM_NOTIFY_SUCCESS); + define_integer(XmINDICATOR_NONE); + define_integer(XmINDICATOR_FILL); + define_integer(XmINDICATOR_BOX); + define_integer(XmINDICATOR_CHECK); + define_integer(XmINDICATOR_CHECK_BOX); + define_integer(XmINDICATOR_CROSS); + define_integer(XmINDICATOR_CROSS_BOX); + define_integer(XmUNSET); + define_integer(XmSET); + define_integer(XmINDETERMINATE); + define_integer(XmTOGGLE_BOOLEAN); + define_integer(XmTOGGLE_INDETERMINATE); + define_integer(XmPATH_MODE_FULL); + define_integer(XmPATH_MODE_RELATIVE); + define_integer(XmFILTER_NONE); + define_integer(XmFILTER_HIDDEN_FILES); -#if HAVE_XmCreateColumn - DEFINE_INTEGER(XmDISTRIBUTE_SPREAD); - DEFINE_INTEGER(XmDISTRIBUTE_TIGHT); - DEFINE_INTEGER(XmFILL_RAGGED); - DEFINE_INTEGER(XmFILL_FLUSH); - DEFINE_INTEGER(XmFILL_UNSPECIFIED); - - /*assume this goes with the others */ - /* DEFINE_INTEGER(XmPIXMAP_AND_STRING); */ -#endif - -#if HAVE_XmTabStack - DEFINE_INTEGER(XmTABS_SQUARED); - DEFINE_INTEGER(XmTABS_ROUNDED); - DEFINE_INTEGER(XmTABS_BEVELED); - DEFINE_INTEGER(XmTABS_BASIC); - DEFINE_INTEGER(XmTABS_STACKED); - DEFINE_INTEGER(XmTABS_STACKED_STATIC); - DEFINE_INTEGER(XmTABS_SCROLLED); - DEFINE_INTEGER(XmTABS_OVERLAYED); - DEFINE_INTEGER(XmTAB_ORIENTATION_DYNAMIC); - DEFINE_INTEGER(XmTABS_RIGHT_TO_LEFT); - DEFINE_INTEGER(XmTABS_LEFT_TO_RIGHT); - DEFINE_INTEGER(XmTABS_TOP_TO_BOTTOM); - DEFINE_INTEGER(XmTABS_BOTTOM_TO_TOP); - DEFINE_INTEGER(XmTAB_EDGE_TOP_LEFT); - DEFINE_INTEGER(XmTAB_EDGE_BOTTOM_RIGHT); - DEFINE_INTEGER(XmTAB_ARROWS_ON_RIGHT); - DEFINE_INTEGER(XmTAB_ARROWS_ON_LEFT); - DEFINE_INTEGER(XmTAB_ARROWS_SPLIT); - DEFINE_INTEGER(XmCR_TAB_SELECTED); - DEFINE_INTEGER(XmCR_TAB_UNSELECTED); - DEFINE_INTEGER(XmTABS_ON_TOP); - DEFINE_INTEGER(XmTABS_ON_BOTTOM); - DEFINE_INTEGER(XmTABS_ON_RIGHT); - DEFINE_INTEGER(XmTABS_ON_LEFT); - DEFINE_INTEGER(XmPIXMAP_TOP); - DEFINE_INTEGER(XmPIXMAP_BOTTOM); - DEFINE_INTEGER(XmPIXMAP_RIGHT); - DEFINE_INTEGER(XmPIXMAP_LEFT); - DEFINE_INTEGER(XmPIXMAP_NONE); - DEFINE_INTEGER(XmPIXMAP_ONLY); - DEFINE_INTEGER(XmTAB_VALUE_COPY); - DEFINE_INTEGER(XmTAB_VALUE_SHARE); - DEFINE_INTEGER(XmTAB_CMP_VISUAL); - DEFINE_INTEGER(XmTAB_CMP_SIZE); - DEFINE_INTEGER(XmTAB_CMP_EQUAL); +#if HAVE_XSHAPEQUERYEXTENSION + define_integer(ShapeSet); + define_integer(ShapeUnion); + define_integer(ShapeIntersect); + define_integer(ShapeSubtract); + define_integer(ShapeInvert); + define_integer(ShapeBounding); + define_integer(ShapeClip); #endif } @@ -27794,97 +25404,69 @@ static void define_integers(void) static void define_pointers(void) { -#if HAVE_MOTIF - -#if HAVE_SCHEME - #define DEFINE_POINTER(Name) s7_define_constant(s7, XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_WidgetClass(Name)) -#else - #define DEFINE_POINTER(Name) XEN_DEFINE(XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_WidgetClass(Name)) -#endif - - DEFINE_POINTER(compositeWidgetClass); - DEFINE_POINTER(constraintWidgetClass); - DEFINE_POINTER(coreWidgetClass); - DEFINE_POINTER(widgetClass); - DEFINE_POINTER(objectClass); - DEFINE_POINTER(rectObjClass); - DEFINE_POINTER(shellWidgetClass); - DEFINE_POINTER(overrideShellWidgetClass); - DEFINE_POINTER(wmShellWidgetClass); - DEFINE_POINTER(transientShellWidgetClass); - DEFINE_POINTER(topLevelShellWidgetClass); - DEFINE_POINTER(applicationShellWidgetClass); - DEFINE_POINTER(sessionShellWidgetClass); - DEFINE_POINTER(vendorShellWidgetClass); - DEFINE_POINTER(xmArrowButtonGadgetClass); - DEFINE_POINTER(xmArrowButtonWidgetClass); - DEFINE_POINTER(xmBulletinBoardWidgetClass); - DEFINE_POINTER(xmCascadeButtonGadgetClass); - DEFINE_POINTER(xmCascadeButtonWidgetClass); - DEFINE_POINTER(xmCommandWidgetClass); - DEFINE_POINTER(xmDialogShellWidgetClass); - DEFINE_POINTER(xmDragContextClass); - DEFINE_POINTER(xmDragIconObjectClass); - DEFINE_POINTER(xmDragOverShellWidgetClass); - DEFINE_POINTER(xmDrawingAreaWidgetClass); - DEFINE_POINTER(xmDrawnButtonWidgetClass); - DEFINE_POINTER(xmDropSiteManagerObjectClass); - DEFINE_POINTER(xmDropTransferObjectClass); - DEFINE_POINTER(xmFileSelectionBoxWidgetClass); - DEFINE_POINTER(xmFormWidgetClass); - DEFINE_POINTER(xmFrameWidgetClass); - DEFINE_POINTER(xmGadgetClass); - DEFINE_POINTER(xmLabelGadgetClass); - DEFINE_POINTER(xmLabelWidgetClass); - DEFINE_POINTER(xmListWidgetClass); - DEFINE_POINTER(xmMainWindowWidgetClass); - DEFINE_POINTER(xmManagerWidgetClass); - DEFINE_POINTER(xmMenuShellWidgetClass); - DEFINE_POINTER(xmMessageBoxWidgetClass); - DEFINE_POINTER(xmPanedWindowWidgetClass); - DEFINE_POINTER(xmPrimitiveWidgetClass); - DEFINE_POINTER(xmPushButtonGadgetClass); - DEFINE_POINTER(xmPushButtonWidgetClass); - DEFINE_POINTER(xmRowColumnWidgetClass); - DEFINE_POINTER(xmScaleWidgetClass); - DEFINE_POINTER(xmScrollBarWidgetClass); - DEFINE_POINTER(xmScrolledWindowWidgetClass); - DEFINE_POINTER(xmSelectionBoxWidgetClass); - DEFINE_POINTER(xmSeparatorGadgetClass); - DEFINE_POINTER(xmSeparatorWidgetClass); - DEFINE_POINTER(xmTextFieldWidgetClass); - DEFINE_POINTER(xmTextWidgetClass); - DEFINE_POINTER(xmToggleButtonGadgetClass); - DEFINE_POINTER(xmToggleButtonWidgetClass); - DEFINE_POINTER(xmContainerWidgetClass); - DEFINE_POINTER(xmComboBoxWidgetClass); - DEFINE_POINTER(xmGrabShellWidgetClass); - DEFINE_POINTER(xmNotebookWidgetClass); - DEFINE_POINTER(xmIconGadgetClass); -#if HAVE_XmCreateButtonBox - DEFINE_POINTER(xmButtonBoxWidgetClass); -#endif -#if HAVE_XmCreateDataField - DEFINE_POINTER(xmDataFieldWidgetClass); -#endif -#if HAVE_XmCreateTabStack - DEFINE_POINTER(xmTabStackWidgetClass); -#endif -#if HAVE_XmCreateDropDown - DEFINE_POINTER(xmDropDownWidgetClass); -#endif -#if HAVE_XmCreateColumn - DEFINE_POINTER(xmColumnWidgetClass); -#endif -#if HAVE_XmCreateFontSelector - DEFINE_POINTER(xmFontSelectorWidgetClass); -#endif -#if HAVE_XmCreateColorSelector - DEFINE_POINTER(xmColorSelectorWidgetClass); -#endif - DEFINE_POINTER(xmSpinBoxWidgetClass); - DEFINE_POINTER(xmSimpleSpinBoxWidgetClass); -#endif + #define define_pointer(Name) Xen_define(XM_PREFIX #Name XM_POSTFIX, C_to_Xen_WidgetClass(Name)) + + define_pointer(compositeWidgetClass); + define_pointer(constraintWidgetClass); + define_pointer(coreWidgetClass); + define_pointer(widgetClass); + define_pointer(objectClass); + define_pointer(rectObjClass); + define_pointer(shellWidgetClass); + define_pointer(overrideShellWidgetClass); + define_pointer(wmShellWidgetClass); + define_pointer(transientShellWidgetClass); + define_pointer(topLevelShellWidgetClass); + define_pointer(applicationShellWidgetClass); + define_pointer(sessionShellWidgetClass); + define_pointer(vendorShellWidgetClass); + define_pointer(xmArrowButtonGadgetClass); + define_pointer(xmArrowButtonWidgetClass); + define_pointer(xmBulletinBoardWidgetClass); + define_pointer(xmCascadeButtonGadgetClass); + define_pointer(xmCascadeButtonWidgetClass); + define_pointer(xmCommandWidgetClass); + define_pointer(xmDialogShellWidgetClass); + define_pointer(xmDragContextClass); + define_pointer(xmDragIconObjectClass); + define_pointer(xmDragOverShellWidgetClass); + define_pointer(xmDrawingAreaWidgetClass); + define_pointer(xmDrawnButtonWidgetClass); + define_pointer(xmDropSiteManagerObjectClass); + define_pointer(xmDropTransferObjectClass); + define_pointer(xmFileSelectionBoxWidgetClass); + define_pointer(xmFormWidgetClass); + define_pointer(xmFrameWidgetClass); + define_pointer(xmGadgetClass); + define_pointer(xmLabelGadgetClass); + define_pointer(xmLabelWidgetClass); + define_pointer(xmListWidgetClass); + define_pointer(xmMainWindowWidgetClass); + define_pointer(xmManagerWidgetClass); + define_pointer(xmMenuShellWidgetClass); + define_pointer(xmMessageBoxWidgetClass); + define_pointer(xmPanedWindowWidgetClass); + define_pointer(xmPrimitiveWidgetClass); + define_pointer(xmPushButtonGadgetClass); + define_pointer(xmPushButtonWidgetClass); + define_pointer(xmRowColumnWidgetClass); + define_pointer(xmScaleWidgetClass); + define_pointer(xmScrollBarWidgetClass); + define_pointer(xmScrolledWindowWidgetClass); + define_pointer(xmSelectionBoxWidgetClass); + define_pointer(xmSeparatorGadgetClass); + define_pointer(xmSeparatorWidgetClass); + define_pointer(xmTextFieldWidgetClass); + define_pointer(xmTextWidgetClass); + define_pointer(xmToggleButtonGadgetClass); + define_pointer(xmToggleButtonWidgetClass); + define_pointer(xmContainerWidgetClass); + define_pointer(xmComboBoxWidgetClass); + define_pointer(xmGrabShellWidgetClass); + define_pointer(xmNotebookWidgetClass); + define_pointer(xmIconGadgetClass); + define_pointer(xmSpinBoxWidgetClass); + define_pointer(xmSimpleSpinBoxWidgetClass); } @@ -27893,80 +25475,76 @@ static void define_pointers(void) static void define_Atoms(void) { -#if HAVE_SCHEME - #define DEFINE_ATOM(Name) s7_define_constant(s7, XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_Atom(Name)) -#else - #define DEFINE_ATOM(Name) XEN_DEFINE(XM_PREFIX #Name XM_POSTFIX, C_TO_XEN_Atom(Name)) -#endif - - DEFINE_ATOM(XA_PRIMARY); - DEFINE_ATOM(XA_SECONDARY); - DEFINE_ATOM(XA_ARC); - DEFINE_ATOM(XA_ATOM); - DEFINE_ATOM(XA_BITMAP); - DEFINE_ATOM(XA_CARDINAL); - DEFINE_ATOM(XA_COLORMAP); - DEFINE_ATOM(XA_CURSOR); - DEFINE_ATOM(XA_CUT_BUFFER0); - DEFINE_ATOM(XA_CUT_BUFFER1); - DEFINE_ATOM(XA_CUT_BUFFER2); - DEFINE_ATOM(XA_CUT_BUFFER3); - DEFINE_ATOM(XA_CUT_BUFFER4); - DEFINE_ATOM(XA_CUT_BUFFER5); - DEFINE_ATOM(XA_CUT_BUFFER6); - DEFINE_ATOM(XA_CUT_BUFFER7); - DEFINE_ATOM(XA_DRAWABLE); - DEFINE_ATOM(XA_FONT); - DEFINE_ATOM(XA_INTEGER); - DEFINE_ATOM(XA_PIXMAP); - DEFINE_ATOM(XA_POINT); - DEFINE_ATOM(XA_RECTANGLE); - DEFINE_ATOM(XA_RESOURCE_MANAGER); - DEFINE_ATOM(XA_RGB_COLOR_MAP); - DEFINE_ATOM(XA_RGB_BEST_MAP); - DEFINE_ATOM(XA_RGB_BLUE_MAP); - DEFINE_ATOM(XA_RGB_DEFAULT_MAP); - DEFINE_ATOM(XA_RGB_GRAY_MAP); - DEFINE_ATOM(XA_RGB_GREEN_MAP); - DEFINE_ATOM(XA_RGB_RED_MAP); - DEFINE_ATOM(XA_STRING); - DEFINE_ATOM(XA_VISUALID); - DEFINE_ATOM(XA_WINDOW); - DEFINE_ATOM(XA_WM_COMMAND); - DEFINE_ATOM(XA_WM_HINTS); - DEFINE_ATOM(XA_WM_CLIENT_MACHINE); - DEFINE_ATOM(XA_WM_ICON_NAME); - DEFINE_ATOM(XA_WM_ICON_SIZE); - DEFINE_ATOM(XA_WM_NAME); - DEFINE_ATOM(XA_WM_NORMAL_HINTS); - DEFINE_ATOM(XA_WM_SIZE_HINTS); - DEFINE_ATOM(XA_WM_ZOOM_HINTS); - DEFINE_ATOM(XA_MIN_SPACE); - DEFINE_ATOM(XA_NORM_SPACE); - DEFINE_ATOM(XA_MAX_SPACE); - DEFINE_ATOM(XA_END_SPACE); - DEFINE_ATOM(XA_SUPERSCRIPT_X); - DEFINE_ATOM(XA_SUPERSCRIPT_Y); - DEFINE_ATOM(XA_SUBSCRIPT_X); - DEFINE_ATOM(XA_SUBSCRIPT_Y); - DEFINE_ATOM(XA_UNDERLINE_POSITION); - DEFINE_ATOM(XA_UNDERLINE_THICKNESS); - DEFINE_ATOM(XA_STRIKEOUT_ASCENT); - DEFINE_ATOM(XA_STRIKEOUT_DESCENT); - DEFINE_ATOM(XA_ITALIC_ANGLE); - DEFINE_ATOM(XA_X_HEIGHT); - DEFINE_ATOM(XA_QUAD_WIDTH); - DEFINE_ATOM(XA_WEIGHT); - DEFINE_ATOM(XA_POINT_SIZE); - DEFINE_ATOM(XA_RESOLUTION); - DEFINE_ATOM(XA_COPYRIGHT); - DEFINE_ATOM(XA_NOTICE); - DEFINE_ATOM(XA_FONT_NAME); - DEFINE_ATOM(XA_FAMILY_NAME); - DEFINE_ATOM(XA_FULL_NAME); - DEFINE_ATOM(XA_CAP_HEIGHT); - DEFINE_ATOM(XA_WM_CLASS); - DEFINE_ATOM(XA_WM_TRANSIENT_FOR); + #define define_atom(Name) Xen_define(XM_PREFIX #Name XM_POSTFIX, C_to_Xen_Atom(Name)) + + define_atom(XA_PRIMARY); + define_atom(XA_SECONDARY); + define_atom(XA_ARC); + define_atom(XA_ATOM); + define_atom(XA_BITMAP); + define_atom(XA_CARDINAL); + define_atom(XA_COLORMAP); + define_atom(XA_CURSOR); + define_atom(XA_CUT_BUFFER0); + define_atom(XA_CUT_BUFFER1); + define_atom(XA_CUT_BUFFER2); + define_atom(XA_CUT_BUFFER3); + define_atom(XA_CUT_BUFFER4); + define_atom(XA_CUT_BUFFER5); + define_atom(XA_CUT_BUFFER6); + define_atom(XA_CUT_BUFFER7); + define_atom(XA_DRAWABLE); + define_atom(XA_FONT); + define_atom(XA_INTEGER); + define_atom(XA_PIXMAP); + define_atom(XA_POINT); + define_atom(XA_RECTANGLE); + define_atom(XA_RESOURCE_MANAGER); + define_atom(XA_RGB_COLOR_MAP); + define_atom(XA_RGB_BEST_MAP); + define_atom(XA_RGB_BLUE_MAP); + define_atom(XA_RGB_DEFAULT_MAP); + define_atom(XA_RGB_GRAY_MAP); + define_atom(XA_RGB_GREEN_MAP); + define_atom(XA_RGB_RED_MAP); + define_atom(XA_STRING); + define_atom(XA_VISUALID); + define_atom(XA_WINDOW); + define_atom(XA_WM_COMMAND); + define_atom(XA_WM_HINTS); + define_atom(XA_WM_CLIENT_MACHINE); + define_atom(XA_WM_ICON_NAME); + define_atom(XA_WM_ICON_SIZE); + define_atom(XA_WM_NAME); + define_atom(XA_WM_NORMAL_HINTS); + define_atom(XA_WM_SIZE_HINTS); + define_atom(XA_WM_ZOOM_HINTS); + define_atom(XA_MIN_SPACE); + define_atom(XA_NORM_SPACE); + define_atom(XA_MAX_SPACE); + define_atom(XA_END_SPACE); + define_atom(XA_SUPERSCRIPT_X); + define_atom(XA_SUPERSCRIPT_Y); + define_atom(XA_SUBSCRIPT_X); + define_atom(XA_SUBSCRIPT_Y); + define_atom(XA_UNDERLINE_POSITION); + define_atom(XA_UNDERLINE_THICKNESS); + define_atom(XA_STRIKEOUT_ASCENT); + define_atom(XA_STRIKEOUT_DESCENT); + define_atom(XA_ITALIC_ANGLE); + define_atom(XA_X_HEIGHT); + define_atom(XA_QUAD_WIDTH); + define_atom(XA_WEIGHT); + define_atom(XA_POINT_SIZE); + define_atom(XA_RESOLUTION); + define_atom(XA_COPYRIGHT); + define_atom(XA_NOTICE); + define_atom(XA_FONT_NAME); + define_atom(XA_FAMILY_NAME); + define_atom(XA_FULL_NAME); + define_atom(XA_CAP_HEIGHT); + define_atom(XA_WM_CLASS); + define_atom(XA_WM_TRANSIENT_FOR); } @@ -27980,104 +25558,39 @@ void Init_libxm(void) /* perhaps nicer here to check the features list for 'xm */ if (!xm_already_inited) { -#if HAVE_MOTIF - xm_XmColorAllocationProc = XEN_FALSE; - xm_XmColorCalculationProc = XEN_FALSE; - xm_XmColorProc = XEN_FALSE; - xm_XmCutPasteProc = XEN_FALSE; - xm_XmVoidProc = XEN_FALSE; -#endif - xm_XtSelectionCallback_Descr = XEN_FALSE; - xm_XtConvertSelectionIncr_Descr = XEN_FALSE; - xm_protected = XEN_FALSE; - xm_gc_table = XEN_FALSE; - xm_XPeekIfEventProc = XEN_FALSE; - xm_XIOErrorHandler = XEN_FALSE; - xm_XErrorHandler = XEN_FALSE; - xm_AfterFunction = XEN_FALSE; - xm_XtErrorHandler = XEN_FALSE; - xm_XtWarningHandler = XEN_FALSE; - xm_XtErrorMsgHandler = XEN_FALSE; - xm_XtWarningMsgHandler = XEN_FALSE; - xm_language_proc = XEN_FALSE; - xm_XtCaseProc = XEN_FALSE; - xm_XtKeyProc = XEN_FALSE; - register_proc = XEN_FALSE; + xm_XmColorAllocationProc = Xen_false; + xm_XmColorCalculationProc = Xen_false; + xm_XmColorProc = Xen_false; + xm_XmCutPasteProc = Xen_false; + xm_XmVoidProc = Xen_false; + xm_XtSelectionCallback_Descr = Xen_false; + xm_XtConvertSelectionIncr_Descr = Xen_false; + xm_protected = Xen_false; + xm_gc_table = Xen_false; + xm_XPeekIfEventProc = Xen_false; + xm_XIOErrorHandler = Xen_false; + xm_XErrorHandler = Xen_false; + xm_AfterFunction = Xen_false; + xm_XtErrorHandler = Xen_false; + xm_XtWarningHandler = Xen_false; + xm_XtErrorMsgHandler = Xen_false; + xm_XtWarningMsgHandler = Xen_false; + xm_language_proc = Xen_false; + xm_XtCaseProc = Xen_false; + xm_XtKeyProc = Xen_false; + register_proc = Xen_false; define_xm_obj(); -#if HAVE_MOTIF define_makes(); define_strings(); -#endif define_Atoms(); define_integers(); define_pointers(); define_procedures(); define_structs(); -#if HAVE_MOTIF -#if HAVE_SCHEME - XEN_EVAL_C_STRING("(define (XmAddWMProtocols s p n) \ - (XmAddProtocols s (XInternAtom (XtDisplay s) \"WM_PROTOCOLS\" #f) p n))"); - XEN_EVAL_C_STRING("(define (XmRemoveWMProtocols s p n) \ - (XmRemoveProtocols s (XInternAtom (XtDisplay s) \"WM_PROTOCOLS\" #f) p n))"); - XEN_EVAL_C_STRING("(define (XmAddWMProtocolCallback s p c cl) \ - (XmAddProtocolCallback s (XInternAtom (XtDisplay s) \"WM_PROTOCOLS\" #f) p c cl))"); - XEN_EVAL_C_STRING("(define (XmRemoveWMProtocolCallback s p c cl) \ - (XmRemoveProtocolCallback s (XInternAtom (XtDisplay s) \"WM_PROTOCOLS\" #f) p c cl))"); - XEN_EVAL_C_STRING("(define (XmActivateWMProtocol s p) \ - (XmActivateProtocol s (XInternAtom (XtDisplay s) \"WM_PROTOCOLS\" #f) p))"); - XEN_EVAL_C_STRING("(define (XmDeactivateWMProtocol s p) \ - (XmDeactivateProtocol s (XInternAtom (XtDisplay s) \"WM_PROTOCOLS\" #f) p))"); - XEN_EVAL_C_STRING("(define (XmSetWMProtocolHooks s p preh prec posth postc) \ - (XmSetProtocolHooks s (XInternAtom (XtDisplay s) \"WM_PROTOCOLS\" #f) p preh prec posth postc))"); -#endif -#if HAVE_RUBY - XEN_EVAL_C_STRING("def RXmAddWMProtocols(s, p, n) \ - RXmAddProtocols(s, RXInternAtom(RXtDisplay(s), \"WM_PROTOCOLS\", false), p, n); end"); - XEN_EVAL_C_STRING("def RXmRemoveWMProtocols(s, p, n) \ - RXmRemoveProtocols(s, RXInternAtom(RXtDisplay(s), \"WM_PROTOCOLS\", false), p, n); end"); - XEN_EVAL_C_STRING("def RXmAddWMProtocolCallback(s, p, c, cl) \ - RXmAddProtocolCallback(s, RXInternAtom(RXtDisplay(s), \"WM_PROTOCOLS\", false), p, c, cl); end"); - XEN_EVAL_C_STRING("def RXmRemoveWMProtocolCallback(s, p, c, cl) \ - RXmRemoveProtocolCallback(s, RXInternAtom(RXtDisplay(s), \"WM_PROTOCOLS\", false), p, c, cl); end"); - XEN_EVAL_C_STRING("def RXmActivateWMProtocol(s, p) \ - RXmActivateProtocol(s, RXInternAtom(RXtDisplay(s), \"WM_PROTOCOLS\", false), p); end"); - XEN_EVAL_C_STRING("def RXmDeactivateWMProtocol(s, p) \ - RXmDeactivateProtocol(s, RXInternAtom(RXtDisplay(s), \"WM_PROTOCOLS\", false), p); end"); - XEN_EVAL_C_STRING("def RXmSetWMProtocolHooks(s, p, preh, prec, posth, postc) \ - RXmSetProtocolHooks(s, RXInternAtom(RXtDisplay(s), \"WM_PROTOCOLS\", false), p, preh, prec, posth, postc); end"); -#endif -#if HAVE_FORTH - XEN_EVAL_C_STRING("\ -: wm-protocols-intern-atom ( wid -- atom )\n\ - FXtDisplay \"WM_PROTOCOLS\" #f FXInternAtom\n\ -;\n\ -: FXmAddWMProtocols ( s p n -- x ) { s p n }\n\ - s dup wm-protocols-intern-atom p n FXmAddProtocols\n\ -;\n\ -: FXmRemoveWMProtocols ( s p n -- x ) { s p n }\n\ - s dup wm-protocols-intern-atom p n FXmRemoveProtocols\n\ -;\n\ -: FXmAddWMProtocolCallback ( s p c cl -- x ) { s p c cl }\n\ - s dup wm-protocols-intern-atom p c cl FXmAddProtocolCallback\n\ -;\n\ -: FXmRemoveWMProtocolCallback ( s p c cl -- x ) { s p c cl }\n\ - s dup wm-protocols-intern-atom p c cl FXmRemoveProtocolCallback\n\ -;\n\ -: FXmActivateWMProtocol ( s p -- x ) { s p }\n\ - s dup wm-protocols-intern-atom p FXmActivateProtocol\n\ -;\n\ -: FXmDeactivateWMProtocol ( s p -- x ) { s p }\n\ - s dup wm-protocols-intern-atom p FXmDeactivateProtocol\n\ -;\n\ -: FXmSetWMProtocolHooks ( s p preh prec posth postc -- x ) { s p preh prec posth postc }\n\ - s dup wm-protocols-intern-atom p preh prec posth postc FXmSetProtocolHooks\n\ -;\n"); -#endif - XEN_DEFINE_PROCEDURE(S_add_resource, g_add_resource_w, 2, 0, 0, H_add_resource); -#endif - XEN_YES_WE_HAVE("xm"); - XEN_DEFINE("xm-version", C_TO_XEN_STRING(XM_DATE)); + Xen_define_safe_procedure(S_add_resource, g_add_resource_w, 2, 0, 0, H_add_resource); + Xen_provide_feature("xm"); + Xen_define("xm-version", C_string_to_Xen_string(XM_DATE)); xm_already_inited = true; } } |