This is xgcvalues.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1826,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1826 );
DEFSTRING( t1827, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1828, "XGCVALUESP", 10 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1827 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1828 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( xgcvalues_make_2dxgcvalues_v );
DEFSTRING( t1829, "MAKE-XGCVALUES", 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 xgcvalues_make_2dxgcvalues( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1836;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1837;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1838;
L1837:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1838:
if ( TRUE( X4 ) ) goto L1836;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1845;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1836;
goto L1852;
L1845:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1852;
L1836:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1852:
X1 = sc_make_2dstring( _TSCP( 368 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( xgcvalues_2dfunction_84a2fc34_v );
DEFSTRING( t1853, "XGCVALUES-FUNCTION", 18 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( xlibtypes_chk_2dxgcvaluesp );
EXTERNTSCP( xlibtypes_chk_2dxgcvaluesp_v );
TSCP xgcvalues_2dfunction_84a2fc34( x1630 )
TSCP x1630;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1630 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) );
}
DEFTSCP( xgcvalues_unction_21_78fd1c7b_v );
DEFSTRING( t1855, "XGCVALUES-FUNCTION!", 19 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP xgcvalues_unction_21_78fd1c7b( x1633, y1634 )
TSCP x1633, y1634;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1633 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) );
}
DEFTSCP( xgcvalues_lane__mask_4d8e0847_v );
DEFSTRING( t1857, "XGCVALUES-PLANE_MASK", 20 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP xgcvalues_lane__mask_4d8e0847( x1637 )
TSCP x1637;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1637 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( xgcvalues_e__mask_21_6c4282e1_v );
DEFSTRING( t1859, "XGCVALUES-PLANE_MASK!", 21 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
TSCP xgcvalues_e__mask_21_6c4282e1( x1641, y1642 )
TSCP x1641, y1642;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1641 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 16 ), y1642 ) );
}
DEFTSCP( xgcvalues_foreground_4dab698c_v );
DEFSTRING( t1861, "XGCVALUES-FOREGROUND", 20 );
TSCP xgcvalues_foreground_4dab698c( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1645 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( xgcvalues_eground_21_c65a75e1_v );
DEFSTRING( t1863, "XGCVALUES-FOREGROUND!", 21 );
TSCP xgcvalues_eground_21_c65a75e1( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1649 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 32 ), y1650 ) );
}
DEFTSCP( xgcvalues_background_6cac588c_v );
DEFSTRING( t1865, "XGCVALUES-BACKGROUND", 20 );
TSCP xgcvalues_background_6cac588c( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1653 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( xgcvalues_kground_21_9e63e7d1_v );
DEFSTRING( t1867, "XGCVALUES-BACKGROUND!", 21 );
TSCP xgcvalues_kground_21_9e63e7d1( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1657 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 48 ), y1658 ) );
}
DEFTSCP( xgcvalues_ine__width_2fdb4a90_v );
DEFSTRING( t1869, "XGCVALUES-LINE_WIDTH", 20 );
TSCP xgcvalues_ine__width_2fdb4a90( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1661 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( xgcvalues___width_21_3dca29ca_v );
DEFSTRING( t1871, "XGCVALUES-LINE_WIDTH!", 21 );
TSCP xgcvalues___width_21_3dca29ca( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1665 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 64 ), y1666 ) );
}
DEFTSCP( xgcvalues_ine__style_907cb7d5_v );
DEFSTRING( t1873, "XGCVALUES-LINE_STYLE", 20 );
TSCP xgcvalues_ine__style_907cb7d5( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1669 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( xgcvalues___style_21_a23bcfe5_v );
DEFSTRING( t1875, "XGCVALUES-LINE_STYLE!", 21 );
TSCP xgcvalues___style_21_a23bcfe5( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1673 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1674 ) );
}
DEFTSCP( xgcvalues_cap__style_330c53a5_v );
DEFSTRING( t1877, "XGCVALUES-CAP_STYLE", 19 );
TSCP xgcvalues_cap__style_330c53a5( x1677 )
TSCP x1677;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1677 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 96 ) ) );
}
DEFTSCP( xgcvalues___style_21_9cdde0c2_v );
DEFSTRING( t1879, "XGCVALUES-CAP_STYLE!", 20 );
TSCP xgcvalues___style_21_9cdde0c2( x1681, y1682 )
TSCP x1681, y1682;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1681 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 96 ), y1682 ) );
}
DEFTSCP( xgcvalues_oin__style_4cdc7c4e_v );
DEFSTRING( t1881, "XGCVALUES-JOIN_STYLE", 20 );
TSCP xgcvalues_oin__style_4cdc7c4e( x1685 )
TSCP x1685;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1685 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 112 ) ) );
}
DEFTSCP( xgcvalues___style_21_ada53545_v );
DEFSTRING( t1883, "XGCVALUES-JOIN_STYLE!", 21 );
TSCP xgcvalues___style_21_ada53545( x1689, y1690 )
TSCP x1689, y1690;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1689 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 112 ), y1690 ) );
}
DEFTSCP( xgcvalues_ill__style_436adcfc_v );
DEFSTRING( t1885, "XGCVALUES-FILL_STYLE", 20 );
TSCP xgcvalues_ill__style_436adcfc( x1693 )
TSCP x1693;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1693 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 128 ) ) );
}
DEFTSCP( xgcvalues___style_21_e77ab564_v );
DEFSTRING( t1887, "XGCVALUES-FILL_STYLE!", 21 );
TSCP xgcvalues___style_21_e77ab564( x1697, y1698 )
TSCP x1697, y1698;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1697 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 128 ), y1698 ) );
}
DEFTSCP( xgcvalues_fill__rule_f422c5ef_v );
DEFSTRING( t1889, "XGCVALUES-FILL_RULE", 19 );
TSCP xgcvalues_fill__rule_f422c5ef( x1701 )
TSCP x1701;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1701 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 144 ) ) );
}
DEFTSCP( xgcvalues_l__rule_21_1a1dc840_v );
DEFSTRING( t1891, "XGCVALUES-FILL_RULE!", 20 );
TSCP xgcvalues_l__rule_21_1a1dc840( x1705, y1706 )
TSCP x1705, y1706;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1705 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 144 ), y1706 ) );
}
DEFTSCP( xgcvalues_darc__mode_a3bf6090_v );
DEFSTRING( t1893, "XGCVALUES-ARC_MODE", 18 );
TSCP xgcvalues_darc__mode_a3bf6090( x1709 )
TSCP x1709;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1709 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 160 ) ) );
}
DEFTSCP( xgcvalues_c__mode_21_187e402f_v );
DEFSTRING( t1895, "XGCVALUES-ARC_MODE!", 19 );
TSCP xgcvalues_c__mode_21_187e402f( x1713, y1714 )
TSCP x1713, y1714;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1713 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 160 ), y1714 ) );
}
DEFTSCP( xgcvalues_xgcvalues_2dtile_v );
DEFSTRING( t1897, "XGCVALUES-TILE", 14 );
TSCP xgcvalues_xgcvalues_2dtile( x1717 )
TSCP x1717;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1717 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 176 ) ) );
}
DEFTSCP( xgcvalues_xgcvalues_2dtile_21_v );
DEFSTRING( t1899, "XGCVALUES-TILE!", 15 );
TSCP xgcvalues_xgcvalues_2dtile_21( x1721, y1722 )
TSCP x1721, y1722;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1721 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 176 ), y1722 ) );
}
DEFTSCP( xgcvalues_xgcvalues_2dstipple_v );
DEFSTRING( t1901, "XGCVALUES-STIPPLE", 17 );
TSCP xgcvalues_xgcvalues_2dstipple( x1725 )
TSCP x1725;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1725 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 192 ) ) );
}
DEFTSCP( xgcvalues_stipple_21_20e5ee29_v );
DEFSTRING( t1903, "XGCVALUES-STIPPLE!", 18 );
TSCP xgcvalues_stipple_21_20e5ee29( x1729, y1730 )
TSCP x1729, y1730;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1729 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 192 ), y1730 ) );
}
DEFTSCP( xgcvalues__x__origin_ed77b628_v );
DEFSTRING( t1905, "XGCVALUES-TS_X_ORIGIN", 21 );
TSCP xgcvalues__x__origin_ed77b628( x1733 )
TSCP x1733;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1733 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 208 ) ) );
}
DEFTSCP( xgcvalues__origin_21_91eec7d2_v );
DEFSTRING( t1907, "XGCVALUES-TS_X_ORIGIN!", 22 );
TSCP xgcvalues__origin_21_91eec7d2( x1737, y1738 )
TSCP x1737, y1738;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1737 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 208 ), y1738 ) );
}
DEFTSCP( xgcvalues__y__origin_fa0ca26b_v );
DEFSTRING( t1909, "XGCVALUES-TS_Y_ORIGIN", 21 );
TSCP xgcvalues__y__origin_fa0ca26b( x1741 )
TSCP x1741;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1741 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 224 ) ) );
}
DEFTSCP( xgcvalues__origin_21_a4b8bbd_v );
DEFSTRING( t1911, "XGCVALUES-TS_Y_ORIGIN!", 22 );
TSCP xgcvalues__origin_21_a4b8bbd( x1745, y1746 )
TSCP x1745, y1746;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1745 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 224 ), y1746 ) );
}
DEFTSCP( xgcvalues_xgcvalues_2dfont_v );
DEFSTRING( t1913, "XGCVALUES-FONT", 14 );
TSCP xgcvalues_xgcvalues_2dfont( x1749 )
TSCP x1749;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1749 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 240 ) ) );
}
DEFTSCP( xgcvalues_xgcvalues_2dfont_21_v );
DEFSTRING( t1915, "XGCVALUES-FONT!", 15 );
TSCP xgcvalues_xgcvalues_2dfont_21( x1753, y1754 )
TSCP x1753, y1754;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1753 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 240 ), y1754 ) );
}
DEFTSCP( xgcvalues_ndow__mode_a57a63d9_v );
DEFSTRING( t1917, "XGCVALUES-SUBWINDOW_MODE", 24 );
TSCP xgcvalues_ndow__mode_a57a63d9( x1757 )
TSCP x1757;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1757 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 256 ) ) );
}
DEFTSCP( xgcvalues_w__mode_21_a716939a_v );
DEFSTRING( t1919, "XGCVALUES-SUBWINDOW_MODE!", 25 );
TSCP xgcvalues_w__mode_21_a716939a( x1761, y1762 )
TSCP x1761, y1762;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1761 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 256 ), y1762 ) );
}
DEFTSCP( xgcvalues__exposures_2693ba2_v );
DEFSTRING( t1921, "XGCVALUES-GRAPHICS_EXPOSURES", 28 );
TSCP xgcvalues__exposures_2693ba2( x1765 )
TSCP x1765;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1765 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 272 ) ) );
}
DEFTSCP( xgcvalues_posures_21_96e820e_v );
DEFSTRING( t1923, "XGCVALUES-GRAPHICS_EXPOSURES!", 29 );
TSCP xgcvalues_posures_21_96e820e( x1769, y1770 )
TSCP x1769, y1770;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1769 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 272 ), y1770 ) );
}
DEFTSCP( xgcvalues__x__origin_500e191e_v );
DEFSTRING( t1925, "XGCVALUES-CLIP_X_ORIGIN", 23 );
TSCP xgcvalues__x__origin_500e191e( x1773 )
TSCP x1773;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1773 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 288 ) ) );
}
DEFTSCP( xgcvalues__origin_21_b14e37f3_v );
DEFSTRING( t1927, "XGCVALUES-CLIP_X_ORIGIN!", 24 );
TSCP xgcvalues__origin_21_b14e37f3( x1777, y1778 )
TSCP x1777, y1778;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1777 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 288 ), y1778 ) );
}
DEFTSCP( xgcvalues__y__origin_47750d5d_v );
DEFSTRING( t1929, "XGCVALUES-CLIP_Y_ORIGIN", 23 );
TSCP xgcvalues__y__origin_47750d5d( x1781 )
TSCP x1781;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1781 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 304 ) ) );
}
DEFTSCP( xgcvalues__origin_21_2aeb7b9c_v );
DEFSTRING( t1931, "XGCVALUES-CLIP_Y_ORIGIN!", 24 );
TSCP xgcvalues__origin_21_2aeb7b9c( x1785, y1786 )
TSCP x1785, y1786;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1785 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 304 ), y1786 ) );
}
DEFTSCP( xgcvalues_clip__mask_89b5dcc6_v );
DEFSTRING( t1933, "XGCVALUES-CLIP_MASK", 19 );
TSCP xgcvalues_clip__mask_89b5dcc6( x1789 )
TSCP x1789;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1789 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 320 ) ) );
}
DEFTSCP( xgcvalues_p__mask_21_d8ea1aad_v );
DEFSTRING( t1935, "XGCVALUES-CLIP_MASK!", 20 );
TSCP xgcvalues_p__mask_21_d8ea1aad( x1793, y1794 )
TSCP x1793, y1794;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1793 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 320 ), y1794 ) );
}
DEFTSCP( xgcvalues_sh__offset_4fa530fb_v );
DEFSTRING( t1937, "XGCVALUES-DASH_OFFSET", 21 );
TSCP xgcvalues_sh__offset_4fa530fb( x1797 )
TSCP x1797;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1797 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 336 ) ) );
}
DEFTSCP( xgcvalues__offset_21_1b25c02c_v );
DEFSTRING( t1939, "XGCVALUES-DASH_OFFSET!", 22 );
TSCP xgcvalues__offset_21_1b25c02c( x1801, y1802 )
TSCP x1801, y1802;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1801 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 336 ), y1802 ) );
}
DEFTSCP( xgcvalues_xgcvalues_2ddashes_v );
DEFSTRING( t1941, "XGCVALUES-DASHES", 16 );
EXTERNTSCPP( scrt4_c_2dbyte_2dref );
EXTERNTSCP( scrt4_c_2dbyte_2dref_v );
TSCP xgcvalues_xgcvalues_2ddashes( x1805 )
TSCP x1805;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1805 );
return( scrt4_c_2dbyte_2dref( X1, _TSCP( 352 ) ) );
}
DEFTSCP( xgcvalues_ddashes_21_9a66b2e8_v );
DEFSTRING( t1943, "XGCVALUES-DASHES!", 17 );
EXTERNTSCPP( scrt4_c_2dbyte_2dset_21 );
EXTERNTSCP( scrt4_c_2dbyte_2dset_21_v );
TSCP xgcvalues_ddashes_21_9a66b2e8( x1809, y1810 )
TSCP x1809, y1810;
{
TSCP X1;
X1 = xlibtypes_chk_2dxgcvaluesp( x1809 );
return( scrt4_c_2dbyte_2dset_21( X1, _TSCP( 352 ), y1810 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
xlibtypes__init();
scrt4__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xgcvalues__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xgcvalues SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1829 ) ),
ADR( xgcvalues_make_2dxgcvalues_v ),
MAKEPROCEDURE( 0,
0,
xgcvalues_make_2dxgcvalues,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1853 ) ),
ADR( xgcvalues_2dfunction_84a2fc34_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_2dfunction_84a2fc34,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1855 ) ),
ADR( xgcvalues_unction_21_78fd1c7b_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_unction_21_78fd1c7b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1857 ) ),
ADR( xgcvalues_lane__mask_4d8e0847_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_lane__mask_4d8e0847,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1859 ) ),
ADR( xgcvalues_e__mask_21_6c4282e1_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_e__mask_21_6c4282e1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1861 ) ),
ADR( xgcvalues_foreground_4dab698c_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_foreground_4dab698c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1863 ) ),
ADR( xgcvalues_eground_21_c65a75e1_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_eground_21_c65a75e1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1865 ) ),
ADR( xgcvalues_background_6cac588c_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_background_6cac588c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1867 ) ),
ADR( xgcvalues_kground_21_9e63e7d1_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_kground_21_9e63e7d1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1869 ) ),
ADR( xgcvalues_ine__width_2fdb4a90_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_ine__width_2fdb4a90,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1871 ) ),
ADR( xgcvalues___width_21_3dca29ca_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues___width_21_3dca29ca,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1873 ) ),
ADR( xgcvalues_ine__style_907cb7d5_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_ine__style_907cb7d5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1875 ) ),
ADR( xgcvalues___style_21_a23bcfe5_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues___style_21_a23bcfe5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1877 ) ),
ADR( xgcvalues_cap__style_330c53a5_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_cap__style_330c53a5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1879 ) ),
ADR( xgcvalues___style_21_9cdde0c2_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues___style_21_9cdde0c2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1881 ) ),
ADR( xgcvalues_oin__style_4cdc7c4e_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_oin__style_4cdc7c4e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1883 ) ),
ADR( xgcvalues___style_21_ada53545_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues___style_21_ada53545,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1885 ) ),
ADR( xgcvalues_ill__style_436adcfc_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_ill__style_436adcfc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1887 ) ),
ADR( xgcvalues___style_21_e77ab564_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues___style_21_e77ab564,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1889 ) ),
ADR( xgcvalues_fill__rule_f422c5ef_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_fill__rule_f422c5ef,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1891 ) ),
ADR( xgcvalues_l__rule_21_1a1dc840_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_l__rule_21_1a1dc840,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1893 ) ),
ADR( xgcvalues_darc__mode_a3bf6090_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_darc__mode_a3bf6090,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1895 ) ),
ADR( xgcvalues_c__mode_21_187e402f_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_c__mode_21_187e402f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1897 ) ),
ADR( xgcvalues_xgcvalues_2dtile_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_xgcvalues_2dtile,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1899 ) ),
ADR( xgcvalues_xgcvalues_2dtile_21_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_xgcvalues_2dtile_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1901 ) ),
ADR( xgcvalues_xgcvalues_2dstipple_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_xgcvalues_2dstipple,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1903 ) ),
ADR( xgcvalues_stipple_21_20e5ee29_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_stipple_21_20e5ee29,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1905 ) ),
ADR( xgcvalues__x__origin_ed77b628_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues__x__origin_ed77b628,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1907 ) ),
ADR( xgcvalues__origin_21_91eec7d2_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues__origin_21_91eec7d2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1909 ) ),
ADR( xgcvalues__y__origin_fa0ca26b_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues__y__origin_fa0ca26b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1911 ) ),
ADR( xgcvalues__origin_21_a4b8bbd_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues__origin_21_a4b8bbd,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1913 ) ),
ADR( xgcvalues_xgcvalues_2dfont_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_xgcvalues_2dfont,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1915 ) ),
ADR( xgcvalues_xgcvalues_2dfont_21_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_xgcvalues_2dfont_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1917 ) ),
ADR( xgcvalues_ndow__mode_a57a63d9_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_ndow__mode_a57a63d9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1919 ) ),
ADR( xgcvalues_w__mode_21_a716939a_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_w__mode_21_a716939a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1921 ) ),
ADR( xgcvalues__exposures_2693ba2_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues__exposures_2693ba2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1923 ) ),
ADR( xgcvalues_posures_21_96e820e_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_posures_21_96e820e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1925 ) ),
ADR( xgcvalues__x__origin_500e191e_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues__x__origin_500e191e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1927 ) ),
ADR( xgcvalues__origin_21_b14e37f3_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues__origin_21_b14e37f3,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1929 ) ),
ADR( xgcvalues__y__origin_47750d5d_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues__y__origin_47750d5d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1931 ) ),
ADR( xgcvalues__origin_21_2aeb7b9c_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues__origin_21_2aeb7b9c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1933 ) ),
ADR( xgcvalues_clip__mask_89b5dcc6_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_clip__mask_89b5dcc6,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1935 ) ),
ADR( xgcvalues_p__mask_21_d8ea1aad_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_p__mask_21_d8ea1aad,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1937 ) ),
ADR( xgcvalues_sh__offset_4fa530fb_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_sh__offset_4fa530fb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1939 ) ),
ADR( xgcvalues__offset_21_1b25c02c_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues__offset_21_1b25c02c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1941 ) ),
ADR( xgcvalues_xgcvalues_2ddashes_v ),
MAKEPROCEDURE( 1,
0,
xgcvalues_xgcvalues_2ddashes,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1943 ) ),
ADR( xgcvalues_ddashes_21_9a66b2e8_v ),
MAKEPROCEDURE( 2,
0,
xgcvalues_ddashes_21_9a66b2e8,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.