commit 3bb143b6f4a7e88cc04337d674b7c0b4c9c0a6de
parent 1928ff0681b6278866a45dd319dfbdc4977e96cc
Author: Daniel Barlow <dan@telent.net>
Date: Thu, 15 Sep 2022 22:08:06 +0100
SMS sending works for basic chars
won't send { } [ ]: hypothesis, because these characters can't
be represented in one byte of the GSM charset
Diffstat:
| A | GSM0338.TXT | | | 230 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| A | Makefile | | | 10 | ++++++++++ |
| M | default.nix | | | 13 | ++++++++++++- |
| A | handler.fnl | | | 21 | +++++++++++++++++++++ |
| M | main.fnl | | | 11 | ++++++----- |
| M | server.fnl | | | 16 | +++++++--------- |
| A | sms.fnl | | | 94 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| A | unicode-to-gsm.lua | | | 140 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
8 files changed, 520 insertions(+), 15 deletions(-)
diff --git a/GSM0338.TXT b/GSM0338.TXT
@@ -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
diff --git a/Makefile b/Makefile
@@ -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 "}"}' >$@
diff --git a/default.nix b/default.nix
@@ -5,9 +5,20 @@ let lua = lua5_3.withPackages (ps: [
ps.http
ps.luaposix
]);
+ inherit makeWrapper;
+ fennel = pkgs.fennel.override { inherit lua; };
in stdenv.mkDerivation {
pname = "grafana-sms-alert";
version = "0.1";
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 ];
}
diff --git a/handler.fnl b/handler.fnl
@@ -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}
diff --git a/main.fnl b/main.fnl
@@ -1,12 +1,13 @@
(local server (require :server))
-(local { : view } (require :fennel))
+(local handler (require :handler))
-(fn handler [payload]
- "OK")
+(local sms (require :sms))
+(sms.send "+447000123456" "test 123")
+(os.exit 0)
-(doto (server.new handler)
+(doto (server.new handler.handle)
(: :listen)
- (: :loop))
+ (: :loop 60))
(io.stdin:read)
diff --git a/server.fnl b/server.fnl
@@ -1,18 +1,16 @@
(local server (require :http.server))
(local headers (require :http.headers))
-(local json (require :dkjson))
(fn on-stream [handler sv out]
(let [hdrs (out:get_headers)
method (hdrs:get ":method")
- path (or (hdrs:get ":path") "/")
- rh (headers.new)]
- (rh:append ":status" :200)
- (rh:append :content-type :text/plain)
- (out:write_headers rh false)
- (let [(obj pos err) (json.decode (out:get_body_as_string) 1 nil)
- ret (handler obj)]
- (out:write_chunk ret true))))
+ path (or (hdrs:get ":path") "/")]
+ (let [body (handler (out:get_body_as_string))]
+ (doto (headers.new)
+ (: :append ":status" :200)
+ (: :append :content-type :text/plain)
+ (out:write_headers false))
+ (out:write_chunk body true))))
(fn new-server [handler]
(server.listen
diff --git a/sms.fnl b/sms.fnl
@@ -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 }
diff --git a/unicode-to-gsm.lua b/unicode-to-gsm.lua
@@ -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
+}
