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

Refactor

This commit is contained in:
Lassi Kortela 2020-08-05 12:57:31 +03:00
parent 67f2c64888
commit 7299c32b1e
1 changed files with 19 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
generate.scm
View File

@ -77,6 +77,11 @@
`(tr ,@tds)))) `(tr ,@tds))))
rows))) rows)))
(define (the-usual entry)
(cons (assoc? 'class entry)
`((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry))))
;; ;;
(define (scheme-id) (define (scheme-id)
@ -86,31 +91,20 @@
,(tabulate ,(tabulate
'("ID" "Name" "Contact") '("ID" "Name" "Contact")
(map (lambda (entry) (map (lambda (entry)
(cons #f (append (the-usual entry) (list (assoc1 'contact entry))))
`((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry)
,(assoc1 'contact entry))))
(sort-by-id (group-file 'id "scheme-id.scm")))))) (sort-by-id (group-file 'id "scheme-id.scm"))))))
(define (operating-system) (define (operating-system)
`((h2 "Operating systems") `((h2 "Operating systems")
,(tabulate ,(tabulate
'("ID" "Description") '("ID" "Description")
(map (lambda (entry) (map the-usual (sort-by-id (group-file 'id "operating-system.scm"))))))
(cons #f
`((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry))))
(sort-by-id (group-file 'id "operating-system.scm"))))))
(define (machine) (define (machine)
`((h2 "Machines") `((h2 "Machines")
,(tabulate ,(tabulate
'("ID" "Description") '("ID" "Description")
(map (lambda (entry) (map the-usual (sort-by-id (group-file 'id "machine.scm"))))))
(cons #f
`((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry))))
(sort-by-id (group-file 'id "machine.scm"))))))
(define (splice-implementations) (define (splice-implementations)
(classify "red" (group-file 'id "scheme-id.scm"))) (classify "red" (group-file 'id "scheme-id.scm")))
@ -125,47 +119,33 @@
`((h2 "Feature identifiers") `((h2 "Feature identifiers")
,(tabulate ,(tabulate
'("ID" "Description") '("ID" "Description")
(map (lambda (entry) (map the-usual (sort-by-id (append (group-file 'id "features.scm")
(cons (assoc? 'class entry) (splice-implementations)
`((code ,(symbol->string (assoc1 'id entry))) (splice-operating-systems)
,(assoc1 'description entry)))) (splice-machines)))))))
(sort-by-id
(append (group-file 'id "features.scm")
(splice-implementations)
(splice-operating-systems)
(splice-machines)))))))
(define (library-name) (define (library-name)
`((h2 "Library name prefixes") `((h2 "Library name prefixes")
,(tabulate ,(tabulate
'("ID" "Description") '("ID" "Description")
(map (lambda (entry) (map the-usual (sort-by-id
(cons (assoc? 'class entry) (append (group-file 'id "library-name.scm")
`((code ,(symbol->string (assoc1 'id entry))) (splice-implementations)))))))
,(assoc1 'description entry))))
(sort-by-id
(append (group-file 'id "library-name.scm")
(splice-implementations)))))))
(define (reader-directive) (define (reader-directive)
`((h2 "Reader directives") `((h2 "Reader directives")
,(tabulate ,(tabulate
'("ID" "Description" "Prefixes") '("ID" "Description" "Prefixes")
(map (lambda (entry) (map (lambda (entry)
(cons (assoc? 'class entry) (append (the-usual entry)
`((code ,(symbol->string (assoc1 'id entry))) (list `(code ,(assoc1 'prefixes entry)))))
,(assoc1 'description entry)
(code ,(assoc1 'prefixes entry)))))
(sort-by-id (group-file 'id "reader-directive.scm")))))) (sort-by-id (group-file 'id "reader-directive.scm"))))))
(define (foreign-status-set) (define (foreign-status-set)
`((h2 "Foreign status sets") `((h2 "Foreign status sets")
,(tabulate ,(tabulate
'("ID" "Description") '("ID" "Description")
(map (lambda (entry) (map the-usual
(cons #f
`((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry))))
(sort-by-id (group-file 'id "foreign-status-set.scm")))))) (sort-by-id (group-file 'id "foreign-status-set.scm"))))))
(define (foreign-status-property) (define (foreign-status-property)
@ -173,10 +153,7 @@
,(tabulate ,(tabulate
'("ID" "Description" "Type") '("ID" "Description" "Type")
(map (lambda (entry) (map (lambda (entry)
(cons #f (append (the-usual entry) (list (assoc1 'type entry))))
`((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry)
,(assoc1 'type entry))))
(group-file 'id "foreign-status-property.scm"))))) (group-file 'id "foreign-status-property.scm")))))
(define (display-page) (define (display-page)