Add "Role" column for #! syntax

This commit is contained in:
Lassi Kortela 2020-08-16 20:01:39 +03:00
parent 5c7214bae2
commit 8ea28a5590
2 changed files with 18 additions and 2 deletions

View File

@ -218,8 +218,13 @@
"hash-bang-syntax" "hash-bang-syntax"
'(p) '(p)
(tabulate (tabulate
'("ID" "Description") '("ID" "Role" "Description")
(map the-usual (sort-by-id (group-file 'id "hash-bang-syntax.scm")))))) (map (lambda (entry)
(cons (assoc? 'class entry)
`((code ,(symbol->string (assoc1 'id entry)))
,(symbol->string (assoc1 'role entry))
,(assoc1 'description entry))))
(sort-by-id (group-file 'id "hash-bang-syntax.scm"))))))
(define (filename-extension) (define (filename-extension)
(registry (registry

View File

@ -1,32 +1,43 @@
(id bwp) (id bwp)
(role object)
(description "broken-weak-pair object [Chez Scheme]") (description "broken-weak-pair object [Chez Scheme]")
(id chezscheme) (id chezscheme)
(role directive)
(description "change to Chez Scheme read syntax") (description "change to Chez Scheme read syntax")
(id eof) (id eof)
(role object)
(description "end-of-file object") (description "end-of-file object")
(id fold-case) (id fold-case)
(role directive)
(description "change to case insensitive identifiers [R7RS]") (description "change to case insensitive identifiers [R7RS]")
(id key) (id key)
(role keyword)
(description "start keyword arguments in lambda list [DSSSL]") (description "start keyword arguments in lambda list [DSSSL]")
(id no-fold-case) (id no-fold-case)
(role directive)
(description "change to case sensitive identifiers [R7RS]") (description "change to case sensitive identifiers [R7RS]")
(id optional) (id optional)
(role keyword)
(description "start optional arguments in lambda list [DSSSL]") (description "start optional arguments in lambda list [DSSSL]")
(id r6rs) (id r6rs)
(role directive)
(description "change to R6RS read syntax [R6RS]") (description "change to R6RS read syntax [R6RS]")
(id r7rs) (id r7rs)
(role directive)
(description "change to R7RS read syntax") (description "change to R7RS read syntax")
(id rest) (id rest)
(role keyword)
(description "start rest argument in lambda list [DSSSL]") (description "start rest argument in lambda list [DSSSL]")
(id void) (id void)
(role object)
(description "void object") (description "void object")