54 lines
1.6 KiB
Plaintext
54 lines
1.6 KiB
Plaintext
|
type environment = GenericDist.env
|
||
|
|
|
||
|
|
@genType.opaque
|
||
|
|
type rec value =
|
||
|
|
| IEvArray(arrayValue)
|
||
|
|
| IEvArrayString(array<string>)
|
||
|
|
| IEvBool(bool)
|
||
|
|
// | IEvCall(string) // External function call
|
||
|
|
| IEvDate(Js.Date.t)
|
||
|
|
| IEvDeclaration(lambdaDeclaration)
|
||
|
|
| IEvDistribution(DistributionTypes.genericDist)
|
||
|
|
| IEvLambda(lambdaValue)
|
||
|
|
| IEvBindings(nameSpace)
|
||
|
|
| IEvNumber(float)
|
||
|
|
| IEvRecord(map)
|
||
|
|
| IEvString(string)
|
||
|
|
// | IEvSymbol(string)
|
||
|
|
| IEvTimeDuration(float)
|
||
|
|
| IEvType(map)
|
||
|
|
| IEvTypeIdentifier(string)
|
||
|
|
| IEvVoid
|
||
|
|
@genType.opaque and arrayValue = array<value>
|
||
|
|
@genType.opaque and map = Belt.Map.String.t<value>
|
||
|
|
@genType.opaque and nameSpace = NameSpace(Belt.MutableMap.String.t<value>, option<nameSpace>)
|
||
|
|
@genType.opaque
|
||
|
|
and lambdaValue =
|
||
|
|
| LNoFFI({
|
||
|
|
parameters: array<string>,
|
||
|
|
context: nameSpace,
|
||
|
|
body: (array<value>, environment, reducerFn) => value,
|
||
|
|
})
|
||
|
|
| LFFI({
|
||
|
|
body: (array<value>, environment, reducerFn) => value,
|
||
|
|
})
|
||
|
|
@genType.opaque and lambdaDeclaration = Declaration.declaration<lambdaValue>
|
||
|
|
and expression =
|
||
|
|
| EBlock(array<expression>)
|
||
|
|
| EProgram(array<expression>) // programs are similar to blocks, but don't create an inner scope. there can be only one program at the top level of the expression.
|
||
|
|
| EArray(array<expression>)
|
||
|
|
| ERecord(Belt.Map.String.t<expression>)
|
||
|
|
| ESymbol(string)
|
||
|
|
| ETernary(expression, expression, expression)
|
||
|
|
| EAssign(string, expression)
|
||
|
|
| ECall(expression, array<expression>)
|
||
|
|
| ELambda(array<string>, expression)
|
||
|
|
| EValue(value)
|
||
|
|
|
||
|
|
and context = {
|
||
|
|
bindings: nameSpace,
|
||
|
|
environment: environment,
|
||
|
|
}
|
||
|
|
|
||
|
|
and reducerFn = (expression, context) => value
|