From d5bcd08978bf3aec00226839db706811bf489c59 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 4 Oct 2008 17:10:46 +0200 Subject: Remove continuation support files from SCM 5e5. --- SCM/ANNOUNCE | 194 --------- SCM/COPYING | 674 ------------------------------ SCM/COPYING.LESSER | 165 -------- SCM/Makefile.orig | 736 --------------------------------- SCM/README | 381 ----------------- SCM/continue-ia64.S | 339 --------------- SCM/continue.c | 242 ----------- SCM/continue.h | 185 --------- SCM/scm.h | 1145 --------------------------------------------------- SCM/scmfig.h | 870 -------------------------------------- SCM/scmflags.h | 4 - SCM/setjump.h | 125 ------ SCM/setjump.mar | 39 -- SCM/setjump.s | 40 -- SCM/ugsetjump.s | 35 -- 15 files changed, 5174 deletions(-) delete mode 100644 SCM/ANNOUNCE delete mode 100644 SCM/COPYING delete mode 100644 SCM/COPYING.LESSER delete mode 100644 SCM/Makefile.orig delete mode 100644 SCM/README delete mode 100644 SCM/continue-ia64.S delete mode 100644 SCM/continue.c delete mode 100644 SCM/continue.h delete mode 100644 SCM/scm.h delete mode 100644 SCM/scmfig.h delete mode 100644 SCM/scmflags.h delete mode 100644 SCM/setjump.h delete mode 100644 SCM/setjump.mar delete mode 100644 SCM/setjump.s delete mode 100644 SCM/ugsetjump.s (limited to 'SCM') 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. - 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. - - - Copyright (C) - - 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 . - -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: - - Copyright (C) - 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 -. - - 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 -. 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. - 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 -# . - -# 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 '' '\ -\ -' Xlibscm_*.html - cp Xlibscm_*.html $(htmldir) -$(htmldir)hobbit_toc.html: Makefile version.txi hobbit.texi - ${TEXI2HTML} hobbit.texi - -rm -f hobbit_stoc.html - chpat '' '\ -\ -' 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 - and . - Remove STDC_HEADERS in scmfig.h. - Edit 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 or INIT_HEAP_SIZE. -ERROR: Could not allocate. Check sizet definition. - Use 32 bit compiler mode. - Don't try to run as subproccess. -remove in scmfig.h and Do so and recompile files. -recompile scm. -add 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) - # - # - # - # - ... - -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 - # - > (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 - # - -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 - * . - */ - -/* 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 - * . - */ - -/* 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 - * . - */ - -/* "continue.h" Scheme Continuations for C. - Author: Aubrey Jaffer. */ - -#ifndef STDC_HEADERS -#define STDC_HEADERS 1 -#endif - -#include - -/* 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 -# 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 -# include -# 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 - * . - */ - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef _WIN32 -# include -#endif - -#ifdef _WIN32_WCE -# include -#endif - -#ifdef hpux -# ifndef __GNUC__ -# define const /**/ -# endif -#endif - -#ifdef PLAN9 -# include -# include -/* 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 -#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 - * . - */ - -/* Author: Aubrey Jaffer */ - -#ifdef sequent -# include -# define strchr index -# define strrchr rindex -#else -# ifndef PLAN9 -# include -# 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 -# 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 -# 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 -# ifdef AMIGA -# include -# endif -# define sizet size_t -# endif -#else -# ifdef _SIZE_T -# define sizet size_t -# else -# define sizet unsigned int -# endif -#endif - -#ifdef macintosh -# include -#endif - -#ifdef __FreeBSD__ -# include -#endif - -#ifdef linux -# include -#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 -#endif - -/* SYSCALL retries system calls that have been interrupted (EINTR) */ -#ifdef vms -# ifndef __GNUC__ -# include -# 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 ). */ - -#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 - * . - */ - -/* 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 - 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 - 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 -* - 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 -- cgit v1.2.3