home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / schem2c1.lzh / Scheme2C / Scheme-src.lzh / scrt / screp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-11  |  26.6 KB  |  825 lines
  1.  
  2. /* SCHEME->C */
  3.  
  4. #include <objects.h>
  5.  
  6. DEFSTRING( t1273, "~s form ignored~%", 17 );
  7. DEFSTATICTSCP2( c1239, t1273 );
  8. DEFSTRING( t1274, "~s~%", 4 );
  9. DEFSTATICTSCP2( c1237, t1274 );
  10. DEFSTATICTSCP( c1235 );
  11. DEFSTRING( t1276, "INCLUDE", 7 );
  12. DEFSTATICTSCP( t1275 );
  13. DEFSTRING( t1278, "MODULE", 6 );
  14. DEFSTATICTSCP( t1277 );
  15. DEFSTRING( t1279, "~a~%", 4 );
  16. DEFSTATICTSCP2( c1187, t1279 );
  17. DEFSTRING( t1280, "Bad argument to system call", 27 );
  18. DEFSTATICTSCP2( c1180, t1280 );
  19. DEFSTRING( t1281, "Segment violation", 17 );
  20. DEFSTATICTSCP2( c1176, t1281 );
  21. DEFSTRING( t1282, "Bus error", 9 );
  22. DEFSTATICTSCP2( c1172, t1282 );
  23. DEFSTRING( t1283, "????", 4 );
  24. DEFSTATICTSCP( c1171 );
  25. DEFSTRING( t1284, "-emacs", 6 );
  26. DEFSTATICTSCP2( c1164, t1284 );
  27. DEFSTRING( t1285, "RESULT", 6 );
  28. DEFSTATICTSCP( c1148 );
  29. DEFSTRING( t1286, "LOAD", 4 );
  30. DEFSTATICTSCP( c1135 );
  31. DEFSTRING( t1287, "ENV", 3 );
  32. DEFSTATICTSCP( c1134 );
  33. DEFSTRING( t1288, "HEADER", 6 );
  34. DEFSTATICTSCP( c1121 );
  35. DEFSTRING( t1289, "Equipment Corporation", 21 );
  36. DEFSTATICTSCP2( c1110, t1289 );
  37. DEFSTRING( t1290, "Copyright 1989 Digital", 22 );
  38. DEFSTATICTSCP2( c1109, t1290 );
  39. DEFSTRING( t1291, "~a -- ~a -- ~a ~a", 17 );
  40. DEFSTATICTSCP2( c1094, t1291 );
  41. DEFSTRING( t1292, "-nh", 3 );
  42. DEFSTATICTSCP2( c1093, t1292 );
  43. DEFSTRING( t1293, "PROMPT", 6 );
  44. DEFSTATICTSCP( c1090 );
  45. DEFSTRING( t1294, "> ", 2 );
  46. DEFSTATICTSCP2( c1079, t1294 );
  47. DEFSTRING( t1295, "-np", 3 );
  48. DEFSTATICTSCP2( c1078, t1295 );
  49. DEFSTRING( t1296, "-q", 2 );
  50. DEFSTATICTSCP2( c1075, t1296 );
  51. DEFSTRING( t1297, "QUIET", 5 );
  52. DEFSTATICTSCP( c1073 );
  53. DEFSTRING( t1298, "-e", 2 );
  54. DEFSTATICTSCP2( c1069, t1298 );
  55. DEFSTRING( t1299, "ECHO", 4 );
  56. DEFSTATICTSCP( c1067 );
  57.  
  58. static void  init_constants()
  59. {
  60.         c1235 = EMPTYLIST;
  61.         t1275 = STRINGTOSYMBOL( U_TX( ADR( t1276 ) ) );
  62.         c1235 = CONS( t1275, c1235 );
  63.         t1277 = STRINGTOSYMBOL( U_TX( ADR( t1278 ) ) );
  64.         c1235 = CONS( t1277, c1235 );
  65.         CONSTANTEXP( ADR( c1235 ) );
  66.         c1171 = STRINGTOSYMBOL( U_TX( ADR( t1283 ) ) );
  67.         CONSTANTEXP( ADR( c1171 ) );
  68.         c1148 = STRINGTOSYMBOL( U_TX( ADR( t1285 ) ) );
  69.         CONSTANTEXP( ADR( c1148 ) );
  70.         c1135 = STRINGTOSYMBOL( U_TX( ADR( t1286 ) ) );
  71.         CONSTANTEXP( ADR( c1135 ) );
  72.         c1134 = STRINGTOSYMBOL( U_TX( ADR( t1287 ) ) );
  73.         CONSTANTEXP( ADR( c1134 ) );
  74.         c1121 = STRINGTOSYMBOL( U_TX( ADR( t1288 ) ) );
  75.         CONSTANTEXP( ADR( c1121 ) );
  76.         c1090 = STRINGTOSYMBOL( U_TX( ADR( t1293 ) ) );
  77.         CONSTANTEXP( ADR( c1090 ) );
  78.         c1073 = STRINGTOSYMBOL( U_TX( ADR( t1297 ) ) );
  79.         CONSTANTEXP( ADR( c1073 ) );
  80.         c1067 = STRINGTOSYMBOL( U_TX( ADR( t1299 ) ) );
  81.         CONSTANTEXP( ADR( c1067 ) );
  82. }
  83.  
  84. DEFTSCP( screp_top_2dlevel_v );
  85. DEFSTRING( t1300, "TOP-LEVEL", 9 );
  86. DEFTSCP( screp__2aemacscheme_2a_v );
  87. DEFSTRING( t1301, "SCREP_*EMACSCHEME*", 18 );
  88. DEFTSCP( screp__2areading_2dstdin_2a_v );
  89. DEFSTRING( t1302, "SCREP_*READING-STDIN*", 21 );
  90. DEFTSCP( screp_read_2deval_2dprint_v );
  91. DEFSTRING( t1303, "READ-EVAL-PRINT", 15 );
  92. EXTERNTSCP( scrt6_exit_v );
  93. EXTERNTSCP( scrt6_reset_v );
  94. EXTERNTSCPP( scrt4_signal );
  95. EXTERNTSCP( scrt4_signal_v );
  96. EXTERNTSCP( scdebug_trace_2dlevel_v );
  97. EXTERNTSCP( scrt5_rt_2dvalue_e3d6f738_v );
  98. EXTERNTSCP( scrt5_rt_2dvalue_c91906c5_v );
  99. EXTERNTSCPP( scrt1_member );
  100. EXTERNTSCP( scrt1_member_v );
  101. EXTERNTSCPP( scrt1__24__cdr_2derror );
  102. EXTERNTSCP( scrt1__24__cdr_2derror_v );
  103. EXTERNTSCPP( scrt1__24__car_2derror );
  104. EXTERNTSCP( scrt1__24__car_2derror_v );
  105. EXTERNTSCPP( scrt6_format );
  106. EXTERNTSCP( scrt6_format_v );
  107. EXTERNTSCP( sc_implementation_v );
  108. DEFSTRING( t1363, "MAKE-EXIT [inside READ-EVAL-PRINT]", 34 );
  109. DEFSTRING( t1366, "screp_l1151 [inside READ-EVAL-PRINT]", 36 );
  110.  
  111. TSCP  screp_l1151( x1152, c1365 )
  112.         TSCP  x1152, c1365;
  113. {
  114.         TSCP  X4, X3, X2, X1;
  115.  
  116.         PUSHSTACKTRACE( U_TX( ADR( t1366 ) ) );
  117.         X1 = DISPLAY( 0 );
  118.         DISPLAY( 0 ) = CLOSURE_VAR( c1365, 0 );
  119.         X2 = DISPLAY( 2 );
  120.         DISPLAY( 2 ) = CLOSURE_VAR( c1365, 1 );
  121.         if  ( FALSE( x1152 ) )  goto  L1368;
  122.         if  ( EQ( TSCPTAG( x1152 ), PAIRTAG ) )  goto  L1371;
  123.         scrt1__24__car_2derror( x1152 );
  124. L1371:
  125.         X4 = PAIR_CAR( x1152 );
  126.         SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X4 );
  127. L1368:
  128.         X4 = DISPLAY( 2 );
  129.         X4 = UNKNOWNCALL( X4, 1 );
  130.         X3 = VIA( PROCEDURE_CODE( X4 ) )( FALSEVALUE, 
  131.                                           PROCEDURE_CLOSURE( X4 ) );
  132.         DISPLAY( 0 ) = X1;
  133.         DISPLAY( 2 ) = X2;
  134.         POPSTACKTRACE( X3 );
  135. }
  136.  
  137. EXTERNTSCP( scrt6_proceed_v );
  138. DEFSTRING( t1374, "screp_l1157 [inside READ-EVAL-PRINT]", 36 );
  139.  
  140. TSCP  screp_l1157( c1373 )
  141.         TSCP  c1373;
  142. {
  143.         TSCP  X3, X2, X1;
  144.  
  145.         PUSHSTACKTRACE( U_TX( ADR( t1374 ) ) );
  146.         X1 = DISPLAY( 2 );
  147.         DISPLAY( 2 ) = CLOSURE_VAR( c1373, 0 );
  148.         X3 = DISPLAY( 2 );
  149.         X3 = UNKNOWNCALL( X3, 1 );
  150.         X2 = VIA( PROCEDURE_CODE( X3 ) )( FALSEVALUE, 
  151.                                           PROCEDURE_CLOSURE( X3 ) );
  152.         DISPLAY( 2 ) = X1;
  153.         POPSTACKTRACE( X2 );
  154. }
  155.  
  156. TSCP  screp_m1059( e1150, c1362 )
  157.         TSCP  e1150, c1362;
  158. {
  159.         TSCP  X2, X1;
  160.         TSCP  SD2 = DISPLAY( 2 );
  161.         TSCP  SDVAL;
  162.  
  163.         PUSHSTACKTRACE( U_TX( ADR( t1363 ) ) );
  164.         X1 = DISPLAY( 0 );
  165.         DISPLAY( 0 ) = CLOSURE_VAR( c1362, 0 );
  166.         DISPLAY( 2 ) = e1150;
  167.         scrt6_proceed_v = MAKEPROCEDURE( 0, 
  168.                                          1, 
  169.                                          screp_l1151, 
  170.                                          MAKECLOSURE( EMPTYLIST, 
  171.                                                       2, 
  172.                                                       DISPLAY( 0 ), 
  173.                                                       DISPLAY( 2 ) ) );
  174.         scrt6_exit_v = MAKEPROCEDURE( 0, 
  175.                                       0, 
  176.                                       screp_l1157, 
  177.                                       MAKECLOSURE( EMPTYLIST, 
  178.                                                    1, 
  179.                                                    DISPLAY( 2 ) ) );
  180.         X2 = TRUEVALUE;
  181.         DISPLAY( 0 ) = X1;
  182.         SDVAL = X2;
  183.         DISPLAY( 2 ) = SD2;
  184.         POPSTACKTRACE( SDVAL );
  185. }
  186.  
  187. DEFSTRING( t1377, "MAKE-RESET [inside READ-EVAL-PRINT]", 35 );
  188. DEFSTRING( t1383, "screp_l1162 [inside READ-EVAL-PRINT]", 36 );
  189.  
  190. TSCP  screp_l1162( c1382 )
  191.         TSCP  c1382;
  192. {
  193.         TSCP  X4, X3, X2, X1;
  194.  
  195.         PUSHSTACKTRACE( U_TX( ADR( t1383 ) ) );
  196.         X1 = DISPLAY( 3 );
  197.         DISPLAY( 3 ) = CLOSURE_VAR( c1382, 0 );
  198.         X2 = DISPLAY( 2 );
  199.         DISPLAY( 2 ) = CLOSURE_VAR( c1382, 1 );
  200.         scrt6_exit_v = DISPLAY( 3 );
  201.         X4 = DISPLAY( 2 );
  202.         X4 = UNKNOWNCALL( X4, 1 );
  203.         X3 = VIA( PROCEDURE_CODE( X4 ) )( FALSEVALUE, 
  204.                                           PROCEDURE_CLOSURE( X4 ) );
  205.         DISPLAY( 3 ) = X1;
  206.         DISPLAY( 2 ) = X2;
  207.         POPSTACKTRACE( X3 );
  208. }
  209.  
  210. TSCP  screp_m1060( r1159, c1376 )
  211.         TSCP  r1159, c1376;
  212. {
  213.         TSCP  X2, X1;
  214.         TSCP  SD2 = DISPLAY( 2 );
  215.         TSCP  SD3 = DISPLAY( 3 );
  216.         TSCP  SDVAL;
  217.  
  218.         PUSHSTACKTRACE( U_TX( ADR( t1377 ) ) );
  219.         X1 = DISPLAY( 1 );
  220.         DISPLAY( 1 ) = CLOSURE_VAR( c1376, 0 );
  221.         DISPLAY( 2 ) = r1159;
  222.         if  ( TRUE( PAIR_CAR( DISPLAY( 1 ) ) ) )  goto  L1379;
  223.         DISPLAY( 3 ) = scrt6_exit_v;
  224.         scrt6_reset_v = MAKEPROCEDURE( 0, 
  225.                                        0, 
  226.                                        screp_l1162, 
  227.                                        MAKECLOSURE( EMPTYLIST, 
  228.                                                     2, 
  229.                                                     DISPLAY( 3 ), 
  230.                                                     DISPLAY( 2 ) ) );
  231. L1379:
  232.         X2 = TRUEVALUE;
  233.         DISPLAY( 1 ) = X1;
  234.         SDVAL = X2;
  235.         DISPLAY( 2 ) = SD2;
  236.         DISPLAY( 3 ) = SD3;
  237.         POPSTACKTRACE( SDVAL );
  238. }
  239.  
  240. EXTERNTSCPP( sc_ntinuation_1af38b9f );
  241. EXTERNTSCP( sc_ntinuation_1af38b9f_v );
  242. EXTERNTSCPP( screp_m1059 );
  243. EXTERNTSCPP( screp_m1060 );
  244. EXTERNTSCPP( scdebug_on_2dinterrupt );
  245. EXTERNTSCP( scdebug_on_2dinterrupt_v );
  246. EXTERNTSCPP( scrt6_echo );
  247. EXTERNTSCP( scrt6_echo_v );
  248. EXTERNTSCP( scrt5_stdout_2dport_v );
  249. DEFSTRING( t1405, "screp_l1167 [inside READ-EVAL-PRINT]", 36 );
  250. EXTERNTSCP( scdebug_2derror_2a_ca4047fd_v );
  251.  
  252. TSCP  screp_l1167( c1404 )
  253.         TSCP  c1404;
  254. {
  255.         TSCP  X3, X2, X1;
  256.  
  257.         PUSHSTACKTRACE( U_TX( ADR( t1405 ) ) );
  258.         X1 = DISPLAY( 2 );
  259.         DISPLAY( 2 ) = CLOSURE_VAR( c1404, 0 );
  260.         scdebug_2derror_2a_ca4047fd_v = TRUEVALUE;
  261.         scrt6_reset_v = DISPLAY( 2 );
  262.         X3 = scrt6_reset_v;
  263.         X3 = UNKNOWNCALL( X3, 0 );
  264.         X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
  265.         DISPLAY( 2 ) = X1;
  266.         POPSTACKTRACE( X2 );
  267. }
  268.  
  269. EXTERNTSCPP( scdebug__2dhandler_7d8722d5 );
  270. EXTERNTSCP( scdebug__2dhandler_7d8722d5_v );
  271. EXTERNTSCP( scrt6__2aerror_2dhandler_2a_v );
  272. DEFSTRING( t1408, "screp_l1169 [inside READ-EVAL-PRINT]", 36 );
  273. EXTERNTSCPP( scrt6_error );
  274. EXTERNTSCP( scrt6_error_v );
  275.  
  276. TSCP  screp_l1169( s1170, c1407 )
  277.         TSCP  s1170, c1407;
  278. {
  279.         PUSHSTACKTRACE( U_TX( ADR( t1408 ) ) );
  280.         POPSTACKTRACE( scrt6_error( c1171, c1172, EMPTYLIST ) );
  281. }
  282.  
  283. DEFSTRING( t1411, "screp_l1174 [inside READ-EVAL-PRINT]", 36 );
  284.  
  285. TSCP  screp_l1174( s1175, c1410 )
  286.         TSCP  s1175, c1410;
  287. {
  288.         PUSHSTACKTRACE( U_TX( ADR( t1411 ) ) );
  289.         POPSTACKTRACE( scrt6_error( c1171, c1176, EMPTYLIST ) );
  290. }
  291.  
  292. DEFSTRING( t1414, "screp_l1178 [inside READ-EVAL-PRINT]", 36 );
  293.  
  294. TSCP  screp_l1178( s1179, c1413 )
  295.         TSCP  s1179, c1413;
  296. {
  297.         PUSHSTACKTRACE( U_TX( ADR( t1414 ) ) );
  298.         POPSTACKTRACE( scrt6_error( c1171, c1180, EMPTYLIST ) );
  299. }
  300.  
  301. EXTERNTSCPP( screp_rep );
  302. EXTERNTSCP( screp_rep_v );
  303. EXTERNTSCPP( scrt5_current_2dinput_2dport );
  304. EXTERNTSCP( scrt5_current_2dinput_2dport_v );
  305. EXTERNTSCP( scrt5_stdin_2dport_v );
  306.  
  307. TSCP  screp_read_2deval_2dprint( f1044 )
  308.         TSCP  f1044;
  309. {
  310.         TSCP  X18, 
  311.               X17, 
  312.               X16, 
  313.               X15, 
  314.               X14, 
  315.               X13, 
  316.               X12, 
  317.               X11, 
  318.               X10, 
  319.               X9, 
  320.               X8, X7, X6, X5, X4, X3, X2, X1;
  321.         TSCP  SD0 = DISPLAY( 0 );
  322.         TSCP  SD1 = DISPLAY( 1 );
  323.         TSCP  SD2 = DISPLAY( 2 );
  324.         TSCP  SDVAL;
  325.  
  326.         PUSHSTACKTRACE( U_TX( ADR( t1303 ) ) );
  327.         X1 = _TSCP( 0 );
  328.         X2 = _TSCP( 0 );
  329.         DISPLAY( 0 ) = _TSCP( 0 );
  330.         DISPLAY( 1 ) = _TSCP( 0 );
  331.         X3 = _TSCP( 0 );
  332.         X4 = _TSCP( 0 );
  333.         X5 = _TSCP( 0 );
  334.         X6 = _TSCP( 0 );
  335.         X7 = _TSCP( 0 );
  336.         X8 = _TSCP( 0 );
  337.         X9 = _TSCP( 0 );
  338.         X10 = _TSCP( 0 );
  339.         X11 = _TSCP( 0 );
  340.         X12 = _TSCP( 0 );
  341.         X13 = _TSCP( 0 );
  342.         X13 = CONS( X13, EMPTYLIST );
  343.         X12 = CONS( X12, EMPTYLIST );
  344.         X11 = CONS( X11, EMPTYLIST );
  345.         X10 = CONS( X10, EMPTYLIST );
  346.         X9 = CONS( X9, EMPTYLIST );
  347.         X8 = CONS( X8, EMPTYLIST );
  348.         X7 = CONS( X7, EMPTYLIST );
  349.         X6 = CONS( X6, EMPTYLIST );
  350.         X5 = CONS( X5, EMPTYLIST );
  351.         X4 = CONS( X4, EMPTYLIST );
  352.         X3 = CONS( X3, EMPTYLIST );
  353.         DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
  354.         DISPLAY( 0 ) = CONS( DISPLAY( 0 ), EMPTYLIST );
  355.         X2 = CONS( X2, EMPTYLIST );
  356.         X1 = CONS( X1, EMPTYLIST );
  357.         X14 = scrt6_exit_v;
  358.         SETGEN( PAIR_CAR( X13 ), X14 );
  359.         X14 = scrt6_reset_v;
  360.         SETGEN( PAIR_CAR( X12 ), X14 );
  361.         X14 = scrt4_signal( _TSCP( 8 ), _TSCP( 4 ) );
  362.         SETGEN( PAIR_CAR( X11 ), X14 );
  363.         X14 = scdebug_trace_2dlevel_v;
  364.         SETGEN( PAIR_CAR( X10 ), X14 );
  365.         X14 = scrt5_rt_2dvalue_e3d6f738_v;
  366.         SETGEN( PAIR_CAR( X9 ), X14 );
  367.         X14 = scrt5_rt_2dvalue_c91906c5_v;
  368.         SETGEN( PAIR_CAR( X8 ), X14 );
  369.         X15 = scrt1_member( c1067, f1044 );
  370.         if  ( FALSE( X15 ) )  goto  L1307;
  371.         X14 = X15;
  372.         goto L1308;
  373. L1307:
  374.         X14 = scrt1_member( c1069, f1044 );
  375. L1308:
  376.         SETGEN( PAIR_CAR( X7 ), X14 );
  377.         X15 = scrt1_member( c1073, f1044 );
  378.         if  ( FALSE( X15 ) )  goto  L1310;
  379.         X14 = X15;
  380.         goto L1311;
  381. L1310:
  382.         X14 = scrt1_member( c1075, f1044 );
  383. L1311:
  384.         SETGEN( PAIR_CAR( X6 ), X14 );
  385.         X15 = scrt1_member( c1090, f1044 );
  386.         if  ( FALSE( X15 ) )  goto  L1313;
  387.         if  ( EQ( TSCPTAG( X15 ), PAIRTAG ) )  goto  L1316;
  388.         scrt1__24__cdr_2derror( X15 );
  389. L1316:
  390.         X16 = PAIR_CDR( X15 );
  391.         if  ( EQ( TSCPTAG( X16 ), PAIRTAG ) )  goto  L1319;
  392.         scrt1__24__car_2derror( X16 );
  393. L1319:
  394.         X14 = PAIR_CAR( X16 );
  395.         goto L1322;
  396. L1313:
  397.         if  ( FALSE( scrt1_member( c1078, f1044 ) ) )  goto  L1321;
  398.         X14 = FALSEVALUE;
  399.         goto L1322;
  400. L1321:
  401.         X14 = c1079;
  402. L1322:
  403.         SETGEN( PAIR_CAR( X5 ), X14 );
  404.         X15 = scrt1_member( c1121, f1044 );
  405.         if  ( FALSE( X15 ) )  goto  L1324;
  406.         if  ( EQ( TSCPTAG( X15 ), PAIRTAG ) )  goto  L1327;
  407.         scrt1__24__cdr_2derror( X15 );
  408. L1327:
  409.         X16 = PAIR_CDR( X15 );
  410.         if  ( EQ( TSCPTAG( X16 ), PAIRTAG ) )  goto  L1330;
  411.         scrt1__24__car_2derror( X16 );
  412. L1330:
  413.         X14 = PAIR_CAR( X16 );
  414.         goto L1333;
  415. L1324:
  416.         if  ( FALSE( scrt1_member( c1093, f1044 ) ) )  goto  L1332;
  417.         X14 = FALSEVALUE;
  418.         goto L1333;
  419. L1332:
  420.         X16 = CONS( c1110, EMPTYLIST );
  421.         X16 = CONS( c1109, X16 );
  422.         X18 = sc_implementation_v;
  423.         X18 = UNKNOWNCALL( X18, 0 );
  424.         X17 = VIA( PROCEDURE_CODE( X18 ) )( PROCEDURE_CLOSURE( X18 ) );
  425.         if  ( EQ( TSCPTAG( X17 ), PAIRTAG ) )  goto  L1336;
  426.         scrt1__24__cdr_2derror( X17 );
  427. L1336:
  428.         X18 = PAIR_CDR( X17 );
  429.         if  ( EQ( TSCPTAG( X18 ), PAIRTAG ) )  goto  L1339;
  430.         scrt1__24__car_2derror( X18 );
  431. L1339:
  432.         X16 = CONS( PAIR_CAR( X18 ), X16 );
  433.         X18 = sc_implementation_v;
  434.         X18 = UNKNOWNCALL( X18, 0 );
  435.         X17 = VIA( PROCEDURE_CODE( X18 ) )( PROCEDURE_CLOSURE( X18 ) );
  436.         if  ( EQ( TSCPTAG( X17 ), PAIRTAG ) )  goto  L1342;
  437.         scrt1__24__car_2derror( X17 );
  438. L1342:
  439.         X14 = scrt6_format( c1094, 
  440.                             CONS( PAIR_CAR( X17 ), X16 ) );
  441. L1333:
  442.         SETGEN( PAIR_CAR( X4 ), X14 );
  443.         X15 = scrt1_member( c1134, f1044 );
  444.         if  ( FALSE( X15 ) )  goto  L1345;
  445.         if  ( EQ( TSCPTAG( X15 ), PAIRTAG ) )  goto  L1348;
  446.         scrt1__24__cdr_2derror( X15 );
  447. L1348:
  448.         X16 = PAIR_CDR( X15 );
  449.         if  ( EQ( TSCPTAG( X16 ), PAIRTAG ) )  goto  L1351;
  450.         scrt1__24__car_2derror( X16 );
  451. L1351:
  452.         X14 = PAIR_CAR( X16 );
  453.         goto L1346;
  454. L1345:
  455.         X14 = EMPTYLIST;
  456. L1346:
  457.         SETGEN( PAIR_CAR( X3 ), X14 );
  458.         X14 = scrt1_member( c1135, f1044 );
  459.         SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X14 );
  460.         X15 = scrt1_member( c1148, f1044 );
  461.         if  ( FALSE( X15 ) )  goto  L1354;
  462.         if  ( EQ( TSCPTAG( X15 ), PAIRTAG ) )  goto  L1357;
  463.         scrt1__24__cdr_2derror( X15 );
  464. L1357:
  465.         X16 = PAIR_CDR( X15 );
  466.         if  ( EQ( TSCPTAG( X16 ), PAIRTAG ) )  goto  L1360;
  467.         scrt1__24__car_2derror( X16 );
  468. L1360:
  469.         X14 = PAIR_CAR( X16 );
  470.         goto L1355;
  471. L1354:
  472.         X14 = FALSEVALUE;
  473. L1355:
  474.         SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X14 );
  475.         X14 = MAKEPROCEDURE( 1, 
  476.                              0, 
  477.                              screp_m1059, 
  478.                              MAKECLOSURE( EMPTYLIST, 
  479.                                           1, DISPLAY( 0 ) ) );
  480.         SETGEN( PAIR_CAR( X2 ), X14 );
  481.         X14 = MAKEPROCEDURE( 1, 
  482.                              0, 
  483.                              screp_m1060, 
  484.                              MAKECLOSURE( EMPTYLIST, 
  485.                                           1, DISPLAY( 1 ) ) );
  486.         SETGEN( PAIR_CAR( X1 ), X14 );
  487.         if  ( FALSE( sc_ntinuation_1af38b9f( PAIR_CAR( X2 ) ) )
  488.             )  goto  L1385;
  489.         if  ( FALSE( sc_ntinuation_1af38b9f( PAIR_CAR( X1 ) ) )
  490.             )  goto  L1388;
  491.         if  ( FALSE( PAIR_CAR( DISPLAY( 1 ) ) ) )  goto  L1391;
  492.         scrt4_signal( _TSCP( 8 ), PAIR_CAR( X11 ) );
  493.         goto L1393;
  494. L1391:
  495.         if  ( EQ( UNSIGNED( PAIR_CAR( X11 ) ), 
  496.                   UNSIGNED( _TSCP( 4 ) ) ) )  goto  L1393;
  497.         scrt4_signal( _TSCP( 8 ), scdebug_on_2dinterrupt_v );
  498. L1393:
  499.         if  ( FALSE( PAIR_CAR( X7 ) ) )  goto  L1395;
  500.         scrt6_echo( PAIR_CAR( X9 ), 
  501.                     CONS( PAIR_CAR( X8 ), EMPTYLIST ) );
  502. L1395:
  503.         if  ( FALSE( PAIR_CAR( X4 ) ) )  goto  L1389;
  504.         X14 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
  505.         scrt6_format( scrt5_stdout_2dport_v, 
  506.                       CONS( c1187, X14 ) );
  507.         goto L1389;
  508. L1388:
  509.         scrt5_rt_2dvalue_e3d6f738_v = PAIR_CAR( X9 );
  510.         scrt5_rt_2dvalue_c91906c5_v = PAIR_CAR( X8 );
  511.         scdebug_trace_2dlevel_v = PAIR_CAR( X10 );
  512. L1389:
  513.         if  ( TRUE( screp_top_2dlevel_v ) )  goto  L1400;
  514.         screp__2aemacscheme_2a_v = scrt1_member( c1164, f1044 );
  515.         DISPLAY( 2 ) = scrt6_reset_v;
  516.         screp_top_2dlevel_v = MAKEPROCEDURE( 0, 
  517.                                              0, 
  518.                                              screp_l1167, 
  519.                                              MAKECLOSURE( EMPTYLIST, 
  520.                                                           1, 
  521.                                                           DISPLAY( 2 ) ) );
  522.         scrt6__2aerror_2dhandler_2a_v = scdebug__2dhandler_7d8722d5_v;
  523.         scdebug_2derror_2a_ca4047fd_v = TRUEVALUE;
  524.         X14 = MAKEPROCEDURE( 1, 0, screp_l1169, EMPTYLIST );
  525.         scrt4_signal( _TSCP( 40 ), X14 );
  526.         X14 = MAKEPROCEDURE( 1, 0, screp_l1174, EMPTYLIST );
  527.         scrt4_signal( _TSCP( 44 ), X14 );
  528.         X14 = MAKEPROCEDURE( 1, 0, screp_l1178, EMPTYLIST );
  529.         scrt4_signal( _TSCP( 48 ), X14 );
  530. L1400:
  531.         if  ( FALSE( PAIR_CAR( DISPLAY( 1 ) ) ) )  goto  L1416;
  532.         X14 = scrt5_current_2dinput_2dport(  );
  533.         goto L1417;
  534. L1416:
  535.         X14 = scrt5_stdin_2dport_v;
  536. L1417:
  537.         screp_rep( PAIR_CAR( X3 ), 
  538.                    X14, 
  539.                    scrt5_stdout_2dport_v, 
  540.                    PAIR_CAR( X5 ), PAIR_CAR( X6 ) );
  541. L1385:
  542.         scrt4_signal( _TSCP( 8 ), PAIR_CAR( X11 ) );
  543.         if  ( FALSE( PAIR_CAR( X7 ) ) )  goto  L1418;
  544.         scrt6_echo( PAIR_CAR( X9 ), 
  545.                     CONS( FALSEVALUE, EMPTYLIST ) );
  546. L1418:
  547.         scrt6_exit_v = PAIR_CAR( X13 );
  548.         scrt6_reset_v = PAIR_CAR( X12 );
  549.         scdebug_trace_2dlevel_v = PAIR_CAR( X10 );
  550.         SDVAL = PAIR_CAR( DISPLAY( 0 ) );
  551.         DISPLAY( 0 ) = SD0;
  552.         DISPLAY( 1 ) = SD1;
  553.         DISPLAY( 2 ) = SD2;
  554.         POPSTACKTRACE( SDVAL );
  555. }
  556.  
  557. DEFTSCP( screp_flush_2dwhite_v );
  558. DEFSTRING( t1420, "SCREP_FLUSH-WHITE", 17 );
  559. EXTERNTSCPP( scrt6_char_2dready_3f );
  560. EXTERNTSCP( scrt6_char_2dready_3f_v );
  561. EXTERNTSCPP( scrt6_peek_2dchar );
  562. EXTERNTSCP( scrt6_peek_2dchar_v );
  563. EXTERNTSCPP( scrt6_eof_2dobject_3f );
  564. EXTERNTSCP( scrt6_eof_2dobject_3f_v );
  565. EXTERNTSCPP( scrt3_char_2dwhitespace_3f );
  566. EXTERNTSCP( scrt3_char_2dwhitespace_3f_v );
  567. EXTERNTSCPP( scrt6_read_2dchar );
  568. EXTERNTSCP( scrt6_read_2dchar_v );
  569.  
  570. TSCP  screp_flush_2dwhite( i1192 )
  571.         TSCP  i1192;
  572. {
  573.         TSCP  X3, X2, X1;
  574.  
  575.         PUSHSTACKTRACE( U_TX( ADR( t1420 ) ) );
  576. L1421:
  577.         X2 = scrt6_char_2dready_3f( CONS( i1192, EMPTYLIST ) );
  578.         if  ( FALSE( X2 ) )  goto  L1423;
  579.         X1 = scrt6_peek_2dchar( CONS( i1192, EMPTYLIST ) );
  580.         goto L1424;
  581. L1423:
  582.         X1 = X2;
  583. L1424:
  584.         if  ( FALSE( X1 ) )  goto  L1426;
  585.         if  ( TRUE( scrt6_eof_2dobject_3f( X1 ) ) )  goto  L1428;
  586.         if  ( FALSE( scrt3_char_2dwhitespace_3f( X1 ) ) )  goto  L1430;
  587.         scrt6_read_2dchar( CONS( i1192, EMPTYLIST ) );
  588.         goto L1421;
  589. L1430:
  590.         POPSTACKTRACE( FALSEVALUE );
  591. L1428:
  592.         POPSTACKTRACE( FALSEVALUE );
  593. L1426:
  594.         POPSTACKTRACE( FALSEVALUE );
  595. }
  596.  
  597. DEFTSCP( screp_rep_v );
  598. DEFSTRING( t1433, "SCREP_REP", 9 );
  599. EXTERNTSCPP( scrt6_display );
  600. EXTERNTSCP( scrt6_display_v );
  601. EXTERNTSCPP( scrt6_read );
  602. EXTERNTSCP( scrt6_read_v );
  603. EXTERNTSCPP( scrt6_newline );
  604. EXTERNTSCP( scrt6_newline_v );
  605. EXTERNTSCPP( scrt1_memq );
  606. EXTERNTSCP( scrt1_memq_v );
  607. EXTERNTSCPP( sceval_eval );
  608. EXTERNTSCP( sceval_eval_v );
  609.  
  610. TSCP  screp_rep( e1209, i1210, o1211, p1212, q1213 )
  611.         TSCP  e1209, i1210, o1211, p1212, q1213;
  612. {
  613.         TSCP  X4, X3, X2, X1;
  614.  
  615.         PUSHSTACKTRACE( U_TX( ADR( t1433 ) ) );
  616.         X1 = FALSEVALUE;
  617. L1436:
  618.         X1 = CONS( X1, EMPTYLIST );
  619.         screp_flush_2dwhite( i1210 );
  620.         if  ( FALSE( p1212 ) )  goto  L1439;
  621.         if  ( TRUE( scrt6_char_2dready_3f( CONS( i1210, EMPTYLIST ) ) )
  622.             )  goto  L1439;
  623.         scrt6_display( p1212, CONS( o1211, EMPTYLIST ) );
  624. L1439:
  625.         screp__2areading_2dstdin_2a_v = BOOLEAN( EQ( UNSIGNED( i1210 ), 
  626.                                                      UNSIGNED( scrt5_stdin_2dport_v ) ) );
  627.         X2 = scrt6_read( CONS( i1210, EMPTYLIST ) );
  628.         SETGEN( PAIR_CAR( X1 ), X2 );
  629.         screp__2areading_2dstdin_2a_v = FALSEVALUE;
  630.         if  ( FALSE( scrt6_eof_2dobject_3f( PAIR_CAR( X1 ) ) )
  631.             )  goto  L1441;
  632.         if  ( FALSE( p1212 ) )  goto  L1443;
  633.         POPSTACKTRACE( scrt6_newline( CONS( o1211, EMPTYLIST ) ) );
  634. L1443:
  635.         POPSTACKTRACE( FALSEVALUE );
  636. L1441:
  637.         X2 = BOOLEAN( EQ( TSCPTAG( PAIR_CAR( X1 ) ), 
  638.                           PAIRTAG ) );
  639.         if  ( FALSE( X2 ) )  goto  L1460;
  640.         X4 = PAIR_CAR( X1 );
  641.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L1452;
  642.         scrt1__24__car_2derror( X4 );
  643. L1452:
  644.         X3 = PAIR_CAR( X4 );
  645.         if  ( FALSE( scrt1_memq( X3, c1235 ) ) )  goto  L1460;
  646.         screp_flush_2dwhite( i1210 );
  647.         if  ( TRUE( q1213 ) )  goto  L1455;
  648.         X4 = PAIR_CAR( X1 );
  649.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L1458;
  650.         scrt1__24__car_2derror( X4 );
  651. L1458:
  652.         X3 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
  653.         scrt6_format( o1211, CONS( c1239, X3 ) );
  654. L1455:
  655.         X1 = FALSEVALUE;
  656.         goto L1436;
  657. L1460:
  658.         if  ( FALSE( screp__2aemacscheme_2a_v ) )  goto  L1462;
  659.         scrt6_newline( CONS( o1211, EMPTYLIST ) );
  660. L1462:
  661.         X2 = sceval_eval( PAIR_CAR( X1 ), 
  662.                           CONS( e1209, EMPTYLIST ) );
  663.         SETGEN( PAIR_CAR( X1 ), X2 );
  664.         screp_flush_2dwhite( i1210 );
  665.         if  ( TRUE( q1213 ) )  goto  L1464;
  666.         X2 = CONS( PAIR_CAR( X1 ), EMPTYLIST );
  667.         scrt6_format( o1211, CONS( c1237, X2 ) );
  668. L1464:
  669.         X1 = FALSEVALUE;
  670.         goto L1436;
  671. }
  672.  
  673. DEFTSCP( screp_load_v );
  674. DEFSTRING( t1466, "LOAD", 4 );
  675. EXTERNTSCPP( scrt5_rom_2dfile_73f9e308 );
  676. EXTERNTSCP( scrt5_rom_2dfile_73f9e308_v );
  677. DEFSTRING( t1469, "screp_l1246 [inside LOAD]", 25 );
  678.  
  679. TSCP  screp_l1246( c1468 )
  680.         TSCP  c1468;
  681. {
  682.         TSCP  X1;
  683.  
  684.         PUSHSTACKTRACE( U_TX( ADR( t1469 ) ) );
  685.         X1 = CONS( c1135, EMPTYLIST );
  686.         X1 = CONS( FALSEVALUE, X1 );
  687.         X1 = CONS( c1090, X1 );
  688.         X1 = CONS( FALSEVALUE, X1 );
  689.         POPSTACKTRACE( screp_read_2deval_2dprint( CONS( c1121, X1 ) ) );
  690. }
  691.  
  692. TSCP  screp_load( f1245 )
  693.         TSCP  f1245;
  694. {
  695.         TSCP  X1;
  696.  
  697.         PUSHSTACKTRACE( U_TX( ADR( t1466 ) ) );
  698.         X1 = MAKEPROCEDURE( 0, 0, screp_l1246, EMPTYLIST );
  699.         scrt5_rom_2dfile_73f9e308( f1245, X1 );
  700.         POPSTACKTRACE( f1245 );
  701. }
  702.  
  703. DEFTSCP( screp_loadq_v );
  704. DEFSTRING( t1471, "LOADQ", 5 );
  705. DEFSTRING( t1474, "screp_l1249 [inside LOADQ]", 26 );
  706.  
  707. TSCP  screp_l1249( c1473 )
  708.         TSCP  c1473;
  709. {
  710.         TSCP  X1;
  711.  
  712.         PUSHSTACKTRACE( U_TX( ADR( t1474 ) ) );
  713.         X1 = CONS( c1135, EMPTYLIST );
  714.         X1 = CONS( c1073, X1 );
  715.         X1 = CONS( FALSEVALUE, X1 );
  716.         X1 = CONS( c1090, X1 );
  717.         X1 = CONS( FALSEVALUE, X1 );
  718.         POPSTACKTRACE( screp_read_2deval_2dprint( CONS( c1121, X1 ) ) );
  719. }
  720.  
  721. TSCP  screp_loadq( f1248 )
  722.         TSCP  f1248;
  723. {
  724.         TSCP  X1;
  725.  
  726.         PUSHSTACKTRACE( U_TX( ADR( t1471 ) ) );
  727.         X1 = MAKEPROCEDURE( 0, 0, screp_l1249, EMPTYLIST );
  728.         scrt5_rom_2dfile_73f9e308( f1248, X1 );
  729.         POPSTACKTRACE( f1248 );
  730. }
  731.  
  732. DEFTSCP( screp_loade_v );
  733. DEFSTRING( t1476, "LOADE", 5 );
  734. DEFSTRING( t1479, "screp_l1252 [inside LOADE]", 26 );
  735.  
  736. TSCP  screp_l1252( c1478 )
  737.         TSCP  c1478;
  738. {
  739.         TSCP  X1;
  740.  
  741.         PUSHSTACKTRACE( U_TX( ADR( t1479 ) ) );
  742.         X1 = CONS( c1135, EMPTYLIST );
  743.         X1 = CONS( c1067, X1 );
  744.         X1 = CONS( FALSEVALUE, X1 );
  745.         X1 = CONS( c1090, X1 );
  746.         X1 = CONS( FALSEVALUE, X1 );
  747.         POPSTACKTRACE( screp_read_2deval_2dprint( CONS( c1121, X1 ) ) );
  748. }
  749.  
  750. TSCP  screp_loade( f1251 )
  751.         TSCP  f1251;
  752. {
  753.         TSCP  X1;
  754.  
  755.         PUSHSTACKTRACE( U_TX( ADR( t1476 ) ) );
  756.         X1 = MAKEPROCEDURE( 0, 0, screp_l1252, EMPTYLIST );
  757.         scrt5_rom_2dfile_73f9e308( f1251, X1 );
  758.         POPSTACKTRACE( f1251 );
  759. }
  760.  
  761. static void  init_modules( compiler_version )
  762.         char *compiler_version;
  763. {
  764.         sceval__init();
  765.         scrt3__init();
  766.         scrt1__init();
  767.         scrt5__init();
  768.         scdebug__init();
  769.         scrt4__init();
  770.         scrt6__init();
  771.         scdebug__init();
  772.         sceval__init();
  773.         scexpand__init();
  774.         scexpanders1__init();
  775.         scexpanders2__init();
  776.         scqquote__init();
  777.         MAXDISPLAY( 4 );
  778. }
  779.  
  780. void  screp__init()
  781. {
  782.         static int  init = 0;
  783.         if  (init)  return;
  784.         init = 1;
  785.         INITHEAP( 0, 0, 0, 0 );
  786.         init_constants();
  787.         init_modules( "(screp SCHEME->C COMPILER 28sep90jfb)" );
  788.         INITIALIZEVAR( U_TX( ADR( t1300 ) ), 
  789.                        ADR( screp_top_2dlevel_v ), FALSEVALUE );
  790.         INITIALIZEVAR( U_TX( ADR( t1301 ) ), 
  791.                        ADR( screp__2aemacscheme_2a_v ), 
  792.                        FALSEVALUE );
  793.         INITIALIZEVAR( U_TX( ADR( t1302 ) ), 
  794.                        ADR( screp__2areading_2dstdin_2a_v ), 
  795.                        FALSEVALUE );
  796.         INITIALIZEVAR( U_TX( ADR( t1303 ) ), 
  797.                        ADR( screp_read_2deval_2dprint_v ), 
  798.                        MAKEPROCEDURE( 0, 
  799.                                       1, 
  800.                                       screp_read_2deval_2dprint, 
  801.                                       EMPTYLIST ) );
  802.         INITIALIZEVAR( U_TX( ADR( t1420 ) ), 
  803.                        ADR( screp_flush_2dwhite_v ), 
  804.                        MAKEPROCEDURE( 1, 
  805.                                       0, 
  806.                                       screp_flush_2dwhite, EMPTYLIST ) );
  807.         INITIALIZEVAR( U_TX( ADR( t1433 ) ), 
  808.                        ADR( screp_rep_v ), 
  809.                        MAKEPROCEDURE( 5, 
  810.                                       0, screp_rep, EMPTYLIST ) );
  811.         INITIALIZEVAR( U_TX( ADR( t1466 ) ), 
  812.                        ADR( screp_load_v ), 
  813.                        MAKEPROCEDURE( 1, 
  814.                                       0, screp_load, EMPTYLIST ) );
  815.         INITIALIZEVAR( U_TX( ADR( t1471 ) ), 
  816.                        ADR( screp_loadq_v ), 
  817.                        MAKEPROCEDURE( 1, 
  818.                                       0, screp_loadq, EMPTYLIST ) );
  819.         INITIALIZEVAR( U_TX( ADR( t1476 ) ), 
  820.                        ADR( screp_loade_v ), 
  821.                        MAKEPROCEDURE( 1, 
  822.                                       0, screp_loade, EMPTYLIST ) );
  823.         return;
  824. }
  825.