Megatest

Check-in [b56656e03c]
Login
Overview
Comment:fixed -list-targets delay issue
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63 | 1.6309b
Files: files | file ages | folders
SHA1: b56656e03cf1e2eb9e22eb3a7479f90944932400
User & Date: bjbarcla on 2017-03-02 12:19:15
Other Links: branch diff | manifest | tags
Context
2017-03-03
22:47
Added *user-hash-data* - a global that can be used in -repl and #{scheme ...} calls by the end user check-in: a024d9e60f user: matt tags: v1.63
16:52
fixed bug for ticket 1405717332: in client, crashes when needing to restart server because of reference to undefined symbol "run-id" check-in: efd0285893 user: bjbarcla tags: v1.63-randy-1405717332
06:10
Merged from v1.63 check-in: 64f440e2e1 user: matt tags: v1.64
2017-03-02
15:45
Wrapped database open commands with detailed error handling messages. Closed-Leaf check-in: e8d3292a50 user: matt tags: condition-case-db-open
12:19
fixed -list-targets delay issue check-in: b56656e03c user: bjbarcla tags: v1.63, 1.6309b
2017-03-01
19:10
fixed issue for elena (0 byte megatest.db on make setup) check-in: 880cbf2fca user: bjbarcla tags: v1.63, 1.6309a
Changes

Modified megatest.scm from [6e7b72b955] to [08c15272e3].

369
370
371
372
373
374
375
376
377




















378
379
380
381
382
383
384
369
370
371
372
373
374
375


376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402







-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+








;; The watchdog is to keep an eye on things like db sync etc.
;;

;; TODO: for multiple areas, we will have multiple watchdogs; and multiple threads to manage
(define *watchdog* (make-thread common:watchdog "Watchdog thread"))

(if (not (args:get-arg "-server"))
    (thread-start! *watchdog*)) ;; if starting a server; wait till we get to running state before kicking off watchdog
;;(if (not (args:get-arg "-server"))
;;    (thread-start! *watchdog*)) ;; if starting a server; wait till we get to running state before kicking off watchdog
(let* ((no-watchdog-args
       '("-list-runs"
         "-list-servers"
         "-server"
         "-list-disks"
         "-list-targets"
         "-show-runconfig"
         ;;"-list-db-targets"
         "-show-runconfig"
         "-show-config"
         "-show-cmdinfo"))
       (no-watchdog-args-vals (filter (lambda (x) x)
                                      (map args:get-arg no-watchdog-args)))
       (start-watchdog (null? no-watchdog-args-vals)))
  ;;(BB> "no-watchdog-args="no-watchdog-args "no-watchdog-args-vals="no-watchdog-args-vals) 
  (if start-watchdog
      (thread-start! *watchdog*)))


;; bracket open-output-file with code to make leading directory if it does not exist and handle exceptions
(define (open-logfile logpath)
  (condition-case
   (let* ((log-dir (or (pathname-directory logpath) ".")))
     (if (not (directory-exists? log-dir))
         (system (conc "mkdir -p " log-dir)))