diff options
Diffstat (limited to 'z26.c')
| -rw-r--r-- | z26.c | 328 |
1 files changed, 328 insertions, 0 deletions
@@ -0,0 +1,328 @@ +/*@z26.c:Echo Service:BeginString()@******************************************/ +/* */ +/* 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: z26.c */ +/* MODULE: Echo Service */ +/* EXTERNS: BeginString(), AppendString(), EndString(), */ +/* EchoLength(), Image() */ +/* */ +/*****************************************************************************/ +#include "externs.h" + +#if DEBUG_ON +#define MULTI 7 /* max no of simultaneous calls */ + +static FULL_CHAR buff[MULTI][2*MAX_BUFF];/* buffers for strings */ +static int curr = 1; /* current buffer in use */ +static int bp; /* next free space in buff[curr] */ +static BOOLEAN instring = FALSE; /* TRUE while making a string */ + + +/*****************************************************************************/ +/* */ +/* BeginString() */ +/* */ +/* Locate a clear buffer into which debug output may be accumulated. */ +/* */ +/*****************************************************************************/ + +void BeginString(void) +{ assert(!instring, "BeginString: currently in string"); + instring = TRUE; curr = (curr + 1) % MULTI; + assert( 0 <= curr && curr < MULTI, "BeginString: curr!" ); + StringCopy(buff[curr], ""); bp = 0; +} + + +/*@::AppendString(), EndString(), EchoLength()@*******************************/ +/* */ +/* AppendString(str, p1, p2, p3, p4, p5, p6) */ +/* */ +/* Sprintf str to the current buffer, if space is available there. */ +/* */ +/*****************************************************************************/ + +void AppendString(FULL_CHAR *str) +{ int len; + assert(instring, "AppendString: no current string"); + assert( 0 <= curr && curr < MULTI, "BeginString: curr!" ); + if( bp == MAX_BUFF ) return; /* no space, do nothing */ + + len = StringLength(str); + if( len + bp >= MAX_BUFF ) + { StringCopy( &buff[curr][MAX_BUFF/2], AsciiToFull(" ... <too long>") ); + bp = MAX_BUFF; + } + else + { StringCopy(&buff[curr][bp], str); + while( buff[curr][bp] != '\0' ) bp++; + if( bp >= MAX_BUFF ) Error(26, 1, "AppendString abort", INTERN, no_fpos); + } +} /* end AppendString */ + + +/*****************************************************************************/ +/* */ +/* FULL_CHAR *EndString() */ +/* */ +/* Return the string constructed by previous AppendString operations. */ +/* */ +/*****************************************************************************/ + +FULL_CHAR *EndString(void) +{ assert(instring, "EndString: no string"); + assert( 0 <= curr && curr < MULTI, "BeginString: curr!" ); + instring = FALSE; + return buff[curr]; +} /* end Endstring */ +#endif + +/*****************************************************************************/ +/* */ +/* SetLengthDim(int dim) */ +/* */ +/* Set dimension for echoing lengths. */ +/* */ +/*****************************************************************************/ + +static int length_dim = COLM; + +void SetLengthDim(int dim) +{ + length_dim = dim; +} + +/*****************************************************************************/ +/* */ +/* FULL_CHAR *EchoLength(len) */ +/* */ +/* Echo a length. */ +/* */ +/*****************************************************************************/ + +FULL_CHAR *EchoLength(int len) +{ static FULL_CHAR buff[8][20]; + static int i = 0; + i = (i + 1) % 8; + if( len == MAX_FULL_LENGTH ) + sprintf( (char *) buff[i], "%s", "INF"); + else switch( BackEnd ) + { + case POSTSCRIPT: + case PDF: + + sprintf( (char *) buff[i], "%.3fc", (float) len/CM); + break; + + case PLAINTEXT: + + if( length_dim == COLM ) + { + sprintf( (char *) buff[i], "%.2fs", (float) len/PlainCharWidth); + } + else + { + sprintf( (char *) buff[i], "%.2ff", (float) len/PlainCharHeight); + } + break; + + } + return buff[i]; +} /* end EchoLength */ + + +/*@::Image()@*****************************************************************/ +/* */ +/* FULL_CHAR *Image(c) */ +/* */ +/* Returns the string value of type c. */ +/* */ +/*****************************************************************************/ + +FULL_CHAR *Image(unsigned int c) +{ static FULL_CHAR b[20]; + switch(c) + { + + case LINK: return AsciiToFull("link"); + + case SPLIT: return AsciiToFull("split"); + case HEAD: return AsciiToFull("head"); + case PAR: return AsciiToFull("par"); + case WORD: return AsciiToFull("word"); + case QWORD: return AsciiToFull("qword"); + case GAP_OBJ: return AsciiToFull("gap_obj"); + case ROW_THR: return AsciiToFull("row_thr"); + case COL_THR: return AsciiToFull("col_thr"); + case CLOSURE: return AsciiToFull("closure"); + case NULL_CLOS: return KW_NULL; + case PAGE_LABEL: return KW_PAGE_LABEL; + case CROSS: return KW_CROSS; + case FORCE_CROSS: return KW_FORCE_CROSS; + case ONE_COL: return KW_ONE_COL; + case ONE_ROW: return KW_ONE_ROW; + case WIDE: return KW_WIDE; + case HIGH: return KW_HIGH; + case HSHIFT: return KW_HSHIFT; + case VSHIFT: return KW_VSHIFT; + case HSCALE: return KW_HSCALE; + case VSCALE: return KW_VSCALE; + case HCOVER: return KW_HCOVER; + case VCOVER: return KW_VCOVER; + case HCONTRACT: return KW_HCONTRACT; + case VCONTRACT: return KW_VCONTRACT; + case HLIMITED: return KW_HLIMITED; + case VLIMITED: return KW_VLIMITED; + case HEXPAND: return KW_HEXPAND; + case VEXPAND: return KW_VEXPAND; + case START_HVSPAN: return KW_STARTHVSPAN; + case START_HSPAN: return KW_STARTHSPAN; + case START_VSPAN: return KW_STARTVSPAN; + case HSPAN: return KW_HSPAN; + case VSPAN: return KW_VSPAN; + case HSPANNER: return AsciiToFull("hspannner"); + case VSPANNER: return AsciiToFull("vspannner"); + case PADJUST: return KW_PADJUST; + case HADJUST: return KW_HADJUST; + case VADJUST: return KW_VADJUST; + case ROTATE: return KW_ROTATE; + case BACKGROUND: return KW_BACKGROUND; + case SCALE: return KW_SCALE; + case KERN_SHRINK: return KW_KERN_SHRINK; + case RAW_VERBATIM: return KW_RAWVERBATIM; + case VERBATIM: return KW_VERBATIM; + case CASE: return KW_CASE; + case YIELD: return KW_YIELD; + case BACKEND: return KW_BACKEND; + case FILTERED: return AsciiToFull("filtered"); + case XCHAR: return KW_XCHAR; + case FONT: return KW_FONT; + case SPACE: return KW_SPACE; + case YUNIT: return KW_YUNIT; + case ZUNIT: return KW_ZUNIT; + case BREAK: return KW_BREAK; + case UNDERLINE: return KW_UNDERLINE; + case COLOUR: return KW_COLOUR; + case LANGUAGE: return KW_LANGUAGE; + case CURR_LANG: return KW_CURR_LANG; + case CURR_FAMILY: return KW_CURR_FAMILY; + case CURR_FACE: return KW_CURR_FACE; + case COMMON: return KW_COMMON; + case RUMP: return KW_RUMP; + case MELD: return KW_MELD; + case INSERT: return KW_INSERT; + case ONE_OF: return KW_ONE_OF; + case NEXT: return KW_NEXT; + case PLUS: return KW_PLUS; + case MINUS: return KW_MINUS; + case ENV_OBJ: return AsciiToFull("env_obj"); + case ENV: return KW_ENV; + case ENVA: return KW_ENVA; + case ENVB: return KW_ENVB; + case ENVC: return KW_ENVC; + case ENVD: return KW_ENVD; + case CENV: return KW_CENV; + case CLOS: return KW_CLOS; + case LVIS: return KW_LVIS; + case LUSE: return KW_LUSE; + case LEO: return KW_LEO; + case OPEN: return KW_OPEN; + case TAGGED: return KW_TAGGED; + case INCGRAPHIC: return KW_INCGRAPHIC; + case SINCGRAPHIC: return KW_SINCGRAPHIC; + case PLAIN_GRAPHIC: return KW_PLAINGRAPHIC; + case GRAPHIC: return KW_GRAPHIC; + case ACAT: return AsciiToFull("acat"); + case HCAT: return AsciiToFull("hcat"); + case VCAT: return AsciiToFull("vcat"); + + case TSPACE: return AsciiToFull("tspace"); + case TJUXTA: return AsciiToFull("tjuxta"); + case LBR: return AsciiToFull("lbr"); + case RBR: return AsciiToFull("rbr"); + case UNEXPECTED_EOF: return AsciiToFull("unexpected_eof"); + case BEGIN: return KW_BEGIN; + case END: return KW_END; + case USE: return KW_USE; + case NOT_REVEALED: return KW_NOT_REVEALED; + case GSTUB_NONE: return AsciiToFull("gstub_none"); + case GSTUB_INT: return AsciiToFull("gstub_int"); + case GSTUB_EXT: return AsciiToFull("gstub_ext"); + case INCLUDE: return KW_INCLUDE; + case SYS_INCLUDE: return KW_SYSINCLUDE; + case PREPEND: return KW_PREPEND; + case SYS_PREPEND: return KW_SYSPREPEND; + case DATABASE: return KW_DATABASE; + case SYS_DATABASE: return KW_SYSDATABASE; + /* case START: return AsciiToFull("start"); unused */ + + case DEAD: return AsciiToFull("dead"); + case UNATTACHED: return AsciiToFull("unattached"); + case RECEPTIVE: return AsciiToFull("receptive"); + case RECEIVING: return AsciiToFull("receiving"); + case RECURSIVE: return AsciiToFull("recursive"); + case PRECEDES: return AsciiToFull("precedes"); + case FOLLOWS: return AsciiToFull("follows"); + case CROSS_LIT: return AsciiToFull("cross_lit"); + case CROSS_FOLL: return AsciiToFull("cross_foll"); + case CROSS_FOLL_OR_PREC: return AsciiToFull("cross_foll_or_prec"); + case GALL_FOLL: return AsciiToFull("gall_foll"); + case GALL_FOLL_OR_PREC: return AsciiToFull("gall_foll_or_prec"); + case CROSS_TARG: return AsciiToFull("cross_targ"); + case GALL_TARG: return AsciiToFull("gall_targ"); + case GALL_PREC: return AsciiToFull("gall_prec"); + case CROSS_PREC: return AsciiToFull("cross_prec"); + case PAGE_LABEL_IND: return AsciiToFull("page_label_ind"); + case SCALE_IND: return AsciiToFull("scale_ind"); + case COVER_IND: return AsciiToFull("cover_ind"); + case EXPAND_IND: return AsciiToFull("expand_ind"); + case THREAD: return AsciiToFull("thread"); + case CROSS_SYM: return AsciiToFull("cross_sym"); + case CR_ROOT: return AsciiToFull("cr_root"); + case MACRO: return KW_MACRO; + case LOCAL: return AsciiToFull("local"); + case LPAR: return AsciiToFull("lpar"); + case NPAR: return AsciiToFull("npar"); + case RPAR: return AsciiToFull("rpar"); + case CR_LIST: return AsciiToFull("cr_list"); + case EXT_GALL: return AsciiToFull("ext_gall"); + case DISPOSED: return AsciiToFull("disposed"); + + case BACK: return AsciiToFull("back"); + case ON: return AsciiToFull("on"); + case FWD: return AsciiToFull("fwd"); + + case PROMOTE: return AsciiToFull("promote"); + case CLOSE: return AsciiToFull("close"); + case BLOCK: return AsciiToFull("block"); + case CLEAR: return AsciiToFull("clear"); + + case GAP_ABS: return AsciiToFull("abs"); + case GAP_INC: return AsciiToFull("inc"); + case GAP_DEC: return AsciiToFull("dec"); + + default: sprintf( (char *) b, "?? (%d)", c); + return b; + } /* end switch */ +} /* end Image */ |