utf8-to-roff

   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;
   8
   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 );
 282
 283 #while(<>) {
 284 #  s/([^ -~])/(ord($1) < 128 ? $1 : defined($map{$1}) ? $map{$1} : sprintf("\\u%4x", $1))/ge;
 285 #  print;
 286 #}
 287 #exit 0;
 288
 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 }