From af3e1a4abcc96fed4d4828e320c3adda4e89974e Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Thu, 6 Aug 2020 23:46:25 +0300
Subject: [PATCH] Start gathering # syntax

---
 generate.scm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/generate.scm b/generate.scm
index f979a56..bfc3bbf 100644
--- a/generate.scm
+++ b/generate.scm
@@ -63,6 +63,10 @@
                          (symbol->string (assoc1 'id b))))
              entries))
 
+(define (sort-by-string-id entries)
+  (list-sort (lambda (a b) (string<? (assoc1 'id a) (assoc1 'id b)))
+             entries))
+
 (define (classify class entries)
   (map (lambda (entry) `((class ,class) ,@entry))
        entries))
@@ -165,6 +169,19 @@
                     (append (group-file 'id "library-name.scm")
                             (splice-implementations)))))))
 
+(define (hash-syntax)
+  (registry
+   "# lexical syntax"
+   "hash-syntax"
+   '(p)
+   (tabulate
+    '("ID" "Description")
+    (map (lambda (entry)
+           (cons (assoc? 'class entry)
+                 `((code ,(assoc1 'id entry))
+                   ,(assoc1 'description entry))))
+         (sort-by-string-id (group-file 'id "hash-syntax.scm"))))))
+
 (define (hash-bang-syntax)
   (registry
    "#! lexical syntax"
@@ -172,8 +189,7 @@
    '(p)
    (tabulate
     '("ID" "Description")
-    (map the-usual
-         (sort-by-id (group-file 'id "hash-bang-syntax.scm"))))))
+    (map the-usual (sort-by-id (group-file 'id "hash-bang-syntax.scm"))))))
 
 (define (foreign-status-set)
   (registry
@@ -222,6 +238,7 @@
       ,(machine)
       ,(feature)
       ,(library-name)
+      ,(hash-syntax)
       ,(hash-bang-syntax)
       ,(foreign-status-set)
       ,(foreign-status-property)))))