This is xtextitem16.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1682, "XCHAR2BP", 8 );
DEFSTATICTSCP( c1634 );
DEFSTRING( t1683,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1683 );
DEFSTRING( t1684, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1685, "XTEXTITEM16P", 12 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1634 = STRINGTOSYMBOL( U_TX( ADR( t1682 ) ) );
CONSTANTEXP( ADR( c1634 ) );
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1684 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1685 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( extitem16_textitem16_d8e13952_v );
DEFSTRING( t1686, "MAKE-XTEXTITEM16", 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 extitem16_textitem16_d8e13952( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1693;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1694;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1695;
L1694:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1695:
if ( TRUE( X4 ) ) goto L1693;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1702;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1693;
goto L1709;
L1702:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1709;
L1693:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1709:
X1 = sc_make_2dstring( _TSCP( 64 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( extitem16_16_2dchars_a8e0b8bd_v );
DEFSTRING( t1710, "XTEXTITEM16-CHARS", 17 );
EXTERNTSCPP( xlibtypes_chk_2dxtextitem16p );
EXTERNTSCP( xlibtypes_chk_2dxtextitem16p_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP extitem16_16_2dchars_a8e0b8bd( x1630 )
TSCP x1630;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1630 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
return( sc_cons( c1634, X2 ) );
}
DEFTSCP( extitem16_2dchars_21_9ade96e5_v );
DEFSTRING( t1713, "XTEXTITEM16-CHARS!", 18 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dxchar2bp );
EXTERNTSCP( xlibtypes_chk_2dxchar2bp_v );
TSCP extitem16_2dchars_21_9ade96e5( x1637, y1638 )
TSCP x1637, y1638;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1637 );
X2 = xlibtypes_chk_2dxchar2bp( y1638 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 ) );
}
DEFTSCP( extitem16_6_2dnchars_cd494e22_v );
DEFSTRING( t1716, "XTEXTITEM16-NCHARS", 18 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP extitem16_6_2dnchars_cd494e22( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1645 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( extitem16_dnchars_21_817d343a_v );
DEFSTRING( t1718, "XTEXTITEM16-NCHARS!", 19 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP extitem16_dnchars_21_817d343a( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1649 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1650 ) );
}
DEFTSCP( extitem16_16_2ddelta_4591f9ed_v );
DEFSTRING( t1720, "XTEXTITEM16-DELTA", 17 );
TSCP extitem16_16_2ddelta_4591f9ed( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1653 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( extitem16_2ddelta_21_38028756_v );
DEFSTRING( t1722, "XTEXTITEM16-DELTA!", 18 );
TSCP extitem16_2ddelta_21_38028756( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1657 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1658 ) );
}
DEFTSCP( extitem16_m16_2dfont_db0db793_v );
DEFSTRING( t1724, "XTEXTITEM16-FONT", 16 );
TSCP extitem16_m16_2dfont_db0db793( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1661 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( extitem16__2dfont_21_f12e7f76_v );
DEFSTRING( t1726, "XTEXTITEM16-FONT!", 17 );
TSCP extitem16__2dfont_21_f12e7f76( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_chk_2dxtextitem16p( x1665 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 48 ), y1666 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
xlibtypes__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xtextitem16__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xtextitem16 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1686 ) ),
ADR( extitem16_textitem16_d8e13952_v ),
MAKEPROCEDURE( 0,
0,
extitem16_textitem16_d8e13952,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1710 ) ),
ADR( extitem16_16_2dchars_a8e0b8bd_v ),
MAKEPROCEDURE( 1,
0,
extitem16_16_2dchars_a8e0b8bd,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1713 ) ),
ADR( extitem16_2dchars_21_9ade96e5_v ),
MAKEPROCEDURE( 2,
0,
extitem16_2dchars_21_9ade96e5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1716 ) ),
ADR( extitem16_6_2dnchars_cd494e22_v ),
MAKEPROCEDURE( 1,
0,
extitem16_6_2dnchars_cd494e22,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1718 ) ),
ADR( extitem16_dnchars_21_817d343a_v ),
MAKEPROCEDURE( 2,
0,
extitem16_dnchars_21_817d343a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1720 ) ),
ADR( extitem16_16_2ddelta_4591f9ed_v ),
MAKEPROCEDURE( 1,
0,
extitem16_16_2ddelta_4591f9ed,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1722 ) ),
ADR( extitem16_2ddelta_21_38028756_v ),
MAKEPROCEDURE( 2,
0,
extitem16_2ddelta_21_38028756,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1724 ) ),
ADR( extitem16_m16_2dfont_db0db793_v ),
MAKEPROCEDURE( 1,
0,
extitem16_m16_2dfont_db0db793,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1726 ) ),
ADR( extitem16__2dfont_21_f12e7f76_v ),
MAKEPROCEDURE( 2,
0,
extitem16__2dfont_21_f12e7f76,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.