Overview
| Comment: | fixed a few bugs - orphaned client tcp ports, sql error (Matt fixed in v1.63 which we are merging in this commit) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62-rpc |
| Files: | files | file ages | folders |
| SHA1: |
e5d7dac0b86a1ae4a5abf4d097541b11 |
| User & Date: | bjbarcla on 2016-12-08 14:46:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-08
| ||
| 14:54 | made rpc default transport, not http. check-in: ee51b46291 user: bjbarcla tags: v1.62-rpc | |
| 14:46 | fixed a few bugs - orphaned client tcp ports, sql error (Matt fixed in v1.63 which we are merging in this commit) check-in: e5d7dac0b8 user: bjbarcla tags: v1.62-rpc | |
| 09:55 | Merged in fix for wrong num params check-in: 3b6ab0c796 user: mrwellan tags: v1.62-rpc | |
Changes
Modified common.scm from [435cf851b0] to [f821d893bb].
| ︙ | |||
621 622 623 624 625 626 627 628 629 630 631 632 633 634 | 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 | + |
(thread-sleep! 1)
(delay-loop (+ count 1))))
(loop)))
(if (common:low-noise-print 30)
(debug:print-info 0 *default-log-port* "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*)))))))
(define (std-exit-procedure)
(let ((no-hurry (if *time-to-exit* ;; hurry up
#f
(begin
(set! *time-to-exit* #t)
#t))))
(debug:print-info 4 *default-log-port* "starting exit process, finalizing databases.")
(if (and no-hurry (debug:debug-mode 18))
|
| ︙ | |||
649 650 651 652 653 654 655 656 657 658 659 660 661 662 | 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 | + + + + + + + + + |
(debug:print 4 *default-log-port* "Attempting clean exit. Please be patient and wait a few seconds...")
(if no-hurry
(thread-sleep! 5) ;; give the clean up few seconds to do it's stuff
(thread-sleep! 2))
(debug:print 4 *default-log-port* " ... done")
)
"clean exit")))
;; let's try to clean up open sockets
(if *runremote*
(case (remote-transport *runremote*)
((http) (close-all-connections!))
((rpc) (rpc:close-all-connections!))
(else
(debug:print-info 0 *default-log-port* "Transport "(remote-transport *runremote*)" not supported"))))
(thread-start! th1)
(thread-start! th2)
(thread-join! th1))))
(define (std-signal-handler signum)
;; (signal-mask! signum)
(set! *time-to-exit* #t)
|
| ︙ |
Modified megatest.scm from [3af01ae3a7] to [ec3d3e43b1].
| ︙ | |||
1980 1981 1982 1983 1984 1985 1986 | 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 | - |
(debug:print 0 *default-log-port* "Failed to create HTML output in " toppath "/lt/runs-index.html"))
(set! *didsomething* #t)))
;;======================================================================
;; Exit and clean up
;;======================================================================
|
| ︙ |