Artifact 37937e638782465b49df9265b68524788dc9e06ef6eada134a86b569e7fa4058:
- File
r34.1/src/dbuild.sl
— part of check-in
[f2fda60abd]
at
2011-09-02 18:13:33
on branch master
— Some historical releases purely for archival purposes
git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 2333) [annotate] [blame] [check-ins using] [more...]
% Build a PSL REDUCE "in core" without the use of fasl files. % Author: Anthony C. Hearn. Modifications by Stanley L. Kameny. (load addr2id) % In case an error occurs. (setq !*fastcar t) (setq !*usermode nil) (setq !*verboseload t) (remprop 'cursym!* 'vartype) % PSL declares this fluid. % Compiler modifications. (load compiler) (remprop 'wplus2 'one) % PSL compiler bug. (remprop 'log 'no!-side!-effects!?) % So that math can be fasled. (remprop 'atan 'no!-side!-effects!?) % So that math can be fasled. (remprop '!*msg 'vartype) % Compiler declares this global. (load fast!-vector) % To use IGETV, etc. (cond ((filep "$reduce/psl/symget.b") (dskin "$reduce/util/symget.dat"))) (load nbig30) % PSL bignums. (errorset '(load compat) nil nil) % Load PSL-based functions if there. (global '(oldchan!* datchan!*)) % datchan!* needed for MS-DOS. (setq !*argnochk t) % (setq !*ignoreeol t) % Needed so things like "module where" work. % However, variable is no longer in use. (setq !*int nil) % Prevents input buffer being saved. (setq !*msg nil) (flag '(eqcar) 'lose) % Already in PSL. (setq !*comp t) % It's faster if we compile the boot file. (setq oldchan!* in!*) % To continue reading this file after boot.sl. (dskin "boot.sl") (fluid '(xxx)) (begin2) rds(xxx := open("prolog.red",'input)); (close xxx) (begin2) rds(xxx := open("module.red",'input)); (close xxx) (begin2) rds(xxx := open("rlisp.red",'input)); (close xxx) (begin2) rds(xxx := open("rend.red",'input)); (close xxx) (begin2) rds(xxx := open("poly.red",'input)); (close xxx) (begin2) rds(xxx := open("alg.red",'input)); (close xxx) % Even though ARITH isn't really necessary to compile most files, it's % important to have it loaded when compiling itself to make sure that % the floating point arithmetic is done at the right precision. (begin2) rds(xxx := open("arith.red",'input)); (close xxx) (setq !*comp nil) (setq !*verboseload nil) % Necessary declaration from entry.red. (put 'faslend 'stat 'endstat) (initreduce) (setq date!* "bootstrapping version") (cond (datchan!* (rds datchan!*))) % Needed for MS-DOS systems.