schema: schema-out

telebot/private/schema.rkt

@@ -5,10 +5,11 @@
                      syntax/parse/pre
                      racket/syntax
                      racket/string
+                     racket/provide-transform
                      syntax/parse/experimental/template
                      threading))
 
-(provide define-schema
+(provide define-schema schema-out
          integer? string? boolean? true? listof
          optional
          define-api ->
@@ -230,6 +231,21 @@
            set-field-value ...
            jsexpr))]))
 
+(define-syntax schema-out
+  (make-provide-transformer
+   (lambda (stx mode)
+     (syntax-parse stx
+       [(_ id:schema-id)
+        #:do [(define info (attribute id.info))
+              (define pred (schema-info-pred info))]
+        (define export-ids
+          (list #'id
+                pred
+                (format-id #'id "schema:id" #'id)))
+        (for/list ([eid (in-list export-ids)])
+          (make-export eid (syntax-e eid) 0 #f eid))])))
+)
+
 (define-syntax (ref stx)
   (syntax-parse stx
     #:literals (:)