100 proc replace_passwords {buffer} {  argument
110   if { [get_var ::env(GEN_PRINT_DEBUG) 0] } { return $buffer }
111   if { [get_var ::env(DEBUG_SHOW_PASSWORDS) 0] } { return $buffer }
116   if { $password_regex == "" } { return $buffer }
118   regsub -all "${password_regex}" $buffer {********} buffer
119   return $buffer
179 proc sprint { { buffer {} } } {  argument
188   return $buffer
193 proc sprintn { { buffer {} } } {  argument
202   return ${buffer}\n
207 proc sprint_time { { buffer {} } } {  argument
292   set return_string "${return_string} - ${buffer}"
314 proc sprint_error { { buffer {} } } {
321   return [sprint_time "**ERROR** $buffer"]
381     append buffer "[format "%-${indent}s%-${width}s0x%08x" "" "$var_name:" \
384     append buffer "[format "%-${indent}s%-${width}s%s" "" "$var_name:" \
388   return $buffer\n
454     append buffer [format "%-${indent}s%s\n" "" "$var_name:"]
462       append buffer [sprint_varx "${var_name}(${key})" $arr_value $indent\
466     return $buffer
470   if {[catch {set buffer [sprint_varx $var_name $var_value {*}$args]} error_text options]} {
479     return $buffer
523   append buffer [format "%-${indent}s%s\n" "" "$var_name:"]
528     append buffer [sprint_varx "${var_name}\[${index}\]" $element $indent\
533   return $buffer
576   append buffer [format "%-${indent}s%s\n" "" "$var_name:"]
580     append buffer [sprint_varx "${var_name}\[${key}\]" $value $indent {*}$args]
584   return $buffer
620     append buffer [sprint_var $arg {*}$sub_args]
623   return $buffer
644   append buffer [string repeat " " $indent][string repeat $char $width]
645   append buffer [string repeat "\n" $line_feed]
647   return $buffer
686   append buffer [sprint_time]
688     append buffer "(test_mode) "
690   append buffer "Issuing: ${cmd_buf}\n"
692   return $buffer
716   append buffer "[sprint_dashes ${indent}]"
717   append buffer "[string repeat " " $indent]TCL procedure call stack\n\n"
718   append buffer "[string repeat " " $indent]"
719   append buffer "Line # Procedure name and arguments\n"
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]"
731   return $buffer
760   append buffer [sprint_dashes $indent $width $line_feed $char]
761   append buffer [string repeat " " $indent][sprint_error $error_text]
762   append buffer "\n"
763   append buffer [sprint_call_stack $indent]
764   append buffer [sprint_pgm_header $indent]
765   append buffer [sprint_dashes $indent $width $line_feed $char]
767   return $buffer
803   if { $linefeed } { append buffer "\n" }
804   append buffer ${indent_str}[sprint_timen "Running ${program_name}."]
805   append buffer ${indent_str}[sprint_timen "Program parameter values, etc.:\n"]
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]
824   if { $linefeed } { append buffer "\n" }
826   return $buffer
851   append buffer [sprint_timen "Finished running ${program_name}."]
852   append buffer "\n"
853   append buffer [sprint_var $runtime_var_name]
854   append buffer "\n"
856   return $buffer
904   set buffer {}
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" "" ""\
927   return $buffer
997       append buffer "${proc_def}${alias_def}"
1001   return $buffer