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

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

/* SCHEME->C */

#include <objects.h>

DEFSTRING( t2674, "XHOSTADDRESSAP", 14 );
DEFSTATICTSCP( c2602 );
DEFSTRING( t2675, "XMODIFIERKEYMAPP", 16 );
DEFSTATICTSCP( c2389 );
DEFSTRING( t2676, "XQKEYMAPP", 9 );
DEFSTATICTSCP( c2218 );
DEFSTRING( t2677, "XKEYBOARDSTATEP", 15 );
DEFSTATICTSCP( c2165 );
DEFSTRING( t2678, "UNSIGNEDAP", 10 );
DEFSTATICTSCP( c1722 );

static void  init_constants()
{
        c2602 = STRINGTOSYMBOL( U_TX( ADR( t2674 ) ) );
        CONSTANTEXP( ADR( c2602 ) );
        c2389 = STRINGTOSYMBOL( U_TX( ADR( t2675 ) ) );
        CONSTANTEXP( ADR( c2389 ) );
        c2218 = STRINGTOSYMBOL( U_TX( ADR( t2676 ) ) );
        CONSTANTEXP( ADR( c2218 ) );
        c2165 = STRINGTOSYMBOL( U_TX( ADR( t2677 ) ) );
        CONSTANTEXP( ADR( c2165 ) );
        c1722 = STRINGTOSYMBOL( U_TX( ADR( t2678 ) ) );
        CONSTANTEXP( ADR( c1722 ) );
}

DEFTSCP( xws7_xreparentwindow_v );
DEFSTRING( t2679, "XREPARENTWINDOW", 15 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNVOIDP( XReparentWindow );

TSCP  xws7_xreparentwindow( d1605, 
                            w1606, p1607, x1608, y1609 )
        TSCP  d1605, w1606, p1607, x1608, y1609;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2679 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1605 );
        XReparentWindow( TSCP_POINTER( X1 ), 
                         TSCP_UNSIGNED( w1606 ), 
                         TSCP_UNSIGNED( p1607 ), 
                         TSCP_INT( x1608 ), 
                         TSCP_INT( y1609 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xchangesaveset_v );
DEFSTRING( t2684, "XCHANGESAVESET", 14 );
EXTERNVOIDP( XChangeSaveSet );

TSCP  xws7_xchangesaveset( d1630, w1631, m1632 )
        TSCP  d1630, w1631, m1632;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2684 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1630 );
        XChangeSaveSet( TSCP_POINTER( X1 ), 
                        TSCP_UNSIGNED( w1631 ), 
                        TSCP_INT( m1632 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xaddtosaveset_v );
DEFSTRING( t2689, "XADDTOSAVESET", 13 );
EXTERNVOIDP( XAddToSaveSet );

TSCP  xws7_xaddtosaveset( d1648, w1649 )
        TSCP  d1648, w1649;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2689 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1648 );
        XAddToSaveSet( TSCP_POINTER( X1 ), 
                       TSCP_UNSIGNED( w1649 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xremovefromsaveset_v );
DEFSTRING( t2694, "XREMOVEFROMSAVESET", 18 );
EXTERNVOIDP( XRemoveFromSaveSet );

TSCP  xws7_xremovefromsaveset( d1663, w1664 )
        TSCP  d1663, w1664;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2694 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1663 );
        XRemoveFromSaveSet( TSCP_POINTER( X1 ), 
                            TSCP_UNSIGNED( w1664 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xinstallcolormap_v );
DEFSTRING( t2699, "XINSTALLCOLORMAP", 16 );
EXTERNVOIDP( XInstallColormap );

TSCP  xws7_xinstallcolormap( d1678, c1679 )
        TSCP  d1678, c1679;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2699 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1678 );
        XInstallColormap( TSCP_POINTER( X1 ), 
                          TSCP_UNSIGNED( c1679 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xuninstallcolormap_v );
DEFSTRING( t2704, "XUNINSTALLCOLORMAP", 18 );
EXTERNVOIDP( XUninstallColormap );

TSCP  xws7_xuninstallcolormap( d1693, c1694 )
        TSCP  d1693, c1694;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2704 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1693 );
        XUninstallColormap( TSCP_POINTER( X1 ), 
                            TSCP_UNSIGNED( c1694 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xlistinstalledcolormaps_v );
DEFSTRING( t2709, "XLISTINSTALLEDCOLORMAPS", 23 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNPOINTERP( XListInstalledColormaps );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );

TSCP  xws7_xlistinstalledcolormaps( d1709, w1710 )
        TSCP  d1709, w1710;
{
        TSCP  X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2709 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1709 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = POINTER_TSCP( XListInstalledColormaps( TSCP_POINTER( X1 ), 
                                                    TSCP_UNSIGNED( w1710 ), 
                                                    TSCP_POINTER( X2 ) ) );
        X3 = sc_cons( c1722, X4 );
        X6 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X5 = sc_cons( X6, EMPTYLIST );
        X4 = sc_cons( X3, X5 );
        POPSTACKTRACE( X4 );
}

DEFTSCP( xws7_xgrabpointer_v );
DEFSTRING( t2715, "XGRABPOINTER", 12 );
EXTERNINTP( XGrabPointer );

TSCP  xws7_xgrabpointer( d1737, 
                         g1738, 
                         o1739, 
                         e1740, 
                         p1741, k1742, c1743, c1744, t1745 )
        TSCP  d1737, 
              g1738, 
              o1739, 
              e1740, p1741, k1742, c1743, c1744, t1745;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2715 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1737 );
        X2 = INT_TSCP( XGrabPointer( TSCP_POINTER( X1 ), 
                                     TSCP_UNSIGNED( g1738 ), 
                                     TSCP_INT( o1739 ), 
                                     TSCP_UNSIGNED( e1740 ), 
                                     TSCP_INT( p1741 ), 
                                     TSCP_INT( k1742 ), 
                                     TSCP_UNSIGNED( c1743 ), 
                                     TSCP_UNSIGNED( c1744 ), 
                                     TSCP_UNSIGNED( t1745 ) ) );
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xungrabpointer_v );
DEFSTRING( t2719, "XUNGRABPOINTER", 14 );
EXTERNVOIDP( XUngrabPointer );

TSCP  xws7_xungrabpointer( d1772, t1773 )
        TSCP  d1772, t1773;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2719 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1772 );
        XUngrabPointer( TSCP_POINTER( X1 ), 
                        TSCP_UNSIGNED( t1773 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xchangeactivepointergrab_v );
DEFSTRING( t2724, "XCHANGEACTIVEPOINTERGRAB", 24 );
EXTERNVOIDP( XChangeActivePointerGrab );

TSCP  xws7_xchangeactivepointergrab( d1789, 
                                     e1790, c1791, t1792 )
        TSCP  d1789, e1790, c1791, t1792;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2724 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1789 );
        XChangeActivePointerGrab( TSCP_POINTER( X1 ), 
                                  TSCP_UNSIGNED( e1790 ), 
                                  TSCP_UNSIGNED( c1791 ), 
                                  TSCP_UNSIGNED( t1792 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xgrabbutton_v );
DEFSTRING( t2729, "XGRABBUTTON", 11 );
EXTERNVOIDP( XGrabButton );

TSCP  xws7_xgrabbutton( d1818, 
                        b1819, 
                        m1820, 
                        g1821, 
                        o1822, 
                        e1823, p1824, k1825, c1826, c1827 )
        TSCP  d1818, 
              b1819, 
              m1820, 
              g1821, 
              o1822, e1823, p1824, k1825, c1826, c1827;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2729 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1818 );
        XGrabButton( TSCP_POINTER( X1 ), 
                     TSCP_UNSIGNED( b1819 ), 
                     TSCP_UNSIGNED( m1820 ), 
                     TSCP_UNSIGNED( g1821 ), 
                     TSCP_INT( o1822 ), 
                     TSCP_UNSIGNED( e1823 ), 
                     TSCP_INT( p1824 ), 
                     TSCP_INT( k1825 ), 
                     TSCP_UNSIGNED( c1826 ), 
                     TSCP_UNSIGNED( c1827 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xungrabbutton_v );
DEFSTRING( t2734, "XUNGRABBUTTON", 13 );
EXTERNVOIDP( XUngrabButton );

TSCP  xws7_xungrabbutton( d1859, b1860, m1861, g1862 )
        TSCP  d1859, b1860, m1861, g1862;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2734 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1859 );
        XUngrabButton( TSCP_POINTER( X1 ), 
                       TSCP_UNSIGNED( b1860 ), 
                       TSCP_UNSIGNED( m1861 ), 
                       TSCP_UNSIGNED( g1862 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xgrabkeyboard_v );
DEFSTRING( t2739, "XGRABKEYBOARD", 13 );
EXTERNINTP( XGrabKeyboard );

TSCP  xws7_xgrabkeyboard( d1884, 
                          w1885, 
                          o1886, p1887, k1888, t1889 )
        TSCP  d1884, w1885, o1886, p1887, k1888, t1889;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2739 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1884 );
        X2 = INT_TSCP( XGrabKeyboard( TSCP_POINTER( X1 ), 
                                      TSCP_UNSIGNED( w1885 ), 
                                      TSCP_INT( o1886 ), 
                                      TSCP_INT( p1887 ), 
                                      TSCP_INT( k1888 ), 
                                      TSCP_UNSIGNED( t1889 ) ) );
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xungrabkeyboard_v );
DEFSTRING( t2743, "XUNGRABKEYBOARD", 15 );
EXTERNVOIDP( XUngrabKeyboard );

TSCP  xws7_xungrabkeyboard( d1910, t1911 )
        TSCP  d1910, t1911;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2743 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1910 );
        XUngrabKeyboard( TSCP_POINTER( X1 ), 
                         TSCP_UNSIGNED( t1911 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xgrabkey_v );
DEFSTRING( t2748, "XGRABKEY", 8 );
EXTERNVOIDP( XGrabKey );

TSCP  xws7_xgrabkey( d1930, 
                     k1931, 
                     m1932, g1933, o1934, p1935, k1936 )
        TSCP  d1930, 
              k1931, m1932, g1933, o1934, p1935, k1936;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2748 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1930 );
        XGrabKey( TSCP_POINTER( X1 ), 
                  TSCP_INT( k1931 ), 
                  TSCP_UNSIGNED( m1932 ), 
                  TSCP_UNSIGNED( g1933 ), 
                  TSCP_INT( o1934 ), 
                  TSCP_INT( p1935 ), TSCP_INT( k1936 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xungrabkey_v );
DEFSTRING( t2753, "XUNGRABKEY", 10 );
EXTERNVOIDP( XUngrabKey );

TSCP  xws7_xungrabkey( d1962, k1963, m1964, g1965 )
        TSCP  d1962, k1963, m1964, g1965;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2753 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1962 );
        XUngrabKey( TSCP_POINTER( X1 ), 
                    TSCP_INT( k1963 ), 
                    TSCP_UNSIGNED( m1964 ), 
                    TSCP_UNSIGNED( g1965 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xallowevents_v );
DEFSTRING( t2758, "XALLOWEVENTS", 12 );
EXTERNVOIDP( XAllowEvents );

TSCP  xws7_xallowevents( d1984, m1985, t1986 )
        TSCP  d1984, m1985, t1986;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2758 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d1984 );
        XAllowEvents( TSCP_POINTER( X1 ), 
                      TSCP_INT( m1985 ), 
                      TSCP_UNSIGNED( t1986 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xgrabserver_v );
DEFSTRING( t2763, "XGRABSERVER", 11 );
EXTERNVOIDP( XGrabServer );

TSCP  xws7_xgrabserver( d2001 )
        TSCP  d2001;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2763 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2001 );
        XGrabServer( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xungrabserver_v );
DEFSTRING( t2768, "XUNGRABSERVER", 13 );
EXTERNVOIDP( XUngrabServer );

TSCP  xws7_xungrabserver( d2012 )
        TSCP  d2012;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2768 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2012 );
        XUngrabServer( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xwarppointer_v );
DEFSTRING( t2773, "XWARPPOINTER", 12 );
EXTERNVOIDP( XWarpPointer );

TSCP  xws7_xwarppointer( d2031, 
                         s2032, 
                         d2033, 
                         s2034, 
                         s2035, s2036, s2037, d2038, d2039 )
        TSCP  d2031, 
              s2032, 
              d2033, 
              s2034, s2035, s2036, s2037, d2038, d2039;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2773 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2031 );
        XWarpPointer( TSCP_POINTER( X1 ), 
                      TSCP_UNSIGNED( s2032 ), 
                      TSCP_UNSIGNED( d2033 ), 
                      TSCP_INT( s2034 ), 
                      TSCP_INT( s2035 ), 
                      TSCP_UNSIGNED( s2036 ), 
                      TSCP_UNSIGNED( s2037 ), 
                      TSCP_INT( d2038 ), TSCP_INT( d2039 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xsetinputfocus_v );
DEFSTRING( t2778, "XSETINPUTFOCUS", 14 );
EXTERNVOIDP( XSetInputFocus );

TSCP  xws7_xsetinputfocus( d2069, f2070, r2071, t2072 )
        TSCP  d2069, f2070, r2071, t2072;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2778 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2069 );
        XSetInputFocus( TSCP_POINTER( X1 ), 
                        TSCP_UNSIGNED( f2070 ), 
                        TSCP_INT( r2071 ), 
                        TSCP_UNSIGNED( t2072 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xgetinputfocus_v );
DEFSTRING( t2783, "XGETINPUTFOCUS", 14 );
EXTERNVOIDP( XGetInputFocus );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );

TSCP  xws7_xgetinputfocus( d2091 )
        TSCP  d2091;
{
        TSCP  X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2783 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2091 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        XGetInputFocus( TSCP_POINTER( X1 ), 
                        TSCP_POINTER( X2 ), 
                        TSCP_POINTER( X3 ) );
        X4 = FALSEVALUE;
        X6 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
        X8 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X7 = sc_cons( X8, EMPTYLIST );
        X5 = sc_cons( X6, X7 );
        POPSTACKTRACE( X5 );
}

DEFTSCP( xws7_xsetclosedownmode_v );
DEFSTRING( t2791, "XSETCLOSEDOWNMODE", 17 );
EXTERNVOIDP( XSetCloseDownMode );

TSCP  xws7_xsetclosedownmode( d2109, m2110 )
        TSCP  d2109, m2110;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2791 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2109 );
        XSetCloseDownMode( TSCP_POINTER( X1 ), 
                           TSCP_INT( m2110 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xkillclient_v );
DEFSTRING( t2796, "XKILLCLIENT", 11 );
EXTERNVOIDP( XKillClient );

TSCP  xws7_xkillclient( d2124, r2125 )
        TSCP  d2124, r2125;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2796 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2124 );
        XKillClient( TSCP_POINTER( X1 ), 
                     TSCP_UNSIGNED( r2125 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xchangekeyboardcontrol_v );
DEFSTRING( t2801, "XCHANGEKEYBOARDCONTROL", 22 );
EXTERNTSCPP( xlibtypes_rdcontrolp_b8c5a0f8 );
EXTERNTSCP( xlibtypes_rdcontrolp_b8c5a0f8_v );
EXTERNVOIDP( XChangeKeyboardControl );

TSCP  xws7_xchangekeyboardcontrol( d2140, m2141, v2142 )
        TSCP  d2140, m2141, v2142;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2801 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2140 );
        X2 = xlibtypes_rdcontrolp_b8c5a0f8( v2142 );
        XChangeKeyboardControl( TSCP_POINTER( X1 ), 
                                TSCP_UNSIGNED( m2141 ), 
                                TSCP_POINTER( X2 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xgetkeyboardcontrol_v );
DEFSTRING( t2807, "XGETKEYBOARDCONTROL", 19 );
EXTERNVOIDP( XGetKeyboardControl );

TSCP  xws7_xgetkeyboardcontrol( d2158 )
        TSCP  d2158;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2807 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2158 );
        X2 = sc_make_2dstring( _TSCP( 224 ), EMPTYLIST );
        XGetKeyboardControl( TSCP_POINTER( X1 ), 
                             TSCP_POINTER( X2 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( sc_cons( c2165, X2 ) );
}

DEFTSCP( xws7_xautorepeaton_v );
DEFSTRING( t2813, "XAUTOREPEATON", 13 );
EXTERNVOIDP( XAutoRepeatOn );

TSCP  xws7_xautorepeaton( d2173 )
        TSCP  d2173;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2813 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2173 );
        XAutoRepeatOn( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xautorepeatoff_v );
DEFSTRING( t2818, "XAUTOREPEATOFF", 14 );
EXTERNVOIDP( XAutoRepeatOff );

TSCP  xws7_xautorepeatoff( d2184 )
        TSCP  d2184;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2818 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2184 );
        XAutoRepeatOff( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xbell_v );
DEFSTRING( t2823, "XBELL", 5 );
EXTERNVOIDP( XBell );

TSCP  xws7_xbell( d2196, p2197 )
        TSCP  d2196, p2197;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2823 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2196 );
        XBell( TSCP_POINTER( X1 ), TSCP_INT( p2197 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xquerykeymap_v );
DEFSTRING( t2828, "XQUERYKEYMAP", 12 );
EXTERNVOIDP( XQueryKeymap );

TSCP  xws7_xquerykeymap( d2211 )
        TSCP  d2211;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2828 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2211 );
        X2 = sc_make_2dstring( _TSCP( 128 ), EMPTYLIST );
        XQueryKeymap( TSCP_POINTER( X1 ), 
                      TSCP_POINTER( X2 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( sc_cons( c2218, X2 ) );
}

DEFTSCP( xws7_xsetpointermapping_v );
DEFSTRING( t2834, "XSETPOINTERMAPPING", 18 );
EXTERNTSCPP( xlibtypes_chk_2dcharap );
EXTERNTSCP( xlibtypes_chk_2dcharap_v );
EXTERNINTP( XSetPointerMapping );

TSCP  xws7_xsetpointermapping( d2228, m2229, n2230 )
        TSCP  d2228, m2229, n2230;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2834 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2228 );
        X2 = xlibtypes_chk_2dcharap( m2229 );
        X3 = INT_TSCP( XSetPointerMapping( TSCP_POINTER( X1 ), 
                                           TSCP_POINTER( X2 ), 
                                           TSCP_INT( n2230 ) ) );
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xgetpointermapping_v );
DEFSTRING( t2839, "XGETPOINTERMAPPING", 18 );
EXTERNINTP( XGetPointerMapping );

TSCP  xws7_xgetpointermapping( d2246, m2247, n2248 )
        TSCP  d2246, m2247, n2248;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2839 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2246 );
        X2 = xlibtypes_chk_2dcharap( m2247 );
        X3 = INT_TSCP( XGetPointerMapping( TSCP_POINTER( X1 ), 
                                           TSCP_POINTER( X2 ), 
                                           TSCP_INT( n2248 ) ) );
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xchangepointercontrol_v );
DEFSTRING( t2844, "XCHANGEPOINTERCONTROL", 21 );
EXTERNVOIDP( XChangePointerControl );

TSCP  xws7_xchangepointercontrol( d2267, 
                                  d2268, 
                                  d2269, a2270, a2271, t2272 )
        TSCP  d2267, d2268, d2269, a2270, a2271, t2272;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2844 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2267 );
        XChangePointerControl( TSCP_POINTER( X1 ), 
                               TSCP_INT( d2268 ), 
                               TSCP_INT( d2269 ), 
                               TSCP_INT( a2270 ), 
                               TSCP_INT( a2271 ), 
                               TSCP_INT( t2272 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xgetpointercontrol_v );
DEFSTRING( t2849, "XGETPOINTERCONTROL", 18 );
EXTERNVOIDP( XGetPointerControl );

TSCP  xws7_xgetpointercontrol( d2296 )
        TSCP  d2296;
{
        TSCP  X11, 
              X10, 
              X9, 
              X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2849 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2296 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        XGetPointerControl( TSCP_POINTER( X1 ), 
                            TSCP_POINTER( X2 ), 
                            TSCP_POINTER( X3 ), 
                            TSCP_POINTER( X4 ) );
        X5 = FALSEVALUE;
        X7 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X9 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X11 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
        X10 = sc_cons( X11, EMPTYLIST );
        X8 = sc_cons( X9, X10 );
        X6 = sc_cons( X7, X8 );
        POPSTACKTRACE( X6 );
}

DEFTSCP( xws7_xdisplaykeycodes_v );
DEFSTRING( t2858, "XDISPLAYKEYCODES", 16 );
EXTERNVOIDP( XDisplayKeycodes );

TSCP  xws7_xdisplaykeycodes( d2317 )
        TSCP  d2317;
{
        TSCP  X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2858 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2317 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        XDisplayKeycodes( TSCP_POINTER( X1 ), 
                          TSCP_POINTER( X2 ), 
                          TSCP_POINTER( X3 ) );
        X4 = FALSEVALUE;
        X6 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X8 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X7 = sc_cons( X8, EMPTYLIST );
        X5 = sc_cons( X6, X7 );
        POPSTACKTRACE( X5 );
}

DEFTSCP( xws7_xgetkeyboardmapping_v );
DEFSTRING( t2866, "XGETKEYBOARDMAPPING", 19 );
EXTERNPOINTERP( XGetKeyboardMapping );

TSCP  xws7_xgetkeyboardmapping( d2337, f2338, c2339 )
        TSCP  d2337, f2338, c2339;
{
        TSCP  X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2866 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2337 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = POINTER_TSCP( XGetKeyboardMapping( TSCP_POINTER( X1 ), 
                                                TSCP_CHAR( f2338 ), 
                                                TSCP_INT( c2339 ), 
                                                TSCP_POINTER( X2 ) ) );
        X3 = sc_cons( c1722, X4 );
        X6 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X5 = sc_cons( X6, EMPTYLIST );
        X4 = sc_cons( X3, X5 );
        POPSTACKTRACE( X4 );
}

DEFTSCP( xws7_xchangekeyboardmapping_v );
DEFSTRING( t2872, "XCHANGEKEYBOARDMAPPING", 22 );
EXTERNTSCPP( xlibtypes_chk_2dunsignedap );
EXTERNTSCP( xlibtypes_chk_2dunsignedap_v );
EXTERNVOIDP( XChangeKeyboardMapping );

TSCP  xws7_xchangekeyboardmapping( d2361, 
                                   f2362, k2363, k2364, n2365 )
        TSCP  d2361, f2362, k2363, k2364, n2365;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2872 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2361 );
        X2 = xlibtypes_chk_2dunsignedap( k2364 );
        XChangeKeyboardMapping( TSCP_POINTER( X1 ), 
                                TSCP_INT( f2362 ), 
                                TSCP_INT( k2363 ), 
                                TSCP_POINTER( X2 ), 
                                TSCP_INT( n2365 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xnewmodifiermap_v );
DEFSTRING( t2878, "XNEWMODIFIERMAP", 15 );
EXTERNPOINTERP( XNewModifiermap );

TSCP  xws7_xnewmodifiermap( k2384 )
        TSCP  k2384;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2878 ) ) );
        X2 = POINTER_TSCP( XNewModifiermap( TSCP_INT( k2384 ) ) );
        X1 = sc_cons( c2389, X2 );
        POPSTACKTRACE( X1 );
}

DEFTSCP( xws7_xinsertmodifiermapentry_v );
DEFSTRING( t2881, "XINSERTMODIFIERMAPENTRY", 23 );
EXTERNTSCPP( xlibtypes_ierkeymapp_ba00839f );
EXTERNTSCP( xlibtypes_ierkeymapp_ba00839f_v );
EXTERNPOINTERP( XInsertModifiermapEntry );

TSCP  xws7_xinsertmodifiermapentry( m2397, k2398, m2399 )
        TSCP  m2397, k2398, m2399;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2881 ) ) );
        X1 = xlibtypes_ierkeymapp_ba00839f( m2397 );
        X3 = POINTER_TSCP( XInsertModifiermapEntry( TSCP_POINTER( X1 ), 
                                                    TSCP_CHAR( k2398 ), 
                                                    TSCP_INT( m2399 ) ) );
        X2 = sc_cons( c2389, X3 );
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xdeletemodifiermapentry_v );
DEFSTRING( t2885, "XDELETEMODIFIERMAPENTRY", 23 );
EXTERNPOINTERP( XDeleteModifiermapEntry );

TSCP  xws7_xdeletemodifiermapentry( m2415, k2416, m2417 )
        TSCP  m2415, k2416, m2417;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2885 ) ) );
        X1 = xlibtypes_ierkeymapp_ba00839f( m2415 );
        X3 = POINTER_TSCP( XDeleteModifiermapEntry( TSCP_POINTER( X1 ), 
                                                    TSCP_CHAR( k2416 ), 
                                                    TSCP_INT( m2417 ) ) );
        X2 = sc_cons( c2389, X3 );
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xfreemodifiermap_v );
DEFSTRING( t2889, "XFREEMODIFIERMAP", 16 );
EXTERNVOIDP( XFreeModifiermap );

TSCP  xws7_xfreemodifiermap( m2431 )
        TSCP  m2431;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2889 ) ) );
        X1 = xlibtypes_ierkeymapp_ba00839f( m2431 );
        XFreeModifiermap( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xsetmodifiermapping_v );
DEFSTRING( t2894, "XSETMODIFIERMAPPING", 19 );
EXTERNINTP( XSetModifierMapping );

TSCP  xws7_xsetmodifiermapping( d2443, m2444 )
        TSCP  d2443, m2444;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2894 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2443 );
        X2 = xlibtypes_ierkeymapp_ba00839f( m2444 );
        X3 = INT_TSCP( XSetModifierMapping( TSCP_POINTER( X1 ), 
                                            TSCP_POINTER( X2 ) ) );
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xgetmodifiermapping_v );
DEFSTRING( t2899, "XGETMODIFIERMAPPING", 19 );
EXTERNPOINTERP( XGetModifierMapping );

TSCP  xws7_xgetmodifiermapping( d2456 )
        TSCP  d2456;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2899 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2456 );
        X3 = POINTER_TSCP( XGetModifierMapping( TSCP_POINTER( X1 ) ) );
        X2 = sc_cons( c2389, X3 );
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xsetscreensaver_v );
DEFSTRING( t2903, "XSETSCREENSAVER", 15 );
EXTERNVOIDP( XSetScreenSaver );

TSCP  xws7_xsetscreensaver( d2470, 
                            t2471, i2472, p2473, a2474 )
        TSCP  d2470, t2471, i2472, p2473, a2474;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2903 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2470 );
        XSetScreenSaver( TSCP_POINTER( X1 ), 
                         TSCP_INT( t2471 ), 
                         TSCP_INT( i2472 ), 
                         TSCP_INT( p2473 ), 
                         TSCP_INT( a2474 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xforcescreensaver_v );
DEFSTRING( t2908, "XFORCESCREENSAVER", 17 );
EXTERNVOIDP( XForceScreenSaver );

TSCP  xws7_xforcescreensaver( d2494, m2495 )
        TSCP  d2494, m2495;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2908 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2494 );
        XForceScreenSaver( TSCP_POINTER( X1 ), 
                           TSCP_INT( m2495 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xactivatescreensaver_v );
DEFSTRING( t2913, "XACTIVATESCREENSAVER", 20 );
EXTERNVOIDP( XActivateScreenSaver );

TSCP  xws7_xactivatescreensaver( d2508 )
        TSCP  d2508;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2913 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2508 );
        XActivateScreenSaver( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xresetscreensaver_v );
DEFSTRING( t2918, "XRESETSCREENSAVER", 17 );
EXTERNVOIDP( XResetScreenSaver );

TSCP  xws7_xresetscreensaver( d2519 )
        TSCP  d2519;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2918 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2519 );
        XResetScreenSaver( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xgetscreensaver_v );
DEFSTRING( t2923, "XGETSCREENSAVER", 15 );
EXTERNVOIDP( XGetScreenSaver );

TSCP  xws7_xgetscreensaver( d2534 )
        TSCP  d2534;
{
        TSCP  X14, 
              X13, 
              X12, 
              X11, 
              X10, 
              X9, 
              X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2923 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2534 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X5 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        XGetScreenSaver( TSCP_POINTER( X1 ), 
                         TSCP_POINTER( X2 ), 
                         TSCP_POINTER( X3 ), 
                         TSCP_POINTER( X4 ), 
                         TSCP_POINTER( X5 ) );
        X6 = FALSEVALUE;
        X8 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X10 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X12 = scrt4_c_2dint_2dref( X4, _TSCP( 0 ) );
        X14 = scrt4_c_2dint_2dref( X5, _TSCP( 0 ) );
        X13 = sc_cons( X14, EMPTYLIST );
        X11 = sc_cons( X12, X13 );
        X9 = sc_cons( X10, X11 );
        X7 = sc_cons( X8, X9 );
        POPSTACKTRACE( X7 );
}

DEFTSCP( xws7_xaddhost_v );
DEFSTRING( t2933, "XADDHOST", 8 );
EXTERNTSCPP( xlibtypes_chk_2dxhostaddressp );
EXTERNTSCP( xlibtypes_chk_2dxhostaddressp_v );
EXTERNVOIDP( XAddHost );

TSCP  xws7_xaddhost( d2556, h2557 )
        TSCP  d2556, h2557;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2933 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2556 );
        X2 = xlibtypes_chk_2dxhostaddressp( h2557 );
        XAddHost( TSCP_POINTER( X1 ), TSCP_POINTER( X2 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xaddhosts_v );
DEFSTRING( t2939, "XADDHOSTS", 9 );
EXTERNTSCPP( xlibtypes_taddressap_c5fd3430 );
EXTERNTSCP( xlibtypes_taddressap_c5fd3430_v );
EXTERNVOIDP( XAddHosts );

TSCP  xws7_xaddhosts( d2572, h2573, n2574 )
        TSCP  d2572, h2573, n2574;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2939 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2572 );
        X2 = xlibtypes_taddressap_c5fd3430( h2573 );
        XAddHosts( TSCP_POINTER( X1 ), 
                   TSCP_POINTER( X2 ), TSCP_INT( n2574 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xlisthosts_v );
DEFSTRING( t2945, "XLISTHOSTS", 10 );
EXTERNPOINTERP( XListHosts );

TSCP  xws7_xlisthosts( d2591 )
        TSCP  d2591;
{
        TSCP  X9, 
              X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2945 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2591 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X5 = POINTER_TSCP( XListHosts( TSCP_POINTER( X1 ), 
                                       TSCP_POINTER( X2 ), 
                                       TSCP_POINTER( X3 ) ) );
        X4 = sc_cons( c2602, X5 );
        X7 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X9 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X8 = sc_cons( X9, EMPTYLIST );
        X6 = sc_cons( X7, X8 );
        X5 = sc_cons( X4, X6 );
        POPSTACKTRACE( X5 );
}

DEFTSCP( xws7_xremovehost_v );
DEFSTRING( t2952, "XREMOVEHOST", 11 );
EXTERNVOIDP( XRemoveHost );

TSCP  xws7_xremovehost( d2609, h2610 )
        TSCP  d2609, h2610;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2952 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2609 );
        X2 = xlibtypes_chk_2dxhostaddressp( h2610 );
        XRemoveHost( TSCP_POINTER( X1 ), 
                     TSCP_POINTER( X2 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xremovehosts_v );
DEFSTRING( t2958, "XREMOVEHOSTS", 12 );
EXTERNVOIDP( XRemoveHosts );

TSCP  xws7_xremovehosts( d2625, h2626, n2627 )
        TSCP  d2625, h2626, n2627;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2958 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2625 );
        X2 = xlibtypes_taddressap_c5fd3430( h2626 );
        XRemoveHosts( TSCP_POINTER( X1 ), 
                      TSCP_POINTER( X2 ), 
                      TSCP_INT( n2627 ) );
        X3 = FALSEVALUE;
        POPSTACKTRACE( X3 );
}

DEFTSCP( xws7_xsetaccesscontrol_v );
DEFSTRING( t2964, "XSETACCESSCONTROL", 17 );
EXTERNVOIDP( XSetAccessControl );

TSCP  xws7_xsetaccesscontrol( d2643, m2644 )
        TSCP  d2643, m2644;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2964 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2643 );
        XSetAccessControl( TSCP_POINTER( X1 ), 
                           TSCP_INT( m2644 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xenableaccesscontrol_v );
DEFSTRING( t2969, "XENABLEACCESSCONTROL", 20 );
EXTERNVOIDP( XEnableAccessControl );

TSCP  xws7_xenableaccesscontrol( d2657 )
        TSCP  d2657;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2969 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2657 );
        XEnableAccessControl( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

DEFTSCP( xws7_xdisableaccesscontrol_v );
DEFSTRING( t2974, "XDISABLEACCESSCONTROL", 21 );
EXTERNVOIDP( XDisableAccessControl );

TSCP  xws7_xdisableaccesscontrol( d2668 )
        TSCP  d2668;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2974 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2668 );
        XDisableAccessControl( TSCP_POINTER( X1 ) );
        X2 = FALSEVALUE;
        POPSTACKTRACE( X2 );
}

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

void  xws7__init()
{
        static int  init = 0;
        if  (init)  return;
        init = 1;
        INITHEAP( 0, 0, 0, 0 );
        init_constants();
        init_modules( "(xws7 SCHEME->C COMPILER 28sep90jfb)" );
        INITIALIZEVAR( U_TX( ADR( t2679 ) ), 
                       ADR( xws7_xreparentwindow_v ), 
                       MAKEPROCEDURE( 5, 
                                      0, 
                                      xws7_xreparentwindow, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2684 ) ), 
                       ADR( xws7_xchangesaveset_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xchangesaveset, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2689 ) ), 
                       ADR( xws7_xaddtosaveset_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xaddtosaveset, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2694 ) ), 
                       ADR( xws7_xremovefromsaveset_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xremovefromsaveset, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2699 ) ), 
                       ADR( xws7_xinstallcolormap_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xinstallcolormap, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2704 ) ), 
                       ADR( xws7_xuninstallcolormap_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xuninstallcolormap, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2709 ) ), 
                       ADR( xws7_xlistinstalledcolormaps_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xlistinstalledcolormaps, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2715 ) ), 
                       ADR( xws7_xgrabpointer_v ), 
                       MAKEPROCEDURE( 9, 
                                      0, 
                                      xws7_xgrabpointer, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2719 ) ), 
                       ADR( xws7_xungrabpointer_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xungrabpointer, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2724 ) ), 
                       ADR( xws7_xchangeactivepointergrab_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws7_xchangeactivepointergrab, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2729 ) ), 
                       ADR( xws7_xgrabbutton_v ), 
                       MAKEPROCEDURE( 10, 
                                      0, 
                                      xws7_xgrabbutton, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2734 ) ), 
                       ADR( xws7_xungrabbutton_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws7_xungrabbutton, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2739 ) ), 
                       ADR( xws7_xgrabkeyboard_v ), 
                       MAKEPROCEDURE( 6, 
                                      0, 
                                      xws7_xgrabkeyboard, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2743 ) ), 
                       ADR( xws7_xungrabkeyboard_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xungrabkeyboard, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2748 ) ), 
                       ADR( xws7_xgrabkey_v ), 
                       MAKEPROCEDURE( 7, 
                                      0, xws7_xgrabkey, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2753 ) ), 
                       ADR( xws7_xungrabkey_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws7_xungrabkey, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2758 ) ), 
                       ADR( xws7_xallowevents_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xallowevents, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2763 ) ), 
                       ADR( xws7_xgrabserver_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xgrabserver, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2768 ) ), 
                       ADR( xws7_xungrabserver_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xungrabserver, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2773 ) ), 
                       ADR( xws7_xwarppointer_v ), 
                       MAKEPROCEDURE( 9, 
                                      0, 
                                      xws7_xwarppointer, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2778 ) ), 
                       ADR( xws7_xsetinputfocus_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xws7_xsetinputfocus, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2783 ) ), 
                       ADR( xws7_xgetinputfocus_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xgetinputfocus, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2791 ) ), 
                       ADR( xws7_xsetclosedownmode_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xsetclosedownmode, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2796 ) ), 
                       ADR( xws7_xkillclient_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xkillclient, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2801 ) ), 
                       ADR( xws7_xchangekeyboardcontrol_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xchangekeyboardcontrol, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2807 ) ), 
                       ADR( xws7_xgetkeyboardcontrol_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xgetkeyboardcontrol, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2813 ) ), 
                       ADR( xws7_xautorepeaton_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xautorepeaton, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2818 ) ), 
                       ADR( xws7_xautorepeatoff_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xautorepeatoff, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2823 ) ), 
                       ADR( xws7_xbell_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, xws7_xbell, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2828 ) ), 
                       ADR( xws7_xquerykeymap_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xquerykeymap, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2834 ) ), 
                       ADR( xws7_xsetpointermapping_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xsetpointermapping, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2839 ) ), 
                       ADR( xws7_xgetpointermapping_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xgetpointermapping, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2844 ) ), 
                       ADR( xws7_xchangepointercontrol_v ), 
                       MAKEPROCEDURE( 6, 
                                      0, 
                                      xws7_xchangepointercontrol, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2849 ) ), 
                       ADR( xws7_xgetpointercontrol_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xgetpointercontrol, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2858 ) ), 
                       ADR( xws7_xdisplaykeycodes_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xdisplaykeycodes, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2866 ) ), 
                       ADR( xws7_xgetkeyboardmapping_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xgetkeyboardmapping, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2872 ) ), 
                       ADR( xws7_xchangekeyboardmapping_v ), 
                       MAKEPROCEDURE( 5, 
                                      0, 
                                      xws7_xchangekeyboardmapping, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2878 ) ), 
                       ADR( xws7_xnewmodifiermap_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xnewmodifiermap, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2881 ) ), 
                       ADR( xws7_xinsertmodifiermapentry_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xinsertmodifiermapentry, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2885 ) ), 
                       ADR( xws7_xdeletemodifiermapentry_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xdeletemodifiermapentry, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2889 ) ), 
                       ADR( xws7_xfreemodifiermap_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xfreemodifiermap, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2894 ) ), 
                       ADR( xws7_xsetmodifiermapping_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xsetmodifiermapping, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2899 ) ), 
                       ADR( xws7_xgetmodifiermapping_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xgetmodifiermapping, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2903 ) ), 
                       ADR( xws7_xsetscreensaver_v ), 
                       MAKEPROCEDURE( 5, 
                                      0, 
                                      xws7_xsetscreensaver, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2908 ) ), 
                       ADR( xws7_xforcescreensaver_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xforcescreensaver, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2913 ) ), 
                       ADR( xws7_xactivatescreensaver_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xactivatescreensaver, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2918 ) ), 
                       ADR( xws7_xresetscreensaver_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xresetscreensaver, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2923 ) ), 
                       ADR( xws7_xgetscreensaver_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xgetscreensaver, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2933 ) ), 
                       ADR( xws7_xaddhost_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, xws7_xaddhost, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2939 ) ), 
                       ADR( xws7_xaddhosts_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, xws7_xaddhosts, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2945 ) ), 
                       ADR( xws7_xlisthosts_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xlisthosts, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2952 ) ), 
                       ADR( xws7_xremovehost_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xremovehost, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2958 ) ), 
                       ADR( xws7_xremovehosts_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xws7_xremovehosts, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2964 ) ), 
                       ADR( xws7_xsetaccesscontrol_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xws7_xsetaccesscontrol, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2969 ) ), 
                       ADR( xws7_xenableaccesscontrol_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xenableaccesscontrol, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2974 ) ), 
                       ADR( xws7_xdisableaccesscontrol_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xws7_xdisableaccesscontrol, 
                                      EMPTYLIST ) );
        return;
}

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