summaryrefslogtreecommitdiff
path: root/SCM
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-10-04 17:10:46 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-10-04 17:10:46 +0200
commitd5bcd08978bf3aec00226839db706811bf489c59 (patch)
tree26339ef10a0ac0f9c0075ee8c36df349b7354d39 /SCM
parent881d313eb2688c7d6abefcbb7e060d9009842cca (diff)
Remove continuation support files from SCM 5e5.
Diffstat (limited to 'SCM')
-rw-r--r--SCM/ANNOUNCE194
-rw-r--r--SCM/COPYING674
-rw-r--r--SCM/COPYING.LESSER165
-rw-r--r--SCM/Makefile.orig736
-rw-r--r--SCM/README381
-rw-r--r--SCM/continue-ia64.S339
-rw-r--r--SCM/continue.c242
-rw-r--r--SCM/continue.h185
-rw-r--r--SCM/scm.h1145
-rw-r--r--SCM/scmfig.h870
-rw-r--r--SCM/scmflags.h4
-rw-r--r--SCM/setjump.h125
-rw-r--r--SCM/setjump.mar39
-rw-r--r--SCM/setjump.s40
-rw-r--r--SCM/ugsetjump.s35
15 files changed, 0 insertions, 5174 deletions
diff --git a/SCM/ANNOUNCE b/SCM/ANNOUNCE
deleted file mode 100644
index 422222e..0000000
--- a/SCM/ANNOUNCE
+++ /dev/null
@@ -1,194 +0,0 @@
-This message announces the availability of Scheme release scm-5e5.
-
-SCM conforms to Revised^5 Report on the Algorithmic Language Scheme
-and the IEEE P1178 specification. SCM is written in C and runs under
-Amiga, Atari-ST, MacOS, MS-DOS, OS/2, NOS/VE, Unicos, VMS, Windows,
-Unix, and similar systems.
-
-SCM is free software and part of the GNU project. It is released
-under the GNU Lesser General Public License (LGPL).
-
-Documentation and distributions in several formats are linked from
-SCM's home page:
-
- http://swiss.csail.mit.edu/~jaffer/SCM
-
-Links to distributions of SCM and related softwares are at the end of
-this message.
-
- -=-=-
-scm-5e5 news:
-
-* SCM is now a GNU package.
-* SCM license is now LGPLv3.
-* Documentation changed to GNU Free Documentation License.
-* scm-discuss email group
- http://lists.gnu.org/mailman/listinfo/scm-discuss
-
- From Radey Shouman
-
- * repl.c (isymnames): Add name for IM_EVAL_VALUES.
- Fix igc prototype, avert warning.
-
- * eval.c (scm_eval_values, ceval_1): Catch VALUES arity errors
- in top-level repl evaluations. Eg (list (values 1 2)) now
- throws an error even when typed to repl.
-
- * scm.h (IM_EVAL_VALUES): Add isym for use by scm_eval_values.
-
- From Bob Schumaker
-
- * macos-config.h, unexmacosx.c, lastfile.c:
- Added from Emacs for MacOS (darwin).
-
- * build.scm (C-libraries): Added dump and dlll darwin entries.
- (make-dll-archive, compile-dll-c-files): Added Darwin tagets.
- (manifest): Added entries for "macos-config.h" and "lastfile.c".
-
- * Makefile (all): Make x.so only if /usr/X11R6/lib exists.
- (install, installlib): test -d is not needed with mkdir -p.
-
- From Aubrey Jaffer
-
- * build, Makefile, scm.spec: Put "-" between "scm" and version.
-
- * unexelf.c, unexmacosx.c, unexsgi.c, unexsunos4.c, gmalloc.c,
- lastfile.c, macos-config.h, r4rstest.scm, syntest2.scm,
- unexalpha.c, unexec.c, !#.c, build, build.scm, ecrt0.c,
- findexec.c, bench.scm:
- Changed license to GPL version 3.
-
- * Transcen.scm, Tscript.scm, unif.c, unix.c, x.c, xgen.scm,
- subr.c, sys.c, time.c, scm.texi, script.c, setjump.h, socket.c,
- split.scm, scm.c, scm.h, scmfig.h, scmhob.h, scmhob.scm,
- scmmain.c, repl.c, rgx.c, rope.c, sc2.c, scl.c, Macro.scm,
- Makefile, mkimpcat.scm, pi.c, pi.scm, posix.c, ramap.c,
- record.c, Iedline.scm, Init5e4.scm, Link.scm, Macexp.scm,
- inc2scm, ioext.c, Idiffer.scm, gsubr.c, hobbit.scm, .gdbinit,
- differ.c, disarm.scm, dynl.c, edline.c, eval.c,
- get-contoffset-ia64.c, byte.c, bytenumb.c, compile.scm,
- continue-ia64.S, continue.c, continue.h, crs.c, debug.c:
- Changed license to LGPL version 3.
-
- * Tscript.scm: Handle EOF.
-
- * byte.c (bytes-append, bytes->string, string->bytes): Added.
-
- * scm.nsi: Create shortcuts at installation; removed SCM.lnk.
- (MUI_ICON): Set to "SCM.ico".
-
- * scm.nsi (Uninstall): Delete tmp1, tmp2, and tmp3,
- scmlit.exe, implcat, and slibcat when uninstalling.
-
- * Makefile ($(htmldir)Xlibscm_toc.html)
- ($(htmldir)hobbit_toc.html): Add SCM.ico.
- (all): Make differ.so.
- (libscm.a, db.so, bytenumb.so, differ.so, myturtle, x.so): Depend
- on scm.h and scmfig.h.
-
- * scm.h, repl.c: Made ints_disabled VOLATILE.
-
- * ANNOUNCE: Culled and reorganized URLs.
-
- * ioext.c (directory-for-each): Require 'filename, not 'glob.
-
- * Init5e4.scm (slib:features): Added srfi-96.
-
- * scm.c (init_scm): The streams when the program was dumped need
- to be reset at initialization.
-
- * Makefile (Checklit, Check): Added case-sensitive checks.
-
- * repl.c (scm_lreadr): Made case-insensitive for character names.
-
- * keysymdef.scm, x11.scm: X Window System Version 7.1.1
- Release Date: 12 May 2006
- X Protocol Version 11, Revision 0, Release 7.1.1
-
- -=-=-
-
-SCM source is available from:
- http://swiss.csail.mit.edu/ftpdir/scm/scm-5e5.zip
- swiss.csail.mit.edu:/pub/scm/scm-5e5.zip
- http://swiss.csail.mit.edu/ftpdir/scm/scm-5e5-1.src.rpm
- swiss.csail.mit.edu:/pub/scm/scm-5e5-1.src.rpm
-Also available as i386 binary RPM:
- http://swiss.csail.mit.edu/ftpdir/scm/scm-5e5-1.i386.rpm
- swiss.csail.mit.edu:/pub/scm/scm-5e5-1.i386.rpm
-Also available as i386 MS-Windows installer:
- http://swiss.csail.mit.edu/ftpdir/scm/slib-3b1-1.exe
- swiss.csail.mit.edu:/pub/scm/slib-3b1-1.exe
-
-SLIB is a portable Scheme library which SCM uses:
- http://swiss.csail.mit.edu/ftpdir/scm/slib-3b1.zip
- swiss.csail.mit.edu:/pub/scm/slib-3b1.zip
-Also available as RPM:
- http://swiss.csail.mit.edu/ftpdir/scm/slib-3b1-1.noarch.rpm
- swiss.csail.mit.edu:/pub/scm/slib-3b1-1.noarch.rpm
-Also available as MS-Windows installer:
- http://swiss.csail.mit.edu/ftpdir/scm/slib-3b1-1.exe
- swiss.csail.mit.edu:/pub/scm/slib-3b1-1.exe
-
-JACAL is a symbolic math system written in Scheme:
- http://swiss.csail.mit.edu/ftpdir/scm/jacal-1b9.zip
- swiss.csail.mit.edu:/pub/scm/jacal-1b9.zip
-Also available as RPM:
- http://swiss.csail.mit.edu/ftpdir/scm/jacal-1b9-1.noarch.rpm
- swiss.csail.mit.edu:/pub/scm/jacal-1b9-1.noarch.rpm
-Also available as MS-Windows installer:
- http://swiss.csail.mit.edu/ftpdir/scm/jacal-1b9-1.exe
- swiss.csail.mit.edu:/pub/scm/jacal-1b9-1.exe
-
-WB is a disk based, sorted associative array (B-tree) library for SCM.
-Using WB, large databases can be created and managed from SCM.
- http://swiss.csail.mit.edu/ftpdir/scm/wb-2a2.zip
- swiss.csail.mit.edu:/pub/scm/wb-2a2.zip
- http://swiss.csail.mit.edu/ftpdir/scm/wb-2a2-1.src.rpm
- swiss.csail.mit.edu:/pub/scm/wb-2a2-1.src.rpm
-Also available as i386 binary RPM:
- http://swiss.csail.mit.edu/ftpdir/scm/wb-2a2-1.i386.rpm
- swiss.csail.mit.edu:/pub/scm/wb-2a2-1.i386.rpm
-
-FreeSnell is a program to compute optical properties of multilayer
-thin-film coatings:
- http://swiss.csail.mit.edu/ftpdir/scm/FreeSnell-1b7.zip
- swiss.csail.mit.edu:/pub/scm/FreeSnell-1b7.zip
-Also available as MS-Windows installer:
- http://swiss.csail.mit.edu/ftpdir/scm/FreeSnell-1b7-1.exe
- swiss.csail.mit.edu:/pub/scm/FreeSnell-1b7-1.exe
-
-SIMSYNCH is a digital logic simulation system written in SCM.
- http://swiss.csail.mit.edu/ftpdir/scm/synch-1c3.zip
- swiss.csail.mit.edu:/pub/scm/synch-1c3.zip
-
-XSCM is a X windows interface package which works with SCM:
- http://swiss.csail.mit.edu/ftpdir/scm/xscm-2.01.tar.gz
- swiss.csail.mit.edu:/pub/scm/xscm-2.01.tar.gz
-
-TURTLSCM is a turtle graphics package which works with SCM on MS-DOS
-or X11 machines:
- http://swiss.csail.mit.edu/ftpdir/scm/turtlegr.tar.gz
- swiss.csail.mit.edu:/pub/scm/turtlegr.tar.gz
-
-#! implements "#!" (POSIX) shell-scripts for MS-DOS batch files.
- http://swiss.csail.mit.edu/ftpdir/scm/sharpbang.zip
- swiss.csail.mit.edu:/pub/scm/sharpbang.zip
- http://swiss.csail.mit.edu/ftpdir/scm/#!.zip
- swiss.csail.mit.edu:/pub/scm/#!.zip
-
-SLIB-PSD is a portable debugger for Scheme (requires emacs editor):
- http://swiss.csail.mit.edu/ftpdir/scm/slib-psd1-3.tar.gz
- swiss.csail.mit.edu:/pub/scm/slib-psd1-3.tar.gz
-
-SMG-SCM is an SMG interface package which works with SCM on VMS.
- http://swiss.csail.mit.edu/ftpdir/scm/smg-scm2a1.zip
- swiss.csail.mit.edu:/pub/scm/smg-scm2a1.zip
-
-MacSCM is a Macintosh applications building package which works with
-SCM (similar to XSCM).
- http://swiss.csail.mit.edu/ftpdir/scm/macscm.tar.Z
- swiss.csail.mit.edu:/pub/scm/macscm.tar.Z
-
-Programs for printing and viewing TexInfo documentation (which SCM
-has) come with GNU Emacs or can be obtained via ftp from:
- ftp://ftp.gnu.org/pub/gnu/texinfo/texinfo-4.8.tar.gz
diff --git a/SCM/COPYING b/SCM/COPYING
deleted file mode 100644
index 94a9ed0..0000000
--- a/SCM/COPYING
+++ /dev/null
@@ -1,674 +0,0 @@
- GNU GENERAL PUBLIC LICENSE
- Version 3, 29 June 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The GNU General Public License is a free, copyleft license for
-software and other kinds of works.
-
- The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works. By contrast,
-the GNU General Public License is intended to guarantee your freedom to
-share and change all versions of a program--to make sure it remains free
-software for all its users. We, the Free Software Foundation, use the
-GNU General Public License for most of our software; it applies also to
-any other work released this way by its authors. You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
- To protect your rights, we need to prevent others from denying you
-these rights or asking you to surrender the rights. Therefore, you have
-certain responsibilities if you distribute copies of the software, or if
-you modify it: responsibilities to respect the freedom of others.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must pass on to the recipients the same
-freedoms that you received. You must make sure that they, too, receive
-or can get the source code. And you must show them these terms so they
-know their rights.
-
- Developers that use the GNU GPL protect your rights with two steps:
-(1) assert copyright on the software, and (2) offer you this License
-giving you legal permission to copy, distribute and/or modify it.
-
- For the developers' and authors' protection, the GPL clearly explains
-that there is no warranty for this free software. For both users' and
-authors' sake, the GPL requires that modified versions be marked as
-changed, so that their problems will not be attributed erroneously to
-authors of previous versions.
-
- Some devices are designed to deny users access to install or run
-modified versions of the software inside them, although the manufacturer
-can do so. This is fundamentally incompatible with the aim of
-protecting users' freedom to change the software. The systematic
-pattern of such abuse occurs in the area of products for individuals to
-use, which is precisely where it is most unacceptable. Therefore, we
-have designed this version of the GPL to prohibit the practice for those
-products. If such problems arise substantially in other domains, we
-stand ready to extend this provision to those domains in future versions
-of the GPL, as needed to protect the freedom of users.
-
- Finally, every program is threatened constantly by software patents.
-States should not allow patents to restrict development and use of
-software on general-purpose computers, but in those that do, we wish to
-avoid the special danger that patents applied to a free program could
-make it effectively proprietary. To prevent this, the GPL assures that
-patents cannot be used to render the program non-free.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- TERMS AND CONDITIONS
-
- 0. Definitions.
-
- "This License" refers to version 3 of the GNU General Public License.
-
- "Copyright" also means copyright-like laws that apply to other kinds of
-works, such as semiconductor masks.
-
- "The Program" refers to any copyrightable work licensed under this
-License. Each licensee is addressed as "you". "Licensees" and
-"recipients" may be individuals or organizations.
-
- To "modify" a work means to copy from or adapt all or part of the work
-in a fashion requiring copyright permission, other than the making of an
-exact copy. The resulting work is called a "modified version" of the
-earlier work or a work "based on" the earlier work.
-
- A "covered work" means either the unmodified Program or a work based
-on the Program.
-
- To "propagate" a work means to do anything with it that, without
-permission, would make you directly or secondarily liable for
-infringement under applicable copyright law, except executing it on a
-computer or modifying a private copy. Propagation includes copying,
-distribution (with or without modification), making available to the
-public, and in some countries other activities as well.
-
- To "convey" a work means any kind of propagation that enables other
-parties to make or receive copies. Mere interaction with a user through
-a computer network, with no transfer of a copy, is not conveying.
-
- An interactive user interface displays "Appropriate Legal Notices"
-to the extent that it includes a convenient and prominently visible
-feature that (1) displays an appropriate copyright notice, and (2)
-tells the user that there is no warranty for the work (except to the
-extent that warranties are provided), that licensees may convey the
-work under this License, and how to view a copy of this License. If
-the interface presents a list of user commands or options, such as a
-menu, a prominent item in the list meets this criterion.
-
- 1. Source Code.
-
- The "source code" for a work means the preferred form of the work
-for making modifications to it. "Object code" means any non-source
-form of a work.
-
- A "Standard Interface" means an interface that either is an official
-standard defined by a recognized standards body, or, in the case of
-interfaces specified for a particular programming language, one that
-is widely used among developers working in that language.
-
- The "System Libraries" of an executable work include anything, other
-than the work as a whole, that (a) is included in the normal form of
-packaging a Major Component, but which is not part of that Major
-Component, and (b) serves only to enable use of the work with that
-Major Component, or to implement a Standard Interface for which an
-implementation is available to the public in source code form. A
-"Major Component", in this context, means a major essential component
-(kernel, window system, and so on) of the specific operating system
-(if any) on which the executable work runs, or a compiler used to
-produce the work, or an object code interpreter used to run it.
-
- The "Corresponding Source" for a work in object code form means all
-the source code needed to generate, install, and (for an executable
-work) run the object code and to modify the work, including scripts to
-control those activities. However, it does not include the work's
-System Libraries, or general-purpose tools or generally available free
-programs which are used unmodified in performing those activities but
-which are not part of the work. For example, Corresponding Source
-includes interface definition files associated with source files for
-the work, and the source code for shared libraries and dynamically
-linked subprograms that the work is specifically designed to require,
-such as by intimate data communication or control flow between those
-subprograms and other parts of the work.
-
- The Corresponding Source need not include anything that users
-can regenerate automatically from other parts of the Corresponding
-Source.
-
- The Corresponding Source for a work in source code form is that
-same work.
-
- 2. Basic Permissions.
-
- All rights granted under this License are granted for the term of
-copyright on the Program, and are irrevocable provided the stated
-conditions are met. This License explicitly affirms your unlimited
-permission to run the unmodified Program. The output from running a
-covered work is covered by this License only if the output, given its
-content, constitutes a covered work. This License acknowledges your
-rights of fair use or other equivalent, as provided by copyright law.
-
- You may make, run and propagate covered works that you do not
-convey, without conditions so long as your license otherwise remains
-in force. You may convey covered works to others for the sole purpose
-of having them make modifications exclusively for you, or provide you
-with facilities for running those works, provided that you comply with
-the terms of this License in conveying all material for which you do
-not control copyright. Those thus making or running the covered works
-for you must do so exclusively on your behalf, under your direction
-and control, on terms that prohibit them from making any copies of
-your copyrighted material outside their relationship with you.
-
- Conveying under any other circumstances is permitted solely under
-the conditions stated below. Sublicensing is not allowed; section 10
-makes it unnecessary.
-
- 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
-
- No covered work shall be deemed part of an effective technological
-measure under any applicable law fulfilling obligations under article
-11 of the WIPO copyright treaty adopted on 20 December 1996, or
-similar laws prohibiting or restricting circumvention of such
-measures.
-
- When you convey a covered work, you waive any legal power to forbid
-circumvention of technological measures to the extent such circumvention
-is effected by exercising rights under this License with respect to
-the covered work, and you disclaim any intention to limit operation or
-modification of the work as a means of enforcing, against the work's
-users, your or third parties' legal rights to forbid circumvention of
-technological measures.
-
- 4. Conveying Verbatim Copies.
-
- You may convey verbatim copies of the Program's source code as you
-receive it, in any medium, provided that you conspicuously and
-appropriately publish on each copy an appropriate copyright notice;
-keep intact all notices stating that this License and any
-non-permissive terms added in accord with section 7 apply to the code;
-keep intact all notices of the absence of any warranty; and give all
-recipients a copy of this License along with the Program.
-
- You may charge any price or no price for each copy that you convey,
-and you may offer support or warranty protection for a fee.
-
- 5. Conveying Modified Source Versions.
-
- You may convey a work based on the Program, or the modifications to
-produce it from the Program, in the form of source code under the
-terms of section 4, provided that you also meet all of these conditions:
-
- a) The work must carry prominent notices stating that you modified
- it, and giving a relevant date.
-
- b) The work must carry prominent notices stating that it is
- released under this License and any conditions added under section
- 7. This requirement modifies the requirement in section 4 to
- "keep intact all notices".
-
- c) You must license the entire work, as a whole, under this
- License to anyone who comes into possession of a copy. This
- License will therefore apply, along with any applicable section 7
- additional terms, to the whole of the work, and all its parts,
- regardless of how they are packaged. This License gives no
- permission to license the work in any other way, but it does not
- invalidate such permission if you have separately received it.
-
- d) If the work has interactive user interfaces, each must display
- Appropriate Legal Notices; however, if the Program has interactive
- interfaces that do not display Appropriate Legal Notices, your
- work need not make them do so.
-
- A compilation of a covered work with other separate and independent
-works, which are not by their nature extensions of the covered work,
-and which are not combined with it such as to form a larger program,
-in or on a volume of a storage or distribution medium, is called an
-"aggregate" if the compilation and its resulting copyright are not
-used to limit the access or legal rights of the compilation's users
-beyond what the individual works permit. Inclusion of a covered work
-in an aggregate does not cause this License to apply to the other
-parts of the aggregate.
-
- 6. Conveying Non-Source Forms.
-
- You may convey a covered work in object code form under the terms
-of sections 4 and 5, provided that you also convey the
-machine-readable Corresponding Source under the terms of this License,
-in one of these ways:
-
- a) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by the
- Corresponding Source fixed on a durable physical medium
- customarily used for software interchange.
-
- b) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by a
- written offer, valid for at least three years and valid for as
- long as you offer spare parts or customer support for that product
- model, to give anyone who possesses the object code either (1) a
- copy of the Corresponding Source for all the software in the
- product that is covered by this License, on a durable physical
- medium customarily used for software interchange, for a price no
- more than your reasonable cost of physically performing this
- conveying of source, or (2) access to copy the
- Corresponding Source from a network server at no charge.
-
- c) Convey individual copies of the object code with a copy of the
- written offer to provide the Corresponding Source. This
- alternative is allowed only occasionally and noncommercially, and
- only if you received the object code with such an offer, in accord
- with subsection 6b.
-
- d) Convey the object code by offering access from a designated
- place (gratis or for a charge), and offer equivalent access to the
- Corresponding Source in the same way through the same place at no
- further charge. You need not require recipients to copy the
- Corresponding Source along with the object code. If the place to
- copy the object code is a network server, the Corresponding Source
- may be on a different server (operated by you or a third party)
- that supports equivalent copying facilities, provided you maintain
- clear directions next to the object code saying where to find the
- Corresponding Source. Regardless of what server hosts the
- Corresponding Source, you remain obligated to ensure that it is
- available for as long as needed to satisfy these requirements.
-
- e) Convey the object code using peer-to-peer transmission, provided
- you inform other peers where the object code and Corresponding
- Source of the work are being offered to the general public at no
- charge under subsection 6d.
-
- A separable portion of the object code, whose source code is excluded
-from the Corresponding Source as a System Library, need not be
-included in conveying the object code work.
-
- A "User Product" is either (1) a "consumer product", which means any
-tangible personal property which is normally used for personal, family,
-or household purposes, or (2) anything designed or sold for incorporation
-into a dwelling. In determining whether a product is a consumer product,
-doubtful cases shall be resolved in favor of coverage. For a particular
-product received by a particular user, "normally used" refers to a
-typical or common use of that class of product, regardless of the status
-of the particular user or of the way in which the particular user
-actually uses, or expects or is expected to use, the product. A product
-is a consumer product regardless of whether the product has substantial
-commercial, industrial or non-consumer uses, unless such uses represent
-the only significant mode of use of the product.
-
- "Installation Information" for a User Product means any methods,
-procedures, authorization keys, or other information required to install
-and execute modified versions of a covered work in that User Product from
-a modified version of its Corresponding Source. The information must
-suffice to ensure that the continued functioning of the modified object
-code is in no case prevented or interfered with solely because
-modification has been made.
-
- If you convey an object code work under this section in, or with, or
-specifically for use in, a User Product, and the conveying occurs as
-part of a transaction in which the right of possession and use of the
-User Product is transferred to the recipient in perpetuity or for a
-fixed term (regardless of how the transaction is characterized), the
-Corresponding Source conveyed under this section must be accompanied
-by the Installation Information. But this requirement does not apply
-if neither you nor any third party retains the ability to install
-modified object code on the User Product (for example, the work has
-been installed in ROM).
-
- The requirement to provide Installation Information does not include a
-requirement to continue to provide support service, warranty, or updates
-for a work that has been modified or installed by the recipient, or for
-the User Product in which it has been modified or installed. Access to a
-network may be denied when the modification itself materially and
-adversely affects the operation of the network or violates the rules and
-protocols for communication across the network.
-
- Corresponding Source conveyed, and Installation Information provided,
-in accord with this section must be in a format that is publicly
-documented (and with an implementation available to the public in
-source code form), and must require no special password or key for
-unpacking, reading or copying.
-
- 7. Additional Terms.
-
- "Additional permissions" are terms that supplement the terms of this
-License by making exceptions from one or more of its conditions.
-Additional permissions that are applicable to the entire Program shall
-be treated as though they were included in this License, to the extent
-that they are valid under applicable law. If additional permissions
-apply only to part of the Program, that part may be used separately
-under those permissions, but the entire Program remains governed by
-this License without regard to the additional permissions.
-
- When you convey a copy of a covered work, you may at your option
-remove any additional permissions from that copy, or from any part of
-it. (Additional permissions may be written to require their own
-removal in certain cases when you modify the work.) You may place
-additional permissions on material, added by you to a covered work,
-for which you have or can give appropriate copyright permission.
-
- Notwithstanding any other provision of this License, for material you
-add to a covered work, you may (if authorized by the copyright holders of
-that material) supplement the terms of this License with terms:
-
- a) Disclaiming warranty or limiting liability differently from the
- terms of sections 15 and 16 of this License; or
-
- b) Requiring preservation of specified reasonable legal notices or
- author attributions in that material or in the Appropriate Legal
- Notices displayed by works containing it; or
-
- c) Prohibiting misrepresentation of the origin of that material, or
- requiring that modified versions of such material be marked in
- reasonable ways as different from the original version; or
-
- d) Limiting the use for publicity purposes of names of licensors or
- authors of the material; or
-
- e) Declining to grant rights under trademark law for use of some
- trade names, trademarks, or service marks; or
-
- f) Requiring indemnification of licensors and authors of that
- material by anyone who conveys the material (or modified versions of
- it) with contractual assumptions of liability to the recipient, for
- any liability that these contractual assumptions directly impose on
- those licensors and authors.
-
- All other non-permissive additional terms are considered "further
-restrictions" within the meaning of section 10. If the Program as you
-received it, or any part of it, contains a notice stating that it is
-governed by this License along with a term that is a further
-restriction, you may remove that term. If a license document contains
-a further restriction but permits relicensing or conveying under this
-License, you may add to a covered work material governed by the terms
-of that license document, provided that the further restriction does
-not survive such relicensing or conveying.
-
- If you add terms to a covered work in accord with this section, you
-must place, in the relevant source files, a statement of the
-additional terms that apply to those files, or a notice indicating
-where to find the applicable terms.
-
- Additional terms, permissive or non-permissive, may be stated in the
-form of a separately written license, or stated as exceptions;
-the above requirements apply either way.
-
- 8. Termination.
-
- You may not propagate or modify a covered work except as expressly
-provided under this License. Any attempt otherwise to propagate or
-modify it is void, and will automatically terminate your rights under
-this License (including any patent licenses granted under the third
-paragraph of section 11).
-
- However, if you cease all violation of this License, then your
-license from a particular copyright holder is reinstated (a)
-provisionally, unless and until the copyright holder explicitly and
-finally terminates your license, and (b) permanently, if the copyright
-holder fails to notify you of the violation by some reasonable means
-prior to 60 days after the cessation.
-
- Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
- Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License. If your rights have been terminated and not permanently
-reinstated, you do not qualify to receive new licenses for the same
-material under section 10.
-
- 9. Acceptance Not Required for Having Copies.
-
- You are not required to accept this License in order to receive or
-run a copy of the Program. Ancillary propagation of a covered work
-occurring solely as a consequence of using peer-to-peer transmission
-to receive a copy likewise does not require acceptance. However,
-nothing other than this License grants you permission to propagate or
-modify any covered work. These actions infringe copyright if you do
-not accept this License. Therefore, by modifying or propagating a
-covered work, you indicate your acceptance of this License to do so.
-
- 10. Automatic Licensing of Downstream Recipients.
-
- Each time you convey a covered work, the recipient automatically
-receives a license from the original licensors, to run, modify and
-propagate that work, subject to this License. You are not responsible
-for enforcing compliance by third parties with this License.
-
- An "entity transaction" is a transaction transferring control of an
-organization, or substantially all assets of one, or subdividing an
-organization, or merging organizations. If propagation of a covered
-work results from an entity transaction, each party to that
-transaction who receives a copy of the work also receives whatever
-licenses to the work the party's predecessor in interest had or could
-give under the previous paragraph, plus a right to possession of the
-Corresponding Source of the work from the predecessor in interest, if
-the predecessor has it or can get it with reasonable efforts.
-
- You may not impose any further restrictions on the exercise of the
-rights granted or affirmed under this License. For example, you may
-not impose a license fee, royalty, or other charge for exercise of
-rights granted under this License, and you may not initiate litigation
-(including a cross-claim or counterclaim in a lawsuit) alleging that
-any patent claim is infringed by making, using, selling, offering for
-sale, or importing the Program or any portion of it.
-
- 11. Patents.
-
- A "contributor" is a copyright holder who authorizes use under this
-License of the Program or a work on which the Program is based. The
-work thus licensed is called the contributor's "contributor version".
-
- A contributor's "essential patent claims" are all patent claims
-owned or controlled by the contributor, whether already acquired or
-hereafter acquired, that would be infringed by some manner, permitted
-by this License, of making, using, or selling its contributor version,
-but do not include claims that would be infringed only as a
-consequence of further modification of the contributor version. For
-purposes of this definition, "control" includes the right to grant
-patent sublicenses in a manner consistent with the requirements of
-this License.
-
- Each contributor grants you a non-exclusive, worldwide, royalty-free
-patent license under the contributor's essential patent claims, to
-make, use, sell, offer for sale, import and otherwise run, modify and
-propagate the contents of its contributor version.
-
- In the following three paragraphs, a "patent license" is any express
-agreement or commitment, however denominated, not to enforce a patent
-(such as an express permission to practice a patent or covenant not to
-sue for patent infringement). To "grant" such a patent license to a
-party means to make such an agreement or commitment not to enforce a
-patent against the party.
-
- If you convey a covered work, knowingly relying on a patent license,
-and the Corresponding Source of the work is not available for anyone
-to copy, free of charge and under the terms of this License, through a
-publicly available network server or other readily accessible means,
-then you must either (1) cause the Corresponding Source to be so
-available, or (2) arrange to deprive yourself of the benefit of the
-patent license for this particular work, or (3) arrange, in a manner
-consistent with the requirements of this License, to extend the patent
-license to downstream recipients. "Knowingly relying" means you have
-actual knowledge that, but for the patent license, your conveying the
-covered work in a country, or your recipient's use of the covered work
-in a country, would infringe one or more identifiable patents in that
-country that you have reason to believe are valid.
-
- If, pursuant to or in connection with a single transaction or
-arrangement, you convey, or propagate by procuring conveyance of, a
-covered work, and grant a patent license to some of the parties
-receiving the covered work authorizing them to use, propagate, modify
-or convey a specific copy of the covered work, then the patent license
-you grant is automatically extended to all recipients of the covered
-work and works based on it.
-
- A patent license is "discriminatory" if it does not include within
-the scope of its coverage, prohibits the exercise of, or is
-conditioned on the non-exercise of one or more of the rights that are
-specifically granted under this License. You may not convey a covered
-work if you are a party to an arrangement with a third party that is
-in the business of distributing software, under which you make payment
-to the third party based on the extent of your activity of conveying
-the work, and under which the third party grants, to any of the
-parties who would receive the covered work from you, a discriminatory
-patent license (a) in connection with copies of the covered work
-conveyed by you (or copies made from those copies), or (b) primarily
-for and in connection with specific products or compilations that
-contain the covered work, unless you entered into that arrangement,
-or that patent license was granted, prior to 28 March 2007.
-
- Nothing in this License shall be construed as excluding or limiting
-any implied license or other defenses to infringement that may
-otherwise be available to you under applicable patent law.
-
- 12. No Surrender of Others' Freedom.
-
- If conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot convey a
-covered work so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you may
-not convey it at all. For example, if you agree to terms that obligate you
-to collect a royalty for further conveying from those to whom you convey
-the Program, the only way you could satisfy both those terms and this
-License would be to refrain entirely from conveying the Program.
-
- 13. Use with the GNU Affero General Public License.
-
- Notwithstanding any other provision of this License, you have
-permission to link or combine any covered work with a work licensed
-under version 3 of the GNU Affero General Public License into a single
-combined work, and to convey the resulting work. The terms of this
-License will continue to apply to the part which is the covered work,
-but the special requirements of the GNU Affero General Public License,
-section 13, concerning interaction through a network will apply to the
-combination as such.
-
- 14. Revised Versions of this License.
-
- The Free Software Foundation may publish revised and/or new versions of
-the GNU General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
- Each version is given a distinguishing version number. If the
-Program specifies that a certain numbered version of the GNU General
-Public License "or any later version" applies to it, you have the
-option of following the terms and conditions either of that numbered
-version or of any later version published by the Free Software
-Foundation. If the Program does not specify a version number of the
-GNU General Public License, you may choose any version ever published
-by the Free Software Foundation.
-
- If the Program specifies that a proxy can decide which future
-versions of the GNU General Public License can be used, that proxy's
-public statement of acceptance of a version permanently authorizes you
-to choose that version for the Program.
-
- Later license versions may give you additional or different
-permissions. However, no additional obligations are imposed on any
-author or copyright holder as a result of your choosing to follow a
-later version.
-
- 15. Disclaimer of Warranty.
-
- THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
-HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
-OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
-THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
-IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
-ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
- 16. Limitation of Liability.
-
- IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
-THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
-GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
-USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
-DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
-EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
-
- 17. Interpretation of Sections 15 and 16.
-
- If the disclaimer of warranty and limitation of liability provided
-above cannot be given local legal effect according to their terms,
-reviewing courts shall apply local law that most closely approximates
-an absolute waiver of all civil liability in connection with the
-Program, unless a warranty or assumption of liability accompanies a
-copy of the Program in return for a fee.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) <year> <name of author>
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation, either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-Also add information on how to contact you by electronic and paper mail.
-
- If the program does terminal interaction, make it output a short
-notice like this when it starts in an interactive mode:
-
- <program> Copyright (C) <year> <name of author>
- This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, your program's commands
-might be different; for a GUI interface, you would use an "about box".
-
- You should also get your employer (if you work as a programmer) or school,
-if any, to sign a "copyright disclaimer" for the program, if necessary.
-For more information on this, and how to apply and follow the GNU GPL, see
-<http://www.gnu.org/licenses/>.
-
- The GNU General Public License does not permit incorporating your program
-into proprietary programs. If your program is a subroutine library, you
-may consider it more useful to permit linking proprietary applications with
-the library. If this is what you want to do, use the GNU Lesser General
-Public License instead of this License. But first, please read
-<http://www.gnu.org/philosophy/why-not-lgpl.html>.
diff --git a/SCM/COPYING.LESSER b/SCM/COPYING.LESSER
deleted file mode 100644
index cd4ce53..0000000
--- a/SCM/COPYING.LESSER
+++ /dev/null
@@ -1,165 +0,0 @@
- GNU LESSER GENERAL PUBLIC LICENSE
- Version 3, 29 June 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-
- This version of the GNU Lesser General Public License incorporates
-the terms and conditions of version 3 of the GNU General Public
-License, supplemented by the additional permissions listed below.
-
- 0. Additional Definitions.
-
- As used herein, "this License" refers to version 3 of the GNU Lesser
-General Public License, and the "GNU GPL" refers to version 3 of the GNU
-General Public License.
-
- "The Library" refers to a covered work governed by this License,
-other than an Application or a Combined Work as defined below.
-
- An "Application" is any work that makes use of an interface provided
-by the Library, but which is not otherwise based on the Library.
-Defining a subclass of a class defined by the Library is deemed a mode
-of using an interface provided by the Library.
-
- A "Combined Work" is a work produced by combining or linking an
-Application with the Library. The particular version of the Library
-with which the Combined Work was made is also called the "Linked
-Version".
-
- The "Minimal Corresponding Source" for a Combined Work means the
-Corresponding Source for the Combined Work, excluding any source code
-for portions of the Combined Work that, considered in isolation, are
-based on the Application, and not on the Linked Version.
-
- The "Corresponding Application Code" for a Combined Work means the
-object code and/or source code for the Application, including any data
-and utility programs needed for reproducing the Combined Work from the
-Application, but excluding the System Libraries of the Combined Work.
-
- 1. Exception to Section 3 of the GNU GPL.
-
- You may convey a covered work under sections 3 and 4 of this License
-without being bound by section 3 of the GNU GPL.
-
- 2. Conveying Modified Versions.
-
- If you modify a copy of the Library, and, in your modifications, a
-facility refers to a function or data to be supplied by an Application
-that uses the facility (other than as an argument passed when the
-facility is invoked), then you may convey a copy of the modified
-version:
-
- a) under this License, provided that you make a good faith effort to
- ensure that, in the event an Application does not supply the
- function or data, the facility still operates, and performs
- whatever part of its purpose remains meaningful, or
-
- b) under the GNU GPL, with none of the additional permissions of
- this License applicable to that copy.
-
- 3. Object Code Incorporating Material from Library Header Files.
-
- The object code form of an Application may incorporate material from
-a header file that is part of the Library. You may convey such object
-code under terms of your choice, provided that, if the incorporated
-material is not limited to numerical parameters, data structure
-layouts and accessors, or small macros, inline functions and templates
-(ten or fewer lines in length), you do both of the following:
-
- a) Give prominent notice with each copy of the object code that the
- Library is used in it and that the Library and its use are
- covered by this License.
-
- b) Accompany the object code with a copy of the GNU GPL and this license
- document.
-
- 4. Combined Works.
-
- You may convey a Combined Work under terms of your choice that,
-taken together, effectively do not restrict modification of the
-portions of the Library contained in the Combined Work and reverse
-engineering for debugging such modifications, if you also do each of
-the following:
-
- a) Give prominent notice with each copy of the Combined Work that
- the Library is used in it and that the Library and its use are
- covered by this License.
-
- b) Accompany the Combined Work with a copy of the GNU GPL and this license
- document.
-
- c) For a Combined Work that displays copyright notices during
- execution, include the copyright notice for the Library among
- these notices, as well as a reference directing the user to the
- copies of the GNU GPL and this license document.
-
- d) Do one of the following:
-
- 0) Convey the Minimal Corresponding Source under the terms of this
- License, and the Corresponding Application Code in a form
- suitable for, and under terms that permit, the user to
- recombine or relink the Application with a modified version of
- the Linked Version to produce a modified Combined Work, in the
- manner specified by section 6 of the GNU GPL for conveying
- Corresponding Source.
-
- 1) Use a suitable shared library mechanism for linking with the
- Library. A suitable mechanism is one that (a) uses at run time
- a copy of the Library already present on the user's computer
- system, and (b) will operate properly with a modified version
- of the Library that is interface-compatible with the Linked
- Version.
-
- e) Provide Installation Information, but only if you would otherwise
- be required to provide such information under section 6 of the
- GNU GPL, and only to the extent that such information is
- necessary to install and execute a modified version of the
- Combined Work produced by recombining or relinking the
- Application with a modified version of the Linked Version. (If
- you use option 4d0, the Installation Information must accompany
- the Minimal Corresponding Source and Corresponding Application
- Code. If you use option 4d1, you must provide the Installation
- Information in the manner specified by section 6 of the GNU GPL
- for conveying Corresponding Source.)
-
- 5. Combined Libraries.
-
- You may place library facilities that are a work based on the
-Library side by side in a single library together with other library
-facilities that are not Applications and are not covered by this
-License, and convey such a combined library under terms of your
-choice, if you do both of the following:
-
- a) Accompany the combined library with a copy of the same work based
- on the Library, uncombined with any other library facilities,
- conveyed under the terms of this License.
-
- b) Give prominent notice with the combined library that part of it
- is a work based on the Library, and explaining where to find the
- accompanying uncombined form of the same work.
-
- 6. Revised Versions of the GNU Lesser General Public License.
-
- The Free Software Foundation may publish revised and/or new versions
-of the GNU Lesser General Public License from time to time. Such new
-versions will be similar in spirit to the present version, but may
-differ in detail to address new problems or concerns.
-
- Each version is given a distinguishing version number. If the
-Library as you received it specifies that a certain numbered version
-of the GNU Lesser General Public License "or any later version"
-applies to it, you have the option of following the terms and
-conditions either of that published version or of any later version
-published by the Free Software Foundation. If the Library as you
-received it does not specify a version number of the GNU Lesser
-General Public License, you may choose any version of the GNU Lesser
-General Public License ever published by the Free Software Foundation.
-
- If the Library as you received it specifies that a proxy can decide
-whether future versions of the GNU Lesser General Public License shall
-apply, that proxy's public statement of acceptance of any version is
-permanent authorization for you to choose that version for the
-Library.
diff --git a/SCM/Makefile.orig b/SCM/Makefile.orig
deleted file mode 100644
index 1477c86..0000000
--- a/SCM/Makefile.orig
+++ /dev/null
@@ -1,736 +0,0 @@
-# "Makefile" for scm Scheme Interpreter
-# Copyright (C) 1990-2008 Free Software Foundation, Inc.
-#
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License as
-# published by the Free Software Foundation, either version 3 of the
-# License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Lesser General Public License for more details.
-#
-# You should have received a copy of the GNU Lesser General Public
-# License along with this program. If not, see
-# <http://www.gnu.org/licenses/>.
-
-# Author: Aubrey Jaffer
-
-SHELL = /bin/sh
-#CC = gcc
-#CFLAGS = -g
-#LIBS =
-#LD = $(CC) -g
-LD = $(CC)
-SCMLIT = ./scmlit
-SCMEXE = ./scm
-#SHOBJS = *.sl
-SHOBJS = *.so
-
-#BUILD = ./build -hsystem -p svr4-gcc-sun-ld
-BUILD = ./build -hsystem
-
-# Workaround for unexec on Fedora Core 1 GNU/Linux i386
-#SETARCH = setarch i386
-
-# http://jamesthornton.com/writing/emacs-compile.html
-# [For FC3] combreloc has become the default for recent GNU ld, which
-# breaks the unexec/undump on all versions of both Emacs and
-# XEmacs...
-#
-# Add the following to udscm5.opt:
-#--linker-options="-z nocombreloc"
-
-# http://www.opensubscriber.com/message/emacs-devel@gnu.org/1007118.html
-# Kernels later than 2.6.11 must do (as root) before dumping:
-#echo 0 > /proc/sys/kernel/randomize_va_space
-
-#for RPMs
-RELEASE = 1
-
-intro:
- @echo
- @echo "This is the scm-$(VERSION) distribution. Read \"scm.info\""
- @echo "to learn how to build and install SCM. Or browse"
- @echo " http://swiss.csail.mit.edu/~jaffer/SCM"
- @echo
- $(MAKE) scm
-
-srcdir.mk: Makefile
- echo "CPROTO=`type cproto | sed 's%.* %%'`" > srcdir.mk
- echo "srcdir=`pwd`/" >> srcdir.mk
-#srcdir=$(HOME)/scm/
-#srcdir=/usr/local/src/scm/
-include srcdir.mk
-
-# directory where COPYING and InitXXX.scm reside.
-#IMPLPATH = /usr/local/src/scm/
-#this one is good for bootstrapping
-#IMPLPATH = `pwd`/
-IMPLPATH=$(srcdir)
-include patchlvl.h
-IMPLINIT = $(IMPLPATH)Init$(VERSION).scm
-
-# If pathname where InitXXX.scm resides is not known in advance then
-# SCM_INIT_PATH is the environment variable whose value is the
-# pathname where InitXXX.scm resides.
-
-hfiles = scm.h scmfig.h setjump.h patchlvl.h continue.h
-cfiles = scmmain.c scm.c time.c repl.c ioext.c scl.c sys.c eval.c \
- subr.c sc2.c unif.c rgx.c crs.c dynl.c record.c posix.c socket.c\
- unix.c rope.c ramap.c gsubr.c edline.c continue.c \
- findexec.c script.c debug.c byte.c bytenumb.c differ.c
-ufiles = pre-crt0.c ecrt0.c gmalloc.c unexec.c unexelf.c unexhp9k800.c \
- unexsunos4.c unexalpha.c unexsgi.c
-# cxux-crt0.s ecrt0.c gmalloc.c pre-crt0.c unexaix.c unexalpha.c \
-# unexapollo.c unexconvex.c unexec.c unexelf.c unexelf1.c \
-# unexencap.c unexenix.c unexfx2800.c unexhp9k800.c unexmips.c \
-# unexnext.c unexnt.c unexsgi.c unexsni.c unexsunos4.c
-ofiles = scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o \
- continue.o findexec.o script.o debug.o
-# continue-ia64.o
-ifiles = Init$(VERSION).scm Transcen.scm Link.scm Macro.scm Macexp.scm \
- Tscript.scm compile.scm Iedline.scm Idiffer.scm
-hobfiles = hobbit.scm scmhob.scm scmhob.h
-turfiles = turtlegr.c turtle grtest.scm
-xafiles = xatoms.scm x11.scm xevent.scm keysymdef.scm
-xfiles = x.c x.h xgen.scm xevent.h inc2scm $(xafiles)
-
-all: require.scm
- $(MAKE) mydlls
- $(MAKE) dscm5
- $(MAKE) differ.so
- $(MAKE) db.so
- if [ -d /usr/X11R6/lib ]; then $(MAKE) x.so; fi
-require.scm:
- cp -p requires.scm require.scm
-
-# SCMLIT -- try making this first!
-scmlit: $(ofiles) scmmain.o require.scm Makefile
- $(LD) -o scmlit $(ofiles) scmmain.o $(LIBS)
- $(MAKE) checklit
-scmflags.h: scmflags
-scmflags:
- echo "#ifndef IMPLINIT" > newflags.h
- echo "#define IMPLINIT \"$(IMPLINIT)\"" >> newflags.h
- echo "#endif" >> newflags.h
- echo "#define CHEAP_CONTINUATIONS" >> newflags.h
- echo "#define CAUTIOUS" >> newflags.h
- -if (cmp -s newflags.h scmflags.h) then rm newflags.h; \
- else mv newflags.h scmflags.h; fi
-.c.o:
- $(CC) -c $(CFLAGS) $< -o $@
-scm.o: scm.c scm.h scmfig.h scmflags.h patchlvl.h
-scmmain.o: scmmain.c scm.h scmfig.h scmflags.h patchlvl.h
-scl.o: scl.c scm.h scmfig.h scmflags.h
-eval.o: eval.c scm.h scmfig.h scmflags.h setjump.h
-debug.o: debug.c scm.h scmfig.h scmflags.h setjump.h
-unif.o: unif.c scm.h scmfig.h scmflags.h
-#ramap.o: ramap.c scm.h scmfig.h scmflags.h
-repl.o: repl.c scm.h scmfig.h scmflags.h setjump.h
-sys.o: sys.c scm.h scmfig.h scmflags.h setjump.h
-time.o: time.c scm.h scmfig.h scmflags.h
-subr.o: subr.c scm.h scmfig.h scmflags.h
-rope.o: rope.c scm.h scmfig.h scmflags.h
-continue.o: continue.c continue.h setjump.h scm.h scmfig.h scmflags.h
-continue-ia64.o: continue-ia64.S get-contoffset-ia64.c
- gcc -o get-contoffset-ia64 get-contoffset-ia64.c
- ./get-contoffset-ia64 contoffset-ia64.S
- gcc -c -o continue-ia64.o continue-ia64.S
-
-# Simple build with bignums for running JACAL
-scm: scmlit
- $(BUILD) -s $(IMPLPATH) -F cautious bignums arrays # i/o-extensions
- $(MAKE) check
-
-# R4RS interpreter (not dumpable)
-scm4.opt:
- echo "-F cautious bignums arrays inexact" >> scm4.opt
- echo "-F engineering-notation dynamic-linking" >> scm4.opt
-# if type gcc; then echo "--compiler-options=\"-fno-guess-branch-probability\"" >> scm4.opt; fi
-scm4: $(cfiles) $(hfiles) build.scm build scm4.opt
- $(BUILD) -f scm4.opt -o scm -s $(IMPLPATH)
- -rm $(ofiles) scmmain.o
- -$(MAKE) check
-
-# R5RS interpreter (not dumpable)
-scm5.opt:
- echo "-F cautious bignums arrays inexact" >> scm5.opt
- echo "-F engineering-notation dynamic-linking" >> scm5.opt
- echo "-F macro" >> scm5.opt
-# if type gcc; then echo "--compiler-options=\"-fno-guess-branch-probability\"" >> scm5.opt; fi
-scm5: $(cfiles) $(hfiles) build.scm build scm5.opt
- $(BUILD) -f scm5.opt -o scm -s $(IMPLPATH)
- -rm $(ofiles) scmmain.o
- -$(MAKE) check
- -$(MAKE) checkmacro
-
-# dumpable R4RS interpreter
-udscm4.opt:
- echo "-F cautious bignums arrays inexact" >> udscm4.opt
- echo "-F engineering-notation dump dynamic-linking" >> udscm4.opt
-# if type gcc; then echo "--compiler-options=\"-fno-guess-branch-probability\"" >> udscm4.opt; fi
-udscm4: $(cfiles) $(hfiles) build.scm build udscm4.opt
- $(BUILD) -f udscm4.opt -o udscm4 -s $(IMPLPATH)
- -rm $(ofiles) scmmain.o
-dscm4: udscm4 $(ifiles) require.scm
- if [ -f /proc/sys/kernel/randomize_va_space -a\
- "`cat /proc/sys/kernel/randomize_va_space`" != "0" ]; then {\
- cat /proc/sys/kernel/randomize_va_space > randomize_va_space.tmp;\
- echo 0 > /proc/sys/kernel/randomize_va_space;\
- } fi
- -rm -f slibcat implcat scm~
- -mv scm scm~
- echo "(quit)" | $(SETARCH) ./udscm4 -no-init-file -o scm
- if [ -f randomize_va_space.tmp ]; then {\
- cat randomize_va_space.tmp > /proc/sys/kernel/randomize_va_space;\
- rm randomize_va_space.tmp;\
- } fi
-
-# dumpable R5RS interpreter
-udscm5.opt:
- $(MAKE) udscm4.opt
- cat udscm4.opt >> udscm5.opt
- echo "-F macro" >> udscm5.opt
-udscm5: $(cfiles) $(ufiles) $(hfiles) build.scm build udscm5.opt
- $(BUILD) -f udscm5.opt -o udscm5 -s $(IMPLPATH)
- -rm $(ofiles) scmmain.o
- strip udscm5
-dscm5: udscm5 $(ifiles) require.scm
- if [ -f /proc/sys/kernel/randomize_va_space -a\
- "`cat /proc/sys/kernel/randomize_va_space`" != "0" ]; then {\
- cat /proc/sys/kernel/randomize_va_space > randomize_va_space.tmp;\
- echo 0 > /proc/sys/kernel/randomize_va_space;\
- } fi
- -rm -f slibcat implcat scm~
- -mv scm scm~
- echo "(quit)" | $(SETARCH) ./udscm5 -no-init-file -r5 -o scm
- if [ -f randomize_va_space.tmp ]; then {\
- cat randomize_va_space.tmp > /proc/sys/kernel/randomize_va_space;\
- rm randomize_va_space.tmp;\
- } fi
- $(MAKE) check
- $(MAKE) checkmacro
-
-# R5RS interpreter for debugging with GDB.
-gdb.opt: udscm5.opt
- cat udscm5.opt > gdb.opt
- echo "-F debug" >> gdb.opt
- echo "--compiler-options=-Wall" >> gdb.opt
- echo "--linker-options=-Wall" >> gdb.opt
- echo "-D NO_ENV_CACHE" >> gdb.opt
-# echo "-DTEST_FARLOC -DTEST_SCM2PTR" >> gdb.opt
-udgdbscm: gdb.opt $(cfiles) $(ufiles) $(hfiles) build.scm build
- $(BUILD) -f gdb.opt -o udgdbscm -s $(IMPLPATH)
-gdbscm: udgdbscm $(ifiles) require.scm
- echo "(quit)" | $(SETARCH) ./udgdbscm -no-init-file -r5 -o gdbscm
-
-# R4RS interpreter for profiling
-pg.opt: udscm4.opt
- cat udscm4.opt >> pg.opt
- echo "--compiler-options=-pg" >> pg.opt
- echo "--linker-options=-pg" >> pg.opt
- echo "-DLACK_SETITIMER" >> pg.opt
-udpgscm: pg.opt
- $(BUILD) -f pg.opt -o udpgscm -s $(IMPLPATH)
-pgscm: udpgscm
- echo "(quit)" | $(SETARCH) ./udpgscm -no-init-file -o pgscm
-
-# R4RS SCM library
-libscm.opt:
- echo "-F cautious bignums arrays inexact" >> libscm.opt
- echo "-F engineering-notation" >> libscm.opt
- echo "-F dynamic-linking" >> libscm.opt
-mylib: libscm.a
-libscm.a: libscm.opt scm.h scmfig.h
- $(BUILD) -t lib -f libscm.opt
-libtest: libscm.a libtest.c
- $(LD) -o libtest libtest.c libscm.a -ldl -lm -lc
- ./libtest
-
-# DLLs for dynamic linking
-dlls.opt:
- echo "--compiler-options=-Wall" >> dlls.opt
- echo "--linker-options=-Wall" >> dlls.opt
-mydlls: dlls.opt bytenumb.so
- $(BUILD) -t dll -f dlls.opt -c ramap.c
- $(BUILD) -t dll -f dlls.opt -c record.c
- $(BUILD) -t dll -f dlls.opt -c gsubr.c
- $(BUILD) -t dll -f dlls.opt -c byte.c
- $(BUILD) -t dll -f dlls.opt -c sc2.c
- $(BUILD) -t dll -f dlls.opt -c ioext.c
- $(BUILD) -t dll -f dlls.opt -c posix.c
- $(BUILD) -t dll -f dlls.opt -c socket.c
- $(BUILD) -t dll -f dlls.opt -c unix.c
- $(BUILD) -t dll -f dlls.opt -F curses
- $(BUILD) -t dll -f dlls.opt -c rgx.c
- if [ -f /usr/lib/libreadline.so ]; \
- then $(BUILD) -t dll -f dlls.opt -F edit-line; fi
-
-rwb-isam.scm wbtab.scm: ../wb/rwb-isam.scm ../wb/wbtab.scm
- cp ../wb/rwb-isam.scm ../wb/wbtab.scm ./
-db.so: dlls.opt rwb-isam.scm wbtab.scm scm.h scmfig.h
- if [ -f ../wb/blink.c ]; then \
- $(BUILD) -t dll -f dlls.opt -F wb; fi
-
-bytenumb.so: bytenumb.c scm.h scmfig.h
- $(BUILD) -t dll -f dlls.opt -F byte-number inexact bignums
-differ.so: differ.c scm.h scmfig.h
- $(BUILD) -t dll -f dlls.opt -F differ
-myturtle: dlls.opt scm.h scmfig.h
- $(BUILD) -t dll -f dlls.opt -F turtlegr
-
-x.so: x.c x.h xevent.h dlls.opt scm.h scmfig.h
- $(BUILD) -t dll -f dlls.opt -F x
-
-# Generate x11 include and Scheme files
-incdir=/usr/include/
-x11.scm: inc2scm
- rm -f x11.scm
- $(SCMLIT) -l inc2scm x11.scm x: $(DESTDIR)$(incdir) X11/X.h X11/cursorfont.h X11/Xlib.h \
- X11/Xutil.h
-keysymdef.scm: inc2scm
- rm -f keysymdef.scm
- $(SCMLIT) -l inc2scm keysymdef.scm x: $(DESTDIR)$(incdir) X11/keysym.h X11/keysymdef.h
-xevent.h xevent.scm xatoms.scm: xgen.scm Makefile
- $(SCMLIT) -l xgen.scm $(DESTDIR)$(incdir)X11/Xlib.h
-x.h: x.c xevent.h
- if [ -x "$(CPROTO)" ]; then $(CPROTO) x.c > x.h; fi
-
-# Check SCM; SCMLIT function.
-checklit:
- $(SCMLIT) -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \
- -e '(or (null? errs) (quit 1))'
-Checklit:
- $(SCMLIT) --no-symbol-case-fold -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \
- -e '(or (null? errs) (quit 1))'
-check: r4rstest.scm
- $(SCMEXE) -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \
- -e '(or (null? errs) (quit 1))'
-Check: r4rstest.scm
- $(SCMEXE) --no-symbol-case-fold -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \
- -e '(or (null? errs) (quit 1))'
-checkmacro: syntest1.scm syntest2.scm r4rstest.scm
- $(SCMEXE) -rmacro -fsyntest1.scm -fsyntest2.scm \
- -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)' -fsyntest1 \
- -e '(or (null? errs) (quit 1))'
-
-# Measuare running speed of SCM; SCMLIT. Results are appended to file
-# "BenchLog"
-bench:
- echo `whoami`@`hostname` testing scm \
- `$(SCMEXE) -e'(display *scm-version*)'` >> BenchLog
- echo on `date` >> BenchLog
- ls -l scm >> BenchLog
- size scm >> BenchLog
- uname -a >> BenchLog
- $(SCMEXE) -lbench.scm
- -cat prng.log >> BenchLog
- echo >> BenchLog
- -cat pi.log >> BenchLog
- echo >> BenchLog
- echo
- tail -20 BenchLog
- -rm -f pi.log prng.log
-benchlit:
- echo `whoami`@`hostname` testing scmlit \
- `$(SCMLIT) -e'(display *scm-version*)'` >> BenchLog
- echo on `date` >> BenchLog
- ls -l scmlit >> BenchLog
- size scmlit >> BenchLog
- uname -a >> BenchLog
- $(SCMLIT) -lbench.scm
- -cat prng.log >> BenchLog
- echo >> BenchLog
- -cat pi.log >> BenchLog
- echo >> BenchLog
- echo
- tail -20 BenchLog
- -rm -f pi.log prng.log
-report:
- $(SCMLIT) -e"(slib:report #t)"
- $(SCMEXE) -e"(slib:report #t)"
-
-implcat: $(SHOBJS) mkimpcat.scm
- $(SCMLIT) -lmkimpcat.scm
-
-htmldir=../public_html/
-dvi: scm.dvi Xlibscm.dvi hobbit.dvi
-scm.dvi: $(texifiles) Makefile
- texi2dvi -b -c scm.texi
-Xlibscm.dvi: version.txi Xlibscm.texi Makefile
- texi2dvi -b -c Xlibscm.texi
-hobbit.dvi: version.txi hobbit.texi Makefile
- texi2dvi -b -c hobbit.texi
-xdvi: scm.dvi
- xdvi scm.dvi
-Xdvi: Xlibscm.dvi
- xdvi Xlibscm.dvi
-hobdvi: hobbit.dvi
- xdvi hobbit.dvi
-
-pdf: $(htmldir)scm.pdf $(htmldir)Xlibscm.pdf $(htmldir)hobbit.pdf
-$(htmldir)scm.pdf: $(texifiles) Makefile
- texi2pdf -b -c scm.texi
- mv scm.pdf $(htmldir)
-$(htmldir)Xlibscm.pdf: version.txi Xlibscm.texi Makefile
- texi2pdf -b -c Xlibscm.texi
- mv Xlibscm.pdf $(htmldir)
-$(htmldir)hobbit.pdf: version.txi hobbit.texi Makefile
- texi2pdf -b -c hobbit.texi
- mv hobbit.pdf $(htmldir)
-xpdf: $(htmldir)scm.pdf
- xpdf $(htmldir)scm.pdf
-Xpdf: $(htmldir)Xlibscm.pdf
- xpdf $(htmldir)Xlibscm.pdf
-hobpdf: $(htmldir)hobbit.pdf
- xpdf $(htmldir)hobbit.pdf
-
-PREVDOCS = prevdocs/
-html: $(htmldir)scm_toc.html $(htmldir)Xlibscm_toc.html $(htmldir)hobbit_toc.html
-
-TEXI2HTML = /usr/local/bin/texi2html -split -verbose
-
-$(htmldir)scm_toc.html: Makefile $(texifiles)
- ${TEXI2HTML} scm.texi
- -rm -f scm_stoc.html
- if [ -f $(PREVDOCS)scm_toc.html ]; \
- then hitch $(PREVDOCS)scm_\*.html scm_\*.html $(htmldir); \
- else cp scm_*.html $(htmldir); fi
-$(htmldir)Xlibscm_toc.html: Makefile version.txi Xlibscm.texi
- ${TEXI2HTML} Xlibscm.texi
- -rm -f Xlibscm_stoc.html
- chpat '</HEAD>' '<LINK REL="icon" HREF="Logo/SCM.ico">\
-<LINK REL="shortcut icon" HREF="Logo/SCM.ico">\
-</HEAD>' Xlibscm_*.html
- cp Xlibscm_*.html $(htmldir)
-$(htmldir)hobbit_toc.html: Makefile version.txi hobbit.texi
- ${TEXI2HTML} hobbit.texi
- -rm -f hobbit_stoc.html
- chpat '</HEAD>' '<LINK REL="icon" HREF="Logo/SCM.ico">\
-<LINK REL="shortcut icon" HREF="Logo/SCM.ico">\
-</HEAD>' hobbit_*.html
- cp hobbit_*.html $(htmldir)
-
-prevdocs: $(PREVDOCS)scm_toc.html $(PREVDOCS)scm.info
-$(PREVDOCS)scm_toc.html:
-$(PREVDOCS)scm.info: Makefile
- cd $(PREVDOCS); unzip -a $(dest)scm*.zip
- rm $(PREVDOCS)scm/scm.info
- cd $(PREVDOCS)scm; make scm.info; make scm_toc.html
- cd $(PREVDOCS); mv -f scm/scm.info scm/*.html ./
- rm -rf $(PREVDOCS)scm
- -rm -f scm-$(VERSION).info
-
-################ INSTALL DEFINITIONS ################
-
-rpm_prefix=$(HOME)/rpmbuild/
-
-prefix = /usr/local/
-exec_prefix = $(prefix)
-# directory where `make install' will put executable.
-bindir = $(exec_prefix)bin/
-libdir = $(exec_prefix)lib/
-libscmdir = $(libdir)scm/
-# directory where `make install' will put manual page.
-man1dir = $(prefix)man/man1/
-infodir = $(prefix)info/
-includedir = $(prefix)include/
-
-README: build build.scm scm.info
- $(SCMEXE) -l build -e"(make-readme)"
-
-platform.txi: build.scm
- $(SCMLIT) -r database-browse -l build.scm -e "(browse build 'platform)" \
- > platform.txi
-features.txi: build build.scm
- $(SCMLIT) -l build -e"(make-features-txi)"
-scm.info: $(texifiles)
- makeinfo scm.texi --no-split -o scm.info
- mv scm.info scm-$(VERSION).info
- if [ -f $(PREVDOCS)scm.info ]; \
- then infobar $(PREVDOCS)scm.info scm-$(VERSION).info scm.info; \
- else cp scm-$(VERSION).info scm.info; fi
-$(DESTDIR)$(infodir)scm.info: scm.info
- mkdir -p $(DESTDIR)$(infodir)
- cp -p scm.info $(DESTDIR)$(infodir)scm.info
- -install-info $(DESTDIR)$(infodir)scm.info $(DESTDIR)$(infodir)dir
- -rm $(DESTDIR)$(infodir)scm.info.gz
-
-Xlibscm.info: version.txi Xlibscm.texi
- makeinfo Xlibscm.texi --no-split -o Xlibscm.info
-$(DESTDIR)$(infodir)Xlibscm.info: Xlibscm.info
- mkdir -p $(DESTDIR)$(infodir)
- cp Xlibscm.info $(DESTDIR)$(infodir)Xlibscm.info
- -install-info $(DESTDIR)$(infodir)Xlibscm.info $(DESTDIR)$(infodir)dir
- -rm $(DESTDIR)$(infodir)Xlibscm.info*.gz
-
-hobbit.info: version.txi hobbit.texi
- makeinfo hobbit.texi --no-split -o hobbit.info
-$(DESTDIR)$(infodir)hobbit.info: hobbit.info
- mkdir -p $(DESTDIR)$(infodir)
- cp hobbit.info $(DESTDIR)$(infodir)hobbit.info
- -install-info $(DESTDIR)$(infodir)hobbit.info $(DESTDIR)$(infodir)dir
- -rm $(DESTDIR)$(infodir)hobbit.info*.gz
-
-info: installinfo
-installinfo: $(DESTDIR)$(infodir)scm.info $(DESTDIR)$(infodir)Xlibscm.info $(DESTDIR)$(infodir)hobbit.info
-
-infoz: installinfoz
-installinfoz: $(DESTDIR)$(infodir)scm.info.gz $(DESTDIR)$(infodir)Xlibscm.info.gz $(DESTDIR)$(infodir)hobbit.info.gz
-$(DESTDIR)$(infodir)scm.info.gz: $(DESTDIR)$(infodir)scm.info
- gzip -f $(DESTDIR)$(infodir)scm.info
-$(DESTDIR)$(infodir)Xlibscm.info.gz: $(DESTDIR)$(infodir)Xlibscm.info
- gzip -f $(DESTDIR)$(infodir)Xlibscm.info
-$(DESTDIR)$(infodir)hobbit.info.gz: $(DESTDIR)$(infodir)hobbit.info
- gzip -f $(DESTDIR)$(infodir)hobbit.info
-
-lsdfiles = $(ifiles) $(hobfiles) COPYING COPYING.LESSER r4rstest.scm \
- build build.scm mkimpcat.scm $(SHOBJS) patchlvl.h \
- Iedline.scm $(xafiles) db.so wbtab.scm rwb-isam.scm
-
-install: scm.1
- mkdir -p $(DESTDIR)$(bindir)
- mkdir -p $(DESTDIR)$(man1dir)
- -cp scm scmlit $(DESTDIR)$(bindir)
- -strip $(DESTDIR)$(bindir)scmlit
- -cp scm.1 $(DESTDIR)$(man1dir)
- mkdir -p $(DESTDIR)$(libscmdir)
- test -f $(DESTDIR)$(libscmdir)require.scm || \
- cp requires.scm $(DESTDIR)$(libscmdir)require.scm
- -cp $(lsdfiles) $(DESTDIR)$(libscmdir)
-
-installlib:
- mkdir -p $(DESTDIR)$(includedir)
- cp scm.h scmfig.h scmflags.h $(DESTDIR)$(includedir)
- mkdir -p $(DESTDIR)$(libdir)
- cp libscm.a $(DESTDIR)$(libdir)libscm.a
-
-uninstall:
- -rm $(DESTDIR)$(bindir)scm $(DESTDIR)$(bindir)scmlit
- -rm $(DESTDIR)$(man1dir)scm.1
- -rm $(DESTDIR)$(includedir)scm.h $(DESTDIR)$(includedir)scmfig.h $(DESTDIR)$(includedir)scmflags.h
- -rm $(DESTDIR)$(libdir)libscm.a
- -(cd $(DESTDIR)$(libscmdir); rm $(lsdfiles) require.scm)
-
-uninstallinfo:
- -rm $(DESTDIR)$(infodir)scm.info.gz $(DESTDIR)$(infodir)Xlibscm.info.gz\
- $(DESTDIR)$(infodir)hobbit.info.gz
-
-scm.doc: scm.1
- nroff -man $< | ul -tunknown >$@
-
-docs: $(DESTDIR)$(infodir)scm.info.gz $(htmldir)scm_toc.html scm.doc \
- scm.dvi Xlibscm.dvi hobbit.dvi \
- $(htmldir)scm.pdf $(htmldir)Xlibscm.pdf $(htmldir)hobbit.pdf
- xdvi -s 4 scm.dvi
-
-winscm5.opt:
- echo "-F arrays array-for-each byte i/o-extensions" >> winscm5.opt
- echo "-F bignums inexact engineering-notation" >> winscm5.opt
- echo "-F cautious rev2-procedures macro" >> winscm5.opt
- echo "-F wb" >> winscm5.opt
-gw32scmwb.sh: winscm5.opt build.scm Makefile version.txi scmlit
- ./build -p gnu-win32 -f winscm5.opt -w gw32scmwb.sh
-scm.exe: gw32scmwb.sh
- ./gw32scmwb.sh
-
-hobbit.html: hobbit.texi
- makeinfo --html --no-split --no-warn hobbit.texi
-scm.html: $(texifiles)
- makeinfo --html --no-split --no-warn --force scm.texi
-
-## to build a windows installer
-## make sure makeinfo and NSIS are available on the commandline
-w32install: scm.exe hobbit.html scm.html
- makensis scm.nsi
-
-#### Stuff for maintaining SCM below ####
-
-ver = $(VERSION)
-version.txi: patchlvl.h
- echo @set SCMVERSION $(ver) > version.txi
- echo @set SCMDATE `date +"%B %Y"` >> version.txi
-
-RM_R = rm -rf
-
-confiles = scmconfig.h.in mkinstalldirs acconfig-1.5.h install-sh \
- configure configure.in Makefile.in COPYING COPYING.LESSER \
- README.unix
-
-tfiles = r4rstest.scm example.scm pi.scm pi.c split.scm bench.scm \
- syntest2.scm syntest1.scm
-texifiles = version.txi scm.texi fdl.texi indexes.texi platform.txi features.txi
-dfiles = ANNOUNCE README COPYING COPYING.LESSER scm.1 scm.doc QUICKREF \
- $(texifiles) scm.info Xlibscm.info Xlibscm.texi \
- hobbit.info hobbit.texi ChangeLog
-mfiles = Makefile build.scm build build.bat requires.scm \
- .gdbinit mkimpcat.scm disarm.scm scm.spec scm.nsi
-sfiles = setjump.mar setjump.s ugsetjump.s continue-ia64.S \
- get-contoffset-ia64.c
-wbfiles = wbtab.scm rwb-isam.scm
-afiles = $(dfiles) $(cfiles) $(hfiles) $(ifiles) $(tfiles) $(mfiles) \
- $(hobfiles) $(sfiles) $(ufiles) $(xfiles) $(turfiles) $(wbfiles)
-
-makedev = make -f $(HOME)/makefile.dev
-CHPAT=$(HOME)/bin/chpat
-RSYNC=rsync -bav
-UPLOADEE=swissnet_upload
-dest = $(HOME)/dist/
-DOSCM = /c/Voluntocracy/dist/
-
-temp/scm: $(afiles)
- -$(RM_R) temp
- mkdir -p temp/scm
- ln $(afiles) temp/scm
-
-release: dist pdf # rpm
- cvs tag -F scm-$(VERSION)
- cp ANNOUNCE $(htmldir)SCM_ANNOUNCE.txt
- $(RSYNC) $(htmldir)SCM.html $(htmldir)SCM_ANNOUNCE.txt $(UPLOADEE):public_html/
- $(RSYNC) $(dest)README $(dest)scm-$(VERSION).zip \
- $(dest)scm-$(VERSION)-$(RELEASE).src.rpm $(dest)scm-$(VERSION)-$(RELEASE).i386.rpm \
- $(htmldir)hobbit.pdf $(htmldir)Xlibscm.pdf $(UPLOADEE):dist/
-# upload $(dest)README $(dest)scm-$(VERSION).zip ftp.gnu.org:gnu/jacal/
-
-upzip: $(HOME)/pub/scm.zip
- $(RSYNC) $(HOME)/pub/scm.zip $(UPLOADEE):pub/
- $(RSYNC) r4rstest.scm $(HOME)/dist/
- $(RSYNC) r4rstest.scm $(UPLOADEE):dist/
-
-dist: $(dest)scm-$(VERSION).zip
-$(dest)scm-$(VERSION).zip: temp/scm
- $(makedev) DEST=$(dest) PROD=scm ver=-$(VERSION) zip
-
-rpm: pubzip
-# $(dest)scm-$(VERSION)-$(RELEASE).i386.rpm: $(dest)scm-$(VERSION).zip
- cp -f $(HOME)/pub/scm.zip $(rpm_prefix)SOURCES/scm-$(VERSION).zip
- rpmbuild -ba scm.spec # --clean
- rm $(rpm_prefix)SOURCES/scm-$(VERSION).zip
- mv $(rpm_prefix)RPMS/i386/scm-$(VERSION)-$(RELEASE).i386.rpm \
- $(rpm_prefix)SRPMS/scm-$(VERSION)-$(RELEASE).src.rpm $(dest)
-
-shar: scm.shar
-scm.shar: temp/scm
- $(makedev) PROD=scm shar
-dclshar: scm.com
-com: scm.com
-scm.com: temp/scm
- $(makedev) PROD=scm com
-zip: scm.zip
-scm.zip: temp/scm
- $(makedev) PROD=scm zip
-doszip: $(DOSCM)scm-$(VERSION).zip
-$(DOSCM)scm-$(VERSION).zip: temp/scm turtle turtlegr.c grtest.scm SCM.ico scm.html hobbit.html
- $(makedev) DEST=$(DOSCM) PROD=scm ver=-$(VERSION) zip
- -cd ..; zip -9ur $(DOSCM)scm-$(VERSION).zip \
- scm/turtle scm/turtlegr.c scm/grtest.scm \
- scm/SCM.ico \
- scm/scm.html scm/hobbit.html
- zip -d $(DOSCM)scm-$(VERSION).zip scm/scm.info scm/Xlibscm.info scm/hobbit.info
-pubzip: $(HOME)/pub/scm.zip
-$(HOME)/pub/scm.zip: temp/scm
- $(makedev) DEST=$(HOME)/pub/ PROD=scm zip
-
-diffs: pubdiffs
-pubdiffs: temp/scm
- $(makedev) DEST=$(HOME)/pub/ PROD=scm pubdiffs
-distdiffs: temp/scm
- $(makedev) DEST=$(dest) PROD=scm ver=$(ver) distdiffs
-
-CITERS = ANNOUNCE hobbit.texi hobbit.scm \
- ../jacal/ANNOUNCE ../jacal/jacal.texi \
- ../wb/ANNOUNCE ../wb/README ../wb/wb.texi \
- ../synch/ANNOUNCE \
- ../dist/README \
- $(DOSCM)unzipall.bat $(DOSCM)buildall \
- $(htmldir)JACAL.html $(htmldir)README.html \
- $(htmldir)SIMSYNCH.html $(htmldir)SLIB.html \
- $(htmldir)FreeSnell/ANNOUNCE $(htmldir)FreeSnell/index.html
-CITES = scm.spec scm.nsi ../wb/wb.spec $(htmldir)SCM.html
-
-updates: Init$(ver).scm
- $(CHPAT) slib-$(VERSION) slib-$(ver) $(CITERS)
- $(CHPAT) $(VERSION) $(ver) $(CITES)
- make README
-
-Init$(ver).scm:
- mv -f Init$(VERSION).scm Init$(ver).scm
- $(CHPAT) $(VERSION) $(ver) patchlvl.h Init$(ver).scm
-
-new: updates
- echo `date -I` \ Aubrey Jaffer \ \<`whoami`@`hostname`\>> change
- echo>> change
- echo \ \* patchlvl.h \(SCMVERSION\): Bumped from $(VERSION) to $(ver).>>change
- echo>> change
- cat ChangeLog >> change
- mv -f change ChangeLog
- cvs remove Init$(VERSION).scm
- cvs add Init$(ver).scm
- cvs commit -m 'Init$(VERSION).scm changed to Init$(ver).scm' \
- Init$(VERSION).scm Init$(ver).scm
- cvs commit -m '(SCMVERSION): Bumped from $(VERSION) to $(ver).'
- cvs tag -F scm-$(ver)
-
-configtemp/scm: $(confiles)
- -$(RM_R) configtemp/scm
- -mkdir -p configtemp/scm
- ln $(confiles) configtemp/scm
-confdist: scmconfig.tar.gz
-scmconfig.tar.gz: configtemp/scm
- cd configtemp; tar cohf ../scmconfig.tar scm
- chmod 664 scmconfig.tar
- -rm -f scmconfig.tar.*z
- gzip scmconfig.tar
- chmod 664 scmconfig.tar.*z
-
-lint: lints
-lints: $(cfiles) $(hfiles)
- lint $(CPPFLAGS) $(ALL_CFLAGS) $(cfiles) | tee lints
-# lint $(CPPFLAGS) $(ALL_CFLAGS) $(cfiles) | tee lintes
-
-#seds to help find names not unique in first 8 characters (name8s)
-# for BSD nm format
-SED_TO_STRIP_NM=sed -e '/.*\.o$$/d' -e 's/.* _//' -e 's/.* T //'
-#old, bad for T [^_] on suns: SED_TO_STRIP_NM=sed -e '/.*\.o$$/d' -e 's/.* _//'
-# For a System V nm where plain C identifiers have _ prepended:
-#SED_TO_STRIP_NM=sed -e '/^_[A-Za-z][A-za-z0-9_]*[ |].*|extern|!d' -e 's/|/ /g' -e 's/^_//'
-# For a System V nm where plain C identifiers have nothing prepended:
-#SED_TO_STRIP_NM=sed -e '/^[A-Za-z][A-za-z0-9_]*[ |].*|extern|!d' -e 's/|/ /g'
-
-name8: name8s
-name8s: scmlit
- nm scmlit |\
- $(SED_TO_STRIP_NM) |\
- sort -u|\
- awk '{ if (substr(l,1,8)==substr($$1,1,8)) {\
- if (p) print l;\
- print $$1;p=0;stat=1\
- }else p=1;\
- l=$$1\
- }END{exit stat}' -
-
-ctagfiles = $(hfiles) $(cfiles) $(xfiles)
-ctags: $(ctagfiles)
- etags $(ctagfiles)
-
-TAGFILES = $(hfiles) $(cfiles) $(ifiles) $(sfiles) $(xfiles) $(mfiles)\
- $(txifiles) Xlibscm.texi hobbit.texi build hobbit.scm
-# # $(ufiles) ChangeLog
-TAGS: $(TAGFILES)
- etags $(TAGFILES)
-tags: TAGS
-
-mostlyclean:
-clean:
- -rm -f core a.out ramap.o ramap.obj $(ofiles) scmmain.o lints
- -$(RM_R) *temp
-distclean: clean
- -rm -f $(EXECFILES) *.o *.obj a.out TAGS implcat slibcat gdbscm
-realclean: distclean
- -rm -f scm.doc scm.html hobbit.html scm.exe scmlit.exe scm~ SCM-*.exe
-realempty: temp/scm
- -rm -f $(afiles)
-myclean: clean
- -rm -f *~ *.bak *.orig *.rej tmp* \#* *\#
diff --git a/SCM/README b/SCM/README
deleted file mode 100644
index e6d4e57..0000000
--- a/SCM/README
+++ /dev/null
@@ -1,381 +0,0 @@
-This directory contains the distribution of scm5e5. SCM conforms to
-Revised^5 Report on the Algorithmic Language Scheme and the IEEE P1178
-specification. SCM runs under Amiga, Atari-ST, MacOS, MS-DOS, OS/2,
-NOS/VE, Unicos, VMS, Unix and similar systems. SCM supports the SLIB
-Scheme library; both SCM and SLIB are GNU packages.
-
- `http://swiss.csail.mit.edu/~jaffer/SCM'
-
-0.1 Manifest
-============
-
-`.gdbinit' provides commands for debugging SCM with GDB
-`COPYING' GNU GENERAL PUBLIC LICENSE
-`COPYING.LESSER' GNU LESSER GENERAL PUBLIC LICENSE
-`ChangeLog' changes to SCM.
-`Idiffer.scm' Linear-space O(PN) sequence comparison.
-`Iedline.scm' Gnu readline input editing.
-`Init.scm' Scheme initialization.
-`Link.scm' Dynamic link/loading.
-`Macro.scm' Supports Syntax-Rules Macros.
-`Makefile' builds SCMLIT using the `make' program.
-`QUICKREF' Quick Reference card for R4RS and IEEE Scheme.
-`README' contains a MANIFEST, INSTALLATION INSTRUCTIONS, hints
- for EDITING SCHEME CODE, and a TROUBLE SHOOTING GUIDE.
-`Transcen.scm' inexact builtin procedures.
-`bench.scm' computes and records performance statistics of pi.scm.
-`build.bat' invokes build.scm for MS-DOS
-`build.scm' database for compiling and linking new SCM programs.
-`byte.c' strings as bytes.
-`bytenumb.c' Byte-number conversions.
-`compile.scm' Hobbit compilation to C.
-`continue-ia64.S'replaces make_root_continuation(), make_continuation(),
- and dynthrow() in continue.c
-`continue.c' continuations.
-`continue.h' continuations.
-`crs.c' interactive terminal control.
-`debug.c' debugging, printing code.
-`differ.c' Linear-space O(PN) sequence comparison.
-`dynl.c' dynamically load object files.
-`ecrt0.c' discover the start of initialized data space
- dynamically at runtime.
-`edline.c' Gnu readline input editing (get
- ftp.sys.toronto.edu:/pub/rc/editline.shar).
-`eval.c' evaluator, apply, map, and foreach.
-`example.scm' example from R4RS which uses inexact numbers.
-`fdl.texi' GNU Free Documentation License.
-`findexec.c' find the executable file function.
-`get-contoffset-ia64.c'makes contoffset-ia64.S for inclusion by continue-ia64.S
-`gmalloc.c' Gnu malloc(); used for unexec.
-`gsubr.c' make_gsubr for arbitrary (< 11) arguments to C
- functions.
-`ioext.c' system calls in common between PC compilers and unix.
-`lastfile.c' find the point in data space between data and libraries.
-`macos-config.h' Included by unexmacosx.c and lastfile.c.
-`mkimpcat.scm' build SCM-specific catalog for SLIB.
-`patchlvl.h' patchlevel of this release.
-`pi.c' computes digits of pi [cc -o pi pi.c;time pi 100 5].
-`pi.scm' computes digits of pi [type (pi 100 5)]. Test
- performance against pi.c.
-`posix.c' posix library interface.
-`pre-crt0.c' loaded before crt0.o on machines which do not remap
- part of the data space into text space in unexec.
-`r4rstest.scm' tests conformance with Scheme specifications.
-`ramap.c' array mapping
-`record.c' proposed `Record' user definable datatypes.
-`repl.c' error, read-eval-print loop, read, write and load.
-`rgx.c' string regular expression match.
-`rope.c' C interface functions.
-`sc2.c' procedures from R2RS and R3RS not in R4RS.
-`scl.c' inexact arithmetic
-`scm.1' unix style man page.
-`scm.c' initialization, interrupts, and non-IEEE utility
- functions.
-`scm.doc' man page generated from scm.1.
-`scm.h' data type and external definitions of SCM.
-`scm.texi' SCM installation and use.
-`scmfig.h' contains system dependent definitions.
-`scmmain.c' initialization, interrupts, and non-IEEE utility
- functions.
-`script.c' utilities for running as `#!' script.
-`setjump.h' continuations, stacks, and memory allocation.
-`setjump.mar' provides setjump and longjump which do not use $unwind
- utility on VMS.
-`setjump.s' provides setjump and longjump for the Cray YMP.
-`socket.c' BSD socket interface.
-`split.scm' example use of crs.c. Input, output, and diagnostic
- output directed to separate windows.
-`subr.c' the rest of IEEE functions.
-`sys.c' call-with-current-continuation, opening and closing
- files, storage allocation and garbage collection.
-`time.c' functions dealing with time.
-`ugsetjump.s' provides setjump and longjump which work on Ultrix VAX.
-`unexalpha.c' Convert a running program into an Alpha executable file.
-`unexec.c' Convert a running program into an executable file.
-`unexelf.c' Convert a running ELF program into an executable file.
-`unexhp9k800.c' Convert a running HP-UX program into an executable file.
-`unexmacosx.c' Convert a running program into an executable file under
- MacOS X.
-`unexsgi.c' Convert a running program into an IRIX executable file.
-`unexsunos4.c' Convert a running program into an executable file.
-`unif.c' uniform vectors.
-`unix.c' non-posix system calls on unix systems.
-
-
-
-File: scm.info, Node: SLIB, Next: Building SCM, Prev: Making SCM, Up: Installing SCM
-
-2.2 SLIB
-========
-
-[SLIB] is a portable Scheme library meant to provide compatibility and
-utility functions for all standard Scheme implementations. Although
-SLIB is not _neccessary_ to run SCM, I strongly suggest you obtain and
-install it. Bug reports about running SCM without SLIB have very low
-priority. SLIB is available from the same sites as SCM:
-
- * swiss.csail.mit.edu:/pub/scm/slib-3b1.tar.gz
-
- * ftp.gnu.org:/pub/gnu/jacal/slib-3b1.tar.gz
-
-Unpack SLIB (`tar xzf slib-3b1.tar.gz' or `unzip -ao slib-3b1.zip') in
-an appropriate directory for your system; both `tar' and `unzip' will
-create the directory `slib'.
-
-Then create a file `require.scm' in the SCM "implementation-vicinity"
-(this is the same directory as where the file `Init5e5.scm' is
-installed). `require.scm' should have the contents:
-
- (define (library-vicinity) "/usr/local/lib/slib/")
-
-where the pathname string `/usr/local/lib/slib/' is to be replaced by
-the pathname into which you installed SLIB. Absolute pathnames are
-recommended here; if you use a relative pathname, SLIB can get confused
-when the working directory is changed (*note chmod: I/O-Extensions.).
-The way to specify a relative pathname is to append it to the
-implementation-vicinity, which is absolute:
-
- (define library-vicinity
- (let ((lv (string-append (implementation-vicinity) "../slib/")))
- (lambda () lv)))
-
-Alternatively, you can set the (shell) environment variable
-`SCHEME_LIBRARY_PATH' to the pathname of the SLIB directory (*note
-SCHEME_LIBRARY_PATH: SCM Variables.). If set, the environment variable
-overrides `require.scm'. Again, absolute pathnames are recommended.
-
-
-
-File: scm.info, Node: Making SCM, Next: SLIB, Prev: Installing SCM, Up: Installing SCM
-
-2.1 Making SCM
-==============
-
-The SCM distribution has "Makefile" which contains rules for making
-"scmlit", a "bare-bones" version of SCM sufficient for running `build'.
-`build' is used to compile (or create scripts to compile) full
-featured versions (*note Building SCM::).
-
-Makefiles are not portable to the majority of platforms. If `Makefile'
-works for you, good; If not, I don't want to hear about it. If you
-need to compile SCM without build, there are several ways to proceed:
-
- * Use the build (http://swiss.csail.mit.edu/~jaffer/buildscm.html)
- web page to create custom batch scripts for compiling SCM.
-
- * Use SCM on a different platform to run `build' to create a script
- to build SCM;
-
- * Use another implementation of Scheme to run `build' to create a
- script to build SCM;
-
- * Create your own script or `Makefile'.
-
-
-
-File: scm.info, Node: Editing Scheme Code, Next: Debugging Scheme Code, Prev: SCM Session, Up: Operational Features
-
-3.7 Editing Scheme Code
-=======================
-
- -- Function: ed arg1 ...
- The value of the environment variable `EDITOR' (or just `ed' if it
- isn't defined) is invoked as a command with arguments ARG1 ....
-
- -- Function: ed filename
- If SCM is compiled under VMS `ed' will invoke the editor with a
- single the single argument FILENAME.
-
-Gnu Emacs:
- Editing of Scheme code is supported by emacs. Buffers holding
- files ending in .scm are automatically put into scheme-mode.
-
- If your Emacs can run a process in a buffer you can use the Emacs
- command `M-x run-scheme' with SCM. Otherwise, use the emacs
- command `M-x suspend-emacs'; or see "other systems" below.
-
-Epsilon (MS-DOS):
- There is lisp (and scheme) mode available by use of the package
- `LISP.E'. It offers several different indentation formats. With
- this package, buffers holding files ending in `.L', `.LSP', `.S',
- and `.SCM' (my modification) are automatically put into lisp-mode.
-
- It is possible to run a process in a buffer under Epsilon. With
- Epsilon 5.0 the command line options `-e512 -m0' are neccessary to
- manage RAM properly. It has been reported that when compiling SCM
- with Turbo C, you need to `#define NOSETBUF' for proper operation
- in a process buffer with Epsilon 5.0.
-
- One can also call out to an editor from SCM if RAM is at a
- premium; See "under other systems" below.
-
-other systems:
- Define the environment variable `EDITOR' to be the name of the
- editing program you use. The SCM procedure `(ed arg1 ...)' will
- invoke your editor and return to SCM when you exit the editor. The
- following definition is convenient:
-
- (define (e) (ed "work.scm") (load "work.scm"))
-
- Typing `(e)' will invoke the editor with the file of interest.
- After editing, the modified file will be loaded.
-
-
-
-File: scm.info, Node: Problems Compiling, Next: Problems Linking, Prev: Automatic C Preprocessor Definitions, Up: Installing SCM
-
-2.8 Problems Compiling
-======================
-
-FILE PROBLEM / MESSAGE HOW TO FIX
-*.c include file not found. Correct the status of
- STDC_HEADERS in scmfig.h.
- fix #include statement or add
- #define for system type to
- scmfig.h.
-*.c Function should return a value. Ignore.
- Parameter is never used.
- Condition is always false.
- Unreachable code in function.
-scm.c assignment between incompatible Change SIGRETTYPE in scm.c.
- types.
-time.c CLK_TCK redefined. incompatablility between
- <stdlib.h> and <sys/types.h>.
- Remove STDC_HEADERS in scmfig.h.
- Edit <sys/types.h> to remove
- incompatability.
-subr.c Possibly incorrect assignment Ignore.
- in function lgcd.
-sys.c statement not reached. Ignore.
- constant in conditional
- expression.
-sys.c undeclared, outside of #undef STDC_HEADERS in scmfig.h.
- functions.
-scl.c syntax error. #define SYSTNAME to your system
- type in scl.c (softtype).
-
-
-
-File: scm.info, Node: Problems Linking, Next: Problems Running, Prev: Problems Compiling, Up: Installing SCM
-
-2.9 Problems Linking
-====================
-
-PROBLEM HOW TO FIX
-_sin etc. missing. Uncomment LIBS in makefile.
-
-
-
-File: scm.info, Node: Problems Running, Next: Testing, Prev: Problems Linking, Up: Installing SCM
-
-2.10 Problems Running
-=====================
-
-PROBLEM HOW TO FIX
-Opening message and then machine Change memory model option to C
-crashes. compiler (or makefile).
- Make sure sizet definition is
- correct in scmfig.h.
- Reduce the size of HEAP_SEG_SIZE in
- setjump.h.
-Input hangs. #define NOSETBUF
-ERROR: heap: need larger initial. Increase initial heap allocation
- using -a<kb> or INIT_HEAP_SIZE.
-ERROR: Could not allocate. Check sizet definition.
- Use 32 bit compiler mode.
- Don't try to run as subproccess.
-remove <FLAG> in scmfig.h and Do so and recompile files.
-recompile scm.
-add <FLAG> in scmfig.h and
-recompile scm.
-ERROR: Init5e5.scm not found. Assign correct IMPLINIT in makefile
- or scmfig.h.
- Define environment variable
- SCM_INIT_PATH to be the full
- pathname of Init5e5.scm.
-WARNING: require.scm not found. Define environment variable
- SCHEME_LIBRARY_PATH to be the full
- pathname of the scheme library
- [SLIB].
- Change library-vicinity in
- Init5e5.scm to point to library or
- remove.
- Make sure the value of
- (library-vicinity) has a trailing
- file separator (like / or \).
-
-
-
-File: scm.info, Node: Testing, Next: Reporting Problems, Prev: Problems Running, Up: Installing SCM
-
-2.11 Testing
-============
-
-Loading `r4rstest.scm' in the distribution will run an [R4RS]
-conformance test on `scm'.
-
- > (load "r4rstest.scm")
- -|
- ;loading "r4rstest.scm"
- SECTION(2 1)
- SECTION(3 4)
- #<primitive-procedure boolean?>
- #<primitive-procedure char?>
- #<primitive-procedure null?>
- #<primitive-procedure number?>
- ...
-
-Loading `pi.scm' in the distribution will enable you to compute digits
-of pi.
-
- > (load "pi")
- ;loading "pi"
- ;done loading "pi.scm"
- ;Evaluation took 20 ms (0 in gc) 767 cells work, 233.B other
- #<unspecified>
- > (pi 100 5)
- 00003 14159 26535 89793 23846 26433 83279 50288 41971 69399
- 37510 58209 74944 59230 78164 06286 20899 86280 34825 34211
- 70679
- ;Evaluation took 550 ms (60 in gc) 36976 cells work, 1548.B other
- #<unspecified>
-
-Loading `bench.scm' will compute and display performance statistics of
-SCM running `pi.scm'. `make bench' or `make benchlit' appends the
-performance report to the file `BenchLog', facilitating tracking
-effects of changes to SCM on performance.
-
-PROBLEM HOW TO FIX
-Runs some and then machine crashes. See above under machine crashes.
-Runs some and then ERROR: ... Remove optimization option to C
-(after a GC has happened). compiler and recompile.
- #define SHORT_ALIGN in `scmfig.h'.
-Some symbol names print incorrectly. Change memory model option to C
- compiler (or makefile).
- Check that HEAP_SEG_SIZE fits
- within sizet.
- Increase size of HEAP_SEG_SIZE (or
- INIT_HEAP_SIZE if it is smaller
- than HEAP_SEG_SIZE).
-ERROR: Rogue pointer in Heap. See above under machine crashes.
-Newlines don't appear correctly in Check file mode (define OPEN_... in
-output files. `Init5e5.scm').
-Spaces or control characters appear Check character defines in
-in symbol names. `scmfig.h'.
-Negative numbers turn positive. Check SRS in `scmfig.h'.
-;ERROR: bignum: numerical overflow Increase NUMDIGS_MAX in `scmfig.h'
- and recompile.
-VMS: Couldn't unwind stack. #define CHEAP_CONTINUATIONS in
- `scmfig.h'.
-VAX: botched longjmp.
-
-Sparc(SUN-4) heap is growing out of control
- You are experiencing a GC problem peculiar to the Sparc. The
- problem is that SCM doesn't know how to clear register windows.
- Every location which is not reused still gets marked at GC time.
- This causes lots of stuff which should be collected to not be.
- This will be a problem with any _conservative_ GC until we find
- what instruction will clear the register windows. This problem is
- exacerbated by using lots of call-with-current-continuations. A
- possible fix for dynthrow() is commented out in `continue.c'.
-
diff --git a/SCM/continue-ia64.S b/SCM/continue-ia64.S
deleted file mode 100644
index ba61e38..0000000
--- a/SCM/continue-ia64.S
+++ /dev/null
@@ -1,339 +0,0 @@
-/* "continue-ia64.S" continuation support for ia64.
- * Copyright (C) 2006 Free Software Foundation, Inc.
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License as
- * published by the Free Software Foundation, either version 3 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this program. If not, see
- * <http://www.gnu.org/licenses/>.
- */
-
-/* Author: Richard E. Harke */
-
-/*
-struct Continuation {jump_buf jmpbuf;
- long thrwval;
- long length;
- STACKITEM *stkbse;
-#ifdef __ia64__
- long *bspbse;
- long bsplength;
- long rnat;
-#endif
- CONTINUATION_OTHER other;
- struct Continuation *parent;
- };
-*/
-/* Define offsets for elements of a Continuation structure */
-#include "contoffset-ia64.S"
-
-
- .global must_malloc
- .text
- .align 32
- .global make_root_continuation
- .proc make_root_continuation
-make_root_continuation:
- .prologue
- .save ar.pfs,r33
- alloc r33 = ar.pfs,1,3,2,0
- .save rp,r34
- mov r34 = b0
- .body
- addl r14 = @ltoffx(s_call_cc), r1
- mov out0 = cont_size
- mov loc2 = gp
- ;;
- ld8.mov r14 = [r14], s_call_cc
- ;;
- adds out1 = 18, r14
- ;;
- br.call.sptk.many b0=must_malloc
- ;;
- mov gp = r35
- cmp.eq p6,p0 = r8,r0
- adds r14 = stkbse_off,r8
- adds r15 = bspbse_off,r8
- (p6) br.cond.dpnt mrcexit
- ;;
- flushrs
- st8 [r14] = r12
- ;;
- mov r31 = ar.bsp
- ;;
- adds r14 = length_off,r8
- st8 [r15] = r31
- adds r16 = bsplength_off,r8
- ;;
- st8 [r14] = r0
- st8 [r16] = r0
- adds r15 = parent_off,r8
- ;;
- st8 [r15] = r8
-mrcexit:
- mov ar.pfs = r33
- mov b0 = r34
- ;;
- br.ret.sptk.many b0
- .endp make_root_continuation
-
- /*
- register usage
- r32 - r39 used in modulo loop (requires multiple of 8)
- r40 save r32 from input
- r41 save return - b0
- r42 ar.pfs
- r43 save gp (r1)
- r44 ar.bsp
- r45 out0
- r46 out1
- */
- .global make_continuation
- .proc make_continuation
-make_continuation:
- .prologue
- .save ar.pfs, r42
- alloc r42 = ar.pfs, 1,12, 2, 8
- mov r43 = r1
- .save rp, r41
- mov r41 = b0
- mov r40 = r32
- ;;
- .body
- adds r14 = bspbse_off,r40
- adds r17 = stkbse_off,r40
- ;;
- mov r44 = ar.bsp
- ld8 r15 = [r14] // bspbse from parent
- ld8 r18 = [r17] // stkbse from parent
- ;;
- sub r16 = r44,r15 // length of bsp to save
- sub r19 = r18,r12 // length of stack to save
- addl r15 = @ltoffx(s_call_cc), r1
- ;;
- add r45 = r16,r19 // bsp len plus stack len
- ld8.mov r14 = [r15], s_call_cc
- ;;
- adds r14 = 18, r14
- adds r45 = cont_size, r45 // add in length of continuation struct
- ;;
- mov r46 = r14
- br.call.sptk.many b0 = must_malloc
- mov r1 = r43
- cmp.eq p6, p7 = 0, r8
- (p6) br.cond.dptk .L5
- ;;
-.L1:
- flushrs
- adds r14 = bspbse_off,r40
- adds r17 = stkbse_off,r40
- ;;
- mov r31 = ar.rsc
- ld8 r15 = [r14] // bsp in parent
- ld8 r18 = [r17] // stack base in parent
- ;;
- and r30 = ~0x3,r31
- sub r16 = r44,r15 // length of bsp to save
- sub r19 = r18,r12 // length of stack to save
- ;;
- mov ar.rsc = r30 // set enforced idle
- shr r16 = r16,3 // number of longs not bytes
- adds r21 = length_off,r8
- adds r22 = bsplength_off,r8
- shr r19 = r19,3 // number of longs not bytes
- ;;
- mov r30 = ar.rnat
- add r20 = r16,r19 // total length to save
- st8 [r22] = r16 // store the bsp length
- adds r14 = bspbse_off,r8
- adds r17 = stkbse_off,r8
- ;;
- st8 [r14] = r44 // save current bsp
- st8 [r17] = r18 // stkbse same as parent stkbse
- adds r22 = parent_off,r8
- st8 [r21] = r20 // store the length
- ;;
- adds r21 = rnat_off,r8
- st8 [r22] = r40 // store parent continuation
- mov r29 = ar.lc // need to preserve ar.lc
- mov r28 = pr // need to preserve pr.rot
- adds r16 = -1,r16
- ;;
- st8 [r21] = r30 // store rnat's
- mov ar.lc = r16
- mov ar.ec = 3
- mov pr.rot = 0x10000
- adds r27 = cont_size,r8
- adds r19 = -1,r19
- ;;
-.L6:
- (p16) ld8 r32 = [r15],8
- (p18) st8 [r27] = r34,8
- br.ctop.sptk.few .L6
- ;;
- mov r26 = r12
- clrrrb
- ;;
- mov ar.ec = 3
- mov pr.rot = 0x10000
- mov ar.lc = r19
- ;;
-.L7:
- (p16) ld8 r32 = [r26],8
- (p18) st8 [r27] = r34,8
- br.ctop.sptk.few .L7
- ;;
- mov ar.lc = r29 // restore ar.lc
- mov pr = r28,0x1003e // restore pr
- mov ar.rsc = r31 // restore ar.rsc
- ;;
-.L5:
- mov ar.pfs = r42
- mov b0 = r41
- br.ret.sptk.many b0
- .endp make_continuation
-
-
- .global thrown_value
- .global longjmp
- .global dynthrow
- .proc dynthrow
-dynthrow:
- .prologue
- .save ar.pfs, r42
- alloc r42 = ar.pfs, 1,12, 2, 8
- mov r43 = r1
- .save rp, r44
- mov r44 = b0
- ld8 r40 = [r32],8
- mov r31 = ar.rsc
- movl r2 = ~0x3fff0003
- ;;
-.L3:
- flushrs
- adds r14 = bspbse_off,r40
- adds r17 = stkbse_off,r40
- and r30 = r2,r31
- ;;
- ld8 r41 = [r32]
- ld8 r15 = [r14] // bsp
- ld8 r18 = [r17] // stack base
- mov ar.rsc = r30 // set enforced idle
- ;;
-.L2:
- loadrs
- adds r21 = length_off,r40
- adds r22 = bsplength_off,r40
- ;;
- mov ar.bspstore = r15
- ld8 r16 = [r21] // get total length (number of longs)
- ld8 r17 = [r22] // get bsp length (number of longs)
- ;;
- sub r20 = r16,r17 // compute stack length
- shl r25 = r17,3
- ;;
- mov r29 = ar.lc // need to preserve ar.lc
- mov r28 = pr // need to preserve pr.rot
- sub r15 = r15,r25 // adjust bsp beginning
- shl r14 = r20,3
- adds r17 = -1,r17
- adds r21 = rnat_off,r40
- ;;
- sub r18 = r18,r14 // adjust stack to lowest
- mov ar.lc = r17
- mov ar.ec = 3
- mov pr.rot = 0x10000
- adds r27 = cont_size,r40
- adds r20 = -1,r20
- ;;
-.L8:
- (p16) ld8 r32 = [r27],8
- (p18) st8 [r15] = r34,8
- br.ctop.sptk.few .L8
- ;;
- ld8 r14 = [r21] // get the rnat's
- clrrrb
- ;;
- mov ar.ec = 3
- mov pr.rot = 0x10000
- mov ar.lc = r20
- ;;
-.L9:
- (p16) ld8 r32 = [r27],8
- (p18) st8 [r18] = r34,8
- br.ctop.sptk.few .L9
- ;;
- mov ar.rnat = r14
- mov ar.lc = r29 // restore ar.lc
- mov pr = r28,0x1003e // restore pr
- addl r26 = @gprel(thrown_value),gp
- ;;
- mov ar.rsc = r31 // restore ar.rsc
- st8 [r26] = r41
- mov r45 = r40
- mov r46 = 1
- ;;
- br.call.sptk.many b0 = longjmp
-// the following should not be executed
- mov r1 = r43
- mov ar.pfs = r42
- mov b0 = r44
- br.ret.sptk.many b0
- .endp dynthrow
-
- .global mark_locations
- .global mark_regs_ia64
- .proc mark_regs_ia64
-mark_regs_ia64:
- .prologue
- .save ar.pfs, r35
- alloc r35 = ar.pfs, 1, 4, 2, 0
- .save rp, r33
- mov r33 = b0
- mov r36 = r1
- mov r34 = r12
- adds r17 = stkbse_off, r32
- ;;
- adds r12 = -32, r12
- ld8 r19 = [r17]
- ;;
- adds r18 = 16,r12
- ;;
- sub r38 = r19, r18
- ;;
- st8 [r18] = r4, 8
- shr r38 = r38, 3
- ;;
- st8 [r18] = r5, 8
- ;;
- st8 [r18] = r6, 8
- ;;
- st8 [r18] = r7
- mov r37 = r12
- br.call.sptk.many b0 = mark_locations
- flushrs
- mov r1 = r36
- adds r17 = bspbse_off, r32
- ;;
- mov r20 = ar.bsp
- ;;
- ld8 r37 = [r17]
- ;;
- sub r38 = r20, r37
- ;;
- shr r38 = r38, 3
- br.call.sptk.many b0 = mark_locations
- mov r1 = r36
- mov r12 = r34
- mov ar.pfs = r35
- mov b0 = r33
- br.ret.sptk.many b0
- .endp mark_regs_ia64
diff --git a/SCM/continue.c b/SCM/continue.c
deleted file mode 100644
index 1f8c6de..0000000
--- a/SCM/continue.c
+++ /dev/null
@@ -1,242 +0,0 @@
-/* "continue.c" Scheme Continuations for C.
- * Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License as
- * published by the Free Software Foundation, either version 3 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this program. If not, see
- * <http://www.gnu.org/licenses/>.
- */
-
-/* Author: Aubrey Jaffer */
-
-/* "setjump.h" contains definitions for the `other' field (type
- CONTINUATION_OTHER) the struct Continuation. "setjump.h" must
- #include "continue.h". CONTINUATION_OTHER defaults to `long' */
-
-#define IN_CONTINUE_C
-#ifdef USE_CONTINUE_H
-# include "continue.h"
-#else
-# include "setjump.h"
-#endif
-
-/* For platforms with short integers, we use thrown_value instead of
- the value returned from setjump so that any (long) value can be
- returned. */
-
-#ifdef SHORT_INT
-long thrown_value;
-#endif
-
-/* stack_size() returns the number of units of size STACKITEM which
- fit between @var{start} and the current top of stack. No check is
- done in this routine to ensure that @var{start} is actually in the
- current stack segment. */
-
-long stack_size(start)
- STACKITEM *start;
-{
- STACKITEM stack;
-#ifdef STACK_GROWS_UP
- return &stack - start;
-#else
- return start - &stack;
-#endif /* def STACK_GROWS_UP */
-}
-
-/* make_root_continuation() allocates (malloc) storage for a
- CONTINUATION near the current extent of stack. This newly
- allocated CONTINUATION is returned if successful, 0 if not. After
- make_root_continuation() returns, the calling routine still needs
- to `setjump(new_continuation->jmpbuf)' in order to complete the
- capture of this continuation. */
-
-#ifndef __ia64__
-CONTINUATION *make_root_continuation(stack_base)
- STACKITEM *stack_base;
-{
- CONTINUATION *cont;
- cont = (CONTINUATION *)malloc(sizeof(CONTINUATION));
- if (!cont) return 0;
- cont->length = 0;
- cont->stkbse = stack_base;
- cont->parent = cont;
- return cont;
-}
-
-/* make_continuation() allocates storage for the current continuation,
- copying (or encapsulating) the stack state from parent_cont->stkbse
- to the current top of stack. The newly allocated CONTINUATION is
- returned if successful, 0 if not. After make_continuation()
- returns, the calling routine still needs to
- `setjump(new_continuation->jmpbuf)' in order to complete the capture
- of this continuation. */
-
-/* Note: allocating local (stack) storage for the CONTINUATION would
- not work; Think about it. */
-
-CONTINUATION *make_continuation(parent_cont)
- CONTINUATION *parent_cont;
-{
- CONTINUATION *cont;
-# ifdef CHEAP_CONTINUATIONS
- cont = (CONTINUATION *)malloc(sizeof(CONTINUATION));
- if (!cont) return 0;
- cont->length = 0;
- cont->stkbse = parent_cont->stkbse;
-# else
- long j;
- register STACKITEM *src, *dst;
- FLUSH_REGISTER_WINDOWS;
- j = stack_size(parent_cont->stkbse);
- cont = (CONTINUATION *)malloc((sizeof(CONTINUATION) + j*sizeof(STACKITEM)));
- if (!cont) return 0;
- cont->length = j;
- cont->stkbse = parent_cont->stkbse;
- src = cont->stkbse;
-# ifdef STACK_GROWS_UP
- src += parent_cont->length;
-# else
- src -= parent_cont->length + cont->length;
-# endif/* ndef STACK_GROWS_UP */
- dst = (STACKITEM *)(cont + 1);
- for (j = cont->length; 0 <= --j; ) *dst++ = *src++;
-# endif /* ndef CHEAP_CONTINUATIONS */
- cont->parent = parent_cont;
- return cont;
-}
-#endif
-
-/* free_continuation() is trivial, but who knows what the future
- holds. */
-
-void free_continuation(cont)
- CONTINUATION *cont;
-{
- free(cont);
-}
-
-/* Final routine involved in throw()ing to a continuation. After
- ensuring that there is sufficient room on the stack for the saved
- continuation, dynthrow() copies the continuation onto the stack and
- longjump()s into it. The routine does not return. */
-
-/* If you use conservative GC and your Sparc(SUN-4) heap is growing
- out of control:
-
- You are experiencing a GC problem peculiar to the Sparc. The
- problem is that SCM doesn't know how to clear register windows.
- Every location which is not reused still gets marked at GC time.
- This causes lots of stuff which should be collected to not be.
- This will be a problem with any *conservative* GC until we find
- what instruction will clear the register windows. This problem is
- exacerbated by using lots of make-CONTINUATION.
-
- Possibly adding the following before the thrown_value = val; line
- might help to clear out unused stack above the continuation (a
- small part of the problem).
-
-#ifdef sparc
- bzero((void *)&a, sizeof(STACKITEM) *
- (((STACKITEM *)&a) - (dst - cont->length)))
-#endif
-
- Let me know if you try it. */
-
-/* SCM_GROWTH is how many `long's to grow the stack by when we need room. */
-#define SCM_GROWTH 100
-
-#ifndef __ia64__
-void dynthrow(a)
- long *a;
-{
- register CONTINUATION *cont = (CONTINUATION *)(a[0]);
- long val = a[1];
-# ifndef CHEAP_CONTINUATIONS
- register long j;
- register STACKITEM *src, *dst = cont->stkbse;
-# ifdef STACK_GROWS_UP
-# ifndef hpux
- if (a[2] && (a - ((long *)a[3]) < SCM_GROWTH))
- puts("grow_throw: check if long growth[]; being optimized out");
-# endif
- /* if (a[2]) fprintf(stderr, " ct = %ld, dist = %ld\n", a[2], (((long *)a[3]) - a)); */
- if (PTR_GE(dst + (cont->length), (STACKITEM *)&a)) grow_throw(a);
-# else
-# ifndef hpux
- if (a[2] && (((long *)a[3]) - a < SCM_GROWTH))
- puts("grow_throw: check if long growth[]; being optimized out");
-# endif
- /* if (a[2]) fprintf(stderr, " ct = %ld, dist = %ld\n", a[2], (((long *)a[3]) - a)); */
- dst -= cont->length;
- if (PTR_LE(dst, (STACKITEM *)&a)) grow_throw(a);
-# endif/* def STACK_GROWS_UP */
- FLUSH_REGISTER_WINDOWS;
- src = (STACKITEM *)(cont + 1);
- for (j = cont->length;0 <= --j;) *dst++ = *src++;
-# endif /* ndef CHEAP_CONTINUATIONS */
-# ifdef SHORT_INT
- thrown_value = val;
- longjump(cont->jmpbuf, 1);
-# else
- longjump(cont->jmpbuf, val);
-# endif
-}
-
-/* grow_throw() grows the stack by SCM_GROWTH long words. If the
- "sizeof growth" assignment is not sufficient to restrain your
- overly optimistic compiler, the stack will grow by much less and
- grow_throw() and dynthrow() will waste time calling each other. To
- fix this you will have to compile grow_throw() in a separate file
- so the compiler won't be able to guess that the growth array isn't
- all used. */
-
-# ifndef CHEAP_CONTINUATIONS
-void grow_throw(a) /* Grow the stack so that there is room */
- long *a; /* to copy in the continuation. Then */
-{ /* retry the throw. */
- long growth[SCM_GROWTH];
- growth[0] = a[0];
- growth[1] = a[1];
- growth[2] = a[2] + 1;
- growth[3] = (long) a;
- growth[SCM_GROWTH-1] = sizeof growth;
- dynthrow(growth);
-}
-# endif /* ndef CHEAP_CONTINUATIONS */
-#endif
-
-/* throw_to_continuation() restores the stack in effect when
- @var{cont} was made and resumes @var{cont}'s processor state. If
- the stack cannot be resotred because @var{cont} and @var{root_cont}
- do not have the same stkbase, @code{throw_to_continuation()
- returns. */
-
-/* Note: If 2 or more @var{cont}s share a parent continuation and if
- the values of stack allocated variables in that parent continuation
- are changed, the results are unspecified. This is because the
- parent continuation may or may not be reloaded, depending on what
- other throws have intervened. */
-
-void throw_to_continuation(cont, val, root_cont)
- CONTINUATION *cont;
- long val;
- CONTINUATION *root_cont;
-{
- long a[3];
- a[0] = (long)cont;
- a[1] = val;
- a[2] = 0;
- if (cont->stkbse != root_cont->stkbse)
- return; /* Stale continuation */
- dynthrow(a);
-}
diff --git a/SCM/continue.h b/SCM/continue.h
deleted file mode 100644
index d901e01..0000000
--- a/SCM/continue.h
+++ /dev/null
@@ -1,185 +0,0 @@
-/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2006 Free Software Foundation, Inc.
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License as
- * published by the Free Software Foundation, either version 3 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this program. If not, see
- * <http://www.gnu.org/licenses/>.
- */
-
-/* "continue.h" Scheme Continuations for C.
- Author: Aubrey Jaffer. */
-
-#ifndef STDC_HEADERS
-#define STDC_HEADERS 1
-#endif
-
-#include <stdlib.h>
-
-/* If stack is not longword aligned then */
-
-/* #define SHORT_ALIGN */
-#ifdef THINK_C
-# define SHORT_ALIGN
-#endif
-#ifdef __MWERKS__
-# ifdef __MC68K__
-# define SHORT_ALIGN
-# endif
-#endif
-#ifdef MSDOS
-# ifndef _M_ARM
-/* arm processors need DWORD aligned data access */
-# define SHORT_ALIGN
-# endif
-#endif
-#ifdef atarist
-# define SHORT_ALIGN
-#endif
-
-#ifdef SHORT_ALIGN
-typedef short STACKITEM;
-#else
-typedef long STACKITEM;
-#endif
-
-/* If stacks grow up then */
-
-/* #define STACK_GROWS_UP */
-#ifdef hp9000s800
-# define STACK_GROWS_UP
-#endif
-#ifdef pyr
-# define STACK_GROWS_UP
-#endif
-#ifdef nosve
-# define STACK_GROWS_UP
-#endif
-#ifdef _UNICOS
-# define STACK_GROWS_UP
-#endif
-
-/* James Clark came up with this neat one instruction fix for
- continuations on the SPARC. It flushes the register windows so
- that all the state of the process is contained in the stack. */
-
-#ifdef sparc
-# define FLUSH_REGISTER_WINDOWS asm("ta 3")
-#else
-# define FLUSH_REGISTER_WINDOWS /* empty */
-#endif
-
-#ifdef vax
-# ifndef CHEAP_CONTINUATIONS
-
-typedef int jump_buf[17];
-extern int setjump(jump_buf env);
-extern int longjump(jump_buf env, int ret);
-
-# else
-# include <setjmp.h>
-# define jump_buf jmp_buf
-# define setjump setjmp
-# define longjump longjmp
-# endif
-#else /* ndef vax */
-# ifdef _CRAY1
-
-typedef int jump_buf[112];
-extern int setjump(jump_buf env);
-extern int longjump(jump_buf env, int ret);
-
-# else /* ndef _CRAY1 */
-# ifndef PLAN9
-# include <setjmp.h>
-# include <signal.h>
-# endif
-# ifdef SIG_UNBLOCK
-# define jump_buf sigjmp_buf
-# define setjump(buf) sigsetjmp((buf), !0)
-# define longjump siglongjmp
-# else
-# define jump_buf jmp_buf
-# define setjump setjmp
-# define longjump longjmp
-# endif /* ndef SIG_UNBLOCK */
-# endif /* ndef _CRAY1 */
-#endif /* ndef vax */
-
-/* `other' is a CONTINUATION slot for miscellaneous data of type
- CONTINUATION_OTHER. */
-
-#ifndef CONTINUATION_OTHER
-# define CONTINUATION_OTHER int
-#endif
-
-struct Continuation {jump_buf jmpbuf;
- long thrwval;
- long length;
- STACKITEM *stkbse;
-#ifdef __ia64__
- long *bspbse;
- long bsplength;
- long rnat;
-#endif
- CONTINUATION_OTHER other;
- struct Continuation *parent;
- };
-typedef struct Continuation CONTINUATION;
-
-#ifndef P
-# ifdef USE_ANSI_PROTOTYPES
-# define P(s) s
-# else
-# define P(s) ()
-# endif
-#endif
-
-extern long thrown_value;
-long stack_size P((STACKITEM *start));
-CONTINUATION *make_root_continuation P((STACKITEM *stack_base));
-CONTINUATION *make_continuation P((CONTINUATION *parent_cont));
-void free_continuation P((CONTINUATION *cont));
-void dynthrow P((long *a));
-void grow_throw P((long *a));
-void throw_to_continuation P((CONTINUATION *cont, long val,
- CONTINUATION *root_cont));
-
-/* how to get the local definition for malloc */
-
-#ifndef STDC_HEADERS
-# ifndef malloc
- char *malloc P((sizet size));
-# endif
- char *realloc P((char *ptr, sizet size));
-#endif
-
-/* PTR_LT defines how to compare two addresses (which may not be in
- the same array). */
-
-#if defined(__TURBOC__) && !defined(__TOS__)
-# ifdef PROT386
-# define PTR_LT(x, y) (((long)(x)) < ((long)(y)))
-# else
-# define PTR_LT(x, y) ((x) < (y))
-# endif
-#else /* not __TURBOC__ */
-# ifdef nosve
-# define PTR_MASK 0xffffffffffff
-# define PTR_LT(x, y) (((int)(x)&PTR_MASK) < ((int)(y)&PTR_MASK))
-# else
-# define PTR_LT(x, y) ((x) < (y))
-# endif
-#endif
-
-#define PTR_GT(x, y) PTR_LT(y, x)
-#define PTR_LE(x, y) (!PTR_GT(x, y))
-#define PTR_GE(x, y) (!PTR_LT(x, y))
diff --git a/SCM/scm.h b/SCM/scm.h
deleted file mode 100644
index 763f2b2..0000000
--- a/SCM/scm.h
+++ /dev/null
@@ -1,1145 +0,0 @@
-/* "scm.h" SCM data types and external functions.
- * Copyright (C) 1990-2006 Free Software Foundation, Inc.
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License as
- * published by the Free Software Foundation, either version 3 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this program. If not, see
- * <http://www.gnu.org/licenses/>.
- */
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef _WIN32
-# include <windows.h>
-#endif
-
-#ifdef _WIN32_WCE
-# include <windows.h>
-#endif
-
-#ifdef hpux
-# ifndef __GNUC__
-# define const /**/
-# endif
-#endif
-
-#ifdef PLAN9
-# include <u.h>
-# include <libc.h>
-/* Simple imitation of some Unix system calls */
-# define exit(val) exits("")
-# define getcwd getwd
-/* we have our own isatty */
-int isatty (int);
-#endif
-
-typedef long SCM;
-typedef struct {SCM car, cdr;} cell;
-typedef struct {long sname;SCM (*cproc)();} subr;
-typedef struct {long sname;double (*dproc)();} dsubr;
-typedef struct {const char *string;SCM (*cproc)();} iproc;
-typedef struct {const char *name;} subr_info;
-
-#include <stdio.h>
-#include "scmfig.h"
-
-#ifdef _WIN32
-# ifdef SCM_WIN_DLL
-# define SCM_DLL_EXPORT __declspec(dllexport)
-# define SCM_EXPORT SCM_DLL_EXPORT
-# else
-# define SCM_DLL_EXPORT /**/
-# define SCM_EXPORT extern
-# endif
-#else
-# define SCM_DLL_EXPORT /**/
-# define SCM_EXPORT extern
-#endif
-
-
-typedef struct {
- sizet eltsize;
- sizet len;
- sizet alloclen;
- sizet maxlen;
- const char *what;
- char *elts;} scm_gra;
-
-#ifdef USE_ANSI_PROTOTYPES
-# define P(s) s
-#else
-# define P(s) ()
-#endif
-
-#ifndef STDC_HEADERS
- int isatty P((int));
-#endif
-
-typedef struct {
- SCM (*mark)P((SCM));
- sizet (*free)P((CELLPTR));
- int (*print)P((SCM exp, SCM port, int writing));
- SCM (*equalp)P((SCM, SCM));
-} smobfuns;
-
-typedef struct {
- char *name;
- SCM (*mark)P((SCM ptr));
- int (*free)P((FILE *p));
- int (*print)P((SCM exp, SCM port, int writing));
- SCM (*equalp)P((SCM, SCM));
- int (*fputc)P((int c, FILE *p));
-/* int (*fputs)P((char *s, FILE *p)); */
-/* sizet (*fwrite)P((char *s, sizet siz, sizet num, FILE *p)); */
- int (*fputs)P((const char *s, FILE *p));
- sizet (*fwrite)P((const void *s, sizet siz, sizet num, FILE *p));
- int (*fflush)P((FILE *stream));
- int (*fgetc)P((FILE *p));
- int (*fclose)P((FILE *p));
- int (*ungetc)P((int c, SCM p));
-} ptobfuns;
-
-typedef struct {
- SCM data;
- SCM port;
- long flags;
- long line;
- int unread;
- short col;
- short colprev;
-} port_info;
-
-typedef struct {
- SCM v;
- sizet base;
-} array;
-typedef struct {
- long lbnd;
- long ubnd;
- long inc;
-} array_dim;
-
-#ifdef FLOATS
-typedef struct {char *string;double (*cproc)P((double));} dblproc;
-# ifdef SINGLES
-# ifdef CDR_DOUBLES
-typedef struct {SCM type;double num;} flo;
-# else
-typedef struct {SCM type;float num;} flo;
-# endif
-# endif
-typedef struct {SCM type;double *real;} dbl;
-#endif
-
- /* Conditionals should always expect immediates */
- /* GCC __builtin_expect() is stubbed in scmfig.h */
-#define IMP(x) SCM_EXPECT_TRUE(6 & PTR2INT(x))
-#define NIMP(x) (!IMP(x))
-
-#define INUMP(x) SCM_EXPECT_TRUE(2 & PTR2INT(x))
-#define NINUMP(x) (!INUMP(x))
-#define INUM0 ((SCM) 2)
-#define ICHRP(x) ((0xff & PTR2INT(x))==0xf4)
-#define ICHR(x) ((unsigned char)((x)>>8))
-#define MAKICHR(x) (((x)<<8)+0xf4L)
-
-#define ILOC00 (0x000000fcL)
-#define ILOCP(n) ((0xff & PTR2INT(n))==PTR2INT(ILOC00))
-#define MAKILOC(if, id) (ILOC00 + (((long)id)<<8) + (((long)if)<<16))
-#define IDIST(n) ((PTR2INT(n)>>8) & 0x7f)
-#define IFRAME(n) ((PTR2INT(n)>>16))
-#define ICDRP(n) (ICDR & (n))
-#define ICDR (1L<<15)
-
-/* ISYMP tests for ISPCSYM and ISYM */
-#define ISYMP(n) ((0x187 & PTR2INT(n))==4)
-/* IFLAGP tests for ISPCSYM, ISYM and IFLAG */
-#define IFLAGP(n) ((0x87 & PTR2INT(n))==4)
-#define ISYMNUM(n) ((PTR2INT((n)>>9)) & 0x7f)
-#define ISYMVAL(n) (PTR2INT((n)>>16))
-#define MAKISYMVAL(isym, val) ((isym) | ((long)(val) <<16))
-#define ISYMCHARS(n) (isymnames[ISYMNUM(n)])
-#define MAKSPCSYM(n) (((n)<<9)+((n)<<3)+4L)
-#define MAKISYM(n) (((n)<<9)+0x74L)
-#define MAKIFLAG(n) (((n)<<9)+0x174L)
-/* This is to make the print representation of some evaluated code,
- as in backtraces, make a little more sense. */
-#define MAKSPCSYM2(work, look) ((127L & (work)) | ((127L<<9) & (look)))
-
-SCM_EXPORT char *isymnames[];
-#define NUM_ISPCSYM 14
-#define IM_AND MAKSPCSYM(0)
-#define IM_BEGIN MAKSPCSYM(1)
-#define IM_CASE MAKSPCSYM(2)
-#define IM_COND MAKSPCSYM(3)
-#define IM_DO MAKSPCSYM(4)
-#define IM_IF MAKSPCSYM(5)
-#define IM_LAMBDA MAKSPCSYM(6)
-#define IM_LET MAKSPCSYM(7)
-#define IM_LETSTAR MAKSPCSYM(8)
-#define IM_LETREC MAKSPCSYM(9)
-#define IM_OR MAKSPCSYM(10)
-#define IM_QUOTE MAKSPCSYM(11)
-#define IM_SET MAKSPCSYM(12)
-#define IM_FUNCALL MAKSPCSYM(13)
-
-#define s_and (ISYMCHARS(IM_AND)+2)
-#define s_begin (ISYMCHARS(IM_BEGIN)+2)
-#define s_case (ISYMCHARS(IM_CASE)+2)
-#define s_cond (ISYMCHARS(IM_COND)+2)
-#define s_do (ISYMCHARS(IM_DO)+2)
-#define s_if (ISYMCHARS(IM_IF)+2)
-#define s_lambda (ISYMCHARS(IM_LAMBDA)+2)
-#define s_let (ISYMCHARS(IM_LET)+2)
-#define s_letstar (ISYMCHARS(IM_LETSTAR)+2)
-#define s_letrec (ISYMCHARS(IM_LETREC)+2)
-#define s_or (ISYMCHARS(IM_OR)+2)
-#define s_quote (ISYMCHARS(IM_QUOTE)+2)
-#define s_set (ISYMCHARS(IM_SET)+2)
-#define s_define (ISYMCHARS(IM_DEFINE)+2)
-#define s_delay (ISYMCHARS(IM_DELAY)+2)
-#define s_quasiquote (ISYMCHARS(IM_QUASIQUOTE)+2)
-#define s_let_syntax (ISYMCHARS(IM_LET_SYNTAX)+2)
-
-SCM_EXPORT SCM i_dot, i_quote, i_quasiquote, i_unquote, i_uq_splicing;
-#define s_apply (ISYMCHARS(IM_APPLY)+2)
-
-/* each symbol defined here must have a unique number which
- corresponds to it's position in isymnames[] in repl.c */
- /* These are used for dispatch in eval.c */
-#define IM_APPLY MAKISYM(14)
-#define IM_FARLOC_CAR MAKISYM(15)
-#define IM_FARLOC_CDR MAKISYM(16)
-#define IM_DELAY MAKISYM(17)
-#define IM_QUASIQUOTE MAKISYM(18)
-#define IM_EVAL_FOR_APPLY MAKISYM(19)
-#define IM_LET_SYNTAX MAKISYM(20)
-#define IM_ACRO_CALL MAKISYM(21)
-#define IM_LINUM MAKISYM(22)
-#define IM_DEFINE MAKISYM(23)
-#define IM_EVAL_VALUES MAKISYM(24)
-
- /* These are not used for dispatch. */
-#define IM_UNQUOTE MAKISYM(25)
-#define IM_UQ_SPLICING MAKISYM(26)
-#define IM_ELSE MAKISYM(27)
-#define IM_ARROW MAKISYM(28)
-#define IM_VALUES_TOKEN MAKISYM(29)
-#define IM_KEYWORD MAKISYM(30)
-
-#define NUM_ISYMS 31
-
-#define SCM_MAKE_LINUM(n) (IM_LINUM | ((unsigned long)(n))<<16)
-#define SCM_LINUM(x) ((unsigned long)(x)>>16)
-#define SCM_LINUMP(x) ((0xffffL & (x))==IM_LINUM)
-
-#define BOOL_F MAKIFLAG(NUM_ISYMS+0)
-#define BOOL_T MAKIFLAG(NUM_ISYMS+1)
-#define UNDEFINED MAKIFLAG(NUM_ISYMS+2)
-#define EOF_VAL MAKIFLAG(NUM_ISYMS+3)
-#ifdef SICP
-# define EOL BOOL_F
-#else
-# define EOL MAKIFLAG(NUM_ISYMS+4)
-#endif
-#define UNSPECIFIED MAKIFLAG(NUM_ISYMS+5)
-#define NUM_IFLAGS NUM_ISYMS+6
-
-/* Now some unnamed flags used as magic cookies by scm_top_level. */
-/* Argument n can range from -4 to 16 */
-#ifdef SHORT_INT
-# define COOKIE(n) (n)
-# define UNCOOK(f) (f)
-#else
-# define COOKIE(n) MAKIFLAG(NUM_IFLAGS+4+n)
-# define UNCOOK(f) (ISYMNUM(f)-(NUM_IFLAGS+4))
-#endif
-
-#define FALSEP(x) (BOOL_F==(x))
-#define NFALSEP(x) (BOOL_F != (x))
-/* BOOL_NOT returns the other boolean. The order of ^s here is
- important for Borland C++. */
-#define BOOL_NOT(x) ((x) ^ (BOOL_T ^ BOOL_F))
-#define NULLP(x) (EOL==(x))
-#define NNULLP(x) (EOL != (x))
-#define UNBNDP(x) (UNDEFINED==(x))
-#define CELLP(x) (!NCELLP(x))
-#define NCELLP(x) ((sizeof(cell)-1) & PTR2INT(x))
-
-#define GCMARKP(x) (1 & PTR2INT(CDR(x)))
-#define GC8MARKP(x) (0x80 & PTR2INT(CAR(x)))
-#define SETGCMARK(x) CDR(x) |= 1;
-#define CLRGCMARK(x) CDR(x) &= ~1L;
-#define SETGC8MARK(x) CAR(x) |= 0x80;
-#define CLRGC8MARK(x) CAR(x) &= ~0x80L;
-#define TYP3(x) (7 & PTR2INT(CAR(x)))
-#define TYP7(x) (0x7f & PTR2INT(CAR(x)))
-#define TYP7S(x) (0x7d & PTR2INT(CAR(x)))
-#define TYP16(x) (0xffff & PTR2INT(CAR(x)))
-#define TYP16S(x) (0xfeff & PTR2INT(CAR(x)))
-#define GCTYP16(x) (0xff7f & PTR2INT(CAR(x)))
-
-#define NCONSP(x) (1 & PTR2INT(CAR(x)))
-#define CONSP(x) (!NCONSP(x))
-#define ECONSP(x) (CONSP(x) || (1==TYP3(x)))
-#define NECONSP(x) (NCONSP(x) && (1 != TYP3(x)))
-#define SCM_GLOCP(x) (tc3_cons_gloc==(7 & PTR2INT(x)))
-
-#define CAR(x) (((cell *)(SCM2PTR(x)))->car)
-#define CDR(x) (((cell *)(SCM2PTR(x)))->cdr)
-#define GCCDR(x) (~1L & CDR(x))
-#define SETCDR(x, v) CDR(x) = (SCM)(v)
-
-#ifdef _M_ARM
-/* MS CLARM compiler bug workaround. */
-volatile SCM MS_CLARM_dumy;
-# define CODE(x) (MS_CLARM_dumy = (CAR(x)-tc3_closure))
-#else
-# define CODE(x) (CAR(x)-tc3_closure)
-#endif
-#define CLOSUREP(x) (TYP3(x)==tc3_closure)
-#define SETCODE(x, e) CAR(x) = (e)+tc3_closure
-#define ENV(x) ((~7L & CDR(x)) ? (~7L & CDR(x)) : EOL)
-#define GCENV ENV
-#define ARGC(x) ((6L & CDR(x))>>1)
-#ifdef CAUTIOUS
-# define SCM_ESTK_FRLEN 4
-#else
-# define SCM_ESTK_FRLEN 3
-#endif
-#define SCM_ESTK_BASE 4
-#define SCM_ESTK_PARENT(v) (VELTS(v)[0])
-#define SCM_ESTK_PARENT_WRITABLEP(v) (VELTS(v)[1])
-#define SCM_ESTK_PARENT_INDEX(v) (VELTS(v)[2])
-SCM_EXPORT long tc16_env, tc16_ident;
-#define ENVP(x) (tc16_env==TYP16(x))
-#define SCM_ENV_FORMALS CAR
-#ifdef MACRO
-# define M_IDENTP(x) (tc16_ident==TYP16(x))
-# define M_IDENT_LEXP(x) ((tc16_ident | (1L<<16))==CAR(x))
-# define IDENTP(x) (SYMBOLP(x) || M_IDENTP(x))
-# define IDENT_PARENT(x) (M_IDENT_LEXP(x) ? CAR(CDR(x)) : CDR(x))
-# define IDENT_ENV(x) (M_IDENT_LEXP(x) ? CDR(CDR(x)) : BOOL_F)
-#else
-# define IDENTP SYMBOLP
-# define M_IDENTP(x) (0)
-#endif
-
- /* markers for various static environment frame types */
- /* FIXME these need to be exported somehow to Scheme */
-#ifdef CAUTIOUS
-# define SCM_ENV_FILENAME MAKINUM(1)
-# define SCM_ENV_PROCNAME MAKINUM(2)
-#endif
-#define SCM_ENV_DOC MAKINUM(3)
-#define SCM_ENV_ANNOTATION MAKINUM(4)
-#define SCM_ENV_CONSTANT MAKINUM(5)
-#define SCM_ENV_SYNTAX MAKINUM(6)
-#define SCM_ENV_END MAKINUM(7)
-
-#define PORTP(x) (TYP7(x)==tc7_port)
-#define OPPORTP(x) (((0x7f | OPN) & CAR(x))==(tc7_port | OPN))
-#define OPINPORTP(x) (((0x7f | OPN | RDNG) & CAR(x))==(tc7_port | OPN | RDNG))
-#define OPOUTPORTP(x) (((0x7f | OPN | WRTNG) & CAR(x))==(tc7_port | OPN | WRTNG))
-#define OPIOPORTP(x) (((0x7f | OPN | RDNG | WRTNG) & CAR(x))==(tc7_port | OPN | RDNG | WRTNG))
-#define FPORTP(x) (TYP16S(x)==tc7_port)
-#define OPFPORTP(x) (((0xfeff | OPN) & CAR(x))==(tc7_port | OPN))
-#define OPINFPORTP(x) (((0xfeff | OPN | RDNG) & CAR(x))==(tc7_port | OPN | RDNG))
-#define OPOUTFPORTP(x) (((0xfeff | OPN | WRTNG) & CAR(x))==(tc7_port | OPN | WRTNG))
-
-#define INPORTP(x) (((0x7f | RDNG) & CAR(x))==(tc7_port | RDNG))
-#define OUTPORTP(x) (((0x7f | WRTNG) & CAR(x))==(tc7_port | WRTNG))
-#define OPENP(x) (OPN & CAR(x))
-#define CLOSEDP(x) (!OPENP(x))
-#define STREAM(x) ((FILE *)(CDR(x)))
-#define SETSTREAM SETCDR
-#define CRDYP(port) ((CAR(port) & CRDY) && (EOF != CGETUN(port)))
-#define CLRDY(port) (CAR(port) &= (SCM_PORTFLAGS(port) | (~0xf0000)))
-#define CGETUN(port) (scm_port_table[SCM_PORTNUM(port)].unread)
-
-#define tc_socket (tc7_port | OPN)
-#define SOCKP(x) (((0x7f | OPN | RDNG | WRTNG) & CAR(x))==(tc_socket))
-#define SOCKTYP(x) (INUM(SCM_PORTDATA(x)))
-
-#define DIRP(x) (NIMP(x) && (TYP16(x)==(tc16_dir)))
-#define OPDIRP(x) (NIMP(x) && (CAR(x)==(tc16_dir | OPN)))
-
-#ifdef FLOATS
-# define INEXP(x) (TYP16(x)==tc16_flo)
-# define CPLXP(x) (CAR(x)==tc_dblc)
-# define REAL(x) (*(((dbl *) (SCM2PTR(x)))->real))
-# define IMAG(x) (*((double *)(CHARS(x)+sizeof(double))))
-/* ((&REAL(x))[1]) */
-# ifdef SINGLES
-# define REALP(x) ((~REAL_PART & CAR(x))==tc_flo)
-# define SINGP(x) SCM_EXPECT_TRUE(CAR(x)==tc_flo)
-# define FLO(x) (((flo *)(SCM2PTR(x)))->num)
-# define REALPART(x) (SINGP(x)?0.0+FLO(x):REAL(x))
-# else /* SINGLES */
-# define REALP(x) (CAR(x)==tc_dblr)
-# define REALPART REAL
-# endif /* SINGLES */
-#endif
-
-#ifdef FLOATS
-# define NUMBERP(x) (INUMP(x) || (NIMP(x) && NUMP(x)))
-#else
-# ifdef BIGDIG
-# define NUMBERP(x) (INUMP(x) || (NIMP(x) && NUMP(x)))
-# else
-# define NUMBERP INUMP
-# endif
-#endif
-#define NUMP(x) ((0xfcff & PTR2INT(CAR(x)))==tc7_smob)
-#define BIGP(x) (TYP16S(x)==tc16_bigpos)
-#define BIGSIGN(x) (0x0100 & PTR2INT(CAR(x)))
-#define BDIGITS(x) ((BIGDIG *)(CDR(x)))
-#define NUMDIGS(x) ((sizet)(((unsigned long)CAR(x))>>16))
-#define MAKE_NUMDIGS(v, t) ((((v)+0L)<<16)+(t))
-#define SETNUMDIGS(x, v, t) CAR(x) = MAKE_NUMDIGS(v, t)
-
-#define SNAME(x) ((char *)(subrs[NUMDIGS(x)].name))
-#define SUBRF(x) (((subr *)(SCM2PTR(x)))->cproc)
-#define DSUBRF(x) (((dsubr *)(SCM2PTR(x)))->dproc)
-#define CCLO_SUBR(x) (VELTS(x)[0])
-#define CCLO_LENGTH NUMDIGS
-#define CXR_OP SMOBNUM
-
-#define SYMBOLP(x) (TYP7S(x)==tc7_ssymbol)
-#define STRINGP(x) (TYP7(x)==tc7_string)
-#define NSTRINGP(x) (!STRINGP(x))
-#define BYTESP(x) (TYP7(x)==tc7_VfixN8)
-#define VECTORP(x) (TYP7(x)==tc7_vector)
-#define NVECTORP(x) (!VECTORP(x))
-#define LENGTH(x) (((unsigned long)CAR(x))>>8)
-#define LENGTH_MAX (((unsigned long)-1L)>>8)
-#define MAKE_LENGTH(v, t) ((((v)+0L)<<8) + (t))
-#define SETLENGTH(x, v, t) CAR(x) = MAKE_LENGTH(v, t)
-#define CHARS(x) ((char *)(CDR(x)))
-#define UCHARS(x) ((unsigned char *)(CDR(x)))
-#define VELTS(x) ((SCM *)CDR(x))
-#define SETCHARS SETCDR
-#define SETVELTS SETCDR
-
-SCM_EXPORT long tc16_array;
-#define ARRAYP(a) (tc16_array==TYP16(a))
-#define ARRAY_V(a) (((array *)CDR(a))->v)
-/*#define ARRAY_NDIM(x) NUMDIGS(x)*/
-#define ARRAY_NDIM(x) ((sizet)(CAR(x)>>17))
-#define ARRAY_CONTIGUOUS 0x10000
-#define ARRAY_CONTP(x) (ARRAY_CONTIGUOUS & PTR2INT(CAR(x)))
-#define ARRAY_BASE(a) (((array *)CDR(a))->base)
-#define ARRAY_DIMS(a) ((array_dim *)(CHARS(a)+sizeof(array)))
-
-#define FREEP(x) (CAR(x)==tc_free_cell)
-#define NFREEP(x) (!FREEP(x))
-
-#define SMOBNUM(x) (0x0ff & (CAR(x)>>8))
-#define PTOBNUM(x) (0x0ff & (CAR(x)>>8))
-#define SCM_PORTNUM(x) ((int)(((unsigned long)CAR(x))>>20))
-#define SCM_PORTNUM_MAX ((int)((0x7fffUL<<20)>>20))
-#define SCM_PORTFLAGS(x) (scm_port_table[SCM_PORTNUM(x)].flags)
-#define SCM_PORTDATA(x) (scm_port_table[SCM_PORTNUM(x)].data)
-#define SCM_SETFLAGS(x, flags) (CAR(x) = (CAR(x) & ~0x0f0000L) | (flags))
-/* This is used (only) for closing ports. */
-#define SCM_SET_PTOBNUM(x, typ) (CAR(x)=(typ)|(CAR(x) & ~0x0ffffL))
-
-#define DIGITS '0':case '1':case '2':case '3':case '4':\
- case '5':case '6':case '7':case '8':case '9'
-
-/* Aggregated types for dispatch in switch statements. */
-
-#define tcs_cons_inum 2: case 6:case 10:case 14:\
- case 18:case 22:case 26:case 30:\
- case 34:case 38:case 42:case 46:\
- case 50:case 54:case 58:case 62:\
- case 66:case 70:case 74:case 78:\
- case 82:case 86:case 90:case 94:\
- case 98:case 102:case 106:case 110:\
- case 114:case 118:case 122:case 126
-#define tcs_cons_iloc 124
-#define tcs_cons_ispcsym 4:case 12:case 20:case 28:\
- case 36:case 44:case 52:case 60:\
- case 68:case 76:case 84:case 92:\
- case 100:case 108
-#define tcs_cons_chflag 116 /* char *or* flag */
-#define tcs_cons_imcar tcs_cons_inum:\
- case tcs_cons_iloc:\
- case tcs_cons_ispcsym:\
- case tcs_cons_chflag
-
-#define tcs_cons_nimcar 0:case 8:case 16:case 24:\
- case 32:case 40:case 48:case 56:\
- case 64:case 72:case 80:case 88:\
- case 96:case 104:case 112:case 120
-#define tcs_cons_gloc 1:case 9:case 17:case 25:\
- case 33:case 41:case 49:case 57:\
- case 65:case 73:case 81:case 89:\
- case 97:case 105:case 113:case 121
-
-#define tcs_closures 3:case 11:case 19:case 27:\
- case 35:case 43:case 51:case 59:\
- case 67:case 75:case 83:case 91:\
- case 99:case 107:case 115:case 123
-#define tcs_subrs tc7_asubr:case tc7_subr_0:case tc7_subr_1:case tc7_cxr:\
- case tc7_subr_3:case tc7_subr_2:case tc7_rpsubr:case tc7_subr_1o:\
- case tc7_subr_2o:case tc7_lsubr_2:case tc7_lsubr
-#define tcs_symbols tc7_ssymbol:case tc7_msymbol
-#define tcs_bignums tc16_bigpos:case tc16_bigneg
-#define tcs_uves tc7_string:case tc7_Vbool:case tc7_VfixN8:case tc7_VfixZ8:\
- case tc7_VfixN16:case tc7_VfixZ16:case tc7_VfixN32:case tc7_VfixZ32:\
- case tc7_VfloR32:case tc7_VfloC32:case tc7_VfloR64:case tc7_VfloC64
-
-#define tc3_cons_nimcar 0
-#define tc3_cons_imcar 2:case 4:case 6
-#define tc3_cons_gloc 1
-#define tc3_closure 3
-#define tc3_tc7_types 5:case 7
-
-#define tc7_ssymbol 5
-#define tc7_msymbol 7
-#define tc7_string 13
-#define tc7_vector 15
-#define tc7_Vbool 21
-
-/* 23 */
-
-#define tc7_VfixN8 29
-#define tc7_VfixZ8 31
-#define tc7_VfixN16 37
-#define tc7_VfixZ16 39
-#define tc7_VfixN32 45
-#define tc7_VfixZ32 47
-
-#define tc7_VfloR32 53
-#define tc7_VfloC32 55
-#define tc7_VfloR64 61
-#define tc7_VfloC64 63
-
-/* 69 */
-
-#define tc7_port 71
-#define tc7_contin 77
-#define tc7_specfun 79
-
-#define tc7_subr_0 85
-#define tc7_subr_1 87
-#define tc7_cxr 93
-#define tc7_subr_3 95
-#define tc7_subr_2 101
-#define tc7_asubr 103
-#define tc7_subr_1o 109
-#define tc7_subr_2o 111
-#define tc7_lsubr_2 117
-#define tc7_lsubr 119
-#define tc7_rpsubr 125
-
-#define tc7_smob 127
-#define tc_free_cell 127
-#define tc_broken_heart (tc_free_cell+0x10000)
-
-#define tc16_apply (tc7_specfun | (0L<<8))
-#define tc16_call_cc (tc7_specfun | (1L<<8))
-#define tc16_cclo (tc7_specfun | (2L<<8))
-#define tc16_eval (tc7_specfun | (3L<<8))
-#define tc16_values (tc7_specfun | (4L<<8))
-#define tc16_call_wv (tc7_specfun | (5L<<8))
-
-#define tc16_flo 0x017f
-#define tc_flo 0x017fL
-
-#define REAL_PART (1L<<16)
-#define IMAG_PART (2L<<16)
-#define tc_dblr (tc16_flo|REAL_PART)
-#define tc_dblc (tc16_flo|REAL_PART|IMAG_PART)
-
-#define tc16_bigpos 0x027f
-#define tc16_bigneg 0x037f
-
- /* The first four flags fit in the car of a port cell, remaining
- flags only in the port table */
-#define OPN (1L<<16)
-#define RDNG (2L<<16)
-#define WRTNG (4L<<16)
-#define CRDY (8L<<16)
-
-#define TRACKED (16L<<16)
-#define BINARY (32L<<16)
-#define BUF0 (64L<<16)
-#define EXCLUSIVE (128L<<16)
- /* LSB is used for gc mark */
-
-SCM_EXPORT scm_gra subrs_gra;
-#define subrs ((subr_info *)(subrs_gra.elts))
-/* SCM_EXPORT sizet numsmob, numptob;
- SCM_EXPORT smobfuns *smobs;
- SCM_EXPORT ptobfuns *ptobs;
- SCM_EXPORT ptobfuns pipob; */
-SCM_EXPORT scm_gra smobs_gra;
-#define numsmob (smobs_gra.len)
-#define smobs ((smobfuns *)(smobs_gra.elts))
-SCM_EXPORT scm_gra ptobs_gra;
-#define numptob (ptobs_gra.len)
-#define ptobs ((ptobfuns *)(ptobs_gra.elts))
-SCM_EXPORT port_info *scm_port_table;
-
-#define tc16_fport (tc7_port + 0*256L)
-#define tc16_pipe (tc7_port + 1*256L)
-#define tc16_strport (tc7_port + 2*256L)
-#define tc16_sfport (tc7_port + 3*256L)
-SCM_EXPORT long tc16_dir;
-SCM_EXPORT long tc16_clport;
-
-SCM_EXPORT SCM sys_protects[];
-#define cur_inp sys_protects[0]
-#define cur_outp sys_protects[1]
-#define cur_errp sys_protects[2]
-#define def_inp sys_protects[3]
-#define def_outp sys_protects[4]
-#define def_errp sys_protects[5]
-#define sys_errp sys_protects[6]
-#define sys_safep sys_protects[7]
-#define listofnull sys_protects[8]
-#define undefineds sys_protects[9]
-#define nullvect sys_protects[10]
-#define nullstr sys_protects[11]
-#define progargs sys_protects[12]
-#define loadports sys_protects[13]
-#define rootcont sys_protects[14]
-#define dynwinds sys_protects[15]
-#define list_unspecified sys_protects[16]
-#define f_evapply sys_protects[17]
-#define eval_env sys_protects[18]
-#define f_apply_closure sys_protects[19]
-#define flo0 sys_protects[20]
-#define scm_uprotects sys_protects[21]
-#define scm_narn sys_protects[22]
-#define NUM_PROTECTS 23
-
-/* now for connects between source files */
-
-/* SCM_EXPORT sizet num_finals;
- SCM_EXPORT void (**finals)P((void));
- SCM_EXPORT sizet num_finals; */
-SCM_EXPORT scm_gra finals_gra;
-#define num_finals (finals_gra.len)
-#define finals ((void (**)())(finals_gra.elts))
-
-SCM_EXPORT unsigned char upcase[], downcase[];
-SCM_EXPORT SCM symhash;
-SCM_EXPORT int symhash_dim;
-SCM_EXPORT long heap_cells;
-SCM_EXPORT CELLPTR heap_org;
-SCM_EXPORT VOLATILE SCM freelist;
-SCM_EXPORT long gc_cells_collected, gc_malloc_collected, gc_ports_collected;
-SCM_EXPORT long gc_syms_collected;
-SCM_EXPORT long cells_allocated, lcells_allocated, mallocated, lmallocated;
-SCM_EXPORT long mtrigger;
-SCM_EXPORT SCM *loc_loadpath;
-SCM_EXPORT SCM *loc_errobj;
-SCM_EXPORT SCM loadport;
-SCM_EXPORT char *errjmp_bad;
-SCM_EXPORT VOLATILE int ints_disabled;
-SCM_EXPORT int output_deferred, gc_hook_pending, gc_hook_active;
-SCM_EXPORT unsigned long SIG_deferred;
-SCM_EXPORT SCM exitval;
-SCM_EXPORT int cursinit;
-SCM_EXPORT unsigned int poll_count, tick_count;
-SCM_EXPORT int dumped;
-SCM_EXPORT char *execpath;
-SCM_EXPORT char s_no_execpath[];
-SCM_EXPORT int scm_verbose;
-#define verbose (scm_verbose+0)
-
-SCM_EXPORT const char dirsep[];
-
-/* strings used in several source files */
-
-SCM_EXPORT char s_write[], s_newline[], s_system[];
-SCM_EXPORT char s_make_string[], s_make_vector[], s_list[], s_op_pipe[];
-#define s_string (s_make_string+5)
-#define s_vector (s_make_vector+5)
-#define s_pipe (s_op_pipe+5)
-SCM_EXPORT char s_make_sh_array[];
-SCM_EXPORT char s_array_fill[];
-#define s_array (s_make_sh_array+12)
-SCM_EXPORT char s_ccl[];
-#define s_limit (s_ccl+10)
-SCM_EXPORT char s_close_port[];
-#define s_port_type (s_close_port+6)
-SCM_EXPORT char s_call_cc[];
-#define s_cont (s_call_cc+18)
-SCM_EXPORT char s_try_create_file[];
-SCM_EXPORT char s_badenv[];
-
-SCM_EXPORT void (*init_user_scm) P((void));
-
-/* function prototypes */
-
-SCM_EXPORT void (* deferred_proc) P((void));
-SCM_EXPORT void process_signals P((void));
-SCM_EXPORT int handle_it P((int i));
-SCM_EXPORT SCM must_malloc_cell P((long len, SCM c, const char *what));
-SCM_EXPORT void must_realloc_cell P((SCM z, long olen, long len, const char *what));
-SCM_EXPORT char *must_malloc P((long len, const char *what));
-SCM_EXPORT char *must_realloc P((char *where, long olen, long len, const char *what));
-SCM_EXPORT void must_free P((char *obj, sizet len));
-SCM_EXPORT void scm_protect_temp P((SCM *ptr));
-SCM_EXPORT long ilength P((SCM sx));
-SCM_EXPORT SCM hash P((SCM obj, SCM n));
-SCM_EXPORT SCM hashv P((SCM obj, SCM n));
-SCM_EXPORT SCM hashq P((SCM obj, SCM n));
-SCM_EXPORT SCM obhash P((SCM obj));
-SCM_EXPORT SCM obunhash P((SCM obj));
-SCM_EXPORT unsigned long strhash P((unsigned char *str, sizet len, unsigned long n));
-SCM_EXPORT unsigned long hasher P((SCM obj, unsigned long n, sizet d));
-SCM_EXPORT SCM lroom P((SCM args));
-SCM_EXPORT void lfflush P((SCM port));
-SCM_EXPORT SCM scm_force_output P((SCM port));
-SCM_EXPORT void scm_init_gra P((scm_gra *gra, sizet eltsize, sizet len,
- sizet maxlen, const char *what));
-SCM_EXPORT int scm_grow_gra P((scm_gra *gra, char *elt));
-SCM_EXPORT void scm_trim_gra P((scm_gra *gra));
-SCM_EXPORT void scm_free_gra P((scm_gra *gra));
-SCM_EXPORT long newsmob P((smobfuns *smob));
-SCM_EXPORT long newptob P((ptobfuns *ptob));
-SCM_EXPORT SCM scm_port_entry P((FILE *stream, long ptype, long flags));
-SCM_EXPORT SCM scm_open_ports P((void));
-SCM_EXPORT void prinport P((SCM exp, SCM port, char *type));
-SCM_EXPORT SCM repl P((void));
-SCM_EXPORT void repl_report P((void));
-SCM_EXPORT void growth_mon P((char *obj, long size, char *units, int grewp));
-SCM_EXPORT void gc_start P((const char *what));
-SCM_EXPORT void gc_end P((void));
-SCM_EXPORT void gc_mark P((SCM p));
-SCM_EXPORT void scm_gc_hook P((void));
-SCM_EXPORT SCM scm_gc_protect P((SCM obj));
-SCM_EXPORT SCM scm_add_finalizer P((SCM value, SCM finalizer));
-SCM_EXPORT void scm_run_finalizers P((int exiting));
-SCM_EXPORT void scm_egc_start P((void));
-SCM_EXPORT void scm_egc_end P((void));
-SCM_EXPORT void heap_report P((void));
-SCM_EXPORT void gra_report P((void));
-SCM_EXPORT void exit_report P((void));
-SCM_EXPORT void stack_report P((void));
-SCM_EXPORT SCM scm_stack_trace P((SCM contin));
-SCM_EXPORT SCM scm_scope_trace P((SCM env));
-SCM_EXPORT SCM scm_frame_trace P((SCM contin, SCM nf));
-SCM_EXPORT SCM scm_frame2env P((SCM contin, SCM nf));
-SCM_EXPORT SCM scm_frame_eval P((SCM contin, SCM nf, SCM expr));
-SCM_EXPORT void scm_iprin1 P((SCM exp, SCM port, int writing));
-SCM_EXPORT void scm_intprint P((long n, int radix, SCM port));
-SCM_EXPORT void scm_iprlist P((char *hdr, SCM exp, int tlr, SCM port, int writing));
-SCM_EXPORT SCM scm_env_lookup P((SCM var, SCM stenv));
-SCM_EXPORT SCM scm_env_rlookup P((SCM addr, SCM stenv, const char *what));
-SCM_EXPORT SCM scm_env_getprop P((SCM prop, SCM env));
-SCM_EXPORT SCM scm_env_addprop P((SCM prop, SCM val, SCM env));
-SCM_EXPORT long num_frames P((SCM estk, int i));
-SCM_EXPORT SCM *estk_frame P((SCM estk, int i, int nf));
-SCM_EXPORT SCM *cont_frame P((SCM contin, int nf));
-SCM_EXPORT SCM stacktrace1 P((SCM estk, int i));
-SCM_EXPORT void scm_princode P((SCM code, SCM env, SCM port, int writing));
-SCM_EXPORT void scm_princlosure P((SCM proc, SCM port, int writing));
-SCM_EXPORT void lputc P((int c, SCM port));
-SCM_EXPORT void lputs P((const char *s, SCM port));
-SCM_EXPORT sizet lfwrite P((char *ptr, sizet size, sizet nitems, SCM port));
-SCM_EXPORT int lgetc P((SCM port));
-SCM_EXPORT void lungetc P((int c, SCM port));
-SCM_EXPORT char *grow_tok_buf P((SCM tok_buf));
-SCM_EXPORT long mode_bits P((char *modes, char *cmodes));
-SCM_EXPORT long time_in_msec P((long x));
-SCM_EXPORT SCM my_time P((void));
-SCM_EXPORT SCM your_time P((void));
-SCM_EXPORT void init_iprocs P((iproc *subra, int type));
-
-SCM_EXPORT void final_scm P((int));
-SCM_EXPORT void init_sbrk P((void));
-SCM_EXPORT int init_buf0 P((FILE *inport));
-SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg,
- int iverbose, int buf0stdin));
-SCM_EXPORT void init_signals P((void));
-SCM_EXPORT SCM scm_top_level P((char *initpath, SCM (*toplvl_fun)()));
-SCM_EXPORT void restore_signals P((void));
-SCM_EXPORT void free_storage P((void));
-SCM_EXPORT char *dld_find_executable P((const char* command));
-SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg));
-SCM_EXPORT void init_scm P((int iverbose, int buf0stdin, long init_heap_size));
-SCM_EXPORT void scm_init_INITS P((void));
-SCM_EXPORT SCM scm_init_extensions P((void));
-SCM_EXPORT void ignore_signals P((void));
-SCM_EXPORT void unignore_signals P((void));
-
-SCM_EXPORT void add_feature P((char *str));
-SCM_EXPORT int raprin1 P((SCM exp, SCM port, int writing));
-SCM_EXPORT SCM markcdr P((SCM ptr));
-#define mark0 (0) /*SCM mark0 P((SCM ptr)); */
-SCM_EXPORT SCM equal0 P((SCM ptr1, SCM ptr2));
-SCM_EXPORT sizet free0 P((CELLPTR ptr));
-SCM_EXPORT void scm_warn P((char *str1, char *str2, SCM obj));
-SCM_EXPORT void everr P((SCM exp, SCM env, SCM arg, const char *pos, const char *s_subr, int codep));
-SCM_EXPORT void wta P((SCM arg, const char *pos, const char *s_subr));
-SCM_EXPORT void scm_experr P((SCM arg, const char *pos, const char *s_subr));
-SCM_EXPORT SCM intern P((char *name, sizet len));
-SCM_EXPORT SCM sysintern P((const char *name, SCM val));
-SCM_EXPORT SCM sym2vcell P((SCM sym));
-SCM_EXPORT SCM makstr P((long len));
-SCM_EXPORT SCM scm_maksubr P((const char *name, int type, SCM (*fcn)()));
-SCM_EXPORT SCM make_subr P((const char *name, int type, SCM (*fcn)()));
-SCM_EXPORT SCM make_synt P((const char *name, long flags, SCM (*fcn)()));
-SCM_EXPORT SCM make_gsubr P((const char *name, int req, int opt, int rst,
- SCM (*fcn)()));
-SCM_EXPORT SCM closure P((SCM code, int nargs));
-SCM_EXPORT SCM makprom P((SCM code));
-SCM_EXPORT SCM force P((SCM x));
-SCM_EXPORT SCM makarb P((SCM name));
-SCM_EXPORT SCM tryarb P((SCM arb));
-SCM_EXPORT SCM relarb P((SCM arb));
-SCM_EXPORT SCM ceval P((SCM x, SCM static_env, SCM env));
-SCM_EXPORT SCM scm_wrapcode P((SCM code, SCM env));
-SCM_EXPORT SCM scm_current_env P((void));
-SCM_EXPORT SCM prolixity P((SCM arg));
-SCM_EXPORT SCM gc_for_newcell P((void));
-SCM_EXPORT void gc_for_open_files P((void));
-SCM_EXPORT SCM gc P((SCM arg));
-SCM_EXPORT SCM tryload P((SCM filename, SCM reader));
-SCM_EXPORT SCM acons P((SCM w, SCM x, SCM y));
-SCM_EXPORT SCM cons2 P((SCM w, SCM x, SCM y));
-SCM_EXPORT SCM resizuve P((SCM vect, SCM len));
-SCM_EXPORT SCM lnot P((SCM x));
-SCM_EXPORT SCM booleanp P((SCM obj));
-SCM_EXPORT SCM eq P((SCM x, SCM y));
-SCM_EXPORT SCM equal P((SCM x, SCM y));
-SCM_EXPORT SCM consp P((SCM x));
-SCM_EXPORT SCM cons P((SCM x, SCM y));
-SCM_EXPORT SCM nullp P((SCM x));
-SCM_EXPORT SCM setcar P((SCM pair, SCM value));
-SCM_EXPORT SCM setcdr P((SCM pair, SCM value));
-SCM_EXPORT SCM listp P((SCM x));
-SCM_EXPORT SCM list P((SCM objs));
-SCM_EXPORT SCM length P((SCM x));
-SCM_EXPORT SCM append P((SCM args));
-SCM_EXPORT SCM reverse P((SCM lst));
-SCM_EXPORT SCM list_ref P((SCM lst, SCM k));
-SCM_EXPORT SCM memq P((SCM x, SCM lst));
-SCM_EXPORT SCM member P((SCM x, SCM lst));
-SCM_EXPORT SCM memv P((SCM x, SCM lst));
-SCM_EXPORT SCM assq P((SCM x, SCM alist));
-SCM_EXPORT SCM assoc P((SCM x, SCM alist));
-SCM_EXPORT SCM symbolp P((SCM x));
-SCM_EXPORT SCM symbol2string P((SCM s));
-SCM_EXPORT SCM string2symbol P((SCM s));
-SCM_EXPORT SCM string_copy P((SCM s));
-SCM_EXPORT SCM numberp P((SCM x));
-SCM_EXPORT SCM exactp P((SCM x));
-SCM_EXPORT SCM inexactp P((SCM x));
-SCM_EXPORT SCM eqp P((SCM x, SCM y));
-SCM_EXPORT SCM lessp P((SCM x, SCM y));
-SCM_EXPORT SCM greaterp P((SCM x, SCM y));
-SCM_EXPORT SCM leqp P((SCM x, SCM y));
-SCM_EXPORT SCM greqp P((SCM x, SCM y));
-SCM_EXPORT SCM zerop P((SCM z));
-SCM_EXPORT SCM positivep P((SCM x));
-SCM_EXPORT SCM negativep P((SCM x));
-SCM_EXPORT SCM oddp P((SCM n));
-SCM_EXPORT SCM evenp P((SCM n));
-SCM_EXPORT SCM lmax P((SCM x, SCM y));
-SCM_EXPORT SCM lmin P((SCM x, SCM y));
-SCM_EXPORT SCM sum P((SCM x, SCM y));
-SCM_EXPORT SCM difference P((SCM x, SCM y));
-SCM_EXPORT SCM product P((SCM x, SCM y));
-SCM_EXPORT SCM divide P((SCM x, SCM y));
-SCM_EXPORT SCM lquotient P((SCM x, SCM y));
-SCM_EXPORT SCM scm_iabs P((SCM x));
-SCM_EXPORT SCM scm_abs P((SCM x));
-SCM_EXPORT SCM lremainder P((SCM x, SCM y));
-SCM_EXPORT SCM modulo P((SCM x, SCM y));
-SCM_EXPORT SCM lgcd P((SCM x, SCM y));
-SCM_EXPORT SCM llcm P((SCM n1, SCM n2));
-SCM_EXPORT SCM number2string P((SCM x, SCM radix));
-SCM_EXPORT SCM istring2number P((char *str, long len, long radix));
-SCM_EXPORT SCM string2number P((SCM str, SCM radix));
-SCM_EXPORT SCM istr2flo P((char *str, long len, long radix));
-SCM_EXPORT SCM mkbig P((sizet nlen, int sign));
-SCM_EXPORT SCM mkstrport P((SCM pos, SCM str, long modes, char *caller));
-SCM_EXPORT SCM mksafeport P((int maxlen, SCM port));
-SCM_EXPORT int reset_safeport P((SCM sfp, int maxlen, SCM port));
-SCM_EXPORT SCM long2big P((long n));
-SCM_EXPORT SCM ulong2big P((unsigned long n));
-SCM_EXPORT SCM big2inum P((SCM b, sizet l));
-SCM_EXPORT sizet iint2str P((long num, int rad, char *p));
-SCM_EXPORT SCM floequal P((SCM x, SCM y));
-SCM_EXPORT SCM uve_equal P((SCM u, SCM v));
-SCM_EXPORT SCM uve_read P((SCM v, SCM port));
-SCM_EXPORT SCM uve_write P((SCM v, SCM port));
-SCM_EXPORT SCM raequal P((SCM ra0, SCM ra1));
-SCM_EXPORT SCM array_equal P((SCM u, SCM v));
-SCM_EXPORT SCM array_rank P((SCM ra));
-SCM_EXPORT int rafill P((SCM ra, SCM fill, SCM ignore));
-SCM_EXPORT SCM uve_fill P((SCM uve, SCM fill));
-SCM_EXPORT SCM array_fill P((SCM ra, SCM fill));
-SCM_EXPORT SCM array_prot P((SCM ra));
-SCM_EXPORT SCM array_rank P((SCM ra));
-SCM_EXPORT SCM array_contents P((SCM ra, SCM strict));
-SCM_EXPORT int bigprint P((SCM exp, SCM port, int writing));
-SCM_EXPORT int floprint P((SCM sexp, SCM port, int writing));
-SCM_EXPORT SCM istr2int P((char *str, long len, long radix));
-SCM_EXPORT SCM istr2bve P((char *str, long len));
-SCM_EXPORT void scm_ipruk P((char *hdr, SCM ptr, SCM port));
-SCM_EXPORT SCM charp P((SCM x));
-SCM_EXPORT SCM char_lessp P((SCM x, SCM y));
-SCM_EXPORT SCM chci_eq P((SCM x, SCM y));
-SCM_EXPORT SCM chci_lessp P((SCM x, SCM y));
-SCM_EXPORT SCM char_alphap P((SCM chr));
-SCM_EXPORT SCM char_nump P((SCM chr));
-SCM_EXPORT SCM char_whitep P((SCM chr));
-SCM_EXPORT SCM char_upperp P((SCM chr));
-SCM_EXPORT SCM char_lowerp P((SCM chr));
-SCM_EXPORT SCM char2int P((SCM chr));
-SCM_EXPORT SCM int2char P((SCM n));
-SCM_EXPORT SCM char_upcase P((SCM chr));
-SCM_EXPORT SCM char_downcase P((SCM chr));
-SCM_EXPORT SCM stringp P((SCM x));
-SCM_EXPORT SCM string P((SCM chrs));
-SCM_EXPORT SCM make_string P((SCM k, SCM chr));
-SCM_EXPORT SCM string2list P((SCM str));
-SCM_EXPORT SCM st_length P((SCM str));
-SCM_EXPORT SCM st_ref P((SCM str, SCM k));
-SCM_EXPORT SCM st_set P((SCM str, SCM k, SCM chr));
-SCM_EXPORT SCM st_equal P((SCM s1, SCM s2));
-SCM_EXPORT SCM stci_equal P((SCM s1, SCM s2));
-SCM_EXPORT SCM st_lessp P((SCM s1, SCM s2));
-SCM_EXPORT SCM stci_lessp P((SCM s1, SCM s2));
-SCM_EXPORT SCM substring P((SCM str, SCM start, SCM end));
-SCM_EXPORT SCM st_append P((SCM args));
-SCM_EXPORT SCM vectorp P((SCM x));
-SCM_EXPORT SCM vector_length P((SCM v));
-SCM_EXPORT SCM vector P((SCM l));
-SCM_EXPORT SCM vector_ref P((SCM v, SCM k));
-SCM_EXPORT SCM vector_set P((SCM v, SCM k, SCM obj));
-SCM_EXPORT SCM make_vector P((SCM k, SCM fill));
-SCM_EXPORT SCM vector2list P((SCM v));
-SCM_EXPORT SCM for_each P((SCM proc, SCM arg1, SCM args));
-SCM_EXPORT SCM procedurep P((SCM obj));
-SCM_EXPORT SCM apply P((SCM proc, SCM arg1, SCM args));
-SCM_EXPORT SCM scm_cvapply P((SCM proc, long n, SCM *argv));
-SCM_EXPORT int scm_arity_check P((SCM proc, long argc, const char *what));
-SCM_EXPORT SCM map P((SCM proc, SCM arg1, SCM args));
-SCM_EXPORT SCM scm_make_cont P((void));
-SCM_EXPORT SCM copytree P((SCM obj));
-SCM_EXPORT SCM eval P((SCM obj));
-SCM_EXPORT SCM scm_values P((SCM arg1, SCM arg2, SCM rest, const char *what));
-SCM_EXPORT SCM scm_eval_values P((SCM x, SCM static_env, SCM env));
-SCM_EXPORT SCM identp P((SCM obj));
-SCM_EXPORT SCM ident2sym P((SCM id));
-SCM_EXPORT SCM ident_eqp P((SCM id1, SCM id2, SCM env));
-SCM_EXPORT int scm_nullenv_p P((SCM env));
-SCM_EXPORT SCM env2tree P((SCM env));
-SCM_EXPORT SCM renamed_ident P((SCM id, SCM env));
-SCM_EXPORT SCM scm_check_linum P((SCM x, SCM *linum));
-SCM_EXPORT SCM scm_add_linum P((SCM linum, SCM x));
-SCM_EXPORT SCM input_portp P((SCM x));
-SCM_EXPORT SCM output_portp P((SCM x));
-SCM_EXPORT SCM cur_input_port P((void));
-SCM_EXPORT SCM cur_output_port P((void));
-SCM_EXPORT SCM i_setbuf0 P((SCM port));
-SCM_EXPORT SCM try_open_file P((SCM filename, SCM modes));
-SCM_EXPORT SCM open_file P((SCM filename, SCM modes));
-SCM_EXPORT SCM open_pipe P((SCM pipestr, SCM modes));
-SCM_EXPORT SCM close_port P((SCM port));
-SCM_EXPORT SCM scm_file_position P((SCM port, SCM pos));
-#define file_position(port) scm_file_position(port, BOOL_F)
-#define file_set_position scm_file_position
-SCM_EXPORT SCM scm_read P((SCM port));
-SCM_EXPORT SCM scm_read_char P((SCM port));
-SCM_EXPORT SCM scm_peek_char P((SCM port));
-SCM_EXPORT SCM eof_objectp P((SCM x));
-SCM_EXPORT int scm_io_error P((SCM port, const char *what));
-SCM_EXPORT SCM scm_write P((SCM obj, SCM port));
-SCM_EXPORT SCM scm_display P((SCM obj, SCM port));
-SCM_EXPORT SCM scm_newline P((SCM port));
-SCM_EXPORT SCM scm_write_char P((SCM chr, SCM port));
-SCM_EXPORT SCM scm_port_line P((SCM port));
-SCM_EXPORT SCM scm_port_col P((SCM port));
-SCM_EXPORT void scm_line_msg P((SCM file, SCM linum, SCM port));
-SCM_EXPORT void scm_err_line P((const char *what, SCM file, SCM linum, SCM port));
-SCM_EXPORT SCM lgetenv P((SCM nam));
-SCM_EXPORT SCM prog_args P((void));
-SCM_EXPORT SCM makacro P((SCM code));
-SCM_EXPORT SCM makmacro P((SCM code));
-SCM_EXPORT SCM makmmacro P((SCM code));
-SCM_EXPORT SCM makidmacro P((SCM code));
-SCM_EXPORT void poll_routine P((void));
-SCM_EXPORT void tick_signal P((void));
-SCM_EXPORT void stack_check P((void));
-SCM_EXPORT SCM list2ura P((SCM ndim, SCM prot, SCM lst));
-SCM_EXPORT SCM make_ra P((int ndim));
-SCM_EXPORT SCM makflo P((float x));
-SCM_EXPORT SCM arrayp P((SCM v, SCM prot));
-SCM_EXPORT SCM aset P((SCM v, SCM obj, SCM args));
-SCM_EXPORT SCM aref P((SCM v, SCM args));
-SCM_EXPORT SCM scm_array_ref P((SCM args));
-SCM_EXPORT SCM cvref P((SCM v, sizet pos, SCM last));
-SCM_EXPORT SCM quit P((SCM n));
-#ifdef CAREFUL_INTS
-SCM_EXPORT void ints_viol P((ints_infot *info, int sense));
-SCM_EXPORT void ints_warn P((char *s1, char* s2, char *fname, int linum));
-#endif
-SCM_EXPORT void add_final P((void (*final)(void)));
-SCM_EXPORT SCM makcclo P((SCM proc, long len));
-SCM_EXPORT SCM make_uve P((long k, SCM prot));
-SCM_EXPORT long scm_prot2type P((SCM prot));
-SCM_EXPORT long aind P((SCM ra, SCM args, const char *what));
-SCM_EXPORT SCM scm_eval_string P((SCM str));
-SCM_EXPORT SCM scm_load_string P((SCM str));
-SCM_EXPORT SCM scm_unexec P((const SCM pathname));
-SCM_EXPORT SCM scm_logbitp P((SCM index, SCM j1));
-SCM_EXPORT SCM scm_logtest P((SCM x, SCM y));
-SCM_EXPORT SCM scm_logxor P((SCM x, SCM y));
-SCM_EXPORT SCM scm_logand P((SCM x, SCM y));
-SCM_EXPORT SCM scm_logior P((SCM x, SCM y));
-SCM_EXPORT SCM scm_lognot P((SCM n));
-SCM_EXPORT SCM scm_intexpt P((SCM z1, SCM z2));
-SCM_EXPORT SCM scm_ash P((SCM n, SCM cnt));
-SCM_EXPORT SCM scm_bitfield P((SCM n, SCM start, SCM end));
-SCM_EXPORT SCM scm_logcount P((SCM n));
-SCM_EXPORT SCM scm_intlength P((SCM n));
-SCM_EXPORT SCM scm_copybit P((SCM index, SCM j1, SCM bit));
-SCM_EXPORT SCM scm_bitif P((SCM mask, SCM n0, SCM n1));
-SCM_EXPORT SCM scm_copybitfield P((SCM to, SCM start, SCM rest));
-
- /* Defined in "rope.c" */
-SCM_EXPORT SCM long2num P((long n));
-SCM_EXPORT SCM ulong2num P((unsigned long n));
-SCM_EXPORT unsigned char num2uchar P((SCM num, char *pos, char *s_caller));
-SCM_EXPORT signed char num2char P((SCM num, char *pos, char *s_caller));
-SCM_EXPORT unsigned short num2ushort P((SCM num, char *pos, char *s_caller));
-SCM_EXPORT short num2short P((SCM num, char *pos, char *s_caller));
-SCM_EXPORT unsigned long num2ulong P((SCM num, char *pos, char *s_caller));
-SCM_EXPORT long num2long P((SCM num, char *pos, char *s_caller));
-SCM_EXPORT double num2dbl P((SCM num, char *pos, char *s_caller));
-SCM_EXPORT SCM makfromstr P((const char *src, sizet len));
-SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv));
-SCM_EXPORT SCM makfrom0str P((const char *scr));
-SCM_EXPORT char **makargvfrmstrs P((SCM args, const char *s_v));
-SCM_EXPORT void must_free_argv P((char **argv));
-SCM_EXPORT SCM scm_evstr P((char *str));
-SCM_EXPORT void scm_ldstr P((char *str));
-SCM_EXPORT int scm_ldfile P((char *path));
-SCM_EXPORT int scm_ldprog P((char *path));
-SCM_EXPORT unsigned long scm_addr P((SCM args, const char *name));
-SCM_EXPORT unsigned long scm_base_addr P((SCM v, const char *name));
-SCM_EXPORT int scm_cell_p P((SCM x));
-
-#ifdef FLOATS
-SCM_EXPORT SCM makdbl P((double x, double y));
-SCM_EXPORT SCM dbl2big P((double d));
-SCM_EXPORT double big2dbl P((SCM b));
-SCM_EXPORT double scm_truncate P((double x));
-SCM_EXPORT double scm_round P((double x));
-SCM_EXPORT double floident P((double x));
-#endif
-
-#ifdef BIGDIG
-SCM_EXPORT void longdigs P((long x, BIGDIG digs[DIGSPERLONG]));
-SCM_EXPORT SCM adjbig P((SCM b, sizet nlen));
-SCM_EXPORT SCM normbig P((SCM b));
-SCM_EXPORT SCM copybig P((SCM b, int sign));
-SCM_EXPORT SCM addbig P((BIGDIG *x, sizet nx, int xsgn, SCM bigy, int sgny));
-SCM_EXPORT SCM mulbig P((BIGDIG *x, sizet nx, BIGDIG *y, sizet ny, int sgn));
-SCM_EXPORT unsigned int divbigdig P((BIGDIG *ds, sizet h, BIGDIG div));
-SCM_EXPORT SCM divbigint P((SCM x, long z, int sgn, int mode));
-SCM_EXPORT SCM divbigbig P((BIGDIG *x, sizet nx, BIGDIG *y, sizet ny, int sgn,
- int modes));
-SCM_EXPORT long pseudolong P((long x));
-#endif
-SCM_EXPORT int bigcomp P((SCM x, SCM y));
-SCM_EXPORT SCM bigequal P((SCM x, SCM y));
-SCM_EXPORT int scm_bigdblcomp P((SCM b, double d));
-
-/* "script.c" functions */
-SCM_EXPORT char * scm_cat_path P((char *str1, const char *str2, long n));
-SCM_EXPORT char * scm_try_path P((char *path));
-SCM_EXPORT char * script_find_executable P((const char *command));
-SCM_EXPORT char ** script_process_argv P((int argc, const char **argv));
-SCM_EXPORT int script_count_argv P((const char **argv));
-SCM_EXPORT char * find_impl_file P((const char *exec_path, const char *generic_name,
- const char *initname, const char *sep));
-
-/* environment cache functions */
-SCM_EXPORT void scm_ecache_report P((void));
-SCM_EXPORT void scm_estk_reset P((sizet size));
-SCM_EXPORT void scm_env_cons P((SCM x, SCM y));
-SCM_EXPORT void scm_env_cons2 P((SCM w, SCM x, SCM y));
-SCM_EXPORT void scm_env_cons3 P((SCM v, SCM w, SCM x, SCM y));
-SCM_EXPORT void scm_env_v2lst P((long argc, SCM *argv));
-SCM_EXPORT void scm_extend_env P((void));
-SCM_EXPORT void scm_egc P((void));
-
-/* Global state for environment cache */
-SCM_EXPORT CELLPTR scm_ecache;
-SCM_EXPORT VOLATILE long scm_ecache_index, scm_ecache_len;
-SCM_EXPORT SCM scm_env, scm_env_tmp;
-SCM_EXPORT SCM scm_egc_roots[];
-SCM_EXPORT VOLATILE long scm_egc_root_index;
-SCM_EXPORT SCM scm_estk;
-SCM_EXPORT SCM *scm_estk_v, *scm_estk_ptr;
-SCM_EXPORT long scm_estk_size;
-#ifndef RECKLESS
-SCM_EXPORT SCM scm_trace, scm_trace_env;
-#endif
-
-#ifdef RECKLESS
-# define ASRTER(_cond, _arg, _pos, _subr) ;
-# define ASRTGO(_cond, _label) ;
-#else
-# define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr);
-# define ASRTGO(_cond, _label) if (SCM_EXPECT_FALSE(!(_cond))) goto _label;
-#endif
-
-#define ARGn 1
-#define ARG1 2
-#define ARG2 3
-#define ARG3 4
-#define ARG4 5
-#define ARG5 6
- /* following must match entry indexes in errmsgs[] */
-#define WNA 7
-#define OVFLOW 8
-#define OUTOFRANGE 9
-#define NALLOC 10
-#define THRASH 11
-#define EXIT 12
-#define HUP_SIGNAL 13
-#define INT_SIGNAL 14
-#define FPE_SIGNAL 15
-#define BUS_SIGNAL 16
-#define SEGV_SIGNAL 17
-#define ALRM_SIGNAL 18
-#define VTALRM_SIGNAL 19
-#define PROF_SIGNAL 20
-
-#define EVAL(x, env, venv) (IMP(x)?(x):ceval((x), (SCM)(env), (SCM)(venv)))
-#define SIDEVAL(x, env, venv) if (NIMP(x)) ceval((x), (SCM)(env), (SCM)(venv))
-
-#define NEWCELL(_into) {if (IMP(freelist)) _into = gc_for_newcell();\
- else {_into = freelist;freelist = CDR(freelist);++cells_allocated;}}
-/*
-#define NEWCELL(_into) {DEFER_INTS;if (IMP(freelist)) _into = gc_for_newcell();\
- else {_into = freelist;freelist = CDR(freelist);++cells_allocated;}\
- ALLOW_INTS;}
-*/
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/SCM/scmfig.h b/SCM/scmfig.h
deleted file mode 100644
index a8e8667..0000000
--- a/SCM/scmfig.h
+++ /dev/null
@@ -1,870 +0,0 @@
-/* "scmfig.h" system-dependent configuration.
- * Copyright (C) 1990-2006 Free Software Foundation, Inc.
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License as
- * published by the Free Software Foundation, either version 3 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this program. If not, see
- * <http://www.gnu.org/licenses/>.
- */
-
-/* Author: Aubrey Jaffer */
-
-#ifdef sequent
-# include <strings.h>
-# define strchr index
-# define strrchr rindex
-#else
-# ifndef PLAN9
-# include <string.h>
-# endif
-#endif
-
-/* MS Windows signal handling hack added by Rainer Urian */
-/*
- SCM crashes on WindowsNT after hitting control-c.
-
- This is because signal handling in windows console applications is
- rather different from unix apps. If control-c is hit on a console
- application Windows creates a new thread which executes the
- control-c signal handler. Now, if the SCM handler does the longjmp
- back to the repl loop it does it via the stack of the signal
- handler thread which results always ever is an access violation.
-
- The solution to this problem is to let the signal handler thread
- raise a software interrupt in the main thread.
-
- This is done with the following steps:
-
- 1. contol-c is hit
-
- 2. Windows creates the signal handler thread which in turn executes
- the routine win32_sigint as its signal handler.
-
- 3. The handler suspends the main thread and gets the main threads
- register context.
-
- 4. The handler simulates an interrupt call on the main thread by
- pointing Eip to the sigintstub stub function and also simulates a
- pushad , pushf of the main threads registers
-
- 5. The handler resumes the main thread which when scheduled will
- execute sigintstub, which in turn calls the proper signal interupt
- (scamble_signal)
-*/
-#ifdef _WIN32
-/* POCKETCONSOLE has the signal handler implemented in the runtime */
-# ifndef POCKETCONSOLE
-# define WINSIGNALS
-# endif
-#endif
-
-
-#include "scmflags.h" /* user specified, system independent flags */
-
-/* IMPLINIT is the full pathname (surrounded by double quotes) of
- Init.scm, the Scheme initialization code. This is best defined in
- the makefile. If available, SCM uses the value of environment
- variable SCM_INIT_PATH instead of IMPLINIT. */
-
-/* #define IMPLINIT "/usr/jaffer/scm/Init.scm" */
-
-/* INITS is calls to initialization routines for any compiled
- libraries being linked into scm. This is best done in the makefile.
-File: INITS line: functions defined:
-
-sc2.c init_sc2(); substring-move-left!, substring-move-right!,
- substring-fill!, append!, and last-pair
-rgx.c init_rgx(); regcomp and regexec. */
-
-/* #define INITS init_sc2(); */
-
-/* #define SICP */
-
-/* setbuf(0) needs to be done for tty ports in order for CHAR-READY?
- to work. This can cause problems under MSDOS and other systems. */
-
-/* #define NOSETBUF */
-
-/* #define RECKLESS */
-
-/* #define CAUTIOUS */
-
-/* #define BIGNUMS */
-
-/* #define ARRAYS */
-
-/* #define FLOATS */
-
-/* Define SINGLES if you want single precision floats and
- (sizeof(float)==sizeof(long)) */
-
-#ifdef FLOATS
-# ifndef _MSC_VER
-# define SINGLES
-# endif
-#endif
-
-/* #define SINGLESONLY */
-
-/* Define CDR_DOUBLES if (sizeof(double)==sizeof(long)), i.e.
- a `single' is really a double. */
-#ifdef FLOATS
-# ifdef __alpha
-# define CDR_DOUBLES
-# endif
-
-# ifdef _UNICOS /* doubles are no better than singles on Cray. */
-# define SINGLESONLY
-# endif
-
-# ifdef CDR_DOUBLES
-# define SINGLES
-# define SINGLESONLY
-# endif
-#endif
-
-/* #define ENGNOT */
-
-/* Define SUN_DL to configure code in "dynl.c" so that dynamic linking
- is done using the SUN dynamic linking library "dl". */
-
-/* #define SUN_DL */
-
-/* Define DLD to configure code in "dynl.c" so that dynamic linking is
- done using the "dld" library. DLD is ported to Linux, VAX
- (Ultrix), Sun 3 (SunOS 3.4 and 4.0), SPARCstation (SunOS 4.0),
- Sequent Symmetry (Dynix), and Atari ST. See scm/README or
- scm/ANNOUNCE for ftp sites offering dld. */
-
-/* #define DLD */
-
-/* Define HAVE_DYNL if dynamic linking is available */
-
-#ifdef DLD
-# define HAVE_DYNL
-#endif
-#ifdef SUN_DL
-# define HAVE_DYNL
-#endif
-#ifdef HP_SHL
-# define HAVE_DYNL
-#endif
-
-#ifdef HAVE_DYNL
-# define CCLO
-#endif
-
-/* Define GC_FREE_SEGMENTS if you want segments of unused heap to
- be freed up after garbage collection. Don't define it if you
- never want the heap to shrink. */
-#ifndef DONT_GC_FREE_SEGMENTS
-# define GC_FREE_SEGMENTS
-#endif
-
-/* MEMOIZE_LOCALS means to convert references to local variables to ILOCs,
- (relative lexical addresses into the environment). This memoization
- makes evaluated Scheme code harder to read, so you may want to undefine
- this flag for debugging -- but SCM will run 3 to 6 times slower */
-#ifndef DONT_MEMOIZE_LOCALS
-# define MEMOIZE_LOCALS
-#endif
-
-/* #define CHEAP_CONTINUATIONS */
-
-/* #define TICKS */
-
-/* PROT386 should be defined on the compilation command line if the
- program is to be run on an intel 386 in protected mode. `Huge'
- pointers common on MSDOS compilers do not work in protected mode.
- PROT386 is required if scm is to run as part of a Microsoft Windows
- application. Added by Stephen Adams 8 May 92 */
-
-/* #define PROT386 */
-
-/* #define NON_PREEMPTIVE if you are using an non-preemptive operating
- system in which periodic polling for interrupts is necessary.
- Provide your own main procedure (e.g., WinMain, in Windows) or
- modify "scmmain.c". Define and initialize unsigned int poll_count,
- and provide a procedure named poll_routine(), which POLL calls each
- time poll_count reaches zero. poll_routine() must reinitialize
- poll_count. It may also check for external actions, such as
- Windows messages. The value assigned to poll_count can be quite
- large, e.g., 1000, while still maintaining good response time. */
-
-/* #define CAREFUL_INTS */
-
-/* Define MACRO if you want C level support for hygienic and referentially
- transparent macros. */
-
-/* #define MACRO */
-
-/* STDC_HEADERS indicates that the include file names are the same as
- ANSI C. For most modern systems this is the case. */
-
-/* added by Yasuaki Honda */
-#ifdef THINK_C
-# define __STDC__
-# ifndef macintosh
-# define macintosh
-# endif
-#endif
-
-/* added by Bob Schumaker, cobblers@netcom.com */
-#ifdef __MWERKS__
-# ifndef macintosh
-# define macintosh
-# endif
-# define bzero(p, n) memset(p, 0, n)
-# define bcopy memcpy
-#endif
-/* added by Denys Duchier */
-#ifndef SVR4
-# ifdef __SVR4
-# define SVR4
-# endif
-#endif
-
-#ifdef __STDC__
-# ifndef __HIGHC__ /* overly fussy compiler */
-# define USE_ANSI_PROTOTYPES
-# endif
-# ifndef __GNUC__
-# define STDC_HEADERS
-# else
-# ifdef sparc
-# ifdef SVR4
-# define STDC_HEADERS
-# endif
-# else
-# ifndef tahoe
-# ifndef sun
-# define STDC_HEADERS
-# endif
-# endif
-# endif
-# endif
-#endif
-#ifdef __alpha
-# define SHORT_INT
-#endif
-#ifdef __ia64__
-# define SHORT_INT
-# define CDR_DOUBLES
-#endif
-#ifdef __x86_64
-# define SHORT_INT
-# define CDR_DOUBLES
-#endif
-#ifdef MSDOS /* Microsoft C 5.10 and 6.00A */
-# ifndef GO32
-# define SHORT_INT
-# define SHORT_SIZET
-# endif
-#endif
-#ifdef _QC
-# define SHORT_INT
-# define SHORT_SIZET
-#endif
-#ifdef __TURBOC__
-# define SHORT_INT
-# define SHORT_SIZET
-# define LACK_SBRK
-# ifndef __TOS__
-# define MSDOS
-# endif
-#endif
-#ifdef __HIGHC__
-# define LACK_SBRK
-#endif
-#ifdef _WIN32
-# define MSDOS
-# define LACK_SBRK
-# define LACK_TIMES
-#endif
-#ifdef _MSDOS
-# define MSDOS
-#endif
-#ifdef MSDOS
-# define STDC_HEADERS
-#endif
-
-#ifdef POCKETCONSOLE
-# define NOSETBUF
-# define LACK_FTIME
-#endif
-
-#ifdef vms
-# define STDC_HEADERS
-#endif
-
-#ifdef nosve
-# define STDC_HEADERS
-#endif
-
-#ifdef linux
-# define HAVE_SELECT
-# define HAVE_SYS_TIME_H
-# define STDC_HEADERS
-#endif
-
-#ifdef _UNICOS
-# define STDC_HEADERS
-#endif
-
-#ifdef _AIX
-# define _POSIX_SOURCE
-# define LACK_FTIME
-#endif
-
-#ifdef __sgi__
-# define LACK_FTIME
-# define STDC_HEADERS
-# define USE_ANSI_PROTOTYPES
-# define HAVE_SYS_TIME_H
-# define __SVR4
-#endif
-
-#ifdef __SVR4
-# define HAVE_SELECT
-#endif
-
-#ifdef PLAN9
-# define STDC_HEADERS
-#endif
-
-#ifdef hpux
-# define LACK_E_IDs
-#endif
-
-/* C-Set++ for OS/2 */
-#ifdef __IBMC__
-# define STDC_HEADERS
-# define LACK_TIMES
-# define LACK_SBRK
-#endif
-
-#ifdef __CYGWIN__
-/* # define LACK_FTIME */
-# define HAVE_SELECT
-# define HAVE_SYS_TIME_H
-# undef MSDOS
-#endif
-
-#ifdef __amigaos__
-# define HAVE_SELECT
-# define HAVE_SYS_TIME_H
-# define LACK_SBRK
-#endif
-
-/* PROMPT is the prompt string printed at top level */
-
-#ifndef PROMPT
-# ifdef SICP
-# define PROMPT "==> "
-# else
-# define PROMPT "> "
-# endif
-#endif
-
-/* #define BRACKETS_AS_PARENS to have [ and ] be read as ( and ) in forms. */
-
-/* #define BRACKETS_AS_PARENS */
-
-/* LINE_INCREMENTORS are the characters which cause the line count to
- be incremented for the purposes of error reporting. This feature
- is only used for scheme code loaded from files.
-
- WHITE_SPACES are other characters which should be treated like spaces
- in programs. in both cases sparate characters with ":case " */
-
-#define LINE_INCREMENTORS '\n'
-#ifdef MSDOS
-# define WHITE_SPACES ' ':case '\t':case '\r':case '\f':case 26
-#else
-# define WHITE_SPACES ' ':case '\t':case '\r':case '\f'
-#endif
-
-#ifdef __ia64__
-# define PTR2INT(x) ((long)(x))
-#else
-# ifdef __x86_64
-# define PTR2INT(x) ((long)(x))
-# else
-# define PTR2INT(x) ((int)(x))
-# endif
-#endif
-
-/* Define BIGDIG to an integer type whose size is smaller than long if
- you want bignums. BIGRAD is one greater than the biggest BIGDIG. */
-/* Define DIGSTOOBIG if the digits equivalent to a long won't fit in a long. */
-#ifdef BIGNUMS
-# ifdef _UNICOS
-# define DIGSTOOBIG
-# if (1L << 31) <= USHRT_MAX
-# define BIGDIG unsigned short
-# else
-# define BIGDIG unsigned int
-# endif
-# define BITSPERDIG 32
-# else
-# define BIGDIG unsigned short
-# define BITSPERDIG (sizeof(BIGDIG)*CHAR_BIT)
-# endif
-# define BIGRAD (1L << BITSPERDIG)
-# define DIGSPERLONG ((sizet)((sizeof(long)*CHAR_BIT+BITSPERDIG-1)/BITSPERDIG))
-# define BIGUP(x) ((unsigned long)(x) << BITSPERDIG)
-# define BIGDN(x) ((x) >> BITSPERDIG)
-# define BIGLO(x) ((x) & (BIGRAD-1))
-/* NUMDIGS_MAX is the maximum number of digits for BIGNUMS */
-# ifndef NUMDIGS_MAX
-# define NUMDIGS_MAX 1000
-# endif
-#endif
-
-#ifndef BIGDIG
-# ifndef FLOATS
-# define INUMS_ONLY
-# endif
-#endif
-
-#ifndef __builtin_expect
-# ifndef __GNUC__
-# define __builtin_expect(expr, expected) (expr)
-# else
-# if (__GNUC__ < 3)
-# define __builtin_expect(expr, expected) (expr)
-# endif
-# endif
-#endif
-
-#define SCM_EXPECT_TRUE(expr) (__builtin_expect(expr, !0))
-#define SCM_EXPECT_FALSE(expr) (__builtin_expect(expr, 0))
-
-#ifdef __GNUC__
-# define FENCE asm volatile ("")
-#else
-# define FENCE /**/
-#endif
-
-#ifdef NON_PREEMPTIVE
-# define VERIFY_INTS(s1, s2) /**/
-# define DEFER_INTS /**/
-# ifdef TICKS
-# define POLL {if (0==poll_count--) poll_routine(); \
- if (0==tick_count--) tick_signal();}
-# else
-# define POLL {if (0==poll_count--) poll_routine();}
-# endif
-# define CHECK_INTS POLL
-# define ALLOW_INTS POLL
-# define DEFER_INTS_EGC /**/
-# define ALLOW_INTS_EGC /**/
-#else
-# ifdef CAREFUL_INTS
-typedef struct {char *fname; int linum;} ints_infot;
-extern ints_infot *ints_info;
-# define VERIFY_INTS(s1, s2) {if (!ints_disabled)\
- ints_warn(s1, s2, __FILE__, __LINE__); }
-# define DEFER_INTS \
- {static ints_infot info = {__FILE__, __LINE__};\
- FENCE;if (1==ints_disabled) ints_viol(&info, 1);\
- else {ints_info = &info; ints_disabled = 1;FENCE;}}
-# define ALLOW_INTS \
- {static ints_infot info = {__FILE__, __LINE__};\
- FENCE;if (1!=ints_disabled) ints_viol(&info, 0);\
- else {ints_info = &info; ints_disabled = 0;FENCE;CHECK_INTS}}
-# define DEFER_INTS_EGC \
- {static ints_infot info = {__FILE__, __LINE__};\
- FENCE;if (1==ints_disabled) ints_viol(&info, 1);\
- else {ints_info = &info; ints_disabled = 2;FENCE;}}
-# define ALLOW_INTS_EGC \
- {static ints_infot info = {__FILE__, __LINE__};\
- FENCE;if (1==ints_disabled) ints_viol(&info, 0);\
- else {ints_info = &info; ints_disabled = 0;FENCE;CHECK_INTS}}
-# else
-# define VERIFY_INTS(s1, s2) /**/
-# define DEFER_INTS {FENCE;ints_disabled = 1;FENCE;}
-# define ALLOW_INTS {FENCE;ints_disabled = 0;FENCE;CHECK_INTS}
-# define DEFER_INTS_EGC {FENCE;ints_disabled = 2;FENCE;}
-# define ALLOW_INTS_EGC {FENCE;ints_disabled = 0;FENCE;CHECK_INTS}
-# endif
-# ifdef TICKS
-# define CHECK_INTS {if (deferred_proc) (*deferred_proc)(); POLL;}
-# define POLL {if (0==tick_count--) tick_signal();}
-# else
-# define CHECK_INTS {if (deferred_proc) (*deferred_proc)();}
-# define POLL /**/
-# endif
-#endif
-
-#ifndef STACK_LIMIT
-# define STACK_LIMIT (HEAP_SEG_SIZE)
-#endif
-
-#define CHECK_STACK {if (2 < scm_verbose) stack_check();}
-
-/* Cray machines have pointers that are incremented once for each word,
- rather than each byte, the 3 most significant bits encode the byte
- within the word. The following macros deal with this by storing the
- native Cray pointers like the ones that looks like scm expects. This
- is done for any pointers that might appear in the car of a cell, pointers
- to vector elts, functions, &c are not munged. */
-#ifdef _UNICOS
-# define SCM2PTR(x) ((int)(x) >> 3)
-# define PTR2SCM(x) (((SCM)(x)) << 3)
-# define POINTERS_MUNGED
-#else
-# ifdef TEST_SCM2PTR
-# define SCM2PTR(x) ((x) ^ 0xf0L)
-# define PTR2SCM(x) (((SCM)(x)) ^ 0xf0L)
-# define POINTERS_MUNGED
-# else
-# define SCM2PTR(x) (x)
-# define PTR2SCM(x) ((SCM)(x))
-# endif
-#endif
-
-/* FIXABLE is non-null if its long argument can be encoded in an INUM. */
-
-#define POSFIXABLE(n) SCM_EXPECT_TRUE((n) <= MOST_POSITIVE_FIXNUM)
-#define NEGFIXABLE(n) SCM_EXPECT_TRUE((n) >= MOST_NEGATIVE_FIXNUM)
-#define UNEGFIXABLE(n) SCM_EXPECT_TRUE((n) <= -MOST_NEGATIVE_FIXNUM)
-#define FIXABLE(n) (POSFIXABLE(n) && NEGFIXABLE(n))
-
-/* The following 8 definitions are defined automatically by the C
- pre-processor. You will need to override these if you are
- cross-compiling or if the C pre-processor has different properties
- than the compiler. */
-
-#if (((-1)%2==-1) && ((-1)%(-2)==-1) && (1%2==1) && (1%(-2)==1))
-#else
-# define BADIVSGNS
-#endif
-
-/* SRS is signed right shift */
-/*--- Turbo C++ v1.0 has a bug with right shifts of signed longs!
- It is believed to be fixed in Turbo C++ v1.01 ---*/
-#if (-1==(((-1)<<2)+2)>>2) && (__TURBOC__ != 0x295)
-# define SRS(x, y) ((x)>>y)
-# ifdef __TURBOC__
-# define INUM(x) (((x)>>1)>>1)
-# else
-# define INUM(x) SRS(x, 2)
-# endif
-#else
-# define SRS(x, y) (((x)<0) ? ~((~(x))>>y) : (x)>>y)
-# define INUM(x) SRS(x, 2)
-#endif
-
-#ifdef __TURBOC__
-/* shifts of more than one are done by a library call, single shifts are
- performed in registers */
-# define MAKINUM(x) ((((x)<<1)<<1)+2L)
-#else
-# define MAKINUM(x) (((x)<<2)+2L)
-#endif
-
-#ifdef _DCC
-# define ASCII
-#else
-# if (('\n'=='\025') && (' '=='\100') && ('a'=='\201') && ('A'=='\301'))
-# define EBCDIC
-# endif
-# if (('\n'=='\012') && (' '=='\040') && ('a'=='\141') && ('A'=='\101'))
-# define ASCII
-# endif
-#endif
-
-/* CHAR_CODE_LIMIT is the number of distinct characters represented by
- the unsigned char datatype. */
-/* MOST_POSITIVE_FIXNUM is the INUM closest to positive infinity. */
-/* MOST_NEGATIVE_FIXNUM is the INUM closest to negative infinity. */
-
-#ifdef __STDC__
-# define HAVE_LIMITSH
-#endif
-#ifdef MWC
-# define HAVE_LIMITSH
-#endif
-
-#ifdef HAVE_LIMITSH
-# include <limits.h>
-# ifdef UCHAR_MAX
-# define CHAR_CODE_LIMIT (UCHAR_MAX+1L)
-# else
-# define CHAR_CODE_LIMIT 256L
-# endif
-# define MOST_POSITIVE_FIXNUM (LONG_MAX>>2)
-# ifdef _UNICOS /* Stupid cray bug */
-# define MOST_NEGATIVE_FIXNUM ((long)LONG_MIN/4)
-# else
-# define MOST_NEGATIVE_FIXNUM SRS((long)LONG_MIN, 2)
-# endif /* UNICOS */
-#else
-# define CHAR_CODE_LIMIT 256L
-# define MOST_POSITIVE_FIXNUM ((long)((unsigned long)~0L>>3))
-# if (0 != ~0)
-# define MOST_NEGATIVE_FIXNUM (-MOST_POSITIVE_FIXNUM-1)
-# else
-# define MOST_NEGATIVE_FIXNUM (-MOST_POSITIVE_FIXNUM)
-# endif
-#endif
-
-/* INTBUFLEN is the maximum number of characters neccessary for the
- printed or string representation of an exact number. */
-
-#ifndef CHAR_BIT
-# define CHAR_BIT 8
-#endif
-#ifndef LONG_BIT
-# define LONG_BIT (CHAR_BIT*sizeof(long)/sizeof(char))
-#endif
-#define INTBUFLEN (5+LONG_BIT)
-
-/* FLOBUFLEN is the maximum number of characters neccessary for the
- printed or string representation of an inexact number. */
-
-#ifdef FLOATS
-# define FLOBUFLEN (10+2*(sizeof(double)/sizeof(char)*CHAR_BIT*3+9)/10)
-#endif /* FLOATS */
-
-/* MAXEXP is the maximum double precision exponent */
-/* FLTMAX is less than or equal the largest single precision float */
-
-#ifdef FLOATS
-# ifdef STDC_HEADERS
-# ifndef macintosh
-# ifndef PLAN9
-# include <float.h>
-# endif
-# endif
-# endif
-# ifdef DBL_MAX_10_EXP
-# define MAXEXP DBL_MAX_10_EXP
-# else
-# define MAXEXP 308 /* IEEE doubles */
-# endif
-# ifndef DBL_DIG
-# define DBL_DIG 15
-# endif
-# ifndef DBL_MAX_EXP
-# define DBL_MAX_EXP 1024
-# endif
-# ifdef FLT_MAX
-# define FLTMAX FLT_MAX
-# else
-# define FLTMAX 1e+23
-# endif
-#endif
-
-#ifdef FLOATS
-# ifndef __MINGW32__
-/* Also asinh and acosh */
-# define HAVE_ATANH
-# endif
-#endif
-
-#ifdef unix
-# define HAVE_UNIX
-#endif
-#ifdef __unix__
-# define HAVE_UNIX
-#endif
-#ifdef _IBMR2
-# define HAVE_UNIX
-# define STDC_HEADERS
-#endif
-
-/* Only some machines have pipes */
-#ifdef HAVE_UNIX
- /* DJGPP (gcc for i386) defines unix! */
-# define HAVE_PIPE
-#endif
-
-#ifndef macintosh
-# ifndef _M_ARM
-# ifndef _M_ARMT
-# ifdef __WINDOWS__ /* there should be a better flag for this. */
-# define PROT386
-# endif
-# endif
-# endif
-#endif
-
-/* PTR_LT defines how to compare two CELLPTRs (which may not be in the
- same array). CELLPTR is a pointer to a cons cell which may be
- compared or differenced. SCMPTR is used for stack bounds. */
-
-#if defined(__TURBOC__) && !defined(__TOS__)
-# ifdef PROT386
-typedef cell *CELLPTR;
-typedef SCM *SCMPTR;
-# define PTR_LT(x, y) (((long)(x)) < ((long)(y)))
-# else
-typedef cell huge *CELLPTR;
-typedef SCM huge *SCMPTR;
-# define PTR_LT(x, y) ((x) < (y))
-# endif
-#else /* not __TURBOC__ */
-typedef cell *CELLPTR;
-typedef SCM *SCMPTR;
-# ifdef nosve
-# define PTR_MASK 0xffffffffffff
-# define PTR_LT(x, y) (((int)(x)&PTR_MASK) < ((int)(y)&PTR_MASK))
-# else
-# define PTR_LT(x, y) ((x) < (y))
-# endif
-#endif
-
-#define PTR_GT(x, y) PTR_LT(y, x)
-#define PTR_LE(x, y) (!PTR_GT(x, y))
-#define PTR_GE(x, y) (!PTR_LT(x, y))
-
-#ifdef STDC_HEADERS
-# ifdef PLAN9
-# define sizet long
-# else
-# include <stdlib.h>
-# ifdef AMIGA
-# include <stddef.h>
-# endif
-# define sizet size_t
-# endif
-#else
-# ifdef _SIZE_T
-# define sizet size_t
-# else
-# define sizet unsigned int
-# endif
-#endif
-
-#ifdef macintosh
-# include <unistd.h>
-#endif
-
-#ifdef __FreeBSD__
-# include <unistd.h>
-#endif
-
-#ifdef linux
-# include <unistd.h>
-#endif
-
-/* On VMS, GNU C's errno.h contains a special hack to get link attributes
- for errno correct for linking with libc. */
-
-#ifndef PLAN9
-# include <errno.h>
-#endif
-
-/* SYSCALL retries system calls that have been interrupted (EINTR) */
-#ifdef vms
-# ifndef __GNUC__
-# include <ssdef.h>
-# define SCM_INTERRUPTED(errno) (EVMSERR==errno && \
- (vaxc$errno>>3)==(SS$_CONTROLC>>3))
-# endif
-#endif
-
-#ifndef SCM_INTERRUPTED
-# ifdef EINTR
-# if (EINTR > 0)
-# define SCM_INTERRUPTED(errno) (EINTR==errno)
-# endif
-# endif
-#endif
-
-#ifndef SCM_INTERRUPTED
-# define SCM_INTERRUPTED(errno) (0)
-#endif
-
-#ifdef _WIN32
-// Windows doesn't set errno = EINTR
-# define SYSCALL(line) do{line;while(GetLastError() == ERROR_OPERATION_ABORTED){SetLastError(0);Sleep(10);line};}while(0)
-#else
-# define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno))
-#endif
-
-#ifdef EMFILE
-# ifdef ENFILE
-# define SCM_NEED_FDS(errno) (EMFILE==errno || ENFILE==errno)
-# else
-# define SCM_NEED_FDS(errno) (EMFILE==errno)
-# endif
-#else
-# define SCM_NEED_FDS(errno) (0)
-#endif
-
-#define SCM_OPENCALL(line) {int gcs = 0;\
- while (!0) {errno = 0; if (line) break;\
- if (0==gcs++ && SCM_NEED_FDS(errno)) \
- gc_for_open_files();\
- else if (!SCM_INTERRUPTED(errno)) break;}}
-
-#ifndef MSDOS
-# ifdef ARM_ULIB
- extern volatile int errno;
-# else
- extern int errno;
-# endif
-#endif
-#ifdef __TURBOC__
-# if (__TURBOC__==1)
- /* Needed for TURBOC V1.0 */
- extern int errno;
-# endif
-#endif
-
-/* EXIT_SUCCESS is the default code to return from SCM if no errors
- were encountered. EXIT_FAILURE is the default code to return from
- SCM if errors were encountered. The return code can be explicitly
- specified in a SCM program with (quit <n>). */
-
-#ifndef EXIT_SUCCESS
-# ifdef vms
-# define EXIT_SUCCESS 1
-# else
-# define EXIT_SUCCESS 0
-# endif
-#endif
-#ifndef EXIT_FAILURE
-# ifdef vms
-# define EXIT_FAILURE 2
-# else
-# define EXIT_FAILURE 1
-# endif
-#endif
-
-/* Yasuaki Honda, Bob Schumaker */
-/* Think C and Metrowerks lack isascii macro */
-#ifdef macintosh
-# define isascii(c) ((unsigned)(c) <= 0x7f)
-#endif
-#ifdef _DCC
-# define isascii(c) ((unsigned)(c) <= 0x7f)
-#endif
-
-#ifdef __STDC__
-# define VOLATILE volatile
-#else
-# define VOLATILE /**/
-#endif
-
-#ifdef _MSC_VER
- // Disable annoying warnings for:
-# pragma warning (disable: 4102) // unreferenced label
-# pragma warning (disable: 4018) // signed/unsigned mismatch
-# pragma warning (disable: 4101) // unreferenced variables
-# pragma warning (disable: 4244) // conversion from unsigned long to unsigned short
-#endif
-
-/* end of automatic C pre-processor definitions */
diff --git a/SCM/scmflags.h b/SCM/scmflags.h
deleted file mode 100644
index a3c5ea6..0000000
--- a/SCM/scmflags.h
+++ /dev/null
@@ -1,4 +0,0 @@
-//#undef SHORT_ALIGN
-//#define CHEAP_CONTINUATIONS
-//#undef STACK_GROWS_UP
-//#define CONTINUATION_OTHER
diff --git a/SCM/setjump.h b/SCM/setjump.h
deleted file mode 100644
index e63423e..0000000
--- a/SCM/setjump.h
+++ /dev/null
@@ -1,125 +0,0 @@
-/* "setjump.h" memory and stack parameters.
- * Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License as
- * published by the Free Software Foundation, either version 3 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this program. If not, see
- * <http://www.gnu.org/licenses/>.
- */
-
-/* Author: Aubrey Jaffer */
-
-/* CELL_UP and CELL_DN are used by init_heap_seg to find cell aligned inner
- bounds for allocated storage */
-
-#ifdef PROT386
-/*in 386 protected mode we must only adjust the offset */
-# define CELL_UP(p) MK_FP(FP_SEG(p), ~7&(FP_OFF(p)+7))
-# define CELL_DN(p) MK_FP(FP_SEG(p), ~7&FP_OFF(p))
-#else
-# ifdef _UNICOS
-# define CELL_UP(p) (CELLPTR)(~1L & ((long)(p)+1L))
-# define CELL_DN(p) (CELLPTR)(~1L & (long)(p))
-# else
-# define CELL_UP(p) (CELLPTR)(~(sizeof(cell)-1L) & ((long)(p)+sizeof(cell)-1L))
-# define CELL_DN(p) (CELLPTR)(~(sizeof(cell)-1L) & (long)(p))
-# endif /* UNICOS */
-#endif /* PROT386 */
-
-/* These are parameters for controlling memory allocation. The heap
- is the area out of which cons and object headers is allocated.
- Each heap object is 8 bytes on a 32 bit machine and 16 bytes on a
- 64 bit machine. The units of the _SIZE parameters are bytes.
-
- INIT_HEAP_SIZE is the initial size of heap. If this much heap is
- allocated initially the heap will grow by half its current size
- each subsequent time more heap is needed.
-
- If INIT_HEAP_SIZE heap cannot be allocated initially, HEAP_SEG_SIZE
- will be used, and the heap will grow by HEAP_SEG_SIZE when more
- heap is needed. HEAP_SEG_SIZE must fit into type sizet. This code
- is in init_storage() and alloc_some_heap() in sys.c
-
- If INIT_HEAP_SIZE can be allocated initially, the heap will grow by
- EXPHEAP(heap_cells) when more heap is needed.
-
- MIN_HEAP_SEG_SIZE is minimum size of heap to accept when more heap
- is needed.
-
- INIT_MALLOC_LIMIT is the initial amount of malloc usage which will
- trigger a GC. */
-
-#define INIT_HEAP_SIZE (25000L*sizeof(cell))
-#define MIN_HEAP_SEG_SIZE (2000L*sizeof(cell))
-#ifdef _QC
-# define HEAP_SEG_SIZE 32400L
-#else
-# ifdef sequent
-# define HEAP_SEG_SIZE (7000L*sizeof(cell))
-# else
-# define HEAP_SEG_SIZE (8100L*sizeof(cell))
-# endif
-#endif
-#define EXPHEAP(heap_cells) (heap_cells*2)
-#define INIT_MALLOC_LIMIT 100000
-
-/* ECACHE_SIZE is the number of cells in the copy-collected environment
- cache used for environment frames */
-#define ECACHE_SIZE 2000
-
-/* If fewer than MIN_GC_YIELD cells are recovered during a
- cell-requested garbage collection (GC), then another heap segment
- is allocated. */
-
-#define MIN_GC_YIELD (heap_cells / 4)
-
-/* If fewer than MIN_MALLOC_YIELD cells are free after a
- malloc-requested garbage collection (GC), then the mtrigger limit
- is raised. */
-
-#define MIN_MALLOC_YIELD (mtrigger / 8)
-
-/* NUM_HASH_BUCKETS is the number of symbol hash table buckets. */
-
-#define NUM_HASH_BUCKETS 137
-
-#ifdef IN_CONTINUE_C
-# include "scm.h"
-# define malloc(size) must_malloc((long)(size), s_cont)
-# define free(obj) must_free((char *)(obj), 0)
-#endif
-
-/* other.dynenv and other.parent get GCed just by being there. */
-struct scm_other {SCM dynenv;
- SCM parent;
-#ifdef RECKLESS
- SCM stkframe[2];
-#else
- SCM stkframe[4];
-#endif
- SCM estk;
- SCM *estk_ptr;
- };
-#define CONTINUATION_OTHER struct scm_other
-#define CONT(x) ((CONTINUATION *)CDR(x))
-#define SETCONT SETCDR
-void dowinds P((SCM to));
-
-#include "continue.h"
-
-typedef struct safeport {
- SCM port;
- jmp_buf jmpbuf; /* The usual C jmp_buf, not SCM's jump_buf */
- int ccnt;
-} safeport;
-
-#define SAFEP_JMPBUF(sfp) (((safeport *)STREAM(sfp))->jmpbuf)
diff --git a/SCM/setjump.mar b/SCM/setjump.mar
deleted file mode 100644
index 3fc223c..0000000
--- a/SCM/setjump.mar
+++ /dev/null
@@ -1,39 +0,0 @@
- .title setjump and longjump
-
-; The VAX C runtime library uses the $unwind utility for
-; implementing longjmp. That fails if your program does not
-; follow normal stack decipline. This is a dirty implementation
-; of setjmp and longjmp that does not have that problem. The
-; names longjmp and setjmp are avoided so that the code can be
-; linked with the vax c runtime library without name clashes.
-
-; This code was contributed by an anonymous reviewer from
-; comp.sources.reviewed.
-
- .entry setjump,^M<IV>
- movl 4(ap),r0
- movq r2,(r0)+
- movq r4,(r0)+
- movq r6,(r0)+
- movq r8,(r0)+
- movq r10,(r0)+
- movl fp,(r0)+
- movo 4(fp),(r0)+
- movq 20(fp),(r0)
- clrl r0
- ret
-
- .entry longjump,^M<IV>
- movl 4(ap),r0
- movq (r0)+,r2
- movq (r0)+,r4
- movq (r0)+,r6
- movq (r0)+,r8
- movq (r0)+,r10
- movl (r0)+,r1
- movo (r0)+,4(r1)
- movq (r0),20(r1)
- movl 8(ap),r0
- movl r1,fp
- ret
- .end
diff --git a/SCM/setjump.s b/SCM/setjump.s
deleted file mode 100644
index b96fb05..0000000
--- a/SCM/setjump.s
+++ /dev/null
@@ -1,40 +0,0 @@
-* setjmp on the Cray YMP does not save all registers. Although this
-* conforms to the ANSI standard, it is not sufficient for SCM garbage
-* collection and continuations.
-*
-* This is a version of setjump for the Cray YMP that does save all non-
-* temporary registers. It might work for the XMP. It definitely will
-* not work on the Cray 2. I do not know if the setjmp on the Cray 2 will
-* work with SCM or not.
-*
-* This has been tested under Unicos 6.1.
-*
-* --Radey Shouman <rshouman@chpc.utexas.edu>
-*
- IDENT SETJUMP
- ENTRY setjump
-setjump = *
- A1 1,A6
- A2 56
- A0 A1
- ,A0 T00,A2
- A0 A1+A2
- ,A0 B00,A2
- S1 0
- J B00
-*
- ENTRY longjump
-longjump = *
- A1 1,A6
- A0 A1
- A2 56
- T00,A2 ,A0
- A0 A1+A2
- B00,A2 ,A0
- S1 2,A6
- J B00
- END
-** Local Variables:
-** tab-stop-list: (12 28 45)
-** indent-tabs-mode: nil
-** End:
diff --git a/SCM/ugsetjump.s b/SCM/ugsetjump.s
deleted file mode 100644
index e9e29f4..0000000
--- a/SCM/ugsetjump.s
+++ /dev/null
@@ -1,35 +0,0 @@
-#NO_APP
-.text
- .align 1
-.globl _setjump
-_setjump:
- .word 0x0
- movl 4(ap),r0
- movq r2,(r0)+
- movq r4,(r0)+
- movq r6,(r0)+
- movq r8,(r0)+
- movq r10,(r0)+
- movl fp,(r0)+
- movo 4(fp),(r0)+
- movq 20(fp),(r0)
- clrl r0
- ret
- ret
- .align 1
-.globl _longjump
-_longjump:
- .word 0x0
- movl 4(ap),r0
- movq (r0)+,r2
- movq (r0)+,r4
- movq (r0)+,r6
- movq (r0)+,r8
- movq (r0)+,r10
- movl (r0)+,r1
- movo (r0)+,4(r1)
- movq (r0),20(r1)
- movl 8(ap),r0
- movl r1,fp
- ret
- ret