- if ($row{set} eq 'cp437') {
- if ($row{offset} <= 0xED and $row{endpoint} >= 0xED) {
- # replace phi glyph
- substr($row{table}, 0xED - $row{offset}, 1) = 'ϕ';
- }
- if ($row{offset} < 0x20) {
- # replace control characters by visible variants
- my $sub = substr ' ☺☻♥♦♣♠•◘○◙♂♀♪♫☼►◄↕‼¶§▬↨↑↓→←∟↔▲▼', $row{offset};
- substr($row{table}, 0, length $sub) = $sub;
- }
- }
- elsif ($row{set} eq 'symbol') {
- if ($row{offset} <= 0x60 and $row{endpoint} >= 0x60) {
- # replace radical extender by closest unicode equivalent
- substr($row{table}, 0x60 - $row{offset}, 1) = '│';
- }
- if ($row{offset} <= 0xBD and $row{endpoint} >= 0xFF) {
- substr($row{table}, 0xBD - $row{offset}, 2) = '⏐⎯'; # arrow extenders
- substr($row{table}, 0xD2 - $row{offset}, 3) = '®©™'; # serif variants
- substr($row{table}, 0xE0 - $row{offset}, 1) = '◊'; # replace lookalike, should match AdobeSymbol
- substr($row{table}, 0xE2 - $row{offset}, 3) = '®©™'; # sans-serif variants
- substr($row{table}, 0xE6 - $row{offset}, 10) = '⎛⎜⎝⎡⎢⎣⎧⎨⎩⎪';
- substr($row{table}, 0xF0 - $row{offset}, 1) = '€';
- substr($row{table}, 0xF4 - $row{offset}, 11) = '⎮⌡⎞⎟⎠⎤⎥⎦⎫⎬⎭';
- }
- }
-