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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
----
-- `alive` public API.
--
-- @module init
if _VERSION == 'Lua 5.1'
export assert
assert = (a, msg, ...) ->
if not a
error msg
a, msg, ...
cycle = require 'alv.cycle'
version = require 'alv.version'
import Logger from require 'alv.logger'
import ValueStream, EventStream, IOStream from require 'alv.stream'
import Result from require 'alv.result'
import Scope from require 'alv.scope'
import Error from require 'alv.error'
import Registry, SimpleRegistry from require 'alv.registry'
import Tag from require 'alv.tag'
import Cell, RootCell from require 'alv.cell'
import program from require 'alv.parsing'
cycle\resolve!
globals = require 'alv.builtin'
cycle\resolve!
import Copilot from require 'alv.copilot'
--- exports
-- @table exports
-- @tfield version version
-- @tfield ValueStream ValueStream
-- @tfield EventStream EventStream
-- @tfield IOStream IOStream
-- @tfield Result Result
-- @tfield Cell Cell
-- @tfield RootCell RootCell
-- @tfield Scope Scope
-- @tfield Error Error
-- @tfield Registry Registry
-- @tfield Tag Tag
-- @tfield Copilot Copilot
-- @tfield Logger Logger
-- @tfield Scope globals global definitons
-- @tfield parse function to turn a `string` into a root `Cell`
{
:version
:ValueStream, :EventStream, :IOStream
:Cell, :RootCell
:Result, :Scope, :Error
:Registry, :SimpleRegistry, :Tag
:globals
:Copilot, :Logger
parse: (str) ->
assert (program\match str), Error 'syntax', "failed to parse"
eval: (str, inject) ->
scope = Scope globals
scope\use inject if inject
ast = assert (program\match str), "failed to parse"
result = ast\eval scope
result\const!
}
|
