Change several python and robot files to 110 chars
Taking advantage of current team limit of 110 chars.
Change-Id: If7ab51fe894889967b8c8bb2f2fa4664f01117d5
Signed-off-by: Michael Walsh <micwalsh@us.ibm.com>
diff --git a/lib/call_stack.tcl b/lib/call_stack.tcl
index fe3158c..23ae17f 100755
--- a/lib/call_stack.tcl
+++ b/lib/call_stack.tcl
@@ -1,24 +1,21 @@
#!/usr/bin/wish
-# This file provides many valuable stack inquiry procedures like
-# get_file_proc_names, get_stack_var, etc..
+# This file provides many valuable stack inquiry procedures like get_file_proc_names, get_stack_var, etc..
my_source [list print.tcl]
proc get_file_proc_names { file_path { name_regex "" } } {
- # Get all proc names from the file indicated by file_path and return them
- # as a list.
+ # Get all proc names from the file indicated by file_path and return them as a list.
# Description of argument(s):
- # file_path The path to the file whose proc names are
- # to be retrieved.
- # name_regex A regular expression to be used to narrow
- # the result to just the desired procs.
+ # file_path The path to the file whose proc names are to be retrieved.
+ # name_regex A regular expression to be used to narrow the result to just the desired
+ # procs.
- # The first sed command serves to eliminate curly braces from the target
- # file. They are a distraction to what we are trying to do.
+ # The first sed command serves to eliminate curly braces from the target file. They are a distraction to
+ # what we are trying to do.
# TCL proc lines begin with...
# - Zero or more spaces...
# - The "proc" keyword...
@@ -34,14 +31,12 @@
proc get_stack_var { var_name { default {} } { init_stack_ix 1 } } {
- # Starting with the caller's stack level, search upward in the call stack,
- # for a variable named "${var_name}" and return its value. If the variable
- # cannot be found, return ${default}.
+ # Starting with the caller's stack level, search upward in the call stack, for a variable named
+ # "${var_name}" and return its value. If the variable cannot be found, return ${default}.
# Description of argument(s):
# var_name The name of the variable be searched for.
- # default The value to return if the the variable
- # cannot be found.
+ # default The value to return if the the variable cannot be found.
for {set stack_ix $init_stack_ix} {$stack_ix <= [info level]} \
{incr stack_ix} {
@@ -56,19 +51,15 @@
proc get_stack_var_level { var_name { init_stack_ix 1 } { fail_on_err 1 } } {
- # Starting with the caller's stack level, search upward in the call stack,
- # for a variable named "${var_name}" and return its associated stack level.
- # If the variable cannot be found, return -1.
+ # Starting with the caller's stack level, search upward in the call stack, for a variable named
+ # "${var_name}" and return its associated stack level. If the variable cannot be found, return -1.
# Description of argument(s):
# var_name The name of the variable be searched for.
- # init_stack_ix The level of the stack where the search
- # should start. The default is 1 which is
- # the caller's stack level.
- # fail_on_err Indicates that if the variable cannot be
- # found on the stack, this proc should write
- # to stderr and exit with a non-zero return
- # code.
+ # init_stack_ix The level of the stack where the search should start. The default is 1
+ # which is the caller's stack level.
+ # fail_on_err Indicates that if the variable cannot be found on the stack, this proc
+ # should write to stderr and exit with a non-zero return code.
for {set stack_ix $init_stack_ix} {$stack_ix <= [info level]} \
{incr stack_ix} {
@@ -91,16 +82,12 @@
proc get_stack_proc_name { { level -1 } { include_args 0 } } {
- # Get the name of the procedure at the indicated call stack level and
- # return it.
+ # Get the name of the procedure at the indicated call stack level and return it.
# Description of argument(s):
- # level The call stack level: 0 would mean this
- # procedure's level (i.e.
- # get_stack_proc_name's level), -1 would
- # indicate the caller's level, etc.
- # include_args Indicates whether proc arg values should
- # be included in the result.
+ # level The call stack level: 0 would mean this procedure's level (i.e.
+ # get_stack_proc_name's level), -1 would indicate the caller's level, etc.
+ # include_args Indicates whether proc arg values should be included in the result.
# Set default.
set_var_default level -1
@@ -127,24 +114,19 @@
# Example:
# set call_stack [get_call_stack 0]
- # call_stack: get_call_stack calc_wrap_stack_ix_adjust sprint_var
- # sprint_vars print_vars
+ # call_stack: get_call_stack calc_wrap_stack_ix_adjust sprint_var sprint_vars print_vars
# Description of argument(s):
- # stack_top_ix The index to the bottom of the stack to be
- # returned. 0 means include the entire
- # stack. 1 means include the entire stack
- # with the exception of this procedure
- # itself, etc.
- # include_args Indicates whether proc args should be
- # included in the result.
+ # stack_top_ix The index to the bottom of the stack to be returned. 0 means include the
+ # entire stack. 1 means include the entire stack with the exception of
+ # this procedure itself, etc.
+ # include_args Indicates whether proc args should be included in the result.
set_var_default stack_top_ix -1
# Get the current stack size.
set stack_size [info level]
- # Calculate stack_bottom_ix. Example: if stack_size is 5, stack_bottom_ix
- # is -4.
+ # Calculate stack_bottom_ix. Example: if stack_size is 5, stack_bottom_ix is -4.
set stack_bottom_ix [expr 1 - $stack_size]
for {set stack_ix $stack_top_ix} {$stack_ix >= $stack_bottom_ix} \
{incr stack_ix -1} {