Overview
Comment: | Preserve the alist until the db call |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-adjutant |
Files: | files | file ages | folders |
SHA1: |
b356719831c4641a35b0d09a91ec398b |
User & Date: | matt on 2020-09-23 00:12:10 |
Other Links: | branch diff | manifest | tags |
Context
2020-09-23
| ||
00:26 | Preserve the alist until the db call, still not right check-in: 4348e8b681 user: matt tags: v1.65-adjutant | |
00:12 | Preserve the alist until the db call check-in: b356719831 user: matt tags: v1.65-adjutant | |
2020-09-22
| ||
23:47 | Read the vars string into an alist check-in: b4d3984a1c user: matt tags: v1.65-adjutant | |
Changes
Modified db.scm from [2551c101d6] to [d71098266f].
︙ | |||
2152 2153 2154 2155 2156 2157 2158 | 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 | + + + + - + | ;; last-update-seconds cpuload tmpspace rundirspace (sqlite3:execute db "CREATE TABLE IF NOT EXISTS test_extra_data (id INTEGER PRIMARY KEY, run_id INTEGER, test_id INTEGER, last_seen_running INTEGER);") (sqlite3:execute db "PRAGMA synchronous = 0;") db)) (define (db:no-sync-add-job db-in host-type vars-list exekey cmdline) (sqlite3:execute (db:no-sync-db db-in) "INSERT INTO jobs_queue (host_type,vars,exekey,cmdline,state,event_time,last_update) VALUES (?,?,?,?,?,?,?);" host-type (with-output-to-string (lambda () (write vars-list))) |
︙ |
Modified launch.scm from [74747a8909] to [e6eda0515a].
︙ | |||
1587 1588 1589 1590 1591 1592 1593 | 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 | - + | (list remote-megatest "-adjutant" (launch:ajt-host-type ajtdat) "-start-dir" *toppath*))) (adj-cmd (conc (string-intersperse (map conc adjutant-runner-cmd) " ") "&"))) (rmt:no-sync-add-job (launch:ajt-host-type ajtdat) |
︙ |