fhirpath-ts 0.0.0-bootstrap.0

package/dist/functions/iteration.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"iteration.js","sourceRoot":"","sources":["../../src/functions/iteration.ts"],"names":[],"mappings":"AAAA,OAAO,EAA0B,SAAS,EAAE,MAAM,sBAAsB,CAAA;AAMxE,2EAA2E;AAC3E,MAAM,UAAU,OAAO,CACrB,OAA0B,EAC1B,KAAmB,EACnB,UAAmB,EACnB,YAA2B,EAC3B,IAAqE;IAErE,KAAK,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE;QAC5B,MAAM,MAAM,GAAG,SAAS,CAAC,OAAO,EAAE,EAAE,SAAS,EAAE,CAAC,IAAI,CAAC,EAAE,KAAK,EAAE,EAAE,YAAY,CAAC,EAAE,CAC7E,YAAY,CAAC,UAAU,EAAE,YAAY,EAAE,CAAC,IAAI,CAAC,CAAC,CAC/C,CAAA;QACD,IAAI,CAAC,IAAI,EAAE,MAAM,EAAE,KAAK,CAAC,CAAA;IAC3B,CAAC,CAAC,CAAA;AACJ,CAAC"}

package/dist/functions/math.d.ts

@@ -0,0 +1,2 @@
+export {};
+//# sourceMappingURL=math.d.ts.map

package/dist/functions/math.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"math.d.ts","sourceRoot":"","sources":["../../src/functions/math.ts"],"names":[],"mappings":""}

package/dist/functions/math.js

@@ -0,0 +1,152 @@
+import { FhirPathTypeError } from "../errors.js";
+import { singleton } from "../values/collection.js";
+import { Decimal } from "../values/decimal.js";
+import { asNumeric, wrapNumeric } from "../values/numeric.js";
+import { SYSTEM_DECIMAL, SYSTEM_INTEGER, SYSTEM_QUANTITY, } from "../values/typed-value.js";
+import { argAt, registerFunction } from "./registry.js";
+function numericInput(name, input) {
+    const item = singleton(input);
+    if (item === undefined) {
+        return undefined;
+    }
+    const numeric = asNumeric(item);
+    if (!numeric) {
+        throw new FhirPathTypeError(`${name}() is not defined for ${item.type}`);
+    }
+    return { item, value: numeric.value };
+}
+registerFunction('abs', {
+    minArity: 0,
+    maxArity: 0,
+    evaluate: (_context, input) => {
+        const item = singleton(input);
+        if (item === undefined) {
+            return [];
+        }
+        if (item.type === SYSTEM_QUANTITY) {
+            const quantity = item.value;
+            return [{ type: SYSTEM_QUANTITY, value: { ...quantity, value: quantity.value.abs() } }];
+        }
+        const numeric = asNumeric(item);
+        if (!numeric) {
+            throw new FhirPathTypeError(`abs() is not defined for ${item.type}`);
+        }
+        return [wrapNumeric(numeric.value.abs(), numeric.kind)];
+    },
+});
+registerFunction('ceiling', {
+    minArity: 0,
+    maxArity: 0,
+    evaluate: (_context, input) => {
+        const numeric = numericInput('ceiling', input);
+        if (!numeric) {
+            return [];
+        }
+        return [wrapNumeric(numeric.value.ceiling(), 'Integer')];
+    },
+});
+registerFunction('floor', {
+    minArity: 0,
+    maxArity: 0,
+    evaluate: (_context, input) => {
+        const numeric = numericInput('floor', input);
+        if (!numeric) {
+            return [];
+        }
+        return [wrapNumeric(numeric.value.floor(), 'Integer')];
+    },
+});
+registerFunction('truncate', {
+    minArity: 0,
+    maxArity: 0,
+    evaluate: (_context, input) => {
+        const numeric = numericInput('truncate', input);
+        if (!numeric) {
+            return [];
+        }
+        return [wrapNumeric(numeric.value.truncate(), 'Integer')];
+    },
+});
+registerFunction('round', {
+    minArity: 0,
+    maxArity: 1,
+    evaluate: (context, input, args, evaluateNode) => {
+        const numeric = numericInput('round', input);
+        if (!numeric) {
+            return [];
+        }
+        let precision = 0;
+        if (args.length === 1) {
+            const argument = singleton(evaluateNode(argAt(args, 0), context, input), SYSTEM_INTEGER);
+            if (argument === undefined || typeof argument.value !== 'number' || argument.value < 0) {
+                throw new FhirPathTypeError('round() expects a non-negative integer precision');
+            }
+            precision = argument.value;
+        }
+        return [{ type: SYSTEM_DECIMAL, value: numeric.value.round(precision) }];
+    },
+});
+/** Number-backed transcendental; empty when the JS result is not finite (domain errors). */
+function transcendental(name, compute) {
+    registerFunction(name, {
+        minArity: 0,
+        maxArity: 0,
+        evaluate: (_context, input) => {
+            const numeric = numericInput(name, input);
+            if (!numeric) {
+                return [];
+            }
+            const result = compute(numeric.value.toNumber());
+            const decimal = Decimal.fromNumber(result);
+            return decimal === undefined ? [] : [{ type: SYSTEM_DECIMAL, value: decimal }];
+        },
+    });
+}
+transcendental('exp', Math.exp);
+transcendental('ln', Math.log);
+transcendental('sqrt', Math.sqrt);
+registerFunction('log', {
+    minArity: 1,
+    maxArity: 1,
+    evaluate: (context, input, args, evaluateNode) => {
+        const numeric = numericInput('log', input);
+        if (!numeric) {
+            return [];
+        }
+        const baseInput = singleton(evaluateNode(argAt(args, 0), context, input));
+        const base = baseInput === undefined ? undefined : asNumeric(baseInput);
+        if (!base) {
+            return [];
+        }
+        const result = Math.log(numeric.value.toNumber()) / Math.log(base.value.toNumber());
+        const decimal = Decimal.fromNumber(result);
+        // NaN and infinities (log of a non-positive value, base 1) become empty.
+        return decimal === undefined ? [] : [{ type: SYSTEM_DECIMAL, value: decimal }];
+    },
+});
+registerFunction('power', {
+    minArity: 1,
+    maxArity: 1,
+    evaluate: (context, input, args, evaluateNode) => {
+        const numeric = numericInput('power', input);
+        if (!numeric) {
+            return [];
+        }
+        const exponentInput = singleton(evaluateNode(argAt(args, 0), context, input));
+        const exponent = exponentInput === undefined ? undefined : asNumeric(exponentInput);
+        if (!exponent) {
+            return [];
+        }
+        const result = numeric.value.toNumber() ** exponent.value.toNumber();
+        const decimal = Decimal.fromNumber(result);
+        if (decimal === undefined) {
+            return [];
+        }
+        // Integer ^ Integer stays an Integer when the result is whole (spec §5.7.7).
+        if (numeric.item.type === SYSTEM_INTEGER && exponentInput?.type === SYSTEM_INTEGER && decimal.isInteger()) {
+            return [wrapNumeric(decimal, 'Integer')];
+        }
+        return [{ type: SYSTEM_DECIMAL, value: decimal }];
+    },
+});
+//# sourceMappingURL=math.js.map

package/dist/functions/math.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"math.js","sourceRoot":"","sources":["../../src/functions/math.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,iBAAiB,EAAE,MAAM,cAAc,CAAA;AAChD,OAAO,EAAE,SAAS,EAAE,MAAM,yBAAyB,CAAA;AACnD,OAAO,EAAE,OAAO,EAAE,MAAM,sBAAsB,CAAA;AAC9C,OAAO,EAAE,SAAS,EAAE,WAAW,EAAE,MAAM,sBAAsB,CAAA;AAC7D,OAAO,EAEL,cAAc,EACd,cAAc,EACd,eAAe,GAEhB,MAAM,0BAA0B,CAAA;AACjC,OAAO,EAAE,KAAK,EAAE,gBAAgB,EAAE,MAAM,eAAe,CAAA;AAEvD,SAAS,YAAY,CAAC,IAAY,EAAE,KAAmB;IACrD,MAAM,IAAI,GAAG,SAAS,CAAC,KAAK,CAAC,CAAA;IAC7B,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;QACvB,OAAO,SAAS,CAAA;IAClB,CAAC;IACD,MAAM,OAAO,GAAG,SAAS,CAAC,IAAI,CAAC,CAAA;IAC/B,IAAI,CAAC,OAAO,EAAE,CAAC;QACb,MAAM,IAAI,iBAAiB,CAAC,GAAG,IAAI,yBAAyB,IAAI,CAAC,IAAI,EAAE,CAAC,CAAA;IAC1E,CAAC;IACD,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,OAAO,CAAC,KAAK,EAAE,CAAA;AACvC,CAAC;AAED,gBAAgB,CAAC,KAAK,EAAE;IACtB,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,QAAQ,EAAE,KAAK,EAAE,EAAE;QAC5B,MAAM,IAAI,GAAG,SAAS,CAAC,KAAK,CAAC,CAAA;QAC7B,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;YACvB,OAAO,EAAE,CAAA;QACX,CAAC;QACD,IAAI,IAAI,CAAC,IAAI,KAAK,eAAe,EAAE,CAAC;YAClC,MAAM,QAAQ,GAAG,IAAI,CAAC,KAAsB,CAAA;YAC5C,OAAO,CAAC,EAAE,IAAI,EAAE,eAAe,EAAE,KAAK,EAAE,EAAE,GAAG,QAAQ,EAAE,KAAK,EAAE,QAAQ,CAAC,KAAK,CAAC,GAAG,EAAE,EAAE,EAAE,CAAC,CAAA;QACzF,CAAC;QACD,MAAM,OAAO,GAAG,SAAS,CAAC,IAAI,CAAC,CAAA;QAC/B,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,MAAM,IAAI,iBAAiB,CAAC,4BAA4B,IAAI,CAAC,IAAI,EAAE,CAAC,CAAA;QACtE,CAAC;QACD,OAAO,CAAC,WAAW,CAAC,OAAO,CAAC,KAAK,CAAC,GAAG,EAAE,EAAE,OAAO,CAAC,IAAI,CAAC,CAAC,CAAA;IACzD,CAAC;CACF,CAAC,CAAA;AAEF,gBAAgB,CAAC,SAAS,EAAE;IAC1B,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,QAAQ,EAAE,KAAK,EAAE,EAAE;QAC5B,MAAM,OAAO,GAAG,YAAY,CAAC,SAAS,EAAE,KAAK,CAAC,CAAA;QAC9C,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,OAAO,EAAE,CAAA;QACX,CAAC;QACD,OAAO,CAAC,WAAW,CAAC,OAAO,CAAC,KAAK,CAAC,OAAO,EAAE,EAAE,SAAS,CAAC,CAAC,CAAA;IAC1D,CAAC;CACF,CAAC,CAAA;AAEF,gBAAgB,CAAC,OAAO,EAAE;IACxB,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,QAAQ,EAAE,KAAK,EAAE,EAAE;QAC5B,MAAM,OAAO,GAAG,YAAY,CAAC,OAAO,EAAE,KAAK,CAAC,CAAA;QAC5C,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,OAAO,EAAE,CAAA;QACX,CAAC;QACD,OAAO,CAAC,WAAW,CAAC,OAAO,CAAC,KAAK,CAAC,KAAK,EAAE,EAAE,SAAS,CAAC,CAAC,CAAA;IACxD,CAAC;CACF,CAAC,CAAA;AAEF,gBAAgB,CAAC,UAAU,EAAE;IAC3B,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,QAAQ,EAAE,KAAK,EAAE,EAAE;QAC5B,MAAM,OAAO,GAAG,YAAY,CAAC,UAAU,EAAE,KAAK,CAAC,CAAA;QAC/C,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,OAAO,EAAE,CAAA;QACX,CAAC;QACD,OAAO,CAAC,WAAW,CAAC,OAAO,CAAC,KAAK,CAAC,QAAQ,EAAE,EAAE,SAAS,CAAC,CAAC,CAAA;IAC3D,CAAC;CACF,CAAC,CAAA;AAEF,gBAAgB,CAAC,OAAO,EAAE;IACxB,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,YAAY,EAAE,EAAE;QAC/C,MAAM,OAAO,GAAG,YAAY,CAAC,OAAO,EAAE,KAAK,CAAC,CAAA;QAC5C,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,OAAO,EAAE,CAAA;QACX,CAAC;QACD,IAAI,SAAS,GAAG,CAAC,CAAA;QACjB,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;YACtB,MAAM,QAAQ,GAAG,SAAS,CAAC,YAAY,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,CAAC,EAAE,OAAO,EAAE,KAAK,CAAC,EAAE,cAAc,CAAC,CAAA;YACxF,IAAI,QAAQ,KAAK,SAAS,IAAI,OAAO,QAAQ,CAAC,KAAK,KAAK,QAAQ,IAAI,QAAQ,CAAC,KAAK,GAAG,CAAC,EAAE,CAAC;gBACvF,MAAM,IAAI,iBAAiB,CAAC,kDAAkD,CAAC,CAAA;YACjF,CAAC;YACD,SAAS,GAAG,QAAQ,CAAC,KAAK,CAAA;QAC5B,CAAC;QACD,OAAO,CAAC,EAAE,IAAI,EAAE,cAAc,EAAE,KAAK,EAAE,OAAO,CAAC,KAAK,CAAC,KAAK,CAAC,SAAS,CAAC,EAAE,CAAC,CAAA;IAC1E,CAAC;CACF,CAAC,CAAA;AAEF,4FAA4F;AAC5F,SAAS,cAAc,CAAC,IAAY,EAAE,OAAkC;IACtE,gBAAgB,CAAC,IAAI,EAAE;QACrB,QAAQ,EAAE,CAAC;QACX,QAAQ,EAAE,CAAC;QACX,QAAQ,EAAE,CAAC,QAAQ,EAAE,KAAK,EAAE,EAAE;YAC5B,MAAM,OAAO,GAAG,YAAY,CAAC,IAAI,EAAE,KAAK,CAAC,CAAA;YACzC,IAAI,CAAC,OAAO,EAAE,CAAC;gBACb,OAAO,EAAE,CAAA;YACX,CAAC;YACD,MAAM,MAAM,GAAG,OAAO,CAAC,OAAO,CAAC,KAAK,CAAC,QAAQ,EAAE,CAAC,CAAA;YAChD,MAAM,OAAO,GAAG,OAAO,CAAC,UAAU,CAAC,MAAM,CAAC,CAAA;YAC1C,OAAO,OAAO,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,cAAc,EAAE,KAAK,EAAE,OAAO,EAAE,CAAC,CAAA;QAChF,CAAC;KACF,CAAC,CAAA;AACJ,CAAC;AAED,cAAc,CAAC,KAAK,EAAE,IAAI,CAAC,GAAG,CAAC,CAAA;AAC/B,cAAc,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,CAAA;AAC9B,cAAc,CAAC,MAAM,EAAE,IAAI,CAAC,IAAI,CAAC,CAAA;AAEjC,gBAAgB,CAAC,KAAK,EAAE;IACtB,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,YAAY,EAAE,EAAE;QAC/C,MAAM,OAAO,GAAG,YAAY,CAAC,KAAK,EAAE,KAAK,CAAC,CAAA;QAC1C,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,OAAO,EAAE,CAAA;QACX,CAAC;QACD,MAAM,SAAS,GAAG,SAAS,CAAC,YAAY,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,CAAC,EAAE,OAAO,EAAE,KAAK,CAAC,CAAC,CAAA;QACzE,MAAM,IAAI,GAAG,SAAS,KAAK,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,SAAS,CAAC,CAAA;QACvE,IAAI,CAAC,IAAI,EAAE,CAAC;YACV,OAAO,EAAE,CAAA;QACX,CAAC;QACD,MAAM,MAAM,GAAG,IAAI,CAAC,GAAG,CAAC,OAAO,CAAC,KAAK,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC,QAAQ,EAAE,CAAC,CAAA;QACnF,MAAM,OAAO,GAAG,OAAO,CAAC,UAAU,CAAC,MAAM,CAAC,CAAA;QAC1C,yEAAyE;QACzE,OAAO,OAAO,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,cAAc,EAAE,KAAK,EAAE,OAAO,EAAE,CAAC,CAAA;IAChF,CAAC;CACF,CAAC,CAAA;AAEF,gBAAgB,CAAC,OAAO,EAAE;IACxB,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,YAAY,EAAE,EAAE;QAC/C,MAAM,OAAO,GAAG,YAAY,CAAC,OAAO,EAAE,KAAK,CAAC,CAAA;QAC5C,IAAI,CAAC,OAAO,EAAE,CAAC;YACb,OAAO,EAAE,CAAA;QACX,CAAC;QACD,MAAM,aAAa,GAAG,SAAS,CAAC,YAAY,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,CAAC,EAAE,OAAO,EAAE,KAAK,CAAC,CAAC,CAAA;QAC7E,MAAM,QAAQ,GAAG,aAAa,KAAK,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,aAAa,CAAC,CAAA;QACnF,IAAI,CAAC,QAAQ,EAAE,CAAC;YACd,OAAO,EAAE,CAAA;QACX,CAAC;QACD,MAAM,MAAM,GAAG,OAAO,CAAC,KAAK,CAAC,QAAQ,EAAE,IAAI,QAAQ,CAAC,KAAK,CAAC,QAAQ,EAAE,CAAA;QACpE,MAAM,OAAO,GAAG,OAAO,CAAC,UAAU,CAAC,MAAM,CAAC,CAAA;QAC1C,IAAI,OAAO,KAAK,SAAS,EAAE,CAAC;YAC1B,OAAO,EAAE,CAAA;QACX,CAAC;QACD,6EAA6E;QAC7E,IAAI,OAAO,CAAC,IAAI,CAAC,IAAI,KAAK,cAAc,IAAI,aAAa,EAAE,IAAI,KAAK,cAAc,IAAI,OAAO,CAAC,SAAS,EAAE,EAAE,CAAC;YAC1G,OAAO,CAAC,WAAW,CAAC,OAAO,EAAE,SAAS,CAAC,CAAC,CAAA;QAC1C,CAAC;QACD,OAAO,CAAC,EAAE,IAAI,EAAE,cAAc,EAAE,KAAK,EAAE,OAAO,EAAE,CAAC,CAAA;IACnD,CAAC;CACF,CAAC,CAAA"}

package/dist/functions/reflection.d.ts

@@ -0,0 +1,2 @@
+export {};
+//# sourceMappingURL=reflection.d.ts.map

package/dist/functions/reflection.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"reflection.d.ts","sourceRoot":"","sources":["../../src/functions/reflection.ts"],"names":[],"mappings":""}

package/dist/functions/reflection.js

@@ -0,0 +1,23 @@
+import { typeLocalName } from "../values/typed-value.js";
+import { registerFunction } from "./registry.js";
+/**
+ * type() reflection (spec §10.2, STU). Returns one TypeInfo per item; the official
+ * tests only inspect `namespace` and `name`, so ClassInfo element lists are not
+ * materialized.
+ */
+registerFunction('type', {
+    minArity: 0,
+    maxArity: 0,
+    evaluate: (context, input) => input.map(item => typeInfoOf(item, context.model?.namespace)),
+});
+function typeInfoOf(item, modelNamespace) {
+    const separator = item.type.lastIndexOf('.');
+    const namespace = separator === -1 ? (modelNamespace ?? 'FHIR') : item.type.slice(0, separator);
+    const name = typeLocalName(item.type);
+    const isSystem = namespace === 'System';
+    return {
+        type: isSystem ? 'System.SimpleTypeInfo' : 'System.ClassInfo',
+        value: { namespace, name },
+    };
+}
+//# sourceMappingURL=reflection.js.map

package/dist/functions/reflection.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"reflection.js","sourceRoot":"","sources":["../../src/functions/reflection.ts"],"names":[],"mappings":"AAAA,OAAO,EAAmB,aAAa,EAAE,MAAM,0BAA0B,CAAA;AACzE,OAAO,EAAE,gBAAgB,EAAE,MAAM,eAAe,CAAA;AAEhD;;;;GAIG;AACH,gBAAgB,CAAC,MAAM,EAAE;IACvB,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,OAAO,EAAE,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,UAAU,CAAC,IAAI,EAAE,OAAO,CAAC,KAAK,EAAE,SAAS,CAAC,CAAC;CAC5F,CAAC,CAAA;AAEF,SAAS,UAAU,CAAC,IAAgB,EAAE,cAAkC;IACtE,MAAM,SAAS,GAAG,IAAI,CAAC,IAAI,CAAC,WAAW,CAAC,GAAG,CAAC,CAAA;IAC5C,MAAM,SAAS,GAAG,SAAS,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,cAAc,IAAI,MAAM,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,SAAS,CAAC,CAAA;IAC/F,MAAM,IAAI,GAAG,aAAa,CAAC,IAAI,CAAC,IAAI,CAAC,CAAA;IACrC,MAAM,QAAQ,GAAG,SAAS,KAAK,QAAQ,CAAA;IACvC,OAAO;QACL,IAAI,EAAE,QAAQ,CAAC,CAAC,CAAC,uBAAuB,CAAC,CAAC,CAAC,kBAAkB;QAC7D,KAAK,EAAE,EAAE,SAAS,EAAE,IAAI,EAAE;KAC3B,CAAA;AACH,CAAC"}

package/dist/functions/registry.d.ts

@@ -0,0 +1,28 @@
+import type { EvaluationContext } from '../engine/context.ts';
+import type { AstNode } from '../parser/ast.ts';
+import type { TypedValue } from '../values/typed-value.ts';
+/**
+ * A FHIRPath function. Arguments arrive as unevaluated ASTs so functions with
+ * expression parameters (`where`, `select`, `iif`, `aggregate`, ...) control their
+ * own scoping and laziness; plain-value functions evaluate them via the callback.
+ */
+export interface FhirPathFunction {
+    /** Inclusive argument count range. */
+    minArity: number;
+    maxArity: number;
+    evaluate(context: EvaluationContext, input: TypedValue[], args: AstNode[], evaluateNode: (node: AstNode, context: EvaluationContext, input: TypedValue[]) => TypedValue[]): TypedValue[];
+}
+/**
+ * The argument AST at `index`. `lookupFunction` has already enforced the arity
+ * range, so within a registered `evaluate` the node exists whenever `index` is
+ * below the function's minArity; this replaces the unchecked `args[i] as AstNode`
+ * casts with one guarded accessor.
+ */
+export declare function argAt(args: AstNode[], index: number): AstNode;
+/** Function table; the per-section function modules add entries (append-only). */
+export declare const functions: Map<string, FhirPathFunction>;
+export declare function registerFunction(name: string, fn: FhirPathFunction): void;
+export declare function lookupFunction(name: string, argCount: number): FhirPathFunction;
+/** Human-readable arity range, e.g. "1 argument", "2 arguments", "1 to 3 arguments". */
+export declare function describeArity(minArity: number, maxArity: number): string;
+//# sourceMappingURL=registry.d.ts.map

package/dist/functions/registry.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"registry.d.ts","sourceRoot":"","sources":["../../src/functions/registry.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,iBAAiB,EAAE,MAAM,sBAAsB,CAAA;AAE7D,OAAO,KAAK,EAAE,OAAO,EAAE,MAAM,kBAAkB,CAAA;AAC/C,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,0BAA0B,CAAA;AAE1D;;;;GAIG;AACH,MAAM,WAAW,gBAAgB;IAC/B,sCAAsC;IACtC,QAAQ,EAAE,MAAM,CAAA;IAChB,QAAQ,EAAE,MAAM,CAAA;IAChB,QAAQ,CACN,OAAO,EAAE,iBAAiB,EAC1B,KAAK,EAAE,UAAU,EAAE,EACnB,IAAI,EAAE,OAAO,EAAE,EACf,YAAY,EAAE,CAAC,IAAI,EAAE,OAAO,EAAE,OAAO,EAAE,iBAAiB,EAAE,KAAK,EAAE,UAAU,EAAE,KAAK,UAAU,EAAE,GAC7F,UAAU,EAAE,CAAA;CAChB;AAED;;;;;GAKG;AACH,wBAAgB,KAAK,CAAC,IAAI,EAAE,OAAO,EAAE,EAAE,KAAK,EAAE,MAAM,GAAG,OAAO,CAO7D;AAED,kFAAkF;AAClF,eAAO,MAAM,SAAS,+BAAsC,CAAA;AAE5D,wBAAgB,gBAAgB,CAAC,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE,gBAAgB,GAAG,IAAI,CAOzE;AAED,wBAAgB,cAAc,CAAC,IAAI,EAAE,MAAM,EAAE,QAAQ,EAAE,MAAM,GAAG,gBAAgB,CAW/E;AAED,wFAAwF;AACxF,wBAAgB,aAAa,CAAC,QAAQ,EAAE,MAAM,EAAE,QAAQ,EAAE,MAAM,GAAG,MAAM,CAQxE"}

package/dist/functions/registry.js

@@ -0,0 +1,46 @@
+import { FhirPathTypeError } from "../errors.js";
+/**
+ * The argument AST at `index`. `lookupFunction` has already enforced the arity
+ * range, so within a registered `evaluate` the node exists whenever `index` is
+ * below the function's minArity; this replaces the unchecked `args[i] as AstNode`
+ * casts with one guarded accessor.
+ */
+export function argAt(args, index) {
+    const node = args[index];
+    /* v8 ignore next 3 -- arity is validated before evaluate runs */
+    if (node === undefined) {
+        throw new FhirPathTypeError(`Missing required argument at position ${index}`);
+    }
+    return node;
+}
+/** Function table; the per-section function modules add entries (append-only). */
+export const functions = new Map();
+export function registerFunction(name, fn) {
+    if (functions.has(name)) {
+        // 100+ names across 20 modules: a copy-paste collision would silently
+        // replace an implementation, so fail loudly at import time instead.
+        throw new Error(`FHIRPath function '${name}' is registered twice`);
+    }
+    functions.set(name, fn);
+}
+export function lookupFunction(name, argCount) {
+    const fn = functions.get(name);
+    if (!fn) {
+        throw new FhirPathTypeError(`Unrecognized function '${name}'`);
+    }
+    if (argCount < fn.minArity || argCount > fn.maxArity) {
+        throw new FhirPathTypeError(`Function '${name}' expects ${describeArity(fn.minArity, fn.maxArity)}, got ${argCount} arguments`);
+    }
+    return fn;
+}
+/** Human-readable arity range, e.g. "1 argument", "2 arguments", "1 to 3 arguments". */
+export function describeArity(minArity, maxArity) {
+    if (minArity === maxArity) {
+        return minArity === 1 ? '1 argument' : `${minArity} arguments`;
+    }
+    if (maxArity === Number.POSITIVE_INFINITY) {
+        return minArity === 1 ? 'at least 1 argument' : `at least ${minArity} arguments`;
+    }
+    return `${minArity} to ${maxArity} arguments`;
+}
+//# sourceMappingURL=registry.js.map

package/dist/functions/registry.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"registry.js","sourceRoot":"","sources":["../../src/functions/registry.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,iBAAiB,EAAE,MAAM,cAAc,CAAA;AAqBhD;;;;;GAKG;AACH,MAAM,UAAU,KAAK,CAAC,IAAe,EAAE,KAAa;IAClD,MAAM,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAA;IACxB,iEAAiE;IACjE,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;QACvB,MAAM,IAAI,iBAAiB,CAAC,yCAAyC,KAAK,EAAE,CAAC,CAAA;IAC/E,CAAC;IACD,OAAO,IAAI,CAAA;AACb,CAAC;AAED,kFAAkF;AAClF,MAAM,CAAC,MAAM,SAAS,GAAG,IAAI,GAAG,EAA4B,CAAA;AAE5D,MAAM,UAAU,gBAAgB,CAAC,IAAY,EAAE,EAAoB;IACjE,IAAI,SAAS,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC;QACxB,sEAAsE;QACtE,oEAAoE;QACpE,MAAM,IAAI,KAAK,CAAC,sBAAsB,IAAI,uBAAuB,CAAC,CAAA;IACpE,CAAC;IACD,SAAS,CAAC,GAAG,CAAC,IAAI,EAAE,EAAE,CAAC,CAAA;AACzB,CAAC;AAED,MAAM,UAAU,cAAc,CAAC,IAAY,EAAE,QAAgB;IAC3D,MAAM,EAAE,GAAG,SAAS,CAAC,GAAG,CAAC,IAAI,CAAC,CAAA;IAC9B,IAAI,CAAC,EAAE,EAAE,CAAC;QACR,MAAM,IAAI,iBAAiB,CAAC,0BAA0B,IAAI,GAAG,CAAC,CAAA;IAChE,CAAC;IACD,IAAI,QAAQ,GAAG,EAAE,CAAC,QAAQ,IAAI,QAAQ,GAAG,EAAE,CAAC,QAAQ,EAAE,CAAC;QACrD,MAAM,IAAI,iBAAiB,CACzB,aAAa,IAAI,aAAa,aAAa,CAAC,EAAE,CAAC,QAAQ,EAAE,EAAE,CAAC,QAAQ,CAAC,SAAS,QAAQ,YAAY,CACnG,CAAA;IACH,CAAC;IACD,OAAO,EAAE,CAAA;AACX,CAAC;AAED,wFAAwF;AACxF,MAAM,UAAU,aAAa,CAAC,QAAgB,EAAE,QAAgB;IAC9D,IAAI,QAAQ,KAAK,QAAQ,EAAE,CAAC;QAC1B,OAAO,QAAQ,KAAK,CAAC,CAAC,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,GAAG,QAAQ,YAAY,CAAA;IAChE,CAAC;IACD,IAAI,QAAQ,KAAK,MAAM,CAAC,iBAAiB,EAAE,CAAC;QAC1C,OAAO,QAAQ,KAAK,CAAC,CAAC,CAAC,CAAC,qBAAqB,CAAC,CAAC,CAAC,YAAY,QAAQ,YAAY,CAAA;IAClF,CAAC;IACD,OAAO,GAAG,QAAQ,OAAO,QAAQ,YAAY,CAAA;AAC/C,CAAC"}

package/dist/functions/sort.d.ts

@@ -0,0 +1,2 @@
+export {};
+//# sourceMappingURL=sort.d.ts.map

package/dist/functions/sort.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"sort.d.ts","sourceRoot":"","sources":["../../src/functions/sort.ts"],"names":[],"mappings":""}

package/dist/functions/sort.js

@@ -0,0 +1,48 @@
+import { withFrame } from "../engine/context.js";
+import { compareValues } from "../engine/operators/comparison.js";
+import { singleton } from "../values/collection.js";
+import { registerFunction } from "./registry.js";
+/** sort([keys...]) — ballot STU. `-key` sorts that key descending; no keys sorts by value. */
+registerFunction('sort', {
+    minArity: 0,
+    // The ballot puts no limit on sort keys; 8 is a practical cap for arity checking.
+    maxArity: 8,
+    evaluate: (context, input, args, evaluateNode) => {
+        const keys = args.length
+            ? args.map(node => node.kind === 'unary' && node.operator === '-'
+                ? { expression: node.operand, descending: true }
+                : { expression: node, descending: false })
+            : [{ expression: undefined, descending: false }];
+        const decorated = input.map((item, index) => ({
+            item,
+            index,
+            values: keys.map(key => keyValue(context, item, key.expression, evaluateNode)),
+        }));
+        decorated.sort((a, b) => {
+            for (let i = 0; i < keys.length; i++) {
+                const comparison = compareKey(a.values[i], b.values[i], keys[i].descending);
+                if (comparison !== 0) {
+                    return comparison;
+                }
+            }
+            return a.index - b.index;
+        });
+        return decorated.map(entry => entry.item);
+    },
+});
+function keyValue(context, item, expression, evaluateNode) {
+    if (expression === undefined) {
+        return item;
+    }
+    return withFrame(context, { thisValue: [item] }, frameContext => singleton(evaluateNode(expression, frameContext, [item])));
+}
+function compareKey(a, b, descending) {
+    // Empty keys sort after present ones (ascending); descending reverses everything.
+    if (a === undefined || b === undefined) {
+        const emptiness = (a === undefined ? 1 : 0) - (b === undefined ? 1 : 0);
+        return descending ? -emptiness : emptiness;
+    }
+    const comparison = compareValues(a, b) ?? 0;
+    return descending ? -comparison : comparison;
+}
+//# sourceMappingURL=sort.js.map

package/dist/functions/sort.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"sort.js","sourceRoot":"","sources":["../../src/functions/sort.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,SAAS,EAAE,MAAM,sBAAsB,CAAA;AAChD,OAAO,EAAE,aAAa,EAAE,MAAM,mCAAmC,CAAA;AAEjE,OAAO,EAAE,SAAS,EAAE,MAAM,yBAAyB,CAAA;AAGnD,OAAO,EAAE,gBAAgB,EAAE,MAAM,eAAe,CAAA;AAOhD,8FAA8F;AAC9F,gBAAgB,CAAC,MAAM,EAAE;IACvB,QAAQ,EAAE,CAAC;IACX,kFAAkF;IAClF,QAAQ,EAAE,CAAC;IACX,QAAQ,EAAE,CAAC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,YAAY,EAAE,EAAE;QAC/C,MAAM,IAAI,GAAc,IAAI,CAAC,MAAM;YACjC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CACd,IAAI,CAAC,IAAI,KAAK,OAAO,IAAI,IAAI,CAAC,QAAQ,KAAK,GAAG;gBAC5C,CAAC,CAAC,EAAE,UAAU,EAAE,IAAI,CAAC,OAAO,EAAE,UAAU,EAAE,IAAI,EAAE;gBAChD,CAAC,CAAC,EAAE,UAAU,EAAE,IAAI,EAAE,UAAU,EAAE,KAAK,EAAE,CAC5C;YACH,CAAC,CAAC,CAAC,EAAE,UAAU,EAAE,SAAS,EAAE,UAAU,EAAE,KAAK,EAAE,CAAC,CAAA;QAClD,MAAM,SAAS,GAAG,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE,CAAC,CAAC;YAC5C,IAAI;YACJ,KAAK;YACL,MAAM,EAAE,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,QAAQ,CAAC,OAAO,EAAE,IAAI,EAAE,GAAG,CAAC,UAAU,EAAE,YAAY,CAAC,CAAC;SAC/E,CAAC,CAAC,CAAA;QACH,SAAS,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE;YACtB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;gBACrC,MAAM,UAAU,GAAG,UAAU,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAG,IAAI,CAAC,CAAC,CAAa,CAAC,UAAU,CAAC,CAAA;gBACxF,IAAI,UAAU,KAAK,CAAC,EAAE,CAAC;oBACrB,OAAO,UAAU,CAAA;gBACnB,CAAC;YACH,CAAC;YACD,OAAO,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,CAAA;QAC1B,CAAC,CAAC,CAAA;QACF,OAAO,SAAS,CAAC,GAAG,CAAC,KAAK,CAAC,EAAE,CAAC,KAAK,CAAC,IAAI,CAAC,CAAA;IAC3C,CAAC;CACF,CAAC,CAAA;AAEF,SAAS,QAAQ,CACf,OAA0B,EAC1B,IAAgB,EAChB,UAA+B,EAC/B,YAA2B;IAE3B,IAAI,UAAU,KAAK,SAAS,EAAE,CAAC;QAC7B,OAAO,IAAI,CAAA;IACb,CAAC;IACD,OAAO,SAAS,CAAC,OAAO,EAAE,EAAE,SAAS,EAAE,CAAC,IAAI,CAAC,EAAE,EAAE,YAAY,CAAC,EAAE,CAC9D,SAAS,CAAC,YAAY,CAAC,UAAU,EAAE,YAAY,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAC1D,CAAA;AACH,CAAC;AAED,SAAS,UAAU,CAAC,CAAyB,EAAE,CAAyB,EAAE,UAAmB;IAC3F,kFAAkF;IAClF,IAAI,CAAC,KAAK,SAAS,IAAI,CAAC,KAAK,SAAS,EAAE,CAAC;QACvC,MAAM,SAAS,GAAG,CAAC,CAAC,KAAK,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAA;QACvE,OAAO,UAAU,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,SAAS,CAAA;IAC5C,CAAC;IACD,MAAM,UAAU,GAAG,aAAa,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,CAAA;IAC3C,OAAO,UAAU,CAAC,CAAC,CAAC,CAAC,UAAU,CAAC,CAAC,CAAC,UAAU,CAAA;AAC9C,CAAC"}

package/dist/functions/string.d.ts

@@ -0,0 +1,2 @@
+export {};
+//# sourceMappingURL=string.d.ts.map

package/dist/functions/string.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"string.d.ts","sourceRoot":"","sources":["../../src/functions/string.ts"],"names":[],"mappings":""}