Megatest

Check-in [68ba4dfea5]
Login
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: 68ba4dfea5d0715c3567b9107fc4da5d086f8589
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
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))))







|







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))))