1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#include <stdio.h>
unsigned short symbolGreekTranslation[] = {
/* 000 (00) */ 0x0000 /*' '*/, 0x0001 /*''*/, 0x0002 /*''*/, 0x0003 /*''*/,
/* 004 (04) */ 0x0004 /*''*/, 0x0005 /*''*/, 0x0006 /*''*/, 0x0007 /*''*/,
/* 008 (08) */ ' ' /*'backspace? '*/, 0x0009 /*'\t'*/, 0x000a /*\n*/, 0x000b /*' '*/,
/* 012 (0c) */ 0x000c /*' '*/, 0x000d /*'\r'*/, 0x000e /*''*/, 0x000f /*''*/,
/* 016 (10) */ 0x0010 /*''*/, 0x0011 /*''*/, 0x0012 /*''*/, 0x0013 /*''*/,
/* 020 (14) */ 0x0014 /*''*/, 0x0015 /*''*/, 0x0016 /*''*/, 0x0017 /*''*/,
/* 024 (18) */ 0x0018 /*''*/, 0x0019 /*''*/, 0x001a /*''*/, 0x001b /*''*/,
/* 028 (1c) */ 0x001c /*' '*/, 0x001d /*' '*/, 0x001e /*' '*/, 0x001f /*' '*/,
/* 032 (20) */ 0x0020 /*' '*/, 0x0021 /*'!'*/, 0x03C2 /*'"'*/, 0x0023 /*'#'*/,
/* 036 (24) */ 0x0024 /*'$'*/, 0x0025 /*'%'*/, 0x0026 /*'&'*/, 0x0342 /* circumflex perispomeni'''*/,
/* 040 (28) */ 0x0028 /*'('*/, 0x0029 /*')'*/, 0x002a /*'*'*/, 0x002b /*'+'*/,
/* 044 (2c) */ 0x002c /*','*/, 0x002d /*'-'*/, 0x002e /*'.'*/, 0x002f /*'/'*/,
/* 048 (30) */ 0x0030 /*'0'*/, 0x0031 /*'1'*/, 0x0032 /*'2'*/, 0x0033 /*'3'*/,
/* 052 (34) */ 0x0034 /*'4'*/, 0x0035 /*'5'*/, 0x0036 /*'6'*/, 0x0037 /*'7'*/,
/* 056 (38) */ 0x0038 /*'8'*/, 0x0039 /*'9'*/, 0x00b7 /* middle dot ':'*/, ';' /* possibly a grave varia (see code below) */,
/* 060 (3c) */ 0x003c /*'<'*/, 0x003d /*'='*/, 0x0308 /*'>'*/, 0x003f /*'?'*/,
/* 064 (40) */ 0x0040 /*'@'*/, 0x0391 /*'A'*/, 0x0392 /*'B'*/, 0x03A7 /*'C'*/,
/* 068 (44) */ 0x0394 /*'D'*/, 0x0395 /*'E'*/, 0x03A6 /*'F'*/, 0x0393 /*'G'*/,
/* 072 (48) */ 0x0397 /*'H'*/, 0x0399 /*'I'*/, 0x0314 /*'J'*/, 0x039a /*'K' bug in .py */,
/* 076 (4c) */ 0x039b /*'L'*/, 0x039c /*'M'*/, 0x039d /*'N'*/, 0x039f /*'O'*/,
/* 080 (50) */ 0x03a0 /*'P'*/, 0x0398 /*'Q'*/, 0x03a1 /*'R'*/, 0x03a3 /*'S'*/,
/* 084 (54) */ 0x03a4 /*'T'*/, 0x03a5 /*'U'*/, 0x0384 /*'V'*/, 0x03a9 /*'W'*/,
/* 088 (58) */ 0x039e /*'X'*/, 0x03a8 /*'Y'*/, 0x005a /*'Z'*/, 0x005b /*'['*/,
/* 092 (5c) */ 0x005c /*'\'*/, 0x005d /*']'*/, 0x005e /*'^'*/, 0x005f /*'_'*/,
/* 096 (60) */ 0x0060 /*'`'*/, 0x03b1 /*'a'*/, 0x03b2 /*'b'*/, 0x03c7 /*'c'*/,
/* 100 (64) */ 0x03b4 /*'d'*/, 0x03b5 /*'e'*/, 0x03c6 /*'f'*/, 0x03b3 /*'g'*/,
/* 104 (68) */ 0x03b7 /*'h'*/, 0x03b9 /*'i'*/, 0x0313 /* smooth breathing 'j'*/, 0x03ba /*'k'*/,
/* 108 (6c) */ 0x03bb /*'l'*/, 0x03bc /*'m'*/, 0x03bd /*'n'*/, 0x03bf /*'o'*/,
/* 112 (70) */ 0x03c0 /*'p'*/, 0x03b8 /*'q'*/, 0x03c1 /*'r'*/, 0x03c3 /*'s'*/,
/* 116 (74) */ 0x03c4 /*'t'*/, 0x03c5 /*'u'*/, 0x0301 /* acute tonos 'v'*/, 0x03c9 /*'w'*/,
/* 120 (78) */ 0x03be /*'x'*/, 0x03c8 /*'y'*/, 0x03b6 /*'z'*/, 0x007b /*'{'*/,
/* 124 (7c) */ 0x007c /*'|'*/, 0x007d /*'}'*/, 0x03c2 /*'~'*/, 0x007f /*''*/,
/* 128 (80) */ ' ' /*'�'*/, 0x0081 /*'�'*/, 'C', 0x0083 /*'�'*/,
/* 132 (84) */ 0x0084 /*'�'*/, 0x003e /* blockend '�'*/, 0x1fbd /*elusionszeichen'�'*/, 0x0087 /*'�'*/,
/* 136 (88) */ 0x0088 /*'�'*/, 0x003b /*; '�'*/, ' ' /*'�'*/, 0x008b /*'�'*/,
/* 140 (8c) */ 'a', 'c', 0x008e /*'�'*/, 0x008f /*'�'*/,
/* 144 (90) */ 0x0090 /*'�'*/, 0x0091 /*'�'*/, 0x0092 /*'�'*/, 0x0093 /*'�'*/,
/* 148 (94) */ 0x0094 /*'�'*/, 0x0095 /*'�'*/, 0x0096 /*'�'*/, 0x0056 /*'�'*/,
/* 152 (98) */ 0x0098 /*'�'*/, 0x0099 /*'�'*/, 0x002f /* / '�'*/, 0x009b /*'�'*/,
/* 156 (9c) */ 0x009c /*'�'*/, 0x009d /*'�'*/, 0x009e /*'�'*/, 0x009f /*'�'*/,
/* 160 (a0) */ 't', 0x00a1 /*'�'*/, 0x00a2 /*'�'*/, 0x00a3 /*'�'*/,
/* 164 (a4) */ 0x00a4 /*'�'*/, 0x00a5 /*'�'*/, 0x00a6 /*'�'*/, 's',
/* 168 (a8) */ 'r', 'g', 0x00aa /*'�'*/, 'e',
/* 172 (ac) */ 'u', 0x0047 /* G '�'*/, 0x00ae /*'�'*/, '}' /*'�'*/,
/* 176 (b0) */ 0x00b0 /*'�'*/, 0x0306 /*'�'*/, 'j', 0x0323 /*unterpunkt'�'*/,
/* 180 (b4) */ 'y', 'm', 'd', 'w',
/* 184 (b8) */ 0x00b8 /*'�'*/, 'p', 'b' /*'�'*/, 0x005b /* [ '�'*/,
/* 188 (bc) */ 0x005d /*]'�'*/, 0x00bd /*'�'*/, 0x00be /*'�'*/, '{' /*'�'*/,
/* 192 (c0) */ 0x00c0 /*'�'*/, 0x00BA /* degree '�'*/, 'l'/* 0x006c */, 'v' /*'�'*/,
/* 196 (c4) */ 'f', 'x', 0x02bc/* apostrophe */, 0x00c7 /*'�'*/,
/* 200 (c8) */ 0x00c8 /*'�'*/, ';' /*'�'*/, ' ' /*'�'*/, 0x00cb /*'�'*/,
/* 204 (cc) */ 0x00cc /*'�'*/, 0x00cd /*'�'*/, 'Q', 'q',
/* 208 (d0) */ 0x0304, 0x0305 /* intf uses: 0x00af oberstrich'�'*/, 0x00d2 /*'�'*/, 0x00d3 /*'�'*/,
/* 212 (d4) */ 0x00d4 /*'�'*/, 0x00d5 /*'�'*/, 0x00d6 /*'�'*/, 'V',
/* 216 (d8) */ 0x00d8 /*'�'*/, 0x00d9 /*'�'*/, 0x007c /*|'�'*/, 0x005c /*`'�'*/,
/* 220 (dc) */ 0x00dc /*'�'*/, 0x00dd /*'�'*/, 0x00de /*'�'*/, 0x0302 /*'�'*/,
/* 224 (e0) */ 0x00e0 /*'�'*/, 0x00e1 /*'�'*/, ' ' /*'�'*/, 'W',
/* 228 (e4) */ 0x00e4 /*'�'*/, 'R', 0x00e6 /*'�'*/, 'Y',
/* 232 (e8) */ 'U', 'i', 'S', 'D',
/* 236 (ec) */ 'F', 'G', 0x00ee /*'�'*/, ' ' /*'�'*/,
/* 240 (f0) */ 0x00f0 /*'�'*/, 'L', ':' /*'�'*/, 0x00f3 /*'�'*/,
/* 244 (f4) */ 0x00f4 /*'�'*/, 0x03DB /*stigma*/, 'n', 0x00f7 /*'�'*/,
/* 248 (f8) */ 'J', 0x00f9 /*'�'*/, 'h', 'k',
/* 252 (fc) */ 0x00fc /*'�'*/, 0x00fd /*'�'*/, 0x00fe /*'�'*/, 0x00ff /*'?'*/
};
int main(int argc, char **argv) {
char robinson = (argc > 1 && !strcmp(argv[1], "-robinson"));
unsigned char c;
while (read(0, &c, 1)) {
if (c == 'v' && robinson) c = '~';
putchar((unsigned char)(symbolGreekTranslation[c] >> 8));
putchar((unsigned char)(symbolGreekTranslation[c] & 0x00FF));
}
return 0;
}
|
