From 4889cfca2364b3340fc582bf230f08c6ed0f57c6 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Thu, 6 Aug 2020 23:54:00 +0300
Subject: [PATCH] Add character-name registry

---
 character-name.scm | 41 +++++++++++++++++++++++++++++++++++++++++
 generate.scm       | 10 ++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 character-name.scm

diff --git a/character-name.scm b/character-name.scm
new file mode 100644
index 0000000..ed37154
--- /dev/null
+++ b/character-name.scm
@@ -0,0 +1,41 @@
+(id alarm)
+(description "[R6RS, R7RS]")
+
+(id backspace)
+(description "[R6RS, R7RS]")
+
+(id delete)
+(description "[R6RS, R7RS]")
+
+(id esc)
+(description "[R6RS]")
+
+(id escape)
+(description "[R7RS]")
+
+(id linefeed)
+(description "[R6RS]")
+
+(id newline)
+(description "[R6RS, R7RS]")
+
+(id nul)
+(description "[R6RS]")
+
+(id null)
+(description "[R7RS")
+
+(id page)
+(description "[R6RS]")
+
+(id return)
+(description "[R6RS, R7RS]")
+
+(id space)
+(description "[R6RS, R7RS]")
+
+(id tab)
+(description "[R6RS, R7RS]")
+
+(id vtab)
+(description "[R6RS]")
diff --git a/generate.scm b/generate.scm
index bfc3bbf..68e0bd7 100644
--- a/generate.scm
+++ b/generate.scm
@@ -169,6 +169,15 @@
                     (append (group-file 'id "library-name.scm")
                             (splice-implementations)))))))
 
+(define (character-name)
+  (registry
+   "Character names"
+   "character-name"
+   '(p)
+   (tabulate
+    '("ID" "Description")
+    (map the-usual (sort-by-id (group-file 'id "character-name.scm"))))))
+
 (define (hash-syntax)
   (registry
    "# lexical syntax"
@@ -238,6 +247,7 @@
       ,(machine)
       ,(feature)
       ,(library-name)
+      ,(character-name)
       ,(hash-syntax)
       ,(hash-bang-syntax)
       ,(foreign-status-set)