This is xhostaddress.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1674, "CHARP", 5 );
DEFSTATICTSCP( c1649 );
DEFSTRING( t1675,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1675 );
DEFSTRING( t1676, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1677, "XHOSTADDRESSP", 13 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1649 = STRINGTOSYMBOL( U_TX( ADR( t1674 ) ) );
CONSTANTEXP( ADR( c1649 ) );
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1676 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1677 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( staddress_ostaddress_e5e57d5c_v );
DEFSTRING( t1678, "MAKE-XHOSTADDRESS", 17 );
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 staddress_ostaddress_e5e57d5c( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1685;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1686;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1687;
L1686:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1687:
if ( TRUE( X4 ) ) goto L1685;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1694;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1685;
goto L1701;
L1694:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1701;
L1685:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1701:
X1 = sc_make_2dstring( _TSCP( 48 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( staddress_s_2dfamily_26a147d8_v );
DEFSTRING( t1702, "XHOSTADDRESS-FAMILY", 19 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( xlibtypes_chk_2dxhostaddressp );
EXTERNTSCP( xlibtypes_chk_2dxhostaddressp_v );
TSCP staddress_s_2dfamily_26a147d8( x1630 )
TSCP x1630;
{
TSCP X1;
X1 = xlibtypes_chk_2dxhostaddressp( x1630 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) );
}
DEFTSCP( staddress_dfamily_21_463d13d4_v );
DEFSTRING( t1704, "XHOSTADDRESS-FAMILY!", 20 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP staddress_dfamily_21_463d13d4( x1633, y1634 )
TSCP x1633, y1634;
{
TSCP X1;
X1 = xlibtypes_chk_2dxhostaddressp( x1633 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) );
}
DEFTSCP( staddress_s_2dlength_823af831_v );
DEFSTRING( t1706, "XHOSTADDRESS-LENGTH", 19 );
TSCP staddress_s_2dlength_823af831( x1637 )
TSCP x1637;
{
TSCP X1;
X1 = xlibtypes_chk_2dxhostaddressp( x1637 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( staddress_dlength_21_e48e00e4_v );
DEFSTRING( t1708, "XHOSTADDRESS-LENGTH!", 20 );
TSCP staddress_dlength_21_e48e00e4( x1641, y1642 )
TSCP x1641, y1642;
{
TSCP X1;
X1 = xlibtypes_chk_2dxhostaddressp( x1641 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1642 ) );
}
DEFTSCP( staddress__2daddress_ab7e15f0_v );
DEFSTRING( t1710, "XHOSTADDRESS-ADDRESS", 20 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP staddress__2daddress_ab7e15f0( x1645 )
TSCP x1645;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxhostaddressp( x1645 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 32 ) );
return( sc_cons( c1649, X2 ) );
}
DEFTSCP( staddress_address_21_ee82f492_v );
DEFSTRING( t1713, "XHOSTADDRESS-ADDRESS!", 21 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dcharp );
EXTERNTSCP( xlibtypes_chk_2dcharp_v );
TSCP staddress_address_21_ee82f492( x1653, y1654 )
TSCP x1653, y1654;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxhostaddressp( x1653 );
X2 = xlibtypes_chk_2dcharp( y1654 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 32 ), X2 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
xlibtypes__init();
scrt4__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xhostaddress__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xhostaddress SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1678 ) ),
ADR( staddress_ostaddress_e5e57d5c_v ),
MAKEPROCEDURE( 0,
0,
staddress_ostaddress_e5e57d5c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1702 ) ),
ADR( staddress_s_2dfamily_26a147d8_v ),
MAKEPROCEDURE( 1,
0,
staddress_s_2dfamily_26a147d8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1704 ) ),
ADR( staddress_dfamily_21_463d13d4_v ),
MAKEPROCEDURE( 2,
0,
staddress_dfamily_21_463d13d4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1706 ) ),
ADR( staddress_s_2dlength_823af831_v ),
MAKEPROCEDURE( 1,
0,
staddress_s_2dlength_823af831,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1708 ) ),
ADR( staddress_dlength_21_e48e00e4_v ),
MAKEPROCEDURE( 2,
0,
staddress_dlength_21_e48e00e4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1710 ) ),
ADR( staddress__2daddress_ab7e15f0_v ),
MAKEPROCEDURE( 1,
0,
staddress__2daddress_ab7e15f0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1713 ) ),
ADR( staddress_address_21_ee82f492_v ),
MAKEPROCEDURE( 2,
0,
staddress_address_21_ee82f492,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.