colonel@gloria.UUCP (George Sicherman) (11/21/84)
Here's the tabln01.c we used in the brief period till we got rid
of our LN01:
#define INCH 240
/*
LN01
nroff driving tables
width and code tables
*/
struct {
int bset;
int breset;
int Hor;
int Vert;
int Newline;
int Char;
int Em;
int Halfline;
int Adj;
char *twinit;
char *twrest;
char *twnl;
char *hlr;
char *hlf;
char *flr;
char *bdon;
char *bdoff;
char *ploton;
char *plotoff;
char *up;
char *down;
char *right;
char *left;
char *codetab[256-32];
int zzz;
} t = {
/*bset*/ 0,
/*breset*/ 0177420,
/*Hor*/ INCH/60,
/*Vert*/ INCH/48,
/*Newline*/ INCH/6,
/*Char*/ INCH/10,
/*Em*/ INCH/10,
/*Halfline*/ INCH/12,
/*Adj*/ INCH/10,
/*twinit*/ "\007",
/*twrest*/ "\007",
/*twnl*/ "\n",
/*hlr*/ "\0338",
/*hlf*/ "\0339",
/*flr*/ "\0337",
/*bdon*/ "",
/*bdoff*/ "",
/*ploton*/ "",
/*plotoff*/ "",
/*up*/ "\0337",
/*down*/ "\n",
/*right*/ " ",
/*left*/ "\b",
/*codetab*/
"\001 ", /*space*/
"\001!", /*!*/
"\001\"", /*"*/
"\001#", /*#*/
"\001$", /*$*/
"\001%", /*%*/
"\001&", /*&*/
"\001'", /*' close*/
"\001(", /*(*/
"\001)", /*)*/
"\001*", /***/
"\001+", /*+*/
"\001,", /*,*/
"\001-", /*- hyphen*/
"\001.", /*.*/
"\001/", /*/*/
"\2010", /*0*/
"\2011", /*1*/
"\2012", /*2*/
"\2013", /*3*/
"\2014", /*4*/
"\2015", /*5*/
"\2016", /*6*/
"\2017", /*7*/
"\2018", /*8*/
"\2019", /*9*/
"\001:", /*:*/
"\001;", /*;*/
"\001<", /*<*/
"\001=", /*=*/
"\001>", /*>*/
"\001?", /*?*/
"\001@", /*@*/
"\201A", /*A*/
"\201B", /*B*/
"\201C", /*C*/
"\201D", /*D*/
"\201E", /*E*/
"\201F", /*F*/
"\201G", /*G*/
"\201H", /*H*/
"\201I", /*I*/
"\201J", /*J*/
"\201K", /*K*/
"\201L", /*L*/
"\201M", /*M*/
"\201N", /*N*/
"\201O", /*O*/
"\201P", /*P*/
"\201Q", /*Q*/
"\201R", /*R*/
"\201S", /*S*/
"\201T", /*T*/
"\201U", /*U*/
"\201V", /*V*/
"\201W", /*W*/
"\201X", /*X*/
"\201Y", /*Y*/
"\201Z", /*Z*/
"\001[", /*[*/
"\001\\", /*\*/
"\001]", /*]*/
"\001^", /*^*/
"\001_", /*_ dash*/
"\001`", /*` open*/
"\201a", /*a*/
"\201b", /*b*/
"\201c", /*c*/
"\201d", /*d*/
"\201e", /*e*/
"\201f", /*f*/
"\201g", /*g*/
"\201h", /*h*/
"\201i", /*i*/
"\201j", /*j*/
"\201k", /*k*/
"\201l", /*l*/
"\201m", /*m*/
"\201n", /*n*/
"\201o", /*o*/
"\201p", /*p*/
"\201q", /*q*/
"\201r", /*r*/
"\201s", /*s*/
"\201t", /*t*/
"\201u", /*u*/
"\201v", /*v*/
"\201w", /*w*/
"\201x", /*x*/
"\201y", /*y*/
"\201z", /*z*/
"\001{", /*{*/
"\001|", /*|*/
"\001}", /*}*/
"\001~", /*~*/
"\000\0", /*narrow sp*/
"\001-", /*hyphen*/
"\001\0167\017", /*bullet*/
"\002[]", /*square*/
"\001-", /*3/4 em*/
"\001_", /*rule*/
"\001\016<\017", /*1/4*/
"\001\016=\017", /*1/2*/
"\000\0", /*3/4*/
"\001-", /*minus*/
"\202fi", /*fi*/
"\202fl", /*fl*/
"\202ff", /*ff*/
"\203ffi", /*ffi*/
"\203ffl", /*ffl*/
"\001\0160\017", /*degree*/
"\000\0", /*dagger*/
"\001\016'\017", /*section*/
"\001'", /*foot mark*/
"\001'", /*acute accent*/
"\001`", /*grave accent*/
"\001_", /*underrule*/
"\001/", /*slash (longer)*/
"\000\0", /*half narrow space*/
"\001 ", /*unpaddable space*/
"\001c\b(", /*alpha*/
"\001B\b|", /*beta*/
"\001)\b/", /*gamma*/
"\001o\b<", /*delta*/
"\001<\b-", /*epsilon*/
"\001c\b,\0338\b<\0339", /*zeta*/
"\001n\bj", /*eta*/
"\001O\b-", /*theta*/
"\001i", /*iota*/
"\001k", /*kappa*/
"\000\0", /*lambda*/
"\001\0165\017", /*mu*/
"\001\241(\203/\242", /*nu*/
"\001\200c\201\301,\241\343c\241\301`\201\301", /*xi*/
"\001o", /*omicron*/
"\001\341-\303\"\301\"\343", /*pi*/
"\001\200o\242\302|\342\202", /*rho*/
"\001\200o\301\202~\341\242", /*sigma*/
"\001\200t\301\202~\243~\201\341", /*tau*/
"\001v", /*upsilon*/
"\001o\b/", /*phi*/
"\001x", /*chi*/
"\001\200/-\302\202'\244'\202\342", /*psi*/
"\001\241u\203u\242", /*omega*/
"\001\242|\202\343-\303\202`\242", /*Gamma*/
"\001\242/\303-\204-\343\\\242", /*Delta*/
"\001O\b=", /*Theta*/
"\001\242/\204\\\242", /*Lambda*/
"\000\0", /*Xi*/
"\001\242[]\204[]\242\343-\303", /*Pi*/
"\001>\b_\0337\b_\n", /*Sigma*/
"\000\0", /**/
"\001Y", /*Upsilon*/
"\001o\b[\b]", /*Phi*/
"\001\200[]-\302\202'\244`\202\342", /*Psi*/
"\001\200O\302\241-\202-\241\342", /*Omega*/
"\000\0", /*square root*/
"\001s", /*terminal sigma*/
"\001\0337_\n", /*root en*/
"\001>\b_", /*>=*/
"\001<\b_", /*<=*/
"\001=\b_", /*identically equal*/
"\001-", /*equation minus*/
"\001=\b~", /*approx =*/
"\000\0", /*approximates*/
"\001=\b/", /*not equal*/
"\002->", /*right arrow*/
"\002<-", /*left arrow*/
"\001|\b^", /*up arrow*/
"\000|\bv", /*down arrow*/
"\001=", /*equation equal*/
"\001x", /*multiply*/
"\001/", /*divide*/
"\001\0161\017", /*plus-minus*/
"\001U", /*cup (union)*/
"\000\0", /*cap (intersection)*/
"\000\0", /*subset of*/
"\000\0", /*superset of*/
"\000\0", /*improper subset*/
"\000\0", /* improper superset*/
"\002oo", /*infinity*/
"\000\0", /*partial derivative*/
"\000\0", /*gradient*/
"\000\0", /*not*/
"\000\0", /*integral sign*/
"\000\0", /*proportional to*/
"\000\0", /*empty set*/
"\000\0", /*member of*/
"\001+", /*equation plus*/
"\001r\bO", /*registered*/
"\001\016)\017", /*copyright*/
"\001|", /*box rule */
"\001\016\"\017", /*cent sign*/
"\000\0", /*dbl dagger*/
"\000\0", /*right hand*/
"\001*", /*left hand*/
"\001*", /*math * */
"\000\0", /*bell system sign*/
"\001|", /*or (was star)*/
"\001O", /*circle*/
"\001|", /*left top (of big curly)*/
"\001|", /*left bottom*/
"\001|", /*right top*/
"\001|", /*right bot*/
"\001|", /*left center of big curly bracket*/
"\001|", /*right center of big curly bracket*/
"\001|", /*bold vertical*/
"\001|", /*left floor (left bot of big sq bract)*/
"\001|", /*right floor (rb of ")*/
"\001|", /*left ceiling (lt of ")*/
"\001|"}; /*right ceiling (rt of ")*/
--
Col. G. L. Sicherman
...seismo!rochester!rocksanne!rocksvax!sunybcs!gloria!colonel