This is xvisualinfo.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1730, "VISUALP", 7 );
DEFSTATICTSCP( c1634 );
DEFSTRING( t1731,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1731 );
DEFSTRING( t1732, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1733, "XVISUALINFOP", 12 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1634 = STRINGTOSYMBOL( U_TX( ADR( t1730 ) ) );
CONSTANTEXP( ADR( c1634 ) );
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1732 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1733 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( isualinfo_visualinfo_89374e42_v );
DEFSTRING( t1734, "MAKE-XVISUALINFO", 16 );
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 isualinfo_visualinfo_89374e42( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1741;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1742;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1743;
L1742:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1743:
if ( TRUE( X4 ) ) goto L1741;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1750;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1741;
goto L1757;
L1750:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1757;
L1741:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1757:
X1 = sc_make_2dstring( _TSCP( 160 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( isualinfo_o_2dvisual_7d94ec4_v );
DEFSTRING( t1758, "XVISUALINFO-VISUAL", 18 );
EXTERNTSCPP( xlibtypes_chk_2dxvisualinfop );
EXTERNTSCP( xlibtypes_chk_2dxvisualinfop_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP isualinfo_o_2dvisual_7d94ec4( x1630 )
TSCP x1630;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1630 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
return( sc_cons( c1634, X2 ) );
}
DEFTSCP( isualinfo_dvisual_21_dc1d0ba6_v );
DEFSTRING( t1761, "XVISUALINFO-VISUAL!", 19 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dvisualp );
EXTERNTSCP( xlibtypes_chk_2dvisualp_v );
TSCP isualinfo_dvisual_21_dc1d0ba6( x1637, y1638 )
TSCP x1637, y1638;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1637 );
X2 = xlibtypes_chk_2dvisualp( y1638 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 ) );
}
DEFTSCP( isualinfo_2dvisualid_c0120cab_v );
DEFSTRING( t1764, "XVISUALINFO-VISUALID", 20 );
TSCP isualinfo_2dvisualid_c0120cab( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1645 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( isualinfo_isualid_21_516fb1c3_v );
DEFSTRING( t1766, "XVISUALINFO-VISUALID!", 21 );
TSCP isualinfo_isualid_21_516fb1c3( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1649 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 16 ), y1650 ) );
}
DEFTSCP( isualinfo_o_2dscreen_335ca7eb_v );
DEFSTRING( t1768, "XVISUALINFO-SCREEN", 18 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP isualinfo_o_2dscreen_335ca7eb( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1653 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( isualinfo_dscreen_21_fd623545_v );
DEFSTRING( t1770, "XVISUALINFO-SCREEN!", 19 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP isualinfo_dscreen_21_fd623545( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1657 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1658 ) );
}
DEFTSCP( isualinfo_fo_2ddepth_86fd918e_v );
DEFSTRING( t1772, "XVISUALINFO-DEPTH", 17 );
TSCP isualinfo_fo_2ddepth_86fd918e( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1661 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( isualinfo_2ddepth_21_9bb33e30_v );
DEFSTRING( t1774, "XVISUALINFO-DEPTH!", 18 );
TSCP isualinfo_2ddepth_21_9bb33e30( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1665 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 48 ), y1666 ) );
}
DEFTSCP( isualinfo_fo_2dclass_91159478_v );
DEFSTRING( t1776, "XVISUALINFO-CLASS", 17 );
TSCP isualinfo_fo_2dclass_91159478( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1669 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( isualinfo_2dclass_21_f95caf4a_v );
DEFSTRING( t1778, "XVISUALINFO-CLASS!", 18 );
TSCP isualinfo_2dclass_21_f95caf4a( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1673 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 64 ), y1674 ) );
}
DEFTSCP( isualinfo_dred__mask_3894a443_v );
DEFSTRING( t1780, "XVISUALINFO-RED_MASK", 20 );
TSCP isualinfo_dred__mask_3894a443( x1677 )
TSCP x1677;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1677 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( isualinfo_d__mask_21_949b20d7_v );
DEFSTRING( t1782, "XVISUALINFO-RED_MASK!", 21 );
TSCP isualinfo_d__mask_21_949b20d7( x1681, y1682 )
TSCP x1681, y1682;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1681 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 80 ), y1682 ) );
}
DEFTSCP( isualinfo_reen__mask_29ded375_v );
DEFSTRING( t1784, "XVISUALINFO-GREEN_MASK", 22 );
TSCP isualinfo_reen__mask_29ded375( x1685 )
TSCP x1685;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1685 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 96 ) ) );
}
DEFTSCP( isualinfo_n__mask_21_420afe5b_v );
DEFSTRING( t1786, "XVISUALINFO-GREEN_MASK!", 23 );
TSCP isualinfo_n__mask_21_420afe5b( x1689, y1690 )
TSCP x1689, y1690;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1689 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 96 ), y1690 ) );
}
DEFTSCP( isualinfo_blue__mask_e0c7b5d_v );
DEFSTRING( t1788, "XVISUALINFO-BLUE_MASK", 21 );
TSCP isualinfo_blue__mask_e0c7b5d( x1693 )
TSCP x1693;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1693 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 112 ) ) );
}
DEFTSCP( isualinfo_e__mask_21_7a576c3d_v );
DEFSTRING( t1790, "XVISUALINFO-BLUE_MASK!", 22 );
TSCP isualinfo_e__mask_21_7a576c3d( x1697, y1698 )
TSCP x1697, y1698;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1697 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 112 ), y1698 ) );
}
DEFTSCP( isualinfo_rmap__size_a73cf2e8_v );
DEFSTRING( t1792, "XVISUALINFO-COLORMAP_SIZE", 25 );
TSCP isualinfo_rmap__size_a73cf2e8( x1701 )
TSCP x1701;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1701 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 128 ) ) );
}
DEFTSCP( isualinfo_p__size_21_755a43c1_v );
DEFSTRING( t1794, "XVISUALINFO-COLORMAP_SIZE!", 26 );
TSCP isualinfo_p__size_21_755a43c1( x1705, y1706 )
TSCP x1705, y1706;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1705 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 128 ), y1706 ) );
}
DEFTSCP( isualinfo___per__rgb_2b1050e5_v );
DEFSTRING( t1796, "XVISUALINFO-BITS_PER_RGB", 24 );
TSCP isualinfo___per__rgb_2b1050e5( x1709 )
TSCP x1709;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1709 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 144 ) ) );
}
DEFTSCP( isualinfo_er__rgb_21_d36b6296_v );
DEFSTRING( t1798, "XVISUALINFO-BITS_PER_RGB!", 25 );
TSCP isualinfo_er__rgb_21_d36b6296( x1713, y1714 )
TSCP x1713, y1714;
{
TSCP X1;
X1 = xlibtypes_chk_2dxvisualinfop( x1713 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 144 ), y1714 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
xlibtypes__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xvisualinfo__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xvisualinfo SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1734 ) ),
ADR( isualinfo_visualinfo_89374e42_v ),
MAKEPROCEDURE( 0,
0,
isualinfo_visualinfo_89374e42,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1758 ) ),
ADR( isualinfo_o_2dvisual_7d94ec4_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_o_2dvisual_7d94ec4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1761 ) ),
ADR( isualinfo_dvisual_21_dc1d0ba6_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_dvisual_21_dc1d0ba6,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1764 ) ),
ADR( isualinfo_2dvisualid_c0120cab_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_2dvisualid_c0120cab,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1766 ) ),
ADR( isualinfo_isualid_21_516fb1c3_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_isualid_21_516fb1c3,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1768 ) ),
ADR( isualinfo_o_2dscreen_335ca7eb_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_o_2dscreen_335ca7eb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1770 ) ),
ADR( isualinfo_dscreen_21_fd623545_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_dscreen_21_fd623545,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1772 ) ),
ADR( isualinfo_fo_2ddepth_86fd918e_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_fo_2ddepth_86fd918e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1774 ) ),
ADR( isualinfo_2ddepth_21_9bb33e30_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_2ddepth_21_9bb33e30,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1776 ) ),
ADR( isualinfo_fo_2dclass_91159478_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_fo_2dclass_91159478,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1778 ) ),
ADR( isualinfo_2dclass_21_f95caf4a_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_2dclass_21_f95caf4a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1780 ) ),
ADR( isualinfo_dred__mask_3894a443_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_dred__mask_3894a443,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1782 ) ),
ADR( isualinfo_d__mask_21_949b20d7_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_d__mask_21_949b20d7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1784 ) ),
ADR( isualinfo_reen__mask_29ded375_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_reen__mask_29ded375,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1786 ) ),
ADR( isualinfo_n__mask_21_420afe5b_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_n__mask_21_420afe5b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1788 ) ),
ADR( isualinfo_blue__mask_e0c7b5d_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_blue__mask_e0c7b5d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1790 ) ),
ADR( isualinfo_e__mask_21_7a576c3d_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_e__mask_21_7a576c3d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1792 ) ),
ADR( isualinfo_rmap__size_a73cf2e8_v ),
MAKEPROCEDURE( 1,
0,
isualinfo_rmap__size_a73cf2e8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1794 ) ),
ADR( isualinfo_p__size_21_755a43c1_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_p__size_21_755a43c1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1796 ) ),
ADR( isualinfo___per__rgb_2b1050e5_v ),
MAKEPROCEDURE( 1,
0,
isualinfo___per__rgb_2b1050e5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1798 ) ),
ADR( isualinfo_er__rgb_21_d36b6296_v ),
MAKEPROCEDURE( 2,
0,
isualinfo_er__rgb_21_d36b6296,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.