diff options
| -rw-r--r-- | models/nutrient-value-set.rkt | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/models/nutrient-value-set.rkt b/models/nutrient-value-set.rkt deleted file mode 100644 index 5f3759a..0000000 --- a/models/nutrient-value-set.rkt +++ /dev/null @@ -1,98 +0,0 @@ -#lang racket - -(provide nutrient-value-set - nutrient-value-set? - nutrient-value-set-id - ;; nutrient-value-set-nm-id - ;; nutrient-value-set-nt-id - ;; nutrient-value-set-cr-id - ;; nutrient-value-set-fp-id - ;; SQL CRUD - (contract-out - [create-nutrient-value-set! (-> symbol? - exact-nonnegative-integer? - (listof (cons/c - nutrient? - number?)) - void?)] - [get-nutrient-value-set (->* () - (#:id exact-nonnegative-integer? - #:nutrient-measurement-id exact-nonnegative-integer? - #:nutrient-target-id exact-nonnegative-integer? - #:crop-requirement-id exact-nonnegative-integer? - #:fertilizer-product-id exact-nonnegative-integer?) - (or/c nutrient-value-set? #f))])) - -(require racket/contract - db - sql - "../db/conn.rkt" - "nutrient.rkt") - -(struct nutrient-value-set (id nm-id nt-id cr-id fp-id) #:transparent) - - -;; CREATE - -(define (create-nutrient-value-set! type id nutrient-values) - (define nvs (case type - [(nutrient-measurement) - (query-exec (current-conn) - (insert #:into nutrient_value_sets - #:set [nutrient_measurement_id ,id])) - (get-nutrient-value-set #:nutrient-measurement-id id)] - [(nutrient-target) - (query-exec (current-conn) - (insert #:into nutrient_value_sets - #:set [nutrient_target_id ,id])) - (get-nutrient-value-set #:nutrient-target-id id)] - [(crop-requirement) - (query-exec (current-conn) - (insert #:into nutrient_value_sets - #:set [crop_requirement_id ,id])) - (get-nutrient-value-set #:crop-requirement-id id)] - [(fertilizer-product) - (query-exec (current-conn) - (insert #:into nutrient_value_sets - #:set [fertilizer_product_id ,id])) - (get-nutrient-value-set #:fertilizer-product-id id)])) - (for ([nv nutrient-values]) - (match nv - [(cons n v) - (query-exec (current-conn) - (insert #:into nutrient_values - #:set - [value_set_id ,(nutrient-value-set-id nvs)] - [nutrient_id ,(nutrient-id n)] - [value_ppm ,v]))]))) - - -;; READ - -(define (get-nutrient-value-set #:id [id #f] - #:nutrient-measurement-id [nm #f] - #:nutrient-target-id [nt #f] - #:crop-requirement-id [cr #f] - #:fertilizer-product-id [fp #f]) - (define (where-expr) - (define clauses - (filter values - (list - (and id (format "id = ~e" id)) - (and nm (format "nutrient_measurement_id = ~e" nm)) - (and nt (format "nutrient_target_id = ~e" nt)) - (and cr (format "crop_requirement = ~e" cr)) - (and fp (format "fertilizer_product = ~e" fp))))) - (cond - [(null? clauses) ""] - [else (format "WHERE ~a" (string-join clauses " AND "))])) - (define query (string-join - `("SELECT *" - "FROM nutrient_value_sets" - ,(where-expr) - "ORDER BY id ASC" - "LIMIT 1"))) - (match (query-maybe-row (current-conn) query) - [(vector id* nm-id* nt-id* cr-id* fp-id*) - (nutrient-value-set id* nm-id* nt-id* cr-id* fp-id*)] - [#f #f])) |