Overview
| Comment: | Must quote strings for the environment if they contain ; |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
aa1906bbebf22d45ff17cbddab0c2b66 |
| User & Date: | mrwellan on 2013-12-10 17:01:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-12-11
| ||
| 22:37 | Better handling of comment editing on waived in the test control panel check-in: 7fcc4d2c40 user: matt tags: v1.55 | |
|
2013-12-10
| ||
| 17:01 | Must quote strings for the environment if they contain ; check-in: aa1906bbeb user: mrwellan tags: v1.55 | |
|
2013-12-09
| ||
| 23:12 | Added install of zmq from git clone check-in: 6c88a76a75 user: matt tags: v1.55 | |
Changes
Modified common.scm from [e3b1ca025a] to [f48af6074c].
| ︙ | ︙ | |||
321 322 323 324 325 326 327 |
(uname #f))
(if (null? (car uname-res))
"unknown"
(caar uname-res))))
(define (save-environment-as-files fname #!key (ignorevars (list "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR")))
(let ((envvars (get-environment-variables))
| | | 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 |
(uname #f))
(if (null? (car uname-res))
"unknown"
(caar uname-res))))
(define (save-environment-as-files fname #!key (ignorevars (list "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR")))
(let ((envvars (get-environment-variables))
(whitesp (regexp "[^a-zA-Z0-9_\\-:,.\\/%$]")))
(with-output-to-file (conc fname ".csh")
(lambda ()
(for-each (lambda (key)
(if (not (member key ignorevars))
(let* ((val (cdr key))
(sval (if (string-search whitesp val)(conc "\"" val "\"") val)))
(print "setenv " (car key) " " sval))))
|
| ︙ | ︙ |