Start gathering # syntax
This commit is contained in:
parent
13ed02a959
commit
af3e1a4abc
21
generate.scm
21
generate.scm
|
@ -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)))))
|
||||||
|
|
Loading…
Reference in New Issue