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

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

/* SCHEME->C */

#include <objects.h>


static void  init_constants()
{
}

DEFTSCP( xws3_xvisualidfromvisual_v );
DEFSTRING( t2162, "XVISUALIDFROMVISUAL", 19 );
EXTERNTSCPP( xlibtypes_chk_2dvisualp );
EXTERNTSCP( xlibtypes_chk_2dvisualp_v );
EXTERNUNSIGNEDP( XVisualIDFromVisual );

TSCP  xws3_xvisualidfromvisual( v1601 )
        TSCP  v1601;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2162 ) ) );
        X1 = xlibtypes_chk_2dvisualp( v1601 );
        X2 = UNSIGNED_TSCP( XVisualIDFromVisual( TSCP_POINTER( X1 ) ) );
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xcreatewindow_v );
DEFSTRING( t2166, "XCREATEWINDOW", 13 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNTSCPP( xlibtypes_ttributesp_f8fc8c87 );
EXTERNTSCP( xlibtypes_ttributesp_f8fc8c87_v );
EXTERNUNSIGNEDP( XCreateWindow );

TSCP  xws3_xcreatewindow( d1622, 
                          p1623, 
                          x1624, 
                          y1625, 
                          w1626, 
                          h1627, 
                          b1628, 
                          d1629, 
                          c1630, v1631, v1632, a1633 )
        TSCP  d1622, 
              p1623, 
              x1624, 
              y1625, 
              w1626, 
              h1627, 
              b1628, d1629, c1630, v1631, v1632, a1633;
{
        TSCP  X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2166 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1622 );
        X2 = xlibtypes_chk_2dvisualp( v1631 );
        X3 = xlibtypes_ttributesp_f8fc8c87( a1633 );
        X4 = UNSIGNED_TSCP( XCreateWindow( TSCP_POINTER( X1 ), 
                                           TSCP_UNSIGNED( p1623 ), 
                                           TSCP_INT( x1624 ), 
                                           TSCP_INT( y1625 ), 
                                           TSCP_UNSIGNED( w1626 ), 
                                           TSCP_UNSIGNED( h1627 ), 
                                           TSCP_UNSIGNED( b1628 ), 
                                           TSCP_INT( d1629 ), 
                                           TSCP_UNSIGNED( c1630 ), 
                                           TSCP_POINTER( X2 ), 
                                           TSCP_UNSIGNED( v1632 ), 
                                           TSCP_POINTER( X3 ) ) );
        POPSTACKTRACE( X4 );
}

DEFTSCP( xws3_xcreatesimplewindow_v );
DEFSTRING( t2172, "XCREATESIMPLEWINDOW", 19 );
EXTERNUNSIGNEDP( XCreateSimpleWindow );

TSCP  xws3_xcreatesimplewindow( d1673, 
                                p1674, 
                                x1675, 
                                y1676, 
                                w1677, 
                                h1678, b1679, b1680, b1681 )
        TSCP  d1673, 
              p1674, 
              x1675, 
              y1676, w1677, h1678, b1679, b1680, b1681;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2172 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1673 );
        X2 = UNSIGNED_TSCP( XCreateSimpleWindow( TSCP_POINTER( X1 ), 
                                                 TSCP_UNSIGNED( p1674 ), 
                                                 TSCP_INT( x1675 ), 
                                                 TSCP_INT( y1676 ), 
                                                 TSCP_UNSIGNED( w1677 ), 
                                                 TSCP_UNSIGNED( h1678 ), 
                                                 TSCP_UNSIGNED( b1679 ), 
                                                 TSCP_UNSIGNED( b1680 ), 
                                                 TSCP_UNSIGNED( b1681 ) ) );
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xdestroywindow_v );
DEFSTRING( t2176, "XDESTROYWINDOW", 14 );
EXTERNVOIDP( XDestroyWindow );

TSCP  xws3_xdestroywindow( d1708, w1709 )
        TSCP  d1708, w1709;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2176 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1708 );
        XDestroyWindow( TSCP_POINTER( X1 ), 
                        TSCP_UNSIGNED( w1709 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xdestroysubwindows_v );
DEFSTRING( t2181, "XDESTROYSUBWINDOWS", 18 );
EXTERNVOIDP( XDestroySubwindows );

TSCP  xws3_xdestroysubwindows( d1723, w1724 )
        TSCP  d1723, w1724;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2181 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1723 );
        XDestroySubwindows( TSCP_POINTER( X1 ), 
                            TSCP_UNSIGNED( w1724 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xmapwindow_v );
DEFSTRING( t2186, "XMAPWINDOW", 10 );
EXTERNVOIDP( XMapWindow );

TSCP  xws3_xmapwindow( d1738, w1739 )
        TSCP  d1738, w1739;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2186 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1738 );
        XMapWindow( TSCP_POINTER( X1 ), 
                    TSCP_UNSIGNED( w1739 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xmapraised_v );
DEFSTRING( t2191, "XMAPRAISED", 10 );
EXTERNVOIDP( XMapRaised );

TSCP  xws3_xmapraised( d1753, w1754 )
        TSCP  d1753, w1754;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2191 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1753 );
        XMapRaised( TSCP_POINTER( X1 ), 
                    TSCP_UNSIGNED( w1754 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xmapsubwindows_v );
DEFSTRING( t2196, "XMAPSUBWINDOWS", 14 );
EXTERNVOIDP( XMapSubwindows );

TSCP  xws3_xmapsubwindows( d1768, w1769 )
        TSCP  d1768, w1769;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2196 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1768 );
        XMapSubwindows( TSCP_POINTER( X1 ), 
                        TSCP_UNSIGNED( w1769 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xunmapwindow_v );
DEFSTRING( t2201, "XUNMAPWINDOW", 12 );
EXTERNVOIDP( XUnmapWindow );

TSCP  xws3_xunmapwindow( d1783, w1784 )
        TSCP  d1783, w1784;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2201 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1783 );
        XUnmapWindow( TSCP_POINTER( X1 ), 
                      TSCP_UNSIGNED( w1784 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xunmapsubwindows_v );
DEFSTRING( t2206, "XUNMAPSUBWINDOWS", 16 );
EXTERNVOIDP( XUnmapSubwindows );

TSCP  xws3_xunmapsubwindows( d1798, w1799 )
        TSCP  d1798, w1799;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2206 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1798 );
        XUnmapSubwindows( TSCP_POINTER( X1 ), 
                          TSCP_UNSIGNED( w1799 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xconfigurewindow_v );
DEFSTRING( t2211, "XCONFIGUREWINDOW", 16 );
EXTERNTSCPP( xlibtypes_owchangesp_68ca6d56 );
EXTERNTSCP( xlibtypes_owchangesp_68ca6d56_v );
EXTERNVOIDP( XConfigureWindow );

TSCP  xws3_xconfigurewindow( d1815, w1816, m1817, c1818 )
        TSCP  d1815, w1816, m1817, c1818;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2211 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1815 );
        X2 = xlibtypes_owchangesp_68ca6d56( c1818 );
        XConfigureWindow( TSCP_POINTER( X1 ), 
                          TSCP_UNSIGNED( w1816 ), 
                          TSCP_UNSIGNED( m1817 ), 
                          TSCP_POINTER( X2 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws3_xmovewindow_v );
DEFSTRING( t2217, "XMOVEWINDOW", 11 );
EXTERNVOIDP( XMoveWindow );

TSCP  xws3_xmovewindow( d1838, w1839, x1840, y1841 )
        TSCP  d1838, w1839, x1840, y1841;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2217 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1838 );
        XMoveWindow( TSCP_POINTER( X1 ), 
                     TSCP_UNSIGNED( w1839 ), 
                     TSCP_INT( x1840 ), TSCP_INT( y1841 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xresizewindow_v );
DEFSTRING( t2222, "XRESIZEWINDOW", 13 );
EXTERNVOIDP( XResizeWindow );

TSCP  xws3_xresizewindow( d1861, w1862, w1863, h1864 )
        TSCP  d1861, w1862, w1863, h1864;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2222 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1861 );
        XResizeWindow( TSCP_POINTER( X1 ), 
                       TSCP_UNSIGNED( w1862 ), 
                       TSCP_UNSIGNED( w1863 ), 
                       TSCP_UNSIGNED( h1864 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xmoveresizewindow_v );
DEFSTRING( t2227, "XMOVERESIZEWINDOW", 17 );
EXTERNVOIDP( XMoveResizeWindow );

TSCP  xws3_xmoveresizewindow( d1886, 
                              w1887, 
                              x1888, y1889, w1890, h1891 )
        TSCP  d1886, w1887, x1888, y1889, w1890, h1891;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2227 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1886 );
        XMoveResizeWindow( TSCP_POINTER( X1 ), 
                           TSCP_UNSIGNED( w1887 ), 
                           TSCP_INT( x1888 ), 
                           TSCP_INT( y1889 ), 
                           TSCP_UNSIGNED( w1890 ), 
                           TSCP_UNSIGNED( h1891 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xsetwindowborderwidth_v );
DEFSTRING( t2232, "XSETWINDOWBORDERWIDTH", 21 );
EXTERNVOIDP( XSetWindowBorderWidth );

TSCP  xws3_xsetwindowborderwidth( d1914, w1915, w1916 )
        TSCP  d1914, w1915, w1916;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2232 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1914 );
        XSetWindowBorderWidth( TSCP_POINTER( X1 ), 
                               TSCP_UNSIGNED( w1915 ), 
                               TSCP_UNSIGNED( w1916 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xraisewindow_v );
DEFSTRING( t2237, "XRAISEWINDOW", 12 );
EXTERNVOIDP( XRaiseWindow );

TSCP  xws3_xraisewindow( d1932, w1933 )
        TSCP  d1932, w1933;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2237 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1932 );
        XRaiseWindow( TSCP_POINTER( X1 ), 
                      TSCP_UNSIGNED( w1933 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xlowerwindow_v );
DEFSTRING( t2242, "XLOWERWINDOW", 12 );
EXTERNVOIDP( XLowerWindow );

TSCP  xws3_xlowerwindow( d1947, w1948 )
        TSCP  d1947, w1948;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2242 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1947 );
        XLowerWindow( TSCP_POINTER( X1 ), 
                      TSCP_UNSIGNED( w1948 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xcirculatesubwindows_v );
DEFSTRING( t2247, "XCIRCULATESUBWINDOWS", 20 );
EXTERNVOIDP( XCirculateSubwindows );

TSCP  xws3_xcirculatesubwindows( d1963, w1964, d1965 )
        TSCP  d1963, w1964, d1965;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2247 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1963 );
        XCirculateSubwindows( TSCP_POINTER( X1 ), 
                              TSCP_UNSIGNED( w1964 ), 
                              TSCP_INT( d1965 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xcirculatesubwindowsup_v );
DEFSTRING( t2252, "XCIRCULATESUBWINDOWSUP", 22 );
EXTERNVOIDP( XCirculateSubwindowsUp );

TSCP  xws3_xcirculatesubwindowsup( d1981, w1982 )
        TSCP  d1981, w1982;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2252 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1981 );
        XCirculateSubwindowsUp( TSCP_POINTER( X1 ), 
                                TSCP_UNSIGNED( w1982 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xcirculatesubwindowsdown_v );
DEFSTRING( t2257, "XCIRCULATESUBWINDOWSDOWN", 24 );
EXTERNVOIDP( XCirculateSubwindowsDown );

TSCP  xws3_xcirculatesubwindowsdown( d1996, w1997 )
        TSCP  d1996, w1997;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2257 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1996 );
        XCirculateSubwindowsDown( TSCP_POINTER( X1 ), 
                                  TSCP_UNSIGNED( w1997 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xrestackwindows_v );
DEFSTRING( t2262, "XRESTACKWINDOWS", 15 );
EXTERNTSCPP( xlibtypes_chk_2dunsignedap );
EXTERNTSCP( xlibtypes_chk_2dunsignedap_v );
EXTERNVOIDP( XRestackWindows );

TSCP  xws3_xrestackwindows( d2012, w2013, c2014 )
        TSCP  d2012, w2013, c2014;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2262 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2012 );
        X2 = xlibtypes_chk_2dunsignedap( w2013 );
        XRestackWindows( TSCP_POINTER( X1 ), 
                         TSCP_POINTER( X2 ), 
                         TSCP_UNSIGNED( c2014 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws3_xchangewindowattributes_v );
DEFSTRING( t2268, "XCHANGEWINDOWATTRIBUTES", 23 );
EXTERNVOIDP( XChangeWindowAttributes );

TSCP  xws3_xchangewindowattributes( d2032, w2033, v2034, a2035 )
        TSCP  d2032, w2033, v2034, a2035;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2268 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2032 );
        X2 = xlibtypes_ttributesp_f8fc8c87( a2035 );
        XChangeWindowAttributes( TSCP_POINTER( X1 ), 
                                 TSCP_UNSIGNED( w2033 ), 
                                 TSCP_UNSIGNED( v2034 ), 
                                 TSCP_POINTER( X2 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws3_xsetwindowbackground_v );
DEFSTRING( t2274, "XSETWINDOWBACKGROUND", 20 );
EXTERNVOIDP( XSetWindowBackground );

TSCP  xws3_xsetwindowbackground( d2054, w2055, p2056 )
        TSCP  d2054, w2055, p2056;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2274 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2054 );
        XSetWindowBackground( TSCP_POINTER( X1 ), 
                              TSCP_UNSIGNED( w2055 ), 
                              TSCP_UNSIGNED( p2056 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_oundpixmap_ffe462c5_v );
DEFSTRING( t2279, "XSETWINDOWBACKGROUNDPIXMAP", 26 );
EXTERNVOIDP( XSetWindowBackgroundPixmap );

TSCP  xws3_oundpixmap_ffe462c5( d2073, w2074, p2075 )
        TSCP  d2073, w2074, p2075;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2279 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2073 );
        XSetWindowBackgroundPixmap( TSCP_POINTER( X1 ), 
                                    TSCP_UNSIGNED( w2074 ), 
                                    TSCP_UNSIGNED( p2075 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xsetwindowborder_v );
DEFSTRING( t2284, "XSETWINDOWBORDER", 16 );
EXTERNVOIDP( XSetWindowBorder );

TSCP  xws3_xsetwindowborder( d2092, w2093, p2094 )
        TSCP  d2092, w2093, p2094;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2284 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2092 );
        XSetWindowBorder( TSCP_POINTER( X1 ), 
                          TSCP_UNSIGNED( w2093 ), 
                          TSCP_UNSIGNED( p2094 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xsetwindowborderpixmap_v );
DEFSTRING( t2289, "XSETWINDOWBORDERPIXMAP", 22 );
EXTERNVOIDP( XSetWindowBorderPixmap );

TSCP  xws3_xsetwindowborderpixmap( d2111, w2112, p2113 )
        TSCP  d2111, w2112, p2113;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2289 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2111 );
        XSetWindowBorderPixmap( TSCP_POINTER( X1 ), 
                                TSCP_UNSIGNED( w2112 ), 
                                TSCP_UNSIGNED( p2113 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws3_xtranslatecoordinates_v );
DEFSTRING( t2294, "XTRANSLATECOORDINATES", 21 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNINTP( XTranslateCoordinates );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );

TSCP  xws3_xtranslatecoordinates( d2135, 
                                  s2136, d2137, s2138, s2139 )
        TSCP  d2135, s2136, d2137, s2138, s2139;
{
        TSCP  X12, 
              X11, 
              X10, 
              X9, 
              X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2294 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2135 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X5 = INT_TSCP( XTranslateCoordinates( TSCP_POINTER( X1 ), 
                                              TSCP_UNSIGNED( s2136 ), 
                                              TSCP_UNSIGNED( d2137 ), 
                                              TSCP_INT( s2138 ), 
                                              TSCP_INT( s2139 ), 
                                              TSCP_POINTER( X2 ), 
                                              TSCP_POINTER( X3 ), 
                                              TSCP_POINTER( X4 ) ) );
        X8 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X10 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X12 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
        X11 = sc_cons( X12, EMPTYLIST );
        X9 = sc_cons( X10, X11 );
        X7 = sc_cons( X8, X9 );
        X6 = sc_cons( X5, X7 );
        POPSTACKTRACE( X6 );
}

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

void  xws3__init()
{
        static int  init = 0;
        if  (init)  return;
        init = 1;
        INITHEAP( 0, 0, 0, 0 );
        init_constants();
        init_modules( "(xws3 SCHEME->C COMPILER 28sep90jfb)" );
        INITIALIZEVAR( U_TX( ADR( t2162 ) ), 
                       ADR( xws3_xvisualidfromvisual_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws3_xvisualidfromvisual, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2166 ) ), 
                       ADR( xws3_xcreatewindow_v ), 
                       MAKEPROCEDURE( 12, 
                                      0, 
                                      xws3_xcreatewindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2172 ) ), 
                       ADR( xws3_xcreatesimplewindow_v ), 
                       MAKEPROCEDURE( 9, 
                                      0, 
                                      xws3_xcreatesimplewindow, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2176 ) ), 
                       ADR( xws3_xdestroywindow_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xdestroywindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2181 ) ), 
                       ADR( xws3_xdestroysubwindows_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xdestroysubwindows, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2186 ) ), 
                       ADR( xws3_xmapwindow_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xmapwindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2191 ) ), 
                       ADR( xws3_xmapraised_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xmapraised, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2196 ) ), 
                       ADR( xws3_xmapsubwindows_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xmapsubwindows, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2201 ) ), 
                       ADR( xws3_xunmapwindow_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xunmapwindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2206 ) ), 
                       ADR( xws3_xunmapsubwindows_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xunmapsubwindows, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2211 ) ), 
                       ADR( xws3_xconfigurewindow_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws3_xconfigurewindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2217 ) ), 
                       ADR( xws3_xmovewindow_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws3_xmovewindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2222 ) ), 
                       ADR( xws3_xresizewindow_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws3_xresizewindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2227 ) ), 
                       ADR( xws3_xmoveresizewindow_v ), 
                       MAKEPROCEDURE( 6, 
                                      0, 
                                      xws3_xmoveresizewindow, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2232 ) ), 
                       ADR( xws3_xsetwindowborderwidth_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws3_xsetwindowborderwidth, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2237 ) ), 
                       ADR( xws3_xraisewindow_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xraisewindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2242 ) ), 
                       ADR( xws3_xlowerwindow_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xlowerwindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2247 ) ), 
                       ADR( xws3_xcirculatesubwindows_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws3_xcirculatesubwindows, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2252 ) ), 
                       ADR( xws3_xcirculatesubwindowsup_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xcirculatesubwindowsup, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2257 ) ), 
                       ADR( xws3_xcirculatesubwindowsdown_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws3_xcirculatesubwindowsdown, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2262 ) ), 
                       ADR( xws3_xrestackwindows_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws3_xrestackwindows, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2268 ) ), 
                       ADR( xws3_xchangewindowattributes_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws3_xchangewindowattributes, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2274 ) ), 
                       ADR( xws3_xsetwindowbackground_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws3_xsetwindowbackground, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2279 ) ), 
                       ADR( xws3_oundpixmap_ffe462c5_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws3_oundpixmap_ffe462c5, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2284 ) ), 
                       ADR( xws3_xsetwindowborder_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws3_xsetwindowborder, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2289 ) ), 
                       ADR( xws3_xsetwindowborderpixmap_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws3_xsetwindowborderpixmap, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2294 ) ), 
                       ADR( xws3_xtranslatecoordinates_v ), 
                       MAKEPROCEDURE( 5, 
                                      0, 
                                      xws3_xtranslatecoordinates, 
                                      EMPTYLIST ) );
        return;
}

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