Add character-name registry

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]")

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)