Megatest

Diff
Login

Differences From Artifact [bab637bbe2]:

To Artifact [100a519d71]:


319
320
321
322
323
324
325
326
327
328
329
330

331
332
333




334

335
336
337
338
339
340
341
319
320
321
322
323
324
325





326

327
328
329
330
331
332

333
334
335
336
337
338
339
340







-
-
-
-
-
+
-


+
+
+
+
-
+







		       (debug:print-info 1 "Killed server by pid at " hostname ":" port)))
		 ;; (if zmq-socket (close-socket  zmq-socket))
		 (format #t fmtstr id pid hostname port start-time priority 
			 status numclients)))
	     servers)
	    (set! *didsomething* #t))))
    ;; if not list or kill then start a client (if appropriate)
    (if (or (let ((res #f))
	      (for-each
	       (lambda (key)
		 (if (args:get-arg key)(set! res #t)))
	       (list "-h" "-version" "-gen-megatest-area" "-gen-megatest-test"))
    (if (or (args-defined? "-h" "-version" "-gen-megatest-area" "-gen-megatest-test")
	      res)
	    (eq? (length (hash-table-keys args:arg-hash)) 0))
	(debug:print-info 1 "Server connection not needed")
	;; ping servers only if -runall -runtests
	(let ((ping (args-defined? "-runall" "-runtests" "-remove-runs" 
				   "-set-state-status" "-rerun" "-rollup" "-lock" "-unlock"
				   "-set-values" "-list-runs")))
	(server:client-launch)))
	  (server:client-launch do-ping: ping))))
    
;;======================================================================
;; Remove old run(s)
;;======================================================================

;; since several actions can be specified on the command line the removal
;; is done first