openbmc-test-automation/lib/print.tcl

326 proc sprint_varx { var_name var_value { indent 0 } { width {} } { hex 0 } } {
364   set_var_default indent 0
369   if { $indent > 0 } {
370     set width [expr $width - $indent]
381     append buffer "[format "%-${indent}s%-${width}s0x%08x" "" "$var_name:" \
384     append buffer "[format "%-${indent}s%-${width}s%s" "" "$var_name:" \
450     set indent [lindex $args 0]
452     set_var_default indent 0
454     append buffer [format "%-${indent}s%s\n" "" "$var_name:"]
455     incr indent 2
462       append buffer [sprint_varx "${var_name}(${key})" $arr_value $indent\
519   set indent [lindex $args 0]
521   set_var_default indent 0
523   append buffer [format "%-${indent}s%s\n" "" "$var_name:"]
524   incr indent 2
528     append buffer [sprint_varx "${var_name}\[${index}\]" $element $indent\
572   set indent [lindex $args 0]
574   set_var_default indent 0
576   append buffer [format "%-${indent}s%s\n" "" "$var_name:"]
577   incr indent 2
580     append buffer [sprint_varx "${var_name}\[${key}\]" $value $indent {*}$args]
628 proc sprint_dashes { { indent 0 } { width 80 } { line_feed 1 } { char "-" } } {
640   set_var_default indent 0
644   append buffer [string repeat " " $indent][string repeat $char $width]
697 proc sprint_call_stack { { indent 0 } } {
716   append buffer "[sprint_dashes ${indent}]"
717   append buffer "[string repeat " " $indent]TCL procedure call stack\n\n"
718   append buffer "[string repeat " " $indent]"
720   append buffer "[sprint_dashes $indent 6 0] [sprint_dashes 0 73]"
726     append buffer [format "%-${indent}s%6i %s\n" "" $line_num\
729   append buffer "[sprint_dashes $indent]"
747 proc sprint_error_report { { error_text "\n" } { indent 0 } } {
760   append buffer [sprint_dashes $indent $width $line_feed $char]
761   append buffer [string repeat " " $indent][sprint_error $error_text]
763   append buffer [sprint_call_stack $indent]
764   append buffer [sprint_pgm_header $indent]
765   append buffer [sprint_dashes $indent $width $line_feed $char]
772 proc sprint_pgm_header { {indent 0} {linefeed 1} } {
789   set_var_default indent 0
791   set indent_str [string repeat " " $indent]
792   set width [expr $_gtp_default_print_var_width_ + $indent]
806   append buffer [sprint_var command_line $indent $width]
807   append buffer [sprint_var $pid_var_name $indent $width]
808   append buffer [sprint_var uid $indent $width]
809   append buffer [sprint_var host_name $indent $width]
810   append buffer [sprint_var DISPLAY $indent $width]
820     append cmd_buf " \[sprint_var $parm_name $indent $width\]"
861 proc sprint_arg_desc { arg_title arg_desc { indent 0 } { col1_width 25 }\
912         append buffer [format "%${indent}s%-${col1_width}s\n" ""\
914         append buffer [format "%${indent}s%-${col1_width}s%s\n" "" ""\
917         append buffer [format "%${indent}s%-${col1_width}s%s\n" ""\
921       append buffer [format "%${indent}s%-${col1_width}s%s\n" "" ""\