/* Auto generated GreenCard 2 code for Hugs */ #include "GreenCard.h" #include "cbits/HsXlib.h" PROTO_PRIM(prim_Xlib_writeAddr); primFun(prim_Xlib_writeAddr) { void** s; int i; void* v;; s = (void**)(hugs->getAddr()); i = (int)(hugs->getInt()); v = (void*)(hugs->getAddr()); { s[i] = v; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_readAddr); primFun(prim_Xlib_readAddr) { void** s; int i;; s = (void**)(hugs->getAddr()); i = (int)(hugs->getInt()); {hugs->putAddr((void *)(s[i])); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_allocAddr); primFun(prim_Xlib_allocAddr) { int arg1;void * res1;; arg1 = (int)(hugs->getInt()); { res1 = (void*)malloc(sizeof(void*) * arg1); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_writePoint); primFun(prim_Xlib_writePoint) { XPoint* s; int i;; s = (XPoint*)(hugs->getAddr()); i = (int)(hugs->getInt()); (s[i]).x = (int)(hugs->getInt()); (s[i]).y = (int)(hugs->getInt()); {hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_readPoint); primFun(prim_Xlib_readPoint) { XPoint* s; int i;; s = (XPoint*)(hugs->getAddr()); i = (int)(hugs->getInt()); {hugs->putInt((int)((s[i]).y)); hugs->putInt((int)((s[i]).x)); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_allocPoints); primFun(prim_Xlib_allocPoints) { int arg1;void * res1;; arg1 = (int)(hugs->getInt()); { res1 = (void*)malloc(sizeof(XPoint) * arg1); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_writeRectangle); primFun(prim_Xlib_writeRectangle) { XRectangle* s; int i;; s = (XRectangle*)(hugs->getAddr()); i = (int)(hugs->getInt()); (s[i]).x = (int)(hugs->getInt()); (s[i]).y = (int)(hugs->getInt()); (s[i]).width = (unsigned int)(hugs->getWord()); (s[i]).height = (unsigned int)(hugs->getWord()); {hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_readRectangle); primFun(prim_Xlib_readRectangle) { XRectangle* s; int i;; s = (XRectangle*)(hugs->getAddr()); i = (int)(hugs->getInt()); {hugs->putWord((unsigned int)((s[i]).height)); hugs->putWord((unsigned int)((s[i]).width)); hugs->putInt((int)((s[i]).y)); hugs->putInt((int)((s[i]).x)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_allocRectangles); primFun(prim_Xlib_allocRectangles) { int arg1;void * res1;; arg1 = (int)(hugs->getInt()); { res1 = (void*)malloc(sizeof(XRectangle) * arg1); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_writeArc); primFun(prim_Xlib_writeArc) { XArc* s; int i;; s = (XArc*)(hugs->getAddr()); i = (int)(hugs->getInt()); (s[i]).x = (int)(hugs->getInt()); (s[i]).y = (int)(hugs->getInt()); (s[i]).width = (unsigned int)(hugs->getWord()); (s[i]).height = (unsigned int)(hugs->getWord()); (s[i]).angle1 = (int)(hugs->getInt()); (s[i]).angle2 = (int)(hugs->getInt()); {hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_readArc); primFun(prim_Xlib_readArc) { XArc* s; int i;; s = (XArc*)(hugs->getAddr()); i = (int)(hugs->getInt()); {hugs->putInt((int)((s[i]).angle2)); hugs->putInt((int)((s[i]).angle1)); hugs->putWord((unsigned int)((s[i]).height)); hugs->putWord((unsigned int)((s[i]).width)); hugs->putInt((int)((s[i]).y)); hugs->putInt((int)((s[i]).x)); hugs_returnIO(6); } } PROTO_PRIM(prim_Xlib_allocArcs); primFun(prim_Xlib_allocArcs) { int arg1;void * res1;; arg1 = (int)(hugs->getInt()); { res1 = (void*)malloc(sizeof(XArc) * arg1); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_writeSegment); primFun(prim_Xlib_writeSegment) { XSegment* s; int i;; s = (XSegment*)(hugs->getAddr()); i = (int)(hugs->getInt()); (s[i]).x1 = (int)(hugs->getInt()); (s[i]).y1 = (int)(hugs->getInt()); (s[i]).x2 = (int)(hugs->getInt()); (s[i]).y2 = (int)(hugs->getInt()); {hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_readSegment); primFun(prim_Xlib_readSegment) { XSegment* s; int i;; s = (XSegment*)(hugs->getAddr()); i = (int)(hugs->getInt()); {hugs->putInt((int)((s[i]).y2)); hugs->putInt((int)((s[i]).x2)); hugs->putInt((int)((s[i]).y1)); hugs->putInt((int)((s[i]).x1)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_allocSegments); primFun(prim_Xlib_allocSegments) { int arg1;void * res1;; arg1 = (int)(hugs->getInt()); { res1 = (void*)malloc(sizeof(XSegment) * arg1); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_writeColor); primFun(prim_Xlib_writeColor) { XColor* s; int i;; s = (XColor*)(hugs->getAddr()); i = (int)(hugs->getInt()); (s[i]).pixel = (unsigned int)(hugs->getWord()); (s[i]).red = (unsigned int)(hugs->getWord()); (s[i]).green = (unsigned int)(hugs->getWord()); (s[i]).blue = (unsigned int)(hugs->getWord()); (s[i]).flags = (unsigned int)(hugs->getWord()); {hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_readColor); primFun(prim_Xlib_readColor) { XColor* s; int i;; s = (XColor*)(hugs->getAddr()); i = (int)(hugs->getInt()); {hugs->putWord((unsigned int)((s[i]).flags)); hugs->putWord((unsigned int)((s[i]).blue)); hugs->putWord((unsigned int)((s[i]).green)); hugs->putWord((unsigned int)((s[i]).red)); hugs->putWord((unsigned int)((s[i]).pixel)); hugs_returnIO(5); } } PROTO_PRIM(prim_Xlib_allocColors); primFun(prim_Xlib_allocColors) { int arg1;void * res1;; arg1 = (int)(hugs->getInt()); { res1 = (void*)malloc(sizeof(XColor) * arg1); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_writeWord32); primFun(prim_Xlib_writeWord32) { unsigned int* s; int i; unsigned int v;; s = (unsigned int*)(hugs->getAddr()); i = (int)(hugs->getInt()); v = (unsigned int)(hugs->getWord()); { s[i] = v; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_readWord32); primFun(prim_Xlib_readWord32) { unsigned int* s; int i;unsigned int res1;; s = (unsigned int*)(hugs->getAddr()); i = (int)(hugs->getInt()); { res1 = s[i]; hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_allocWord32Star); primFun(prim_Xlib_allocWord32Star) { int arg1;unsigned int* res1;; arg1 = (int)(hugs->getInt()); { res1 = (unsigned int *)malloc(sizeof(unsigned int) * arg1); hugs->putAddr((unsigned int*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_allPlanes); primFun(prim_Xlib_allPlanes) { unsigned int res1;; {res1 = XAllPlanes(); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_blackPixel); primFun(prim_Xlib_blackPixel) { Display* arg1; unsigned int arg2;unsigned int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XBlackPixel(arg1, arg2); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_whitePixel); primFun(prim_Xlib_whitePixel) { Display* arg1; unsigned int arg2;unsigned int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XWhitePixel(arg1, arg2); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_connectionNumber); primFun(prim_Xlib_connectionNumber) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = ConnectionNumber(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultColormap); primFun(prim_Xlib_defaultColormap) { Display* arg1; unsigned int arg2;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XDefaultColormap(arg1, arg2); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultGC); primFun(prim_Xlib_defaultGC) { Display* arg1; unsigned int arg2;void * res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XDefaultGC(arg1, arg2); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultDepth); primFun(prim_Xlib_defaultDepth) { Display* arg1; unsigned int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XDefaultDepth(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultScreen); primFun(prim_Xlib_defaultScreen) { Display* arg1;unsigned int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XDefaultScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultScreenOfDisplay); primFun(prim_Xlib_defaultScreenOfDisplay) { Display* arg1;Screen* res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XDefaultScreenOfDisplay(arg1); hugs->putAddr((Screen*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayHeight); primFun(prim_Xlib_displayHeight) { Display* arg1; unsigned int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = DisplayHeight(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayHeightMM); primFun(prim_Xlib_displayHeightMM) { Display* arg1; unsigned int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = DisplayHeightMM(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayWidth); primFun(prim_Xlib_displayWidth) { Display* arg1; unsigned int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = DisplayWidth(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayWidthMM); primFun(prim_Xlib_displayWidthMM) { Display* arg1; unsigned int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = DisplayWidthMM(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_maxRequestSize); primFun(prim_Xlib_maxRequestSize) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XMaxRequestSize(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayMotionBufferSize); primFun(prim_Xlib_displayMotionBufferSize) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XDisplayMotionBufferSize(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_resourceManagerString); primFun(prim_Xlib_resourceManagerString) { Display* arg1;char * res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XResourceManagerString(arg1); hugs->putAddr((char *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_screenResourceString); primFun(prim_Xlib_screenResourceString) { Screen* arg1;char * res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XScreenResourceString(arg1); hugs->putAddr((char *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayString); primFun(prim_Xlib_displayString) { Display* arg1;char * res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = DisplayString(arg1); hugs->putAddr((char *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_imageByteOrder); primFun(prim_Xlib_imageByteOrder) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XImageByteOrder(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_protocolRevision); primFun(prim_Xlib_protocolRevision) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XProtocolRevision(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_protocolVersion); primFun(prim_Xlib_protocolVersion) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XProtocolVersion(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_serverVendor); primFun(prim_Xlib_serverVendor) { Display* arg1;char * res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XServerVendor(arg1); hugs->putAddr((char *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_screenCount); primFun(prim_Xlib_screenCount) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XScreenCount(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultVisual); primFun(prim_Xlib_defaultVisual) { Display* arg1; unsigned int arg2;Visual* res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XDefaultVisual(arg1, arg2); hugs->putAddr((Visual*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayCells); primFun(prim_Xlib_displayCells) { Display* arg1; unsigned int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = DisplayCells(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayPlanes); primFun(prim_Xlib_displayPlanes) { Display* arg1; unsigned int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = DisplayPlanes(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_screenOfDisplay); primFun(prim_Xlib_screenOfDisplay) { Display* arg1; unsigned int arg2;Screen* res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XScreenOfDisplay(arg1, arg2); hugs->putAddr((Screen*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultRootWindow); primFun(prim_Xlib_defaultRootWindow) { Display* arg1;XID res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XDefaultRootWindow(arg1); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_rootWindow); primFun(prim_Xlib_rootWindow) { Display* arg1; unsigned int arg2;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); {res1 = XRootWindow(arg1, arg2); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_qLength); primFun(prim_Xlib_qLength) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XQLength(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_noOp); primFun(prim_Xlib_noOp) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XNoOp(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_openDisplay); primFun(prim_Xlib_openDisplay) { char * arg1;Display* res1;int gc_failed; char* gc_failstring;; arg1 = (char *)(hugs->getAddr()); {res1 = XOpenDisplay(arg1); if ((gc_failed = ( res1 == 0 ))) {gc_failstring = NullPtr(XOpenDisplay) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putAddr((Display*)(res1)); hugs_returnIO(3); } } PROTO_PRIM(prim_Xlib_closeDisplay); primFun(prim_Xlib_closeDisplay) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XCloseDisplay(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_rmInitialize); primFun(prim_Xlib_rmInitialize) { ; {XrmInitialize(); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_autoRepeatOff); primFun(prim_Xlib_autoRepeatOff) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XAutoRepeatOff(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_autoRepeatOn); primFun(prim_Xlib_autoRepeatOn) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XAutoRepeatOn(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_bell); primFun(prim_Xlib_bell) { Display* arg1; int arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); {XBell(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setCloseDownMode); primFun(prim_Xlib_setCloseDownMode) { Display* arg1; int arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); {XSetCloseDownMode(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_lastKnownRequestProcessed); primFun(prim_Xlib_lastKnownRequestProcessed) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XLastKnownRequestProcessed(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_getInputFocus); primFun(prim_Xlib_getInputFocus) { Display* arg1;XID res1; int res2;; arg1 = (Display*)(hugs->getAddr()); { XGetInputFocus(arg1,&res1,&res2); hugs->putInt((int)(res2)); hugs->putWord((XID)(res1)); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_setInputFocus); primFun(prim_Xlib_setInputFocus) { Display* arg1; XID arg2; int arg3; Time arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (Time)(hugs->getWord()); {XSetInputFocus(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_grabButton); primFun(prim_Xlib_grabButton) { Display* arg1; unsigned int arg2; unsigned int arg3; XID arg4; int arg5; unsigned int arg6; int arg7; int arg8; XID arg9; XID arg10;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (XID)(hugs->getWord()); arg5 = (int)(hugs->getInt()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (int)(hugs->getInt()); arg8 = (int)(hugs->getInt()); arg9 = (XID)(hugs->getWord()); arg10 = (XID)(hugs->getWord()); {XGrabButton(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_ungrabButton); primFun(prim_Xlib_ungrabButton) { Display* arg1; unsigned int arg2; unsigned int arg3; XID arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (XID)(hugs->getWord()); {XUngrabButton(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_grabPointer); primFun(prim_Xlib_grabPointer) { Display* arg1; XID arg2; int arg3; unsigned int arg4; int arg5; int arg6; XID arg7; XID arg8; Time arg9;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (unsigned int)(hugs->getWord()); arg5 = (int)(hugs->getInt()); arg6 = (int)(hugs->getInt()); arg7 = (XID)(hugs->getWord()); arg8 = (XID)(hugs->getWord()); arg9 = (Time)(hugs->getWord()); {res1 = XGrabPointer(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_ungrabPointer); primFun(prim_Xlib_ungrabPointer) { Display* arg1; Time arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (Time)(hugs->getWord()); {XUngrabPointer(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_grabKey); primFun(prim_Xlib_grabKey) { Display* arg1; KeyCode arg2; unsigned int arg3; XID arg4; int arg5; int arg6; int arg7;; arg1 = (Display*)(hugs->getAddr()); arg2 = (KeyCode)(hugs->getChar()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (XID)(hugs->getWord()); arg5 = (int)(hugs->getInt()); arg6 = (int)(hugs->getInt()); arg7 = (int)(hugs->getInt()); {XGrabKey(arg1, arg2, arg3, arg4, arg5, arg6, arg7); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_ungrabKey); primFun(prim_Xlib_ungrabKey) { Display* arg1; KeyCode arg2; unsigned int arg3; XID arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (KeyCode)(hugs->getChar()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (XID)(hugs->getWord()); {XUngrabKey(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_grabKeyboard); primFun(prim_Xlib_grabKeyboard) { Display* arg1; XID arg2; int arg3; int arg4; int arg5; Time arg6;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (Time)(hugs->getWord()); {res1 = XGrabKeyboard(arg1, arg2, arg3, arg4, arg5, arg6); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_ungrabKeyboard); primFun(prim_Xlib_ungrabKeyboard) { Display* arg1; Time arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (Time)(hugs->getWord()); {XUngrabKeyboard(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_grabServer); primFun(prim_Xlib_grabServer) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XGrabServer(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_ungrabServer); primFun(prim_Xlib_ungrabServer) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XUngrabServer(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_queryBestTile); primFun(prim_Xlib_queryBestTile) { Display* arg1; XID arg2; unsigned int arg3; unsigned int arg4;unsigned int res1; unsigned int res2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (unsigned int)(hugs->getWord()); { Status err = XQueryBestTile(arg1,arg2,arg3,arg4,&res1,&res2) ; if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XQueryBestTile) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)(res2)); hugs->putWord((unsigned int)(res1)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_queryBestStipple); primFun(prim_Xlib_queryBestStipple) { Display* arg1; XID arg2; unsigned int arg3; unsigned int arg4;unsigned int res1; unsigned int res2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (unsigned int)(hugs->getWord()); { Status err = XQueryBestStipple(arg1,arg2,arg3,arg4,&res1,&res2) ; if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XQueryBestStipple) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)(res2)); hugs->putWord((unsigned int)(res1)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_queryBestCursor); primFun(prim_Xlib_queryBestCursor) { Display* arg1; XID arg2; unsigned int arg3; unsigned int arg4;unsigned int res1; unsigned int res2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (unsigned int)(hugs->getWord()); { Status err = XQueryBestCursor(arg1,arg2,arg3,arg4,&res1,&res2) ; if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XQueryBestCursor) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)(res2)); hugs->putWord((unsigned int)(res1)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_queryBestSize); primFun(prim_Xlib_queryBestSize) { Display* arg1; XID arg2; int arg3; unsigned int arg4; unsigned int arg5;unsigned int res1; unsigned int res2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (unsigned int)(hugs->getWord()); arg5 = (unsigned int)(hugs->getWord()); { Status err = XQueryBestSize(arg1,arg2,arg3,arg4,arg5,&res1,&res2) ; if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XQueryBestSize) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)(res2)); hugs->putWord((unsigned int)(res1)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_queryPointer); primFun(prim_Xlib_queryPointer) { Display* arg1; XID arg2;int res1; XID res2; XID res3; int res4; int res5; int res6; int res7; unsigned int res8;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); { Status res1 = XQueryPointer(arg1,arg2,&res2,&res3,&res4,&res5,&res6,&res7,&res8) ; hugs->putWord((unsigned int)(res8)); hugs->putInt((int)(res7)); hugs->putInt((int)(res6)); hugs->putInt((int)(res5)); hugs->putInt((int)(res4)); hugs->putWord((XID)(res3)); hugs->putWord((XID)(res2)); hugs->putInt((int)(res1)); hugs_returnIO(8); } } PROTO_PRIM(prim_Xlib_displayName); primFun(prim_Xlib_displayName) { char * arg1;char * res1;; arg1 = (char *)(hugs->getAddr()); {res1 = XDisplayName(arg1); hugs->putAddr((char *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_setDefaultErrorHandler); primFun(prim_Xlib_setDefaultErrorHandler) { ; { XSetErrorHandler(defaultErrorHandler); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_queuedAlready); primFun(prim_Xlib_queuedAlready) { int res1;; {res1=QueuedAlready; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_queuedAfterFlush); primFun(prim_Xlib_queuedAfterFlush) { int res1;; {res1=QueuedAfterFlush; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_queuedAfterReading); primFun(prim_Xlib_queuedAfterReading) { int res1;; {res1=QueuedAfterReading; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_allocXEvent); primFun(prim_Xlib_allocXEvent) { XEvent* res1;; { res1 = (void*)malloc(sizeof(XEvent)); hugs->putAddr((XEvent*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_get_EventType); primFun(prim_Xlib_get_EventType) { XEvent* arg1;unsigned int res1;; arg1 = (XEvent*)(hugs->getAddr()); { res1 = arg1->type; hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_get_Window); primFun(prim_Xlib_get_Window) { XEvent* arg1;XID res1;; arg1 = (XEvent*)(hugs->getAddr()); { res1 = ((XAnyEvent*)arg1)->window; hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_get_KeyEvent); primFun(prim_Xlib_get_KeyEvent) { XEvent* arg1;; arg1 = (XEvent*)(hugs->getAddr()); { ; hugs->putInt((int)((*(XKeyEvent*)arg1).same_screen)); hugs->putChar((KeyCode)((*(XKeyEvent*)arg1).keycode)); hugs->putWord((unsigned int)((*(XKeyEvent*)arg1).state)); hugs->putInt((int)((*(XKeyEvent*)arg1).y_root)); hugs->putInt((int)((*(XKeyEvent*)arg1).x_root)); hugs->putInt((int)((*(XKeyEvent*)arg1).y)); hugs->putInt((int)((*(XKeyEvent*)arg1).x)); hugs->putWord((Time)((*(XKeyEvent*)arg1).time)); hugs->putWord((XID)((*(XKeyEvent*)arg1).subwindow)); hugs->putWord((XID)((*(XKeyEvent*)arg1).root)); hugs_returnIO(10); } } PROTO_PRIM(prim_Xlib_get_ButtonEvent); primFun(prim_Xlib_get_ButtonEvent) { XEvent* arg1;; arg1 = (XEvent*)(hugs->getAddr()); { ; hugs->putInt((int)((*(XButtonEvent*)arg1).same_screen)); hugs->putWord((unsigned int)((*(XButtonEvent*)arg1).button)); hugs->putWord((unsigned int)((*(XButtonEvent*)arg1).state)); hugs->putInt((int)((*(XButtonEvent*)arg1).y_root)); hugs->putInt((int)((*(XButtonEvent*)arg1).x_root)); hugs->putInt((int)((*(XButtonEvent*)arg1).y)); hugs->putInt((int)((*(XButtonEvent*)arg1).x)); hugs->putWord((Time)((*(XButtonEvent*)arg1).time)); hugs->putWord((XID)((*(XButtonEvent*)arg1).subwindow)); hugs->putWord((XID)((*(XButtonEvent*)arg1).root)); hugs_returnIO(10); } } PROTO_PRIM(prim_Xlib_get_MotionEvent); primFun(prim_Xlib_get_MotionEvent) { XEvent* arg1;; arg1 = (XEvent*)(hugs->getAddr()); { ; hugs->putInt((int)((*(XMotionEvent*)arg1).same_screen)); hugs->putInt((int)((*(XMotionEvent*)arg1).is_hint)); hugs->putWord((unsigned int)((*(XMotionEvent*)arg1).state)); hugs->putInt((int)((*(XMotionEvent*)arg1).y_root)); hugs->putInt((int)((*(XMotionEvent*)arg1).x_root)); hugs->putInt((int)((*(XMotionEvent*)arg1).y)); hugs->putInt((int)((*(XMotionEvent*)arg1).x)); hugs->putWord((Time)((*(XMotionEvent*)arg1).time)); hugs->putWord((XID)((*(XMotionEvent*)arg1).subwindow)); hugs->putWord((XID)((*(XMotionEvent*)arg1).root)); hugs_returnIO(10); } } PROTO_PRIM(prim_Xlib_get_ExposeEvent); primFun(prim_Xlib_get_ExposeEvent) { XEvent* arg1;; arg1 = (XEvent*)(hugs->getAddr()); {hugs->putInt((int)((*(XExposeEvent*)arg1).count)); hugs->putWord((unsigned int)((*(XExposeEvent*)arg1).height)); hugs->putWord((unsigned int)((*(XExposeEvent*)arg1).width)); hugs->putInt((int)((*(XExposeEvent*)arg1).y)); hugs->putInt((int)((*(XExposeEvent*)arg1).x)); hugs_returnIO(5); } } PROTO_PRIM(prim_Xlib_get_ConfigureEvent); primFun(prim_Xlib_get_ConfigureEvent) { XEvent* arg1;; arg1 = (XEvent*)(hugs->getAddr()); {hugs->putWord((unsigned int)((*(XConfigureEvent*)arg1).height)); hugs->putWord((unsigned int)((*(XConfigureEvent*)arg1).width)); hugs->putInt((int)((*(XConfigureEvent*)arg1).y)); hugs->putInt((int)((*(XConfigureEvent*)arg1).x)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_waitForEvent); primFun(prim_Xlib_waitForEvent) { Display* arg1; unsigned int arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); { struct timeval timeout; fd_set readfds; fd_set nofds; int fd = ConnectionNumber(arg1); int n; FD_ZERO(&readfds); FD_ZERO(&nofds); FD_SET(fd,&readfds); timeout.tv_sec = arg2 / 1000000; timeout.tv_usec = arg2 % 1000000; /* HN 2001-02-06: Select needs to be told highest fd _+_ 1. */ n = select(fd+1,&readfds,&nofds,&nofds,&timeout); hugs->putInt((int)(n == 0)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_gettimeofday_in_milliseconds_internal); primFun(prim_Xlib_gettimeofday_in_milliseconds_internal) { unsigned int res1; unsigned int res2;; { struct timeval tv; int rc = gettimeofday(&tv,0); res1 = tv.tv_sec; res2 = tv.tv_usec; hugs->putWord((unsigned int)(res2)); hugs->putWord((unsigned int)(res1)); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_flush); primFun(prim_Xlib_flush) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XFlush(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_sync); primFun(prim_Xlib_sync) { Display* arg1; int arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); {XSync(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_pending); primFun(prim_Xlib_pending) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XPending(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_eventsQueued); primFun(prim_Xlib_eventsQueued) { Display* arg1; int arg2;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); {res1 = XEventsQueued(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_nextEvent); primFun(prim_Xlib_nextEvent) { Display* arg1; XEvent* arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XEvent*)(hugs->getAddr()); {XNextEvent(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_allowEvents); primFun(prim_Xlib_allowEvents) { Display* arg1; int arg2; Time arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); arg3 = (Time)(hugs->getWord()); {XAllowEvents(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_selectInput); primFun(prim_Xlib_selectInput) { Display* arg1; XID arg2; unsigned int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); {XSelectInput(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_sendEvent); primFun(prim_Xlib_sendEvent) { Display* arg1; XID arg2; int arg3; unsigned int arg4; XEvent* arg5;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (unsigned int)(hugs->getWord()); arg5 = (XEvent*)(hugs->getAddr()); { Status err = XSendEvent(arg1,arg2,arg3,arg4,arg5); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XSendEvent) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_windowEvent); primFun(prim_Xlib_windowEvent) { Display* arg1; XID arg2; unsigned int arg3; XEvent* arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (XEvent*)(hugs->getAddr()); {XWindowEvent(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_checkWindowEvent); primFun(prim_Xlib_checkWindowEvent) { Display* arg1; XID arg2; unsigned int arg3; XEvent* arg4;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (XEvent*)(hugs->getAddr()); {res1 = XCheckWindowEvent(arg1, arg2, arg3, arg4); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_maskEvent); primFun(prim_Xlib_maskEvent) { Display* arg1; unsigned int arg2; XEvent* arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); arg3 = (XEvent*)(hugs->getAddr()); {XMaskEvent(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_checkMaskEvent); primFun(prim_Xlib_checkMaskEvent) { Display* arg1; unsigned int arg2; XEvent* arg3;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); arg3 = (XEvent*)(hugs->getAddr()); {res1 = XCheckMaskEvent(arg1, arg2, arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_checkTypedEvent); primFun(prim_Xlib_checkTypedEvent) { Display* arg1; unsigned int arg2; XEvent* arg3;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); arg3 = (XEvent*)(hugs->getAddr()); {res1 = XCheckTypedEvent(arg1, arg2, arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_checkTypedWindowEvent); primFun(prim_Xlib_checkTypedWindowEvent) { Display* arg1; XID arg2; unsigned int arg3; XEvent* arg4;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (XEvent*)(hugs->getAddr()); {res1 = XCheckTypedWindowEvent(arg1, arg2, arg3, arg4); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_putBackEvent); primFun(prim_Xlib_putBackEvent) { Display* arg1; XEvent* arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XEvent*)(hugs->getAddr()); {XPutBackEvent(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_peekEvent); primFun(prim_Xlib_peekEvent) { Display* arg1; XEvent* arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XEvent*)(hugs->getAddr()); {XPeekEvent(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_refreshKeyboardMapping); primFun(prim_Xlib_refreshKeyboardMapping) { XMappingEvent arg1;; (arg1).request = (int)(hugs->getInt()); (arg1).first_keycode = (KeyCode)(hugs->getChar()); (arg1).count = (int)(hugs->getInt()); { XRefreshKeyboardMapping(&arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_geometry); primFun(prim_Xlib_geometry) { Display* arg1; int arg2; char * arg3; char * arg4; unsigned int arg5; unsigned int arg6; unsigned int arg7; int arg8; int arg9;int res1; int res2; int res3; unsigned int res4; unsigned int res5;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); arg3 = (char *)(hugs->getAddr()); arg4 = (char *)(hugs->getAddr()); arg5 = (unsigned int)(hugs->getWord()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (unsigned int)(hugs->getWord()); arg8 = (int)(hugs->getInt()); arg9 = (int)(hugs->getInt()); { res1 = XGeometry(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,&res2,&res3,&res4,&res5); hugs->putWord((unsigned int)(res5)); hugs->putWord((unsigned int)(res4)); hugs->putInt((int)(res3)); hugs->putInt((int)(res2)); hugs->putInt((int)(res1)); hugs_returnIO(5); } } PROTO_PRIM(prim_Xlib_getGeometry); primFun(prim_Xlib_getGeometry) { Display* arg1; int arg2; XID arg3;XID res1; int res2; int res3; unsigned int res4; unsigned int res5; unsigned int res6; int res7;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); arg3 = (XID)(hugs->getWord()); { Status err = XGetGeometry(arg1,arg2,&res1,&res2,&res3,&res4,&res5,&res6,&res7); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XGetGeometry) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putInt((int)(res7)); hugs->putWord((unsigned int)(res6)); hugs->putWord((unsigned int)(res5)); hugs->putWord((unsigned int)(res4)); hugs->putInt((int)(res3)); hugs->putInt((int)(res2)); hugs->putWord((XID)(res1)); hugs_returnIO(9); } } PROTO_PRIM(prim_Xlib_supportsLocale); primFun(prim_Xlib_supportsLocale) { int res1;; {res1 = XSupportsLocale(); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_setLocaleModifiers); primFun(prim_Xlib_setLocaleModifiers) { char * arg1;char * res1;; arg1 = (char *)(hugs->getAddr()); {res1 = XSetLocaleModifiers(arg1); hugs->putAddr((char *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_dontAllowExposures); primFun(prim_Xlib_dontAllowExposures) { int res1;; {res1=DontAllowExposures; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_allowExposures); primFun(prim_Xlib_allowExposures) { int res1;; {res1=AllowExposures; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultExposures); primFun(prim_Xlib_defaultExposures) { int res1;; {res1=DefaultExposures; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_dontPreferBlanking); primFun(prim_Xlib_dontPreferBlanking) { int res1;; {res1=DontPreferBlanking; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_preferBlanking); primFun(prim_Xlib_preferBlanking) { int res1;; {res1=PreferBlanking; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultBlanking); primFun(prim_Xlib_defaultBlanking) { int res1;; {res1=DefaultBlanking; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_screenSaverActive); primFun(prim_Xlib_screenSaverActive) { int res1;; {res1=ScreenSaverActive; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_screenSaverReset); primFun(prim_Xlib_screenSaverReset) { int res1;; {res1=ScreenSaverReset; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_getScreenSaver); primFun(prim_Xlib_getScreenSaver) { Display* arg1;int res1; int res2; int res3; int res4;; arg1 = (Display*)(hugs->getAddr()); { XGetScreenSaver(arg1,&res1,&res2,&res3,&res4); hugs->putInt((int)(res4)); hugs->putInt((int)(res3)); hugs->putInt((int)(res2)); hugs->putInt((int)(res1)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_setScreenSaver); primFun(prim_Xlib_setScreenSaver) { Display* arg1; int arg2; int arg3; int arg4; int arg5;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); {XSetScreenSaver(arg1, arg2, arg3, arg4, arg5); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_activateScreenSaver); primFun(prim_Xlib_activateScreenSaver) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XActivateScreenSaver(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_resetScreenSaver); primFun(prim_Xlib_resetScreenSaver) { Display* arg1;; arg1 = (Display*)(hugs->getAddr()); {XResetScreenSaver(arg1); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_forceScreenSaver); primFun(prim_Xlib_forceScreenSaver) { Display* arg1; int arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); {XForceScreenSaver(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_getPointerControl); primFun(prim_Xlib_getPointerControl) { Display* arg1;int res1; int res2; int res3;; arg1 = (Display*)(hugs->getAddr()); { XGetPointerControl(arg1,&res1,&res2,&res3); hugs->putInt((int)(res3)); hugs->putInt((int)(res2)); hugs->putInt((int)(res1)); hugs_returnIO(3); } } PROTO_PRIM(prim_Xlib_warpPointer); primFun(prim_Xlib_warpPointer) { Display* arg1; XID arg2; XID arg3; int arg4; int arg5; unsigned int arg6; unsigned int arg7; int arg8; int arg9;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (unsigned int)(hugs->getWord()); arg8 = (int)(hugs->getInt()); arg9 = (int)(hugs->getInt()); {XWarpPointer(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_blackPixelOfScreen); primFun(prim_Xlib_blackPixelOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XBlackPixelOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_whitePixelOfScreen); primFun(prim_Xlib_whitePixelOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XWhitePixelOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_cellsOfScreen); primFun(prim_Xlib_cellsOfScreen) { Screen* arg1;int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XCellsOfScreen(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultColormapOfScreen); primFun(prim_Xlib_defaultColormapOfScreen) { Screen* arg1;XID res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XDefaultColormapOfScreen(arg1); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultDepthOfScreen); primFun(prim_Xlib_defaultDepthOfScreen) { Screen* arg1;int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XDefaultDepthOfScreen(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultGCOfScreen); primFun(prim_Xlib_defaultGCOfScreen) { Screen* arg1;void * res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XDefaultGCOfScreen(arg1); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_defaultVisualOfScreen); primFun(prim_Xlib_defaultVisualOfScreen) { Screen* arg1;Visual* res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XDefaultVisualOfScreen(arg1); hugs->putAddr((Visual*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_doesBackingStore); primFun(prim_Xlib_doesBackingStore) { Screen* arg1;int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XDoesBackingStore(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_doesSaveUnders); primFun(prim_Xlib_doesSaveUnders) { Screen* arg1;int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XDoesSaveUnders(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayOfScreen); primFun(prim_Xlib_displayOfScreen) { Screen* arg1;Display* res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = DisplayOfScreen(arg1); hugs->putAddr((Display*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_eventMaskOfScreen); primFun(prim_Xlib_eventMaskOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XEventMaskOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_minCmapsOfScreen); primFun(prim_Xlib_minCmapsOfScreen) { Screen* arg1;int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XMinCmapsOfScreen(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_maxCmapsOfScreen); primFun(prim_Xlib_maxCmapsOfScreen) { Screen* arg1;int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XMaxCmapsOfScreen(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_rootWindowOfScreen); primFun(prim_Xlib_rootWindowOfScreen) { Screen* arg1;XID res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XRootWindowOfScreen(arg1); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_widthOfScreen); primFun(prim_Xlib_widthOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XWidthOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_widthMMOfScreen); primFun(prim_Xlib_widthMMOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XWidthMMOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_heightOfScreen); primFun(prim_Xlib_heightOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XHeightOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_heightMMOfScreen); primFun(prim_Xlib_heightMMOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XHeightMMOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_planesOfScreen); primFun(prim_Xlib_planesOfScreen) { Screen* arg1;int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XPlanesOfScreen(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_screenNumberOfScreen); primFun(prim_Xlib_screenNumberOfScreen) { Screen* arg1;unsigned int res1;; arg1 = (Screen*)(hugs->getAddr()); {res1 = XScreenNumberOfScreen(arg1); hugs->putWord((unsigned int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_setArcMode); primFun(prim_Xlib_setArcMode) { Display* arg1; void * arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); {XSetArcMode(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setBackground); primFun(prim_Xlib_setBackground) { Display* arg1; void * arg2; unsigned int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (unsigned int)(hugs->getWord()); {XSetBackground(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setForeground); primFun(prim_Xlib_setForeground) { Display* arg1; void * arg2; unsigned int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (unsigned int)(hugs->getWord()); {XSetForeground(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setFunction); primFun(prim_Xlib_setFunction) { Display* arg1; void * arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); {XSetFunction(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setGraphicsExposures); primFun(prim_Xlib_setGraphicsExposures) { Display* arg1; void * arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); {XSetGraphicsExposures(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setClipMask); primFun(prim_Xlib_setClipMask) { Display* arg1; void * arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (XID)(hugs->getWord()); {XSetClipMask(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setClipOrigin); primFun(prim_Xlib_setClipOrigin) { Display* arg1; void * arg2; int arg3; int arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); {XSetClipOrigin(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setDashes); primFun(prim_Xlib_setDashes) { Display* arg1; void * arg2; int arg3; char * arg4; int arg5;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); arg4 = (char *)(hugs->getAddr()); arg5 = (int)(hugs->getInt()); {XSetDashes(arg1, arg2, arg3, arg4, arg5); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setFillRule); primFun(prim_Xlib_setFillRule) { Display* arg1; void * arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); {XSetFillRule(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setFillStyle); primFun(prim_Xlib_setFillStyle) { Display* arg1; void * arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); {XSetFillStyle(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setFont); primFun(prim_Xlib_setFont) { Display* arg1; void * arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (XID)(hugs->getWord()); {XSetFont(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setLineAttributes); primFun(prim_Xlib_setLineAttributes) { Display* arg1; void * arg2; int arg3; int arg4; int arg5; int arg6;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (int)(hugs->getInt()); {XSetLineAttributes(arg1, arg2, arg3, arg4, arg5, arg6); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setPlaneMask); primFun(prim_Xlib_setPlaneMask) { Display* arg1; void * arg2; unsigned int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (unsigned int)(hugs->getWord()); {XSetPlaneMask(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setState); primFun(prim_Xlib_setState) { Display* arg1; void * arg2; unsigned int arg3; unsigned int arg4; int arg5; unsigned int arg6;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (unsigned int)(hugs->getWord()); arg5 = (int)(hugs->getInt()); arg6 = (unsigned int)(hugs->getWord()); {XSetState(arg1, arg2, arg3, arg4, arg5, arg6); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setStipple); primFun(prim_Xlib_setStipple) { Display* arg1; void * arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (XID)(hugs->getWord()); {XSetStipple(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setSubwindowMode); primFun(prim_Xlib_setSubwindowMode) { Display* arg1; void * arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); {XSetSubwindowMode(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setTSOrigin); primFun(prim_Xlib_setTSOrigin) { Display* arg1; void * arg2; int arg3; int arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); {XSetTSOrigin(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setTile); primFun(prim_Xlib_setTile) { Display* arg1; void * arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (XID)(hugs->getWord()); {XSetTile(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_createGC); primFun(prim_Xlib_createGC) { Display* arg1; XID arg2;void * res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); { res1 = XCreateGC(arg1,arg2,0,0); hugs->putAddr((void *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_gContextFromGC); primFun(prim_Xlib_gContextFromGC) { void * arg1;XID res1;; arg1 = (void *)(hugs->getAddr()); {res1 = XGContextFromGC(arg1); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_freeGC); primFun(prim_Xlib_freeGC) { Display* arg1; void * arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); {XFreeGC(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_flushGC); primFun(prim_Xlib_flushGC) { Display* arg1; void * arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); {XFlushGC(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_copyGC); primFun(prim_Xlib_copyGC) { Display* arg1; void * arg2; unsigned int arg3; void * arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (void *)(hugs->getAddr()); {XCopyGC(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_createPixmap); primFun(prim_Xlib_createPixmap) { Display* arg1; XID arg2; unsigned int arg3; unsigned int arg4; int arg5;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (unsigned int)(hugs->getWord()); arg5 = (int)(hugs->getInt()); {res1 = XCreatePixmap(arg1, arg2, arg3, arg4, arg5); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_freePixmap); primFun(prim_Xlib_freePixmap) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XFreePixmap(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_bitmapBitOrder); primFun(prim_Xlib_bitmapBitOrder) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XBitmapBitOrder(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_bitmapUnit); primFun(prim_Xlib_bitmapUnit) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XBitmapUnit(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_bitmapPad); primFun(prim_Xlib_bitmapPad) { Display* arg1;int res1;; arg1 = (Display*)(hugs->getAddr()); {res1 = XBitmapPad(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_lookupColor); primFun(prim_Xlib_lookupColor) { Display* arg1; XID arg2; char * arg3;XColor res1; XColor res2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (char *)(hugs->getAddr()); { Status err = XLookupColor(arg1,arg2,arg3,&res1,&res2); if ((gc_failed = ( 0 == err ))) {gc_failstring = Zero(err,XLookupColor) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)((res2).flags)); hugs->putWord((unsigned int)((res2).blue)); hugs->putWord((unsigned int)((res2).green)); hugs->putWord((unsigned int)((res2).red)); hugs->putWord((unsigned int)((res2).pixel)); hugs->putWord((unsigned int)((res1).flags)); hugs->putWord((unsigned int)((res1).blue)); hugs->putWord((unsigned int)((res1).green)); hugs->putWord((unsigned int)((res1).red)); hugs->putWord((unsigned int)((res1).pixel)); hugs_returnIO(12); free(arg3);} } PROTO_PRIM(prim_Xlib_allocNamedColor); primFun(prim_Xlib_allocNamedColor) { Display* arg1; XID arg2; char * arg3;XColor res1; XColor res2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (char *)(hugs->getAddr()); { Status err = XAllocNamedColor(arg1,arg2,arg3,&res1,&res2); if ((gc_failed = ( 0 == err ))) {gc_failstring = Zero(err,XLookupColor) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)((res2).flags)); hugs->putWord((unsigned int)((res2).blue)); hugs->putWord((unsigned int)((res2).green)); hugs->putWord((unsigned int)((res2).red)); hugs->putWord((unsigned int)((res2).pixel)); hugs->putWord((unsigned int)((res1).flags)); hugs->putWord((unsigned int)((res1).blue)); hugs->putWord((unsigned int)((res1).green)); hugs->putWord((unsigned int)((res1).red)); hugs->putWord((unsigned int)((res1).pixel)); hugs_returnIO(12); free(arg3);} } PROTO_PRIM(prim_Xlib_allocColor); primFun(prim_Xlib_allocColor) { Display* arg1; XID arg2;XColor arg3;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); (arg3).pixel = (unsigned int)(hugs->getWord()); (arg3).red = (unsigned int)(hugs->getWord()); (arg3).green = (unsigned int)(hugs->getWord()); (arg3).blue = (unsigned int)(hugs->getWord()); (arg3).flags = (unsigned int)(hugs->getWord()); { Status err = XAllocColor(arg1,arg2,&arg3); if ((gc_failed = ( 0 == err ))) {gc_failstring = Zero(err,XLookupColor) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)((arg3).flags)); hugs->putWord((unsigned int)((arg3).blue)); hugs->putWord((unsigned int)((arg3).green)); hugs->putWord((unsigned int)((arg3).red)); hugs->putWord((unsigned int)((arg3).pixel)); hugs_returnIO(7); } } PROTO_PRIM(prim_Xlib_parseColor); primFun(prim_Xlib_parseColor) { Display* arg1; XID arg2; char * arg3;XColor res1;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (char *)(hugs->getAddr()); { Status err = XParseColor(arg1,arg2,arg3,&res1); if ((gc_failed = ( 0 == err ))) {gc_failstring = Zero(err,XLookupColor) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((unsigned int)((res1).flags)); hugs->putWord((unsigned int)((res1).blue)); hugs->putWord((unsigned int)((res1).green)); hugs->putWord((unsigned int)((res1).red)); hugs->putWord((unsigned int)((res1).pixel)); hugs_returnIO(7); free(arg3);} } PROTO_PRIM(prim_Xlib_freeColors); primFun(prim_Xlib_freeColors) { Display* arg1; XID arg2; unsigned long* arg3; int arg3_size; unsigned int arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned long*)(hugs->getAddr()); arg3_size = (int)(hugs->getInt()); arg4 = (unsigned int)(hugs->getWord()); { XFreeColors(arg1,arg2,arg3,arg3_size,arg4); hugs_returnIO(0); free(arg3);} } PROTO_PRIM(prim_Xlib_storeColor); primFun(prim_Xlib_storeColor) { Display* arg1; XID arg2;XColor arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); (arg3).pixel = (unsigned int)(hugs->getWord()); (arg3).red = (unsigned int)(hugs->getWord()); (arg3).green = (unsigned int)(hugs->getWord()); (arg3).blue = (unsigned int)(hugs->getWord()); (arg3).flags = (unsigned int)(hugs->getWord()); { XStoreColor(arg1,arg2,&arg3) ; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_queryColor); primFun(prim_Xlib_queryColor) { Display* arg1; XID arg2;XColor arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); (arg3).pixel = (unsigned int)(hugs->getWord()); (arg3).red = (unsigned int)(hugs->getWord()); (arg3).green = (unsigned int)(hugs->getWord()); (arg3).blue = (unsigned int)(hugs->getWord()); (arg3).flags = (unsigned int)(hugs->getWord()); { XQueryColor(arg1,arg2,&arg3); hugs->putWord((unsigned int)((arg3).flags)); hugs->putWord((unsigned int)((arg3).blue)); hugs->putWord((unsigned int)((arg3).green)); hugs->putWord((unsigned int)((arg3).red)); hugs->putWord((unsigned int)((arg3).pixel)); hugs_returnIO(5); } } PROTO_PRIM(prim_Xlib_queryColors); primFun(prim_Xlib_queryColors) { Display* arg1; XID arg2; XColor* arg3; int arg3_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XColor*)(hugs->getAddr()); arg3_size = (int)(hugs->getInt()); { XQueryColors(arg1,arg2,arg3,arg3_size); hugs->putInt((int)(arg3_size)); hugs->putAddr((XColor*)(arg3)); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_installColormap); primFun(prim_Xlib_installColormap) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XInstallColormap(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_uninstallColormap); primFun(prim_Xlib_uninstallColormap) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XUninstallColormap(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_copyColormapAndFree); primFun(prim_Xlib_copyColormapAndFree) { Display* arg1; XID arg2;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {res1 = XCopyColormapAndFree(arg1, arg2); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_createColormap); primFun(prim_Xlib_createColormap) { Display* arg1; XID arg2; Visual* arg3; int arg4;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (Visual*)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); {res1 = XCreateColormap(arg1, arg2, arg3, arg4); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_freeColormap); primFun(prim_Xlib_freeColormap) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XFreeColormap(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_queryFont); primFun(prim_Xlib_queryFont) { Display* arg1; XID arg2;XFontStruct* res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {res1 = XQueryFont(arg1, arg2); hugs->putAddr((XFontStruct*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_fontFromGC); primFun(prim_Xlib_fontFromGC) { Display* arg1; void * arg2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); { XGCValues ret; Status err = XGetGCValues(arg1,arg2,GCFont,&ret); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(rc,FontFromGC) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putWord((XID)(ret.font)); hugs_returnIO(3); } } PROTO_PRIM(prim_Xlib_loadQueryFont); primFun(prim_Xlib_loadQueryFont) { Display* arg1; char * arg2;XFontStruct* res1;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (char *)(hugs->getAddr()); {res1 = XLoadQueryFont(arg1, arg2); if ((gc_failed = ( res1==0 ))) {gc_failstring = NullPtr(XLoadQueryFont) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putAddr((XFontStruct*)(res1)); hugs_returnIO(3); } } PROTO_PRIM(prim_Xlib_freeFont); primFun(prim_Xlib_freeFont) { Display* arg1; XFontStruct* arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XFontStruct*)(hugs->getAddr()); {XFreeFont(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_fontFromFontStruct); primFun(prim_Xlib_fontFromFontStruct) { XFontStruct* arg1;XID res1;; arg1 = (XFontStruct*)(hugs->getAddr()); { res1 = arg1->fid; hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_ascentFromFontStruct); primFun(prim_Xlib_ascentFromFontStruct) { XFontStruct* arg1;int res1;; arg1 = (XFontStruct*)(hugs->getAddr()); { res1 = arg1->ascent; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_descentFromFontStruct); primFun(prim_Xlib_descentFromFontStruct) { XFontStruct* arg1;int res1;; arg1 = (XFontStruct*)(hugs->getAddr()); { res1 = arg1->descent; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_textExtents); primFun(prim_Xlib_textExtents) { XFontStruct* f; char * s; int s_len;int direction; int font_ascent; int font_descent; XCharStruct cs;; f = (XFontStruct*)(hugs->getAddr()); s = (char *)(hugs->getAddr()); s_len = (int)(hugs->getInt()); { int direction; int font_ascent; int font_descent; XCharStruct cs; int rc = XTextExtents(f,s,s_len,&direction,&font_ascent,&font_descent,&cs); hugs->putInt((int)((cs).descent)); hugs->putInt((int)((cs).ascent)); hugs->putInt((int)((cs).width)); hugs->putInt((int)((cs).rbearing)); hugs->putInt((int)((cs).lbearing)); hugs->putInt((int)(font_descent)); hugs->putInt((int)(font_ascent)); hugs->putInt((int)(direction)); hugs_returnIO(8); } } PROTO_PRIM(prim_Xlib_textWidth); primFun(prim_Xlib_textWidth) { XFontStruct* f; char * s; int s_len;int res1;; f = (XFontStruct*)(hugs->getAddr()); s = (char *)(hugs->getAddr()); s_len = (int)(hugs->getInt()); { res1 = XTextWidth(f,s,s_len); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_internAtom); primFun(prim_Xlib_internAtom) { Display* arg1; char * arg2; int arg3;Atom res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (char *)(hugs->getAddr()); arg3 = (int)(hugs->getInt()); {res1 = XInternAtom(arg1, arg2, arg3); hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_displayKeycodes); primFun(prim_Xlib_displayKeycodes) { Display* arg1;int res1; int res2;; arg1 = (Display*)(hugs->getAddr()); { XDisplayKeycodes(arg1,&res1,&res2) ; hugs->putInt((int)(res2)); hugs->putInt((int)(res1)); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_lookupKeysym); primFun(prim_Xlib_lookupKeysym) { XKeyEvent* arg1; int arg2;XID res1;; arg1 = (XKeyEvent*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); {res1 = XLookupKeysym(arg1, arg2); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_keycodeToKeysym); primFun(prim_Xlib_keycodeToKeysym) { Display* arg1; KeyCode arg2; int arg3;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (KeyCode)(hugs->getChar()); arg3 = (int)(hugs->getInt()); {res1 = XKeycodeToKeysym(arg1, arg2, arg3); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_keysymToKeycode); primFun(prim_Xlib_keysymToKeycode) { Display* arg1; XID arg2;KeyCode res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {res1 = XKeysymToKeycode(arg1, arg2); hugs->putChar((KeyCode)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_keysymToString); primFun(prim_Xlib_keysymToString) { XID arg1;char * res1;; arg1 = (XID)(hugs->getWord()); {res1 = XKeysymToString(arg1); hugs->putAddr((char *)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_stringToKeysym); primFun(prim_Xlib_stringToKeysym) { char * arg1;XID res1;; arg1 = (char *)(hugs->getAddr()); {res1 = XStringToKeysym(arg1); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_noSymbol); primFun(prim_Xlib_noSymbol) { XID res1;; {res1=NoSymbol; hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_lookupString); primFun(prim_Xlib_lookupString) { XKeyEvent* e;XID ks; char * buf; int n;; e = (XKeyEvent*)(hugs->getAddr()); { static char buf[100]; int n; KeySym ks; n = XLookupString(e, buf, 100, &ks, NULL); hugs->putInt((int)(n)); hugs->putAddr((char *)(buf)); hugs->putWord((XID)(ks)); hugs_returnIO(3); } } PROTO_PRIM(prim_Xlib_getIconName); primFun(prim_Xlib_getIconName) { Display* arg1; XID arg2;char * res1;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); { Status err = XGetIconName(arg1,arg2,&res1) ; if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XGetIconName) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putAddr((char *)(res1)); hugs_returnIO(3); } } PROTO_PRIM(prim_Xlib_setIconName); primFun(prim_Xlib_setIconName) { Display* arg1; XID arg2; char * arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (char *)(hugs->getAddr()); {XSetIconName(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_defineCursor); primFun(prim_Xlib_defineCursor) { Display* arg1; XID arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); {XDefineCursor(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_undefineCursor); primFun(prim_Xlib_undefineCursor) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XUndefineCursor(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_createPixmapCursor); primFun(prim_Xlib_createPixmapCursor) { Display* arg1; XID arg2; XID arg3; unsigned int arg6; unsigned int arg7;XColor arg4; XColor arg5;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); (arg4).pixel = (unsigned int)(hugs->getWord()); (arg4).red = (unsigned int)(hugs->getWord()); (arg4).green = (unsigned int)(hugs->getWord()); (arg4).blue = (unsigned int)(hugs->getWord()); (arg4).flags = (unsigned int)(hugs->getWord()); (arg5).pixel = (unsigned int)(hugs->getWord()); (arg5).red = (unsigned int)(hugs->getWord()); (arg5).green = (unsigned int)(hugs->getWord()); (arg5).blue = (unsigned int)(hugs->getWord()); (arg5).flags = (unsigned int)(hugs->getWord()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (unsigned int)(hugs->getWord()); { res1 = XCreatePixmapCursor(arg1,arg2,arg3,&arg4,&arg5,arg6,arg7) ; hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_createGlyphCursor); primFun(prim_Xlib_createGlyphCursor) { Display* arg1; XID arg2; XID arg3; int arg4; int arg5;XColor arg6; XColor arg7;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); (arg6).pixel = (unsigned int)(hugs->getWord()); (arg6).red = (unsigned int)(hugs->getWord()); (arg6).green = (unsigned int)(hugs->getWord()); (arg6).blue = (unsigned int)(hugs->getWord()); (arg6).flags = (unsigned int)(hugs->getWord()); (arg7).pixel = (unsigned int)(hugs->getWord()); (arg7).red = (unsigned int)(hugs->getWord()); (arg7).green = (unsigned int)(hugs->getWord()); (arg7).blue = (unsigned int)(hugs->getWord()); (arg7).flags = (unsigned int)(hugs->getWord()); { res1 = XCreateGlyphCursor(arg1,arg2,arg3,arg4,arg5,&arg6,&arg7) ; hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_createFontCursor); primFun(prim_Xlib_createFontCursor) { Display* arg1; int arg2;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); {res1 = XCreateFontCursor(arg1, arg2); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_freeCursor); primFun(prim_Xlib_freeCursor) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XFreeCursor(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_recolorCursor); primFun(prim_Xlib_recolorCursor) { Display* arg1; XID arg2;XColor arg3; XColor arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); (arg3).pixel = (unsigned int)(hugs->getWord()); (arg3).red = (unsigned int)(hugs->getWord()); (arg3).green = (unsigned int)(hugs->getWord()); (arg3).blue = (unsigned int)(hugs->getWord()); (arg3).flags = (unsigned int)(hugs->getWord()); (arg4).pixel = (unsigned int)(hugs->getWord()); (arg4).red = (unsigned int)(hugs->getWord()); (arg4).green = (unsigned int)(hugs->getWord()); (arg4).blue = (unsigned int)(hugs->getWord()); (arg4).flags = (unsigned int)(hugs->getWord()); { XRecolorCursor(arg1,arg2,&arg3,&arg4) ; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setWMProtocols); primFun(prim_Xlib_setWMProtocols) { Display* arg1; XID arg2; Atom * arg3; int arg3_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (Atom *)(hugs->getAddr()); arg3_size = (int)(hugs->getInt()); { XSetWMProtocols(arg1,arg2,arg3,arg3_size); hugs_returnIO(0); free(arg3);} } PROTO_PRIM(prim_Xlib_allocXSetWindowAttributes); primFun(prim_Xlib_allocXSetWindowAttributes) { XSetWindowAttributes* res1;; { res1 = (void*)malloc(sizeof(XSetWindowAttributes)); hugs->putAddr((XSetWindowAttributes*)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_set_background_pixmap); primFun(prim_Xlib_set_background_pixmap) { XSetWindowAttributes* arg1; XID arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); { arg1->background_pixmap = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_background_pixel); primFun(prim_Xlib_set_background_pixel) { XSetWindowAttributes* arg1; unsigned int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); { arg1->background_pixel = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_border_pixmap); primFun(prim_Xlib_set_border_pixmap) { XSetWindowAttributes* arg1; XID arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); { arg1->border_pixmap = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_border_pixel); primFun(prim_Xlib_set_border_pixel) { XSetWindowAttributes* arg1; unsigned int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); { arg1->border_pixel = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_bit_gravity); primFun(prim_Xlib_set_bit_gravity) { XSetWindowAttributes* arg1; int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); { arg1->bit_gravity = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_win_gravity); primFun(prim_Xlib_set_win_gravity) { XSetWindowAttributes* arg1; int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); { arg1->win_gravity = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_backing_store); primFun(prim_Xlib_set_backing_store) { XSetWindowAttributes* arg1; int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); { arg1->backing_store = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_backing_planes); primFun(prim_Xlib_set_backing_planes) { XSetWindowAttributes* arg1; unsigned int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); { arg1->backing_planes = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_backing_pixel); primFun(prim_Xlib_set_backing_pixel) { XSetWindowAttributes* arg1; unsigned int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); { arg1->backing_pixel = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_save_under); primFun(prim_Xlib_set_save_under) { XSetWindowAttributes* arg1; int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); { arg1->save_under = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_event_mask); primFun(prim_Xlib_set_event_mask) { XSetWindowAttributes* arg1; unsigned int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); { arg1->event_mask = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_do_not_propagate_mask); primFun(prim_Xlib_set_do_not_propagate_mask) { XSetWindowAttributes* arg1; unsigned int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (unsigned int)(hugs->getWord()); { arg1->do_not_propagate_mask = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_override_redirect); primFun(prim_Xlib_set_override_redirect) { XSetWindowAttributes* arg1; int arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); { arg1->override_redirect = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_colormap); primFun(prim_Xlib_set_colormap) { XSetWindowAttributes* arg1; XID arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); { arg1->colormap = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_set_cursor); primFun(prim_Xlib_set_cursor) { XSetWindowAttributes* arg1; XID arg2;; arg1 = (XSetWindowAttributes*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); { arg1->cursor = arg2; hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_storeName); primFun(prim_Xlib_storeName) { Display* arg1; XID arg2; char * arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (char *)(hugs->getAddr()); {XStoreName(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_createSimpleWindow); primFun(prim_Xlib_createSimpleWindow) { Display* arg1; XID arg2; int arg3; int arg4; unsigned int arg5; unsigned int arg6; int arg7; unsigned int arg8; unsigned int arg9;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); arg5 = (unsigned int)(hugs->getWord()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (int)(hugs->getInt()); arg8 = (unsigned int)(hugs->getWord()); arg9 = (unsigned int)(hugs->getWord()); {res1 = XCreateSimpleWindow(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_createWindow); primFun(prim_Xlib_createWindow) { Display* arg1; XID arg2; int arg3; int arg4; unsigned int arg5; unsigned int arg6; int arg7; int arg8; int arg9; Visual* arg10; unsigned int arg11; XSetWindowAttributes* arg12;XID res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); arg5 = (unsigned int)(hugs->getWord()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (int)(hugs->getInt()); arg8 = (int)(hugs->getInt()); arg9 = (int)(hugs->getInt()); arg10 = (Visual*)(hugs->getAddr()); arg11 = (unsigned int)(hugs->getWord()); arg12 = (XSetWindowAttributes*)(hugs->getAddr()); {res1 = XCreateWindow(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12); hugs->putWord((XID)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_translateCoordinates); primFun(prim_Xlib_translateCoordinates) { Display* arg1; XID arg2; XID arg3; int arg4; int arg5;int res1; int res2; int res3; XID res4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); { res1 = XTranslateCoordinates(arg1,arg2,arg3,arg4,arg5,&res2,&res3,&res4); hugs->putWord((XID)(res4)); hugs->putInt((int)(res3)); hugs->putInt((int)(res2)); hugs->putInt((int)(res1)); hugs_returnIO(4); } } PROTO_PRIM(prim_Xlib_moveResizeWindow); primFun(prim_Xlib_moveResizeWindow) { Display* arg1; XID arg2; int arg3; int arg4; unsigned int arg5; unsigned int arg6;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); arg5 = (unsigned int)(hugs->getWord()); arg6 = (unsigned int)(hugs->getWord()); {XMoveResizeWindow(arg1, arg2, arg3, arg4, arg5, arg6); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_resizeWindow); primFun(prim_Xlib_resizeWindow) { Display* arg1; XID arg2; unsigned int arg3; unsigned int arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); arg4 = (unsigned int)(hugs->getWord()); {XResizeWindow(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_moveWindow); primFun(prim_Xlib_moveWindow) { Display* arg1; XID arg2; int arg3; int arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); {XMoveWindow(arg1, arg2, arg3, arg4); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_reparentWindow); primFun(prim_Xlib_reparentWindow) { Display* arg1; XID arg2; XID arg3; int arg4; int arg5;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); {XReparentWindow(arg1, arg2, arg3, arg4, arg5); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_mapSubwindows); primFun(prim_Xlib_mapSubwindows) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XMapSubwindows(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_unmapSubwindows); primFun(prim_Xlib_unmapSubwindows) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XUnmapSubwindows(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_mapWindow); primFun(prim_Xlib_mapWindow) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XMapWindow(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_lowerWindow); primFun(prim_Xlib_lowerWindow) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XLowerWindow(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_raiseWindow); primFun(prim_Xlib_raiseWindow) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XRaiseWindow(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_circulateSubwindowsDown); primFun(prim_Xlib_circulateSubwindowsDown) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XCirculateSubwindowsDown(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_circulateSubwindowsUp); primFun(prim_Xlib_circulateSubwindowsUp) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XCirculateSubwindowsUp(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_circulateSubwindows); primFun(prim_Xlib_circulateSubwindows) { Display* arg1; XID arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); {XCirculateSubwindows(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_iconifyWindow); primFun(prim_Xlib_iconifyWindow) { Display* arg1; XID arg2; unsigned int arg3;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); { Status err = XIconifyWindow(arg1,arg2,arg3); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XIconifyWindow) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_withdrawWindow); primFun(prim_Xlib_withdrawWindow) { Display* arg1; XID arg2; unsigned int arg3;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); { Status err = XWithdrawWindow(arg1,arg2,arg3); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XWithdrawWindow) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_destroyWindow); primFun(prim_Xlib_destroyWindow) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XDestroyWindow(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_destroySubwindows); primFun(prim_Xlib_destroySubwindows) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XDestroySubwindows(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setWindowBorder); primFun(prim_Xlib_setWindowBorder) { Display* arg1; XID arg2; unsigned int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); {XSetWindowBorder(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setWindowBorderPixmap); primFun(prim_Xlib_setWindowBorderPixmap) { Display* arg1; XID arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); {XSetWindowBorderPixmap(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setWindowBorderWidth); primFun(prim_Xlib_setWindowBorderWidth) { Display* arg1; XID arg2; unsigned int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); {XSetWindowBorderWidth(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setWindowBackground); primFun(prim_Xlib_setWindowBackground) { Display* arg1; XID arg2; unsigned int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (unsigned int)(hugs->getWord()); {XSetWindowBackground(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setWindowBackgroundPixmap); primFun(prim_Xlib_setWindowBackgroundPixmap) { Display* arg1; XID arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); {XSetWindowBackgroundPixmap(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_setWindowColormap); primFun(prim_Xlib_setWindowColormap) { Display* arg1; XID arg2; XID arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); {XSetWindowColormap(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_addToSaveSet); primFun(prim_Xlib_addToSaveSet) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XAddToSaveSet(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_removeFromSaveSet); primFun(prim_Xlib_removeFromSaveSet) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XRemoveFromSaveSet(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_changeSaveSet); primFun(prim_Xlib_changeSaveSet) { Display* arg1; XID arg2; int arg3;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); {XChangeSaveSet(arg1, arg2, arg3); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_clearWindow); primFun(prim_Xlib_clearWindow) { Display* arg1; XID arg2;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); {XClearWindow(arg1, arg2); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_clearArea); primFun(prim_Xlib_clearArea) { Display* arg1; XID arg2; int arg3; int arg4; unsigned int arg5; unsigned int arg6; int arg7;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (int)(hugs->getInt()); arg4 = (int)(hugs->getInt()); arg5 = (unsigned int)(hugs->getWord()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (int)(hugs->getInt()); {XClearArea(arg1, arg2, arg3, arg4, arg5, arg6, arg7); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_restackWindows); primFun(prim_Xlib_restackWindows) { Display* arg1; Window* arg2; int arg2_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (Window*)(hugs->getAddr()); arg2_size = (int)(hugs->getInt()); { XRestackWindows(arg1, arg2, arg2_size); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_drawPoint); primFun(prim_Xlib_drawPoint) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); {XDrawPoint(arg1, arg2, arg3, arg4, arg5); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_drawPoints); primFun(prim_Xlib_drawPoints) { Display* arg1; XID arg2; void * arg3; XPoint* arg4; int arg4_size; int arg5;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XPoint*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); { XDrawPoints(arg1,arg2,arg3,arg4,arg4_size,arg5) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_drawLine); primFun(prim_Xlib_drawLine) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5; int arg6; int arg7;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (int)(hugs->getInt()); arg7 = (int)(hugs->getInt()); {XDrawLine(arg1, arg2, arg3, arg4, arg5, arg6, arg7); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_drawLines); primFun(prim_Xlib_drawLines) { Display* arg1; XID arg2; void * arg3; XPoint* arg4; int arg4_size; int arg5;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XPoint*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); { XDrawLines(arg1,arg2,arg3,arg4,arg4_size,arg5) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_drawSegments); primFun(prim_Xlib_drawSegments) { Display* arg1; XID arg2; void * arg3; XSegment* arg4; int arg4_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XSegment*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); { XDrawSegments(arg1,arg2,arg3,arg4,arg4_size) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_drawRectangle); primFun(prim_Xlib_drawRectangle) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5; unsigned int arg6; unsigned int arg7;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (unsigned int)(hugs->getWord()); {XDrawRectangle(arg1, arg2, arg3, arg4, arg5, arg6, arg7); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_drawRectangles); primFun(prim_Xlib_drawRectangles) { Display* arg1; XID arg2; void * arg3; XRectangle* arg4; int arg4_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XRectangle*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); { XDrawRectangles(arg1,arg2,arg3,arg4,arg4_size) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_drawArc); primFun(prim_Xlib_drawArc) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5; unsigned int arg6; unsigned int arg7; int arg8; int arg9;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (unsigned int)(hugs->getWord()); arg8 = (int)(hugs->getInt()); arg9 = (int)(hugs->getInt()); {XDrawArc(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_drawArcs); primFun(prim_Xlib_drawArcs) { Display* arg1; XID arg2; void * arg3; XArc* arg4; int arg4_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XArc*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); { XDrawArcs(arg1,arg2,arg3,arg4,arg4_size) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_fillRectangle); primFun(prim_Xlib_fillRectangle) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5; unsigned int arg6; unsigned int arg7;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (unsigned int)(hugs->getWord()); {XFillRectangle(arg1, arg2, arg3, arg4, arg5, arg6, arg7); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_fillRectangles); primFun(prim_Xlib_fillRectangles) { Display* arg1; XID arg2; void * arg3; XRectangle* arg4; int arg4_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XRectangle*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); { XFillRectangles(arg1,arg2,arg3,arg4,arg4_size) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_fillPolygon); primFun(prim_Xlib_fillPolygon) { Display* arg1; XID arg2; void * arg3; XPoint* arg4; int arg4_size; int arg5; int arg6;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XPoint*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (int)(hugs->getInt()); { XFillPolygon(arg1,arg2,arg3,arg4,arg4_size,arg5,arg6) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_fillArc); primFun(prim_Xlib_fillArc) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5; unsigned int arg6; unsigned int arg7; int arg8; int arg9;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (unsigned int)(hugs->getWord()); arg7 = (unsigned int)(hugs->getWord()); arg8 = (int)(hugs->getInt()); arg9 = (int)(hugs->getInt()); {XFillArc(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_fillArcs); primFun(prim_Xlib_fillArcs) { Display* arg1; XID arg2; void * arg3; XArc* arg4; int arg4_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (XArc*)(hugs->getAddr()); arg4_size = (int)(hugs->getInt()); { XFillArcs(arg1,arg2,arg3,arg4,arg4_size) ; hugs_returnIO(0); free(arg4);} } PROTO_PRIM(prim_Xlib_copyArea); primFun(prim_Xlib_copyArea) { Display* arg1; XID arg2; XID arg3; void * arg4; int arg5; int arg6; unsigned int arg7; unsigned int arg8; int arg9; int arg10;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); arg4 = (void *)(hugs->getAddr()); arg5 = (int)(hugs->getInt()); arg6 = (int)(hugs->getInt()); arg7 = (unsigned int)(hugs->getWord()); arg8 = (unsigned int)(hugs->getWord()); arg9 = (int)(hugs->getInt()); arg10 = (int)(hugs->getInt()); {XCopyArea(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_copyPlane); primFun(prim_Xlib_copyPlane) { Display* arg1; XID arg2; XID arg3; void * arg4; int arg5; int arg6; unsigned int arg7; unsigned int arg8; int arg9; int arg10; unsigned int arg11;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (XID)(hugs->getWord()); arg4 = (void *)(hugs->getAddr()); arg5 = (int)(hugs->getInt()); arg6 = (int)(hugs->getInt()); arg7 = (unsigned int)(hugs->getWord()); arg8 = (unsigned int)(hugs->getWord()); arg9 = (int)(hugs->getInt()); arg10 = (int)(hugs->getInt()); arg11 = (unsigned int)(hugs->getWord()); {XCopyPlane(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11); hugs_returnIO(0); } } PROTO_PRIM(prim_Xlib_drawString); primFun(prim_Xlib_drawString) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5; char * arg6; int arg6_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (char *)(hugs->getAddr()); arg6_size = (int)(hugs->getInt()); { XDrawString(arg1,arg2,arg3,arg4,arg5,arg6,arg6_size) ; hugs_returnIO(0); free(arg6);} } PROTO_PRIM(prim_Xlib_drawImageString); primFun(prim_Xlib_drawImageString) { Display* arg1; XID arg2; void * arg3; int arg4; int arg5; char * arg6; int arg6_size;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (void *)(hugs->getAddr()); arg4 = (int)(hugs->getInt()); arg5 = (int)(hugs->getInt()); arg6 = (char *)(hugs->getAddr()); arg6_size = (int)(hugs->getInt()); { XDrawImageString(arg1,arg2,arg3,arg4,arg5,arg6,arg6_size) ; hugs_returnIO(0); free(arg6);} } PROTO_PRIM(prim_Xlib_storeBuffer); primFun(prim_Xlib_storeBuffer) { Display* arg1; char * arg2; int arg2_size; int arg3;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (char *)(hugs->getAddr()); arg2_size = (int)(hugs->getInt()); arg3 = (int)(hugs->getInt()); { Status err = XStoreBuffer(arg1,arg2,arg2_size,arg3); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XStoreBuffer) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_storeBytes); primFun(prim_Xlib_storeBytes) { Display* arg1; char * arg2; int arg2_size;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (char *)(hugs->getAddr()); arg2_size = (int)(hugs->getInt()); { Status err = XStoreBytes(arg1,arg2,arg2_size); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XStoreBytes) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_fetchBuffer); primFun(prim_Xlib_fetchBuffer) { Display* arg1; int arg2;char * res1; int nbytes;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); { int nbytes; char* res1 = XFetchBuffer(arg1, &nbytes, arg2); if ((gc_failed = ( res1 != NULL ))) {gc_failstring = NullPtr(XFetchBuffer) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putInt((int)(nbytes)); hugs->putAddr((char *)(res1)); hugs_returnIO(4); XFree(res1);} } PROTO_PRIM(prim_Xlib_fetchBytes); primFun(prim_Xlib_fetchBytes) { Display* arg1;char * res1; int nbytes;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); { int nbytes; char* res1 = XFetchBytes(arg1, &nbytes); if ((gc_failed = ( res1 != NULL ))) {gc_failstring = NullPtr(XFetchBytes) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs->putInt((int)(nbytes)); hugs->putAddr((char *)(res1)); hugs_returnIO(4); XFree(res1);} } PROTO_PRIM(prim_Xlib_rotateBuffers); primFun(prim_Xlib_rotateBuffers) { Display* arg1; int arg2;int gc_failed; char* gc_failstring;; arg1 = (Display*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); { Status err = XRotateBuffers(arg1,arg2); if ((gc_failed = ( Success != err ))) {gc_failstring = BadStatus(err,XRotateBuffers) ;} else {gc_failed = 0;} hugs->putAddr(gc_failstring); hugs->putInt(gc_failed); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_a_PRIMARY); primFun(prim_Xlib_a_PRIMARY) { Atom res1;; {res1=XA_PRIMARY; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_SECONDARY); primFun(prim_Xlib_a_SECONDARY) { Atom res1;; {res1=XA_SECONDARY; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_ARC); primFun(prim_Xlib_a_ARC) { Atom res1;; {res1=XA_ARC; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_ATOM); primFun(prim_Xlib_a_ATOM) { Atom res1;; {res1=XA_ATOM; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_BITMAP); primFun(prim_Xlib_a_BITMAP) { Atom res1;; {res1=XA_BITMAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CARDINAL); primFun(prim_Xlib_a_CARDINAL) { Atom res1;; {res1=XA_CARDINAL; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_COLORMAP); primFun(prim_Xlib_a_COLORMAP) { Atom res1;; {res1=XA_COLORMAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CURSOR); primFun(prim_Xlib_a_CURSOR) { Atom res1;; {res1=XA_CURSOR; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER0); primFun(prim_Xlib_a_CUT_BUFFER0) { Atom res1;; {res1=XA_CUT_BUFFER0; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER1); primFun(prim_Xlib_a_CUT_BUFFER1) { Atom res1;; {res1=XA_CUT_BUFFER1; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER2); primFun(prim_Xlib_a_CUT_BUFFER2) { Atom res1;; {res1=XA_CUT_BUFFER2; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER3); primFun(prim_Xlib_a_CUT_BUFFER3) { Atom res1;; {res1=XA_CUT_BUFFER3; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER4); primFun(prim_Xlib_a_CUT_BUFFER4) { Atom res1;; {res1=XA_CUT_BUFFER4; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER5); primFun(prim_Xlib_a_CUT_BUFFER5) { Atom res1;; {res1=XA_CUT_BUFFER5; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER6); primFun(prim_Xlib_a_CUT_BUFFER6) { Atom res1;; {res1=XA_CUT_BUFFER6; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CUT_BUFFER7); primFun(prim_Xlib_a_CUT_BUFFER7) { Atom res1;; {res1=XA_CUT_BUFFER7; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_DRAWABLE); primFun(prim_Xlib_a_DRAWABLE) { Atom res1;; {res1=XA_DRAWABLE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_FONT); primFun(prim_Xlib_a_FONT) { Atom res1;; {res1=XA_FONT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_INTEGER); primFun(prim_Xlib_a_INTEGER) { Atom res1;; {res1=XA_INTEGER; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_PIXMAP); primFun(prim_Xlib_a_PIXMAP) { Atom res1;; {res1=XA_PIXMAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_POINT); primFun(prim_Xlib_a_POINT) { Atom res1;; {res1=XA_POINT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RECTANGLE); primFun(prim_Xlib_a_RECTANGLE) { Atom res1;; {res1=XA_RECTANGLE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RESOURCE_MANAGER); primFun(prim_Xlib_a_RESOURCE_MANAGER) { Atom res1;; {res1=XA_RESOURCE_MANAGER; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RGB_COLOR_MAP); primFun(prim_Xlib_a_RGB_COLOR_MAP) { Atom res1;; {res1=XA_RGB_COLOR_MAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RGB_BEST_MAP); primFun(prim_Xlib_a_RGB_BEST_MAP) { Atom res1;; {res1=XA_RGB_BEST_MAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RGB_BLUE_MAP); primFun(prim_Xlib_a_RGB_BLUE_MAP) { Atom res1;; {res1=XA_RGB_BLUE_MAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RGB_DEFAULT_MAP); primFun(prim_Xlib_a_RGB_DEFAULT_MAP) { Atom res1;; {res1=XA_RGB_DEFAULT_MAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RGB_GRAY_MAP); primFun(prim_Xlib_a_RGB_GRAY_MAP) { Atom res1;; {res1=XA_RGB_GRAY_MAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RGB_GREEN_MAP); primFun(prim_Xlib_a_RGB_GREEN_MAP) { Atom res1;; {res1=XA_RGB_GREEN_MAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RGB_RED_MAP); primFun(prim_Xlib_a_RGB_RED_MAP) { Atom res1;; {res1=XA_RGB_RED_MAP; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_STRING); primFun(prim_Xlib_a_STRING) { Atom res1;; {res1=XA_STRING; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_VISUALID); primFun(prim_Xlib_a_VISUALID) { Atom res1;; {res1=XA_VISUALID; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WINDOW); primFun(prim_Xlib_a_WINDOW) { Atom res1;; {res1=XA_WINDOW; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_COMMAND); primFun(prim_Xlib_a_WM_COMMAND) { Atom res1;; {res1=XA_WM_COMMAND; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_HINTS); primFun(prim_Xlib_a_WM_HINTS) { Atom res1;; {res1=XA_WM_HINTS; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_CLIENT_MACHINE); primFun(prim_Xlib_a_WM_CLIENT_MACHINE) { Atom res1;; {res1=XA_WM_CLIENT_MACHINE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_ICON_NAME); primFun(prim_Xlib_a_WM_ICON_NAME) { Atom res1;; {res1=XA_WM_ICON_NAME; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_ICON_SIZE); primFun(prim_Xlib_a_WM_ICON_SIZE) { Atom res1;; {res1=XA_WM_ICON_SIZE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_NAME); primFun(prim_Xlib_a_WM_NAME) { Atom res1;; {res1=XA_WM_NAME; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_NORMAL_HINTS); primFun(prim_Xlib_a_WM_NORMAL_HINTS) { Atom res1;; {res1=XA_WM_NORMAL_HINTS; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_SIZE_HINTS); primFun(prim_Xlib_a_WM_SIZE_HINTS) { Atom res1;; {res1=XA_WM_SIZE_HINTS; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_ZOOM_HINTS); primFun(prim_Xlib_a_WM_ZOOM_HINTS) { Atom res1;; {res1=XA_WM_ZOOM_HINTS; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_MIN_SPACE); primFun(prim_Xlib_a_MIN_SPACE) { Atom res1;; {res1=XA_MIN_SPACE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_NORM_SPACE); primFun(prim_Xlib_a_NORM_SPACE) { Atom res1;; {res1=XA_NORM_SPACE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_MAX_SPACE); primFun(prim_Xlib_a_MAX_SPACE) { Atom res1;; {res1=XA_MAX_SPACE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_END_SPACE); primFun(prim_Xlib_a_END_SPACE) { Atom res1;; {res1=XA_END_SPACE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_SUPERSCRIPT_X); primFun(prim_Xlib_a_SUPERSCRIPT_X) { Atom res1;; {res1=XA_SUPERSCRIPT_X; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_SUPERSCRIPT_Y); primFun(prim_Xlib_a_SUPERSCRIPT_Y) { Atom res1;; {res1=XA_SUPERSCRIPT_Y; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_SUBSCRIPT_X); primFun(prim_Xlib_a_SUBSCRIPT_X) { Atom res1;; {res1=XA_SUBSCRIPT_X; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_SUBSCRIPT_Y); primFun(prim_Xlib_a_SUBSCRIPT_Y) { Atom res1;; {res1=XA_SUBSCRIPT_Y; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_UNDERLINE_POSITION); primFun(prim_Xlib_a_UNDERLINE_POSITION) { Atom res1;; {res1=XA_UNDERLINE_POSITION; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_UNDERLINE_THICKNESS); primFun(prim_Xlib_a_UNDERLINE_THICKNESS) { Atom res1;; {res1=XA_UNDERLINE_THICKNESS; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_STRIKEOUT_ASCENT); primFun(prim_Xlib_a_STRIKEOUT_ASCENT) { Atom res1;; {res1=XA_STRIKEOUT_ASCENT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_STRIKEOUT_DESCENT); primFun(prim_Xlib_a_STRIKEOUT_DESCENT) { Atom res1;; {res1=XA_STRIKEOUT_DESCENT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_ITALIC_ANGLE); primFun(prim_Xlib_a_ITALIC_ANGLE) { Atom res1;; {res1=XA_ITALIC_ANGLE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_X_HEIGHT); primFun(prim_Xlib_a_X_HEIGHT) { Atom res1;; {res1=XA_X_HEIGHT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_QUAD_WIDTH); primFun(prim_Xlib_a_QUAD_WIDTH) { Atom res1;; {res1=XA_QUAD_WIDTH; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WEIGHT); primFun(prim_Xlib_a_WEIGHT) { Atom res1;; {res1=XA_WEIGHT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_POINT_SIZE); primFun(prim_Xlib_a_POINT_SIZE) { Atom res1;; {res1=XA_POINT_SIZE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_RESOLUTION); primFun(prim_Xlib_a_RESOLUTION) { Atom res1;; {res1=XA_RESOLUTION; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_COPYRIGHT); primFun(prim_Xlib_a_COPYRIGHT) { Atom res1;; {res1=XA_COPYRIGHT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_NOTICE); primFun(prim_Xlib_a_NOTICE) { Atom res1;; {res1=XA_NOTICE; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_FONT_NAME); primFun(prim_Xlib_a_FONT_NAME) { Atom res1;; {res1=XA_FONT_NAME; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_FAMILY_NAME); primFun(prim_Xlib_a_FAMILY_NAME) { Atom res1;; {res1=XA_FAMILY_NAME; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_FULL_NAME); primFun(prim_Xlib_a_FULL_NAME) { Atom res1;; {res1=XA_FULL_NAME; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_CAP_HEIGHT); primFun(prim_Xlib_a_CAP_HEIGHT) { Atom res1;; {res1=XA_CAP_HEIGHT; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_CLASS); primFun(prim_Xlib_a_WM_CLASS) { Atom res1;; {res1=XA_WM_CLASS; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_WM_TRANSIENT_FOR); primFun(prim_Xlib_a_WM_TRANSIENT_FOR) { Atom res1;; {res1=XA_WM_TRANSIENT_FOR; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_a_LAST_PREDEFINED); primFun(prim_Xlib_a_LAST_PREDEFINED) { Atom res1;; {res1=XA_LAST_PREDEFINED; hugs->putWord((Atom)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_setTextProperty); primFun(prim_Xlib_setTextProperty) { Display* arg1; XID arg2; char * arg3; int arg3_size; Atom arg4;; arg1 = (Display*)(hugs->getAddr()); arg2 = (XID)(hugs->getWord()); arg3 = (char *)(hugs->getAddr()); arg3_size = (int)(hugs->getInt()); arg4 = (Atom)(hugs->getWord()); { XTextProperty p = { arg3, XA_STRING, 8, arg3_size }; XSetTextProperty(arg1,arg2,&p,arg4); hugs_returnIO(0); free(arg3);} } PROTO_PRIM(prim_Xlib_rectangleOut); primFun(prim_Xlib_rectangleOut) { int res1;; {res1=RectangleOut; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_rectangleIn); primFun(prim_Xlib_rectangleIn) { int res1;; {res1=RectangleIn; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_rectanglePart); primFun(prim_Xlib_rectanglePart) { int res1;; {res1=RectanglePart; hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_createRegion); primFun(prim_Xlib_createRegion) { Region res1;; {res1 = XCreateRegion(); hugs->putAddr((Region)(res1)); hugs->putAddr(&XDestroyRegion); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_polygonRegion); primFun(prim_Xlib_polygonRegion) { XPoint* arg1; int arg2; int arg3;Region res1;; arg1 = (XPoint*)(hugs->getAddr()); arg2 = (int)(hugs->getInt()); arg3 = (int)(hugs->getInt()); {res1 = XPolygonRegion(arg1, arg2, arg3); hugs->putAddr((Region)(res1)); hugs->putAddr(&XDestroyRegion); hugs_returnIO(2); } } PROTO_PRIM(prim_Xlib_intersectRegion); primFun(prim_Xlib_intersectRegion) { Region arg1; Region arg2; Region arg3;int res1;; arg1 = ((Region) hugs->getForeign()); arg2 = ((Region) hugs->getForeign()); arg3 = ((Region) hugs->getForeign()); {res1 = XIntersectRegion(arg1, arg2, arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_subtractRegion); primFun(prim_Xlib_subtractRegion) { Region arg1; Region arg2; Region arg3;int res1;; arg1 = ((Region) hugs->getForeign()); arg2 = ((Region) hugs->getForeign()); arg3 = ((Region) hugs->getForeign()); {res1 = XSubtractRegion(arg1, arg2, arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_unionRectWithRegion); primFun(prim_Xlib_unionRectWithRegion) { Region arg2; Region arg3;XRectangle arg1;int res1;; (arg1).x = (int)(hugs->getInt()); (arg1).y = (int)(hugs->getInt()); (arg1).width = (unsigned int)(hugs->getWord()); (arg1).height = (unsigned int)(hugs->getWord()); arg2 = ((Region) hugs->getForeign()); arg3 = ((Region) hugs->getForeign()); { res1 = XUnionRectWithRegion(&arg1,arg2,arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_unionRegion); primFun(prim_Xlib_unionRegion) { Region arg1; Region arg2; Region arg3;int res1;; arg1 = ((Region) hugs->getForeign()); arg2 = ((Region) hugs->getForeign()); arg3 = ((Region) hugs->getForeign()); {res1 = XUnionRegion(arg1, arg2, arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_xorRegion); primFun(prim_Xlib_xorRegion) { Region arg1; Region arg2; Region arg3;int res1;; arg1 = ((Region) hugs->getForeign()); arg2 = ((Region) hugs->getForeign()); arg3 = ((Region) hugs->getForeign()); {res1 = XXorRegion(arg1, arg2, arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_emptyRegion); primFun(prim_Xlib_emptyRegion) { Region arg1;int res1;; arg1 = ((Region) hugs->getForeign()); {res1 = XEmptyRegion(arg1); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_equalRegion); primFun(prim_Xlib_equalRegion) { Region arg1; Region arg2;int res1;; arg1 = ((Region) hugs->getForeign()); arg2 = ((Region) hugs->getForeign()); {res1 = XEqualRegion(arg1, arg2); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_pointInRegion); primFun(prim_Xlib_pointInRegion) { Region arg1;XPoint arg2;int res1;; arg1 = ((Region) hugs->getForeign()); (arg2).x = (int)(hugs->getInt()); (arg2).y = (int)(hugs->getInt()); { res1 = XPointInRegion(arg1,arg2.x,arg2.y); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_rectInRegion); primFun(prim_Xlib_rectInRegion) { Region arg1;XRectangle arg2;int res1;; arg1 = ((Region) hugs->getForeign()); (arg2).x = (int)(hugs->getInt()); (arg2).y = (int)(hugs->getInt()); (arg2).width = (unsigned int)(hugs->getWord()); (arg2).height = (unsigned int)(hugs->getWord()); { res1 = XRectInRegion(arg1,arg2.x,arg2.y,arg2.width,arg2.height); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_clipBox); primFun(prim_Xlib_clipBox) { Region arg1;XRectangle res1; int res2;; arg1 = ((Region) hugs->getForeign()); { res2 = XClipBox(arg1,&res1); hugs->putInt((int)(res2)); hugs->putWord((unsigned int)((res1).height)); hugs->putWord((unsigned int)((res1).width)); hugs->putInt((int)((res1).y)); hugs->putInt((int)((res1).x)); hugs_returnIO(5); } } PROTO_PRIM(prim_Xlib_offsetRegion); primFun(prim_Xlib_offsetRegion) { Region arg1;XPoint arg2;int res1;; arg1 = ((Region) hugs->getForeign()); (arg2).x = (int)(hugs->getInt()); (arg2).y = (int)(hugs->getInt()); { res1 = XOffsetRegion(arg1,arg2.x,arg2.y); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_shrinkRegion); primFun(prim_Xlib_shrinkRegion) { Region arg1;XPoint arg2;int res1;; arg1 = ((Region) hugs->getForeign()); (arg2).x = (int)(hugs->getInt()); (arg2).y = (int)(hugs->getInt()); { res1 = XShrinkRegion(arg1,arg2.x,arg2.y); hugs->putInt((int)(res1)); hugs_returnIO(1); } } PROTO_PRIM(prim_Xlib_setRegion); primFun(prim_Xlib_setRegion) { Display* arg1; void * arg2; Region arg3;int res1;; arg1 = (Display*)(hugs->getAddr()); arg2 = (void *)(hugs->getAddr()); arg3 = ((Region) hugs->getForeign()); {res1 = XSetRegion(arg1, arg2, arg3); hugs->putInt((int)(res1)); hugs_returnIO(1); } } static struct primitive primTable[] = { {"prim_Xlib_writeAddr",5,prim_Xlib_writeAddr}, {"prim_Xlib_readAddr",4,prim_Xlib_readAddr}, {"prim_Xlib_allocAddr",3,prim_Xlib_allocAddr}, {"prim_Xlib_writePoint",6,prim_Xlib_writePoint}, {"prim_Xlib_readPoint",4,prim_Xlib_readPoint}, {"prim_Xlib_allocPoints",3,prim_Xlib_allocPoints}, {"prim_Xlib_writeRectangle",8,prim_Xlib_writeRectangle}, {"prim_Xlib_readRectangle",4,prim_Xlib_readRectangle}, {"prim_Xlib_allocRectangles",3,prim_Xlib_allocRectangles}, {"prim_Xlib_writeArc",10,prim_Xlib_writeArc}, {"prim_Xlib_readArc",4,prim_Xlib_readArc}, {"prim_Xlib_allocArcs",3,prim_Xlib_allocArcs}, {"prim_Xlib_writeSegment",8,prim_Xlib_writeSegment}, {"prim_Xlib_readSegment",4,prim_Xlib_readSegment}, {"prim_Xlib_allocSegments",3,prim_Xlib_allocSegments}, {"prim_Xlib_writeColor",9,prim_Xlib_writeColor}, {"prim_Xlib_readColor",4,prim_Xlib_readColor}, {"prim_Xlib_allocColors",3,prim_Xlib_allocColors}, {"prim_Xlib_writeWord32",5,prim_Xlib_writeWord32}, {"prim_Xlib_readWord32",4,prim_Xlib_readWord32}, {"prim_Xlib_allocWord32Star",3,prim_Xlib_allocWord32Star}, {"prim_Xlib_allPlanes",2,prim_Xlib_allPlanes}, {"prim_Xlib_blackPixel",4,prim_Xlib_blackPixel}, {"prim_Xlib_whitePixel",4,prim_Xlib_whitePixel}, {"prim_Xlib_connectionNumber",3,prim_Xlib_connectionNumber}, {"prim_Xlib_defaultColormap",4,prim_Xlib_defaultColormap}, {"prim_Xlib_defaultGC",4,prim_Xlib_defaultGC}, {"prim_Xlib_defaultDepth",4,prim_Xlib_defaultDepth}, {"prim_Xlib_defaultScreen",3,prim_Xlib_defaultScreen}, {"prim_Xlib_defaultScreenOfDisplay",3,prim_Xlib_defaultScreenOfDisplay}, {"prim_Xlib_displayHeight",4,prim_Xlib_displayHeight}, {"prim_Xlib_displayHeightMM",4,prim_Xlib_displayHeightMM}, {"prim_Xlib_displayWidth",4,prim_Xlib_displayWidth}, {"prim_Xlib_displayWidthMM",4,prim_Xlib_displayWidthMM}, {"prim_Xlib_maxRequestSize",3,prim_Xlib_maxRequestSize}, {"prim_Xlib_displayMotionBufferSize",3,prim_Xlib_displayMotionBufferSize}, {"prim_Xlib_resourceManagerString",3,prim_Xlib_resourceManagerString}, {"prim_Xlib_screenResourceString",3,prim_Xlib_screenResourceString}, {"prim_Xlib_displayString",3,prim_Xlib_displayString}, {"prim_Xlib_imageByteOrder",3,prim_Xlib_imageByteOrder}, {"prim_Xlib_protocolRevision",3,prim_Xlib_protocolRevision}, {"prim_Xlib_protocolVersion",3,prim_Xlib_protocolVersion}, {"prim_Xlib_serverVendor",3,prim_Xlib_serverVendor}, {"prim_Xlib_screenCount",3,prim_Xlib_screenCount}, {"prim_Xlib_defaultVisual",4,prim_Xlib_defaultVisual}, {"prim_Xlib_displayCells",4,prim_Xlib_displayCells}, {"prim_Xlib_displayPlanes",4,prim_Xlib_displayPlanes}, {"prim_Xlib_screenOfDisplay",4,prim_Xlib_screenOfDisplay}, {"prim_Xlib_defaultRootWindow",3,prim_Xlib_defaultRootWindow}, {"prim_Xlib_rootWindow",4,prim_Xlib_rootWindow}, {"prim_Xlib_qLength",3,prim_Xlib_qLength}, {"prim_Xlib_noOp",3,prim_Xlib_noOp}, {"prim_Xlib_openDisplay",3,prim_Xlib_openDisplay}, {"prim_Xlib_closeDisplay",3,prim_Xlib_closeDisplay}, {"prim_Xlib_rmInitialize",2,prim_Xlib_rmInitialize}, {"prim_Xlib_autoRepeatOff",3,prim_Xlib_autoRepeatOff}, {"prim_Xlib_autoRepeatOn",3,prim_Xlib_autoRepeatOn}, {"prim_Xlib_bell",4,prim_Xlib_bell}, {"prim_Xlib_setCloseDownMode",4,prim_Xlib_setCloseDownMode}, {"prim_Xlib_lastKnownRequestProcessed",3,prim_Xlib_lastKnownRequestProcessed}, {"prim_Xlib_getInputFocus",3,prim_Xlib_getInputFocus}, {"prim_Xlib_setInputFocus",6,prim_Xlib_setInputFocus}, {"prim_Xlib_grabButton",12,prim_Xlib_grabButton}, {"prim_Xlib_ungrabButton",6,prim_Xlib_ungrabButton}, {"prim_Xlib_grabPointer",11,prim_Xlib_grabPointer}, {"prim_Xlib_ungrabPointer",4,prim_Xlib_ungrabPointer}, {"prim_Xlib_grabKey",9,prim_Xlib_grabKey}, {"prim_Xlib_ungrabKey",6,prim_Xlib_ungrabKey}, {"prim_Xlib_grabKeyboard",8,prim_Xlib_grabKeyboard}, {"prim_Xlib_ungrabKeyboard",4,prim_Xlib_ungrabKeyboard}, {"prim_Xlib_grabServer",3,prim_Xlib_grabServer}, {"prim_Xlib_ungrabServer",3,prim_Xlib_ungrabServer}, {"prim_Xlib_queryBestTile",6,prim_Xlib_queryBestTile}, {"prim_Xlib_queryBestStipple",6,prim_Xlib_queryBestStipple}, {"prim_Xlib_queryBestCursor",6,prim_Xlib_queryBestCursor}, {"prim_Xlib_queryBestSize",7,prim_Xlib_queryBestSize}, {"prim_Xlib_queryPointer",4,prim_Xlib_queryPointer}, {"prim_Xlib_displayName",3,prim_Xlib_displayName}, {"prim_Xlib_setDefaultErrorHandler",2,prim_Xlib_setDefaultErrorHandler}, {"prim_Xlib_queuedAlready",2,prim_Xlib_queuedAlready}, {"prim_Xlib_queuedAfterFlush",2,prim_Xlib_queuedAfterFlush}, {"prim_Xlib_queuedAfterReading",2,prim_Xlib_queuedAfterReading}, {"prim_Xlib_allocXEvent",2,prim_Xlib_allocXEvent}, {"prim_Xlib_get_EventType",3,prim_Xlib_get_EventType}, {"prim_Xlib_get_Window",3,prim_Xlib_get_Window}, {"prim_Xlib_get_KeyEvent",3,prim_Xlib_get_KeyEvent}, {"prim_Xlib_get_ButtonEvent",3,prim_Xlib_get_ButtonEvent}, {"prim_Xlib_get_MotionEvent",3,prim_Xlib_get_MotionEvent}, {"prim_Xlib_get_ExposeEvent",3,prim_Xlib_get_ExposeEvent}, {"prim_Xlib_get_ConfigureEvent",3,prim_Xlib_get_ConfigureEvent}, {"prim_Xlib_waitForEvent",4,prim_Xlib_waitForEvent}, {"prim_Xlib_gettimeofday_in_milliseconds_internal",2,prim_Xlib_gettimeofday_in_milliseconds_internal}, {"prim_Xlib_flush",3,prim_Xlib_flush}, {"prim_Xlib_sync",4,prim_Xlib_sync}, {"prim_Xlib_pending",3,prim_Xlib_pending}, {"prim_Xlib_eventsQueued",4,prim_Xlib_eventsQueued}, {"prim_Xlib_nextEvent",4,prim_Xlib_nextEvent}, {"prim_Xlib_allowEvents",5,prim_Xlib_allowEvents}, {"prim_Xlib_selectInput",5,prim_Xlib_selectInput}, {"prim_Xlib_sendEvent",7,prim_Xlib_sendEvent}, {"prim_Xlib_windowEvent",6,prim_Xlib_windowEvent}, {"prim_Xlib_checkWindowEvent",6,prim_Xlib_checkWindowEvent}, {"prim_Xlib_maskEvent",5,prim_Xlib_maskEvent}, {"prim_Xlib_checkMaskEvent",5,prim_Xlib_checkMaskEvent}, {"prim_Xlib_checkTypedEvent",5,prim_Xlib_checkTypedEvent}, {"prim_Xlib_checkTypedWindowEvent",6,prim_Xlib_checkTypedWindowEvent}, {"prim_Xlib_putBackEvent",4,prim_Xlib_putBackEvent}, {"prim_Xlib_peekEvent",4,prim_Xlib_peekEvent}, {"prim_Xlib_refreshKeyboardMapping",5,prim_Xlib_refreshKeyboardMapping}, {"prim_Xlib_geometry",11,prim_Xlib_geometry}, {"prim_Xlib_getGeometry",5,prim_Xlib_getGeometry}, {"prim_Xlib_supportsLocale",2,prim_Xlib_supportsLocale}, {"prim_Xlib_setLocaleModifiers",3,prim_Xlib_setLocaleModifiers}, {"prim_Xlib_dontAllowExposures",2,prim_Xlib_dontAllowExposures}, {"prim_Xlib_allowExposures",2,prim_Xlib_allowExposures}, {"prim_Xlib_defaultExposures",2,prim_Xlib_defaultExposures}, {"prim_Xlib_dontPreferBlanking",2,prim_Xlib_dontPreferBlanking}, {"prim_Xlib_preferBlanking",2,prim_Xlib_preferBlanking}, {"prim_Xlib_defaultBlanking",2,prim_Xlib_defaultBlanking}, {"prim_Xlib_screenSaverActive",2,prim_Xlib_screenSaverActive}, {"prim_Xlib_screenSaverReset",2,prim_Xlib_screenSaverReset}, {"prim_Xlib_getScreenSaver",3,prim_Xlib_getScreenSaver}, {"prim_Xlib_setScreenSaver",7,prim_Xlib_setScreenSaver}, {"prim_Xlib_activateScreenSaver",3,prim_Xlib_activateScreenSaver}, {"prim_Xlib_resetScreenSaver",3,prim_Xlib_resetScreenSaver}, {"prim_Xlib_forceScreenSaver",4,prim_Xlib_forceScreenSaver}, {"prim_Xlib_getPointerControl",3,prim_Xlib_getPointerControl}, {"prim_Xlib_warpPointer",11,prim_Xlib_warpPointer}, {"prim_Xlib_blackPixelOfScreen",3,prim_Xlib_blackPixelOfScreen}, {"prim_Xlib_whitePixelOfScreen",3,prim_Xlib_whitePixelOfScreen}, {"prim_Xlib_cellsOfScreen",3,prim_Xlib_cellsOfScreen}, {"prim_Xlib_defaultColormapOfScreen",3,prim_Xlib_defaultColormapOfScreen}, {"prim_Xlib_defaultDepthOfScreen",3,prim_Xlib_defaultDepthOfScreen}, {"prim_Xlib_defaultGCOfScreen",3,prim_Xlib_defaultGCOfScreen}, {"prim_Xlib_defaultVisualOfScreen",3,prim_Xlib_defaultVisualOfScreen}, {"prim_Xlib_doesBackingStore",3,prim_Xlib_doesBackingStore}, {"prim_Xlib_doesSaveUnders",3,prim_Xlib_doesSaveUnders}, {"prim_Xlib_displayOfScreen",3,prim_Xlib_displayOfScreen}, {"prim_Xlib_eventMaskOfScreen",3,prim_Xlib_eventMaskOfScreen}, {"prim_Xlib_minCmapsOfScreen",3,prim_Xlib_minCmapsOfScreen}, {"prim_Xlib_maxCmapsOfScreen",3,prim_Xlib_maxCmapsOfScreen}, {"prim_Xlib_rootWindowOfScreen",3,prim_Xlib_rootWindowOfScreen}, {"prim_Xlib_widthOfScreen",3,prim_Xlib_widthOfScreen}, {"prim_Xlib_widthMMOfScreen",3,prim_Xlib_widthMMOfScreen}, {"prim_Xlib_heightOfScreen",3,prim_Xlib_heightOfScreen}, {"prim_Xlib_heightMMOfScreen",3,prim_Xlib_heightMMOfScreen}, {"prim_Xlib_planesOfScreen",3,prim_Xlib_planesOfScreen}, {"prim_Xlib_screenNumberOfScreen",3,prim_Xlib_screenNumberOfScreen}, {"prim_Xlib_setArcMode",5,prim_Xlib_setArcMode}, {"prim_Xlib_setBackground",5,prim_Xlib_setBackground}, {"prim_Xlib_setForeground",5,prim_Xlib_setForeground}, {"prim_Xlib_setFunction",5,prim_Xlib_setFunction}, {"prim_Xlib_setGraphicsExposures",5,prim_Xlib_setGraphicsExposures}, {"prim_Xlib_setClipMask",5,prim_Xlib_setClipMask}, {"prim_Xlib_setClipOrigin",6,prim_Xlib_setClipOrigin}, {"prim_Xlib_setDashes",7,prim_Xlib_setDashes}, {"prim_Xlib_setFillRule",5,prim_Xlib_setFillRule}, {"prim_Xlib_setFillStyle",5,prim_Xlib_setFillStyle}, {"prim_Xlib_setFont",5,prim_Xlib_setFont}, {"prim_Xlib_setLineAttributes",8,prim_Xlib_setLineAttributes}, {"prim_Xlib_setPlaneMask",5,prim_Xlib_setPlaneMask}, {"prim_Xlib_setState",8,prim_Xlib_setState}, {"prim_Xlib_setStipple",5,prim_Xlib_setStipple}, {"prim_Xlib_setSubwindowMode",5,prim_Xlib_setSubwindowMode}, {"prim_Xlib_setTSOrigin",6,prim_Xlib_setTSOrigin}, {"prim_Xlib_setTile",5,prim_Xlib_setTile}, {"prim_Xlib_createGC",4,prim_Xlib_createGC}, {"prim_Xlib_gContextFromGC",3,prim_Xlib_gContextFromGC}, {"prim_Xlib_freeGC",4,prim_Xlib_freeGC}, {"prim_Xlib_flushGC",4,prim_Xlib_flushGC}, {"prim_Xlib_copyGC",6,prim_Xlib_copyGC}, {"prim_Xlib_createPixmap",7,prim_Xlib_createPixmap}, {"prim_Xlib_freePixmap",4,prim_Xlib_freePixmap}, {"prim_Xlib_bitmapBitOrder",3,prim_Xlib_bitmapBitOrder}, {"prim_Xlib_bitmapUnit",3,prim_Xlib_bitmapUnit}, {"prim_Xlib_bitmapPad",3,prim_Xlib_bitmapPad}, {"prim_Xlib_lookupColor",5,prim_Xlib_lookupColor}, {"prim_Xlib_allocNamedColor",5,prim_Xlib_allocNamedColor}, {"prim_Xlib_allocColor",9,prim_Xlib_allocColor}, {"prim_Xlib_parseColor",5,prim_Xlib_parseColor}, {"prim_Xlib_freeColors",7,prim_Xlib_freeColors}, {"prim_Xlib_storeColor",9,prim_Xlib_storeColor}, {"prim_Xlib_queryColor",9,prim_Xlib_queryColor}, {"prim_Xlib_queryColors",6,prim_Xlib_queryColors}, {"prim_Xlib_installColormap",4,prim_Xlib_installColormap}, {"prim_Xlib_uninstallColormap",4,prim_Xlib_uninstallColormap}, {"prim_Xlib_copyColormapAndFree",4,prim_Xlib_copyColormapAndFree}, {"prim_Xlib_createColormap",6,prim_Xlib_createColormap}, {"prim_Xlib_freeColormap",4,prim_Xlib_freeColormap}, {"prim_Xlib_queryFont",4,prim_Xlib_queryFont}, {"prim_Xlib_fontFromGC",4,prim_Xlib_fontFromGC}, {"prim_Xlib_loadQueryFont",4,prim_Xlib_loadQueryFont}, {"prim_Xlib_freeFont",4,prim_Xlib_freeFont}, {"prim_Xlib_fontFromFontStruct",3,prim_Xlib_fontFromFontStruct}, {"prim_Xlib_ascentFromFontStruct",3,prim_Xlib_ascentFromFontStruct}, {"prim_Xlib_descentFromFontStruct",3,prim_Xlib_descentFromFontStruct}, {"prim_Xlib_textExtents",5,prim_Xlib_textExtents}, {"prim_Xlib_textWidth",5,prim_Xlib_textWidth}, {"prim_Xlib_internAtom",5,prim_Xlib_internAtom}, {"prim_Xlib_displayKeycodes",3,prim_Xlib_displayKeycodes}, {"prim_Xlib_lookupKeysym",4,prim_Xlib_lookupKeysym}, {"prim_Xlib_keycodeToKeysym",5,prim_Xlib_keycodeToKeysym}, {"prim_Xlib_keysymToKeycode",4,prim_Xlib_keysymToKeycode}, {"prim_Xlib_keysymToString",3,prim_Xlib_keysymToString}, {"prim_Xlib_stringToKeysym",3,prim_Xlib_stringToKeysym}, {"prim_Xlib_noSymbol",2,prim_Xlib_noSymbol}, {"prim_Xlib_lookupString",3,prim_Xlib_lookupString}, {"prim_Xlib_getIconName",4,prim_Xlib_getIconName}, {"prim_Xlib_setIconName",5,prim_Xlib_setIconName}, {"prim_Xlib_defineCursor",5,prim_Xlib_defineCursor}, {"prim_Xlib_undefineCursor",4,prim_Xlib_undefineCursor}, {"prim_Xlib_createPixmapCursor",17,prim_Xlib_createPixmapCursor}, {"prim_Xlib_createGlyphCursor",17,prim_Xlib_createGlyphCursor}, {"prim_Xlib_createFontCursor",4,prim_Xlib_createFontCursor}, {"prim_Xlib_freeCursor",4,prim_Xlib_freeCursor}, {"prim_Xlib_recolorCursor",14,prim_Xlib_recolorCursor}, {"prim_Xlib_setWMProtocols",6,prim_Xlib_setWMProtocols}, {"prim_Xlib_allocXSetWindowAttributes",2,prim_Xlib_allocXSetWindowAttributes}, {"prim_Xlib_set_background_pixmap",4,prim_Xlib_set_background_pixmap}, {"prim_Xlib_set_background_pixel",4,prim_Xlib_set_background_pixel}, {"prim_Xlib_set_border_pixmap",4,prim_Xlib_set_border_pixmap}, {"prim_Xlib_set_border_pixel",4,prim_Xlib_set_border_pixel}, {"prim_Xlib_set_bit_gravity",4,prim_Xlib_set_bit_gravity}, {"prim_Xlib_set_win_gravity",4,prim_Xlib_set_win_gravity}, {"prim_Xlib_set_backing_store",4,prim_Xlib_set_backing_store}, {"prim_Xlib_set_backing_planes",4,prim_Xlib_set_backing_planes}, {"prim_Xlib_set_backing_pixel",4,prim_Xlib_set_backing_pixel}, {"prim_Xlib_set_save_under",4,prim_Xlib_set_save_under}, {"prim_Xlib_set_event_mask",4,prim_Xlib_set_event_mask}, {"prim_Xlib_set_do_not_propagate_mask",4,prim_Xlib_set_do_not_propagate_mask}, {"prim_Xlib_set_override_redirect",4,prim_Xlib_set_override_redirect}, {"prim_Xlib_set_colormap",4,prim_Xlib_set_colormap}, {"prim_Xlib_set_cursor",4,prim_Xlib_set_cursor}, {"prim_Xlib_storeName",5,prim_Xlib_storeName}, {"prim_Xlib_createSimpleWindow",11,prim_Xlib_createSimpleWindow}, {"prim_Xlib_createWindow",14,prim_Xlib_createWindow}, {"prim_Xlib_translateCoordinates",7,prim_Xlib_translateCoordinates}, {"prim_Xlib_moveResizeWindow",8,prim_Xlib_moveResizeWindow}, {"prim_Xlib_resizeWindow",6,prim_Xlib_resizeWindow}, {"prim_Xlib_moveWindow",6,prim_Xlib_moveWindow}, {"prim_Xlib_reparentWindow",7,prim_Xlib_reparentWindow}, {"prim_Xlib_mapSubwindows",4,prim_Xlib_mapSubwindows}, {"prim_Xlib_unmapSubwindows",4,prim_Xlib_unmapSubwindows}, {"prim_Xlib_mapWindow",4,prim_Xlib_mapWindow}, {"prim_Xlib_lowerWindow",4,prim_Xlib_lowerWindow}, {"prim_Xlib_raiseWindow",4,prim_Xlib_raiseWindow}, {"prim_Xlib_circulateSubwindowsDown",4,prim_Xlib_circulateSubwindowsDown}, {"prim_Xlib_circulateSubwindowsUp",4,prim_Xlib_circulateSubwindowsUp}, {"prim_Xlib_circulateSubwindows",5,prim_Xlib_circulateSubwindows}, {"prim_Xlib_iconifyWindow",5,prim_Xlib_iconifyWindow}, {"prim_Xlib_withdrawWindow",5,prim_Xlib_withdrawWindow}, {"prim_Xlib_destroyWindow",4,prim_Xlib_destroyWindow}, {"prim_Xlib_destroySubwindows",4,prim_Xlib_destroySubwindows}, {"prim_Xlib_setWindowBorder",5,prim_Xlib_setWindowBorder}, {"prim_Xlib_setWindowBorderPixmap",5,prim_Xlib_setWindowBorderPixmap}, {"prim_Xlib_setWindowBorderWidth",5,prim_Xlib_setWindowBorderWidth}, {"prim_Xlib_setWindowBackground",5,prim_Xlib_setWindowBackground}, {"prim_Xlib_setWindowBackgroundPixmap",5,prim_Xlib_setWindowBackgroundPixmap}, {"prim_Xlib_setWindowColormap",5,prim_Xlib_setWindowColormap}, {"prim_Xlib_addToSaveSet",4,prim_Xlib_addToSaveSet}, {"prim_Xlib_removeFromSaveSet",4,prim_Xlib_removeFromSaveSet}, {"prim_Xlib_changeSaveSet",5,prim_Xlib_changeSaveSet}, {"prim_Xlib_clearWindow",4,prim_Xlib_clearWindow}, {"prim_Xlib_clearArea",9,prim_Xlib_clearArea}, {"prim_Xlib_restackWindows",5,prim_Xlib_restackWindows}, {"prim_Xlib_drawPoint",7,prim_Xlib_drawPoint}, {"prim_Xlib_drawPoints",8,prim_Xlib_drawPoints}, {"prim_Xlib_drawLine",9,prim_Xlib_drawLine}, {"prim_Xlib_drawLines",8,prim_Xlib_drawLines}, {"prim_Xlib_drawSegments",7,prim_Xlib_drawSegments}, {"prim_Xlib_drawRectangle",9,prim_Xlib_drawRectangle}, {"prim_Xlib_drawRectangles",7,prim_Xlib_drawRectangles}, {"prim_Xlib_drawArc",11,prim_Xlib_drawArc}, {"prim_Xlib_drawArcs",7,prim_Xlib_drawArcs}, {"prim_Xlib_fillRectangle",9,prim_Xlib_fillRectangle}, {"prim_Xlib_fillRectangles",7,prim_Xlib_fillRectangles}, {"prim_Xlib_fillPolygon",9,prim_Xlib_fillPolygon}, {"prim_Xlib_fillArc",11,prim_Xlib_fillArc}, {"prim_Xlib_fillArcs",7,prim_Xlib_fillArcs}, {"prim_Xlib_copyArea",12,prim_Xlib_copyArea}, {"prim_Xlib_copyPlane",13,prim_Xlib_copyPlane}, {"prim_Xlib_drawString",9,prim_Xlib_drawString}, {"prim_Xlib_drawImageString",9,prim_Xlib_drawImageString}, {"prim_Xlib_storeBuffer",6,prim_Xlib_storeBuffer}, {"prim_Xlib_storeBytes",5,prim_Xlib_storeBytes}, {"prim_Xlib_fetchBuffer",4,prim_Xlib_fetchBuffer}, {"prim_Xlib_fetchBytes",3,prim_Xlib_fetchBytes}, {"prim_Xlib_rotateBuffers",4,prim_Xlib_rotateBuffers}, {"prim_Xlib_a_PRIMARY",2,prim_Xlib_a_PRIMARY}, {"prim_Xlib_a_SECONDARY",2,prim_Xlib_a_SECONDARY}, {"prim_Xlib_a_ARC",2,prim_Xlib_a_ARC}, {"prim_Xlib_a_ATOM",2,prim_Xlib_a_ATOM}, {"prim_Xlib_a_BITMAP",2,prim_Xlib_a_BITMAP}, {"prim_Xlib_a_CARDINAL",2,prim_Xlib_a_CARDINAL}, {"prim_Xlib_a_COLORMAP",2,prim_Xlib_a_COLORMAP}, {"prim_Xlib_a_CURSOR",2,prim_Xlib_a_CURSOR}, {"prim_Xlib_a_CUT_BUFFER0",2,prim_Xlib_a_CUT_BUFFER0}, {"prim_Xlib_a_CUT_BUFFER1",2,prim_Xlib_a_CUT_BUFFER1}, {"prim_Xlib_a_CUT_BUFFER2",2,prim_Xlib_a_CUT_BUFFER2}, {"prim_Xlib_a_CUT_BUFFER3",2,prim_Xlib_a_CUT_BUFFER3}, {"prim_Xlib_a_CUT_BUFFER4",2,prim_Xlib_a_CUT_BUFFER4}, {"prim_Xlib_a_CUT_BUFFER5",2,prim_Xlib_a_CUT_BUFFER5}, {"prim_Xlib_a_CUT_BUFFER6",2,prim_Xlib_a_CUT_BUFFER6}, {"prim_Xlib_a_CUT_BUFFER7",2,prim_Xlib_a_CUT_BUFFER7}, {"prim_Xlib_a_DRAWABLE",2,prim_Xlib_a_DRAWABLE}, {"prim_Xlib_a_FONT",2,prim_Xlib_a_FONT}, {"prim_Xlib_a_INTEGER",2,prim_Xlib_a_INTEGER}, {"prim_Xlib_a_PIXMAP",2,prim_Xlib_a_PIXMAP}, {"prim_Xlib_a_POINT",2,prim_Xlib_a_POINT}, {"prim_Xlib_a_RECTANGLE",2,prim_Xlib_a_RECTANGLE}, {"prim_Xlib_a_RESOURCE_MANAGER",2,prim_Xlib_a_RESOURCE_MANAGER}, {"prim_Xlib_a_RGB_COLOR_MAP",2,prim_Xlib_a_RGB_COLOR_MAP}, {"prim_Xlib_a_RGB_BEST_MAP",2,prim_Xlib_a_RGB_BEST_MAP}, {"prim_Xlib_a_RGB_BLUE_MAP",2,prim_Xlib_a_RGB_BLUE_MAP}, {"prim_Xlib_a_RGB_DEFAULT_MAP",2,prim_Xlib_a_RGB_DEFAULT_MAP}, {"prim_Xlib_a_RGB_GRAY_MAP",2,prim_Xlib_a_RGB_GRAY_MAP}, {"prim_Xlib_a_RGB_GREEN_MAP",2,prim_Xlib_a_RGB_GREEN_MAP}, {"prim_Xlib_a_RGB_RED_MAP",2,prim_Xlib_a_RGB_RED_MAP}, {"prim_Xlib_a_STRING",2,prim_Xlib_a_STRING}, {"prim_Xlib_a_VISUALID",2,prim_Xlib_a_VISUALID}, {"prim_Xlib_a_WINDOW",2,prim_Xlib_a_WINDOW}, {"prim_Xlib_a_WM_COMMAND",2,prim_Xlib_a_WM_COMMAND}, {"prim_Xlib_a_WM_HINTS",2,prim_Xlib_a_WM_HINTS}, {"prim_Xlib_a_WM_CLIENT_MACHINE",2,prim_Xlib_a_WM_CLIENT_MACHINE}, {"prim_Xlib_a_WM_ICON_NAME",2,prim_Xlib_a_WM_ICON_NAME}, {"prim_Xlib_a_WM_ICON_SIZE",2,prim_Xlib_a_WM_ICON_SIZE}, {"prim_Xlib_a_WM_NAME",2,prim_Xlib_a_WM_NAME}, {"prim_Xlib_a_WM_NORMAL_HINTS",2,prim_Xlib_a_WM_NORMAL_HINTS}, {"prim_Xlib_a_WM_SIZE_HINTS",2,prim_Xlib_a_WM_SIZE_HINTS}, {"prim_Xlib_a_WM_ZOOM_HINTS",2,prim_Xlib_a_WM_ZOOM_HINTS}, {"prim_Xlib_a_MIN_SPACE",2,prim_Xlib_a_MIN_SPACE}, {"prim_Xlib_a_NORM_SPACE",2,prim_Xlib_a_NORM_SPACE}, {"prim_Xlib_a_MAX_SPACE",2,prim_Xlib_a_MAX_SPACE}, {"prim_Xlib_a_END_SPACE",2,prim_Xlib_a_END_SPACE}, {"prim_Xlib_a_SUPERSCRIPT_X",2,prim_Xlib_a_SUPERSCRIPT_X}, {"prim_Xlib_a_SUPERSCRIPT_Y",2,prim_Xlib_a_SUPERSCRIPT_Y}, {"prim_Xlib_a_SUBSCRIPT_X",2,prim_Xlib_a_SUBSCRIPT_X}, {"prim_Xlib_a_SUBSCRIPT_Y",2,prim_Xlib_a_SUBSCRIPT_Y}, {"prim_Xlib_a_UNDERLINE_POSITION",2,prim_Xlib_a_UNDERLINE_POSITION}, {"prim_Xlib_a_UNDERLINE_THICKNESS",2,prim_Xlib_a_UNDERLINE_THICKNESS}, {"prim_Xlib_a_STRIKEOUT_ASCENT",2,prim_Xlib_a_STRIKEOUT_ASCENT}, {"prim_Xlib_a_STRIKEOUT_DESCENT",2,prim_Xlib_a_STRIKEOUT_DESCENT}, {"prim_Xlib_a_ITALIC_ANGLE",2,prim_Xlib_a_ITALIC_ANGLE}, {"prim_Xlib_a_X_HEIGHT",2,prim_Xlib_a_X_HEIGHT}, {"prim_Xlib_a_QUAD_WIDTH",2,prim_Xlib_a_QUAD_WIDTH}, {"prim_Xlib_a_WEIGHT",2,prim_Xlib_a_WEIGHT}, {"prim_Xlib_a_POINT_SIZE",2,prim_Xlib_a_POINT_SIZE}, {"prim_Xlib_a_RESOLUTION",2,prim_Xlib_a_RESOLUTION}, {"prim_Xlib_a_COPYRIGHT",2,prim_Xlib_a_COPYRIGHT}, {"prim_Xlib_a_NOTICE",2,prim_Xlib_a_NOTICE}, {"prim_Xlib_a_FONT_NAME",2,prim_Xlib_a_FONT_NAME}, {"prim_Xlib_a_FAMILY_NAME",2,prim_Xlib_a_FAMILY_NAME}, {"prim_Xlib_a_FULL_NAME",2,prim_Xlib_a_FULL_NAME}, {"prim_Xlib_a_CAP_HEIGHT",2,prim_Xlib_a_CAP_HEIGHT}, {"prim_Xlib_a_WM_CLASS",2,prim_Xlib_a_WM_CLASS}, {"prim_Xlib_a_WM_TRANSIENT_FOR",2,prim_Xlib_a_WM_TRANSIENT_FOR}, {"prim_Xlib_a_LAST_PREDEFINED",2,prim_Xlib_a_LAST_PREDEFINED}, {"prim_Xlib_setTextProperty",7,prim_Xlib_setTextProperty}, {"prim_Xlib_rectangleOut",2,prim_Xlib_rectangleOut}, {"prim_Xlib_rectangleIn",2,prim_Xlib_rectangleIn}, {"prim_Xlib_rectanglePart",2,prim_Xlib_rectanglePart}, {"prim_Xlib_createRegion",2,prim_Xlib_createRegion}, {"prim_Xlib_polygonRegion",5,prim_Xlib_polygonRegion}, {"prim_Xlib_intersectRegion",5,prim_Xlib_intersectRegion}, {"prim_Xlib_subtractRegion",5,prim_Xlib_subtractRegion}, {"prim_Xlib_unionRectWithRegion",8,prim_Xlib_unionRectWithRegion}, {"prim_Xlib_unionRegion",5,prim_Xlib_unionRegion}, {"prim_Xlib_xorRegion",5,prim_Xlib_xorRegion}, {"prim_Xlib_emptyRegion",3,prim_Xlib_emptyRegion}, {"prim_Xlib_equalRegion",4,prim_Xlib_equalRegion}, {"prim_Xlib_pointInRegion",5,prim_Xlib_pointInRegion}, {"prim_Xlib_rectInRegion",7,prim_Xlib_rectInRegion}, {"prim_Xlib_clipBox",3,prim_Xlib_clipBox}, {"prim_Xlib_offsetRegion",5,prim_Xlib_offsetRegion}, {"prim_Xlib_shrinkRegion",5,prim_Xlib_shrinkRegion}, {"prim_Xlib_setRegion",5,prim_Xlib_setRegion}, {0,0,0} }; static struct primInfo prims = { 0, primTable, 0 }; #ifdef __cplusplus extern "C" { #endif DLLEXPORT(void) initModule(HugsAPI3 *); DLLEXPORT(void) initModule(HugsAPI3 *hugsAPI) { hugs = hugsAPI; hugs->registerPrims(&prims); } #ifdef __cplusplus } #endif