diff options
author | jmacd <jmacd@FreeBSD.org> | 1995-01-30 17:34:20 +0800 |
---|---|---|
committer | jmacd <jmacd@FreeBSD.org> | 1995-01-30 17:34:20 +0800 |
commit | 911c4facdaae80202ba88d4cfc73927fa7e08d63 (patch) | |
tree | 53bb6c5683e48cc4ca98b48cf5cafff2699b178c /lang/schemetoc | |
parent | e134b867ae4ba8a530aa1208dfcce30a6e251e2c (diff) | |
download | freebsd-ports-gnome-911c4facdaae80202ba88d4cfc73927fa7e08d63.tar.gz freebsd-ports-gnome-911c4facdaae80202ba88d4cfc73927fa7e08d63.tar.zst freebsd-ports-gnome-911c4facdaae80202ba88d4cfc73927fa7e08d63.zip |
Log: replace main.c for patch-g, which was larger.
Diffstat (limited to 'lang/schemetoc')
-rw-r--r-- | lang/schemetoc/files/main.c | 1141 |
1 files changed, 1141 insertions, 0 deletions
diff --git a/lang/schemetoc/files/main.c b/lang/schemetoc/files/main.c new file mode 100644 index 000000000000..0cd2a9f4567e --- /dev/null +++ b/lang/schemetoc/files/main.c @@ -0,0 +1,1141 @@ + +/* SCHEME->C */ + +#include <objects.h> + +DEFSTATICTSCP( sc_2dlog_2ddefault_v ); +DEFSTATICTSCP( with_2dmodules_v ); +DEFSTATICTSCP( initialize_2dcompile_v ); +DEFSTATICTSCP( do_2ddefine_2dconstant_v ); +DEFSTATICTSCP( sc_2dinclude_2ddirs_v ); +DEFSTATICTSCP( sc_2dinput_v ); +DEFSTATICTSCP( sc_2dsource_2dname_v ); +DEFSTATICTSCP( sc_2dicode_v ); +DEFSTATICTSCP( sc_2derror_v ); +DEFSTATICTSCP( sc_2dlog_v ); +DEFSTATICTSCP( sc_2dstack_2dtrace_v ); +DEFSTATICTSCP( sc_2dinterpreter_v ); +DEFSTATICTSCP( docompile_v ); +DEFSTATICTSCP( sc_2derror_2dcnt_v ); +DEFSTATICTSCP( module_2dname_v ); +DEFSTATICTSCP( close_2dsc_2dfiles_v ); +DEFCSTRING( t2604, "Argument is not a STRING: ~s" ); +DEFSTATICTSCP( c2558 ); +DEFSTATICTSCP( c2557 ); +DEFCSTRING( t2605, ".S2C" ); +DEFSTATICTSCP( c2540 ); +DEFCSTRING( t2606, ".c" ); +DEFSTATICTSCP( c2539 ); +DEFCSTRING( t2607, "~a:~%" ); +DEFSTATICTSCP( c2490 ); +DEFCSTRING( t2608, ".sc" ); +DEFSTATICTSCP( c2488 ); +DEFCSTRING( t2609, "gcc" ); +DEFSTATICTSCP( c2456 ); +DEFCSTRING( t2610, "SC-TO-C.o" ); +DEFSTATICTSCP( c2455 ); +DEFCSTRING( t2611, "SC-TO-C.c" ); +DEFSTATICTSCP( c2454 ); +DEFCSTRING( t2612, "-lX11" ); +DEFSTATICTSCP( c2450 ); +DEFCSTRING( t2613, "-lm" ); +DEFSTATICTSCP( c2447 ); +DEFCSTRING( t2614, "-pg" ); +DEFSTATICTSCP( c2444 ); +DEFCSTRING( t2615, "-lsc -lscxl -lX11" ); +DEFSTATICTSCP( c2443 ); +DEFCSTRING( t2616, "-lsc" ); +DEFSTATICTSCP( c2440 ); +DEFCSTRING( t2617, "xlib" ); +DEFSTATICTSCP( c2436 ); +DEFCSTRING( t2618, "-c" ); +DEFSTATICTSCP( c2435 ); +DEFCSTRING( t2619, " -I" ); +DEFSTATICTSCP( c2390 ); +DEFCSTRING( t2620, "}~%" ); +DEFSTATICTSCP( c2384 ); +DEFCSTRING( t2621, " SCHEMEEXIT();~%" ); +DEFSTATICTSCP( c2383 ); +DEFCSTRING( t2622, + " screp_read_2deval_2dprint( sc_clarguments( argc, argv ) );~%\ +" ); +DEFSTATICTSCP( c2382 ); +DEFCSTRING( t2623, "screp" ); +DEFSTATICTSCP( c2381 ); +DEFCSTRING( t2624, " ~a__init();~%" ); +DEFSTATICTSCP( c2380 ); +DEFCSTRING( t2625, "Argument not a PAIR: ~s" ); +DEFSTATICTSCP( c2369 ); +DEFSTATICTSCP( c2368 ); +DEFCSTRING( t2626, + " INITHEAP( 0, argc, argv, screp_read_2deval_2dprint );~%" ); +DEFSTATICTSCP( c2333 ); +DEFCSTRING( t2627, "{~%" ); +DEFSTATICTSCP( c2332 ); +DEFCSTRING( t2628, " int argc; char *argv[];~%" ); +DEFSTATICTSCP( c2331 ); +DEFCSTRING( t2629, "main( argc, argv )~%" ); +DEFSTATICTSCP( c2330 ); +DEFCSTRING( t2630, "extern TSCP screp_read_2deval_2dprint();~%" ); +DEFSTATICTSCP( c2329 ); +DEFCSTRING( t2631, "#include \"~a/~a\"~%" ); +DEFSTATICTSCP( c2328 ); +DEFCSTRING( t2632, ")" ); +DEFSTATICTSCP( c2312 ); +DEFCSTRING( t2633, " " ); +DEFSTATICTSCP( c2311 ); +DEFCSTRING( t2634, "(define-constant " ); +DEFSTATICTSCP( c2300 ); +DEFCSTRING( t2635, "/" ); +DEFSTATICTSCP( c2283 ); +DEFSTATICTSCP( c2181 ); +DEFSTATICTSCP( t2636 ); +DEFCSTRING( t2638, "-peep" ); +DEFSTATICTSCP( t2637 ); +DEFSTATICTSCP( t2639 ); +DEFCSTRING( t2641, "-lap" ); +DEFSTATICTSCP( t2640 ); +DEFSTATICTSCP( t2642 ); +DEFCSTRING( t2644, "-tree" ); +DEFSTATICTSCP( t2643 ); +DEFSTATICTSCP( t2645 ); +DEFCSTRING( t2647, "-lambda" ); +DEFSTATICTSCP( t2646 ); +DEFSTATICTSCP( t2648 ); +DEFCSTRING( t2650, "-transform" ); +DEFSTATICTSCP( t2649 ); +DEFSTATICTSCP( t2651 ); +DEFCSTRING( t2653, "-closed" ); +DEFSTATICTSCP( t2652 ); +DEFSTATICTSCP( t2654 ); +DEFCSTRING( t2656, "-expand" ); +DEFSTATICTSCP( t2655 ); +DEFSTATICTSCP( t2657 ); +DEFCSTRING( t2659, "-macro" ); +DEFSTATICTSCP( t2658 ); +DEFSTATICTSCP( t2660 ); +DEFCSTRING( t2662, "-source" ); +DEFSTATICTSCP( t2661 ); +DEFCSTRING( t2663, "(define-constant *type-check* #f)" ); +DEFSTATICTSCP( c2166 ); +DEFCSTRING( t2664, "(define-constant *bounds-check* #f)" ); +DEFSTATICTSCP( c2155 ); +DEFCSTRING( t2665, "(define-constant *fixed-only* #t)" ); +DEFSTATICTSCP( c2144 ); +DEFCSTRING( t2666, "-cc" ); +DEFSTATICTSCP( c2105 ); +DEFCSTRING( t2667, "-C" ); +DEFSTATICTSCP( c2101 ); +DEFCSTRING( t2668, "-On" ); +DEFSTATICTSCP( c2100 ); +DEFCSTRING( t2669, "-Og" ); +DEFSTATICTSCP( c2099 ); +DEFCSTRING( t2670, "-Ob" ); +DEFSTATICTSCP( c2098 ); +DEFCSTRING( t2671, "-static" ); +DEFSTATICTSCP( c2097 ); +DEFCSTRING( t2672, "-Ot" ); +DEFSTATICTSCP( c2096 ); +DEFCSTRING( t2673, "-log" ); +DEFSTATICTSCP( c2093 ); +DEFCSTRING( t2674, "-LIBDIR" ); +DEFSTATICTSCP( c2087 ); +DEFCSTRING( t2675, "-m" ); +DEFSTATICTSCP( c2078 ); +DEFCSTRING( t2676, "-I" ); +DEFSTATICTSCP( c2069 ); +DEFCSTRING( t2677, "-i" ); +DEFSTATICTSCP( c2065 ); +DEFCSTRING( t2678, "-f" ); +DEFSTATICTSCP( c2045 ); +DEFSTATICTSCP( c2019 ); +DEFCSTRING( t2679, "libsc_p.a" ); +DEFSTATICTSCP( c2015 ); +DEFCSTRING( t2680, "scxl.a" ); +DEFSTATICTSCP( c2013 ); +DEFCSTRING( t2681, "libsc.a" ); +DEFSTATICTSCP( c2011 ); +DEFCSTRING( t2682, "objects.h" ); +DEFSTATICTSCP( c2008 ); +DEFCSTRING( t2683, "predef.sc" ); +DEFSTATICTSCP( c2006 ); +DEFCSTRING( t2684, "15mar93-FreeBSD" ); +DEFSTATICTSCP( c2003 ); +DEFCSTRING( t2685, "/usr/local/lib/schemetoc/" ); +DEFSTATICTSCP( c2001 ); + +static void init_constants() +{ + TSCP X1; + + sc_2dlog_2ddefault_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-LOG-DEFAULT\ +" ) ); + CONSTANTEXP( ADR( sc_2dlog_2ddefault_v ) ); + with_2dmodules_v = STRINGTOSYMBOL( CSTRING_TSCP( "WITH-MODULES" ) ); + CONSTANTEXP( ADR( with_2dmodules_v ) ); + initialize_2dcompile_v = STRINGTOSYMBOL( CSTRING_TSCP( "INITIALIZE-C\ +OMPILE" ) ); + CONSTANTEXP( ADR( initialize_2dcompile_v ) ); + do_2ddefine_2dconstant_v = STRINGTOSYMBOL( CSTRING_TSCP( "DO-DEFINE-\ +CONSTANT" ) ); + CONSTANTEXP( ADR( do_2ddefine_2dconstant_v ) ); + sc_2dinclude_2ddirs_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-INCLUDE-DI\ +RS" ) ); + CONSTANTEXP( ADR( sc_2dinclude_2ddirs_v ) ); + sc_2dinput_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-INPUT" ) ); + CONSTANTEXP( ADR( sc_2dinput_v ) ); + sc_2dsource_2dname_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-SOURCE-NAME\ +" ) ); + CONSTANTEXP( ADR( sc_2dsource_2dname_v ) ); + sc_2dicode_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-ICODE" ) ); + CONSTANTEXP( ADR( sc_2dicode_v ) ); + sc_2derror_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-ERROR" ) ); + CONSTANTEXP( ADR( sc_2derror_v ) ); + sc_2dlog_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-LOG" ) ); + CONSTANTEXP( ADR( sc_2dlog_v ) ); + sc_2dstack_2dtrace_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-STACK-TRACE\ +" ) ); + CONSTANTEXP( ADR( sc_2dstack_2dtrace_v ) ); + sc_2dinterpreter_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-INTERPRETER" ) ); + CONSTANTEXP( ADR( sc_2dinterpreter_v ) ); + docompile_v = STRINGTOSYMBOL( CSTRING_TSCP( "DOCOMPILE" ) ); + CONSTANTEXP( ADR( docompile_v ) ); + sc_2derror_2dcnt_v = STRINGTOSYMBOL( CSTRING_TSCP( "SC-ERROR-CNT" ) ); + CONSTANTEXP( ADR( sc_2derror_2dcnt_v ) ); + module_2dname_v = STRINGTOSYMBOL( CSTRING_TSCP( "MODULE-NAME" ) ); + CONSTANTEXP( ADR( module_2dname_v ) ); + close_2dsc_2dfiles_v = STRINGTOSYMBOL( CSTRING_TSCP( "CLOSE-SC-FILES\ +" ) ); + CONSTANTEXP( ADR( close_2dsc_2dfiles_v ) ); + c2558 = CSTRING_TSCP( t2604 ); + CONSTANTEXP( ADR( c2558 ) ); + c2557 = STRINGTOSYMBOL( CSTRING_TSCP( "STRING-LENGTH" ) ); + CONSTANTEXP( ADR( c2557 ) ); + c2540 = CSTRING_TSCP( t2605 ); + CONSTANTEXP( ADR( c2540 ) ); + c2539 = CSTRING_TSCP( t2606 ); + CONSTANTEXP( ADR( c2539 ) ); + c2490 = CSTRING_TSCP( t2607 ); + CONSTANTEXP( ADR( c2490 ) ); + c2488 = CSTRING_TSCP( t2608 ); + CONSTANTEXP( ADR( c2488 ) ); + c2456 = CSTRING_TSCP( t2609 ); + CONSTANTEXP( ADR( c2456 ) ); + c2455 = CSTRING_TSCP( t2610 ); + CONSTANTEXP( ADR( c2455 ) ); + c2454 = CSTRING_TSCP( t2611 ); + CONSTANTEXP( ADR( c2454 ) ); + c2450 = CSTRING_TSCP( t2612 ); + CONSTANTEXP( ADR( c2450 ) ); + c2447 = CSTRING_TSCP( t2613 ); + CONSTANTEXP( ADR( c2447 ) ); + c2444 = CSTRING_TSCP( t2614 ); + CONSTANTEXP( ADR( c2444 ) ); + c2443 = CSTRING_TSCP( t2615 ); + CONSTANTEXP( ADR( c2443 ) ); + c2440 = CSTRING_TSCP( t2616 ); + CONSTANTEXP( ADR( c2440 ) ); + c2436 = CSTRING_TSCP( t2617 ); + CONSTANTEXP( ADR( c2436 ) ); + c2435 = CSTRING_TSCP( t2618 ); + CONSTANTEXP( ADR( c2435 ) ); + c2390 = CSTRING_TSCP( t2619 ); + CONSTANTEXP( ADR( c2390 ) ); + c2384 = CSTRING_TSCP( t2620 ); + CONSTANTEXP( ADR( c2384 ) ); + c2383 = CSTRING_TSCP( t2621 ); + CONSTANTEXP( ADR( c2383 ) ); + c2382 = CSTRING_TSCP( t2622 ); + CONSTANTEXP( ADR( c2382 ) ); + c2381 = CSTRING_TSCP( t2623 ); + CONSTANTEXP( ADR( c2381 ) ); + c2380 = CSTRING_TSCP( t2624 ); + CONSTANTEXP( ADR( c2380 ) ); + c2369 = CSTRING_TSCP( t2625 ); + CONSTANTEXP( ADR( c2369 ) ); + c2368 = STRINGTOSYMBOL( CSTRING_TSCP( "SET-CDR!" ) ); + CONSTANTEXP( ADR( c2368 ) ); + c2333 = CSTRING_TSCP( t2626 ); + CONSTANTEXP( ADR( c2333 ) ); + c2332 = CSTRING_TSCP( t2627 ); + CONSTANTEXP( ADR( c2332 ) ); + c2331 = CSTRING_TSCP( t2628 ); + CONSTANTEXP( ADR( c2331 ) ); + c2330 = CSTRING_TSCP( t2629 ); + CONSTANTEXP( ADR( c2330 ) ); + c2329 = CSTRING_TSCP( t2630 ); + CONSTANTEXP( ADR( c2329 ) ); + c2328 = CSTRING_TSCP( t2631 ); + CONSTANTEXP( ADR( c2328 ) ); + c2312 = CSTRING_TSCP( t2632 ); + CONSTANTEXP( ADR( c2312 ) ); + c2311 = CSTRING_TSCP( t2633 ); + CONSTANTEXP( ADR( c2311 ) ); + c2300 = CSTRING_TSCP( t2634 ); + CONSTANTEXP( ADR( c2300 ) ); + c2283 = CSTRING_TSCP( t2635 ); + CONSTANTEXP( ADR( c2283 ) ); + c2181 = EMPTYLIST; + t2636 = STRINGTOSYMBOL( CSTRING_TSCP( "PEEP" ) ); + X1 = t2636; + t2637 = CSTRING_TSCP( t2638 ); + X1 = CONS( t2637, X1 ); + c2181 = CONS( X1, c2181 ); + t2639 = STRINGTOSYMBOL( CSTRING_TSCP( "LAP" ) ); + X1 = t2639; + t2640 = CSTRING_TSCP( t2641 ); + X1 = CONS( t2640, X1 ); + c2181 = CONS( X1, c2181 ); + t2642 = STRINGTOSYMBOL( CSTRING_TSCP( "TREE" ) ); + X1 = t2642; + t2643 = CSTRING_TSCP( t2644 ); + X1 = CONS( t2643, X1 ); + c2181 = CONS( X1, c2181 ); + t2645 = STRINGTOSYMBOL( CSTRING_TSCP( "LAMBDA" ) ); + X1 = t2645; + t2646 = CSTRING_TSCP( t2647 ); + X1 = CONS( t2646, X1 ); + c2181 = CONS( X1, c2181 ); + t2648 = STRINGTOSYMBOL( CSTRING_TSCP( "TRANSFORM" ) ); + X1 = t2648; + t2649 = CSTRING_TSCP( t2650 ); + X1 = CONS( t2649, X1 ); + c2181 = CONS( X1, c2181 ); + t2651 = STRINGTOSYMBOL( CSTRING_TSCP( "CLOSED" ) ); + X1 = t2651; + t2652 = CSTRING_TSCP( t2653 ); + X1 = CONS( t2652, X1 ); + c2181 = CONS( X1, c2181 ); + t2654 = STRINGTOSYMBOL( CSTRING_TSCP( "EXPAND" ) ); + X1 = t2654; + t2655 = CSTRING_TSCP( t2656 ); + X1 = CONS( t2655, X1 ); + c2181 = CONS( X1, c2181 ); + t2657 = STRINGTOSYMBOL( CSTRING_TSCP( "MACRO" ) ); + X1 = t2657; + t2658 = CSTRING_TSCP( t2659 ); + X1 = CONS( t2658, X1 ); + c2181 = CONS( X1, c2181 ); + t2660 = STRINGTOSYMBOL( CSTRING_TSCP( "SOURCE" ) ); + X1 = t2660; + t2661 = CSTRING_TSCP( t2662 ); + X1 = CONS( t2661, X1 ); + c2181 = CONS( X1, c2181 ); + CONSTANTEXP( ADR( c2181 ) ); + c2166 = CSTRING_TSCP( t2663 ); + CONSTANTEXP( ADR( c2166 ) ); + c2155 = CSTRING_TSCP( t2664 ); + CONSTANTEXP( ADR( c2155 ) ); + c2144 = CSTRING_TSCP( t2665 ); + CONSTANTEXP( ADR( c2144 ) ); + c2105 = CSTRING_TSCP( t2666 ); + CONSTANTEXP( ADR( c2105 ) ); + c2101 = CSTRING_TSCP( t2667 ); + CONSTANTEXP( ADR( c2101 ) ); + c2100 = CSTRING_TSCP( t2668 ); + CONSTANTEXP( ADR( c2100 ) ); + c2099 = CSTRING_TSCP( t2669 ); + CONSTANTEXP( ADR( c2099 ) ); + c2098 = CSTRING_TSCP( t2670 ); + CONSTANTEXP( ADR( c2098 ) ); + c2097 = CSTRING_TSCP( t2671 ); + CONSTANTEXP( ADR( c2097 ) ); + c2096 = CSTRING_TSCP( t2672 ); + CONSTANTEXP( ADR( c2096 ) ); + c2093 = CSTRING_TSCP( t2673 ); + CONSTANTEXP( ADR( c2093 ) ); + c2087 = CSTRING_TSCP( t2674 ); + CONSTANTEXP( ADR( c2087 ) ); + c2078 = CSTRING_TSCP( t2675 ); + CONSTANTEXP( ADR( c2078 ) ); + c2069 = CSTRING_TSCP( t2676 ); + CONSTANTEXP( ADR( c2069 ) ); + c2065 = CSTRING_TSCP( t2677 ); + CONSTANTEXP( ADR( c2065 ) ); + c2045 = CSTRING_TSCP( t2678 ); + CONSTANTEXP( ADR( c2045 ) ); + c2019 = EMPTYLIST; + c2019 = CONS( EMPTYSTRING, c2019 ); + CONSTANTEXP( ADR( c2019 ) ); + c2015 = CSTRING_TSCP( t2679 ); + CONSTANTEXP( ADR( c2015 ) ); + c2013 = CSTRING_TSCP( t2680 ); + CONSTANTEXP( ADR( c2013 ) ); + c2011 = CSTRING_TSCP( t2681 ); + CONSTANTEXP( ADR( c2011 ) ); + c2008 = CSTRING_TSCP( t2682 ); + CONSTANTEXP( ADR( c2008 ) ); + c2006 = CSTRING_TSCP( t2683 ); + CONSTANTEXP( ADR( c2006 ) ); + c2003 = CSTRING_TSCP( t2684 ); + CONSTANTEXP( ADR( c2003 ) ); + c2001 = CSTRING_TSCP( t2685 ); + CONSTANTEXP( ADR( c2001 ) ); +} + +DEFTSCP( main_scheme__dir_v ); +DEFCSTRING( t2686, "SCHEME_DIR" ); +DEFTSCP( main_scc_2dversion_v ); +DEFCSTRING( t2687, "SCC-VERSION" ); +DEFTSCP( main_force_2dld_2dof_2drep_v ); +DEFCSTRING( t2688, "FORCE-LD-OF-REP" ); +EXTERNTSCPP( screp_read_2deval_2dprint, XAL1( TSCP ) ); +EXTERNTSCP( screp_read_2deval_2dprint_v ); +DEFTSCP( main_predef_2ddefault_v ); +DEFCSTRING( t2689, "PREDEF-DEFAULT" ); +EXTERNTSCPP( scrt3_string_2dappend, XAL1( TSCP ) ); +EXTERNTSCP( scrt3_string_2dappend_v ); +DEFTSCP( main_c_2dinclude_2dfile_v ); +DEFCSTRING( t2690, "C-INCLUDE-FILE" ); +DEFTSCP( main_c_2dinclude_2ddir_v ); +DEFCSTRING( t2691, "C-INCLUDE-DIR" ); +DEFTSCP( main_sc_2dlibrary_v ); +DEFCSTRING( t2692, "SC-LIBRARY" ); +DEFTSCP( main_scxl_2dlibrary_v ); +DEFCSTRING( t2693, "SCXL-LIBRARY" ); +DEFTSCP( main_sc_2dlibrary__p_v ); +DEFCSTRING( t2694, "SC-LIBRARY_P" ); +DEFTSCP( main_compile_2dstatic_v ); +DEFCSTRING( t2695, "COMPILE-STATIC" ); +DEFTSCP( main_module_2dnames_v ); +DEFCSTRING( t2696, "MODULE-NAMES" ); +DEFTSCP( main_include_2ddirs_v ); +DEFCSTRING( t2697, "INCLUDE-DIRS" ); +DEFTSCP( main_scc_v ); +DEFCSTRING( t2698, "SCC" ); +EXTERNTSCPP( scrt1__24__cdr_2derror, XAL1( TSCP ) ); +EXTERNTSCP( scrt1__24__cdr_2derror_v ); +EXTERNTSCPP( scrt1__24__car_2derror, XAL1( TSCP ) ); +EXTERNTSCP( scrt1__24__car_2derror_v ); +EXTERNTSCPP( scrt1_equal_3f, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt1_equal_3f_v ); +EXTERNTSCPP( sc_cons, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( sc_cons_v ); +EXTERNTSCPP( scrt1_caddr, XAL1( TSCP ) ); +EXTERNTSCP( scrt1_caddr_v ); +EXTERNTSCPP( scrt1_cdddr, XAL1( TSCP ) ); +EXTERNTSCP( scrt1_cdddr_v ); +EXTERNTSCPP( scrt1_append_2dtwo, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt1_append_2dtwo_v ); +EXTERNTSCPP( scrt1_assoc, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt1_assoc_v ); +EXTERNTSCPP( main_do_2dc_2dflag, + XAL5( TSCP, TSCP, TSCP, TSCP, TSCP ) ); +EXTERNTSCP( main_do_2dc_2dflag_v ); +EXTERNTSCP( screp_exit_v ); +EXTERNTSCP( screp_reset_v ); +EXTERNTSCPP( scrt4_catch_2derror, XAL1( TSCP ) ); +EXTERNTSCP( scrt4_catch_2derror_v ); +EXTERNTSCPP( scrt6_remove_2dfile, XAL1( TSCP ) ); +EXTERNTSCP( scrt6_remove_2dfile_v ); + +TSCP main_l2325( c2868 ) + TSCP c2868; +{ + TSCP X3, X2, X1; + + PUSHSTACKTRACE( "main_l2325 [inside SCC]" ); + X1 = DISPLAY( 0 ); + DISPLAY( 0 ) = CLOSURE_VAR( c2868, 0 ); + X2 = DISPLAY( 1 ); + DISPLAY( 1 ) = CLOSURE_VAR( c2868, 1 ); + scrt6_remove_2dfile( DISPLAY( 0 ) ); + X3 = scrt6_remove_2dfile( DISPLAY( 1 ) ); + DISPLAY( 0 ) = X1; + DISPLAY( 1 ) = X2; + POPSTACKTRACE( X3 ); +} + +TSCP main_l2324( c2866 ) + TSCP c2866; +{ + TSCP X5, X4, X3, X2, X1; + + PUSHSTACKTRACE( "main_l2324 [inside SCC]" ); + X1 = DISPLAY( 0 ); + DISPLAY( 0 ) = CLOSURE_VAR( c2866, 0 ); + X2 = DISPLAY( 1 ); + DISPLAY( 1 ) = CLOSURE_VAR( c2866, 1 ); + X3 = DISPLAY( 2 ); + DISPLAY( 2 ) = CLOSURE_VAR( c2866, 2 ); + X5 = MAKEPROCEDURE( 0, + 0, + main_l2325, + MAKECLOSURE( EMPTYLIST, + 2, + DISPLAY( 0 ), + DISPLAY( 1 ) ) ); + scrt4_catch_2derror( X5 ); + X5 = DISPLAY( 2 ); + X5 = UNKNOWNCALL( X5, 0 ); + X4 = VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) ); + DISPLAY( 0 ) = X1; + DISPLAY( 1 ) = X2; + DISPLAY( 2 ) = X3; + POPSTACKTRACE( X4 ); +} + +EXTERNTSCPP( scrt5_open_2doutput_2dfile, XAL1( TSCP ) ); +EXTERNTSCP( scrt5_open_2doutput_2dfile_v ); +EXTERNTSCPP( scrt6_format, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt6_format_v ); +EXTERNTSCPP( scrt1_reverse, XAL1( TSCP ) ); +EXTERNTSCP( scrt1_reverse_v ); +EXTERNTSCPP( scdebug_error, XAL3( TSCP, TSCP, TSCP ) ); +EXTERNTSCP( scdebug_error_v ); +EXTERNTSCPP( scrt5_close_2doutput_2dport, XAL1( TSCP ) ); +EXTERNTSCP( scrt5_close_2doutput_2dport_v ); +EXTERNTSCPP( scrt4_system, XAL1( TSCP ) ); +EXTERNTSCP( scrt4_system_v ); +EXTERNTSCPP( sc_apply_2dtwo, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( sc_apply_2dtwo_v ); +EXTERNTSCPP( scrt1_cons_2a, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt1_cons_2a_v ); +EXTERNTSCPP( scrt1_member, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt1_member_v ); + +TSCP main_l2453( c2925 ) + TSCP c2925; +{ + TSCP X3, X2, X1; + + PUSHSTACKTRACE( "main_l2453 [inside SCC]" ); + X1 = DISPLAY( 0 ); + DISPLAY( 0 ) = CLOSURE_VAR( c2925, 0 ); + X2 = DISPLAY( 1 ); + DISPLAY( 1 ) = CLOSURE_VAR( c2925, 1 ); + scrt6_remove_2dfile( DISPLAY( 0 ) ); + X3 = scrt6_remove_2dfile( DISPLAY( 1 ) ); + DISPLAY( 0 ) = X1; + DISPLAY( 1 ) = X2; + POPSTACKTRACE( X3 ); +} + +TSCP main_scc( c2022 ) + TSCP c2022; +{ + TSCP X19, + 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( t2698 ); + X1 = EMPTYLIST; + X2 = FALSEVALUE; + X3 = TRUEVALUE; + X4 = FALSEVALUE; + X5 = EMPTYLIST; + DISPLAY( 0 ) = c2454; + DISPLAY( 1 ) = c2455; + X6 = EMPTYLIST; + X7 = c2456; + X7 = CONS( X7, EMPTYLIST ); + X6 = CONS( X6, EMPTYLIST ); + X5 = CONS( X5, EMPTYLIST ); + X4 = CONS( X4, EMPTYLIST ); + X3 = CONS( X3, EMPTYLIST ); + X2 = CONS( X2, EMPTYLIST ); + X1 = CONS( X1, EMPTYLIST ); + if ( EQ( TSCPTAG( c2022 ), PAIRTAG ) ) goto L2702; + scrt1__24__cdr_2derror( c2022 ); +L2702: + X8 = PAIR_CDR( c2022 ); + X9 = X8; +L2706: + if ( FALSE( X9 ) ) goto L2735; + if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2710; + scrt1__24__car_2derror( X9 ); +L2710: + X10 = PAIR_CAR( X9 ); + X11 = scrt1_equal_3f( X10, c2045 ); + if ( FALSE( X11 ) ) goto L2734; + X12 = PAIR_CDR( X9 ); + if ( FALSE( X12 ) ) goto L2734; + X13 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2724; + scrt1__24__cdr_2derror( X13 ); +L2724: + if ( FALSE( PAIR_CDR( X13 ) ) ) goto L2734; + X16 = CONS( c2312, EMPTYLIST ); + X16 = CONS( scrt1_caddr( X9 ), X16 ); + X16 = CONS( c2311, X16 ); + X17 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X17 ), PAIRTAG ) ) goto L2731; + scrt1__24__car_2derror( X17 ); +L2731: + X16 = CONS( PAIR_CAR( X17 ), X16 ); + X15 = scrt3_string_2dappend( CONS( c2300, X16 ) ); + X14 = sc_cons( X15, PAIR_CAR( X1 ) ); + SETGEN( PAIR_CAR( X1 ), X14 ); + X9 = scrt1_cdddr( X9 ); + GOBACK( L2706 ); +L2734: + if ( FALSE( scrt1_equal_3f( X10, c2065 ) ) ) goto L2736; + X11 = TRUEVALUE; + SETGEN( PAIR_CAR( X2 ), X11 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2736: + X11 = scrt1_equal_3f( X10, c2069 ); + if ( FALSE( X11 ) ) goto L2757; + if ( FALSE( PAIR_CDR( X9 ) ) ) goto L2757; + X15 = CONS( c2283, EMPTYLIST ); + X16 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L2750; + scrt1__24__car_2derror( X16 ); +L2750: + X14 = scrt3_string_2dappend( CONS( PAIR_CAR( X16 ), X15 ) ); + X13 = sc_cons( X14, EMPTYLIST ); + X12 = X13; + main_include_2ddirs_v = scrt1_append_2dtwo( main_include_2ddirs_v, + X12 ); + X12 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2755; + scrt1__24__cdr_2derror( X12 ); +L2755: + X9 = PAIR_CDR( X12 ); + GOBACK( L2706 ); +L2757: + X11 = scrt1_equal_3f( X10, c2078 ); + if ( FALSE( X11 ) ) goto L2774; + if ( FALSE( PAIR_CDR( X9 ) ) ) goto L2774; + X13 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2768; + scrt1__24__car_2derror( X13 ); +L2768: + X12 = PAIR_CAR( X13 ); + main_module_2dnames_v = sc_cons( X12, main_module_2dnames_v ); + X12 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2772; + scrt1__24__cdr_2derror( X12 ); +L2772: + X9 = PAIR_CDR( X12 ); + GOBACK( L2706 ); +L2774: + X11 = scrt1_equal_3f( X10, c2087 ); + if ( FALSE( X11 ) ) goto L2807; + if ( FALSE( PAIR_CDR( X9 ) ) ) goto L2807; + X12 = CONS( c2006, EMPTYLIST ); + X12 = CONS( c2283, X12 ); + X13 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2785; + scrt1__24__car_2derror( X13 ); +L2785: + main_predef_2ddefault_v = scrt3_string_2dappend( CONS( PAIR_CAR( X13 ), + X12 ) ); + X12 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2789; + scrt1__24__car_2derror( X12 ); +L2789: + main_c_2dinclude_2ddir_v = PAIR_CAR( X12 ); + X12 = CONS( c2011, EMPTYLIST ); + X12 = CONS( c2283, X12 ); + X13 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2793; + scrt1__24__car_2derror( X13 ); +L2793: + main_sc_2dlibrary_v = scrt3_string_2dappend( CONS( PAIR_CAR( X13 ), + X12 ) ); + X12 = CONS( c2015, EMPTYLIST ); + X12 = CONS( c2283, X12 ); + X13 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2797; + scrt1__24__car_2derror( X13 ); +L2797: + main_sc_2dlibrary__p_v = scrt3_string_2dappend( CONS( PAIR_CAR( X13 ), + X12 ) ); + X12 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2801; + scrt1__24__car_2derror( X12 ); +L2801: + main_c_2dinclude_2ddir_v = PAIR_CAR( X12 ); + X12 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2805; + scrt1__24__cdr_2derror( X12 ); +L2805: + X9 = PAIR_CDR( X12 ); + GOBACK( L2706 ); +L2807: + if ( FALSE( scrt1_equal_3f( X10, c2093 ) ) ) goto L2808; + X11 = SYMBOL_VALUE( sc_2dlog_2ddefault_v ); + SETGEN( PAIR_CAR( X6 ), X11 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2808: + X11 = scrt1_assoc( X10, c2181 ); + if ( FALSE( X11 ) ) goto L2813; + if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2817; + scrt1__24__cdr_2derror( X11 ); +L2817: + X13 = PAIR_CDR( X11 ); + X12 = sc_cons( X13, PAIR_CAR( X6 ) ); + SETGEN( PAIR_CAR( X6 ), X12 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2813: + if ( FALSE( scrt1_equal_3f( X10, c2096 ) ) ) goto L2820; + X12 = sc_cons( c2166, PAIR_CAR( X1 ) ); + SETGEN( PAIR_CAR( X1 ), X12 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2820: + if ( FALSE( scrt1_equal_3f( X10, c2097 ) ) ) goto L2824; + main_compile_2dstatic_v = TRUEVALUE; + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2824: + if ( FALSE( scrt1_equal_3f( X10, c2098 ) ) ) goto L2828; + X12 = sc_cons( c2155, PAIR_CAR( X1 ) ); + SETGEN( PAIR_CAR( X1 ), X12 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2828: + if ( FALSE( scrt1_equal_3f( X10, c2099 ) ) ) goto L2832; + X12 = FALSEVALUE; + SETGEN( PAIR_CAR( X3 ), X12 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2832: + if ( FALSE( scrt1_equal_3f( X10, c2100 ) ) ) goto L2836; + X12 = sc_cons( c2144, PAIR_CAR( X1 ) ); + SETGEN( PAIR_CAR( X1 ), X12 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2836: + if ( FALSE( scrt1_equal_3f( X10, c2101 ) ) ) goto L2840; + X12 = TRUEVALUE; + SETGEN( PAIR_CAR( X4 ), X12 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2840: + X12 = scrt1_equal_3f( X10, c2105 ); + if ( FALSE( X12 ) ) goto L2860; + if ( FALSE( PAIR_CDR( X9 ) ) ) goto L2860; + X14 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X14 ), PAIRTAG ) ) goto L2854; + scrt1__24__car_2derror( X14 ); +L2854: + X13 = PAIR_CAR( X14 ); + SETGEN( PAIR_CAR( X7 ), X13 ); + X13 = PAIR_CDR( X9 ); + if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2858; + scrt1__24__cdr_2derror( X13 ); +L2858: + X9 = PAIR_CDR( X13 ); + GOBACK( L2706 ); +L2860: + X12 = main_do_2dc_2dflag( X10, + PAIR_CAR( X1 ), + PAIR_CAR( X6 ), + PAIR_CAR( X3 ), + PAIR_CAR( X2 ) ); + X11 = sc_cons( X12, PAIR_CAR( X5 ) ); + SETGEN( PAIR_CAR( X5 ), X11 ); + X9 = PAIR_CDR( X9 ); + GOBACK( L2706 ); +L2735: + if ( FALSE( PAIR_CAR( X4 ) ) ) goto L2863; + X8 = screp_exit_v; + X8 = UNKNOWNCALL( X8, 0 ); + VIA( PROCEDURE_CODE( X8 ) )( PROCEDURE_CLOSURE( X8 ) ); +L2863: + DISPLAY( 2 ) = screp_reset_v; + screp_reset_v = MAKEPROCEDURE( 0, + 0, + main_l2324, + MAKECLOSURE( EMPTYLIST, + 3, + DISPLAY( 0 ), + DISPLAY( 1 ), + DISPLAY( 2 ) ) ); + if ( FALSE( PAIR_CAR( X2 ) ) ) goto L2870; + X8 = scrt5_open_2doutput_2dfile( DISPLAY( 0 ) ); + X9 = CONS( main_c_2dinclude_2dfile_v, EMPTYLIST ); + X9 = CONS( main_c_2dinclude_2ddir_v, X9 ); + scrt6_format( X8, CONS( c2328, X9 ) ); + scrt6_format( X8, CONS( c2329, EMPTYLIST ) ); + scrt6_format( X8, CONS( c2330, EMPTYLIST ) ); + scrt6_format( X8, CONS( c2331, EMPTYLIST ) ); + scrt6_format( X8, CONS( c2332, EMPTYLIST ) ); + scrt6_format( X8, CONS( c2333, EMPTYLIST ) ); + X10 = scrt1_reverse( main_module_2dnames_v ); + X9 = sc_cons( c2381, X10 ); + X10 = X9; + X11 = EMPTYLIST; + X12 = EMPTYLIST; +L2875: + if ( EQ( _S2CUINT( X10 ), _S2CUINT( EMPTYLIST ) ) ) goto L2883; + if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L2879; + scrt1__24__car_2derror( X10 ); +L2879: + X15 = CONS( PAIR_CAR( X10 ), EMPTYLIST ); + X14 = scrt6_format( X8, CONS( c2380, X15 ) ); + X13 = sc_cons( X14, EMPTYLIST ); + if ( NEQ( _S2CUINT( X11 ), _S2CUINT( EMPTYLIST ) ) ) goto L2882; + X14 = PAIR_CDR( X10 ); + X12 = X13; + X11 = X13; + X10 = X14; + GOBACK( L2875 ); +L2882: + X14 = PAIR_CDR( X10 ); + if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2887; + scdebug_error( c2368, + c2369, CONS( X12, EMPTYLIST ) ); +L2887: + X12 = SETGEN( PAIR_CDR( X12 ), X13 ); + X10 = X14; + GOBACK( L2875 ); +L2883: + scrt6_format( X8, CONS( c2382, EMPTYLIST ) ); + scrt6_format( X8, CONS( c2383, EMPTYLIST ) ); + scrt6_format( X8, CONS( c2384, EMPTYLIST ) ); + scrt5_close_2doutput_2dport( X8 ); + X11 = sc_cons( DISPLAY( 0 ), EMPTYLIST ); + X10 = X11; + X9 = scrt1_append_2dtwo( PAIR_CAR( X5 ), X10 ); + SETGEN( PAIR_CAR( X5 ), X9 ); +L2870: + X14 = scrt1_reverse( PAIR_CAR( X5 ) ); + if ( FALSE( main_compile_2dstatic_v ) ) goto L2892; + if ( FALSE( scrt1_member( c2444, PAIR_CAR( X5 ) ) ) ) goto L2894; + X17 = sc_cons( c2447, EMPTYLIST ); + X16 = sc_cons( main_sc_2dlibrary__p_v, X17 ); + X15 = X16; + goto L2906; +L2894: + if ( FALSE( scrt1_member( c2435, PAIR_CAR( X5 ) ) ) ) goto L2897; + X15 = EMPTYLIST; + goto L2906; +L2897: + X16 = SYMBOL_VALUE( with_2dmodules_v ); + if ( FALSE( scrt1_member( c2436, X16 ) ) ) goto L2899; + X19 = sc_cons( c2447, EMPTYLIST ); + X18 = sc_cons( c2450, X19 ); + X17 = sc_cons( main_scxl_2dlibrary_v, X18 ); + X16 = sc_cons( main_sc_2dlibrary_v, X17 ); + X15 = X16; + goto L2906; +L2899: + X17 = sc_cons( c2447, EMPTYLIST ); + X16 = sc_cons( main_sc_2dlibrary_v, X17 ); + X15 = X16; + goto L2906; +L2892: + if ( FALSE( scrt1_member( c2435, PAIR_CAR( X5 ) ) ) ) goto L2903; + X15 = EMPTYLIST; + goto L2906; +L2903: + X16 = SYMBOL_VALUE( with_2dmodules_v ); + if ( FALSE( scrt1_member( c2436, X16 ) ) ) goto L2905; + X16 = sc_cons( c2443, EMPTYLIST ); + X15 = X16; + goto L2906; +L2905: + X16 = sc_cons( c2440, EMPTYLIST ); + X15 = X16; +L2906: + X13 = scrt1_append_2dtwo( X14, X15 ); + X14 = X13; + X15 = EMPTYLIST; + X16 = EMPTYLIST; +L2911: + if ( NEQ( _S2CUINT( X14 ), _S2CUINT( EMPTYLIST ) ) ) goto L2912; + X12 = X15; + goto L2919; +L2912: + if ( EQ( TSCPTAG( X14 ), PAIRTAG ) ) goto L2915; + scrt1__24__car_2derror( X14 ); +L2915: + X19 = CONS( PAIR_CAR( X14 ), EMPTYLIST ); + X18 = scrt3_string_2dappend( CONS( c2311, X19 ) ); + X17 = sc_cons( X18, EMPTYLIST ); + if ( NEQ( _S2CUINT( X15 ), _S2CUINT( EMPTYLIST ) ) ) goto L2918; + X18 = PAIR_CDR( X14 ); + X16 = X17; + X15 = X17; + X14 = X18; + GOBACK( L2911 ); +L2918: + X18 = PAIR_CDR( X14 ); + if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L2923; + scdebug_error( c2368, + c2369, CONS( X16, EMPTYLIST ) ); +L2923: + X16 = SETGEN( PAIR_CDR( X16 ), X17 ); + X14 = X18; + GOBACK( L2911 ); +L2919: + X13 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST ); + X11 = CONS( scrt1_append_2dtwo( X12, X13 ), + EMPTYLIST ); + X11 = CONS( main_c_2dinclude_2ddir_v, X11 ); + X10 = scrt1_cons_2a( PAIR_CAR( X7 ), + CONS( c2390, X11 ) ); + X9 = sc_apply_2dtwo( scrt3_string_2dappend_v, X10 ); + X8 = scrt4_system( X9 ); + if ( EQ( _S2CUINT( _TSCP( 0 ) ), _S2CUINT( X8 ) ) ) goto L2890; + X8 = screp_reset_v; + X8 = UNKNOWNCALL( X8, 0 ); + VIA( PROCEDURE_CODE( X8 ) )( PROCEDURE_CLOSURE( X8 ) ); +L2890: + X8 = MAKEPROCEDURE( 0, + 0, + main_l2453, + MAKECLOSURE( EMPTYLIST, + 2, + DISPLAY( 0 ), + DISPLAY( 1 ) ) ); + SDVAL = scrt4_catch_2derror( X8 ); + DISPLAY( 0 ) = SD0; + DISPLAY( 1 ) = SD1; + DISPLAY( 2 ) = SD2; + POPSTACKTRACE( SDVAL ); +} + +DEFTSCP( main_do_2dc_2dflag_v ); +DEFCSTRING( t2927, "DO-C-FLAG" ); +EXTERNTSCPP( scrt3_substring, XAL3( TSCP, TSCP, TSCP ) ); +EXTERNTSCP( scrt3_substring_v ); +EXTERNTSCPP( scrt2__2d_2dtwo, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt2__2d_2dtwo_v ); +EXTERNTSCPP( scrt2_max_2dtwo, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt2_max_2dtwo_v ); +EXTERNTSCPP( scrt2__3e_2dtwo, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt2__3e_2dtwo_v ); +EXTERNTSCPP( scrt3_string_3d_3f, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt3_string_3d_3f_v ); +EXTERNTSCPP( scrt6_read, XAL1( TSCP ) ); +EXTERNTSCP( scrt6_read_v ); +EXTERNTSCPP( scrt5_open_2dinput_2dstring, XAL1( TSCP ) ); +EXTERNTSCP( scrt5_open_2dinput_2dstring_v ); +EXTERNTSCPP( scrt5_open_2dinput_2dfile, XAL1( TSCP ) ); +EXTERNTSCP( scrt5_open_2dinput_2dfile_v ); +EXTERNTSCP( scrt5_stderr_2dport_v ); +EXTERNTSCPP( scrt2_zero_3f, XAL1( TSCP ) ); +EXTERNTSCP( scrt2_zero_3f_v ); +EXTERNTSCPP( scrt6_rename_2dfile, XAL2( TSCP, TSCP ) ); +EXTERNTSCP( scrt6_rename_2dfile_v ); + +TSCP main_do_2dc_2dflag( a2458, + f2459, l2460, s2461, i2462 ) + TSCP a2458, f2459, l2460, s2461, i2462; +{ + TSCP X7, X6, X5, X4, X3, X2, X1; + + PUSHSTACKTRACE( t2927 ); + if ( AND( EQ( TSCPTAG( a2458 ), EXTENDEDTAG ), + EQ( TSCP_EXTENDEDTAG( a2458 ), STRINGTAG ) ) + ) goto L2930; + scdebug_error( c2557, + c2558, CONS( a2458, EMPTYLIST ) ); +L2930: + X3 = C_FIXED( STRING_LENGTH( a2458 ) ); + if ( BITAND( BITOR( _S2CINT( X3 ), + _S2CINT( _TSCP( 12 ) ) ), + 3 ) ) goto L2933; + X6 = _TSCP( IDIFFERENCE( _S2CINT( X3 ), + _S2CINT( _TSCP( 12 ) ) ) ); + goto L2934; +L2933: + X6 = scrt2__2d_2dtwo( X3, _TSCP( 12 ) ); +L2934: + if ( BITAND( BITOR( _S2CINT( _TSCP( 0 ) ), + _S2CINT( X6 ) ), + 3 ) ) goto L2936; + if ( LTE( _S2CINT( _TSCP( 0 ) ), _S2CINT( X6 ) ) ) goto L2938; + X5 = _TSCP( 0 ); + goto L2937; +L2938: + X5 = X6; + goto L2937; +L2936: + X5 = scrt2_max_2dtwo( _TSCP( 0 ), X6 ); +L2937: + X4 = scrt3_substring( a2458, _TSCP( 0 ), X5 ); + X5 = CONS( c2540, EMPTYLIST ); + X1 = scrt3_string_2dappend( CONS( X4, X5 ) ); + X5 = CONS( c2539, EMPTYLIST ); + X2 = scrt3_string_2dappend( CONS( X4, X5 ) ); + if ( BITAND( BITOR( _S2CINT( X3 ), + _S2CINT( _TSCP( 12 ) ) ), + 3 ) ) goto L2944; + if ( GT( _S2CINT( X3 ), _S2CINT( _TSCP( 12 ) ) ) ) goto L2948; + POPSTACKTRACE( a2458 ); +L2944: + if ( TRUE( scrt2__3e_2dtwo( X3, _TSCP( 12 ) ) ) ) goto L2948; + POPSTACKTRACE( a2458 ); +L2948: + if ( BITAND( BITOR( _S2CINT( X3 ), + _S2CINT( _TSCP( 12 ) ) ), + 3 ) ) goto L2953; + X5 = _TSCP( IDIFFERENCE( _S2CINT( X3 ), + _S2CINT( _TSCP( 12 ) ) ) ); + goto L2954; +L2953: + X5 = scrt2__2d_2dtwo( X3, _TSCP( 12 ) ); +L2954: + X4 = scrt3_substring( a2458, X5, X3 ); + if ( FALSE( scrt3_string_3d_3f( X4, c2488 ) ) ) goto L2951; + X4 = CONS( a2458, EMPTYLIST ); + scrt6_format( TRUEVALUE, CONS( c2490, X4 ) ); + X4 = SYMBOL_VALUE( initialize_2dcompile_v ); + X4 = UNKNOWNCALL( X4, 0 ); + VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) ); + X4 = f2459; +L2957: + if ( EQ( _S2CUINT( X4 ), _S2CUINT( EMPTYLIST ) ) ) goto L2958; + if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2962; + scrt1__24__car_2derror( X4 ); +L2962: + X5 = PAIR_CAR( X4 ); + X7 = scrt6_read( CONS( scrt5_open_2dinput_2dstring( X5 ), + EMPTYLIST ) ); + X6 = SYMBOL_VALUE( do_2ddefine_2dconstant_v ); + X6 = UNKNOWNCALL( X6, 1 ); + VIA( PROCEDURE_CODE( X6 ) )( X7, PROCEDURE_CLOSURE( X6 ) ); + X4 = PAIR_CDR( X4 ); + GOBACK( L2957 ); +L2958: + SETGENTL( SYMBOL_VALUE( sc_2dinclude_2ddirs_v ), + main_include_2ddirs_v ); + X5 = scrt5_open_2dinput_2dfile( a2458 ); + X4 = sc_cons( X5, EMPTYLIST ); + SETGENTL( SYMBOL_VALUE( sc_2dinput_v ), X4 ); + SETGENTL( SYMBOL_VALUE( sc_2dsource_2dname_v ), a2458 ); + SETGENTL( SYMBOL_VALUE( sc_2dicode_v ), + scrt5_open_2doutput_2dfile( X1 ) ); + SETGENTL( SYMBOL_VALUE( sc_2derror_v ), + scrt5_stderr_2dport_v ); + SETGENTL( SYMBOL_VALUE( sc_2dlog_v ), l2460 ); + SETGENTL( SYMBOL_VALUE( sc_2dstack_2dtrace_v ), s2461 ); + SETGENTL( SYMBOL_VALUE( sc_2dinterpreter_v ), i2462 ); + X4 = SYMBOL_VALUE( docompile_v ); + X4 = UNKNOWNCALL( X4, 0 ); + VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) ); + X4 = SYMBOL_VALUE( sc_2derror_2dcnt_v ); + if ( NEQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L2969; + if ( NEQ( _S2CUINT( X4 ), _S2CUINT( _TSCP( 0 ) ) ) ) goto L2973; + goto L2976; +L2969: + if ( TRUE( scrt2_zero_3f( X4 ) ) ) goto L2976; +L2973: + X5 = screp_reset_v; + X5 = UNKNOWNCALL( X5, 0 ); + VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) ); +L2976: + X4 = SYMBOL_VALUE( module_2dname_v ); + main_module_2dnames_v = sc_cons( X4, main_module_2dnames_v ); + X4 = SYMBOL_VALUE( close_2dsc_2dfiles_v ); + X4 = UNKNOWNCALL( X4, 0 ); + VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) ); + scrt6_rename_2dfile( X1, X2 ); + POPSTACKTRACE( X2 ); +L2951: + POPSTACKTRACE( a2458 ); +} + +void main__init(){} + +static void init_modules( compiler_version ) + char *compiler_version; +{ + scrt2__init(); + scdebug__init(); + scrt5__init(); + scrt6__init(); + scrt4__init(); + scrt1__init(); + scrt3__init(); + screp__init(); + callcode__init(); + closeana__init(); + compile__init(); + expform__init(); + gencode__init(); + lambdacode__init(); + lambdaexp__init(); + lap__init(); + macros__init(); + misccode__init(); + miscexp__init(); + plist__init(); + readtext__init(); + transform__init(); + MAXDISPLAY( 3 ); +} + +main( argc, argv ) + int argc; char *argv[]; +{ + TSCP X1; + + static int init = 0; + if (init) return; + init = 1; + INITHEAP( 0, argc, argv, main_scc ); + init_constants(); + init_modules( "(main SCHEME->C COMPILER 15mar93-FreeBSD)" ); + INITIALIZEVAR( t2686, + ADR( main_scheme__dir_v ), c2001 ); + INITIALIZEVAR( t2687, + ADR( main_scc_2dversion_v ), c2003 ); + INITIALIZEVAR( t2688, + ADR( main_force_2dld_2dof_2drep_v ), + screp_read_2deval_2dprint_v ); + X1 = CONS( c2006, EMPTYLIST ); + INITIALIZEVAR( t2689, + ADR( main_predef_2ddefault_v ), + scrt3_string_2dappend( CONS( main_scheme__dir_v, + X1 ) ) ); + INITIALIZEVAR( t2690, + ADR( main_c_2dinclude_2dfile_v ), c2008 ); + INITIALIZEVAR( t2691, + ADR( main_c_2dinclude_2ddir_v ), + main_scheme__dir_v ); + X1 = CONS( c2011, EMPTYLIST ); + INITIALIZEVAR( t2692, + ADR( main_sc_2dlibrary_v ), + scrt3_string_2dappend( CONS( main_scheme__dir_v, + X1 ) ) ); + X1 = CONS( c2013, EMPTYLIST ); + INITIALIZEVAR( t2693, + ADR( main_scxl_2dlibrary_v ), + scrt3_string_2dappend( CONS( main_scheme__dir_v, + X1 ) ) ); + X1 = CONS( c2015, EMPTYLIST ); + INITIALIZEVAR( t2694, + ADR( main_sc_2dlibrary__p_v ), + scrt3_string_2dappend( CONS( main_scheme__dir_v, + X1 ) ) ); + INITIALIZEVAR( t2695, + ADR( main_compile_2dstatic_v ), + FALSEVALUE ); + INITIALIZEVAR( t2696, + ADR( main_module_2dnames_v ), EMPTYLIST ); + INITIALIZEVAR( t2697, + ADR( main_include_2ddirs_v ), c2019 ); + INITIALIZEVAR( t2698, + ADR( main_scc_v ), + MAKEPROCEDURE( 1, + 0, main_scc, EMPTYLIST ) ); + INITIALIZEVAR( t2927, + ADR( main_do_2dc_2dflag_v ), + MAKEPROCEDURE( 5, + 0, + main_do_2dc_2dflag, EMPTYLIST ) ); + main_scc( CLARGUMENTS( argc, argv ) ); + SCHEMEEXIT(); +} |