This is visual.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1714, "XEXTDATAP", 9 );
DEFSTATICTSCP( c1634 );
DEFSTRING( t1715,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1715 );
DEFSTRING( t1716, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1717, "VISUALP", 7 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1634 = STRINGTOSYMBOL( U_TX( ADR( t1714 ) ) );
CONSTANTEXP( ADR( c1634 ) );
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1716 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1717 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( visual_make_2dvisual_v );
DEFSTRING( t1718, "MAKE-VISUAL", 11 );
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 visual_make_2dvisual( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1725;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1726;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1727;
L1726:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1727:
if ( TRUE( X4 ) ) goto L1725;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1734;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1725;
goto L1741;
L1734:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1741;
L1725:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1741:
X1 = sc_make_2dstring( _TSCP( 128 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( visual_visual_2dext__data_v );
DEFSTRING( t1742, "VISUAL-EXT_DATA", 15 );
EXTERNTSCPP( xlibtypes_chk_2dvisualp );
EXTERNTSCP( xlibtypes_chk_2dvisualp_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP visual_visual_2dext__data( x1630 )
TSCP x1630;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dvisualp( x1630 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
return( sc_cons( c1634, X2 ) );
}
DEFTSCP( visual_visual_2dext__data_21_v );
DEFSTRING( t1745, "VISUAL-EXT_DATA!", 16 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dxextdatap );
EXTERNTSCP( xlibtypes_chk_2dxextdatap_v );
TSCP visual_visual_2dext__data_21( x1637, y1638 )
TSCP x1637, y1638;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dvisualp( x1637 );
X2 = xlibtypes_chk_2dxextdatap( y1638 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 ) );
}
DEFTSCP( visual_visual_2dvisualid_v );
DEFSTRING( t1748, "VISUAL-VISUALID", 15 );
TSCP visual_visual_2dvisualid( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1645 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( visual_visual_2dvisualid_21_v );
DEFSTRING( t1750, "VISUAL-VISUALID!", 16 );
TSCP visual_visual_2dvisualid_21( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1649 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 16 ), y1650 ) );
}
DEFTSCP( visual_visual_2dclass_v );
DEFSTRING( t1752, "VISUAL-CLASS", 12 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP visual_visual_2dclass( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1653 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( visual_visual_2dclass_21_v );
DEFSTRING( t1754, "VISUAL-CLASS!", 13 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP visual_visual_2dclass_21( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1657 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1658 ) );
}
DEFTSCP( visual_visual_2dred__mask_v );
DEFSTRING( t1756, "VISUAL-RED_MASK", 15 );
TSCP visual_visual_2dred__mask( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1661 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( visual_visual_2dred__mask_21_v );
DEFSTRING( t1758, "VISUAL-RED_MASK!", 16 );
TSCP visual_visual_2dred__mask_21( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1665 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 48 ), y1666 ) );
}
DEFTSCP( visual_visual_2dgreen__mask_v );
DEFSTRING( t1760, "VISUAL-GREEN_MASK", 17 );
TSCP visual_visual_2dgreen__mask( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1669 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( visual_n__mask_21_db8b5fe8_v );
DEFSTRING( t1762, "VISUAL-GREEN_MASK!", 18 );
TSCP visual_n__mask_21_db8b5fe8( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1673 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 64 ), y1674 ) );
}
DEFTSCP( visual_visual_2dblue__mask_v );
DEFSTRING( t1764, "VISUAL-BLUE_MASK", 16 );
TSCP visual_visual_2dblue__mask( x1677 )
TSCP x1677;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1677 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( visual_visual_2dblue__mask_21_v );
DEFSTRING( t1766, "VISUAL-BLUE_MASK!", 17 );
TSCP visual_visual_2dblue__mask_21( x1681, y1682 )
TSCP x1681, y1682;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1681 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 80 ), y1682 ) );
}
DEFTSCP( visual___per__rgb_b291f156_v );
DEFSTRING( t1768, "VISUAL-BITS_PER_RGB", 19 );
TSCP visual___per__rgb_b291f156( x1685 )
TSCP x1685;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1685 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 96 ) ) );
}
DEFTSCP( visual_er__rgb_21_39d01c58_v );
DEFSTRING( t1770, "VISUAL-BITS_PER_RGB!", 20 );
TSCP visual_er__rgb_21_39d01c58( x1689, y1690 )
TSCP x1689, y1690;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1689 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 96 ), y1690 ) );
}
DEFTSCP( visual_visual_2dmap__entries_v );
DEFSTRING( t1772, "VISUAL-MAP_ENTRIES", 18 );
TSCP visual_visual_2dmap__entries( x1693 )
TSCP x1693;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1693 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 112 ) ) );
}
DEFTSCP( visual_entries_21_d3383467_v );
DEFSTRING( t1774, "VISUAL-MAP_ENTRIES!", 19 );
TSCP visual_entries_21_d3383467( x1697, y1698 )
TSCP x1697, y1698;
{
TSCP X1;
X1 = xlibtypes_chk_2dvisualp( x1697 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 112 ), y1698 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
xlibtypes__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void visual__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(visual SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1718 ) ),
ADR( visual_make_2dvisual_v ),
MAKEPROCEDURE( 0,
0,
visual_make_2dvisual, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1742 ) ),
ADR( visual_visual_2dext__data_v ),
MAKEPROCEDURE( 1,
0,
visual_visual_2dext__data,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1745 ) ),
ADR( visual_visual_2dext__data_21_v ),
MAKEPROCEDURE( 2,
0,
visual_visual_2dext__data_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1748 ) ),
ADR( visual_visual_2dvisualid_v ),
MAKEPROCEDURE( 1,
0,
visual_visual_2dvisualid,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1750 ) ),
ADR( visual_visual_2dvisualid_21_v ),
MAKEPROCEDURE( 2,
0,
visual_visual_2dvisualid_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1752 ) ),
ADR( visual_visual_2dclass_v ),
MAKEPROCEDURE( 1,
0,
visual_visual_2dclass, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1754 ) ),
ADR( visual_visual_2dclass_21_v ),
MAKEPROCEDURE( 2,
0,
visual_visual_2dclass_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1756 ) ),
ADR( visual_visual_2dred__mask_v ),
MAKEPROCEDURE( 1,
0,
visual_visual_2dred__mask,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1758 ) ),
ADR( visual_visual_2dred__mask_21_v ),
MAKEPROCEDURE( 2,
0,
visual_visual_2dred__mask_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1760 ) ),
ADR( visual_visual_2dgreen__mask_v ),
MAKEPROCEDURE( 1,
0,
visual_visual_2dgreen__mask,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1762 ) ),
ADR( visual_n__mask_21_db8b5fe8_v ),
MAKEPROCEDURE( 2,
0,
visual_n__mask_21_db8b5fe8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1764 ) ),
ADR( visual_visual_2dblue__mask_v ),
MAKEPROCEDURE( 1,
0,
visual_visual_2dblue__mask,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1766 ) ),
ADR( visual_visual_2dblue__mask_21_v ),
MAKEPROCEDURE( 2,
0,
visual_visual_2dblue__mask_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1768 ) ),
ADR( visual___per__rgb_b291f156_v ),
MAKEPROCEDURE( 1,
0,
visual___per__rgb_b291f156,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1770 ) ),
ADR( visual_er__rgb_21_39d01c58_v ),
MAKEPROCEDURE( 2,
0,
visual_er__rgb_21_39d01c58,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1772 ) ),
ADR( visual_visual_2dmap__entries_v ),
MAKEPROCEDURE( 1,
0,
visual_visual_2dmap__entries,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1774 ) ),
ADR( visual_entries_21_d3383467_v ),
MAKEPROCEDURE( 2,
0,
visual_entries_21_d3383467,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.