This is xwmhints.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1714,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1714 );
DEFSTRING( t1715, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1716, "XWMHINTSP", 9 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1715 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1716 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( xwmhints_make_2dxwmhints_v );
DEFSTRING( t1717, "MAKE-XWMHINTS", 13 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP xwmhints_make_2dxwmhints( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1724;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1725;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1726;
L1725:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1726:
if ( TRUE( X4 ) ) goto L1724;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1733;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1724;
goto L1740;
L1733:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1740;
L1724:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1740:
X1 = sc_make_2dstring( _TSCP( 144 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( xwmhints_xwmhints_2dflags_v );
DEFSTRING( t1741, "XWMHINTS-FLAGS", 14 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( xlibtypes_chk_2dxwmhintsp );
EXTERNTSCP( xlibtypes_chk_2dxwmhintsp_v );
TSCP xwmhints_xwmhints_2dflags( x1630 )
TSCP x1630;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1630 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) );
}
DEFTSCP( xwmhints_xwmhints_2dflags_21_v );
DEFSTRING( t1743, "XWMHINTS-FLAGS!", 15 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP xwmhints_xwmhints_2dflags_21( x1633, y1634 )
TSCP x1633, y1634;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1633 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) );
}
DEFTSCP( xwmhints_xwmhints_2dinput_v );
DEFSTRING( t1745, "XWMHINTS-INPUT", 14 );
TSCP xwmhints_xwmhints_2dinput( x1637 )
TSCP x1637;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1637 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( xwmhints_xwmhints_2dinput_21_v );
DEFSTRING( t1747, "XWMHINTS-INPUT!", 15 );
TSCP xwmhints_xwmhints_2dinput_21( x1641, y1642 )
TSCP x1641, y1642;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1641 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1642 ) );
}
DEFTSCP( xwmhints_ial__state_1df0eec_v );
DEFSTRING( t1749, "XWMHINTS-INITIAL_STATE", 22 );
TSCP xwmhints_ial__state_1df0eec( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1645 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( xwmhints___state_21_f359f6c8_v );
DEFSTRING( t1751, "XWMHINTS-INITIAL_STATE!", 23 );
TSCP xwmhints___state_21_f359f6c8( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1649 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1650 ) );
}
DEFTSCP( xwmhints_on__pixmap_cc7b1075_v );
DEFSTRING( t1753, "XWMHINTS-ICON_PIXMAP", 20 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP xwmhints_on__pixmap_cc7b1075( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1653 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( xwmhints__pixmap_21_4612d54_v );
DEFSTRING( t1755, "XWMHINTS-ICON_PIXMAP!", 21 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
TSCP xwmhints__pixmap_21_4612d54( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1657 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 48 ), y1658 ) );
}
DEFTSCP( xwmhints_on__window_ab3aab2c_v );
DEFSTRING( t1757, "XWMHINTS-ICON_WINDOW", 20 );
TSCP xwmhints_on__window_ab3aab2c( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1661 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( xwmhints__window_21_61e63e79_v );
DEFSTRING( t1759, "XWMHINTS-ICON_WINDOW!", 21 );
TSCP xwmhints__window_21_61e63e79( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1665 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 64 ), y1666 ) );
}
DEFTSCP( xwmhints_xwmhints_2dicon__x_v );
DEFSTRING( t1761, "XWMHINTS-ICON_X", 15 );
TSCP xwmhints_xwmhints_2dicon__x( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1669 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( xwmhints_icon__x_21_edc959fd_v );
DEFSTRING( t1763, "XWMHINTS-ICON_X!", 16 );
TSCP xwmhints_icon__x_21_edc959fd( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1673 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1674 ) );
}
DEFTSCP( xwmhints_xwmhints_2dicon__y_v );
DEFSTRING( t1765, "XWMHINTS-ICON_Y", 15 );
TSCP xwmhints_xwmhints_2dicon__y( x1677 )
TSCP x1677;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1677 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 96 ) ) );
}
DEFTSCP( xwmhints_icon__y_21_55753e98_v );
DEFSTRING( t1767, "XWMHINTS-ICON_Y!", 16 );
TSCP xwmhints_icon__y_21_55753e98( x1681, y1682 )
TSCP x1681, y1682;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1681 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 96 ), y1682 ) );
}
DEFTSCP( xwmhints_icon__mask_c627f064_v );
DEFSTRING( t1769, "XWMHINTS-ICON_MASK", 18 );
TSCP xwmhints_icon__mask_c627f064( x1685 )
TSCP x1685;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1685 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 112 ) ) );
}
DEFTSCP( xwmhints_n__mask_21_25260a2a_v );
DEFSTRING( t1771, "XWMHINTS-ICON_MASK!", 19 );
TSCP xwmhints_n__mask_21_25260a2a( x1689, y1690 )
TSCP x1689, y1690;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1689 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 112 ), y1690 ) );
}
DEFTSCP( xwmhints_dow__group_708b08bc_v );
DEFSTRING( t1773, "XWMHINTS-WINDOW_GROUP", 21 );
TSCP xwmhints_dow__group_708b08bc( x1693 )
TSCP x1693;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1693 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 128 ) ) );
}
DEFTSCP( xwmhints___group_21_a5b9ea62_v );
DEFSTRING( t1775, "XWMHINTS-WINDOW_GROUP!", 22 );
TSCP xwmhints___group_21_a5b9ea62( x1697, y1698 )
TSCP x1697, y1698;
{
TSCP X1;
X1 = xlibtypes_chk_2dxwmhintsp( x1697 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 128 ), y1698 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
xlibtypes__init();
scrt4__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xwmhints__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xwmhints SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1717 ) ),
ADR( xwmhints_make_2dxwmhints_v ),
MAKEPROCEDURE( 0,
0,
xwmhints_make_2dxwmhints,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1741 ) ),
ADR( xwmhints_xwmhints_2dflags_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_xwmhints_2dflags,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1743 ) ),
ADR( xwmhints_xwmhints_2dflags_21_v ),
MAKEPROCEDURE( 2,
0,
xwmhints_xwmhints_2dflags_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1745 ) ),
ADR( xwmhints_xwmhints_2dinput_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_xwmhints_2dinput,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1747 ) ),
ADR( xwmhints_xwmhints_2dinput_21_v ),
MAKEPROCEDURE( 2,
0,
xwmhints_xwmhints_2dinput_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1749 ) ),
ADR( xwmhints_ial__state_1df0eec_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_ial__state_1df0eec,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1751 ) ),
ADR( xwmhints___state_21_f359f6c8_v ),
MAKEPROCEDURE( 2,
0,
xwmhints___state_21_f359f6c8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1753 ) ),
ADR( xwmhints_on__pixmap_cc7b1075_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_on__pixmap_cc7b1075,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1755 ) ),
ADR( xwmhints__pixmap_21_4612d54_v ),
MAKEPROCEDURE( 2,
0,
xwmhints__pixmap_21_4612d54,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1757 ) ),
ADR( xwmhints_on__window_ab3aab2c_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_on__window_ab3aab2c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1759 ) ),
ADR( xwmhints__window_21_61e63e79_v ),
MAKEPROCEDURE( 2,
0,
xwmhints__window_21_61e63e79,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1761 ) ),
ADR( xwmhints_xwmhints_2dicon__x_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_xwmhints_2dicon__x,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1763 ) ),
ADR( xwmhints_icon__x_21_edc959fd_v ),
MAKEPROCEDURE( 2,
0,
xwmhints_icon__x_21_edc959fd,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1765 ) ),
ADR( xwmhints_xwmhints_2dicon__y_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_xwmhints_2dicon__y,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1767 ) ),
ADR( xwmhints_icon__y_21_55753e98_v ),
MAKEPROCEDURE( 2,
0,
xwmhints_icon__y_21_55753e98,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1769 ) ),
ADR( xwmhints_icon__mask_c627f064_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_icon__mask_c627f064,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1771 ) ),
ADR( xwmhints_n__mask_21_25260a2a_v ),
MAKEPROCEDURE( 2,
0,
xwmhints_n__mask_21_25260a2a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1773 ) ),
ADR( xwmhints_dow__group_708b08bc_v ),
MAKEPROCEDURE( 1,
0,
xwmhints_dow__group_708b08bc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1775 ) ),
ADR( xwmhints___group_21_a5b9ea62_v ),
MAKEPROCEDURE( 2,
0,
xwmhints___group_21_a5b9ea62,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.