schemeorg-community
/
registry.scheme.org
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Start gathering # syntax

This commit is contained in:
Lassi Kortela 2020-08-06 23:46:25 +03:00
parent 13ed02a959
commit af3e1a4abc
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
generate.scm
View File

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