Megatest

Check-in [59a626c53f]
Login
Overview
Comment:fixed bug introduced in last commit where run-a-command was not backgrounding
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65 | v1.6517
Files: files | file ages | folders
SHA1: 59a626c53fe61faf9fd4a1565814c0087d38e8b0
User & Date: bjbarcla on 2018-12-06 16:56:21
Other Links: branch diff | manifest | tags
Context
2018-12-19
15:48
Fixed area-script trigger in mtutil to apply contour options to script check-in: 738e6abeed user: jmoon18 tags: v1.65, v1.6518
2018-12-06
18:14
added hooks for -rerun-logpro check-in: 8a363f876e user: bjbarcla tags: v1.65-rerun-logpro
16:56
fixed bug introduced in last commit where run-a-command was not backgrounding check-in: 59a626c53f user: bjbarcla tags: v1.65, v1.6517
15:37
bumped to ...17 check-in: 4c0b5593dd user: bjbarcla tags: v1.65
Changes

Modified common.scm from [a09b98476d] to [f3a824a935].

2133
2134
2135
2136
2137
2138
2139
2140
2141
2142



2143
2144
2145
2146
2147
2148
2149
2133
2134
2135
2136
2137
2138
2139



2140
2141
2142
2143
2144
2145
2146
2147
2148
2149







-
-
-
+
+
+







  (let* ((pre-cmd  (dtests:get-pre-command))
         (post-cmd (dtests:get-post-command))
         (fullcmd  (if (or pre-cmd post-cmd)
                       (conc pre-cmd cmd post-cmd)
                       (conc "viewscreen " cmd))))
    (debug:print-info 02 *default-log-port* "Running command: " fullcmd)
    (cond
     (with-vars     (common:without-vars cmd))
     (with-orig-env (common:with-orig-env cmd))
     (else          (common:without-vars fullcmd "MT_.*")))))
     (with-vars     (common:without-vars  fullcmd))
     (with-orig-env (common:with-orig-env fullcmd))
     (else          (common:without-vars  fullcmd "MT_.*")))))
		  
;;======================================================================
;; T I M E   A N D   D A T E
;;======================================================================

;; Convert strings like "5s 2h 3m" => 60x60x2 + 3x60 + 5
(define (common:hms-string->seconds tstr)