blob: a878e1615165eda7f3474e5bc79677a7805444f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(.module:
lux
(lux (data (format [binary #+ Binary]))))
(def: definition
(Binary Definition)
($_ binary.seq binary.type binary.code binary.any))
(def: alias
(Binary [Text Text])
(binary.seq binary.text binary.text))
## TODO: Remove #module-hash, #imports & #module-state ASAP.
## TODO: Not just from this parser, but from the lux.Module type.
(def: #export module
(Binary Module)
($_ binary.seq
## #module-hash
(binary.ignore +0)
## #module-aliases
(binary.list ..alias)
## #definitions
(binary.list (binary.seq binary.text ..definition))
## #imports
(binary.list binary.text)
## #tags
(binary.ignore (list))
## #types
(binary.ignore (list))
## #module-annotations
(binary.maybe binary.code)
## #module-state
(binary.ignore #.Cached)))
|
