This is xsizehints.c in view mode; [Download] [Up]
/* SCHEME->C */ #include <objects.h> DEFSTRING( t1762, "Argument not an unsigned 8-bit INTEGER: ~s", 42 ); DEFSTATICTSCP2( c1627, t1762 ); DEFSTRING( t1763, "INTEGER->CHAR", 13 ); DEFSTATICTSCP( c1626 ); DEFSTRING( t1764, "XSIZEHINTSP", 11 ); DEFSTATICTSCP( c1598 ); static void init_constants() { c1626 = STRINGTOSYMBOL( U_TX( ADR( t1763 ) ) ); CONSTANTEXP( ADR( c1626 ) ); c1598 = STRINGTOSYMBOL( U_TX( ADR( t1764 ) ) ); CONSTANTEXP( ADR( c1598 ) ); } DEFTSCP( xsizehints_make_2dxsizehints_v ); DEFSTRING( t1765, "MAKE-XSIZEHINTS", 15 ); 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 xsizehints_make_2dxsizehints( ) { TSCP X4, X3, X2, X1; X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) ); if ( TRUE( X3 ) ) goto L1772; if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( _TSCP( 0 ) ) ), 3 ) ) goto L1773; X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ), INT( _TSCP( 0 ) ) ) ); goto L1774; L1773: X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) ); L1774: if ( TRUE( X4 ) ) goto L1772; if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ), 3 ) ) goto L1781; if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L1772; goto L1788; L1781: if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) ) ) goto L1788; L1772: scrt6_error( c1626, c1627, CONS( _TSCP( 0 ), EMPTYLIST ) ); L1788: X1 = sc_make_2dstring( _TSCP( 240 ), CONS( FIX_CHAR( _TSCP( 0 ) ), EMPTYLIST ) ); return( sc_cons( c1598, X1 ) ); } DEFTSCP( xsizehints_xsizehints_2dflags_v ); DEFSTRING( t1789, "XSIZEHINTS-FLAGS", 16 ); EXTERNTSCPP( scrt4_c_2dint_2dref ); EXTERNTSCP( scrt4_c_2dint_2dref_v ); EXTERNTSCPP( xlibtypes_chk_2dxsizehintsp ); EXTERNTSCP( xlibtypes_chk_2dxsizehintsp_v ); TSCP xsizehints_xsizehints_2dflags( x1630 ) TSCP x1630; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1630 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 0 ) ) ); } DEFTSCP( sizehints_2dflags_21_9ec8f824_v ); DEFSTRING( t1791, "XSIZEHINTS-FLAGS!", 17 ); EXTERNTSCPP( scrt4_c_2dint_2dset_21 ); EXTERNTSCP( scrt4_c_2dint_2dset_21_v ); TSCP sizehints_2dflags_21_9ec8f824( x1633, y1634 ) TSCP x1633, y1634; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1633 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), y1634 ) ); } DEFTSCP( xsizehints_xsizehints_2dx_v ); DEFSTRING( t1793, "XSIZEHINTS-X", 12 ); TSCP xsizehints_xsizehints_2dx( x1637 ) TSCP x1637; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1637 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 16 ) ) ); } DEFTSCP( xsizehints_xsizehints_2dx_21_v ); DEFSTRING( t1795, "XSIZEHINTS-X!", 13 ); TSCP xsizehints_xsizehints_2dx_21( x1641, y1642 ) TSCP x1641, y1642; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1641 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), y1642 ) ); } DEFTSCP( xsizehints_xsizehints_2dy_v ); DEFSTRING( t1797, "XSIZEHINTS-Y", 12 ); TSCP xsizehints_xsizehints_2dy( x1645 ) TSCP x1645; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1645 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 32 ) ) ); } DEFTSCP( xsizehints_xsizehints_2dy_21_v ); DEFSTRING( t1799, "XSIZEHINTS-Y!", 13 ); TSCP xsizehints_xsizehints_2dy_21( x1649, y1650 ) TSCP x1649, y1650; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1649 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 32 ), y1650 ) ); } DEFTSCP( xsizehints_xsizehints_2dwidth_v ); DEFSTRING( t1801, "XSIZEHINTS-WIDTH", 16 ); TSCP xsizehints_xsizehints_2dwidth( x1653 ) TSCP x1653; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1653 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 48 ) ) ); } DEFTSCP( sizehints_2dwidth_21_8c744a49_v ); DEFSTRING( t1803, "XSIZEHINTS-WIDTH!", 17 ); TSCP sizehints_2dwidth_21_8c744a49( x1657, y1658 ) TSCP x1657, y1658; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1657 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 48 ), y1658 ) ); } DEFTSCP( sizehints_s_2dheight_265a6f2d_v ); DEFSTRING( t1805, "XSIZEHINTS-HEIGHT", 17 ); TSCP sizehints_s_2dheight_265a6f2d( x1661 ) TSCP x1661; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1661 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 64 ) ) ); } DEFTSCP( sizehints_dheight_21_820027d1_v ); DEFSTRING( t1807, "XSIZEHINTS-HEIGHT!", 18 ); TSCP sizehints_dheight_21_820027d1( x1665, y1666 ) TSCP x1665, y1666; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1665 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 64 ), y1666 ) ); } DEFTSCP( sizehints_min__width_4dcbd289_v ); DEFSTRING( t1809, "XSIZEHINTS-MIN_WIDTH", 20 ); TSCP sizehints_min__width_4dcbd289( x1669 ) TSCP x1669; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1669 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) ); } DEFTSCP( sizehints___width_21_8a12a121_v ); DEFSTRING( t1811, "XSIZEHINTS-MIN_WIDTH!", 21 ); TSCP sizehints___width_21_8a12a121( x1673, y1674 ) TSCP x1673, y1674; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1673 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1674 ) ); } DEFTSCP( sizehints_in__height_183bddc8_v ); DEFSTRING( t1813, "XSIZEHINTS-MIN_HEIGHT", 21 ); TSCP sizehints_in__height_183bddc8( x1677 ) TSCP x1677; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1677 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 96 ) ) ); } DEFTSCP( sizehints__height_21_c16fa850_v ); DEFSTRING( t1815, "XSIZEHINTS-MIN_HEIGHT!", 22 ); TSCP sizehints__height_21_c16fa850( x1681, y1682 ) TSCP x1681, y1682; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1681 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 96 ), y1682 ) ); } DEFTSCP( sizehints_max__width_4cc7483d_v ); DEFSTRING( t1817, "XSIZEHINTS-MAX_WIDTH", 20 ); TSCP sizehints_max__width_4cc7483d( x1685 ) TSCP x1685; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1685 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 112 ) ) ); } DEFTSCP( sizehints___width_21_ca5dd957_v ); DEFSTRING( t1819, "XSIZEHINTS-MAX_WIDTH!", 21 ); TSCP sizehints___width_21_ca5dd957( x1689, y1690 ) TSCP x1689, y1690; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1689 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 112 ), y1690 ) ); } DEFTSCP( sizehints_ax__height_d436a6c7_v ); DEFSTRING( t1821, "XSIZEHINTS-MAX_HEIGHT", 21 ); TSCP sizehints_ax__height_d436a6c7( x1693 ) TSCP x1693; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1693 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 128 ) ) ); } DEFTSCP( sizehints__height_21_78493321_v ); DEFSTRING( t1823, "XSIZEHINTS-MAX_HEIGHT!", 22 ); TSCP sizehints__height_21_78493321( x1697, y1698 ) TSCP x1697, y1698; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1697 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 128 ), y1698 ) ); } DEFTSCP( sizehints_width__inc_3394f6ab_v ); DEFSTRING( t1825, "XSIZEHINTS-WIDTH_INC", 20 ); TSCP sizehints_width__inc_3394f6ab( x1701 ) TSCP x1701; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1701 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 144 ) ) ); } DEFTSCP( sizehints_th__inc_21_bbe79e12_v ); DEFSTRING( t1827, "XSIZEHINTS-WIDTH_INC!", 21 ); TSCP sizehints_th__inc_21_bbe79e12( x1705, y1706 ) TSCP x1705, y1706; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1705 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 144 ), y1706 ) ); } DEFTSCP( sizehints_eight__inc_b90fe528_v ); DEFSTRING( t1829, "XSIZEHINTS-HEIGHT_INC", 21 ); TSCP sizehints_eight__inc_b90fe528( x1709 ) TSCP x1709; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1709 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 160 ) ) ); } DEFTSCP( sizehints_ht__inc_21_5ea6301f_v ); DEFSTRING( t1831, "XSIZEHINTS-HEIGHT_INC!", 22 ); TSCP sizehints_ht__inc_21_5ea6301f( x1713, y1714 ) TSCP x1713, y1714; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1713 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 160 ), y1714 ) ); } DEFTSCP( sizehints_aspect_2dx_4fdbb598_v ); DEFSTRING( t1833, "XSIZEHINTS-MIN_ASPECT-X", 23 ); TSCP sizehints_aspect_2dx_4fdbb598( x1717 ) TSCP x1717; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1717 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 176 ) ) ); } DEFTSCP( sizehints_ect_2dx_21_a0fd8560_v ); DEFSTRING( t1835, "XSIZEHINTS-MIN_ASPECT-X!", 24 ); TSCP sizehints_ect_2dx_21_a0fd8560( x1721, y1722 ) TSCP x1721, y1722; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1721 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 176 ), y1722 ) ); } DEFTSCP( sizehints_aspect_2dy_38dc850e_v ); DEFSTRING( t1837, "XSIZEHINTS-MIN_ASPECT-Y", 23 ); TSCP sizehints_aspect_2dy_38dc850e( x1725 ) TSCP x1725; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1725 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 192 ) ) ); } DEFTSCP( sizehints_ect_2dy_21_1841e205_v ); DEFSTRING( t1839, "XSIZEHINTS-MIN_ASPECT-Y!", 24 ); TSCP sizehints_ect_2dy_21_1841e205( x1729, y1730 ) TSCP x1729, y1730; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1729 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 192 ), y1730 ) ); } DEFTSCP( sizehints_aspect_2dx_6860d2a9_v ); DEFSTRING( t1841, "XSIZEHINTS-MAX_ASPECT-X", 23 ); TSCP sizehints_aspect_2dx_6860d2a9( x1733 ) TSCP x1733; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1733 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 208 ) ) ); } DEFTSCP( sizehints_ect_2dx_21_f35b9d84_v ); DEFSTRING( t1843, "XSIZEHINTS-MAX_ASPECT-X!", 24 ); TSCP sizehints_ect_2dx_21_f35b9d84( x1737, y1738 ) TSCP x1737, y1738; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1737 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 208 ), y1738 ) ); } DEFTSCP( sizehints_aspect_2dy_1f67e23f_v ); DEFSTRING( t1845, "XSIZEHINTS-MAX_ASPECT-Y", 23 ); TSCP sizehints_aspect_2dy_1f67e23f( x1741 ) TSCP x1741; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1741 ); return( scrt4_c_2dint_2dref( X1, _TSCP( 224 ) ) ); } DEFTSCP( sizehints_ect_2dy_21_4be7fae1_v ); DEFSTRING( t1847, "XSIZEHINTS-MAX_ASPECT-Y!", 24 ); TSCP sizehints_ect_2dy_21_4be7fae1( x1745, y1746 ) TSCP x1745, y1746; { TSCP X1; X1 = xlibtypes_chk_2dxsizehintsp( x1745 ); return( scrt4_c_2dint_2dset_21( X1, _TSCP( 224 ), y1746 ) ); } static void init_modules( compiler_version ) char *compiler_version; { xlibtypes__init(); scrt4__init(); scrt6__init(); scrt2__init(); MAXDISPLAY( 0 ); } void xsizehints__init() { static int init = 0; if (init) return; init = 1; INITHEAP( 0, 0, 0, 0 ); init_constants(); init_modules( "(xsizehints SCHEME->C COMPILER 28sep90jfb)" ); INITIALIZEVAR( U_TX( ADR( t1765 ) ), ADR( xsizehints_make_2dxsizehints_v ), MAKEPROCEDURE( 0, 0, xsizehints_make_2dxsizehints, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1789 ) ), ADR( xsizehints_xsizehints_2dflags_v ), MAKEPROCEDURE( 1, 0, xsizehints_xsizehints_2dflags, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1791 ) ), ADR( sizehints_2dflags_21_9ec8f824_v ), MAKEPROCEDURE( 2, 0, sizehints_2dflags_21_9ec8f824, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1793 ) ), ADR( xsizehints_xsizehints_2dx_v ), MAKEPROCEDURE( 1, 0, xsizehints_xsizehints_2dx, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1795 ) ), ADR( xsizehints_xsizehints_2dx_21_v ), MAKEPROCEDURE( 2, 0, xsizehints_xsizehints_2dx_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1797 ) ), ADR( xsizehints_xsizehints_2dy_v ), MAKEPROCEDURE( 1, 0, xsizehints_xsizehints_2dy, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1799 ) ), ADR( xsizehints_xsizehints_2dy_21_v ), MAKEPROCEDURE( 2, 0, xsizehints_xsizehints_2dy_21, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1801 ) ), ADR( xsizehints_xsizehints_2dwidth_v ), MAKEPROCEDURE( 1, 0, xsizehints_xsizehints_2dwidth, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1803 ) ), ADR( sizehints_2dwidth_21_8c744a49_v ), MAKEPROCEDURE( 2, 0, sizehints_2dwidth_21_8c744a49, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1805 ) ), ADR( sizehints_s_2dheight_265a6f2d_v ), MAKEPROCEDURE( 1, 0, sizehints_s_2dheight_265a6f2d, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1807 ) ), ADR( sizehints_dheight_21_820027d1_v ), MAKEPROCEDURE( 2, 0, sizehints_dheight_21_820027d1, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1809 ) ), ADR( sizehints_min__width_4dcbd289_v ), MAKEPROCEDURE( 1, 0, sizehints_min__width_4dcbd289, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1811 ) ), ADR( sizehints___width_21_8a12a121_v ), MAKEPROCEDURE( 2, 0, sizehints___width_21_8a12a121, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1813 ) ), ADR( sizehints_in__height_183bddc8_v ), MAKEPROCEDURE( 1, 0, sizehints_in__height_183bddc8, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1815 ) ), ADR( sizehints__height_21_c16fa850_v ), MAKEPROCEDURE( 2, 0, sizehints__height_21_c16fa850, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1817 ) ), ADR( sizehints_max__width_4cc7483d_v ), MAKEPROCEDURE( 1, 0, sizehints_max__width_4cc7483d, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1819 ) ), ADR( sizehints___width_21_ca5dd957_v ), MAKEPROCEDURE( 2, 0, sizehints___width_21_ca5dd957, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1821 ) ), ADR( sizehints_ax__height_d436a6c7_v ), MAKEPROCEDURE( 1, 0, sizehints_ax__height_d436a6c7, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1823 ) ), ADR( sizehints__height_21_78493321_v ), MAKEPROCEDURE( 2, 0, sizehints__height_21_78493321, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1825 ) ), ADR( sizehints_width__inc_3394f6ab_v ), MAKEPROCEDURE( 1, 0, sizehints_width__inc_3394f6ab, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1827 ) ), ADR( sizehints_th__inc_21_bbe79e12_v ), MAKEPROCEDURE( 2, 0, sizehints_th__inc_21_bbe79e12, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1829 ) ), ADR( sizehints_eight__inc_b90fe528_v ), MAKEPROCEDURE( 1, 0, sizehints_eight__inc_b90fe528, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1831 ) ), ADR( sizehints_ht__inc_21_5ea6301f_v ), MAKEPROCEDURE( 2, 0, sizehints_ht__inc_21_5ea6301f, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1833 ) ), ADR( sizehints_aspect_2dx_4fdbb598_v ), MAKEPROCEDURE( 1, 0, sizehints_aspect_2dx_4fdbb598, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1835 ) ), ADR( sizehints_ect_2dx_21_a0fd8560_v ), MAKEPROCEDURE( 2, 0, sizehints_ect_2dx_21_a0fd8560, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1837 ) ), ADR( sizehints_aspect_2dy_38dc850e_v ), MAKEPROCEDURE( 1, 0, sizehints_aspect_2dy_38dc850e, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1839 ) ), ADR( sizehints_ect_2dy_21_1841e205_v ), MAKEPROCEDURE( 2, 0, sizehints_ect_2dy_21_1841e205, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1841 ) ), ADR( sizehints_aspect_2dx_6860d2a9_v ), MAKEPROCEDURE( 1, 0, sizehints_aspect_2dx_6860d2a9, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1843 ) ), ADR( sizehints_ect_2dx_21_f35b9d84_v ), MAKEPROCEDURE( 2, 0, sizehints_ect_2dx_21_f35b9d84, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1845 ) ), ADR( sizehints_aspect_2dy_1f67e23f_v ), MAKEPROCEDURE( 1, 0, sizehints_aspect_2dy_1f67e23f, EMPTYLIST ) ); INITIALIZEVAR( U_TX( ADR( t1847 ) ), ADR( sizehints_ect_2dy_21_4be7fae1_v ), MAKEPROCEDURE( 2, 0, sizehints_ect_2dy_21_4be7fae1, EMPTYLIST ) ); return; }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.