Overview
| Comment: | Moved sauth and datashare files to appropriate subdirs, commented couple more unused functions. From: 155720494afcc761cd48f68bef2e9082383d4a71 User: matt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6569-newdiet |
| Files: | files | file ages | folders |
| SHA1: |
2e69e9bd3835e5d2c0047a2c6d59d9b4 |
| User & Date: | matt on 2021-02-25 15:48:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-25
| ||
| 15:49 | Sort danglers by name if same count. Few more orpaned functions commented out From: 4f82003dc0af1a95e10a23cc60a91b9b5ce9b461 User: matt check-in: 1dabfeb322 user: matt tags: v1.6569-newdiet | |
| 15:48 | Moved sauth and datashare files to appropriate subdirs, commented couple more unused functions. From: 155720494afcc761cd48f68bef2e9082383d4a71 User: matt check-in: 2e69e9bd38 user: matt tags: v1.6569-newdiet | |
| 15:47 | Merged diet2 and fixed wrong use of optional (should be key). From: 8a73112be852c6b8910157005985773a412cf768 User: matt check-in: 357ee76968 user: matt tags: v1.6569-newdiet | |
Changes
Name change from datashare.scm to datashare-src/datashare.scm.
| ︙ | ︙ |
Modified db.scm from [ed256dd44f] to [f862bbd4f0].
| ︙ | ︙ | |||
3450 3451 3452 3453 3454 3455 3456 | (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 ;; | | | | 3450 3451 3452 3453 3454 3455 3456 3457 3458 3459 3460 3461 3462 3463 3464 3465 3466 3467 3468 3469 3470 3471 3472 3473 3474 3475 3476 |
(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.
| ︙ | ︙ |