2022-07-25 14:34:33 +00:00
|
|
|
module Parse = Reducer_Peggy_Parse
|
|
|
|
module ExpressionT = Reducer_Expression_T
|
|
|
|
module InternalExpressionValue = ReducerInterface_InternalExpressionValue
|
|
|
|
open Reducer_ErrorValue
|
|
|
|
|
|
|
|
type sourceArgumentType = string
|
|
|
|
type sourceType = string
|
|
|
|
type rawParseArgumentType = result<Parse.node, errorValue>
|
|
|
|
type rawParseType = option<rawParseArgumentType>
|
|
|
|
type expressionArgumentType = result<ExpressionT.t, errorValue>
|
|
|
|
type expressionType = option<expressionArgumentType>
|
|
|
|
type continuation = InternalExpressionValue.nameSpace
|
|
|
|
type continuationArgumentType = InternalExpressionValue.nameSpace
|
|
|
|
type continuationType = option<continuationArgumentType>
|
|
|
|
type continuationResultType = option<result<continuationArgumentType, errorValue>>
|
2022-08-19 15:13:31 +00:00
|
|
|
type bindingsArgumentType = InternalExpressionValue.nameSpace
|
|
|
|
type bindingsType = option<bindingsArgumentType>
|
2022-07-25 14:34:33 +00:00
|
|
|
type resultArgumentType = result<InternalExpressionValue.t, errorValue>
|
|
|
|
type resultType = option<resultArgumentType>
|
|
|
|
type continuesArgumentType = array<string>
|
|
|
|
type continuesType = array<string>
|
|
|
|
type includesArgumentType = string
|
|
|
|
type includesType = result<array<string>, errorValue>
|
|
|
|
|
|
|
|
type projectItem =
|
|
|
|
| ProjectItem({
|
|
|
|
source: sourceType,
|
|
|
|
rawParse: rawParseType,
|
|
|
|
expression: expressionType,
|
|
|
|
continuation: continuationArgumentType,
|
|
|
|
result: resultType,
|
|
|
|
continues: continuesType,
|
|
|
|
includes: includesType,
|
|
|
|
})
|
|
|
|
|
|
|
|
type t = projectItem
|