Overview
| Comment: | Fixed a missed update for removal of globals initialized at runtime |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-modularization |
| Files: | files | file ages | folders |
| SHA1: |
a00177454224cbad76c210cdb433359f |
| User & Date: | matt on 2018-04-02 23:54:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-04-04
| ||
| 14:47 | Fixed few more missing license and copyright notices check-in: 39082cc602 user: mrwellan tags: v1.65-modularization | |
|
2018-04-02
| ||
| 23:54 | Fixed a missed update for removal of globals initialized at runtime check-in: a001774542 user: matt tags: v1.65-modularization | |
| 11:36 | Updated couple license headers, removed some junk files check-in: 8f16c92785 user: mrwellan tags: v1.65-modularization | |
Changes
Modified dashboard-context-menu.scm from [7a40a3bd46] to [569df0382e].
| ︙ | ︙ | |||
272 273 274 275 276 277 278 |
;; item8 custom show megatest root (%mt-root%):echo "%mt-root%"
;; item9 custom ls : ls -lrt
;; item10 custom see $MT_RUN_AREA_HOME (not yet implemented) : echo $MT_RUN_AREA_HOME
(define (dashboard:custom-menu-items run-id test-id target run-name test-name testpatt item-test-path test-info)
(let* ((vars (configf:section-vars *configdat* "custom-context-menu-items"))
(item-path (db:test-get-item-path test-info))
| | | 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 |
;; item8 custom show megatest root (%mt-root%):echo "%mt-root%"
;; item9 custom ls : ls -lrt
;; item10 custom see $MT_RUN_AREA_HOME (not yet implemented) : echo $MT_RUN_AREA_HOME
(define (dashboard:custom-menu-items run-id test-id target run-name test-name testpatt item-test-path test-info)
(let* ((vars (configf:section-vars *configdat* "custom-context-menu-items"))
(item-path (db:test-get-item-path test-info))
(mt-root (pathname-directory (pathname-directory (pathname-directory (common:get-this-exe-fullpath)))))) ;; *common:this-exe-dir* ))))
(filter-map
(lambda (var)
(let* ((val (configf:lookup *configdat* "custom-context-menu-items" var))
(m (string-match "^\\s*([^:]+?)\\s*:\\s*(.*?)\\s*$" val)))
(if m
(let* ((menu-item-text-raw (list-ref m 1))
(command-line-raw (list-ref m 2))
|
| ︙ | ︙ |