Overview
| Comment: | Tweaks |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
993f84005f60b05578fed9933779b6fd |
| 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 |
(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)
| | | 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 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)))
|
| ︙ | ︙ |