This is xws4.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1982, "CHARAP", 6 );
DEFSTATICTSCP( c1758 );
DEFSTRING( t1983, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1743, t1983 );
DEFSTRING( t1984, "CHK-STRING", 10 );
DEFSTATICTSCP( c1742 );
DEFSTRING( t1985, "XWINDOWATTRIBUTESP", 18 );
DEFSTATICTSCP( c1646 );
DEFSTRING( t1986, "UNSIGNEDAP", 10 );
DEFSTATICTSCP( c1625 );
static void init_constants()
{
c1758 = STRINGTOSYMBOL( U_TX( ADR( t1982 ) ) );
CONSTANTEXP( ADR( c1758 ) );
c1742 = STRINGTOSYMBOL( U_TX( ADR( t1984 ) ) );
CONSTANTEXP( ADR( c1742 ) );
c1646 = STRINGTOSYMBOL( U_TX( ADR( t1985 ) ) );
CONSTANTEXP( ADR( c1646 ) );
c1625 = STRINGTOSYMBOL( U_TX( ADR( t1986 ) ) );
CONSTANTEXP( ADR( c1625 ) );
}
DEFTSCP( xws4_xquerytree_v );
DEFSTRING( t1987, "XQUERYTREE", 10 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNINTP( XQueryTree );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP xws4_xquerytree( d1606, w1607 )
TSCP d1606, w1607;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1987 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1606 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = INT_TSCP( XQueryTree( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1607 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ) ) );
X9 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X11 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X14 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X13 = sc_cons( c1625, X14 );
X15 = scrt4_c_2dunsigned_2dref( X5, _TSCP( 0 ) );
X14 = sc_cons( X15, EMPTYLIST );
X12 = sc_cons( X13, X14 );
X10 = sc_cons( X11, X12 );
X8 = sc_cons( X9, X10 );
X7 = sc_cons( X6, X8 );
POPSTACKTRACE( X7 );
}
DEFTSCP( xws4_xgetwindowattributes_v );
DEFSTRING( t1996, "XGETWINDOWATTRIBUTES", 20 );
EXTERNINTP( XGetWindowAttributes );
TSCP xws4_xgetwindowattributes( d1634, w1635 )
TSCP d1634, w1635;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1996 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1634 );
X2 = sc_make_2dstring( _TSCP( 368 ), EMPTYLIST );
X3 = INT_TSCP( XGetWindowAttributes( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1635 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c1646, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws4_xgetgeometry_v );
DEFSTRING( t2002, "XGETGEOMETRY", 12 );
EXTERNINTP( XGetGeometry );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP xws4_xgetgeometry( d1661, d1662 )
TSCP d1661, d1662;
{
TSCP X24,
X23,
X22,
X21,
X20,
X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2002 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1661 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X7 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X8 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X9 = INT_TSCP( XGetGeometry( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( d1662 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ),
TSCP_POINTER( X7 ),
TSCP_POINTER( X8 ) ) );
X12 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X14 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X16 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X18 = scrt4_c_2dunsigned_2dref( X5, _TSCP( 0 ) );
X20 = scrt4_c_2dunsigned_2dref( X6, _TSCP( 0 ) );
X22 = scrt4_c_2dunsigned_2dref( X7, _TSCP( 0 ) );
X24 = scrt4_c_2dunsigned_2dref( X8, _TSCP( 0 ) );
X23 = sc_cons( X24, EMPTYLIST );
X21 = sc_cons( X22, X23 );
X19 = sc_cons( X20, X21 );
X17 = sc_cons( X18, X19 );
X15 = sc_cons( X16, X17 );
X13 = sc_cons( X14, X15 );
X11 = sc_cons( X12, X13 );
X10 = sc_cons( X9, X11 );
POPSTACKTRACE( X10 );
}
DEFTSCP( xws4_xquerypointer_v );
DEFSTRING( t2014, "XQUERYPOINTER", 13 );
EXTERNINTP( XQueryPointer );
TSCP xws4_xquerypointer( d1698, w1699 )
TSCP d1698, w1699;
{
TSCP X24,
X23,
X22,
X21,
X20,
X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2014 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1698 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X7 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X8 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X9 = INT_TSCP( XQueryPointer( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1699 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ),
TSCP_POINTER( X7 ),
TSCP_POINTER( X8 ) ) );
X12 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X14 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X16 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
X18 = scrt4_c_2dint_2dref( X5, _TSCP( 0 ) );
X20 = scrt4_c_2dint_2dref( X6, _TSCP( 0 ) );
X22 = scrt4_c_2dint_2dref( X7, _TSCP( 0 ) );
X24 = scrt4_c_2dunsigned_2dref( X8, _TSCP( 0 ) );
X23 = sc_cons( X24, EMPTYLIST );
X21 = sc_cons( X22, X23 );
X19 = sc_cons( X20, X21 );
X17 = sc_cons( X18, X19 );
X15 = sc_cons( X16, X17 );
X13 = sc_cons( X14, X15 );
X11 = sc_cons( X12, X13 );
X10 = sc_cons( X9, X11 );
POPSTACKTRACE( X10 );
}
DEFTSCP( xws4_xinternatom_v );
DEFSTRING( t2026, "XINTERNATOM", 11 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNUNSIGNEDP( XInternAtom );
TSCP xws4_xinternatom( d1729, n1730, o1731 )
TSCP d1729, n1730, o1731;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2026 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1729 );
if ( NOT( AND( EQ( TSCPTAG( n1730 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n1730 ), STRINGTAG ) ) )
) goto L2029;
X2 = n1730;
goto L2030;
L2029:
X2 = scrt6_error( c1742,
c1743, CONS( n1730, EMPTYLIST ) );
L2030:
X3 = UNSIGNED_TSCP( XInternAtom( TSCP_POINTER( X1 ),
TSCP_POINTER( X2 ),
TSCP_INT( o1731 ) ) );
POPSTACKTRACE( X3 );
}
DEFTSCP( xws4_xgetatomname_v );
DEFSTRING( t2033, "XGETATOMNAME", 12 );
EXTERNPOINTERP( XGetAtomName );
TSCP xws4_xgetatomname( d1750, a1751 )
TSCP d1750, a1751;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2033 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1750 );
X3 = POINTER_TSCP( XGetAtomName( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( a1751 ) ) );
X2 = sc_cons( c1758, X3 );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws4_xgetwindowproperty_v );
DEFSTRING( t2037, "XGETWINDOWPROPERTY", 18 );
EXTERNINTP( XGetWindowProperty );
TSCP xws4_xgetwindowproperty( d1775,
w1776,
p1777,
o1778, l1779, d1780, r1781 )
TSCP d1775,
w1776, p1777, o1778, l1779, d1780, r1781;
{
TSCP X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2037 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1775 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X6 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X7 = INT_TSCP( XGetWindowProperty( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1776 ),
TSCP_UNSIGNED( p1777 ),
TSCP_INT( o1778 ),
TSCP_INT( l1779 ),
TSCP_INT( d1780 ),
TSCP_UNSIGNED( r1781 ),
TSCP_POINTER( X2 ),
TSCP_POINTER( X3 ),
TSCP_POINTER( X4 ),
TSCP_POINTER( X5 ),
TSCP_POINTER( X6 ) ) );
X10 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X12 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
X14 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X16 = scrt4_c_2dunsigned_2dref( X5, _TSCP( 0 ) );
X19 = scrt4_c_2dunsigned_2dref( X6, _TSCP( 0 ) );
X18 = sc_cons( c1758, X19 );
X17 = sc_cons( X18, EMPTYLIST );
X15 = sc_cons( X16, X17 );
X13 = sc_cons( X14, X15 );
X11 = sc_cons( X12, X13 );
X9 = sc_cons( X10, X11 );
X8 = sc_cons( X7, X9 );
POPSTACKTRACE( X8 );
}
DEFTSCP( xws4_xlistproperties_v );
DEFSTRING( t2047, "XLISTPROPERTIES", 15 );
EXTERNPOINTERP( XListProperties );
TSCP xws4_xlistproperties( d1817, w1818 )
TSCP d1817, w1818;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2047 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1817 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X4 = POINTER_TSCP( XListProperties( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1818 ),
TSCP_POINTER( X2 ) ) );
X3 = sc_cons( c1625, X4 );
X6 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws4_xchangeproperty_v );
DEFSTRING( t2053, "XCHANGEPROPERTY", 15 );
EXTERNTSCPP( xlibtypes_chk_2dcharap );
EXTERNTSCP( xlibtypes_chk_2dcharap_v );
EXTERNVOIDP( XChangeProperty );
TSCP xws4_xchangeproperty( d1841,
w1842,
p1843,
t1844,
f1845, m1846, d1847, n1848 )
TSCP d1841,
w1842,
p1843, t1844, f1845, m1846, d1847, n1848;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2053 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1841 );
X2 = xlibtypes_chk_2dcharap( d1847 );
XChangeProperty( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1842 ),
TSCP_UNSIGNED( p1843 ),
TSCP_UNSIGNED( t1844 ),
TSCP_INT( f1845 ),
TSCP_INT( m1846 ),
TSCP_POINTER( X2 ),
TSCP_INT( n1848 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws4_xrotatewindowproperties_v );
DEFSTRING( t2059, "XROTATEWINDOWPROPERTIES", 23 );
EXTERNTSCPP( xlibtypes_chk_2dunsignedap );
EXTERNTSCP( xlibtypes_chk_2dunsignedap_v );
EXTERNVOIDP( XRotateWindowProperties );
TSCP xws4_xrotatewindowproperties( d1877,
w1878, p1879, n1880, n1881 )
TSCP d1877, w1878, p1879, n1880, n1881;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2059 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1877 );
X2 = xlibtypes_chk_2dunsignedap( p1879 );
XRotateWindowProperties( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1878 ),
TSCP_POINTER( X2 ),
TSCP_INT( n1880 ),
TSCP_INT( n1881 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws4_xdeleteproperty_v );
DEFSTRING( t2065, "XDELETEPROPERTY", 15 );
EXTERNVOIDP( XDeleteProperty );
TSCP xws4_xdeleteproperty( d1902, w1903, p1904 )
TSCP d1902, w1903, p1904;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2065 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1902 );
XDeleteProperty( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1903 ),
TSCP_UNSIGNED( p1904 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws4_xsetselectionowner_v );
DEFSTRING( t2070, "XSETSELECTIONOWNER", 18 );
EXTERNVOIDP( XSetSelectionOwner );
TSCP xws4_xsetselectionowner( d1922, s1923, o1924, t1925 )
TSCP d1922, s1923, o1924, t1925;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2070 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1922 );
XSetSelectionOwner( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s1923 ),
TSCP_UNSIGNED( o1924 ),
TSCP_UNSIGNED( t1925 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws4_xgetselectionowner_v );
DEFSTRING( t2075, "XGETSELECTIONOWNER", 18 );
EXTERNUNSIGNEDP( XGetSelectionOwner );
TSCP xws4_xgetselectionowner( d1943, s1944 )
TSCP d1943, s1944;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2075 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1943 );
X2 = UNSIGNED_TSCP( XGetSelectionOwner( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s1944 ) ) );
POPSTACKTRACE( X2 );
}
DEFTSCP( xws4_xconvertselection_v );
DEFSTRING( t2079, "XCONVERTSELECTION", 17 );
EXTERNVOIDP( XConvertSelection );
TSCP xws4_xconvertselection( d1961,
s1962,
t1963, p1964, r1965, t1966 )
TSCP d1961, s1962, t1963, p1964, r1965, t1966;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2079 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1961 );
XConvertSelection( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( s1962 ),
TSCP_UNSIGNED( t1963 ),
TSCP_UNSIGNED( p1964 ),
TSCP_UNSIGNED( r1965 ),
TSCP_UNSIGNED( t1966 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt6__init();
scrt4__init();
xlibtypes__init();
MAXDISPLAY( 0 );
}
void xws4__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xws4 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1987 ) ),
ADR( xws4_xquerytree_v ),
MAKEPROCEDURE( 2,
0,
xws4_xquerytree, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1996 ) ),
ADR( xws4_xgetwindowattributes_v ),
MAKEPROCEDURE( 2,
0,
xws4_xgetwindowattributes,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2002 ) ),
ADR( xws4_xgetgeometry_v ),
MAKEPROCEDURE( 2,
0,
xws4_xgetgeometry, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2014 ) ),
ADR( xws4_xquerypointer_v ),
MAKEPROCEDURE( 2,
0,
xws4_xquerypointer, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2026 ) ),
ADR( xws4_xinternatom_v ),
MAKEPROCEDURE( 3,
0,
xws4_xinternatom, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2033 ) ),
ADR( xws4_xgetatomname_v ),
MAKEPROCEDURE( 2,
0,
xws4_xgetatomname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2037 ) ),
ADR( xws4_xgetwindowproperty_v ),
MAKEPROCEDURE( 7,
0,
xws4_xgetwindowproperty,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2047 ) ),
ADR( xws4_xlistproperties_v ),
MAKEPROCEDURE( 2,
0,
xws4_xlistproperties, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2053 ) ),
ADR( xws4_xchangeproperty_v ),
MAKEPROCEDURE( 8,
0,
xws4_xchangeproperty, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2059 ) ),
ADR( xws4_xrotatewindowproperties_v ),
MAKEPROCEDURE( 5,
0,
xws4_xrotatewindowproperties,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2065 ) ),
ADR( xws4_xdeleteproperty_v ),
MAKEPROCEDURE( 3,
0,
xws4_xdeleteproperty, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2070 ) ),
ADR( xws4_xsetselectionowner_v ),
MAKEPROCEDURE( 4,
0,
xws4_xsetselectionowner,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2075 ) ),
ADR( xws4_xgetselectionowner_v ),
MAKEPROCEDURE( 2,
0,
xws4_xgetselectionowner,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2079 ) ),
ADR( xws4_xconvertselection_v ),
MAKEPROCEDURE( 6,
0,
xws4_xconvertselection,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.