This is screp.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1273, "~s form ignored~%", 17 );
DEFSTATICTSCP2( c1239, t1273 );
DEFSTRING( t1274, "~s~%", 4 );
DEFSTATICTSCP2( c1237, t1274 );
DEFSTATICTSCP( c1235 );
DEFSTRING( t1276, "INCLUDE", 7 );
DEFSTATICTSCP( t1275 );
DEFSTRING( t1278, "MODULE", 6 );
DEFSTATICTSCP( t1277 );
DEFSTRING( t1279, "~a~%", 4 );
DEFSTATICTSCP2( c1187, t1279 );
DEFSTRING( t1280, "Bad argument to system call", 27 );
DEFSTATICTSCP2( c1180, t1280 );
DEFSTRING( t1281, "Segment violation", 17 );
DEFSTATICTSCP2( c1176, t1281 );
DEFSTRING( t1282, "Bus error", 9 );
DEFSTATICTSCP2( c1172, t1282 );
DEFSTRING( t1283, "????", 4 );
DEFSTATICTSCP( c1171 );
DEFSTRING( t1284, "-emacs", 6 );
DEFSTATICTSCP2( c1164, t1284 );
DEFSTRING( t1285, "RESULT", 6 );
DEFSTATICTSCP( c1148 );
DEFSTRING( t1286, "LOAD", 4 );
DEFSTATICTSCP( c1135 );
DEFSTRING( t1287, "ENV", 3 );
DEFSTATICTSCP( c1134 );
DEFSTRING( t1288, "HEADER", 6 );
DEFSTATICTSCP( c1121 );
DEFSTRING( t1289, "Equipment Corporation", 21 );
DEFSTATICTSCP2( c1110, t1289 );
DEFSTRING( t1290, "Copyright 1989 Digital", 22 );
DEFSTATICTSCP2( c1109, t1290 );
DEFSTRING( t1291, "~a -- ~a -- ~a ~a", 17 );
DEFSTATICTSCP2( c1094, t1291 );
DEFSTRING( t1292, "-nh", 3 );
DEFSTATICTSCP2( c1093, t1292 );
DEFSTRING( t1293, "PROMPT", 6 );
DEFSTATICTSCP( c1090 );
DEFSTRING( t1294, "> ", 2 );
DEFSTATICTSCP2( c1079, t1294 );
DEFSTRING( t1295, "-np", 3 );
DEFSTATICTSCP2( c1078, t1295 );
DEFSTRING( t1296, "-q", 2 );
DEFSTATICTSCP2( c1075, t1296 );
DEFSTRING( t1297, "QUIET", 5 );
DEFSTATICTSCP( c1073 );
DEFSTRING( t1298, "-e", 2 );
DEFSTATICTSCP2( c1069, t1298 );
DEFSTRING( t1299, "ECHO", 4 );
DEFSTATICTSCP( c1067 );
static void init_constants()
{
c1235 = EMPTYLIST;
t1275 = STRINGTOSYMBOL( U_TX( ADR( t1276 ) ) );
c1235 = CONS( t1275, c1235 );
t1277 = STRINGTOSYMBOL( U_TX( ADR( t1278 ) ) );
c1235 = CONS( t1277, c1235 );
CONSTANTEXP( ADR( c1235 ) );
c1171 = STRINGTOSYMBOL( U_TX( ADR( t1283 ) ) );
CONSTANTEXP( ADR( c1171 ) );
c1148 = STRINGTOSYMBOL( U_TX( ADR( t1285 ) ) );
CONSTANTEXP( ADR( c1148 ) );
c1135 = STRINGTOSYMBOL( U_TX( ADR( t1286 ) ) );
CONSTANTEXP( ADR( c1135 ) );
c1134 = STRINGTOSYMBOL( U_TX( ADR( t1287 ) ) );
CONSTANTEXP( ADR( c1134 ) );
c1121 = STRINGTOSYMBOL( U_TX( ADR( t1288 ) ) );
CONSTANTEXP( ADR( c1121 ) );
c1090 = STRINGTOSYMBOL( U_TX( ADR( t1293 ) ) );
CONSTANTEXP( ADR( c1090 ) );
c1073 = STRINGTOSYMBOL( U_TX( ADR( t1297 ) ) );
CONSTANTEXP( ADR( c1073 ) );
c1067 = STRINGTOSYMBOL( U_TX( ADR( t1299 ) ) );
CONSTANTEXP( ADR( c1067 ) );
}
DEFTSCP( screp_top_2dlevel_v );
DEFSTRING( t1300, "TOP-LEVEL", 9 );
DEFTSCP( screp__2aemacscheme_2a_v );
DEFSTRING( t1301, "SCREP_*EMACSCHEME*", 18 );
DEFTSCP( screp__2areading_2dstdin_2a_v );
DEFSTRING( t1302, "SCREP_*READING-STDIN*", 21 );
DEFTSCP( screp_read_2deval_2dprint_v );
DEFSTRING( t1303, "READ-EVAL-PRINT", 15 );
EXTERNTSCP( scrt6_exit_v );
EXTERNTSCP( scrt6_reset_v );
EXTERNTSCPP( scrt4_signal );
EXTERNTSCP( scrt4_signal_v );
EXTERNTSCP( scdebug_trace_2dlevel_v );
EXTERNTSCP( scrt5_rt_2dvalue_e3d6f738_v );
EXTERNTSCP( scrt5_rt_2dvalue_c91906c5_v );
EXTERNTSCPP( scrt1_member );
EXTERNTSCP( scrt1_member_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCP( sc_implementation_v );
DEFSTRING( t1363, "MAKE-EXIT [inside READ-EVAL-PRINT]", 34 );
DEFSTRING( t1366, "screp_l1151 [inside READ-EVAL-PRINT]", 36 );
TSCP screp_l1151( x1152, c1365 )
TSCP x1152, c1365;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1366 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c1365, 0 );
X2 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c1365, 1 );
if ( FALSE( x1152 ) ) goto L1368;
if ( EQ( TSCPTAG( x1152 ), PAIRTAG ) ) goto L1371;
scrt1__24__car_2derror( x1152 );
L1371:
X4 = PAIR_CAR( x1152 );
SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X4 );
L1368:
X4 = DISPLAY( 2 );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( FALSEVALUE,
PROCEDURE_CLOSURE( X4 ) );
DISPLAY( 0 ) = X1;
DISPLAY( 2 ) = X2;
POPSTACKTRACE( X3 );
}
EXTERNTSCP( scrt6_proceed_v );
DEFSTRING( t1374, "screp_l1157 [inside READ-EVAL-PRINT]", 36 );
TSCP screp_l1157( c1373 )
TSCP c1373;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1374 ) ) );
X1 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c1373, 0 );
X3 = DISPLAY( 2 );
X3 = UNKNOWNCALL( X3, 1 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( FALSEVALUE,
PROCEDURE_CLOSURE( X3 ) );
DISPLAY( 2 ) = X1;
POPSTACKTRACE( X2 );
}
TSCP screp_m1059( e1150, c1362 )
TSCP e1150, c1362;
{
TSCP X2, X1;
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t1363 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c1362, 0 );
DISPLAY( 2 ) = e1150;
scrt6_proceed_v = MAKEPROCEDURE( 0,
1,
screp_l1151,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 0 ),
DISPLAY( 2 ) ) );
scrt6_exit_v = MAKEPROCEDURE( 0,
0,
screp_l1157,
MAKECLOSURE( EMPTYLIST,
1,
DISPLAY( 2 ) ) );
X2 = TRUEVALUE;
DISPLAY( 0 ) = X1;
SDVAL = X2;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFSTRING( t1377, "MAKE-RESET [inside READ-EVAL-PRINT]", 35 );
DEFSTRING( t1383, "screp_l1162 [inside READ-EVAL-PRINT]", 36 );
TSCP screp_l1162( c1382 )
TSCP c1382;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1383 ) ) );
X1 = DISPLAY( 3 );
DISPLAY( 3 ) = CLOSURE_VAR( c1382, 0 );
X2 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c1382, 1 );
scrt6_exit_v = DISPLAY( 3 );
X4 = DISPLAY( 2 );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( FALSEVALUE,
PROCEDURE_CLOSURE( X4 ) );
DISPLAY( 3 ) = X1;
DISPLAY( 2 ) = X2;
POPSTACKTRACE( X3 );
}
TSCP screp_m1060( r1159, c1376 )
TSCP r1159, c1376;
{
TSCP X2, X1;
TSCP SD2 = DISPLAY( 2 );
TSCP SD3 = DISPLAY( 3 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t1377 ) ) );
X1 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c1376, 0 );
DISPLAY( 2 ) = r1159;
if ( TRUE( PAIR_CAR( DISPLAY( 1 ) ) ) ) goto L1379;
DISPLAY( 3 ) = scrt6_exit_v;
scrt6_reset_v = MAKEPROCEDURE( 0,
0,
screp_l1162,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 3 ),
DISPLAY( 2 ) ) );
L1379:
X2 = TRUEVALUE;
DISPLAY( 1 ) = X1;
SDVAL = X2;
DISPLAY( 2 ) = SD2;
DISPLAY( 3 ) = SD3;
POPSTACKTRACE( SDVAL );
}
EXTERNTSCPP( sc_ntinuation_1af38b9f );
EXTERNTSCP( sc_ntinuation_1af38b9f_v );
EXTERNTSCPP( screp_m1059 );
EXTERNTSCPP( screp_m1060 );
EXTERNTSCPP( scdebug_on_2dinterrupt );
EXTERNTSCP( scdebug_on_2dinterrupt_v );
EXTERNTSCPP( scrt6_echo );
EXTERNTSCP( scrt6_echo_v );
EXTERNTSCP( scrt5_stdout_2dport_v );
DEFSTRING( t1405, "screp_l1167 [inside READ-EVAL-PRINT]", 36 );
EXTERNTSCP( scdebug_2derror_2a_ca4047fd_v );
TSCP screp_l1167( c1404 )
TSCP c1404;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1405 ) ) );
X1 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c1404, 0 );
scdebug_2derror_2a_ca4047fd_v = TRUEVALUE;
scrt6_reset_v = DISPLAY( 2 );
X3 = scrt6_reset_v;
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
DISPLAY( 2 ) = X1;
POPSTACKTRACE( X2 );
}
EXTERNTSCPP( scdebug__2dhandler_7d8722d5 );
EXTERNTSCP( scdebug__2dhandler_7d8722d5_v );
EXTERNTSCP( scrt6__2aerror_2dhandler_2a_v );
DEFSTRING( t1408, "screp_l1169 [inside READ-EVAL-PRINT]", 36 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP screp_l1169( s1170, c1407 )
TSCP s1170, c1407;
{
PUSHSTACKTRACE( U_TX( ADR( t1408 ) ) );
POPSTACKTRACE( scrt6_error( c1171, c1172, EMPTYLIST ) );
}
DEFSTRING( t1411, "screp_l1174 [inside READ-EVAL-PRINT]", 36 );
TSCP screp_l1174( s1175, c1410 )
TSCP s1175, c1410;
{
PUSHSTACKTRACE( U_TX( ADR( t1411 ) ) );
POPSTACKTRACE( scrt6_error( c1171, c1176, EMPTYLIST ) );
}
DEFSTRING( t1414, "screp_l1178 [inside READ-EVAL-PRINT]", 36 );
TSCP screp_l1178( s1179, c1413 )
TSCP s1179, c1413;
{
PUSHSTACKTRACE( U_TX( ADR( t1414 ) ) );
POPSTACKTRACE( scrt6_error( c1171, c1180, EMPTYLIST ) );
}
EXTERNTSCPP( screp_rep );
EXTERNTSCP( screp_rep_v );
EXTERNTSCPP( scrt5_current_2dinput_2dport );
EXTERNTSCP( scrt5_current_2dinput_2dport_v );
EXTERNTSCP( scrt5_stdin_2dport_v );
TSCP screp_read_2deval_2dprint( f1044 )
TSCP f1044;
{
TSCP X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t1303 ) ) );
X1 = _TSCP( 0 );
X2 = _TSCP( 0 );
DISPLAY( 0 ) = _TSCP( 0 );
DISPLAY( 1 ) = _TSCP( 0 );
X3 = _TSCP( 0 );
X4 = _TSCP( 0 );
X5 = _TSCP( 0 );
X6 = _TSCP( 0 );
X7 = _TSCP( 0 );
X8 = _TSCP( 0 );
X9 = _TSCP( 0 );
X10 = _TSCP( 0 );
X11 = _TSCP( 0 );
X12 = _TSCP( 0 );
X13 = _TSCP( 0 );
X13 = CONS( X13, EMPTYLIST );
X12 = CONS( X12, EMPTYLIST );
X11 = CONS( X11, EMPTYLIST );
X10 = CONS( X10, EMPTYLIST );
X9 = CONS( X9, EMPTYLIST );
X8 = CONS( X8, EMPTYLIST );
X7 = CONS( X7, EMPTYLIST );
X6 = CONS( X6, EMPTYLIST );
X5 = CONS( X5, EMPTYLIST );
X4 = CONS( X4, EMPTYLIST );
X3 = CONS( X3, EMPTYLIST );
DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
DISPLAY( 0 ) = CONS( DISPLAY( 0 ), EMPTYLIST );
X2 = CONS( X2, EMPTYLIST );
X1 = CONS( X1, EMPTYLIST );
X14 = scrt6_exit_v;
SETGEN( PAIR_CAR( X13 ), X14 );
X14 = scrt6_reset_v;
SETGEN( PAIR_CAR( X12 ), X14 );
X14 = scrt4_signal( _TSCP( 8 ), _TSCP( 4 ) );
SETGEN( PAIR_CAR( X11 ), X14 );
X14 = scdebug_trace_2dlevel_v;
SETGEN( PAIR_CAR( X10 ), X14 );
X14 = scrt5_rt_2dvalue_e3d6f738_v;
SETGEN( PAIR_CAR( X9 ), X14 );
X14 = scrt5_rt_2dvalue_c91906c5_v;
SETGEN( PAIR_CAR( X8 ), X14 );
X15 = scrt1_member( c1067, f1044 );
if ( FALSE( X15 ) ) goto L1307;
X14 = X15;
goto L1308;
L1307:
X14 = scrt1_member( c1069, f1044 );
L1308:
SETGEN( PAIR_CAR( X7 ), X14 );
X15 = scrt1_member( c1073, f1044 );
if ( FALSE( X15 ) ) goto L1310;
X14 = X15;
goto L1311;
L1310:
X14 = scrt1_member( c1075, f1044 );
L1311:
SETGEN( PAIR_CAR( X6 ), X14 );
X15 = scrt1_member( c1090, f1044 );
if ( FALSE( X15 ) ) goto L1313;
if ( EQ( TSCPTAG( X15 ), PAIRTAG ) ) goto L1316;
scrt1__24__cdr_2derror( X15 );
L1316:
X16 = PAIR_CDR( X15 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L1319;
scrt1__24__car_2derror( X16 );
L1319:
X14 = PAIR_CAR( X16 );
goto L1322;
L1313:
if ( FALSE( scrt1_member( c1078, f1044 ) ) ) goto L1321;
X14 = FALSEVALUE;
goto L1322;
L1321:
X14 = c1079;
L1322:
SETGEN( PAIR_CAR( X5 ), X14 );
X15 = scrt1_member( c1121, f1044 );
if ( FALSE( X15 ) ) goto L1324;
if ( EQ( TSCPTAG( X15 ), PAIRTAG ) ) goto L1327;
scrt1__24__cdr_2derror( X15 );
L1327:
X16 = PAIR_CDR( X15 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L1330;
scrt1__24__car_2derror( X16 );
L1330:
X14 = PAIR_CAR( X16 );
goto L1333;
L1324:
if ( FALSE( scrt1_member( c1093, f1044 ) ) ) goto L1332;
X14 = FALSEVALUE;
goto L1333;
L1332:
X16 = CONS( c1110, EMPTYLIST );
X16 = CONS( c1109, X16 );
X18 = sc_implementation_v;
X18 = UNKNOWNCALL( X18, 0 );
X17 = VIA( PROCEDURE_CODE( X18 ) )( PROCEDURE_CLOSURE( X18 ) );
if ( EQ( TSCPTAG( X17 ), PAIRTAG ) ) goto L1336;
scrt1__24__cdr_2derror( X17 );
L1336:
X18 = PAIR_CDR( X17 );
if ( EQ( TSCPTAG( X18 ), PAIRTAG ) ) goto L1339;
scrt1__24__car_2derror( X18 );
L1339:
X16 = CONS( PAIR_CAR( X18 ), X16 );
X18 = sc_implementation_v;
X18 = UNKNOWNCALL( X18, 0 );
X17 = VIA( PROCEDURE_CODE( X18 ) )( PROCEDURE_CLOSURE( X18 ) );
if ( EQ( TSCPTAG( X17 ), PAIRTAG ) ) goto L1342;
scrt1__24__car_2derror( X17 );
L1342:
X14 = scrt6_format( c1094,
CONS( PAIR_CAR( X17 ), X16 ) );
L1333:
SETGEN( PAIR_CAR( X4 ), X14 );
X15 = scrt1_member( c1134, f1044 );
if ( FALSE( X15 ) ) goto L1345;
if ( EQ( TSCPTAG( X15 ), PAIRTAG ) ) goto L1348;
scrt1__24__cdr_2derror( X15 );
L1348:
X16 = PAIR_CDR( X15 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L1351;
scrt1__24__car_2derror( X16 );
L1351:
X14 = PAIR_CAR( X16 );
goto L1346;
L1345:
X14 = EMPTYLIST;
L1346:
SETGEN( PAIR_CAR( X3 ), X14 );
X14 = scrt1_member( c1135, f1044 );
SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X14 );
X15 = scrt1_member( c1148, f1044 );
if ( FALSE( X15 ) ) goto L1354;
if ( EQ( TSCPTAG( X15 ), PAIRTAG ) ) goto L1357;
scrt1__24__cdr_2derror( X15 );
L1357:
X16 = PAIR_CDR( X15 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L1360;
scrt1__24__car_2derror( X16 );
L1360:
X14 = PAIR_CAR( X16 );
goto L1355;
L1354:
X14 = FALSEVALUE;
L1355:
SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X14 );
X14 = MAKEPROCEDURE( 1,
0,
screp_m1059,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( X2 ), X14 );
X14 = MAKEPROCEDURE( 1,
0,
screp_m1060,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 1 ) ) );
SETGEN( PAIR_CAR( X1 ), X14 );
if ( FALSE( sc_ntinuation_1af38b9f( PAIR_CAR( X2 ) ) )
) goto L1385;
if ( FALSE( sc_ntinuation_1af38b9f( PAIR_CAR( X1 ) ) )
) goto L1388;
if ( FALSE( PAIR_CAR( DISPLAY( 1 ) ) ) ) goto L1391;
scrt4_signal( _TSCP( 8 ), PAIR_CAR( X11 ) );
goto L1393;
L1391:
if ( EQ( UNSIGNED( PAIR_CAR( X11 ) ),
UNSIGNED( _TSCP( 4 ) ) ) ) goto L1393;
scrt4_signal( _TSCP( 8 ), scdebug_on_2dinterrupt_v );
L1393:
if ( FALSE( PAIR_CAR( X7 ) ) ) goto L1395;
scrt6_echo( PAIR_CAR( X9 ),
CONS( PAIR_CAR( X8 ), EMPTYLIST ) );
L1395:
if ( FALSE( PAIR_CAR( X4 ) ) ) goto L1389;
X14 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
scrt6_format( scrt5_stdout_2dport_v,
CONS( c1187, X14 ) );
goto L1389;
L1388:
scrt5_rt_2dvalue_e3d6f738_v = PAIR_CAR( X9 );
scrt5_rt_2dvalue_c91906c5_v = PAIR_CAR( X8 );
scdebug_trace_2dlevel_v = PAIR_CAR( X10 );
L1389:
if ( TRUE( screp_top_2dlevel_v ) ) goto L1400;
screp__2aemacscheme_2a_v = scrt1_member( c1164, f1044 );
DISPLAY( 2 ) = scrt6_reset_v;
screp_top_2dlevel_v = MAKEPROCEDURE( 0,
0,
screp_l1167,
MAKECLOSURE( EMPTYLIST,
1,
DISPLAY( 2 ) ) );
scrt6__2aerror_2dhandler_2a_v = scdebug__2dhandler_7d8722d5_v;
scdebug_2derror_2a_ca4047fd_v = TRUEVALUE;
X14 = MAKEPROCEDURE( 1, 0, screp_l1169, EMPTYLIST );
scrt4_signal( _TSCP( 40 ), X14 );
X14 = MAKEPROCEDURE( 1, 0, screp_l1174, EMPTYLIST );
scrt4_signal( _TSCP( 44 ), X14 );
X14 = MAKEPROCEDURE( 1, 0, screp_l1178, EMPTYLIST );
scrt4_signal( _TSCP( 48 ), X14 );
L1400:
if ( FALSE( PAIR_CAR( DISPLAY( 1 ) ) ) ) goto L1416;
X14 = scrt5_current_2dinput_2dport( );
goto L1417;
L1416:
X14 = scrt5_stdin_2dport_v;
L1417:
screp_rep( PAIR_CAR( X3 ),
X14,
scrt5_stdout_2dport_v,
PAIR_CAR( X5 ), PAIR_CAR( X6 ) );
L1385:
scrt4_signal( _TSCP( 8 ), PAIR_CAR( X11 ) );
if ( FALSE( PAIR_CAR( X7 ) ) ) goto L1418;
scrt6_echo( PAIR_CAR( X9 ),
CONS( FALSEVALUE, EMPTYLIST ) );
L1418:
scrt6_exit_v = PAIR_CAR( X13 );
scrt6_reset_v = PAIR_CAR( X12 );
scdebug_trace_2dlevel_v = PAIR_CAR( X10 );
SDVAL = PAIR_CAR( DISPLAY( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( screp_flush_2dwhite_v );
DEFSTRING( t1420, "SCREP_FLUSH-WHITE", 17 );
EXTERNTSCPP( scrt6_char_2dready_3f );
EXTERNTSCP( scrt6_char_2dready_3f_v );
EXTERNTSCPP( scrt6_peek_2dchar );
EXTERNTSCP( scrt6_peek_2dchar_v );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
EXTERNTSCPP( scrt3_char_2dwhitespace_3f );
EXTERNTSCP( scrt3_char_2dwhitespace_3f_v );
EXTERNTSCPP( scrt6_read_2dchar );
EXTERNTSCP( scrt6_read_2dchar_v );
TSCP screp_flush_2dwhite( i1192 )
TSCP i1192;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1420 ) ) );
L1421:
X2 = scrt6_char_2dready_3f( CONS( i1192, EMPTYLIST ) );
if ( FALSE( X2 ) ) goto L1423;
X1 = scrt6_peek_2dchar( CONS( i1192, EMPTYLIST ) );
goto L1424;
L1423:
X1 = X2;
L1424:
if ( FALSE( X1 ) ) goto L1426;
if ( TRUE( scrt6_eof_2dobject_3f( X1 ) ) ) goto L1428;
if ( FALSE( scrt3_char_2dwhitespace_3f( X1 ) ) ) goto L1430;
scrt6_read_2dchar( CONS( i1192, EMPTYLIST ) );
goto L1421;
L1430:
POPSTACKTRACE( FALSEVALUE );
L1428:
POPSTACKTRACE( FALSEVALUE );
L1426:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( screp_rep_v );
DEFSTRING( t1433, "SCREP_REP", 9 );
EXTERNTSCPP( scrt6_display );
EXTERNTSCP( scrt6_display_v );
EXTERNTSCPP( scrt6_read );
EXTERNTSCP( scrt6_read_v );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( sceval_eval );
EXTERNTSCP( sceval_eval_v );
TSCP screp_rep( e1209, i1210, o1211, p1212, q1213 )
TSCP e1209, i1210, o1211, p1212, q1213;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1433 ) ) );
X1 = FALSEVALUE;
L1436:
X1 = CONS( X1, EMPTYLIST );
screp_flush_2dwhite( i1210 );
if ( FALSE( p1212 ) ) goto L1439;
if ( TRUE( scrt6_char_2dready_3f( CONS( i1210, EMPTYLIST ) ) )
) goto L1439;
scrt6_display( p1212, CONS( o1211, EMPTYLIST ) );
L1439:
screp__2areading_2dstdin_2a_v = BOOLEAN( EQ( UNSIGNED( i1210 ),
UNSIGNED( scrt5_stdin_2dport_v ) ) );
X2 = scrt6_read( CONS( i1210, EMPTYLIST ) );
SETGEN( PAIR_CAR( X1 ), X2 );
screp__2areading_2dstdin_2a_v = FALSEVALUE;
if ( FALSE( scrt6_eof_2dobject_3f( PAIR_CAR( X1 ) ) )
) goto L1441;
if ( FALSE( p1212 ) ) goto L1443;
POPSTACKTRACE( scrt6_newline( CONS( o1211, EMPTYLIST ) ) );
L1443:
POPSTACKTRACE( FALSEVALUE );
L1441:
X2 = BOOLEAN( EQ( TSCPTAG( PAIR_CAR( X1 ) ),
PAIRTAG ) );
if ( FALSE( X2 ) ) goto L1460;
X4 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L1452;
scrt1__24__car_2derror( X4 );
L1452:
X3 = PAIR_CAR( X4 );
if ( FALSE( scrt1_memq( X3, c1235 ) ) ) goto L1460;
screp_flush_2dwhite( i1210 );
if ( TRUE( q1213 ) ) goto L1455;
X4 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L1458;
scrt1__24__car_2derror( X4 );
L1458:
X3 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
scrt6_format( o1211, CONS( c1239, X3 ) );
L1455:
X1 = FALSEVALUE;
goto L1436;
L1460:
if ( FALSE( screp__2aemacscheme_2a_v ) ) goto L1462;
scrt6_newline( CONS( o1211, EMPTYLIST ) );
L1462:
X2 = sceval_eval( PAIR_CAR( X1 ),
CONS( e1209, EMPTYLIST ) );
SETGEN( PAIR_CAR( X1 ), X2 );
screp_flush_2dwhite( i1210 );
if ( TRUE( q1213 ) ) goto L1464;
X2 = CONS( PAIR_CAR( X1 ), EMPTYLIST );
scrt6_format( o1211, CONS( c1237, X2 ) );
L1464:
X1 = FALSEVALUE;
goto L1436;
}
DEFTSCP( screp_load_v );
DEFSTRING( t1466, "LOAD", 4 );
EXTERNTSCPP( scrt5_rom_2dfile_73f9e308 );
EXTERNTSCP( scrt5_rom_2dfile_73f9e308_v );
DEFSTRING( t1469, "screp_l1246 [inside LOAD]", 25 );
TSCP screp_l1246( c1468 )
TSCP c1468;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1469 ) ) );
X1 = CONS( c1135, EMPTYLIST );
X1 = CONS( FALSEVALUE, X1 );
X1 = CONS( c1090, X1 );
X1 = CONS( FALSEVALUE, X1 );
POPSTACKTRACE( screp_read_2deval_2dprint( CONS( c1121, X1 ) ) );
}
TSCP screp_load( f1245 )
TSCP f1245;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1466 ) ) );
X1 = MAKEPROCEDURE( 0, 0, screp_l1246, EMPTYLIST );
scrt5_rom_2dfile_73f9e308( f1245, X1 );
POPSTACKTRACE( f1245 );
}
DEFTSCP( screp_loadq_v );
DEFSTRING( t1471, "LOADQ", 5 );
DEFSTRING( t1474, "screp_l1249 [inside LOADQ]", 26 );
TSCP screp_l1249( c1473 )
TSCP c1473;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1474 ) ) );
X1 = CONS( c1135, EMPTYLIST );
X1 = CONS( c1073, X1 );
X1 = CONS( FALSEVALUE, X1 );
X1 = CONS( c1090, X1 );
X1 = CONS( FALSEVALUE, X1 );
POPSTACKTRACE( screp_read_2deval_2dprint( CONS( c1121, X1 ) ) );
}
TSCP screp_loadq( f1248 )
TSCP f1248;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1471 ) ) );
X1 = MAKEPROCEDURE( 0, 0, screp_l1249, EMPTYLIST );
scrt5_rom_2dfile_73f9e308( f1248, X1 );
POPSTACKTRACE( f1248 );
}
DEFTSCP( screp_loade_v );
DEFSTRING( t1476, "LOADE", 5 );
DEFSTRING( t1479, "screp_l1252 [inside LOADE]", 26 );
TSCP screp_l1252( c1478 )
TSCP c1478;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1479 ) ) );
X1 = CONS( c1135, EMPTYLIST );
X1 = CONS( c1067, X1 );
X1 = CONS( FALSEVALUE, X1 );
X1 = CONS( c1090, X1 );
X1 = CONS( FALSEVALUE, X1 );
POPSTACKTRACE( screp_read_2deval_2dprint( CONS( c1121, X1 ) ) );
}
TSCP screp_loade( f1251 )
TSCP f1251;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1476 ) ) );
X1 = MAKEPROCEDURE( 0, 0, screp_l1252, EMPTYLIST );
scrt5_rom_2dfile_73f9e308( f1251, X1 );
POPSTACKTRACE( f1251 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
sceval__init();
scrt3__init();
scrt1__init();
scrt5__init();
scdebug__init();
scrt4__init();
scrt6__init();
scdebug__init();
sceval__init();
scexpand__init();
scexpanders1__init();
scexpanders2__init();
scqquote__init();
MAXDISPLAY( 4 );
}
void screp__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(screp SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1300 ) ),
ADR( screp_top_2dlevel_v ), FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t1301 ) ),
ADR( screp__2aemacscheme_2a_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t1302 ) ),
ADR( screp__2areading_2dstdin_2a_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t1303 ) ),
ADR( screp_read_2deval_2dprint_v ),
MAKEPROCEDURE( 0,
1,
screp_read_2deval_2dprint,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1420 ) ),
ADR( screp_flush_2dwhite_v ),
MAKEPROCEDURE( 1,
0,
screp_flush_2dwhite, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1433 ) ),
ADR( screp_rep_v ),
MAKEPROCEDURE( 5,
0, screp_rep, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1466 ) ),
ADR( screp_load_v ),
MAKEPROCEDURE( 1,
0, screp_load, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1471 ) ),
ADR( screp_loadq_v ),
MAKEPROCEDURE( 1,
0, screp_loadq, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1476 ) ),
ADR( screp_loade_v ),
MAKEPROCEDURE( 1,
0, screp_loade, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.