Posted to tcl by Bradipo at Thu Sep 27 18:47:03 GMT 2018view raw
- # coming from proc service_control_handler:
- all_stopped {
- # Mark we are all done so we can exit at global level
- set ::done 1
- }
- ...
- # how the service begins:
- if {[catch {
- twapi::run_as_service [list [list $service_name ::service_control_handler]]
- } msg]} {
- twapi::eventlog_log "Service error: $msg"
- }
- # We sit in the event loop until service control stop us through
- # the event handler
- vwait ::done
- after 1000