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.