This is xstandardcolormap.c in view mode; [Download] [Up]
/* SCHEME->C */ #include <objects.h> DEFSTRING( t1706, "Argument not an unsigned 8-bit INTEGER: ~s", 42 ); DEFSTATICTSCP2( c1627, t1706 ); DEFSTRING( t1707, "INTEGER->CHAR", 13 ); DEFSTATICTSCP( c1626 ); DEFSTRING( t1708, "XSTANDARDCOLORMAPP", 18 ); DEFSTATICTSCP( c1598 ); static void init_constants() { c1626 = STRINGTOSYMBOL( U_TX( ADR( t1707 ) ) ); CONSTANTEXP( ADR( c1626 ) ); c1598 = STRINGTOSYMBOL( U_TX( ADR( t1708 ) ) ); CONSTANTEXP( ADR( c1598 ) ); } DEFTSCP( dcolormap_rdcolormap_16d31b31_v ); DEFSTRING( t1709, "MAKE-XSTANDARDCOLORMAP", 22 ); 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 dcolormap_rdcolormap_16d31b31( ) { TSCP X4, X3, X2, X1; X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) ); if ( TRUE( X3 ) ) goto L1716; if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( _TSCP( 0 ) ) ), 3 ) ) goto L1717; X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ), INT( _TSCP( 0 ) ) ) ); goto L1718; L1717: X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) ); L1718: if ( TRUE( X4 ) ) goto L1716; if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ), 3 ) ) goto L1725; if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1716; goto L1732; L1725: if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) ) ) goto L1732; L1716: scrt6_error( c1626, c1627, CONS( _TSCP( 0 ), EMPTYLIST ) ); L1732: X1 = sc_make_2dstring( _TSCP( 128 ), CONS( FIX_CHAR( _TSCP( 0 ) ), EMPTYLIST ) ); return( sc_cons( c1598, X1 ) ); } DEFTSCP( dcolormap_2dcolormap_3318aa20_v ); DEFSTRING( t1733, "XSTANDARDCOLORMAP-COLORMAP", 26 ); EXTERNTSCPP( scrt4_c_2dunsigned_2dref ); EXTERNTSCP( scrt4_c_2dunsigned_2dref_v ); EXTERNTSCPP( xlibtypes_dcolormapp_405d72b1 ); EXTERNTSCP( xlibtypes_dcolormapp_405d72b1_v ); TSCP dcolormap_2dcolormap_3318aa20( x1630 ) TSCP x1630; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1630 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) ) ); } DEFTSCP( dcolormap_olormap_21_a487b720_v ); DEFSTRING( t1735, "XSTANDARDCOLORMAP-COLORMAP!", 27 ); EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 ); EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v ); TSCP dcolormap_olormap_21_a487b720( x1633, y1634 ) TSCP x1633, y1634; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1633 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), y1634 ) ); } DEFTSCP( dcolormap_2dred__max_368801e1_v ); DEFSTRING( t1737, "XSTANDARDCOLORMAP-RED_MAX", 25 ); TSCP dcolormap_2dred__max_368801e1( x1637 ) TSCP x1637; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1637 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) ) ); } DEFTSCP( dcolormap_ed__max_21_8916bd34_v ); DEFSTRING( t1739, "XSTANDARDCOLORMAP-RED_MAX!", 26 ); TSCP dcolormap_ed__max_21_8916bd34( x1641, y1642 ) TSCP x1641, y1642; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1641 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 16 ), y1642 ) ); } DEFTSCP( dcolormap_dred__mult_b5d23333_v ); DEFSTRING( t1741, "XSTANDARDCOLORMAP-RED_MULT", 26 ); TSCP dcolormap_dred__mult_b5d23333( x1645 ) TSCP x1645; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1645 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 32 ) ) ); } DEFTSCP( dcolormap_d__mult_21_61d5b072_v ); DEFSTRING( t1743, "XSTANDARDCOLORMAP-RED_MULT!", 27 ); TSCP dcolormap_d__mult_21_61d5b072( x1649, y1650 ) TSCP x1649, y1650; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1649 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 32 ), y1650 ) ); } DEFTSCP( dcolormap_green__max_c51b292a_v ); DEFSTRING( t1745, "XSTANDARDCOLORMAP-GREEN_MAX", 27 ); TSCP dcolormap_green__max_c51b292a( x1653 ) TSCP x1653; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1653 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) ) ); } DEFTSCP( dcolormap_en__max_21_20b7a832_v ); DEFSTRING( t1747, "XSTANDARDCOLORMAP-GREEN_MAX!", 28 ); TSCP dcolormap_en__max_21_20b7a832( x1657, y1658 ) TSCP x1657, y1658; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1657 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 48 ), y1658 ) ); } DEFTSCP( dcolormap_reen__mult_b997bb23_v ); DEFSTRING( t1749, "XSTANDARDCOLORMAP-GREEN_MULT", 28 ); TSCP dcolormap_reen__mult_b997bb23( x1661 ) TSCP x1661; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1661 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 64 ) ) ); } DEFTSCP( dcolormap_n__mult_21_881fb452_v ); DEFSTRING( t1751, "XSTANDARDCOLORMAP-GREEN_MULT!", 29 ); TSCP dcolormap_n__mult_21_881fb452( x1665, y1666 ) TSCP x1665, y1666; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1665 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 64 ), y1666 ) ); } DEFTSCP( dcolormap_dblue__max_961a295c_v ); DEFSTRING( t1753, "XSTANDARDCOLORMAP-BLUE_MAX", 26 ); TSCP dcolormap_dblue__max_961a295c( x1669 ) TSCP x1669; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1669 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 80 ) ) ); } DEFTSCP( dcolormap_ue__max_21_7cc8c15_v ); DEFSTRING( t1755, "XSTANDARDCOLORMAP-BLUE_MAX!", 27 ); TSCP dcolormap_ue__max_21_7cc8c15( x1673, y1674 ) TSCP x1673, y1674; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1673 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 80 ), y1674 ) ); } DEFTSCP( dcolormap_blue__mult_a26e2a_v ); DEFSTRING( t1757, "XSTANDARDCOLORMAP-BLUE_MULT", 27 ); TSCP dcolormap_blue__mult_a26e2a( x1677 ) TSCP x1677; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1677 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 96 ) ) ); } DEFTSCP( dcolormap_e__mult_21_2d327a1d_v ); DEFSTRING( t1759, "XSTANDARDCOLORMAP-BLUE_MULT!", 28 ); TSCP dcolormap_e__mult_21_2d327a1d( x1681, y1682 ) TSCP x1681, y1682; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1681 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 96 ), y1682 ) ); } DEFTSCP( dcolormap_ase__pixel_d3122759_v ); DEFSTRING( t1761, "XSTANDARDCOLORMAP-BASE_PIXEL", 28 ); TSCP dcolormap_ase__pixel_d3122759( x1685 ) TSCP x1685; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1685 ); return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 112 ) ) ); } DEFTSCP( dcolormap___pixel_21_915feb07_v ); DEFSTRING( t1763, "XSTANDARDCOLORMAP-BASE_PIXEL!", 29 ); TSCP dcolormap___pixel_21_915feb07( x1689, y1690 ) TSCP x1689, y1690; { TSCP X1; X1 = xlibtypes_dcolormapp_405d72b1( x1689 ); return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 112 ), y1690 ) ); } static void init_modules( compiler_version ) char *compiler_version; { xlibtypes__init(); scrt4__init(); scrt6__init(); scrt2__init(); MAXDISPLAY( 0 ); } void xstandardcolormap__init() { static int init = 0; if (init) return; init = 1; INITHEAP( 0, 0, 0, 0 ); init_constants(); init_modules( "(xstandardcolormap SCHEME->C COMPILER 28sep90jfb)" ); INITIALIZEVAR( U_TX( ADR( t1709 ) ), ADR( dcolormap_rdcolormap_16d31b31_v ), MAKEPROCEDURE( 0, 0, dcolormap_rdcolormap_16d31b31, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1733 ) ), ADR( dcolormap_2dcolormap_3318aa20_v ), MAKEPROCEDURE( 1, 0, dcolormap_2dcolormap_3318aa20, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1735 ) ), ADR( dcolormap_olormap_21_a487b720_v ), MAKEPROCEDURE( 2, 0, dcolormap_olormap_21_a487b720, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1737 ) ), ADR( dcolormap_2dred__max_368801e1_v ), MAKEPROCEDURE( 1, 0, dcolormap_2dred__max_368801e1, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1739 ) ), ADR( dcolormap_ed__max_21_8916bd34_v ), MAKEPROCEDURE( 2, 0, dcolormap_ed__max_21_8916bd34, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1741 ) ), ADR( dcolormap_dred__mult_b5d23333_v ), MAKEPROCEDURE( 1, 0, dcolormap_dred__mult_b5d23333, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1743 ) ), ADR( dcolormap_d__mult_21_61d5b072_v ), MAKEPROCEDURE( 2, 0, dcolormap_d__mult_21_61d5b072, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1745 ) ), ADR( dcolormap_green__max_c51b292a_v ), MAKEPROCEDURE( 1, 0, dcolormap_green__max_c51b292a, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1747 ) ), ADR( dcolormap_en__max_21_20b7a832_v ), MAKEPROCEDURE( 2, 0, dcolormap_en__max_21_20b7a832, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1749 ) ), ADR( dcolormap_reen__mult_b997bb23_v ), MAKEPROCEDURE( 1, 0, dcolormap_reen__mult_b997bb23, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1751 ) ), ADR( dcolormap_n__mult_21_881fb452_v ), MAKEPROCEDURE( 2, 0, dcolormap_n__mult_21_881fb452, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1753 ) ), ADR( dcolormap_dblue__max_961a295c_v ), MAKEPROCEDURE( 1, 0, dcolormap_dblue__max_961a295c, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1755 ) ), ADR( dcolormap_ue__max_21_7cc8c15_v ), MAKEPROCEDURE( 2, 0, dcolormap_ue__max_21_7cc8c15, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1757 ) ), ADR( dcolormap_blue__mult_a26e2a_v ), MAKEPROCEDURE( 1, 0, dcolormap_blue__mult_a26e2a, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1759 ) ), ADR( dcolormap_e__mult_21_2d327a1d_v ), MAKEPROCEDURE( 2, 0, dcolormap_e__mult_21_2d327a1d, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1761 ) ), ADR( dcolormap_ase__pixel_d3122759_v ), MAKEPROCEDURE( 1, 0, dcolormap_ase__pixel_d3122759, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1763 ) ), ADR( dcolormap___pixel_21_915feb07_v ), MAKEPROCEDURE( 2, 0, dcolormap___pixel_21_915feb07, EMPTYLIST ) ); return; }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.