This is xiconsize.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1690,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1690 );
DEFSTRING( t1691, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1692, "XICONSIZEP", 10 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1691 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1692 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( xiconsize_make_2dxiconsize_v );
DEFSTRING( t1693, "MAKE-XICONSIZE", 14 );
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 xiconsize_make_2dxiconsize( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1700;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1701;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1702;
L1701:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1702:
if ( TRUE( X4 ) ) goto L1700;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1709;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1700;
goto L1716;
L1709:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1716;
L1700:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1716:
X1 = sc_make_2dstring( _TSCP( 96 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( xiconsize_min__width_d88f0eb1_v );
DEFSTRING( t1717, "XICONSIZE-MIN_WIDTH", 19 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( xlibtypes_chk_2dxiconsizep );
EXTERNTSCP( xlibtypes_chk_2dxiconsizep_v );
TSCP xiconsize_min__width_d88f0eb1( x1630 )
TSCP x1630;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1630 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) );
}
DEFTSCP( xiconsize___width_21_fc561a06_v );
DEFSTRING( t1719, "XICONSIZE-MIN_WIDTH!", 20 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP xiconsize___width_21_fc561a06( x1633, y1634 )
TSCP x1633, y1634;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1633 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) );
}
DEFTSCP( xiconsize_in__height_30ac218a_v );
DEFSTRING( t1721, "XICONSIZE-MIN_HEIGHT", 20 );
TSCP xiconsize_in__height_30ac218a( x1637 )
TSCP x1637;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1637 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( xiconsize__height_21_64135980_v );
DEFSTRING( t1723, "XICONSIZE-MIN_HEIGHT!", 21 );
TSCP xiconsize__height_21_64135980( x1641, y1642 )
TSCP x1641, y1642;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1641 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1642 ) );
}
DEFTSCP( xiconsize_max__width_d9839405_v );
DEFSTRING( t1725, "XICONSIZE-MAX_WIDTH", 19 );
TSCP xiconsize_max__width_d9839405( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1645 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( xiconsize___width_21_bc196270_v );
DEFSTRING( t1727, "XICONSIZE-MAX_WIDTH!", 20 );
TSCP xiconsize___width_21_bc196270( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1649 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1650 ) );
}
DEFTSCP( xiconsize_ax__height_fca15a85_v );
DEFSTRING( t1729, "XICONSIZE-MAX_HEIGHT", 20 );
TSCP xiconsize_ax__height_fca15a85( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1653 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( xiconsize__height_21_dd35c2f1_v );
DEFSTRING( t1731, "XICONSIZE-MAX_HEIGHT!", 21 );
TSCP xiconsize__height_21_dd35c2f1( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1657 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 48 ), y1658 ) );
}
DEFTSCP( xiconsize_width__inc_a6d02a93_v );
DEFSTRING( t1733, "XICONSIZE-WIDTH_INC", 19 );
TSCP xiconsize_width__inc_a6d02a93( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1661 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( xiconsize_th__inc_21_cda32535_v );
DEFSTRING( t1735, "XICONSIZE-WIDTH_INC!", 20 );
TSCP xiconsize_th__inc_21_cda32535( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1665 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 64 ), y1666 ) );
}
DEFTSCP( xiconsize_eight__inc_9198196a_v );
DEFSTRING( t1737, "XICONSIZE-HEIGHT_INC", 20 );
TSCP xiconsize_eight__inc_9198196a( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1669 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( xiconsize_ht__inc_21_fbdac1cf_v );
DEFSTRING( t1739, "XICONSIZE-HEIGHT_INC!", 21 );
TSCP xiconsize_ht__inc_21_fbdac1cf( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_chk_2dxiconsizep( x1673 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1674 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
xlibtypes__init();
scrt4__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xiconsize__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xiconsize SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1693 ) ),
ADR( xiconsize_make_2dxiconsize_v ),
MAKEPROCEDURE( 0,
0,
xiconsize_make_2dxiconsize,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1717 ) ),
ADR( xiconsize_min__width_d88f0eb1_v ),
MAKEPROCEDURE( 1,
0,
xiconsize_min__width_d88f0eb1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1719 ) ),
ADR( xiconsize___width_21_fc561a06_v ),
MAKEPROCEDURE( 2,
0,
xiconsize___width_21_fc561a06,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1721 ) ),
ADR( xiconsize_in__height_30ac218a_v ),
MAKEPROCEDURE( 1,
0,
xiconsize_in__height_30ac218a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1723 ) ),
ADR( xiconsize__height_21_64135980_v ),
MAKEPROCEDURE( 2,
0,
xiconsize__height_21_64135980,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1725 ) ),
ADR( xiconsize_max__width_d9839405_v ),
MAKEPROCEDURE( 1,
0,
xiconsize_max__width_d9839405,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1727 ) ),
ADR( xiconsize___width_21_bc196270_v ),
MAKEPROCEDURE( 2,
0,
xiconsize___width_21_bc196270,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1729 ) ),
ADR( xiconsize_ax__height_fca15a85_v ),
MAKEPROCEDURE( 1,
0,
xiconsize_ax__height_fca15a85,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1731 ) ),
ADR( xiconsize__height_21_dd35c2f1_v ),
MAKEPROCEDURE( 2,
0,
xiconsize__height_21_dd35c2f1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1733 ) ),
ADR( xiconsize_width__inc_a6d02a93_v ),
MAKEPROCEDURE( 1,
0,
xiconsize_width__inc_a6d02a93,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1735 ) ),
ADR( xiconsize_th__inc_21_cda32535_v ),
MAKEPROCEDURE( 2,
0,
xiconsize_th__inc_21_cda32535,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1737 ) ),
ADR( xiconsize_eight__inc_9198196a_v ),
MAKEPROCEDURE( 1,
0,
xiconsize_eight__inc_9198196a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1739 ) ),
ADR( xiconsize_ht__inc_21_fbdac1cf_v ),
MAKEPROCEDURE( 2,
0,
xiconsize_ht__inc_21_fbdac1cf,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.