This is xws10.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t3033, "XRMDATABASE", 11 );
DEFSTATICTSCP( c2905 );
DEFSTRING( t3034, "XRMVALUEPTR", 11 );
DEFSTATICTSCP( c2797 );
DEFSTRING( t3035, "INTAP", 5 );
DEFSTATICTSCP( c2627 );
DEFSTRING( t3036, "CHARP", 5 );
DEFSTATICTSCP( c2593 );
DEFSTRING( t3037, "XIMAGEP", 7 );
DEFSTATICTSCP( c2341 );
DEFSTRING( t3038, "XVISUALINFOP", 12 );
DEFSTATICTSCP( c2266 );
DEFSTRING( t3039, "CHARAP", 6 );
DEFSTATICTSCP( c2208 );
DEFSTRING( t3040, "XRECTANGLEP", 11 );
DEFSTATICTSCP( c1916 );
DEFSTRING( t3041, "REGION", 6 );
DEFSTATICTSCP( c1902 );
DEFSTRING( t3042, "XCOLORP", 7 );
DEFSTATICTSCP( c1880 );
DEFSTRING( t3043, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1684, t3043 );
DEFSTRING( t3044, "CHK-STRING", 10 );
DEFSTATICTSCP( c1683 );
static void init_constants()
{
c2905 = STRINGTOSYMBOL( U_TX( ADR( t3033 ) ) );
CONSTANTEXP( ADR( c2905 ) );
c2797 = STRINGTOSYMBOL( U_TX( ADR( t3034 ) ) );
CONSTANTEXP( ADR( c2797 ) );
c2627 = STRINGTOSYMBOL( U_TX( ADR( t3035 ) ) );
CONSTANTEXP( ADR( c2627 ) );
c2593 = STRINGTOSYMBOL( U_TX( ADR( t3036 ) ) );
CONSTANTEXP( ADR( c2593 ) );
c2341 = STRINGTOSYMBOL( U_TX( ADR( t3037 ) ) );
CONSTANTEXP( ADR( c2341 ) );
c2266 = STRINGTOSYMBOL( U_TX( ADR( t3038 ) ) );
CONSTANTEXP( ADR( c2266 ) );
c2208 = STRINGTOSYMBOL( U_TX( ADR( t3039 ) ) );
CONSTANTEXP( ADR( c2208 ) );
c1916 = STRINGTOSYMBOL( U_TX( ADR( t3040 ) ) );
CONSTANTEXP( ADR( c1916 ) );
c1902 = STRINGTOSYMBOL( U_TX( ADR( t3041 ) ) );
CONSTANTEXP( ADR( c1902 ) );
c1880 = STRINGTOSYMBOL( U_TX( ADR( t3042 ) ) );
CONSTANTEXP( ADR( c1880 ) );
c1683 = STRINGTOSYMBOL( U_TX( ADR( t3044 ) ) );
CONSTANTEXP( ADR( c1683 ) );
}
DEFTSCP( xws10_xlookupkeysym_v );
DEFSTRING( t3045, "XLOOKUPKEYSYM", 13 );
EXTERNTSCPP( xlibtypes_chk_2dxeventp );
EXTERNTSCP( xlibtypes_chk_2dxeventp_v );
EXTERNUNSIGNEDP( XLookupKeysym );
TSCP xws10_xlookupkeysym( e1602, c1603 )
TSCP e1602, c1603;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3045 ) ) );
X1 = xlibtypes_chk_2dxeventp( e1602 );
X2 = UNSIGNED_TSCP( XLookupKeysym( TSCP_POINTER( X1 ),
TSCP_INT( c1603 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xrefreshkeyboardmapping_v );
DEFSTRING( t3049, "XREFRESHKEYBOARDMAPPING", 23 );
EXTERNVOIDP( XRefreshKeyboardMapping );
TSCP xws10_xrefreshkeyboardmapping( e1615 )
TSCP e1615;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3049 ) ) );
X1 = xlibtypes_chk_2dxeventp( e1615 );
XRefreshKeyboardMapping( TSCP_POINTER( X1 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xlookupstring_v );
DEFSTRING( t3054, "XLOOKUPSTRING", 13 );
EXTERNTSCPP( xlibtypes_chk_2dcharap );
EXTERNTSCP( xlibtypes_chk_2dcharap_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( xlibtypes_osestatusp_af1bab02 );
EXTERNTSCP( xlibtypes_osestatusp_af1bab02_v );
EXTERNINTP( XLookupString );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP xws10_xlookupstring( e1630, b1631, b1632, s1633 )
TSCP e1630, b1631, b1632, s1633;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3054 ) ) );
X1 = xlibtypes_chk_2dxeventp( e1630 );
X2 = xlibtypes_chk_2dcharap( b1631 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = xlibtypes_osestatusp_af1bab02( s1633 );
X5 = INT_TSCP( XLookupString( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( b1632 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ) ) );
X8 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X7 = sc_cons( X8, EMPTYLIST );
X6 = sc_cons( X5, X7 );
POPSTACKTRACE( X6 );
}
DEFTSCP( xws10_xrebindkeysym_v );
DEFSTRING( t3062, "XREBINDKEYSYM", 13 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNTSCPP( xlibtypes_chk_2dunsignedap );
EXTERNTSCP( xlibtypes_chk_2dunsignedap_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNVOIDP( XRebindKeysym );
TSCP xws10_xrebindkeysym( d1660,
k1661,
m1662, n1663, s1664, n1665 )
TSCP d1660, k1661, m1662, n1663, s1664, n1665;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3062 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1660 );
X2 = xlibtypes_chk_2dunsignedap( m1662 );
if ( NOT( AND( EQ( TSCPTAG( s1664 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1664 ), STRINGTAG ) ) )
) goto L3066;
X3 = s1664;
goto L3067;
L3066:
X3 = scrt6_error( c1683,
c1684, CONS( s1664, EMPTYLIST ) );
L3067:
XRebindKeysym( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( k1661 ),
TSCP_POINTER( X2 ),
TSCP_INT( n1663 ),
TSCP_POINTER( X3 ),
TSCP_INT( n1665 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xstringtokeysym_v );
DEFSTRING( t3071, "XSTRINGTOKEYSYM", 15 );
EXTERNUNSIGNEDP( XStringToKeysym );
TSCP xws10_xstringtokeysym( s1690 )
TSCP s1690;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3071 ) ) );
if ( NOT( AND( EQ( TSCPTAG( s1690 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1690 ), STRINGTAG ) ) )
) goto L3073;
X1 = s1690;
goto L3074;
L3073:
X1 = scrt6_error( c1683,
c1684, CONS( s1690, EMPTYLIST ) );
L3074:
X2 = UNSIGNED_TSCP( XStringToKeysym( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xkeysymtostring_v );
DEFSTRING( t3077, "XKEYSYMTOSTRING", 15 );
EXTERNTSCPP( scrt4_c_2dstring_2d_3estring );
EXTERNTSCP( scrt4_c_2dstring_2d_3estring_v );
EXTERNPOINTERP( XKeysymToString );
TSCP xws10_xkeysymtostring( k1702 )
TSCP k1702;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3077 ) ) );
X2 = POINTER_TSCP( XKeysymToString( TSCP_UNSIGNED( k1702 ) ) );
X1 = scrt4_c_2dstring_2d_3estring( X2 );
POPSTACKTRACE( X1 );
}
DEFTSCP( xws10_xkeycodetokeysym_v );
DEFSTRING( t3080, "XKEYCODETOKEYSYM", 16 );
EXTERNUNSIGNEDP( XKeycodeToKeysym );
TSCP xws10_xkeycodetokeysym( d1714, k1715, c1716 )
TSCP d1714, k1715, c1716;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3080 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1714 );
X2 = UNSIGNED_TSCP( XKeycodeToKeysym( TSCP_POINTER( X1 ),
TSCP_CHAR( k1715 ),
TSCP_INT( c1716 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xkeysymtokeycode_v );
DEFSTRING( t3084, "XKEYSYMTOKEYCODE", 16 );
EXTERNCHARP( XKeysymToKeycode );
TSCP xws10_xkeysymtokeycode( d1731, k1732 )
TSCP d1731, k1732;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3084 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1731 );
X2 = CHAR_TSCP( XKeysymToKeycode( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( k1732 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xgetdefault_v );
DEFSTRING( t3088, "XGETDEFAULT", 11 );
EXTERNPOINTERP( XGetDefault );
TSCP xws10_xgetdefault( d1746, p1747, n1748 )
TSCP d1746, p1747, n1748;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3088 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1746 );
if ( NOT( AND( EQ( TSCPTAG( p1747 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p1747 ), STRINGTAG ) ) )
) goto L3091;
X2 = p1747;
goto L3092;
L3091:
X2 = scrt6_error( c1683,
c1684, CONS( p1747, EMPTYLIST ) );
L3092:
if ( NOT( AND( EQ( TSCPTAG( n1748 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n1748 ), STRINGTAG ) ) )
) goto L3094;
X3 = n1748;
goto L3095;
L3094:
X3 = scrt6_error( c1683,
c1684, CONS( n1748, EMPTYLIST ) );
L3095:
X5 = POINTER_TSCP( XGetDefault( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) ) );
X4 = scrt4_c_2dstring_2d_3estring( X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xresourcemanagerstring_v );
DEFSTRING( t3098, "XRESOURCEMANAGERSTRING", 22 );
EXTERNPOINTERP( XResourceManagerString );
TSCP xws10_xresourcemanagerstring( d1766 )
TSCP d1766;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3098 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1766 );
X3 = POINTER_TSCP( XResourceManagerString( TSCP_POINTER( X1 ) ) );
X2 = scrt4_c_2dstring_2d_3estring( X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xparsegeometry_v );
DEFSTRING( t3102, "XPARSEGEOMETRY", 14 );
EXTERNINTP( XParseGeometry );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP xws10_xparsegeometry( s1780 )
TSCP s1780;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3102 ) ) );
if ( NOT( AND( EQ( TSCPTAG( s1780 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1780 ), STRINGTAG ) ) )
) goto L3104;
X1 = s1780;
goto L3105;
L3104:
X1 = scrt6_error( c1683,
c1684, CONS( s1780, EMPTYLIST ) );
L3105:
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = INT_TSCP( XParseGeometry( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ) ) );
X9 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
X11 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X13 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X15 = scrt4_c_2dunsigned_2dref( X5, _TSCP( 0 ) );
X14 = sc_cons( X15, EMPTYLIST );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X8 = sc_cons( X9, X10 );
X7 = sc_cons( X6, X8 );
POPSTACKTRACE( X7 );
}
DEFTSCP( xws10_xgeometry_v );
DEFSTRING( t3113, "XGEOMETRY", 9 );
EXTERNINTP( XGeometry );
TSCP xws10_xgeometry( d1814,
s1815,
p1816,
d1817,
b1818, f1819, f1820, x1821, y1822 )
TSCP d1814,
s1815,
p1816,
d1817, b1818, f1819, f1820, x1821, y1822;
{
TSCP X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3113 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1814 );
if ( NOT( AND( EQ( TSCPTAG( p1816 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p1816 ), STRINGTAG ) ) )
) goto L3116;
X2 = p1816;
goto L3117;
L3116:
X2 = scrt6_error( c1683,
c1684, CONS( p1816, EMPTYLIST ) );
L3117:
if ( NOT( AND( EQ( TSCPTAG( d1817 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( d1817 ), STRINGTAG ) ) )
) goto L3119;
X3 = d1817;
goto L3120;
L3119:
X3 = scrt6_error( c1683,
c1684, CONS( d1817, EMPTYLIST ) );
L3120:
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X7 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X8 = INT_TSCP( XGeometry( TSCP_POINTER( X1 ),
TSCP_INT( s1815 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_UNSIGNED( b1818 ),
TSCP_UNSIGNED( f1819 ),
TSCP_UNSIGNED( f1820 ),
TSCP_INT( x1821 ),
TSCP_INT( y1822 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ),
TSCP_POINTER( X7 ) ) );
X11 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X13 = scrt4_c_2dint_2dref( X5, _TSCP( 0 ) );
X15 = scrt4_c_2dint_2dref( X6, _TSCP( 0 ) );
X17 = scrt4_c_2dint_2dref( X7, _TSCP( 0 ) );
X16 = sc_cons( X17, EMPTYLIST );
X14 = sc_cons( X15, X16 );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X9 = sc_cons( X8, X10 );
POPSTACKTRACE( X9 );
}
DEFTSCP( xws10_xparsecolor_v );
DEFSTRING( t3128, "XPARSECOLOR", 11 );
EXTERNINTP( XParseColor );
TSCP xws10_xparsecolor( d1865, c1866, s1867 )
TSCP d1865, c1866, s1867;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3128 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1865 );
if ( NOT( AND( EQ( TSCPTAG( s1867 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1867 ), STRINGTAG ) ) )
) goto L3131;
X2 = s1867;
goto L3132;
L3131:
X2 = scrt6_error( c1683,
c1684, CONS( s1867, EMPTYLIST ) );
L3132:
X3 = sc_make_2dstring( _TSCP( 48 ), EMPTYLIST );
X4 = INT_TSCP( XParseColor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1866 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) ) );
X7 = sc_cons( c1880, X3 );
X6 = sc_cons( X7, EMPTYLIST );
X5 = sc_cons( X4, X6 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws10_xpolygonregion_v );
DEFSTRING( t3137, "XPOLYGONREGION", 14 );
EXTERNTSCPP( xlibtypes_chk_2dxpointap );
EXTERNTSCP( xlibtypes_chk_2dxpointap_v );
EXTERNPOINTERP( XPolygonRegion );
TSCP xws10_xpolygonregion( p1891, c1892, r1893 )
TSCP p1891, c1892, r1893;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3137 ) ) );
X1 = xlibtypes_chk_2dxpointap( p1891 );
X3 = POINTER_TSCP( XPolygonRegion( TSCP_POINTER( X1 ),
TSCP_INT( c1892 ),
TSCP_INT( r1893 ) ) );
X2 = sc_cons( c1902, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xclipbox_v );
DEFSTRING( t3141, "XCLIPBOX", 8 );
EXTERNTSCPP( xlibtypes_chk_2dregion );
EXTERNTSCP( xlibtypes_chk_2dregion_v );
EXTERNVOIDP( XClipBox );
TSCP xws10_xclipbox( r1909 )
TSCP r1909;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3141 ) ) );
X1 = xlibtypes_chk_2dregion( r1909 );
X2 = sc_make_2dstring( _TSCP( 32 ), EMPTYLIST );
XClipBox( TSCP_POINTER( X1 ), TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( sc_cons( c1916, X2 ) );
}
DEFTSCP( xws10_xcreateregion_v );
DEFSTRING( t3147, "XCREATEREGION", 13 );
EXTERNPOINTERP( XCreateRegion );
TSCP xws10_xcreateregion( )
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3147 ) ) );
X2 = POINTER_TSCP( XCreateRegion( ) );
X1 = sc_cons( c1902, X2 );
POPSTACKTRACE( X1 );
}
DEFTSCP( xws10_xsetregion_v );
DEFSTRING( t3150, "XSETREGION", 10 );
EXTERNTSCPP( xlibtypes_chk_2dgc );
EXTERNTSCP( xlibtypes_chk_2dgc_v );
EXTERNVOIDP( XSetRegion );
TSCP xws10_xsetregion( d1932, g1933, r1934 )
TSCP d1932, g1933, r1934;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3150 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1932 );
X2 = xlibtypes_chk_2dgc( g1933 );
X3 = xlibtypes_chk_2dregion( r1934 );
XSetRegion( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ), TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xdestroyregion_v );
DEFSTRING( t3157, "XDESTROYREGION", 14 );
EXTERNVOIDP( XDestroyRegion );
TSCP xws10_xdestroyregion( r1949 )
TSCP r1949;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3157 ) ) );
X1 = xlibtypes_chk_2dregion( r1949 );
XDestroyRegion( TSCP_POINTER( X1 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xoffsetregion_v );
DEFSTRING( t3162, "XOFFSETREGION", 13 );
EXTERNVOIDP( XOffsetRegion );
TSCP xws10_xoffsetregion( p1962, x1963, y1964 )
TSCP p1962, x1963, y1964;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3162 ) ) );
X1 = xlibtypes_chk_2dregion( p1962 );
XOffsetRegion( TSCP_POINTER( X1 ),
TSCP_INT( x1963 ),
TSCP_INT( y1964 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xshrinkregion_v );
DEFSTRING( t3167, "XSHRINKREGION", 13 );
EXTERNVOIDP( XShrinkRegion );
TSCP xws10_xshrinkregion( r1981, d1982, d1983 )
TSCP r1981, d1982, d1983;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3167 ) ) );
X1 = xlibtypes_chk_2dregion( r1981 );
XShrinkRegion( TSCP_POINTER( X1 ),
TSCP_INT( d1982 ),
TSCP_INT( d1983 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xintersectregion_v );
DEFSTRING( t3172, "XINTERSECTREGION", 16 );
EXTERNVOIDP( XIntersectRegion );
TSCP xws10_xintersectregion( r2000, r2001 )
TSCP r2000, r2001;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3172 ) ) );
X1 = xlibtypes_chk_2dregion( r2000 );
X2 = xlibtypes_chk_2dregion( r2001 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
XIntersectRegion( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
X5 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
POPSTACKTRACE( sc_cons( c1902, X5 ) );
}
DEFTSCP( xws10_xunionregion_v );
DEFSTRING( t3179, "XUNIONREGION", 12 );
EXTERNVOIDP( XUnionRegion );
TSCP xws10_xunionregion( r2018, r2019 )
TSCP r2018, r2019;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3179 ) ) );
X1 = xlibtypes_chk_2dregion( r2018 );
X2 = xlibtypes_chk_2dregion( r2019 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
XUnionRegion( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
X5 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
POPSTACKTRACE( sc_cons( c1902, X5 ) );
}
DEFTSCP( xws10_xunionrectwithregion_v );
DEFSTRING( t3186, "XUNIONRECTWITHREGION", 20 );
EXTERNTSCPP( xlibtypes_chk_2dxrectanglep );
EXTERNTSCP( xlibtypes_chk_2dxrectanglep_v );
EXTERNVOIDP( XUnionRectWithRegion );
TSCP xws10_xunionrectwithregion( r2036, s2037 )
TSCP r2036, s2037;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3186 ) ) );
X1 = xlibtypes_chk_2dxrectanglep( r2036 );
X2 = xlibtypes_chk_2dregion( s2037 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
XUnionRectWithRegion( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
X5 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
POPSTACKTRACE( sc_cons( c1902, X5 ) );
}
DEFTSCP( xws10_xsubtractregion_v );
DEFSTRING( t3193, "XSUBTRACTREGION", 15 );
EXTERNVOIDP( XSubtractRegion );
TSCP xws10_xsubtractregion( r2054, r2055 )
TSCP r2054, r2055;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3193 ) ) );
X1 = xlibtypes_chk_2dregion( r2054 );
X2 = xlibtypes_chk_2dregion( r2055 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
XSubtractRegion( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
X5 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
POPSTACKTRACE( sc_cons( c1902, X5 ) );
}
DEFTSCP( xws10_xxorregion_v );
DEFSTRING( t3200, "XXORREGION", 10 );
EXTERNVOIDP( XXorRegion );
TSCP xws10_xxorregion( s2072, s2073 )
TSCP s2072, s2073;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3200 ) ) );
X1 = xlibtypes_chk_2dregion( s2072 );
X2 = xlibtypes_chk_2dregion( s2073 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
XXorRegion( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ), TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
X5 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
POPSTACKTRACE( sc_cons( c1902, X5 ) );
}
DEFTSCP( xws10_xemptyregion_v );
DEFSTRING( t3207, "XEMPTYREGION", 12 );
EXTERNINTP( XEmptyRegion );
TSCP xws10_xemptyregion( r2088 )
TSCP r2088;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3207 ) ) );
X1 = xlibtypes_chk_2dregion( r2088 );
X2 = INT_TSCP( XEmptyRegion( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xequalregion_v );
DEFSTRING( t3211, "XEQUALREGION", 12 );
EXTERNINTP( XEqualRegion );
TSCP xws10_xequalregion( r2099, r2100 )
TSCP r2099, r2100;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3211 ) ) );
X1 = xlibtypes_chk_2dregion( r2099 );
X2 = xlibtypes_chk_2dregion( r2100 );
X3 = INT_TSCP( XEqualRegion( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xpointinregion_v );
DEFSTRING( t3216, "XPOINTINREGION", 14 );
EXTERNINTP( XPointInRegion );
TSCP xws10_xpointinregion( p2114, x2115, y2116 )
TSCP p2114, x2115, y2116;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3216 ) ) );
X1 = xlibtypes_chk_2dregion( p2114 );
X2 = INT_TSCP( XPointInRegion( TSCP_POINTER( X1 ),
TSCP_INT( x2115 ),
TSCP_INT( y2116 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xrectinregion_v );
DEFSTRING( t3220, "XRECTINREGION", 13 );
EXTERNINTP( XRectInRegion );
TSCP xws10_xrectinregion( r2134,
r2135, r2136, r2137, r2138 )
TSCP r2134, r2135, r2136, r2137, r2138;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3220 ) ) );
X1 = xlibtypes_chk_2dregion( r2134 );
X2 = INT_TSCP( XRectInRegion( TSCP_POINTER( X1 ),
TSCP_INT( r2135 ),
TSCP_INT( r2136 ),
TSCP_UNSIGNED( r2137 ),
TSCP_UNSIGNED( r2138 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xstorebytes_v );
DEFSTRING( t3224, "XSTOREBYTES", 11 );
EXTERNVOIDP( XStoreBytes );
TSCP xws10_xstorebytes( d2158, b2159, n2160 )
TSCP d2158, b2159, n2160;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3224 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2158 );
X2 = xlibtypes_chk_2dcharap( b2159 );
XStoreBytes( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ), TSCP_INT( n2160 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xstorebuffer_v );
DEFSTRING( t3230, "XSTOREBUFFER", 12 );
EXTERNVOIDP( XStoreBuffer );
TSCP xws10_xstorebuffer( d2178, b2179, n2180, b2181 )
TSCP d2178, b2179, n2180, b2181;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3230 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2178 );
X2 = xlibtypes_chk_2dcharap( b2179 );
XStoreBuffer( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2180 ), TSCP_INT( b2181 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xfetchbytes_v );
DEFSTRING( t3236, "XFETCHBYTES", 11 );
EXTERNPOINTERP( XFetchBytes );
TSCP xws10_xfetchbytes( d2199 )
TSCP d2199;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3236 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2199 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = POINTER_TSCP( XFetchBytes( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) ) );
X3 = sc_cons( c2208, X4 );
X6 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xfetchbuffer_v );
DEFSTRING( t3242, "XFETCHBUFFER", 12 );
EXTERNPOINTERP( XFetchBuffer );
TSCP xws10_xfetchbuffer( d2216, b2217 )
TSCP d2216, b2217;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3242 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2216 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = POINTER_TSCP( XFetchBuffer( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( b2217 ) ) );
X3 = sc_cons( c2208, X4 );
X6 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xrotatebuffers_v );
DEFSTRING( t3248, "XROTATEBUFFERS", 14 );
EXTERNVOIDP( XRotateBuffers );
TSCP xws10_xrotatebuffers( d2234, r2235 )
TSCP d2234, r2235;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3248 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2234 );
XRotateBuffers( TSCP_POINTER( X1 ),
TSCP_INT( r2235 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xgetvisualinfo_v );
DEFSTRING( t3253, "XGETVISUALINFO", 14 );
EXTERNTSCPP( xlibtypes_chk_2dxvisualinfop );
EXTERNTSCP( xlibtypes_chk_2dxvisualinfop_v );
EXTERNPOINTERP( XGetVisualInfo );
TSCP xws10_xgetvisualinfo( d2251, v2252, v2253 )
TSCP d2251, v2252, v2253;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3253 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2251 );
X2 = xlibtypes_chk_2dxvisualinfop( v2253 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = POINTER_TSCP( XGetVisualInfo( TSCP_POINTER( X1 ),
TSCP_INT( v2252 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) ) );
X4 = sc_cons( c2266, X5 );
X7 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X6 = sc_cons( X7, EMPTYLIST );
X5 = sc_cons( X4, X6 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws10_xmatchvisualinfo_v );
DEFSTRING( t3260, "XMATCHVISUALINFO", 16 );
EXTERNINTP( XMatchVisualInfo );
TSCP xws10_xmatchvisualinfo( d2276, s2277, d2278, c2279 )
TSCP d2276, s2277, d2278, c2279;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3260 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2276 );
X2 = sc_make_2dstring( _TSCP( 160 ), EMPTYLIST );
X3 = INT_TSCP( XMatchVisualInfo( TSCP_POINTER( X1 ),
TSCP_INT( s2277 ),
TSCP_INT( d2278 ),
TSCP_INT( c2279 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c2266, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xcreateimage_v );
DEFSTRING( t3266, "XCREATEIMAGE", 12 );
EXTERNTSCPP( xlibtypes_chk_2dvisualp );
EXTERNTSCP( xlibtypes_chk_2dvisualp_v );
EXTERNTSCPP( xlibtypes_chk_2dcharp );
EXTERNTSCP( xlibtypes_chk_2dcharp_v );
EXTERNPOINTERP( XCreateImage );
TSCP xws10_xcreateimage( d2309,
v2310,
d2311,
f2312,
o2313,
d2314,
w2315, h2316, x2317, i2318 )
TSCP d2309,
v2310,
d2311,
f2312,
o2313, d2314, w2315, h2316, x2317, i2318;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3266 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2309 );
X2 = xlibtypes_chk_2dvisualp( v2310 );
X3 = xlibtypes_chk_2dcharp( d2314 );
X5 = POINTER_TSCP( XCreateImage( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( d2311 ),
TSCP_INT( f2312 ),
TSCP_INT( o2313 ),
TSCP_POINTER( X3 ),
TSCP_UNSIGNED( w2315 ),
TSCP_UNSIGNED( h2316 ),
TSCP_INT( x2317 ),
TSCP_INT( i2318 ) ) );
X4 = sc_cons( c2341, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xgetpixel_v );
DEFSTRING( t3272, "XGETPIXEL", 9 );
EXTERNTSCPP( xlibtypes_chk_2dximagep );
EXTERNTSCP( xlibtypes_chk_2dximagep_v );
EXTERNINTP( XGetPixel );
TSCP xws10_xgetpixel( x2349, x2350, y2351 )
TSCP x2349, x2350, y2351;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3272 ) ) );
X1 = xlibtypes_chk_2dximagep( x2349 );
X2 = INT_TSCP( XGetPixel( TSCP_POINTER( X1 ),
TSCP_INT( x2350 ),
TSCP_INT( y2351 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xputpixel_v );
DEFSTRING( t3276, "XPUTPIXEL", 9 );
EXTERNINTP( XPutPixel );
TSCP xws10_xputpixel( x2368, x2369, y2370, p2371 )
TSCP x2368, x2369, y2370, p2371;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3276 ) ) );
X1 = xlibtypes_chk_2dximagep( x2368 );
X2 = INT_TSCP( XPutPixel( TSCP_POINTER( X1 ),
TSCP_INT( x2369 ),
TSCP_INT( y2370 ),
TSCP_UNSIGNED( p2371 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xsubimage_v );
DEFSTRING( t3280, "XSUBIMAGE", 9 );
EXTERNPOINTERP( XSubImage );
TSCP xws10_xsubimage( x2391, x2392, y2393, w2394, h2395 )
TSCP x2391, x2392, y2393, w2394, h2395;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3280 ) ) );
X1 = xlibtypes_chk_2dximagep( x2391 );
X3 = POINTER_TSCP( XSubImage( TSCP_POINTER( X1 ),
TSCP_INT( x2392 ),
TSCP_INT( y2393 ),
TSCP_UNSIGNED( w2394 ),
TSCP_UNSIGNED( h2395 ) ) );
X2 = sc_cons( c2341, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xaddpixel_v );
DEFSTRING( t3284, "XADDPIXEL", 9 );
EXTERNVOIDP( XAddPixel );
TSCP xws10_xaddpixel( x2414, v2415 )
TSCP x2414, v2415;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3284 ) ) );
X1 = xlibtypes_chk_2dximagep( x2414 );
XAddPixel( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( v2415 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xdestroyimage_v );
DEFSTRING( t3289, "XDESTROYIMAGE", 13 );
EXTERNINTP( XDestroyImage );
TSCP xws10_xdestroyimage( x2428 )
TSCP x2428;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3289 ) ) );
X1 = xlibtypes_chk_2dximagep( x2428 );
X2 = INT_TSCP( XDestroyImage( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xreadbitmapfile_v );
DEFSTRING( t3293, "XREADBITMAPFILE", 15 );
EXTERNINTP( XReadBitmapFile );
TSCP xws10_xreadbitmapfile( d2445, d2446, f2447 )
TSCP d2445, d2446, f2447;
{
TSCP X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3293 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2445 );
if ( NOT( AND( EQ( TSCPTAG( f2447 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( f2447 ), STRINGTAG ) ) )
) goto L3296;
X2 = f2447;
goto L3297;
L3296:
X2 = scrt6_error( c1683,
c1684, CONS( f2447, EMPTYLIST ) );
L3297:
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X7 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X8 = INT_TSCP( XReadBitmapFile( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2446 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ),
TSCP_POINTER( X7 ) ) );
X11 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X13 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X15 = scrt4_c_2dunsigned_2dref( X5, _TSCP( 0 ) );
X17 = scrt4_c_2dint_2dref( X6, _TSCP( 0 ) );
X19 = scrt4_c_2dint_2dref( X7, _TSCP( 0 ) );
X18 = sc_cons( X19, EMPTYLIST );
X16 = sc_cons( X17, X18 );
X14 = sc_cons( X15, X16 );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X9 = sc_cons( X8, X10 );
POPSTACKTRACE( X9 );
}
DEFTSCP( xws10_xwritebitmapfile_v );
DEFSTRING( t3306, "XWRITEBITMAPFILE", 16 );
EXTERNINTP( XWriteBitmapFile );
TSCP xws10_xwritebitmapfile( d2481,
f2482,
b2483,
w2484, h2485, x2486, y2487 )
TSCP d2481,
f2482, b2483, w2484, h2485, x2486, y2487;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3306 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2481 );
if ( NOT( AND( EQ( TSCPTAG( f2482 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( f2482 ), STRINGTAG ) ) )
) goto L3309;
X2 = f2482;
goto L3310;
L3309:
X2 = scrt6_error( c1683,
c1684, CONS( f2482, EMPTYLIST ) );
L3310:
X3 = INT_TSCP( XWriteBitmapFile( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( b2483 ),
TSCP_UNSIGNED( w2484 ),
TSCP_UNSIGNED( h2485 ),
TSCP_INT( x2486 ),
TSCP_INT( y2487 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_bitmapdata_cb7d7b03_v );
DEFSTRING( t3313, "XCREATEPIXMAPFROMBITMAPDATA", 27 );
EXTERNUNSIGNEDP( XCreatePixmapFromBitmapData );
TSCP xws10_bitmapdata_cb7d7b03( d2518,
d2519,
d2520,
w2521,
h2522, f2523, b2524, d2525 )
TSCP d2518,
d2519,
d2520, w2521, h2522, f2523, b2524, d2525;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3313 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2518 );
X2 = xlibtypes_chk_2dcharp( d2520 );
X3 = UNSIGNED_TSCP( XCreatePixmapFromBitmapData( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2519 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( w2521 ),
TSCP_UNSIGNED( h2522 ),
TSCP_UNSIGNED( f2523 ),
TSCP_UNSIGNED( b2524 ),
TSCP_UNSIGNED( d2525 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xcreatebitmapfromdata_v );
DEFSTRING( t3318, "XCREATEBITMAPFROMDATA", 21 );
EXTERNUNSIGNEDP( XCreateBitmapFromData );
TSCP xws10_xcreatebitmapfromdata( d2553,
d2554, d2555, w2556, h2557 )
TSCP d2553, d2554, d2555, w2556, h2557;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3318 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2553 );
X2 = xlibtypes_chk_2dcharp( d2555 );
X3 = UNSIGNED_TSCP( XCreateBitmapFromData( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2554 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( w2556 ),
TSCP_UNSIGNED( h2557 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xrminitialize_v );
DEFSTRING( t3323, "XRMINITIALIZE", 13 );
EXTERNVOIDP( XrmInitialize );
TSCP xws10_xrminitialize( )
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3323 ) ) );
XrmInitialize( );
X1 = FALSEVALUE;
POPSTACKTRACE( X1 );
}
DEFTSCP( xws10_xrmuniquequark_v );
DEFSTRING( t3327, "XRMUNIQUEQUARK", 14 );
EXTERNINTP( XrmUniqueQuark );
TSCP xws10_xrmuniquequark( )
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3327 ) ) );
X1 = INT_TSCP( XrmUniqueQuark( ) );
POPSTACKTRACE( X1 );
}
DEFTSCP( xws10_xpermalloc_v );
DEFSTRING( t3330, "XPERMALLOC", 10 );
EXTERNPOINTERP( Xpermalloc );
TSCP xws10_xpermalloc( l2588 )
TSCP l2588;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3330 ) ) );
X2 = POINTER_TSCP( Xpermalloc( TSCP_UNSIGNED( l2588 ) ) );
X1 = sc_cons( c2593, X2 );
POPSTACKTRACE( X1 );
}
DEFTSCP( xws10_xrmstringtoquark_v );
DEFSTRING( t3333, "XRMSTRINGTOQUARK", 16 );
EXTERNINTP( XrmStringToQuark );
TSCP xws10_xrmstringtoquark( n2599 )
TSCP n2599;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3333 ) ) );
X1 = xlibtypes_chk_2dcharap( n2599 );
X2 = INT_TSCP( XrmStringToQuark( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xrmquarktostring_v );
DEFSTRING( t3337, "XRMQUARKTOSTRING", 16 );
EXTERNPOINTERP( XrmQuarkToString );
TSCP xws10_xrmquarktostring( q2609 )
TSCP q2609;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3337 ) ) );
X2 = POINTER_TSCP( XrmQuarkToString( TSCP_INT( q2609 ) ) );
X1 = sc_cons( c2208, X2 );
POPSTACKTRACE( X1 );
}
DEFTSCP( xws10_xrmstringtoquarklist_v );
DEFSTRING( t3340, "XRMSTRINGTOQUARKLIST", 20 );
EXTERNVOIDP( XrmStringToQuarkList );
TSCP xws10_xrmstringtoquarklist( n2620 )
TSCP n2620;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3340 ) ) );
if ( NOT( AND( EQ( TSCPTAG( n2620 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2620 ), STRINGTAG ) ) )
) goto L3342;
X1 = n2620;
goto L3343;
L3342:
X1 = scrt6_error( c1683,
c1684, CONS( n2620, EMPTYLIST ) );
L3343:
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
XrmStringToQuarkList( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
X4 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
POPSTACKTRACE( sc_cons( c2627, X4 ) );
}
DEFTSCP( xws10_gquarklist_42c762b7_v );
DEFSTRING( t3348, "XRMSTRINGTOBINDINGQUARKLIST", 27 );
EXTERNVOIDP( XrmStringToBindingQuarkList );
TSCP xws10_gquarklist_42c762b7( n2638 )
TSCP n2638;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3348 ) ) );
if ( NOT( AND( EQ( TSCPTAG( n2638 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2638 ), STRINGTAG ) ) )
) goto L3350;
X1 = n2638;
goto L3351;
L3350:
X1 = scrt6_error( c1683,
c1684, CONS( n2638, EMPTYLIST ) );
L3351:
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
XrmStringToBindingQuarkList( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
X7 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X6 = sc_cons( c2627, X7 );
X9 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X8 = sc_cons( c2627, X9 );
X7 = sc_cons( X8, EMPTYLIST );
X5 = sc_cons( X6, X7 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws10_xrmputresource_v );
DEFSTRING( t3358, "XRMPUTRESOURCE", 14 );
EXTERNTSCPP( xlibtypes_chk_2dxrmdatabasep );
EXTERNTSCP( xlibtypes_chk_2dxrmdatabasep_v );
EXTERNTSCPP( xlibtypes_chk_2dxrmvalueptr );
EXTERNTSCP( xlibtypes_chk_2dxrmvalueptr_v );
EXTERNVOIDP( XrmPutResource );
TSCP xws10_xrmputresource( p2660, s2661, t2662, v2663 )
TSCP p2660, s2661, t2662, v2663;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3358 ) ) );
X1 = xlibtypes_chk_2dxrmdatabasep( p2660 );
if ( NOT( AND( EQ( TSCPTAG( s2661 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2661 ), STRINGTAG ) ) )
) goto L3361;
X2 = s2661;
goto L3362;
L3361:
X2 = scrt6_error( c1683,
c1684, CONS( s2661, EMPTYLIST ) );
L3362:
if ( NOT( AND( EQ( TSCPTAG( t2662 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( t2662 ), STRINGTAG ) ) )
) goto L3364;
X3 = t2662;
goto L3365;
L3364:
X3 = scrt6_error( c1683,
c1684, CONS( t2662, EMPTYLIST ) );
L3365:
X4 = xlibtypes_chk_2dxrmvalueptr( v2663 );
XrmPutResource( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ) );
X5 = FALSEVALUE;
POPSTACKTRACE( X5 );
}
DEFTSCP( xws10_xrmqputresource_v );
DEFSTRING( t3370, "XRMQPUTRESOURCE", 15 );
EXTERNTSCPP( xlibtypes_chk_2dintap );
EXTERNTSCP( xlibtypes_chk_2dintap_v );
EXTERNVOIDP( XrmQPutResource );
TSCP xws10_xrmqputresource( p2688,
b2689, q2690, t2691, v2692 )
TSCP p2688, b2689, q2690, t2691, v2692;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3370 ) ) );
X1 = xlibtypes_chk_2dxrmdatabasep( p2688 );
X2 = xlibtypes_chk_2dintap( b2689 );
X3 = xlibtypes_chk_2dintap( q2690 );
X4 = xlibtypes_chk_2dxrmvalueptr( v2692 );
XrmQPutResource( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( t2691 ),
TSCP_POINTER( X4 ) );
X5 = FALSEVALUE;
POPSTACKTRACE( X5 );
}
DEFTSCP( xws10_xrmputstringresource_v );
DEFSTRING( t3378, "XRMPUTSTRINGRESOURCE", 20 );
EXTERNVOIDP( XrmPutStringResource );
TSCP xws10_xrmputstringresource( p2713, s2714, s2715 )
TSCP p2713, s2714, s2715;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3378 ) ) );
X1 = xlibtypes_chk_2dxrmdatabasep( p2713 );
if ( NOT( AND( EQ( TSCPTAG( s2714 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2714 ), STRINGTAG ) ) )
) goto L3381;
X2 = s2714;
goto L3382;
L3381:
X2 = scrt6_error( c1683,
c1684, CONS( s2714, EMPTYLIST ) );
L3382:
if ( NOT( AND( EQ( TSCPTAG( s2715 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2715 ), STRINGTAG ) ) )
) goto L3384;
X3 = s2715;
goto L3385;
L3384:
X3 = scrt6_error( c1683,
c1684, CONS( s2715, EMPTYLIST ) );
L3385:
XrmPutStringResource( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xrmqputstringresource_v );
DEFSTRING( t3389, "XRMQPUTSTRINGRESOURCE", 21 );
EXTERNVOIDP( XrmQPutStringResource );
TSCP xws10_xrmqputstringresource( p2737, b2738, q2739, s2740 )
TSCP p2737, b2738, q2739, s2740;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3389 ) ) );
X1 = xlibtypes_chk_2dxrmdatabasep( p2737 );
X2 = xlibtypes_chk_2dintap( b2738 );
X3 = xlibtypes_chk_2dintap( q2739 );
if ( NOT( AND( EQ( TSCPTAG( s2740 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2740 ), STRINGTAG ) ) )
) goto L3394;
X4 = s2740;
goto L3395;
L3394:
X4 = scrt6_error( c1683,
c1684, CONS( s2740, EMPTYLIST ) );
L3395:
XrmQPutStringResource( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ) );
X5 = FALSEVALUE;
POPSTACKTRACE( X5 );
}
DEFTSCP( xws10_xrmputlineresource_v );
DEFSTRING( t3399, "XRMPUTLINERESOURCE", 18 );
EXTERNVOIDP( XrmPutLineResource );
TSCP xws10_xrmputlineresource( p2760, l2761 )
TSCP p2760, l2761;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3399 ) ) );
X1 = xlibtypes_chk_2dxrmdatabasep( p2760 );
if ( NOT( AND( EQ( TSCPTAG( l2761 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( l2761 ), STRINGTAG ) ) )
) goto L3402;
X2 = l2761;
goto L3403;
L3402:
X2 = scrt6_error( c1683,
c1684, CONS( l2761, EMPTYLIST ) );
L3403:
XrmPutLineResource( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xrmgetresource_v );
DEFSTRING( t3407, "XRMGETRESOURCE", 14 );
EXTERNTSCPP( xlibtypes_chk_2dxrmdatabase );
EXTERNTSCP( xlibtypes_chk_2dxrmdatabase_v );
EXTERNINTP( XrmGetResource );
TSCP xws10_xrmgetresource( d2780, n2781, c2782 )
TSCP d2780, n2781, c2782;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3407 ) ) );
X1 = xlibtypes_chk_2dxrmdatabase( d2780 );
if ( NOT( AND( EQ( TSCPTAG( n2781 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2781 ), STRINGTAG ) ) )
) goto L3410;
X2 = n2781;
goto L3411;
L3410:
X2 = scrt6_error( c1683,
c1684, CONS( n2781, EMPTYLIST ) );
L3411:
if ( NOT( AND( EQ( TSCPTAG( c2782 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c2782 ), STRINGTAG ) ) )
) goto L3413;
X3 = c2782;
goto L3414;
L3413:
X3 = scrt6_error( c1683,
c1684, CONS( c2782, EMPTYLIST ) );
L3414:
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 32 ), EMPTYLIST );
X6 = INT_TSCP( XrmGetResource( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ) ) );
X10 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X9 = scrt4_c_2dstring_2d_3estring( X10 );
X11 = sc_cons( c2797, X5 );
X10 = sc_cons( X11, EMPTYLIST );
X8 = sc_cons( X9, X10 );
X7 = sc_cons( X6, X8 );
POPSTACKTRACE( X7 );
}
DEFTSCP( xws10_xrmqgetresource_v );
DEFSTRING( t3420, "XRMQGETRESOURCE", 15 );
EXTERNTSCPP( xlibtypes_chk_2dxrmhashbucket );
EXTERNTSCP( xlibtypes_chk_2dxrmhashbucket_v );
EXTERNINTP( XrmQGetResource );
TSCP xws10_xrmqgetresource( d2811, n2812, c2813 )
TSCP d2811, n2812, c2813;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3420 ) ) );
X1 = xlibtypes_chk_2dxrmhashbucket( d2811 );
X2 = xlibtypes_chk_2dintap( n2812 );
X3 = xlibtypes_chk_2dintap( c2813 );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = INT_TSCP( XrmQGetResource( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ) ) );
X9 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X12 = scrt4_c_2dunsigned_2dref( X5, _TSCP( 0 ) );
X11 = sc_cons( c2797, X12 );
X10 = sc_cons( X11, EMPTYLIST );
X8 = sc_cons( X9, X10 );
X7 = sc_cons( X6, X8 );
POPSTACKTRACE( X7 );
}
DEFTSCP( xws10_xrmqgetsearchlist_v );
DEFSTRING( t3429, "XRMQGETSEARCHLIST", 17 );
EXTERNINTP( XrmQGetSearchList );
TSCP xws10_xrmqgetsearchlist( d2837,
n2838, c2839, s2840, l2841 )
TSCP d2837, n2838, c2839, s2840, l2841;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3429 ) ) );
X1 = xlibtypes_chk_2dxrmhashbucket( d2837 );
X2 = xlibtypes_chk_2dintap( n2838 );
X3 = xlibtypes_chk_2dintap( c2839 );
X4 = INT_TSCP( XrmQGetSearchList( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( s2840 ),
TSCP_INT( l2841 ) ) );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xrmqgetsearchresource_v );
DEFSTRING( t3435, "XRMQGETSEARCHRESOURCE", 21 );
EXTERNINTP( XrmQGetSearchResource );
TSCP xws10_xrmqgetsearchresource( s2863, n2864, c2865 )
TSCP s2863, n2864, c2865;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3435 ) ) );
X1 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X2 = sc_make_2dstring( _TSCP( 32 ), EMPTYLIST );
X3 = INT_TSCP( XrmQGetSearchResource( TSCP_INT( s2863 ),
TSCP_INT( n2864 ),
TSCP_INT( c2865 ),
TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) ) );
X6 = scrt4_c_2dint_2dref( X1, _TSCP( 0 ) );
X8 = sc_cons( c2797, X2 );
X7 = sc_cons( X8, EMPTYLIST );
X5 = sc_cons( X6, X7 );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xrmmergedatabases_v );
DEFSTRING( t3441, "XRMMERGEDATABASES", 17 );
EXTERNVOIDP( XrmMergeDatabases );
TSCP xws10_xrmmergedatabases( n2886, i2887 )
TSCP n2886, i2887;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3441 ) ) );
X1 = xlibtypes_chk_2dxrmdatabase( n2886 );
X2 = xlibtypes_chk_2dxrmdatabasep( i2887 );
XrmMergeDatabases( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xrmgetfiledatabase_v );
DEFSTRING( t3447, "XRMGETFILEDATABASE", 18 );
EXTERNPOINTERP( XrmGetFileDatabase );
TSCP xws10_xrmgetfiledatabase( f2900 )
TSCP f2900;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3447 ) ) );
if ( NOT( AND( EQ( TSCPTAG( f2900 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( f2900 ), STRINGTAG ) ) )
) goto L3449;
X1 = f2900;
goto L3450;
L3449:
X1 = scrt6_error( c1683,
c1684, CONS( f2900, EMPTYLIST ) );
L3450:
X3 = POINTER_TSCP( XrmGetFileDatabase( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c2905, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xrmputfiledatabase_v );
DEFSTRING( t3453, "XRMPUTFILEDATABASE", 18 );
EXTERNVOIDP( XrmPutFileDatabase );
TSCP xws10_xrmputfiledatabase( d2914, f2915 )
TSCP d2914, f2915;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3453 ) ) );
X1 = xlibtypes_chk_2dxrmdatabase( d2914 );
if ( NOT( AND( EQ( TSCPTAG( f2915 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( f2915 ), STRINGTAG ) ) )
) goto L3456;
X2 = f2915;
goto L3457;
L3456:
X2 = scrt6_error( c1683,
c1684, CONS( f2915, EMPTYLIST ) );
L3457:
XrmPutFileDatabase( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xrmgetstringdatabase_v );
DEFSTRING( t3461, "XRMGETSTRINGDATABASE", 20 );
EXTERNPOINTERP( XrmGetStringDatabase );
TSCP xws10_xrmgetstringdatabase( d2930 )
TSCP d2930;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3461 ) ) );
if ( NOT( AND( EQ( TSCPTAG( d2930 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( d2930 ), STRINGTAG ) ) )
) goto L3463;
X1 = d2930;
goto L3464;
L3463:
X1 = scrt6_error( c1683,
c1684, CONS( d2930, EMPTYLIST ) );
L3464:
X3 = POINTER_TSCP( XrmGetStringDatabase( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c2905, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws10_xrmparsecommand_v );
DEFSTRING( t3467, "XRMPARSECOMMAND", 15 );
EXTERNTSCPP( xlibtypes_ondesclist_3b4d8a1c );
EXTERNTSCP( xlibtypes_ondesclist_3b4d8a1c_v );
EXTERNTSCPP( xlibtypes_chk_2dintp );
EXTERNTSCP( xlibtypes_chk_2dintp_v );
EXTERNTSCPP( xlibtypes_chk_2dcharpap );
EXTERNTSCP( xlibtypes_chk_2dcharpap_v );
EXTERNVOIDP( XrmParseCommand );
TSCP xws10_xrmparsecommand( p2947,
o2948,
n2949, p2950, a2951, a2952 )
TSCP p2947, o2948, n2949, p2950, a2951, a2952;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3467 ) ) );
X1 = xlibtypes_chk_2dxrmdatabasep( p2947 );
X2 = xlibtypes_ondesclist_3b4d8a1c( o2948 );
if ( NOT( AND( EQ( TSCPTAG( p2950 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p2950 ), STRINGTAG ) ) )
) goto L3471;
X3 = p2950;
goto L3472;
L3471:
X3 = scrt6_error( c1683,
c1684, CONS( p2950, EMPTYLIST ) );
L3472:
X4 = xlibtypes_chk_2dintp( a2951 );
X5 = xlibtypes_chk_2dcharpap( a2952 );
XrmParseCommand( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2949 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ) );
X6 = FALSEVALUE;
POPSTACKTRACE( X6 );
}
DEFTSCP( xws10_xsavecontext_v );
DEFSTRING( t3478, "XSAVECONTEXT", 12 );
EXTERNINTP( XSaveContext );
TSCP xws10_xsavecontext( d2978, w2979, c2980, d2981 )
TSCP d2978, w2979, c2980, d2981;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3478 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2978 );
X2 = xlibtypes_chk_2dcharap( d2981 );
X3 = INT_TSCP( XSaveContext( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w2979 ),
TSCP_INT( c2980 ),
TSCP_POINTER( X2 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws10_xfindcontext_v );
DEFSTRING( t3483, "XFINDCONTEXT", 12 );
EXTERNINTP( XFindContext );
TSCP xws10_xfindcontext( d3000, w3001, c3002 )
TSCP d3000, w3001, c3002;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3483 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3000 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = INT_TSCP( XFindContext( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w3001 ),
TSCP_INT( c3002 ),
TSCP_POINTER( X2 ) ) );
X7 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X6 = sc_cons( c2208, X7 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws10_xdeletecontext_v );
DEFSTRING( t3489, "XDELETECONTEXT", 14 );
EXTERNINTP( XDeleteContext );
TSCP xws10_xdeletecontext( d3022, w3023, c3024 )
TSCP d3022, w3023, c3024;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3489 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3022 );
X2 = INT_TSCP( XDeleteContext( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w3023 ),
TSCP_INT( c3024 ) ) );
POPSTACKTRACE( X2 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt6__init();
scrt4__init();
xlibtypes__init();
MAXDISPLAY( 0 );
}
void xws10__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xws10 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t3045 ) ),
ADR( xws10_xlookupkeysym_v ),
MAKEPROCEDURE( 2,
0,
xws10_xlookupkeysym, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3049 ) ),
ADR( xws10_xrefreshkeyboardmapping_v ),
MAKEPROCEDURE( 1,
0,
xws10_xrefreshkeyboardmapping,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3054 ) ),
ADR( xws10_xlookupstring_v ),
MAKEPROCEDURE( 4,
0,
xws10_xlookupstring, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3062 ) ),
ADR( xws10_xrebindkeysym_v ),
MAKEPROCEDURE( 6,
0,
xws10_xrebindkeysym, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3071 ) ),
ADR( xws10_xstringtokeysym_v ),
MAKEPROCEDURE( 1,
0,
xws10_xstringtokeysym, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3077 ) ),
ADR( xws10_xkeysymtostring_v ),
MAKEPROCEDURE( 1,
0,
xws10_xkeysymtostring, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3080 ) ),
ADR( xws10_xkeycodetokeysym_v ),
MAKEPROCEDURE( 3,
0,
xws10_xkeycodetokeysym,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3084 ) ),
ADR( xws10_xkeysymtokeycode_v ),
MAKEPROCEDURE( 2,
0,
xws10_xkeysymtokeycode,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3088 ) ),
ADR( xws10_xgetdefault_v ),
MAKEPROCEDURE( 3,
0,
xws10_xgetdefault, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3098 ) ),
ADR( xws10_xresourcemanagerstring_v ),
MAKEPROCEDURE( 1,
0,
xws10_xresourcemanagerstring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3102 ) ),
ADR( xws10_xparsegeometry_v ),
MAKEPROCEDURE( 1,
0,
xws10_xparsegeometry, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3113 ) ),
ADR( xws10_xgeometry_v ),
MAKEPROCEDURE( 9,
0,
xws10_xgeometry, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3128 ) ),
ADR( xws10_xparsecolor_v ),
MAKEPROCEDURE( 3,
0,
xws10_xparsecolor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3137 ) ),
ADR( xws10_xpolygonregion_v ),
MAKEPROCEDURE( 3,
0,
xws10_xpolygonregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3141 ) ),
ADR( xws10_xclipbox_v ),
MAKEPROCEDURE( 1,
0, xws10_xclipbox, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3147 ) ),
ADR( xws10_xcreateregion_v ),
MAKEPROCEDURE( 0,
0,
xws10_xcreateregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3150 ) ),
ADR( xws10_xsetregion_v ),
MAKEPROCEDURE( 3,
0,
xws10_xsetregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3157 ) ),
ADR( xws10_xdestroyregion_v ),
MAKEPROCEDURE( 1,
0,
xws10_xdestroyregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3162 ) ),
ADR( xws10_xoffsetregion_v ),
MAKEPROCEDURE( 3,
0,
xws10_xoffsetregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3167 ) ),
ADR( xws10_xshrinkregion_v ),
MAKEPROCEDURE( 3,
0,
xws10_xshrinkregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3172 ) ),
ADR( xws10_xintersectregion_v ),
MAKEPROCEDURE( 2,
0,
xws10_xintersectregion,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3179 ) ),
ADR( xws10_xunionregion_v ),
MAKEPROCEDURE( 2,
0,
xws10_xunionregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3186 ) ),
ADR( xws10_xunionrectwithregion_v ),
MAKEPROCEDURE( 2,
0,
xws10_xunionrectwithregion,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3193 ) ),
ADR( xws10_xsubtractregion_v ),
MAKEPROCEDURE( 2,
0,
xws10_xsubtractregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3200 ) ),
ADR( xws10_xxorregion_v ),
MAKEPROCEDURE( 2,
0,
xws10_xxorregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3207 ) ),
ADR( xws10_xemptyregion_v ),
MAKEPROCEDURE( 1,
0,
xws10_xemptyregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3211 ) ),
ADR( xws10_xequalregion_v ),
MAKEPROCEDURE( 2,
0,
xws10_xequalregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3216 ) ),
ADR( xws10_xpointinregion_v ),
MAKEPROCEDURE( 3,
0,
xws10_xpointinregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3220 ) ),
ADR( xws10_xrectinregion_v ),
MAKEPROCEDURE( 5,
0,
xws10_xrectinregion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3224 ) ),
ADR( xws10_xstorebytes_v ),
MAKEPROCEDURE( 3,
0,
xws10_xstorebytes, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3230 ) ),
ADR( xws10_xstorebuffer_v ),
MAKEPROCEDURE( 4,
0,
xws10_xstorebuffer, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3236 ) ),
ADR( xws10_xfetchbytes_v ),
MAKEPROCEDURE( 1,
0,
xws10_xfetchbytes, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3242 ) ),
ADR( xws10_xfetchbuffer_v ),
MAKEPROCEDURE( 2,
0,
xws10_xfetchbuffer, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3248 ) ),
ADR( xws10_xrotatebuffers_v ),
MAKEPROCEDURE( 2,
0,
xws10_xrotatebuffers, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3253 ) ),
ADR( xws10_xgetvisualinfo_v ),
MAKEPROCEDURE( 3,
0,
xws10_xgetvisualinfo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3260 ) ),
ADR( xws10_xmatchvisualinfo_v ),
MAKEPROCEDURE( 4,
0,
xws10_xmatchvisualinfo,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3266 ) ),
ADR( xws10_xcreateimage_v ),
MAKEPROCEDURE( 10,
0,
xws10_xcreateimage, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3272 ) ),
ADR( xws10_xgetpixel_v ),
MAKEPROCEDURE( 3,
0,
xws10_xgetpixel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3276 ) ),
ADR( xws10_xputpixel_v ),
MAKEPROCEDURE( 4,
0,
xws10_xputpixel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3280 ) ),
ADR( xws10_xsubimage_v ),
MAKEPROCEDURE( 5,
0,
xws10_xsubimage, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3284 ) ),
ADR( xws10_xaddpixel_v ),
MAKEPROCEDURE( 2,
0,
xws10_xaddpixel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3289 ) ),
ADR( xws10_xdestroyimage_v ),
MAKEPROCEDURE( 1,
0,
xws10_xdestroyimage, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3293 ) ),
ADR( xws10_xreadbitmapfile_v ),
MAKEPROCEDURE( 3,
0,
xws10_xreadbitmapfile, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3306 ) ),
ADR( xws10_xwritebitmapfile_v ),
MAKEPROCEDURE( 7,
0,
xws10_xwritebitmapfile,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3313 ) ),
ADR( xws10_bitmapdata_cb7d7b03_v ),
MAKEPROCEDURE( 8,
0,
xws10_bitmapdata_cb7d7b03,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3318 ) ),
ADR( xws10_xcreatebitmapfromdata_v ),
MAKEPROCEDURE( 5,
0,
xws10_xcreatebitmapfromdata,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3323 ) ),
ADR( xws10_xrminitialize_v ),
MAKEPROCEDURE( 0,
0,
xws10_xrminitialize, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3327 ) ),
ADR( xws10_xrmuniquequark_v ),
MAKEPROCEDURE( 0,
0,
xws10_xrmuniquequark, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3330 ) ),
ADR( xws10_xpermalloc_v ),
MAKEPROCEDURE( 1,
0,
xws10_xpermalloc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3333 ) ),
ADR( xws10_xrmstringtoquark_v ),
MAKEPROCEDURE( 1,
0,
xws10_xrmstringtoquark,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3337 ) ),
ADR( xws10_xrmquarktostring_v ),
MAKEPROCEDURE( 1,
0,
xws10_xrmquarktostring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3340 ) ),
ADR( xws10_xrmstringtoquarklist_v ),
MAKEPROCEDURE( 1,
0,
xws10_xrmstringtoquarklist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3348 ) ),
ADR( xws10_gquarklist_42c762b7_v ),
MAKEPROCEDURE( 1,
0,
xws10_gquarklist_42c762b7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3358 ) ),
ADR( xws10_xrmputresource_v ),
MAKEPROCEDURE( 4,
0,
xws10_xrmputresource, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3370 ) ),
ADR( xws10_xrmqputresource_v ),
MAKEPROCEDURE( 5,
0,
xws10_xrmqputresource, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3378 ) ),
ADR( xws10_xrmputstringresource_v ),
MAKEPROCEDURE( 3,
0,
xws10_xrmputstringresource,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3389 ) ),
ADR( xws10_xrmqputstringresource_v ),
MAKEPROCEDURE( 4,
0,
xws10_xrmqputstringresource,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3399 ) ),
ADR( xws10_xrmputlineresource_v ),
MAKEPROCEDURE( 2,
0,
xws10_xrmputlineresource,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3407 ) ),
ADR( xws10_xrmgetresource_v ),
MAKEPROCEDURE( 3,
0,
xws10_xrmgetresource, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3420 ) ),
ADR( xws10_xrmqgetresource_v ),
MAKEPROCEDURE( 3,
0,
xws10_xrmqgetresource, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3429 ) ),
ADR( xws10_xrmqgetsearchlist_v ),
MAKEPROCEDURE( 5,
0,
xws10_xrmqgetsearchlist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3435 ) ),
ADR( xws10_xrmqgetsearchresource_v ),
MAKEPROCEDURE( 3,
0,
xws10_xrmqgetsearchresource,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3441 ) ),
ADR( xws10_xrmmergedatabases_v ),
MAKEPROCEDURE( 2,
0,
xws10_xrmmergedatabases,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3447 ) ),
ADR( xws10_xrmgetfiledatabase_v ),
MAKEPROCEDURE( 1,
0,
xws10_xrmgetfiledatabase,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3453 ) ),
ADR( xws10_xrmputfiledatabase_v ),
MAKEPROCEDURE( 2,
0,
xws10_xrmputfiledatabase,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3461 ) ),
ADR( xws10_xrmgetstringdatabase_v ),
MAKEPROCEDURE( 1,
0,
xws10_xrmgetstringdatabase,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3467 ) ),
ADR( xws10_xrmparsecommand_v ),
MAKEPROCEDURE( 6,
0,
xws10_xrmparsecommand, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3478 ) ),
ADR( xws10_xsavecontext_v ),
MAKEPROCEDURE( 4,
0,
xws10_xsavecontext, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3483 ) ),
ADR( xws10_xfindcontext_v ),
MAKEPROCEDURE( 3,
0,
xws10_xfindcontext, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3489 ) ),
ADR( xws10_xdeletecontext_v ),
MAKEPROCEDURE( 3,
0,
xws10_xdeletecontext, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.