dan/grafana-sms-alert
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

SMS sending works for basic chars

Browse Source 
won't send { } [ ]: hypothesis, because these characters can't
be represented in one byte of the GSM charset
This commit is contained in:
Daniel Barlow 2022-09-15 22:08:06 +01:00
parent 1928ff0681
commit 3bb143b6f4
8 changed files with 520 additions and 15 deletions

230
GSM0338.TXT Normal file
View File

@ -0,0 +1,230 @@
# GSM0338.TXT
# Date: 2015-12-02 23:55:00 GMT [KW]
# © 2015 Unicode®, Inc.
# For terms of use, see http://www.unicode.org/terms_of_use.html
#
# Name: GSM 03.38 to Unicode
# Unicode version: 3.0
# Table version: 2.0
# Table format: Format A
# Date: 2009 Nov 10 (header updated: 2015 December 02)
# Authors: Ken Whistler
# Kent Karlsson
# Markus Kuhn
#
# General notes:
#
# This table contains the data the Unicode Consortium has on how
# ETSI GSM 03.38 7-bit default alphabet characters map into Unicode.
# This mapping is based on ETSI TS 100 900 V7.2.0 (1999-07), with
# a correction of 0x09 to *small* c-cedilla, instead of *capital*
# C-cedilla.
#
# Format: Three tab-separated columns
# Column #1 is the ETSI GSM 03.38 7-bit default alphabet
# code (in hex as 0xXX, or 0xXXXX for double-byte
# sequences)
# Column #2 is the Unicode scalar value (in hex as 0xXXXX)
# Column #3 the Unicode name (follows a comment sign, '#')
#
# The entries are in ETSI GSM 03.38 7-bit default alphabet code order.
#
# Note that ETSI GSM 03.38 also allows for the use of UCS-2 (UTF-16
# restricted to the BMP) in GSM/SMS messages.
#
# Note also that there are commented Greek mappings for some
# capital Latin characters. This follows from the clear intent
# of the ETSI GSM 03.38 to have glyph coverage for the uppercase
# Greek alphabet by reusing Latin letters that have the same
# form as an uppercase Greek letter. Conversion implementations
# should be aware of this fact.
#
# The ETSI GSM 03.38 specification shows an uppercase C-cedilla
# glyph at 0x09. This may be the result of limited display
# capabilities for handling characters with descenders. However, the
# language coverage intent is clearly for the lowercase c-cedilla, as shown
# in the mapping below. The mapping for uppercase C-cedilla is shown
# in a commented line in the mapping table.
#
# The ESC character 0x1B is
# mapped to the no-break space character, unless it is part of a
# valid ESC sequence, to facilitate round-trip compatibility in
# the presence of unknown ESC sequences.
#
# 0x00 is NULL (when followed only by 0x00 up to the
# end of (fixed byte length) message, possibly also up to
# FORM FEED. But 0x00 is also the code for COMMERCIAL AT
# when some other character (CARRIAGE RETURN if nothing else)
# comes after the 0x00.
#
# Version history
# 1.0 version: first creation
# 1.1 version: fixed problem with the wrong line being a comment,
# added text regarding 0x00's interpretation,
# added second mapping for C-cedilla,
# added mapping of 0x1B escape to NBSP for display.
# 1.2 version: fixed fallback mapping for 0x03A5.
#
# 2.0 version: updates to copyright notice and terms of use; no
# changes to character mappings
#
# Updated versions of this file may be found in:
# http://www.unicode.org/Public/MAPPINGS/
#
# Any comments or problems, contact us at:
# http://www.unicode.org/reporting.html
#
0x00 0x0040 # COMMERCIAL AT
#0x00 0x0000 # NULL (see note above)
0x01 0x00A3 # POUND SIGN
0x02 0x0024 # DOLLAR SIGN
0x03 0x00A5 # YEN SIGN
0x04 0x00E8 # LATIN SMALL LETTER E WITH GRAVE
0x05 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
0x06 0x00F9 # LATIN SMALL LETTER U WITH GRAVE
0x07 0x00EC # LATIN SMALL LETTER I WITH GRAVE
0x08 0x00F2 # LATIN SMALL LETTER O WITH GRAVE
0x09 0x00E7 # LATIN SMALL LETTER C WITH CEDILLA
#0x09 0x00C7 # LATIN CAPITAL LETTER C WITH CEDILLA (see note above)
0x0A 0x000A # LINE FEED
0x0B 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
0x0C 0x00F8 # LATIN SMALL LETTER O WITH STROKE
0x0D 0x000D # CARRIAGE RETURN
0x0E 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
0x0F 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
0x10 0x0394 # GREEK CAPITAL LETTER DELTA
0x11 0x005F # LOW LINE
0x12 0x03A6 # GREEK CAPITAL LETTER PHI
0x13 0x0393 # GREEK CAPITAL LETTER GAMMA
0x14 0x039B # GREEK CAPITAL LETTER LAMDA
0x15 0x03A9 # GREEK CAPITAL LETTER OMEGA
0x16 0x03A0 # GREEK CAPITAL LETTER PI
0x17 0x03A8 # GREEK CAPITAL LETTER PSI
0x18 0x03A3 # GREEK CAPITAL LETTER SIGMA
0x19 0x0398 # GREEK CAPITAL LETTER THETA
0x1A 0x039E # GREEK CAPITAL LETTER XI
0x1B 0x00A0 # ESCAPE TO EXTENSION TABLE (or displayed as NBSP, see note above)
0x1B0A 0x000C # FORM FEED
0x1B14 0x005E # CIRCUMFLEX ACCENT
0x1B28 0x007B # LEFT CURLY BRACKET
0x1B29 0x007D # RIGHT CURLY BRACKET
0x1B2F 0x005C # REVERSE SOLIDUS
0x1B3C 0x005B # LEFT SQUARE BRACKET
0x1B3D 0x007E # TILDE
0x1B3E 0x005D # RIGHT SQUARE BRACKET
0x1B40 0x007C # VERTICAL LINE
0x1B65 0x20AC # EURO SIGN
0x1C 0x00C6 # LATIN CAPITAL LETTER AE
0x1D 0x00E6 # LATIN SMALL LETTER AE
0x1E 0x00DF # LATIN SMALL LETTER SHARP S (German)
0x1F 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
0x20 0x0020 # SPACE
0x21 0x0021 # EXCLAMATION MARK
0x22 0x0022 # QUOTATION MARK
0x23 0x0023 # NUMBER SIGN
0x24 0x00A4 # CURRENCY SIGN
0x25 0x0025 # PERCENT SIGN
0x26 0x0026 # AMPERSAND
0x27 0x0027 # APOSTROPHE
0x28 0x0028 # LEFT PARENTHESIS
0x29 0x0029 # RIGHT PARENTHESIS
0x2A 0x002A # ASTERISK
0x2B 0x002B # PLUS SIGN
0x2C 0x002C # COMMA
0x2D 0x002D # HYPHEN-MINUS
0x2E 0x002E # FULL STOP
0x2F 0x002F # SOLIDUS
0x30 0x0030 # DIGIT ZERO
0x31 0x0031 # DIGIT ONE
0x32 0x0032 # DIGIT TWO
0x33 0x0033 # DIGIT THREE
0x34 0x0034 # DIGIT FOUR
0x35 0x0035 # DIGIT FIVE
0x36 0x0036 # DIGIT SIX
0x37 0x0037 # DIGIT SEVEN
0x38 0x0038 # DIGIT EIGHT
0x39 0x0039 # DIGIT NINE
0x3A 0x003A # COLON
0x3B 0x003B # SEMICOLON
0x3C 0x003C # LESS-THAN SIGN
0x3D 0x003D # EQUALS SIGN
0x3E 0x003E # GREATER-THAN SIGN
0x3F 0x003F # QUESTION MARK
0x40 0x00A1 # INVERTED EXCLAMATION MARK
0x41 0x0041 # LATIN CAPITAL LETTER A
#0x41 0x0391 # GREEK CAPITAL LETTER ALPHA
0x42 0x0042 # LATIN CAPITAL LETTER B
#0x42 0x0392 # GREEK CAPITAL LETTER BETA
0x43 0x0043 # LATIN CAPITAL LETTER C
0x44 0x0044 # LATIN CAPITAL LETTER D
0x45 0x0045 # LATIN CAPITAL LETTER E
#0x45 0x0395 # GREEK CAPITAL LETTER EPSILON
0x46 0x0046 # LATIN CAPITAL LETTER F
0x47 0x0047 # LATIN CAPITAL LETTER G
0x48 0x0048 # LATIN CAPITAL LETTER H
#0x48 0x0397 # GREEK CAPITAL LETTER ETA
0x49 0x0049 # LATIN CAPITAL LETTER I
#0x49 0x0399 # GREEK CAPITAL LETTER IOTA
0x4A 0x004A # LATIN CAPITAL LETTER J
0x4B 0x004B # LATIN CAPITAL LETTER K
#0x4B 0x039A # GREEK CAPITAL LETTER KAPPA
0x4C 0x004C # LATIN CAPITAL LETTER L
0x4D 0x004D # LATIN CAPITAL LETTER M
#0x4D 0x039C # GREEK CAPITAL LETTER MU
0x4E 0x004E # LATIN CAPITAL LETTER N
#0x4E 0x039D # GREEK CAPITAL LETTER NU
0x4F 0x004F # LATIN CAPITAL LETTER O
#0x4F 0x039F # GREEK CAPITAL LETTER OMICRON
0x50 0x0050 # LATIN CAPITAL LETTER P
#0x50 0x03A1 # GREEK CAPITAL LETTER RHO
0x51 0x0051 # LATIN CAPITAL LETTER Q
0x52 0x0052 # LATIN CAPITAL LETTER R
0x53 0x0053 # LATIN CAPITAL LETTER S
0x54 0x0054 # LATIN CAPITAL LETTER T
#0x54 0x03A4 # GREEK CAPITAL LETTER TAU
0x55 0x0055 # LATIN CAPITAL LETTER U
0x56 0x0056 # LATIN CAPITAL LETTER V
0x57 0x0057 # LATIN CAPITAL LETTER W
0x58 0x0058 # LATIN CAPITAL LETTER X
#0x58 0x03A7 # GREEK CAPITAL LETTER CHI
0x59 0x0059 # LATIN CAPITAL LETTER Y
#0x59 0x03A5 # GREEK CAPITAL LETTER UPSILON
0x5A 0x005A # LATIN CAPITAL LETTER Z
#0x5A 0x0396 # GREEK CAPITAL LETTER ZETA
0x5B 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
0x5C 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
0x5D 0x00D1 # LATIN CAPITAL LETTER N WITH TILDE
0x5E 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
0x5F 0x00A7 # SECTION SIGN
0x60 0x00BF # INVERTED QUESTION MARK
0x61 0x0061 # LATIN SMALL LETTER A
0x62 0x0062 # LATIN SMALL LETTER B
0x63 0x0063 # LATIN SMALL LETTER C
0x64 0x0064 # LATIN SMALL LETTER D
0x65 0x0065 # LATIN SMALL LETTER E
0x66 0x0066 # LATIN SMALL LETTER F
0x67 0x0067 # LATIN SMALL LETTER G
0x68 0x0068 # LATIN SMALL LETTER H
0x69 0x0069 # LATIN SMALL LETTER I
0x6A 0x006A # LATIN SMALL LETTER J
0x6B 0x006B # LATIN SMALL LETTER K
0x6C 0x006C # LATIN SMALL LETTER L
0x6D 0x006D # LATIN SMALL LETTER M
0x6E 0x006E # LATIN SMALL LETTER N
0x6F 0x006F # LATIN SMALL LETTER O
0x70 0x0070 # LATIN SMALL LETTER P
0x71 0x0071 # LATIN SMALL LETTER Q
0x72 0x0072 # LATIN SMALL LETTER R
0x73 0x0073 # LATIN SMALL LETTER S
0x74 0x0074 # LATIN SMALL LETTER T
0x75 0x0075 # LATIN SMALL LETTER U
0x76 0x0076 # LATIN SMALL LETTER V
0x77 0x0077 # LATIN SMALL LETTER W
0x78 0x0078 # LATIN SMALL LETTER X
0x79 0x0079 # LATIN SMALL LETTER Y
0x7A 0x007A # LATIN SMALL LETTER Z
0x7B 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
0x7C 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
0x7D 0x00F1 # LATIN SMALL LETTER N WITH TILDE
0x7E 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
0x7F 0x00E0 # LATIN SMALL LETTER A WITH GRAVE

10
Makefile Normal file
View File

@ -0,0 +1,10 @@
.DELETE_ON_ERROR:
default: unicode-to-gsm.lua
install: default
mkdir -p $(TARGET)/lib/
cp *.{fnl,lua} $(TARGET)/lib
unicode-to-gsm.lua: GSM0338.TXT
sed '/^#/d' < $^ |awk 'BEGIN {print "return {"} { if($$1 != "#") { print "[" strtonum($$2) "]=" $$1 ", -- " substr($$0, match($$0,$$2)) }} END {print "}"}' >$@

13
default.nix
View File

@ -5,9 +5,20 @@ let lua = lua5_3.withPackages (ps: [
ps.http ps.http
ps.luaposix ps.luaposix
]); ]);
inherit makeWrapper;
fennel = pkgs.fennel.override { inherit lua; };
in stdenv.mkDerivation { in stdenv.mkDerivation {
pname = "grafana-sms-alert"; pname = "grafana-sms-alert";
version = "0.1"; version = "0.1";
src = ./.; src = ./.;
buildInputs = [lua (fennel.override { inherit lua; }) ]; makeFlags = [ "TARGET=${placeholder "out"}" ];
postInstall = ''
lua_path="`lua -e 'print(package.path)'`"
lua_cpath="`lua -e 'print(package.cpath)'`"
makeWrapper ${fennel}/bin/fennel $out/bin/grafana-sms-alert \
--add-flags "$out/lib/main.fnl"
'';
buildInputs = [lua fennel];
nativeBuildInputs = [ makeWrapper ];
} }

21
handler.fnl Normal file
View File

@ -0,0 +1,21 @@
(local json (require :dkjson))
(local { : view } (require :fennel))
(local sms (require :sms))
(local unistd (require :posix.unistd))
(fn send-sms [body]
(print :send-sms body)
(sms.send "+447000123456" body)
"OK")
(fn handle [s]
(let [(m pos err) (json.decode s 1 nil)]
(when m
(send-sms
(.. m.title " " (. (. m.alerts 1) :valueString))))
"ok"))
;
;;;; {"receiver":"","status":"firing","alerts":[{"status":"firing","labels":{"alertname":"TestAlert","instance":"Grafana"},"annotations":{"summary":"Notification test"},"startsAt":"2022-09-13T21:14:29.77765882+01:00","endsAt":"0001-01-01T00:00:00Z","generatorURL":"","fingerprint":"57c6d9296de2ad39","silenceURL":"http://garf.telent.net:3002/alerting/silence/new?alertmanager=grafana\u0026matcher=alertname%3DTestAlert\u0026matcher=instance%3DGrafana","dashboardURL":"","panelURL":"","valueString":"[ metric='foo' labels={instance=bar} value=10 ]"}],"groupLabels":{},"commonLabels":{"alertname":"TestAlert","instance":"Grafana"},"commonAnnotations":{"summary":"Notification test"},"externalURL":"http://garf.telent.net:3002/","version":"1","groupKey":"{alertname=\"TestAlert\", instance=\"Grafana\"}2022-09-13 21:14:29.77765882 +0100 BST m=+644632.184951212","truncatedAlerts":0,"orgId":1,"title":"[FIRING:1] (TestAlert Grafana)","state":"alerting","message":"**Firing**\n\nValue: [ metric='foo' labels={instance=bar} value=10 ]\nLabels:\n - alertname = TestAlert\n - instance = Grafana\nAnnotations:\n - summary = Notification test\nSilence: http://garf.telent.net:3002/alerting/silence/new?alertmanager=grafana\u0026matcher=alertname%3DTestAlert\u0026matcher=instance%3DGrafana\n"}
{: handle}

11
main.fnl
View File

@ -1,12 +1,13 @@
(local server (require :server)) (local server (require :server))
(local { : view } (require :fennel)) (local handler (require :handler))
(fn handler [payload] (local sms (require :sms))
"OK")
(sms.send "+447000123456" "test 123")
(os.exit 0)
(doto (server.new handler) (doto (server.new handler.handle)
(: :listen) (: :listen)
(: :loop)) (: :loop 60))
(io.stdin:read) (io.stdin:read)

16
server.fnl
View File

@ -1,18 +1,16 @@
(local server (require :http.server)) (local server (require :http.server))
(local headers (require :http.headers)) (local headers (require :http.headers))
(local json (require :dkjson))
(fn on-stream [handler sv out] (fn on-stream [handler sv out]
(let [hdrs (out:get_headers) (let [hdrs (out:get_headers)
method (hdrs:get ":method") method (hdrs:get ":method")
path (or (hdrs:get ":path") "/") path (or (hdrs:get ":path") "/")]
rh (headers.new)] (let [body (handler (out:get_body_as_string))]
(rh:append ":status" :200) (doto (headers.new)
(rh:append :content-type :text/plain) (: :append ":status" :200)
(out:write_headers rh false) (: :append :content-type :text/plain)
(let [(obj pos err) (json.decode (out:get_body_as_string) 1 nil) (out:write_headers false))
ret (handler obj)] (out:write_chunk body true))))
(out:write_chunk ret true))))
(fn new-server [handler] (fn new-server [handler]
(server.listen (server.listen

94
sms.fnl Normal file
View File

@ -0,0 +1,94 @@
(local fcntl (require "posix.fcntl"))
(local posix (require "posix"))
(local { : read : write } (require "posix.unistd"))
(local {: tcgetattr : tcsetattr : tcdrain
: CLOCAL : CREAD
: ICANON : ECHO : ECHOE : ISIG
: OPOST
} (require "posix.termio"))
(local { : nanosleep } (require "posix.time"))
(local { : view } (require "fennel"))
(local gsm-char (require :unicode-to-gsm))
(fn escape-for-logging [s]
(s:gsub "%c" (fn [x] (.. "{" (string.byte x) "}"))))
(fn tx [fd s]
(write fd s)
(print (.. ">>> " (escape-for-logging s)))
(nanosleep {:tv_sec 0 :tv_nsec (* 10 1000 1000)}))
(fn chars [i]
(if (not i)
""
(< i 256)
(string.char i)
(.. (string.char (rshift i 8)) (string.char (band i 0xff)))))
(fn unicode-to-gsm [s]
(s:gsub "." (fn [c] (chars (. gsm-char (string.byte c))))))
;(print (escape-for-logging (unicode-to-gsm "hello")))
;(print (escape-for-logging (unicode-to-gsm "{he@llo}€")))
(fn expect [fd pattern]
(let [b (read fd 1024)]
(if (> (# b) 0)
(do
(print (.. "<<< " (escape-for-logging b)))
(if (string.find b pattern)
(do (print "found" pattern) true)
(expect fd pattern)))
nil)))
(fn send-sms [number body]
(let [fd (fcntl.open "/dev/serial/by-id/usb-HUAWEI_HUAWEI_HiLink-if00-port0" posix.O_RDWR)
termios (tcgetattr fd)]
(tset termios :cflag (bor termios.cflag CLOCAL CREAD))
(tset termios :lflag (band termios.lflag
(bnot ICANON)
(bnot ECHO)
(bnot ECHOE)
(bnot ISIG)))
(tset termios :oflag (band termios.oflag ( bnot OPOST)))
(tcsetattr fd 0 termios)
;; opt->c_cc[VMIN] = 1;
;; opt->c_cc[VTIME] = 10;
(tcdrain fd)
(doto fd
(tx "AT\r\n")
(expect "OK")
(tx "AT&F\r\n")
(expect "OK")
(tx "ATE0\r\n") ;disable command echo
(expect "OK")
(tx "AT+CMEE=1\r\n") ;print CME errors
(expect "OK")
(tx "AT+CMGF=1\r\n") ;SMS text mode (not PDU mode)
(expect "OK")
(tx "AT+CSCS=\"GSM\"\r\n") ; default character set
(expect "OK")
(tx "AT+CSMP=17,12,0,0\r\n") ; message valid for 12*5 minutes
(expect "OK")
(tx "AT+CSCA=\"+447958879879\",145\r\n") ;set SMSC
(expect "OK")
(tx (.. "AT+CMGS=\"" number "\"\r\n"))
(expect ">")
;; (tx (unicode-to-gsm body))
(tx body)
(tx "\026\r\n")
(expect "OK"))))
{ :send send-sms }

140
unicode-to-gsm.lua Normal file
View File

@ -0,0 +1,140 @@
return {
[64]=0x00, -- 0x0040 # COMMERCIAL AT
[163]=0x01, -- 0x00A3 # POUND SIGN
[36]=0x02, -- 0x0024 # DOLLAR SIGN
[165]=0x03, -- 0x00A5 # YEN SIGN
[232]=0x04, -- 0x00E8 # LATIN SMALL LETTER E WITH GRAVE
[233]=0x05, -- 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
[249]=0x06, -- 0x00F9 # LATIN SMALL LETTER U WITH GRAVE
[236]=0x07, -- 0x00EC # LATIN SMALL LETTER I WITH GRAVE
[242]=0x08, -- 0x00F2 # LATIN SMALL LETTER O WITH GRAVE
[231]=0x09, -- 0x00E7 # LATIN SMALL LETTER C WITH CEDILLA
[10]=0x0A, -- 0x000A # LINE FEED
[216]=0x0B, -- 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
[248]=0x0C, -- 0x00F8 # LATIN SMALL LETTER O WITH STROKE
[13]=0x0D, -- 0x000D # CARRIAGE RETURN
[197]=0x0E, -- 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
[229]=0x0F, -- 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
[916]=0x10, -- 0x0394 # GREEK CAPITAL LETTER DELTA
[95]=0x11, -- 0x005F # LOW LINE
[934]=0x12, -- 0x03A6 # GREEK CAPITAL LETTER PHI
[915]=0x13, -- 0x0393 # GREEK CAPITAL LETTER GAMMA
[923]=0x14, -- 0x039B # GREEK CAPITAL LETTER LAMDA
[937]=0x15, -- 0x03A9 # GREEK CAPITAL LETTER OMEGA
[928]=0x16, -- 0x03A0 # GREEK CAPITAL LETTER PI
[936]=0x17, -- 0x03A8 # GREEK CAPITAL LETTER PSI
[931]=0x18, -- 0x03A3 # GREEK CAPITAL LETTER SIGMA
[920]=0x19, -- 0x0398 # GREEK CAPITAL LETTER THETA
[926]=0x1A, -- 0x039E # GREEK CAPITAL LETTER XI
[160]=0x1B, -- 0x00A0 # ESCAPE TO EXTENSION TABLE (or displayed as NBSP, see note above)
[12]=0x1B0A, -- 0x000C # FORM FEED
[94]=0x1B14, -- 0x005E # CIRCUMFLEX ACCENT
[123]=0x1B28, -- 0x007B # LEFT CURLY BRACKET
[125]=0x1B29, -- 0x007D # RIGHT CURLY BRACKET
[92]=0x1B2F, -- 0x005C # REVERSE SOLIDUS
[91]=0x1B3C, -- 0x005B # LEFT SQUARE BRACKET
[126]=0x1B3D, -- 0x007E # TILDE
[93]=0x1B3E, -- 0x005D # RIGHT SQUARE BRACKET
[124]=0x1B40, -- 0x007C # VERTICAL LINE
[8364]=0x1B65, -- 0x20AC # EURO SIGN
[198]=0x1C, -- 0x00C6 # LATIN CAPITAL LETTER AE
[230]=0x1D, -- 0x00E6 # LATIN SMALL LETTER AE
[223]=0x1E, -- 0x00DF # LATIN SMALL LETTER SHARP S (German)
[201]=0x1F, -- 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
[32]=0x20, -- 0x0020 # SPACE
[33]=0x21, -- 0x0021 # EXCLAMATION MARK
[34]=0x22, -- 0x0022 # QUOTATION MARK
[35]=0x23, -- 0x0023 # NUMBER SIGN
[164]=0x24, -- 0x00A4 # CURRENCY SIGN
[37]=0x25, -- 0x0025 # PERCENT SIGN
[38]=0x26, -- 0x0026 # AMPERSAND
[39]=0x27, -- 0x0027 # APOSTROPHE
[40]=0x28, -- 0x0028 # LEFT PARENTHESIS
[41]=0x29, -- 0x0029 # RIGHT PARENTHESIS
[42]=0x2A, -- 0x002A # ASTERISK
[43]=0x2B, -- 0x002B # PLUS SIGN
[44]=0x2C, -- 0x002C # COMMA
[45]=0x2D, -- 0x002D # HYPHEN-MINUS
[46]=0x2E, -- 0x002E # FULL STOP
[47]=0x2F, -- 0x002F # SOLIDUS
[48]=0x30, -- 0x0030 # DIGIT ZERO
[49]=0x31, -- 0x0031 # DIGIT ONE
[50]=0x32, -- 0x0032 # DIGIT TWO
[51]=0x33, -- 0x0033 # DIGIT THREE
[52]=0x34, -- 0x0034 # DIGIT FOUR
[53]=0x35, -- 0x0035 # DIGIT FIVE
[54]=0x36, -- 0x0036 # DIGIT SIX
[55]=0x37, -- 0x0037 # DIGIT SEVEN
[56]=0x38, -- 0x0038 # DIGIT EIGHT
[57]=0x39, -- 0x0039 # DIGIT NINE
[58]=0x3A, -- 0x003A # COLON
[59]=0x3B, -- 0x003B # SEMICOLON
[60]=0x3C, -- 0x003C # LESS-THAN SIGN
[61]=0x3D, -- 0x003D # EQUALS SIGN
[62]=0x3E, -- 0x003E # GREATER-THAN SIGN
[63]=0x3F, -- 0x003F # QUESTION MARK
[161]=0x40, -- 0x00A1 # INVERTED EXCLAMATION MARK
[65]=0x41, -- 0x0041 # LATIN CAPITAL LETTER A
[66]=0x42, -- 0x0042 # LATIN CAPITAL LETTER B
[67]=0x43, -- 0x0043 # LATIN CAPITAL LETTER C
[68]=0x44, -- 0x0044 # LATIN CAPITAL LETTER D
[69]=0x45, -- 0x0045 # LATIN CAPITAL LETTER E
[70]=0x46, -- 0x0046 # LATIN CAPITAL LETTER F
[71]=0x47, -- 0x0047 # LATIN CAPITAL LETTER G
[72]=0x48, -- 0x0048 # LATIN CAPITAL LETTER H
[73]=0x49, -- 0x0049 # LATIN CAPITAL LETTER I
[74]=0x4A, -- 0x004A # LATIN CAPITAL LETTER J
[75]=0x4B, -- 0x004B # LATIN CAPITAL LETTER K
[76]=0x4C, -- 0x004C # LATIN CAPITAL LETTER L
[77]=0x4D, -- 0x004D # LATIN CAPITAL LETTER M
[78]=0x4E, -- 0x004E # LATIN CAPITAL LETTER N
[79]=0x4F, -- 0x004F # LATIN CAPITAL LETTER O
[80]=0x50, -- 0x0050 # LATIN CAPITAL LETTER P
[81]=0x51, -- 0x0051 # LATIN CAPITAL LETTER Q
[82]=0x52, -- 0x0052 # LATIN CAPITAL LETTER R
[83]=0x53, -- 0x0053 # LATIN CAPITAL LETTER S
[84]=0x54, -- 0x0054 # LATIN CAPITAL LETTER T
[85]=0x55, -- 0x0055 # LATIN CAPITAL LETTER U
[86]=0x56, -- 0x0056 # LATIN CAPITAL LETTER V
[87]=0x57, -- 0x0057 # LATIN CAPITAL LETTER W
[88]=0x58, -- 0x0058 # LATIN CAPITAL LETTER X
[89]=0x59, -- 0x0059 # LATIN CAPITAL LETTER Y
[90]=0x5A, -- 0x005A # LATIN CAPITAL LETTER Z
[196]=0x5B, -- 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
[214]=0x5C, -- 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
[209]=0x5D, -- 0x00D1 # LATIN CAPITAL LETTER N WITH TILDE
[220]=0x5E, -- 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
[167]=0x5F, -- 0x00A7 # SECTION SIGN
[191]=0x60, -- 0x00BF # INVERTED QUESTION MARK
[97]=0x61, -- 0x0061 # LATIN SMALL LETTER A
[98]=0x62, -- 0x0062 # LATIN SMALL LETTER B
[99]=0x63, -- 0x0063 # LATIN SMALL LETTER C
[100]=0x64, -- 0x0064 # LATIN SMALL LETTER D
[101]=0x65, -- 0x0065 # LATIN SMALL LETTER E
[102]=0x66, -- 0x0066 # LATIN SMALL LETTER F
[103]=0x67, -- 0x0067 # LATIN SMALL LETTER G
[104]=0x68, -- 0x0068 # LATIN SMALL LETTER H
[105]=0x69, -- 0x0069 # LATIN SMALL LETTER I
[106]=0x6A, -- 0x006A # LATIN SMALL LETTER J
[107]=0x6B, -- 0x006B # LATIN SMALL LETTER K
[108]=0x6C, -- 0x006C # LATIN SMALL LETTER L
[109]=0x6D, -- 0x006D # LATIN SMALL LETTER M
[110]=0x6E, -- 0x006E # LATIN SMALL LETTER N
[111]=0x6F, -- 0x006F # LATIN SMALL LETTER O
[112]=0x70, -- 0x0070 # LATIN SMALL LETTER P
[113]=0x71, -- 0x0071 # LATIN SMALL LETTER Q
[114]=0x72, -- 0x0072 # LATIN SMALL LETTER R
[115]=0x73, -- 0x0073 # LATIN SMALL LETTER S
[116]=0x74, -- 0x0074 # LATIN SMALL LETTER T
[117]=0x75, -- 0x0075 # LATIN SMALL LETTER U
[118]=0x76, -- 0x0076 # LATIN SMALL LETTER V
[119]=0x77, -- 0x0077 # LATIN SMALL LETTER W
[120]=0x78, -- 0x0078 # LATIN SMALL LETTER X
[121]=0x79, -- 0x0079 # LATIN SMALL LETTER Y
[122]=0x7A, -- 0x007A # LATIN SMALL LETTER Z
[228]=0x7B, -- 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
[246]=0x7C, -- 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
[241]=0x7D, -- 0x00F1 # LATIN SMALL LETTER N WITH TILDE
[252]=0x7E, -- 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
[224]=0x7F, -- 0x00E0 # LATIN SMALL LETTER A WITH GRAVE
}