aboutsummaryrefslogtreecommitdiff
path: root/src/interp/parini.boot.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-13 11:06:16 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-13 11:06:16 +0000
commit7491a064401ff3493d32513d9028afecf29f2e5b (patch)
tree8de315b10585077cec99754ff9fb9eaa9dd472fe /src/interp/parini.boot.pamphlet
parent3b5bfc6d56f8cbd020d963622ce9ab6160ee049f (diff)
downloadopen-axiom-7491a064401ff3493d32513d9028afecf29f2e5b.tar.gz
* Makefile.pamphlet (scan.$(FASLEXT)): New rule.
(pile.$(FASLEXT)): Likewise. (INOBJS): Don't include parini.$(FASLEXT). * pile.boot: New. Import scan. * pile.boot.pamphlet: Move content to pile.boot. Remove. * vmlisp.lisp.pamphlet (|startsId?|): Move to sys-macros.lisp. * parini.boot.pamphlet: Move content to scan.boot. Remove. * scan.boot: New. Import bits, dq, incl. Add workaround for GCL bug. ($SPACE): Rename from SPACE to avoid conflict with CL name. * scan.boot.pamphlet: Move content to scan.boot. Remove.
Diffstat (limited to 'src/interp/parini.boot.pamphlet')
-rw-r--r--src/interp/parini.boot.pamphlet206
1 files changed, 0 insertions, 206 deletions
diff --git a/src/interp/parini.boot.pamphlet b/src/interp/parini.boot.pamphlet
deleted file mode 100644
index 06ea15c1..00000000
--- a/src/interp/parini.boot.pamphlet
+++ /dev/null
@@ -1,206 +0,0 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp parini.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
--- 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.
-
-@
-<<*>>=
-<<license>>
-
-)package "BOOT"
-
-SPACE := QENUM('" ", 0)
-ESCAPE := QENUM('"__ ", 0)
-STRING_CHAR := QENUM('"_" ", 0)
-PLUSCOMMENT := QENUM('"+ ", 0)
-MINUSCOMMENT:= QENUM('"- ", 0)
-RADIX_CHAR := QENUM('"r ", 0)
-DOT := QENUM('". ", 0)
-EXPONENT1 := QENUM('"E ", 0)
-EXPONENT2 := QENUM('"e ", 0)
-CLOSEPAREN := QENUM('") ", 0)
-CLOSEANGLE := QENUM('"> ", 0)
-QUESTION := QENUM('"? ",0)
-
-scanKeyWords := [ _
- ['"add", "ADD" ],_
- ['"and", "AND" ],_
- ['"break", "BREAK" ],_
- ['"by", "BY" ],_
- ['"case", "CASE" ],_
- ['"default", "DEFAULT" ],_
- ['"define", "DEFN" ],_
- ['"do", "DO"],_
- ['"else", "ELSE" ],_
- ['"exit", "EXIT" ],_
- ['"export","EXPORT" ],_
- ['"for", "FOR" ],_
- ['"free", "FREE" ],_
- ['"from", "FROM" ],_
- ['"has", "HAS" ],_
- ['"if", "IF" ],_
- ['"import", "IMPORT" ],_
- ['"in", "IN" ],_
- ['"inline", "INLINE" ],_
- ['"is", "IS" ],_
- ['"isnt", "ISNT" ],_
- ['"iterate", "ITERATE"],_
- ['"local", "local" ],_
- ['"macro", "MACRO" ],_
- ['"mod", "MOD" ],_
- ['"or", "OR" ],_
- ['"pretend","PRETEND" ],_
- ['"quo","QUO" ],_
- ['"rem","REM" ],_
- ['"repeat","REPEAT" ],_
- ['"return","RETURN" ],_
- ['"rule","RULE" ],_
- ['"then","THEN" ],_
- ['"where","WHERE" ],_
- ['"while","WHILE" ],_
- ['"with","WITH" ],_
- ['"|","BAR"],_
- ['".","DOT" ],_
- ['"::","COERCE" ],_
- ['":","COLON" ],_
- ['":-","COLONDASH" ],_
- ['"@","AT" ],_
- ['"@@","ATAT" ],_
- ['",","COMMA" ],_
- ['";","SEMICOLON" ],_
- ['"**","POWER" ],_
- ['"*","TIMES" ],_
- ['"+","PLUS" ],_
- ['"-","MINUS" ],_
- ['"<","LT" ],_
- ['">","GT" ],_
- ['"<=","LE" ],_
- ['">=","GE" ],_
- ['"=", "EQUAL"],_
- ['"~=","NOTEQUAL" ],_
- ['"~","~" ],_
- ['"^","CARAT" ],_
- ['"..","SEG" ],_
- ['"#","#" ],_
- ['"&","AMPERSAND" ],_
- ['"$","$" ],_
- ['"/","SLASH" ],_
- ['"\","BACKSLASH" ],_
- ['"//","SLASHSLASH" ],_
- ['"\\","BACKSLASHBACKSLASH" ],_
- ['"/\","SLASHBACKSLASH" ],_
- ['"\/","BACKSLASHSLASH" ],_
- ['"=>","EXIT" ],_
- ['":=","BECOMES" ],_
- ['"==","DEF" ],_
- ['"==>","MDEF" ],_
- ['"->","ARROW" ],_
- ['"<-","LARROW" ],_
- ['"+->","GIVES" ],_
- ['"(","(" ],_
- ['")",")" ],_
- ['"(|","(|" ],_
- ['"|)","|)" ],_
- ['"[","[" ],_
- ['"]","]" ],_
- ['"[__]","[]" ],_
- ['"{","{" ],_
- ['"}","}" ],_
- ['"{__}","{}" ],_
- ['"[|","[|" ],_
- ['"|]","|]" ],_
- ['"[|__|]","[||]" ],_
- ['"{|","{|" ],_
- ['"|}","|}" ],_
- ['"{|__|}","{||}" ],_
- ['"<<","OANGLE" ],_
- ['">>","CANGLE" ],_
- ['"'", "'" ],_
- ['"`", "BACKQUOTE" ]_
- ]
-
-scanKeyTable:=scanKeyTableCons()
-
-scanDict:=scanDictCons()
-
-scanPun:=scanPunCons()
-
---for i in ["COLON","MINUS"] repeat
--- MAKEPROP(i,'PREGENERIC,'TRUE)
-
-for i in [ _
- ["EQUAL" ,"="], _
- ["TIMES" ,"*"], _
- ["HAS" ,"has"], _
- ["CASE" ,"case"], _
- ["REM" ,"rem"], _
- ["MOD" ,"mod"], _
- ["QUO" ,"quo"], _
- ["SLASH" ,"/"], _
- ["BACKSLASH","\"], _
- ["SLASHSLASH" ,"//"], _
- ["BACKSLASHBACKSLASH","\\"], _
- ["SLASHBACKSLASH" ,"/\"], _
- ["BACKSLASHSLASH","\/"], _
- ["POWER" ,"**"], _
- ["CARAT" ,"^"], _
- ["PLUS" ,"+"], _
- ["MINUS" ,"-"], _
- ["LT" ,"<"], _
- ["GT" ,">"], _
- ["OANGLE" ,"<<"], _
- ["CANGLE" ,">>"], _
- ["LE" ,"<="], _
- ["GE" ,">="], _
- ["NOTEQUAL" ,"~="], _
- ["BY" ,"by"], _
- ["ARROW" ,"->"], _
- ["LARROW" ,"<-"], _
- ["BAR" ,"|"], _
- ["SEG" ,".."] _
- ] repeat MAKEPROP(CAR i,'INFGENERIC,CADR i)
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}