From ea66dbd1d5516a8eed037c54f8d6038f54270615 Mon Sep 17 00:00:00 2001
From: Mael <mael.thomas@data.gouv.fr>
Date: Mon, 9 Jul 2018 10:01:06 +0000
Subject: [PATCH] =?UTF-8?q?Nouveau=20m=C3=A9canisme=20'bar=C3=A8me=20lin?=
 =?UTF-8?q?=C3=A9aire'?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 source/engine/mecanismViews/BarèmeLinéaire.js | 65 +++++++++++++++
 source/engine/mecanisms.js                    | 79 +++++++++++++++----
 2 files changed, 128 insertions(+), 16 deletions(-)
 create mode 100644 source/engine/mecanismViews/BarèmeLinéaire.js

diff --git a/source/engine/mecanismViews/BarèmeLinéaire.js b/source/engine/mecanismViews/BarèmeLinéaire.js
new file mode 100644
index 000000000..90ac252fc
--- /dev/null
+++ b/source/engine/mecanismViews/BarèmeLinéaire.js
@@ -0,0 +1,65 @@
+import React from 'react'
+import { makeJsx } from '../evaluation'
+import { Node } from './common'
+import { Trans } from 'react-i18next'
+
+export default function Barème(nodeValue, explanation) {
+	return (
+		<Node
+			classes="mecanism barèmeLinéaire"
+			name="barèmeLinéaire"
+			value={nodeValue}
+			child={
+				<ul className="properties">
+					<li key="assiette">
+						<span className="key">
+							<Trans>assiette</Trans>:{' '}
+						</span>
+						<span className="value">{makeJsx(explanation.assiette)}</span>
+					</li>
+					<table className="tranches">
+						<thead>
+							<tr>
+								<th>
+									<Trans>Tranches</Trans>
+								</th>
+								<th>
+									<Trans>Taux</Trans>
+								</th>
+							</tr>
+							{explanation.tranches.map(
+								({
+									'en-dessous de': maxOnly,
+									'au-dessus de': minOnly,
+									de: min,
+									à: max,
+									taux
+								}) => (
+									<tr
+										key={min || minOnly || 0}
+										style={{
+											fontWeight:
+												explanation.assiette.nodeValue > nodeValue * min &&
+												max &&
+												explanation.assiette.nodeValue < nodeValue * max
+													? ' bold'
+													: ''
+										}}>
+										<td key="tranche">
+											{maxOnly
+												? '< ' + maxOnly
+												: minOnly
+													? '> ' + minOnly
+													: `${min} - ${max}`}
+										</td>
+										<td key="taux"> {makeJsx(taux)} </td>
+									</tr>
+								)
+							)}
+						</thead>
+					</table>
+				</ul>
+			}
+		/>
+	)
+}
diff --git a/source/engine/mecanisms.js b/source/engine/mecanisms.js
index 61583604a..841a4ea00 100644
--- a/source/engine/mecanisms.js
+++ b/source/engine/mecanisms.js
@@ -52,6 +52,7 @@ import {
 import 'react-virtualized/styles.css'
 import Somme from './mecanismViews/Somme'
 import Barème from './mecanismViews/Barème'
+import BarèmeLinéaire from './mecanismViews/BarèmeLinéaire'
 import Allègement from './mecanismViews/Allègement'
 import Barème from './mecanismViews/Barème'
 import { trancheValue } from './mecanisms/barème'
@@ -693,19 +694,16 @@ export let mecanismProduct = (recurse, k, v) => {
 	}
 }
 
-export let mecanismScale = (recurse, k, v) => {
-	// Sous entendu : barème en taux marginaux.
-	// A étendre (avec une propriété type ?) quand les règles en contiendront d'autres.
-	if (v.composantes) {
-		//mécanisme de composantes. Voir known-mecanisms.md/composantes
-		return decompose(recurse, k, v)
-	}
-	if (v.variations) {
-		return devariate(recurse, k, v)
-	}
-
-	// on réécrit en une syntaxe plus bas niveau mais plus régulière les tranches :
-	let tranches = v['tranches']
+/* on réécrit en une syntaxe plus bas niveau mais plus régulière les tranches :
+	`en-dessous de: 1`
+	devient
+	```
+	de: 0
+	à: 1
+	```
+	*/
+let desugarScale = recurse => ({ tranches }) =>
+	tranches
 		.map(
 			t =>
 				has('en-dessous de')(t)
@@ -716,11 +714,60 @@ export let mecanismScale = (recurse, k, v) => {
 		)
 		.map(evolve({ taux: recurse }))
 
-	let objectShape = {
-		assiette: false,
-		'multiplicateur des tranches': constantNode(1)
+export let mecanismLinearScale = (recurse, k, v) => {
+	let tranches = desugarScale(recurse)(v['tranches']),
+		objectShape = {
+			assiette: false
+		}
+
+	let effect = ({ assiette, tranches }) => {
+		if (val(assiette) === null) return null
+
+		let matchedTranche = tranches.find(
+			({ de: min, à: max }) => val(assiette) >= min && val(assiette) < max
+		)
+
+		if (!matchedTranche)
+			throw new Error(
+				`Aucune tranche du barème ne correspond à l'assiette. Comment en est-on arrivés là ?`
+			)
+
+		return matchedTranche.taux.nodeValue * val(assiette)
 	}
 
+	let explanation = {
+			...parseObject(recurse, objectShape, v),
+			tranches
+		},
+		evaluate = evaluateObject(objectShape, effect)
+
+	return {
+		evaluate,
+		jsx: BarèmeLinéaire,
+		explanation,
+		category: 'mecanism',
+		name: 'barème linéaire',
+		barème: 'en taux',
+		type: 'numeric'
+	}
+}
+
+export let mecanismScale = (recurse, k, v) => {
+	// Sous entendu : barème en taux marginaux.
+	if (v.composantes) {
+		//mécanisme de composantes. Voir known-mecanisms.md/composantes
+		return decompose(recurse, k, v)
+	}
+	if (v.variations) {
+		return devariate(recurse, k, v)
+	}
+
+	let tranches = desugarScale(recurse)(v['tranches']),
+		objectShape = {
+			assiette: false,
+			'multiplicateur des tranches': constantNode(1)
+		}
+
 	let effect = ({
 		assiette,
 		'multiplicateur des tranches': multiplicateur,