syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Move gen-schema.rkt to gen/schema.rkt

This commit is contained in:
Tony Garnock-Jones 2021-05-22 15:52:12 +02:00
parent 9e6743abdc
commit 1d6956fa55
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
implementations/racket/preserves/preserves-schema/gen-schema.rkt → implementations/racket/preserves/preserves-schema/gen/schema.rkt
View File

4
implementations/racket/preserves/preserves-schema/main.rkt
View File

@ -11,7 +11,7 @@
(require "type.rkt") (require "type.rkt")
(require "parser.rkt") (require "parser.rkt")
(require "unparser.rkt") (require "unparser.rkt")
(require "gen-schema.rkt") (require "gen/schema.rkt")
(define (struct-stx name-pieces field-names) (define (struct-stx name-pieces field-names)
`(struct ,(string->symbol (string-join (map ~a name-pieces) "-")) ,field-names #:prefab)) `(struct ,(string->symbol (string-join (map ~a name-pieces) "-")) ,field-names #:prefab))
@ -68,6 +68,6 @@
(parse-Schema (parse-Schema
(with-input-from-file "../../../../schema/schema.bin" read-preserve)))) (with-input-from-file "../../../../schema/schema.bin" read-preserve))))
(if #t (if #t
(with-output-to-file "gen-schema.rkt" #:exists 'replace (with-output-to-file "gen/schema.rkt" #:exists 'replace
(lambda () (pretty-write metaschema-module-source))) (lambda () (pretty-write metaschema-module-source)))
(pretty-write metaschema-module-source))) (pretty-write metaschema-module-source)))

2
implementations/racket/preserves/preserves-schema/parser.rkt
View File

@ -7,7 +7,7 @@
(require (only-in racket/syntax format-symbol)) (require (only-in racket/syntax format-symbol))
(require "type.rkt") (require "type.rkt")
(require "gen-schema.rkt") (require "gen/schema.rkt")
(define (definition-parser name def) (define (definition-parser name def)
(define ty (definition-ty def)) (define ty (definition-ty def))

2
implementations/racket/preserves/preserves-schema/type.rkt
View File

@ -17,7 +17,7 @@
(require racket/match) (require racket/match)
(require (only-in racket/syntax format-symbol)) (require (only-in racket/syntax format-symbol))
(require "gen-schema.rkt") (require "gen/schema.rkt")
(struct ty-union (variants) #:transparent) (struct ty-union (variants) #:transparent)
(struct ty-unit () #:transparent) (struct ty-unit () #:transparent)

2
implementations/racket/preserves/preserves-schema/unparser.rkt
View File

@ -8,7 +8,7 @@
(require (only-in racket/list append-map)) (require (only-in racket/list append-map))
(require "type.rkt") (require "type.rkt")
(require "gen-schema.rkt") (require "gen/schema.rkt")
(define (simple-pattern? p) (define (simple-pattern? p)
(match p (match p