Overview
Comment: | Added ; to list of whitespace characters to quote in setenv |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.55 | v1.5515 |
Files: | files | file ages | folders |
SHA1: |
68ba4dfea5d0715c3567b9107fc4da5d |
User & Date: | mrwellan on 2014-03-06 13:33:08 |
Other Links: | branch diff | manifest | tags |
Context
2014-03-22
| ||
19:06 | Fixed up makefile based installer for chicken/iup etc. check-in: 3afb28af9d user: matt tags: v1.55 | |
2014-03-06
| ||
20:20 | Merged fix for ; in env var values check-in: 559d63b4f3 user: matt tags: v1.60 | |
13:33 | Added ; to list of whitespace characters to quote in setenv check-in: 68ba4dfea5 user: mrwellan tags: v1.55, v1.5515 | |
2014-02-26
| ||
23:50 | Moved iup to latest check-in: 60f2b5efd6 user: matt tags: v1.55 | |
Changes
Modified common.scm from [f48af6074c] to [e3b1ca025a].
︙ | ︙ | |||
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)))) |
︙ | ︙ |