blob: 3c3f018c105741eee0cc066901411799dc2c2e6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#lang racket
(provide seed-database!)
(require csv-reading
racket/runtime-path
"conn.rkt"
"../models/nutrient.rkt"
"../models/nutrient-measurement.rkt"
"../models/crop.rkt"
"../models/crop-requirement.rkt"
"../models/crop-rotation.rkt"
"../models/fertilizer-product.rkt")
(define (seed-database!)
(for ([seed-function (in-list (seed-sequence))])
(seed-function)))
(define (seed-sequence)
(list seed-nutrients!
seed-historical-nutrient-measurements!
seed-crops!
seed-crop-requirements!
seed-initial-crop-rotation!
seed-existing-fertilizer-products!))
(define (seed-nutrients!)
(define nutrient-names (map nutrient-canonical-name (get-nutrients)))
(define default-nutrients
'(("Nitrate Nitrogen" "Azote nitrique" "NNO3") ("Phosphorus" "Phosphore" "P")
("Potassium" "Potassium" "K")
("Calcium" "Calcium" "Ca")
("Magnesium" "Magnésium" "Mg")
("Sulfur" "Soufre" "S")
("Sodium" "Sodium" "Na")
("Chloride" "Chlore" "Cl")
("Silicon" "Silicium" "Si")
("Iron" "Fer" "Fe")
("Zinc" "Zinc" "Zn")
("Boron" "Bore" "B")
("Manganese" "Manganèse" "Mn")
("Copper" "Cuivre" "Cu")
("Molybdenum" "Molybdène" "Mo")
("Ammonium Nitrogen" "Azote ammoniacal" "NNH4")))
(with-tx (for ([nutrient-data (in-list default-nutrients)])
(match-define (list canonical-name french-name formula) nutrient-data)
(unless (member canonical-name nutrient-names)
(create-nutrient! canonical-name french-name formula)))))
(define-runtime-path nutrient-measurements-csv "data/dolibarr_nutrient_measurements_ppm.csv")
(define (seed-historical-nutrient-measurements!)
(define next-row (make-csv-reader (open-input-file nutrient-measurements-csv)))
(define header (next-row))
(define (row->seed! row)
(define row-alist (map cons header row))
(define measurement-date (cdr (first row-alist)))
(define nutrient-values
(for/hash ([nm (in-list (cdr row-alist))])
(define formula (car nm))
(define n (get-nutrient #:formula formula))
(define v (string->number (cdr nm)))
(values n v)))
(unless (get-nutrient-measurement #:date measurement-date)
(create-nutrient-measurement! measurement-date nutrient-values)))
(with-tx (csv-for-each row->seed! next-row)))
(define (seed-crops!)
(define crop-names (map crop-name (get-crops)))
(define default-crops '("salade" "laitue" "tomate" "framboise"))
(with-tx (for ([name (in-list default-crops)])
;; Ensure idempotence
(unless (member name crop-names)
(create-crop! name)))))
(define-runtime-path crop-requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
(define (seed-crop-requirements!)
(define next-row (make-csv-reader (open-input-file crop-requirements-csv)))
(define header (next-row))
(define (row->seed! row)
(define row-alist (map cons header row))
(define crop-name (string-downcase (cdr (assoc "Plante" row-alist))))
(define profile (cdr (assoc "Profil" row-alist)))
(define nutrient-values
(for/hash ([crop-requirement (in-list (list-tail row-alist 2))])
(define formula (car crop-requirement))
(define n (get-nutrient #:formula formula))
(define v (string->number (cdr crop-requirement)))
(values n v)))
(unless (get-crop-requirement #:profile profile)
(cond
[(non-empty-string? crop-name)
(define crop (get-crop #:name crop-name))
(create-crop-requirement! profile nutrient-values crop)]
[else (create-crop-requirement! profile nutrient-values)])))
(with-tx (csv-for-each row->seed! next-row)))
(define (seed-initial-crop-rotation!)
(define nm (get-latest-nutrient-measurement))
(define generic-requirement (get-crop-requirement #:profile "générique croissance"))
(create-crop-rotation! (nutrient-measurement-date nm) (hash generic-requirement 100)))
(define-runtime-path fertilizer-products-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
(define (seed-existing-fertilizer-products!)
(define next-row (make-csv-reader (open-input-file fertilizer-products-csv)))
(define header (next-row))
(define (row->seed! row)
(define row-alist (map cons header row))
(define canonical-name (cdr (assoc "Libellé" row-alist)))
(define brand-name (cdr (assoc "Nom commercial" row-alist)))
(define nutrient-values
(for/hash ([fertilizer-component (in-list (list-tail row-alist 3))])
(define n (get-nutrient #:formula (car fertilizer-component)))
(define v (string->number (cdr fertilizer-component)))
(values n v)))
(unless (get-fertilizer-product #:canonical-name canonical-name)
(create-fertilizer-product! canonical-name brand-name nutrient-values)))
(with-tx (csv-for-each row->seed! next-row)))
(module+ test
(require "migrations.rkt")
(connect! #:path 'memory)
(migrate-all!)
(seed-database!))
|
