1
2
3
4
5
6
7
8
|
(use srfi-18 srfi-69)
(define args (argv))
(if (not (eq? (length args) 2))
(begin
(print "Usage: sqlitecompare [insert|update]")
(exit 0)))
|
|
|
1
2
3
4
5
6
7
8
|
(use srfi-18 srfi-69 apropos)
(define args (argv))
(if (not (eq? (length args) 2))
(begin
(print "Usage: sqlitecompare [insert|update]")
(exit 0)))
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
(list run-id factor)
(let ((new-id (+ max-run-id 1)))
(set! max-run-id new-id)
(hash-table-set! run-ids factor new-id)
(list new-id factor)))))
(define (create-tests db)
(let ((num-created 0)
(last-print (current-seconds))
(start-time (current-seconds)))
(for-each
(lambda (test)
(for-each
(lambda (item)
|
|
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
(list run-id factor)
(let ((new-id (+ max-run-id 1)))
(set! max-run-id new-id)
(hash-table-set! run-ids factor new-id)
(list new-id factor)))))
(define (create-tests stmth)
(let ((num-created 0)
(last-print (current-seconds))
(start-time (current-seconds)))
(for-each
(lambda (test)
(for-each
(lambda (item)
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
(factor (cadr run-id-dat))
(curr-time (current-seconds)))
(if (> (- curr-time last-print) 10)
(begin
(print "Adding " run-id " " test " " item " " factor " (added " num-created " records so far)")
(set! last-print curr-time)))
(set! num-created (+ num-created 1))
(register-test db
run-id
test ;; testname
host
cpuload
diskfree
uname
(conc basedir "/" test "/" item) ;; rundir
|
|
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
(factor (cadr run-id-dat))
(curr-time (current-seconds)))
(if (> (- curr-time last-print) 10)
(begin
(print "Adding " run-id " " test " " item " " factor " (added " num-created " records so far)")
(set! last-print curr-time)))
(set! num-created (+ num-created 1))
(register-test stmth ;; db
run-id
test ;; testname
host
cpuload
diskfree
uname
(conc basedir "/" test "/" item) ;; rundir
|