preserves/schema/schema.prs

@<EmacsMode "-*- preserves -*-">

; TODO: some kind of constants
; TODO: rename "version" to "schema-version" ?

version 1 .

Bundle = <bundle @modules Modules>.
Modules = { ModulePath: Schema ...:... }.

Schema = <schema {
  version: Version
  embeddedType: EmbeddedTypeName
  definitions: Definitions
}>.

; version 1 .
Version = 1 .

EmbeddedTypeName = Ref / #f.

Definitions = { symbol: Definition ...:... }.

Definition =
  ; Pattern / Pattern / ...
  / <or [@pattern NamedAlternative @patterns NamedAlternative ...]>

  ; Pattern & Pattern & ...
  / <and [@pattern NamedPattern @patterns NamedPattern ...]>

  ; Pattern
  / Pattern
.

Pattern = SimplePattern / CompoundPattern .

SimplePattern =
  ; any
  / =any

  ; special builtins: bool, float, double, int, string, bytes, symbol
  / <atom @atomKind AtomKind>

  ; matches an embedded value in the input: embedded
  / <embedded>

  ; =symbol, <<lit> any>, or plain non-symbol atom
  / <lit @value any>

  ; symbol, symbol.symbol, symbol.symbol.symbol, ...
  / Ref
.

CompoundPattern =
  ; <label a b c> ----> <rec <lit label> <tuple [<ref a> <ref b> <ref c>]>>
  ; except for record labels
  ; <<rec> x y> ---> <rec <ref x> <ref y>>
  / <rec @label NamedPattern @fields NamedPattern>

  ; [a b c] ----> <tuple [<ref a> <ref b> <ref c>]>
  / <tuple [@patterns NamedPattern ...]>

  ; [a b c ...] ----> <tuple* [<ref a> <ref b>] <ref c>]>
  / <tuple* [@fixed NamedPattern ...] @variable NamedSimplePattern>

  ; #{p} ----> <setof <ref p>>
  / <setof @pattern SimplePattern>

  ; {k: v, ...:...} ----> <dictof <ref k> <ref v>>
  / <dictof @key SimplePattern @value SimplePattern>

  ; {a: b, c: d} ----> <dict {a: <ref b>, c: <ref d>}>
  / <dict @entries DictionaryEntries>
.

DictionaryEntries = { any: NamedSimplePattern ...:... }.

AtomKind = =Boolean / =Float / =Double / =SignedInteger / =String / =ByteString / =Symbol .

NamedAlternative = [@variantLabel string @pattern Pattern].

NamedSimplePattern = @named NamedSimplePattern_ / @anonymous SimplePattern .
NamedPattern = @named NamedSimplePattern_ / @anonymous Pattern .

NamedSimplePattern_ = <named @name symbol @pattern SimplePattern>.

Ref = <ref @module ModulePath @name symbol>.
ModulePath = [symbol ...].