Megatest

Check-in [993f84005f]
Login
Overview
Comment:Tweaks
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 993f84005f60b05578fed9933779b6fd4e178398
User & Date: mrwellan on 2013-11-12 14:13:36
Other Links: manifest | tags
Context
2013-11-12
21:12
More ported to inmem check-in: 662f6304a0 user: matt tags: trunk
14:13
Tweaks check-in: 993f84005f user: mrwellan tags: trunk
13:48
Dashboard and test control panel working check-in: 2c80291a8d user: mrwellan tags: trunk
Changes

Modified rmt.scm from [8065e3007a] to [277a7a3b51].

205
206
207
208
209
210
211
212

213
214
215
216
217
218
219
205
206
207
208
209
210
211

212
213
214
215
216
217
218
219







-
+







(define (rmt:get-runs runpatt count offset keypatts)
  (let* ((res  (rmt:send-receive 'get-runs (list runpatt count offset keypatts)))
	 (hedr (car res))
	 (data (cadr res)))
    (vector hedr (map list->vector data))))

(define (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit)
  (let* ((res  (rmt:send-receive 'get-runs-by-patt (list runpatt count offset keypatts)))
  (let* ((res  (rmt:send-receive 'get-runs-by-patt (list keys runnamepatt targpatt offset limit)))
	 (hedr (car res))
	 (data (cadr res)))
    (vector hedr (map list->vector data))))

(define (rmt:lock/unlock-run run-id lock unlock user)
  (rmt:send-receive 'lock/unlock-run (list run-id lock unlock user)))