[Racket] Ferti hydroponic nutrient solver, redux.
Remove dead code.
Changed files
models/crop-requirement.rkt
@@ -28,12 +28,6 @@
28
28
nutrient?
29
29
number?)]
30
30
[get-latest-crop-requirement-value (-> nutrient? number?)]
31
Removed:
#; [update-crop-requirement! (->* (crop-requirement?)
32
Removed:
(#:profile (or/c #f string?)
33
Removed:
#:nutrient-values (or/c #f (listof (cons/c
34
Removed:
nutrient?
35
Removed:
number?))))
36
Removed:
(or/c crop-requirement? #f))]
37
31
[delete-crop-requirement! (-> crop-requirement?
38
32
void?)]))
39
33
models/crop.rkt
@@ -10,11 +10,11 @@
10
10
[create-crop! (-> string? void?)]
11
11
[get-crops (-> (listof crop?))]
12
12
[get-crop (->* ()
13
Removed:
(#:id (or/c #f exact-nonnegative-integer?)
14
Removed:
#:name (or/c #f string?))
13
Added:
(#:id (or/c #f exact-nonnegative-integer?)
14
Added:
#:name (or/c #f string?))
15
15
(or/c crop? #f))]
16
16
[update-crop! (->* (exact-nonnegative-integer?)
17
Removed:
(#:name (or/c #f string?))
17
Added:
(#:name (or/c #f string?))
18
18
(or/c crop? #f))]
19
19
[delete-crop! (-> exact-nonnegative-integer? void?)]))
20
20
models/nutrient-measurement.rkt
@@ -25,12 +25,6 @@
25
25
nutrient?
26
26
number?)]
27
27
[get-latest-nutrient-measurement-value (-> nutrient? number?)]
28
Removed:
#; [update-nutrient-measurement! (->* (nutrient-measurement?)
29
Removed:
(#:measured-on (or/c #f string?)
30
Removed:
#:nutrient-values (or/c #f (listof (cons/c
31
Removed:
nutrient?
32
Removed:
number?))))
33
Removed:
(or/c nutrient-measurement? #f))]
34
28
[delete-nutrient-measurement! (-> nutrient-measurement?
35
29
void?)]))
36
30
@@ -145,48 +139,6 @@
145
139
146
140
147
141
;; UPDATE
148
Removed:
149
Removed:
#; (define (update-nutrient-measurement! nutrient-measurement
150
Removed:
#:measured-on [measured-on #f]
151
Removed:
#:nutrient-values [nutrient-values '()])
152
Removed:
(define nm-id (nutrient-measurement-id nutrient-measurement))
153
Removed:
(define (nvs-id nm-id)
154
Removed:
(query-maybe-row (current-conn)
155
Removed:
(select id
156
Removed:
#:from nutrient_value_sets
157
Removed:
#:where (= nutrient_measurement_id ,nm-id))))
158
Removed:
(with-tx
159
Removed:
(when measured-on
160
Removed:
(query-exec (current-conn)
161
Removed:
(update nutrient_measurements
162
Removed:
#:set [measured_on ,measured-on]
163
Removed:
#:where (= id ,id))))
164
Removed:
(unless (null? nutrient-values)
165
Removed:
(upsert-nutrient-values nm-id))
166
Removed:
(get-nutrient-measurement #:id id)))
167
Removed:
168
Removed:
#; (define (upsert-nutrient-values nutrient-measurement-id)
169
Removed:
(define maybe-nvs-id (nvs-id nm-id))
170
Removed:
(case maybe-nvs-id
171
Removed:
[(#f)
172
Removed:
(query-exec (current-conn)
173
Removed:
(insert #:into nutrient_values_sets
174
Removed:
#:set
175
Removed:
[nutrient_measurement_id ,id]))
176
Removed:
(define new-nvs-id (nvs-id nm-id))
177
Removed:
(query-exec (current-conn)
178
Removed:
(string-join
179
Removed:
'("INSERT INTO nutrient_values"
180
Removed:
"VALUES $1 $2 $3"
181
Removed:
""))
182
Removed:
new-nvs-id
183
Removed:
)]
184
Removed:
[else
185
Removed:
(query-exec (current-conn)
186
Removed:
(update nutrient_measurement_values
187
Removed:
#:set [value ,value]
188
Removed:
#:where (and (= measurement_id ,measurement-id)
189
Removed:
(= nutrient_id ,nutrient-id))))]))
190
142
191
143
192
144
;; DELETE
models/nutrient-target.rkt
@@ -20,19 +20,11 @@
20
20
(or/c #f string?))
21
21
(or/c nutrient-target? #f))]
22
22
[get-nutrient-target-values (-> nutrient-target?
23
Removed:
(listof (cons/c
24
Removed:
nutrient?
25
Removed:
number?)))]
23
Added:
(listof (cons/c nutrient? number?)))]
26
24
[get-nutrient-target-value (-> nutrient-target?
27
25
nutrient?
28
26
number?)]
29
27
[get-latest-nutrient-target-value (-> nutrient? number?)]
30
Removed:
#; [update-nutrient-target! (->* (nutrient-target?)
31
Removed:
(#:effective-on (or/c #f string?)
32
Removed:
#:nutrient-values (or/c #f (listof (cons/c
33
Removed:
nutrient?
34
Removed:
number?))))
35
Removed:
(or/c nutrient-target? #f))]
36
28
[delete-nutrient-target! (-> nutrient-target?
37
29
void?)]))
38
30
@@ -48,7 +40,6 @@
48
40
49
41
;; CREATE
50
42
51
Removed:
52
43
(define (create-nutrient-target! effective-on nutrient-values)
53
44
(define existing-nutrient-target (get-nutrient-target #:effective-on effective-on))
54
45
(define (new-nutrient-target)
@@ -148,48 +139,6 @@
148
139
149
140
150
141
;; UPDATE
151
Removed:
152
Removed:
#; (define (update-nutrient-target! nutrient-target
153
Removed:
#:effective-on [effective-on #f]
154
Removed:
#:nutrient-values [nutrient-values '()])
155
Removed:
(define nm-id (nutrient-target-id nutrient-target))
156
Removed:
(define (nvs-id nm-id)
157
Removed:
(query-maybe-row (current-conn)
158
Removed:
(select id
159
Removed:
#:from nutrient_value_sets
160
Removed:
#:where (= nutrient_target_id ,nm-id))))
161
Removed:
(with-tx
162
Removed:
(when effective-on
163
Removed:
(query-exec (current-conn)
164
Removed:
(update nutrient_targets
165
Removed:
#:set [effective_on ,effective-on]
166
Removed:
#:where (= id ,id))))
167
Removed:
(unless (null? nutrient-values)
168
Removed:
(upsert-nutrient-values nm-id))
169
Removed:
(get-nutrient-target #:id id)))
170
Removed:
171
Removed:
#; (define (upsert-nutrient-values nutrient-target-id)
172
Removed:
(define maybe-nvs-id (nvs-id nm-id))
173
Removed:
(case maybe-nvs-id
174
Removed:
[(#f)
175
Removed:
(query-exec (current-conn)
176
Removed:
(insert #:into nutrient_values_sets
177
Removed:
#:set
178
Removed:
[nutrient_target_id ,id]))
179
Removed:
(define new-nvs-id (nvs-id nm-id))
180
Removed:
(query-exec (current-conn)
181
Removed:
(string-join
182
Removed:
'("INSERT INTO nutrient_values"
183
Removed:
"VALUES $1 $2 $3"
184
Removed:
""))
185
Removed:
new-nvs-id
186
Removed:
)]
187
Removed:
[else
188
Removed:
(query-exec (current-conn)
189
Removed:
(update nutrient_target_values
190
Removed:
#:set [value ,value]
191
Removed:
#:where (and (= target_id ,target-id)
192
Removed:
(= nutrient_id ,nutrient-id))))]))
193
142
194
143
195
144
;; DELETE