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
|
prefixes = ["", "c", "m", "cm", "mc", "C", "C-", "C-\\M-", "cc"]
prefixes.each { |p| print '?\\', p, "$," }
puts
(0..255).each do |x|
print x, "('", x.chr, "'): "
prefixes.each do |prefix|
begin
print eval("?\\" + prefix + x.chr)
rescue SyntaxError:
print "error"
end
print ","
end
puts
end
puts "---"
['?\\', '?\1', '?\10', '?\100', '?\1000',
'?\01', '?\001', '?\0001',
'?\1_23',
'?\x', '?\x0', '?\x10', '?\xFa', '?\x100',
'?\X10', '?\d10', '?\b101',
'?\C', '?\Ca', '?\C-', '?\C-a',
'?\C-\M-\C-\M-\C-\C-x',
'?\c\c\c\cg',
'?\c\C-\cg',
'?\c\cM-\cg',
'?\c\n', '?\c\x10',
'?\m', '?\cm#', '?\m#'
].each do |x|
print "\"", x, "\":"
begin
puts eval(x)
rescue SyntaxError:
print "error\n"
end
end
|
