Overview
| Comment: | Moved sauth and datashare files to appropriate subdirs, commented couple more unused functions. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6569-diet |
| Files: | files | file ages | folders |
| SHA1: |
155720494afcc761cd48f68bef2e9082 |
| User & Date: | matt on 2021-01-16 23:19:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-01-18
| ||
| 15:22 | Merged diet2 and fixed wrong use of optional (should be key). Closed-Leaf check-in: 8a73112be8 user: matt tags: v1.6569-diet | |
|
2021-01-17
| ||
| 13:03 | Merged diet branch Closed-Leaf check-in: 84be6d275a user: matt tags: v1.6569-reenable-eval-if | |
|
2021-01-16
| ||
| 23:19 | Moved sauth and datashare files to appropriate subdirs, commented couple more unused functions. check-in: 155720494a user: matt tags: v1.6569-diet | |
| 23:10 | Sort danglers by name if same count. Few more orpaned functions commented out check-in: 4f82003dc0 user: matt tags: v1.6569-diet | |
Changes
Name change from datashare.scm to datashare-src/datashare.scm.
| ︙ | ︙ |
Modified db.scm from [138ed10f64] to [1d483e1919].
| ︙ | ︙ | |||
3393 3394 3395 3396 3397 3398 3399 | (loop (+ new-id 1)) (begin (debug:print-info 0 *default-log-port* "New test id " new-id " selected for test with id " test-id) (sqlite3:execute mtdb "UPDATE tests SET id=? WHERE id=?;" new-id test-id))))))) ;; move test ids into the 30k * run_id range ;; | | | | 3393 3394 3395 3396 3397 3398 3399 3400 3401 3402 3403 3404 3405 3406 3407 3408 3409 3410 3411 3412 3413 3414 3415 3416 3417 3418 3419 |
(loop (+ new-id 1))
(begin
(debug:print-info 0 *default-log-port* "New test id " new-id " selected for test with id " test-id)
(sqlite3:execute mtdb "UPDATE tests SET id=? WHERE id=?;" new-id test-id)))))))
;; move test ids into the 30k * run_id range
;;
#;(define (db:prep-megatest.db-adj-test-ids mtdb run-id testrecs)
(debug:print-info 0 *default-log-port* "Adjusting test ids in megatest.db for run " run-id)
(let ((min-test-id (* run-id 30000)))
(for-each
(lambda (testrec)
(let* ((test-id (vector-ref testrec (db:field->number "id" db:test-record-fields))))
(db:adj-test-id (db:dbdat-get-db mtdb) min-test-id test-id)))
testrecs)))
;; 1. move test ids into the 30k * run_id range
;; 2. move step ids into the 30k * run_id range
;;
#;(define (db:prep-megatest.db-for-migration mtdb)
(let* ((run-ids (db:get-all-run-ids mtdb)))
(for-each
(lambda (run-id)
(let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id)))
(db:prep-megatest.db-adj-test-ids (db:dbdat-get-db mtdb) run-id testrecs)))
run-ids)))
|
| ︙ | ︙ |
Name change from sauth-common.scm to sauth-src/sauth-common.scm.
| ︙ | ︙ |