This is xrmoptiondescrec.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1697, "CHARAP", 6 );
DEFSTATICTSCP( c1672 );
DEFSTRING( t1698, "CHARP", 5 );
DEFSTATICTSCP( c1634 );
DEFSTRING( t1699,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1699 );
DEFSTRING( t1700, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1701, "XRMOPTIONDESCLIST", 17 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1672 = STRINGTOSYMBOL( U_TX( ADR( t1697 ) ) );
CONSTANTEXP( ADR( c1672 ) );
c1634 = STRINGTOSYMBOL( U_TX( ADR( t1698 ) ) );
CONSTANTEXP( ADR( c1634 ) );
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1700 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1701 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( ondescrec_iondescrec_5d2c1c04_v );
DEFSTRING( t1702, "MAKE-XRMOPTIONDESCREC", 21 );
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 ondescrec_iondescrec_5d2c1c04( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1709;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1710;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1711;
L1710:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1711:
if ( TRUE( X4 ) ) goto L1709;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1718;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1709;
goto L1725;
L1718:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1725;
L1709:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1725:
X1 = sc_make_2dstring( _TSCP( 64 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( ondescrec_c_2doption_af12a58e_v );
DEFSTRING( t1726, "XRMOPTIONDESCREC-OPTION", 23 );
EXTERNTSCPP( xlibtypes_ondesclist_3b4d8a1c );
EXTERNTSCP( xlibtypes_ondesclist_3b4d8a1c_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP ondescrec_c_2doption_af12a58e( x1630 )
TSCP x1630;
{
TSCP X2, X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1630 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
return( sc_cons( c1634, X2 ) );
}
DEFTSCP( ondescrec_doption_21_102c3207_v );
DEFSTRING( t1729, "XRMOPTIONDESCREC-OPTION!", 24 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dcharp );
EXTERNTSCP( xlibtypes_chk_2dcharp_v );
TSCP ondescrec_doption_21_102c3207( x1637, y1638 )
TSCP x1637, y1638;
{
TSCP X2, X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1637 );
X2 = xlibtypes_chk_2dcharp( y1638 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 ) );
}
DEFTSCP( ondescrec_dspecifier_4ad7a8aa_v );
DEFSTRING( t1732, "XRMOPTIONDESCREC-SPECIFIER", 26 );
TSCP ondescrec_dspecifier_4ad7a8aa( x1645 )
TSCP x1645;
{
TSCP X2, X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1645 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) );
return( sc_cons( c1634, X2 ) );
}
DEFTSCP( ondescrec_ecifier_21_71c894ac_v );
DEFSTRING( t1735, "XRMOPTIONDESCREC-SPECIFIER!", 27 );
TSCP ondescrec_ecifier_21_71c894ac( x1652, y1653 )
TSCP x1652, y1653;
{
TSCP X2, X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1652 );
X2 = xlibtypes_chk_2dcharp( y1653 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 16 ), X2 ) );
}
DEFTSCP( ondescrec__2dargkind_d4439afe_v );
DEFSTRING( t1738, "XRMOPTIONDESCREC-ARGKIND", 24 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP ondescrec__2dargkind_d4439afe( x1660 )
TSCP x1660;
{
TSCP X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1660 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( ondescrec_argkind_21_6f1172_v );
DEFSTRING( t1740, "XRMOPTIONDESCREC-ARGKIND!", 25 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP ondescrec_argkind_21_6f1172( x1664, y1665 )
TSCP x1664, y1665;
{
TSCP X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1664 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1665 ) );
}
DEFTSCP( ondescrec_ec_2dvalue_897c4145_v );
DEFSTRING( t1742, "XRMOPTIONDESCREC-VALUE", 22 );
TSCP ondescrec_ec_2dvalue_897c4145( x1668 )
TSCP x1668;
{
TSCP X2, X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1668 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) );
return( sc_cons( c1672, X2 ) );
}
DEFTSCP( ondescrec_2dvalue_21_1dce3137_v );
DEFSTRING( t1745, "XRMOPTIONDESCREC-VALUE!", 23 );
EXTERNTSCPP( xlibtypes_chk_2dcharap );
EXTERNTSCP( xlibtypes_chk_2dcharap_v );
TSCP ondescrec_2dvalue_21_1dce3137( x1676, y1677 )
TSCP x1676, y1677;
{
TSCP X2, X1;
X1 = xlibtypes_ondesclist_3b4d8a1c( x1676 );
X2 = xlibtypes_chk_2dcharap( y1677 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 48 ), X2 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
xlibtypes__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xrmoptiondescrec__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xrmoptiondescrec SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1702 ) ),
ADR( ondescrec_iondescrec_5d2c1c04_v ),
MAKEPROCEDURE( 0,
0,
ondescrec_iondescrec_5d2c1c04,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1726 ) ),
ADR( ondescrec_c_2doption_af12a58e_v ),
MAKEPROCEDURE( 1,
0,
ondescrec_c_2doption_af12a58e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1729 ) ),
ADR( ondescrec_doption_21_102c3207_v ),
MAKEPROCEDURE( 2,
0,
ondescrec_doption_21_102c3207,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1732 ) ),
ADR( ondescrec_dspecifier_4ad7a8aa_v ),
MAKEPROCEDURE( 1,
0,
ondescrec_dspecifier_4ad7a8aa,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1735 ) ),
ADR( ondescrec_ecifier_21_71c894ac_v ),
MAKEPROCEDURE( 2,
0,
ondescrec_ecifier_21_71c894ac,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1738 ) ),
ADR( ondescrec__2dargkind_d4439afe_v ),
MAKEPROCEDURE( 1,
0,
ondescrec__2dargkind_d4439afe,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1740 ) ),
ADR( ondescrec_argkind_21_6f1172_v ),
MAKEPROCEDURE( 2,
0,
ondescrec_argkind_21_6f1172,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1742 ) ),
ADR( ondescrec_ec_2dvalue_897c4145_v ),
MAKEPROCEDURE( 1,
0,
ondescrec_ec_2dvalue_897c4145,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1745 ) ),
ADR( ondescrec_2dvalue_21_1dce3137_v ),
MAKEPROCEDURE( 2,
0,
ondescrec_2dvalue_21_1dce3137,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.