From 06f941636a99904671c89916e17f28de4b2cd07e Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 18 Nov 2023 11:33:24 +0100
Subject: Reorganize DB handler and fetch first dataset

---
 scripts/precompute/precompute-hits.scm | 43 +++++++++++-----------------------
 1 file changed, 14 insertions(+), 29 deletions(-)

(limited to 'scripts')

diff --git a/scripts/precompute/precompute-hits.scm b/scripts/precompute/precompute-hits.scm
index acd7cdf..a6617d9 100755
--- a/scripts/precompute/precompute-hits.scm
+++ b/scripts/precompute/precompute-hits.scm
@@ -16,45 +16,30 @@
 ;;    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)
+     ;(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)))
+     ;(let [(result (get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))]
+     ;  (display (car result)))
 
-     (newline)
+     ;(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)
+     ;(dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3")
+     ;(let [(row (get-row db))]
+     ;  (display row)
+     ;  )
+     ;(db-check2 db)
+     ;(newline)
+     ;; get first dataset for precompute
+     (dbi-query db "select ProbeSetId, Locus, DataId from ProbeSetXRef where Locus_old is NULL LIMIT 1")
+     (display (get-row db))
      (newline)
 )))
-- 
cgit v1.2.3