Megatest

Check-in [a001774542]
Login
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: a00177454224cbad76c210cdb433359f7628ff07
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
279

280
281
282
283
284
285
286
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 *common:this-exe-dir* ))))
         (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))