This is xfontprop.c in view mode; [Download] [Up]
/* SCHEME->C */ #include <objects.h> DEFSTRING( t1658, "Argument not an unsigned 8-bit INTEGER: ~s", 42 ); DEFSTATICTSCP2( c1627, t1658 ); DEFSTRING( t1659, "INTEGER->CHAR", 13 ); DEFSTATICTSCP( c1626 ); DEFSTRING( t1660, "XFONTPROPP", 10 ); DEFSTATICTSCP( c1598 ); static void init_constants() { c1626 = STRINGTOSYMBOL( U_TX( ADR( t1659 ) ) ); CONSTANTEXP( ADR( c1626 ) ); c1598 = STRINGTOSYMBOL( U_TX( ADR( t1660 ) ) ); CONSTANTEXP( ADR( c1598 ) ); } DEFTSCP( xfontprop_make_2dxfontprop_v ); DEFSTRING( t1661, "MAKE-XFONTPROP", 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 xfontprop_make_2dxfontprop( ) { TSCP X4, X3, X2, X1; X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) ); if ( TRUE( X3 ) ) goto L1668; if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( _TSCP( 0 ) ) ), 3 ) ) goto L1669; X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ), INT( _TSCP( 0 ) ) ) ); goto L1670; L1669: X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) ); L1670: if ( TRUE( X4 ) ) goto L1668; if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ), 3 ) ) goto L1677; if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1668; goto L1684; L1677: if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) ) ) goto L1684; L1668: scrt6_error( c1626, c1627, CONS( _TSCP( 0 ), EMPTYLIST ) ); L1684: X1 = sc_make_2dstring( _TSCP( 32 ), CONS( FIX_CHAR( _TSCP( 0 ) ), EMPTYLIST ) ); return( sc_cons( c1598, X1 ) ); } DEFTSCP( xfontprop_xfontprop_2dname_v ); DEFSTRING( t1685, "XFONTPROP-NAME", 14 ); EXTERNTSCPP( scrt4_c_2dunsigned_2dref ); EXTERNTSCP( scrt4_c_2dunsigned_2dref_v ); EXTERNTSCPP( xlibtypes_chk_2dxfontpropp ); EXTERNTSCP( xlibtypes_chk_2dxfontpropp_v ); TSCP xfontprop_xfontprop_2dname( x1630 ) TSCP x1630; { TSCP X1; X1 = xlibtypes_chk_2dxfontpropp( x1630 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) ) ); } DEFTSCP( xfontprop_xfontprop_2dname_21_v ); DEFSTRING( t1687, "XFONTPROP-NAME!", 15 ); EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 ); EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v ); TSCP xfontprop_xfontprop_2dname_21( x1633, y1634 ) TSCP x1633, y1634; { TSCP X1; X1 = xlibtypes_chk_2dxfontpropp( x1633 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), y1634 ) ); } DEFTSCP( xfontprop_xfontprop_2dcard32_v ); DEFSTRING( t1689, "XFONTPROP-CARD32", 16 ); TSCP xfontprop_xfontprop_2dcard32( x1637 ) TSCP x1637; { TSCP X1; X1 = xlibtypes_chk_2dxfontpropp( x1637 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) ) ); } DEFTSCP( xfontprop_dcard32_21_a8afce8c_v ); DEFSTRING( t1691, "XFONTPROP-CARD32!", 17 ); TSCP xfontprop_dcard32_21_a8afce8c( x1641, y1642 ) TSCP x1641, y1642; { TSCP X1; X1 = xlibtypes_chk_2dxfontpropp( x1641 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 16 ), y1642 ) ); } static void init_modules( compiler_version ) char *compiler_version; { xlibtypes__init(); scrt4__init(); scrt6__init(); scrt2__init(); MAXDISPLAY( 0 ); } void xfontprop__init() { static int init = 0; if (init) return; init = 1; INITHEAP( 0, 0, 0, 0 ); init_constants(); init_modules( "(xfontprop SCHEME->C COMPILER 28sep90jfb)" ); INITIALIZEVAR( U_TX( ADR( t1661 ) ), ADR( xfontprop_make_2dxfontprop_v ), MAKEPROCEDURE( 0, 0, xfontprop_make_2dxfontprop, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1685 ) ), ADR( xfontprop_xfontprop_2dname_v ), MAKEPROCEDURE( 1, 0, xfontprop_xfontprop_2dname, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1687 ) ), ADR( xfontprop_xfontprop_2dname_21_v ), MAKEPROCEDURE( 2, 0, xfontprop_xfontprop_2dname_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1689 ) ), ADR( xfontprop_xfontprop_2dcard32_v ), MAKEPROCEDURE( 1, 0, xfontprop_xfontprop_2dcard32, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1691 ) ), ADR( xfontprop_dcard32_21_a8afce8c_v ), MAKEPROCEDURE( 2, 0, xfontprop_dcard32_21_a8afce8c, EMPTYLIST ) ); return; }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.