Overview
| Comment: | made stop-the-train remove .mtdb/*lock |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 | v1.8016 |
| Files: | files | file ages | folders |
| SHA1: |
64ea5530461adaf57d927892581521a5 |
| User & Date: | mmgraham on 2023-08-10 17:28:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-08-21
| ||
| 10:29 | Changed servers to be run under system instead of nbfake to help batch tools detect that the process is still running (untested). check-in: 4fe087efa3 user: matt tags: v1.80 | |
|
2023-08-20
| ||
| 20:33 | Merged in adjutant code from v1.65 Leaf check-in: ee2dabe551 user: matt tags: v1.80-adjutant | |
|
2023-08-10
| ||
| 17:28 | made stop-the-train remove .mtdb/*lock check-in: 64ea553046 user: mmgraham tags: v1.80, v1.8016 | |
|
2023-08-01
| ||
| 12:46 | Backed out the change to remove cleanup on short-circuit exit check-in: 07d817d10e user: mmgraham tags: v1.80 | |
Changes
Modified common.scm from [81f7ea3a51] to [00402a6248].
| ︙ | ︙ | |||
53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
(file-exists? (conc *toppath*"/stop-the-train")))
(let* ((msg (conc "ERROR: found file "*toppath*"/stop-the-train, exiting immediately")))
;; yes, print to current-output-port AND *default-log-port*, annoying but necessary I think
(print msg)
(debug:print 0 *default-log-port* msg)
(remove-files (conc *toppath* "/logs/server*"))
(remove-files (conc *toppath* "/.servinfo/*"))
(exit 1)))
(thread-sleep! 5)
(loop))))))
;; execute thunk, return value. If exception thrown, trap exception, return #f, and emit nonfatal condition note to *default-log-port* .
;; arguments - thunk, message
(define (common:fail-safe thunk warning-message-on-exception)
| > | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
(file-exists? (conc *toppath*"/stop-the-train")))
(let* ((msg (conc "ERROR: found file "*toppath*"/stop-the-train, exiting immediately")))
;; yes, print to current-output-port AND *default-log-port*, annoying but necessary I think
(print msg)
(debug:print 0 *default-log-port* msg)
(remove-files (conc *toppath* "/logs/server*"))
(remove-files (conc *toppath* "/.servinfo/*"))
(remove-files (conc *toppath* "/.mtdb/*lock"))
(exit 1)))
(thread-sleep! 5)
(loop))))))
;; execute thunk, return value. If exception thrown, trap exception, return #f, and emit nonfatal condition note to *default-log-port* .
;; arguments - thunk, message
(define (common:fail-safe thunk warning-message-on-exception)
|
| ︙ | ︙ |