1 files changed, 206 insertions, 0 deletions
diff --git a/src/interp/parini.boot.pamphlet b/src/interp/parini.boot.pamphlet
new file mode 100644
index 00000000..06ea15c1
--- /dev/null
+++ b/src/interp/parini.boot.pamphlet
@@ -0,0 +1,206 @@
+\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}