23 lines
790 B
Racket
23 lines
790 B
Racket
#lang racket/base
|
|
|
|
(provide pre-installer)
|
|
|
|
(require racket/runtime-path)
|
|
(require preserves-schema/bin/preserves-schema-rkt)
|
|
(require (only-in racket/file delete-directory/files))
|
|
|
|
(define (pre-installer _collects-path syndicate-path)
|
|
(define output-directory (build-path syndicate-path "schemas/gen"))
|
|
(delete-directory/files output-directory #:must-exist? #f)
|
|
(batch-compile #:inputs (list (build-path syndicate-path "schemas/**.prs"))
|
|
#:additional-modules (hash '(Actor) 'syndicate/actor)
|
|
#:output-directory output-directory))
|
|
|
|
(define-runtime-path syndicate-path "..")
|
|
(define (regenerate!)
|
|
(void (pre-installer 'not-bothering-to-figure-this-out-since-we-do-not-need-it
|
|
syndicate-path)))
|
|
|
|
(module+ main
|
|
(regenerate!))
|