This is xws5.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2615, "GC", 2 );
DEFSTATICTSCP( c2032 );
DEFSTRING( t2616, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1715, t2616 );
DEFSTRING( t2617, "CHK-STRING", 10 );
DEFSTATICTSCP( c1714 );
DEFSTRING( t2618, "XCOLORP", 7 );
DEFSTATICTSCP( c1710 );
static void init_constants()
{
c2032 = STRINGTOSYMBOL( U_TX( ADR( t2615 ) ) );
CONSTANTEXP( ADR( c2032 ) );
c1714 = STRINGTOSYMBOL( U_TX( ADR( t2617 ) ) );
CONSTANTEXP( ADR( c1714 ) );
c1710 = STRINGTOSYMBOL( U_TX( ADR( t2618 ) ) );
CONSTANTEXP( ADR( c1710 ) );
}
DEFTSCP( xws5_xcreatecolormap_v );
DEFSTRING( t2619, "XCREATECOLORMAP", 15 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNTSCPP( xlibtypes_chk_2dvisualp );
EXTERNTSCP( xlibtypes_chk_2dvisualp_v );
EXTERNUNSIGNEDP( XCreateColormap );
TSCP xws5_xcreatecolormap( d1604, w1605, v1606, a1607 )
TSCP d1604, w1605, v1606, a1607;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2619 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1604 );
X2 = xlibtypes_chk_2dvisualp( v1606 );
X3 = UNSIGNED_TSCP( XCreateColormap( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1605 ),
TSCP_POINTER( X2 ),
TSCP_INT( a1607 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xcopycolormapandfree_v );
DEFSTRING( t2624, "XCOPYCOLORMAPANDFREE", 20 );
EXTERNUNSIGNEDP( XCopyColormapAndFree );
TSCP xws5_xcopycolormapandfree( d1624, s1625 )
TSCP d1624, s1625;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2624 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1624 );
X2 = UNSIGNED_TSCP( XCopyColormapAndFree( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s1625 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws5_xsetwindowcolormap_v );
DEFSTRING( t2628, "XSETWINDOWCOLORMAP", 18 );
EXTERNVOIDP( XSetWindowColormap );
TSCP xws5_xsetwindowcolormap( d1639, w1640, c1641 )
TSCP d1639, w1640, c1641;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2628 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1639 );
XSetWindowColormap( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1640 ),
TSCP_UNSIGNED( c1641 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws5_xfreecolormap_v );
DEFSTRING( t2633, "XFREECOLORMAP", 13 );
EXTERNVOIDP( XFreeColormap );
TSCP xws5_xfreecolormap( d1657, c1658 )
TSCP d1657, c1658;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2633 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1657 );
XFreeColormap( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1658 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws5_xalloccolor_v );
DEFSTRING( t2638, "XALLOCCOLOR", 11 );
EXTERNTSCPP( xlibtypes_chk_2dxcolorp );
EXTERNTSCP( xlibtypes_chk_2dxcolorp_v );
EXTERNINTP( XAllocColor );
TSCP xws5_xalloccolor( d1673, c1674, d1675 )
TSCP d1673, c1674, d1675;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2638 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1673 );
X2 = xlibtypes_chk_2dxcolorp( d1675 );
X3 = INT_TSCP( XAllocColor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1674 ),
TSCP_POINTER( X2 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xallocnamedcolor_v );
DEFSTRING( t2643, "XALLOCNAMEDCOLOR", 16 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNINTP( XAllocNamedColor );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP xws5_xallocnamedcolor( d1693, c1694, c1695 )
TSCP d1693, c1694, c1695;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2643 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1693 );
if ( NOT( AND( EQ( TSCPTAG( c1695 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c1695 ), STRINGTAG ) ) )
) goto L2646;
X2 = c1695;
goto L2647;
L2646:
X2 = scrt6_error( c1714,
c1715, CONS( c1695, EMPTYLIST ) );
L2647:
X3 = sc_make_2dstring( _TSCP( 48 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 48 ), EMPTYLIST );
X5 = INT_TSCP( XAllocNamedColor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1694 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ) ) );
X8 = sc_cons( c1710, X3 );
X10 = sc_cons( c1710, X4 );
X9 = sc_cons( X10, EMPTYLIST );
X7 = sc_cons( X8, X9 );
X6 = sc_cons( X5, X7 );
POPSTACKTRACE( X6 );
}
DEFTSCP( xws5_xlookupcolor_v );
DEFSTRING( t2653, "XLOOKUPCOLOR", 12 );
EXTERNINTP( XLookupColor );
TSCP xws5_xlookupcolor( d1725, c1726, s1727 )
TSCP d1725, c1726, s1727;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2653 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1725 );
if ( NOT( AND( EQ( TSCPTAG( s1727 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1727 ), STRINGTAG ) ) )
) goto L2656;
X2 = s1727;
goto L2657;
L2656:
X2 = scrt6_error( c1714,
c1715, CONS( s1727, EMPTYLIST ) );
L2657:
X3 = sc_make_2dstring( _TSCP( 48 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 48 ), EMPTYLIST );
X5 = INT_TSCP( XLookupColor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1726 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ) ) );
X8 = sc_cons( c1710, X3 );
X10 = sc_cons( c1710, X4 );
X9 = sc_cons( X10, EMPTYLIST );
X7 = sc_cons( X8, X9 );
X6 = sc_cons( X5, X7 );
POPSTACKTRACE( X6 );
}
DEFTSCP( xws5_xalloccolorcells_v );
DEFSTRING( t2663, "XALLOCCOLORCELLS", 16 );
EXTERNTSCPP( xlibtypes_chk_2dunsignedap );
EXTERNTSCP( xlibtypes_chk_2dunsignedap_v );
EXTERNINTP( XAllocColorCells );
TSCP xws5_xalloccolorcells( d1755,
c1756,
c1757,
m1758, n1759, p1760, n1761 )
TSCP d1755,
c1756, c1757, m1758, n1759, p1760, n1761;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2663 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1755 );
X2 = xlibtypes_chk_2dunsignedap( m1758 );
X3 = xlibtypes_chk_2dunsignedap( p1760 );
X4 = INT_TSCP( XAllocColorCells( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1756 ),
TSCP_INT( c1757 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( n1759 ),
TSCP_POINTER( X3 ),
TSCP_UNSIGNED( n1761 ) ) );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws5_xalloccolorplanes_v );
DEFSTRING( t2669, "XALLOCCOLORPLANES", 17 );
EXTERNINTP( XAllocColorPlanes );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP xws5_xalloccolorplanes( d1793,
c1794,
c1795,
p1796,
n1797, n1798, n1799, n1800 )
TSCP d1793,
c1794,
c1795, p1796, n1797, n1798, n1799, n1800;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2669 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1793 );
X2 = xlibtypes_chk_2dunsignedap( p1796 );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = INT_TSCP( XAllocColorPlanes( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1794 ),
TSCP_INT( c1795 ),
TSCP_POINTER( X2 ),
TSCP_INT( n1797 ),
TSCP_INT( n1798 ),
TSCP_INT( n1799 ),
TSCP_INT( n1800 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ) ) );
X9 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X11 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X13 = scrt4_c_2dunsigned_2dref( X5, _TSCP( 0 ) );
X12 = sc_cons( X13, EMPTYLIST );
X10 = sc_cons( X11, X12 );
X8 = sc_cons( X9, X10 );
X7 = sc_cons( X6, X8 );
POPSTACKTRACE( X7 );
}
DEFTSCP( xws5_xstorecolors_v );
DEFSTRING( t2678, "XSTORECOLORS", 12 );
EXTERNTSCPP( xlibtypes_chk_2dxcolorap );
EXTERNTSCP( xlibtypes_chk_2dxcolorap_v );
EXTERNVOIDP( XStoreColors );
TSCP xws5_xstorecolors( d1837, c1838, d1839, n1840 )
TSCP d1837, c1838, d1839, n1840;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2678 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1837 );
X2 = xlibtypes_chk_2dxcolorap( d1839 );
XStoreColors( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1838 ),
TSCP_POINTER( X2 ),
TSCP_INT( n1840 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xstorecolor_v );
DEFSTRING( t2684, "XSTORECOLOR", 11 );
EXTERNVOIDP( XStoreColor );
TSCP xws5_xstorecolor( d1859, c1860, d1861 )
TSCP d1859, c1860, d1861;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2684 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1859 );
X2 = xlibtypes_chk_2dxcolorp( d1861 );
XStoreColor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1860 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xstorenamedcolor_v );
DEFSTRING( t2690, "XSTORENAMEDCOLOR", 16 );
EXTERNVOIDP( XStoreNamedColor );
TSCP xws5_xstorenamedcolor( d1880,
c1881, n1882, p1883, f1884 )
TSCP d1880, c1881, n1882, p1883, f1884;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2690 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1880 );
if ( NOT( AND( EQ( TSCPTAG( n1882 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n1882 ), STRINGTAG ) ) )
) goto L2693;
X2 = n1882;
goto L2694;
L2693:
X2 = scrt6_error( c1714,
c1715, CONS( n1882, EMPTYLIST ) );
L2694:
XStoreNamedColor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1881 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( p1883 ),
TSCP_INT( f1884 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xfreecolors_v );
DEFSTRING( t2698, "XFREECOLORS", 11 );
EXTERNVOIDP( XFreeColors );
TSCP xws5_xfreecolors( d1909, c1910, p1911, n1912, p1913 )
TSCP d1909, c1910, p1911, n1912, p1913;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2698 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1909 );
X2 = xlibtypes_chk_2dunsignedap( p1911 );
XFreeColors( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1910 ),
TSCP_POINTER( X2 ),
TSCP_INT( n1912 ),
TSCP_UNSIGNED( p1913 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xquerycolor_v );
DEFSTRING( t2704, "XQUERYCOLOR", 11 );
EXTERNVOIDP( XQueryColor );
TSCP xws5_xquerycolor( d1934, c1935, d1936 )
TSCP d1934, c1935, d1936;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2704 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1934 );
X2 = xlibtypes_chk_2dxcolorp( d1936 );
XQueryColor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1935 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xquerycolors_v );
DEFSTRING( t2710, "XQUERYCOLORS", 12 );
EXTERNVOIDP( XQueryColors );
TSCP xws5_xquerycolors( d1954, c1955, d1956, n1957 )
TSCP d1954, c1955, d1956, n1957;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2710 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1954 );
X2 = xlibtypes_chk_2dxcolorap( d1956 );
XQueryColors( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c1955 ),
TSCP_POINTER( X2 ),
TSCP_INT( n1957 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xcreatepixmap_v );
DEFSTRING( t2716, "XCREATEPIXMAP", 13 );
EXTERNUNSIGNEDP( XCreatePixmap );
TSCP xws5_xcreatepixmap( d1978,
d1979, w1980, h1981, d1982 )
TSCP d1978, d1979, w1980, h1981, d1982;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2716 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1978 );
X2 = UNSIGNED_TSCP( XCreatePixmap( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1979 ),
TSCP_UNSIGNED( w1980 ),
TSCP_UNSIGNED( h1981 ),
TSCP_UNSIGNED( d1982 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws5_xfreepixmap_v );
DEFSTRING( t2720, "XFREEPIXMAP", 11 );
EXTERNVOIDP( XFreePixmap );
TSCP xws5_xfreepixmap( d2001, p2002 )
TSCP d2001, p2002;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2720 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2001 );
XFreePixmap( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( p2002 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws5_xcreategc_v );
DEFSTRING( t2725, "XCREATEGC", 9 );
EXTERNTSCPP( xlibtypes_chk_2dxgcvaluesp );
EXTERNTSCP( xlibtypes_chk_2dxgcvaluesp_v );
EXTERNPOINTERP( XCreateGC );
TSCP xws5_xcreategc( d2018, d2019, v2020, v2021 )
TSCP d2018, d2019, v2020, v2021;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2725 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2018 );
X2 = xlibtypes_chk_2dxgcvaluesp( v2021 );
X4 = POINTER_TSCP( XCreateGC( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2019 ),
TSCP_UNSIGNED( v2020 ),
TSCP_POINTER( X2 ) ) );
X3 = sc_cons( c2032, X4 );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xcopygc_v );
DEFSTRING( t2730, "XCOPYGC", 7 );
EXTERNTSCPP( xlibtypes_chk_2dgc );
EXTERNTSCP( xlibtypes_chk_2dgc_v );
EXTERNVOIDP( XCopyGC );
TSCP xws5_xcopygc( d2041, s2042, m2043, d2044 )
TSCP d2041, s2042, m2043, d2044;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2730 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2041 );
X2 = xlibtypes_chk_2dgc( s2042 );
X3 = xlibtypes_chk_2dgc( d2044 );
XCopyGC( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( m2043 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws5_xchangegc_v );
DEFSTRING( t2737, "XCHANGEGC", 9 );
EXTERNVOIDP( XChangeGC );
TSCP xws5_xchangegc( d2064, g2065, v2066, v2067 )
TSCP d2064, g2065, v2066, v2067;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2737 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2064 );
X2 = xlibtypes_chk_2dgc( g2065 );
X3 = xlibtypes_chk_2dxgcvaluesp( v2067 );
XChangeGC( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( v2066 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws5_xfreegc_v );
DEFSTRING( t2744, "XFREEGC", 7 );
EXTERNVOIDP( XFreeGC );
TSCP xws5_xfreegc( d2085, g2086 )
TSCP d2085, g2086;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2744 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2085 );
X2 = xlibtypes_chk_2dgc( g2086 );
XFreeGC( TSCP_POINTER( X1 ), TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xgcontextfromgc_v );
DEFSTRING( t2750, "XGCONTEXTFROMGC", 15 );
EXTERNUNSIGNEDP( XGContextFromGC );
TSCP xws5_xgcontextfromgc( g2099 )
TSCP g2099;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2750 ) ) );
X1 = xlibtypes_chk_2dgc( g2099 );
X2 = UNSIGNED_TSCP( XGContextFromGC( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws5_xsetstate_v );
DEFSTRING( t2754, "XSETSTATE", 9 );
EXTERNVOIDP( XSetState );
TSCP xws5_xsetstate( d2114,
g2115, f2116, b2117, f2118, p2119 )
TSCP d2114, g2115, f2116, b2117, f2118, p2119;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2754 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2114 );
X2 = xlibtypes_chk_2dgc( g2115 );
XSetState( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( f2116 ),
TSCP_UNSIGNED( b2117 ),
TSCP_INT( f2118 ),
TSCP_UNSIGNED( p2119 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetforeground_v );
DEFSTRING( t2760, "XSETFOREGROUND", 14 );
EXTERNVOIDP( XSetForeground );
TSCP xws5_xsetforeground( d2142, g2143, f2144 )
TSCP d2142, g2143, f2144;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2760 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2142 );
X2 = xlibtypes_chk_2dgc( g2143 );
XSetForeground( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( f2144 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetbackground_v );
DEFSTRING( t2766, "XSETBACKGROUND", 14 );
EXTERNVOIDP( XSetBackground );
TSCP xws5_xsetbackground( d2161, g2162, b2163 )
TSCP d2161, g2162, b2163;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2766 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2161 );
X2 = xlibtypes_chk_2dgc( g2162 );
XSetBackground( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( b2163 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetfunction_v );
DEFSTRING( t2772, "XSETFUNCTION", 12 );
EXTERNVOIDP( XSetFunction );
TSCP xws5_xsetfunction( d2180, g2181, f2182 )
TSCP d2180, g2181, f2182;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2772 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2180 );
X2 = xlibtypes_chk_2dgc( g2181 );
XSetFunction( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( f2182 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetplanemask_v );
DEFSTRING( t2778, "XSETPLANEMASK", 13 );
EXTERNVOIDP( XSetPlaneMask );
TSCP xws5_xsetplanemask( d2199, g2200, p2201 )
TSCP d2199, g2200, p2201;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2778 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2199 );
X2 = xlibtypes_chk_2dgc( g2200 );
XSetPlaneMask( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( p2201 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetlineattributes_v );
DEFSTRING( t2784, "XSETLINEATTRIBUTES", 18 );
EXTERNVOIDP( XSetLineAttributes );
TSCP xws5_xsetlineattributes( d2221,
g2222,
l2223, l2224, c2225, j2226 )
TSCP d2221, g2222, l2223, l2224, c2225, j2226;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2784 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2221 );
X2 = xlibtypes_chk_2dgc( g2222 );
XSetLineAttributes( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( l2223 ),
TSCP_INT( l2224 ),
TSCP_INT( c2225 ),
TSCP_INT( j2226 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetdashes_v );
DEFSTRING( t2790, "XSETDASHES", 10 );
EXTERNTSCPP( xlibtypes_chk_2dcharap );
EXTERNTSCP( xlibtypes_chk_2dcharap_v );
EXTERNVOIDP( XSetDashes );
TSCP xws5_xsetdashes( d2251, g2252, d2253, l2254, n2255 )
TSCP d2251, g2252, d2253, l2254, n2255;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2790 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2251 );
X2 = xlibtypes_chk_2dgc( g2252 );
X3 = xlibtypes_chk_2dcharap( l2254 );
XSetDashes( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( d2253 ),
TSCP_POINTER( X3 ), TSCP_INT( n2255 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws5_xsetfillstyle_v );
DEFSTRING( t2797, "XSETFILLSTYLE", 13 );
EXTERNVOIDP( XSetFillStyle );
TSCP xws5_xsetfillstyle( d2276, g2277, f2278 )
TSCP d2276, g2277, f2278;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2797 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2276 );
X2 = xlibtypes_chk_2dgc( g2277 );
XSetFillStyle( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( f2278 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetfillrule_v );
DEFSTRING( t2803, "XSETFILLRULE", 12 );
EXTERNVOIDP( XSetFillRule );
TSCP xws5_xsetfillrule( d2295, g2296, f2297 )
TSCP d2295, g2296, f2297;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2803 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2295 );
X2 = xlibtypes_chk_2dgc( g2296 );
XSetFillRule( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( f2297 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xquerybestsize_v );
DEFSTRING( t2809, "XQUERYBESTSIZE", 14 );
EXTERNINTP( XQueryBestSize );
TSCP xws5_xquerybestsize( d2318,
c2319, d2320, w2321, h2322 )
TSCP d2318, c2319, d2320, w2321, h2322;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2809 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2318 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = INT_TSCP( XQueryBestSize( TSCP_POINTER( X1 ),
TSCP_INT( c2319 ),
TSCP_UNSIGNED( d2320 ),
TSCP_UNSIGNED( w2321 ),
TSCP_UNSIGNED( h2322 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) ) );
X7 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X9 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X8 = sc_cons( X9, EMPTYLIST );
X6 = sc_cons( X7, X8 );
X5 = sc_cons( X4, X6 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws5_xquerybesttile_v );
DEFSTRING( t2816, "XQUERYBESTTILE", 14 );
EXTERNINTP( XQueryBestTile );
TSCP xws5_xquerybesttile( d2351, d2352, w2353, h2354 )
TSCP d2351, d2352, w2353, h2354;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2816 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2351 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = INT_TSCP( XQueryBestTile( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2352 ),
TSCP_UNSIGNED( w2353 ),
TSCP_UNSIGNED( h2354 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) ) );
X7 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X9 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X8 = sc_cons( X9, EMPTYLIST );
X6 = sc_cons( X7, X8 );
X5 = sc_cons( X4, X6 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws5_xquerybeststipple_v );
DEFSTRING( t2823, "XQUERYBESTSTIPPLE", 17 );
EXTERNINTP( XQueryBestStipple );
TSCP xws5_xquerybeststipple( d2381, d2382, w2383, h2384 )
TSCP d2381, d2382, w2383, h2384;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2823 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2381 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = INT_TSCP( XQueryBestStipple( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2382 ),
TSCP_UNSIGNED( w2383 ),
TSCP_UNSIGNED( h2384 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) ) );
X7 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X9 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X8 = sc_cons( X9, EMPTYLIST );
X6 = sc_cons( X7, X8 );
X5 = sc_cons( X4, X6 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws5_xsettile_v );
DEFSTRING( t2830, "XSETTILE", 8 );
EXTERNVOIDP( XSetTile );
TSCP xws5_xsettile( d2408, g2409, t2410 )
TSCP d2408, g2409, t2410;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2830 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2408 );
X2 = xlibtypes_chk_2dgc( g2409 );
XSetTile( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( t2410 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetstipple_v );
DEFSTRING( t2836, "XSETSTIPPLE", 11 );
EXTERNVOIDP( XSetStipple );
TSCP xws5_xsetstipple( d2427, g2428, s2429 )
TSCP d2427, g2428, s2429;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2836 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2427 );
X2 = xlibtypes_chk_2dgc( g2428 );
XSetStipple( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( s2429 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsettsorigin_v );
DEFSTRING( t2842, "XSETTSORIGIN", 12 );
EXTERNVOIDP( XSetTSOrigin );
TSCP xws5_xsettsorigin( d2447, g2448, x2449, y2450 )
TSCP d2447, g2448, x2449, y2450;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2842 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2447 );
X2 = xlibtypes_chk_2dgc( g2448 );
XSetTSOrigin( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2449 ), TSCP_INT( y2450 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetfont_v );
DEFSTRING( t2848, "XSETFONT", 8 );
EXTERNVOIDP( XSetFont );
TSCP xws5_xsetfont( d2469, g2470, f2471 )
TSCP d2469, g2470, f2471;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2848 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2469 );
X2 = xlibtypes_chk_2dgc( g2470 );
XSetFont( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( f2471 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetcliporigin_v );
DEFSTRING( t2854, "XSETCLIPORIGIN", 14 );
EXTERNVOIDP( XSetClipOrigin );
TSCP xws5_xsetcliporigin( d2489, g2490, x2491, y2492 )
TSCP d2489, g2490, x2491, y2492;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2854 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2489 );
X2 = xlibtypes_chk_2dgc( g2490 );
XSetClipOrigin( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2491 ),
TSCP_INT( y2492 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetclipmask_v );
DEFSTRING( t2860, "XSETCLIPMASK", 12 );
EXTERNVOIDP( XSetClipMask );
TSCP xws5_xsetclipmask( d2511, g2512, m2513 )
TSCP d2511, g2512, m2513;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2860 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2511 );
X2 = xlibtypes_chk_2dgc( g2512 );
XSetClipMask( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( m2513 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetcliprectangles_v );
DEFSTRING( t2866, "XSETCLIPRECTANGLES", 18 );
EXTERNTSCPP( xlibtypes_chk_2dxrectangleap );
EXTERNTSCP( xlibtypes_chk_2dxrectangleap_v );
EXTERNVOIDP( XSetClipRectangles );
TSCP xws5_xsetcliprectangles( d2534,
g2535,
c2536,
c2537, r2538, n2539, o2540 )
TSCP d2534,
g2535, c2536, c2537, r2538, n2539, o2540;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2866 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2534 );
X2 = xlibtypes_chk_2dgc( g2535 );
X3 = xlibtypes_chk_2dxrectangleap( r2538 );
XSetClipRectangles( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( c2536 ),
TSCP_INT( c2537 ),
TSCP_POINTER( X3 ),
TSCP_INT( n2539 ),
TSCP_INT( o2540 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws5_xsetarcmode_v );
DEFSTRING( t2873, "XSETARCMODE", 11 );
EXTERNVOIDP( XSetArcMode );
TSCP xws5_xsetarcmode( d2565, g2566, a2567 )
TSCP d2565, g2566, a2567;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2873 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2565 );
X2 = xlibtypes_chk_2dgc( g2566 );
XSetArcMode( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ), TSCP_INT( a2567 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetsubwindowmode_v );
DEFSTRING( t2879, "XSETSUBWINDOWMODE", 17 );
EXTERNVOIDP( XSetSubwindowMode );
TSCP xws5_xsetsubwindowmode( d2584, g2585, s2586 )
TSCP d2584, g2585, s2586;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2879 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2584 );
X2 = xlibtypes_chk_2dgc( g2585 );
XSetSubwindowMode( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( s2586 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws5_xsetgraphicsexposures_v );
DEFSTRING( t2885, "XSETGRAPHICSEXPOSURES", 21 );
EXTERNVOIDP( XSetGraphicsExposures );
TSCP xws5_xsetgraphicsexposures( d2603, g2604, g2605 )
TSCP d2603, g2604, g2605;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2885 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2603 );
X2 = xlibtypes_chk_2dgc( g2604 );
XSetGraphicsExposures( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( g2605 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
scrt6__init();
xlibtypes__init();
MAXDISPLAY( 0 );
}
void xws5__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xws5 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2619 ) ),
ADR( xws5_xcreatecolormap_v ),
MAKEPROCEDURE( 4,
0,
xws5_xcreatecolormap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2624 ) ),
ADR( xws5_xcopycolormapandfree_v ),
MAKEPROCEDURE( 2,
0,
xws5_xcopycolormapandfree,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2628 ) ),
ADR( xws5_xsetwindowcolormap_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetwindowcolormap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2633 ) ),
ADR( xws5_xfreecolormap_v ),
MAKEPROCEDURE( 2,
0,
xws5_xfreecolormap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2638 ) ),
ADR( xws5_xalloccolor_v ),
MAKEPROCEDURE( 3,
0,
xws5_xalloccolor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2643 ) ),
ADR( xws5_xallocnamedcolor_v ),
MAKEPROCEDURE( 3,
0,
xws5_xallocnamedcolor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2653 ) ),
ADR( xws5_xlookupcolor_v ),
MAKEPROCEDURE( 3,
0,
xws5_xlookupcolor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2663 ) ),
ADR( xws5_xalloccolorcells_v ),
MAKEPROCEDURE( 7,
0,
xws5_xalloccolorcells, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2669 ) ),
ADR( xws5_xalloccolorplanes_v ),
MAKEPROCEDURE( 8,
0,
xws5_xalloccolorplanes,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2678 ) ),
ADR( xws5_xstorecolors_v ),
MAKEPROCEDURE( 4,
0,
xws5_xstorecolors, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2684 ) ),
ADR( xws5_xstorecolor_v ),
MAKEPROCEDURE( 3,
0,
xws5_xstorecolor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2690 ) ),
ADR( xws5_xstorenamedcolor_v ),
MAKEPROCEDURE( 5,
0,
xws5_xstorenamedcolor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2698 ) ),
ADR( xws5_xfreecolors_v ),
MAKEPROCEDURE( 5,
0,
xws5_xfreecolors, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2704 ) ),
ADR( xws5_xquerycolor_v ),
MAKEPROCEDURE( 3,
0,
xws5_xquerycolor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2710 ) ),
ADR( xws5_xquerycolors_v ),
MAKEPROCEDURE( 4,
0,
xws5_xquerycolors, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2716 ) ),
ADR( xws5_xcreatepixmap_v ),
MAKEPROCEDURE( 5,
0,
xws5_xcreatepixmap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2720 ) ),
ADR( xws5_xfreepixmap_v ),
MAKEPROCEDURE( 2,
0,
xws5_xfreepixmap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2725 ) ),
ADR( xws5_xcreategc_v ),
MAKEPROCEDURE( 4,
0, xws5_xcreategc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2730 ) ),
ADR( xws5_xcopygc_v ),
MAKEPROCEDURE( 4,
0, xws5_xcopygc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2737 ) ),
ADR( xws5_xchangegc_v ),
MAKEPROCEDURE( 4,
0, xws5_xchangegc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2744 ) ),
ADR( xws5_xfreegc_v ),
MAKEPROCEDURE( 2,
0, xws5_xfreegc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2750 ) ),
ADR( xws5_xgcontextfromgc_v ),
MAKEPROCEDURE( 1,
0,
xws5_xgcontextfromgc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2754 ) ),
ADR( xws5_xsetstate_v ),
MAKEPROCEDURE( 6,
0, xws5_xsetstate, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2760 ) ),
ADR( xws5_xsetforeground_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetforeground, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2766 ) ),
ADR( xws5_xsetbackground_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetbackground, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2772 ) ),
ADR( xws5_xsetfunction_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetfunction, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2778 ) ),
ADR( xws5_xsetplanemask_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetplanemask, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2784 ) ),
ADR( xws5_xsetlineattributes_v ),
MAKEPROCEDURE( 6,
0,
xws5_xsetlineattributes,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2790 ) ),
ADR( xws5_xsetdashes_v ),
MAKEPROCEDURE( 5,
0,
xws5_xsetdashes, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2797 ) ),
ADR( xws5_xsetfillstyle_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetfillstyle, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2803 ) ),
ADR( xws5_xsetfillrule_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetfillrule, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2809 ) ),
ADR( xws5_xquerybestsize_v ),
MAKEPROCEDURE( 5,
0,
xws5_xquerybestsize, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2816 ) ),
ADR( xws5_xquerybesttile_v ),
MAKEPROCEDURE( 4,
0,
xws5_xquerybesttile, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2823 ) ),
ADR( xws5_xquerybeststipple_v ),
MAKEPROCEDURE( 4,
0,
xws5_xquerybeststipple,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2830 ) ),
ADR( xws5_xsettile_v ),
MAKEPROCEDURE( 3,
0, xws5_xsettile, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2836 ) ),
ADR( xws5_xsetstipple_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetstipple, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2842 ) ),
ADR( xws5_xsettsorigin_v ),
MAKEPROCEDURE( 4,
0,
xws5_xsettsorigin, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2848 ) ),
ADR( xws5_xsetfont_v ),
MAKEPROCEDURE( 3,
0, xws5_xsetfont, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2854 ) ),
ADR( xws5_xsetcliporigin_v ),
MAKEPROCEDURE( 4,
0,
xws5_xsetcliporigin, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2860 ) ),
ADR( xws5_xsetclipmask_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetclipmask, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2866 ) ),
ADR( xws5_xsetcliprectangles_v ),
MAKEPROCEDURE( 7,
0,
xws5_xsetcliprectangles,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2873 ) ),
ADR( xws5_xsetarcmode_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetarcmode, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2879 ) ),
ADR( xws5_xsetsubwindowmode_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetsubwindowmode,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2885 ) ),
ADR( xws5_xsetgraphicsexposures_v ),
MAKEPROCEDURE( 3,
0,
xws5_xsetgraphicsexposures,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.