summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 15cb868)
raw | patch | inline | side by side (parent: 15cb868)
author | pjrm <pjrm@users.sourceforge.net> | |
Wed, 7 Mar 2007 12:26:13 +0000 (12:26 +0000) | ||
committer | pjrm <pjrm@users.sourceforge.net> | |
Wed, 7 Mar 2007 12:26:13 +0000 (12:26 +0000) |
utf8-to-roff | patch | blob | history |
diff --git a/utf8-to-roff b/utf8-to-roff
index de937782d0ce78845105f92f471477a0af69c561..5604f1416492017fa97c61b9c44d3872f4760e48 100755 (executable)
--- a/utf8-to-roff
+++ b/utf8-to-roff
# perl -CI -nae 'my ($ch, $seq) = @F; if (ord($ch) >= 128) { printf(" 0x\%x, q{\%s},\n", ord($ch), $seq); }'
# with č (0x10d) manually translated as ˇc (\[ah]c). (Anyone have a better translation, e.g. using
# overprint? \[vc] doesn't work, btw.)
+# Similarly, ć (0x107) has been manually translated as ´c (\[aa]c).
my %map = (
0xd0, q{\[-D]},
0xf0, q{\[Sd]},
0xe3, q{\[~a]},
0xf1, q{\[~n]},
0xf5, q{\[~o]},
- 0x107, q{\[ah]c}, # Added manually; see above.
+ 0x107, q{\[aa]c}, # Added manually; see above.
0x10d, q{\[ah]c}, # Added manually; see above.
0x160, q{\[vS]},
0x161, q{\[vs]},