Megatest

Check-in [8153d00d77]
Login
Overview
Comment:Fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-revolution
Files: files | file ages | folders
SHA1: 8153d00d771a65f3b6e7626de855025599ee1faf
User & Date: matt on 2023-11-25 19:13:02
Other Links: branch diff | manifest | tags
Context
2023-11-26
04:54
Completed capture of server logic in graphviz file, regenerated manual. check-in: 68fc2bee9a user: matt tags: v1.80-revolution
2023-11-25
19:13
Fixed typo check-in: 8153d00d77 user: matt tags: v1.80-revolution
2023-11-24
01:10
Started update of server graph check-in: 4466ed1dfc user: matt tags: v1.80-revolution
Changes

Modified tcp-transportmod.scm from [d5c48df4ed] to [659d1a2b4d].

573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
					;;  3. gather the lock entries, apply the "winner" heuristic
					;;  4. if I'm the winner, set tt-state to 'running else set to 'notthewinner
					;;
					;; New idea:
					;;  1. check all processes entries that match the db
					;;  2. sort by fixed heuristic
					;;  3. if I'm number one, set state to 'running and db-locked-in to #t
					(let* ((candidates (map dbfile:row->procinfo
								(dbfile:with-no-sync-db
								 nosyncdbpath
								 (lambda (nsdb)
								   (dbfile:get-process-options nsdb "server" dbfname)))))
					       (primecand  (begin
							     (assert (not (null? candidates))
								     "HOW CAN WE NOT BE IN THE PROCESSES DB AS A SERVER?")







|







573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
					;;  3. gather the lock entries, apply the "winner" heuristic
					;;  4. if I'm the winner, set tt-state to 'running else set to 'notthewinner
					;;
					;; New idea:
					;;  1. check all processes entries that match the db
					;;  2. sort by fixed heuristic
					;;  3. if I'm number one, set state to 'running and db-locked-in to #t
					(let* ((candidates (map dbfile:row->procinf
								(dbfile:with-no-sync-db
								 nosyncdbpath
								 (lambda (nsdb)
								   (dbfile:get-process-options nsdb "server" dbfname)))))
					       (primecand  (begin
							     (assert (not (null? candidates))
								     "HOW CAN WE NOT BE IN THE PROCESSES DB AS A SERVER?")