diff options
Diffstat (limited to 'z04.c')
| -rw-r--r-- | z04.c | 233 |
1 files changed, 233 insertions, 0 deletions
@@ -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 |