1*48306Sbostic /*- 2*48306Sbostic * %sccs.include.proprietary.c% 3*48306Sbostic * 4*48306Sbostic * @(#)tab37.c 4.3 (Berkeley) 04/18/91 5*48306Sbostic */ 6*48306Sbostic 714357Ssam #define INCH 240 814357Ssam /* 914357Ssam * Model 37 TeleType 1014357Ssam * nroff driving tables 1114357Ssam * width and code tables 1214357Ssam */ 1314357Ssam 1414357Ssam struct { 1514357Ssam int bset; 1614357Ssam int breset; 1714357Ssam int Hor; 1814357Ssam int Vert; 1914357Ssam int Newline; 2014357Ssam int Char; 2114357Ssam int Em; 2214357Ssam int Halfline; 2314357Ssam int Adj; 2414357Ssam char *twinit; 2514357Ssam char *twrest; 2614357Ssam char *twnl; 2714357Ssam char *hlr; 2814357Ssam char *hlf; 2914357Ssam char *flr; 3014357Ssam char *bdon; 3114357Ssam char *bdoff; 3214357Ssam char *ploton; 3314357Ssam char *plotoff; 3414357Ssam char *up; 3514357Ssam char *down; 3614357Ssam char *right; 3714357Ssam char *left; 3814357Ssam char *codetab[256-32]; 3914357Ssam int zzz; 4014357Ssam } t = { 4114357Ssam /*bset*/ 0, 4214357Ssam /*breset*/ 0, 4314357Ssam /*Hor*/ INCH/10, 4414357Ssam /*Vert*/ INCH/12, 4514357Ssam /*Newline*/ INCH/6, 4614357Ssam /*Char*/ INCH/10, 4714357Ssam /*Em*/ INCH/10, 4814357Ssam /*Halfline*/ INCH/12, 4914357Ssam /*Adj*/ INCH/10, 5014357Ssam /*twinit*/ "", 5114357Ssam /*twrest*/ "", 5214357Ssam /*twnl*/ "\n", 5314357Ssam /*hlr*/ "\0338", 5414357Ssam /*hlf*/ "\0339", 5514357Ssam /*flr*/ "\0337", 5614357Ssam /*bdon*/ "", 5714357Ssam /*bdoff*/ "", 5814357Ssam /*ploton*/ "", 5914357Ssam /*plotoff*/ "", 6014357Ssam /*up*/ "", 6114357Ssam /*down*/ "", 6214357Ssam /*right*/ "", 6314357Ssam /*left*/ "", 6414357Ssam /*codetab*/ 6514357Ssam "\001 ", /*space*/ 6614357Ssam "\001!", /*!*/ 6714357Ssam "\001\"", /*"*/ 6814357Ssam "\001#", /*#*/ 6914357Ssam "\001$", /*$*/ 7014357Ssam "\001%", /*%*/ 7114357Ssam "\001&", /*&*/ 7214357Ssam "\001'", /*' close*/ 7314357Ssam "\001(", /*(*/ 7414357Ssam "\001)", /*)*/ 7514357Ssam "\001*", /***/ 7614357Ssam "\001+", /*+*/ 7714357Ssam "\001,", /*,*/ 7814357Ssam "\001-", /*- hyphen*/ 7914357Ssam "\001.", /*.*/ 8014357Ssam "\001/", /*/*/ 8114357Ssam "\2010", /*0*/ 8214357Ssam "\2011", /*1*/ 8314357Ssam "\2012", /*2*/ 8414357Ssam "\2013", /*3*/ 8514357Ssam "\2014", /*4*/ 8614357Ssam "\2015", /*5*/ 8714357Ssam "\2016", /*6*/ 8814357Ssam "\2017", /*7*/ 8914357Ssam "\2018", /*8*/ 9014357Ssam "\2019", /*9*/ 9114357Ssam "\001:", /*:*/ 9214357Ssam "\001;", /*;*/ 9314357Ssam "\001<", /*<*/ 9414357Ssam "\001=", /*=*/ 9514357Ssam "\001>", /*>*/ 9614357Ssam "\001?", /*?*/ 9714357Ssam "\001@", /*@*/ 9814357Ssam "\201A", /*A*/ 9914357Ssam "\201B", /*B*/ 10014357Ssam "\201C", /*C*/ 10114357Ssam "\201D", /*D*/ 10214357Ssam "\201E", /*E*/ 10314357Ssam "\201F", /*F*/ 10414357Ssam "\201G", /*G*/ 10514357Ssam "\201H", /*H*/ 10614357Ssam "\201I", /*I*/ 10714357Ssam "\201J", /*J*/ 10814357Ssam "\201K", /*K*/ 10914357Ssam "\201L", /*L*/ 11014357Ssam "\201M", /*M*/ 11114357Ssam "\201N", /*N*/ 11214357Ssam "\201O", /*O*/ 11314357Ssam "\201P", /*P*/ 11414357Ssam "\201Q", /*Q*/ 11514357Ssam "\201R", /*R*/ 11614357Ssam "\201S", /*S*/ 11714357Ssam "\201T", /*T*/ 11814357Ssam "\201U", /*U*/ 11914357Ssam "\201V", /*V*/ 12014357Ssam "\201W", /*W*/ 12114357Ssam "\201X", /*X*/ 12214357Ssam "\201Y", /*Y*/ 12314357Ssam "\201Z", /*Z*/ 12414357Ssam "\001[", /*[*/ 12514357Ssam "\001\\", /*\*/ 12614357Ssam "\001]", /*]*/ 12714357Ssam "\001^", /*^*/ 12814357Ssam "\001_", /*_ dash*/ 12914357Ssam "\001`", /*` open*/ 13014357Ssam "\201a", /*a*/ 13114357Ssam "\201b", /*b*/ 13214357Ssam "\201c", /*c*/ 13314357Ssam "\201d", /*d*/ 13414357Ssam "\201e", /*e*/ 13514357Ssam "\201f", /*f*/ 13614357Ssam "\201g", /*g*/ 13714357Ssam "\201h", /*h*/ 13814357Ssam "\201i", /*i*/ 13914357Ssam "\201j", /*j*/ 14014357Ssam "\201k", /*k*/ 14114357Ssam "\201l", /*l*/ 14214357Ssam "\201m", /*m*/ 14314357Ssam "\201n", /*n*/ 14414357Ssam "\201o", /*o*/ 14514357Ssam "\201p", /*p*/ 14614357Ssam "\201q", /*q*/ 14714357Ssam "\201r", /*r*/ 14814357Ssam "\201s", /*s*/ 14914357Ssam "\201t", /*t*/ 15014357Ssam "\201u", /*u*/ 15114357Ssam "\201v", /*v*/ 15214357Ssam "\201w", /*w*/ 15314357Ssam "\201x", /*x*/ 15414357Ssam "\201y", /*y*/ 15514357Ssam "\201z", /*z*/ 15614357Ssam "\001{", /*{*/ 15714357Ssam "\001|", /*|*/ 15814357Ssam "\001}", /*}*/ 15914357Ssam "\001~", /*~*/ 16014357Ssam "\000\0", /*narrow sp*/ 16114357Ssam "\001-", /*hyphen*/ 16214357Ssam "\001o\b+", /*bullet*/ 16335268Sbostic "\002[]", /*square*/ 16414357Ssam "\001-", /*3/4 em*/ 16514357Ssam "\001_", /*rule*/ 16614357Ssam "\0031/4", /*1/4*/ 16714357Ssam "\0031/2", /*1/2*/ 16814357Ssam "\0033/4", /*3/4*/ 16914357Ssam "\001-", /*minus*/ 17014357Ssam "\202fi", /*fi*/ 17114357Ssam "\202fl", /*fl*/ 17214357Ssam "\202ff", /*ff*/ 17314357Ssam "\203ffi", /*ffi*/ 17414357Ssam "\203ffl", /*ffl*/ 17514357Ssam "\001\0338o\0339", /*degree*/ 17614357Ssam "\001|\b-", /*dagger*/ 17714357Ssam "\000\0", /*section*/ 17814357Ssam "\001'", /*foot mark*/ 17914357Ssam "\001'", /*acute accent*/ 18014357Ssam "\001`", /*grave accent*/ 18114357Ssam "\001_", /*underrule*/ 18214357Ssam "\001/", /*slash (longer)*/ 18314357Ssam "\000\0", /*half narrow space*/ 18414357Ssam "\001 ", /*unpaddable space*/ 18514357Ssam "\201\016A\017", /*alpha*/ 18614357Ssam "\201\016B\017", /*beta*/ 18714357Ssam "\201\016\\\017", /*gamma*/ 18814357Ssam "\201\016D\017", /*delta*/ 18914357Ssam "\201\016S\017", /*epsilon*/ 19014357Ssam "\201\016Q\017", /*zeta*/ 19114357Ssam "\201\016N\017", /*eta*/ 19214357Ssam "\201\016O\017", /*theta*/ 19314357Ssam "\201i", /*iota*/ 19414357Ssam "\201k", /*kappa*/ 19514357Ssam "\201\016L\017", /*lambda*/ 19614357Ssam "\201\016M\017", /*mu*/ 19714357Ssam "\201\016@\017", /*nu*/ 19814357Ssam "\201\016X\017", /*xi*/ 19914357Ssam "\201o", /*omicron*/ 20014357Ssam "\201\016J\017", /*pi*/ 20114357Ssam "\201\016K\017", /*rho*/ 20214357Ssam "\201\016Y\017", /*sigma*/ 20314357Ssam "\201\016I\017", /*tau*/ 20414357Ssam "\201v", /*upsilon*/ 20514357Ssam "\201\016U\017", /*phi*/ 20614357Ssam "\201x", /*chi*/ 20714357Ssam "\201\016V\017", /*psi*/ 20814357Ssam "\201\016C\017", /*omega*/ 20914357Ssam "\201\016G\017", /*Gamma*/ 21014357Ssam "\201\016W\017", /*Delta*/ 21114357Ssam "\201\016T\017", /*Theta*/ 21214357Ssam "\201\016E\017", /*Lambda*/ 21314357Ssam "\000\0", /*Xi*/ 21414357Ssam "\201\016P\017", /*Pi*/ 21514357Ssam "\201\016R\017", /*Sigma*/ 21614357Ssam "\000\0", /**/ 21714357Ssam "\201Y", /*Upsilon*/ 21814357Ssam "\201\016F\017", /*Phi*/ 21914357Ssam "\201\016H\017", /*Psi*/ 22014357Ssam "\201\016Z\017", /*Omega*/ 22114357Ssam "\000\0", /*square root*/ 22214357Ssam "\000\0", /*terminal sigma*/ 22314357Ssam "\000\0", /*root en*/ 22414357Ssam "\001>\b_", /*>=*/ 22514357Ssam "\001<\b_", /*<=*/ 22614357Ssam "\001=\b_", /*identically equal*/ 22714357Ssam "\001-", /*equation minus*/ 22814357Ssam "\001=\b~", /*approx =*/ 22914357Ssam "\001\0339~\0338", /*approximates*/ 23014357Ssam "\001=\b/", /*not equal*/ 23114357Ssam "\002->", /*right arrow*/ 23214357Ssam "\002<-", /*left arrow*/ 23314357Ssam "\001|\b^", /*up arrow*/ 23414357Ssam "\000\0", /*down arrow*/ 23514357Ssam "\001=", /*equation equal*/ 23614357Ssam "\001x", /*multiply*/ 23714357Ssam "\001/", /*divide*/ 23814357Ssam "\001+\b_", /*plus-minus*/ 23914357Ssam "\001U", /*cup (union)*/ 24014357Ssam "\000\0", /*cap (intersection)*/ 24114357Ssam "\000\0", /*subset of*/ 24214357Ssam "\000\0", /*superset of*/ 24314357Ssam "\000\0", /*improper subset*/ 24414357Ssam "\000\0", /* improper superset*/ 24514357Ssam "\002oo", /*infinity*/ 24614357Ssam "\001\016]\017", /*partial derivative*/ 24714357Ssam "\001\016[\017", /*gradient*/ 24814357Ssam "\001\016_\017", /*not*/ 24914357Ssam "\001\016^\017", /*integral sign*/ 25014357Ssam "\000\0", /*proportional to*/ 25114357Ssam "\000\0", /*empty set*/ 25214357Ssam "\000\0", /*member of*/ 25314357Ssam "\001+", /*equation plus*/ 25414357Ssam "\001\0338r\0339", /*registered*/ 25514357Ssam "\001\0338c\0339", /*copyright*/ 25614357Ssam "\001|", /*box rule */ 25714357Ssam "\001c\b/", /*cent sign*/ 25814357Ssam "\001|\b=", /*dbl dagger*/ 25914357Ssam "\002=>", /*right hand*/ 26014357Ssam "\002<=", /*left hand*/ 26114357Ssam "\001*", /*math * */ 26214357Ssam "\000\0", /*bell system sign*/ 26314357Ssam "\001|", /*or (was star)*/ 26414357Ssam "\001O", /*circle*/ 26514357Ssam "\001|", /*left top (of big curly)*/ 26614357Ssam "\001|", /*left bottom*/ 26714357Ssam "\001|", /*right top*/ 26814357Ssam "\001|", /*right bot*/ 26914357Ssam "\001|", /*left center of big curly bracket*/ 27014357Ssam "\001|", /*right center of big curly bracket*/ 27114357Ssam "\001|", /*bold vertical*/ 27214357Ssam "\001|", /*left floor (left bot of big sq bract)*/ 27314357Ssam "\001|", /*right floor (rb of ")*/ 27414357Ssam "\001|", /*left ceiling (lt of ")*/ 27514357Ssam "\001|"}; /*right ceiling (rt of ")*/ 276