diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-10 03:30:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-10 03:30:13 +0000 |
commit | b8d7cd431a779551cf2c6eac94f6b4463db97273 (patch) | |
tree | e52ce35bd564ae64db8623410f6414f0d16f72ea /src/interp/nspadaux.lisp | |
parent | 383b2385eb1f3fb00f5856a2ddf593ec42c03189 (diff) | |
download | open-axiom-b8d7cd431a779551cf2c6eac94f6b4463db97273.tar.gz |
* Makefile.pamphlet (DEP): Adjust path to comp.lisp.
(${DEPSYS}): Likewise for def.lisp, bootlex.lisp, postprop.lisp,
metalex.lisp. Use |compileLispFile| instead of COMPILE-FILE.
* Makefile.in: Regenerate.
* union.lisp: New.
* union.lisp.pamphlet: Move content to union.lisp. Remove.
* obey.lisp: New.
* obey.lisp.pamphlet: Move content to obey.lisp. Remove.
* nspadaux.lisp: New.
* nspadaux.lisp.pamphlet: Move content to nspadaux.lisp. Remove.
* fname.lisp: New.
* fname.lisp.pamphlet: Move content to fname.lisp. Remove.
* def.lisp: New.
* def.lisp.pamphlet: Move content to def.lisp. Remove.
* comp.lisp: New.
* comp.lisp.pamphlet: Move content to comp.lisp. Remove.
* bootlex.lisp: New.
* bootlex.lisp.pamphlet: Move content to bootlex.lisp. Remove.
* postprop.lisp: New.
* postprop.lisp.pamphlet: Move content to postprop.lisp. Remove.
* metalex.lisp: New.
* metalex.lisp.pamphlet: Move content to metalex.lisp. Remove.
* parsing.lisp: New.
* parsing.lisp.pamphlet: Move content to parsing.lisp. Remove.
Diffstat (limited to 'src/interp/nspadaux.lisp')
-rw-r--r-- | src/interp/nspadaux.lisp | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/src/interp/nspadaux.lisp b/src/interp/nspadaux.lisp new file mode 100644 index 00000000..299b5240 --- /dev/null +++ b/src/interp/nspadaux.lisp @@ -0,0 +1,117 @@ +;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. +;; All rights reserved. +;; +;; Redistribution and use in source and binary forms, with or without +;; modification, are permitted provided that the following conditions are +;; met: +;; +;; - Redistributions of source code must retain the above copyright +;; notice, this list of conditions and the following disclaimer. +;; +;; - Redistributions in binary form must reproduce the above copyright +;; notice, this list of conditions and the following disclaimer in +;; the documentation and/or other materials provided with the +;; distribution. +;; +;; - Neither the name of The Numerical ALgorithms Group Ltd. nor the +;; names of its contributors may be used to endorse or promote products +;; derived from this software without specific prior written permission. +;; +;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS +;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A +;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER +;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + + +(in-package "BOOT") + +(defvar |$DEFdepth| 0) +(defvar |$localMacroStack| nil) +(defvar |$globalMacroStack| nil) +(defvar |$abbreviationStack| nil) +(defvar |$knownAttributes| nil "cumulative list of known attributes of a file") + +(setq |$underscoreChar| (|char| '_)) +(defvar |$back| nil) + +(setq |$markChoices| '(ATOM COLON LAMBDA AUTOSUBSET AUTOHARD AUTOREP REPPER FREESI RETRACT)) +(setq |$convert2NewCompiler| 'T) +(setq |$AnalyzeOnly| NIL) +(setq |$categoryPart| 'T) +(setq |$insideCAPSULE| nil) +(setq |$insideEXPORTS| nil) +(setq |$originalSignature| nil) +(setq |$insideDEF| nil) +(setq |$insideTypeExpression| nil) +(setq |$spadTightList| '(\.\. \# \' \:\ \: \:\:)) + +(setq |$PerCentVariableList| '(%1 %2 %3 %4 %5 %6 %7 %8 %9 %10)) +(makeprop '_^ '|parseTran| '|parseNot|) + +(mapcar #'(lambda (X) (MAKEPROP (CAR X) 'SPECIAL (CADR X))) + '((PART |compPART|) + (WI |compWI|) + (MI |compWI|))) + +(mapcar #'(lambda (X) (MAKEPROP (CAR X) 'PSPAD (CADR X))) + '((|default| |formatDefault|) + (|local| |formatLocal|) + (COMMENT |formatCOMMENT|) + (CAPSULE |formatCAPSULE|) + (LISTOF |formatPAREN|) + (DEF |formatDEF|) + (SEQ |formatSEQ|) + (LET |formatLET|) + (\: |formatColon|) + (ELT |formatELT|) + (QUOTE |formatQUOTE|) + (SEGMENT |formatSEGMENT|) + (DOLLAR |formatDOLLAR|) + (BRACE |formatBrace|) + (|dot| |formatDot|) + (MDEF |formatMDEF|) + (|free| |formatFree|) + (|elt| |formatElt|) + (PAREN |formatPAREN|) + (PROGN |formatPROGN|) + (|exit| |formatExit|) + (|leave| |formatLeave|) + (|void| |formatvoid|) + (MI |formatMI|) + (IF |formatIF|) + (\=\> |formatFATARROW|) + (\+\-\> |formatMap|) + (|Enumeration| |formatEnumeration|) + (|import| |formatImport|) + (UNCOERCE |formatUNCOERCE|) + (CATEGORY |formatCATEGORY|) + (SIGNATURE |formatSIGNATURE|) + (|where| |formatWHERE|) + (COLLECT |formatCOLLECT|) + (|MyENUM| |formatENUM|) + (REDUCE |formatREDUCE|) + (REPEAT |formatREPEAT|) + (ATTRIBUTE |formatATTRIBUTE|) + (CONS |formatCONS|) + (|construct| |formatConstruct|) + (|Union| |formatUnion|) + (|Record| |formatRecord|) + (|Mapping| |formatMapping|) + (|Tuple| |formatTuple|) + (|with| |formatWith|) + (|withDefault| |formatWithDefault|) + (|defaultDefs| |formatDefaultDefs|) + (|add| |formatAdd|))) + +(remprop 'cons '|Led|) +(remprop 'append 'format) +(remprop 'cons 'format) + + |