aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/nruncomp.boot (renamed from src/interp/nruncomp.boot.pamphlet)30
-rw-r--r--src/interp/nrunfast.boot (renamed from src/interp/nrunfast.boot.pamphlet)26
-rw-r--r--src/interp/nrungo.boot (renamed from src/interp/nrungo.boot.pamphlet)24
-rw-r--r--src/interp/nruntime.boot (renamed from src/interp/nruntime.boot.pamphlet)24
4 files changed, 10 insertions, 94 deletions
diff --git a/src/interp/nruncomp.boot.pamphlet b/src/interp/nruncomp.boot
index 0d8f0986..7fdf8d2b 100644
--- a/src/interp/nruncomp.boot.pamphlet
+++ b/src/interp/nruncomp.boot
@@ -1,22 +1,7 @@
-\documentclass{article}
-\usepackage{axiom}
-
-\title{\$SPAD/src/interp nruncomp.boot}
-\author{The Axiom Team}
-
-\begin{document}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-
-\section{License}
-
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
+-- Copyright (C) 2007, 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
@@ -46,9 +31,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
import '"c-util"
import '"simpbool"
@@ -166,7 +148,7 @@ optDeltaEntry(op,sig,dc,eltOrConst) ==
not(IDENTP x) => x
get(x,'value,$e) => x
x='$ => x
- MKQ x
+ MKQ x
fn := compiledLookup(op,nsig,dcval)
if null fn then return nil
eltOrConst="CONST" => ['XLAM,'ignore,MKQ SPADCALL fn]
@@ -765,9 +747,3 @@ NRTputInTail x ==
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nrunfast.boot.pamphlet b/src/interp/nrunfast.boot
index 5f914bd7..36da8cc4 100644
--- a/src/interp/nrunfast.boot.pamphlet
+++ b/src/interp/nrunfast.boot
@@ -1,18 +1,7 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nrunfast.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.
+-- Copyright (C) 2007, 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
@@ -42,9 +31,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
import '"c-util"
)package "BOOT"
@@ -606,7 +592,7 @@ newHasTest(domform,catOrAtt) ==
for [aCat,:cond] in [:ancestorsOf(domform,NIL),:SUBLISLIS (rest domform,$FormalMapVariableList,GETDATABASE(opOf domform,'ATTRIBUTES))] | aCat = catOrAtt repeat
return evalCond cond where
evalCond x ==
- ATOM x => x
+ ATOM x => x
[pred,:l] := x
pred = 'has =>
l is [ w1,['ATTRIBUTE,w2]] => newHasTest(w1,w2)
@@ -662,9 +648,3 @@ sayLooking1(prefix,dom) ==
cc() == -- don't remove this function
clearConstructorCaches()
clearClams()
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nrungo.boot.pamphlet b/src/interp/nrungo.boot
index 96f7aaa0..229ad785 100644
--- a/src/interp/nrungo.boot.pamphlet
+++ b/src/interp/nrungo.boot
@@ -1,18 +1,7 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nrungo.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.
+-- Copyright (C) 2007, 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
@@ -42,9 +31,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
import '"c-util"
)package "BOOT"
@@ -411,9 +397,3 @@ mkDiffAssoc(op,body,k,sharpPosition,sharpArg,diffSlot,vecname) ==
['$failed]
"union"/[mkDiffAssoc(op,x,k,sharpPosition,sharpArg,diffSlot,vecname) for x in argl]
systemErrorHere '"mkDiffAssoc"
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nruntime.boot.pamphlet b/src/interp/nruntime.boot
index eaa39365..460f3e62 100644
--- a/src/interp/nruntime.boot.pamphlet
+++ b/src/interp/nruntime.boot
@@ -1,18 +1,7 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nruntime.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.
+-- Copyright (C) 2007, 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
@@ -42,9 +31,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
import '"c-util"
)package "BOOT"
@@ -75,9 +61,3 @@ isCategoryPackageName nam ==
p.(MAXINDEX p) = char '_&
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}