17c478bd9Sstevel@tonic-gate /* 27c478bd9Sstevel@tonic-gate * CDDL HEADER START 37c478bd9Sstevel@tonic-gate * 47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the 57c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only 67c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance 77c478bd9Sstevel@tonic-gate * with the License. 87c478bd9Sstevel@tonic-gate * 97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing. 117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions 127c478bd9Sstevel@tonic-gate * and limitations under the License. 137c478bd9Sstevel@tonic-gate * 147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each 157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the 177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying 187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner] 197c478bd9Sstevel@tonic-gate * 207c478bd9Sstevel@tonic-gate * CDDL HEADER END 217c478bd9Sstevel@tonic-gate */ 227c478bd9Sstevel@tonic-gate /* 237c478bd9Sstevel@tonic-gate * Copyright 2002 Sun Microsystems, Inc. All rights reserved. 247c478bd9Sstevel@tonic-gate * Use is subject to license terms. 257c478bd9Sstevel@tonic-gate */ 267c478bd9Sstevel@tonic-gate 277c478bd9Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */ 287c478bd9Sstevel@tonic-gate /* All Rights Reserved */ 297c478bd9Sstevel@tonic-gate 307c478bd9Sstevel@tonic-gate /* 317c478bd9Sstevel@tonic-gate * University Copyright- Copyright (c) 1982, 1986, 1988 327c478bd9Sstevel@tonic-gate * The Regents of the University of California 337c478bd9Sstevel@tonic-gate * All Rights Reserved 347c478bd9Sstevel@tonic-gate * 357c478bd9Sstevel@tonic-gate * University Acknowledgment- Portions of this document are derived from 367c478bd9Sstevel@tonic-gate * software developed by the University of California, Berkeley, and its 377c478bd9Sstevel@tonic-gate * contributors. 387c478bd9Sstevel@tonic-gate */ 397c478bd9Sstevel@tonic-gate 407c478bd9Sstevel@tonic-gate #include "tdef.h" 417c478bd9Sstevel@tonic-gate 427c478bd9Sstevel@tonic-gate /* You may want to change these names */ 437c478bd9Sstevel@tonic-gate 447c478bd9Sstevel@tonic-gate #ifdef NROFF 457c478bd9Sstevel@tonic-gate 467c478bd9Sstevel@tonic-gate char termtab[NS] = "/usr/share/lib/nterm/tab."; /* term type added in ptinit() */ 477c478bd9Sstevel@tonic-gate char fontfile[NS] = ""; /* not used */ 487c478bd9Sstevel@tonic-gate char devname[20] = "37"; 497c478bd9Sstevel@tonic-gate 507c478bd9Sstevel@tonic-gate #else 517c478bd9Sstevel@tonic-gate 527c478bd9Sstevel@tonic-gate char termtab[NS] = "/usr/lib/font"; /* rest added in ptinit() */ 537c478bd9Sstevel@tonic-gate char fontfile[NS] = "/usr/lib/font";/* rest added in casefp() */ 547c478bd9Sstevel@tonic-gate char devname[20] = "post"; /* default typesetter */ 557c478bd9Sstevel@tonic-gate 567c478bd9Sstevel@tonic-gate #endif 577c478bd9Sstevel@tonic-gate char tmp_name[] = "/usr/tmp/trtmpXXXXXX"; 587c478bd9Sstevel@tonic-gate char obuf[OBUFSZ]; /* characters collected here for typesetter output */ 597c478bd9Sstevel@tonic-gate char *obufp = obuf; 607c478bd9Sstevel@tonic-gate struct numtab numtab[NN] = { 617c478bd9Sstevel@tonic-gate { PAIR('%', 0) }, 627c478bd9Sstevel@tonic-gate { PAIR('n', 'l') }, 637c478bd9Sstevel@tonic-gate { PAIR('y', 'r') }, 647c478bd9Sstevel@tonic-gate { PAIR('h', 'p') }, 657c478bd9Sstevel@tonic-gate { PAIR('c', 't') }, 667c478bd9Sstevel@tonic-gate { PAIR('d', 'n') }, 677c478bd9Sstevel@tonic-gate { PAIR('m', 'o') }, 687c478bd9Sstevel@tonic-gate { PAIR('d', 'y') }, 697c478bd9Sstevel@tonic-gate { PAIR('d', 'w') }, 707c478bd9Sstevel@tonic-gate { PAIR('l', 'n') }, 717c478bd9Sstevel@tonic-gate { PAIR('d', 'l') }, 727c478bd9Sstevel@tonic-gate { PAIR('s', 't') }, 737c478bd9Sstevel@tonic-gate { PAIR('s', 'b') }, 747c478bd9Sstevel@tonic-gate { PAIR('c', '.') }, 757c478bd9Sstevel@tonic-gate { PAIR('$', '$') }, 767c478bd9Sstevel@tonic-gate }; 777c478bd9Sstevel@tonic-gate 787c478bd9Sstevel@tonic-gate 797c478bd9Sstevel@tonic-gate int pto = 10000; 807c478bd9Sstevel@tonic-gate int pfrom = 1; 817c478bd9Sstevel@tonic-gate int print = 1; 827c478bd9Sstevel@tonic-gate char nextf[NS] = "/usr/share/lib/tmac/"; 837c478bd9Sstevel@tonic-gate char mfiles[NMF][NS]; 847c478bd9Sstevel@tonic-gate int nmfi = 0; 857c478bd9Sstevel@tonic-gate #ifndef NROFF 867c478bd9Sstevel@tonic-gate int oldbits = -1; 877c478bd9Sstevel@tonic-gate #endif 887c478bd9Sstevel@tonic-gate int init = 1; 897c478bd9Sstevel@tonic-gate int fc = IMP; /* field character */ 907c478bd9Sstevel@tonic-gate int eschar = '\\'; 917c478bd9Sstevel@tonic-gate #ifdef NROFF 927c478bd9Sstevel@tonic-gate int pl = 11*INCH; 937c478bd9Sstevel@tonic-gate int po = PO; 947c478bd9Sstevel@tonic-gate #else 957c478bd9Sstevel@tonic-gate int pl; 967c478bd9Sstevel@tonic-gate int po; 977c478bd9Sstevel@tonic-gate #endif 987c478bd9Sstevel@tonic-gate int dfact = 1; 997c478bd9Sstevel@tonic-gate int dfactd = 1; 1007c478bd9Sstevel@tonic-gate int res = 1; 1017c478bd9Sstevel@tonic-gate int smnt = 0; /* beginning of special fonts */ 1027c478bd9Sstevel@tonic-gate int ascii = ASCII; 1037c478bd9Sstevel@tonic-gate int ptid = PTID; 1047c478bd9Sstevel@tonic-gate int lg = LG; 1057c478bd9Sstevel@tonic-gate int pnlist[NPN] = { -1 }; 1067c478bd9Sstevel@tonic-gate 1077c478bd9Sstevel@tonic-gate 1087c478bd9Sstevel@tonic-gate int *pnp = pnlist; 1097c478bd9Sstevel@tonic-gate int npn = 1; 1107c478bd9Sstevel@tonic-gate int npnflg = 1; 1117c478bd9Sstevel@tonic-gate int dpn = -1; 1127c478bd9Sstevel@tonic-gate int totout = 1; 1137c478bd9Sstevel@tonic-gate int ulfont = ULFONT; 1147c478bd9Sstevel@tonic-gate int tabch = TAB; 1157c478bd9Sstevel@tonic-gate int ldrch = LEADER; 116*e5190c10Smuffin extern int caseds(), caseas(), casesp(), caseft(), caseps(), casevs(), 1177c478bd9Sstevel@tonic-gate casenr(), caseif(), casepo(), casetl(), casetm(), casebp(), casech(), 1187c478bd9Sstevel@tonic-gate casepn(), tbreak(), caseti(), casene(), casenf(), casece(), casefi(), 1197c478bd9Sstevel@tonic-gate casein(), casell(), casens(), casemk(), casert(), caseam(), 1207c478bd9Sstevel@tonic-gate casede(), casedi(), caseda(), casewh(), casedt(), caseit(), caserm(), 1217c478bd9Sstevel@tonic-gate casern(), casead(), casers(), casena(), casepl(), caseta(), casetr(), 1227c478bd9Sstevel@tonic-gate caseul(), caselt(), casenx(), caseso(), caseig(), casetc(), casefc(), 1237c478bd9Sstevel@tonic-gate caseec(), caseeo(), caselc(), caseev(), caserd(), caseab(), casefl(), 1247c478bd9Sstevel@tonic-gate done(), casess(), casefp(), casecs(), casebd(), caselg(), casehc(), 1257c478bd9Sstevel@tonic-gate casehy(), casenh(), casenm(), casenn(), casesv(), caseos(), casels(), 1267c478bd9Sstevel@tonic-gate casecc(), casec2(), caseem(), caseaf(), casehw(), casemc(), casepm(), 1277c478bd9Sstevel@tonic-gate casecu(), casepi(), caserr(), caseuf(), caseie(), caseel(), casepc(), 1287c478bd9Sstevel@tonic-gate caseht(), casecf(), casesy(), caself(), casedb(); 1297c478bd9Sstevel@tonic-gate 1307c478bd9Sstevel@tonic-gate #define C(a,b) {a, 0, b, 0} 1317c478bd9Sstevel@tonic-gate struct contab contab[NM] = { 1327c478bd9Sstevel@tonic-gate C(PAIR('d', 's'), caseds), 1337c478bd9Sstevel@tonic-gate C(PAIR('a', 's'), caseas), 1347c478bd9Sstevel@tonic-gate C(PAIR('s', 'p'), casesp), 1357c478bd9Sstevel@tonic-gate C(PAIR('f', 't'), caseft), 1367c478bd9Sstevel@tonic-gate C(PAIR('p', 's'), caseps), 1377c478bd9Sstevel@tonic-gate C(PAIR('v', 's'), casevs), 1387c478bd9Sstevel@tonic-gate C(PAIR('n', 'r'), casenr), 1397c478bd9Sstevel@tonic-gate C(PAIR('i', 'f'), caseif), 1407c478bd9Sstevel@tonic-gate C(PAIR('i', 'e'), caseie), 1417c478bd9Sstevel@tonic-gate C(PAIR('e', 'l'), caseel), 1427c478bd9Sstevel@tonic-gate C(PAIR('p', 'o'), casepo), 1437c478bd9Sstevel@tonic-gate C(PAIR('t', 'l'), casetl), 1447c478bd9Sstevel@tonic-gate C(PAIR('t', 'm'), casetm), 1457c478bd9Sstevel@tonic-gate C(PAIR('b', 'p'), casebp), 1467c478bd9Sstevel@tonic-gate C(PAIR('c', 'h'), casech), 1477c478bd9Sstevel@tonic-gate C(PAIR('p', 'n'), casepn), 1487c478bd9Sstevel@tonic-gate C(PAIR('b', 'r'), tbreak), 1497c478bd9Sstevel@tonic-gate C(PAIR('t', 'i'), caseti), 1507c478bd9Sstevel@tonic-gate C(PAIR('n', 'e'), casene), 1517c478bd9Sstevel@tonic-gate C(PAIR('n', 'f'), casenf), 1527c478bd9Sstevel@tonic-gate C(PAIR('c', 'e'), casece), 1537c478bd9Sstevel@tonic-gate C(PAIR('f', 'i'), casefi), 1547c478bd9Sstevel@tonic-gate C(PAIR('i', 'n'), casein), 1557c478bd9Sstevel@tonic-gate C(PAIR('l', 'l'), casell), 1567c478bd9Sstevel@tonic-gate C(PAIR('n', 's'), casens), 1577c478bd9Sstevel@tonic-gate C(PAIR('m', 'k'), casemk), 1587c478bd9Sstevel@tonic-gate C(PAIR('r', 't'), casert), 1597c478bd9Sstevel@tonic-gate C(PAIR('a', 'm'), caseam), 1607c478bd9Sstevel@tonic-gate C(PAIR('d', 'e'), casede), 1617c478bd9Sstevel@tonic-gate C(PAIR('d', 'i'), casedi), 1627c478bd9Sstevel@tonic-gate C(PAIR('d', 'a'), caseda), 1637c478bd9Sstevel@tonic-gate C(PAIR('w', 'h'), casewh), 1647c478bd9Sstevel@tonic-gate C(PAIR('d', 't'), casedt), 1657c478bd9Sstevel@tonic-gate C(PAIR('i', 't'), caseit), 1667c478bd9Sstevel@tonic-gate C(PAIR('r', 'm'), caserm), 1677c478bd9Sstevel@tonic-gate C(PAIR('r', 'r'), caserr), 1687c478bd9Sstevel@tonic-gate C(PAIR('r', 'n'), casern), 1697c478bd9Sstevel@tonic-gate C(PAIR('a', 'd'), casead), 1707c478bd9Sstevel@tonic-gate C(PAIR('r', 's'), casers), 1717c478bd9Sstevel@tonic-gate C(PAIR('n', 'a'), casena), 1727c478bd9Sstevel@tonic-gate C(PAIR('p', 'l'), casepl), 1737c478bd9Sstevel@tonic-gate C(PAIR('t', 'a'), caseta), 1747c478bd9Sstevel@tonic-gate C(PAIR('t', 'r'), casetr), 1757c478bd9Sstevel@tonic-gate C(PAIR('u', 'l'), caseul), 1767c478bd9Sstevel@tonic-gate C(PAIR('c', 'u'), casecu), 1777c478bd9Sstevel@tonic-gate C(PAIR('l', 't'), caselt), 1787c478bd9Sstevel@tonic-gate C(PAIR('n', 'x'), casenx), 1797c478bd9Sstevel@tonic-gate C(PAIR('s', 'o'), caseso), 1807c478bd9Sstevel@tonic-gate C(PAIR('i', 'g'), caseig), 1817c478bd9Sstevel@tonic-gate C(PAIR('t', 'c'), casetc), 1827c478bd9Sstevel@tonic-gate C(PAIR('f', 'c'), casefc), 1837c478bd9Sstevel@tonic-gate C(PAIR('e', 'c'), caseec), 1847c478bd9Sstevel@tonic-gate C(PAIR('e', 'o'), caseeo), 1857c478bd9Sstevel@tonic-gate C(PAIR('l', 'c'), caselc), 1867c478bd9Sstevel@tonic-gate C(PAIR('e', 'v'), caseev), 1877c478bd9Sstevel@tonic-gate C(PAIR('r', 'd'), caserd), 1887c478bd9Sstevel@tonic-gate C(PAIR('a', 'b'), caseab), 1897c478bd9Sstevel@tonic-gate C(PAIR('f', 'l'), casefl), 1907c478bd9Sstevel@tonic-gate C(PAIR('e', 'x'), done), 1917c478bd9Sstevel@tonic-gate C(PAIR('s', 's'), casess), 1927c478bd9Sstevel@tonic-gate C(PAIR('f', 'p'), casefp), 1937c478bd9Sstevel@tonic-gate C(PAIR('c', 's'), casecs), 1947c478bd9Sstevel@tonic-gate C(PAIR('b', 'd'), casebd), 1957c478bd9Sstevel@tonic-gate C(PAIR('l', 'g'), caselg), 1967c478bd9Sstevel@tonic-gate C(PAIR('h', 'c'), casehc), 1977c478bd9Sstevel@tonic-gate C(PAIR('h', 'y'), casehy), 1987c478bd9Sstevel@tonic-gate C(PAIR('n', 'h'), casenh), 1997c478bd9Sstevel@tonic-gate C(PAIR('n', 'm'), casenm), 2007c478bd9Sstevel@tonic-gate C(PAIR('n', 'n'), casenn), 2017c478bd9Sstevel@tonic-gate C(PAIR('s', 'v'), casesv), 2027c478bd9Sstevel@tonic-gate C(PAIR('o', 's'), caseos), 2037c478bd9Sstevel@tonic-gate C(PAIR('l', 's'), casels), 2047c478bd9Sstevel@tonic-gate C(PAIR('c', 'c'), casecc), 2057c478bd9Sstevel@tonic-gate C(PAIR('c', '2'), casec2), 2067c478bd9Sstevel@tonic-gate C(PAIR('e', 'm'), caseem), 2077c478bd9Sstevel@tonic-gate C(PAIR('a', 'f'), caseaf), 2087c478bd9Sstevel@tonic-gate C(PAIR('h', 'w'), casehw), 2097c478bd9Sstevel@tonic-gate C(PAIR('m', 'c'), casemc), 2107c478bd9Sstevel@tonic-gate C(PAIR('p', 'm'), casepm), 2117c478bd9Sstevel@tonic-gate C(PAIR('p', 'i'), casepi), 2127c478bd9Sstevel@tonic-gate C(PAIR('u', 'f'), caseuf), 2137c478bd9Sstevel@tonic-gate C(PAIR('p', 'c'), casepc), 2147c478bd9Sstevel@tonic-gate C(PAIR('h', 't'), caseht), 2157c478bd9Sstevel@tonic-gate C(PAIR('c', 'f'), casecf), 2167c478bd9Sstevel@tonic-gate C(PAIR('s', 'y'), casesy), 2177c478bd9Sstevel@tonic-gate C(PAIR('l', 'f'), caself), 2187c478bd9Sstevel@tonic-gate C(PAIR('d', 'b'), casedb), 2197c478bd9Sstevel@tonic-gate /* C(PAIR('!', 0), casesy), */ /* synonym for .sy */ 2207c478bd9Sstevel@tonic-gate }; 2217c478bd9Sstevel@tonic-gate 2227c478bd9Sstevel@tonic-gate 2237c478bd9Sstevel@tonic-gate tchar oline[LNSIZE+1]; 2247c478bd9Sstevel@tonic-gate 2257c478bd9Sstevel@tonic-gate /* 2267c478bd9Sstevel@tonic-gate * troff environment block 2277c478bd9Sstevel@tonic-gate */ 2287c478bd9Sstevel@tonic-gate 2297c478bd9Sstevel@tonic-gate struct env env = { 2307c478bd9Sstevel@tonic-gate /* int ics */ 0, 2317c478bd9Sstevel@tonic-gate /* int sps */ 0, 2327c478bd9Sstevel@tonic-gate /* int spacesz */ 0, 2337c478bd9Sstevel@tonic-gate /* int lss */ 0, 2347c478bd9Sstevel@tonic-gate /* int lss1 */ 0, 2357c478bd9Sstevel@tonic-gate /* int ll */ 0, 2367c478bd9Sstevel@tonic-gate /* int ll1 */ 0, 2377c478bd9Sstevel@tonic-gate /* int lt */ 0, 2387c478bd9Sstevel@tonic-gate /* int lt1 */ 0, 2397c478bd9Sstevel@tonic-gate /* tchar i */ 0, /* insertion character */ 2407c478bd9Sstevel@tonic-gate /* int icf */ 0, 2417c478bd9Sstevel@tonic-gate /* tchar chbits */ 0, /* size+font bits for current character */ 2427c478bd9Sstevel@tonic-gate /* tchar spbits */ 0, 2437c478bd9Sstevel@tonic-gate /* tchar nmbits */ 0, 2447c478bd9Sstevel@tonic-gate /* int apts */ PS, /* actual point size -- as requested by user */ 2457c478bd9Sstevel@tonic-gate /* int apts1 */ PS, /* need not match an existent size */ 2467c478bd9Sstevel@tonic-gate /* int pts */ PS, /* hence, this is the size that really exists */ 2477c478bd9Sstevel@tonic-gate /* int pts1 */ PS, 2487c478bd9Sstevel@tonic-gate /* int font */ FT, 2497c478bd9Sstevel@tonic-gate /* int font1 */ FT, 2507c478bd9Sstevel@tonic-gate /* int ls */ 1, 2517c478bd9Sstevel@tonic-gate /* int ls1 */ 1, 2527c478bd9Sstevel@tonic-gate /* int ad */ 1, 2537c478bd9Sstevel@tonic-gate /* int nms */ 1, 2547c478bd9Sstevel@tonic-gate /* int ndf */ 1, 2557c478bd9Sstevel@tonic-gate /* int fi */ 1, 2567c478bd9Sstevel@tonic-gate /* int cc */ '.', 2577c478bd9Sstevel@tonic-gate /* int c2 */ '\'', 2587c478bd9Sstevel@tonic-gate /* int ohc */ OHC, 2597c478bd9Sstevel@tonic-gate /* int tdelim */ IMP, 2607c478bd9Sstevel@tonic-gate /* int hyf */ 0, 2617c478bd9Sstevel@tonic-gate /* int hyoff */ 0, 2627c478bd9Sstevel@tonic-gate /* int un1 */ -1, 2637c478bd9Sstevel@tonic-gate /* int tabc */ 0, 2647c478bd9Sstevel@tonic-gate /* int dotc */ '.', 2657c478bd9Sstevel@tonic-gate /* int adsp */ 0, 2667c478bd9Sstevel@tonic-gate /* int adrem */ 0, 2677c478bd9Sstevel@tonic-gate /* int lastl */ 0, 2687c478bd9Sstevel@tonic-gate /* int nel */ 0, 2697c478bd9Sstevel@tonic-gate /* int admod */ 0, 2707c478bd9Sstevel@tonic-gate /* tchar *wordp */ 0, 2717c478bd9Sstevel@tonic-gate /* int spflg */ 0, /* probably to indicate space after punctuation needed */ 2727c478bd9Sstevel@tonic-gate /* tchar *linep */ 0, 2737c478bd9Sstevel@tonic-gate /* tchar *wdend */ 0, 2747c478bd9Sstevel@tonic-gate /* tchar *wdstart */ 0, 2757c478bd9Sstevel@tonic-gate /* int wne */ 0, 2767c478bd9Sstevel@tonic-gate /* int ne */ 0, 2777c478bd9Sstevel@tonic-gate /* int nc */ 0, 2787c478bd9Sstevel@tonic-gate /* int nb */ 0, 2797c478bd9Sstevel@tonic-gate /* int lnmod */ 0, 2807c478bd9Sstevel@tonic-gate /* int nwd */ 0, 2817c478bd9Sstevel@tonic-gate /* int nn */ 0, 2827c478bd9Sstevel@tonic-gate /* int ni */ 0, 2837c478bd9Sstevel@tonic-gate /* int ul */ 0, 2847c478bd9Sstevel@tonic-gate /* int cu */ 0, 2857c478bd9Sstevel@tonic-gate /* int ce */ 0, 2867c478bd9Sstevel@tonic-gate /* int in */ 0, 2877c478bd9Sstevel@tonic-gate /* int in1 */ 0, 2887c478bd9Sstevel@tonic-gate /* int un */ 0, 2897c478bd9Sstevel@tonic-gate /* int wch */ 0, 2907c478bd9Sstevel@tonic-gate /* int pendt */ 0, 2917c478bd9Sstevel@tonic-gate /* tchar *pendw */ (tchar *)0, 2927c478bd9Sstevel@tonic-gate /* int pendnf */ 0, 2937c478bd9Sstevel@tonic-gate /* int spread */ 0, 2947c478bd9Sstevel@tonic-gate /* int it */ 0, 2957c478bd9Sstevel@tonic-gate /* int itmac */ 0, 2967c478bd9Sstevel@tonic-gate /* int lnsize */ LNSIZE, 2977c478bd9Sstevel@tonic-gate }; 298