2.9BSD/usr/src/local/sroff/tabsand.c
/*
* sroff driving tables
*/
#include "sdef.h"
/*
* struct t is not overlaid by -F options.
*/
struct {
#ifndef TTY
int bflags;
int bspeed;
#else
int bset;
int breset;
#endif
int Newline;
int Halfline;
char *twinit;
char *twrest;
char *twnl;
#ifdef ADJ
char *twfp;
#endif
char *hlr;
char *hlf;
char *flr;
char *bdon;
char *bdoff;
char *ploton;
char *plotoff;
char *up;
char *down;
char *right;
char *left;
char *ulon; /* underlining enables */
char *uloff; /* underlining disabled */
int zzz;
} t {
#ifndef TTY
#ifdef ADJ
/*bflags*/ CR1|NL1|FF1|EVENP|ODDP,
#else
/*bflags*/ CR1|NL1|FF1|EVENP|ODDP|CRMOD,
#endif
/*bspeed*/ BSPEED,
#else
/*bset*/ CR1|NL1|FF1|EVENP|ODDP,
#ifdef ADJ
/*breset*/ ECHO|CRMOD,
#else
/*breset*/ ECHO,
#endif
#endif TTY
/*Newline*/ INCH/6,
/*Halfline*/ INCH/12,
/*twinit*/ "\033I\033rA\033B@@A", /* reset, ribbon usage, bottom margin */
/*twrest*/ "",
#ifdef ADJ
/*twnl*/ "\r\n",
/*twfp*/ "\033P\n", /* force print */
#else
/*twnl*/ "\n",
#endif
/*hlr*/ "\033D",
/*hlf*/ "\033U",
/*flr*/ "\033\012", /*reverse line feed for col*/
/*bdon*/ "\033b", /* bold on - next char is offset */
/*bdoff*/ "\033b@", /* try to turn it back off!! */
/*ploton*/ "",
/*plotoff*/ "",
/*up*/ "",
/*down*/ "",
/*right*/ "",
/*left*/ "",
/*ulon*/ "\033uM",
/*uloff*/ "\033uM"
};
/*
* code tables
* In the first byte, the
* 0100 bit specifies that special fonts are used; if set, the rightmost octal
* digit is the font to be set initially, and the middle octal digit
* is the final font that will be used (always the same if no font changes
* are done in the string).
* The leftmost bit of each of the remaining bytes
* turns on plot mode (see s10.c)
*/
char *codetab[MAXCHAR-0200] = {
"\000\000", /* 200: null; not output */
"\000\010", /* 201: bs */
"\000\011", /* 202: tab */
"\000\012", /* 203: lf */
"\000\014", /* 204: ff */
"\000\015", /* 205: cr */
"\000\033", /* 206: esc */
"\000\\", /* backslash (never escaped) */
"\000\000", /* unused */
"\000\000", /* unused */
/* sanders control sequences */
"\000\033a", /* 212: select font */
"\000\033s", /* 213: repeat character */
"\000\033x", /* 214: insert sequence of characters */
"\000\033y", /* 215: insert space */
"\000\033U", /* 216: half-line feed */
"\000\033\012", /* 217: neqative line feed */
"\000\033D", /* 220: negative half-line feed */
"\000\033n", /* 221: select format */
"\000\033e", /* 222: set line length */
"\000\033I", /* 223: set temporary indent */
"\000\033g", /* 224: set indentation */
#ifdef ADJ
"\000\033w@@,@@,FP.", /* 225: set word space */
/* allow up to 400 mils between words */
#else
"\000\033w", /* 225: set word space */
#endif
"\000\033i", /* 226: set form length */
"\000\033t", /* 227: toggle draft mode */
/* greek: */
"\177a", /* 230: alpha */
"\177b", /* beta */
"\177c", /* gamma */
"\177d", /* delta */
"\177e", /* epsilon */
"\177g", /* zeta */
"\177h", /* eta */
"\177i", /* theta */
"\177j", /*240: iota */
"\177k", /* kappa */
"\177l", /* lambda */
"\177m", /* mu */
"\177n", /* nu */
"\177o", /* xi */
"\177p", /* omicron */
"\177q", /* pi */
"\177r", /*250: rho */
"\177s", /* sigma */
"\177t", /* tau */
"\177u", /* upsilon */
"\177v", /* phi */
"\177x", /* chi */
"\177y", /* psi */
"\177z", /*omega*/
"\177A", /*260: Alpha */
"\177B", /* Beta */
"\177C", /* Gamma */
"\177D", /* Delta */
"\177E", /* Epsilon */
"\177G", /* Zeta */
"\177H", /* Eta */
"\177I", /* Theta */
"\177J", /*270: Iota */
"\177K", /* Kappa */
"\177L", /* Lambda */
"\177M", /* Mu */
"\177N", /* Nu */
"\177O", /* Xi */
"\177P", /* Omicron */
"\177Q", /* Pi */
"\177R", /*300: Rho */
"\177S", /* Sigma */
"\177T", /* Tau */
"\177U", /* Upsilon */
"\177V", /* Phi */
"\177X", /* Chi */
"\177Y", /* Psi */
"\177Z", /* Omega */
"\177`", /*310: square root*/
"\177_", /*root en */
"\166h", /*>=*/
"\166H", /*<=*/
"\166N", /*identically equal*/
"\166k", /*approx =*/
"\166J", /*approximates*/
"\166j", /*not equal*/
"\166W", /*320: right arrow*/
"\166w", /*left arrow*/
"\166^", /*up arrow*/
"\166\177", /*down arrow*/
"\166x", /*multiply*/
"\166f", /*divide*/
"\166L", /*plus-minus*/
"\166T", /*cup (union)*/
"\166t", /*330: cap (intersection)*/
"\166U", /*subset of*/
"\166u", /*superset of*/
"\166\033uDU\033uD", /*improper subset*/
"\166\033uDu\033uD", /* improper superset*/
"\166z", /*infinity*/
"\166X", /*partial derivative*/
"\166V", /*gradient*/
"\166Z", /*340: proportional to*/
"\166\033l\177Nd\033o\177p\033l~\134d\033o@P\033l\177N", /* box vert rule */
"\177|", /*or */
"\000*", /*bullet*/
"\166[", /*square*/
"\177;", /*degree*/
"\166_", /*dagger*/
"\000\033o@K\_\033o\177u", /* underrule */
"\177-", /* 350: 3/4 Em dash */
/* bracket building symbols */
"\166\033o@Dd\033o\177l\033l~\134d\033o@P", /* vertical solid bar */
"\166A\033o@N\033l~\134d\033o\177r", /* left top curly */
"\166B\033o\177t\033l~\134d\033o@L", /* left bottom curly */
"\166C\033o\177r\033l~\134d\033o@N", /* right center curly */
"\166D\033o@N\033l~\134d\033o\177r", /* left top square */
"\166E\033o\177t\033l~\134d\033o@L", /* left bottom square */
"\166F\033o\177t\033l~\134d\033o@L", /* right bottom square */
"\166b\033o@N\033l~\134d\033o\177r", /*360: right top curly */
"\166c\033o\177t\033l~\134d\033o@L", /* right bottom curly */
"\166e\033o@N\033l~\134d\033o\177r", /* right top square */
"\166/\033o\177r\033l~\134d\033o@N", /* left center curly */
"\167!\033aF\033o@N\033l~\134d\033o\177r", /* top of integral */
"\176\033o\177rd\033o@N\033l~\134\033aG*", /* bottom of integral */
"\166d\033o\177r\033l~\134d\033o@N", /* bracket upper */
"\166d\033o\177r\033l~\134d\033o@N", /* bracket lower */
"\177\\", /* 370: angled slash for sqrt */
/* more constructed characters: */
"\177|\033N=", /*371: dbl dagger*/
"\166d" /* solid single bar */
};