Megatest

Check-in [5df054d940]
Login
Overview
Comment:Upped the retention time for num-cpus files and added a large random delta to reduce probability of overlapping re-writes of the num-cpu files.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65 | v1.6542
Files: files | file ages | folders
SHA1: 5df054d940f33812707b7c4db2ecbabb88c007f9
User & Date: mrwellan on 2020-02-06 12:02:22
Other Links: branch diff | manifest | tags
Context
2020-02-12
11:18
Added code to try starting a server every 15th wait in send-receive and updated version file check-in: 7c99ac42bb user: jmoon18 tags: v1.65
2020-02-06
12:02
Upped the retention time for num-cpus files and added a large random delta to reduce probability of overlapping re-writes of the num-cpu files. check-in: 5df054d940 user: mrwellan tags: v1.65, v1.6542
2020-02-05
15:41
Updated version tag to 1.65/42 check-in: e37d51cfa5 user: jmoon18 tags: v1.65, v1.6542
Changes

Modified common.scm from [eda1a54b3f] to [22542b9de5].

1682
1683
1684
1685
1686
1687
1688
1689

1690
1691
1692
1693
1694
1695
1696
1682
1683
1684
1685
1686
1687
1688

1689
1690
1691
1692
1693
1694
1695
1696







-
+







	 exn
	 #f
	 (debug:print 2 *default-log-port* "reading file " fullpath)
	 (let ((real-age (- (current-seconds)(file-change-time fullpath)))) 
	   (if (< real-age age)
	       (with-input-from-file fullpath read)
	       (begin
		 (debug:print 2 *default-log-port* "file " fullpath " is too old (" real-age" seconds)to trust, skipping reading it")
		 (debug:print 1 *default-log-port* "file " fullpath " is too old (" real-age" seconds) to trust, skipping reading it")
		 #f))))
	(begin
	  (debug:print 2 *default-log-port* "not reading file " fullpath)
	  #f))))
 
(define (common:write-cached-info key dtype dat)
  (let* ((fulldir  (conc *toppath* "/.sysdata"))
1928
1929
1930
1931
1932
1933
1934
1935

1936
1937
1938
1939
1940
1941
1942
1928
1929
1930
1931
1932
1933
1934

1935
1936
1937
1938
1939
1940
1941
1942







-
+







                     #f
                     (common:get-homehost)))
         (hh     (if hh-dat (car hh-dat) #f)))
    (common:wait-for-normalized-load maxload msg hh)))

(define (common:get-num-cpus remote-host)
  (let* ((actual-host (or remote-host (get-host-name))))
    (or (common:get-cached-info actual-host "num-cpus" age: 86400) ;; hosts had better not be changing the number of cpus too often!
    (or (common:get-cached-info actual-host "num-cpus" age: (+ 2592000 (random 3600))) ;; hosts had better not be changing the number of cpus too often!
	(let* ((proc   (lambda ()
			 (let loop ((numcpu 0)
				    (inl    (read-line)))
			   (if (eof-object? inl)
			       (begin
				 (common:write-cached-info actual-host "num-cpus" numcpu)
				 numcpu)