Megatest

Check-in [d4d4478245]
Login
Overview
Comment:blacklist PROMPT_COMMAND
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | blacklist_PROMPT_COMMAND
Files: files | file ages | folders
SHA1: d4d4478245d5b64cf72c8f76620224d41cf1bee0
User & Date: mmgraham on 2024-08-26 19:41:00
Other Links: branch diff | manifest | tags
Context
2024-08-26
20:12
CI/CD: Automated commit after successful test, build, and deploy for blacklist_PROMPT_COMMAND check-in: 61daf744b8 user: fdiskadm tags: v1.81
19:41
blacklist PROMPT_COMMAND Leaf check-in: d4d4478245 user: mmgraham tags: blacklist_PROMPT_COMMAND
2024-08-22
12:23
Changed Megatest version to v1.8103 check-in: 3d29f35278 user: icfadm tags: v1.81
Changes

Modified common.scm from [c6c75a6980] to [5c226366fd].

2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
	 (sort (hash-table-keys directories) (lambda (a b)(> (string-length a)(string-length b))))))
    ))

;;======================================================================
;; E N V I R O N M E N T   V A R S
;;======================================================================

(define (save-environment-as-files fname #!key (ignorevars (list "USER" "HOME" "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR" "MAKEFLAGS" "MAKEF" "MAKEOVERRIDES" "HOSTNAME")))
  ;;(bb-check-path msg: "save-environment-as-files entry")
  (let ((envvars (get-environment-variables))
        (whitesp (regexp "[^a-zA-Z0-9_\\-:,\\.\\/%$]"))
	(mungeval (lambda (val)
		    (cond
		     ((eq? val #t) "") ;; convert #t to empty string
		     ((eq? val #f) #f) ;; convert #f to itself (still thinking about this one







|







2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
	 (sort (hash-table-keys directories) (lambda (a b)(> (string-length a)(string-length b))))))
    ))

;;======================================================================
;; E N V I R O N M E N T   V A R S
;;======================================================================

(define (save-environment-as-files fname #!key (ignorevars (list "USER" "HOME" "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR" "MAKEFLAGS" "MAKEF" "MAKEOVERRIDES" "HOSTNAME" "PROMPT_COMMAND")))
  ;;(bb-check-path msg: "save-environment-as-files entry")
  (let ((envvars (get-environment-variables))
        (whitesp (regexp "[^a-zA-Z0-9_\\-:,\\.\\/%$]"))
	(mungeval (lambda (val)
		    (cond
		     ((eq? val #t) "") ;; convert #t to empty string
		     ((eq? val #f) #f) ;; convert #f to itself (still thinking about this one