Example tvscript Script File
The following information is passed to tvscript as follows:
tvscript -script_file script_file
This script installs an error handler and an action point handler. When an error is encountered during execution,
tvscript passes an array of information to the error handler. Similarly, when an action point is hit, it passes an array of information to the action point handler. These arrays are described in
"Event API".
# Get the process so we have some information about it
tvscript_log "PID: \
[tvscript_get_process_property 1 "syspid"]";
tvscript_log "Status: \
[tvscript_get_process_property 1 "state"]";
tvscript_log "Executable: \
[tvscript_get_process_property 1 "executable"]";
#############################################################
proc error_handler {error_data} {
tvscript_log "Inside error_handle: $error_data"
# Change the incoming list into an array.
# It contains the following indices:
# process_id
# thread_id
# error_message
array set error_data_array $error_data
# Get the process so we have some information about it
temp = [tvscript_get_process_property \
$error_data_array(process_id) "syspid"];
tvscript_log " Process ID: $temp";
temp = [tvscript_get_thread_property \
$error_data_array(thread_id) "systid"];
tvscript_log " Thread ID: $temp";
temp = $error_data_array(error_message);
tvscript_log " Error Message: $temp";
}
#############################################################
# Action point handlers
proc l1_actionpoint_handler {event_data} {
tvscript_log "Inside l1_actionpnt_handler: $event_data"
tvscript_slog "Inside l1_actionpnt_handler: $event_data"
# Change the incoming list into an array.
# It contains the following indices:
# actionpoint_id
# actionpoint_source_loc_expr
# event
# process_id
# thread_id
array set event_data_array $event_data
# Get the process so we have some information about it
temp = [tvscript_get_process_property \
$event_data_array(process_id) "syspid"];
tvscript_log " Process ID: $temp";
temp = [tvscript_get_thread_property \
$event_data_array(thread_id) "systid"];
tvscript_log " Thread ID: $temp";
temp = [tvscript_get_process_property \
$event_data_array(process_id) "state"];
tvscript_log " Status: $temp";
temp = [tvscript_get_process_property \
$event_data_array(process_id) "executable"]
tvscript_log " Executable: $temp";
temp = $event_data_array(actionpoint_source_loc_expr)
tvscript_log "Action point Expression: $temp"
tvscript_log "Value of i:"
set output [capture "dprint i"]
tvscript_log $output
}
#######################################################
# Event handlers
proc generic_actionpoint_event_handler {actionpoint_data} {
tvscript_log \
"Inside generic_actionpoint_event_handler: "
tvscript_log $actionpoint_data
tvscript_slog "Inside generic_actionpoint_event_handler: "
tvscript_slog $actionpoint_data
# Change the incoming list into an array.
# It contains the following indices:
# actionpoint_id
# actionpoint_source_loc_expr
# event
# process_id
# thread_id
array set actionpnt_data_array $actionpoint_data
temp = $actionpnt_data_array(process_id)
tvscript_log " Process ID: $temp"
temp = $actionpnt_data_array(thread_id)
tvscript_log " Thread ID: $temp"
temp = $actionpnt_data_array(actionpoint_id)
tvscript_log " Action Point ID: $temp"
temp = $actionpnt_data_array(actionpoint_source_loc_expr)
tvscript_log "Action Point Expression: "
}
#############################################################
# Add event handlers
# Setup action points and action point handlers
set actionpoint_id [tvscript_create_actionpoint "l1"]
tvscript_add_actionpoint_handler $actionpoint_id \ "l1_actionpoint_handler"
# Setup a generic actionpoint handler
tvscript_add_event_handler "actionpoint" \ "generic_actionpoint_event_handler"
#######################################################
# Add error handler
tvscript_add_event_handler "error" "error_handler"