static void
outtp(tchar i)
{
#ifndef NROFF
int j = cbits(i);
#ifdef EUC
if (iscopy(i))
fdprintf(ptid, "%lc", j);
else
#endif /* EUC */
fdprintf(ptid, "%c", j);
#endif
}
static void
outmb(tchar i)
{
extern int nchtab;
int j = cbits(i);
#ifdef EUC
wchar_t wc;
char mb[MB_LEN_MAX+1];
int n;
int f;
#endif /* EUC */
if (j < 0177) {
oput(j);
return;
}
#ifdef EUC
if (iscopy(i))
wc = cbits(i);
else {
if ((f = fbits(i)) == 0)
f = font;
wc = tr2un(j, f);
}
if (wc != -1 && (n = wctomb(mb, wc)) > 0) {
mb[n] = 0;
oputs(mb);
} else
#endif /* EUC */
if (j < 128 + nchtab) {
oput('\\');
oput('(');
oput(chname[chtab[j-128]]);
oput(chname[chtab[j-128]+1]);
}
}
static void
tmtmcwr(int ab, int tmc, int wr, int ep, int tmm)
{
const char tmtab[] = {
'a',000,000,000,000,000,000,000,
000,000,000,000,000,000,000,000,
'{','}','&',000,'%','c','e',' ',
'!',000,000,000,000,000,000,'~',
000
};
struct contab *cp;
register int i, j;
tchar c;
char tmbuf[NTM];
filep savip = ip;
int discard = 0;
lgf++;
if (tmm) {
if (skip(1) || (i = getrq(0)) == 0)
return;
if ((cp = findmn(i)) == NULL || !cp->mx) {
nosuch(i);
return;
}
savip = ip;
ip = (filep)cp->mx;
app++;
copyf++;
} else {
copyf++;
if (skip(0) && ab)
errprint("User Abort");
}
loop: for (i = 0; i < NTM - 5 - mb_cur_max; ) {
if (tmm) {
if ((c = rbf()) == 0) {
ip = savip;
tmm = 0;
app--;
break;
}
} else
c = getch();
if (discard) {
discard--;
continue;
}
if (c == '\n') {
tmbuf[i++] = '\n';
break;
}
c: j = cbits(c);
if (iscopy(c)) {
int n;
if ((n = wctomb(&tmbuf[i], j)) > 0) {
i += n;
continue;
}
}
if (xflag == 0) {
tmbuf[i++] = c;
continue;
}
if (ismot(c))
continue;
tmbuf[i++] = '\\';
if (c == (OHC|BLBIT))
j = ':';
else if (istrans(c))
j = ')';
else if (j >= 0 && j < sizeof tmtab && tmtab[j])
j = tmtab[j];
else if (j == ACUTE)
j = '\'';
else if (j == GRAVE)
j = '`';
else if (j == UNDERLINE)
j = '_';
else if (j == MINUS)
j = '-';
else {
i--;
if (c == WORDSP)
j = ' ';
else if (j == WORDSP)
continue;
else if (j == FLSS) {
discard++;
continue;
}
}
if (j == XFUNC)
switch (fbits(c)) {
case CHAR:
c = charout[sbits(c)].ch;
goto c;
default:
continue;
}
tmbuf[i++] = j;
}
if (i == NTM - 2)
tmbuf[i++] = '\n';
if (tmc)
i--;
tmbuf[i] = 0;
if (ab) /* truncate output */
obufp = obuf; /* should be a function in n2.c */
if (ep) {
flusho();
errprint("%s", tmbuf);
} else if (wr < 0) {
flusho();
fdprintf(stderr, "%s", tmbuf);
} else if (i)
write(wr, tmbuf, i);
if (tmm)
goto loop;
copyf--;
lgf--;
}
