This is ximage.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1879, "UNSIGNEDPROC", 12 );
DEFSTATICTSCP( c1809 );
DEFSTRING( t1880, "INTPROC", 7 );
DEFSTATICTSCP( c1793 );
DEFSTRING( t1881, "XIMAGEPROC", 10 );
DEFSTATICTSCP( c1777 );
DEFSTRING( t1882, "CHARP", 5 );
DEFSTATICTSCP( c1761 );
DEFSTRING( t1883, "CHARAP", 6 );
DEFSTATICTSCP( c1665 );
DEFSTRING( t1884,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1884 );
DEFSTRING( t1885, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1886, "XIMAGEP", 7 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1809 = STRINGTOSYMBOL( U_TX( ADR( t1879 ) ) );
CONSTANTEXP( ADR( c1809 ) );
c1793 = STRINGTOSYMBOL( U_TX( ADR( t1880 ) ) );
CONSTANTEXP( ADR( c1793 ) );
c1777 = STRINGTOSYMBOL( U_TX( ADR( t1881 ) ) );
CONSTANTEXP( ADR( c1777 ) );
c1761 = STRINGTOSYMBOL( U_TX( ADR( t1882 ) ) );
CONSTANTEXP( ADR( c1761 ) );
c1665 = STRINGTOSYMBOL( U_TX( ADR( t1883 ) ) );
CONSTANTEXP( ADR( c1665 ) );
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1885 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1886 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( ximage_make_2dximage_v );
DEFSTRING( t1887, "MAKE-XIMAGE", 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 ximage_make_2dximage( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1894;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1895;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1896;
L1895:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1896:
if ( TRUE( X4 ) ) goto L1894;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1903;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1894;
goto L1910;
L1903:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1910;
L1894:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1910:
X1 = sc_make_2dstring( _TSCP( 352 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( ximage_ximage_2dwidth_v );
DEFSTRING( t1911, "XIMAGE-WIDTH", 12 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( xlibtypes_chk_2dximagep );
EXTERNTSCP( xlibtypes_chk_2dximagep_v );
TSCP ximage_ximage_2dwidth( x1630 )
TSCP x1630;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1630 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) );
}
DEFTSCP( ximage_ximage_2dwidth_21_v );
DEFSTRING( t1913, "XIMAGE-WIDTH!", 13 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP ximage_ximage_2dwidth_21( x1633, y1634 )
TSCP x1633, y1634;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1633 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) );
}
DEFTSCP( ximage_ximage_2dheight_v );
DEFSTRING( t1915, "XIMAGE-HEIGHT", 13 );
TSCP ximage_ximage_2dheight( x1637 )
TSCP x1637;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1637 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( ximage_ximage_2dheight_21_v );
DEFSTRING( t1917, "XIMAGE-HEIGHT!", 14 );
TSCP ximage_ximage_2dheight_21( x1641, y1642 )
TSCP x1641, y1642;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1641 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1642 ) );
}
DEFTSCP( ximage_ximage_2dxoffset_v );
DEFSTRING( t1919, "XIMAGE-XOFFSET", 14 );
TSCP ximage_ximage_2dxoffset( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1645 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( ximage_ximage_2dxoffset_21_v );
DEFSTRING( t1921, "XIMAGE-XOFFSET!", 15 );
TSCP ximage_ximage_2dxoffset_21( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1649 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1650 ) );
}
DEFTSCP( ximage_ximage_2dformat_v );
DEFSTRING( t1923, "XIMAGE-FORMAT", 13 );
TSCP ximage_ximage_2dformat( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1653 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( ximage_ximage_2dformat_21_v );
DEFSTRING( t1925, "XIMAGE-FORMAT!", 14 );
TSCP ximage_ximage_2dformat_21( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1657 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 48 ), y1658 ) );
}
DEFTSCP( ximage_ximage_2ddata_v );
DEFSTRING( t1927, "XIMAGE-DATA", 11 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP ximage_ximage_2ddata( x1661 )
TSCP x1661;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1661 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 64 ) );
return( sc_cons( c1665, X2 ) );
}
DEFTSCP( ximage_ximage_2ddata_21_v );
DEFSTRING( t1930, "XIMAGE-DATA!", 12 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dcharap );
EXTERNTSCP( xlibtypes_chk_2dcharap_v );
TSCP ximage_ximage_2ddata_21( x1669, y1670 )
TSCP x1669, y1670;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1669 );
X2 = xlibtypes_chk_2dcharap( y1670 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 64 ), X2 ) );
}
DEFTSCP( ximage_ximage_2dbyte__order_v );
DEFSTRING( t1933, "XIMAGE-BYTE_ORDER", 17 );
TSCP ximage_ximage_2dbyte__order( x1677 )
TSCP x1677;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1677 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( ximage___order_21_37c12355_v );
DEFSTRING( t1935, "XIMAGE-BYTE_ORDER!", 18 );
TSCP ximage___order_21_37c12355( x1681, y1682 )
TSCP x1681, y1682;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1681 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1682 ) );
}
DEFTSCP( ximage_ximage_2dbitmap__unit_v );
DEFSTRING( t1937, "XIMAGE-BITMAP_UNIT", 18 );
TSCP ximage_ximage_2dbitmap__unit( x1685 )
TSCP x1685;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1685 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 96 ) ) );
}
DEFTSCP( ximage_p__unit_21_2114347_v );
DEFSTRING( t1939, "XIMAGE-BITMAP_UNIT!", 19 );
TSCP ximage_p__unit_21_2114347( x1689, y1690 )
TSCP x1689, y1690;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1689 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 96 ), y1690 ) );
}
DEFTSCP( ximage_bit__order_ef5b0910_v );
DEFSTRING( t1941, "XIMAGE-BITMAP_BIT_ORDER", 23 );
TSCP ximage_bit__order_ef5b0910( x1693 )
TSCP x1693;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1693 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 112 ) ) );
}
DEFTSCP( ximage___order_21_ea13ad6c_v );
DEFSTRING( t1943, "XIMAGE-BITMAP_BIT_ORDER!", 24 );
TSCP ximage___order_21_ea13ad6c( x1697, y1698 )
TSCP x1697, y1698;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1697 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 112 ), y1698 ) );
}
DEFTSCP( ximage_ximage_2dbitmap__pad_v );
DEFSTRING( t1945, "XIMAGE-BITMAP_PAD", 17 );
TSCP ximage_ximage_2dbitmap__pad( x1701 )
TSCP x1701;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1701 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 128 ) ) );
}
DEFTSCP( ximage_ap__pad_21_21657e1c_v );
DEFSTRING( t1947, "XIMAGE-BITMAP_PAD!", 18 );
TSCP ximage_ap__pad_21_21657e1c( x1705, y1706 )
TSCP x1705, y1706;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1705 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 128 ), y1706 ) );
}
DEFTSCP( ximage_ximage_2ddepth_v );
DEFSTRING( t1949, "XIMAGE-DEPTH", 12 );
TSCP ximage_ximage_2ddepth( x1709 )
TSCP x1709;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1709 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 144 ) ) );
}
DEFTSCP( ximage_ximage_2ddepth_21_v );
DEFSTRING( t1951, "XIMAGE-DEPTH!", 13 );
TSCP ximage_ximage_2ddepth_21( x1713, y1714 )
TSCP x1713, y1714;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1713 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 144 ), y1714 ) );
}
DEFTSCP( ximage__per__line_64afb334_v );
DEFSTRING( t1953, "XIMAGE-BYTES_PER_LINE", 21 );
TSCP ximage__per__line_64afb334( x1717 )
TSCP x1717;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1717 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 160 ) ) );
}
DEFTSCP( ximage_r__line_21_71ad33ec_v );
DEFSTRING( t1955, "XIMAGE-BYTES_PER_LINE!", 22 );
TSCP ximage_r__line_21_71ad33ec( x1721, y1722 )
TSCP x1721, y1722;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1721 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 160 ), y1722 ) );
}
DEFTSCP( ximage_per__pixel_5a821cc7_v );
DEFSTRING( t1957, "XIMAGE-BITS_PER_PIXEL", 21 );
TSCP ximage_per__pixel_5a821cc7( x1725 )
TSCP x1725;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1725 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 176 ) ) );
}
DEFTSCP( ximage___pixel_21_aa6f0208_v );
DEFSTRING( t1959, "XIMAGE-BITS_PER_PIXEL!", 22 );
TSCP ximage___pixel_21_aa6f0208( x1729, y1730 )
TSCP x1729, y1730;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1729 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 176 ), y1730 ) );
}
DEFTSCP( ximage_ximage_2dred__mask_v );
DEFSTRING( t1961, "XIMAGE-RED_MASK", 15 );
TSCP ximage_ximage_2dred__mask( x1733 )
TSCP x1733;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1733 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 192 ) ) );
}
DEFTSCP( ximage_ximage_2dred__mask_21_v );
DEFSTRING( t1963, "XIMAGE-RED_MASK!", 16 );
TSCP ximage_ximage_2dred__mask_21( x1737, y1738 )
TSCP x1737, y1738;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1737 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 192 ), y1738 ) );
}
DEFTSCP( ximage_ximage_2dgreen__mask_v );
DEFSTRING( t1965, "XIMAGE-GREEN_MASK", 17 );
TSCP ximage_ximage_2dgreen__mask( x1741 )
TSCP x1741;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1741 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 208 ) ) );
}
DEFTSCP( ximage_n__mask_21_c200eed0_v );
DEFSTRING( t1967, "XIMAGE-GREEN_MASK!", 18 );
TSCP ximage_n__mask_21_c200eed0( x1745, y1746 )
TSCP x1745, y1746;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1745 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 208 ), y1746 ) );
}
DEFTSCP( ximage_ximage_2dblue__mask_v );
DEFSTRING( t1969, "XIMAGE-BLUE_MASK", 16 );
TSCP ximage_ximage_2dblue__mask( x1749 )
TSCP x1749;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1749 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 224 ) ) );
}
DEFTSCP( ximage_ximage_2dblue__mask_21_v );
DEFSTRING( t1971, "XIMAGE-BLUE_MASK!", 17 );
TSCP ximage_ximage_2dblue__mask_21( x1753, y1754 )
TSCP x1753, y1754;
{
TSCP X1;
X1 = xlibtypes_chk_2dximagep( x1753 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 224 ), y1754 ) );
}
DEFTSCP( ximage_ximage_2dobdata_v );
DEFSTRING( t1973, "XIMAGE-OBDATA", 13 );
TSCP ximage_ximage_2dobdata( x1757 )
TSCP x1757;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1757 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 240 ) );
return( sc_cons( c1761, X2 ) );
}
DEFTSCP( ximage_ximage_2dobdata_21_v );
DEFSTRING( t1976, "XIMAGE-OBDATA!", 14 );
EXTERNTSCPP( xlibtypes_chk_2dcharp );
EXTERNTSCP( xlibtypes_chk_2dcharp_v );
TSCP ximage_ximage_2dobdata_21( x1765, y1766 )
TSCP x1765, y1766;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1765 );
X2 = xlibtypes_chk_2dcharp( y1766 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 240 ), X2 ) );
}
DEFTSCP( ximage_ate__image_ddbd6364_v );
DEFSTRING( t1979, "XIMAGE-F-CREATE_IMAGE", 21 );
TSCP ximage_ate__image_ddbd6364( x1773 )
TSCP x1773;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1773 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 256 ) );
return( sc_cons( c1777, X2 ) );
}
DEFTSCP( ximage___image_21_6f90a9b2_v );
DEFSTRING( t1982, "XIMAGE-F-CREATE_IMAGE!", 22 );
EXTERNTSCPP( xlibtypes_chk_2dximageproc );
EXTERNTSCP( xlibtypes_chk_2dximageproc_v );
TSCP ximage___image_21_6f90a9b2( x1781, y1782 )
TSCP x1781, y1782;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1781 );
X2 = xlibtypes_chk_2dximageproc( y1782 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 256 ), X2 ) );
}
DEFTSCP( ximage_roy__image_1b00d5d2_v );
DEFSTRING( t1985, "XIMAGE-F-DESTROY_IMAGE", 22 );
TSCP ximage_roy__image_1b00d5d2( x1789 )
TSCP x1789;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1789 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 272 ) );
return( sc_cons( c1793, X2 ) );
}
DEFTSCP( ximage___image_21_a90cedd9_v );
DEFSTRING( t1988, "XIMAGE-F-DESTROY_IMAGE!", 23 );
EXTERNTSCPP( xlibtypes_chk_2dintproc );
EXTERNTSCP( xlibtypes_chk_2dintproc_v );
TSCP ximage___image_21_a90cedd9( x1797, y1798 )
TSCP x1797, y1798;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1797 );
X2 = xlibtypes_chk_2dintproc( y1798 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 272 ), X2 ) );
}
DEFTSCP( ximage_get__pixel_f02181aa_v );
DEFSTRING( t1991, "XIMAGE-F-GET_PIXEL", 18 );
TSCP ximage_get__pixel_f02181aa( x1805 )
TSCP x1805;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1805 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 288 ) );
return( sc_cons( c1809, X2 ) );
}
DEFTSCP( ximage___pixel_21_61505cd4_v );
DEFSTRING( t1994, "XIMAGE-F-GET_PIXEL!", 19 );
EXTERNTSCPP( xlibtypes_chk_2dunsignedproc );
EXTERNTSCP( xlibtypes_chk_2dunsignedproc_v );
TSCP ximage___pixel_21_61505cd4( x1813, y1814 )
TSCP x1813, y1814;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1813 );
X2 = xlibtypes_chk_2dunsignedproc( y1814 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 288 ), X2 ) );
}
DEFTSCP( ximage_put__pixel_9993594a_v );
DEFSTRING( t1997, "XIMAGE-F-PUT_PIXEL", 18 );
TSCP ximage_put__pixel_9993594a( x1821 )
TSCP x1821;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1821 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 304 ) );
return( sc_cons( c1793, X2 ) );
}
DEFTSCP( ximage___pixel_21_a43c11aa_v );
DEFSTRING( t2000, "XIMAGE-F-PUT_PIXEL!", 19 );
TSCP ximage___pixel_21_a43c11aa( x1828, y1829 )
TSCP x1828, y1829;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1828 );
X2 = xlibtypes_chk_2dintproc( y1829 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 304 ), X2 ) );
}
DEFTSCP( ximage_sub__image_72fffa98_v );
DEFSTRING( t2003, "XIMAGE-F-SUB_IMAGE", 18 );
TSCP ximage_sub__image_72fffa98( x1836 )
TSCP x1836;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1836 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 320 ) );
return( sc_cons( c1777, X2 ) );
}
DEFTSCP( ximage___image_21_eb1f3246_v );
DEFSTRING( t2006, "XIMAGE-F-SUB_IMAGE!", 19 );
TSCP ximage___image_21_eb1f3246( x1843, y1844 )
TSCP x1843, y1844;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1843 );
X2 = xlibtypes_chk_2dximageproc( y1844 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 320 ), X2 ) );
}
DEFTSCP( ximage_add__pixel_96ffd485_v );
DEFSTRING( t2009, "XIMAGE-F-ADD_PIXEL", 18 );
TSCP ximage_add__pixel_96ffd485( x1851 )
TSCP x1851;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1851 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 336 ) );
return( sc_cons( c1793, X2 ) );
}
DEFTSCP( ximage___pixel_21_f4e60bad_v );
DEFSTRING( t2012, "XIMAGE-F-ADD_PIXEL!", 19 );
TSCP ximage___pixel_21_f4e60bad( x1858, y1859 )
TSCP x1858, y1859;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dximagep( x1858 );
X2 = xlibtypes_chk_2dintproc( y1859 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 336 ), X2 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
xlibtypes__init();
scrt4__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void ximage__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(ximage SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1887 ) ),
ADR( ximage_make_2dximage_v ),
MAKEPROCEDURE( 0,
0,
ximage_make_2dximage, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1911 ) ),
ADR( ximage_ximage_2dwidth_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dwidth, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1913 ) ),
ADR( ximage_ximage_2dwidth_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2dwidth_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1915 ) ),
ADR( ximage_ximage_2dheight_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dheight,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1917 ) ),
ADR( ximage_ximage_2dheight_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2dheight_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1919 ) ),
ADR( ximage_ximage_2dxoffset_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dxoffset,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1921 ) ),
ADR( ximage_ximage_2dxoffset_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2dxoffset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1923 ) ),
ADR( ximage_ximage_2dformat_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dformat,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1925 ) ),
ADR( ximage_ximage_2dformat_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2dformat_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1927 ) ),
ADR( ximage_ximage_2ddata_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2ddata, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1930 ) ),
ADR( ximage_ximage_2ddata_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2ddata_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1933 ) ),
ADR( ximage_ximage_2dbyte__order_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dbyte__order,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1935 ) ),
ADR( ximage___order_21_37c12355_v ),
MAKEPROCEDURE( 2,
0,
ximage___order_21_37c12355,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1937 ) ),
ADR( ximage_ximage_2dbitmap__unit_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dbitmap__unit,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1939 ) ),
ADR( ximage_p__unit_21_2114347_v ),
MAKEPROCEDURE( 2,
0,
ximage_p__unit_21_2114347,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1941 ) ),
ADR( ximage_bit__order_ef5b0910_v ),
MAKEPROCEDURE( 1,
0,
ximage_bit__order_ef5b0910,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1943 ) ),
ADR( ximage___order_21_ea13ad6c_v ),
MAKEPROCEDURE( 2,
0,
ximage___order_21_ea13ad6c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1945 ) ),
ADR( ximage_ximage_2dbitmap__pad_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dbitmap__pad,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1947 ) ),
ADR( ximage_ap__pad_21_21657e1c_v ),
MAKEPROCEDURE( 2,
0,
ximage_ap__pad_21_21657e1c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1949 ) ),
ADR( ximage_ximage_2ddepth_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2ddepth, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1951 ) ),
ADR( ximage_ximage_2ddepth_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2ddepth_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1953 ) ),
ADR( ximage__per__line_64afb334_v ),
MAKEPROCEDURE( 1,
0,
ximage__per__line_64afb334,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1955 ) ),
ADR( ximage_r__line_21_71ad33ec_v ),
MAKEPROCEDURE( 2,
0,
ximage_r__line_21_71ad33ec,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1957 ) ),
ADR( ximage_per__pixel_5a821cc7_v ),
MAKEPROCEDURE( 1,
0,
ximage_per__pixel_5a821cc7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1959 ) ),
ADR( ximage___pixel_21_aa6f0208_v ),
MAKEPROCEDURE( 2,
0,
ximage___pixel_21_aa6f0208,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1961 ) ),
ADR( ximage_ximage_2dred__mask_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dred__mask,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1963 ) ),
ADR( ximage_ximage_2dred__mask_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2dred__mask_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1965 ) ),
ADR( ximage_ximage_2dgreen__mask_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dgreen__mask,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1967 ) ),
ADR( ximage_n__mask_21_c200eed0_v ),
MAKEPROCEDURE( 2,
0,
ximage_n__mask_21_c200eed0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1969 ) ),
ADR( ximage_ximage_2dblue__mask_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dblue__mask,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1971 ) ),
ADR( ximage_ximage_2dblue__mask_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2dblue__mask_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1973 ) ),
ADR( ximage_ximage_2dobdata_v ),
MAKEPROCEDURE( 1,
0,
ximage_ximage_2dobdata,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1976 ) ),
ADR( ximage_ximage_2dobdata_21_v ),
MAKEPROCEDURE( 2,
0,
ximage_ximage_2dobdata_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1979 ) ),
ADR( ximage_ate__image_ddbd6364_v ),
MAKEPROCEDURE( 1,
0,
ximage_ate__image_ddbd6364,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1982 ) ),
ADR( ximage___image_21_6f90a9b2_v ),
MAKEPROCEDURE( 2,
0,
ximage___image_21_6f90a9b2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1985 ) ),
ADR( ximage_roy__image_1b00d5d2_v ),
MAKEPROCEDURE( 1,
0,
ximage_roy__image_1b00d5d2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1988 ) ),
ADR( ximage___image_21_a90cedd9_v ),
MAKEPROCEDURE( 2,
0,
ximage___image_21_a90cedd9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1991 ) ),
ADR( ximage_get__pixel_f02181aa_v ),
MAKEPROCEDURE( 1,
0,
ximage_get__pixel_f02181aa,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1994 ) ),
ADR( ximage___pixel_21_61505cd4_v ),
MAKEPROCEDURE( 2,
0,
ximage___pixel_21_61505cd4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1997 ) ),
ADR( ximage_put__pixel_9993594a_v ),
MAKEPROCEDURE( 1,
0,
ximage_put__pixel_9993594a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2000 ) ),
ADR( ximage___pixel_21_a43c11aa_v ),
MAKEPROCEDURE( 2,
0,
ximage___pixel_21_a43c11aa,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2003 ) ),
ADR( ximage_sub__image_72fffa98_v ),
MAKEPROCEDURE( 1,
0,
ximage_sub__image_72fffa98,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2006 ) ),
ADR( ximage___image_21_eb1f3246_v ),
MAKEPROCEDURE( 2,
0,
ximage___image_21_eb1f3246,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2009 ) ),
ADR( ximage_add__pixel_96ffd485_v ),
MAKEPROCEDURE( 1,
0,
ximage_add__pixel_96ffd485,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2012 ) ),
ADR( ximage___pixel_21_f4e60bad_v ),
MAKEPROCEDURE( 2,
0,
ximage___pixel_21_f4e60bad,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.