Update schemas to match new identifier restrictions.

syndicate/dataspace.rkt

@@ -3,8 +3,8 @@
 ;;; SPDX-FileCopyrightText: Copyright © 2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
 
 (provide (all-from-out "schemas/gen/dataspace.rkt")
-         (all-from-out "schemas/gen/dataspace-patterns.rkt")
-         (all-from-out "schemas/gen/dataspace-patterns.meta.rkt")
+         (all-from-out "schemas/gen/dataspacePatterns.rkt")
+         (all-from-out "schemas/gen/dataspacePatterns.meta.rkt")
 
          dataspace
          actor-system/dataspace)
@@ -24,8 +24,8 @@
 (require "skeleton.rkt")
 
 (require "schemas/gen/dataspace.rkt")
-(require "schemas/gen/dataspace-patterns.rkt")
-(require "schemas/gen/dataspace-patterns.meta.rkt")
+(require "schemas/gen/dataspacePatterns.rkt")
+(require "schemas/gen/dataspacePatterns.meta.rkt")
 
 (define-logger syndicate/dataspace)
 

syndicate/drivers/racket-event.rkt

@@ -4,11 +4,11 @@
 
 ;; 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/schemas/gen/racket-event)
-(require syndicate/schemas/gen/dataspace-patterns)
+(require syndicate/schemas/gen/racketEvent)
+(require syndicate/schemas/gen/dataspacePatterns)
 
 (define-logger syndicate/drivers/racket-event)
 

syndicate/drivers/tcp.rkt

@@ -13,7 +13,7 @@
 (require syndicate/pattern)
 (require syndicate/drivers/stream)
 (require syndicate/schemas/gen/tcp)
-(require syndicate/schemas/gen/dataspace-patterns)
+(require syndicate/schemas/gen/dataspacePatterns)
 
 (require (for-syntax racket/base))
 

syndicate/drivers/timer.rkt

@@ -8,7 +8,7 @@
 (require syndicate/driver-support)
 (require syndicate/engine)
 (require syndicate/schemas/gen/timer)
-(require syndicate/schemas/gen/dataspace-patterns)
+(require syndicate/schemas/gen/dataspacePatterns)
 (require data/heap)
 
 (define-logger syndicate/drivers/timer)

syndicate/pattern.rkt

@@ -22,7 +22,7 @@
 
          !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/match))
@@ -38,7 +38,7 @@
 (require racket/list)
 (require "pattern-expander.rkt")
 (require "smart-pattern.rkt")
-(require "schemas/gen/dataspace-patterns.rkt")
+(require "schemas/gen/dataspacePatterns.rkt")
 
 ;;---------------------------------------------------------------------------
 

syndicate/schema-compiler.rkt

@@ -27,8 +27,8 @@
                                          paths) options)
   (define ds-path
     (match (schema-compiler-plugin-mode)
-      ['normal 'syndicate/schemas/gen/dataspace-patterns]
-      ['meta (lookup-module-path '(dataspace-patterns))]))
+      ['normal 'syndicate/schemas/gen/dataspacePatterns]
+      ['meta (lookup-module-path '(dataspacePatterns))]))
   (define meta?
     (match (schema-compiler-plugin-mode)
       ['normal #f]
@@ -98,7 +98,7 @@
                                            (p (in-list pats))]
                                   (define s (pat-pattern 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")]
         [(CompoundPattern-dict entries)
          `(:pat:make-dict-pattern

syndicate/schemas/dataspace.prs

@@ -1,4 +1,4 @@
 version 1 .
 embeddedType EntityRef.Ref .
 
-Observe = <Observe @pattern dataspace-patterns.Pattern @observer #!any>.
+Observe = <Observe @pattern dataspacePatterns.Pattern @observer #!any>.

syndicate/schemas/service.prs

@@ -1,5 +1,5 @@
 version 1 .
 embeddedType EntityRef.Ref .
 
-RequireService = <require-service @service-name any>.
-ServiceRunning = <service-running @service-name any>.
+RequireService = <require-service @serviceName any>.
+ServiceRunning = <service-running @serviceName any>.

syndicate/skeleton.rkt

@@ -37,13 +37,13 @@
 ;; A `ConstructorSpec` specifies a record label with arity, or a list
 ;; 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-selector (pop-count key) #:transparent)
 ;;
 ;; 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
 ;; tooling.
 ;;

syndicate/smart-pattern.rkt

@@ -13,7 +13,7 @@
 
 (require racket/match)
 (require preserves)
-(require syndicate/schemas/gen/dataspace-patterns)
+(require syndicate/schemas/gen/dataspacePatterns)
 
 (define (rec label arity pats)
   (Pattern-DCompound (DCompound-rec (CRec label arity) pats)))