operation in operation

in script side
set operationID [start_waitable_operation ...]
dcss2 sendMessage "htos_start_operation $operationName

in dcs side
send out broadcast message

in script side
stoh_start_operation $operationName
eval nScripts ${operation}_start

obtain operationID

in script side
wait_for_operation $operationID
vwait gOperation($operationHandle,status)

in script side
start to do
eval nScripts ${operation}_start

in script side
quickHandleReadableEvent
selfGui in<- stog_log note server Starting ..
selfGui in<- stog_log user_note ...
selfGui in<- stog_log user_note ...
selfGui in<- stog_log user_note ...
selfGui in<- stog_log user_note ...
selfGui in<- stog_log user_note ...
selfGui in<- stog_log user_note ...
selfGui in<- stog_log user_note ...
selfGui in<- stog_log warning server closed closed closed closed closed open [log_warning]
output from set  variable

now start operation.
selfGui in<- stog_start_operation ...
eval stog_start_operation
eval nScripts userNotify_onOperationStart $op_name $op_handle

now go to stoh_start_operation
eval nScripts ${operation}_start $args

go to ${operation}.tcl file
${operation}_start

原文地址:https://www.cnblogs.com/greencolor/p/2775930.html