Overview
| Comment: | itemmap table lookup needed to return the cdr of the found data. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
a01207a48a0a6296b1555e8142231e13 |
| User & Date: | matt on 2015-09-12 05:26:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-09-13
| ||
| 02:11 | More work on itemmaps check-in: 7f979aed51 user: matt tags: v1.60 | |
|
2015-09-12
| ||
| 05:26 | itemmap table lookup needed to return the cdr of the found data. check-in: a01207a48a user: matt tags: v1.60 | |
| 04:47 | Moved some parameters around to accomodate new itemmap method check-in: bf87ee76eb user: matt tags: v1.60 | |
Changes
Modified tests.scm from [d6b0970b9c] to [6518306e90].
| ︙ | ︙ | |||
96 97 98 99 100 101 102 |
;;
(define (tests:lookup-itemmap itemmaps testname)
(let ((best-matches (filter (lambda (itemmap)
(tests:match (car itemmap) testname #f))
itemmaps)))
(if (null? best-matches)
#f
| | | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
;;
(define (tests:lookup-itemmap itemmaps testname)
(let ((best-matches (filter (lambda (itemmap)
(tests:match (car itemmap) testname #f))
itemmaps)))
(if (null? best-matches)
#f
(cdr (car best-matches)))))
;; given test-b that is waiting on test-a extend test-patt appropriately
;;
;; genlib/testconfig sim/testconfig
;; genlib/sch sim/sch/cell1
;;
;; [requirements] [requirements]
|
| ︙ | ︙ |