This is xws2.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2209, "VISUALP", 7 );
DEFSTATICTSCP( c1757 );
DEFSTRING( t2210, "SCREENP", 7 );
DEFSTATICTSCP( c1718 );
DEFSTRING( t2211, "GC", 2 );
DEFSTATICTSCP( c1697 );
DEFSTRING( t2212, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1610, t2212 );
DEFSTRING( t2213, "CHK-STRING", 10 );
DEFSTATICTSCP( c1609 );
DEFSTRING( t2214, "DISPLAYP", 8 );
DEFSTATICTSCP( c1606 );
static void init_constants()
{
c1757 = STRINGTOSYMBOL( U_TX( ADR( t2209 ) ) );
CONSTANTEXP( ADR( c1757 ) );
c1718 = STRINGTOSYMBOL( U_TX( ADR( t2210 ) ) );
CONSTANTEXP( ADR( c1718 ) );
c1697 = STRINGTOSYMBOL( U_TX( ADR( t2211 ) ) );
CONSTANTEXP( ADR( c1697 ) );
c1609 = STRINGTOSYMBOL( U_TX( ADR( t2213 ) ) );
CONSTANTEXP( ADR( c1609 ) );
c1606 = STRINGTOSYMBOL( U_TX( ADR( t2214 ) ) );
CONSTANTEXP( ADR( c1606 ) );
}
DEFTSCP( xws2_xopendisplay_v );
DEFSTRING( t2215, "XOPENDISPLAY", 12 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNPOINTERP( XOpenDisplay );
TSCP xws2_xopendisplay( d1601 )
TSCP d1601;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2215 ) ) );
if ( NOT( AND( EQ( TSCPTAG( d1601 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( d1601 ), STRINGTAG ) ) )
) goto L2217;
X1 = d1601;
goto L2218;
L2217:
X1 = scrt6_error( c1609,
c1610, CONS( d1601, EMPTYLIST ) );
L2218:
X3 = POINTER_TSCP( XOpenDisplay( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c1606, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xallplanes_v );
DEFSTRING( t2221, "XALLPLANES", 10 );
EXTERNINTP( XAllPlanes );
TSCP xws2_xallplanes( )
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2221 ) ) );
X1 = INT_TSCP( XAllPlanes( ) );
POPSTACKTRACE( X1 );
}
DEFTSCP( xws2_xblackpixel_v );
DEFSTRING( t2224, "XBLACKPIXEL", 11 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNINTP( XBlackPixel );
TSCP xws2_xblackpixel( d1623, s1624 )
TSCP d1623, s1624;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2224 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1623 );
X2 = INT_TSCP( XBlackPixel( TSCP_POINTER( X1 ),
TSCP_INT( s1624 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xwhitepixel_v );
DEFSTRING( t2228, "XWHITEPIXEL", 11 );
EXTERNINTP( XWhitePixel );
TSCP xws2_xwhitepixel( d1637, s1638 )
TSCP d1637, s1638;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2228 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1637 );
X2 = INT_TSCP( XWhitePixel( TSCP_POINTER( X1 ),
TSCP_INT( s1638 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xconnectionnumber_v );
DEFSTRING( t2232, "XCONNECTIONNUMBER", 17 );
EXTERNINTP( XConnectionNumber );
TSCP xws2_xconnectionnumber( d1650 )
TSCP d1650;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2232 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1650 );
X2 = INT_TSCP( XConnectionNumber( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultcolormap_v );
DEFSTRING( t2236, "XDEFAULTCOLORMAP", 16 );
EXTERNUNSIGNEDP( XDefaultColormap );
TSCP xws2_xdefaultcolormap( d1661, s1662 )
TSCP d1661, s1662;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2236 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1661 );
X2 = UNSIGNED_TSCP( XDefaultColormap( TSCP_POINTER( X1 ),
TSCP_INT( s1662 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultdepth_v );
DEFSTRING( t2240, "XDEFAULTDEPTH", 13 );
EXTERNINTP( XDefaultDepth );
TSCP xws2_xdefaultdepth( d1675, s1676 )
TSCP d1675, s1676;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2240 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1675 );
X2 = INT_TSCP( XDefaultDepth( TSCP_POINTER( X1 ),
TSCP_INT( s1676 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultgc_v );
DEFSTRING( t2244, "XDEFAULTGC", 10 );
EXTERNPOINTERP( XDefaultGC );
TSCP xws2_xdefaultgc( d1689, s1690 )
TSCP d1689, s1690;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2244 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1689 );
X3 = POINTER_TSCP( XDefaultGC( TSCP_POINTER( X1 ),
TSCP_INT( s1690 ) ) );
X2 = sc_cons( c1697, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultrootwindow_v );
DEFSTRING( t2248, "XDEFAULTROOTWINDOW", 18 );
EXTERNUNSIGNEDP( XDefaultRootWindow );
TSCP xws2_xdefaultrootwindow( d1703 )
TSCP d1703;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2248 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1703 );
X2 = UNSIGNED_TSCP( XDefaultRootWindow( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultscreenofdisplay_v );
DEFSTRING( t2252, "XDEFAULTSCREENOFDISPLAY", 23 );
EXTERNPOINTERP( XDefaultScreenOfDisplay );
TSCP xws2_xdefaultscreenofdisplay( d1713 )
TSCP d1713;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2252 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1713 );
X3 = POINTER_TSCP( XDefaultScreenOfDisplay( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c1718, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xscreenofdisplay_v );
DEFSTRING( t2256, "XSCREENOFDISPLAY", 16 );
EXTERNPOINTERP( XScreenOfDisplay );
TSCP xws2_xscreenofdisplay( d1725, s1726 )
TSCP d1725, s1726;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2256 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1725 );
X3 = POINTER_TSCP( XScreenOfDisplay( TSCP_POINTER( X1 ),
TSCP_INT( s1726 ) ) );
X2 = sc_cons( c1718, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultscreen_v );
DEFSTRING( t2260, "XDEFAULTSCREEN", 14 );
EXTERNINTP( XDefaultScreen );
TSCP xws2_xdefaultscreen( d1738 )
TSCP d1738;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2260 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1738 );
X2 = INT_TSCP( XDefaultScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultvisual_v );
DEFSTRING( t2264, "XDEFAULTVISUAL", 14 );
EXTERNPOINTERP( XDefaultVisual );
TSCP xws2_xdefaultvisual( d1749, s1750 )
TSCP d1749, s1750;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2264 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1749 );
X3 = POINTER_TSCP( XDefaultVisual( TSCP_POINTER( X1 ),
TSCP_INT( s1750 ) ) );
X2 = sc_cons( c1757, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplaycells_v );
DEFSTRING( t2268, "XDISPLAYCELLS", 13 );
EXTERNINTP( XDisplayCells );
TSCP xws2_xdisplaycells( d1764, s1765 )
TSCP d1764, s1765;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2268 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1764 );
X2 = INT_TSCP( XDisplayCells( TSCP_POINTER( X1 ),
TSCP_INT( s1765 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplayplanes_v );
DEFSTRING( t2272, "XDISPLAYPLANES", 14 );
EXTERNINTP( XDisplayPlanes );
TSCP xws2_xdisplayplanes( d1778, s1779 )
TSCP d1778, s1779;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2272 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1778 );
X2 = INT_TSCP( XDisplayPlanes( TSCP_POINTER( X1 ),
TSCP_INT( s1779 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplaystring_v );
DEFSTRING( t2276, "XDISPLAYSTRING", 14 );
EXTERNTSCPP( scrt4_c_2dstring_2d_3estring );
EXTERNTSCP( scrt4_c_2dstring_2d_3estring_v );
EXTERNPOINTERP( XDisplayString );
TSCP xws2_xdisplaystring( d1791 )
TSCP d1791;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2276 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1791 );
X3 = POINTER_TSCP( XDisplayString( TSCP_POINTER( X1 ) ) );
X2 = scrt4_c_2dstring_2d_3estring( X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_tprocessed_c7616d50_v );
DEFSTRING( t2280, "XLASTKNOWNREQUESTPROCESSED", 26 );
EXTERNINTP( XLastKnownRequestProcessed );
TSCP xws2_tprocessed_c7616d50( d1801 )
TSCP d1801;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2280 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1801 );
X2 = INT_TSCP( XLastKnownRequestProcessed( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xnextrequest_v );
DEFSTRING( t2284, "XNEXTREQUEST", 12 );
EXTERNINTP( XNextRequest );
TSCP xws2_xnextrequest( d1811 )
TSCP d1811;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2284 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1811 );
X2 = INT_TSCP( XNextRequest( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xprotocolversion_v );
DEFSTRING( t2288, "XPROTOCOLVERSION", 16 );
EXTERNINTP( XProtocolVersion );
TSCP xws2_xprotocolversion( d1821 )
TSCP d1821;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2288 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1821 );
X2 = INT_TSCP( XProtocolVersion( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xprotocolrevision_v );
DEFSTRING( t2292, "XPROTOCOLREVISION", 17 );
EXTERNINTP( XProtocolRevision );
TSCP xws2_xprotocolrevision( d1831 )
TSCP d1831;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2292 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1831 );
X2 = INT_TSCP( XProtocolRevision( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xqlength_v );
DEFSTRING( t2296, "XQLENGTH", 8 );
EXTERNINTP( XQLength );
TSCP xws2_xqlength( d1841 )
TSCP d1841;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2296 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1841 );
X2 = INT_TSCP( XQLength( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xrootwindow_v );
DEFSTRING( t2300, "XROOTWINDOW", 11 );
EXTERNUNSIGNEDP( XRootWindow );
TSCP xws2_xrootwindow( d1852, s1853 )
TSCP d1852, s1853;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2300 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1852 );
X2 = UNSIGNED_TSCP( XRootWindow( TSCP_POINTER( X1 ),
TSCP_INT( s1853 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xscreencount_v );
DEFSTRING( t2304, "XSCREENCOUNT", 12 );
EXTERNINTP( XScreenCount );
TSCP xws2_xscreencount( d1865 )
TSCP d1865;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2304 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1865 );
X2 = INT_TSCP( XScreenCount( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xservervendor_v );
DEFSTRING( t2308, "XSERVERVENDOR", 13 );
EXTERNPOINTERP( XServerVendor );
TSCP xws2_xservervendor( d1875 )
TSCP d1875;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2308 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1875 );
X3 = POINTER_TSCP( XServerVendor( TSCP_POINTER( X1 ) ) );
X2 = scrt4_c_2dstring_2d_3estring( X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xvendorrelease_v );
DEFSTRING( t2312, "XVENDORRELEASE", 14 );
EXTERNINTP( XVendorRelease );
TSCP xws2_xvendorrelease( d1885 )
TSCP d1885;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2312 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1885 );
X2 = INT_TSCP( XVendorRelease( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_ximagebyteorder_v );
DEFSTRING( t2316, "XIMAGEBYTEORDER", 15 );
EXTERNINTP( XImageByteOrder );
TSCP xws2_ximagebyteorder( d1895 )
TSCP d1895;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2316 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1895 );
X2 = INT_TSCP( XImageByteOrder( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xbitmapunit_v );
DEFSTRING( t2320, "XBITMAPUNIT", 11 );
EXTERNINTP( XBitmapUnit );
TSCP xws2_xbitmapunit( d1905 )
TSCP d1905;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2320 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1905 );
X2 = INT_TSCP( XBitmapUnit( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xbitmapbitorder_v );
DEFSTRING( t2324, "XBITMAPBITORDER", 15 );
EXTERNINTP( XBitmapBitOrder );
TSCP xws2_xbitmapbitorder( d1915 )
TSCP d1915;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2324 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1915 );
X2 = INT_TSCP( XBitmapBitOrder( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xbitmappad_v );
DEFSTRING( t2328, "XBITMAPPAD", 10 );
EXTERNINTP( XBitmapPad );
TSCP xws2_xbitmappad( d1925 )
TSCP d1925;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2328 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1925 );
X2 = INT_TSCP( XBitmapPad( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplayheight_v );
DEFSTRING( t2332, "XDISPLAYHEIGHT", 14 );
EXTERNINTP( XDisplayHeight );
TSCP xws2_xdisplayheight( d1936, s1937 )
TSCP d1936, s1937;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2332 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1936 );
X2 = INT_TSCP( XDisplayHeight( TSCP_POINTER( X1 ),
TSCP_INT( s1937 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplayheightmm_v );
DEFSTRING( t2336, "XDISPLAYHEIGHTMM", 16 );
EXTERNINTP( XDisplayHeightMM );
TSCP xws2_xdisplayheightmm( d1950, s1951 )
TSCP d1950, s1951;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2336 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1950 );
X2 = INT_TSCP( XDisplayHeightMM( TSCP_POINTER( X1 ),
TSCP_INT( s1951 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplaywidth_v );
DEFSTRING( t2340, "XDISPLAYWIDTH", 13 );
EXTERNINTP( XDisplayWidth );
TSCP xws2_xdisplaywidth( d1964, s1965 )
TSCP d1964, s1965;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2340 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1964 );
X2 = INT_TSCP( XDisplayWidth( TSCP_POINTER( X1 ),
TSCP_INT( s1965 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplaywidthmm_v );
DEFSTRING( t2344, "XDISPLAYWIDTHMM", 15 );
EXTERNINTP( XDisplayWidthMM );
TSCP xws2_xdisplaywidthmm( d1978, s1979 )
TSCP d1978, s1979;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2344 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1978 );
X2 = INT_TSCP( XDisplayWidthMM( TSCP_POINTER( X1 ),
TSCP_INT( s1979 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xblackpixelofscreen_v );
DEFSTRING( t2348, "XBLACKPIXELOFSCREEN", 19 );
EXTERNTSCPP( xlibtypes_chk_2dscreenp );
EXTERNTSCP( xlibtypes_chk_2dscreenp_v );
EXTERNINTP( XBlackPixelOfScreen );
TSCP xws2_xblackpixelofscreen( s1991 )
TSCP s1991;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2348 ) ) );
X1 = xlibtypes_chk_2dscreenp( s1991 );
X2 = INT_TSCP( XBlackPixelOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xwhitepixelofscreen_v );
DEFSTRING( t2352, "XWHITEPIXELOFSCREEN", 19 );
EXTERNINTP( XWhitePixelOfScreen );
TSCP xws2_xwhitepixelofscreen( s2001 )
TSCP s2001;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2352 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2001 );
X2 = INT_TSCP( XWhitePixelOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xcellsofscreen_v );
DEFSTRING( t2356, "XCELLSOFSCREEN", 14 );
EXTERNINTP( XCellsOfScreen );
TSCP xws2_xcellsofscreen( s2011 )
TSCP s2011;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2356 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2011 );
X2 = INT_TSCP( XCellsOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultcolormapofscreen_v );
DEFSTRING( t2360, "XDEFAULTCOLORMAPOFSCREEN", 24 );
EXTERNUNSIGNEDP( XDefaultColormapOfScreen );
TSCP xws2_xdefaultcolormapofscreen( s2021 )
TSCP s2021;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2360 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2021 );
X2 = UNSIGNED_TSCP( XDefaultColormapOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultdepthofscreen_v );
DEFSTRING( t2364, "XDEFAULTDEPTHOFSCREEN", 21 );
EXTERNINTP( XDefaultDepthOfScreen );
TSCP xws2_xdefaultdepthofscreen( s2031 )
TSCP s2031;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2364 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2031 );
X2 = INT_TSCP( XDefaultDepthOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultgcofscreen_v );
DEFSTRING( t2368, "XDEFAULTGCOFSCREEN", 18 );
EXTERNPOINTERP( XDefaultGCOfScreen );
TSCP xws2_xdefaultgcofscreen( s2041 )
TSCP s2041;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2368 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2041 );
X3 = POINTER_TSCP( XDefaultGCOfScreen( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c1697, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdefaultvisualofscreen_v );
DEFSTRING( t2372, "XDEFAULTVISUALOFSCREEN", 22 );
EXTERNPOINTERP( XDefaultVisualOfScreen );
TSCP xws2_xdefaultvisualofscreen( s2051 )
TSCP s2051;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2372 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2051 );
X3 = POINTER_TSCP( XDefaultVisualOfScreen( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c1757, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdoesbackingstore_v );
DEFSTRING( t2376, "XDOESBACKINGSTORE", 17 );
EXTERNINTP( XDoesBackingStore );
TSCP xws2_xdoesbackingstore( s2061 )
TSCP s2061;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2376 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2061 );
X2 = INT_TSCP( XDoesBackingStore( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdoessaveunders_v );
DEFSTRING( t2380, "XDOESSAVEUNDERS", 15 );
EXTERNINTP( XDoesSaveUnders );
TSCP xws2_xdoessaveunders( s2071 )
TSCP s2071;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2380 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2071 );
X2 = INT_TSCP( XDoesSaveUnders( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xdisplayofscreen_v );
DEFSTRING( t2384, "XDISPLAYOFSCREEN", 16 );
EXTERNPOINTERP( XDisplayOfScreen );
TSCP xws2_xdisplayofscreen( s2081 )
TSCP s2081;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2384 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2081 );
X3 = POINTER_TSCP( XDisplayOfScreen( TSCP_POINTER( X1 ) ) );
X2 = sc_cons( c1606, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xeventmaskofscreen_v );
DEFSTRING( t2388, "XEVENTMASKOFSCREEN", 18 );
EXTERNINTP( XEventMaskOfScreen );
TSCP xws2_xeventmaskofscreen( s2091 )
TSCP s2091;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2388 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2091 );
X2 = INT_TSCP( XEventMaskOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xwidthofscreen_v );
DEFSTRING( t2392, "XWIDTHOFSCREEN", 14 );
EXTERNINTP( XWidthOfScreen );
TSCP xws2_xwidthofscreen( s2101 )
TSCP s2101;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2392 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2101 );
X2 = INT_TSCP( XWidthOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xheightofscreen_v );
DEFSTRING( t2396, "XHEIGHTOFSCREEN", 15 );
EXTERNINTP( XHeightOfScreen );
TSCP xws2_xheightofscreen( s2111 )
TSCP s2111;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2396 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2111 );
X2 = INT_TSCP( XHeightOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xwidthmmofscreen_v );
DEFSTRING( t2400, "XWIDTHMMOFSCREEN", 16 );
EXTERNINTP( XWidthMMOfScreen );
TSCP xws2_xwidthmmofscreen( s2121 )
TSCP s2121;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2400 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2121 );
X2 = INT_TSCP( XWidthMMOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xheightmmofscreen_v );
DEFSTRING( t2404, "XHEIGHTMMOFSCREEN", 17 );
EXTERNINTP( XHeightMMOfScreen );
TSCP xws2_xheightmmofscreen( s2131 )
TSCP s2131;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2404 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2131 );
X2 = INT_TSCP( XHeightMMOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xmaxcmapsofscreen_v );
DEFSTRING( t2408, "XMAXCMAPSOFSCREEN", 17 );
EXTERNINTP( XMaxCmapsOfScreen );
TSCP xws2_xmaxcmapsofscreen( s2141 )
TSCP s2141;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2408 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2141 );
X2 = INT_TSCP( XMaxCmapsOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xmincmapsofscreen_v );
DEFSTRING( t2412, "XMINCMAPSOFSCREEN", 17 );
EXTERNINTP( XMinCmapsOfScreen );
TSCP xws2_xmincmapsofscreen( s2151 )
TSCP s2151;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2412 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2151 );
X2 = INT_TSCP( XMinCmapsOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xplanesofscreen_v );
DEFSTRING( t2416, "XPLANESOFSCREEN", 15 );
EXTERNINTP( XPlanesOfScreen );
TSCP xws2_xplanesofscreen( s2161 )
TSCP s2161;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2416 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2161 );
X2 = INT_TSCP( XPlanesOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xrootwindowofscreen_v );
DEFSTRING( t2420, "XROOTWINDOWOFSCREEN", 19 );
EXTERNUNSIGNEDP( XRootWindowOfScreen );
TSCP xws2_xrootwindowofscreen( s2171 )
TSCP s2171;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2420 ) ) );
X1 = xlibtypes_chk_2dscreenp( s2171 );
X2 = UNSIGNED_TSCP( XRootWindowOfScreen( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xnoop_v );
DEFSTRING( t2424, "XNOOP", 5 );
EXTERNVOIDP( XNoOp );
TSCP xws2_xnoop( d2181 )
TSCP d2181;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2424 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2181 );
XNoOp( TSCP_POINTER( X1 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws2_xfree_v );
DEFSTRING( t2429, "XFREE", 5 );
EXTERNVOIDP( XFree );
TSCP xws2_xfree( d2192 )
TSCP d2192;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2429 ) ) );
XFree( TSCP_UNSIGNED( d2192 ) );
X1 = FALSEVALUE;
POPSTACKTRACE( X1 );
}
DEFTSCP( xws2_xclosedisplay_v );
DEFSTRING( t2433, "XCLOSEDISPLAY", 13 );
EXTERNVOIDP( XCloseDisplay );
TSCP xws2_xclosedisplay( d2203 )
TSCP d2203;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2433 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2203 );
XCloseDisplay( TSCP_POINTER( X1 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
xlibtypes__init();
scrt6__init();
MAXDISPLAY( 0 );
}
void xws2__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xws2 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2215 ) ),
ADR( xws2_xopendisplay_v ),
MAKEPROCEDURE( 1,
0,
xws2_xopendisplay, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2221 ) ),
ADR( xws2_xallplanes_v ),
MAKEPROCEDURE( 0,
0,
xws2_xallplanes, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2224 ) ),
ADR( xws2_xblackpixel_v ),
MAKEPROCEDURE( 2,
0,
xws2_xblackpixel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2228 ) ),
ADR( xws2_xwhitepixel_v ),
MAKEPROCEDURE( 2,
0,
xws2_xwhitepixel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2232 ) ),
ADR( xws2_xconnectionnumber_v ),
MAKEPROCEDURE( 1,
0,
xws2_xconnectionnumber,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2236 ) ),
ADR( xws2_xdefaultcolormap_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdefaultcolormap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2240 ) ),
ADR( xws2_xdefaultdepth_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdefaultdepth, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2244 ) ),
ADR( xws2_xdefaultgc_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdefaultgc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2248 ) ),
ADR( xws2_xdefaultrootwindow_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdefaultrootwindow,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2252 ) ),
ADR( xws2_xdefaultscreenofdisplay_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdefaultscreenofdisplay,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2256 ) ),
ADR( xws2_xscreenofdisplay_v ),
MAKEPROCEDURE( 2,
0,
xws2_xscreenofdisplay, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2260 ) ),
ADR( xws2_xdefaultscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdefaultscreen, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2264 ) ),
ADR( xws2_xdefaultvisual_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdefaultvisual, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2268 ) ),
ADR( xws2_xdisplaycells_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdisplaycells, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2272 ) ),
ADR( xws2_xdisplayplanes_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdisplayplanes, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2276 ) ),
ADR( xws2_xdisplaystring_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdisplaystring, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2280 ) ),
ADR( xws2_tprocessed_c7616d50_v ),
MAKEPROCEDURE( 1,
0,
xws2_tprocessed_c7616d50,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2284 ) ),
ADR( xws2_xnextrequest_v ),
MAKEPROCEDURE( 1,
0,
xws2_xnextrequest, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2288 ) ),
ADR( xws2_xprotocolversion_v ),
MAKEPROCEDURE( 1,
0,
xws2_xprotocolversion, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2292 ) ),
ADR( xws2_xprotocolrevision_v ),
MAKEPROCEDURE( 1,
0,
xws2_xprotocolrevision,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2296 ) ),
ADR( xws2_xqlength_v ),
MAKEPROCEDURE( 1,
0, xws2_xqlength, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2300 ) ),
ADR( xws2_xrootwindow_v ),
MAKEPROCEDURE( 2,
0,
xws2_xrootwindow, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2304 ) ),
ADR( xws2_xscreencount_v ),
MAKEPROCEDURE( 1,
0,
xws2_xscreencount, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2308 ) ),
ADR( xws2_xservervendor_v ),
MAKEPROCEDURE( 1,
0,
xws2_xservervendor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2312 ) ),
ADR( xws2_xvendorrelease_v ),
MAKEPROCEDURE( 1,
0,
xws2_xvendorrelease, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2316 ) ),
ADR( xws2_ximagebyteorder_v ),
MAKEPROCEDURE( 1,
0,
xws2_ximagebyteorder, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2320 ) ),
ADR( xws2_xbitmapunit_v ),
MAKEPROCEDURE( 1,
0,
xws2_xbitmapunit, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2324 ) ),
ADR( xws2_xbitmapbitorder_v ),
MAKEPROCEDURE( 1,
0,
xws2_xbitmapbitorder, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2328 ) ),
ADR( xws2_xbitmappad_v ),
MAKEPROCEDURE( 1,
0,
xws2_xbitmappad, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2332 ) ),
ADR( xws2_xdisplayheight_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdisplayheight, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2336 ) ),
ADR( xws2_xdisplayheightmm_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdisplayheightmm, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2340 ) ),
ADR( xws2_xdisplaywidth_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdisplaywidth, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2344 ) ),
ADR( xws2_xdisplaywidthmm_v ),
MAKEPROCEDURE( 2,
0,
xws2_xdisplaywidthmm, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2348 ) ),
ADR( xws2_xblackpixelofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xblackpixelofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2352 ) ),
ADR( xws2_xwhitepixelofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xwhitepixelofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2356 ) ),
ADR( xws2_xcellsofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xcellsofscreen, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2360 ) ),
ADR( xws2_xdefaultcolormapofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdefaultcolormapofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2364 ) ),
ADR( xws2_xdefaultdepthofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdefaultdepthofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2368 ) ),
ADR( xws2_xdefaultgcofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdefaultgcofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2372 ) ),
ADR( xws2_xdefaultvisualofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdefaultvisualofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2376 ) ),
ADR( xws2_xdoesbackingstore_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdoesbackingstore,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2380 ) ),
ADR( xws2_xdoessaveunders_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdoessaveunders, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2384 ) ),
ADR( xws2_xdisplayofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xdisplayofscreen, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2388 ) ),
ADR( xws2_xeventmaskofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xeventmaskofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2392 ) ),
ADR( xws2_xwidthofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xwidthofscreen, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2396 ) ),
ADR( xws2_xheightofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xheightofscreen, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2400 ) ),
ADR( xws2_xwidthmmofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xwidthmmofscreen, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2404 ) ),
ADR( xws2_xheightmmofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xheightmmofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2408 ) ),
ADR( xws2_xmaxcmapsofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xmaxcmapsofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2412 ) ),
ADR( xws2_xmincmapsofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xmincmapsofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2416 ) ),
ADR( xws2_xplanesofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xplanesofscreen, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2420 ) ),
ADR( xws2_xrootwindowofscreen_v ),
MAKEPROCEDURE( 1,
0,
xws2_xrootwindowofscreen,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2424 ) ),
ADR( xws2_xnoop_v ),
MAKEPROCEDURE( 1,
0, xws2_xnoop, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2429 ) ),
ADR( xws2_xfree_v ),
MAKEPROCEDURE( 1,
0, xws2_xfree, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2433 ) ),
ADR( xws2_xclosedisplay_v ),
MAKEPROCEDURE( 1,
0,
xws2_xclosedisplay, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.