Update schemas to match new identifier restrictions.
This commit is contained in:
parent
ef8e205eb2
commit
f2063997ec
|
@ -3,8 +3,8 @@
|
||||||
;;; SPDX-FileCopyrightText: Copyright © 2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
;;; SPDX-FileCopyrightText: Copyright © 2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
||||||
|
|
||||||
(provide (all-from-out "schemas/gen/dataspace.rkt")
|
(provide (all-from-out "schemas/gen/dataspace.rkt")
|
||||||
(all-from-out "schemas/gen/dataspace-patterns.rkt")
|
(all-from-out "schemas/gen/dataspacePatterns.rkt")
|
||||||
(all-from-out "schemas/gen/dataspace-patterns.meta.rkt")
|
(all-from-out "schemas/gen/dataspacePatterns.meta.rkt")
|
||||||
|
|
||||||
dataspace
|
dataspace
|
||||||
actor-system/dataspace)
|
actor-system/dataspace)
|
||||||
|
@ -24,8 +24,8 @@
|
||||||
(require "skeleton.rkt")
|
(require "skeleton.rkt")
|
||||||
|
|
||||||
(require "schemas/gen/dataspace.rkt")
|
(require "schemas/gen/dataspace.rkt")
|
||||||
(require "schemas/gen/dataspace-patterns.rkt")
|
(require "schemas/gen/dataspacePatterns.rkt")
|
||||||
(require "schemas/gen/dataspace-patterns.meta.rkt")
|
(require "schemas/gen/dataspacePatterns.meta.rkt")
|
||||||
|
|
||||||
(define-logger syndicate/dataspace)
|
(define-logger syndicate/dataspace)
|
||||||
|
|
||||||
|
|
|
@ -4,11 +4,11 @@
|
||||||
|
|
||||||
;; Generic Racket events.
|
;; Generic Racket events.
|
||||||
|
|
||||||
(provide (all-from-out syndicate/schemas/gen/racket-event))
|
(provide (all-from-out syndicate/schemas/gen/racketEvent))
|
||||||
|
|
||||||
(require syndicate/driver-support)
|
(require syndicate/driver-support)
|
||||||
(require syndicate/schemas/gen/racket-event)
|
(require syndicate/schemas/gen/racketEvent)
|
||||||
(require syndicate/schemas/gen/dataspace-patterns)
|
(require syndicate/schemas/gen/dataspacePatterns)
|
||||||
|
|
||||||
(define-logger syndicate/drivers/racket-event)
|
(define-logger syndicate/drivers/racket-event)
|
||||||
|
|
||||||
|
|
|
@ -13,7 +13,7 @@
|
||||||
(require syndicate/pattern)
|
(require syndicate/pattern)
|
||||||
(require syndicate/drivers/stream)
|
(require syndicate/drivers/stream)
|
||||||
(require syndicate/schemas/gen/tcp)
|
(require syndicate/schemas/gen/tcp)
|
||||||
(require syndicate/schemas/gen/dataspace-patterns)
|
(require syndicate/schemas/gen/dataspacePatterns)
|
||||||
|
|
||||||
(require (for-syntax racket/base))
|
(require (for-syntax racket/base))
|
||||||
|
|
||||||
|
|
|
@ -8,7 +8,7 @@
|
||||||
(require syndicate/driver-support)
|
(require syndicate/driver-support)
|
||||||
(require syndicate/engine)
|
(require syndicate/engine)
|
||||||
(require syndicate/schemas/gen/timer)
|
(require syndicate/schemas/gen/timer)
|
||||||
(require syndicate/schemas/gen/dataspace-patterns)
|
(require syndicate/schemas/gen/dataspacePatterns)
|
||||||
(require data/heap)
|
(require data/heap)
|
||||||
|
|
||||||
(define-logger syndicate/drivers/timer)
|
(define-logger syndicate/drivers/timer)
|
||||||
|
|
|
@ -22,7 +22,7 @@
|
||||||
|
|
||||||
!dump-registered-preserves-patterns!
|
!dump-registered-preserves-patterns!
|
||||||
|
|
||||||
(all-from-out "schemas/gen/dataspace-patterns.rkt"))
|
(all-from-out "schemas/gen/dataspacePatterns.rkt"))
|
||||||
|
|
||||||
(require (for-syntax racket/base))
|
(require (for-syntax racket/base))
|
||||||
(require (for-syntax racket/match))
|
(require (for-syntax racket/match))
|
||||||
|
@ -38,7 +38,7 @@
|
||||||
(require racket/list)
|
(require racket/list)
|
||||||
(require "pattern-expander.rkt")
|
(require "pattern-expander.rkt")
|
||||||
(require "smart-pattern.rkt")
|
(require "smart-pattern.rkt")
|
||||||
(require "schemas/gen/dataspace-patterns.rkt")
|
(require "schemas/gen/dataspacePatterns.rkt")
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
|
@ -27,8 +27,8 @@
|
||||||
paths) options)
|
paths) options)
|
||||||
(define ds-path
|
(define ds-path
|
||||||
(match (schema-compiler-plugin-mode)
|
(match (schema-compiler-plugin-mode)
|
||||||
['normal 'syndicate/schemas/gen/dataspace-patterns]
|
['normal 'syndicate/schemas/gen/dataspacePatterns]
|
||||||
['meta (lookup-module-path '(dataspace-patterns))]))
|
['meta (lookup-module-path '(dataspacePatterns))]))
|
||||||
(define meta?
|
(define meta?
|
||||||
(match (schema-compiler-plugin-mode)
|
(match (schema-compiler-plugin-mode)
|
||||||
['normal #f]
|
['normal #f]
|
||||||
|
@ -98,7 +98,7 @@
|
||||||
(p (in-list pats))]
|
(p (in-list pats))]
|
||||||
(define s (pat-pattern p))
|
(define s (pat-pattern p))
|
||||||
(if (equal? s discard) `() `(,i ,p))))))]
|
(if (equal? s discard) `() `(,i ,p))))))]
|
||||||
[(CompoundPattern-tuple* fixed-pats variable-pat)
|
[(CompoundPattern-tuplePrefix fixed-pats variable-pat)
|
||||||
`#,(raise-syntax-error ',name "Variable-length array cannot be used as a pattern")]
|
`#,(raise-syntax-error ',name "Variable-length array cannot be used as a pattern")]
|
||||||
[(CompoundPattern-dict entries)
|
[(CompoundPattern-dict entries)
|
||||||
`(:pat:make-dict-pattern
|
`(:pat:make-dict-pattern
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
version 1 .
|
version 1 .
|
||||||
embeddedType EntityRef.Ref .
|
embeddedType EntityRef.Ref .
|
||||||
|
|
||||||
Observe = <Observe @pattern dataspace-patterns.Pattern @observer #!any>.
|
Observe = <Observe @pattern dataspacePatterns.Pattern @observer #!any>.
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
version 1 .
|
version 1 .
|
||||||
embeddedType EntityRef.Ref .
|
embeddedType EntityRef.Ref .
|
||||||
|
|
||||||
RequireService = <require-service @service-name any>.
|
RequireService = <require-service @serviceName any>.
|
||||||
ServiceRunning = <service-running @service-name any>.
|
ServiceRunning = <service-running @serviceName any>.
|
||||||
|
|
|
@ -37,13 +37,13 @@
|
||||||
;; A `ConstructorSpec` specifies a record label with arity, or a list
|
;; A `ConstructorSpec` specifies a record label with arity, or a list
|
||||||
;; arity, or a dictionary.
|
;; arity, or a dictionary.
|
||||||
;;
|
;;
|
||||||
;; ConstructorSpec = (U CRec CArr CDict) ;; from dataspace-patterns.prs
|
;; ConstructorSpec = (U CRec CArr CDict) ;; from dataspacePatterns.prs
|
||||||
;;
|
;;
|
||||||
(struct skeleton-node (continuation [edges #:mutable]) #:transparent)
|
(struct skeleton-node (continuation [edges #:mutable]) #:transparent)
|
||||||
(struct skeleton-selector (pop-count key) #:transparent)
|
(struct skeleton-selector (pop-count key) #:transparent)
|
||||||
;;
|
;;
|
||||||
;; A `Pattern` is a pattern over assertions, following the schema of
|
;; A `Pattern` is a pattern over assertions, following the schema of
|
||||||
;; the same name in schemas/dataspace-patterns.prs. Instances of
|
;; the same name in schemas/dataspacePatterns.prs. Instances of
|
||||||
;; `Pattern` are usually produced by the `:pattern` macro and related
|
;; `Pattern` are usually produced by the `:pattern` macro and related
|
||||||
;; tooling.
|
;; tooling.
|
||||||
;;
|
;;
|
||||||
|
|
|
@ -13,7 +13,7 @@
|
||||||
|
|
||||||
(require racket/match)
|
(require racket/match)
|
||||||
(require preserves)
|
(require preserves)
|
||||||
(require syndicate/schemas/gen/dataspace-patterns)
|
(require syndicate/schemas/gen/dataspacePatterns)
|
||||||
|
|
||||||
(define (rec label arity pats)
|
(define (rec label arity pats)
|
||||||
(Pattern-DCompound (DCompound-rec (CRec label arity) pats)))
|
(Pattern-DCompound (DCompound-rec (CRec label arity) pats)))
|
||||||
|
|
Loading…
Reference in New Issue