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: |
5df054d940f33812707b7c4db2ecbabb |
| 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 | 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 | | | 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 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 |
#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))))
| | | 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: (+ 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)
|
| ︙ | ︙ |