This is xws9.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1871, "XSTANDARDCOLORMAPP", 18 );
DEFSTATICTSCP( c1846 );
DEFSTRING( t1872, "XSIZEHINTSP", 11 );
DEFSTATICTSCP( c1697 );
DEFSTRING( t1873, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1618, t1873 );
DEFSTRING( t1874, "CHK-STRING", 10 );
DEFSTATICTSCP( c1617 );
static void init_constants()
{
c1846 = STRINGTOSYMBOL( U_TX( ADR( t1871 ) ) );
CONSTANTEXP( ADR( c1846 ) );
c1697 = STRINGTOSYMBOL( U_TX( ADR( t1872 ) ) );
CONSTANTEXP( ADR( c1697 ) );
c1617 = STRINGTOSYMBOL( U_TX( ADR( t1874 ) ) );
CONSTANTEXP( ADR( c1617 ) );
}
DEFTSCP( xws9_xstorename_v );
DEFSTRING( t1875, "XSTORENAME", 10 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNVOIDP( XStoreName );
TSCP xws9_xstorename( d1603, w1604, n1605 )
TSCP d1603, w1604, n1605;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1875 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1603 );
if ( NOT( AND( EQ( TSCPTAG( n1605 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n1605 ), STRINGTAG ) ) )
) goto L1878;
X2 = n1605;
goto L1879;
L1878:
X2 = scrt6_error( c1617,
c1618, CONS( n1605, EMPTYLIST ) );
L1879:
XStoreName( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1604 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws9_xseticonname_v );
DEFSTRING( t1883, "XSETICONNAME", 12 );
EXTERNVOIDP( XSetIconName );
TSCP xws9_xseticonname( d1626, w1627, i1628 )
TSCP d1626, w1627, i1628;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1883 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1626 );
if ( NOT( AND( EQ( TSCPTAG( i1628 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( i1628 ), STRINGTAG ) ) )
) goto L1886;
X2 = i1628;
goto L1887;
L1886:
X2 = scrt6_error( c1617,
c1618, CONS( i1628, EMPTYLIST ) );
L1887:
XSetIconName( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1627 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws9_xsetwmhints_v );
DEFSTRING( t1891, "XSETWMHINTS", 11 );
EXTERNTSCPP( xlibtypes_chk_2dxwmhintsp );
EXTERNTSCP( xlibtypes_chk_2dxwmhintsp_v );
EXTERNVOIDP( XSetWMHints );
TSCP xws9_xsetwmhints( d1647, w1648, h1649 )
TSCP d1647, w1648, h1649;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1891 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1647 );
X2 = xlibtypes_chk_2dxwmhintsp( h1649 );
XSetWMHints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1648 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws9_xsetnormalhints_v );
DEFSTRING( t1897, "XSETNORMALHINTS", 15 );
EXTERNTSCPP( xlibtypes_chk_2dxsizehintsp );
EXTERNTSCP( xlibtypes_chk_2dxsizehintsp_v );
EXTERNVOIDP( XSetNormalHints );
TSCP xws9_xsetnormalhints( d1666, w1667, h1668 )
TSCP d1666, w1667, h1668;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1897 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1666 );
X2 = xlibtypes_chk_2dxsizehintsp( h1668 );
XSetNormalHints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1667 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws9_xgetnormalhints_v );
DEFSTRING( t1903, "XGETNORMALHINTS", 15 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNINTP( XGetNormalHints );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP xws9_xgetnormalhints( d1685, w1686 )
TSCP d1685, w1686;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1903 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1685 );
X2 = sc_make_2dstring( _TSCP( 240 ), EMPTYLIST );
X3 = INT_TSCP( XGetNormalHints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1686 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c1697, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws9_xsetzoomhints_v );
DEFSTRING( t1909, "XSETZOOMHINTS", 13 );
EXTERNVOIDP( XSetZoomHints );
TSCP xws9_xsetzoomhints( d1706, w1707, z1708 )
TSCP d1706, w1707, z1708;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1909 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1706 );
X2 = xlibtypes_chk_2dxsizehintsp( z1708 );
XSetZoomHints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1707 ),
TSCP_POINTER( X2 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws9_xgetzoomhints_v );
DEFSTRING( t1915, "XGETZOOMHINTS", 13 );
EXTERNINTP( XGetZoomHints );
TSCP xws9_xgetzoomhints( d1725, w1726 )
TSCP d1725, w1726;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1915 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1725 );
X2 = sc_make_2dstring( _TSCP( 240 ), EMPTYLIST );
X3 = INT_TSCP( XGetZoomHints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1726 ),
TSCP_POINTER( X2 ) ) );
X6 = sc_cons( c1697, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws9_xsetsizehints_v );
DEFSTRING( t1921, "XSETSIZEHINTS", 13 );
EXTERNVOIDP( XSetSizeHints );
TSCP xws9_xsetsizehints( d1745, w1746, h1747, p1748 )
TSCP d1745, w1746, h1747, p1748;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1921 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1745 );
X2 = xlibtypes_chk_2dxsizehintsp( h1747 );
XSetSizeHints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1746 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( p1748 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
DEFTSCP( xws9_xgetsizehints_v );
DEFSTRING( t1927, "XGETSIZEHINTS", 13 );
EXTERNINTP( XGetSizeHints );
TSCP xws9_xgetsizehints( d1768, w1769, p1770 )
TSCP d1768, w1769, p1770;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1927 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1768 );
X2 = sc_make_2dstring( _TSCP( 240 ), EMPTYLIST );
X3 = INT_TSCP( XGetSizeHints( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1769 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( p1770 ) ) );
X6 = sc_cons( c1697, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws9_xsettransientforhint_v );
DEFSTRING( t1933, "XSETTRANSIENTFORHINT", 20 );
EXTERNVOIDP( XSetTransientForHint );
TSCP xws9_xsettransientforhint( d1790, w1791, p1792 )
TSCP d1790, w1791, p1792;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1933 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1790 );
XSetTransientForHint( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1791 ),
TSCP_UNSIGNED( p1792 ) );
X2 = FALSEVALUE;
POPSTACKTRACE( X2 );
}
DEFTSCP( xws9_xgettransientforhint_v );
DEFSTRING( t1938, "XGETTRANSIENTFORHINT", 20 );
EXTERNINTP( XGetTransientForHint );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP xws9_xgettransientforhint( d1809, w1810 )
TSCP d1809, w1810;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1938 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1809 );
X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X3 = INT_TSCP( XGetTransientForHint( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1810 ),
TSCP_POINTER( X2 ) ) );
X6 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws9_xgetstandardcolormap_v );
DEFSTRING( t1944, "XGETSTANDARDCOLORMAP", 20 );
EXTERNINTP( XGetStandardColormap );
TSCP xws9_xgetstandardcolormap( d1831, w1832, p1833 )
TSCP d1831, w1832, p1833;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1944 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1831 );
X2 = sc_make_2dstring( _TSCP( 128 ), EMPTYLIST );
X3 = INT_TSCP( XGetStandardColormap( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1832 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( p1833 ) ) );
X6 = sc_cons( c1846, X2 );
X5 = sc_cons( X6, EMPTYLIST );
X4 = sc_cons( X3, X5 );
POPSTACKTRACE( X4 );
}
DEFTSCP( xws9_xsetstandardcolormap_v );
DEFSTRING( t1950, "XSETSTANDARDCOLORMAP", 20 );
EXTERNTSCPP( xlibtypes_dcolormapp_405d72b1 );
EXTERNTSCP( xlibtypes_dcolormapp_405d72b1_v );
EXTERNVOIDP( XSetStandardColormap );
TSCP xws9_xsetstandardcolormap( d1856, w1857, c1858, p1859 )
TSCP d1856, w1857, c1858, p1859;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1950 ) ) );
X1 = xlibtypes_chk_2ddisplayp( d1856 );
X2 = xlibtypes_dcolormapp_405d72b1( c1858 );
XSetStandardColormap( TSCP_POINTER( X1 ),
TSCP_UNSIGNED( w1857 ),
TSCP_POINTER( X2 ),
TSCP_UNSIGNED( p1859 ) );
X3 = FALSEVALUE;
POPSTACKTRACE( X3 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
scrt6__init();
xlibtypes__init();
MAXDISPLAY( 0 );
}
void xws9__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xws9 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1875 ) ),
ADR( xws9_xstorename_v ),
MAKEPROCEDURE( 3,
0,
xws9_xstorename, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1883 ) ),
ADR( xws9_xseticonname_v ),
MAKEPROCEDURE( 3,
0,
xws9_xseticonname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1891 ) ),
ADR( xws9_xsetwmhints_v ),
MAKEPROCEDURE( 3,
0,
xws9_xsetwmhints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1897 ) ),
ADR( xws9_xsetnormalhints_v ),
MAKEPROCEDURE( 3,
0,
xws9_xsetnormalhints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1903 ) ),
ADR( xws9_xgetnormalhints_v ),
MAKEPROCEDURE( 2,
0,
xws9_xgetnormalhints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1909 ) ),
ADR( xws9_xsetzoomhints_v ),
MAKEPROCEDURE( 3,
0,
xws9_xsetzoomhints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1915 ) ),
ADR( xws9_xgetzoomhints_v ),
MAKEPROCEDURE( 2,
0,
xws9_xgetzoomhints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1921 ) ),
ADR( xws9_xsetsizehints_v ),
MAKEPROCEDURE( 4,
0,
xws9_xsetsizehints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1927 ) ),
ADR( xws9_xgetsizehints_v ),
MAKEPROCEDURE( 3,
0,
xws9_xgetsizehints, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1933 ) ),
ADR( xws9_xsettransientforhint_v ),
MAKEPROCEDURE( 3,
0,
xws9_xsettransientforhint,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1938 ) ),
ADR( xws9_xgettransientforhint_v ),
MAKEPROCEDURE( 2,
0,
xws9_xgettransientforhint,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1944 ) ),
ADR( xws9_xgetstandardcolormap_v ),
MAKEPROCEDURE( 3,
0,
xws9_xgetstandardcolormap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1950 ) ),
ADR( xws9_xsetstandardcolormap_v ),
MAKEPROCEDURE( 4,
0,
xws9_xsetstandardcolormap,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.