stopservice.tcl

来自「WindML3.0补丁 WIND MEDIA LIBRARY 3.0.3 (C」· TCL 代码 · 共 49 行

# STOPSERVICE.TCL - this routine stops any of the Tornado services that might
# be running during the installation of this patch.  i.e. Tornado Registry
#
# Copyright 2001 Wind River Systems, Inc
#
# modification history
# --------------------
# 01b,02aug01,rjl stops any Tornado services running during installation of
#                 this patch
# 0ba,02aug01,rjl written
#
###############################################################################

###############################################################################
# stopService - stops any Tornado services that are running
#
# SYNOPSIS
# .tS
# stopService
# .tE
#
# PARAMETERS: N/A
#
# RETURN :N/A
#
# ERRORS: N/A
#
###############################################################################

proc stopService {} {
       set torReg "Tornado Registry" 
       global env
       load $env(WIND_BASE)/SETUP/X86/WIN32/SETUPTCL[string toupper [info sharedlibextension]]
       if {[catch {setupServiceStop $torReg} error]} {
	   puts "Your Tornado Registry is running, please stop this service."
#	messageBox "done1"
	}
#	messageBox "done"

}
###############################################################################
#
# STOPSERVICE.TCL - Initialization code
#
# This code is executed when the file is sourced.
#

stopService