Overview
| Comment: | Fixed ! var handling. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
681c4c04e0479999d9c39ba33a6c961c |
| User & Date: | mrwellan on 2018-05-29 10:43:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-05-31
| ||
| 14:51 | Fixed couple problems with the MT_ var check added to dashboard check-in: eed93e5934 user: mrwellan tags: v1.65 | |
|
2018-05-29
| ||
| 10:43 | Fixed ! var handling. check-in: 681c4c04e0 user: mrwellan tags: v1.65 | |
| 09:12 | Bumped version check-in: 268ce73e8a user: mrwellan tags: v1.65 | |
Changes
Modified configf.scm from [14aabdff7b] to [5f25cf126e].
| ︙ | ︙ | |||
440 441 442 443 444 445 446 |
settings)
curr-section-name key #f)))
(configf:key-val-pr ( x key unk1 val unk2 )
(let* ((alist (hash-table-ref/default res curr-section-name '()))
(envar (and environ-patt
(string-search (regexp environ-patt) curr-section-name) ;; does the section match the envionpatt?
| > | | 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 |
settings)
curr-section-name key #f)))
(configf:key-val-pr ( x key unk1 val unk2 )
(let* ((alist (hash-table-ref/default res curr-section-name '()))
(envar (and environ-patt
(string-search (regexp environ-patt) curr-section-name) ;; does the section match the envionpatt?
(and (not (string-null? key))
(not (equal? "!" (substring key 0 1)))) ;; ! as leading character is a signature to NOT export to the environment
;; (string-match "^.*:.*:.*$" key) ;; ;; something:something:something reserved for triggers in runconfigs
))
(realval (if envar
(config:eval-string-in-environment val)
val)))
(debug:print-info 6 *default-log-port* "read-config env setting, envar: " envar " realval: " realval " val: " val " key: " key " curr-section-name: " curr-section-name)
(if envar (safe-setenv key realval))
|
| ︙ | ︙ |