diff options
author | dos-reis <gdr@axiomatics.org> | 2011-03-16 16:39:22 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-03-16 16:39:22 +0000 |
commit | 3156d86ff1d99c2d5291f057bd3a4cb710756472 (patch) | |
tree | 2733201d18adb1fd2054e59ccd0aa6b0e5b5cc94 /src/interp/nspadaux.lisp | |
parent | 11eebf207528f86dfa4556be3b2cc7cba57244a6 (diff) | |
download | open-axiom-3156d86ff1d99c2d5291f057bd3a4cb710756472.tar.gz |
* interp/i-syscmd.boot (compileSpad2Cmd): Remove experimental
support for Spad to Aldor translation.
(convertSpasToAsFile): Remove.
* interp/mark.boot: Remove.
* interp/nspadux.lisp: Likewise.
* interp/pspad1.boot: Likewise.
* interp/pspad2.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
* interp/spad.lisp: Don't register removed formatters.
* interp/util.lisp: (TRANSLATE-FUNCTIONS): Remove.
(BUILD-INTERPSYS): Now take only one argument.
* src/share/doc/msgs/s2-us.msgs: Remove diagnostic S2IZ0085.
* interp/Makefile.in: Remove rules for building wi1.boot,
wi2.boot, mark.boot, pspad1.boot pspad2.boot.
Diffstat (limited to 'src/interp/nspadaux.lisp')
-rw-r--r-- | src/interp/nspadaux.lisp | 119 |
1 files changed, 0 insertions, 119 deletions
diff --git a/src/interp/nspadaux.lisp b/src/interp/nspadaux.lisp deleted file mode 100644 index 99f7dd50..00000000 --- a/src/interp/nspadaux.lisp +++ /dev/null @@ -1,119 +0,0 @@ -;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -;; All rights reserved. -;; Copyright (C) 2007-2008, Gabriel Dos Reis. -;; 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. - - -(import-module "sys-macros") -(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") - -(defparameter |$underscoreChar| (|char| '_)) -(defvar |$back| nil) - -(defparameter |$markChoices| '(ATOM COLON LAMBDA AUTOSUBSET AUTOHARD AUTOREP REPPER FREESI RETRACT)) -(defparameter |$convert2NewCompiler| 'T) -(defparameter |$AnalyzeOnly| NIL) -(defparameter |$categoryPart| 'T) -(defparameter |$insideCAPSULE| nil) -(defparameter |$insideEXPORTS| nil) -(defparameter |$originalSignature| nil) -(defparameter |$insideDEF| nil) -(defparameter |$insideTypeExpression| nil) -(defparameter |$spadTightList| '(\.\. \# \' \:\ \: \:\:)) - -(defparameter |$PerCentVariableList| '(%1 %2 %3 %4 %5 %6 %7 %8 %9 %10)) - -(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) - - |