mon-entreprise/source/engine/evaluateRule.ts

121 lines
3.1 KiB
TypeScript

import { bonus, evaluateNode, mergeMissing } from 'Engine/evaluation'
import { ParsedRule } from 'Engine/types'
import { map, mergeAll, pick, pipe } from 'ramda'
import { typeWarning } from './error'
import { convertNodeToUnit } from './nodeUnits'
export const evaluateApplicability = (
cache,
situationGate,
parsedRules,
node: ParsedRule
) => {
let evaluatedAttributes = pipe(
pick(['non applicable si', 'applicable si', 'rendu non applicable']) as (
x: any
) => any,
map(value => evaluateNode(cache, situationGate, parsedRules, value))
)(node) as any,
{
'non applicable si': notApplicable,
'applicable si': applicable,
'rendu non applicable': disabled
} = evaluatedAttributes,
parentDependencies = node.parentDependencies.map(parent =>
evaluateNode(cache, situationGate, parsedRules, parent)
),
isApplicable =
parentDependencies.some(parent => parent?.nodeValue === false) ||
notApplicable?.nodeValue === true ||
applicable?.nodeValue === false ||
disabled?.nodeValue === true
? false
: [notApplicable, applicable, ...parentDependencies].some(
n => n?.nodeValue === null
)
? null
: !notApplicable?.nodeValue &&
(applicable?.nodeValue == undefined || !!applicable?.nodeValue),
missingVariables =
isApplicable === false
? {}
: mergeAll([
...parentDependencies.map(parent => parent.missingVariables),
notApplicable?.missingVariables || {},
disabled?.missingVariables || {},
applicable?.missingVariables || {}
])
return {
...node,
isApplicable,
nodeValue: isApplicable,
missingVariables,
parentDependencies,
...evaluatedAttributes
}
}
export default (cache, situationGate, parsedRules, node) => {
cache._meta.contextRule.push(node.dottedName)
const applicabilityEvaluation = evaluateApplicability(
cache,
situationGate,
parsedRules,
node
)
const {
missingVariables: condMissing,
nodeValue: isApplicable
} = applicabilityEvaluation
const evaluateFormula = () =>
node.formule
? evaluateNode(cache, situationGate, parsedRules, node.formule)
: {}
// evaluate the formula lazily, only if the applicability is known and true
let evaluatedFormula = isApplicable
? evaluateFormula()
: isApplicable === false
? {
...node.formule,
missingVariables: {},
nodeValue: 0
}
: {
...node.formule,
missingVariables: {},
nodeValue: null
}
if (node.unit) {
try {
evaluatedFormula = convertNodeToUnit(node.unit, evaluatedFormula)
} catch (e) {
typeWarning(
node.dottedName,
`L'unité de la règle est incompatible avec celle de sa formule`,
e
)
}
}
const missingVariables = mergeMissing(
bonus(condMissing, !!Object.keys(condMissing).length),
evaluatedFormula.missingVariables
)
// console.log(node.dottedName, evaluatedFormula.unit)
let temporalValue = evaluatedFormula.temporalValue
cache._meta.contextRule.pop()
return {
...node,
...applicabilityEvaluation,
...(node.formule && { formule: evaluatedFormula }),
nodeValue: evaluatedFormula.nodeValue,
unit: node.unit ?? evaluatedFormula.unit,
temporalValue,
isApplicable,
missingVariables
}
}