blob: acd7cdf53000c424b5b504dd037545177f3cdbc4 (
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
|
#! Run from base dir with
.guix-shell -- guile -L . -s ./scripts/precompute/precompute-hits.scm
!#
(use-modules (dbi dbi)
(gn db mysql)
(gn data strains)
(rnrs base)
(ice-9 match)
)
;; potentially you want to test connection with mysql client:
;;
;; mysql -uwebqtlout -pwebqtlout -A -h 127.0.0.1 -P 3306 db_webqtl -e "show tables;"
;;
#!
(db-query "SELECT * FROM ProbeSetXRef LIMIT 3")
(db-check)
(let [(row (db-get-row))]
(display row)
)
!#
(call-with-db
(lambda (db)
(begin
(dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
(let [(row (get-row db))]
(display row)
)
(newline)
(dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
(let [(row (get-row db))]
(display row)
)
(newline)
; (dbi-query db "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = 1 AND Used_for_mapping='Y' ORDER BY StrainId;")
; (let [(row (get-row db))]
; (display row)
; )
(let [(result (get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))]
(display (car result)))
(newline)
(define bxd-strains (bxd-strain-id-names #:map? #t))
(newline)
(display bxd-strains)
(display (assoc 64728 bxd-strains))
(newline)
(newline)
(dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
(let [(row (get-row db))]
(display row)
)
(db-check2 db)
(newline)
)))
|
