1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
|
|
2 | |
|
|
3 | # |
|
|
4 | # Copyright(C) 2014 Marc Alexander Lehmann <vt102@schmorp.de> |
|
|
5 | # |
|
|
6 | # vt102 is free software; you can redistribute it and/or modify it under |
|
|
7 | # the terms of the GNU General Public License as published by the Free |
|
|
8 | # Software Foundation; either version 3, or (at your option) any later |
|
|
9 | # version. |
|
|
10 | # |
|
|
11 | # vt102 is distributed in the hope that it will be useful, but WITHOUT |
|
|
12 | # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
|
13 | # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
|
14 | # for more details. |
|
|
15 | # |
|
|
16 | |
|
|
17 | # If this file contains embedded ROMs, the above copyright notice does |
|
|
18 | # not apply to them. |
2 | |
19 | |
3 | # this hack is not considered release ready in and way, shape, or form |
20 | # this hack is not considered release ready in and way, shape, or form |
4 | # ./vt102 bash |
21 | # ./vt102 bash |
5 | # ./vt102 telnet towel.blinkenlights.nl |
22 | # ./vt102 telnet towel.blinkenlights.nl |
6 | # ./vt102 curl http://artscene.textfiles.com/vt100/trekvid.vt |
23 | # ./vt102 curl http://artscene.textfiles.com/vt100/trekvid.vt |
… | |
… | |
8 | |
25 | |
9 | use common::sense; |
26 | use common::sense; |
10 | |
27 | |
11 | $| = 1; |
28 | $| = 1; |
12 | |
29 | |
13 | my $VT102 = 1; |
30 | my $VT102 = 0; |
14 | my $AVO = $VT102 || 1; |
31 | my $AVO = $VT102 || 1; |
15 | my $KBD = 1; |
32 | my $KBD = 1; |
16 | |
33 | |
17 | ############################################################################# |
34 | ############################################################################# |
18 | |
35 | |
… | |
… | |
466 | "\x{2502}", |
483 | "\x{2502}", |
467 | "\x{2264}", |
484 | "\x{2264}", |
468 | "\x{2265}", |
485 | "\x{2265}", |
469 | "\x{03c0}", |
486 | "\x{03c0}", |
470 | "\x{2260}", |
487 | "\x{2260}", |
471 | "\x{0142}", |
488 | "\x{00a3}", |
472 | "\x{00b7}", |
489 | "\x{00b7}", |
473 | (map chr, 0x020 .. 0x7e), |
490 | (map chr, 0x020 .. 0x7e), |
474 | "?", |
491 | "?", |
475 | ); |
492 | ); |
476 | |
493 | |