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

posted @ 2012-11-18 15:37  greencolor  阅读(195)  评论(0编辑  收藏  举报