Overview
| Comment: | added more uniform naming scheme to db:test-rec defstruct |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | defstruct-srehman |
| Files: | files | file ages | folders |
| SHA1: |
6ce8a4c44ed998cfc2a61f72ae2b5c56 |
| User & Date: | srehman on 2016-09-23 12:26:59 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-23
| ||
| 12:28 | sorted-tests tests for db:test-rec instead of vector check-in: e0b23f144a user: srehman tags: defstruct-srehman | |
| 12:26 | added more uniform naming scheme to db:test-rec defstruct check-in: 6ce8a4c44e user: srehman tags: defstruct-srehman | |
| 12:26 | fixed error with alist being passed instead of single defstruct check-in: 24ed7d9e0a user: srehman tags: defstruct-srehman | |
Changes
Modified db_records.scm from [c013213d68] to [4eb9714f45].
| ︙ | ︙ | |||
100 101 102 103 104 105 106 | (let* ((slot-val-pair (cons (string->symbol strhead) valhead))) (if (or (null? strtail) (null? valtail)) (cons slot-val-pair res);;(print strhead valhead));;(cons (cons (string->symbol strhead) valhead) res)) (loop (car strtail)(cdr strtail)(car valtail)(cdr valtail)(cons slot-val-pair res))))))) (define (db:test-get-id typed-rec) (db:test-rec-id typed-rec)) | | | | | | | | | | | | 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | (let* ((slot-val-pair (cons (string->symbol strhead) valhead))) (if (or (null? strtail) (null? valtail)) (cons slot-val-pair res);;(print strhead valhead));;(cons (cons (string->symbol strhead) valhead) res)) (loop (car strtail)(cdr strtail)(car valtail)(cdr valtail)(cons slot-val-pair res))))))) (define (db:test-get-id typed-rec) (db:test-rec-id typed-rec)) (define (db:test-get-run_id typed-rec) (db:test-rec-run-id typed-rec)) (define (db:test-get-testname typed-rec) (db:test-rec-test-name typed-rec)) (define (db:test-get-state typed-rec) (db:test-rec-state typed-rec)) (define (db:test-get-status typed-rec) (db:test-rec-status typed-rec)) (define (db:test-get-event_time typed-rec) (db:test-rec-event-time typed-rec)) (define (db:test-get-host typed-rec) (db:test-rec-host typed-rec)) (define (db:test-get-cpuload typed-rec) (db:test-rec-cpu-load typed-rec)) (define (db:test-get-diskfree typed-rec) (db:test-rec-disk-free typed-rec)) (define (db:test-get-uname typed-rec) (db:test-rec-uname typed-rec)) (define (db:test-get-rundir typed-rec) (db:test-rec-run-dir typed-rec)) (define (db:test-get-item-path typed-rec) (db:test-rec-item-path typed-rec)) (define (db:test-get-run_duration typed-rec) (db:test-rec-run-duration typed-rec)) (define (db:test-get-final_logf typed-rec) (db:test-rec-final-logf typed-rec)) (define (db:test-get-comment typed-rec) (db:test-rec-comment typed-rec)) (define (db:test-get-process_id typed-rec) (db:test-rec-process-id typed-rec)) (define (db:test-get-archived typed-rec) (db:test-rec-archived typed-rec)) ;; (define-inline (db:test-get-pass_count vec) (vector-ref vec 15)) ;; (define-inline (db:test-get-fail_count vec) (vector-ref vec 16)) (define-inline (db:test-get-fullname vec) (conc (db:test-get-testname vec) "/" (db:test-get-item-path vec))) |
| ︙ | ︙ |