Megatest

Check-in [1ab7fff8bf]
Login
Overview
Comment:Moved watchdog timer exit message
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 1ab7fff8bf18b798ea7f898b056595f7554255ed
User & Date: matt on 2015-05-26 23:07:46
Other Links: branch diff | manifest | tags
Context
2015-05-27
20:58
Oops. Borked merge to side. Closed-Leaf check-in: f9f4c1c4ea user: matt tags: borked-merge
2015-05-26
23:40
Still trying to get watchdog, on-exit and signal/int or signal/term working gracefully check-in: ec49837f01 user: matt tags: v1.60
23:07
Moved watchdog timer exit message check-in: 1ab7fff8bf user: matt tags: v1.60
22:43
Improved signal handling little more. Handle sigterm. check-in: 64b3ca10d0 user: matt tags: v1.60
Changes

Modified megatest.scm from [9c1bf3c037] to [0fff055d69].

349
350
351
352
353
354
355
356
357


358
359
360
361
362
363
364
349
350
351
352
353
354
355


356
357
358
359
360
361
362
363
364







-
-
+
+







	     (if (not *time-to-exit*)
		 (let delay-loop ((count 0))
		   (if (and (not *time-to-exit*)
			    (< count 11)) ;; aprox 5-6 seconds
		       (begin
			 (thread-sleep! 1)
			 (delay-loop (+ count 1))))
		   (loop))))
	   (debug:print-info 0 "Exiting watchdog timer")))
		   (loop)))
	     (debug:print-info 0 "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*))))
     "Watchdog thread")))

(thread-start! *watchdog*)

(if (args:get-arg "-log")
    (let ((oup (open-output-file (args:get-arg "-log"))))
      (debug:print-info 0 "Sending log output to " (args:get-arg "-log"))