1 #! /usr/bin/perl -w -CI
2 # Converts a man page from utf8 (not understood by groff 1.18) to groff escapes.
3 # I couldn't find any existing tool to convert from utf8 to groff, though I
4 # seem to recall seeing some code to do so somewhere.
5 #
6 # Hereby released into public domain by Peter Moulder.
7 use strict;
9 # Table generated automatically using:
10 # zcat /usr/share/man/man7/groff_char.7.gz |groff -man -Tutf8| col -pb | grep '\\\['|
11 # perl -CI -nae 'my ($ch, $seq) = @F; if (ord($ch) >= 128) { printf(" 0x\%x, q{\%s},\n", ord($ch), $seq); }'
12 # with č (0x10d) manually translated as ˇc (\[ah]c). (Anyone have a better translation, e.g. using
13 # overprint? \[vc] doesn't work, btw.)
14 # Similarly, ć (0x107) has been manually translated as ´c (\[aa]c).
15 my %map = (
16 0xd0, q{\[-D]},
17 0xf0, q{\[Sd]},
18 0xde, q{\[TP]},
19 0xfe, q{\[Tp]},
20 0xdf, q{\[ss]},
21 0xfb00, q{\[ff]},
22 0xfb01, q{\[fi]},
23 0xfb02, q{\[fl]},
24 0xfb03, q{\[Fi]},
25 0xfb04, q{\[Fl]},
26 0xc6, q{\[AE]},
27 0xe6, q{\[ae]},
28 0x152, q{\[OE]},
29 0x153, q{\[oe]},
30 0x131, q{\[.i]},
31 0xc1, q{\['A]},
32 0xc9, q{\['E]},
33 0xcd, q{\['I]},
34 0xd3, q{\['O]},
35 0xda, q{\['U]},
36 0xdd, q{\['Y]},
37 0xe1, q{\['a]},
38 0xe9, q{\['e]},
39 0xed, q{\['i]},
40 0xf3, q{\['o]},
41 0xfa, q{\['u]},
42 0xfd, q{\['y]},
43 0xc4, q{\[:A]},
44 0xcb, q{\[:E]},
45 0xcf, q{\[:I]},
46 0xd6, q{\[:O]},
47 0xdc, q{\[:U]},
48 0x178, q{\[:Y]},
49 0xe4, q{\[:a]},
50 0xeb, q{\[:e]},
51 0xef, q{\[:i]},
52 0xf6, q{\[:o]},
53 0xfc, q{\[:u]},
54 0xff, q{\[:y]},
55 0xc2, q{\[^A]},
56 0xca, q{\[^E]},
57 0xce, q{\[^I]},
58 0xd4, q{\[^O]},
59 0xdb, q{\[^U]},
60 0xe2, q{\[^a]},
61 0xea, q{\[^e]},
62 0xee, q{\[^i]},
63 0xf4, q{\[^o]},
64 0xfb, q{\[^u]},
65 0xc0, q{\[`A]},
66 0xc8, q{\[`E]},
67 0xcc, q{\[`I]},
68 0xd2, q{\[`O]},
69 0xd9, q{\[`U]},
70 0xe0, q{\[`a]},
71 0xe8, q{\[`e]},
72 0xec, q{\[`i]},
73 0xf2, q{\[`o]},
74 0xf9, q{\[`u]},
75 0xc3, q{\[~A]},
76 0xd1, q{\[~N]},
77 0xd5, q{\[~O]},
78 0xe3, q{\[~a]},
79 0xf1, q{\[~n]},
80 0xf5, q{\[~o]},
81 0x107, q{\[aa]c}, # Added manually; see above.
82 0x10d, q{\[ah]c}, # Added manually; see above.
83 0x160, q{\[vS]},
84 0x161, q{\[vs]},
85 0x17d, q{\[vZ]},
86 0x17e, q{\[vz]},
87 0xc7, q{\[,C]},
88 0xe7, q{\[,c]},
89 0x141, q{\[/L]},
90 0x142, q{\[/l]},
91 0xd8, q{\[/O]},
92 0xf8, q{\[/o]},
93 0xc5, q{\[oA]},
94 0xe5, q{\[oa]},
95 0x2dd, q{\[a"]},
96 0xaf, q{\[a-]},
97 0x2d9, q{\[a.]},
98 0xb4, q{\[aa]},
99 0x2d8, q{\[ab]},
100 0xb8, q{\[ac]},
101 0xa8, q{\[ad]},
102 0x2c7, q{\[ah]},
103 0x2da, q{\[ao]},
104 0x2db, q{\[ho]},
105 0x223c, q{\[ti]},
106 0x201e, q{\[Bq]},
107 0x201a, q{\[bq]},
108 0x201c, q{\[lq]},
109 0x201d, q{\[rq]},
110 0x2018, q{\[oq]},
111 0x2019, q{\[cq]},
112 0xab, q{\[Fo]},
113 0xbb, q{\[Fc]},
114 0x2039, q{\[fo]},
115 0x203a, q{\[fc]},
116 0xa1, q{\[r!]},
117 0xbf, q{\[r?]},
118 0x2014, q{\[em]},
119 0x2013, q{\[en]},
120 0x2010, q{\[hy]},
121 0x2329, q{\[la]},
122 0x232a, q{\[ra]},
123 0x2190, q{\[<-]},
124 0x2192, q{\[->]},
125 0x2194, q{\[<>]},
126 0x2193, q{\[da]},
127 0x21d1, q{\[ua]},
128 0x21d0, q{\[lA]},
129 0x21d2, q{\[rA]},
130 0x21d4, q{\[hA]},
131 0x21d3, q{\[dA]},
132 0x21d1, q{\[uA]},
133 0x2500, q{\[an]},
134 0x2502, q{\[br]},
135 0x2502, q{\[bv]},
136 0xa6, q{\[bb]},
137 0x25ef, q{\[ci]},
138 0xb7, q{\[bu]},
139 0x2021, q{\[dd]},
140 0x2020, q{\[dg]},
141 0x25ca, q{\[lz]},
142 0x25a1, q{\[sq]},
143 0xb6, q{\[ps]},
144 0xa7, q{\[sc]},
145 0x261c, q{\[lh]},
146 0x261e, q{\[rh]},
147 0x240d, q{\[CR]},
148 0xa9, q{\[co]},
149 0xae, q{\[rg]},
150 0x2122, q{\[tm]},
151 0x21d1, q{\[Do]},
152 0xa2, q{\[ct]},
153 0x20ac, q{\[eu]},
154 0x20ac, q{\[Eu]},
155 0xa5, q{\[Ye]},
156 0xa3, q{\[Po]},
157 0xa4, q{\[Cs]},
158 0x192, q{\[Fn]},
159 0xb0, q{\[de]},
160 0x2030, q{\[%0]},
161 0x2032, q{\[fm]},
162 0x2033, q{\[sd]},
163 0xb5, q{\[mc]},
164 0xaa, q{\[Of]},
165 0xba, q{\[Om]},
166 0x2227, q{\[AN]},
167 0x2228, q{\[OR]},
168 0xac, q{\[no]},
169 0x2203, q{\[te]},
170 0x2200, q{\[fa]},
171 0x220b, q{\[st]},
172 0x2234, q{\[3d]},
173 0x2234, q{\[tf]},
174 0xbd, q{\[12]},
175 0xbc, q{\[14]},
176 0xbe, q{\[34]},
177 0xb9, q{\[S1]},
178 0xb2, q{\[S2]},
179 0xb3, q{\[S3]},
180 0xb1, q{\[+-]},
181 0xb1, q{\[t+-]},
182 0xb7, q{\[pc]},
183 0x22c5, q{\[md]},
184 0xd7, q{\[mu]},
185 0xd7, q{\[tmu]},
186 0x2297, q{\[c*]},
187 0x2295, q{\[c+]},
188 0xf7, q{\[di]},
189 0xf7, q{\[tdi]},
190 0x2044, q{\[f/]},
191 0x2217, q{\[**]},
192 0x2264, q{\[<=]},
193 0x2265, q{\[>=]},
194 0x2260, q{\[!=]},
195 0x2261, q{\[==]},
196 0x2245, q{\[=~]},
197 0x223c, q{\[ap]},
198 0x2248, q{\[~~]},
199 0x2248, q{\[~=]},
200 0x221d, q{\[pt]},
201 0x2205, q{\[es]},
202 0x2208, q{\[mo]},
203 0x2209, q{\[nm]},
204 0x2284, q{\[nb]},
205 0x2282, q{\[sb]},
206 0x2283, q{\[sp]},
207 0x2286, q{\[ib]},
208 0x2287, q{\[ip]},
209 0x2229, q{\[ca]},
210 0x222a, q{\[cu]},
211 0x2220, q{\[/_]},
212 0x22a5, q{\[pp]},
213 0x222b, q{\[is]},
214 0x2211, q{\[sum]},
215 0x220f, q{\[product]},
216 0x2207, q{\[gr]},
217 0x221a, q{\[sr]},
218 0x203e, q{\[rn]},
219 0x221e, q{\[if]},
220 0x2135, q{\[Ah]},
221 0x2111, q{\[Im]},
222 0x211c, q{\[Re]},
223 0x2118, q{\[wp]},
224 0x2202, q{\[pd]},
225 0x391, q{\[*A]},
226 0x392, q{\[*B]},
227 0x39e, q{\[*C]},
228 0x394, q{\[*D]},
229 0x395, q{\[*E]},
230 0x3a6, q{\[*F]},
231 0x393, q{\[*G]},
232 0x398, q{\[*H]},
233 0x399, q{\[*I]},
234 0x39a, q{\[*K]},
235 0x39b, q{\[*L]},
236 0x39c, q{\[*M]},
237 0x39d, q{\[*N]},
238 0x39f, q{\[*O]},
239 0x3a0, q{\[*P]},
240 0x3a8, q{\[*Q]},
241 0x3a1, q{\[*R]},
242 0x3a3, q{\[*S]},
243 0x3a4, q{\[*T]},
244 0x3a5, q{\[*U]},
245 0x3a9, q{\[*W]},
246 0x3a7, q{\[*X]},
247 0x397, q{\[*Y]},
248 0x396, q{\[*Z]},
249 0x3b1, q{\[*a]},
250 0x3b2, q{\[*b]},
251 0x3be, q{\[*c]},
252 0x3b4, q{\[*d]},
253 0x3b5, q{\[*e]},
254 0x3c6, q{\[*f]},
255 0x3d5, q{\[+f]},
256 0x3b3, q{\[*g]},
257 0x3b8, q{\[*h]},
258 0x3d1, q{\[+h]},
259 0x3b9, q{\[*i]},
260 0x3ba, q{\[*k]},
261 0x3bb, q{\[*l]},
262 0x3bc, q{\[*m]},
263 0x3bd, q{\[*n]},
264 0x3bf, q{\[*o]},
265 0x3c0, q{\[*p]},
266 0x3d6, q{\[+p]},
267 0x3c8, q{\[*q]},
268 0x3c1, q{\[*r]},
269 0x3c3, q{\[*s]},
270 0x3c4, q{\[*t]},
271 0x3c5, q{\[*u]},
272 0x3c9, q{\[*w]},
273 0x3c7, q{\[*x]},
274 0x3b7, q{\[*y]},
275 0x3b6, q{\[*z]},
276 0x3c2, q{\[ts]},
277 0x2663, q{\[CL]},
278 0x2660, q{\[SP]},
279 0x2665, q{\[HE]},
280 0x2666, q{\[DI]},
281 );
283 #while(<>) {
284 # s/([^ -~])/(ord($1) < 128 ? $1 : defined($map{$1}) ? $map{$1} : sprintf("\\u%4x", $1))/ge;
285 # print;
286 #}
287 #exit 0;
289 my $ch;
290 while(defined($ch = getc(STDIN))) {
291 my $ord = ord($ch);
292 if ($ord < 128) {
293 print $ch;
294 } else {
295 my $out = $map{$ord};
296 if (defined($out)) {
297 print $out;
298 } else {
299 die "Untranslatable character \\u" . sprintf("%X", ord($ch)) . " / `$ch'";
300 }
301 }
302 }