Overview
| Comment: | Removed some instrumentation prints |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
a82cbcca564bc207716caa75e362ac6b |
| User & Date: | matt on 2013-07-29 21:49:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-30
| ||
| 00:10 | Fixed bad call to tests:get-testconfig check-in: f0e28a5916 user: mrwellan tags: v1.55 | |
|
2013-07-29
| ||
| 21:49 | Removed some instrumentation prints check-in: a82cbcca56 user: matt tags: v1.55 | |
| 21:43 | Corrected v1.5511, removed new api for now. check-in: 0c4560a7b9 user: matt tags: v1.55 | |
Changes
Modified mt.scm from [0026287ae9] to [d487a83914].
| ︙ | ︙ | |||
41 42 43 44 45 46 47 | ;; to extract info from the structure returned ;; (define (mt:get-runs-by-patt keys runnamepatt targpatt) (let loop ((runsdat (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt 0 500)) (res '()) (offset 0) (limit 500)) | | | | 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
;; to extract info from the structure returned
;;
(define (mt:get-runs-by-patt keys runnamepatt targpatt)
(let loop ((runsdat (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt 0 500))
(res '())
(offset 0)
(limit 500))
;; (print "runsdat: " runsdat)
(let* ((header (vector-ref runsdat 0))
(runslst (vector-ref runsdat 1))
(full-list (append res runslst))
(have-more (eq? (length runslst) limit)))
;; (debug:print 0 "header: " header " runslst: " runslst " have-more: " have-more)
(if have-more
(let ((new-offset (+ offset limit))
(next-batch (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt offset limit)))
(debug:print-info 4 "More than " limit " runs, have " (length full-list) " runs so far.")
(debug:print-info 0 "next-batch: " next-batch)
(loop next-batch
full-list
|
| ︙ | ︙ |