This is xws8.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2090, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c2062, t2090 );
DEFSTRING( t2091, "CHK-STRING", 10 );
DEFSTATICTSCP( c2061 );
DEFSTRING( t2092, "XTIMECOORDAP", 12 );
DEFSTATICTSCP( c1965 );
DEFSTRING( t2093, "XEVENTP", 7 );
DEFSTATICTSCP( c1678 );
static void init_constants()
{
c2061 = STRINGTOSYMBOL( U_TX( ADR( t2091 ) ) );
CONSTANTEXP( ADR( c2061 ) );
c1965 = STRINGTOSYMBOL( U_TX( ADR( t2092 ) ) );
CONSTANTEXP( ADR( c1965 ) );
c1678 = STRINGTOSYMBOL( U_TX( ADR( t2093 ) ) );
CONSTANTEXP( ADR( c1678 ) );
}
DEFTSCP( xws8_xselectinput_v );
DEFSTRING( t2094, "XSELECTINPUT", 12 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNVOIDP( XSelectInput );
TSCP xws8_xselectinput( d1603, w1604, m1605 )
TSCP d1603, w1604, m1605;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2094 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1603 );
XSelectInput( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1604 ),
TSCP_INT( m1605 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xflush_v );
DEFSTRING( t2099, "XFLUSH", 6 );
EXTERNVOIDP( XFlush );
TSCP xws8_xflush( d1620 )
TSCP d1620;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2099 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1620 );
XFlush( TSCP_POINTER( X1 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xsync_v );
DEFSTRING( t2104, "XSYNC", 5 );
EXTERNVOIDP( XSync );
TSCP xws8_xsync( d1632, d1633 )
TSCP d1632, d1633;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2104 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1632 );
XSync( TSCP_POINTER( X1 ), TSCP_INT( d1633 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xeventsqueued_v );
DEFSTRING( t2109, "XEVENTSQUEUED", 13 );
EXTERNINTP( XEventsQueued );
TSCP xws8_xeventsqueued( d1647, m1648 )
TSCP d1647, m1648;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2109 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1647 );
X2 = INT_TSCP( XEventsQueued( TSCP_POINTER( X1 ),
TSCP_INT( m1648 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xpending_v );
DEFSTRING( t2113, "XPENDING", 8 );
EXTERNINTP( XPending );
TSCP xws8_xpending( d1660 )
TSCP d1660;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2113 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1660 );
X2 = INT_TSCP( XPending( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xnextevent_v );
DEFSTRING( t2117, "XNEXTEVENT", 10 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNVOIDP( XNextEvent );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP xws8_xnextevent( d1671 )
TSCP d1671;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2117 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1671 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
XNextEvent( TSCP_POINTER( X1 ), TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( sc_cons( c1678, X2 ) );
}
DEFTSCP( xws8_xpeekevent_v );
DEFSTRING( t2123, "XPEEKEVENT", 10 );
EXTERNVOIDP( XPeekEvent );
TSCP xws8_xpeekevent( d1687 )
TSCP d1687;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2123 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1687 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
XPeekEvent( TSCP_POINTER( X1 ), TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( sc_cons( c1678, X2 ) );
}
DEFTSCP( xws8_xifevent_v );
DEFSTRING( t2129, "XIFEVENT", 8 );
EXTERNTSCPP( xlibtypes_chk_2dcharp );
EXTERNTSCP( xlibtypes_chk_2dcharp_v );
EXTERNVOIDP( XIfEvent );
TSCP xws8_xifevent( d1703, p1704, a1705 )
TSCP d1703, p1704, a1705;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2129 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1703 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
X3 = xlibtypes_chk_2dcharp( a1705 );
XIfEvent( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( p1704 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( sc_cons( c1678, X2 ) );
}
DEFTSCP( xws8_xcheckifevent_v );
DEFSTRING( t2136, "XCHECKIFEVENT", 13 );
EXTERNINTP( XCheckIfEvent );
TSCP xws8_xcheckifevent( d1725, p1726, a1727 )
TSCP d1725, p1726, a1727;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2136 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1725 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
X3 = xlibtypes_chk_2dcharp( a1727 );
X4 = INT_TSCP( XCheckIfEvent( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( p1726 ),
TSCP_POINTER( X3 ) ) );
X7 = sc_cons( c1678, X2 );
X6 = sc_cons( X7, EMPTYLIST );
X5 = sc_cons( X4, X6 );
POPSTACKTRACE( X5 );
}
DEFTSCP( xws8_xpeekifevent_v );
DEFSTRING( t2143, "XPEEKIFEVENT", 12 );
EXTERNVOIDP( XPeekIfEvent );
TSCP xws8_xpeekifevent( d1748, p1749, a1750 )
TSCP d1748, p1749, a1750;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2143 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1748 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
X3 = xlibtypes_chk_2dcharp( a1750 );
XPeekIfEvent( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( p1749 ),
TSCP_POINTER( X3 ) );
X4 = FALSEVALUE;
POPSTACKTRACE( sc_cons( c1678, X2 ) );
}
DEFTSCP( xws8_xwindowevent_v );
DEFSTRING( t2150, "XWINDOWEVENT", 12 );
EXTERNVOIDP( XWindowEvent );
TSCP xws8_xwindowevent( d1770, w1771, m1772 )
TSCP d1770, w1771, m1772;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2150 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1770 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
XWindowEvent( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1771 ),
TSCP_INT( m1772 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( sc_cons( c1678, X2 ) );
}
DEFTSCP( xws8_xcheckwindowevent_v );
DEFSTRING( t2156, "XCHECKWINDOWEVENT", 17 );
EXTERNINTP( XCheckWindowEvent );
TSCP xws8_xcheckwindowevent( d1792, w1793, m1794 )
TSCP d1792, w1793, m1794;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2156 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1792 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
X3 = INT_TSCP( XCheckWindowEvent( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1793 ),
TSCP_INT( m1794 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c1678, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws8_xmaskevent_v );
DEFSTRING( t2162, "XMASKEVENT", 10 );
EXTERNVOIDP( XMaskEvent );
TSCP xws8_xmaskevent( d1814, m1815 )
TSCP d1814, m1815;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2162 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1814 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
XMaskEvent( TSCP_POINTER( X1 ),
TSCP_INT( m1815 ), TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( sc_cons( c1678, X2 ) );
}
DEFTSCP( xws8_xcheckmaskevent_v );
DEFSTRING( t2168, "XCHECKMASKEVENT", 15 );
EXTERNINTP( XCheckMaskEvent );
TSCP xws8_xcheckmaskevent( d1832, m1833 )
TSCP d1832, m1833;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2168 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1832 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
X3 = INT_TSCP( XCheckMaskEvent( TSCP_POINTER( X1 ),
TSCP_INT( m1833 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c1678, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws8_xchecktypedevent_v );
DEFSTRING( t2174, "XCHECKTYPEDEVENT", 16 );
EXTERNINTP( XCheckTypedEvent );
TSCP xws8_xchecktypedevent( d1851, t1852 )
TSCP d1851, t1852;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2174 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1851 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
X3 = INT_TSCP( XCheckTypedEvent( TSCP_POINTER( X1 ),
TSCP_INT( t1852 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c1678, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws8_xchecktypedwindowevent_v );
DEFSTRING( t2180, "XCHECKTYPEDWINDOWEVENT", 22 );
EXTERNINTP( XCheckTypedWindowEvent );
TSCP xws8_xchecktypedwindowevent( d1871, w1872, t1873 )
TSCP d1871, w1872, t1873;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2180 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1871 );
X2 = sc_make_2dstring( _TSCP( 384 ), EMPTYLIST );
X3 = INT_TSCP( XCheckTypedWindowEvent( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1872 ),
TSCP_INT( t1873 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c1678, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws8_xputbackevent_v );
DEFSTRING( t2186, "XPUTBACKEVENT", 13 );
EXTERNTSCPP( xlibtypes_chk_2dxeventp );
EXTERNTSCP( xlibtypes_chk_2dxeventp_v );
EXTERNVOIDP( XPutBackEvent );
TSCP xws8_xputbackevent( d1892, e1893 )
TSCP d1892, e1893;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2186 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1892 );
X2 = xlibtypes_chk_2dxeventp( e1893 );
XPutBackEvent( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws8_xsendevent_v );
DEFSTRING( t2192, "XSENDEVENT", 10 );
EXTERNINTP( XSendEvent );
TSCP xws8_xsendevent( d1910, w1911, p1912, e1913, e1914 )
TSCP d1910, w1911, p1912, e1913, e1914;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2192 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1910 );
X2 = xlibtypes_chk_2dxeventp( e1914 );
X3 = INT_TSCP( XSendEvent( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1911 ),
TSCP_INT( p1912 ),
TSCP_INT( e1913 ),
TSCP_POINTER( X2 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws8_xdisplaymotionbuffersize_v );
DEFSTRING( t2197, "XDISPLAYMOTIONBUFFERSIZE", 24 );
EXTERNINTP( XDisplayMotionBufferSize );
TSCP xws8_xdisplaymotionbuffersize( d1932 )
TSCP d1932;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2197 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1932 );
X2 = INT_TSCP( XDisplayMotionBufferSize( TSCP_POINTER( X1 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xgetmotionevents_v );
DEFSTRING( t2201, "XGETMOTIONEVENTS", 16 );
EXTERNPOINTERP( XGetMotionEvents );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP xws8_xgetmotionevents( d1946, w1947, s1948, s1949 )
TSCP d1946, w1947, s1948, s1949;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2201 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1946 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = POINTER_TSCP( XGetMotionEvents( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1947 ),
TSCP_UNSIGNED( s1948 ),
TSCP_UNSIGNED( s1949 ),
TSCP_POINTER( X2 ) ) );
X3 = sc_cons( c1965, X4 );
X6 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws8_xsetafterfunction_v );
DEFSTRING( t2207, "XSETAFTERFUNCTION", 17 );
EXTERNPOINTERP( XSetAfterFunction );
TSCP xws8_xsetafterfunction( d1973, f1974 )
TSCP d1973, f1974;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2207 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1973 );
X2 = POINTER_TSCP( XSetAfterFunction( TSCP_POINTER( X1 ),
TSCP_POINTER( f1974 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xsynchronize_v );
DEFSTRING( t2211, "XSYNCHRONIZE", 12 );
EXTERNPOINTERP( XSynchronize );
TSCP xws8_xsynchronize( d1987, o1988 )
TSCP d1987, o1988;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2211 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1987 );
X2 = POINTER_TSCP( XSynchronize( TSCP_POINTER( X1 ),
TSCP_INT( o1988 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xseterrorhandler_v );
DEFSTRING( t2215, "XSETERRORHANDLER", 16 );
EXTERNVOIDP( XSetErrorHandler );
TSCP xws8_xseterrorhandler( h2000 )
TSCP h2000;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2215 ) ) );
XSetErrorHandler( TSCP_POINTER( h2000 ) );
X1 = FALSEVALUE;
POPSTACKTRACE( X1 );
}
DEFTSCP( xws8_xgeterrortext_v );
DEFSTRING( t2219, "XGETERRORTEXT", 13 );
EXTERNVOIDP( XGetErrorText );
EXTERNTSCPP( scrt4_c_2dbyte_2dref );
EXTERNTSCP( scrt4_c_2dbyte_2dref_v );
TSCP xws8_xgeterrortext( d2014, c2015, n2016 )
TSCP d2014, c2015, n2016;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2219 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2014 );
X2 = sc_make_2dstring( _TSCP( 4 ), EMPTYLIST );
XGetErrorText( TSCP_POINTER( X1 ),
TSCP_INT( c2015 ),
TSCP_POINTER( X2 ),
TSCP_INT( n2016 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( scrt4_c_2dbyte_2dref( X2, _TSCP( 0 ) ) );
}
DEFTSCP( xws8_xgeterrordatabasetext_v );
DEFSTRING( t2225, "XGETERRORDATABASETEXT", 21 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNVOIDP( XGetErrorDatabaseText );
TSCP xws8_xgeterrordatabasetext( d2039,
n2040, t2041, d2042, n2043 )
TSCP d2039, n2040, t2041, d2042, n2043;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2225 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d2039 );
if ( NOT( AND( EQ( TSCPTAG( n2040 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2040 ), STRINGTAG ) ) )
) goto L2228;
X2 = n2040;
goto L2229;
L2228:
X2 = scrt6_error( c2061,
c2062, CONS( n2040, EMPTYLIST ) );
L2229:
if ( NOT( AND( EQ( TSCPTAG( t2041 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( t2041 ), STRINGTAG ) ) )
) goto L2231;
X3 = t2041;
goto L2232;
L2231:
X3 = scrt6_error( c2061,
c2062, CONS( t2041, EMPTYLIST ) );
L2232:
if ( NOT( AND( EQ( TSCPTAG( d2042 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( d2042 ), STRINGTAG ) ) )
) goto L2234;
X4 = d2042;
goto L2235;
L2234:
X4 = scrt6_error( c2061,
c2062, CONS( d2042, EMPTYLIST ) );
L2235:
X5 = sc_make_2dstring( _TSCP( 4 ), EMPTYLIST );
XGetErrorDatabaseText( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_INT( n2043 ) );
X6 = FALSEVALUE;
POPSTACKTRACE( scrt4_c_2dbyte_2dref( X5, _TSCP( 0 ) ) );
}
DEFTSCP( xws8_xdisplayname_v );
DEFSTRING( t2240, "XDISPLAYNAME", 12 );
EXTERNTSCPP( scrt4_c_2dstring_2d_3estring );
EXTERNTSCP( scrt4_c_2dstring_2d_3estring_v );
EXTERNPOINTERP( XDisplayName );
TSCP xws8_xdisplayname( d2072 )
TSCP d2072;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2240 ) ) );
if ( NOT( AND( EQ( TSCPTAG( d2072 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( d2072 ), STRINGTAG ) ) )
) goto L2242;
X1 = d2072;
goto L2243;
L2242:
X1 = scrt6_error( c2061,
c2062, CONS( d2072, EMPTYLIST ) );
L2243:
X3 = POINTER_TSCP( XDisplayName( TSCP_POINTER( X1 ) ) );
X2 = scrt4_c_2dstring_2d_3estring( X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws8_xsetioerrorhandler_v );
DEFSTRING( t2246, "XSETIOERRORHANDLER", 18 );
EXTERNVOIDP( XSetIOErrorHandler );
TSCP xws8_xsetioerrorhandler( h2084 )
TSCP h2084;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2246 ) ) );
XSetIOErrorHandler( TSCP_POINTER( h2084 ) );
X1 = FALSEVALUE;
POPSTACKTRACE( X1 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt6__init();
scrt4__init();
xlibtypes__init();
MAXDISPLAY( 0 );
}
void xws8__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xws8 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2094 ) ),
ADR( xws8_xselectinput_v ),
MAKEPROCEDURE( 3,
0,
xws8_xselectinput, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2099 ) ),
ADR( xws8_xflush_v ),
MAKEPROCEDURE( 1,
0, xws8_xflush, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2104 ) ),
ADR( xws8_xsync_v ),
MAKEPROCEDURE( 2,
0, xws8_xsync, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2109 ) ),
ADR( xws8_xeventsqueued_v ),
MAKEPROCEDURE( 2,
0,
xws8_xeventsqueued, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2113 ) ),
ADR( xws8_xpending_v ),
MAKEPROCEDURE( 1,
0, xws8_xpending, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2117 ) ),
ADR( xws8_xnextevent_v ),
MAKEPROCEDURE( 1,
0,
xws8_xnextevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2123 ) ),
ADR( xws8_xpeekevent_v ),
MAKEPROCEDURE( 1,
0,
xws8_xpeekevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2129 ) ),
ADR( xws8_xifevent_v ),
MAKEPROCEDURE( 3,
0, xws8_xifevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2136 ) ),
ADR( xws8_xcheckifevent_v ),
MAKEPROCEDURE( 3,
0,
xws8_xcheckifevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2143 ) ),
ADR( xws8_xpeekifevent_v ),
MAKEPROCEDURE( 3,
0,
xws8_xpeekifevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2150 ) ),
ADR( xws8_xwindowevent_v ),
MAKEPROCEDURE( 3,
0,
xws8_xwindowevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2156 ) ),
ADR( xws8_xcheckwindowevent_v ),
MAKEPROCEDURE( 3,
0,
xws8_xcheckwindowevent,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2162 ) ),
ADR( xws8_xmaskevent_v ),
MAKEPROCEDURE( 2,
0,
xws8_xmaskevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2168 ) ),
ADR( xws8_xcheckmaskevent_v ),
MAKEPROCEDURE( 2,
0,
xws8_xcheckmaskevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2174 ) ),
ADR( xws8_xchecktypedevent_v ),
MAKEPROCEDURE( 2,
0,
xws8_xchecktypedevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2180 ) ),
ADR( xws8_xchecktypedwindowevent_v ),
MAKEPROCEDURE( 3,
0,
xws8_xchecktypedwindowevent,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2186 ) ),
ADR( xws8_xputbackevent_v ),
MAKEPROCEDURE( 2,
0,
xws8_xputbackevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2192 ) ),
ADR( xws8_xsendevent_v ),
MAKEPROCEDURE( 5,
0,
xws8_xsendevent, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2197 ) ),
ADR( xws8_xdisplaymotionbuffersize_v ),
MAKEPROCEDURE( 1,
0,
xws8_xdisplaymotionbuffersize,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2201 ) ),
ADR( xws8_xgetmotionevents_v ),
MAKEPROCEDURE( 4,
0,
xws8_xgetmotionevents, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2207 ) ),
ADR( xws8_xsetafterfunction_v ),
MAKEPROCEDURE( 2,
0,
xws8_xsetafterfunction,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2211 ) ),
ADR( xws8_xsynchronize_v ),
MAKEPROCEDURE( 2,
0,
xws8_xsynchronize, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2215 ) ),
ADR( xws8_xseterrorhandler_v ),
MAKEPROCEDURE( 1,
0,
xws8_xseterrorhandler, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2219 ) ),
ADR( xws8_xgeterrortext_v ),
MAKEPROCEDURE( 3,
0,
xws8_xgeterrortext, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2225 ) ),
ADR( xws8_xgeterrordatabasetext_v ),
MAKEPROCEDURE( 5,
0,
xws8_xgeterrordatabasetext,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2240 ) ),
ADR( xws8_xdisplayname_v ),
MAKEPROCEDURE( 1,
0,
xws8_xdisplayname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2246 ) ),
ADR( xws8_xsetioerrorhandler_v ),
MAKEPROCEDURE( 1,
0,
xws8_xsetioerrorhandler,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.