@inseefr/lunatic 3.7.7-rc.0 → 3.8.0-rc.0

package/src/stories/pairwise/sourceGlobalVariables.json

@@ -0,0 +1,337 @@
+{
+	"id": "mkdupypp",
+	"label": { "type": "VTL|MD", "value": "Pairwise global variables" },
+	"modele": "PAIRWISEGL",
+	"maxPage": "5",
+	"cleaning": {
+		"PRENOM": {
+			"LIENS_HABITANTS": [
+				{
+					"shapeFrom": "PRENOM",
+					"expression": "nvl(PRENOM, \"\") <> \"\"",
+					"isAggregatorUsed": false
+				}
+			]
+		}
+	},
+	"resizing": {
+		"PRENOM": {
+			"size": "count(PRENOM)",
+			"variables": ["VERIF"],
+			"linksVariables": ["LIENS_HABITANTS"],
+			"sizeForLinksVariables": {
+				"xAxisSize": "count(PRENOM)",
+				"yAxisSize": "count(PRENOM)"
+			}
+		}
+	},
+	"variables": [
+		{
+			"name": "PRENOM",
+			"values": { "COLLECTED": [] },
+			"dimension": 1,
+			"variableType": "COLLECTED",
+			"iterationReference": "mkdulmx2"
+		},
+		{
+			"name": "SEXE",
+			"values": { "COLLECTED": [] },
+			"dimension": 1,
+			"variableType": "COLLECTED",
+			"iterationReference": "mkdulmx2"
+		},
+		{
+			"name": "LIENS_HABITANTS",
+			"values": { "COLLECTED": [[]] },
+			"dimension": 2,
+			"variableType": "COLLECTED",
+			"iterationReference": "mkdulmx2"
+		},
+		{
+			"name": "VERIF",
+			"values": { "COLLECTED": [] },
+			"dimension": 1,
+			"variableType": "COLLECTED",
+			"iterationReference": "mkdulmx2"
+		},
+		{
+			"name": "xAxis",
+			"shapeFrom": ["PRENOM"],
+			"expression": { "type": "VTL", "value": "PRENOM" },
+			"variableType": "CALCULATED",
+			"bindingDependencies": ["PRENOM"]
+		},
+		{
+			"name": "yAxis",
+			"shapeFrom": ["PRENOM"],
+			"expression": { "type": "VTL", "value": "PRENOM" },
+			"variableType": "CALCULATED",
+			"bindingDependencies": ["PRENOM"]
+		},
+		{
+			"name": "FILTER_RESULT_PRENOM",
+			"dimension": 1,
+			"shapeFrom": ["PRENOM", "SEXE"],
+			"expression": { "type": "VTL", "value": "true" },
+			"variableType": "CALCULATED",
+			"isIgnoredByLunatic": true,
+			"iterationReference": "mkdulmx2"
+		},
+		{
+			"name": "FILTER_RESULT_SEXE",
+			"dimension": 1,
+			"shapeFrom": ["PRENOM", "SEXE"],
+			"expression": { "type": "VTL", "value": "true" },
+			"variableType": "CALCULATED",
+			"isIgnoredByLunatic": true,
+			"iterationReference": "mkdulmx2"
+		},
+		{
+			"name": "FILTER_RESULT_LIENS_HABITANTS",
+			"dimension": 2,
+			"shapeFrom": ["PRENOM", "SEXE"],
+			"expression": {
+				"type": "VTL",
+				"value": "(nvl(xAxis, \"\") <> \"\") and (nvl(yAxis, \"\") <> \"\")"
+			},
+			"variableType": "CALCULATED",
+			"isIgnoredByLunatic": true,
+			"iterationReference": "mkdulmx2"
+		},
+		{
+			"name": "FILTER_RESULT_VERIF",
+			"dimension": 1,
+			"shapeFrom": ["PRENOM", "SEXE"],
+			"expression": { "type": "VTL", "value": "true" },
+			"variableType": "CALCULATED",
+			"isIgnoredByLunatic": true,
+			"iterationReference": "mkdulmx2"
+		}
+	],
+	"components": [
+		{
+			"id": "mkdulmx2",
+			"page": "1",
+			"depth": 1,
+			"label": { "type": "VTL|MD", "value": "Ajouter un habitant" },
+			"lines": {
+				"max": { "type": "VTL", "value": "10" },
+				"min": { "type": "VTL", "value": "1" }
+			},
+			"components": [
+				{
+					"id": "mkdumm9l",
+					"page": "1",
+					"label": {
+						"type": "VTL",
+						"value": "\"I - \" || \"Habitants du logement\"",
+						"shapeFrom": "PRENOM"
+					},
+					"componentType": "Sequence",
+					"conditionFilter": {
+						"type": "VTL",
+						"value": "true",
+						"shapeFrom": "PRENOM"
+					}
+				},
+				{
+					"id": "question-mkduvzxm",
+					"page": "1",
+					"label": { "type": "VTL|MD", "value": "\"Prénom:\"" },
+					"components": [
+						{
+							"id": "mkduvzxm",
+							"page": "1",
+							"response": { "name": "PRENOM" },
+							"maxLength": 249,
+							"isMandatory": false,
+							"componentType": "Input"
+						}
+					],
+					"componentType": "Question",
+					"conditionFilter": { "type": "VTL", "value": "true" }
+				},
+				{
+					"id": "question-mkdujzn9",
+					"page": "1",
+					"label": { "type": "VTL|MD", "value": "\"Sexe:\"" },
+					"components": [
+						{
+							"id": "mkdujzn9",
+							"page": "1",
+							"options": [
+								{
+									"label": { "type": "VTL|MD", "value": "\"Homme\"" },
+									"value": "1"
+								},
+								{
+									"label": { "type": "VTL|MD", "value": "\"Femme\"" },
+									"value": "2"
+								}
+							],
+							"response": { "name": "SEXE" },
+							"isMandatory": false,
+							"orientation": "vertical",
+							"componentType": "Radio"
+						}
+					],
+					"componentType": "Question",
+					"conditionFilter": { "type": "VTL", "value": "true" }
+				}
+			],
+			"componentType": "Loop",
+			"paginatedLoop": false,
+			"conditionFilter": { "type": "VTL", "value": "(true)" }
+		},
+		{
+			"id": "mkdus3wr",
+			"page": "2",
+			"label": {
+				"type": "VTL",
+				"value": "\"II - \" || \"Liens entre les habitants du logement\"",
+				"shapeFrom": "PRENOM"
+			},
+			"componentType": "Sequence",
+			"conditionFilter": {
+				"type": "VTL",
+				"value": "true",
+				"shapeFrom": "PRENOM"
+			}
+		},
+		{
+			"id": "question-mkdv8ihy",
+			"page": "3",
+			"components": [
+				{
+					"id": "mkdv8ihy",
+					"page": "3",
+					"symLinks": {
+						"LIENS_HABITANTS": {
+							"1": "1",
+							"2": "3",
+							"3": "2",
+							"4": "4",
+							"5": "6",
+							"6": "5",
+							"7": "8",
+							"8": "7",
+							"9": "10",
+							"10": "9",
+							"11": "13",
+							"12": "12",
+							"13": "11",
+							"14": null,
+							"15": "15",
+							"16": "16",
+							"17": "17",
+							"18": "18"
+						}
+					},
+					"components": [
+						{
+							"id": "mkdv8ihy-pairwise-dropdown",
+							"page": "3",
+							"label": {
+								"type": "VTL|MD",
+								"value": "\"Qui est \" || yAxis || \" pour \" || xAxis || \" ?\""
+							},
+							"options": [
+								{
+									"label": { "type": "VTL", "value": "\"Conjoint\"" },
+									"value": "1"
+								},
+								{
+									"label": { "type": "VTL", "value": "\"Parent\"" },
+									"value": "2"
+								},
+								{
+									"label": { "type": "VTL", "value": "\"Enfant\"" },
+									"value": "3"
+								},
+								{
+									"label": { "type": "VTL", "value": "\"Autre\"" },
+									"value": "4"
+								}
+							],
+							"response": { "name": "LIENS_HABITANTS" },
+							"isMandatory": false,
+							"componentType": "Dropdown",
+							"conditionFilter": {
+								"type": "VTL",
+								"value": "(nvl(xAxis, \"\") <> \"\") and (nvl(yAxis, \"\") <> \"\")"
+							}
+						}
+					],
+					"sourceVariables": {
+						"name": "PRENOM",
+						"gender": "SEXE"
+					},
+					"componentType": "PairwiseLinks",
+					"xAxisIterations": { "type": "VTL", "value": "count(PRENOM)" },
+					"yAxisIterations": { "type": "VTL", "value": "count(PRENOM)" }
+				}
+			],
+			"componentType": "Question",
+			"conditionFilter": { "type": "VTL", "value": "true" }
+		},
+		{
+			"id": "mkduz03e",
+			"page": "4",
+			"depth": 1,
+			"maxPage": "2",
+			"components": [
+				{
+					"id": "mkdusamd",
+					"page": "4.1",
+					"label": {
+						"type": "VTL",
+						"value": "\"III - \" || \"Variables globales\"",
+						"shapeFrom": "PRENOM"
+					},
+					"componentType": "Sequence",
+					"conditionFilter": {
+						"type": "VTL",
+						"value": "true",
+						"shapeFrom": "PRENOM"
+					}
+				},
+				{
+					"id": "question-mkdvcykn",
+					"page": "4.2",
+					"label": {
+						"type": "VTL|MD",
+						"value": "PRENOM || \": votre premier parent est \" || GLOBAL_PARENT1_PRENOM || \" (\" || GLOBAL_PARENT1_SEXE || \"), votre second parent est \" || GLOBAL_PARENT2_PRENOM || \" (\" || GLOBAL_PARENT2_SEXE || \"), votre partenaire est \" || GLOBAL_CONJOINT_PRENOM || \", vos enfants sont \" || GLOBAL_ENFANTS_PRENOMS"
+					},
+					"components": [
+						{
+							"id": "mkdvcykn",
+							"page": "4.2",
+							"response": { "name": "VERIF" },
+							"isMandatory": false,
+							"componentType": "CheckboxBoolean"
+						}
+					],
+					"componentType": "Question",
+					"conditionFilter": { "type": "VTL", "value": "true" }
+				}
+			],
+			"iterations": { "type": "VTL", "value": "count(PRENOM)" },
+			"componentType": "Loop",
+			"paginatedLoop": true,
+			"conditionFilter": { "type": "VTL", "value": "(true)" },
+			"loopDependencies": ["PRENOM"]
+		},
+		{
+			"id": "mkdvgmn0",
+			"page": "5",
+			"label": { "type": "VTL", "value": "\"IV - \" || \"Fin\"" },
+			"componentType": "Sequence",
+			"conditionFilter": { "type": "VTL", "value": "true" }
+		}
+	],
+	"pagination": "question",
+	"componentType": "Questionnaire",
+	"enoCoreVersion": "3.59.0",
+	"generatingDate": "14-01-2026 10:14:03",
+	"lunaticModelVersion": "5.11.0"
+}

package/src/type.source.ts

@@ -223,6 +223,15 @@ export type ComponentPairWiseLinksDefinition = ComponentDefinitionBase & {
 			[k: string]: string | null;
 		};
 	};
+	sourceVariables?: {
+		/** Name of the variable containing the name of the respondent */
+		name?: string;
+		/**
+		 * Name of the variable containing the gender of the respondent
+		 * (value of variable -> 1:male, 2: female)
+		 */
+		gender?: string;
+	};
 	components: ComponentDefinition[];
 };
 export type ComponentSummaryDefinition = ComponentDefinitionBase & {

package/src/use-lunatic/commons/compile-controls.ts

@@ -1,59 +1,27 @@
 import type {
-	LunaticComponentDefinition,
 	LunaticControl,
 	LunaticError,
 	LunaticReducerState,
 } from '../type';
-import {
-	fillComponentExpressions,
-	type DeepTranslateExpression,
-} from './fill-components/fill-component-expressions';
+import { fillComponentExpressions } from './fill-components/fill-component-expressions';
 import { checkRoundaboutControl } from '../reducer/controls/check-roundabout-control';
 import { checkBaseControl } from '../reducer/controls/check-base-control';
 import { getComponentsFromState } from './get-components-from-state';
+import {
+	InterpretedLoopComponent,
+	InterpretedRoundaboutComponent,
+	isLoopComponent,
+	isQuestionComponent,
+	isRoundaboutComponent,
+	type ComponentDefinition,
+	type InterpretedComponent,
+} from './component';
 
 export type StateForControls = Pick<
 	LunaticReducerState,
 	'pager' | 'pages' | 'isInLoop' | 'executeExpression'
 >;
 
-type ComponentDefinition = LunaticComponentDefinition;
-type InterpretedComponent = DeepTranslateExpression<LunaticComponentDefinition>;
-type InterpretedLoopComponent = DeepTranslateExpression<
-	ComponentDefinition & {
-		componentType: 'Loop' | 'RosterForLoop';
-	}
->;
-type InterpretedRoundaboutComponent = DeepTranslateExpression<
-	ComponentDefinition & {
-		componentType: 'Roundabout';
-	}
->;
-
-/**
- * Check if the component is a Loop or a RosterForLoop
- */
-const isLoopComponent = (
-	component: ComponentDefinition | InterpretedComponent
-): component is InterpretedLoopComponent => {
-	return ['Loop', 'RosterForLoop'].includes(component.componentType);
-};
-
-/**
- * Check if the component is a Roundabout
- */
-const isRoundaboutComponent = (
-	component: ComponentDefinition | InterpretedComponent
-): component is InterpretedRoundaboutComponent => {
-	return component.componentType === 'Roundabout';
-};
-
-const isQuestionComponent = (
-	component: ComponentDefinition | InterpretedComponent
-) => {
-	return 'Question' === component.componentType;
-};
-
 /**
  * Check if components of the current page have errors, and return a map of
  * errors (indexed by component ID).

package/src/use-lunatic/commons/component.ts

@@ -1,6 +1,35 @@
+/*
+Various utils function about what a component is or is not.
+*/
 import type { ReactNode } from 'react';
 import type { LunaticComponentDefinition } from '../type';
+import { type DeepTranslateExpression } from './fill-components/fill-component-expressions';
 
+export type ComponentDefinition = LunaticComponentDefinition;
+export type InterpretedComponent =
+	DeepTranslateExpression<LunaticComponentDefinition>;
+export type InterpretedLoopComponent = DeepTranslateExpression<
+	ComponentDefinition & {
+		componentType: 'Loop' | 'RosterForLoop';
+	}
+>;
+export type InterpretedRoundaboutComponent = DeepTranslateExpression<
+	ComponentDefinition & {
+		componentType: 'Roundabout';
+	}
+>;
+export type InterpretedQuestionComponent = DeepTranslateExpression<
+	ComponentDefinition & {
+		componentType: 'Question';
+	}
+>;
+export type InterpretedPairwiseLinksComponent = DeepTranslateExpression<
+	ComponentDefinition & {
+		componentType: 'PairwiseLinks';
+	}
+>;
+
+/** Whether the component has a response attribute. */
 export function hasResponse(
 	component: unknown
 ): component is { response: { name: string } } {
@@ -12,6 +41,7 @@ export function hasResponse(
 	);
 }
 
+/** Whether the component has a responses attribute. */
 export function hasResponses(component: unknown): component is {
 	responses?: Array<{
 		label: ReactNode;
@@ -24,6 +54,7 @@ export function hasResponses(component: unknown): component is {
 	);
 }
 
+/** Whether the component has a body attribute. */
 export function hasBody(component: unknown): component is {
 	body: LunaticComponentDefinition<'Table'>['body'];
 } {
@@ -35,6 +66,7 @@ export function hasBody(component: unknown): component is {
 	);
 }
 
+/** Whether the component has a componentType attribute. */
 export function hasComponentType(
 	component: unknown
 ): component is { componentType: string } {
@@ -45,3 +77,50 @@ export function hasComponentType(
 		typeof component.componentType === 'string'
 	);
 }
+
+/** Whether the component is a Loop or a RosterForLoop. */
+export function isLoopComponent(
+	component: ComponentDefinition | InterpretedComponent
+): component is InterpretedLoopComponent {
+	return ['Loop', 'RosterForLoop'].includes(component.componentType);
+}
+
+/** Whether the component is a Roundabout. */
+export function isRoundaboutComponent(
+	component: ComponentDefinition | InterpretedComponent
+): component is InterpretedRoundaboutComponent {
+	return component.componentType === 'Roundabout';
+}
+
+/** Whether the component is a Question. */
+export function isQuestionComponent(
+	component: ComponentDefinition | InterpretedComponent
+): component is InterpretedQuestionComponent {
+	return component.componentType === 'Question';
+}
+
+/** Whether the component is a PairwiseLinks. */
+export function isPairwiseLinksComponent(
+	component: ComponentDefinition | InterpretedComponent
+): component is InterpretedPairwiseLinksComponent {
+	return component.componentType === 'PairwiseLinks';
+}
+
+/**
+ * Get the pairwise component if it exists.
+ *
+ * There should only be one so we return the first one we find.
+ */
+export function getPairwiseComponent(
+	components: ComponentDefinition[]
+): InterpretedPairwiseLinksComponent | undefined {
+	for (const component of components) {
+		if (isPairwiseLinksComponent(component)) return component;
+		if (isQuestionComponent(component)) {
+			const childComponent = getPairwiseComponent(component.components);
+			if (childComponent) return childComponent;
+		}
+	}
+
+	return undefined;
+}

package/src/use-lunatic/commons/variables/behaviours/cleaning-behaviour.ts

@@ -1,10 +1,8 @@
-import type {
-	IterationLevel,
-	LunaticVariablesStore,
-} from '../lunatic-variables-store';
+import type { LunaticVariablesStore } from '../lunatic-variables-store';
 import type { LunaticSource } from '../../../type';
 import { depth, setAtIndex } from '../../../../utils/array';
 import { castBool } from '../../../../utils/cast';
+import { IterationLevel } from '../models';
 
 /**
  * Implements the cleaning behavior for the variable store.

package/src/use-lunatic/commons/variables/global-variables.ts

@@ -0,0 +1,9 @@
+import { IterationLevel } from './models';
+
+/** Special variable that will take the current iteration value. */
+export const GLOBAL_ITERATION_INDEX = 'GLOBAL_ITERATION_INDEX';
+
+/** Manually compute the global iteration index from current iteration level. */
+export function computeGlobalIterationIndexValue(iteration: IterationLevel) {
+	return [GLOBAL_ITERATION_INDEX, iteration[0] + 1];
+}