This is xfontstruct.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1874, "XCHARSTRUCTP", 12 );
DEFSTATICTSCP( c1833 );
DEFSTRING( t1875, "XFONTPROPP", 10 );
DEFSTATICTSCP( c1721 );
DEFSTRING( t1876, "XEXTDATAP", 9 );
DEFSTATICTSCP( c1634 );
DEFSTRING( t1877,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1877 );
DEFSTRING( t1878, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1879, "XFONTSTRUCTP", 12 );
DEFSTATICTSCP( c1598 );
static void init_constants()
{
c1833 = STRINGTOSYMBOL( U_TX( ADR( t1874 ) ) );
CONSTANTEXP( ADR( c1833 ) );
c1721 = STRINGTOSYMBOL( U_TX( ADR( t1875 ) ) );
CONSTANTEXP( ADR( c1721 ) );
c1634 = STRINGTOSYMBOL( U_TX( ADR( t1876 ) ) );
CONSTANTEXP( ADR( c1634 ) );
c1626 = STRINGTOSYMBOL( U_TX( ADR( t1878 ) ) );
CONSTANTEXP( ADR( c1626 ) );
c1598 = STRINGTOSYMBOL( U_TX( ADR( t1879 ) ) );
CONSTANTEXP( ADR( c1598 ) );
}
DEFTSCP( ontstruct_fontstruct_dba24396_v );
DEFSTRING( t1880, "MAKE-XFONTSTRUCT", 16 );
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 ontstruct_fontstruct_dba24396( )
{
TSCP X4, X3, X2, X1;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L1887;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L1888;
X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L1889;
L1888:
X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1889:
if ( TRUE( X4 ) ) goto L1887;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L1896;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1887;
goto L1903;
L1896:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L1903;
L1887:
scrt6_error( c1626,
c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1903:
X1 = sc_make_2dstring( _TSCP( 320 ),
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1598, X1 ) );
}
DEFTSCP( ontstruct_dext__data_88ad51b6_v );
DEFSTRING( t1904, "XFONTSTRUCT-EXT_DATA", 20 );
EXTERNTSCPP( xlibtypes_chk_2dxfontstructp );
EXTERNTSCP( xlibtypes_chk_2dxfontstructp_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP ontstruct_dext__data_88ad51b6( x1630 )
TSCP x1630;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxfontstructp( x1630 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
return( sc_cons( c1634, X2 ) );
}
DEFTSCP( ontstruct_t__data_21_115a0cac_v );
DEFSTRING( t1907, "XFONTSTRUCT-EXT_DATA!", 21 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dxextdatap );
EXTERNTSCP( xlibtypes_chk_2dxextdatap_v );
TSCP ontstruct_t__data_21_115a0cac( x1637, y1638 )
TSCP x1637, y1638;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxfontstructp( x1637 );
X2 = xlibtypes_chk_2dxextdatap( y1638 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 ) );
}
DEFTSCP( xfontstruct_xfontstruct_2dfid_v );
DEFSTRING( t1910, "XFONTSTRUCT-FID", 15 );
TSCP xfontstruct_xfontstruct_2dfid( x1645 )
TSCP x1645;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1645 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) ) );
}
DEFTSCP( ontstruct_t_2dfid_21_7efc7eb2_v );
DEFSTRING( t1912, "XFONTSTRUCT-FID!", 16 );
TSCP ontstruct_t_2dfid_21_7efc7eb2( x1649, y1650 )
TSCP x1649, y1650;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1649 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 16 ), y1650 ) );
}
DEFTSCP( ontstruct_ddirection_eaa4e01a_v );
DEFSTRING( t1914, "XFONTSTRUCT-DIRECTION", 21 );
TSCP ontstruct_ddirection_eaa4e01a( x1653 )
TSCP x1653;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1653 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 32 ) ) );
}
DEFTSCP( ontstruct_rection_21_453a8f97_v );
DEFSTRING( t1916, "XFONTSTRUCT-DIRECTION!", 22 );
TSCP ontstruct_rection_21_453a8f97( x1657, y1658 )
TSCP x1657, y1658;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1657 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 32 ), y1658 ) );
}
DEFTSCP( ontstruct__or__byte2_66aa469c_v );
DEFSTRING( t1918, "XFONTSTRUCT-MIN_CHAR_OR_BYTE2", 29 );
TSCP ontstruct__or__byte2_66aa469c( x1661 )
TSCP x1661;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1661 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 48 ) ) );
}
DEFTSCP( ontstruct___byte2_21_bf67de41_v );
DEFSTRING( t1920, "XFONTSTRUCT-MIN_CHAR_OR_BYTE2!", 30 );
TSCP ontstruct___byte2_21_bf67de41( x1665, y1666 )
TSCP x1665, y1666;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1665 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 48 ), y1666 ) );
}
DEFTSCP( ontstruct__or__byte2_4fd4bb84_v );
DEFSTRING( t1922, "XFONTSTRUCT-MAX_CHAR_OR_BYTE2", 29 );
TSCP ontstruct__or__byte2_4fd4bb84( x1669 )
TSCP x1669;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1669 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 64 ) ) );
}
DEFTSCP( ontstruct___byte2_21_bbfdef6b_v );
DEFSTRING( t1924, "XFONTSTRUCT-MAX_CHAR_OR_BYTE2!", 30 );
TSCP ontstruct___byte2_21_bbfdef6b( x1673, y1674 )
TSCP x1673, y1674;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1673 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 64 ), y1674 ) );
}
DEFTSCP( ontstruct_min__byte1_48c2cf23_v );
DEFSTRING( t1926, "XFONTSTRUCT-MIN_BYTE1", 21 );
TSCP ontstruct_min__byte1_48c2cf23( x1677 )
TSCP x1677;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1677 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 80 ) ) );
}
DEFTSCP( ontstruct___byte1_21_d84dad2a_v );
DEFSTRING( t1928, "XFONTSTRUCT-MIN_BYTE1!", 22 );
TSCP ontstruct___byte1_21_d84dad2a( x1681, y1682 )
TSCP x1681, y1682;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1681 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 80 ), y1682 ) );
}
DEFTSCP( ontstruct_max__byte1_49ce5597_v );
DEFSTRING( t1930, "XFONTSTRUCT-MAX_BYTE1", 21 );
TSCP ontstruct_max__byte1_49ce5597( x1685 )
TSCP x1685;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1685 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 96 ) ) );
}
DEFTSCP( ontstruct___byte1_21_9802d55c_v );
DEFSTRING( t1932, "XFONTSTRUCT-MAX_BYTE1!", 22 );
TSCP ontstruct___byte1_21_9802d55c( x1689, y1690 )
TSCP x1689, y1690;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1689 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 96 ), y1690 ) );
}
DEFTSCP( ontstruct_ars__exist_c17a8bb2_v );
DEFSTRING( t1934, "XFONTSTRUCT-ALL_CHARS_EXIST", 27 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP ontstruct_ars__exist_c17a8bb2( x1693 )
TSCP x1693;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1693 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 112 ) ) );
}
DEFTSCP( ontstruct___exist_21_7533cedb_v );
DEFSTRING( t1936, "XFONTSTRUCT-ALL_CHARS_EXIST!", 28 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP ontstruct___exist_21_7533cedb( x1697, y1698 )
TSCP x1697, y1698;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1697 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 112 ), y1698 ) );
}
DEFTSCP( ontstruct_ault__char_4d30bd11_v );
DEFSTRING( t1938, "XFONTSTRUCT-DEFAULT_CHAR", 24 );
TSCP ontstruct_ault__char_4d30bd11( x1701 )
TSCP x1701;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1701 );
return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 128 ) ) );
}
DEFTSCP( ontstruct_t__char_21_b1181495_v );
DEFSTRING( t1940, "XFONTSTRUCT-DEFAULT_CHAR!", 25 );
TSCP ontstruct_t__char_21_b1181495( x1705, y1706 )
TSCP x1705, y1706;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1705 );
return( scrt4_c_2dunsigned_2dset_21( X1,
_TSCP( 128 ), y1706 ) );
}
DEFTSCP( ontstruct_properties_4f4cebd9_v );
DEFSTRING( t1942, "XFONTSTRUCT-N_PROPERTIES", 24 );
TSCP ontstruct_properties_4f4cebd9( x1709 )
TSCP x1709;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1709 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 144 ) ) );
}
DEFTSCP( ontstruct_perties_21_9bf614aa_v );
DEFSTRING( t1944, "XFONTSTRUCT-N_PROPERTIES!", 25 );
TSCP ontstruct_perties_21_9bf614aa( x1713, y1714 )
TSCP x1713, y1714;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1713 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 144 ), y1714 ) );
}
DEFTSCP( ontstruct_properties_fa1f2b37_v );
DEFSTRING( t1946, "XFONTSTRUCT-PROPERTIES", 22 );
TSCP ontstruct_properties_fa1f2b37( x1717 )
TSCP x1717;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxfontstructp( x1717 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 160 ) );
return( sc_cons( c1721, X2 ) );
}
DEFTSCP( ontstruct_perties_21_1123eb5_v );
DEFSTRING( t1949, "XFONTSTRUCT-PROPERTIES!", 23 );
EXTERNTSCPP( xlibtypes_chk_2dxfontpropp );
EXTERNTSCP( xlibtypes_chk_2dxfontpropp_v );
TSCP ontstruct_perties_21_1123eb5( x1725, y1726 )
TSCP x1725, y1726;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxfontstructp( x1725 );
X2 = xlibtypes_chk_2dxfontpropp( y1726 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 160 ), X2 ) );
}
DEFTSCP( ontstruct_2dlbearing_fab672d_v );
DEFSTRING( t1952, "XFONTSTRUCT-MIN_BOUNDS-LBEARING", 31 );
EXTERNTSCPP( scrt4_c_2dshortint_2dref );
EXTERNTSCP( scrt4_c_2dshortint_2dref_v );
TSCP ontstruct_2dlbearing_fab672d( x1733 )
TSCP x1733;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1733 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 176 ) ) );
}
DEFTSCP( ontstruct_bearing_21_80636f7a_v );
DEFSTRING( t1954, "XFONTSTRUCT-MIN_BOUNDS-LBEARING!", 32 );
EXTERNTSCPP( scrt4_c_2dshortint_2dset_21 );
EXTERNTSCP( scrt4_c_2dshortint_2dset_21_v );
TSCP ontstruct_bearing_21_80636f7a( x1737, y1738 )
TSCP x1737, y1738;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1737 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 176 ), y1738 ) );
}
DEFTSCP( ontstruct_2drbearing_669a4434_v );
DEFSTRING( t1956, "XFONTSTRUCT-MIN_BOUNDS-RBEARING", 31 );
TSCP ontstruct_2drbearing_669a4434( x1741 )
TSCP x1741;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1741 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 184 ) ) );
}
DEFTSCP( ontstruct_bearing_21_7ce380b7_v );
DEFSTRING( t1958, "XFONTSTRUCT-MIN_BOUNDS-RBEARING!", 32 );
TSCP ontstruct_bearing_21_7ce380b7( x1745, y1746 )
TSCP x1745, y1746;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1745 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 184 ), y1746 ) );
}
DEFTSCP( ontstruct_ds_2dwidth_f0a14701_v );
DEFSTRING( t1960, "XFONTSTRUCT-MIN_BOUNDS-WIDTH", 28 );
TSCP ontstruct_ds_2dwidth_f0a14701( x1749 )
TSCP x1749;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1749 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 192 ) ) );
}
DEFTSCP( ontstruct_2dwidth_21_c4651dbd_v );
DEFSTRING( t1962, "XFONTSTRUCT-MIN_BOUNDS-WIDTH!", 29 );
TSCP ontstruct_2dwidth_21_c4651dbd( x1753, y1754 )
TSCP x1753, y1754;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1753 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 192 ), y1754 ) );
}
DEFTSCP( ontstruct_s_2dascent_9291c29_v );
DEFSTRING( t1964, "XFONTSTRUCT-MIN_BOUNDS-ASCENT", 29 );
TSCP ontstruct_s_2dascent_9291c29( x1757 )
TSCP x1757;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1757 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 200 ) ) );
}
DEFTSCP( ontstruct_dascent_21_48178591_v );
DEFSTRING( t1966, "XFONTSTRUCT-MIN_BOUNDS-ASCENT!", 30 );
TSCP ontstruct_dascent_21_48178591( x1761, y1762 )
TSCP x1761, y1762;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1761 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 200 ), y1762 ) );
}
DEFTSCP( ontstruct__2ddescent_6b971710_v );
DEFSTRING( t1968, "XFONTSTRUCT-MIN_BOUNDS-DESCENT", 30 );
TSCP ontstruct__2ddescent_6b971710( x1765 )
TSCP x1765;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1765 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 208 ) ) );
}
DEFTSCP( ontstruct_descent_21_ac801cac_v );
DEFSTRING( t1970, "XFONTSTRUCT-MIN_BOUNDS-DESCENT!", 31 );
TSCP ontstruct_descent_21_ac801cac( x1769, y1770 )
TSCP x1769, y1770;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1769 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 208 ), y1770 ) );
}
DEFTSCP( ontstruct_attributes_69c01788_v );
DEFSTRING( t1972, "XFONTSTRUCT-MIN_BOUNDS-ATTRIBUTES", 33 );
EXTERNTSCPP( scrt4_c_2dshortunsigned_2dref );
EXTERNTSCP( scrt4_c_2dshortunsigned_2dref_v );
TSCP ontstruct_attributes_69c01788( x1773 )
TSCP x1773;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1773 );
return( scrt4_c_2dshortunsigned_2dref( X1, _TSCP( 216 ) ) );
}
DEFTSCP( ontstruct_ributes_21_aa8f31b1_v );
DEFSTRING( t1974, "XFONTSTRUCT-MIN_BOUNDS-ATTRIBUTES!", 34 );
EXTERNTSCPP( scrt4_d_2dset_21_828269c5 );
EXTERNTSCP( scrt4_d_2dset_21_828269c5_v );
TSCP ontstruct_ributes_21_aa8f31b1( x1777, y1778 )
TSCP x1777, y1778;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1777 );
return( scrt4_d_2dset_21_828269c5( X1, _TSCP( 216 ), y1778 ) );
}
DEFTSCP( ontstruct_2dlbearing_4ebc58ab_v );
DEFSTRING( t1976, "XFONTSTRUCT-MAX_BOUNDS-LBEARING", 31 );
TSCP ontstruct_2dlbearing_4ebc58ab( x1781 )
TSCP x1781;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1781 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 224 ) ) );
}
DEFTSCP( ontstruct_bearing_21_bed6a7f2_v );
DEFSTRING( t1978, "XFONTSTRUCT-MAX_BOUNDS-LBEARING!", 32 );
TSCP ontstruct_bearing_21_bed6a7f2( x1785, y1786 )
TSCP x1785, y1786;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1785 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 224 ), y1786 ) );
}
DEFTSCP( ontstruct_2drbearing_278d7bb2_v );
DEFSTRING( t1980, "XFONTSTRUCT-MAX_BOUNDS-RBEARING", 31 );
TSCP ontstruct_2drbearing_278d7bb2( x1789 )
TSCP x1789;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1789 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 232 ) ) );
}
DEFTSCP( ontstruct_bearing_21_4256483f_v );
DEFSTRING( t1982, "XFONTSTRUCT-MAX_BOUNDS-RBEARING!", 32 );
TSCP ontstruct_bearing_21_4256483f( x1793, y1794 )
TSCP x1793, y1794;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1793 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 232 ), y1794 ) );
}
DEFTSCP( ontstruct_ds_2dwidth_5795c778_v );
DEFSTRING( t1984, "XFONTSTRUCT-MAX_BOUNDS-WIDTH", 28 );
TSCP ontstruct_ds_2dwidth_5795c778( x1797 )
TSCP x1797;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1797 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 240 ) ) );
}
DEFTSCP( ontstruct_2dwidth_21_8572223b_v );
DEFSTRING( t1986, "XFONTSTRUCT-MAX_BOUNDS-WIDTH!", 29 );
TSCP ontstruct_2dwidth_21_8572223b( x1801, y1802 )
TSCP x1801, y1802;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1801 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 240 ), y1802 ) );
}
DEFTSCP( ontstruct_s_2dascent_2057e131_v );
DEFSTRING( t1988, "XFONTSTRUCT-MAX_BOUNDS-ASCENT", 29 );
TSCP ontstruct_s_2dascent_2057e131( x1805 )
TSCP x1805;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1805 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 248 ) ) );
}
DEFTSCP( ontstruct_dascent_21_4c8db4bb_v );
DEFSTRING( t1990, "XFONTSTRUCT-MAX_BOUNDS-ASCENT!", 30 );
TSCP ontstruct_dascent_21_4c8db4bb( x1809, y1810 )
TSCP x1809, y1810;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1809 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 248 ), y1810 ) );
}
DEFTSCP( ontstruct__2ddescent_78d2f1bb_v );
DEFSTRING( t1992, "XFONTSTRUCT-MAX_BOUNDS-DESCENT", 30 );
TSCP ontstruct__2ddescent_78d2f1bb( x1813 )
TSCP x1813;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1813 );
return( scrt4_c_2dshortint_2dref( X1, _TSCP( 256 ) ) );
}
DEFTSCP( ontstruct_descent_21_773f4f4b_v );
DEFSTRING( t1994, "XFONTSTRUCT-MAX_BOUNDS-DESCENT!", 31 );
TSCP ontstruct_descent_21_773f4f4b( x1817, y1818 )
TSCP x1817, y1818;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1817 );
return( scrt4_c_2dshortint_2dset_21( X1,
_TSCP( 256 ), y1818 ) );
}
DEFTSCP( ontstruct_attributes_b27f446f_v );
DEFSTRING( t1996, "XFONTSTRUCT-MAX_BOUNDS-ATTRIBUTES", 33 );
TSCP ontstruct_attributes_b27f446f( x1821 )
TSCP x1821;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1821 );
return( scrt4_c_2dshortunsigned_2dref( X1, _TSCP( 264 ) ) );
}
DEFTSCP( ontstruct_ributes_21_cc6a57c5_v );
DEFSTRING( t1998, "XFONTSTRUCT-MAX_BOUNDS-ATTRIBUTES!", 34 );
TSCP ontstruct_ributes_21_cc6a57c5( x1825, y1826 )
TSCP x1825, y1826;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1825 );
return( scrt4_d_2dset_21_828269c5( X1, _TSCP( 264 ), y1826 ) );
}
DEFTSCP( ontstruct_dper__char_cb99e3b4_v );
DEFSTRING( t2000, "XFONTSTRUCT-PER_CHAR", 20 );
TSCP ontstruct_dper__char_cb99e3b4( x1829 )
TSCP x1829;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxfontstructp( x1829 );
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 272 ) );
return( sc_cons( c1833, X2 ) );
}
DEFTSCP( ontstruct_r__char_21_e599e00e_v );
DEFSTRING( t2003, "XFONTSTRUCT-PER_CHAR!", 21 );
EXTERNTSCPP( xlibtypes_chk_2dxcharstructp );
EXTERNTSCP( xlibtypes_chk_2dxcharstructp_v );
TSCP ontstruct_r__char_21_e599e00e( x1837, y1838 )
TSCP x1837, y1838;
{
TSCP X2, X1;
X1 = xlibtypes_chk_2dxfontstructp( x1837 );
X2 = xlibtypes_chk_2dxcharstructp( y1838 );
return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 272 ), X2 ) );
}
DEFTSCP( ontstruct_t_2dascent_ed3a3e91_v );
DEFSTRING( t2006, "XFONTSTRUCT-ASCENT", 18 );
TSCP ontstruct_t_2dascent_ed3a3e91( x1845 )
TSCP x1845;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1845 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 288 ) ) );
}
DEFTSCP( ontstruct_dascent_21_a0562d23_v );
DEFSTRING( t2008, "XFONTSTRUCT-ASCENT!", 19 );
TSCP ontstruct_dascent_21_a0562d23( x1849, y1850 )
TSCP x1849, y1850;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1849 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 288 ), y1850 ) );
}
DEFTSCP( ontstruct__2ddescent_aec93f8c_v );
DEFSTRING( t2010, "XFONTSTRUCT-DESCENT", 19 );
TSCP ontstruct__2ddescent_aec93f8c( x1853 )
TSCP x1853;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1853 );
return( scrt4_c_2dint_2dref( X1, _TSCP( 304 ) ) );
}
DEFTSCP( ontstruct_descent_21_89078fa4_v );
DEFSTRING( t2012, "XFONTSTRUCT-DESCENT!", 20 );
TSCP ontstruct_descent_21_89078fa4( x1857, y1858 )
TSCP x1857, y1858;
{
TSCP X1;
X1 = xlibtypes_chk_2dxfontstructp( x1857 );
return( scrt4_c_2dint_2dset_21( X1, _TSCP( 304 ), y1858 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
xlibtypes__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void xfontstruct__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xfontstruct SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1880 ) ),
ADR( ontstruct_fontstruct_dba24396_v ),
MAKEPROCEDURE( 0,
0,
ontstruct_fontstruct_dba24396,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1904 ) ),
ADR( ontstruct_dext__data_88ad51b6_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_dext__data_88ad51b6,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1907 ) ),
ADR( ontstruct_t__data_21_115a0cac_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_t__data_21_115a0cac,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1910 ) ),
ADR( xfontstruct_xfontstruct_2dfid_v ),
MAKEPROCEDURE( 1,
0,
xfontstruct_xfontstruct_2dfid,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1912 ) ),
ADR( ontstruct_t_2dfid_21_7efc7eb2_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_t_2dfid_21_7efc7eb2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1914 ) ),
ADR( ontstruct_ddirection_eaa4e01a_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_ddirection_eaa4e01a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1916 ) ),
ADR( ontstruct_rection_21_453a8f97_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_rection_21_453a8f97,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1918 ) ),
ADR( ontstruct__or__byte2_66aa469c_v ),
MAKEPROCEDURE( 1,
0,
ontstruct__or__byte2_66aa469c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1920 ) ),
ADR( ontstruct___byte2_21_bf67de41_v ),
MAKEPROCEDURE( 2,
0,
ontstruct___byte2_21_bf67de41,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1922 ) ),
ADR( ontstruct__or__byte2_4fd4bb84_v ),
MAKEPROCEDURE( 1,
0,
ontstruct__or__byte2_4fd4bb84,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1924 ) ),
ADR( ontstruct___byte2_21_bbfdef6b_v ),
MAKEPROCEDURE( 2,
0,
ontstruct___byte2_21_bbfdef6b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1926 ) ),
ADR( ontstruct_min__byte1_48c2cf23_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_min__byte1_48c2cf23,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1928 ) ),
ADR( ontstruct___byte1_21_d84dad2a_v ),
MAKEPROCEDURE( 2,
0,
ontstruct___byte1_21_d84dad2a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1930 ) ),
ADR( ontstruct_max__byte1_49ce5597_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_max__byte1_49ce5597,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1932 ) ),
ADR( ontstruct___byte1_21_9802d55c_v ),
MAKEPROCEDURE( 2,
0,
ontstruct___byte1_21_9802d55c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1934 ) ),
ADR( ontstruct_ars__exist_c17a8bb2_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_ars__exist_c17a8bb2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1936 ) ),
ADR( ontstruct___exist_21_7533cedb_v ),
MAKEPROCEDURE( 2,
0,
ontstruct___exist_21_7533cedb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1938 ) ),
ADR( ontstruct_ault__char_4d30bd11_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_ault__char_4d30bd11,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1940 ) ),
ADR( ontstruct_t__char_21_b1181495_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_t__char_21_b1181495,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1942 ) ),
ADR( ontstruct_properties_4f4cebd9_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_properties_4f4cebd9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1944 ) ),
ADR( ontstruct_perties_21_9bf614aa_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_perties_21_9bf614aa,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1946 ) ),
ADR( ontstruct_properties_fa1f2b37_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_properties_fa1f2b37,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1949 ) ),
ADR( ontstruct_perties_21_1123eb5_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_perties_21_1123eb5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1952 ) ),
ADR( ontstruct_2dlbearing_fab672d_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_2dlbearing_fab672d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1954 ) ),
ADR( ontstruct_bearing_21_80636f7a_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_bearing_21_80636f7a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1956 ) ),
ADR( ontstruct_2drbearing_669a4434_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_2drbearing_669a4434,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1958 ) ),
ADR( ontstruct_bearing_21_7ce380b7_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_bearing_21_7ce380b7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1960 ) ),
ADR( ontstruct_ds_2dwidth_f0a14701_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_ds_2dwidth_f0a14701,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1962 ) ),
ADR( ontstruct_2dwidth_21_c4651dbd_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_2dwidth_21_c4651dbd,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1964 ) ),
ADR( ontstruct_s_2dascent_9291c29_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_s_2dascent_9291c29,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1966 ) ),
ADR( ontstruct_dascent_21_48178591_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_dascent_21_48178591,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1968 ) ),
ADR( ontstruct__2ddescent_6b971710_v ),
MAKEPROCEDURE( 1,
0,
ontstruct__2ddescent_6b971710,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1970 ) ),
ADR( ontstruct_descent_21_ac801cac_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_descent_21_ac801cac,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1972 ) ),
ADR( ontstruct_attributes_69c01788_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_attributes_69c01788,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1974 ) ),
ADR( ontstruct_ributes_21_aa8f31b1_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_ributes_21_aa8f31b1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1976 ) ),
ADR( ontstruct_2dlbearing_4ebc58ab_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_2dlbearing_4ebc58ab,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1978 ) ),
ADR( ontstruct_bearing_21_bed6a7f2_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_bearing_21_bed6a7f2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1980 ) ),
ADR( ontstruct_2drbearing_278d7bb2_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_2drbearing_278d7bb2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1982 ) ),
ADR( ontstruct_bearing_21_4256483f_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_bearing_21_4256483f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1984 ) ),
ADR( ontstruct_ds_2dwidth_5795c778_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_ds_2dwidth_5795c778,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1986 ) ),
ADR( ontstruct_2dwidth_21_8572223b_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_2dwidth_21_8572223b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1988 ) ),
ADR( ontstruct_s_2dascent_2057e131_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_s_2dascent_2057e131,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1990 ) ),
ADR( ontstruct_dascent_21_4c8db4bb_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_dascent_21_4c8db4bb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1992 ) ),
ADR( ontstruct__2ddescent_78d2f1bb_v ),
MAKEPROCEDURE( 1,
0,
ontstruct__2ddescent_78d2f1bb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1994 ) ),
ADR( ontstruct_descent_21_773f4f4b_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_descent_21_773f4f4b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1996 ) ),
ADR( ontstruct_attributes_b27f446f_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_attributes_b27f446f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1998 ) ),
ADR( ontstruct_ributes_21_cc6a57c5_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_ributes_21_cc6a57c5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2000 ) ),
ADR( ontstruct_dper__char_cb99e3b4_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_dper__char_cb99e3b4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2003 ) ),
ADR( ontstruct_r__char_21_e599e00e_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_r__char_21_e599e00e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2006 ) ),
ADR( ontstruct_t_2dascent_ed3a3e91_v ),
MAKEPROCEDURE( 1,
0,
ontstruct_t_2dascent_ed3a3e91,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2008 ) ),
ADR( ontstruct_dascent_21_a0562d23_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_dascent_21_a0562d23,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2010 ) ),
ADR( ontstruct__2ddescent_aec93f8c_v ),
MAKEPROCEDURE( 1,
0,
ontstruct__2ddescent_aec93f8c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2012 ) ),
ADR( ontstruct_descent_21_89078fa4_v ),
MAKEPROCEDURE( 2,
0,
ontstruct_descent_21_89078fa4,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.