ftp.nice.ch/pub/next/developer/languages/translator/schemetoc.s.tar.gz#/schemetoc/xlib/screen.c

This is screen.c in view mode; [Download] [Up]

/* SCHEME->C */

#include <objects.h>

DEFSTRING( t1842, "GC", 2 );
DEFSTATICTSCP( c1753 );
DEFSTRING( t1843, "VISUALP", 7 );
DEFSTATICTSCP( c1737 );
DEFSTRING( t1844, "DEPTHP", 6 );
DEFSTATICTSCP( c1713 );
DEFSTRING( t1845, "DISPLAYP", 8 );
DEFSTATICTSCP( c1649 );
DEFSTRING( t1846, "XEXTDATAP", 9 );
DEFSTATICTSCP( c1634 );
DEFSTRING( t1847, 
           "Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1627, t1847 );
DEFSTRING( t1848, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1626 );
DEFSTRING( t1849, "SCREENP", 7 );
DEFSTATICTSCP( c1598 );

static void  init_constants()
{
        c1753 = STRINGTOSYMBOL( U_TX( ADR( t1842 ) ) );
        CONSTANTEXP( ADR( c1753 ) );
        c1737 = STRINGTOSYMBOL( U_TX( ADR( t1843 ) ) );
        CONSTANTEXP( ADR( c1737 ) );
        c1713 = STRINGTOSYMBOL( U_TX( ADR( t1844 ) ) );
        CONSTANTEXP( ADR( c1713 ) );
        c1649 = STRINGTOSYMBOL( U_TX( ADR( t1845 ) ) );
        CONSTANTEXP( ADR( c1649 ) );
        c1634 = STRINGTOSYMBOL( U_TX( ADR( t1846 ) ) );
        CONSTANTEXP( ADR( c1634 ) );
        c1626 = STRINGTOSYMBOL( U_TX( ADR( t1848 ) ) );
        CONSTANTEXP( ADR( c1626 ) );
        c1598 = STRINGTOSYMBOL( U_TX( ADR( t1849 ) ) );
        CONSTANTEXP( ADR( c1598 ) );
}

DEFTSCP( screen_make_2dscreen_v );
DEFSTRING( t1850, "MAKE-SCREEN", 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  screen_make_2dscreen(  )
{
        TSCP  X4, X3, X2, X1;

        X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
        if  ( TRUE( X3 ) )  goto  L1857;
        if  ( BITAND( BITOR( INT( _TSCP( 0 ) ), 
                             INT( _TSCP( 0 ) ) ), 
                      3 ) )  goto  L1858;
        X4 = BOOLEAN( LT( INT( _TSCP( 0 ) ), 
                          INT( _TSCP( 0 ) ) ) );
        goto L1859;
L1858:
        X4 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L1859:
        if  ( TRUE( X4 ) )  goto  L1857;
        if  ( BITAND( BITOR( INT( _TSCP( 0 ) ), 
                             INT( _TSCP( 1020 ) ) ), 
                      3 ) )  goto  L1866;
        if  ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) )  goto  L1857;
        goto L1873;
L1866:
        if  ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
            )  goto  L1873;
L1857:
        scrt6_error( c1626, 
                     c1627, CONS( _TSCP( 0 ), EMPTYLIST ) );
L1873:
        X1 = sc_make_2dstring( _TSCP( 320 ), 
                               CONS( FIX_CHAR( _TSCP( 0 ) ), 
                                     EMPTYLIST ) );
        return( sc_cons( c1598, X1 ) );
}

DEFTSCP( screen_screen_2dext__data_v );
DEFSTRING( t1874, "SCREEN-EXT_DATA", 15 );
EXTERNTSCPP( xlibtypes_chk_2dscreenp );
EXTERNTSCP( xlibtypes_chk_2dscreenp_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );

TSCP  screen_screen_2dext__data( x1630 )
        TSCP  x1630;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1630 );
        X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
        return( sc_cons( c1634, X2 ) );
}

DEFTSCP( screen_screen_2dext__data_21_v );
DEFSTRING( t1877, "SCREEN-EXT_DATA!", 16 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( xlibtypes_chk_2dxextdatap );
EXTERNTSCP( xlibtypes_chk_2dxextdatap_v );

TSCP  screen_screen_2dext__data_21( x1637, y1638 )
        TSCP  x1637, y1638;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1637 );
        X2 = xlibtypes_chk_2dxextdatap( y1638 );
        return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 ) );
}

DEFTSCP( screen_screen_2ddisplay_v );
DEFSTRING( t1880, "SCREEN-DISPLAY", 14 );

TSCP  screen_screen_2ddisplay( x1645 )
        TSCP  x1645;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1645 );
        X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 16 ) );
        return( sc_cons( c1649, X2 ) );
}

DEFTSCP( screen_screen_2ddisplay_21_v );
DEFSTRING( t1883, "SCREEN-DISPLAY!", 15 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );

TSCP  screen_screen_2ddisplay_21( x1653, y1654 )
        TSCP  x1653, y1654;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1653 );
        X2 = xlibtypes_chk_2ddisplayp( y1654 );
        return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 16 ), X2 ) );
}

DEFTSCP( screen_screen_2droot_v );
DEFSTRING( t1886, "SCREEN-ROOT", 11 );

TSCP  screen_screen_2droot( x1661 )
        TSCP  x1661;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1661 );
        return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 32 ) ) );
}

DEFTSCP( screen_screen_2droot_21_v );
DEFSTRING( t1888, "SCREEN-ROOT!", 12 );

TSCP  screen_screen_2droot_21( x1665, y1666 )
        TSCP  x1665, y1666;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1665 );
        return( scrt4_c_2dunsigned_2dset_21( X1, 
                                             _TSCP( 32 ), y1666 ) );
}

DEFTSCP( screen_screen_2dwidth_v );
DEFSTRING( t1890, "SCREEN-WIDTH", 12 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );

TSCP  screen_screen_2dwidth( x1669 )
        TSCP  x1669;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1669 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 48 ) ) );
}

DEFTSCP( screen_screen_2dwidth_21_v );
DEFSTRING( t1892, "SCREEN-WIDTH!", 13 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );

TSCP  screen_screen_2dwidth_21( x1673, y1674 )
        TSCP  x1673, y1674;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1673 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 48 ), y1674 ) );
}

DEFTSCP( screen_screen_2dheight_v );
DEFSTRING( t1894, "SCREEN-HEIGHT", 13 );

TSCP  screen_screen_2dheight( x1677 )
        TSCP  x1677;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1677 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 64 ) ) );
}

DEFTSCP( screen_screen_2dheight_21_v );
DEFSTRING( t1896, "SCREEN-HEIGHT!", 14 );

TSCP  screen_screen_2dheight_21( x1681, y1682 )
        TSCP  x1681, y1682;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1681 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 64 ), y1682 ) );
}

DEFTSCP( screen_screen_2dmwidth_v );
DEFSTRING( t1898, "SCREEN-MWIDTH", 13 );

TSCP  screen_screen_2dmwidth( x1685 )
        TSCP  x1685;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1685 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 80 ) ) );
}

DEFTSCP( screen_screen_2dmwidth_21_v );
DEFSTRING( t1900, "SCREEN-MWIDTH!", 14 );

TSCP  screen_screen_2dmwidth_21( x1689, y1690 )
        TSCP  x1689, y1690;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1689 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 80 ), y1690 ) );
}

DEFTSCP( screen_screen_2dmheight_v );
DEFSTRING( t1902, "SCREEN-MHEIGHT", 14 );

TSCP  screen_screen_2dmheight( x1693 )
        TSCP  x1693;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1693 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 96 ) ) );
}

DEFTSCP( screen_screen_2dmheight_21_v );
DEFSTRING( t1904, "SCREEN-MHEIGHT!", 15 );

TSCP  screen_screen_2dmheight_21( x1697, y1698 )
        TSCP  x1697, y1698;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1697 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 96 ), y1698 ) );
}

DEFTSCP( screen_screen_2dndepths_v );
DEFSTRING( t1906, "SCREEN-NDEPTHS", 14 );

TSCP  screen_screen_2dndepths( x1701 )
        TSCP  x1701;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1701 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 112 ) ) );
}

DEFTSCP( screen_screen_2dndepths_21_v );
DEFSTRING( t1908, "SCREEN-NDEPTHS!", 15 );

TSCP  screen_screen_2dndepths_21( x1705, y1706 )
        TSCP  x1705, y1706;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1705 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 112 ), y1706 ) );
}

DEFTSCP( screen_screen_2ddepths_v );
DEFSTRING( t1910, "SCREEN-DEPTHS", 13 );

TSCP  screen_screen_2ddepths( x1709 )
        TSCP  x1709;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1709 );
        X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 128 ) );
        return( sc_cons( c1713, X2 ) );
}

DEFTSCP( screen_screen_2ddepths_21_v );
DEFSTRING( t1913, "SCREEN-DEPTHS!", 14 );
EXTERNTSCPP( xlibtypes_chk_2ddepthp );
EXTERNTSCP( xlibtypes_chk_2ddepthp_v );

TSCP  screen_screen_2ddepths_21( x1717, y1718 )
        TSCP  x1717, y1718;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1717 );
        X2 = xlibtypes_chk_2ddepthp( y1718 );
        return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 128 ), X2 ) );
}

DEFTSCP( screen_screen_2droot__depth_v );
DEFSTRING( t1916, "SCREEN-ROOT_DEPTH", 17 );

TSCP  screen_screen_2droot__depth( x1725 )
        TSCP  x1725;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1725 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 144 ) ) );
}

DEFTSCP( screen___depth_21_8f1f75a_v );
DEFSTRING( t1918, "SCREEN-ROOT_DEPTH!", 18 );

TSCP  screen___depth_21_8f1f75a( x1729, y1730 )
        TSCP  x1729, y1730;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1729 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 144 ), y1730 ) );
}

DEFTSCP( screen_screen_2droot__visual_v );
DEFSTRING( t1920, "SCREEN-ROOT_VISUAL", 18 );

TSCP  screen_screen_2droot__visual( x1733 )
        TSCP  x1733;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1733 );
        X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 160 ) );
        return( sc_cons( c1737, X2 ) );
}

DEFTSCP( screen__visual_21_71e9c129_v );
DEFSTRING( t1923, "SCREEN-ROOT_VISUAL!", 19 );
EXTERNTSCPP( xlibtypes_chk_2dvisualp );
EXTERNTSCP( xlibtypes_chk_2dvisualp_v );

TSCP  screen__visual_21_71e9c129( x1741, y1742 )
        TSCP  x1741, y1742;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1741 );
        X2 = xlibtypes_chk_2dvisualp( y1742 );
        return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 160 ), X2 ) );
}

DEFTSCP( screen_screen_2ddefault__gc_v );
DEFSTRING( t1926, "SCREEN-DEFAULT_GC", 17 );

TSCP  screen_screen_2ddefault__gc( x1749 )
        TSCP  x1749;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1749 );
        X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 176 ) );
        return( sc_cons( c1753, X2 ) );
}

DEFTSCP( screen_ult__gc_21_d706cd37_v );
DEFSTRING( t1929, "SCREEN-DEFAULT_GC!", 18 );
EXTERNTSCPP( xlibtypes_chk_2dgc );
EXTERNTSCP( xlibtypes_chk_2dgc_v );

TSCP  screen_ult__gc_21_d706cd37( x1757, y1758 )
        TSCP  x1757, y1758;
{
        TSCP  X2, X1;

        X1 = xlibtypes_chk_2dscreenp( x1757 );
        X2 = xlibtypes_chk_2dgc( y1758 );
        return( scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 176 ), X2 ) );
}

DEFTSCP( screen_screen_2dcmap_v );
DEFSTRING( t1932, "SCREEN-CMAP", 11 );

TSCP  screen_screen_2dcmap( x1765 )
        TSCP  x1765;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1765 );
        return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 192 ) ) );
}

DEFTSCP( screen_screen_2dcmap_21_v );
DEFSTRING( t1934, "SCREEN-CMAP!", 12 );

TSCP  screen_screen_2dcmap_21( x1769, y1770 )
        TSCP  x1769, y1770;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1769 );
        return( scrt4_c_2dunsigned_2dset_21( X1, 
                                             _TSCP( 192 ), y1770 ) );
}

DEFTSCP( screen_screen_2dwhite__pixel_v );
DEFSTRING( t1936, "SCREEN-WHITE_PIXEL", 18 );

TSCP  screen_screen_2dwhite__pixel( x1773 )
        TSCP  x1773;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1773 );
        return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 208 ) ) );
}

DEFTSCP( screen___pixel_21_8a957141_v );
DEFSTRING( t1938, "SCREEN-WHITE_PIXEL!", 19 );

TSCP  screen___pixel_21_8a957141( x1777, y1778 )
        TSCP  x1777, y1778;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1777 );
        return( scrt4_c_2dunsigned_2dset_21( X1, 
                                             _TSCP( 208 ), y1778 ) );
}

DEFTSCP( screen_screen_2dblack__pixel_v );
DEFSTRING( t1940, "SCREEN-BLACK_PIXEL", 18 );

TSCP  screen_screen_2dblack__pixel( x1781 )
        TSCP  x1781;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1781 );
        return( scrt4_c_2dunsigned_2dref( X1, _TSCP( 224 ) ) );
}

DEFTSCP( screen___pixel_21_94292386_v );
DEFSTRING( t1942, "SCREEN-BLACK_PIXEL!", 19 );

TSCP  screen___pixel_21_94292386( x1785, y1786 )
        TSCP  x1785, y1786;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1785 );
        return( scrt4_c_2dunsigned_2dset_21( X1, 
                                             _TSCP( 224 ), y1786 ) );
}

DEFTSCP( screen_screen_2dmax__maps_v );
DEFSTRING( t1944, "SCREEN-MAX_MAPS", 15 );

TSCP  screen_screen_2dmax__maps( x1789 )
        TSCP  x1789;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1789 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 240 ) ) );
}

DEFTSCP( screen_screen_2dmax__maps_21_v );
DEFSTRING( t1946, "SCREEN-MAX_MAPS!", 16 );

TSCP  screen_screen_2dmax__maps_21( x1793, y1794 )
        TSCP  x1793, y1794;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1793 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 240 ), y1794 ) );
}

DEFTSCP( screen_screen_2dmin__maps_v );
DEFSTRING( t1948, "SCREEN-MIN_MAPS", 15 );

TSCP  screen_screen_2dmin__maps( x1797 )
        TSCP  x1797;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1797 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 256 ) ) );
}

DEFTSCP( screen_screen_2dmin__maps_21_v );
DEFSTRING( t1950, "SCREEN-MIN_MAPS!", 16 );

TSCP  screen_screen_2dmin__maps_21( x1801, y1802 )
        TSCP  x1801, y1802;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1801 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 256 ), y1802 ) );
}

DEFTSCP( screen_ing__store_949bddb7_v );
DEFSTRING( t1952, "SCREEN-BACKING_STORE", 20 );

TSCP  screen_ing__store_949bddb7( x1805 )
        TSCP  x1805;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1805 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 272 ) ) );
}

DEFTSCP( screen___store_21_48142459_v );
DEFSTRING( t1954, "SCREEN-BACKING_STORE!", 21 );

TSCP  screen___store_21_48142459( x1809, y1810 )
        TSCP  x1809, y1810;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1809 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 272 ), y1810 ) );
}

DEFTSCP( screen_screen_2dsave__unders_v );
DEFSTRING( t1956, "SCREEN-SAVE_UNDERS", 18 );

TSCP  screen_screen_2dsave__unders( x1813 )
        TSCP  x1813;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1813 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 288 ) ) );
}

DEFTSCP( screen__unders_21_1a7b7d7c_v );
DEFSTRING( t1958, "SCREEN-SAVE_UNDERS!", 19 );

TSCP  screen__unders_21_1a7b7d7c( x1817, y1818 )
        TSCP  x1817, y1818;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1817 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 288 ), y1818 ) );
}

DEFTSCP( screen_nput__mask_d8d26e5e_v );
DEFSTRING( t1960, "SCREEN-ROOT_INPUT_MASK", 22 );

TSCP  screen_nput__mask_d8d26e5e( x1821 )
        TSCP  x1821;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1821 );
        return( scrt4_c_2dint_2dref( X1, _TSCP( 304 ) ) );
}

DEFTSCP( screen_t__mask_21_2ecfcb75_v );
DEFSTRING( t1962, "SCREEN-ROOT_INPUT_MASK!", 23 );

TSCP  screen_t__mask_21_2ecfcb75( x1825, y1826 )
        TSCP  x1825, y1826;
{
        TSCP  X1;

        X1 = xlibtypes_chk_2dscreenp( x1825 );
        return( scrt4_c_2dint_2dset_21( X1, _TSCP( 304 ), y1826 ) );
}

static void  init_modules( compiler_version )
        char *compiler_version;
{
        scrt4__init();
        xlibtypes__init();
        scrt6__init();
        scrt2__init();
        MAXDISPLAY( 0 );
}

void  screen__init()
{
        static int  init = 0;
        if  (init)  return;
        init = 1;
        INITHEAP( 0, 0, 0, 0 );
        init_constants();
        init_modules( "(screen SCHEME->C COMPILER 28sep90jfb)" );
        INITIALIZEVAR( U_TX( ADR( t1850 ) ), 
                       ADR( screen_make_2dscreen_v ), 
                       MAKEPROCEDURE( 0, 
                                      0, 
                                      screen_make_2dscreen, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1874 ) ), 
                       ADR( screen_screen_2dext__data_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dext__data, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1877 ) ), 
                       ADR( screen_screen_2dext__data_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dext__data_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1880 ) ), 
                       ADR( screen_screen_2ddisplay_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2ddisplay, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1883 ) ), 
                       ADR( screen_screen_2ddisplay_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2ddisplay_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1886 ) ), 
                       ADR( screen_screen_2droot_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2droot, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1888 ) ), 
                       ADR( screen_screen_2droot_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2droot_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1890 ) ), 
                       ADR( screen_screen_2dwidth_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dwidth, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1892 ) ), 
                       ADR( screen_screen_2dwidth_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dwidth_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1894 ) ), 
                       ADR( screen_screen_2dheight_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dheight, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1896 ) ), 
                       ADR( screen_screen_2dheight_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dheight_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1898 ) ), 
                       ADR( screen_screen_2dmwidth_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dmwidth, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1900 ) ), 
                       ADR( screen_screen_2dmwidth_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dmwidth_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1902 ) ), 
                       ADR( screen_screen_2dmheight_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dmheight, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1904 ) ), 
                       ADR( screen_screen_2dmheight_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dmheight_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1906 ) ), 
                       ADR( screen_screen_2dndepths_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dndepths, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1908 ) ), 
                       ADR( screen_screen_2dndepths_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dndepths_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1910 ) ), 
                       ADR( screen_screen_2ddepths_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2ddepths, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1913 ) ), 
                       ADR( screen_screen_2ddepths_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2ddepths_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1916 ) ), 
                       ADR( screen_screen_2droot__depth_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2droot__depth, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1918 ) ), 
                       ADR( screen___depth_21_8f1f75a_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen___depth_21_8f1f75a, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1920 ) ), 
                       ADR( screen_screen_2droot__visual_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2droot__visual, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1923 ) ), 
                       ADR( screen__visual_21_71e9c129_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen__visual_21_71e9c129, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1926 ) ), 
                       ADR( screen_screen_2ddefault__gc_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2ddefault__gc, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1929 ) ), 
                       ADR( screen_ult__gc_21_d706cd37_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_ult__gc_21_d706cd37, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1932 ) ), 
                       ADR( screen_screen_2dcmap_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dcmap, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1934 ) ), 
                       ADR( screen_screen_2dcmap_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dcmap_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1936 ) ), 
                       ADR( screen_screen_2dwhite__pixel_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dwhite__pixel, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1938 ) ), 
                       ADR( screen___pixel_21_8a957141_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen___pixel_21_8a957141, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1940 ) ), 
                       ADR( screen_screen_2dblack__pixel_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dblack__pixel, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1942 ) ), 
                       ADR( screen___pixel_21_94292386_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen___pixel_21_94292386, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1944 ) ), 
                       ADR( screen_screen_2dmax__maps_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dmax__maps, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1946 ) ), 
                       ADR( screen_screen_2dmax__maps_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dmax__maps_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1948 ) ), 
                       ADR( screen_screen_2dmin__maps_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dmin__maps, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1950 ) ), 
                       ADR( screen_screen_2dmin__maps_21_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_screen_2dmin__maps_21, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1952 ) ), 
                       ADR( screen_ing__store_949bddb7_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_ing__store_949bddb7, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1954 ) ), 
                       ADR( screen___store_21_48142459_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen___store_21_48142459, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1956 ) ), 
                       ADR( screen_screen_2dsave__unders_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_screen_2dsave__unders, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1958 ) ), 
                       ADR( screen__unders_21_1a7b7d7c_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen__unders_21_1a7b7d7c, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1960 ) ), 
                       ADR( screen_nput__mask_d8d26e5e_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      screen_nput__mask_d8d26e5e, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t1962 ) ), 
                       ADR( screen_t__mask_21_2ecfcb75_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      screen_t__mask_21_2ecfcb75, 
                                      EMPTYLIST ) );
        return;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.