This is main.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1612, "INITIALIZE-COMPILE", 18 );
DEFSTATICTSCP( initialize_2dcompile_v );
DEFSTRING( t1613, "SC-LOG-DEFAULT", 14 );
DEFSTATICTSCP( sc_2dlog_2ddefault_v );
DEFSTRING( t1614, "DO-DEFINE-CONSTANT", 18 );
DEFSTATICTSCP( do_2ddefine_2dconstant_v );
DEFSTRING( t1615, "SC-INCLUDE-DIRS", 15 );
DEFSTATICTSCP( sc_2dinclude_2ddirs_v );
DEFSTRING( t1616, "SC-INPUT", 8 );
DEFSTATICTSCP( sc_2dinput_v );
DEFSTRING( t1617, "SC-SOURCE-NAME", 14 );
DEFSTATICTSCP( sc_2dsource_2dname_v );
DEFSTRING( t1618, "SC-ICODE", 8 );
DEFSTATICTSCP( sc_2dicode_v );
DEFSTRING( t1619, "SC-ERROR", 8 );
DEFSTATICTSCP( sc_2derror_v );
DEFSTRING( t1620, "SC-LOG", 6 );
DEFSTATICTSCP( sc_2dlog_v );
DEFSTRING( t1621, "SC-STACK-TRACE", 14 );
DEFSTATICTSCP( sc_2dstack_2dtrace_v );
DEFSTRING( t1622, "SC-INTERPRETER", 14 );
DEFSTATICTSCP( sc_2dinterpreter_v );
DEFSTRING( t1623, "DOCOMPILE", 9 );
DEFSTATICTSCP( docompile_v );
DEFSTRING( t1624, "SC-ERROR-CNT", 12 );
DEFSTATICTSCP( sc_2derror_2dcnt_v );
DEFSTRING( t1625, "MODULE-NAME", 11 );
DEFSTATICTSCP( module_2dname_v );
DEFSTRING( t1626, "CLOSE-SC-FILES", 14 );
DEFSTATICTSCP( close_2dsc_2dfiles_v );
DEFSTRING( t1627, ".c", 2 );
DEFSTATICTSCP2( c1535, t1627 );
DEFSTRING( t1628, "~a:~%", 5 );
DEFSTATICTSCP2( c1487, t1628 );
DEFSTRING( t1629, ".sc", 3 );
DEFSTATICTSCP2( c1485, t1629 );
DEFSTRING( t1630, "cc", 2 );
DEFSTATICTSCP2( c1456, t1630 );
DEFSTRING( t1631, " -I", 3 );
DEFSTATICTSCP2( c1415, t1631 );
DEFSTRING( t1632, " -D", 3 );
DEFSTATICTSCP2( c1414, t1632 );
DEFSTRING( t1633, "}~%", 3 );
DEFSTATICTSCP2( c1408, t1633 );
DEFSTRING( t1634, " SCHEMEEXIT();~%", 18 );
DEFSTATICTSCP2( c1407, t1634 );
DEFSTRING( t1635,
" screp_read_2deval_2dprint( sc_clarguments( argc, argv ) );~%",
63 );
DEFSTATICTSCP2( c1406, t1635 );
DEFSTRING( t1636, "screp", 5 );
DEFSTATICTSCP2( c1405, t1636 );
DEFSTRING( t1637, " ~a__init();~%", 16 );
DEFSTATICTSCP2( c1404, t1637 );
DEFSTRING( t1638, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1393, t1638 );
DEFSTRING( t1639, "SET-CDR!", 8 );
DEFSTATICTSCP( c1392 );
DEFSTRING( t1640,
" INITHEAP( 0, argc, argv, screp_read_2deval_2dprint );~%",
58 );
DEFSTATICTSCP2( c1361, t1640 );
DEFSTRING( t1641, "main( argc, argv )~%{~%", 23 );
DEFSTATICTSCP2( c1360, t1641 );
DEFSTRING( t1642,
"extern TSCP screp_read_2deval_2dprint();~%", 42 );
DEFSTATICTSCP2( c1359, t1642 );
DEFSTRING( t1643, "#include \"~a/~a\"~%", 18 );
DEFSTATICTSCP2( c1358, t1643 );
DEFSTRING( t1644, ")", 1 );
DEFSTATICTSCP2( c1344, t1644 );
DEFSTRING( t1645, " ", 1 );
DEFSTATICTSCP2( c1343, t1645 );
DEFSTRING( t1646, "(define-constant ", 17 );
DEFSTATICTSCP2( c1332, t1646 );
DEFSTRING( t1647, "/", 1 );
DEFSTATICTSCP2( c1315, t1647 );
DEFSTATICTSCP( c1274 );
DEFSTRING( t1649, "PEEP", 4 );
DEFSTATICTSCP( t1648 );
DEFSTRING( t1651, "-peep", 5 );
DEFSTATICTSCP2( t1650, t1651 );
DEFSTRING( t1653, "LAP", 3 );
DEFSTATICTSCP( t1652 );
DEFSTRING( t1655, "-lap", 4 );
DEFSTATICTSCP2( t1654, t1655 );
DEFSTRING( t1657, "TREE", 4 );
DEFSTATICTSCP( t1656 );
DEFSTRING( t1659, "-tree", 5 );
DEFSTATICTSCP2( t1658, t1659 );
DEFSTRING( t1661, "LAMBDA", 6 );
DEFSTATICTSCP( t1660 );
DEFSTRING( t1663, "-lambda", 7 );
DEFSTATICTSCP2( t1662, t1663 );
DEFSTRING( t1665, "TRANSFORM", 9 );
DEFSTATICTSCP( t1664 );
DEFSTRING( t1667, "-transform", 10 );
DEFSTATICTSCP2( t1666, t1667 );
DEFSTRING( t1669, "CLOSED", 6 );
DEFSTATICTSCP( t1668 );
DEFSTRING( t1671, "-closed", 7 );
DEFSTATICTSCP2( t1670, t1671 );
DEFSTRING( t1673, "EXPAND", 6 );
DEFSTATICTSCP( t1672 );
DEFSTRING( t1675, "-expand", 7 );
DEFSTATICTSCP2( t1674, t1675 );
DEFSTRING( t1677, "MACRO", 5 );
DEFSTATICTSCP( t1676 );
DEFSTRING( t1679, "-macro", 6 );
DEFSTATICTSCP2( t1678, t1679 );
DEFSTRING( t1681, "SOURCE", 6 );
DEFSTATICTSCP( t1680 );
DEFSTRING( t1683, "-source", 7 );
DEFSTATICTSCP2( t1682, t1683 );
DEFSTRING( t1684, "(define-constant *type-check* #f)", 33 );
DEFSTATICTSCP2( c1259, t1684 );
DEFSTRING( t1685, "(define-constant *bounds-check* #f)", 35 );
DEFSTATICTSCP2( c1253, t1685 );
DEFSTRING( t1686, "(define-constant *fixed-only* #t)", 33 );
DEFSTATICTSCP2( c1242, t1686 );
DEFSTRING( t1687, "-lm", 3 );
DEFSTATICTSCP2( c1236, t1687 );
DEFSTRING( t1688, "-cc", 3 );
DEFSTATICTSCP2( c1197, t1688 );
DEFSTRING( t1689, "-C", 2 );
DEFSTATICTSCP2( c1193, t1689 );
DEFSTRING( t1690, "-pg", 3 );
DEFSTATICTSCP2( c1192, t1690 );
DEFSTRING( t1691, "-On", 3 );
DEFSTATICTSCP2( c1191, t1691 );
DEFSTRING( t1692, "-Og", 3 );
DEFSTATICTSCP2( c1190, t1692 );
DEFSTRING( t1693, "-Ob", 3 );
DEFSTATICTSCP2( c1189, t1693 );
DEFSTRING( t1694, "-Ot", 3 );
DEFSTATICTSCP2( c1188, t1694 );
DEFSTRING( t1695, "-log", 4 );
DEFSTATICTSCP2( c1185, t1695 );
DEFSTRING( t1696, "-m", 2 );
DEFSTATICTSCP2( c1179, t1696 );
DEFSTRING( t1697, "-I", 2 );
DEFSTATICTSCP2( c1170, t1697 );
DEFSTRING( t1698, "-i", 2 );
DEFSTATICTSCP2( c1166, t1698 );
DEFSTRING( t1699, "-f", 2 );
DEFSTATICTSCP2( c1146, t1699 );
DEFSTATICTSCP( c1125 );
DEFSTRING( t1700,
"c-include filename must include directory path: ~s", 50 );
DEFSTATICTSCP2( c1105, t1700 );
DEFSTRING( t1701, "CONFIGURE", 9 );
DEFSTATICTSCP( c1104 );
DEFSTRING( t1702, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c1089, t1702 );
DEFSTRING( t1703, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1088, t1703 );
DEFSTRING( t1704, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1087 );
DEFSTRING( t1705, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1066, t1705 );
DEFSTRING( t1706, "STRING-REF", 10 );
DEFSTATICTSCP( c1065 );
DEFSTRING( t1707,
"sccomp <predef> <c-include> <library> <library_p> <cpu> <scc.hea\
p>",
66 );
DEFSTATICTSCP2( c1044, t1707 );
DEFSTRING( t1708, "TITAN", 5 );
DEFSTATICTSCP2( c1029, t1708 );
DEFSTRING( t1709, "/udir/bartlett/scheme/scrt/libsc.a", 34 );
DEFSTATICTSCP2( c1026, t1709 );
DEFSTRING( t1710, "/udir/bartlett/scheme/scrt", 26 );
DEFSTATICTSCP2( c1024, t1710 );
DEFSTRING( t1711, "objects.h", 9 );
DEFSTATICTSCP2( c1022, t1711 );
DEFSTRING( t1712, "/udir/bartlett/scheme/scrt/predef.sc", 36 );
DEFSTATICTSCP2( c1020, t1712 );
DEFSTRING( t1713, "SC-TO-C~s.o", 11 );
DEFSTATICTSCP2( c1018, t1713 );
DEFSTRING( t1714, "SC-TO-C~s.c", 11 );
DEFSTATICTSCP2( c1016, t1714 );
DEFSTRING( t1715, "28sep90jfb", 10 );
DEFSTATICTSCP2( c1013, t1715 );
static void init_constants()
{
TSCP X1;
initialize_2dcompile_v = STRINGTOSYMBOL( U_TX( ADR( t1612 ) ) );
CONSTANTEXP( ADR( initialize_2dcompile_v ) );
sc_2dlog_2ddefault_v = STRINGTOSYMBOL( U_TX( ADR( t1613 ) ) );
CONSTANTEXP( ADR( sc_2dlog_2ddefault_v ) );
do_2ddefine_2dconstant_v = STRINGTOSYMBOL( U_TX( ADR( t1614 ) ) );
CONSTANTEXP( ADR( do_2ddefine_2dconstant_v ) );
sc_2dinclude_2ddirs_v = STRINGTOSYMBOL( U_TX( ADR( t1615 ) ) );
CONSTANTEXP( ADR( sc_2dinclude_2ddirs_v ) );
sc_2dinput_v = STRINGTOSYMBOL( U_TX( ADR( t1616 ) ) );
CONSTANTEXP( ADR( sc_2dinput_v ) );
sc_2dsource_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t1617 ) ) );
CONSTANTEXP( ADR( sc_2dsource_2dname_v ) );
sc_2dicode_v = STRINGTOSYMBOL( U_TX( ADR( t1618 ) ) );
CONSTANTEXP( ADR( sc_2dicode_v ) );
sc_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t1619 ) ) );
CONSTANTEXP( ADR( sc_2derror_v ) );
sc_2dlog_v = STRINGTOSYMBOL( U_TX( ADR( t1620 ) ) );
CONSTANTEXP( ADR( sc_2dlog_v ) );
sc_2dstack_2dtrace_v = STRINGTOSYMBOL( U_TX( ADR( t1621 ) ) );
CONSTANTEXP( ADR( sc_2dstack_2dtrace_v ) );
sc_2dinterpreter_v = STRINGTOSYMBOL( U_TX( ADR( t1622 ) ) );
CONSTANTEXP( ADR( sc_2dinterpreter_v ) );
docompile_v = STRINGTOSYMBOL( U_TX( ADR( t1623 ) ) );
CONSTANTEXP( ADR( docompile_v ) );
sc_2derror_2dcnt_v = STRINGTOSYMBOL( U_TX( ADR( t1624 ) ) );
CONSTANTEXP( ADR( sc_2derror_2dcnt_v ) );
module_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t1625 ) ) );
CONSTANTEXP( ADR( module_2dname_v ) );
close_2dsc_2dfiles_v = STRINGTOSYMBOL( U_TX( ADR( t1626 ) ) );
CONSTANTEXP( ADR( close_2dsc_2dfiles_v ) );
c1392 = STRINGTOSYMBOL( U_TX( ADR( t1639 ) ) );
CONSTANTEXP( ADR( c1392 ) );
c1274 = EMPTYLIST;
t1648 = STRINGTOSYMBOL( U_TX( ADR( t1649 ) ) );
X1 = t1648;
X1 = CONS( t1650, X1 );
c1274 = CONS( X1, c1274 );
t1652 = STRINGTOSYMBOL( U_TX( ADR( t1653 ) ) );
X1 = t1652;
X1 = CONS( t1654, X1 );
c1274 = CONS( X1, c1274 );
t1656 = STRINGTOSYMBOL( U_TX( ADR( t1657 ) ) );
X1 = t1656;
X1 = CONS( t1658, X1 );
c1274 = CONS( X1, c1274 );
t1660 = STRINGTOSYMBOL( U_TX( ADR( t1661 ) ) );
X1 = t1660;
X1 = CONS( t1662, X1 );
c1274 = CONS( X1, c1274 );
t1664 = STRINGTOSYMBOL( U_TX( ADR( t1665 ) ) );
X1 = t1664;
X1 = CONS( t1666, X1 );
c1274 = CONS( X1, c1274 );
t1668 = STRINGTOSYMBOL( U_TX( ADR( t1669 ) ) );
X1 = t1668;
X1 = CONS( t1670, X1 );
c1274 = CONS( X1, c1274 );
t1672 = STRINGTOSYMBOL( U_TX( ADR( t1673 ) ) );
X1 = t1672;
X1 = CONS( t1674, X1 );
c1274 = CONS( X1, c1274 );
t1676 = STRINGTOSYMBOL( U_TX( ADR( t1677 ) ) );
X1 = t1676;
X1 = CONS( t1678, X1 );
c1274 = CONS( X1, c1274 );
t1680 = STRINGTOSYMBOL( U_TX( ADR( t1681 ) ) );
X1 = t1680;
X1 = CONS( t1682, X1 );
c1274 = CONS( X1, c1274 );
CONSTANTEXP( ADR( c1274 ) );
c1125 = EMPTYLIST;
c1125 = CONS( EMPTYSTRING, c1125 );
CONSTANTEXP( ADR( c1125 ) );
c1104 = STRINGTOSYMBOL( U_TX( ADR( t1701 ) ) );
CONSTANTEXP( ADR( c1104 ) );
c1087 = STRINGTOSYMBOL( U_TX( ADR( t1704 ) ) );
CONSTANTEXP( ADR( c1087 ) );
c1065 = STRINGTOSYMBOL( U_TX( ADR( t1706 ) ) );
CONSTANTEXP( ADR( c1065 ) );
}
DEFTSCP( main_scc_2dversion_v );
DEFSTRING( t1716, "SCC-VERSION", 11 );
DEFTSCP( main_force_2dld_2dof_2drep_v );
DEFSTRING( t1717, "FORCE-LD-OF-REP", 15 );
EXTERNTSCPP( screp_read_2deval_2dprint );
EXTERNTSCP( screp_read_2deval_2dprint_v );
DEFTSCP( main_sc_2dto_2dc_2ec_v );
DEFSTRING( t1718, "SC-TO-C.C", 9 );
DEFTSCP( main_sc_2dto_2dc_2eo_v );
DEFSTRING( t1719, "SC-TO-C.O", 9 );
DEFTSCP( main_predef_2ddefault_v );
DEFSTRING( t1720, "PREDEF-DEFAULT", 14 );
DEFTSCP( main_c_2dinclude_2dfile_v );
DEFSTRING( t1721, "C-INCLUDE-FILE", 14 );
DEFTSCP( main_c_2dinclude_2ddir_v );
DEFSTRING( t1722, "C-INCLUDE-DIR", 13 );
DEFTSCP( main_sc_2dlibrary_v );
DEFSTRING( t1723, "SC-LIBRARY", 10 );
DEFTSCP( main_sc_2dlibrary__p_v );
DEFSTRING( t1724, "SC-LIBRARY_P", 12 );
DEFTSCP( main_sc_2dprocessor_v );
DEFSTRING( t1725, "SC-PROCESSOR", 12 );
DEFTSCP( main_configure_v );
DEFSTRING( t1726, "CONFIGURE", 9 );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt6_display );
EXTERNTSCP( scrt6_display_v );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
EXTERNTSCP( scrt6_exit_v );
EXTERNTSCPP( scrt1_list_2dref );
EXTERNTSCP( scrt1_list_2dref_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt2__3c_3d_2dtwo );
EXTERNTSCP( scrt2__3c_3d_2dtwo_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
EXTERNTSCPP( scrt3_substring );
EXTERNTSCP( scrt3_substring_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNTSCPP( sc_save_2dheap );
EXTERNTSCP( sc_save_2dheap_v );
EXTERNTSCPP( main_scc );
EXTERNTSCP( main_scc_v );
TSCP main_configure( c1032 )
TSCP c1032;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1726 ) ) );
X1 = scrt1_length( c1032 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1730;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L1734;
goto L1737;
L1730:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( 4 ) ) ) ) goto L1737;
L1734:
scrt6_display( c1044, EMPTYLIST );
scrt6_newline( EMPTYLIST );
X2 = scrt6_exit_v;
X2 = UNKNOWNCALL( X2, 0 );
VIA( PROCEDURE_CODE( X2 ) )( PROCEDURE_CLOSURE( X2 ) );
L1737:
main_predef_2ddefault_v = scrt1_list_2dref( c1032, _TSCP( 4 ) );
X1 = scrt1_list_2dref( c1032, _TSCP( 8 ) );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), STRINGTAG ) ) ) goto L1741;
scrt6_error( c1087, c1088, CONS( X1, EMPTYLIST ) );
L1741:
X2 = C_FIXED( STRING_LENGTH( X1 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1745;
X3 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 4 ) ) ) );
goto L1746;
L1745:
X3 = scrt2__2d_2dtwo( X2, _TSCP( 4 ) );
L1746:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L1749;
if ( LTE( INT( X3 ), INT( _TSCP( 0 ) ) ) ) goto L1753;
goto L1754;
L1749:
if ( FALSE( scrt2__3c_3d_2dtwo( X3, _TSCP( 0 ) ) ) ) goto L1754;
L1753:
scrt6_error( c1104, c1105, CONS( X1, EMPTYLIST ) );
goto L1759;
L1754:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L1761;
scrt6_error( c1065, c1066, CONS( X3, EMPTYLIST ) );
L1761:
X5 = BOOLEAN( LT( INT( X3 ), 0 ) );
if ( TRUE( X5 ) ) goto L1767;
X6 = C_FIXED( STRING_LENGTH( X1 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X6 ) ),
3 ) ) goto L1771;
if ( GTE( INT( X3 ), INT( X6 ) ) ) goto L1767;
goto L1778;
L1771:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, X6 ) ) ) goto L1778;
L1767:
scrt6_error( c1065, c1089, CONS( X3, EMPTYLIST ) );
L1778:
X4 = C_CHAR( STRING_CHAR( X1, X3 ) );
if ( FALSE( scrt1_equal_3f( X4, _TSCP( 12050 ) ) ) ) goto L1758;
main_c_2dinclude_2ddir_v = scrt3_substring( X1,
_TSCP( 0 ), X3 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1780;
X4 = _TSCP( IPLUS( INT( X3 ), INT( _TSCP( 4 ) ) ) );
goto L1781;
L1780:
X4 = scrt2__2b_2dtwo( X3, _TSCP( 4 ) );
L1781:
main_c_2dinclude_2dfile_v = scrt3_substring( X1, X4, X2 );
goto L1759;
L1758:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1782;
X3 = _TSCP( IDIFFERENCE( INT( X3 ),
INT( _TSCP( 4 ) ) ) );
goto L1746;
L1782:
X3 = scrt2__2d_2dtwo( X3, _TSCP( 4 ) );
goto L1746;
L1759:
main_sc_2dlibrary_v = scrt1_list_2dref( c1032, _TSCP( 12 ) );
main_sc_2dlibrary__p_v = scrt1_list_2dref( c1032, _TSCP( 16 ) );
main_sc_2dprocessor_v = scrt1_list_2dref( c1032, _TSCP( 20 ) );
X1 = SYMBOL_VALUE( initialize_2dcompile_v );
X1 = UNKNOWNCALL( X1, 0 );
VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) );
X1 = scrt1_list_2dref( c1032, _TSCP( 24 ) );
POPSTACKTRACE( sc_save_2dheap( X1,
CONS( main_scc_v, EMPTYLIST ) ) );
}
DEFTSCP( main_module_2dnames_v );
DEFSTRING( t1784, "MODULE-NAMES", 12 );
DEFTSCP( main_include_2ddirs_v );
DEFSTRING( t1785, "INCLUDE-DIRS", 12 );
DEFTSCP( main_scc_v );
DEFSTRING( t1786, "SCC", 3 );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNINTP( getpid );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt1_assoc );
EXTERNTSCP( scrt1_assoc_v );
EXTERNTSCPP( main_do_2dc_2dflag );
EXTERNTSCP( main_do_2dc_2dflag_v );
EXTERNTSCP( scrt6_reset_v );
DEFSTRING( t1921, "main_l1355 [inside SCC]", 23 );
EXTERNINTP( unlink );
TSCP main_l1355( c1920 )
TSCP c1920;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1921 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c1920, 0 );
unlink( TSCP_POINTER( main_sc_2dto_2dc_2ec_v ) );
unlink( TSCP_POINTER( main_sc_2dto_2dc_2eo_v ) );
X3 = DISPLAY( 0 );
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
DISPLAY( 0 ) = X1;
POPSTACKTRACE( X2 );
}
EXTERNTSCPP( scrt5_open_2doutput_2dfile );
EXTERNTSCP( scrt5_open_2doutput_2dfile_v );
EXTERNTSCPP( scrt5_close_2doutput_2dport );
EXTERNTSCP( scrt5_close_2doutput_2dport_v );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNINTP( system );
TSCP main_scc( c1127 )
TSCP c1127;
{
TSCP X20,
X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t1786 ) ) );
X1 = c1456;
X2 = EMPTYLIST;
X3 = EMPTYLIST;
X4 = FALSEVALUE;
X5 = TRUEVALUE;
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( main_sc_2dlibrary_v,
CONS( c1236, X7 ) );
X7 = FALSEVALUE;
X8 = 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 );
X2 = CONS( X2, EMPTYLIST );
X1 = CONS( X1, EMPTYLIST );
main_sc_2dto_2dc_2ec_v = scrt6_format( main_sc_2dto_2dc_2ec_v,
CONS( INT_TSCP( getpid( ) ),
EMPTYLIST ) );
main_sc_2dto_2dc_2eo_v = scrt6_format( main_sc_2dto_2dc_2eo_v,
CONS( INT_TSCP( getpid( ) ),
EMPTYLIST ) );
if ( EQ( TSCPTAG( c1127 ), PAIRTAG ) ) goto L1791;
scrt1__24__cdr_2derror( c1127 );
L1791:
X9 = PAIR_CDR( c1127 );
L1793:
if ( FALSE( X9 ) ) goto L1822;
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L1797;
scrt1__24__car_2derror( X9 );
L1797:
X10 = PAIR_CAR( X9 );
X11 = scrt1_equal_3f( X10, c1146 );
if ( FALSE( X11 ) ) goto L1821;
X12 = PAIR_CDR( X9 );
if ( FALSE( X12 ) ) goto L1821;
X13 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L1811;
scrt1__24__cdr_2derror( X13 );
L1811:
if ( FALSE( PAIR_CDR( X13 ) ) ) goto L1821;
X16 = CONS( c1344, EMPTYLIST );
X16 = CONS( scrt1_caddr( X9 ), X16 );
X16 = CONS( c1343, X16 );
X17 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X17 ), PAIRTAG ) ) goto L1818;
scrt1__24__car_2derror( X17 );
L1818:
X16 = CONS( PAIR_CAR( X17 ), X16 );
X15 = scrt3_string_2dappend( CONS( c1332, X16 ) );
X14 = sc_cons( X15, PAIR_CAR( X8 ) );
SETGEN( PAIR_CAR( X8 ), X14 );
X9 = scrt1_cdddr( X9 );
goto L1793;
L1821:
if ( FALSE( scrt1_equal_3f( X10, c1166 ) ) ) goto L1823;
X11 = TRUEVALUE;
SETGEN( PAIR_CAR( X7 ), X11 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1823:
X11 = scrt1_equal_3f( X10, c1170 );
if ( FALSE( X11 ) ) goto L1844;
if ( FALSE( PAIR_CDR( X9 ) ) ) goto L1844;
X15 = CONS( c1315, EMPTYLIST );
X16 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L1837;
scrt1__24__car_2derror( X16 );
L1837:
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 L1842;
scrt1__24__cdr_2derror( X12 );
L1842:
X9 = PAIR_CDR( X12 );
goto L1793;
L1844:
X11 = scrt1_equal_3f( X10, c1179 );
if ( FALSE( X11 ) ) goto L1861;
if ( FALSE( PAIR_CDR( X9 ) ) ) goto L1861;
X13 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L1855;
scrt1__24__car_2derror( X13 );
L1855:
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 L1859;
scrt1__24__cdr_2derror( X12 );
L1859:
X9 = PAIR_CDR( X12 );
goto L1793;
L1861:
if ( FALSE( scrt1_equal_3f( X10, c1185 ) ) ) goto L1862;
X11 = SYMBOL_VALUE( sc_2dlog_2ddefault_v );
SETGEN( PAIR_CAR( X2 ), X11 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1862:
X11 = scrt1_assoc( X10, c1274 );
if ( FALSE( X11 ) ) goto L1867;
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L1871;
scrt1__24__cdr_2derror( X11 );
L1871:
X13 = PAIR_CDR( X11 );
X12 = sc_cons( X13, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X12 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1867:
if ( FALSE( scrt1_equal_3f( X10, c1188 ) ) ) goto L1874;
X12 = sc_cons( c1259, PAIR_CAR( X8 ) );
SETGEN( PAIR_CAR( X8 ), X12 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1874:
if ( FALSE( scrt1_equal_3f( X10, c1189 ) ) ) goto L1878;
X12 = sc_cons( c1253, PAIR_CAR( X8 ) );
SETGEN( PAIR_CAR( X8 ), X12 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1878:
if ( FALSE( scrt1_equal_3f( X10, c1190 ) ) ) goto L1882;
X12 = FALSEVALUE;
SETGEN( PAIR_CAR( X5 ), X12 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1882:
if ( FALSE( scrt1_equal_3f( X10, c1191 ) ) ) goto L1886;
X12 = sc_cons( c1242, PAIR_CAR( X8 ) );
SETGEN( PAIR_CAR( X8 ), X12 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1886:
if ( FALSE( scrt1_equal_3f( X10, c1192 ) ) ) goto L1890;
X13 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( main_sc_2dlibrary__p_v,
CONS( c1236, X13 ) );
SETGEN( PAIR_CAR( X6 ), X12 );
X12 = sc_cons( X10, PAIR_CAR( X3 ) );
SETGEN( PAIR_CAR( X3 ), X12 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1890:
if ( FALSE( scrt1_equal_3f( X10, c1193 ) ) ) goto L1894;
X12 = TRUEVALUE;
SETGEN( PAIR_CAR( X4 ), X12 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1894:
X12 = scrt1_equal_3f( X10, c1197 );
if ( FALSE( X12 ) ) goto L1914;
if ( FALSE( PAIR_CDR( X9 ) ) ) goto L1914;
X14 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X14 ), PAIRTAG ) ) goto L1908;
scrt1__24__car_2derror( X14 );
L1908:
X13 = PAIR_CAR( X14 );
SETGEN( PAIR_CAR( X1 ), X13 );
X13 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L1912;
scrt1__24__cdr_2derror( X13 );
L1912:
X9 = PAIR_CDR( X13 );
goto L1793;
L1914:
X12 = main_do_2dc_2dflag( X10,
PAIR_CAR( X8 ),
PAIR_CAR( X2 ),
PAIR_CAR( X5 ),
PAIR_CAR( X7 ) );
X11 = sc_cons( X12, PAIR_CAR( X3 ) );
SETGEN( PAIR_CAR( X3 ), X11 );
X9 = PAIR_CDR( X9 );
goto L1793;
L1822:
if ( FALSE( PAIR_CAR( X4 ) ) ) goto L1917;
X9 = scrt6_exit_v;
X9 = UNKNOWNCALL( X9, 0 );
VIA( PROCEDURE_CODE( X9 ) )( PROCEDURE_CLOSURE( X9 ) );
L1917:
DISPLAY( 0 ) = scrt6_reset_v;
scrt6_reset_v = MAKEPROCEDURE( 0,
0,
main_l1355,
MAKECLOSURE( EMPTYLIST,
1,
DISPLAY( 0 ) ) );
if ( FALSE( PAIR_CAR( X7 ) ) ) goto L1923;
X9 = scrt5_open_2doutput_2dfile( main_sc_2dto_2dc_2ec_v );
X10 = CONS( main_c_2dinclude_2dfile_v, EMPTYLIST );
X10 = CONS( main_c_2dinclude_2ddir_v, X10 );
scrt6_format( X9, CONS( c1358, X10 ) );
scrt6_format( X9, CONS( c1359, EMPTYLIST ) );
scrt6_format( X9, CONS( c1360, EMPTYLIST ) );
scrt6_format( X9, CONS( c1361, EMPTYLIST ) );
X10 = sc_cons( c1405, main_module_2dnames_v );
X11 = X10;
X12 = EMPTYLIST;
X13 = EMPTYLIST;
L1928:
if ( EQ( UNSIGNED( X11 ), UNSIGNED( EMPTYLIST ) ) ) goto L1936;
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L1932;
scrt1__24__car_2derror( X11 );
L1932:
X16 = CONS( PAIR_CAR( X11 ), EMPTYLIST );
X15 = scrt6_format( X9, CONS( c1404, X16 ) );
X14 = sc_cons( X15, EMPTYLIST );
if ( NEQ( UNSIGNED( X12 ), UNSIGNED( EMPTYLIST ) ) ) goto L1935;
X15 = PAIR_CDR( X11 );
X13 = X14;
X12 = X14;
X11 = X15;
goto L1928;
L1935:
X15 = PAIR_CDR( X11 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L1940;
scrt6_error( c1392,
c1393, CONS( X13, EMPTYLIST ) );
L1940:
X13 = SETGEN( PAIR_CDR( X13 ), X14 );
X11 = X15;
goto L1928;
L1936:
scrt6_format( X9, CONS( c1406, EMPTYLIST ) );
scrt6_format( X9, CONS( c1407, EMPTYLIST ) );
scrt6_format( X9, CONS( c1408, EMPTYLIST ) );
scrt5_close_2doutput_2dport( X9 );
X12 = sc_cons( main_sc_2dto_2dc_2ec_v, EMPTYLIST );
X11 = X12;
X10 = scrt1_append_2dtwo( PAIR_CAR( X3 ), X11 );
SETGEN( PAIR_CAR( X3 ), X10 );
L1923:
X15 = scrt1_reverse( PAIR_CAR( X3 ) );
X14 = scrt1_append_2dtwo( X15, PAIR_CAR( X6 ) );
X15 = X14;
X16 = EMPTYLIST;
X17 = EMPTYLIST;
L1947:
if ( NEQ( UNSIGNED( X15 ), UNSIGNED( EMPTYLIST ) ) ) goto L1948;
X13 = X16;
goto L1955;
L1948:
if ( EQ( TSCPTAG( X15 ), PAIRTAG ) ) goto L1951;
scrt1__24__car_2derror( X15 );
L1951:
X20 = CONS( PAIR_CAR( X15 ), EMPTYLIST );
X19 = scrt3_string_2dappend( CONS( c1343, X20 ) );
X18 = sc_cons( X19, EMPTYLIST );
if ( NEQ( UNSIGNED( X16 ), UNSIGNED( EMPTYLIST ) ) ) goto L1954;
X19 = PAIR_CDR( X15 );
X17 = X18;
X16 = X18;
X15 = X19;
goto L1947;
L1954:
X19 = PAIR_CDR( X15 );
if ( EQ( TSCPTAG( X17 ), PAIRTAG ) ) goto L1959;
scrt6_error( c1392,
c1393, CONS( X17, EMPTYLIST ) );
L1959:
X17 = SETGEN( PAIR_CDR( X17 ), X18 );
X15 = X19;
goto L1947;
L1955:
X14 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X12 = CONS( scrt1_append_2dtwo( X13, X14 ),
EMPTYLIST );
X12 = CONS( main_c_2dinclude_2ddir_v, X12 );
X12 = CONS( c1415, X12 );
X12 = CONS( main_sc_2dprocessor_v, X12 );
X11 = scrt1_cons_2a( PAIR_CAR( X1 ),
CONS( c1414, X12 ) );
X10 = sc_apply_2dtwo( scrt3_string_2dappend_v, X11 );
X9 = INT_TSCP( system( TSCP_POINTER( X10 ) ) );
if ( EQ( UNSIGNED( _TSCP( 0 ) ), UNSIGNED( X9 ) ) ) goto L1943;
X9 = scrt6_reset_v;
X9 = UNKNOWNCALL( X9, 0 );
VIA( PROCEDURE_CODE( X9 ) )( PROCEDURE_CLOSURE( X9 ) );
L1943:
unlink( TSCP_POINTER( main_sc_2dto_2dc_2ec_v ) );
SDVAL = INT_TSCP( unlink( TSCP_POINTER( main_sc_2dto_2dc_2eo_v ) ) );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( main_do_2dc_2dflag_v );
DEFSTRING( t1961, "DO-C-FLAG", 9 );
EXTERNTSCPP( scrt2_max_2dtwo );
EXTERNTSCP( scrt2_max_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt3_string_3d_3f );
EXTERNTSCP( scrt3_string_3d_3f_v );
EXTERNTSCPP( scrt6_read );
EXTERNTSCP( scrt6_read_v );
EXTERNTSCPP( scrt5_open_2dinput_2dstring );
EXTERNTSCP( scrt5_open_2dinput_2dstring_v );
EXTERNTSCPP( scrt5_open_2dinput_2dfile );
EXTERNTSCP( scrt5_open_2dinput_2dfile_v );
EXTERNTSCP( scrt5_stderr_2dport_v );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
EXTERNINTP( rename );
TSCP main_do_2dc_2dflag( a1458,
f1459, l1460, s1461, i1462 )
TSCP a1458, f1459, l1460, s1461, i1462;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1961 ) ) );
if ( AND( EQ( TSCPTAG( a1458 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( a1458 ), STRINGTAG ) )
) goto L1964;
scrt6_error( c1087,
c1088, CONS( a1458, EMPTYLIST ) );
L1964:
X2 = C_FIXED( STRING_LENGTH( a1458 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L1967;
X5 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 12 ) ) ) );
goto L1968;
L1967:
X5 = scrt2__2d_2dtwo( X2, _TSCP( 12 ) );
L1968:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X5 ) ),
3 ) ) goto L1970;
if ( LTE( INT( _TSCP( 0 ) ), INT( X5 ) ) ) goto L1972;
X4 = _TSCP( 0 );
goto L1971;
L1972:
X4 = X5;
goto L1971;
L1970:
X4 = scrt2_max_2dtwo( _TSCP( 0 ), X5 );
L1971:
X3 = scrt3_substring( a1458, _TSCP( 0 ), X4 );
X4 = CONS( c1535, EMPTYLIST );
X1 = scrt3_string_2dappend( CONS( X3, X4 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L1977;
if ( GT( INT( X2 ), INT( _TSCP( 12 ) ) ) ) goto L1981;
POPSTACKTRACE( a1458 );
L1977:
if ( TRUE( scrt2__3e_2dtwo( X2, _TSCP( 12 ) ) ) ) goto L1981;
POPSTACKTRACE( a1458 );
L1981:
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L1986;
X4 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 12 ) ) ) );
goto L1987;
L1986:
X4 = scrt2__2d_2dtwo( X2, _TSCP( 12 ) );
L1987:
X3 = scrt3_substring( a1458, X4, X2 );
if ( FALSE( scrt3_string_3d_3f( X3, c1485 ) ) ) goto L1984;
X3 = CONS( a1458, EMPTYLIST );
scrt6_format( TRUEVALUE, CONS( c1487, X3 ) );
X3 = SYMBOL_VALUE( initialize_2dcompile_v );
X3 = UNKNOWNCALL( X3, 0 );
VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
X3 = f1459;
L1990:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L1991;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L1995;
scrt1__24__car_2derror( X3 );
L1995:
X4 = PAIR_CAR( X3 );
X6 = scrt6_read( CONS( scrt5_open_2dinput_2dstring( X4 ),
EMPTYLIST ) );
X5 = SYMBOL_VALUE( do_2ddefine_2dconstant_v );
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( X6, PROCEDURE_CLOSURE( X5 ) );
X3 = PAIR_CDR( X3 );
goto L1990;
L1991:
SETGENTL( SYMBOL_VALUE( sc_2dinclude_2ddirs_v ),
main_include_2ddirs_v );
X4 = scrt5_open_2dinput_2dfile( a1458 );
X3 = sc_cons( X4, EMPTYLIST );
SETGENTL( SYMBOL_VALUE( sc_2dinput_v ), X3 );
SETGENTL( SYMBOL_VALUE( sc_2dsource_2dname_v ), a1458 );
SETGENTL( SYMBOL_VALUE( sc_2dicode_v ),
scrt5_open_2doutput_2dfile( main_sc_2dto_2dc_2ec_v ) );
SETGENTL( SYMBOL_VALUE( sc_2derror_v ),
scrt5_stderr_2dport_v );
SETGENTL( SYMBOL_VALUE( sc_2dlog_v ), l1460 );
SETGENTL( SYMBOL_VALUE( sc_2dstack_2dtrace_v ), s1461 );
SETGENTL( SYMBOL_VALUE( sc_2dinterpreter_v ), i1462 );
X3 = SYMBOL_VALUE( docompile_v );
X3 = UNKNOWNCALL( X3, 0 );
VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
X3 = SYMBOL_VALUE( sc_2derror_2dcnt_v );
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2002;
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2006;
goto L2009;
L2002:
if ( TRUE( scrt2_zero_3f( X3 ) ) ) goto L2009;
L2006:
X4 = scrt6_reset_v;
X4 = UNKNOWNCALL( X4, 0 );
VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) );
L2009:
X3 = SYMBOL_VALUE( module_2dname_v );
main_module_2dnames_v = sc_cons( X3, main_module_2dnames_v );
X3 = SYMBOL_VALUE( close_2dsc_2dfiles_v );
X3 = UNKNOWNCALL( X3, 0 );
VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
rename( TSCP_POINTER( main_sc_2dto_2dc_2ec_v ),
TSCP_POINTER( X1 ) );
POPSTACKTRACE( X1 );
L1984:
POPSTACKTRACE( a1458 );
}
void main__init(){}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt5__init();
scrt3__init();
scrt6__init();
scrt2__init();
scrt1__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( 1 );
}
main( argc, argv )
int argc; char *argv[];
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, argc, argv, main_configure );
init_constants();
init_modules( "(main SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1716 ) ),
ADR( main_scc_2dversion_v ), c1013 );
INITIALIZEVAR( U_TX( ADR( t1717 ) ),
ADR( main_force_2dld_2dof_2drep_v ),
screp_read_2deval_2dprint_v );
INITIALIZEVAR( U_TX( ADR( t1718 ) ),
ADR( main_sc_2dto_2dc_2ec_v ), c1016 );
INITIALIZEVAR( U_TX( ADR( t1719 ) ),
ADR( main_sc_2dto_2dc_2eo_v ), c1018 );
INITIALIZEVAR( U_TX( ADR( t1720 ) ),
ADR( main_predef_2ddefault_v ), c1020 );
INITIALIZEVAR( U_TX( ADR( t1721 ) ),
ADR( main_c_2dinclude_2dfile_v ), c1022 );
INITIALIZEVAR( U_TX( ADR( t1722 ) ),
ADR( main_c_2dinclude_2ddir_v ), c1024 );
INITIALIZEVAR( U_TX( ADR( t1723 ) ),
ADR( main_sc_2dlibrary_v ), c1026 );
INITIALIZEVAR( U_TX( ADR( t1724 ) ),
ADR( main_sc_2dlibrary__p_v ), c1026 );
INITIALIZEVAR( U_TX( ADR( t1725 ) ),
ADR( main_sc_2dprocessor_v ), c1029 );
INITIALIZEVAR( U_TX( ADR( t1726 ) ),
ADR( main_configure_v ),
MAKEPROCEDURE( 1,
0, main_configure, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1784 ) ),
ADR( main_module_2dnames_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t1785 ) ),
ADR( main_include_2ddirs_v ), c1125 );
INITIALIZEVAR( U_TX( ADR( t1786 ) ),
ADR( main_scc_v ),
MAKEPROCEDURE( 1,
0, main_scc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1961 ) ),
ADR( main_do_2dc_2dflag_v ),
MAKEPROCEDURE( 5,
0,
main_do_2dc_2dflag, EMPTYLIST ) );
main_configure( CLARGUMENTS( argc, argv ) );
SCHEMEEXIT();
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.