This is scrt5.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2036, "WAIT", 4 );
DEFSTATICTSCP( c1885 );
DEFSTRING( t2037, "Select error: ~s", 16 );
DEFSTATICTSCP2( c1828, t2037 );
DEFSTRING( t2038, "WAIT-SYSTEM-FILE", 16 );
DEFSTATICTSCP( c1827 );
DEFSTRING( t2039, "VECTOR-REF", 10 );
DEFSTATICTSCP( c1742 );
DEFSTRING( t2040, "Index is not in bounds: ~s", 26 );
DEFSTATICTSCP2( c1711, t2040 );
DEFSTRING( t2041, "Argument is not a VECTOR: ~s", 28 );
DEFSTATICTSCP2( c1705, t2041 );
DEFSTRING( t2042, "VECTOR-SET!", 11 );
DEFSTATICTSCP( c1704 );
DEFSTRING( t2043, "Argument is not a PORT: ~s", 26 );
DEFSTATICTSCP2( c1682, t2043 );
DEFSTRING( t2044, "GET-OUTPUT-STRING", 17 );
DEFSTATICTSCP( c1671 );
DEFSTRING( t2045, "FILE-PORT", 9 );
DEFSTATICTSCP( c1504 );
DEFSTRING( t2046, "ECHO!", 5 );
DEFSTATICTSCP( c1500 );
DEFSTRING( t2047, "ECHO", 4 );
DEFSTATICTSCP( c1496 );
DEFSTRING( t2048, "WRITE-FLUSH", 11 );
DEFSTATICTSCP( c1492 );
DEFSTRING( t2049, "WRITE-COUNT", 11 );
DEFSTATICTSCP( c1488 );
DEFSTRING( t2050, "WRITE-WIDTH!", 12 );
DEFSTATICTSCP( c1484 );
DEFSTRING( t2051, "WRITE-WIDTH", 11 );
DEFSTATICTSCP( c1480 );
DEFSTRING( t2052, "CHAR-READY?", 11 );
DEFSTATICTSCP( c1470 );
DEFSTRING( t2053, "PEEK-CHAR", 9 );
DEFSTATICTSCP( c1466 );
DEFSTRING( t2054, "CLOSE-PORT", 10 );
DEFSTATICTSCP( c1459 );
DEFSTRING( t2055, "WRITE-TOKEN", 11 );
DEFSTATICTSCP( c1440 );
DEFSTRING( t2056, "I/O error ~s on port", 20 );
DEFSTATICTSCP2( c1407, t2056 );
DEFSTRING( t2057,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1406, t2057 );
DEFSTRING( t2058, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1405 );
DEFSTRING( t2059, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c1330, t2059 );
DEFSTRING( t2060, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1329 );
DEFSTRING( t2061, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1308, t2061 );
DEFSTRING( t2062, "STRING-REF", 10 );
DEFSTATICTSCP( c1307 );
DEFSTRING( t2063, "I/O error ~s on output", 22 );
DEFSTATICTSCP2( c1270, t2063 );
DEFSTRING( t2064, "MAKE-FILE-PORT", 14 );
DEFSTATICTSCP( c1269 );
DEFSTRING( t2065, "Argument not a CHAR: ~s", 23 );
DEFSTATICTSCP2( c1268, t2065 );
DEFSTRING( t2066, "CHAR->INTEGER", 13 );
DEFSTATICTSCP( c1267 );
DEFSTATICTSCP( c1230 );
DEFSTRING( t2067, "Argument(s) not CHAR: ~s ~s", 27 );
DEFSTATICTSCP2( c1221, t2067 );
DEFSTRING( t2068, "CHAR<?", 6 );
DEFSTATICTSCP( c1220 );
DEFSTRING( t2069, "Unable to open file ~s", 22 );
DEFSTATICTSCP2( c1184, t2069 );
DEFSTRING( t2070, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1173, t2070 );
DEFSTRING( t2071, "FILENAME->FILE", 14 );
DEFSTATICTSCP( c1172 );
DEFSTRING( t2072, "WITH-OUTPUT-TO-FILE", 19 );
DEFSTATICTSCP( c1160 );
DEFSTRING( t2073, "WITH-INPUT-FROM-FILE", 20 );
DEFSTATICTSCP( c1151 );
DEFSTRING( t2074, "WRITE-CHAR", 10 );
DEFSTATICTSCP( c1138 );
DEFSTRING( t2075, "READ-CHAR", 9 );
DEFSTATICTSCP( c1104 );
DEFSTRING( t2076, "PORT", 4 );
DEFSTATICTSCP( c1088 );
DEFSTRING( t2077, "w", 1 );
DEFSTATICTSCP2( c1069, t2077 );
DEFSTRING( t2078, "CALL-WITH-OUTPUT-FILE", 21 );
DEFSTATICTSCP( c1064 );
DEFSTRING( t2079, "r", 1 );
DEFSTATICTSCP2( c1058, t2079 );
DEFSTRING( t2080, "Argument is not a PROCEDURE: ~s", 31 );
DEFSTATICTSCP2( c1053, t2080 );
DEFSTRING( t2081, "CALL-WITH-INPUT-FILE", 20 );
DEFSTATICTSCP( c1052 );
static void init_constants()
{
c1885 = STRINGTOSYMBOL( U_TX( ADR( t2036 ) ) );
CONSTANTEXP( ADR( c1885 ) );
c1827 = STRINGTOSYMBOL( U_TX( ADR( t2038 ) ) );
CONSTANTEXP( ADR( c1827 ) );
c1742 = STRINGTOSYMBOL( U_TX( ADR( t2039 ) ) );
CONSTANTEXP( ADR( c1742 ) );
c1704 = STRINGTOSYMBOL( U_TX( ADR( t2042 ) ) );
CONSTANTEXP( ADR( c1704 ) );
c1671 = STRINGTOSYMBOL( U_TX( ADR( t2044 ) ) );
CONSTANTEXP( ADR( c1671 ) );
c1504 = STRINGTOSYMBOL( U_TX( ADR( t2045 ) ) );
CONSTANTEXP( ADR( c1504 ) );
c1500 = STRINGTOSYMBOL( U_TX( ADR( t2046 ) ) );
CONSTANTEXP( ADR( c1500 ) );
c1496 = STRINGTOSYMBOL( U_TX( ADR( t2047 ) ) );
CONSTANTEXP( ADR( c1496 ) );
c1492 = STRINGTOSYMBOL( U_TX( ADR( t2048 ) ) );
CONSTANTEXP( ADR( c1492 ) );
c1488 = STRINGTOSYMBOL( U_TX( ADR( t2049 ) ) );
CONSTANTEXP( ADR( c1488 ) );
c1484 = STRINGTOSYMBOL( U_TX( ADR( t2050 ) ) );
CONSTANTEXP( ADR( c1484 ) );
c1480 = STRINGTOSYMBOL( U_TX( ADR( t2051 ) ) );
CONSTANTEXP( ADR( c1480 ) );
c1470 = STRINGTOSYMBOL( U_TX( ADR( t2052 ) ) );
CONSTANTEXP( ADR( c1470 ) );
c1466 = STRINGTOSYMBOL( U_TX( ADR( t2053 ) ) );
CONSTANTEXP( ADR( c1466 ) );
c1459 = STRINGTOSYMBOL( U_TX( ADR( t2054 ) ) );
CONSTANTEXP( ADR( c1459 ) );
c1440 = STRINGTOSYMBOL( U_TX( ADR( t2055 ) ) );
CONSTANTEXP( ADR( c1440 ) );
c1405 = STRINGTOSYMBOL( U_TX( ADR( t2058 ) ) );
CONSTANTEXP( ADR( c1405 ) );
c1329 = STRINGTOSYMBOL( U_TX( ADR( t2060 ) ) );
CONSTANTEXP( ADR( c1329 ) );
c1307 = STRINGTOSYMBOL( U_TX( ADR( t2062 ) ) );
CONSTANTEXP( ADR( c1307 ) );
c1269 = STRINGTOSYMBOL( U_TX( ADR( t2064 ) ) );
CONSTANTEXP( ADR( c1269 ) );
c1267 = STRINGTOSYMBOL( U_TX( ADR( t2066 ) ) );
CONSTANTEXP( ADR( c1267 ) );
c1230 = EMPTYLIST;
c1230 = CONS( _TSCP( 2578 ), c1230 );
c1230 = CONS( _TSCP( 3346 ), c1230 );
c1230 = CONS( _TSCP( 2578 ), c1230 );
CONSTANTEXP( ADR( c1230 ) );
c1220 = STRINGTOSYMBOL( U_TX( ADR( t2068 ) ) );
CONSTANTEXP( ADR( c1220 ) );
c1172 = STRINGTOSYMBOL( U_TX( ADR( t2071 ) ) );
CONSTANTEXP( ADR( c1172 ) );
c1160 = STRINGTOSYMBOL( U_TX( ADR( t2072 ) ) );
CONSTANTEXP( ADR( c1160 ) );
c1151 = STRINGTOSYMBOL( U_TX( ADR( t2073 ) ) );
CONSTANTEXP( ADR( c1151 ) );
c1138 = STRINGTOSYMBOL( U_TX( ADR( t2074 ) ) );
CONSTANTEXP( ADR( c1138 ) );
c1104 = STRINGTOSYMBOL( U_TX( ADR( t2075 ) ) );
CONSTANTEXP( ADR( c1104 ) );
c1088 = STRINGTOSYMBOL( U_TX( ADR( t2076 ) ) );
CONSTANTEXP( ADR( c1088 ) );
c1064 = STRINGTOSYMBOL( U_TX( ADR( t2078 ) ) );
CONSTANTEXP( ADR( c1064 ) );
c1052 = STRINGTOSYMBOL( U_TX( ADR( t2081 ) ) );
CONSTANTEXP( ADR( c1052 ) );
}
DEFTSCP( scrt5_put_2dfile_36807e3e_v );
DEFSTRING( t2082, "CALL-WITH-INPUT-FILE", 20 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scrt5_open_2dfile );
EXTERNTSCP( scrt5_open_2dfile_v );
EXTERNTSCPP( scrt5_close_2dport );
EXTERNTSCP( scrt5_close_2dport_v );
TSCP scrt5_put_2dfile_36807e3e( f1048, p1049 )
TSCP f1048, p1049;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2082 ) ) );
if ( AND( EQ( TSCPTAG( p1049 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p1049 ), PROCEDURETAG ) )
) goto L2084;
scrt6_error( c1052,
c1053, CONS( p1049, EMPTYLIST ) );
L2084:
X1 = scrt5_open_2dfile( f1048, c1058 );
X3 = p1049;
X3 = UNKNOWNCALL( X3, 1 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X1,
PROCEDURE_CLOSURE( X3 ) );
scrt5_close_2dport( X1 );
POPSTACKTRACE( X2 );
}
DEFTSCP( scrt5_put_2dfile_16bb0f3_v );
DEFSTRING( t2088, "CALL-WITH-OUTPUT-FILE", 21 );
TSCP scrt5_put_2dfile_16bb0f3( f1060, p1061 )
TSCP f1060, p1061;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2088 ) ) );
if ( AND( EQ( TSCPTAG( p1061 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p1061 ), PROCEDURETAG ) )
) goto L2090;
scrt6_error( c1064,
c1053, CONS( p1061, EMPTYLIST ) );
L2090:
X1 = scrt5_open_2dfile( f1060, c1069 );
X3 = p1061;
X3 = UNKNOWNCALL( X3, 1 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X1,
PROCEDURE_CLOSURE( X3 ) );
scrt5_close_2dport( X1 );
POPSTACKTRACE( X2 );
}
DEFTSCP( scrt5_input_2dport_3f_v );
DEFSTRING( t2094, "INPUT-PORT?", 11 );
TSCP scrt5_input_2dport_3f( x1071 )
TSCP x1071;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2094 ) ) );
if ( NEQ( TSCPTAG( x1071 ), PAIRTAG ) ) goto L2096;
X1 = PAIR_CAR( x1071 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1088 ) ) ) goto L2098;
X1 = PAIR_CDR( x1071 );
if ( NOT( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), PROCEDURETAG ) ) )
) goto L2101;
X1 = PAIR_CDR( x1071 );
X1 = UNKNOWNCALL( X1, 1 );
if ( TRUE( VIA( PROCEDURE_CODE( X1 ) )( c1104,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2104;
POPSTACKTRACE( FALSEVALUE );
L2104:
POPSTACKTRACE( TRUEVALUE );
L2101:
POPSTACKTRACE( FALSEVALUE );
L2098:
POPSTACKTRACE( FALSEVALUE );
L2096:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt5_output_2dport_3f_v );
DEFSTRING( t2107, "OUTPUT-PORT?", 12 );
TSCP scrt5_output_2dport_3f( x1106 )
TSCP x1106;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2107 ) ) );
if ( NEQ( TSCPTAG( x1106 ), PAIRTAG ) ) goto L2109;
X1 = PAIR_CAR( x1106 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1088 ) ) ) goto L2111;
X1 = PAIR_CDR( x1106 );
if ( NOT( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), PROCEDURETAG ) ) )
) goto L2114;
X1 = PAIR_CDR( x1106 );
X1 = UNKNOWNCALL( X1, 1 );
if ( TRUE( VIA( PROCEDURE_CODE( X1 ) )( c1138,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2117;
POPSTACKTRACE( FALSEVALUE );
L2117:
POPSTACKTRACE( TRUEVALUE );
L2114:
POPSTACKTRACE( FALSEVALUE );
L2111:
POPSTACKTRACE( FALSEVALUE );
L2109:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt5_rt_2dvalue_e3d6f738_v );
DEFSTRING( t2120, "SCRT5_CURRENT-INPUT-PORT-VALUE", 30 );
EXTERNTSCPP( scrt5_make_2dfile_2dport );
EXTERNTSCP( scrt5_make_2dfile_2dport_v );
EXTERNPOINTER( sc_stdin );
DEFTSCP( scrt5_rt_2dvalue_c91906c5_v );
DEFSTRING( t2121, "SCRT5_CURRENT-OUTPUT-PORT-VALUE", 31 );
EXTERNPOINTER( sc_stdout );
DEFTSCP( scrt5_stdin_2dport_v );
DEFSTRING( t2122, "STDIN-PORT", 10 );
DEFTSCP( scrt5_stdout_2dport_v );
DEFSTRING( t2123, "STDOUT-PORT", 11 );
DEFTSCP( scrt5_stderr_2dport_v );
DEFSTRING( t2124, "STDERR-PORT", 11 );
EXTERNPOINTER( sc_stderr );
DEFTSCP( scrt5_current_2dinput_2dport_v );
DEFSTRING( t2125, "CURRENT-INPUT-PORT", 18 );
TSCP scrt5_current_2dinput_2dport( )
{
PUSHSTACKTRACE( U_TX( ADR( t2125 ) ) );
POPSTACKTRACE( scrt5_rt_2dvalue_e3d6f738_v );
}
DEFTSCP( scrt5_current_2doutput_2dport_v );
DEFSTRING( t2127, "CURRENT-OUTPUT-PORT", 19 );
TSCP scrt5_current_2doutput_2dport( )
{
PUSHSTACKTRACE( U_TX( ADR( t2127 ) ) );
POPSTACKTRACE( scrt5_rt_2dvalue_c91906c5_v );
}
DEFTSCP( scrt5_rom_2dfile_73f9e308_v );
DEFSTRING( t2129, "WITH-INPUT-FROM-FILE", 20 );
TSCP scrt5_rom_2dfile_73f9e308( f1144, p1145 )
TSCP f1144, p1145;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2129 ) ) );
X1 = EMPTYLIST;
X2 = scrt5_current_2dinput_2dport( );
X1 = CONS( X1, EMPTYLIST );
if ( AND( EQ( TSCPTAG( p1145 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p1145 ), PROCEDURETAG ) )
) goto L2132;
scrt6_error( c1151,
c1053, CONS( p1145, EMPTYLIST ) );
L2132:
scrt5_rt_2dvalue_e3d6f738_v = scrt5_open_2dfile( f1144, c1058 );
X4 = p1145;
X4 = UNKNOWNCALL( X4, 0 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) );
SETGEN( PAIR_CAR( X1 ), X3 );
scrt5_close_2dport( scrt5_rt_2dvalue_e3d6f738_v );
scrt5_rt_2dvalue_e3d6f738_v = X2;
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt5_dto_2dfile_6f7edfd9_v );
DEFSTRING( t2134, "WITH-OUTPUT-TO-FILE", 19 );
TSCP scrt5_dto_2dfile_6f7edfd9( f1153, p1154 )
TSCP f1153, p1154;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2134 ) ) );
X1 = EMPTYLIST;
X2 = scrt5_current_2doutput_2dport( );
X1 = CONS( X1, EMPTYLIST );
if ( AND( EQ( TSCPTAG( p1154 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( p1154 ), PROCEDURETAG ) )
) goto L2137;
scrt6_error( c1160,
c1053, CONS( p1154, EMPTYLIST ) );
L2137:
scrt5_rt_2dvalue_c91906c5_v = scrt5_open_2dfile( f1153, c1069 );
X4 = p1154;
X4 = UNKNOWNCALL( X4, 0 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) );
SETGEN( PAIR_CAR( X1 ), X3 );
scrt5_close_2dport( scrt5_rt_2dvalue_c91906c5_v );
scrt5_rt_2dvalue_c91906c5_v = X2;
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt5_open_2dinput_2dfile_v );
DEFSTRING( t2139, "OPEN-INPUT-FILE", 15 );
TSCP scrt5_open_2dinput_2dfile( f1162 )
TSCP f1162;
{
PUSHSTACKTRACE( U_TX( ADR( t2139 ) ) );
POPSTACKTRACE( scrt5_open_2dfile( f1162, c1058 ) );
}
DEFTSCP( scrt5_open_2doutput_2dfile_v );
DEFSTRING( t2141, "OPEN-OUTPUT-FILE", 16 );
TSCP scrt5_open_2doutput_2dfile( f1164 )
TSCP f1164;
{
PUSHSTACKTRACE( U_TX( ADR( t2141 ) ) );
POPSTACKTRACE( scrt5_open_2dfile( f1164, c1069 ) );
}
DEFTSCP( scrt5_open_2dfile_v );
DEFSTRING( t2143, "OPEN-FILE", 9 );
EXTERNPOINTERP( fopen );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
EXTERNTSCPP( scrt4_when_2dunreferenced );
EXTERNTSCP( scrt4_when_2dunreferenced_v );
TSCP scrt5_open_2dfile( f1166, t1167 )
TSCP f1166, t1167;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2143 ) ) );
X1 = EMPTYLIST;
X1 = CONS( X1, EMPTYLIST );
if ( AND( EQ( TSCPTAG( f1166 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( f1166 ), STRINGTAG ) )
) goto L2146;
scrt6_error( c1172,
c1173, CONS( f1166, EMPTYLIST ) );
L2146:
X2 = POINTER_TSCP( fopen( TSCP_POINTER( f1166 ),
TSCP_POINTER( t1167 ) ) );
SETGEN( PAIR_CAR( X1 ), X2 );
X2 = PAIR_CAR( X1 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2150;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2154;
goto L2157;
L2150:
if ( FALSE( scrt2_zero_3f( X2 ) ) ) goto L2157;
L2154:
scrt6_error( c1172,
c1184, CONS( f1166, EMPTYLIST ) );
L2157:
X2 = scrt5_make_2dfile_2dport( PAIR_CAR( X1 ), t1167 );
scrt4_when_2dunreferenced( X2, scrt5_close_2dport_v );
POPSTACKTRACE( X2 );
}
DEFTSCP( scrt5_make_2dfile_2dport_v );
DEFSTRING( t2159, "MAKE-FILE-PORT", 14 );
DEFSTRING( t2163, "scrt5_l1212 [inside MAKE-FILE-PORT]", 35 );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( scrt2_remainder );
EXTERNTSCP( scrt2_remainder_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNINTP( fputc );
EXTERNINT( sc_libc_eof );
EXTERNINTP( sc_ferror );
TSCP scrt5_l1212( c1213, c2162 )
TSCP c1213, c2162;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2163 ) ) );
X1 = DISPLAY( 20 );
DISPLAY( 20 ) = CLOSURE_VAR( c2162, 0 );
X2 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2162, 1 );
if ( AND( EQ( TSCPIMMEDIATETAG( c1213 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 8210 ) ),
CHARACTERTAG ) ) ) goto L2166;
X4 = CONS( _TSCP( 8210 ), EMPTYLIST );
scrt6_error( c1220, c1221, CONS( c1213, X4 ) );
L2166:
if ( GTE( INT( c1213 ), INT( _TSCP( 8210 ) ) ) ) goto L2168;
if ( FALSE( scrt1_memq( c1213, c1230 ) ) ) goto L2170;
X4 = _TSCP( 0 );
SETGEN( PAIR_CAR( DISPLAY( 20 ) ), X4 );
goto L2169;
L2170:
if ( NEQ( UNSIGNED( c1213 ),
UNSIGNED( _TSCP( 2322 ) ) ) ) goto L2172;
X7 = PAIR_CAR( DISPLAY( 20 ) );
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 32 ) ) ),
3 ) ) goto L2175;
X6 = _TSCP( REMAINDER( INT( X7 ),
INT( _TSCP( 32 ) ) ) );
goto L2176;
L2175:
X6 = scrt2_remainder( X7, _TSCP( 32 ) );
L2176:
if ( BITAND( BITOR( INT( _TSCP( 32 ) ), INT( X6 ) ),
3 ) ) goto L2178;
X5 = _TSCP( IDIFFERENCE( INT( _TSCP( 32 ) ),
INT( X6 ) ) );
goto L2179;
L2178:
X5 = scrt2__2d_2dtwo( _TSCP( 32 ), X6 );
L2179:
X6 = PAIR_CAR( DISPLAY( 20 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X5 ) ),
3 ) ) goto L2181;
X4 = _TSCP( IPLUS( INT( X6 ), INT( X5 ) ) );
goto L2182;
L2181:
X4 = scrt2__2b_2dtwo( X6, X5 );
L2182:
SETGEN( PAIR_CAR( DISPLAY( 20 ) ), X4 );
goto L2169;
L2172:
X5 = PAIR_CAR( DISPLAY( 20 ) );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2184;
X4 = _TSCP( IPLUS( INT( X5 ), INT( _TSCP( 4 ) ) ) );
goto L2185;
L2184:
X4 = scrt2__2b_2dtwo( X5, _TSCP( 4 ) );
L2185:
SETGEN( PAIR_CAR( DISPLAY( 20 ) ), X4 );
goto L2169;
L2168:
X5 = PAIR_CAR( DISPLAY( 20 ) );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2187;
X4 = _TSCP( IPLUS( INT( X5 ), INT( _TSCP( 4 ) ) ) );
goto L2188;
L2187:
X4 = scrt2__2b_2dtwo( X5, _TSCP( 4 ) );
L2188:
SETGEN( PAIR_CAR( DISPLAY( 20 ) ), X4 );
L2169:
if ( EQ( TSCPIMMEDIATETAG( c1213 ), CHARACTERTAG ) ) goto L2192;
scrt6_error( c1267,
c1268, CONS( c1213, EMPTYLIST ) );
L2192:
X5 = CHAR_FIX( c1213 );
X4 = INT_TSCP( fputc( TSCP_INT( X5 ),
TSCP_POINTER( DISPLAY( 0 ) ) ) );
X5 = INT_TSCP( sc_libc_eof );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( X5 ) ) ) goto L2189;
X3 = scrt6_error( c1269,
c1270,
CONS( INT_TSCP( sc_ferror( TSCP_POINTER( DISPLAY( 0 ) ) ) ),
EMPTYLIST ) );
goto L2190;
L2189:
X3 = FALSEVALUE;
L2190:
DISPLAY( 20 ) = X1;
DISPLAY( 0 ) = X2;
POPSTACKTRACE( X3 );
}
DEFSTRING( t2195, "WRITE-TOKEN [inside MAKE-FILE-PORT]", 35 );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
TSCP scrt5_w1197( t1272, c2194 )
TSCP t1272, c2194;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2195 ) ) );
X1 = DISPLAY( 16 );
DISPLAY( 16 ) = CLOSURE_VAR( c2194, 0 );
if ( NEQ( TSCPIMMEDIATETAG( t1272 ), CHARACTERTAG ) ) goto L2197;
X3 = PAIR_CAR( DISPLAY( 16 ) );
X3 = UNKNOWNCALL( X3, 1 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( t1272,
PROCEDURE_CLOSURE( X3 ) );
goto L2248;
L2197:
X3 = BOOLEAN( EQ( TSCPTAG( t1272 ), PAIRTAG ) );
if ( TRUE( X3 ) ) goto L2203;
if ( EQ( UNSIGNED( t1272 ), UNSIGNED( EMPTYLIST ) ) ) goto L2203;
if ( AND( EQ( TSCPTAG( t1272 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( t1272 ), STRINGTAG ) )
) goto L2207;
scrt6_error( c1329,
c1173, CONS( t1272, EMPTYLIST ) );
L2207:
X4 = C_FIXED( STRING_LENGTH( t1272 ) );
X5 = _TSCP( 0 );
L2211:
if ( BITAND( BITOR( INT( X5 ), INT( X4 ) ),
3 ) ) goto L2213;
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X4 ) ) ) goto L2217;
X2 = FALSEVALUE;
goto L2248;
L2213:
if ( FALSE( scrt2__3d_2dtwo( X5, X4 ) ) ) goto L2217;
X2 = FALSEVALUE;
goto L2248;
L2217:
if ( EQ( TSCPTAG( X5 ), FIXNUMTAG ) ) goto L2223;
scrt6_error( c1307, c1308, CONS( X5, EMPTYLIST ) );
L2223:
X8 = BOOLEAN( LT( INT( X5 ), 0 ) );
if ( TRUE( X8 ) ) goto L2229;
X9 = C_FIXED( STRING_LENGTH( t1272 ) );
if ( BITAND( BITOR( INT( X5 ), INT( X9 ) ),
3 ) ) goto L2233;
if ( GTE( INT( X5 ), INT( X9 ) ) ) goto L2229;
goto L2240;
L2233:
if ( FALSE( scrt2__3e_3d_2dtwo( X5, X9 ) ) ) goto L2240;
L2229:
scrt6_error( c1307, c1330, CONS( X5, EMPTYLIST ) );
L2240:
X7 = C_CHAR( STRING_CHAR( t1272, X5 ) );
X6 = PAIR_CAR( DISPLAY( 16 ) );
X6 = UNKNOWNCALL( X6, 1 );
VIA( PROCEDURE_CODE( X6 ) )( X7, PROCEDURE_CLOSURE( X6 ) );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2241;
X5 = _TSCP( IPLUS( INT( X5 ), INT( _TSCP( 4 ) ) ) );
goto L2211;
L2241:
X5 = scrt2__2b_2dtwo( X5, _TSCP( 4 ) );
goto L2211;
L2203:
X3 = PAIR_CAR( DISPLAY( 16 ) );
X4 = t1272;
L2246:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2247;
X2 = FALSEVALUE;
goto L2248;
L2247:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2251;
scrt1__24__car_2derror( X4 );
L2251:
X6 = PAIR_CAR( X4 );
X5 = X3;
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( X6, PROCEDURE_CLOSURE( X5 ) );
X4 = PAIR_CDR( X4 );
goto L2246;
L2248:
DISPLAY( 16 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2255, "scrt5_l1362 [inside MAKE-FILE-PORT]", 35 );
EXTERNTSCP( scrt5_system_2dfile_2dmask_v );
EXTERNINTP( sc_bufferedchars );
EXTERNTSCPP( scrt5_wait_2dsystem_2dfile );
EXTERNTSCP( scrt5_wait_2dsystem_2dfile_v );
EXTERNINTP( sc_fileno );
EXTERNINTP( fgetc );
EXTERNINTP( sc_feof );
EXTERNINTP( sc_clearerr );
EXTERNTSCP( sc_eofobject );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
TSCP scrt5_l1362( c2254 )
TSCP c2254;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2255 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2254, 0 );
X2 = DISPLAY( 17 );
DISPLAY( 17 ) = CLOSURE_VAR( c2254, 1 );
if ( FALSE( PAIR_CAR( DISPLAY( 17 ) ) ) ) goto L2257;
X4 = PAIR_CAR( DISPLAY( 17 ) );
X5 = FALSEVALUE;
SETGEN( PAIR_CAR( DISPLAY( 17 ) ), X5 );
X3 = X4;
goto L2267;
L2257:
if ( EQ( UNSIGNED( scrt5_system_2dfile_2dmask_v ),
UNSIGNED( _TSCP( 0 ) ) ) ) goto L2263;
X4 = INT_TSCP( sc_bufferedchars( TSCP_POINTER( DISPLAY( 0 ) ) ) );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2263;
X4 = INT_TSCP( sc_fileno( TSCP_POINTER( DISPLAY( 0 ) ) ) );
scrt5_wait_2dsystem_2dfile( X4 );
L2263:
X4 = INT_TSCP( fgetc( TSCP_POINTER( DISPLAY( 0 ) ) ) );
X5 = INT_TSCP( sc_libc_eof );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( X5 ) ) ) goto L2266;
if ( FALSE( INT_TSCP( sc_feof( TSCP_POINTER( DISPLAY( 0 ) ) ) ) )
) goto L2268;
sc_clearerr( TSCP_POINTER( DISPLAY( 0 ) ) );
X3 = sc_eofobject;
goto L2267;
L2268:
X3 = scrt6_error( c1269,
c1407,
CONS( INT_TSCP( sc_ferror( TSCP_POINTER( DISPLAY( 0 ) ) ) ),
EMPTYLIST ) );
goto L2267;
L2266:
X5 = BOOLEAN( NEQ( TSCPTAG( X4 ), FIXNUMTAG ) );
if ( TRUE( X5 ) ) goto L2276;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L2277;
X6 = BOOLEAN( LT( INT( X4 ), INT( _TSCP( 0 ) ) ) );
goto L2278;
L2277:
X6 = scrt2__3c_2dtwo( X4, _TSCP( 0 ) );
L2278:
if ( TRUE( X6 ) ) goto L2276;
if ( BITAND( BITOR( INT( X4 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L2285;
if ( GT( INT( X4 ), INT( _TSCP( 1020 ) ) ) ) goto L2276;
goto L2292;
L2285:
if ( FALSE( scrt2__3e_2dtwo( X4, _TSCP( 1020 ) ) ) ) goto L2292;
L2276:
scrt6_error( c1405, c1406, CONS( X4, EMPTYLIST ) );
L2292:
X3 = FIX_CHAR( X4 );
L2267:
DISPLAY( 0 ) = X1;
DISPLAY( 17 ) = X2;
POPSTACKTRACE( X3 );
}
DEFSTRING( t2294, "PEEK-CHAR [inside MAKE-FILE-PORT]", 33 );
TSCP scrt5_p1199( c2293 )
TSCP c2293;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2294 ) ) );
X1 = DISPLAY( 14 );
DISPLAY( 14 ) = CLOSURE_VAR( c2293, 0 );
X2 = DISPLAY( 17 );
DISPLAY( 17 ) = CLOSURE_VAR( c2293, 1 );
if ( FALSE( PAIR_CAR( DISPLAY( 17 ) ) ) ) goto L2296;
X3 = PAIR_CAR( DISPLAY( 17 ) );
goto L2297;
L2296:
X5 = PAIR_CAR( DISPLAY( 14 ) );
X5 = UNKNOWNCALL( X5, 0 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) );
X3 = SETGEN( PAIR_CAR( DISPLAY( 17 ) ), X4 );
L2297:
DISPLAY( 14 ) = X1;
DISPLAY( 17 ) = X2;
POPSTACKTRACE( X3 );
}
DEFSTRING( t2299, "scrt5_l1412 [inside MAKE-FILE-PORT]", 35 );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
TSCP scrt5_l1412( c2298 )
TSCP c2298;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2299 ) ) );
X1 = DISPLAY( 14 );
DISPLAY( 14 ) = CLOSURE_VAR( c2298, 0 );
X2 = DISPLAY( 18 );
DISPLAY( 18 ) = CLOSURE_VAR( c2298, 1 );
X5 = PAIR_CAR( DISPLAY( 14 ) );
X5 = UNKNOWNCALL( X5, 0 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) );
if ( TRUE( scrt6_eof_2dobject_3f( X4 ) ) ) goto L2302;
X7 = PAIR_CAR( DISPLAY( 18 ) );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2305;
scrt1__24__cdr_2derror( X7 );
L2305:
X6 = PAIR_CDR( X7 );
X6 = UNKNOWNCALL( X6, 1 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( c1138,
PROCEDURE_CLOSURE( X6 ) );
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( X4, PROCEDURE_CLOSURE( X5 ) );
L2302:
X3 = X4;
DISPLAY( 14 ) = X1;
DISPLAY( 18 ) = X2;
POPSTACKTRACE( X3 );
}
DEFSTRING( t2308, "CHAR-READY? [inside MAKE-FILE-PORT]", 35 );
EXTERNINTP( sc_inputchars );
TSCP scrt5_c1201( c2307 )
TSCP c2307;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2308 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2307, 0 );
X2 = DISPLAY( 17 );
DISPLAY( 17 ) = CLOSURE_VAR( c2307, 1 );
if ( FALSE( PAIR_CAR( DISPLAY( 17 ) ) ) ) goto L2310;
X3 = TRUEVALUE;
goto L2311;
L2310:
X4 = INT_TSCP( sc_inputchars( TSCP_POINTER( DISPLAY( 0 ) ) ) );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( _TSCP( 4 ) ) ) );
L2311:
DISPLAY( 0 ) = X1;
DISPLAY( 17 ) = X2;
POPSTACKTRACE( X3 );
}
DEFSTRING( t2313, "CLOSE-PORT [inside MAKE-FILE-PORT]", 34 );
EXTERNINTP( fflush );
EXTERNINTP( fclose );
TSCP scrt5_c1202( c2312 )
TSCP c2312;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2313 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2312, 0 );
fflush( TSCP_POINTER( DISPLAY( 0 ) ) );
X2 = INT_TSCP( fclose( TSCP_POINTER( DISPLAY( 0 ) ) ) );
DISPLAY( 0 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2316, "scrt5_l1428 [inside MAKE-FILE-PORT]", 35 );
TSCP scrt5_l1428( c1429, c2315 )
TSCP c1429, c2315;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2316 ) ) );
X1 = DISPLAY( 16 );
DISPLAY( 16 ) = CLOSURE_VAR( c2315, 0 );
X2 = DISPLAY( 18 );
DISPLAY( 18 ) = CLOSURE_VAR( c2315, 1 );
X4 = PAIR_CAR( DISPLAY( 16 ) );
X4 = UNKNOWNCALL( X4, 1 );
VIA( PROCEDURE_CODE( X4 ) )( c1429,
PROCEDURE_CLOSURE( X4 ) );
X6 = PAIR_CAR( DISPLAY( 18 ) );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2319;
scrt1__24__cdr_2derror( X6 );
L2319:
X5 = PAIR_CDR( X6 );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( c1138,
PROCEDURE_CLOSURE( X5 ) );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( c1429,
PROCEDURE_CLOSURE( X4 ) );
DISPLAY( 16 ) = X1;
DISPLAY( 18 ) = X2;
POPSTACKTRACE( X3 );
}
DEFSTRING( t2322, "WRITE-TOKEN-ECHO [inside MAKE-FILE-PORT]", 40 );
EXTERNTSCPP( scrt5_w1197 );
TSCP scrt5_w1204( t1435, c2321 )
TSCP t1435, c2321;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2322 ) ) );
X1 = DISPLAY( 15 );
DISPLAY( 15 ) = CLOSURE_VAR( c2321, 0 );
X2 = DISPLAY( 18 );
DISPLAY( 18 ) = CLOSURE_VAR( c2321, 1 );
scrt5_w1197( t1435,
PROCEDURE_CLOSURE( PAIR_CAR( DISPLAY( 15 ) ) ) );
X6 = PAIR_CAR( DISPLAY( 18 ) );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2325;
scrt1__24__cdr_2derror( X6 );
L2325:
X5 = PAIR_CDR( X6 );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( c1440,
PROCEDURE_CLOSURE( X5 ) );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( t1435,
PROCEDURE_CLOSURE( X4 ) );
DISPLAY( 15 ) = X1;
DISPLAY( 18 ) = X2;
POPSTACKTRACE( X3 );
}
DEFSTRING( t2328, "WRITE-COUNT [inside MAKE-FILE-PORT]", 35 );
TSCP scrt5_w1205( c2327 )
TSCP c2327;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2328 ) ) );
X1 = DISPLAY( 20 );
DISPLAY( 20 ) = CLOSURE_VAR( c2327, 0 );
X2 = PAIR_CAR( DISPLAY( 20 ) );
DISPLAY( 20 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2331, "WRITE-WIDTH [inside MAKE-FILE-PORT]", 35 );
TSCP scrt5_w1206( c2330 )
TSCP c2330;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2331 ) ) );
X1 = DISPLAY( 19 );
DISPLAY( 19 ) = CLOSURE_VAR( c2330, 0 );
X2 = PAIR_CAR( DISPLAY( 19 ) );
DISPLAY( 19 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2334, "WRITE-WIDTH! [inside MAKE-FILE-PORT]", 36 );
TSCP scrt5_w1207( w1444, c2333 )
TSCP w1444, c2333;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2334 ) ) );
X1 = DISPLAY( 19 );
DISPLAY( 19 ) = CLOSURE_VAR( c2333, 0 );
X3 = w1444;
X2 = SETGEN( PAIR_CAR( DISPLAY( 19 ) ), X3 );
DISPLAY( 19 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2337, "WRITE-FLUSH [inside MAKE-FILE-PORT]", 35 );
TSCP scrt5_w1208( c2336 )
TSCP c2336;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2337 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2336, 0 );
X2 = INT_TSCP( fflush( TSCP_POINTER( DISPLAY( 0 ) ) ) );
DISPLAY( 0 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2340, "ECHO [inside MAKE-FILE-PORT]", 28 );
TSCP scrt5_e1209( c2339 )
TSCP c2339;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2340 ) ) );
X1 = DISPLAY( 18 );
DISPLAY( 18 ) = CLOSURE_VAR( c2339, 0 );
X2 = PAIR_CAR( DISPLAY( 18 ) );
DISPLAY( 18 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2343, "ECHO! [inside MAKE-FILE-PORT]", 29 );
TSCP scrt5_e1210( p1448, c2342 )
TSCP p1448, c2342;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2343 ) ) );
X1 = DISPLAY( 18 );
DISPLAY( 18 ) = CLOSURE_VAR( c2342, 0 );
X3 = p1448;
X2 = SETGEN( PAIR_CAR( DISPLAY( 18 ) ), X3 );
DISPLAY( 18 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2346, "FILE-PORT [inside MAKE-FILE-PORT]", 33 );
TSCP scrt5_f1211( c2345 )
TSCP c2345;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2346 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2345, 0 );
X2 = DISPLAY( 0 );
DISPLAY( 0 ) = X1;
POPSTACKTRACE( X2 );
}
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
DEFSTRING( t2355, "scrt5_l1452 [inside MAKE-FILE-PORT]", 35 );
TSCP scrt5_l1452( m1453, c2354 )
TSCP m1453, c2354;
{
TSCP X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2355 ) ) );
X1 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2354, 0 );
X2 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2354, 1 );
X3 = DISPLAY( 3 );
DISPLAY( 3 ) = CLOSURE_VAR( c2354, 2 );
X4 = DISPLAY( 4 );
DISPLAY( 4 ) = CLOSURE_VAR( c2354, 3 );
X5 = DISPLAY( 7 );
DISPLAY( 7 ) = CLOSURE_VAR( c2354, 4 );
X6 = DISPLAY( 5 );
DISPLAY( 5 ) = CLOSURE_VAR( c2354, 5 );
X7 = DISPLAY( 6 );
DISPLAY( 6 ) = CLOSURE_VAR( c2354, 6 );
X8 = DISPLAY( 15 );
DISPLAY( 15 ) = CLOSURE_VAR( c2354, 7 );
X9 = DISPLAY( 8 );
DISPLAY( 8 ) = CLOSURE_VAR( c2354, 8 );
X10 = DISPLAY( 16 );
DISPLAY( 16 ) = CLOSURE_VAR( c2354, 9 );
X11 = DISPLAY( 9 );
DISPLAY( 9 ) = CLOSURE_VAR( c2354, 10 );
X12 = DISPLAY( 11 );
DISPLAY( 11 ) = CLOSURE_VAR( c2354, 11 );
X13 = DISPLAY( 13 );
DISPLAY( 13 ) = CLOSURE_VAR( c2354, 12 );
X14 = DISPLAY( 14 );
DISPLAY( 14 ) = CLOSURE_VAR( c2354, 13 );
X15 = DISPLAY( 12 );
DISPLAY( 12 ) = CLOSURE_VAR( c2354, 14 );
X16 = DISPLAY( 18 );
DISPLAY( 18 ) = CLOSURE_VAR( c2354, 15 );
X17 = DISPLAY( 10 );
DISPLAY( 10 ) = CLOSURE_VAR( c2354, 16 );
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1459 ) ) ) goto L2357;
X18 = PAIR_CAR( DISPLAY( 10 ) );
goto L2388;
L2357:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1104 ) ) ) goto L2359;
if ( FALSE( PAIR_CAR( DISPLAY( 18 ) ) ) ) goto L2361;
X18 = PAIR_CAR( DISPLAY( 12 ) );
goto L2388;
L2361:
X18 = PAIR_CAR( DISPLAY( 14 ) );
goto L2388;
L2359:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1466 ) ) ) goto L2363;
X18 = PAIR_CAR( DISPLAY( 13 ) );
goto L2388;
L2363:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1470 ) ) ) goto L2365;
X18 = PAIR_CAR( DISPLAY( 11 ) );
goto L2388;
L2365:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1138 ) ) ) goto L2367;
if ( FALSE( PAIR_CAR( DISPLAY( 18 ) ) ) ) goto L2369;
X18 = PAIR_CAR( DISPLAY( 9 ) );
goto L2388;
L2369:
X18 = PAIR_CAR( DISPLAY( 16 ) );
goto L2388;
L2367:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1440 ) ) ) goto L2371;
if ( FALSE( PAIR_CAR( DISPLAY( 18 ) ) ) ) goto L2373;
X18 = PAIR_CAR( DISPLAY( 8 ) );
goto L2388;
L2373:
X18 = PAIR_CAR( DISPLAY( 15 ) );
goto L2388;
L2371:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1480 ) ) ) goto L2375;
X18 = PAIR_CAR( DISPLAY( 6 ) );
goto L2388;
L2375:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1484 ) ) ) goto L2377;
X18 = PAIR_CAR( DISPLAY( 5 ) );
goto L2388;
L2377:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1488 ) ) ) goto L2379;
X18 = PAIR_CAR( DISPLAY( 7 ) );
goto L2388;
L2379:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1492 ) ) ) goto L2381;
X18 = PAIR_CAR( DISPLAY( 4 ) );
goto L2388;
L2381:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1496 ) ) ) goto L2383;
X18 = PAIR_CAR( DISPLAY( 3 ) );
goto L2388;
L2383:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1500 ) ) ) goto L2385;
X18 = PAIR_CAR( DISPLAY( 2 ) );
goto L2388;
L2385:
if ( NEQ( UNSIGNED( m1453 ), UNSIGNED( c1504 ) ) ) goto L2387;
X18 = PAIR_CAR( DISPLAY( 1 ) );
goto L2388;
L2387:
X18 = FALSEVALUE;
L2388:
DISPLAY( 1 ) = X1;
DISPLAY( 2 ) = X2;
DISPLAY( 3 ) = X3;
DISPLAY( 4 ) = X4;
DISPLAY( 7 ) = X5;
DISPLAY( 5 ) = X6;
DISPLAY( 6 ) = X7;
DISPLAY( 15 ) = X8;
DISPLAY( 8 ) = X9;
DISPLAY( 16 ) = X10;
DISPLAY( 9 ) = X11;
DISPLAY( 11 ) = X12;
DISPLAY( 13 ) = X13;
DISPLAY( 14 ) = X14;
DISPLAY( 12 ) = X15;
DISPLAY( 18 ) = X16;
DISPLAY( 10 ) = X17;
POPSTACKTRACE( X18 );
}
TSCP scrt5_make_2dfile_2dport( f1189, t1190 )
TSCP f1189, t1190;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SD3 = DISPLAY( 3 );
TSCP SD4 = DISPLAY( 4 );
TSCP SD5 = DISPLAY( 5 );
TSCP SD6 = DISPLAY( 6 );
TSCP SD7 = DISPLAY( 7 );
TSCP SD8 = DISPLAY( 8 );
TSCP SD9 = DISPLAY( 9 );
TSCP SD10 = DISPLAY( 10 );
TSCP SD11 = DISPLAY( 11 );
TSCP SD12 = DISPLAY( 12 );
TSCP SD13 = DISPLAY( 13 );
TSCP SD14 = DISPLAY( 14 );
TSCP SD15 = DISPLAY( 15 );
TSCP SD16 = DISPLAY( 16 );
TSCP SD17 = DISPLAY( 17 );
TSCP SD18 = DISPLAY( 18 );
TSCP SD19 = DISPLAY( 19 );
TSCP SD20 = DISPLAY( 20 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2159 ) ) );
DISPLAY( 0 ) = f1189;
DISPLAY( 1 ) = _TSCP( 0 );
DISPLAY( 2 ) = _TSCP( 0 );
DISPLAY( 3 ) = _TSCP( 0 );
DISPLAY( 4 ) = _TSCP( 0 );
DISPLAY( 5 ) = _TSCP( 0 );
DISPLAY( 6 ) = _TSCP( 0 );
DISPLAY( 7 ) = _TSCP( 0 );
DISPLAY( 8 ) = _TSCP( 0 );
DISPLAY( 9 ) = _TSCP( 0 );
DISPLAY( 10 ) = _TSCP( 0 );
DISPLAY( 11 ) = _TSCP( 0 );
DISPLAY( 12 ) = _TSCP( 0 );
DISPLAY( 13 ) = _TSCP( 0 );
DISPLAY( 14 ) = _TSCP( 0 );
DISPLAY( 15 ) = _TSCP( 0 );
DISPLAY( 16 ) = _TSCP( 0 );
DISPLAY( 17 ) = FALSEVALUE;
DISPLAY( 18 ) = FALSEVALUE;
DISPLAY( 19 ) = _TSCP( 320 );
DISPLAY( 20 ) = _TSCP( 0 );
DISPLAY( 20 ) = CONS( DISPLAY( 20 ), EMPTYLIST );
DISPLAY( 19 ) = CONS( DISPLAY( 19 ), EMPTYLIST );
DISPLAY( 18 ) = CONS( DISPLAY( 18 ), EMPTYLIST );
DISPLAY( 17 ) = CONS( DISPLAY( 17 ), EMPTYLIST );
DISPLAY( 16 ) = CONS( DISPLAY( 16 ), EMPTYLIST );
DISPLAY( 15 ) = CONS( DISPLAY( 15 ), EMPTYLIST );
DISPLAY( 14 ) = CONS( DISPLAY( 14 ), EMPTYLIST );
DISPLAY( 13 ) = CONS( DISPLAY( 13 ), EMPTYLIST );
DISPLAY( 12 ) = CONS( DISPLAY( 12 ), EMPTYLIST );
DISPLAY( 11 ) = CONS( DISPLAY( 11 ), EMPTYLIST );
DISPLAY( 10 ) = CONS( DISPLAY( 10 ), EMPTYLIST );
DISPLAY( 9 ) = CONS( DISPLAY( 9 ), EMPTYLIST );
DISPLAY( 8 ) = CONS( DISPLAY( 8 ), EMPTYLIST );
DISPLAY( 7 ) = CONS( DISPLAY( 7 ), EMPTYLIST );
DISPLAY( 6 ) = CONS( DISPLAY( 6 ), EMPTYLIST );
DISPLAY( 5 ) = CONS( DISPLAY( 5 ), EMPTYLIST );
DISPLAY( 4 ) = CONS( DISPLAY( 4 ), EMPTYLIST );
DISPLAY( 3 ) = CONS( DISPLAY( 3 ), EMPTYLIST );
DISPLAY( 2 ) = CONS( DISPLAY( 2 ), EMPTYLIST );
DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_l1212,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 20 ),
DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 16 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_w1197,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 16 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 15 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_l1362,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 0 ),
DISPLAY( 17 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 14 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_p1199,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 14 ),
DISPLAY( 17 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 13 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_l1412,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 14 ),
DISPLAY( 18 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 12 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_c1201,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 0 ),
DISPLAY( 17 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 11 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_c1202,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 10 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_l1428,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 16 ),
DISPLAY( 18 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 9 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_w1204,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 15 ),
DISPLAY( 18 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 8 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_w1205,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 20 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 7 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_w1206,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 19 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 6 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_w1207,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 19 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 5 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_w1208,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 4 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_e1209,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 18 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 3 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_e1210,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 18 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 2 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_f1211,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X1 );
if ( FALSE( scrt1_equal_3f( t1190, c1058 ) ) ) goto L2348;
X1 = FALSEVALUE;
SETGEN( PAIR_CAR( DISPLAY( 9 ) ), X1 );
X1 = FALSEVALUE;
SETGEN( PAIR_CAR( DISPLAY( 16 ) ), X1 );
goto L2351;
L2348:
if ( FALSE( scrt1_equal_3f( t1190, c1069 ) ) ) goto L2351;
X1 = FALSEVALUE;
SETGEN( PAIR_CAR( DISPLAY( 12 ) ), X1 );
X1 = FALSEVALUE;
SETGEN( PAIR_CAR( DISPLAY( 14 ) ), X1 );
L2351:
X1 = MAKEPROCEDURE( 1,
0,
scrt5_l1452,
MAKECLOSURE( EMPTYLIST,
17,
DISPLAY( 1 ),
DISPLAY( 2 ),
DISPLAY( 3 ),
DISPLAY( 4 ),
DISPLAY( 7 ),
DISPLAY( 5 ),
DISPLAY( 6 ),
DISPLAY( 15 ),
DISPLAY( 8 ),
DISPLAY( 16 ),
DISPLAY( 9 ),
DISPLAY( 11 ),
DISPLAY( 13 ),
DISPLAY( 14 ),
DISPLAY( 12 ),
DISPLAY( 18 ),
DISPLAY( 10 ) ) );
SDVAL = sc_cons( c1088, X1 );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
DISPLAY( 3 ) = SD3;
DISPLAY( 4 ) = SD4;
DISPLAY( 5 ) = SD5;
DISPLAY( 6 ) = SD6;
DISPLAY( 7 ) = SD7;
DISPLAY( 8 ) = SD8;
DISPLAY( 9 ) = SD9;
DISPLAY( 10 ) = SD10;
DISPLAY( 11 ) = SD11;
DISPLAY( 12 ) = SD12;
DISPLAY( 13 ) = SD13;
DISPLAY( 14 ) = SD14;
DISPLAY( 15 ) = SD15;
DISPLAY( 16 ) = SD16;
DISPLAY( 17 ) = SD17;
DISPLAY( 18 ) = SD18;
DISPLAY( 19 ) = SD19;
DISPLAY( 20 ) = SD20;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( scrt5_open_2dinput_2dstring_v );
DEFSTRING( t2389, "OPEN-INPUT-STRING", 17 );
DEFSTRING( t2396, "READ-CHAR [inside OPEN-INPUT-STRING]", 36 );
TSCP scrt5_r1512( c2395 )
TSCP c2395;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2396 ) ) );
X1 = DISPLAY( 4 );
DISPLAY( 4 ) = CLOSURE_VAR( c2395, 0 );
X2 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2395, 1 );
X3 = DISPLAY( 5 );
DISPLAY( 5 ) = CLOSURE_VAR( c2395, 2 );
X5 = PAIR_CAR( DISPLAY( 4 ) );
X6 = PAIR_CAR( DISPLAY( 5 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X5 ) ),
3 ) ) goto L2400;
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( X5 ) ) ) goto L2404;
X4 = sc_eofobject;
goto L2407;
L2400:
if ( FALSE( scrt2__3d_2dtwo( X6, X5 ) ) ) goto L2404;
X4 = sc_eofobject;
goto L2407;
L2404:
X6 = DISPLAY( 0 );
X7 = PAIR_CAR( DISPLAY( 5 ) );
if ( EQ( TSCPTAG( X7 ), FIXNUMTAG ) ) goto L2409;
scrt6_error( c1307, c1308, CONS( X7, EMPTYLIST ) );
L2409:
X8 = BOOLEAN( LT( INT( X7 ), 0 ) );
if ( TRUE( X8 ) ) goto L2415;
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), STRINGTAG ) ) ) goto L2417;
scrt6_error( c1329, c1173, CONS( X6, EMPTYLIST ) );
L2417:
X9 = C_FIXED( STRING_LENGTH( X6 ) );
if ( BITAND( BITOR( INT( X7 ), INT( X9 ) ),
3 ) ) goto L2421;
if ( GTE( INT( X7 ), INT( X9 ) ) ) goto L2415;
goto L2428;
L2421:
if ( FALSE( scrt2__3e_3d_2dtwo( X7, X9 ) ) ) goto L2428;
L2415:
scrt6_error( c1307, c1330, CONS( X7, EMPTYLIST ) );
L2428:
X5 = C_CHAR( STRING_CHAR( X6, X7 ) );
X7 = PAIR_CAR( DISPLAY( 5 ) );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X7 ) ),
3 ) ) goto L2431;
X6 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X7 ) ) );
goto L2432;
L2431:
X6 = scrt2__2b_2dtwo( _TSCP( 4 ), X7 );
L2432:
SETGEN( PAIR_CAR( DISPLAY( 5 ) ), X6 );
X4 = X5;
L2407:
DISPLAY( 4 ) = X1;
DISPLAY( 0 ) = X2;
DISPLAY( 5 ) = X3;
POPSTACKTRACE( X4 );
}
DEFSTRING( t2434, "PEEK-CHAR [inside OPEN-INPUT-STRING]", 36 );
TSCP scrt5_p1513( c2433 )
TSCP c2433;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2434 ) ) );
X1 = DISPLAY( 4 );
DISPLAY( 4 ) = CLOSURE_VAR( c2433, 0 );
X2 = DISPLAY( 5 );
DISPLAY( 5 ) = CLOSURE_VAR( c2433, 1 );
X3 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2433, 2 );
X5 = PAIR_CAR( DISPLAY( 4 ) );
X6 = PAIR_CAR( DISPLAY( 5 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X5 ) ),
3 ) ) goto L2438;
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( X5 ) ) ) goto L2442;
X4 = sc_eofobject;
goto L2445;
L2438:
if ( FALSE( scrt2__3d_2dtwo( X6, X5 ) ) ) goto L2442;
X4 = sc_eofobject;
goto L2445;
L2442:
X5 = DISPLAY( 0 );
X6 = PAIR_CAR( DISPLAY( 5 ) );
if ( EQ( TSCPTAG( X6 ), FIXNUMTAG ) ) goto L2447;
scrt6_error( c1307, c1308, CONS( X6, EMPTYLIST ) );
L2447:
X7 = BOOLEAN( LT( INT( X6 ), 0 ) );
if ( TRUE( X7 ) ) goto L2453;
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), STRINGTAG ) ) ) goto L2455;
scrt6_error( c1329, c1173, CONS( X5, EMPTYLIST ) );
L2455:
X8 = C_FIXED( STRING_LENGTH( X5 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X8 ) ),
3 ) ) goto L2459;
if ( GTE( INT( X6 ), INT( X8 ) ) ) goto L2453;
goto L2466;
L2459:
if ( FALSE( scrt2__3e_3d_2dtwo( X6, X8 ) ) ) goto L2466;
L2453:
scrt6_error( c1307, c1330, CONS( X6, EMPTYLIST ) );
L2466:
X4 = C_CHAR( STRING_CHAR( X5, X6 ) );
L2445:
DISPLAY( 4 ) = X1;
DISPLAY( 5 ) = X2;
DISPLAY( 0 ) = X3;
POPSTACKTRACE( X4 );
}
DEFSTRING( t2468, "TRUE [inside OPEN-INPUT-STRING]", 31 );
TSCP scrt5_t1514( c2467 )
TSCP c2467;
{
PUSHSTACKTRACE( U_TX( ADR( t2468 ) ) );
POPSTACKTRACE( TRUEVALUE );
}
DEFSTRING( t2471, "scrt5_l1598 [inside OPEN-INPUT-STRING]", 38 );
TSCP scrt5_l1598( m1599, c2470 )
TSCP m1599, c2470;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2471 ) ) );
X1 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2470, 0 );
X2 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2470, 1 );
X3 = DISPLAY( 3 );
DISPLAY( 3 ) = CLOSURE_VAR( c2470, 2 );
if ( NEQ( UNSIGNED( m1599 ), UNSIGNED( c1104 ) ) ) goto L2473;
X4 = PAIR_CAR( DISPLAY( 3 ) );
goto L2480;
L2473:
if ( NEQ( UNSIGNED( m1599 ), UNSIGNED( c1466 ) ) ) goto L2475;
X4 = PAIR_CAR( DISPLAY( 2 ) );
goto L2480;
L2475:
if ( NEQ( UNSIGNED( m1599 ), UNSIGNED( c1470 ) ) ) goto L2477;
X4 = PAIR_CAR( DISPLAY( 1 ) );
goto L2480;
L2477:
if ( NEQ( UNSIGNED( m1599 ), UNSIGNED( c1459 ) ) ) goto L2479;
X4 = PAIR_CAR( DISPLAY( 1 ) );
goto L2480;
L2479:
X4 = FALSEVALUE;
L2480:
DISPLAY( 1 ) = X1;
DISPLAY( 2 ) = X2;
DISPLAY( 3 ) = X3;
POPSTACKTRACE( X4 );
}
TSCP scrt5_open_2dinput_2dstring( s1508 )
TSCP s1508;
{
TSCP X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SD3 = DISPLAY( 3 );
TSCP SD4 = DISPLAY( 4 );
TSCP SD5 = DISPLAY( 5 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2389 ) ) );
DISPLAY( 0 ) = s1508;
DISPLAY( 1 ) = _TSCP( 0 );
DISPLAY( 2 ) = _TSCP( 0 );
DISPLAY( 3 ) = _TSCP( 0 );
DISPLAY( 4 ) = _TSCP( 0 );
DISPLAY( 5 ) = _TSCP( 0 );
DISPLAY( 5 ) = CONS( DISPLAY( 5 ), EMPTYLIST );
DISPLAY( 4 ) = CONS( DISPLAY( 4 ), EMPTYLIST );
DISPLAY( 3 ) = CONS( DISPLAY( 3 ), EMPTYLIST );
DISPLAY( 2 ) = CONS( DISPLAY( 2 ), EMPTYLIST );
DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
X2 = DISPLAY( 0 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L2393;
scrt6_error( c1329, c1173, CONS( X2, EMPTYLIST ) );
L2393:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
SETGEN( PAIR_CAR( DISPLAY( 4 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_r1512,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 4 ),
DISPLAY( 0 ),
DISPLAY( 5 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 3 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_p1513,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 4 ),
DISPLAY( 5 ),
DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 2 ) ), X1 );
X1 = MAKEPROCEDURE( 0, 0, scrt5_t1514, EMPTYLIST );
SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_l1598,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 1 ),
DISPLAY( 2 ),
DISPLAY( 3 ) ) );
SDVAL = sc_cons( c1088, X1 );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
DISPLAY( 3 ) = SD3;
DISPLAY( 4 ) = SD4;
DISPLAY( 5 ) = SD5;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( scrt5_open_2doutput_2dstring_v );
DEFSTRING( t2481, "OPEN-OUTPUT-STRING", 18 );
DEFSTRING( t2485, "WRITE-TOKEN [inside OPEN-OUTPUT-STRING]", 39 );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNTSCPP( scrt3_string_2d_3elist );
EXTERNTSCP( scrt3_string_2d_3elist_v );
TSCP scrt5_w1619( t1626, c2484 )
TSCP t1626, c2484;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2485 ) ) );
X1 = DISPLAY( 7 );
DISPLAY( 7 ) = CLOSURE_VAR( c2484, 0 );
if ( NEQ( TSCPIMMEDIATETAG( t1626 ), CHARACTERTAG ) ) goto L2487;
X3 = sc_cons( t1626, PAIR_CAR( DISPLAY( 7 ) ) );
X2 = SETGEN( PAIR_CAR( DISPLAY( 7 ) ), X3 );
goto L2496;
L2487:
X3 = BOOLEAN( EQ( TSCPTAG( t1626 ), PAIRTAG ) );
if ( TRUE( X3 ) ) goto L2493;
if ( EQ( UNSIGNED( t1626 ), UNSIGNED( EMPTYLIST ) ) ) goto L2493;
X6 = scrt3_string_2d_3elist( t1626 );
X5 = scrt1_reverse( X6 );
X4 = scrt1_append_2dtwo( X5,
PAIR_CAR( DISPLAY( 7 ) ) );
X2 = SETGEN( PAIR_CAR( DISPLAY( 7 ) ), X4 );
goto L2496;
L2493:
X4 = scrt1_reverse( t1626 );
X3 = scrt1_append_2dtwo( X4,
PAIR_CAR( DISPLAY( 7 ) ) );
X2 = SETGEN( PAIR_CAR( DISPLAY( 7 ) ), X3 );
L2496:
DISPLAY( 7 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2498,
"GET-OUTPUT-STRING [inside OPEN-OUTPUT-STRING]", 45 );
EXTERNTSCPP( scrt3_list_2d_3estring );
EXTERNTSCP( scrt3_list_2d_3estring_v );
TSCP scrt5_g1620( c2497 )
TSCP c2497;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2498 ) ) );
X1 = DISPLAY( 7 );
DISPLAY( 7 ) = CLOSURE_VAR( c2497, 0 );
X4 = scrt1_reverse( PAIR_CAR( DISPLAY( 7 ) ) );
X3 = scrt3_list_2d_3estring( X4 );
X4 = EMPTYLIST;
SETGEN( PAIR_CAR( DISPLAY( 7 ) ), X4 );
X2 = X3;
DISPLAY( 7 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2502, "WRITE-CHAR [inside OPEN-OUTPUT-STRING]", 38 );
TSCP scrt5_w1621( c1644, c2501 )
TSCP c1644, c2501;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2502 ) ) );
X1 = DISPLAY( 7 );
DISPLAY( 7 ) = CLOSURE_VAR( c2501, 0 );
X3 = sc_cons( c1644, PAIR_CAR( DISPLAY( 7 ) ) );
X2 = SETGEN( PAIR_CAR( DISPLAY( 7 ) ), X3 );
DISPLAY( 7 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2505, "WRITE-WIDTH [inside OPEN-OUTPUT-STRING]", 39 );
TSCP scrt5_w1622( c2504 )
TSCP c2504;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2505 ) ) );
X1 = DISPLAY( 6 );
DISPLAY( 6 ) = CLOSURE_VAR( c2504, 0 );
X2 = PAIR_CAR( DISPLAY( 6 ) );
DISPLAY( 6 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2508, "WRITE-WIDTH! [inside OPEN-OUTPUT-STRING]", 40 );
TSCP scrt5_w1623( w1647, c2507 )
TSCP w1647, c2507;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2508 ) ) );
X1 = DISPLAY( 6 );
DISPLAY( 6 ) = CLOSURE_VAR( c2507, 0 );
X3 = w1647;
X2 = SETGEN( PAIR_CAR( DISPLAY( 6 ) ), X3 );
DISPLAY( 6 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2511, "WRITE-COUNT [inside OPEN-OUTPUT-STRING]", 39 );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
TSCP scrt5_w1624( c2510 )
TSCP c2510;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2511 ) ) );
X1 = DISPLAY( 7 );
DISPLAY( 7 ) = CLOSURE_VAR( c2510, 0 );
X2 = scrt1_length( PAIR_CAR( DISPLAY( 7 ) ) );
DISPLAY( 7 ) = X1;
POPSTACKTRACE( X2 );
}
DEFSTRING( t2514, "scrt5_l1649 [inside OPEN-OUTPUT-STRING]", 39 );
TSCP scrt5_l1649( m1650, c2513 )
TSCP m1650, c2513;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2514 ) ) );
X1 = DISPLAY( 4 );
DISPLAY( 4 ) = CLOSURE_VAR( c2513, 0 );
X2 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2513, 1 );
X3 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2513, 2 );
X4 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2513, 3 );
X5 = DISPLAY( 3 );
DISPLAY( 3 ) = CLOSURE_VAR( c2513, 4 );
X6 = DISPLAY( 5 );
DISPLAY( 5 ) = CLOSURE_VAR( c2513, 5 );
if ( NEQ( UNSIGNED( m1650 ), UNSIGNED( c1440 ) ) ) goto L2516;
X7 = PAIR_CAR( DISPLAY( 5 ) );
goto L2527;
L2516:
if ( NEQ( UNSIGNED( m1650 ), UNSIGNED( c1138 ) ) ) goto L2518;
X7 = PAIR_CAR( DISPLAY( 3 ) );
goto L2527;
L2518:
if ( NEQ( UNSIGNED( m1650 ), UNSIGNED( c1480 ) ) ) goto L2520;
X7 = PAIR_CAR( DISPLAY( 2 ) );
goto L2527;
L2520:
if ( NEQ( UNSIGNED( m1650 ), UNSIGNED( c1484 ) ) ) goto L2522;
X7 = PAIR_CAR( DISPLAY( 1 ) );
goto L2527;
L2522:
if ( NEQ( UNSIGNED( m1650 ), UNSIGNED( c1488 ) ) ) goto L2524;
X7 = PAIR_CAR( DISPLAY( 0 ) );
goto L2527;
L2524:
if ( NEQ( UNSIGNED( m1650 ), UNSIGNED( c1671 ) ) ) goto L2526;
X7 = PAIR_CAR( DISPLAY( 4 ) );
goto L2527;
L2526:
X7 = FALSEVALUE;
L2527:
DISPLAY( 4 ) = X1;
DISPLAY( 0 ) = X2;
DISPLAY( 1 ) = X3;
DISPLAY( 2 ) = X4;
DISPLAY( 3 ) = X5;
DISPLAY( 5 ) = X6;
POPSTACKTRACE( X7 );
}
TSCP scrt5_open_2doutput_2dstring( )
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SD3 = DISPLAY( 3 );
TSCP SD4 = DISPLAY( 4 );
TSCP SD5 = DISPLAY( 5 );
TSCP SD6 = DISPLAY( 6 );
TSCP SD7 = DISPLAY( 7 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2481 ) ) );
DISPLAY( 0 ) = _TSCP( 0 );
DISPLAY( 1 ) = _TSCP( 0 );
DISPLAY( 2 ) = _TSCP( 0 );
DISPLAY( 3 ) = _TSCP( 0 );
DISPLAY( 4 ) = _TSCP( 0 );
DISPLAY( 5 ) = _TSCP( 0 );
DISPLAY( 6 ) = _TSCP( 320 );
DISPLAY( 7 ) = EMPTYLIST;
DISPLAY( 7 ) = CONS( DISPLAY( 7 ), EMPTYLIST );
DISPLAY( 6 ) = CONS( DISPLAY( 6 ), EMPTYLIST );
DISPLAY( 5 ) = CONS( DISPLAY( 5 ), EMPTYLIST );
DISPLAY( 4 ) = CONS( DISPLAY( 4 ), EMPTYLIST );
DISPLAY( 3 ) = CONS( DISPLAY( 3 ), EMPTYLIST );
DISPLAY( 2 ) = CONS( DISPLAY( 2 ), EMPTYLIST );
DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
DISPLAY( 0 ) = CONS( DISPLAY( 0 ), EMPTYLIST );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_w1619,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 7 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 5 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_g1620,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 7 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 4 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_w1621,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 7 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 3 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_w1622,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 6 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 2 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_w1623,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 6 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X1 );
X1 = MAKEPROCEDURE( 0,
0,
scrt5_w1624,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 7 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X1 );
X1 = MAKEPROCEDURE( 1,
0,
scrt5_l1649,
MAKECLOSURE( EMPTYLIST,
6,
DISPLAY( 4 ),
DISPLAY( 0 ),
DISPLAY( 1 ),
DISPLAY( 2 ),
DISPLAY( 3 ),
DISPLAY( 5 ) ) );
SDVAL = sc_cons( c1088, X1 );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
DISPLAY( 3 ) = SD3;
DISPLAY( 4 ) = SD4;
DISPLAY( 5 ) = SD5;
DISPLAY( 6 ) = SD6;
DISPLAY( 7 ) = SD7;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( scrt5_close_2dinput_2dport_v );
DEFSTRING( t2528, "CLOSE-INPUT-PORT", 16 );
TSCP scrt5_close_2dinput_2dport( p1673 )
TSCP p1673;
{
PUSHSTACKTRACE( U_TX( ADR( t2528 ) ) );
POPSTACKTRACE( scrt5_close_2dport( p1673 ) );
}
DEFTSCP( scrt5_close_2doutput_2dport_v );
DEFSTRING( t2530, "CLOSE-OUTPUT-PORT", 17 );
TSCP scrt5_close_2doutput_2dport( p1675 )
TSCP p1675;
{
PUSHSTACKTRACE( U_TX( ADR( t2530 ) ) );
POPSTACKTRACE( scrt5_close_2dport( p1675 ) );
}
DEFTSCP( scrt5_close_2dport_v );
DEFSTRING( t2532, "CLOSE-PORT", 10 );
TSCP scrt5_close_2dport( p1677 )
TSCP p1677;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2532 ) ) );
if ( TRUE( scrt5_input_2dport_3f( p1677 ) ) ) goto L2536;
if ( TRUE( scrt5_output_2dport_3f( p1677 ) ) ) goto L2536;
scrt6_error( c1459,
c1682, CONS( p1677, EMPTYLIST ) );
L2536:
scrt4_when_2dunreferenced( p1677, FALSEVALUE );
if ( EQ( TSCPTAG( p1677 ), PAIRTAG ) ) goto L2539;
scrt1__24__cdr_2derror( p1677 );
L2539:
X2 = PAIR_CDR( p1677 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1459,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt5_system_2dtasking_v );
DEFSTRING( t2541, "SCRT5_SYSTEM-TASKING", 20 );
DEFTSCP( scrt5_system_2dfile_2dmask_v );
DEFSTRING( t2542, "SCRT5_SYSTEM-FILE-MASK", 22 );
DEFTSCP( scrt5_max_2dsystem_2dfile_v );
DEFSTRING( t2543, "SCRT5_MAX-SYSTEM-FILE", 21 );
DEFTSCP( scrt5_system_2dfile_2dtask_v );
DEFSTRING( t2544, "SCRT5_SYSTEM-FILE-TASK", 22 );
DEFTSCP( scrt5_idle_2dtasks_v );
DEFSTRING( t2545, "SCRT5_IDLE-TASKS", 16 );
EXTERNTSCPP( sc_make_2dvector );
EXTERNTSCP( sc_make_2dvector_v );
DEFTSCP( scrt5_file_2dtasks_v );
DEFSTRING( t2546, "SCRT5_FILE-TASKS", 16 );
DEFTSCP( scrt5_ile_2dtask_1a564c93_v );
DEFSTRING( t2547, "DEFINE-SYSTEM-FILE-TASK", 23 );
EXTERNTSCPP( scrt4_bit_2dor );
EXTERNTSCP( scrt4_bit_2dor_v );
EXTERNTSCPP( scrt4_bit_2dlsh );
EXTERNTSCP( scrt4_bit_2dlsh_v );
TSCP scrt5_ile_2dtask_1a564c93( f1695, i1696, f1697 )
TSCP f1695, i1696, f1697;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2547 ) ) );
X1 = scrt5_idle_2dtasks_v;
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L2550;
scrt6_error( c1704, c1705, CONS( X1, EMPTYLIST ) );
L2550:
if ( EQ( TSCPTAG( f1695 ), FIXNUMTAG ) ) goto L2552;
scrt6_error( c1704,
c1308, CONS( f1695, EMPTYLIST ) );
L2552:
if ( LT( UNSIGNED( FIXED_C( f1695 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L2554;
scrt6_error( c1704,
c1711, CONS( f1695, EMPTYLIST ) );
L2554:
SETGEN( VECTOR_ELEMENT( X1, f1695 ), i1696 );
X1 = scrt5_file_2dtasks_v;
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L2557;
scrt6_error( c1704, c1705, CONS( X1, EMPTYLIST ) );
L2557:
if ( LT( UNSIGNED( FIXED_C( f1695 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L2559;
scrt6_error( c1704,
c1711, CONS( f1695, EMPTYLIST ) );
L2559:
SETGEN( VECTOR_ELEMENT( X1, f1695 ), f1697 );
scrt5_system_2dfile_2dmask_v = _TSCP( 0 );
scrt5_max_2dsystem_2dfile_v = _TSCP( -4 );
X1 = _TSCP( 0 );
L2562:
if ( BITAND( BITOR( INT( X1 ),
INT( _TSCP( 128 ) ) ),
3 ) ) goto L2564;
if ( NEQ( UNSIGNED( X1 ),
UNSIGNED( _TSCP( 128 ) ) ) ) goto L2568;
goto L2571;
L2564:
if ( TRUE( scrt2__3d_2dtwo( X1, _TSCP( 128 ) ) ) ) goto L2571;
L2568:
X2 = scrt5_file_2dtasks_v;
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), VECTORTAG ) ) ) goto L2574;
scrt6_error( c1742, c1705, CONS( X2, EMPTYLIST ) );
L2574:
if ( EQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L2576;
scrt6_error( c1742, c1308, CONS( X1, EMPTYLIST ) );
L2576:
if ( LT( UNSIGNED( FIXED_C( X1 ) ),
UNSIGNED( VECTOR_LENGTH( X2 ) ) ) ) goto L2578;
scrt6_error( c1742, c1711, CONS( X1, EMPTYLIST ) );
L2578:
if ( FALSE( VECTOR_ELEMENT( X2, X1 ) ) ) goto L2580;
scrt5_max_2dsystem_2dfile_v = X1;
scrt5_system_2dfile_2dmask_v = scrt4_bit_2dor( scrt5_system_2dfile_2dmask_v,
CONS( scrt4_bit_2dlsh( _TSCP( 4 ),
X1 ),
EMPTYLIST ) );
L2580:
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X1 ) ),
3 ) ) goto L2583;
X1 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X1 ) ) );
goto L2562;
L2583:
X1 = scrt2__2b_2dtwo( _TSCP( 4 ), X1 );
goto L2562;
L2571:
POPSTACKTRACE( f1695 );
}
DEFTSCP( scrt5_wait_2dsystem_2dfile_v );
DEFSTRING( t2585, "WAIT-SYSTEM-FILE", 16 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt6_flush_2dbuffer );
EXTERNTSCP( scrt6_flush_2dbuffer_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
EXTERNTSCPP( scrt2_max_2dtwo );
EXTERNTSCP( scrt2_max_2dtwo_v );
EXTERNINTP( select );
EXTERNINT( errno );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
EXTERNTSCPP( scrt4_bit_2dand );
EXTERNTSCP( scrt4_bit_2dand_v );
TSCP scrt5_wait_2dsystem_2dfile( f1756 )
TSCP f1756;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2585 ) ) );
L2586:
if ( EQ( UNSIGNED( scrt5_system_2dfile_2dmask_v ),
UNSIGNED( _TSCP( 0 ) ) ) ) goto L2587;
if ( FALSE( scrt5_system_2dtasking_v ) ) goto L2589;
X1 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
if ( NEQ( UNSIGNED( f1756 ),
UNSIGNED( _TSCP( 0 ) ) ) ) goto L2592;
scrt6_flush_2dbuffer( CONS( scrt5_stdout_2dport_v, EMPTYLIST ) );
L2592:
X2 = _TSCP( 0 );
L2595:
X3 = scrt5_max_2dsystem_2dfile_v;
if ( BITAND( BITOR( INT( X2 ), INT( X3 ) ),
3 ) ) goto L2598;
if ( LTE( INT( X2 ), INT( X3 ) ) ) goto L2602;
goto L2605;
L2598:
if ( TRUE( scrt2__3e_2dtwo( X2, X3 ) ) ) goto L2605;
L2602:
X3 = scrt5_idle_2dtasks_v;
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L2608;
scrt6_error( c1742, c1705, CONS( X3, EMPTYLIST ) );
L2608:
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2610;
scrt6_error( c1742, c1308, CONS( X2, EMPTYLIST ) );
L2610:
if ( LT( UNSIGNED( FIXED_C( X2 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L2612;
scrt6_error( c1742, c1711, CONS( X2, EMPTYLIST ) );
L2612:
if ( FALSE( VECTOR_ELEMENT( X3, X2 ) ) ) goto L2614;
X5 = scrt5_idle_2dtasks_v;
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), VECTORTAG ) ) ) goto L2617;
scrt6_error( c1742, c1705, CONS( X5, EMPTYLIST ) );
L2617:
if ( LT( UNSIGNED( FIXED_C( X2 ) ),
UNSIGNED( VECTOR_LENGTH( X5 ) ) ) ) goto L2619;
scrt6_error( c1742, c1711, CONS( X2, EMPTYLIST ) );
L2619:
X4 = VECTOR_ELEMENT( X5, X2 );
X4 = UNKNOWNCALL( X4, 0 );
VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) );
L2614:
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2621;
X2 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L2595;
L2621:
X2 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
goto L2595;
L2605:
if ( FALSE( f1756 ) ) goto L2623;
X4 = scrt4_bit_2dlsh( _TSCP( 4 ), f1756 );
goto L2624;
L2623:
X4 = _TSCP( 0 );
L2624:
X2 = scrt4_bit_2dor( scrt5_system_2dfile_2dmask_v,
CONS( X4, EMPTYLIST ) );
scrt4_c_2dunsigned_2dset_21( X1, _TSCP( 0 ), X2 );
if ( FALSE( f1756 ) ) goto L2627;
X5 = f1756;
goto L2628;
L2627:
X5 = _TSCP( 0 );
L2628:
X6 = scrt5_max_2dsystem_2dfile_v;
if ( BITAND( BITOR( INT( X6 ), INT( X5 ) ),
3 ) ) goto L2630;
if ( LTE( INT( X6 ), INT( X5 ) ) ) goto L2632;
X4 = X6;
goto L2631;
L2632:
X4 = X5;
goto L2631;
L2630:
X4 = scrt2_max_2dtwo( X6, X5 );
L2631:
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2635;
X3 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
goto L2636;
L2635:
X3 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
L2636:
X2 = INT_TSCP( select( TSCP_INT( X3 ),
TSCP_POINTER( X1 ),
TSCP_POINTER( _TSCP( 0 ) ),
TSCP_POINTER( _TSCP( 0 ) ),
TSCP_POINTER( _TSCP( 0 ) ) ) );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L2638;
X2 = INT_TSCP( errno );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 16 ) ) ) ) goto L2637;
scrt5_wait_2dsystem_2dfile( f1756 );
goto L2638;
L2637:
scrt6_error( c1827,
c1828,
CONS( INT_TSCP( errno ), EMPTYLIST ) );
L2638:
X2 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
X3 = _TSCP( 0 );
X4 = _TSCP( 4 );
L2641:
X5 = scrt5_max_2dsystem_2dfile_v;
if ( BITAND( BITOR( INT( X3 ), INT( X5 ) ),
3 ) ) goto L2644;
if ( LTE( INT( X3 ), INT( X5 ) ) ) goto L2648;
goto L2651;
L2644:
if ( TRUE( scrt2__3e_2dtwo( X3, X5 ) ) ) goto L2651;
L2648:
X5 = scrt4_bit_2dand( X4, CONS( X2, EMPTYLIST ) );
if ( EQ( UNSIGNED( _TSCP( 0 ) ), UNSIGNED( X5 ) ) ) goto L2663;
X6 = scrt5_file_2dtasks_v;
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), VECTORTAG ) ) ) goto L2656;
scrt6_error( c1742, c1705, CONS( X6, EMPTYLIST ) );
L2656:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2658;
scrt6_error( c1742, c1308, CONS( X3, EMPTYLIST ) );
L2658:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( X6 ) ) ) ) goto L2660;
scrt6_error( c1742, c1711, CONS( X3, EMPTYLIST ) );
L2660:
X5 = VECTOR_ELEMENT( X6, X3 );
if ( FALSE( X5 ) ) goto L2663;
scrt5_system_2dfile_2dtask_v = X3;
X6 = X5;
X6 = UNKNOWNCALL( X6, 0 );
VIA( PROCEDURE_CODE( X6 ) )( PROCEDURE_CLOSURE( X6 ) );
L2663:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2666;
X5 = _TSCP( IPLUS( INT( X3 ), INT( _TSCP( 4 ) ) ) );
goto L2667;
L2666:
X5 = scrt2__2b_2dtwo( X3, _TSCP( 4 ) );
L2667:
X4 = scrt4_bit_2dlsh( X4, _TSCP( 4 ) );
X3 = X5;
goto L2641;
L2651:
scrt5_system_2dfile_2dtask_v = FALSEVALUE;
if ( FALSE( f1756 ) ) goto L2668;
X3 = FALSEVALUE;
goto L2669;
L2668:
X3 = TRUEVALUE;
L2669:
if ( TRUE( X3 ) ) goto L2586;
X4 = scrt4_bit_2dand( X2,
CONS( scrt4_bit_2dlsh( _TSCP( 4 ), f1756 ),
EMPTYLIST ) );
if ( NEQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L2677;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2586;
POPSTACKTRACE( FALSEVALUE );
L2677:
if ( TRUE( scrt2_zero_3f( X4 ) ) ) goto L2586;
POPSTACKTRACE( FALSEVALUE );
L2589:
POPSTACKTRACE( FALSEVALUE );
L2587:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt5_le_2dtasks_f7f1ba87_v );
DEFSTRING( t2684, "ENABLE-SYSTEM-FILE-TASKS", 24 );
TSCP scrt5_le_2dtasks_f7f1ba87( e1879 )
TSCP e1879;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2684 ) ) );
X1 = scrt5_system_2dtasking_v;
if ( FALSE( e1879 ) ) goto L2687;
X2 = TRUEVALUE;
goto L2688;
L2687:
X2 = FALSEVALUE;
L2688:
scrt5_system_2dtasking_v = X2;
if ( NEQ( UNSIGNED( e1879 ), UNSIGNED( c1885 ) ) ) goto L2689;
scrt5_wait_2dsystem_2dfile( FALSEVALUE );
L2689:
POPSTACKTRACE( X1 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt1__init();
scrt4__init();
scrt2__init();
scrt6__init();
MAXDISPLAY( 21 );
}
void scrt5__init()
{
TSCP X1;
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scrt5 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2082 ) ),
ADR( scrt5_put_2dfile_36807e3e_v ),
MAKEPROCEDURE( 2,
0,
scrt5_put_2dfile_36807e3e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2088 ) ),
ADR( scrt5_put_2dfile_16bb0f3_v ),
MAKEPROCEDURE( 2,
0,
scrt5_put_2dfile_16bb0f3,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2094 ) ),
ADR( scrt5_input_2dport_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt5_input_2dport_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2107 ) ),
ADR( scrt5_output_2dport_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt5_output_2dport_3f,
EMPTYLIST ) );
X1 = POINTER_TSCP( sc_stdin );
INITIALIZEVAR( U_TX( ADR( t2120 ) ),
ADR( scrt5_rt_2dvalue_e3d6f738_v ),
scrt5_make_2dfile_2dport( X1, c1058 ) );
X1 = POINTER_TSCP( sc_stdout );
INITIALIZEVAR( U_TX( ADR( t2121 ) ),
ADR( scrt5_rt_2dvalue_c91906c5_v ),
scrt5_make_2dfile_2dport( X1, c1069 ) );
INITIALIZEVAR( U_TX( ADR( t2122 ) ),
ADR( scrt5_stdin_2dport_v ),
scrt5_rt_2dvalue_e3d6f738_v );
INITIALIZEVAR( U_TX( ADR( t2123 ) ),
ADR( scrt5_stdout_2dport_v ),
scrt5_rt_2dvalue_c91906c5_v );
X1 = POINTER_TSCP( sc_stderr );
INITIALIZEVAR( U_TX( ADR( t2124 ) ),
ADR( scrt5_stderr_2dport_v ),
scrt5_make_2dfile_2dport( X1, c1069 ) );
INITIALIZEVAR( U_TX( ADR( t2125 ) ),
ADR( scrt5_current_2dinput_2dport_v ),
MAKEPROCEDURE( 0,
0,
scrt5_current_2dinput_2dport,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2127 ) ),
ADR( scrt5_current_2doutput_2dport_v ),
MAKEPROCEDURE( 0,
0,
scrt5_current_2doutput_2dport,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2129 ) ),
ADR( scrt5_rom_2dfile_73f9e308_v ),
MAKEPROCEDURE( 2,
0,
scrt5_rom_2dfile_73f9e308,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2134 ) ),
ADR( scrt5_dto_2dfile_6f7edfd9_v ),
MAKEPROCEDURE( 2,
0,
scrt5_dto_2dfile_6f7edfd9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2139 ) ),
ADR( scrt5_open_2dinput_2dfile_v ),
MAKEPROCEDURE( 1,
0,
scrt5_open_2dinput_2dfile,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2141 ) ),
ADR( scrt5_open_2doutput_2dfile_v ),
MAKEPROCEDURE( 1,
0,
scrt5_open_2doutput_2dfile,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2143 ) ),
ADR( scrt5_open_2dfile_v ),
MAKEPROCEDURE( 2,
0,
scrt5_open_2dfile, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2159 ) ),
ADR( scrt5_make_2dfile_2dport_v ),
MAKEPROCEDURE( 2,
0,
scrt5_make_2dfile_2dport,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2389 ) ),
ADR( scrt5_open_2dinput_2dstring_v ),
MAKEPROCEDURE( 1,
0,
scrt5_open_2dinput_2dstring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2481 ) ),
ADR( scrt5_open_2doutput_2dstring_v ),
MAKEPROCEDURE( 0,
0,
scrt5_open_2doutput_2dstring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2528 ) ),
ADR( scrt5_close_2dinput_2dport_v ),
MAKEPROCEDURE( 1,
0,
scrt5_close_2dinput_2dport,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2530 ) ),
ADR( scrt5_close_2doutput_2dport_v ),
MAKEPROCEDURE( 1,
0,
scrt5_close_2doutput_2dport,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2532 ) ),
ADR( scrt5_close_2dport_v ),
MAKEPROCEDURE( 1,
0,
scrt5_close_2dport, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2541 ) ),
ADR( scrt5_system_2dtasking_v ),
TRUEVALUE );
INITIALIZEVAR( U_TX( ADR( t2542 ) ),
ADR( scrt5_system_2dfile_2dmask_v ),
_TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t2543 ) ),
ADR( scrt5_max_2dsystem_2dfile_v ),
_TSCP( -4 ) );
INITIALIZEVAR( U_TX( ADR( t2544 ) ),
ADR( scrt5_system_2dfile_2dtask_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t2545 ) ),
ADR( scrt5_idle_2dtasks_v ),
sc_make_2dvector( _TSCP( 128 ),
CONS( FALSEVALUE, EMPTYLIST ) ) );
INITIALIZEVAR( U_TX( ADR( t2546 ) ),
ADR( scrt5_file_2dtasks_v ),
sc_make_2dvector( _TSCP( 128 ),
CONS( FALSEVALUE, EMPTYLIST ) ) );
INITIALIZEVAR( U_TX( ADR( t2547 ) ),
ADR( scrt5_ile_2dtask_1a564c93_v ),
MAKEPROCEDURE( 3,
0,
scrt5_ile_2dtask_1a564c93,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2585 ) ),
ADR( scrt5_wait_2dsystem_2dfile_v ),
MAKEPROCEDURE( 1,
0,
scrt5_wait_2dsystem_2dfile,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2684 ) ),
ADR( scrt5_le_2dtasks_f7f1ba87_v ),
MAKEPROCEDURE( 1,
0,
scrt5_le_2dtasks_f7f1ba87,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.