Initial population.

1 files changed, 389 insertions, 0 deletions

diff --git a/src/hyper/token.pamphlet b/src/hyper/token.pamphlet
new file mode 100644
index 00000000..49360601
--- /dev/null
+++ b/src/hyper/token.pamphlet
@@ -0,0 +1,389 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/token}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{token.h}
+<<token.h>>=
+<<license>>
+#ifndef _TOKEN_H_
+#define _TOKEN_H_ 1
+
+/*
+ Here are a couple of flags added for whitespace stuff. They tell
+      punctuation if there was space in front of it or not
+*/
+
+#define FRONTSPACE 0001
+#define BACKSPACE  0002
+
+/* HyperDoc parser tokens */
+
+typedef struct toke {
+  int type;		/* token type.	One of those listed below */
+  char *id;		/* string value if type == Identifier */
+} Token;
+
+/*
+    User tokens. ie, these can be found on a page
+*/
+
+#define Word		      1
+#define Page		      2
+#define Lispcommandquit	      3
+#define BoldFace	      4
+#define Link		      5
+#define Downlink	      6
+#define Beginscroll	      7
+#define Spadcommand	      8
+#define NoLines		      9
+#define Env		     10
+#define Par		     11
+#define Center		     12
+#define Begin		     13
+#define Beginitems	     14
+#define Item		     15
+#define Table		     16
+#define Box		     17
+#define Tab		     18
+#define Space		     19
+#define Indent		     20
+#define Horizontalline	     21
+#define Newline		     22
+#define Enditems	     23
+#define Returnbutton	     24
+#define Memolink	     25
+#define Upbutton	     26
+#define Endscroll	     27
+#define Thispage	     28
+#define Returnto	     29
+#define Free		     30
+#define Bound		     31
+#define Lisplink	     32
+#define Unixlink	     33
+#define Mbox		     34
+#define Inputstring	     35
+#define StringValue	     36
+#define Spadlink	     37
+#define Inputbitmap	     38
+#define Inputpixmap	     39
+#define Unixcommand	     40
+#define Emphasize	     41
+#define Lispcommand	     42
+#define LispMemoLink	     43
+#define LispDownLink	     44
+#define Spadcall	     45
+#define Spadcallquit	     46
+#define Spaddownlink	     47
+#define Spadmemolink	     48
+#define Qspadcall	     49
+#define Qspadcallquit	     50
+#define SimpleBox	     51
+#define Radioboxes	     52
+#define BoxValue	     53
+#define VSpace		     54
+#define HSpace		     55
+#define NewCommand	     56
+#define WindowId	     57
+#define Beep		     58
+#define Quitbutton	     59
+#define Begintitems	     60
+#define Titem		     61
+#define End		     62
+#define It		     63
+#define Sl		     64
+#define Tt		     65
+#define Rm		     66
+#define Ifcond		     67
+#define Else		     68
+#define Fi		     69
+#define Newcond		     70
+#define Setcond		     71
+#define Button		     72
+#define Windowlink	     73
+#define Haslisp		     74
+#define Hasup		     75
+#define Hasreturn	     76
+#define Hasreturnto	     77
+#define Lastwindow	     78
+#define Endtitems	     79
+#define Lispwindowlink	     80
+#define Beginpile	     81
+#define Endpile		     82
+#define Nextline	     83
+#define Pastebutton	     84
+#define Color		     85
+#define Helppage	     86
+#define Patch		     87
+#define Radiobox	     88
+#define ifrecond	     89
+#define Math		     90
+#define Mitem		     91
+#define Pagename	     92
+#define Examplenumber	     93
+#define Replacepage	     94
+#define Inputimage	     95
+#define Spadgraph	     96
+#define Indentrel	     97
+#define Controlbitmap	     98
+
+#define NumberUserTokens     98
+
+
+extern char *token_table[];
+
+#ifdef PARSER
+char *token_table[] = {
+  "",           /* Dummy token name */
+  "word",
+  "page",
+  "lispcommandquit",
+  "bf",
+  "link",
+  "downlink",
+  "beginscroll",
+  "spadcommand",
+  "nolines",
+  "env",
+  "par",
+  "centerline",
+  "begin",
+  "beginitems",
+  "item",
+  "table",
+  "fbox",
+  "tab",
+  "space",
+  "indent",
+  "horizontalline",
+  "newline",
+  "enditems",
+  "returnbutton",
+  "memolink",
+  "upbutton",
+  "endscroll",
+  "thispage",
+  "returnto",
+  "free",
+  "bound",
+  "lisplink",
+  "unixlink",
+  "mbox",
+  "inputstring",
+  "stringvalue",
+  "spadlink",
+  "inputbitmap",
+  "inputpixmap",
+  "unixcommand",
+  "em",
+  "lispcommand",
+  "lispmemolink",
+  "lispdownlink",
+  "spadcall",
+  "spadcallquit",
+  "spaddownlink",
+  "spadmemolink",
+  "qspadcall",
+  "qspadcallquit",
+  "inputbox",
+  "radioboxes",
+  "boxvalue",
+  "vspace",
+  "hspace",
+  "newcommand",
+  "windowid",
+  "beep",
+  "quitbutton",
+  "begintitems",
+  "titem",
+  "end",
+  "it",
+  "sl",
+  "tt",
+  "rm",
+  "ifcond",
+  "else",
+  "fi",
+  "newcond",
+  "setcond" ,
+  "button",
+  "windowlink",
+  "haslisp",
+  "hasup",
+  "hasreturn",
+  "hasreturnto",
+  "lastwindow",
+  "endtitems",
+  "lispwindowlink",
+  "beginpile",
+  "endpile",
+  "nextline",
+  "pastebutton",
+  "color",
+  "helppage",
+  "patch",
+  "radiobox",
+  "ifrecond",
+  "math",
+  "mitem",
+  "pagename",
+  "examplenumber",
+  "replacepage",
+  "inputimage",
+  "spadgraph",
+  "indentrel",
+  "controlbitmap"
+  };
+#endif
+
+
+/* places from which input may be read */
+#define FromFile	1
+#define FromString	2
+#define FromSpadSocket	3
+#define FromUnixFD	4
+
+extern FILE *unixfd;
+
+/*
+ * Here are the system tokens. These are used internally to help
+ * with parsing and displaying of text
+ */
+
+#define SystemTokens   1001
+#define Lbrace	       1001
+#define Rbrace	       1002
+#define Macro	       1003
+#define Group	       1004
+#define Scrollbar      1005
+#define Pound	       1006
+#define Lsquarebrace   1007
+#define Rsquarebrace   1008
+#define Punctuation    1009
+#define Dash	       1010
+#define Tableitem      1011
+#define Scrollingnode  1012
+#define Headernode     1013
+#define Footernode     1014
+#define Verbatim       1015
+#define Scroll	       1016
+#define Dollar	       1017
+#define Percent	       1018
+#define Carrot	       1019
+#define Underscore     1020
+#define Tilde	       1021
+#define Cond	       1022
+#define Noop	       1023
+#define Description    1024
+#define Icorrection    1025
+#define Boxcond	       1026
+#define Unkeyword      1027
+#define Titlenode      1028
+#define Paste	       1029
+#define Spadsrc	       1030
+#define Helpbutton     1031
+#define Spadsrctxt     1032
+
+
+/*
+ * Here are the tokens used to mark the end to some sort of group of
+ * tokens. ie, the tokens found in a centerline command
+ */
+
+#define Endtokens      2000
+#define End1	       2001
+#define End2	       2002
+#define Endbutton      2003
+#define Endlink	       2004
+#define Endheader      2005
+#define Endfooter      2006
+#define Endscrolling   2007
+#define Endgroup       2008
+#define Endarg	       2009
+#define Endbox	       2010
+#define Endmbox	       2011
+#define Endspadcommand 2012
+#define Endpix	       2013
+#define Endmacro       2014
+#define Endparameter   2015
+#define Endtable       2016
+#define Endtableitem   2017
+#define End3	       2018
+#define Endif	       2019
+#define Enddescription 2020
+#define Endinputbox    2021
+#define Endtitle       2022
+#define Endpastebutton 2023
+
+#define Endtypes       3000
+#define Endpage	       3002
+#define EndScroll      3007	   /* had to use a S because Endscroll is
+				       already a keyword      */
+
+#define Endcenter      3012
+#define EndItems       3014	   /* Same thing here as EndScroll except
+					  with the i	      */
+#define EndTitems      3060	   /* Ibid for the T	      */
+#define Endpatch       3087
+#define Endverbatim    4015
+#define Endmath	       4016
+#define Endpaste       4029
+#define Endspadsrc     4030
+
+#endif
+@
+\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>>
+<<token.c>>
+@ 
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
+
+
+
+