This is xcolor.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, "XCOLORP", 7 ); 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( xcolor_make_2dxcolor_v ); DEFSTRING( t1693, "MAKE-XCOLOR", 11 ); 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 xcolor_make_2dxcolor( ) { 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( 48 ), CONS( FIX_CHAR( _TSCP( 0 ) ), EMPTYLIST ) ); return( sc_cons( c1598, X1 ) ); } DEFTSCP( xcolor_xcolor_2dpixel_v ); DEFSTRING( t1717, "XCOLOR-PIXEL", 12 ); EXTERNTSCPP( scrt4_c_2dunsigned_2dref ); EXTERNTSCP( scrt4_c_2dunsigned_2dref_v ); EXTERNTSCPP( xlibtypes_chk_2dxcolorp ); EXTERNTSCP( xlibtypes_chk_2dxcolorp_v ); TSCP xcolor_xcolor_2dpixel( x1630 ) TSCP x1630; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1630 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) ) ); } DEFTSCP( xcolor_xcolor_2dpixel_21_v ); DEFSTRING( t1719, "XCOLOR-PIXEL!", 13 ); EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 ); EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v ); TSCP xcolor_xcolor_2dpixel_21( x1633, y1634 ) TSCP x1633, y1634; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1633 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), y1634 ) ); } DEFTSCP( xcolor_xcolor_2dred_v ); DEFSTRING( t1721, "XCOLOR-RED", 10 ); EXTERNTSCPP( scrt4_c_2dshortunsigned_2dref ); EXTERNTSCP( scrt4_c_2dshortunsigned_2dref_v ); TSCP xcolor_xcolor_2dred( x1637 ) TSCP x1637; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1637 ); return( scrt4_c_2dshortunsigned_2dref( X1, _TSCP( 16 ) ) ); } DEFTSCP( xcolor_xcolor_2dred_21_v ); DEFSTRING( t1723, "XCOLOR-RED!", 11 ); EXTERNTSCPP( scrt4_d_2dset_21_828269c5 ); EXTERNTSCP( scrt4_d_2dset_21_828269c5_v ); TSCP xcolor_xcolor_2dred_21( x1641, y1642 ) TSCP x1641, y1642; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1641 ); return( scrt4_d_2dset_21_828269c5( X1, _TSCP( 16 ), y1642 ) ); } DEFTSCP( xcolor_xcolor_2dgreen_v ); DEFSTRING( t1725, "XCOLOR-GREEN", 12 ); TSCP xcolor_xcolor_2dgreen( x1645 ) TSCP x1645; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1645 ); return( scrt4_c_2dshortunsigned_2dref( X1, _TSCP( 24 ) ) ); } DEFTSCP( xcolor_xcolor_2dgreen_21_v ); DEFSTRING( t1727, "XCOLOR-GREEN!", 13 ); TSCP xcolor_xcolor_2dgreen_21( x1649, y1650 ) TSCP x1649, y1650; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1649 ); return( scrt4_d_2dset_21_828269c5( X1, _TSCP( 24 ), y1650 ) ); } DEFTSCP( xcolor_xcolor_2dblue_v ); DEFSTRING( t1729, "XCOLOR-BLUE", 11 ); TSCP xcolor_xcolor_2dblue( x1653 ) TSCP x1653; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1653 ); return( scrt4_c_2dshortunsigned_2dref( X1, _TSCP( 32 ) ) ); } DEFTSCP( xcolor_xcolor_2dblue_21_v ); DEFSTRING( t1731, "XCOLOR-BLUE!", 12 ); TSCP xcolor_xcolor_2dblue_21( x1657, y1658 ) TSCP x1657, y1658; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1657 ); return( scrt4_d_2dset_21_828269c5( X1, _TSCP( 32 ), y1658 ) ); } DEFTSCP( xcolor_xcolor_2dflags_v ); DEFSTRING( t1733, "XCOLOR-FLAGS", 12 ); EXTERNTSCPP( scrt4_c_2dbyte_2dref ); EXTERNTSCP( scrt4_c_2dbyte_2dref_v ); TSCP xcolor_xcolor_2dflags( x1661 ) TSCP x1661; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1661 ); return( scrt4_c_2dbyte_2dref( X1, _TSCP( 40 ) ) ); } DEFTSCP( xcolor_xcolor_2dflags_21_v ); DEFSTRING( t1735, "XCOLOR-FLAGS!", 13 ); EXTERNTSCPP( scrt4_c_2dbyte_2dset_21 ); EXTERNTSCP( scrt4_c_2dbyte_2dset_21_v ); TSCP xcolor_xcolor_2dflags_21( x1665, y1666 ) TSCP x1665, y1666; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1665 ); return( scrt4_c_2dbyte_2dset_21( X1, _TSCP( 40 ), y1666 ) ); } DEFTSCP( xcolor_xcolor_2dpad_v ); DEFSTRING( t1737, "XCOLOR-PAD", 10 ); TSCP xcolor_xcolor_2dpad( x1669 ) TSCP x1669; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1669 ); return( scrt4_c_2dbyte_2dref( X1, _TSCP( 44 ) ) ); } DEFTSCP( xcolor_xcolor_2dpad_21_v ); DEFSTRING( t1739, "XCOLOR-PAD!", 11 ); TSCP xcolor_xcolor_2dpad_21( x1673, y1674 ) TSCP x1673, y1674; { TSCP X1; X1 = xlibtypes_chk_2dxcolorp( x1673 ); return( scrt4_c_2dbyte_2dset_21( X1, _TSCP( 44 ), y1674 ) ); } static void init_modules( compiler_version ) char *compiler_version; { xlibtypes__init(); scrt4__init(); scrt6__init(); scrt2__init(); MAXDISPLAY( 0 ); } void xcolor__init() { static int init = 0; if (init) return; init = 1; INITHEAP( 0, 0, 0, 0 ); init_constants(); init_modules( "(xcolor SCHEME->C COMPILER 28sep90jfb)" ); INITIALIZEVAR( U_TX( ADR( t1693 ) ), ADR( xcolor_make_2dxcolor_v ), MAKEPROCEDURE( 0, 0, xcolor_make_2dxcolor, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1717 ) ), ADR( xcolor_xcolor_2dpixel_v ), MAKEPROCEDURE( 1, 0, xcolor_xcolor_2dpixel, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1719 ) ), ADR( xcolor_xcolor_2dpixel_21_v ), MAKEPROCEDURE( 2, 0, xcolor_xcolor_2dpixel_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1721 ) ), ADR( xcolor_xcolor_2dred_v ), MAKEPROCEDURE( 1, 0, xcolor_xcolor_2dred, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1723 ) ), ADR( xcolor_xcolor_2dred_21_v ), MAKEPROCEDURE( 2, 0, xcolor_xcolor_2dred_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1725 ) ), ADR( xcolor_xcolor_2dgreen_v ), MAKEPROCEDURE( 1, 0, xcolor_xcolor_2dgreen, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1727 ) ), ADR( xcolor_xcolor_2dgreen_21_v ), MAKEPROCEDURE( 2, 0, xcolor_xcolor_2dgreen_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1729 ) ), ADR( xcolor_xcolor_2dblue_v ), MAKEPROCEDURE( 1, 0, xcolor_xcolor_2dblue, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1731 ) ), ADR( xcolor_xcolor_2dblue_21_v ), MAKEPROCEDURE( 2, 0, xcolor_xcolor_2dblue_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1733 ) ), ADR( xcolor_xcolor_2dflags_v ), MAKEPROCEDURE( 1, 0, xcolor_xcolor_2dflags, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1735 ) ), ADR( xcolor_xcolor_2dflags_21_v ), MAKEPROCEDURE( 2, 0, xcolor_xcolor_2dflags_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1737 ) ), ADR( xcolor_xcolor_2dpad_v ), MAKEPROCEDURE( 1, 0, xcolor_xcolor_2dpad, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1739 ) ), ADR( xcolor_xcolor_2dpad_21_v ), MAKEPROCEDURE( 2, 0, xcolor_xcolor_2dpad_21, EMPTYLIST ) ); return; }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.