aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAntoine Brodin <antoine@FreeBSD.org>2014-03-18 18:03:09 +0000
committerAntoine Brodin <antoine@FreeBSD.org>2014-03-18 18:03:09 +0000
commitb8220e44f1d9c760d33ba08c9798b6a6ea1d10ae (patch)
tree70783385d3fe25600ca35ada4d2759d72c7e8f4a
parent96af702aada1b7ad580b78f3d4b188ab36c9a09c (diff)
Remove expired ports:
2014-03-18 databases/ludia: Broken since June 2013 2014-03-18 lang/schemetoc: Broken since July 2013
Notes
Notes: svn path=/head/; revision=348584
Diffstat
-rw-r--r--MOVED2
-rw-r--r--databases/Makefile1
-rw-r--r--databases/ludia/Makefile34
-rw-r--r--databases/ludia/distinfo2
-rw-r--r--databases/ludia/files/patch-pgsenna2.c17
-rw-r--r--databases/ludia/pkg-descr3
-rw-r--r--databases/ludia/pkg-plist6
-rw-r--r--lang/Makefile1
-rw-r--r--lang/schemetoc/Makefile41
-rw-r--r--lang/schemetoc/distinfo2
-rw-r--r--lang/schemetoc/files/Makefile37
-rw-r--r--lang/schemetoc/files/README.FreeBSD29
-rw-r--r--lang/schemetoc/files/main.c1141
-rw-r--r--lang/schemetoc/files/makefile-head32
-rw-r--r--lang/schemetoc/files/options-server.h426
-rw-r--r--lang/schemetoc/files/options.h426
-rw-r--r--lang/schemetoc/files/patch-aa16
-rw-r--r--lang/schemetoc/files/patch-ab14
-rw-r--r--lang/schemetoc/files/patch-ac46
-rw-r--r--lang/schemetoc/files/patch-ad34
-rw-r--r--lang/schemetoc/files/patch-ae44
-rw-r--r--lang/schemetoc/files/patch-af131
-rw-r--r--lang/schemetoc/files/patch-ag53
-rw-r--r--lang/schemetoc/files/patch-ah126
-rw-r--r--lang/schemetoc/files/patch-ai11
-rw-r--r--lang/schemetoc/files/patch-aj121
-rw-r--r--lang/schemetoc/files/patch-scrt-apply.c78
-rw-r--r--lang/schemetoc/files/patch-scrt-apply.h13
-rw-r--r--lang/schemetoc/files/patch-scrt-objects.c55
-rw-r--r--lang/schemetoc/files/patch-scrt-objects.h19
-rw-r--r--lang/schemetoc/files/patch-test-test23.sc40
-rw-r--r--lang/schemetoc/files/x86.s34
-rw-r--r--lang/schemetoc/pkg-descr13
-rw-r--r--lang/schemetoc/pkg-plist25
34 files changed, 2 insertions, 3071 deletions
diff --git a/MOVED b/MOVED
index 3e1e3815af5b..b219e05df6e6 100644
--- a/MOVED
+++ b/MOVED
@@ -5713,3 +5713,5 @@ multimedia/linux-huludesktop||2014-03-14|Removed
multimedia/linux_v4l2wrapper-kmod||2014-03-16|Has expired: Included now in all supported FreeBSD versions
devel/sgl||2014-03-16|Has expired: S/W never progressed beyond incomplete graduate project; library was never properly built - not worth fixing
palm/jpilot-db||2014-03-16|Has expired
+databases/ludia||2014-03-18|Has expired: Broken since June 2013
+lang/schemetoc||2014-03-18|Has expired: Broken since July 2013
diff --git a/databases/Makefile b/databases/Makefile
index 196078b6cd1a..daee033cf74c 100644
--- a/databases/Makefile
+++ b/databases/Makefile
@@ -187,7 +187,6 @@
SUBDIR += luasql-mysql
SUBDIR += luasql-postgres
SUBDIR += luasql-sqlite3
- SUBDIR += ludia
SUBDIR += mantis
SUBDIR += mariadb-client
SUBDIR += mariadb-scripts
diff --git a/databases/ludia/Makefile b/databases/ludia/Makefile
deleted file mode 100644
index 74af6a91af90..000000000000
--- a/databases/ludia/Makefile
+++ /dev/null
@@ -1,34 +0,0 @@
-# $FreeBSD$
-
-PORTNAME= ludia
-PORTVERSION= 1.5.2
-CATEGORIES= databases
-MASTER_SITES= SFJP
-MASTER_SITE_SUBDIR= ludia/38430
-
-MAINTAINER= kuriyama@FreeBSD.org
-COMMENT= PostgreSQL extension for full-text search indexing
-
-BUILD_DEPENDS= senna-cfg:${PORTSDIR}/textproc/senna
-RUN_DEPENDS= senna-cfg:${PORTSDIR}/textproc/senna
-
-GNU_CONFIGURE= yes
-USE_AUTOTOOLS= libtool
-USE_PGSQL= server
-# WANT_PGSQL_VER= 83
-
-BROKEN= Does not work with postgresql-9.0 or postgresql-8.4
-DEPRECATED= Broken since June 2013
-EXPIRATION_DATE=2014-03-18
-
-# let configure find postgres stuff in non-standard places
-CONFIGURE_ARGS+=--with-pgconfigdir=${LOCALBASE}/bin \
- --with-pgbindir=${LOCALBASE}/bin \
- --with-pgincludedir=${LOCALBASE}/include \
- --with-pgincludeserverdir=${LOCALBASE}/include/postgresql/server \
- --with-pglibdir=${LOCALBASE}/lib \
- --with-pgpkglibdir=${LOCALBASE}/lib/postgresql \
- --with-pgsharedir=${LOCALBASE}/share/postgresql
-
-NO_STAGE= yes
-.include <bsd.port.mk>
diff --git a/databases/ludia/distinfo b/databases/ludia/distinfo
deleted file mode 100644
index 12366d963363..000000000000
--- a/databases/ludia/distinfo
+++ /dev/null
@@ -1,2 +0,0 @@
-SHA256 (ludia-1.5.2.tar.gz) = 392b5f7137445668ab0114d58347043a4f3214f5760fb9cfc0379062a8ec4efe
-SIZE (ludia-1.5.2.tar.gz) = 422117
diff --git a/databases/ludia/files/patch-pgsenna2.c b/databases/ludia/files/patch-pgsenna2.c
deleted file mode 100644
index a196d84e02da..000000000000
--- a/databases/ludia/files/patch-pgsenna2.c
+++ /dev/null
@@ -1,17 +0,0 @@
-Fix from
-
-http://decide.cocolog-nifty.com/blog/2009/03/postgresql-836-.html
-
-to make it work with postgresql83
-
---- pgsenna2.c.orig 2012-03-27 18:32:05.393559930 +0100
-+++ pgsenna2.c 2012-03-27 18:32:34.261558703 +0100
-@@ -610,7 +610,7 @@
- bs.index = index_info_open(index, 1, flags);
- bs.oid_type = oid_type;
- reltuples = IndexBuildHeapScan(heap, index, indexInfo,
-- buildCallback, (void *) &bs);
-+ buildCallback, (void *) &bs, false);
- #if defined(POSTGRES82) || defined(POSTGRES83)
- result = (IndexBuildResult *) PGS2_PALLOC(sizeof(IndexBuildResult));
- result->heap_tuples = reltuples;
diff --git a/databases/ludia/pkg-descr b/databases/ludia/pkg-descr
deleted file mode 100644
index e3c4f8263333..000000000000
--- a/databases/ludia/pkg-descr
+++ /dev/null
@@ -1,3 +0,0 @@
-PostgreSQL extension for full-text search indexing.
-
-WWW: http://sourceforge.jp/projects/ludia (Japanese)
diff --git a/databases/ludia/pkg-plist b/databases/ludia/pkg-plist
deleted file mode 100644
index 55b64c32c4c6..000000000000
--- a/databases/ludia/pkg-plist
+++ /dev/null
@@ -1,6 +0,0 @@
-lib/postgresql/pgsenna2.a
-lib/postgresql/pgsenna2.la
-lib/postgresql/pgsenna2.so
-lib/postgresql/pgsenna2.so.0
-share/postgresql/pgsenna2.sql
-share/postgresql/uninstall_pgsenna2.sql
diff --git a/lang/Makefile b/lang/Makefile
index f756a523cddf..078aee2e87aa 100644
--- a/lang/Makefile
+++ b/lang/Makefile
@@ -300,7 +300,6 @@
SUBDIR += scala
SUBDIR += scala-docs
SUBDIR += scheme48
- SUBDIR += schemetoc
SUBDIR += scm
SUBDIR += scsh
SUBDIR += sdcc
diff --git a/lang/schemetoc/Makefile b/lang/schemetoc/Makefile
deleted file mode 100644
index 4f1bfa95c8c6..000000000000
--- a/lang/schemetoc/Makefile
+++ /dev/null
@@ -1,41 +0,0 @@
-# Created by: jmacd@uclink.berkeley.edu
-# $FreeBSD$
-
-PORTNAME= schemetoc
-PORTVERSION= 93.3.15
-PORTREVISION= 2
-CATEGORIES= lang scheme
-MASTER_SITES= http://www.cs.indiana.edu/pub/scheme-repository/imp/Scheme-to-C/
-DISTNAME= 15mar93
-EXTRACT_SUFX= .tar.Z
-
-MAINTAINER= erik@bz.bzflag.bz
-COMMENT= Scheme-to-C, a compiler and interpreter for compiling scheme into C
-
-BROKEN= Does not build
-DEPRECATED= Broken since July 2013
-EXPIRATION_DATE=2014-03-18
-
-ONLY_FOR_ARCHS= i386
-
-MAKE_JOBS_UNSAFE= yes
-USE_LDCONFIG= yes
-NO_WRKSUBDIR= yes
-MAN1= scc.1 sci.1
-
-NO_STAGE= yes
-post-extract:
- @${CP} ${FILESDIR}/Makefile ${WRKSRC}
- @${CP} ${FILESDIR}/README.FreeBSD ${WRKSRC}
- @${MV} ${WRKDIR}/scsc/main.c ${WRKSRC}/scsc/main.c.orig
- @${CP} ${FILESDIR}/main.c ${WRKSRC}/scsc/main.c
- @${MKDIR} ${WRKDIR}/ports/FREEBSD
-.for file in makefile-head options-server.h options.h x86.s
- @${CP} ${FILESDIR}/${file} ${WRKSRC}/ports/FREEBSD
-.endfor
-
-post-patch:
- @${REINPLACE_CMD} -e 's|%%PREFIX%%|${PREFIX}|g; \
- s|%%LOCALBASE%%|${LOCALBASE}|g' ${WRKSRC}/scsc/*.sc
-
-.include <bsd.port.mk>
diff --git a/lang/schemetoc/distinfo b/lang/schemetoc/distinfo
deleted file mode 100644
index 079cb18729f0..000000000000
--- a/lang/schemetoc/distinfo
+++ /dev/null
@@ -1,2 +0,0 @@
-SHA256 (15mar93.tar.Z) = fc04109965416b0b1fda39e0e4f69ef60efea8de065b6d0cf2e9e86599b106ca
-SIZE (15mar93.tar.Z) = 2218149
diff --git a/lang/schemetoc/files/Makefile b/lang/schemetoc/files/Makefile
deleted file mode 100644
index 4a2312dc1d28..000000000000
--- a/lang/schemetoc/files/Makefile
+++ /dev/null
@@ -1,37 +0,0 @@
-# Makefile for FreeBSD Scheme-to-C port
-#
-# give this a CVS ID to satisfy commit_prep.pl --tg
-# $FreeBSD$
-#
-
-MAN_DIR = ${PREFIX}/man/man1
-BIN_DIR = ${PREFIX}/bin
-LIB_DIR = ${PREFIX}/lib
-SCHEME_DIR = ${LIB_DIR}/schemetoc
-
-all:
- ${MAKE} -f makefile forFREEBSD
- (cd FREEBSD; ${MAKE} port)
- (cd FREEBSD/cdecl; ${MAKE} all)
- (cd FREEBSD/xlib; ${MAKE} all)
-
-install:
- mkdir -p ${SCHEME_DIR}/doc
- (cd FREEBSD/scrt; ${MAKE} "LIBDIR = ${LIB_DIR}" \
- "BINDIR = ${BIN_DIR}" install)
- (cd FREEBSD/scsc; ${MAKE} "LIBDIR = ${LIB_DIR}" \
- "BINDIR = ${BIN_DIR}" install)
- (cd FREEBSD/xlib; ${MAKE} "LIBDIR = ${LIB_DIR}" \
- "BINDIR = ${BIN_DIR}" install)
- (cd doc; ${BSD_INSTALL_DATA} index.psf \
- embedded.psf \
- intro.psf \
- r4rs.psf \
- smithnotes.psf \
- ${SCHEME_DIR}/doc)
- ${BSD_INSTALL_DATA} test/test51.sc ${SCHEME_DIR}/doc/test.sc
- ${BSD_INSTALL_DATA} xlib/hello.sc ${SCHEME_DIR}/doc
- ${BSD_INSTALL_DATA} xlib/puzzle.sc ${SCHEME_DIR}/doc
- ${BSD_INSTALL_DATA} README.FreeBSD ${SCHEME_DIR}/doc
- ${BSD_INSTALL_DATA} doc/scc.l ${MAN_DIR}/scc.1
- ${BSD_INSTALL_DATA} doc/sci.l ${MAN_DIR}/sci.1
diff --git a/lang/schemetoc/files/README.FreeBSD b/lang/schemetoc/files/README.FreeBSD
deleted file mode 100644
index f05ffa3713b0..000000000000
--- a/lang/schemetoc/files/README.FreeBSD
+++ /dev/null
@@ -1,29 +0,0 @@
-Notes for Scheme-to-C port for FreeBSD:
-
-The documentation provided on the X library interface for Scheme-to-C
-was very limited and as a result I'm not sure if I've got it right.
-Instead of using having the compiler link the library archives libsc.a
-(the standard schemetoc library) or scxl.a (the x library), two shared
-libraries are included, libsc.so.1 and libscxl.so.1.
-
-The syntax of the scc compiler has been extended to automatically
-use dynamic linking unless the -static flag is specified on the scc
-command line.
-
-For compiling executables on the command line from only object files
-it has no method of knowing if you need the X library linked in,
-and will by default not. So, if you are building an application
-written for scheme->c which needs X support (such as ezd), you
-will need to supply a -lX11 flag on the command line. If you are
-compiling a single scheme file(not an object file) which has the
-(with xlib) line in the module statement it is not necessary to
-include -lX11.
-
-Those not wishing to use the X library support can delete the following
-files:
-
-libscxl.so.1 The shared lib.
-schemetoc/libscxl.a The library archive.
-bin/scixl The X lib interpreter.
-
-Each is about 1.4 megabytes.
diff --git a/lang/schemetoc/files/main.c b/lang/schemetoc/files/main.c
deleted file mode 100644
index 3c8261529cda..000000000000
--- a/lang/schemetoc/files/main.c
+++ /dev/null
@@ -1,1141 +0,0 @@
-
-/* 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, "-L/usr/X11R6/lib -lX11" );
-DEFSTATICTSCP( c2450 );
-DEFCSTRING( t2613, "-lm" );
-DEFSTATICTSCP( c2447 );
-DEFCSTRING( t2614, "-pg" );
-DEFSTATICTSCP( c2444 );
-DEFCSTRING( t2615, "-L/usr/X11R6/lib -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();
-}
diff --git a/lang/schemetoc/files/makefile-head b/lang/schemetoc/files/makefile-head
deleted file mode 100644
index ba600cf2daf2..000000000000
--- a/lang/schemetoc/files/makefile-head
+++ /dev/null
@@ -1,32 +0,0 @@
-#
-# This is the header file for constructing make files for FreeBSD.
-#
-
-# Default flags to use when invoking the C compiler.
-
-CFLAGS ?= -O2
-CC ?= gcc
-
-# Assembly language object files.
-
-Aruntime = x86.o
-SAruntime = x86.so
-
-# Profiled library
-
-Plib = libsc_p.a
-
-# Installation tools
-
-RANLIB = ranlib
-AS = as
-CPP = cpp
-
-# X library
-
-XLIB = -L${LOCALBASE}/lib -lX11
-XLIBCFLAGS =
-PICFLAGS = -fpic -DPIC
-
-
-# End of FREEBSD header.
diff --git a/lang/schemetoc/files/options-server.h b/lang/schemetoc/files/options-server.h
deleted file mode 100644
index 1f1c082fb3bf..000000000000
--- a/lang/schemetoc/files/options-server.h
+++ /dev/null
@@ -1,426 +0,0 @@
-/* SCHEME->C */
-
-/* Copyright 1989-1993 Digital Equipment Corporation
- * All Rights Reserved
- *
- * Permission to use, copy, and modify this software and its documentation is
- * hereby granted only under the following terms and conditions. Both the
- * above copyright notice and this permission notice must appear in all copies
- * of the software, derivative works or modified versions, and any portions
- * thereof, and both notices must appear in supporting documentation.
- *
- * Users of this software agree to the terms and conditions set forth herein,
- * and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
- * right and license under any changes, enhancements or extensions made to the
- * core functions of the software, including but not limited to those affording
- * compatibility with other hardware or software environments, but excluding
- * applications which incorporate this software. Users further agree to use
- * their best efforts to return to Digital any such changes, enhancements or
- * extensions that they make and inform Digital of noteworthy uses of this
- * software. Correspondence should be provided to Digital at:
- *
- * Director of Licensing
- * Western Research Laboratory
- * Digital Equipment Corporation
- * 250 University Avenue
- * Palo Alto, California 94301
- *
- * This software may be distributed (but not offered for sale or transferred
- * for compensation) to third parties, provided such third parties agree to
- * abide by the terms and conditions of this notice.
- *
- * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
- * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
- * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT
- * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
- * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
- * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
- * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
-*/
-
-/* This file defines compilation options for a specific implementation */
-
-#define CHECKSTACK 1 /* 0 = don't check stack height */
- /* 1 = check stack height */
-
-#define TIMESLICE 1 /* 0 = don't time slice execution */
- /* 1 = time slice execution */
-
-#define COMPACTPUSHTRACE 0 /* 0 = inline procedure entry checks.
- 1 = emit procedure call for procedure
- entry checks.
- */
-
-#define COMPACTPOPTRACE 0 /* 0 = inline procedure exit cleanup.
- 1 = emit procedure call for procedure exit
- cleanup.
- */
-
-#define S2CSIGNALS 0 /* 0 = Scheme->C doesn't handle signals */
- /* 1 = Scheme->C does handle signals */
-
-#define MATHTRAPS 0 /* 0 = don't detect fixed point overflow */
- /* 1 = recover on fixed point overflow */
-
-/* Define only one of the supported processor types:
-
- AOSF Alpha AXP OSF/1
- HP700 HP 9000/700
- MAC Macintosh system 7.1 with Think-C 5.0
- MC680X0 HP 9000/300, Sun 3, Next
- MIPS DECstation, SGI, Sony News
- VAX Vax ULTRIX
- FREEBSD x86 FreeBSD
- WIN16 Microsoft Windows 3.1
-*/
-
-#define FREEBSD 1
-
-/* Attributes of the selected architecture:
-
- The following four macros define specific aspects of the system. They
- are defined as strings, or specifically undefined:
-
- IMPLEMENTATION_MACHINE machine type
- IMPLEMENTATION_CPU cpu type
- IMPLEMENTATION_OS operating system
- IMPLEMENTATION_FS file system
-
- Big endian vs. little endian:
-
- BIGENDIAN defined to 1 to denote bigendian systems
-
- C compiler:
-
- OLD_FASHIONED_C defined to 1 for pre-ANSI compilers
-
- Alignment:
-
- DOUBLE_ALIGN defined to 1 to force doubles to be aligned on
- an even S2CINT boundary
-
- Macro expansion:
-
- NEED_MACRO_ARGS defined to 1 to declare a macro like X() as
- X(dummy)
-
- The types S2CINT and S2CUINT are defined to be signed and unsigned integers
- that are the same size as pointers. This is the basic "word" used by
- Scheme->C.
-
- The machine state when a continuation is created is captured in the
- sc_jmp_buf data structure.
-
- STACKPTR( x ) is a define that stores the address of the stack pointer
- in x.
-
- Unix flavors:
-
- POSIX POSIX.1 compliant
- SYSV System V or derivative
- SYSV4 System V release 4 (also define SYSV, POSIX)
-*/
-
-/**************/
-/* AOSF */
-/**************/
-
-#ifdef AOSF
-#define IMPLEMENTATION_MACHINE "Alpha AXP"
-#undef IMPLEMENTATION_CPU
-#define IMPLEMENTATION_OS "OSF/1"
-#undef IMPLEMENTATION_FS
-
-typedef long int S2CINT; /* Signed pointer size integer */
-typedef long unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffffffffffffL /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x8000000000000000L /* S2CUINT with 1 in the MSB */
-
-typedef long int sc_jmp_buf[ 9 ]; /* The buffer contains the following items:
- s0-s6 saved registers
- ra return address
- sp stack pointer
- */
-
-#define STACKPTR( x ) x = sc_getsp()
-extern S2CINT* sc_getsp();
-
-#define NEED_MACRO_ARGS 1
-#endif
-
-/***************/
-/* HP700 */
-/***************/
-
-#ifdef HP700
-
-#ifdef __hp9000s700
-#define IMPLEMENTATION_MACHINE "HP9000/700"
-#else
-#ifdef __hp9000s800
-#define IMPLEMENTATION_MACHINE "HP9000/800"
-#endif
-#endif
-
-#define IMPLEMENTATION_CPU "HP-PA"
-
-#define BIGENDIAN 1
-
-#define DOUBLE_ALIGN 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#define STACKPTR(x) ((x) = (sc_processor_register (30)))
-
-#define STACK_GROWS_POSITIVE 1
-
-#endif
-
-#ifdef __hpux
-#define IMPLEMENTATION_OS "HP-UX"
-#undef IMPLEMENTATION_FS
-
-#ifdef __STDC__
-#undef OLD_FASHIONED_C
-#else
-#define OLD_FASHIONED_C 1
-#endif
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-
-#define SYSV 1
-#define POSIX 1
-
-#endif
-
-/*************/
-/* MAC */
-/*************/
-
-#ifdef MAC
-#define IMPLEMENTATION_MACHINE "Apple Macintosh"
-#define IMPLEMENTATION_CPU "680x0"
-#define IMPLEMENTATION_OS "7.1"
-#undef IMPLEMENTATION_FS
-
-#define BIGENDIAN 1
-
-typedef long int S2CINT; /* Signed pointer size integer */
-typedef long unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef short int PAGELINK; /* 16-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffffL /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000L /* S2CUINT with 1 in the MSB */
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-#undef TRUE
-#undef FALSE
-
-#define STACKPTR( x ) x = sc_getsp()
-extern S2CINT* sc_getsp();
-
-#define SCHEAP 1
-#define SCMAXHEAP 15
-#endif
-
-/****************/
-/* MC680X0 */
-/****************/
-
-#ifdef MC680X0
-#define IMPLEMENTATION_CPU "680x0"
-
-#define BIGENDIAN 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#define STACKPTR(x) ((x) = (sc_processor_register (15)))
-
-#ifdef __hp9000s400
-#define IMPLEMENTATION_MACHINE "HP9000/400"
-#else
-#ifdef __hp9000s300
-#define IMPLEMENTATION_MACHINE "HP9000/300"
-#endif
-#endif
-
-/* HP-UX dependent conditionalizations performed above. */
-
-#endif
-
-/**************/
-/* MIPS */
-/**************/
-
-#ifdef MIPS
-#define IMPLEMENTATION_MACHINE "DECstation"
-#define IMPLEMENTATION_CPU "Rx000"
-#define IMPLEMENTATION_OS "ULTRIX"
-#undef IMPLEMENTATION_FS
-
-#define DOUBLE_ALIGN 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#ifndef MIPSEL
-#define BIGMIPS 1
-#define BIGENDIAN 1
-#undef IMPLEMENTATION_MACHINE
-#define IMPLEMENTATION_MACHINE "Big Endian MIPS"
-#undef IMPLEMENTATION_OS
-
-/* Not sure what the correct conditionalization is here -- NEWS-OS
- 5.xx defines both "sony" and "sonyrisc", but apparently NEWS-OS
- 4.xx defines "sony_mips", because the previous version of Scheme->C
- was conditionalized on "sony_mips" which is *not* defined by
- NEWS-OS 5.xx. If there's an intersection between the symbols
- defined by 4.xx and 5.xx then a member of that intersection should
- be used for the conditionalization; otherwise test for both.
-*/
-#ifdef sonyrisc
-
-#undef IMPLEMENTATION_MACHINE
-#define IMPLEMENTATION_MACHINE "Sony MIPS"
-#undef IMPLEMENTATION_CPU
-#define IMPLEMENTATION_CPU "R3000"
-#undef IMPLEMENTATION_OS
-#define IMPLEMENTATION_OS "NEWS-OS"
-
-#ifdef SYSTYPE_SYSV
-
-#define SYSV4 1
-#define SYSV 1
-#define POSIX 1
-
-/* This can be implemented but requires generalizing the signal
- handler to know about SYSV4 siginfo structure.
-*/
-
-#undef MATHTRAPS
-#define MATHTRAPS 0
-
-#define NEED_MACRO_ARGS 1
-
-#define COPY_STACK_BEFORE_LONGJMP 1
-
-#endif
-#endif
-#endif
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-
-#define STACKPTR( x ) x = sc_processor_register( 29 )
-#endif
-
-/*************/
-/* VAX */
-/*************/
-
-#ifdef VAX
-#define IMPLEMENTATION_MACHINE "VAX"
-#undef IMPLEMENTATION_CPU
-#define IMPLEMENTATION_OS "ULTRIX"
-#undef IMPLEMENTATION_FS
-
-#define OLD_FASHIONED_C 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-typedef int sc_jmp_buf[ 16 ]; /* The buffer contains the following items:
- R2-R11 saved registers
- SIGM saved signal mask
- SP stack pointer on entry to
- setjmp
- PSW PSW word from stack frame
- AP saved argument ptr from frame
- FP saved frame ptr from frame
- PC saved program cntr from frame
- */
-
-#define STACKPTR( x ) x = sc_processor_register( 14 )
-#endif
-
-/***************/
-/* FREEBSD */
-/***************/
-
-#ifdef FREEBSD
-#define IMPLEMENTATION_MACHINE "Generic PC"
-#define IMPLEMENTATION_CPU "Intelx86"
-#define IMPLEMENTATION_OS "FreeBSD"
-#undef IMPLEMENTATION_FS
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#define STACKPTR( x ) x = sc_processor_register( 0 )
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-
-/* Horrid kludge. See callcc.c for the full story: */
-#define LAZY_STACK_POP 1
-#define LAZY_STACK_INCREMENT 4
-
-#endif
-
-/***************/
-/* WIN16 */
-/***************/
-
-#ifdef WIN16
-#define IMPLEMENTATION_MACHINE "Generic PC"
-#define IMPLEMENTATION_CPU "Intelx86"
-#define IMPLEMENTATION_OS "Microsoft Windows 3.1"
-#undef IMPLEMENTATION_FS
-
-typedef long int S2CINT; /* Signed pointer size integer */
-typedef long unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef short int PAGELINK; /* 16-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffffL /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000L /* S2CUINT with 1 in the MSB */
-
-#include <windows.h>
-#undef TRUE
-#undef FALSE
-typedef CATCHBUF sc_jmp_buf;
-
-#define STACKPTR( x ) x = sc_processor_register( 0 )
-
-#define MAXSTRINGSIZE ((S2CINT)65532)
-#define MAXVECTORSIZE ((S2CINT)16383)
-
-#define SCHEAP 2
-#define SCMAXHEAP 15
-#endif
diff --git a/lang/schemetoc/files/options.h b/lang/schemetoc/files/options.h
deleted file mode 100644
index 69d8132f6740..000000000000
--- a/lang/schemetoc/files/options.h
+++ /dev/null
@@ -1,426 +0,0 @@
-/* SCHEME->C */
-
-/* Copyright 1989-1993 Digital Equipment Corporation
- * All Rights Reserved
- *
- * Permission to use, copy, and modify this software and its documentation is
- * hereby granted only under the following terms and conditions. Both the
- * above copyright notice and this permission notice must appear in all copies
- * of the software, derivative works or modified versions, and any portions
- * thereof, and both notices must appear in supporting documentation.
- *
- * Users of this software agree to the terms and conditions set forth herein,
- * and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
- * right and license under any changes, enhancements or extensions made to the
- * core functions of the software, including but not limited to those affording
- * compatibility with other hardware or software environments, but excluding
- * applications which incorporate this software. Users further agree to use
- * their best efforts to return to Digital any such changes, enhancements or
- * extensions that they make and inform Digital of noteworthy uses of this
- * software. Correspondence should be provided to Digital at:
- *
- * Director of Licensing
- * Western Research Laboratory
- * Digital Equipment Corporation
- * 250 University Avenue
- * Palo Alto, California 94301
- *
- * This software may be distributed (but not offered for sale or transferred
- * for compensation) to third parties, provided such third parties agree to
- * abide by the terms and conditions of this notice.
- *
- * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
- * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
- * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT
- * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
- * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
- * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
- * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
-*/
-
-/* This file defines compilation options for a specific implementation */
-
-#define CHECKSTACK 1 /* 0 = don't check stack height */
- /* 1 = check stack height */
-
-#define TIMESLICE 0 /* 0 = don't time slice execution */
- /* 1 = time slice execution */
-
-#define COMPACTPUSHTRACE 0 /* 0 = inline procedure entry checks.
- 1 = emit procedure call for procedure
- entry checks.
- */
-
-#define COMPACTPOPTRACE 0 /* 0 = inline procedure exit cleanup.
- 1 = emit procedure call for procedure exit
- cleanup.
- */
-
-#define S2CSIGNALS 1 /* 0 = Scheme->C doesn't handle signals */
- /* 1 = Scheme->C does handle signals */
-
-#define MATHTRAPS 0 /* 0 = don't detect fixed point overflow */
- /* 1 = recover on fixed point overflow */
-
-/* Define only one of the supported processor types:
-
- AOSF Alpha AXP OSF/1
- HP700 HP 9000/700
- MAC Macintosh system 7.1 with Think-C 5.0
- MC680X0 HP 9000/300, Sun 3, Next
- MIPS DECstation, SGI, Sony News
- VAX Vax ULTRIX
- FREEBSD x86 FreeBSD
- WIN16 Microsoft Windows 3.1
-*/
-
-#define FREEBSD 1
-
-/* Attributes of the selected architecture:
-
- The following four macros define specific aspects of the system. They
- are defined as strings, or specifically undefined:
-
- IMPLEMENTATION_MACHINE machine type
- IMPLEMENTATION_CPU cpu type
- IMPLEMENTATION_OS operating system
- IMPLEMENTATION_FS file system
-
- Big endian vs. little endian:
-
- BIGENDIAN defined to 1 to denote bigendian systems
-
- C compiler:
-
- OLD_FASHIONED_C defined to 1 for pre-ANSI compilers
-
- Alignment:
-
- DOUBLE_ALIGN defined to 1 to force doubles to be aligned on
- an even S2CINT boundary
-
- Macro expansion:
-
- NEED_MACRO_ARGS defined to 1 to declare a macro like X() as
- X(dummy)
-
- The types S2CINT and S2CUINT are defined to be signed and unsigned integers
- that are the same size as pointers. This is the basic "word" used by
- Scheme->C.
-
- The machine state when a continuation is created is captured in the
- sc_jmp_buf data structure.
-
- STACKPTR( x ) is a define that stores the address of the stack pointer
- in x.
-
- Unix flavors:
-
- POSIX POSIX.1 compliant
- SYSV System V or derivative
- SYSV4 System V release 4 (also define SYSV, POSIX)
-*/
-
-/**************/
-/* AOSF */
-/**************/
-
-#ifdef AOSF
-#define IMPLEMENTATION_MACHINE "Alpha AXP"
-#undef IMPLEMENTATION_CPU
-#define IMPLEMENTATION_OS "OSF/1"
-#undef IMPLEMENTATION_FS
-
-typedef long int S2CINT; /* Signed pointer size integer */
-typedef long unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffffffffffffL /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x8000000000000000L /* S2CUINT with 1 in the MSB */
-
-typedef long int sc_jmp_buf[ 9 ]; /* The buffer contains the following items:
- s0-s6 saved registers
- ra return address
- sp stack pointer
- */
-
-#define STACKPTR( x ) x = sc_getsp()
-extern S2CINT* sc_getsp();
-
-#define NEED_MACRO_ARGS 1
-#endif
-
-/***************/
-/* HP700 */
-/***************/
-
-#ifdef HP700
-
-#ifdef __hp9000s700
-#define IMPLEMENTATION_MACHINE "HP9000/700"
-#else
-#ifdef __hp9000s800
-#define IMPLEMENTATION_MACHINE "HP9000/800"
-#endif
-#endif
-
-#define IMPLEMENTATION_CPU "HP-PA"
-
-#define BIGENDIAN 1
-
-#define DOUBLE_ALIGN 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#define STACKPTR(x) ((x) = (sc_processor_register (30)))
-
-#define STACK_GROWS_POSITIVE 1
-
-#endif
-
-#ifdef __hpux
-#define IMPLEMENTATION_OS "HP-UX"
-#undef IMPLEMENTATION_FS
-
-#ifdef __STDC__
-#undef OLD_FASHIONED_C
-#else
-#define OLD_FASHIONED_C 1
-#endif
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-
-#define SYSV 1
-#define POSIX 1
-
-#endif
-
-/*************/
-/* MAC */
-/*************/
-
-#ifdef MAC
-#define IMPLEMENTATION_MACHINE "Apple Macintosh"
-#define IMPLEMENTATION_CPU "680x0"
-#define IMPLEMENTATION_OS "7.1"
-#undef IMPLEMENTATION_FS
-
-#define BIGENDIAN 1
-
-typedef long int S2CINT; /* Signed pointer size integer */
-typedef long unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef short int PAGELINK; /* 16-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffffL /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000L /* S2CUINT with 1 in the MSB */
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-#undef TRUE
-#undef FALSE
-
-#define STACKPTR( x ) x = sc_getsp()
-extern S2CINT* sc_getsp();
-
-#define SCHEAP 1
-#define SCMAXHEAP 15
-#endif
-
-/****************/
-/* MC680X0 */
-/****************/
-
-#ifdef MC680X0
-#define IMPLEMENTATION_CPU "680x0"
-
-#define BIGENDIAN 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#define STACKPTR(x) ((x) = (sc_processor_register (15)))
-
-#ifdef __hp9000s400
-#define IMPLEMENTATION_MACHINE "HP9000/400"
-#else
-#ifdef __hp9000s300
-#define IMPLEMENTATION_MACHINE "HP9000/300"
-#endif
-#endif
-
-/* HP-UX dependent conditionalizations performed above. */
-
-#endif
-
-/**************/
-/* MIPS */
-/**************/
-
-#ifdef MIPS
-#define IMPLEMENTATION_MACHINE "DECstation"
-#define IMPLEMENTATION_CPU "Rx000"
-#define IMPLEMENTATION_OS "ULTRIX"
-#undef IMPLEMENTATION_FS
-
-#define DOUBLE_ALIGN 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#ifndef MIPSEL
-#define BIGMIPS 1
-#define BIGENDIAN 1
-#undef IMPLEMENTATION_MACHINE
-#define IMPLEMENTATION_MACHINE "Big Endian MIPS"
-#undef IMPLEMENTATION_OS
-
-/* Not sure what the correct conditionalization is here -- NEWS-OS
- 5.xx defines both "sony" and "sonyrisc", but apparently NEWS-OS
- 4.xx defines "sony_mips", because the previous version of Scheme->C
- was conditionalized on "sony_mips" which is *not* defined by
- NEWS-OS 5.xx. If there's an intersection between the symbols
- defined by 4.xx and 5.xx then a member of that intersection should
- be used for the conditionalization; otherwise test for both.
-*/
-#ifdef sonyrisc
-
-#undef IMPLEMENTATION_MACHINE
-#define IMPLEMENTATION_MACHINE "Sony MIPS"
-#undef IMPLEMENTATION_CPU
-#define IMPLEMENTATION_CPU "R3000"
-#undef IMPLEMENTATION_OS
-#define IMPLEMENTATION_OS "NEWS-OS"
-
-#ifdef SYSTYPE_SYSV
-
-#define SYSV4 1
-#define SYSV 1
-#define POSIX 1
-
-/* This can be implemented but requires generalizing the signal
- handler to know about SYSV4 siginfo structure.
-*/
-
-#undef MATHTRAPS
-#define MATHTRAPS 0
-
-#define NEED_MACRO_ARGS 1
-
-#define COPY_STACK_BEFORE_LONGJMP 1
-
-#endif
-#endif
-#endif
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-
-#define STACKPTR( x ) x = sc_processor_register( 29 )
-#endif
-
-/*************/
-/* VAX */
-/*************/
-
-#ifdef VAX
-#define IMPLEMENTATION_MACHINE "VAX"
-#undef IMPLEMENTATION_CPU
-#define IMPLEMENTATION_OS "ULTRIX"
-#undef IMPLEMENTATION_FS
-
-#define OLD_FASHIONED_C 1
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-typedef int sc_jmp_buf[ 16 ]; /* The buffer contains the following items:
- R2-R11 saved registers
- SIGM saved signal mask
- SP stack pointer on entry to
- setjmp
- PSW PSW word from stack frame
- AP saved argument ptr from frame
- FP saved frame ptr from frame
- PC saved program cntr from frame
- */
-
-#define STACKPTR( x ) x = sc_processor_register( 14 )
-#endif
-
-/***************/
-/* FREEBSD */
-/***************/
-
-#ifdef FREEBSD
-#define IMPLEMENTATION_MACHINE "Generic PC"
-#define IMPLEMENTATION_CPU "Intelx86"
-#define IMPLEMENTATION_OS "FreeBSD"
-#undef IMPLEMENTATION_FS
-
-typedef int S2CINT; /* Signed pointer size integer */
-typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef int PAGELINK; /* 32-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-
-#define STACKPTR( x ) x = sc_processor_register( 0 )
-
-#include <setjmp.h>
-typedef jmp_buf sc_jmp_buf;
-
-/* Horrid kludge. See callcc.c for the full story: */
-#define LAZY_STACK_POP 1
-#define LAZY_STACK_INCREMENT 4
-
-#endif
-
-/***************/
-/* WIN16 */
-/***************/
-
-#ifdef WIN16
-#define IMPLEMENTATION_MACHINE "Generic PC"
-#define IMPLEMENTATION_CPU "Intelx86"
-#define IMPLEMENTATION_OS "Microsoft Windows 3.1"
-#undef IMPLEMENTATION_FS
-
-typedef long int S2CINT; /* Signed pointer size integer */
-typedef long unsigned S2CUINT; /* Unsigned pointer size interger */
-
-typedef short int PAGELINK; /* 16-bit sc_pagelink values */
-#define MAXS2CINT 0x7fffffffL /* Maximum value of an S2CINT */
-#define MSBS2CUINT 0x80000000L /* S2CUINT with 1 in the MSB */
-
-#include <windows.h>
-#undef TRUE
-#undef FALSE
-typedef CATCHBUF sc_jmp_buf;
-
-#define STACKPTR( x ) x = sc_processor_register( 0 )
-
-#define MAXSTRINGSIZE ((S2CINT)65532)
-#define MAXVECTORSIZE ((S2CINT)16383)
-
-#define SCHEAP 2
-#define SCMAXHEAP 15
-#endif
diff --git a/lang/schemetoc/files/patch-aa b/lang/schemetoc/files/patch-aa
deleted file mode 100644
index d56757c241c1..000000000000
--- a/lang/schemetoc/files/patch-aa
+++ /dev/null
@@ -1,16 +0,0 @@
---- makefile.orig Wed Feb 17 04:20:09 1993
-+++ makefile Wed Feb 2 22:22:22 2000
-@@ -92,6 +92,13 @@
- cp ports/VAX/vax.s VAX/server
- cp ports/VAX/options-server.h VAX/server/options.h
-
-+forFREEBSD:
-+ make "CPU=FREEBSD" forANY
-+ cp ports/FREEBSD/x86.s FREEBSD/scrt
-+ cp ports/FREEBSD/options.h FREEBSD/scrt
-+ cp ports/FREEBSD/x86.s FREEBSD/server
-+ cp ports/FREEBSD/options-server.h FREEBSD/server/options.h
-+
- forWIN16:
- make "CPU=WIN16" forANY
- rm -r WIN16/scsc
diff --git a/lang/schemetoc/files/patch-ab b/lang/schemetoc/files/patch-ab
deleted file mode 100644
index 6459763854ab..000000000000
--- a/lang/schemetoc/files/patch-ab
+++ /dev/null
@@ -1,14 +0,0 @@
---- doc/scc.l.orig Tue Jan 12 10:43:14 1993
-+++ doc/scc.l Wed Feb 2 22:22:22 2000
-@@ -66,6 +66,11 @@
- .B -Ot
- Optimize code by omitting type error checks.
- .TP 18
-+.B -static
-+Use static linking instead of shared libraries. This will result in an executable
-+which is about 300k larger than the dynamic executable. For xlib programs the
-+executable will be about 1400k larger.
-+.TP 18
- .B -pg
- Produce profiled code for run-time measurement using
- .I gprof(1).
diff --git a/lang/schemetoc/files/patch-ac b/lang/schemetoc/files/patch-ac
deleted file mode 100644
index 790f18a3cf29..000000000000
--- a/lang/schemetoc/files/patch-ac
+++ /dev/null
@@ -1,46 +0,0 @@
---- scrt/callcc.c.orig Wed Feb 24 08:25:41 1993
-+++ scrt/callcc.c Wed Feb 2 22:22:22 2000
-@@ -91,6 +91,11 @@
- #define SETJMP( x ) sc_setjmp( x )
- #endif
-
-+#ifdef FREEBSD
-+#define LONGJMP( x, y ) longjmp( x, y )
-+#define SETJMP( x ) setjmp( x )
-+#endif
-+
- TSCP sc_clink; /* Pointer to inner most continuation on stack. */
-
- /* Static declarations for data structures internal to the module. These
-@@ -192,6 +197,17 @@
- STACKPTR( tos );
- count = (((STACK_BYTES (bfp, tos)) + ((sizeof (S2CINT)) - 1))
- / (sizeof (S2CINT)));
-+#ifdef LAZY_STACK_POP
-+ /* NOTE WELL!
-+ * For machines that must pop arguments after a function call,
-+ * the compiler may let arguments accumulate on the stack for several
-+ * function calls and pop them all at once.
-+ * If your compiler uses this optimization, 'count' must be incremented
-+ * by the number of S2CINTs pushed as arguments between this point and
-+ * the point where 'bcount' is computed.
-+ */
-+ count += LAZY_STACK_INCREMENT;
-+#endif
- save_fp = (S2CINT*)bfp;
- cp = sc_allocateheap( NULLCONTINUATIONSIZE+count+2+sc_maxdisplay,
- CONTINUATIONTAG,
-@@ -199,6 +215,13 @@
- STACKPTR( tos );
- fp = save_fp;
- bcount = (STACK_BYTES (fp, tos));
-+ if (bcount > count*sizeof(S2CINT))
-+ /* If you get this error, look above at LAZY_STACK_POP */
-+ sc_error( "CALL-WITH-CURRENT-CONTINUATION",
-+ "internal error: want to write ~s bytes of stack, "
-+ "but only ~s bytes allocated.",
-+ LIST2( C_FIXED( bcount ),
-+ C_FIXED( count*sizeof(S2CINT) ) ) );
- cp->continuation.continuation = sc_clink;
- cp->continuation.stackbytes = bcount;
- cp->continuation.stacktrace = sc_stacktrace;
diff --git a/lang/schemetoc/files/patch-ad b/lang/schemetoc/files/patch-ad
deleted file mode 100644
index 63c55fb67eb8..000000000000
--- a/lang/schemetoc/files/patch-ad
+++ /dev/null
@@ -1,34 +0,0 @@
---- scrt/cio.c.orig Wed Feb 24 08:26:58 1993
-+++ scrt/cio.c Wed Feb 2 22:22:22 2000
-@@ -143,6 +143,10 @@
- #define HAVE_RUSAGE
- #endif
-
-+#ifdef FREEBSD
-+#define HAVE_RUSAGE
-+#endif
-+
- #ifdef SYSV
- #define HAVE_TIMES
- #else
-@@ -467,7 +471,11 @@
- struct timeval timeout;
-
- stream = (FILE*)TSCP_POINTER( file );
-+#ifdef FREEBSD
-+ if (((stream)->_r) <= 0) {
-+#else
- if (((stream)->_cnt) <= 0) {
-+#endif
- FD_ZERO( &readfds );
- FD_SET( fileno( stream ), &readfds );
- timeout.tv_sec = 0;
-@@ -549,7 +557,7 @@
- break;
-
- case 3:
--#ifdef MAC
-+#if defined(MAC) || defined(FREEBSD)
- sprintf( format, "%%.%lilg", (long)TSCP_S2CINT( length ) );
- sprintf( buffer, format, TSCP_DOUBLE( number ) );
- #else
diff --git a/lang/schemetoc/files/patch-ae b/lang/schemetoc/files/patch-ae
deleted file mode 100644
index 4b0b4a4cfc47..000000000000
--- a/lang/schemetoc/files/patch-ae
+++ /dev/null
@@ -1,44 +0,0 @@
---- scrt/heap.c.orig Tue Feb 23 01:11:33 1993
-+++ scrt/heap.c Wed Feb 2 22:22:22 2000
-@@ -66,6 +66,9 @@
- #ifdef VAX
- extern sc_r2tor11( );
- #endif
-+#ifdef FREEBSD
-+extern sc_geti386regs( S2CINT* a );
-+#endif
-
- /* Forward declarations */
-
-@@ -368,6 +371,31 @@
- S2CINT r2tor11[10], *pp;
-
- sc_r2tor11( r2tor11 );
-+ STACKPTR( pp );
-+ while (pp != sc_stackbase) move_continuation_ptr( ((SCP)*pp++) );
-+}
-+#endif
-+
-+#ifdef FREEBSD
-+/* The following code is used to read the stack pointer. The register
-+ number is passed in to force an argument to be on the stack, which in
-+ turn can be used to find the address of the top of stack.
-+*/
-+
-+S2CINT *sc_processor_register( S2CINT reg )
-+{
-+ return( &reg );
-+}
-+
-+/* All processor registers which might contain pointers are traced by the
-+ following procedure.
-+*/
-+
-+static trace_stack_and_registers()
-+{
-+ S2CINT i386regs[6], *pp;
-+
-+ sc_geti386regs( i386regs );
- STACKPTR( pp );
- while (pp != sc_stackbase) move_continuation_ptr( ((SCP)*pp++) );
- }
diff --git a/lang/schemetoc/files/patch-af b/lang/schemetoc/files/patch-af
deleted file mode 100644
index 65605e44f15b..000000000000
--- a/lang/schemetoc/files/patch-af
+++ /dev/null
@@ -1,131 +0,0 @@
---- scrt/makefile.orig Wed Feb 17 10:55:48 1993
-+++ scrt/makefile Wed Feb 2 22:22:22 2000
-@@ -5,7 +5,9 @@
- #
-
- .SUFFIXES:
--.SUFFIXES: .o .c .sc .s
-+.SUFFIXES: .o .c .sc .s .so
-+
-+SOVER = 1
-
- SCC = ../scsc/scc
- SCCFLAGS =
-@@ -14,6 +16,8 @@
-
- Cruntime = scinit.o apply.o callcc.o cio.o heap.o objects.o mtraps.o
-
-+SCruntime = scinit.so apply.so callcc.so cio.so heap.so objects.so mtraps.so
-+
- Cruntimec = scinit.c apply.c callcc.c cio.c heap.c objects.c mtraps.c
-
- Chfiles = scinit.h apply.h callcc.h cio.h heap.h objects.h options.h
-@@ -22,6 +26,11 @@
- scqquote.o screp.o \
- scrt1.o scrt2.o scrt3.o scrt4.o scrt5.o scrt6.o scrt7.o scrtuser.o
-
-+SSruntime = scdebug.so sceval.so scexpand.so scexpnd1.so scexpnd2.so \
-+ scqquote.so screp.so \
-+ scrt1.so scrt2.so scrt3.so scrt4.so scrt5.so scrt6.so scrt7.so \
-+ scrtuser.so
-+
- Sruntimec = scdebug.c sceval.c scexpand.c scexpnd1.c scexpnd2.c \
- scqquote.c screp.c \
- scrt1.c scrt2.c scrt3.c scrt4.c scrt5.c scrt6.c scrt7.c scrtuser.c
-@@ -43,17 +52,27 @@
- ${SCC} -C ${SCCFLAGS} $*.sc
-
- .c.o:
-- ${CC} -c ${CFLAGS} -I. $*.c
-+ ${CC} ${CFLAGS} -c ${.IMPSRC} -I. -o ${.TARGET}
-+
-+.c.so:
-+ ${CC} ${PICFLAGS} ${CFLAGS} -c ${.IMPSRC} -I. -o ${.TARGET}
-
- .s.o:
- ${CC} -c $*.s
-
-+.s.so:
-+ ${CPP} -E -DPIC ${CFLAGS:M-[ID]*} ${.IMPSRC} | \
-+ ${AS} -k -o ${.TARGET}
-+
- sc-to-c: ${Sruntimec} sci.c
-
- c-to-o: ${Sruntimec} ${Sruntime} ${Cruntime}
-
- s-to-o: ${Aruntime}
-
-+OBJS = ${Sruntime} ${Cruntime} ${Aruntime}
-+SHAREDOBJS = ${OBJS:.o=.so}
-+
- Xlibsc.a: ${Sruntimec} ${Sruntime} ${Cruntime} ${Aruntime}
- rm -f Xlibsc.a
- ar q Xlibsc.a ${Cruntime} ${Sruntime} ${Aruntime}
-@@ -75,36 +94,42 @@
- Xmv: Xsci Xlibsc.a
- mv Xsci sci
- mv Xlibsc.a libsc.a
--
-+
- port:
-- make "CC = ${CC}" "CFLAGS = ${CFLAGS}" "SCC = echo" \
-- Xlibsc.a Xsci Xmv ${Plib}
-+ ${MAKE} "CC = ${CC}" "CFLAGS = ${CFLAGS}" "SCC = echo" \
-+ Xlibsc.a Xsci Xmv ${Plib} libsc.so.${SOVER}
-
- libsc_p.a: libsc.a
- mkdir saveobj
- mv ${Sruntime} ${Cruntime} ${Aruntime} saveobj
- rm -f libsc_p.a
-- make "CC = ${CC}" "CFLAGS = ${CFLAGS} -pg" ${Sruntime} ${Cruntime} \
-+ ${MAKE} "CC = ${CC}" "CFLAGS = ${CFLAGS} -pg" ${Sruntime} ${Cruntime} \
- ${Aruntime}
- ar q libsc_p.a ${Cruntime} ${Sruntime} ${Aruntime}
- ${RANLIB} libsc_p.a
- mv saveobj/* .
- rmdir saveobj
-
-+libsc.so.${SOVER}: ${SCruntime} ${SSruntime} ${SAruntime}
-+ rm -f libsc.so.${SOVER}
-+ ${CC} -shared -Wl,-x -Wl,-assert -Wl,pure-text -Wl,-soname,$@ -o $@ \
-+ ${SCruntime} ${SSruntime} ${SAruntime}
-+
- install-private:
-- make "LIBDIR = ${DESTDIR}" "BINDIR = ${DESTDIR}" \
-+ ${MAKE} "LIBDIR = ${DESTDIR}" "BINDIR = ${DESTDIR}" \
- "OWNER = -o `whoami`" install
-
- install:
-- -mkdir ${LIBDIR}/schemetoc
-- cp libsc.a ${LIBDIR}/schemetoc/libsc.a
-- ${RANLIB} ${LIBDIR}/schemetoc/libsc.a
-- -cp libsc_p.a ${LIBDIR}/schemetoc/libsc_p.a
-- -${RANLIB} ${LIBDIR}/schemetoc/libsc_p.a
-- cp objects.h ${LIBDIR}/schemetoc
-- cp options.h ${LIBDIR}/schemetoc
-- cp predef.sc ${LIBDIR}/schemetoc
-- cp sci ${BINDIR}/sci
-+ ${BSD_INSTALL_DATA} libsc.a ${LIBDIR}
-+ -${RANLIB} ${LIBDIR}/libsc.a
-+ ${BSD_INSTALL_DATA} libsc_p.a ${LIBDIR}
-+ -${RANLIB} ${LIBDIR}/libsc_p.a
-+ ${BSD_INSTALL_DATA} objects.h ${LIBDIR}/schemetoc
-+ ${BSD_INSTALL_DATA} options.h ${LIBDIR}/schemetoc
-+ ${BSD_INSTALL_DATA} predef.sc ${LIBDIR}/schemetoc
-+ ${BSD_INSTALL_PROGRAM} sci ${BINDIR}
-+ ${BSD_INSTALL_DATA} libsc.so.${SOVER} ${LIBDIR}
-+ ln -sf libsc.so.${SOVER} ${LIBDIR}/libsc.so
-
- clean:
- rm -f ${Sruntime} ${Cruntime} ${Aruntime} sci.o embedded.o \
-@@ -124,8 +149,8 @@
- libsc.a ${Plib} sci ${destdir}
-
- all:
-- make "CC = ${CC}" "CFLAGS = ${CFLAGS}" "SCC = ${SCC}" \
-- "SCCFLAGS = ${SCCFLAGS}" Xlibsc.a Xsci Xmv ${Plib}
-+ ${MAKE} "CC = ${CC}" "CFLAGS = ${CFLAGS}" "SCC = ${SCC}" \
-+ "SCCFLAGS = ${SCCFLAGS}" Xlibsc.a Xsci Xmv ${Plib} libsc.so.${SOVER}
-
- srclinks:
- for x in ${Cruntimec} ${Chfiles} ${Sruntimec} ${Sruntimesc} ${Smisc}; \
diff --git a/lang/schemetoc/files/patch-ag b/lang/schemetoc/files/patch-ag
deleted file mode 100644
index 646fa1c15742..000000000000
--- a/lang/schemetoc/files/patch-ag
+++ /dev/null
@@ -1,53 +0,0 @@
---- scrt/options.h.orig Tue Feb 23 01:14:40 1993
-+++ scrt/options.h Wed Feb 2 22:22:22 2000
-@@ -71,6 +71,7 @@
- MC680X0 HP 9000/300, Sun 3, Next
- MIPS DECstation, SGI, Sony News
- VAX Vax ULTRIX
-+ FREEBSD x86 FreeBSD
- WIN16 Microsoft Windows 3.1
- */
-
-@@ -80,6 +81,7 @@
- #define MC680X0 1
- #define MIPS 1
- #define VAX 1
-+#define FREEBSD 1
- #define WIN16 1
-
- /* Attributes of the selected architecture:
-@@ -369,6 +371,34 @@
- */
-
- #define STACKPTR( x ) x = sc_processor_register( 14 )
-+#endif
-+
-+/***************/
-+/* FREEBSD */
-+/***************/
-+
-+#ifdef FREEBSD
-+#define IMPLEMENTATION_MACHINE "Generic PC"
-+#define IMPLEMENTATION_CPU "Intelx86"
-+#define IMPLEMENTATION_OS "FreeBSD"
-+#undef IMPLEMENTATION_FS
-+
-+typedef int S2CINT; /* Signed pointer size integer */
-+typedef unsigned S2CUINT; /* Unsigned pointer size interger */
-+
-+typedef int PAGELINK; /* 32-bit sc_pagelink values */
-+#define MAXS2CINT 0x7fffffff /* Maximum value of an S2CINT */
-+#define MSBS2CUINT 0x80000000 /* S2CUINT with 1 in the MSB */
-+
-+#define STACKPTR( x ) x = sc_processor_register( 0 )
-+
-+#include <setjmp.h>
-+typedef jmp_buf sc_jmp_buf;
-+
-+/* Horrid kludge. See callcc.c for the full story: */
-+#define LAZY_STACK_POP 1
-+#define LAZY_STACK_INCREMENT 4
-+
- #endif
-
- /***************/
diff --git a/lang/schemetoc/files/patch-ah b/lang/schemetoc/files/patch-ah
deleted file mode 100644
index 87a28e47e92c..000000000000
--- a/lang/schemetoc/files/patch-ah
+++ /dev/null
@@ -1,126 +0,0 @@
---- scsc/main.sc.orig Tue Feb 23 00:59:07 1993
-+++ scsc/main.sc Wed Feb 2 22:22:22 2000
-@@ -59,7 +59,9 @@
- readtext
- transform))
-
--(define SCC-VERSION "15mar93jfb")
-+(define scheme_dir "%%PREFIX%%/lib/schemetoc/")
-+
-+(define SCC-VERSION "15mar93-FreeBSD")
- ; Compiler version string.
-
- (define FORCE-LD-OF-REP read-eval-print)
-@@ -69,23 +71,28 @@
- ;;; The following top-level variables define the implementation dependent
- ;;; information:
-
--(define PREDEF-DEFAULT "../scrt/predef.sc")
-+(define PREDEF-DEFAULT (string-append scheme_dir "predef.sc"))
-+
- ; File holding the declarations for predefined
- ; functions.
-
- (define C-INCLUDE-FILE "objects.h")
- ; #include file for the predefined functions.
-
--(define C-INCLUDE-DIR "../scrt")
-+(define C-INCLUDE-DIR scheme_dir)
- ; directory containing #include file for
- ; predefined functions.
-
--(define SC-LIBRARY "../scrt/libsc.a")
-+(define SC-LIBRARY (string-append scheme_dir "libsc.a"))
- ; Scheme->C library file.
-
--(define SC-LIBRARY_P "../scrt/libsc_p.a")
-+(define SCXL-LIBRARY (string-append scheme_dir "scxl.a"))
-+
-+(define SC-LIBRARY_P (string-append scheme_dir "libsc_p.a"))
- ; Scheme->C profiled library file.
-
-+(define compile-static #f)
-+
- ;;; When the compiler is invoked directly from the shell, the following
- ;;; function is invoked to control compilation. It will interprete the flags,
- ;;; invoke the compiler and then exit. Any compilation errors or Scheme errors
-@@ -123,6 +130,8 @@
- ;;;
- ;;; -Ot optimize C code by omitting type checks.
- ;;;
-+;;; -static compile static executable.
-+;;;
- ;;; -pg compile for gprof profiling.
- ;;;
- ;;; -LIBDIR directory
-@@ -161,13 +170,9 @@
- (c-flags '())
- (sc-to-c.c "SC-TO-C.c")
- (sc-to-c.o "SC-TO-C.o")
-- (directory-separator
-- (if (equal? (list-ref (implementation-information) 5)
-- "Microsoft Windows 3.x")
-- "\\"
-- "/"))
-+ (directory-separator "/")
- (log '())
-- (cc "cc"))
-+ (cc "gcc"))
-
- ;;; 1. Pick up the command line arguments.
-
-@@ -233,6 +238,9 @@
- (cons "(define-constant *type-check* #f)"
- flags))
- (loop (cdr args)))
-+ ((equal? arg "-static")
-+ (set! compile-static #t)
-+ (loop (cdr args)))
- ((equal? arg "-Ob")
- (set! flags
- (cons "(define-constant *bounds-check* #f)"
-@@ -295,20 +303,27 @@
- ;;; C compiler to do the rest.
-
- (unless (eq? 0
-- (system (apply string-append
-- `(,cc " -I" ,c-include-dir
-- ,@(map (lambda (x)
-- (string-append " " x))
-- (append (reverse c-flags)
-- (if (member "-pg"
-- c-flags)
-- `(,sc-library_p
-- "-lm")
-- `(,sc-library
-- "-lm"))))))))
-+ (system (apply string-append
-+ `(,cc " -I" ,c-include-dir
-+ ,@(map (lambda (x)
-+ (string-append " " x))
-+ (append (reverse c-flags)
-+ (if compile-static
-+ (if (member "-pg" c-flags)
-+ (list sc-library_p "-lm")
-+ (if (member "-c" c-flags)
-+ '()
-+ (if (member "xlib" with-modules)
-+ (list "-lm" sc-library scxl-library "-L%%LOCALBASE%%/lib -lX11")
-+ (list "-lm" sc-library))))
-+ (if (member "-c" c-flags)
-+ '()
-+ (if (member "xlib" with-modules)
-+ (list "-L%%LOCALBASE%%/lib -lm -lsc -lscxl -lX11")
-+ (list "-lm -lsc"))))))))))
- (reset))
- (catch-error
-- (lambda ()
-+ (lambda ()
- (remove-file sc-to-c.c)
- (remove-file sc-to-c.o)))))
-
-@@ -351,3 +366,4 @@
- root.c)
- ;;; Pass argument to C.
- (else arg))))
-+
diff --git a/lang/schemetoc/files/patch-ai b/lang/schemetoc/files/patch-ai
deleted file mode 100644
index cbfe864a16cd..000000000000
--- a/lang/schemetoc/files/patch-ai
+++ /dev/null
@@ -1,11 +0,0 @@
---- scsc/makefile.orig Sat Jan 30 08:17:02 1993
-+++ scsc/makefile Wed Feb 2 22:22:22 2000
-@@ -82,7 +82,7 @@
- done
- echo '#! /bin/csh -f' > scc
- echo `pwd`'/sccomp -scl ${SCL} -scmh ${SCMH} \
-- -cc ${CC} -LIBDIR ' `pwd`'/${RTDIR} $$argv' >> scc
-+ -cc ${CC} -static -LIBDIR ' `pwd`'/${RTDIR} $$argv' >> scc
- chmod +x scc
- echo '#! /bin/csh -f' > Xscc
- echo `pwd`'/Xsccomp -scl ${SCL} -scmh ${SCMH} \
diff --git a/lang/schemetoc/files/patch-aj b/lang/schemetoc/files/patch-aj
deleted file mode 100644
index 2cc386354c2c..000000000000
--- a/lang/schemetoc/files/patch-aj
+++ /dev/null
@@ -1,121 +0,0 @@
---- xlib/makefile.orig Tue Mar 2 02:24:36 1993
-+++ xlib/makefile Wed Feb 2 22:22:22 2000
-@@ -1,5 +1,7 @@
- .SUFFIXES:
--.SUFFIXES: .sc .cdecl .o .c
-+.SUFFIXES: .sc .cdecl .o .c .so
-+
-+SOVER = 1
-
- CDECL = ../cdecl/cdecl
- SIZEOF = ../cdecl/sizeof
-@@ -58,6 +60,16 @@
- xvisualinfo.o xwindowattributes.o xwindowchanges.o xwmhints.o \
- xpixmapformatvalues.o xtextproperty.o
-
-+sxdo = depth.so screen.so visual.so xarc.so xchar2b.so xcharstruct.so \
-+ xclasshint.so xcomposestatus.so xcolor.so xlibCONSTANTS.so xevent.so \
-+ xfontprop.so xfontstruct.so xgcvalues.so xhostaddress.so xiconsize.so \
-+ ximage.so xkeyboardcontrol.so xkeyboardstate.so xmodifierkeymap.so \
-+ xpoint.so xrectangle.so xrmoptiondescrec.so xrmvalue.so xsegment.so \
-+ xsetwindowattributes.so xsizehints.so xstandardcolormap.so \
-+ xlibSTUBS.so xtextitem.so xtextitem16.so xtimecoord.so xlibTYPES.so \
-+ xvisualinfo.so xwindowattributes.so xwindowchanges.so xwmhints.so \
-+ xpixmapformatvalues.so xtextproperty.so
-+
- xdpsc = xws2.sc xws3.sc xws4.sc xws5.sc xws6.sc xws7.sc \
- xws8.sc xws9.sc xws10.sc xwsr4.sc
-
-@@ -76,6 +88,10 @@
- xwso = xwss.o xws2.o xws3.o xws4.o xws5.o xws6.o xws7.o xws8.o xws9.o xws10.o \
- xlib.o xwsr4.o
-
-+sxwso = xwss.so xws2.so xws3.so xws4.so xws5.so xws6.so xws7.so xws8.so \
-+ xws9.so xws10.so xlib.so xwsr4.so
-+
-+
- sizeof.cdecl:
- ${SIZEOF} > sizeof.cdecl
-
-@@ -101,28 +117,52 @@
- .c.o:
- ${SCC} -c ${XLIBCFLAGS} $*.c
-
-+.c.so:
-+ ${CC} ${PICFLAGS} ${CFLAGS} -c ${XLIBCFLAGS} -I../scrt ${.IMPSRC} -o ${.TARGET}
-+
- scixl: xlibTYPES.o ${xwssc} ${xwsc} ${xwso}
- ${SCC} -o scixl -i -m xlib ${xwso} ${xdo} ${XLIB}
--
--scxl.a: xlibTYPES.o ${xwssc} ${xwsc} ${xwso}
-- rm -f scxl.a
-- ar q scxl.a ${xdo} ${xwso}
-- ${RANLIB} scxl.a
-+
-+libscxl.a: xlibTYPES.o ${xwssc} ${xwsc} ${xwso}
-+ rm -f libscxl.a
-+ mv -f xmodifierkeymap.o xmodifier.o
-+ mv -f xstandardcolormap.o xstandard.o
-+ mv -f xwindowattributes.o xwindowatt.o
-+ mv -f xpixmapformatvalues.o xpixmap.o
-+ ar q libscxl.a depth.o screen.o visual.o xarc.o xchar2b.o xcharstruct.o \
-+ xclasshint.o xcomposestatus.o xcolor.o xlibCONSTANTS.o xevent.o \
-+ xfontprop.o xfontstruct.o xgcvalues.o xhostaddress.o xiconsize.o \
-+ ximage.o xkeyboardcontrol.o xkeyboardstate.o xmodifier.o \
-+ xpoint.o xrectangle.o xrmoptiondescrec.o xrmvalue.o xsegment.o \
-+ xsetwindowattributes.o xsizehints.o xstandard.o \
-+ xlibSTUBS.o xtextitem.o xtextitem16.o xtimecoord.o xlibTYPES.o \
-+ xvisualinfo.o xwindowatt.o xwindowchanges.o xwmhints.o \
-+ xpixmap.o xtextproperty.o \
-+ xwss.o xws2.o xws3.o xws4.o xws5.o xws6.o xws7.o xws8.o \
-+ xws9.o xws10.o xlib.o xwsr4.o
-+ ${RANLIB} libscxl.a
-+
-+Xlibscxl.so.${SOVER}: xlibTYPES.so ${xwssc} ${xwsc} ${xwso} ${sxdo} ${sxwso}
-+ rm -f libscxl.so.${SOVER}
-+ ${CC} -shared -Wl,-x -Wl,-assert -Wl,pure-text -Wl,-soname,libscxl.so.${SOVER} -o libscxl.so.${SOVER} ${sxdo} ${sxwso}
-+
-+libscxl.so.${SOVER}:
-+ ${MAKE} Xlibscxl.so.${SOVER}
-
- clear:
-- ${SCC} -o clear clear.sc scxl.a ${XLIB}
-+ ${SCC} -o clear clear.sc libscxl.a ${XLIB}
-
- hello:
-- ${SCC} -o hello hello.sc scxl.a ${XLIB}
-+ ${SCC} -o hello hello.sc libscxl.a ${XLIB}
-
- puzzle:
-- ${SCC} -o puzzle puzzle.sc scxl.a ${XLIB}
-+ ${SCC} -o puzzle puzzle.sc libscxl.a ${XLIB}
-
- clean:
- rm -f *.BAK *.CKP core
-
- noprogs:
-- rm -f *.o scixl scxl.a hello puzzle clear
-+ rm -f *.o scixl libscxl.a hello puzzle clear
-
- clean-cdecl:
- rm -f ${xdsc} ${xdsch} ${xdc} ${xdpsc} ${xdpsch} ${xdpc} sizeof.cdecl
-@@ -132,10 +172,17 @@
- puzzle.c npuzzle.c
-
- all:
-- make scixl scxl.a
-+ ${MAKE} scixl libscxl.a libscxl.so.${SOVER}
-+
-+install:
-+ ${BSD_INSTALL_DATA} libscxl.a ${LIBDIR}
-+ -${RANLIB} ${LIBDIR}/libscxl.a
-+ ${BSD_INSTALL_PROGRAM} scixl ${BINDIR}
-+ ${BSD_INSTALL_DATA} libscxl.so.${SOVER} ${LIBDIR}
-+ ln -sf libscxl.so.${SOVER} ${LIBDIR}/libscxl.so
-
- gensource:
-- make ${xwssc} ${xwsc}
-+ ${MAKE} ${xwssc} ${xwsc}
-
- srclinks:
- for x in ${XD} ${XDP} ${XMISC}; \
diff --git a/lang/schemetoc/files/patch-scrt-apply.c b/lang/schemetoc/files/patch-scrt-apply.c
deleted file mode 100644
index 3dee57b94e7e..000000000000
--- a/lang/schemetoc/files/patch-scrt-apply.c
+++ /dev/null
@@ -1,78 +0,0 @@
-*** scrt/apply.c.orig Mon Feb 22 11:10:06 1993
---- scrt/apply.c Sat Mar 14 21:49:29 2009
-***************
-*** 50,56 ****
- #include "scinit.h"
- #include "heap.h"
- #include "apply.h"
-! #include <varargs.h>
-
- /* Data structures used by UNKNOWNCALL. These values must be pushed on the
- stack and then restored by interrupt handlers or when calling finalization
---- 50,56 ----
- #include "scinit.h"
- #include "heap.h"
- #include "apply.h"
-! #include <stdarg.h>
-
- /* Data structures used by UNKNOWNCALL. These values must be pushed on the
- stack and then restored by interrupt handlers or when calling finalization
-***************
-*** 283,290 ****
- in the call, or the procedure takes a variable number of arguments.
- */
-
-! TSCP sc_unknowncall( va_alist )
-! va_dcl
- {
- va_list argl; /* List of arguments on stack */
- int req; /* # of required arguments */
---- 283,289 ----
- in the call, or the procedure takes a variable number of arguments.
- */
-
-! TSCP sc_unknowncall( TSCP arg0, ... )
- {
- va_list argl; /* List of arguments on stack */
- int req; /* # of required arguments */
-***************
-*** 293,299 ****
- TSCP tail; /* Tail of optional argument list */
- SCP utproc; /* Untagged version of proc */
-
-! va_start( argl );
- utproc = T_U( sc_unknownproc[ 1 ] );
- if ((TSCPTAG( sc_unknownproc[ 1 ] ) != EXTENDEDTAG) ||
- (utproc->procedure.tag != PROCEDURETAG))
---- 292,298 ----
- TSCP tail; /* Tail of optional argument list */
- SCP utproc; /* Untagged version of proc */
-
-! va_start( argl, arg0 );
- utproc = T_U( sc_unknownproc[ 1 ] );
- if ((TSCPTAG( sc_unknownproc[ 1 ] ) != EXTENDEDTAG) ||
- (utproc->procedure.tag != PROCEDURETAG))
-***************
-*** 304,313 ****
- ((utproc->procedure.optional == 0) && (sc_unknownargc != req)))
- sc_error( "APPLY", "PROCEDURE requires ~s arguments, ~s supplied",
- LIST2( C_FIXED( req ), C_FIXED( sc_unknownargc ) ) );
-! for (i = 0; i < req; i++) sc_arg[ i ] = va_arg( argl, TSCP );
- optl = EMPTYLIST;
-! if (i++ < sc_unknownargc) {
-! tail = (optl = sc_cons( va_arg( argl, TSCP ), EMPTYLIST ));
- while (i++ < sc_unknownargc)
- tail = (TP_U( tail )->pair.cdr = sc_cons( va_arg( argl, TSCP ),
- EMPTYLIST ));
---- 303,313 ----
- ((utproc->procedure.optional == 0) && (sc_unknownargc != req)))
- sc_error( "APPLY", "PROCEDURE requires ~s arguments, ~s supplied",
- LIST2( C_FIXED( req ), C_FIXED( sc_unknownargc ) ) );
-! for (i = 0; i < req; i++) sc_arg[ i ] = !i ? arg0 : va_arg( argl, TSCP );
- optl = EMPTYLIST;
-! if (i < sc_unknownargc) {
-! tail = (optl = sc_cons( !i ? arg0 : va_arg( argl, TSCP ), EMPTYLIST ));
-! ++i;
- while (i++ < sc_unknownargc)
- tail = (TP_U( tail )->pair.cdr = sc_cons( va_arg( argl, TSCP ),
- EMPTYLIST ));
diff --git a/lang/schemetoc/files/patch-scrt-apply.h b/lang/schemetoc/files/patch-scrt-apply.h
deleted file mode 100644
index 33bab9d1f39c..000000000000
--- a/lang/schemetoc/files/patch-scrt-apply.h
+++ /dev/null
@@ -1,13 +0,0 @@
-*** scrt/apply.h.orig Mon Feb 22 11:13:08 1993
---- scrt/apply.h Sat Mar 14 20:18:50 2009
-***************
-*** 60,63 ****
-
- extern TSCP sc_apply_2dtwo();
-
-! extern TSCP sc_unknowncall();
---- 60,63 ----
-
- extern TSCP sc_apply_2dtwo();
-
-! extern TSCP sc_unknowncall( TSCP arg0, ... );
diff --git a/lang/schemetoc/files/patch-scrt-objects.c b/lang/schemetoc/files/patch-scrt-objects.c
deleted file mode 100644
index 8d9c2febacbd..000000000000
--- a/lang/schemetoc/files/patch-scrt-objects.c
+++ /dev/null
@@ -1,55 +0,0 @@
-*** scrt/objects.c.orig Mon Feb 22 11:12:04 1993
---- scrt/objects.c Sat Mar 14 20:28:00 2009
-***************
-*** 48,54 ****
- #include "heap.h"
- #include "apply.h"
- #include "cio.h"
-! #include <varargs.h>
-
- #ifndef NULL
- #define NULL 0
---- 48,54 ----
- #include "heap.h"
- #include "apply.h"
- #include "cio.h"
-! #include <stdarg.h>
-
- #ifndef NULL
- #define NULL 0
-***************
-*** 293,310 ****
- allocate variables and is visible within the compiler as MAKECLOSURE.
- */
-
-! TSCP sc_makeclosure( va_alist )
-! va_dcl
- {
- va_list argl;
-- TSCP prevclosure;
- int count;
- SCP cp;
- PATSCP vars;
-
- MUTEXON;
-! va_start( argl );
-! prevclosure = va_arg( argl, TSCP );
- count = va_arg( argl, int );
- cp = sc_allocateheap( CLOSURESIZE( count ), CLOSURETAG, count );
- cp->closure.closure = prevclosure;
---- 293,307 ----
- allocate variables and is visible within the compiler as MAKECLOSURE.
- */
-
-! TSCP sc_makeclosure( TSCP prevclosure, ... )
- {
- va_list argl;
- int count;
- SCP cp;
- PATSCP vars;
-
- MUTEXON;
-! va_start( argl, prevclosure );
- count = va_arg( argl, int );
- cp = sc_allocateheap( CLOSURESIZE( count ), CLOSURETAG, count );
- cp->closure.closure = prevclosure;
diff --git a/lang/schemetoc/files/patch-scrt-objects.h b/lang/schemetoc/files/patch-scrt-objects.h
deleted file mode 100644
index 2e03344a3158..000000000000
--- a/lang/schemetoc/files/patch-scrt-objects.h
+++ /dev/null
@@ -1,19 +0,0 @@
-*** scrt/objects.h.orig Tue Feb 23 18:29:09 1993
---- scrt/objects.h Sat Mar 14 20:21:00 2009
-***************
-*** 798,804 ****
- extern TSCP sc_makeclosure(...);
- extern TSCP sc_makeprocedure(...);
- #else
-! extern TSCP sc_makeclosure();
- extern TSCP sc_makeprocedure();
- #endif
-
---- 798,804 ----
- extern TSCP sc_makeclosure(...);
- extern TSCP sc_makeprocedure(...);
- #else
-! extern TSCP sc_makeclosure( TSCP prevclosure, ... );
- extern TSCP sc_makeprocedure();
- #endif
-
diff --git a/lang/schemetoc/files/patch-test-test23.sc b/lang/schemetoc/files/patch-test-test23.sc
deleted file mode 100644
index b0ff20d1ef95..000000000000
--- a/lang/schemetoc/files/patch-test-test23.sc
+++ /dev/null
@@ -1,40 +0,0 @@
-*** test/test23.sc.orig Mon Feb 22 11:27:23 1993
---- test/test23.sc Sat Mar 14 22:05:08 2009
-***************
-*** 330,338 ****
-
- ;;; Access to an external array.
-
-! (define-c-external _\i\o\b* ARRAY "_iob")
-! (eval-when (load) (define _iob _\i\o\b*))
-! (eval-when (eval) (define _iob 0))
-
- ;;; Access to an external procedure pointer.
-
---- 330,338 ----
-
- ;;; Access to an external array.
-
-! ;(define-c-external _\i\o\b* ARRAY "_iob")
-! ;(eval-when (load) (define _iob _\i\o\b*))
-! ;(eval-when (eval) (define _iob 0))
-
- ;;; Access to an external procedure pointer.
-
-***************
-*** 409,415 ****
-
- (chk 130 (string-ref "" 0) (integer->char #o21))
-
-! (chk 140 (number? _iob) #t)
- (chk 141 (number? hypot) #t)
-
- (chk 150 (letrec ((x 1)) (define x 2) x) 2)
---- 409,415 ----
-
- (chk 130 (string-ref "" 0) (integer->char #o21))
-
-! ;(chk 140 (number? _iob) #t)
- (chk 141 (number? hypot) #t)
-
- (chk 150 (letrec ((x 1)) (define x 2) x) 2)
diff --git a/lang/schemetoc/files/x86.s b/lang/schemetoc/files/x86.s
deleted file mode 100644
index 1e742f3cd13f..000000000000
--- a/lang/schemetoc/files/x86.s
+++ /dev/null
@@ -1,34 +0,0 @@
-/*
- * SCHEME->C
- *
- * x86 assembly code.
- *
- * This code originally came from the Linux port, so someone else gets
- * the credit for writing it.
- *
- */
-
-#ifdef __i486__
- .align 4
-#else
- .align 2
-#endif
-.globl sc_geti386regs
-
-sc_geti386regs:
- pushl %ebp
- movl %esp,%ebp
- pushl %ecx
- movl %eax,%ecx
- movl 8(%ebp),%eax
- movl %ecx,(%eax)
- popl %ecx
- movl %ecx,4(%eax)
- movl %edx,8(%eax)
- movl %ebx,12(%eax)
- movl %esi,16(%eax)
- movl %edi,20(%eax)
- movl %ebp,%esp
- popl %ebp
- ret
-
diff --git a/lang/schemetoc/pkg-descr b/lang/schemetoc/pkg-descr
deleted file mode 100644
index 99148e3367de..000000000000
--- a/lang/schemetoc/pkg-descr
+++ /dev/null
@@ -1,13 +0,0 @@
-Scheme->C is an implementation of the language Scheme as described
-in the Revised^4 Report on the Algorithmic Language Scheme (Lisp
-Pointers, Volume Iv, Number 3, July-September 1991).
-
-This implementation has certain extensions to the language which
-allows Scheme to be compiled to C into standalone programs, combined
-with other languages, or compiled into the interpreter itself.
-
-Scheme->C also includes an X interface library.
-
-This port includes shared libs.
-
-Ported to FreeBSD by Josh MacDonald, jmacd@uclink.berkeley.edu
diff --git a/lang/schemetoc/pkg-plist b/lang/schemetoc/pkg-plist
deleted file mode 100644
index 36d9cb435af2..000000000000
--- a/lang/schemetoc/pkg-plist
+++ /dev/null
@@ -1,25 +0,0 @@
-bin/sci
-bin/scc
-bin/sccomp
-bin/scixl
-lib/libsc.a
-lib/libsc_p.a
-lib/libsc.so
-lib/libsc.so.1
-lib/libscxl.a
-lib/libscxl.so
-lib/libscxl.so.1
-lib/schemetoc/doc/README.FreeBSD
-lib/schemetoc/doc/embedded.psf
-lib/schemetoc/doc/hello.sc
-lib/schemetoc/doc/index.psf
-lib/schemetoc/doc/intro.psf
-lib/schemetoc/doc/puzzle.sc
-lib/schemetoc/doc/r4rs.psf
-lib/schemetoc/doc/smithnotes.psf
-lib/schemetoc/doc/test.sc
-lib/schemetoc/objects.h
-lib/schemetoc/options.h
-lib/schemetoc/predef.sc
-@dirrm lib/schemetoc/doc
-@dirrm lib/schemetoc
generated by cgit v1.2.3 (git 2.25.1) at 2025-01-27 21:17:18 +0000