Lout 3.17.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@2 9365b830-b601-4143-9ba8-b4a8e2c3339c

1 files changed, 233 insertions, 0 deletions

diff --git a/z04.c b/z04.c
new file mode 100644
index 0000000..fae1267
--- /dev/null
+++ b/z04.c
@@ -0,0 +1,233 @@
+/*@z04.c:Token Service:NewToken(), CopyTokenList()@***************************/
+/*                                                                           */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.17)                       */
+/*  COPYRIGHT (C) 1991, 1999 Jeffrey H. Kingston                             */
+/*                                                                           */
+/*  Jeffrey H. Kingston (jeff@cs.usyd.edu.au)                                */
+/*  Basser Department of Computer Science                                    */
+/*  The University of Sydney 2006                                            */
+/*  AUSTRALIA                                                                */
+/*                                                                           */
+/*  This program is free software; you can redistribute it and/or modify     */
+/*  it under the terms of the GNU General Public License as published by     */
+/*  the Free Software Foundation; either Version 2, or (at your option)      */
+/*  any later version.                                                       */
+/*                                                                           */
+/*  This program is distributed in the hope that it will be useful,          */
+/*  but WITHOUT ANY WARRANTY; without even the implied warranty of           */
+/*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            */
+/*  GNU General Public License for more details.                             */
+/*                                                                           */
+/*  You should have received a copy of the GNU General Public License        */
+/*  along with this program; if not, write to the Free Software              */
+/*  Foundation, Inc., 59 Temple Place, Suite 330, Boston MA 02111-1307 USA   */
+/*                                                                           */
+/*  FILE:         z04.c                                                      */
+/*  MODULE:       Token Service                                              */
+/*  EXTERNS:      NewToken(), CopyTokenList(), EchoCatOp(), EchoToken()      */
+/*                                                                           */
+/*****************************************************************************/
+#include "externs.h"
+
+
+/*****************************************************************************/
+/*                                                                           */
+/*  OBJECT NewToken(xtype, xfpos, xvspace, xhspace, xprec, xactual)          */
+/*                                                                           */
+/*  Returns a new non-WORD token initialised as the parameters indicate.     */
+/*                                                                           */
+/*****************************************************************************/
+
+OBJECT NewToken(unsigned char xtype, FILE_POS *xfpos, unsigned char xvspace,
+unsigned char xhspace, unsigned char xprec, OBJECT xactual)
+{ OBJECT res;
+  debug1(DTS, DDD, "NewToken(%s, ...)", Image(xtype));
+  New(res, xtype);  FposCopy(fpos(res), *xfpos);
+  vspace(res) = xvspace;  hspace(res) = xhspace;
+  precedence(res) = xprec;  actual(res) = xactual;
+  debug1(DTS, DDD, "NewToken returning %s", EchoToken(res));
+  return res;
+} /* end NewToken */
+
+
+/*****************************************************************************/
+/*                                                                           */
+/*  OBJECT CopyTokenList(x, pos)                                             */
+/*                                                                           */
+/*  Returns a copy of the list of tokens pointed to by x.                    */
+/*  All file positions in the copy are set to *pos.                          */
+/*                                                                           */
+/*****************************************************************************/
+
+OBJECT CopyTokenList(OBJECT x, FILE_POS *pos)
+{ OBJECT y, z, res;
+  res = nilobj;  y = x;
+  if( x != nilobj ) do
+  { if( is_word(type(y)) )
+    { z = MakeWord(type(y), string(y), pos);
+      vspace(z) = vspace(y);  hspace(z) = hspace(y);
+    }
+    else z = NewToken(type(y), pos,vspace(y),hspace(y),precedence(y),actual(y));
+    res = Append(res, z, PARENT);
+    y = succ(y, PARENT);
+  } while( y != x );
+  return res;
+} /* end CopyTokenList */
+
+/*@::EchoCatOp(), EchoToken()@************************************************/
+/*                                                                           */
+/*  FULL_CHAR *EchoCatOp(xtype, xmark, xjoin)                                */
+/*                                                                           */
+/*  Return the catenation operator with this type, mark and join.            */
+/*                                                                           */
+/*****************************************************************************/
+
+FULL_CHAR *EchoCatOp(unsigned xtype, BOOLEAN xmark, BOOLEAN xjoin)
+{ switch( xtype )
+  {
+    case VCAT:	return	(xmark ? xjoin ? KW_VCAT_MJ : KW_VCAT_MN
+			       : xjoin ? KW_VCAT_NJ : KW_VCAT_NN);
+
+    case HCAT:	return	(xmark ? xjoin ? KW_HCAT_MJ : KW_HCAT_MN
+			       : xjoin ? KW_HCAT_NJ : KW_HCAT_NN);
+
+    case ACAT:	return	(xmark ? xjoin ? KW_ACAT_MJ : AsciiToFull("??")
+			       : xjoin ? KW_ACAT_NJ : AsciiToFull("??") );
+
+    default:	assert(FALSE, "EchoCatOp");
+		return STR_EMPTY;
+
+  } /* end switch */
+} /* end EchoCatOp */
+
+
+#if DEBUG_ON
+/*****************************************************************************/
+/*                                                                           */
+/*  FULL_CHAR *EchoToken(x)                                                  */
+/*                                                                           */
+/*  Return an image of token x.  Do not worry about preceding space.         */
+/*                                                                           */
+/*****************************************************************************/
+
+FULL_CHAR *EchoToken(OBJECT x)
+{ switch( type(x) )
+  {
+    case WORD:
+    
+      return string(x);
+
+
+    case QWORD:
+    
+      return StringQuotedWord(x);
+
+
+    case TSPACE:
+    case TJUXTA:
+    case USE:
+    case NOT_REVEALED:
+    case GSTUB_EXT:
+    case GSTUB_INT:
+    case GSTUB_NONE:
+    
+      return Image(type(x));
+
+
+    case UNEXPECTED_EOF:
+    case BEGIN:
+    case END:
+    case ENV:
+    case ENVA:
+    case ENVB:
+    case ENVC:
+    case ENVD:
+    case CENV:
+    case CLOS:
+    case LBR:
+    case RBR:
+    case NULL_CLOS:
+    case PAGE_LABEL:
+    case CROSS:
+    case FORCE_CROSS:
+    case ONE_COL:
+    case ONE_ROW:
+    case WIDE:
+    case HIGH:
+    case HSHIFT:
+    case VSHIFT:
+    case HSCALE:
+    case VSCALE:
+    case HCOVER:
+    case VCOVER:
+    case SCALE:
+    case KERN_SHRINK:
+    case HCONTRACT:
+    case VCONTRACT:
+    case HLIMITED:
+    case VLIMITED:
+    case HEXPAND:
+    case VEXPAND:
+    case START_HVSPAN:
+    case START_HSPAN:
+    case START_VSPAN:
+    case HSPAN:
+    case VSPAN:
+    case PADJUST:
+    case HADJUST:
+    case VADJUST:
+    case ROTATE:
+    case BACKGROUND:
+    case VERBATIM:
+    case RAW_VERBATIM:
+    case CASE:
+    case YIELD:
+    case BACKEND:
+    case XCHAR:
+    case FONT:
+    case SPACE:
+    case YUNIT:
+    case ZUNIT:
+    case BREAK:
+    case UNDERLINE:
+    case COLOUR:
+    case LANGUAGE:
+    case CURR_LANG:
+    case CURR_FAMILY:
+    case CURR_FACE:
+    case COMMON:
+    case RUMP:
+    case MELD:
+    case INSERT:
+    case ONE_OF:
+    case NEXT:
+    case PLUS:
+    case MINUS:
+    case OPEN:
+    case TAGGED:
+    case INCGRAPHIC:
+    case SINCGRAPHIC:
+    case PLAIN_GRAPHIC:
+    case GRAPHIC:
+    case ACAT:
+    case HCAT:
+    case VCAT:
+    case CLOSURE:
+    case PREPEND:
+    case SYS_PREPEND:
+    case DATABASE:
+    case SYS_DATABASE:
+    case LUSE:
+    case LEO:
+    case LVIS:
+    
+      return actual(x) != nilobj ? SymName(actual(x)) : Image(type(x));
+
+
+    default:
+    
+      assert1(FALSE, "EchoToken:", Image(type(x)));
+      return STR_EMPTY;
+  }
+} /* end EchoToken */
+#endif