This is xws6.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t3140, "XIMAGEP", 7 );
DEFSTATICTSCP( c2905 );
DEFSTRING( t3141, "XCHARSTRUCTP", 12 );
DEFSTATICTSCP( c2492 );
DEFSTRING( t3142, "XFONTSTRUCTAP", 13 );
DEFSTATICTSCP( c2357 );
DEFSTRING( t3143, "CHARPAP", 7 );
DEFSTATICTSCP( c2317 );
DEFSTRING( t3144, "XFONTSTRUCTP", 12 );
DEFSTATICTSCP( c2226 );
DEFSTRING( t3145, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c2211, t3145 );
DEFSTRING( t3146, "CHK-STRING", 10 );
DEFSTATICTSCP( c2210 );
static void init_constants()
{
c2905 = STRINGTOSYMBOL( U_TX( ADR( t3140 ) ) );
CONSTANTEXP( ADR( c2905 ) );
c2492 = STRINGTOSYMBOL( U_TX( ADR( t3141 ) ) );
CONSTANTEXP( ADR( c2492 ) );
c2357 = STRINGTOSYMBOL( U_TX( ADR( t3142 ) ) );
CONSTANTEXP( ADR( c2357 ) );
c2317 = STRINGTOSYMBOL( U_TX( ADR( t3143 ) ) );
CONSTANTEXP( ADR( c2317 ) );
c2226 = STRINGTOSYMBOL( U_TX( ADR( t3144 ) ) );
CONSTANTEXP( ADR( c2226 ) );
c2210 = STRINGTOSYMBOL( U_TX( ADR( t3146 ) ) );
CONSTANTEXP( ADR( c2210 ) );
}
DEFTSCP( xws6_xclearwindow_v );
DEFSTRING( t3147, "XCLEARWINDOW", 12 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNVOIDP( XClearWindow );
TSCP xws6_xclearwindow( d1602, w1603 )
TSCP d1602, w1603;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3147 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1602 );
XClearWindow( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1603 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xcleararea_v );
DEFSTRING( t3152, "XCLEARAREA", 10 );
EXTERNVOIDP( XClearArea );
TSCP xws6_xcleararea( d1622,
w1623,
x1624, y1625, w1626, h1627, e1628 )
TSCP d1622,
w1623, x1624, y1625, w1626, h1627, e1628;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3152 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1622 );
XClearArea( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1623 ),
TSCP_INT( x1624 ),
TSCP_INT( y1625 ),
TSCP_UNSIGNED( w1626 ),
TSCP_UNSIGNED( h1627 ),
TSCP_INT( e1628 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xcopyarea_v );
DEFSTRING( t3157, "XCOPYAREA", 9 );
EXTERNTSCPP( xlibtypes_chk_2dgc );
EXTERNTSCP( xlibtypes_chk_2dgc_v );
EXTERNVOIDP( XCopyArea );
TSCP xws6_xcopyarea( d1660,
s1661,
d1662,
g1663,
s1664,
s1665, w1666, h1667, d1668, d1669 )
TSCP d1660,
s1661,
d1662,
g1663,
s1664, s1665, w1666, h1667, d1668, d1669;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3157 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1660 );
X2 = xlibtypes_chk_2dgc( g1663 );
XCopyArea( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s1661 ),
TSCP_UNSIGNED( d1662 ),
TSCP_POINTER( X2 ),
TSCP_INT( s1664 ),
TSCP_INT( s1665 ),
TSCP_UNSIGNED( w1666 ),
TSCP_UNSIGNED( h1667 ),
TSCP_INT( d1668 ), TSCP_INT( d1669 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xcopyplane_v );
DEFSTRING( t3163, "XCOPYPLANE", 10 );
EXTERNVOIDP( XCopyPlane );
TSCP xws6_xcopyplane( d1708,
s1709,
d1710,
g1711,
s1712,
s1713,
w1714, h1715, d1716, d1717, b1718 )
TSCP d1708,
s1709,
d1710,
g1711,
s1712,
s1713, w1714, h1715, d1716, d1717, b1718;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3163 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1708 );
X2 = xlibtypes_chk_2dgc( g1711 );
XCopyPlane( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s1709 ),
TSCP_UNSIGNED( d1710 ),
TSCP_POINTER( X2 ),
TSCP_INT( s1712 ),
TSCP_INT( s1713 ),
TSCP_UNSIGNED( w1714 ),
TSCP_UNSIGNED( h1715 ),
TSCP_INT( d1716 ),
TSCP_INT( d1717 ),
TSCP_UNSIGNED( b1718 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xdrawpoint_v );
DEFSTRING( t3169, "XDRAWPOINT", 10 );
EXTERNVOIDP( XDrawPoint );
TSCP xws6_xdrawpoint( d1753, d1754, g1755, x1756, y1757 )
TSCP d1753, d1754, g1755, x1756, y1757;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3169 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1753 );
X2 = xlibtypes_chk_2dgc( g1755 );
XDrawPoint( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1754 ),
TSCP_POINTER( X2 ),
TSCP_INT( x1756 ), TSCP_INT( y1757 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xdrawpoints_v );
DEFSTRING( t3175, "XDRAWPOINTS", 11 );
EXTERNTSCPP( xlibtypes_chk_2dxpointap );
EXTERNTSCP( xlibtypes_chk_2dxpointap_v );
EXTERNVOIDP( XDrawPoints );
TSCP xws6_xdrawpoints( d1781,
d1782, g1783, p1784, n1785, m1786 )
TSCP d1781, d1782, g1783, p1784, n1785, m1786;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3175 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1781 );
X2 = xlibtypes_chk_2dgc( g1783 );
X3 = xlibtypes_chk_2dxpointap( p1784 );
XDrawPoints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1782 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( n1785 ), TSCP_INT( m1786 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawline_v );
DEFSTRING( t3182, "XDRAWLINE", 9 );
EXTERNVOIDP( XDrawLine );
TSCP xws6_xdrawline( d1813,
d1814,
g1815, x1816, y1817, x1818, y1819 )
TSCP d1813,
d1814, g1815, x1816, y1817, x1818, y1819;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3182 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1813 );
X2 = xlibtypes_chk_2dgc( g1815 );
XDrawLine( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1814 ),
TSCP_POINTER( X2 ),
TSCP_INT( x1816 ),
TSCP_INT( y1817 ),
TSCP_INT( x1818 ), TSCP_INT( y1819 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xdrawlines_v );
DEFSTRING( t3188, "XDRAWLINES", 10 );
EXTERNVOIDP( XDrawLines );
TSCP xws6_xdrawlines( d1847,
d1848, g1849, p1850, n1851, m1852 )
TSCP d1847, d1848, g1849, p1850, n1851, m1852;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3188 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1847 );
X2 = xlibtypes_chk_2dgc( g1849 );
X3 = xlibtypes_chk_2dxpointap( p1850 );
XDrawLines( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1848 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( n1851 ), TSCP_INT( m1852 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawsegments_v );
DEFSTRING( t3195, "XDRAWSEGMENTS", 13 );
EXTERNTSCPP( xlibtypes_chk_2dxsegmentap );
EXTERNTSCP( xlibtypes_chk_2dxsegmentap_v );
EXTERNVOIDP( XDrawSegments );
TSCP xws6_xdrawsegments( d1877,
d1878, g1879, s1880, n1881 )
TSCP d1877, d1878, g1879, s1880, n1881;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3195 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1877 );
X2 = xlibtypes_chk_2dgc( g1879 );
X3 = xlibtypes_chk_2dxsegmentap( s1880 );
XDrawSegments( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1878 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( n1881 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawrectangle_v );
DEFSTRING( t3202, "XDRAWRECTANGLE", 14 );
EXTERNVOIDP( XDrawRectangle );
TSCP xws6_xdrawrectangle( d1906,
d1907,
g1908,
x1909, y1910, w1911, h1912 )
TSCP d1906,
d1907, g1908, x1909, y1910, w1911, h1912;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3202 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1906 );
X2 = xlibtypes_chk_2dgc( g1908 );
XDrawRectangle( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1907 ),
TSCP_POINTER( X2 ),
TSCP_INT( x1909 ),
TSCP_INT( y1910 ),
TSCP_UNSIGNED( w1911 ),
TSCP_UNSIGNED( h1912 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xdrawrectangles_v );
DEFSTRING( t3208, "XDRAWRECTANGLES", 15 );
EXTERNTSCPP( xlibtypes_chk_2dxrectangleap );
EXTERNTSCP( xlibtypes_chk_2dxrectangleap_v );
EXTERNVOIDP( XDrawRectangles );
TSCP xws6_xdrawrectangles( d1939,
d1940, g1941, r1942, n1943 )
TSCP d1939, d1940, g1941, r1942, n1943;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3208 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1939 );
X2 = xlibtypes_chk_2dgc( g1941 );
X3 = xlibtypes_chk_2dxrectangleap( r1942 );
XDrawRectangles( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1940 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( n1943 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawarc_v );
DEFSTRING( t3215, "XDRAWARC", 8 );
EXTERNVOIDP( XDrawArc );
TSCP xws6_xdrawarc( d1970,
d1971,
g1972,
x1973,
y1974, w1975, h1976, a1977, a1978 )
TSCP d1970,
d1971,
g1972,
x1973, y1974, w1975, h1976, a1977, a1978;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3215 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1970 );
X2 = xlibtypes_chk_2dgc( g1972 );
XDrawArc( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1971 ),
TSCP_POINTER( X2 ),
TSCP_INT( x1973 ),
TSCP_INT( y1974 ),
TSCP_UNSIGNED( w1975 ),
TSCP_UNSIGNED( h1976 ),
TSCP_INT( a1977 ), TSCP_INT( a1978 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xdrawarcs_v );
DEFSTRING( t3221, "XDRAWARCS", 9 );
EXTERNTSCPP( xlibtypes_chk_2dxarcap );
EXTERNTSCP( xlibtypes_chk_2dxarcap_v );
EXTERNVOIDP( XDrawArcs );
TSCP xws6_xdrawarcs( d2009, d2010, g2011, a2012, n2013 )
TSCP d2009, d2010, g2011, a2012, n2013;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3221 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2009 );
X2 = xlibtypes_chk_2dgc( g2011 );
X3 = xlibtypes_chk_2dxarcap( a2012 );
XDrawArcs( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2010 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ), TSCP_INT( n2013 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xfillrectangle_v );
DEFSTRING( t3228, "XFILLRECTANGLE", 14 );
EXTERNVOIDP( XFillRectangle );
TSCP xws6_xfillrectangle( d2038,
d2039,
g2040,
x2041, y2042, w2043, h2044 )
TSCP d2038,
d2039, g2040, x2041, y2042, w2043, h2044;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3228 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2038 );
X2 = xlibtypes_chk_2dgc( g2040 );
XFillRectangle( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2039 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2041 ),
TSCP_INT( y2042 ),
TSCP_UNSIGNED( w2043 ),
TSCP_UNSIGNED( h2044 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xfillrectangles_v );
DEFSTRING( t3234, "XFILLRECTANGLES", 15 );
EXTERNVOIDP( XFillRectangles );
TSCP xws6_xfillrectangles( d2071,
d2072, g2073, r2074, n2075 )
TSCP d2071, d2072, g2073, r2074, n2075;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3234 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2071 );
X2 = xlibtypes_chk_2dgc( g2073 );
X3 = xlibtypes_chk_2dxrectangleap( r2074 );
XFillRectangles( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2072 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( n2075 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xfillpolygon_v );
DEFSTRING( t3241, "XFILLPOLYGON", 12 );
EXTERNVOIDP( XFillPolygon );
TSCP xws6_xfillpolygon( d2100,
d2101,
g2102, p2103, n2104, s2105, m2106 )
TSCP d2100,
d2101, g2102, p2103, n2104, s2105, m2106;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3241 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2100 );
X2 = xlibtypes_chk_2dgc( g2102 );
X3 = xlibtypes_chk_2dxpointap( p2103 );
XFillPolygon( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2101 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( n2104 ),
TSCP_INT( s2105 ), TSCP_INT( m2106 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xfillarc_v );
DEFSTRING( t3248, "XFILLARC", 8 );
EXTERNVOIDP( XFillArc );
TSCP xws6_xfillarc( d2137,
d2138,
g2139,
x2140,
y2141, w2142, h2143, a2144, a2145 )
TSCP d2137,
d2138,
g2139,
x2140, y2141, w2142, h2143, a2144, a2145;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3248 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2137 );
X2 = xlibtypes_chk_2dgc( g2139 );
XFillArc( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2138 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2140 ),
TSCP_INT( y2141 ),
TSCP_UNSIGNED( w2142 ),
TSCP_UNSIGNED( h2143 ),
TSCP_INT( a2144 ), TSCP_INT( a2145 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xfillarcs_v );
DEFSTRING( t3254, "XFILLARCS", 9 );
EXTERNVOIDP( XFillArcs );
TSCP xws6_xfillarcs( d2176, d2177, g2178, a2179, n2180 )
TSCP d2176, d2177, g2178, a2179, n2180;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3254 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2176 );
X2 = xlibtypes_chk_2dgc( g2178 );
X3 = xlibtypes_chk_2dxarcap( a2179 );
XFillArcs( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2177 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ), TSCP_INT( n2180 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xloadfont_v );
DEFSTRING( t3261, "XLOADFONT", 9 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNUNSIGNEDP( XLoadFont );
TSCP xws6_xloadfont( d2200, n2201 )
TSCP d2200, n2201;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3261 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2200 );
if ( NOT( AND( EQ( TSCPTAG( n2201 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2201 ), STRINGTAG ) ) )
) goto L3264;
X2 = n2201;
goto L3265;
L3264:
X2 = scrt6_error( c2210,
c2211, CONS( n2201, EMPTYLIST ) );
L3265:
X3 = UNSIGNED_TSCP( XLoadFont( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xqueryfont_v );
DEFSTRING( t3268, "XQUERYFONT", 10 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNPOINTERP( XQueryFont );
TSCP xws6_xqueryfont( d2218, f2219 )
TSCP d2218, f2219;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3268 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2218 );
X3 = POINTER_TSCP( XQueryFont( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( f2219 ) ) );
X2 = sc_cons( c2226, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xloadqueryfont_v );
DEFSTRING( t3272, "XLOADQUERYFONT", 14 );
EXTERNPOINTERP( XLoadQueryFont );
TSCP xws6_xloadqueryfont( d2233, n2234 )
TSCP d2233, n2234;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3272 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2233 );
if ( NOT( AND( EQ( TSCPTAG( n2234 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2234 ), STRINGTAG ) ) )
) goto L3275;
X2 = n2234;
goto L3276;
L3275:
X2 = scrt6_error( c2210,
c2211, CONS( n2234, EMPTYLIST ) );
L3276:
X4 = POINTER_TSCP( XLoadQueryFont( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) ) );
X3 = sc_cons( c2226, X4 );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xfreefont_v );
DEFSTRING( t3279, "XFREEFONT", 9 );
EXTERNTSCPP( xlibtypes_chk_2dxfontstructp );
EXTERNTSCP( xlibtypes_chk_2dxfontstructp_v );
EXTERNVOIDP( XFreeFont );
TSCP xws6_xfreefont( d2249, f2250 )
TSCP d2249, f2250;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3279 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2249 );
X2 = xlibtypes_chk_2dxfontstructp( f2250 );
XFreeFont( TSCP_POINTER( X1 ), TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xgetfontproperty_v );
DEFSTRING( t3285, "XGETFONTPROPERTY", 16 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNINTP( XGetFontProperty );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP xws6_xgetfontproperty( f2265, n2266 )
TSCP f2265, n2266;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3285 ) ) );
X1 = xlibtypes_chk_2dxfontstructp( f2265 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = INT_TSCP( XGetFontProperty( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( n2266 ),
TSCP_POINTER( X2 ) ) );
X6 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xunloadfont_v );
DEFSTRING( t3291, "XUNLOADFONT", 11 );
EXTERNVOIDP( XUnloadFont );
TSCP xws6_xunloadfont( d2285, f2286 )
TSCP d2285, f2286;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3291 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2285 );
XUnloadFont( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( f2286 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xlistfonts_v );
DEFSTRING( t3296, "XLISTFONTS", 10 );
EXTERNPOINTERP( XListFonts );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP xws6_xlistfonts( d2302, p2303, m2304 )
TSCP d2302, p2303, m2304;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3296 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2302 );
if ( NOT( AND( EQ( TSCPTAG( p2303 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p2303 ), STRINGTAG ) ) )
) goto L3299;
X2 = p2303;
goto L3300;
L3299:
X2 = scrt6_error( c2210,
c2211, CONS( p2303, EMPTYLIST ) );
L3300:
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = POINTER_TSCP( XListFonts( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( m2304 ),
TSCP_POINTER( X3 ) ) );
X4 = sc_cons( c2317, X5 );
X7 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X6 = sc_cons( X7, EMPTYLIST );
X5 = sc_cons( X4, X6 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws6_xfreefontnames_v );
DEFSTRING( t3305, "XFREEFONTNAMES", 14 );
EXTERNTSCPP( xlibtypes_chk_2dcharpap );
EXTERNTSCP( xlibtypes_chk_2dcharpap_v );
EXTERNVOIDP( XFreeFontNames );
TSCP xws6_xfreefontnames( l2325 )
TSCP l2325;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3305 ) ) );
X1 = xlibtypes_chk_2dcharpap( l2325 );
XFreeFontNames( TSCP_POINTER( X1 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xlistfontswithinfo_v );
DEFSTRING( t3310, "XLISTFONTSWITHINFO", 18 );
EXTERNPOINTERP( XListFontsWithInfo );
TSCP xws6_xlistfontswithinfo( d2340, p2341, m2342 )
TSCP d2340, p2341, m2342;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3310 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2340 );
if ( NOT( AND( EQ( TSCPTAG( p2341 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p2341 ), STRINGTAG ) ) )
) goto L3313;
X2 = p2341;
goto L3314;
L3313:
X2 = scrt6_error( c2210,
c2211, CONS( p2341, EMPTYLIST ) );
L3314:
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = POINTER_TSCP( XListFontsWithInfo( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( m2342 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ) ) );
X5 = sc_cons( c2317, X6 );
X8 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X11 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X10 = sc_cons( c2357, X11 );
X9 = sc_cons( X10, EMPTYLIST );
X7 = sc_cons( X8, X9 );
X6 = sc_cons( X5, X7 );
POPSTACKTRACE( X6 );
}
DEFTSCP( xws6_xfreefontinfo_v );
DEFSTRING( t3320, "XFREEFONTINFO", 13 );
EXTERNTSCPP( xlibtypes_chk_2dxfontstructap );
EXTERNTSCP( xlibtypes_chk_2dxfontstructap_v );
EXTERNVOIDP( XFreeFontInfo );
TSCP xws6_xfreefontinfo( n2367, i2368, c2369 )
TSCP n2367, i2368, c2369;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3320 ) ) );
X1 = xlibtypes_chk_2dcharpap( n2367 );
X2 = xlibtypes_chk_2dxfontstructap( i2368 );
XFreeFontInfo( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( c2369 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xsetfontpath_v );
DEFSTRING( t3326, "XSETFONTPATH", 12 );
EXTERNVOIDP( XSetFontPath );
TSCP xws6_xsetfontpath( d2386, d2387, n2388 )
TSCP d2386, d2387, n2388;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3326 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2386 );
X2 = xlibtypes_chk_2dcharpap( d2387 );
XSetFontPath( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2388 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xgetfontpath_v );
DEFSTRING( t3332, "XGETFONTPATH", 12 );
EXTERNPOINTERP( XGetFontPath );
TSCP xws6_xgetfontpath( d2404, n2405 )
TSCP d2404, n2405;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3332 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2404 );
X3 = POINTER_TSCP( XGetFontPath( TSCP_POINTER( X1 ),
TSCP_INT( n2405 ) ) );
X2 = sc_cons( c2317, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xfreefontpath_v );
DEFSTRING( t3336, "XFREEFONTPATH", 13 );
EXTERNPOINTERP( XFreeFontPath );
TSCP xws6_xfreefontpath( l2417 )
TSCP l2417;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3336 ) ) );
X1 = xlibtypes_chk_2dcharpap( l2417 );
X3 = POINTER_TSCP( XFreeFontPath( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c2317, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xtextwidth_v );
DEFSTRING( t3340, "XTEXTWIDTH", 10 );
EXTERNINTP( XTextWidth );
TSCP xws6_xtextwidth( f2429, s2430, c2431 )
TSCP f2429, s2430, c2431;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3340 ) ) );
X1 = xlibtypes_chk_2dxfontstructp( f2429 );
if ( NOT( AND( EQ( TSCPTAG( s2430 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2430 ), STRINGTAG ) ) )
) goto L3343;
X2 = s2430;
goto L3344;
L3343:
X2 = scrt6_error( c2210,
c2211, CONS( s2430, EMPTYLIST ) );
L3344:
X3 = INT_TSCP( XTextWidth( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( c2431 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xtextwidth16_v );
DEFSTRING( t3347, "XTEXTWIDTH16", 12 );
EXTERNTSCPP( xlibtypes_chk_2dxchar2bap );
EXTERNTSCP( xlibtypes_chk_2dxchar2bap_v );
EXTERNINTP( XTextWidth16 );
TSCP xws6_xtextwidth16( f2449, s2450, c2451 )
TSCP f2449, s2450, c2451;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3347 ) ) );
X1 = xlibtypes_chk_2dxfontstructp( f2449 );
X2 = xlibtypes_chk_2dxchar2bap( s2450 );
X3 = INT_TSCP( XTextWidth16( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( c2451 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xtextextents_v );
DEFSTRING( t3352, "XTEXTEXTENTS", 12 );
EXTERNVOIDP( XTextExtents );
TSCP xws6_xtextextents( f2471, s2472, n2473 )
TSCP f2471, s2472, n2473;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3352 ) ) );
X1 = xlibtypes_chk_2dxfontstructp( f2471 );
if ( NOT( AND( EQ( TSCPTAG( s2472 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2472 ), STRINGTAG ) ) )
) goto L3355;
X2 = s2472;
goto L3356;
L3355:
X2 = scrt6_error( c2210,
c2211, CONS( s2472, EMPTYLIST ) );
L3356:
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( 48 ), EMPTYLIST );
XTextExtents( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2473 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ) );
X7 = FALSEVALUE;
X9 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X11 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X13 = scrt4_c_2dint_2dref( X5, _TSCP( 0 ) );
X15 = sc_cons( c2492, X6 );
X14 = sc_cons( X15, EMPTYLIST );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X8 = sc_cons( X9, X10 );
POPSTACKTRACE( X8 );
}
DEFTSCP( xws6_xtextextents16_v );
DEFSTRING( t3365, "XTEXTEXTENTS16", 14 );
EXTERNVOIDP( XTextExtents16 );
TSCP xws6_xtextextents16( f2508, s2509, n2510 )
TSCP f2508, s2509, n2510;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3365 ) ) );
X1 = xlibtypes_chk_2dxfontstructp( f2508 );
X2 = xlibtypes_chk_2dxchar2bap( s2509 );
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( 48 ), EMPTYLIST );
XTextExtents16( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2510 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ) );
X7 = FALSEVALUE;
X9 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X11 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X13 = scrt4_c_2dint_2dref( X5, _TSCP( 0 ) );
X15 = sc_cons( c2492, X6 );
X14 = sc_cons( X15, EMPTYLIST );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X8 = sc_cons( X9, X10 );
POPSTACKTRACE( X8 );
}
DEFTSCP( xws6_xquerytextextents_v );
DEFSTRING( t3376, "XQUERYTEXTEXTENTS", 17 );
EXTERNVOIDP( XQueryTextExtents );
TSCP xws6_xquerytextextents( d2542, f2543, s2544, n2545 )
TSCP d2542, f2543, s2544, n2545;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3376 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2542 );
if ( NOT( AND( EQ( TSCPTAG( s2544 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2544 ), STRINGTAG ) ) )
) goto L3379;
X2 = s2544;
goto L3380;
L3379:
X2 = scrt6_error( c2210,
c2211, CONS( s2544, EMPTYLIST ) );
L3380:
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( 48 ), EMPTYLIST );
XQueryTextExtents( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( f2543 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2545 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ) );
X7 = FALSEVALUE;
X9 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X11 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X13 = scrt4_c_2dint_2dref( X5, _TSCP( 0 ) );
X15 = sc_cons( c2492, X6 );
X14 = sc_cons( X15, EMPTYLIST );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X8 = sc_cons( X9, X10 );
POPSTACKTRACE( X8 );
}
DEFTSCP( xws6_xquerytextextents16_v );
DEFSTRING( t3389, "XQUERYTEXTEXTENTS16", 19 );
EXTERNVOIDP( XQueryTextExtents16 );
TSCP xws6_xquerytextextents16( d2581, f2582, s2583, n2584 )
TSCP d2581, f2582, s2583, n2584;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3389 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2581 );
X2 = xlibtypes_chk_2dxchar2bap( s2583 );
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( 48 ), EMPTYLIST );
XQueryTextExtents16( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( f2582 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2584 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ) );
X7 = FALSEVALUE;
X9 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X11 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X13 = scrt4_c_2dint_2dref( X5, _TSCP( 0 ) );
X15 = sc_cons( c2492, X6 );
X14 = sc_cons( X15, EMPTYLIST );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X8 = sc_cons( X9, X10 );
POPSTACKTRACE( X8 );
}
DEFTSCP( xws6_xdrawtext_v );
DEFSTRING( t3400, "XDRAWTEXT", 9 );
EXTERNTSCPP( xlibtypes_chk_2dxtextitemap );
EXTERNTSCP( xlibtypes_chk_2dxtextitemap_v );
EXTERNVOIDP( XDrawText );
TSCP xws6_xdrawtext( d2617,
d2618,
g2619, x2620, y2621, i2622, n2623 )
TSCP d2617,
d2618, g2619, x2620, y2621, i2622, n2623;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3400 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2617 );
X2 = xlibtypes_chk_2dgc( g2619 );
X3 = xlibtypes_chk_2dxtextitemap( i2622 );
XDrawText( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2618 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2620 ),
TSCP_INT( y2621 ),
TSCP_POINTER( X3 ), TSCP_INT( n2623 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawtext16_v );
DEFSTRING( t3407, "XDRAWTEXT16", 11 );
EXTERNTSCPP( xlibtypes_chk_2dxtextitem16p );
EXTERNTSCP( xlibtypes_chk_2dxtextitem16p_v );
EXTERNVOIDP( XDrawText16 );
TSCP xws6_xdrawtext16( d2652,
d2653,
g2654, x2655, y2656, i2657, n2658 )
TSCP d2652,
d2653, g2654, x2655, y2656, i2657, n2658;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3407 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2652 );
X2 = xlibtypes_chk_2dgc( g2654 );
X3 = xlibtypes_chk_2dxtextitem16p( i2657 );
XDrawText16( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2653 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2655 ),
TSCP_INT( y2656 ),
TSCP_POINTER( X3 ), TSCP_INT( n2658 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawstring_v );
DEFSTRING( t3414, "XDRAWSTRING", 11 );
EXTERNVOIDP( XDrawString );
TSCP xws6_xdrawstring( d2687,
d2688,
g2689, x2690, y2691, s2692, l2693 )
TSCP d2687,
d2688, g2689, x2690, y2691, s2692, l2693;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3414 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2687 );
X2 = xlibtypes_chk_2dgc( g2689 );
if ( NOT( AND( EQ( TSCPTAG( s2692 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2692 ), STRINGTAG ) ) )
) goto L3418;
X3 = s2692;
goto L3419;
L3418:
X3 = scrt6_error( c2210,
c2211, CONS( s2692, EMPTYLIST ) );
L3419:
XDrawString( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2688 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2690 ),
TSCP_INT( y2691 ),
TSCP_POINTER( X3 ), TSCP_INT( l2693 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawstring16_v );
DEFSTRING( t3423, "XDRAWSTRING16", 13 );
EXTERNVOIDP( XDrawString16 );
TSCP xws6_xdrawstring16( d2724,
d2725,
g2726,
x2727, y2728, s2729, l2730 )
TSCP d2724,
d2725, g2726, x2727, y2728, s2729, l2730;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3423 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2724 );
X2 = xlibtypes_chk_2dgc( g2726 );
X3 = xlibtypes_chk_2dxchar2bap( s2729 );
XDrawString16( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2725 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2727 ),
TSCP_INT( y2728 ),
TSCP_POINTER( X3 ),
TSCP_INT( l2730 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawimagestring_v );
DEFSTRING( t3430, "XDRAWIMAGESTRING", 16 );
EXTERNVOIDP( XDrawImageString );
TSCP xws6_xdrawimagestring( d2759,
d2760,
g2761,
x2762, y2763, s2764, l2765 )
TSCP d2759,
d2760, g2761, x2762, y2763, s2764, l2765;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3430 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2759 );
X2 = xlibtypes_chk_2dgc( g2761 );
if ( NOT( AND( EQ( TSCPTAG( s2764 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2764 ), STRINGTAG ) ) )
) goto L3434;
X3 = s2764;
goto L3435;
L3434:
X3 = scrt6_error( c2210,
c2211, CONS( s2764, EMPTYLIST ) );
L3435:
XDrawImageString( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2760 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2762 ),
TSCP_INT( y2763 ),
TSCP_POINTER( X3 ),
TSCP_INT( l2765 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xdrawimagestring16_v );
DEFSTRING( t3439, "XDRAWIMAGESTRING16", 18 );
EXTERNVOIDP( XDrawImageString16 );
TSCP xws6_xdrawimagestring16( d2796,
d2797,
g2798,
x2799, y2800, s2801, l2802 )
TSCP d2796,
d2797, g2798, x2799, y2800, s2801, l2802;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3439 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2796 );
X2 = xlibtypes_chk_2dgc( g2798 );
X3 = xlibtypes_chk_2dxchar2bap( s2801 );
XDrawImageString16( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2797 ),
TSCP_POINTER( X2 ),
TSCP_INT( x2799 ),
TSCP_INT( y2800 ),
TSCP_POINTER( X3 ),
TSCP_INT( l2802 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xputimage_v );
DEFSTRING( t3446, "XPUTIMAGE", 9 );
EXTERNTSCPP( xlibtypes_chk_2dximagep );
EXTERNTSCP( xlibtypes_chk_2dximagep_v );
EXTERNVOIDP( XPutImage );
TSCP xws6_xputimage( d2834,
d2835,
g2836,
i2837,
r2838,
r2839, x2840, y2841, r2842, r2843 )
TSCP d2834,
d2835,
g2836,
i2837,
r2838, r2839, x2840, y2841, r2842, r2843;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3446 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2834 );
X2 = xlibtypes_chk_2dgc( g2836 );
X3 = xlibtypes_chk_2dximagep( i2837 );
XPutImage( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2835 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_INT( r2838 ),
TSCP_INT( r2839 ),
TSCP_INT( x2840 ),
TSCP_INT( y2841 ),
TSCP_UNSIGNED( r2842 ),
TSCP_UNSIGNED( r2843 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xgetimage_v );
DEFSTRING( t3453, "XGETIMAGE", 9 );
EXTERNPOINTERP( XGetImage );
TSCP xws6_xgetimage( d2879,
d2880,
x2881,
y2882, w2883, h2884, p2885, f2886 )
TSCP d2879,
d2880,
x2881, y2882, w2883, h2884, p2885, f2886;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3453 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2879 );
X3 = POINTER_TSCP( XGetImage( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2880 ),
TSCP_INT( x2881 ),
TSCP_INT( y2882 ),
TSCP_UNSIGNED( w2883 ),
TSCP_UNSIGNED( h2884 ),
TSCP_UNSIGNED( p2885 ),
TSCP_INT( f2886 ) ) );
X2 = sc_cons( c2905, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xgetsubimage_v );
DEFSTRING( t3457, "XGETSUBIMAGE", 12 );
EXTERNPOINTERP( XGetSubImage );
TSCP xws6_xgetsubimage( d2921,
d2922,
x2923,
y2924,
w2925,
h2926,
p2927, f2928, d2929, d2930, d2931 )
TSCP d2921,
d2922,
x2923,
y2924,
w2925,
h2926, p2927, f2928, d2929, d2930, d2931;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3457 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2921 );
X2 = xlibtypes_chk_2dximagep( d2929 );
X4 = POINTER_TSCP( XGetSubImage( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d2922 ),
TSCP_INT( x2923 ),
TSCP_INT( y2924 ),
TSCP_UNSIGNED( w2925 ),
TSCP_UNSIGNED( h2926 ),
TSCP_UNSIGNED( p2927 ),
TSCP_INT( f2928 ),
TSCP_POINTER( X2 ),
TSCP_INT( d2930 ),
TSCP_INT( d2931 ) ) );
X3 = sc_cons( c2905, X4 );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws6_xcreatefontcursor_v );
DEFSTRING( t3462, "XCREATEFONTCURSOR", 17 );
EXTERNUNSIGNEDP( XCreateFontCursor );
TSCP xws6_xcreatefontcursor( d2962, w2963 )
TSCP d2962, w2963;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3462 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2962 );
X2 = UNSIGNED_TSCP( XCreateFontCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w2963 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xcreatepixmapcursor_v );
DEFSTRING( t3466, "XCREATEPIXMAPCURSOR", 19 );
EXTERNTSCPP( xlibtypes_chk_2dxcolorp );
EXTERNTSCP( xlibtypes_chk_2dxcolorp_v );
EXTERNUNSIGNEDP( XCreatePixmapCursor );
TSCP xws6_xcreatepixmapcursor( d2981,
s2982,
m2983,
f2984, b2985, x2986, y2987 )
TSCP d2981,
s2982, m2983, f2984, b2985, x2986, y2987;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3466 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2981 );
X2 = xlibtypes_chk_2dxcolorp( f2984 );
X3 = xlibtypes_chk_2dxcolorp( b2985 );
X4 = UNSIGNED_TSCP( XCreatePixmapCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s2982 ),
TSCP_UNSIGNED( m2983 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_UNSIGNED( x2986 ),
TSCP_UNSIGNED( y2987 ) ) );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xcreateglyphcursor_v );
DEFSTRING( t3472, "XCREATEGLYPHCURSOR", 18 );
EXTERNUNSIGNEDP( XCreateGlyphCursor );
TSCP xws6_xcreateglyphcursor( d3015,
s3016,
m3017,
s3018, m3019, f3020, b3021 )
TSCP d3015,
s3016, m3017, s3018, m3019, f3020, b3021;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3472 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3015 );
X2 = xlibtypes_chk_2dxcolorp( f3020 );
X3 = xlibtypes_chk_2dxcolorp( b3021 );
X4 = UNSIGNED_TSCP( XCreateGlyphCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s3016 ),
TSCP_UNSIGNED( m3017 ),
TSCP_UNSIGNED( s3018 ),
TSCP_UNSIGNED( m3019 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) ) );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xrecolorcursor_v );
DEFSTRING( t3478, "XRECOLORCURSOR", 14 );
EXTERNVOIDP( XRecolorCursor );
TSCP xws6_xrecolorcursor( d3046, c3047, f3048, b3049 )
TSCP d3046, c3047, f3048, b3049;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3478 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3046 );
X2 = xlibtypes_chk_2dxcolorp( f3048 );
X3 = xlibtypes_chk_2dxcolorp( b3049 );
XRecolorCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c3047 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( X4 );
}
DEFTSCP( xws6_xfreecursor_v );
DEFSTRING( t3485, "XFREECURSOR", 11 );
EXTERNVOIDP( XFreeCursor );
TSCP xws6_xfreecursor( d3067, c3068 )
TSCP d3067, c3068;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3485 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3067 );
XFreeCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( c3068 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xquerybestcursor_v );
DEFSTRING( t3490, "XQUERYBESTCURSOR", 16 );
EXTERNINTP( XQueryBestCursor );
TSCP xws6_xquerybestcursor( d3086, d3087, w3088, h3089 )
TSCP d3086, d3087, w3088, h3089;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3490 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3086 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = INT_TSCP( XQueryBestCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d3087 ),
TSCP_UNSIGNED( w3088 ),
TSCP_UNSIGNED( h3089 ),
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( xws6_xdefinecursor_v );
DEFSTRING( t3497, "XDEFINECURSOR", 13 );
EXTERNVOIDP( XDefineCursor );
TSCP xws6_xdefinecursor( d3113, w3114, c3115 )
TSCP d3113, w3114, c3115;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3497 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3113 );
XDefineCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w3114 ),
TSCP_UNSIGNED( c3115 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws6_xundefinecursor_v );
DEFSTRING( t3502, "XUNDEFINECURSOR", 15 );
EXTERNVOIDP( XUndefineCursor );
TSCP xws6_xundefinecursor( d3131, w3132 )
TSCP d3131, w3132;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3502 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d3131 );
XUndefineCursor( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w3132 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
scrt6__init();
xlibtypes__init();
MAXDISPLAY( 0 );
}
void xws6__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xws6 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t3147 ) ),
ADR( xws6_xclearwindow_v ),
MAKEPROCEDURE( 2,
0,
xws6_xclearwindow, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3152 ) ),
ADR( xws6_xcleararea_v ),
MAKEPROCEDURE( 7,
0,
xws6_xcleararea, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3157 ) ),
ADR( xws6_xcopyarea_v ),
MAKEPROCEDURE( 10,
0, xws6_xcopyarea, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3163 ) ),
ADR( xws6_xcopyplane_v ),
MAKEPROCEDURE( 11,
0,
xws6_xcopyplane, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3169 ) ),
ADR( xws6_xdrawpoint_v ),
MAKEPROCEDURE( 5,
0,
xws6_xdrawpoint, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3175 ) ),
ADR( xws6_xdrawpoints_v ),
MAKEPROCEDURE( 6,
0,
xws6_xdrawpoints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3182 ) ),
ADR( xws6_xdrawline_v ),
MAKEPROCEDURE( 7,
0, xws6_xdrawline, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3188 ) ),
ADR( xws6_xdrawlines_v ),
MAKEPROCEDURE( 6,
0,
xws6_xdrawlines, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3195 ) ),
ADR( xws6_xdrawsegments_v ),
MAKEPROCEDURE( 5,
0,
xws6_xdrawsegments, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3202 ) ),
ADR( xws6_xdrawrectangle_v ),
MAKEPROCEDURE( 7,
0,
xws6_xdrawrectangle, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3208 ) ),
ADR( xws6_xdrawrectangles_v ),
MAKEPROCEDURE( 5,
0,
xws6_xdrawrectangles, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3215 ) ),
ADR( xws6_xdrawarc_v ),
MAKEPROCEDURE( 9,
0, xws6_xdrawarc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3221 ) ),
ADR( xws6_xdrawarcs_v ),
MAKEPROCEDURE( 5,
0, xws6_xdrawarcs, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3228 ) ),
ADR( xws6_xfillrectangle_v ),
MAKEPROCEDURE( 7,
0,
xws6_xfillrectangle, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3234 ) ),
ADR( xws6_xfillrectangles_v ),
MAKEPROCEDURE( 5,
0,
xws6_xfillrectangles, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3241 ) ),
ADR( xws6_xfillpolygon_v ),
MAKEPROCEDURE( 7,
0,
xws6_xfillpolygon, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3248 ) ),
ADR( xws6_xfillarc_v ),
MAKEPROCEDURE( 9,
0, xws6_xfillarc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3254 ) ),
ADR( xws6_xfillarcs_v ),
MAKEPROCEDURE( 5,
0, xws6_xfillarcs, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3261 ) ),
ADR( xws6_xloadfont_v ),
MAKEPROCEDURE( 2,
0, xws6_xloadfont, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3268 ) ),
ADR( xws6_xqueryfont_v ),
MAKEPROCEDURE( 2,
0,
xws6_xqueryfont, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3272 ) ),
ADR( xws6_xloadqueryfont_v ),
MAKEPROCEDURE( 2,
0,
xws6_xloadqueryfont, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3279 ) ),
ADR( xws6_xfreefont_v ),
MAKEPROCEDURE( 2,
0, xws6_xfreefont, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3285 ) ),
ADR( xws6_xgetfontproperty_v ),
MAKEPROCEDURE( 2,
0,
xws6_xgetfontproperty, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3291 ) ),
ADR( xws6_xunloadfont_v ),
MAKEPROCEDURE( 2,
0,
xws6_xunloadfont, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3296 ) ),
ADR( xws6_xlistfonts_v ),
MAKEPROCEDURE( 3,
0,
xws6_xlistfonts, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3305 ) ),
ADR( xws6_xfreefontnames_v ),
MAKEPROCEDURE( 1,
0,
xws6_xfreefontnames, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3310 ) ),
ADR( xws6_xlistfontswithinfo_v ),
MAKEPROCEDURE( 3,
0,
xws6_xlistfontswithinfo,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3320 ) ),
ADR( xws6_xfreefontinfo_v ),
MAKEPROCEDURE( 3,
0,
xws6_xfreefontinfo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3326 ) ),
ADR( xws6_xsetfontpath_v ),
MAKEPROCEDURE( 3,
0,
xws6_xsetfontpath, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3332 ) ),
ADR( xws6_xgetfontpath_v ),
MAKEPROCEDURE( 2,
0,
xws6_xgetfontpath, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3336 ) ),
ADR( xws6_xfreefontpath_v ),
MAKEPROCEDURE( 1,
0,
xws6_xfreefontpath, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3340 ) ),
ADR( xws6_xtextwidth_v ),
MAKEPROCEDURE( 3,
0,
xws6_xtextwidth, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3347 ) ),
ADR( xws6_xtextwidth16_v ),
MAKEPROCEDURE( 3,
0,
xws6_xtextwidth16, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3352 ) ),
ADR( xws6_xtextextents_v ),
MAKEPROCEDURE( 3,
0,
xws6_xtextextents, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3365 ) ),
ADR( xws6_xtextextents16_v ),
MAKEPROCEDURE( 3,
0,
xws6_xtextextents16, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3376 ) ),
ADR( xws6_xquerytextextents_v ),
MAKEPROCEDURE( 4,
0,
xws6_xquerytextextents,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3389 ) ),
ADR( xws6_xquerytextextents16_v ),
MAKEPROCEDURE( 4,
0,
xws6_xquerytextextents16,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3400 ) ),
ADR( xws6_xdrawtext_v ),
MAKEPROCEDURE( 7,
0, xws6_xdrawtext, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3407 ) ),
ADR( xws6_xdrawtext16_v ),
MAKEPROCEDURE( 7,
0,
xws6_xdrawtext16, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3414 ) ),
ADR( xws6_xdrawstring_v ),
MAKEPROCEDURE( 7,
0,
xws6_xdrawstring, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3423 ) ),
ADR( xws6_xdrawstring16_v ),
MAKEPROCEDURE( 7,
0,
xws6_xdrawstring16, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3430 ) ),
ADR( xws6_xdrawimagestring_v ),
MAKEPROCEDURE( 7,
0,
xws6_xdrawimagestring, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3439 ) ),
ADR( xws6_xdrawimagestring16_v ),
MAKEPROCEDURE( 7,
0,
xws6_xdrawimagestring16,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3446 ) ),
ADR( xws6_xputimage_v ),
MAKEPROCEDURE( 10,
0, xws6_xputimage, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3453 ) ),
ADR( xws6_xgetimage_v ),
MAKEPROCEDURE( 8,
0, xws6_xgetimage, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3457 ) ),
ADR( xws6_xgetsubimage_v ),
MAKEPROCEDURE( 11,
0,
xws6_xgetsubimage, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3462 ) ),
ADR( xws6_xcreatefontcursor_v ),
MAKEPROCEDURE( 2,
0,
xws6_xcreatefontcursor,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3466 ) ),
ADR( xws6_xcreatepixmapcursor_v ),
MAKEPROCEDURE( 7,
0,
xws6_xcreatepixmapcursor,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3472 ) ),
ADR( xws6_xcreateglyphcursor_v ),
MAKEPROCEDURE( 7,
0,
xws6_xcreateglyphcursor,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3478 ) ),
ADR( xws6_xrecolorcursor_v ),
MAKEPROCEDURE( 4,
0,
xws6_xrecolorcursor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3485 ) ),
ADR( xws6_xfreecursor_v ),
MAKEPROCEDURE( 2,
0,
xws6_xfreecursor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3490 ) ),
ADR( xws6_xquerybestcursor_v ),
MAKEPROCEDURE( 4,
0,
xws6_xquerybestcursor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3497 ) ),
ADR( xws6_xdefinecursor_v ),
MAKEPROCEDURE( 3,
0,
xws6_xdefinecursor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3502 ) ),
ADR( xws6_xundefinecursor_v ),
MAKEPROCEDURE( 2,
0,
xws6_xundefinecursor, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.