Initial commit

1 files changed, 560 insertions, 0 deletions

diff --git a/dviware/quicspool/src/cat.c b/dviware/quicspool/src/cat.c
new file mode 100644
index 0000000000..bd3e52b8aa
--- /dev/null
+++ b/dviware/quicspool/src/cat.c
@@ -0,0 +1,560 @@
+#ifndef lint
+static char *rcs = "$Header: cat.c,v 1.1 88/01/15 13:03:09 simpson Rel $";
+#endif
+/*
+$Log:	cat.c,v $
+ * Revision 1.1  88/01/15  13:03:09  simpson
+ * initial release
+ * 
+ * Revision 0.1  87/12/11  18:30:40  simpson
+ * beta test
+ * 
+*/
+
+/* This file contains structure for mapping between ASCII and the weird
+ * CAT otroff font positions.  The CAT only contains 102 characters per
+ * font mapped into strange positions.
+ */
+
+/* This table maps from CAT otroff order of a non-special font to the position
+ * of the character in the real font.
+ */
+char	RegularToAscii[128] = {
+0,	/* Not used */
+'h',	/* h */
+'t',	/* t */
+'n',	/* n */
+'m',	/* m */
+'l',	/* l */
+'i',	/* i */
+'z',    /* z */
+'s',	/* s */
+'d',	/* d */
+'b',	/* b */
+'x',	/* x */
+'f',	/* f */
+'j',	/* j */
+'u',	/* u */
+'k',    /* k */
+0,	/* Not used */
+'p',	/* p */
+006,	/* \(em */
+';',	/* ; */
+0,	/* Not used */
+'a',	/* a */
+005,	/* \(ru */
+'c',    /* c */
+'`',	/* ` */
+'e',	/* e */
+'\'',	/* ' */
+'o',	/* o */
+021,	/* \(14 */
+'r',	/* r */
+022,	/* \(12 */
+'v',    /* v */
+'-',	/* - or \(hy */
+'w',	/* w */
+'q',	/* q */
+'/',	/* / */
+'.',	/* . */
+'g',	/* g */
+023,	/* \(34 */
+',',    /* , */
+'&',	/* & */
+'y',	/* y */
+0,	/* Not used */
+'%',	/* % */
+0,	/* Not used */
+'Q',	/* Q */
+'T',	/* T */
+'O',    /* O */
+'H',	/* H */
+'N',	/* N */
+'M',	/* M */
+'L',	/* L */
+'R',	/* R */
+'G',	/* G */
+'I',	/* I */
+'P',    /* P */
+'C',	/* C */
+'V',	/* V */
+'E',	/* E */
+'Z',	/* Z */
+'D',	/* D */
+'B',	/* B */
+'S',	/* S */
+'Y',    /* Y */
+0,	/* Not used */
+'F',	/* F */
+'X',	/* X */
+'A',	/* A */
+'W',	/* W */
+'J',	/* J */
+'U',	/* U */
+'K',    /* K */
+'0',	/* 0 */
+'1',	/* 1 */
+'2',	/* 2 */
+'3',	/* 3 */
+'4',	/* 4 */
+'5',	/* 5 */
+'6',	/* 6 */
+'7',    /* 7 */
+'8',	/* 8 */
+'9',	/* 9 */
+'*',	/* * */
+004,	/* \- or \(-- */
+001,	/* \(fi */
+002,	/* \(fl */
+003,	/* \(ff */
+020,    /* \(ct */
+012,	/* \(fL or \(Fl */
+011,	/* \fI or \(Fi */
+'(',	/* ( */
+')',	/* ) */
+'[',	/* [ */
+']',	/* ] */
+013,	/* \(de */
+014,    /* \(dg */
+'=',	/* = */
+017,	/* \(rg */
+':',	/* : */
+'+',	/* + */
+0,	/* Not used */
+'!',	/* ! */
+007,	/* \(bu */
+'?',    /* ? */
+015,	/* \(fm */
+'|',	/* | */
+0,	/* Not used */
+016,	/* \(co */
+010,	/* \(sq */
+'$',	/* $ */
+0,	/* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+};
+
+/* This table maps from CAT otroff order in a special font to the position
+ * of the character in the real font.
+ */
+char	SpecialToAscii[128] = {
+0,	/* Not used */
+'w',	/* \(*q */
+'h',	/* \(*h */
+'m',	/* \(*n */
+'l',	/* \(*m */
+'k',	/* \(*l */
+'i',	/* \(*i */
+'f',    /* \(*z */
+'r',	/* \(*s */
+'d',	/* \(*d */
+'b',	/* \(*b */
+'n',	/* \(*c */
+'g',	/* \(*y */
+'u',	/* \(*f */
+'t',	/* \(*u */
+'j',    /* \(*k */
+0,	/* Not used */
+'p',	/* \(*p */
+'@',	/* @ */
+'7',	/* \(da */
+0,	/* Not used */
+'a',	/* \(*a */
+'|',	/* \(or */
+'v',    /* \(*x */
+'"',	/* " */
+'e',	/* \(*e */
+'=',	/* = */
+'o',	/* \(*o */
+'4',	/* \(<- */
+'q',	/* \(*r */
+'6',	/* \(ua */
+'s',    /* \(*t */
+'_',	/* _ */
+'\\',	/* \e */
+'W',	/* \(*Q */
+007,	/* \(bs */
+001,	/* \(if */
+'c',	/* \(*g */
+002,	/* \(fl */
+003,	/* \(pt */
+004,	/* \(rh */
+'x',	/* \(*w */
+0,	/* Not used */
+'(',	/* \(gr */
+0,	/* Not used */
+'U',	/* \(*F */
+'H',	/* \(*H */
+'X',    /* \(*W */
+005,	/* \(cu */
+006,	/* \(rn */
+014,	/* \(ts */
+'K',	/* \(*L */
+'-',	/* \(mi */
+'C',	/* \(*G */
+015,	/* \(is */
+'P',    /* \(*P */
+032,	/* \(sb */
+033,	/* \(sp */
+'2',	/* \(ap */
+'y',	/* \(pd */
+'D',	/* \(*D */
+013,	/* \(sr */
+'R',	/* \(*S */
+'1',    /* \(~= */
+0,	/* Not used */
+'>',	/* > */
+'N',	/* \(*C */
+'<',	/* < */
+016,	/* \(sl */
+034,	/* \(ca */
+'T',	/* \(*U */
+035,    /* \(no */
+023,	/* \(rc */
+024,	/* \(lt */
+017,	/* \(bv */
+030,	/* \(lk */
+025,	/* \(lb */
+026,	/* \(rt */
+031,	/* \(rk */
+027,    /* \(rb */
+021,	/* \(rf */
+020,	/* \(lf */
+022,	/* \(lc */
+'*',	/* \(mu */
+'/',	/* \(di */
+010,	/* \(+- */
+011,	/* \(<= */
+012,    /* \(>= */
+'0',	/* \(== */
+'3',	/* \(!= */
+'{',	/* { */
+'}',	/* } */
+'\'',	/* ' */
+'`',	/* \` */
+'^',	/* ^ */
+'#',    /* # */
+036,	/* \(lh */
+037,	/* \(mo */
+'~',	/* ~ */
+'z',	/* \(es */
+0,	/* Not used */
+'Y',	/* \(dd */
+'Z',	/* \(br */
+'9',    /* \(** */
+'[',	/* \(ib */
+']',	/* \(ci */
+0,	/* Not used */
+'+',	/* \(pl */
+'5',	/* \(-> */
+'8',	/* \(sc */
+0,	/* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0,      /* Not used */
+0       /* Not used */
+};
+
+/* This tables maps from the order in the otroff width output table to
+ * the font position of that character.  A zero value designates not used.
+ */
+char RegularOrder[256-32] = {
+' ',
+'!',
+0,	/* " */
+0,	/* # */
+'$',
+'%',
+'&',
+'\'',
+'(',
+')',
+'*',
+'+',
+',',
+'-',   /* hyphen */
+'.',
+'/',
+'0',
+'1',
+'2',
+'3',
+'4',
+'5',
+'6',
+'7',
+'8',
+'9',
+':',
+';',
+0,	/* < */
+'=',
+0,	/* > */
+'?',
+0,	/* @ */
+'A',
+'B',
+'C',
+'D',
+'E',
+'F',
+'G',
+'H',
+'I',
+'J',
+'K',
+'L',
+'M',
+'N',
+'O',
+'P',
+'Q',
+'R',
+'S',
+'T',
+'U',
+'V',
+'W',
+'X',
+'Y',
+'Z',
+'[',
+0,	/* \ */
+']',
+0,	/* ^ */
+0,	/* _ */
+'`',
+'a',
+'b',
+'c',
+'d',
+'e',
+'f',
+'g',
+'h',
+'i',
+'j',
+'k',
+'l',
+'m',
+'n',
+'o',
+'p',
+'q',
+'r',
+'s',
+'t',
+'u',
+'v',
+'w',
+'x',
+'y',
+'z',
+0,	/* { */
+'|',
+0,	/* } */
+0,	/* ~ */
+0,      /* narrow space */
+055,    /* hyphen */
+007,    /* bullet */
+010,    /* square */
+006,    /* 3/4 em */
+005,    /* rule */
+021,    /* 1/4 */
+022,    /* 1/2 */
+023,    /* 3/4 */
+004,    /* minus */
+001,    /* fi */
+002,    /* fl */
+003,    /* ff */
+011,    /* ffi */
+012,    /* ffl */
+013,    /* degree */
+014,    /* dagger */
+0,      /* section */
+015,    /* foot mark */
+0,      /* ' */
+0,      /* ` */
+0,      /* _ */
+0,
+0,      /* half narrow space */
+0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,
+017,    /* registered */
+016,    /* copyright */
+0,
+020     /* cent */
+};
+
+/* Just like RegularOrder, but for the special font */
+char SpecialOrder[256-32] = {
+0,0,
+'"',
+'#',
+0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,
+'<',
+0,
+'>',
+0,
+'@',
+0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,
+'\\',
+0,
+'^',
+'_',
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+0,0,0,
+'{',
+0,
+'}',
+'~',
+0,
+0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,
+070,	/* section */
+0,
+'\'',
+'`',
+'_',
+016,	/* slash (longer) */
+0, 
+0,
+0141,   /* alpha */
+0142,   /* beta */
+0143,   /* gamma */
+0144,   /* delta */
+0145,   /* epsilon */
+0146,   /* zeta */
+0147,   /* eta */
+0150,   /* theta */
+0151,   /* iota */
+0152,   /* kappa */
+0153,   /* lambda */
+0154,   /* mu */
+0155,   /* nu */
+0156,   /* xi */
+0157,   /* omicron */
+0160,   /* pi */
+0161,   /* rho */
+0162,   /* sigma */
+0163,   /* tau */
+0164,   /* upsilon */
+0165,   /* phi */
+0166,   /* chi */
+0167,   /* psi */
+0170,   /* omega */
+0103,   /* Gamma */
+0104,   /* Delta */
+0110,   /* Theta */
+0113,   /* Lambda */
+0116,   /* Xi */
+0120,   /* Pi */
+0122,   /* Sigma */
+0,
+0124,   /* Upsilon */
+0125,   /* Phi */
+0127,   /* Psi */
+0130,   /* Omega */
+013,    /* square root */
+014,    /* terminal sigma */
+006,    /* root extender */
+012,    /* >= */
+011,    /* <= */
+060,    /* identically equal */
+055,    /* minus */
+061,	/* approximately = */
+062,    /* approximates */
+063,    /* not equal */
+065,    /* right arrow */
+064,    /* left arrow */
+066,    /* up arrow */
+067,    /* down arrow */
+'=',
+052,    /* multiply */
+057,    /* divide */
+010,    /* plus minus */
+005,    /* cup (union) */
+034,    /* cap (intersection) */
+032,    /* subset of */
+033,    /* superset of */
+0133,	/* improper subset */
+002,    /* improper superset */
+001,    /* infinity */
+0171,   /* partial derivative */
+050,    /* gradient */
+035,    /* not */
+015,    /* integral sign */
+003,    /* proportional to */
+0172,   /* empty set */
+037,    /* member of */
+'+',
+0,
+0,
+0,	/* box vertical rule */
+0,
+0131,   /* double dagger */
+004,    /* right hand */
+036,    /* left hand */
+071,    /* math * */
+007,    /* bell system sign */
+'|',	/* or */
+0135,   /* circle */
+024,    /* left top (of big curly) */
+025,    /* left bottom */
+026,    /* right top */
+027,    /* right bottom */
+022,    /* left center of big curly bracket */
+023,    /* right center of big curly bracket */
+017,    /* bold vertical */
+020,    /* left floor */
+021,    /* right floor */
+022,    /* left ceiling */
+023    /* right ceiling */
+};
+
+