Overview
Comment: | 90% converted to using units |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
3469edbbf71bd54c65fe90d2f06d0ccd |
User & Date: | matt on 2011-10-08 20:23:24 |
Other Links: | manifest | tags |
Context
2011-10-08
| ||
20:24 | Removed dboard.scm and references check-in: b2838227d5 user: matt tags: trunk | |
20:23 | 90% converted to using units check-in: 3469edbbf7 user: matt tags: trunk | |
2011-10-06
| ||
23:13 | Cleaned up initial db creation check-in: c2197e4738 user: matt tags: trunk | |
Changes
Modified Makefile from [42bf34d826] to [57ffe7107f].
1 2 3 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | + + + + - + + + + + + + + - - + + - - + + + + + + + + + + + | PREFIX=. SRCFILES = common.scm items.scm launch.scm \ ods.scm runconfig.scm server.scm configf.scm \ db.scm keys.scm margs.scm megatest-version.scm \ process.scm runs.scm |
︙ |
Modified common.scm from [219aacd413] to [1ca3176cc8].
︙ | |||
13 14 15 16 17 18 19 20 | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | + + + + - + - + - + - - - - - - - - - | (require-extension sqlite3 regex posix) (require-extension (srfi 18) extras tcp rpc) (import (prefix sqlite3 sqlite3:)) (import (prefix base64 base64:)) (declare (unit common)) (include "common_records.scm") ;; (require-library margs) |
︙ |
Added common_records.scm version [bde6e3a29e].
|
Modified configf.scm from [ed3f434b69] to [a51fff6b23].
︙ | |||
9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | + + + + + + + | ;; PURPOSE. ;;====================================================================== ;;====================================================================== ;; Config file handling ;;====================================================================== (use regex regex-case) (declare (unit configf)) (declare (uses common)) (declare (uses process)) (include "common_records.scm") ;; return list (path fullpath configname) (define (find-config configname) (let* ((cwd (string-split (current-directory) "/"))) (let loop ((dir cwd)) (let* ((path (conc "/" (string-intersperse dir "/"))) (fullpath (conc path "/" configname))) (if (file-exists? fullpath) |
︙ |
Modified dashboard-tests.scm from [73e81be525] to [8717c71756].
︙ | |||
8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | + + + + + + + + | ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;;====================================================================== ;;====================================================================== ;; Test info panel ;;====================================================================== (declare (unit dashboard-tests)) (declare (uses common)) (declare (uses db)) (declare (uses dboard)) (include "common_records.scm") (define (test-info-panel testdat store-label widgets) (iup:frame #:title "Test Info" ; #:expand "YES" (iup:hbox ; #:expand "YES" (apply iup:vbox ; #:expand "YES" (append (map (lambda (val) (iup:label val ; #:expand "HORIZONTAL" |
︙ |
Modified dashboard.scm from [df0771f76d] to [2309bc9461].
︙ | |||
12 13 14 15 16 17 18 | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | - - - - - - - - - - - - - + + + + + + + + + + + + + + | (use format) (require-library iup) (import (prefix iup iup:)) (use canvas-draw) (use sqlite3 srfi-1 posix regex regex-case srfi-69) |
︙ |
Modified db.scm from [8d36868f6d] to [861373d8a7].
︙ | |||
8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | + + + + + + + + + + + | ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;;====================================================================== ;;====================================================================== ;; Database access ;;====================================================================== (use sqlite3 srfi-1 posix regex regex-case srfi-69) (import (prefix sqlite3 sqlite3:)) (declare (unit db)) (declare (uses common)) (declare (uses keys)) (include "common_records.scm") (include "db_records.scm") (include "key_records.scm") (define (open-db) ;; (conc *toppath* "/megatest.db") (car *configinfo*))) (let* ((dbpath (conc *toppath* "/megatest.db")) ;; fname) (configdat (car *configinfo*)) (dbexists (file-exists? dbpath)) (db (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath)) (handler (make-busy-timeout 36000))) |
︙ | |||
233 234 235 236 237 238 239 | 244 245 246 247 248 249 250 251 252 253 254 255 256 257 | - - - | db "SELECT fieldname,fieldtype FROM keys ORDER BY id DESC;") (set! *db-keys* res) res))) (define db:get-keys db-get-keys) |
︙ | |||
310 311 312 313 314 315 316 | 318 319 320 321 322 323 324 325 326 327 328 329 330 331 | - - - | (lambda (count) (set! numruns count)) db "SELECT COUNT(id) FROM runs WHERE runname LIKE ?;" runpatt) numruns)) |
︙ | |||
340 341 342 343 344 345 346 | 345 346 347 348 349 350 351 352 353 354 355 356 357 358 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | (define (db:delete-run db run-id) (sqlite3:execute db "DELETE FROM runs WHERE id=?;" run-id)) ;;====================================================================== ;; T E S T S ;;====================================================================== |
︙ | |||
472 473 474 475 476 477 478 | 448 449 450 451 452 453 454 455 456 457 458 459 460 461 | - - - - - - - - - - - - - - - - - - - - - - | "UPDATE tests SET rundir=? WHERE run_id=? AND testname=? AND item_path=?;" rundir run-id testname item-path)) ;;====================================================================== ;; Tests meta data ;;====================================================================== |
︙ | |||
515 516 517 518 519 520 521 | 469 470 471 472 473 474 475 476 477 478 479 480 481 482 | - - - - - - - - - - - | ;; update one of the testmeta fields (define (db:testmeta-update-field db testname field value) (sqlite3:execute db (conc "UPDATE test_meta SET " field "=? WHERE testname=?;") value testname)) ;;====================================================================== ;; T E S T D A T A ;;====================================================================== |
︙ | |||
642 643 644 645 646 647 648 | 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | (define (db:get-prev-tol-for-test db test-id category variable) ;; Finish me? (values #f #f #f)) ;;====================================================================== ;; S T E P S ;;====================================================================== |
︙ |
Added db_records.scm version [5b29510193].