From ab8cc85adde879fb963c94d15675783f2cf4b183 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 14 Aug 2007 05:14:52 +0000
Subject: Initial population.

---
 src/interp/cformat.boot.pamphlet | 108 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100644 src/interp/cformat.boot.pamphlet

(limited to 'src/interp/cformat.boot.pamphlet')

diff --git a/src/interp/cformat.boot.pamphlet b/src/interp/cformat.boot.pamphlet
new file mode 100644
index 00000000..a5fb233d
--- /dev/null
+++ b/src/interp/cformat.boot.pamphlet
@@ -0,0 +1,108 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp cformat.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"
+
+--% Formatting functions for various compiler data objects.
+--  These are used as [%origin o, %id n] for %1f %2f... style arguments
+--  in a keyed message.
+--  SMW, SG June 88
+ 
+%id a     == [IDENTITY, a]
+ 
+-- Union(FileName,"strings","console")
+%origin x ==
+    [function porigin, x]
+porigin x ==
+    (STRINGP x => x; pfname x)
+ 
+%fname x ==
+    [function pfname, x]
+pfname x ==
+    PathnameString x
+ 
+
+%pos p == [function ppos, p]
+ppos p ==
+    pfNoPosition? p => ['"no position"]
+    pfImmediate? p  => ['"console"]
+    cpos := pfCharPosn p
+    lpos := pfLinePosn p
+    org  := porigin pfFileName p
+    [org,'" ",'"line",'" ",lpos]
+ 
+%key keyStuff == [function pkey, keyStuff]
+--keyStuff ::= keynumber | [ one or more keySeqs ]
+--keySeq   ::= keynumber optargList optdbn
+--optARgL  ::= [ 0 or more arguments ] | nothing at all
+--optDbn   ::= ['dbN , databaseName ] | nothing at all
+----------- (override in format.boot.pamphlet)
+pkey keyStuff ==
+    if not PAIRP keyStuff then keyStuff := [keyStuff]
+    allMsgs := []
+    while not null keyStuff repeat
+        dbN := NIL
+        argL := NIL
+        key := first keyStuff
+        keyStuff := IFCDR keyStuff
+        next := IFCAR keyStuff
+        while PAIRP next repeat
+            if CAR next = 'dbN then dbN := CADR next
+            else argL := next
+            keyStuff  := IFCDR keyStuff
+            next      := IFCAR keyStuff
+        oneMsg  := returnStLFromKey(key,argL,dbN)
+        allMsgs := NCONC (oneMsg,allMsgs)
+    allMsgs
+ 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
-- 
cgit v1.2.3