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

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

/* SCHEME->C */

#include <objects.h>

DEFSTRING( t2953, "XPENDING", 8 );
DEFSTATICTSCP( xpending_v );
DEFSTRING( t2954, "XCONNECTIONNUMBER", 17 );
DEFSTATICTSCP( xconnectionnumber_v );
DEFSTRING( t2955, "XRMVALUE-ADDR", 13 );
DEFSTATICTSCP( xrmvalue_2daddr_v );
DEFSTRING( t2956, "XRMGETRESOURCE", 14 );
DEFSTATICTSCP( xrmgetresource_v );
DEFSTRING( t2957, "XRMMERGEDATABASES", 17 );
DEFSTATICTSCP( xrmmergedatabases_v );
DEFSTRING( t2958, "XRMDATABASE", 11 );
DEFSTATICTSCP( c2877 );
DEFSTRING( t2959, "XRMDATABASEP", 12 );
DEFSTATICTSCP( c2876 );
DEFSTRING( t2960, 
           "Unimplemented resource type in YrmGetResource", 45 );
DEFSTATICTSCP2( c2856, t2960 );
DEFSTRING( t2961, "String", 6 );
DEFSTATICTSCP2( c2855, t2961 );
DEFSTRING( t2962, "VECTOR-SET!", 11 );
DEFSTATICTSCP( c2450 );
DEFSTRING( t2963, "Index is not in bounds: ~s", 26 );
DEFSTATICTSCP2( c2439, t2963 );
DEFSTRING( t2964, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c2435, t2964 );
DEFSTRING( t2965, "Argument is not a VECTOR: ~s", 28 );
DEFSTATICTSCP2( c2432, t2965 );
DEFSTRING( t2966, "VECTOR-REF", 10 );
DEFSTATICTSCP( c2431 );
DEFSTRING( t2967, "Select error: ~s", 16 );
DEFSTATICTSCP2( c2399, t2967 );
DEFSTRING( t2968, "YSELECT", 7 );
DEFSTATICTSCP( c2398 );
DEFSTRING( t2969, 
           "Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1861, t2969 );
DEFSTRING( t2970, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1860 );
DEFSTRING( t2971, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1700, t2971 );
DEFSTRING( t2972, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1699 );
DEFSTRING( t2973, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1675, t2973 );
DEFSTRING( t2974, "CHK-STRING", 10 );
DEFSTATICTSCP( c1674 );

static void  init_constants()
{
        xpending_v = STRINGTOSYMBOL( U_TX( ADR( t2953 ) ) );
        CONSTANTEXP( ADR( xpending_v ) );
        xconnectionnumber_v = STRINGTOSYMBOL( U_TX( ADR( t2954 ) ) );
        CONSTANTEXP( ADR( xconnectionnumber_v ) );
        xrmvalue_2daddr_v = STRINGTOSYMBOL( U_TX( ADR( t2955 ) ) );
        CONSTANTEXP( ADR( xrmvalue_2daddr_v ) );
        xrmgetresource_v = STRINGTOSYMBOL( U_TX( ADR( t2956 ) ) );
        CONSTANTEXP( ADR( xrmgetresource_v ) );
        xrmmergedatabases_v = STRINGTOSYMBOL( U_TX( ADR( t2957 ) ) );
        CONSTANTEXP( ADR( xrmmergedatabases_v ) );
        c2877 = STRINGTOSYMBOL( U_TX( ADR( t2958 ) ) );
        CONSTANTEXP( ADR( c2877 ) );
        c2876 = STRINGTOSYMBOL( U_TX( ADR( t2959 ) ) );
        CONSTANTEXP( ADR( c2876 ) );
        c2450 = STRINGTOSYMBOL( U_TX( ADR( t2962 ) ) );
        CONSTANTEXP( ADR( c2450 ) );
        c2431 = STRINGTOSYMBOL( U_TX( ADR( t2966 ) ) );
        CONSTANTEXP( ADR( c2431 ) );
        c2398 = STRINGTOSYMBOL( U_TX( ADR( t2968 ) ) );
        CONSTANTEXP( ADR( c2398 ) );
        c1860 = STRINGTOSYMBOL( U_TX( ADR( t2970 ) ) );
        CONSTANTEXP( ADR( c1860 ) );
        c1699 = STRINGTOSYMBOL( U_TX( ADR( t2972 ) ) );
        CONSTANTEXP( ADR( c1699 ) );
        c1674 = STRINGTOSYMBOL( U_TX( ADR( t2974 ) ) );
        CONSTANTEXP( ADR( c1674 ) );
}

DEFTSCP( xwss_d_3estring_7ab6adc9_v );
DEFSTRING( t2975, "POINTER-LIST->STRING", 20 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__2a_2dtwo );
EXTERNTSCP( scrt2__2a_2dtwo_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );

TSCP  xwss_d_3estring_7ab6adc9( l1599, t1600 )
        TSCP  l1599, t1600;
{
        TSCP  X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2975 ) ) );
        X1 = _TSCP( 0 );
        X4 = scrt1_length( l1599 );
        if  ( BITAND( BITOR( INT( _TSCP( 16 ) ), INT( X4 ) ), 
                      3 ) )  goto  L2979;
        X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ), 
                            INT( X4 ) ) );
        goto L2980;
L2979:
        X3 = scrt2__2a_2dtwo( _TSCP( 16 ), X4 );
L2980:
        X2 = sc_make_2dstring( X3, EMPTYLIST );
        X3 = l1599;
L2981:
        if  ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) )  goto  L2982;
        if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L2986;
        scrt1__24__car_2derror( X3 );
L2986:
        X6 = PAIR_CAR( X3 );
        X5 = t1600;
        X5 = UNKNOWNCALL( X5, 1 );
        X4 = VIA( PROCEDURE_CODE( X5 ) )( X6, 
                                          PROCEDURE_CLOSURE( X5 ) );
        scrt4_c_2dunsigned_2dset_21( X2, X1, X4 );
        if  ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L2988;
        X4 = _TSCP( IPLUS( INT( X1 ), INT( _TSCP( 4 ) ) ) );
        goto L2989;
L2988:
        X4 = scrt2__2b_2dtwo( X1, _TSCP( 4 ) );
L2989:
        X3 = PAIR_CDR( X3 );
        X1 = X4;
        goto L2981;
L2982:
        POPSTACKTRACE( X2 );
}

DEFTSCP( xwss__2d_3elist_6775ec9d_v );
DEFSTRING( t2991, "ARRAY-POINTER->LIST", 19 );
DEFSTRING( t2994, "LOOP [inside ARRAY-POINTER->LIST]", 33 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
EXTERNTSCPP( xwss_l1642 );

TSCP  xwss_l1642( x1644 )
        TSCP  x1644;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t2994 ) ) );
        if  ( EQ( UNSIGNED( x1644 ), 
                  UNSIGNED( DISPLAY( 1 ) ) ) )  goto  L2996;
        if  ( FALSE( DISPLAY( 2 ) ) )  goto  L2998;
        if  ( BITAND( BITOR( INT( x1644 ), 
                             INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3000;
        X3 = _TSCP( ITIMES( FIXED_C( x1644 ), 
                            INT( _TSCP( 16 ) ) ) );
        goto L3001;
L3000:
        X3 = scrt2__2a_2dtwo( x1644, _TSCP( 16 ) );
L3001:
        X2 = scrt4_c_2dunsigned_2dref( DISPLAY( 0 ), X3 );
        X1 = sc_cons( DISPLAY( 2 ), X2 );
        goto L2999;
L2998:
        if  ( BITAND( BITOR( INT( x1644 ), 
                             INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3002;
        X2 = _TSCP( ITIMES( FIXED_C( x1644 ), 
                            INT( _TSCP( 16 ) ) ) );
        goto L3003;
L3002:
        X2 = scrt2__2a_2dtwo( x1644, _TSCP( 16 ) );
L3003:
        X1 = scrt4_c_2dunsigned_2dref( DISPLAY( 0 ), X2 );
L2999:
        if  ( BITAND( BITOR( INT( x1644 ), 
                             INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3004;
        X3 = _TSCP( IPLUS( INT( x1644 ), INT( _TSCP( 4 ) ) ) );
        goto L3005;
L3004:
        X3 = scrt2__2b_2dtwo( x1644, _TSCP( 4 ) );
L3005:
        X2 = xwss_l1642( X3 );
        POPSTACKTRACE( sc_cons( X1, X2 ) );
L2996:
        POPSTACKTRACE( EMPTYLIST );
}

TSCP  xwss__2d_3elist_6775ec9d( a1638, c1639, t1640 )
        TSCP  a1638, c1639, t1640;
{
        TSCP  SD0 = DISPLAY( 0 );
        TSCP  SD1 = DISPLAY( 1 );
        TSCP  SD2 = DISPLAY( 2 );
        TSCP  SDVAL;

        PUSHSTACKTRACE( U_TX( ADR( t2991 ) ) );
        DISPLAY( 0 ) = a1638;
        DISPLAY( 1 ) = c1639;
        DISPLAY( 2 ) = t1640;
        SDVAL = xwss_l1642( _TSCP( 0 ) );
        DISPLAY( 0 ) = SD0;
        DISPLAY( 1 ) = SD1;
        DISPLAY( 2 ) = SD2;
        POPSTACKTRACE( SDVAL );
}

DEFTSCP( xwss_chk_2dstring_v );
DEFSTRING( t3006, "CHK-STRING", 10 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );

TSCP  xwss_chk_2dstring( x1671 )
        TSCP  x1671;
{
        TSCP  X1;

        PUSHSTACKTRACE( U_TX( ADR( t3006 ) ) );
        if  ( AND( EQ( TSCPTAG( x1671 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( x1671 ), STRINGTAG ) )
            )  goto  L3008;
        POPSTACKTRACE( scrt6_error( c1674, 
                                    c1675, 
                                    CONS( x1671, EMPTYLIST ) ) );
L3008:
        POPSTACKTRACE( x1671 );
}

DEFTSCP( xwss_ng_2darray_efbf7122_v );
DEFSTRING( t3010, "STRING-LIST->STRING-ARRAY", 25 );
DEFSTRING( t3013, 
           "STRING-WORDS [inside STRING-LIST->STRING-ARRAY]", 47 );
EXTERNTSCPP( scrt2_quotient );
EXTERNTSCP( scrt2_quotient_v );

TSCP  xwss_s1680( s1682 )
        TSCP  s1682;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3013 ) ) );
        if  ( AND( EQ( TSCPTAG( s1682 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( s1682 ), STRINGTAG ) )
            )  goto  L3016;
        scrt6_error( c1699, 
                     c1700, CONS( s1682, EMPTYLIST ) );
L3016:
        X2 = C_FIXED( STRING_LENGTH( s1682 ) );
        if  ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3019;
        X1 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 16 ) ) ) );
        goto L3020;
L3019:
        X1 = scrt2__2b_2dtwo( X2, _TSCP( 16 ) );
L3020:
        if  ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3022;
        POPSTACKTRACE( C_FIXED( QUOTIENT( INT( X1 ), 
                                          INT( _TSCP( 16 ) ) ) ) );
L3022:
        POPSTACKTRACE( scrt2_quotient( X1, _TSCP( 16 ) ) );
}

EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( xwss_s1680 );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt4_c_2dbyte_2dset_21 );
EXTERNTSCP( scrt4_c_2dbyte_2dset_21_v );
EXTERNTSCPP( scrt4_c_2dbyte_2dref );
EXTERNTSCP( scrt4_c_2dbyte_2dref_v );

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

        PUSHSTACKTRACE( U_TX( ADR( t3010 ) ) );
        X3 = s1678;
        X4 = _TSCP( 0 );
L3025:
        if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) )  goto  L3026;
        if  ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3028;
        X2 = _TSCP( ITIMES( FIXED_C( X4 ), 
                            INT( _TSCP( 16 ) ) ) );
        goto L3027;
L3028:
        X2 = scrt2__2a_2dtwo( X4, _TSCP( 16 ) );
        goto L3027;
L3026:
        if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L3031;
        scrt1__24__cdr_2derror( X3 );
L3031:
        X5 = PAIR_CDR( X3 );
        X8 = PAIR_CAR( X3 );
        X7 = xwss_s1680( X8 );
        if  ( BITAND( BITOR( INT( X4 ), INT( X7 ) ), 
                      3 ) )  goto  L3035;
        X6 = _TSCP( IPLUS( INT( X4 ), INT( X7 ) ) );
        goto L3036;
L3035:
        X6 = scrt2__2b_2dtwo( X4, X7 );
L3036:
        if  ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X6 ) ), 
                      3 ) )  goto  L3038;
        X4 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X6 ) ) );
        goto L3039;
L3038:
        X4 = scrt2__2b_2dtwo( _TSCP( 4 ), X6 );
L3039:
        X3 = X5;
        goto L3025;
L3027:
        X4 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
        if  ( TRUE( X4 ) )  goto  L3045;
        if  ( BITAND( BITOR( INT( _TSCP( 0 ) ), 
                             INT( _TSCP( 0 ) ) ), 
                      3 ) )  goto  L3046;
        X5 = BOOLEAN( LT( INT( _TSCP( 0 ) ), 
                          INT( _TSCP( 0 ) ) ) );
        goto L3047;
L3046:
        X5 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L3047:
        if  ( TRUE( X5 ) )  goto  L3045;
        if  ( BITAND( BITOR( INT( _TSCP( 0 ) ), 
                             INT( _TSCP( 1020 ) ) ), 
                      3 ) )  goto  L3054;
        if  ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) )  goto  L3045;
        goto L3061;
L3054:
        if  ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
            )  goto  L3061;
L3045:
        scrt6_error( c1860, 
                     c1861, CONS( _TSCP( 0 ), EMPTYLIST ) );
L3061:
        X1 = sc_make_2dstring( X2, 
                               CONS( FIX_CHAR( _TSCP( 0 ) ), 
                                     EMPTYLIST ) );
        X2 = _TSCP( PLUS( INT( X1 ), 3 ) );
        X3 = scrt1_length( s1678 );
        X4 = _TSCP( 0 );
        X5 = s1678;
L3065:
        if  ( FALSE( X5 ) )  goto  L3066;
        if  ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3069;
        X6 = _TSCP( ITIMES( FIXED_C( X4 ), 
                            INT( _TSCP( 16 ) ) ) );
        goto L3070;
L3069:
        X6 = scrt2__2a_2dtwo( X4, _TSCP( 16 ) );
L3070:
        if  ( BITAND( BITOR( INT( X3 ), INT( X2 ) ), 
                      3 ) )  goto  L3071;
        X8 = _TSCP( IPLUS( INT( X3 ), INT( X2 ) ) );
        goto L3072;
L3071:
        X8 = scrt2__2b_2dtwo( X3, X2 );
L3072:
        if  ( BITAND( BITOR( INT( _TSCP( 16 ) ), INT( X8 ) ), 
                      3 ) )  goto  L3074;
        X7 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ), 
                            INT( X8 ) ) );
        goto L3075;
L3074:
        X7 = scrt2__2a_2dtwo( _TSCP( 16 ), X8 );
L3075:
        scrt4_c_2dunsigned_2dset_21( X1, X6, X7 );
        if  ( BITAND( BITOR( INT( _TSCP( 16 ) ), INT( X3 ) ), 
                      3 ) )  goto  L3077;
        X6 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ), 
                            INT( X3 ) ) );
        goto L3078;
L3077:
        X6 = scrt2__2a_2dtwo( _TSCP( 16 ), X3 );
L3078:
        if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L3080;
        scrt1__24__car_2derror( X5 );
L3080:
        X7 = PAIR_CAR( X5 );
        X10 = PAIR_CAR( X5 );
        if  ( AND( EQ( TSCPTAG( X10 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( X10 ), STRINGTAG ) )
            )  goto  L3084;
        scrt6_error( c1699, 
                     c1700, CONS( X10, EMPTYLIST ) );
L3084:
        X9 = C_FIXED( STRING_LENGTH( X10 ) );
        if  ( BITAND( BITOR( INT( X9 ), INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3087;
        X8 = _TSCP( IDIFFERENCE( INT( X9 ), 
                                 INT( _TSCP( 4 ) ) ) );
        goto L3088;
L3087:
        X8 = scrt2__2d_2dtwo( X9, _TSCP( 4 ) );
L3088:
        if  ( BITAND( BITOR( INT( X8 ), INT( _TSCP( -4 ) ) ), 
                      3 ) )  goto  L3091;
        if  ( EQ( UNSIGNED( X8 ), UNSIGNED( _TSCP( -4 ) ) ) )  goto  L3095;
        goto L3096;
L3091:
        if  ( FALSE( scrt2__3d_2dtwo( X8, _TSCP( -4 ) ) ) )  goto  L3096;
L3095:
        X10 = xwss_s1680( X7 );
        if  ( BITAND( BITOR( INT( X3 ), INT( X10 ) ), 
                      3 ) )  goto  L3100;
        X9 = _TSCP( IPLUS( INT( X3 ), INT( X10 ) ) );
        goto L3101;
L3100:
        X9 = scrt2__2b_2dtwo( X3, X10 );
L3101:
        if  ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3102;
        X10 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
        goto L3103;
L3102:
        X10 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
L3103:
        X5 = PAIR_CDR( X5 );
        X4 = X10;
        X3 = X9;
        goto L3065;
L3096:
        if  ( BITAND( BITOR( INT( X6 ), INT( X8 ) ), 
                      3 ) )  goto  L3106;
        X9 = _TSCP( IPLUS( INT( X6 ), INT( X8 ) ) );
        goto L3107;
L3106:
        X9 = scrt2__2b_2dtwo( X6, X8 );
L3107:
        X10 = scrt4_c_2dbyte_2dref( X7, X8 );
        scrt4_c_2dbyte_2dset_21( X1, X9, X10 );
        if  ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3108;
        X8 = _TSCP( IDIFFERENCE( INT( X8 ), 
                                 INT( _TSCP( 4 ) ) ) );
        goto L3088;
L3108:
        X8 = scrt2__2d_2dtwo( X8, _TSCP( 4 ) );
        goto L3088;
L3066:
        POPSTACKTRACE( X1 );
}

DEFTSCP( xwss_ing_2dlist_521a6663_v );
DEFSTRING( t3110, "STRING-ARRAY->STRING-LIST", 25 );
DEFSTRING( t3113, "LOOP [inside STRING-ARRAY->STRING-LIST]", 39 );
EXTERNTSCPP( scrt4_c_2dstring_2d_3estring );
EXTERNTSCP( scrt4_c_2dstring_2d_3estring_v );
EXTERNTSCPP( xwss_l1867 );

TSCP  xwss_l1867( p1869, x1870 )
        TSCP  p1869, x1870;
{
        TSCP  X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3113 ) ) );
        if  ( EQ( UNSIGNED( x1870 ), 
                  UNSIGNED( DISPLAY( 0 ) ) ) )  goto  L3115;
        X2 = scrt4_c_2dunsigned_2dref( p1869, _TSCP( 0 ) );
        X1 = scrt4_c_2dstring_2d_3estring( X2 );
        if  ( BITAND( BITOR( INT( p1869 ), 
                             INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3117;
        X3 = _TSCP( IPLUS( INT( p1869 ), 
                           INT( _TSCP( 16 ) ) ) );
        goto L3118;
L3117:
        X3 = scrt2__2b_2dtwo( p1869, _TSCP( 16 ) );
L3118:
        if  ( BITAND( BITOR( INT( x1870 ), 
                             INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3119;
        X4 = _TSCP( IPLUS( INT( x1870 ), INT( _TSCP( 4 ) ) ) );
        goto L3120;
L3119:
        X4 = scrt2__2b_2dtwo( x1870, _TSCP( 4 ) );
L3120:
        X2 = xwss_l1867( X3, X4 );
        POPSTACKTRACE( sc_cons( X1, X2 ) );
L3115:
        POPSTACKTRACE( EMPTYLIST );
}

TSCP  xwss_ing_2dlist_521a6663( p1864, c1865 )
        TSCP  p1864, c1865;
{
        TSCP  SD0 = DISPLAY( 0 );
        TSCP  SDVAL;

        PUSHSTACKTRACE( U_TX( ADR( t3110 ) ) );
        DISPLAY( 0 ) = c1865;
        SDVAL = xwss_l1867( p1864, _TSCP( 0 ) );
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
}

DEFTSCP( xwss_copy_2dptr_2dto_2dstruct_v );
DEFSTRING( t3121, "COPY-PTR-TO-STRUCT", 18 );

TSCP  xwss_copy_2dptr_2dto_2dstruct( p1888, s1889 )
        TSCP  p1888, s1889;
{
        TSCP  X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3121 ) ) );
        if  ( EQ( TSCPTAG( s1889 ), PAIRTAG ) )  goto  L3124;
        scrt1__24__cdr_2derror( s1889 );
L3124:
        X1 = PAIR_CDR( s1889 );
        if  ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( X1 ), STRINGTAG ) ) )  goto  L3128;
        scrt6_error( c1699, c1700, CONS( X1, EMPTYLIST ) );
L3128:
        X2 = C_FIXED( STRING_LENGTH( X1 ) );
        X3 = _TSCP( 0 );
L3132:
        if  ( EQ( UNSIGNED( X3 ), UNSIGNED( X2 ) ) )  goto  L3133;
        X4 = scrt4_c_2dunsigned_2dref( p1888, X3 );
        scrt4_c_2dunsigned_2dset_21( X1, X3, X4 );
        if  ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3136;
        X3 = _TSCP( IPLUS( INT( X3 ), INT( _TSCP( 16 ) ) ) );
        goto L3132;
L3136:
        X3 = scrt2__2b_2dtwo( X3, _TSCP( 16 ) );
        goto L3132;
L3133:
        POPSTACKTRACE( s1889 );
}

DEFTSCP( xwss_array_2dstruct_2d_3elist_v );
DEFSTRING( t3138, "ARRAY-STRUCT->LIST", 18 );
DEFSTRING( t3141, "LOOP [inside ARRAY-STRUCT->LIST]", 32 );
EXTERNTSCPP( xwss_l1922 );

TSCP  xwss_l1922( p1924, x1925 )
        TSCP  p1924, x1925;
{
        TSCP  X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3141 ) ) );
        if  ( EQ( UNSIGNED( x1925 ), 
                  UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3143;
        X3 = DISPLAY( 0 );
        X3 = UNKNOWNCALL( X3, 0 );
        X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
        X1 = xwss_copy_2dptr_2dto_2dstruct( p1924, X2 );
        if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L3147;
        scrt1__24__cdr_2derror( X1 );
L3147:
        X3 = PAIR_CDR( X1 );
        if  ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( X3 ), STRINGTAG ) ) )  goto  L3150;
        scrt6_error( c1699, c1700, CONS( X3, EMPTYLIST ) );
L3150:
        X2 = C_FIXED( STRING_LENGTH( X3 ) );
        if  ( BITAND( BITOR( INT( p1924 ), INT( X2 ) ), 
                      3 ) )  goto  L3153;
        X4 = _TSCP( IPLUS( INT( p1924 ), INT( X2 ) ) );
        goto L3154;
L3153:
        X4 = scrt2__2b_2dtwo( p1924, X2 );
L3154:
        if  ( BITAND( BITOR( INT( x1925 ), 
                             INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3155;
        X5 = _TSCP( IDIFFERENCE( INT( x1925 ), 
                                 INT( _TSCP( 4 ) ) ) );
        goto L3156;
L3155:
        X5 = scrt2__2d_2dtwo( x1925, _TSCP( 4 ) );
L3156:
        X3 = xwss_l1922( X4, X5 );
        POPSTACKTRACE( sc_cons( X1, X3 ) );
L3143:
        POPSTACKTRACE( EMPTYLIST );
}

TSCP  xwss_array_2dstruct_2d_3elist( p1918, c1919, m1920 )
        TSCP  p1918, c1919, m1920;
{
        TSCP  SD0 = DISPLAY( 0 );
        TSCP  SDVAL;

        PUSHSTACKTRACE( U_TX( ADR( t3138 ) ) );
        DISPLAY( 0 ) = m1920;
        SDVAL = xwss_l1922( p1918, c1919 );
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
}

DEFTSCP( xwss_d_3estring_cd4a0ae7_v );
DEFSTRING( t3157, "STRUCT-LIST->STRING", 19 );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
DEFSTRING( t3160, "LOOP [inside STRUCT-LIST->STRING]", 33 );
EXTERNTSCPP( xwss_l1958 );

TSCP  xwss_l1958( l1960 )
        TSCP  l1960;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3160 ) ) );
        if  ( EQ( UNSIGNED( l1960 ), UNSIGNED( EMPTYLIST ) ) )  goto  L3162;
        if  ( EQ( TSCPTAG( l1960 ), PAIRTAG ) )  goto  L3165;
        scrt1__24__car_2derror( l1960 );
L3165:
        X3 = PAIR_CAR( l1960 );
        X2 = DISPLAY( 0 );
        X2 = UNKNOWNCALL( X2, 1 );
        X1 = VIA( PROCEDURE_CODE( X2 ) )( X3, 
                                          PROCEDURE_CLOSURE( X2 ) );
        X3 = PAIR_CDR( l1960 );
        X2 = xwss_l1958( X3 );
        POPSTACKTRACE( sc_cons( X1, X2 ) );
L3162:
        POPSTACKTRACE( EMPTYLIST );
}

TSCP  xwss_d_3estring_cd4a0ae7( l1955, t1956 )
        TSCP  l1955, t1956;
{
        TSCP  X1;
        TSCP  SD0 = DISPLAY( 0 );
        TSCP  SDVAL;

        PUSHSTACKTRACE( U_TX( ADR( t3157 ) ) );
        DISPLAY( 0 ) = t1956;
        X1 = xwss_l1958( l1955 );
        SDVAL = sc_apply_2dtwo( scrt3_string_2dappend_v, X1 );
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
}

DEFTSCP( xwss_null_2dpointer_3f_v );
DEFSTRING( t3168, "NULL-POINTER?", 13 );

TSCP  xwss_null_2dpointer_3f( x1976 )
        TSCP  x1976;
{
        TSCP  X1;

        PUSHSTACKTRACE( U_TX( ADR( t3168 ) ) );
        if  ( EQ( UNSIGNED( x1976 ), 
                  UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3170;
        if  ( NEQ( TSCPTAG( x1976 ), PAIRTAG ) )  goto  L3172;
        X1 = PAIR_CDR( x1976 );
        POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ), 
                                    UNSIGNED( _TSCP( 0 ) ) ) ) );
L3172:
        POPSTACKTRACE( FALSEVALUE );
L3170:
        POPSTACKTRACE( TRUEVALUE );
}

DEFTSCP( xwss_pointer_2dtype_v );
DEFSTRING( t3175, "POINTER-TYPE", 12 );

TSCP  xwss_pointer_2dtype( x1999 )
        TSCP  x1999;
{
        PUSHSTACKTRACE( U_TX( ADR( t3175 ) ) );
        if  ( NEQ( TSCPTAG( x1999 ), PAIRTAG ) )  goto  L3177;
        POPSTACKTRACE( PAIR_CAR( x1999 ) );
L3177:
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_pointer_2dvalue_v );
DEFSTRING( t3180, "POINTER-VALUE", 13 );

TSCP  xwss_pointer_2dvalue( x2012 )
        TSCP  x2012;
{
        PUSHSTACKTRACE( U_TX( ADR( t3180 ) ) );
        if  ( NEQ( TSCPTAG( x2012 ), PAIRTAG ) )  goto  L3182;
        POPSTACKTRACE( PAIR_CDR( x2012 ) );
L3182:
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss__3epointer_8496cd34_v );
DEFSTRING( t3185, "TYPE/VALUE->POINTER", 19 );

TSCP  xwss__3epointer_8496cd34( t2025, v2026 )
        TSCP  t2025, v2026;
{
        PUSHSTACKTRACE( U_TX( ADR( t3185 ) ) );
        POPSTACKTRACE( sc_cons( t2025, v2026 ) );
}

DEFTSCP( xwss_yfree_v );
DEFSTRING( t3187, "YFREE", 5 );
EXTERNVOIDP( XFree );

TSCP  xwss_yfree( p2032 )
        TSCP  p2032;
{
        TSCP  X1;

        PUSHSTACKTRACE( U_TX( ADR( t3187 ) ) );
        if  ( NEQ( TSCPTAG( p2032 ), PAIRTAG ) )  goto  L3189;
        X1 = xwss_pointer_2dvalue( p2032 );
        XFree( TSCP_POINTER( X1 ) );
        goto L3190;
L3189:
        XFree( TSCP_POINTER( p2032 ) );
L3190:
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_yquerytree_v );
DEFSTRING( t3191, "YQUERYTREE", 10 );
EXTERNTSCPP( xlibtypes_chk_2ddisplayp );
EXTERNTSCP( xlibtypes_chk_2ddisplayp_v );
EXTERNINTP( XQueryTree );
EXTERNVOIDP( XFree );

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

        PUSHSTACKTRACE( U_TX( ADR( t3191 ) ) );
        X1 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X5 = xlibtypes_chk_2ddisplayp( d2045 );
        X6 = INT_TSCP( XQueryTree( TSCP_POINTER( X5 ), 
                                   TSCP_POINTER( w2046 ), 
                                   TSCP_POINTER( X4 ), 
                                   TSCP_POINTER( X3 ), 
                                   TSCP_POINTER( X2 ), 
                                   TSCP_POINTER( X1 ) ) );
        if  ( EQ( UNSIGNED( _TSCP( 0 ) ), UNSIGNED( X6 ) ) )  goto  L3194;
        X8 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
        X10 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
        X13 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
        X14 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
        X12 = xwss__2d_3elist_6775ec9d( X13, X14, FALSEVALUE );
        X11 = sc_cons( X12, EMPTYLIST );
        X9 = sc_cons( X10, X11 );
        X7 = sc_cons( X8, X9 );
        X6 = X7;
        X7 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
        XFree( TSCP_POINTER( X7 ) );
        POPSTACKTRACE( X6 );
L3194:
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_ygetatomname_v );
DEFSTRING( t3198, "YGETATOMNAME", 12 );
EXTERNPOINTERP( XGetAtomName );

TSCP  xwss_ygetatomname( d2066, a2067 )
        TSCP  d2066, a2067;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3198 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2066 );
        X2 = POINTER_TSCP( XGetAtomName( TSCP_POINTER( X1 ), 
                                         TSCP_INT( a2067 ) ) );
        X3 = scrt4_c_2dstring_2d_3estring( X2 );
        XFree( TSCP_POINTER( X2 ) );
        POPSTACKTRACE( X3 );
}

DEFTSCP( xwss_ylistproperties_v );
DEFSTRING( t3203, "YLISTPROPERTIES", 15 );
EXTERNPOINTERP( XListProperties );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
DEFSTRING( t3213, "LOOP [inside YLISTPROPERTIES]", 29 );
EXTERNTSCPP( xwss_l2092 );

TSCP  xwss_l2092( i2094 )
        TSCP  i2094;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3213 ) ) );
        if  ( NEQ( UNSIGNED( i2094 ), 
                   UNSIGNED( DISPLAY( 1 ) ) ) )  goto  L3215;
        XFree( TSCP_POINTER( DISPLAY( 0 ) ) );
        POPSTACKTRACE( EMPTYLIST );
L3215:
        X1 = scrt4_c_2dunsigned_2dref( DISPLAY( 0 ), i2094 );
        if  ( BITAND( BITOR( INT( i2094 ), 
                             INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3218;
        X3 = _TSCP( IPLUS( INT( i2094 ), 
                           INT( _TSCP( 16 ) ) ) );
        goto L3219;
L3218:
        X3 = scrt2__2b_2dtwo( i2094, _TSCP( 16 ) );
L3219:
        X2 = xwss_l2092( X3 );
        POPSTACKTRACE( sc_cons( X1, X2 ) );
}

TSCP  xwss_ylistproperties( d2081, w2082 )
        TSCP  d2081, w2082;
{
        TSCP  X3, X2, X1;
        TSCP  SD0 = DISPLAY( 0 );
        TSCP  SD1 = DISPLAY( 1 );
        TSCP  SDVAL;

        PUSHSTACKTRACE( U_TX( ADR( t3203 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2081 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        DISPLAY( 0 ) = POINTER_TSCP( XListProperties( TSCP_POINTER( X1 ), 
                                                      TSCP_UNSIGNED( w2082 ), 
                                                      TSCP_POINTER( X2 ) ) );
        X3 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        if  ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3209;
        DISPLAY( 1 ) = _TSCP( ITIMES( FIXED_C( X3 ), 
                                      INT( _TSCP( 16 ) ) ) );
        goto L3210;
L3209:
        DISPLAY( 1 ) = scrt2__2a_2dtwo( X3, _TSCP( 16 ) );
L3210:
        SDVAL = xwss_l2092( _TSCP( 0 ) );
        DISPLAY( 0 ) = SD0;
        DISPLAY( 1 ) = SD1;
        POPSTACKTRACE( SDVAL );
}

DEFTSCP( xwss_ylistfonts_v );
DEFSTRING( t3220, "YLISTFONTS", 10 );
EXTERNPOINTERP( XListFonts );
EXTERNVOIDP( XFreeFontNames );

TSCP  xwss_ylistfonts( d2124, p2125, m2126 )
        TSCP  d2124, p2125, m2126;
{
        TSCP  X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3220 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2124 );
        X2 = xwss_chk_2dstring( p2125 );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = POINTER_TSCP( XListFonts( TSCP_POINTER( X1 ), 
                                       TSCP_POINTER( X2 ), 
                                       TSCP_INT( m2126 ), 
                                       TSCP_POINTER( X3 ) ) );
        X6 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X5 = xwss_ing_2dlist_521a6663( X4, X6 );
        XFreeFontNames( TSCP_POINTER( X4 ) );
        POPSTACKTRACE( X5 );
}

DEFTSCP( xwss_ylistfontswithinfo_v );
DEFSTRING( t3227, "YLISTFONTSWITHINFO", 18 );
EXTERNPOINTERP( XListFontsWithInfo );
DEFSTRING( t3237, "LOOP [inside YLISTFONTSWITHINFO]", 32 );
EXTERNTSCPP( ontstruct_fontstruct_dba24396 );
EXTERNTSCP( ontstruct_fontstruct_dba24396_v );
EXTERNTSCPP( xwss_l2171 );

TSCP  xwss_l2171( n2173, i2174, x2175 )
        TSCP  n2173, i2174, x2175;
{
        TSCP  X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3237 ) ) );
        if  ( EQ( UNSIGNED( x2175 ), 
                  UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3239;
        X1 = ontstruct_fontstruct_dba24396(  );
        if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L3243;
        scrt1__24__cdr_2derror( X1 );
L3243:
        X3 = PAIR_CDR( X1 );
        if  ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( X3 ), STRINGTAG ) ) )  goto  L3246;
        scrt6_error( c1699, c1700, CONS( X3, EMPTYLIST ) );
L3246:
        X2 = C_FIXED( STRING_LENGTH( X3 ) );
        X3 = _TSCP( 0 );
L3250:
        if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( X2 ) ) )  goto  L3251;
        X7 = scrt4_c_2dunsigned_2dref( n2173, _TSCP( 0 ) );
        X6 = scrt4_c_2dstring_2d_3estring( X7 );
        X7 = sc_cons( X1, EMPTYLIST );
        X5 = sc_cons( X6, X7 );
        X4 = X5;
        if  ( BITAND( BITOR( INT( n2173 ), 
                             INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3254;
        X6 = _TSCP( IPLUS( INT( n2173 ), 
                           INT( _TSCP( 16 ) ) ) );
        goto L3255;
L3254:
        X6 = scrt2__2b_2dtwo( n2173, _TSCP( 16 ) );
L3255:
        if  ( BITAND( BITOR( INT( i2174 ), INT( X3 ) ), 
                      3 ) )  goto  L3256;
        X7 = _TSCP( IPLUS( INT( i2174 ), INT( X3 ) ) );
        goto L3257;
L3256:
        X7 = scrt2__2b_2dtwo( i2174, X3 );
L3257:
        if  ( BITAND( BITOR( INT( x2175 ), 
                             INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3258;
        X8 = _TSCP( IDIFFERENCE( INT( x2175 ), 
                                 INT( _TSCP( 4 ) ) ) );
        goto L3259;
L3258:
        X8 = scrt2__2d_2dtwo( x2175, _TSCP( 4 ) );
L3259:
        X5 = xwss_l2171( X6, X7, X8 );
        POPSTACKTRACE( sc_cons( X4, X5 ) );
L3251:
        X4 = PAIR_CDR( X1 );
        X5 = scrt4_c_2dunsigned_2dref( i2174, X3 );
        scrt4_c_2dunsigned_2dset_21( X4, X3, X5 );
        if  ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3262;
        X3 = _TSCP( IPLUS( INT( X3 ), INT( _TSCP( 16 ) ) ) );
        goto L3250;
L3262:
        X3 = scrt2__2b_2dtwo( X3, _TSCP( 16 ) );
        goto L3250;
L3239:
        POPSTACKTRACE( EMPTYLIST );
}

EXTERNVOIDP( XFreeFontInfo );

TSCP  xwss_ylistfontswithinfo( d2151, p2152, m2153 )
        TSCP  d2151, p2152, m2153;
{
        TSCP  X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3227 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2151 );
        X2 = xwss_chk_2dstring( p2152 );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X5 = POINTER_TSCP( XListFontsWithInfo( TSCP_POINTER( X1 ), 
                                               TSCP_POINTER( X2 ), 
                                               TSCP_INT( m2153 ), 
                                               TSCP_POINTER( X3 ), 
                                               TSCP_POINTER( X4 ) ) );
        X6 = scrt4_c_2dint_2dref( X3, _TSCP( 0 ) );
        X7 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
        X8 = xwss_l2171( X5, X7, X6 );
        XFreeFontInfo( TSCP_POINTER( X5 ), 
                       TSCP_POINTER( X7 ), TSCP_INT( X6 ) );
        POPSTACKTRACE( X8 );
}

DEFTSCP( xwss_ysetfontpath_v );
DEFSTRING( t3265, "YSETFONTPATH", 12 );
EXTERNVOIDP( XSetFontPath );

TSCP  xwss_ysetfontpath( d2236, d2237 )
        TSCP  d2236, d2237;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3265 ) ) );
        X1 = xwss_ng_2darray_efbf7122( d2237 );
        X2 = xlibtypes_chk_2ddisplayp( d2236 );
        X3 = scrt1_length( d2237 );
        XSetFontPath( TSCP_POINTER( X2 ), 
                      TSCP_POINTER( X1 ), TSCP_INT( X3 ) );
        POPSTACKTRACE( d2237 );
}

DEFTSCP( xwss_ygetfontpath_v );
DEFSTRING( t3268, "YGETFONTPATH", 12 );
EXTERNPOINTERP( XGetFontPath );
EXTERNVOIDP( XFreeFontPath );

TSCP  xwss_ygetfontpath( d2250 )
        TSCP  d2250;
{
        TSCP  X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3268 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2250 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = POINTER_TSCP( XGetFontPath( TSCP_POINTER( X1 ), 
                                         TSCP_POINTER( X2 ) ) );
        X5 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X4 = xwss_ing_2dlist_521a6663( X3, X5 );
        XFreeFontPath( TSCP_POINTER( X3 ) );
        POPSTACKTRACE( X4 );
}

DEFTSCP( xwss_ylistinstalledcolormaps_v );
DEFSTRING( t3274, "YLISTINSTALLEDCOLORMAPS", 23 );
EXTERNPOINTERP( XListInstalledColormaps );
DEFSTRING( t3280, "LOOP [inside YLISTINSTALLEDCOLORMAPS]", 37 );
EXTERNTSCPP( xwss_l2277 );

TSCP  xwss_l2277( x2279, c2280 )
        TSCP  x2279, c2280;
{
        TSCP  X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3280 ) ) );
        if  ( EQ( UNSIGNED( x2279 ), 
                  UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3282;
        X1 = scrt4_c_2dunsigned_2dref( c2280, _TSCP( 0 ) );
        if  ( BITAND( BITOR( INT( x2279 ), 
                             INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3284;
        X3 = _TSCP( IDIFFERENCE( INT( x2279 ), 
                                 INT( _TSCP( 4 ) ) ) );
        goto L3285;
L3284:
        X3 = scrt2__2d_2dtwo( x2279, _TSCP( 4 ) );
L3285:
        if  ( BITAND( BITOR( INT( c2280 ), 
                             INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3286;
        X4 = _TSCP( IPLUS( INT( c2280 ), 
                           INT( _TSCP( 16 ) ) ) );
        goto L3287;
L3286:
        X4 = scrt2__2b_2dtwo( c2280, _TSCP( 16 ) );
L3287:
        X2 = xwss_l2277( X3, X4 );
        POPSTACKTRACE( sc_cons( X1, X2 ) );
L3282:
        POPSTACKTRACE( EMPTYLIST );
}

TSCP  xwss_ylistinstalledcolormaps( d2266, w2267 )
        TSCP  d2266, w2267;
{
        TSCP  X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3274 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2266 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = POINTER_TSCP( XListInstalledColormaps( TSCP_POINTER( X1 ), 
                                                    TSCP_UNSIGNED( w2267 ), 
                                                    TSCP_POINTER( X2 ) ) );
        X5 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X4 = xwss_l2277( X5, X3 );
        XFree( TSCP_POINTER( X3 ) );
        POPSTACKTRACE( X4 );
}

DEFTSCP( xwss_ostaddress_9b54f79f_v );
DEFSTRING( t3289, "FAMILY-ADDRESS->XHOSTADDRESS", 28 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );

TSCP  xwss_ostaddress_9b54f79f( f2298, a2299 )
        TSCP  f2298, a2299;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3289 ) ) );
        X2 = CONS( a2299, EMPTYLIST );
        X1 = scrt3_string_2dappend( CONS( sc_make_2dstring( _TSCP( 48 ), 
                                                            EMPTYLIST ), 
                                          X2 ) );
        scrt4_c_2dint_2dset_21( X1, _TSCP( 0 ), f2298 );
        if  ( AND( EQ( TSCPTAG( a2299 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( a2299 ), STRINGTAG ) )
            )  goto  L3293;
        scrt6_error( c1699, 
                     c1700, CONS( a2299, EMPTYLIST ) );
L3293:
        X2 = C_FIXED( STRING_LENGTH( a2299 ) );
        scrt4_c_2dint_2dset_21( X1, _TSCP( 16 ), X2 );
        X2 = _TSCP( PLUS( INT( X1 ), 3 ) );
        scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 32 ), X2 );
        POPSTACKTRACE( X1 );
}

DEFTSCP( xwss_ynextevent_v );
DEFSTRING( t3295, "YNEXTEVENT", 10 );
EXTERNTSCPP( xlibtypes_chk_2dxeventp );
EXTERNTSCP( xlibtypes_chk_2dxeventp_v );
EXTERNVOIDP( XNextEvent );

TSCP  xwss_ynextevent( d2314, e2315 )
        TSCP  d2314, e2315;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3295 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2314 );
        X2 = xlibtypes_chk_2dxeventp( e2315 );
        XNextEvent( TSCP_POINTER( X1 ), TSCP_POINTER( X2 ) );
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_yselect_v );
DEFSTRING( t3297, "YSELECT", 7 );
DEFSTRING( t3301, "LOOP [inside YSELECT]", 21 );
EXTERNTSCPP( xwss_l2501 );

TSCP  xwss_l2501( x2503 )
        TSCP  x2503;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3301 ) ) );
        X1 = scrt1_length( x2503 );
        if  ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 8 ) ) ), 
                      3 ) )  goto  L3305;
        if  ( GT( INT( X1 ), INT( _TSCP( 8 ) ) ) )  goto  L3309;
        goto L3310;
L3305:
        if  ( FALSE( scrt2__3e_2dtwo( X1, _TSCP( 8 ) ) ) )  goto  L3310;
L3309:
        if  ( EQ( TSCPTAG( x2503 ), PAIRTAG ) )  goto  L3314;
        scrt1__24__car_2derror( x2503 );
L3314:
        X1 = PAIR_CAR( x2503 );
        X3 = PAIR_CDR( x2503 );
        X2 = xwss_l2501( X3 );
        POPSTACKTRACE( sc_cons( X1, X2 ) );
L3310:
        if  ( EQ( TSCPTAG( x2503 ), PAIRTAG ) )  goto  L3319;
        scrt1__24__car_2derror( x2503 );
L3319:
        X1 = PAIR_CAR( x2503 );
        scrt4_c_2dint_2dset_21( DISPLAY( 0 ), _TSCP( 0 ), X1 );
        X2 = PAIR_CDR( x2503 );
        if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L3323;
        scrt1__24__car_2derror( X2 );
L3323:
        X1 = PAIR_CAR( X2 );
        scrt4_c_2dint_2dset_21( DISPLAY( 0 ), 
                                _TSCP( 16 ), X1 );
        POPSTACKTRACE( EMPTYLIST );
}

EXTERNTSCPP( sc_make_2dvector );
EXTERNTSCP( sc_make_2dvector_v );
EXTERNTSCPP( scrt4_bit_2dlsh );
EXTERNTSCP( scrt4_bit_2dlsh_v );
EXTERNTSCPP( scrt6_port_2d_3estdio_2dfile );
EXTERNTSCP( scrt6_port_2d_3estdio_2dfile_v );
EXTERNINTP( sc_fileno );
EXTERNTSCPP( scrt4_bit_2dor );
EXTERNTSCP( scrt4_bit_2dor_v );
EXTERNTSCPP( scrt2_max_2dtwo );
EXTERNTSCP( scrt2_max_2dtwo_v );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
EXTERNTSCPP( scrt6_char_2dready_3f );
EXTERNTSCP( scrt6_char_2dready_3f_v );
EXTERNINTP( select );
EXTERNTSCPP( scrt2_positive_3f );
EXTERNTSCP( scrt2_positive_3f_v );
EXTERNTSCPP( scrt4_bit_2dand );
EXTERNTSCP( scrt4_bit_2dand_v );
EXTERNINT( errno );
EXTERNTSCPP( xwss_yselect );
EXTERNTSCP( xwss_yselect_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );

TSCP  xwss_yselect( d2328, p2329 )
        TSCP  d2328, p2329;
{
        TSCP  X18, 
              X17, 
              X16, 
              X15, 
              X14, 
              X13, 
              X12, 
              X11, 
              X10, 
              X9, 
              X8, X7, X6, X5, X4, X3, X2, X1;
        TSCP  SD0 = DISPLAY( 0 );
        TSCP  SDVAL;

        PUSHSTACKTRACE( U_TX( ADR( t3297 ) ) );
        DISPLAY( 0 ) = sc_make_2dstring( _TSCP( 32 ), EMPTYLIST );
        X1 = xwss_l2501( p2329 );
        X2 = _TSCP( 0 );
        X2 = CONS( X2, EMPTYLIST );
        X4 = sc_make_2dvector( _TSCP( 128 ), 
                               CONS( FALSEVALUE, EMPTYLIST ) );
        X7 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X9 = SYMBOL_VALUE( xconnectionnumber_v );
        X9 = UNKNOWNCALL( X9, 1 );
        X8 = VIA( PROCEDURE_CODE( X9 ) )( d2328, 
                                          PROCEDURE_CLOSURE( X9 ) );
        if  ( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ), 
                   EQ( TSCP_EXTENDEDTAG( X4 ), VECTORTAG ) ) )  goto  L3331;
        scrt6_error( c2450, c2432, CONS( X4, EMPTYLIST ) );
L3331:
        if  ( EQ( TSCPTAG( X8 ), FIXNUMTAG ) )  goto  L3333;
        scrt6_error( c2450, c2435, CONS( X8, EMPTYLIST ) );
L3333:
        if  ( LT( UNSIGNED( FIXED_C( X8 ) ), 
                  UNSIGNED( VECTOR_LENGTH( X4 ) ) ) )  goto  L3335;
        scrt6_error( c2450, c2439, CONS( X8, EMPTYLIST ) );
L3335:
        SETGEN( VECTOR_ELEMENT( X4, X8 ), d2328 );
        X10 = X1;
        X11 = scrt4_bit_2dlsh( _TSCP( 4 ), X8 );
        X12 = X8;
L3338:
        if  ( FALSE( X10 ) )  goto  L3339;
        if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L3342;
        scrt1__24__car_2derror( X10 );
L3342:
        X13 = PAIR_CAR( X10 );
        X15 = scrt6_port_2d_3estdio_2dfile( X13 );
        X14 = INT_TSCP( sc_fileno( TSCP_POINTER( X15 ) ) );
        if  ( EQ( TSCPTAG( X14 ), FIXNUMTAG ) )  goto  L3347;
        scrt6_error( c2450, 
                     c2435, CONS( X14, EMPTYLIST ) );
L3347:
        if  ( LT( UNSIGNED( FIXED_C( X14 ) ), 
                  UNSIGNED( VECTOR_LENGTH( X4 ) ) ) )  goto  L3349;
        scrt6_error( c2450, 
                     c2439, CONS( X14, EMPTYLIST ) );
L3349:
        SETGEN( VECTOR_ELEMENT( X4, X14 ), X13 );
        X15 = PAIR_CDR( X10 );
        X17 = scrt4_bit_2dlsh( _TSCP( 4 ), X14 );
        X16 = scrt4_bit_2dor( X17, CONS( X11, EMPTYLIST ) );
        if  ( BITAND( BITOR( INT( X14 ), INT( X12 ) ), 
                      3 ) )  goto  L3352;
        if  ( LTE( INT( X14 ), INT( X12 ) ) )  goto  L3353;
        X12 = X14;
        goto L3353;
L3352:
        X12 = scrt2_max_2dtwo( X14, X12 );
L3353:
        X11 = X16;
        X10 = X15;
        goto L3338;
L3339:
        if  ( BITAND( BITOR( INT( X12 ), INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3357;
        X13 = _TSCP( IPLUS( INT( X12 ), INT( _TSCP( 4 ) ) ) );
        goto L3358;
L3357:
        X13 = scrt2__2b_2dtwo( X12, _TSCP( 4 ) );
L3358:
        SETGEN( PAIR_CAR( X2 ), X13 );
        X9 = X11;
        scrt4_c_2dunsigned_2dset_21( X7, _TSCP( 0 ), X9 );
        X3 = X7;
        X8 = SYMBOL_VALUE( xpending_v );
        X8 = UNKNOWNCALL( X8, 1 );
        X7 = VIA( PROCEDURE_CODE( X8 ) )( d2328, 
                                          PROCEDURE_CLOSURE( X8 ) );
        if  ( NEQ( TSCPTAG( X7 ), FIXNUMTAG ) )  goto  L3362;
        if  ( EQ( UNSIGNED( X7 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3366;
        SDVAL = d2328;
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
L3362:
        if  ( TRUE( scrt2_zero_3f( X7 ) ) )  goto  L3366;
        SDVAL = d2328;
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
L3366:
        X8 = X1;
L3370:
        if  ( FALSE( X8 ) )  goto  L3371;
        if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L3376;
        scrt1__24__car_2derror( X8 );
L3376:
        if  ( FALSE( scrt6_char_2dready_3f( CONS( PAIR_CAR( X8 ), 
                                                  EMPTYLIST ) ) )
            )  goto  L3373;
        X7 = PAIR_CAR( X8 );
        goto L3372;
L3373:
        if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L3380;
        scrt1__24__cdr_2derror( X8 );
L3380:
        X8 = PAIR_CDR( X8 );
        goto L3370;
L3371:
        X7 = FALSEVALUE;
L3372:
        if  ( TRUE( X7 ) )  goto  L3383;
        X6 = INT_TSCP( select( TSCP_INT( PAIR_CAR( X2 ) ), 
                               TSCP_POINTER( X3 ), 
                               TSCP_POINTER( _TSCP( 0 ) ), 
                               TSCP_POINTER( _TSCP( 0 ) ), 
                               TSCP_POINTER( DISPLAY( 0 ) ) ) );
        X5 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
        if  ( NEQ( TSCPTAG( X6 ), FIXNUMTAG ) )  goto  L3388;
        if  ( GT( INT( X6 ), 0 ) )  goto  L3392;
        goto L3393;
L3388:
        if  ( TRUE( scrt2_positive_3f( X6 ) ) )  goto  L3392;
        goto L3393;
L3383:
        SDVAL = X7;
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
L3392:
        X7 = _TSCP( 4 );
        X8 = _TSCP( 0 );
L3397:
        X9 = scrt4_bit_2dand( X5, CONS( X7, EMPTYLIST ) );
        if  ( NEQ( TSCPTAG( X9 ), FIXNUMTAG ) )  goto  L3400;
        if  ( EQ( UNSIGNED( X9 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3404;
        goto L3405;
L3400:
        if  ( FALSE( scrt2_zero_3f( X9 ) ) )  goto  L3405;
L3404:
        if  ( BITAND( BITOR( INT( X7 ), INT( X7 ) ), 
                      3 ) )  goto  L3408;
        X9 = _TSCP( IPLUS( INT( X7 ), INT( X7 ) ) );
        goto L3409;
L3408:
        X9 = scrt2__2b_2dtwo( X7, X7 );
L3409:
        if  ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3410;
        X8 = _TSCP( IPLUS( INT( X8 ), INT( _TSCP( 4 ) ) ) );
        goto L3411;
L3410:
        X8 = scrt2__2b_2dtwo( X8, _TSCP( 4 ) );
L3411:
        X7 = X9;
        goto L3397;
L3405:
        if  ( EQ( TSCPTAG( X8 ), FIXNUMTAG ) )  goto  L3413;
        scrt6_error( c2431, c2435, CONS( X8, EMPTYLIST ) );
L3413:
        if  ( LT( UNSIGNED( FIXED_C( X8 ) ), 
                  UNSIGNED( VECTOR_LENGTH( X4 ) ) ) )  goto  L3415;
        scrt6_error( c2431, c2439, CONS( X8, EMPTYLIST ) );
L3415:
        SDVAL = VECTOR_ELEMENT( X4, X8 );
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
L3393:
        if  ( BITAND( BITOR( INT( X6 ), INT( _TSCP( -4 ) ) ), 
                      3 ) )  goto  L3418;
        if  ( EQ( UNSIGNED( X6 ), UNSIGNED( _TSCP( -4 ) ) ) )  goto  L3422;
        SDVAL = FALSEVALUE;
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
L3418:
        if  ( TRUE( scrt2__3d_2dtwo( X6, _TSCP( -4 ) ) ) )  goto  L3422;
        SDVAL = FALSEVALUE;
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
L3422:
        X7 = INT_TSCP( errno );
        if  ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 16 ) ) ), 
                      3 ) )  goto  L3427;
        if  ( EQ( UNSIGNED( X7 ), UNSIGNED( _TSCP( 16 ) ) ) )  goto  L3431;
        goto L3432;
L3427:
        if  ( TRUE( scrt2__3d_2dtwo( X7, _TSCP( 16 ) ) ) )  goto  L3431;
L3432:
        SDVAL = scrt6_error( c2398, 
                             c2399, 
                             CONS( INT_TSCP( errno ), EMPTYLIST ) );
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
L3431:
        X7 = scrt1_cons_2a( d2328, CONS( p2329, EMPTYLIST ) );
        SDVAL = sc_apply_2dtwo( xwss_yselect_v, X7 );
        DISPLAY( 0 ) = SD0;
        POPSTACKTRACE( SDVAL );
}

DEFTSCP( xwss_ygetmotionevents_v );
DEFSTRING( t3435, "YGETMOTIONEVENTS", 16 );
EXTERNPOINTERP( XGetMotionEvents );
DEFSTRING( t3441, "LOOP [inside YGETMOTIONEVENTS]", 30 );
EXTERNTSCPP( scrt4_c_2dshortint_2dref );
EXTERNTSCP( scrt4_c_2dshortint_2dref_v );
EXTERNTSCPP( xwss_l2556 );

TSCP  xwss_l2556( x2558, p2559 )
        TSCP  x2558, p2559;
{
        TSCP  X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3441 ) ) );
        if  ( EQ( UNSIGNED( x2558 ), 
                  UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3443;
        X3 = scrt4_c_2dunsigned_2dref( p2559, _TSCP( 0 ) );
        X5 = scrt4_c_2dshortint_2dref( p2559, _TSCP( 16 ) );
        X7 = scrt4_c_2dshortint_2dref( p2559, _TSCP( 24 ) );
        X6 = sc_cons( X7, EMPTYLIST );
        X4 = sc_cons( X5, X6 );
        X2 = sc_cons( X3, X4 );
        X1 = X2;
        if  ( BITAND( BITOR( INT( x2558 ), 
                             INT( _TSCP( 4 ) ) ), 
                      3 ) )  goto  L3446;
        X3 = _TSCP( IDIFFERENCE( INT( x2558 ), 
                                 INT( _TSCP( 4 ) ) ) );
        goto L3447;
L3446:
        X3 = scrt2__2d_2dtwo( x2558, _TSCP( 4 ) );
L3447:
        if  ( BITAND( BITOR( INT( p2559 ), 
                             INT( _TSCP( 24 ) ) ), 
                      3 ) )  goto  L3448;
        X4 = _TSCP( IPLUS( INT( p2559 ), 
                           INT( _TSCP( 24 ) ) ) );
        goto L3449;
L3448:
        X4 = scrt2__2b_2dtwo( p2559, _TSCP( 24 ) );
L3449:
        X2 = xwss_l2556( X3, X4 );
        POPSTACKTRACE( sc_cons( X1, X2 ) );
L3443:
        POPSTACKTRACE( EMPTYLIST );
}

TSCP  xwss_ygetmotionevents( d2543, w2544, s2545, s2546 )
        TSCP  d2543, w2544, s2545, s2546;
{
        TSCP  X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3435 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2543 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = POINTER_TSCP( XGetMotionEvents( TSCP_POINTER( X1 ), 
                                             TSCP_INT( w2544 ), 
                                             TSCP_INT( s2545 ), 
                                             TSCP_INT( s2546 ), 
                                             TSCP_POINTER( X2 ) ) );
        X5 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        X4 = xwss_l2556( X5, X3 );
        XFree( TSCP_POINTER( X3 ) );
        POPSTACKTRACE( X4 );
}

DEFTSCP( xwss_ysetstandardproperties_v );
DEFSTRING( t3451, "YSETSTANDARDPROPERTIES", 22 );
EXTERNTSCPP( xlibtypes_chk_2dxsizehintsp );
EXTERNTSCP( xlibtypes_chk_2dxsizehintsp_v );
EXTERNVOIDP( XSetStandardProperties );

TSCP  xwss_ysetstandardproperties( d2590, 
                                   w2591, 
                                   n2592, 
                                   i2593, i2594, c2595, h2596 )
        TSCP  d2590, 
              w2591, n2592, i2593, i2594, c2595, h2596;
{
        TSCP  X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3451 ) ) );
        X1 = xlibtypes_chk_2dxsizehintsp( h2596 );
        X2 = xwss_ng_2darray_efbf7122( c2595 );
        X3 = xwss_chk_2dstring( i2593 );
        X4 = xwss_chk_2dstring( n2592 );
        X5 = xlibtypes_chk_2ddisplayp( d2590 );
        X6 = scrt1_length( c2595 );
        XSetStandardProperties( TSCP_POINTER( X5 ), 
                                TSCP_UNSIGNED( w2591 ), 
                                TSCP_POINTER( X4 ), 
                                TSCP_POINTER( X3 ), 
                                TSCP_UNSIGNED( i2594 ), 
                                TSCP_POINTER( X2 ), 
                                TSCP_INT( X6 ), 
                                TSCP_POINTER( X1 ) );
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_yfetchname_v );
DEFSTRING( t3454, "YFETCHNAME", 10 );
EXTERNINTP( XFetchName );

TSCP  xwss_yfetchname( d2610, w2611 )
        TSCP  d2610, w2611;
{
        TSCP  X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3454 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2610 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = INT_TSCP( XFetchName( TSCP_POINTER( X1 ), 
                                   TSCP_UNSIGNED( w2611 ), 
                                   TSCP_POINTER( X2 ) ) );
        X4 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
        if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3460;
        X5 = FALSEVALUE;
        goto L3463;
L3460:
        if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3462;
        X5 = FALSEVALUE;
        goto L3463;
L3462:
        X5 = scrt4_c_2dstring_2d_3estring( X4 );
L3463:
        if  ( FALSE( X5 ) )  goto  L3465;
        XFree( TSCP_POINTER( X4 ) );
L3465:
        POPSTACKTRACE( X5 );
}

DEFTSCP( xwss_ygeticonname_v );
DEFSTRING( t3467, "YGETICONNAME", 12 );
EXTERNINTP( XGetIconName );

TSCP  xwss_ygeticonname( d2639, w2640 )
        TSCP  d2639, w2640;
{
        TSCP  X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3467 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2639 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = INT_TSCP( XGetIconName( TSCP_POINTER( X1 ), 
                                     TSCP_UNSIGNED( w2640 ), 
                                     TSCP_POINTER( X2 ) ) );
        X4 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
        if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3473;
        X5 = FALSEVALUE;
        goto L3476;
L3473:
        if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3475;
        X5 = FALSEVALUE;
        goto L3476;
L3475:
        X5 = scrt4_c_2dstring_2d_3estring( X4 );
L3476:
        if  ( FALSE( X5 ) )  goto  L3478;
        XFree( TSCP_POINTER( X4 ) );
L3478:
        POPSTACKTRACE( X5 );
}

DEFTSCP( xwss_ysetcommand_v );
DEFSTRING( t3480, "YSETCOMMAND", 11 );
EXTERNVOIDP( XSetCommand );

TSCP  xwss_ysetcommand( d2669, w2670, c2671 )
        TSCP  d2669, w2670, c2671;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3480 ) ) );
        X1 = xwss_ng_2darray_efbf7122( c2671 );
        X2 = xlibtypes_chk_2ddisplayp( d2669 );
        X3 = scrt1_length( c2671 );
        XSetCommand( TSCP_POINTER( X2 ), 
                     TSCP_POINTER( w2670 ), 
                     TSCP_POINTER( X1 ), TSCP_INT( X3 ) );
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_ygetwmhints_v );
DEFSTRING( t3483, "YGETWMHINTS", 11 );
EXTERNPOINTERP( XGetWMHints );
EXTERNTSCPP( xwmhints_make_2dxwmhints );
EXTERNTSCP( xwmhints_make_2dxwmhints_v );

TSCP  xwss_ygetwmhints( d2683, w2684 )
        TSCP  d2683, w2684;
{
        TSCP  X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3483 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2683 );
        X2 = POINTER_TSCP( XGetWMHints( TSCP_POINTER( X1 ), 
                                        TSCP_UNSIGNED( w2684 ) ) );
        if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3487;
        X3 = FALSEVALUE;
        goto L3488;
L3487:
        X4 = xwmhints_make_2dxwmhints(  );
        X3 = xwss_copy_2dptr_2dto_2dstruct( X2, X4 );
L3488:
        if  ( FALSE( X3 ) )  goto  L3490;
        XFree( TSCP_POINTER( X2 ) );
L3490:
        POPSTACKTRACE( X3 );
}

DEFTSCP( xwss_yseticonsizes_v );
DEFSTRING( t3492, "YSETICONSIZES", 13 );
EXTERNTSCPP( xlibtypes_chk_2dxiconsizep );
EXTERNTSCP( xlibtypes_chk_2dxiconsizep_v );
EXTERNVOIDP( XSetIconSizes );

TSCP  xwss_yseticonsizes( d2702, w2703, i2704 )
        TSCP  d2702, w2703, i2704;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3492 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2702 );
        X2 = xwss_d_3estring_cd4a0ae7( i2704, 
                                       xlibtypes_chk_2dxiconsizep_v );
        X3 = scrt1_length( i2704 );
        XSetIconSizes( TSCP_POINTER( X1 ), 
                       TSCP_UNSIGNED( w2703 ), 
                       TSCP_POINTER( X2 ), TSCP_INT( X3 ) );
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_ygeticonsizes_v );
DEFSTRING( t3496, "YGETICONSIZES", 13 );
EXTERNINTP( XGetIconSizes );
EXTERNTSCPP( xiconsize_make_2dxiconsize );
EXTERNTSCP( xiconsize_make_2dxiconsize_v );

TSCP  xwss_ygeticonsizes( d2719, w2720 )
        TSCP  d2719, w2720;
{
        TSCP  X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3496 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2719 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X4 = INT_TSCP( XGetIconSizes( TSCP_POINTER( X1 ), 
                                      TSCP_UNSIGNED( w2720 ), 
                                      TSCP_POINTER( X2 ), 
                                      TSCP_POINTER( X3 ) ) );
        X5 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
        X6 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
        if  ( FALSE( X4 ) )  goto  L3504;
        X7 = xwss_array_2dstruct_2d_3elist( X5, 
                                            X6, 
                                            xiconsize_make_2dxiconsize_v );
        goto L3505;
L3504:
        X7 = FALSEVALUE;
L3505:
        if  ( FALSE( X7 ) )  goto  L3507;
        XFree( TSCP_POINTER( X5 ) );
L3507:
        POPSTACKTRACE( X7 );
}

DEFTSCP( xwss_ysetclasshint_v );
DEFSTRING( t3509, "YSETCLASSHINT", 13 );
EXTERNVOIDP( XSetClassHint );

TSCP  xwss_ysetclasshint( d2742, w2743, n2744 )
        TSCP  d2742, w2743, n2744;
{
        TSCP  X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3509 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2742 );
        X2 = xwss_ng_2darray_efbf7122( n2744 );
        XSetClassHint( TSCP_POINTER( X1 ), 
                       TSCP_UNSIGNED( w2743 ), 
                       TSCP_POINTER( X2 ) );
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_ygetclasshint_v );
DEFSTRING( t3513, "YGETCLASSHINT", 13 );
EXTERNINTP( XGetClassHint );

TSCP  xwss_ygetclasshint( d2756, w2757 )
        TSCP  d2756, w2757;
{
        TSCP  X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3513 ) ) );
        X1 = xlibtypes_chk_2ddisplayp( d2756 );
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X3 = INT_TSCP( XGetClassHint( TSCP_POINTER( X1 ), 
                                      TSCP_UNSIGNED( w2757 ), 
                                      TSCP_POINTER( X2 ) ) );
        X4 = scrt4_c_2dunsigned_2dref( X2, _TSCP( 0 ) );
        if  ( EQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3519;
        X5 = xwss_ing_2dlist_521a6663( X4, _TSCP( 8 ) );
        X6 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
        XFree( TSCP_POINTER( X6 ) );
        X6 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 16 ) );
        XFree( TSCP_POINTER( X6 ) );
        POPSTACKTRACE( X5 );
L3519:
        POPSTACKTRACE( FALSEVALUE );
}

DEFTSCP( xwss_xlookupstring_2dbuffer_v );
DEFSTRING( t3522, "XLOOKUPSTRING-BUFFER", 20 );
DEFTSCP( xwss_ylookupstring_v );
DEFSTRING( t3523, "YLOOKUPSTRING", 13 );
EXTERNTSCPP( xlibtypes_osestatusp_af1bab02 );
EXTERNTSCP( xlibtypes_osestatusp_af1bab02_v );
EXTERNINTP( XLookupString );
EXTERNTSCPP( scrt3_substring );
EXTERNTSCP( scrt3_substring_v );

TSCP  xwss_ylookupstring( e2782, o2783 )
        TSCP  e2782, o2783;
{
        TSCP  X8, X7, X6, X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3523 ) ) );
        X1 = xlibtypes_chk_2dxeventp( e2782 );
        if  ( FALSE( o2783 ) )  goto  L3526;
        if  ( EQ( TSCPTAG( o2783 ), PAIRTAG ) )  goto  L3529;
        scrt1__24__car_2derror( o2783 );
L3529:
        if  ( FALSE( PAIR_CAR( o2783 ) ) )  goto  L3531;
        X2 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        goto L3527;
L3531:
        X2 = _TSCP( 0 );
        goto L3527;
L3526:
        X2 = _TSCP( 0 );
L3527:
        X4 = scrt1_length( o2783 );
        if  ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 8 ) ) ), 
                      3 ) )  goto  L3536;
        if  ( EQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 8 ) ) ) )  goto  L3540;
        X3 = _TSCP( 0 );
        goto L3543;
L3536:
        if  ( TRUE( scrt2__3d_2dtwo( X4, _TSCP( 8 ) ) ) )  goto  L3540;
        X3 = _TSCP( 0 );
        goto L3543;
L3540:
        if  ( EQ( TSCPTAG( o2783 ), PAIRTAG ) )  goto  L3545;
        scrt1__24__cdr_2derror( o2783 );
L3545:
        X6 = PAIR_CDR( o2783 );
        if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L3548;
        scrt1__24__car_2derror( X6 );
L3548:
        X5 = PAIR_CAR( X6 );
        X3 = xlibtypes_osestatusp_af1bab02( X5 );
L3543:
        X4 = INT_TSCP( XLookupString( TSCP_POINTER( X1 ), 
                                      TSCP_POINTER( xwss_xlookupstring_2dbuffer_v ), 
                                      TSCP_INT( _TSCP( 200 ) ), 
                                      TSCP_POINTER( X2 ), 
                                      TSCP_POINTER( X3 ) ) );
        if  ( FALSE( o2783 ) )  goto  L3552;
        X6 = scrt3_substring( xwss_xlookupstring_2dbuffer_v, 
                              _TSCP( 0 ), X4 );
        if  ( EQ( TSCPTAG( o2783 ), PAIRTAG ) )  goto  L3555;
        scrt1__24__car_2derror( o2783 );
L3555:
        if  ( FALSE( PAIR_CAR( o2783 ) ) )  goto  L3557;
        X8 = scrt4_c_2dint_2dref( X2, _TSCP( 0 ) );
        goto L3558;
L3557:
        X8 = FALSEVALUE;
L3558:
        X7 = sc_cons( X8, EMPTYLIST );
        X5 = sc_cons( X6, X7 );
        POPSTACKTRACE( X5 );
L3552:
        POPSTACKTRACE( scrt3_substring( xwss_xlookupstring_2dbuffer_v, 
                                        _TSCP( 0 ), X4 ) );
}

DEFTSCP( xwss_yrmgetresource_v );
DEFSTRING( t3560, "YRMGETRESOURCE", 14 );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( xlibtypes_chk_2dcharap );
EXTERNTSCP( xlibtypes_chk_2dcharap_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );

TSCP  xwss_yrmgetresource( d2827, n2828, c2829 )
        TSCP  d2827, n2828, c2829;
{
        TSCP  X5, X4, X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3560 ) ) );
        X2 = SYMBOL_VALUE( xrmgetresource_v );
        X2 = UNKNOWNCALL( X2, 3 );
        X1 = VIA( PROCEDURE_CODE( X2 ) )( d2827, 
                                          n2828, 
                                          c2829, 
                                          PROCEDURE_CLOSURE( X2 ) );
        if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L3564;
        scrt1__24__car_2derror( X1 );
L3564:
        X2 = PAIR_CAR( X1 );
        if  ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) )  goto  L3568;
        if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L3572;
        POPSTACKTRACE( FALSEVALUE );
L3568:
        if  ( FALSE( scrt2_zero_3f( X2 ) ) )  goto  L3572;
        POPSTACKTRACE( FALSEVALUE );
L3572:
        X3 = PAIR_CDR( X1 );
        if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L3579;
        scrt1__24__car_2derror( X3 );
L3579:
        X2 = PAIR_CAR( X3 );
        if  ( FALSE( scrt1_equal_3f( X2, c2855 ) ) )  goto  L3575;
        X5 = scrt1_caddr( X1 );
        X4 = SYMBOL_VALUE( xrmvalue_2daddr_v );
        X4 = UNKNOWNCALL( X4, 1 );
        X3 = VIA( PROCEDURE_CODE( X4 ) )( X5, 
                                          PROCEDURE_CLOSURE( X4 ) );
        X2 = xlibtypes_chk_2dcharap( X3 );
        POPSTACKTRACE( scrt4_c_2dstring_2d_3estring( X2 ) );
L3575:
        X3 = PAIR_CDR( X1 );
        if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L3583;
        scrt1__24__car_2derror( X3 );
L3583:
        X2 = PAIR_CAR( X3 );
        POPSTACKTRACE( scrt6_error( c2856, X2, EMPTYLIST ) );
}

DEFTSCP( xwss_yrmmergedatabases_v );
DEFSTRING( t3585, "YRMMERGEDATABASES", 17 );
EXTERNTSCPP( xlibtypes_chk_2dxrmdatabase );
EXTERNTSCP( xlibtypes_chk_2dxrmdatabase_v );

TSCP  xwss_yrmmergedatabases( n2871, i2872 )
        TSCP  n2871, i2872;
{
        TSCP  X3, X2, X1;

        PUSHSTACKTRACE( U_TX( ADR( t3585 ) ) );
        X1 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
        X2 = xlibtypes_chk_2dxrmdatabase( i2872 );
        scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 );
        X3 = xwss__3epointer_8496cd34( c2876, X1 );
        X2 = SYMBOL_VALUE( xrmmergedatabases_v );
        X2 = UNKNOWNCALL( X2, 2 );
        VIA( PROCEDURE_CODE( X2 ) )( n2871, 
                                     X3, PROCEDURE_CLOSURE( X2 ) );
        X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
        POPSTACKTRACE( xwss__3epointer_8496cd34( c2877, X2 ) );
}

static void  init_modules( compiler_version )
        char *compiler_version;
{
        xiconsize__init();
        xwmhints__init();
        xfontstruct__init();
        xlibtypes__init();
        scrt3__init();
        scrt6__init();
        scrt4__init();
        scrt2__init();
        scrt1__init();
        MAXDISPLAY( 3 );
}

void  xwss__init()
{
        static int  init = 0;
        if  (init)  return;
        init = 1;
        INITHEAP( 0, 0, 0, 0 );
        init_constants();
        init_modules( "(xwss SCHEME->C COMPILER 28sep90jfb)" );
        INITIALIZEVAR( U_TX( ADR( t2975 ) ), 
                       ADR( xwss_d_3estring_7ab6adc9_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_d_3estring_7ab6adc9, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t2991 ) ), 
                       ADR( xwss__2d_3elist_6775ec9d_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss__2d_3elist_6775ec9d, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3006 ) ), 
                       ADR( xwss_chk_2dstring_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xwss_chk_2dstring, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3010 ) ), 
                       ADR( xwss_ng_2darray_efbf7122_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xwss_ng_2darray_efbf7122, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3110 ) ), 
                       ADR( xwss_ing_2dlist_521a6663_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ing_2dlist_521a6663, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3121 ) ), 
                       ADR( xwss_copy_2dptr_2dto_2dstruct_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_copy_2dptr_2dto_2dstruct, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3138 ) ), 
                       ADR( xwss_array_2dstruct_2d_3elist_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss_array_2dstruct_2d_3elist, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3157 ) ), 
                       ADR( xwss_d_3estring_cd4a0ae7_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_d_3estring_cd4a0ae7, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3168 ) ), 
                       ADR( xwss_null_2dpointer_3f_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xwss_null_2dpointer_3f, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3175 ) ), 
                       ADR( xwss_pointer_2dtype_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xwss_pointer_2dtype, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3180 ) ), 
                       ADR( xwss_pointer_2dvalue_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xwss_pointer_2dvalue, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3185 ) ), 
                       ADR( xwss__3epointer_8496cd34_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss__3epointer_8496cd34, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3187 ) ), 
                       ADR( xwss_yfree_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, xwss_yfree, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3191 ) ), 
                       ADR( xwss_yquerytree_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_yquerytree, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3198 ) ), 
                       ADR( xwss_ygetatomname_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ygetatomname, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3203 ) ), 
                       ADR( xwss_ylistproperties_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ylistproperties, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3220 ) ), 
                       ADR( xwss_ylistfonts_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss_ylistfonts, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3227 ) ), 
                       ADR( xwss_ylistfontswithinfo_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss_ylistfontswithinfo, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3265 ) ), 
                       ADR( xwss_ysetfontpath_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ysetfontpath, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3268 ) ), 
                       ADR( xwss_ygetfontpath_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      xwss_ygetfontpath, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3274 ) ), 
                       ADR( xwss_ylistinstalledcolormaps_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ylistinstalledcolormaps, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3289 ) ), 
                       ADR( xwss_ostaddress_9b54f79f_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ostaddress_9b54f79f, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3295 ) ), 
                       ADR( xwss_ynextevent_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ynextevent, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3297 ) ), 
                       ADR( xwss_yselect_v ), 
                       MAKEPROCEDURE( 1, 
                                      1, xwss_yselect, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3435 ) ), 
                       ADR( xwss_ygetmotionevents_v ), 
                       MAKEPROCEDURE( 4, 
                                      0, 
                                      xwss_ygetmotionevents, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3451 ) ), 
                       ADR( xwss_ysetstandardproperties_v ), 
                       MAKEPROCEDURE( 7, 
                                      0, 
                                      xwss_ysetstandardproperties, 
                                      EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3454 ) ), 
                       ADR( xwss_yfetchname_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_yfetchname, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3467 ) ), 
                       ADR( xwss_ygeticonname_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ygeticonname, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3480 ) ), 
                       ADR( xwss_ysetcommand_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss_ysetcommand, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3483 ) ), 
                       ADR( xwss_ygetwmhints_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ygetwmhints, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3492 ) ), 
                       ADR( xwss_yseticonsizes_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss_yseticonsizes, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3496 ) ), 
                       ADR( xwss_ygeticonsizes_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ygeticonsizes, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3509 ) ), 
                       ADR( xwss_ysetclasshint_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss_ysetclasshint, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3513 ) ), 
                       ADR( xwss_ygetclasshint_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_ygetclasshint, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3522 ) ), 
                       ADR( xwss_xlookupstring_2dbuffer_v ), 
                       sc_make_2dstring( _TSCP( 200 ), EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3523 ) ), 
                       ADR( xwss_ylookupstring_v ), 
                       MAKEPROCEDURE( 1, 
                                      1, 
                                      xwss_ylookupstring, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3560 ) ), 
                       ADR( xwss_yrmgetresource_v ), 
                       MAKEPROCEDURE( 3, 
                                      0, 
                                      xwss_yrmgetresource, EMPTYLIST ) );
        INITIALIZEVAR( U_TX( ADR( t3585 ) ), 
                       ADR( xwss_yrmmergedatabases_v ), 
                       MAKEPROCEDURE( 2, 
                                      0, 
                                      xwss_yrmmergedatabases, 
                                      EMPTYLIST ) );
        return;
}

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