summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/t2/etc/t2filter.c
blob: 6abee5994b2a61459b72954469d2245d1c41fc42 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
/* A simple filter for translating TeX screen output from
 * internal T2 encoding to koi8-r or cp866. Messages with
 * overfull boxes will be readable, but context lines (in
 * case of errors) will become unreadable. :-)
 *
 * Compile:
 * cc -Wall -O2 -s -o t2filter t2filter.c
 *
 * Sample usage:
 * latex filename.tex | t2filter
 */

#include <unistd.h>

#define BUFSIZE 1024

unsigned char xlt[] = {
#ifdef MSDOS	/* t2 -> cp866 */
	0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
	0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f,
	0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97,
	0x98, 0x99, 0x9a, 0x9b, 0x9c, 0x9d, 0x9e, 0x9f,
	0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7,
	0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
	0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7,
	0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef
#else		/* t2 -> koi8-r */
	0xe1, 0xe2, 0xf7, 0xe7, 0xe4, 0xe5, 0xf6, 0xfa,
	0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef, 0xf0,
	0xf2, 0xf3, 0xf4, 0xf5, 0xe6, 0xe8, 0xe3, 0xfe,
	0xfb, 0xfd, 0xff, 0xf9, 0xf8, 0xfc, 0xe0, 0xf1,
	0xc1, 0xc2, 0xd7, 0xc7, 0xc4, 0xc5, 0xd6, 0xda,
	0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf, 0xd0,
	0xd2, 0xd3, 0xd4, 0xd5, 0xc6, 0xc8, 0xc3, 0xde,
	0xdb, 0xdd, 0xdf, 0xd9, 0xd8, 0xdc, 0xc0, 0xd1
#endif
};

int main(void) {
	unsigned char buf[BUFSIZE];
	ssize_t n;
	unsigned char *c;

	for(;;) {
		if (!(n=read(0,buf,BUFSIZE)))
			return 0;
		for (c=buf;c<buf+n;c++)
			if (*c>=0xc0) *c=xlt[*c-0xc0];
		write(1,buf,n);
	}
}