Megatest

Check-in [25cae1c008]
Login
Overview
Comment:Missing change
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.81-multi-server
Files: files | file ages | folders
SHA1: 25cae1c008472f9aeedcaf5bfe488d8e1855cfa0
User & Date: mrwellan on 2024-07-03 19:08:57
Other Links: branch diff | manifest | tags
Context
2024-07-07
20:09
Sort servers based on number of threads running to estimate load check-in: af60709165 user: matt tags: v1.81-multi-server
2024-07-03
19:08
Missing change check-in: 25cae1c008 user: mrwellan tags: v1.81-multi-server
19:06
Multi-servers working. Needs polish but the machine didn't overload on > 10 parallel runs of sixtyfivek check-in: 16d75bb8f1 user: matt tags: v1.81-multi-server
Changes

Modified tcp-transportmod.scm from [a9eba46ae1] to [1ca825cede].

755
756
757
758
759
760
761
762


763
764
765
766
767
768
769
755
756
757
758
759
760
761

762
763
764
765
766
767
768
769
770







-
+
+







      (lambda ()
	(print "SERVER STARTED: "host":"port" AT "(current-seconds)" server-id: "serv-id" pid: "(current-process-id)" dbfname: "dbfname)))
    (let loop ((count 0))
      (if (not (file-exists? servinf))
	  (begin
	    (debug:print 0 *default-log-port* "WARNING: file "servinf" was created but it doesn't show up on disk! We'll try again.")
	    (thread-sleep! 1)
	    (if (< count 10)
	    (if (> count 10)
		(debug:print 0 *default-log-port* "WARNING: file "servinf" was not created.")
		(loop (+ count 1))))))
    serv-id))

;; find valid server
;; get servers listed, last part of name must match :<dbfname>
;; if more than one, wait one second and look again
;; future: ping oldest, if alive remove other :<dbfname> files