clean up TclEncode

This commit is contained in:
James Cherry 2019-12-20 10:07:47 -07:00
parent 7f0094159d
commit 5493a6ec91
1 changed files with 0 additions and 18 deletions

View File

@ -29,11 +29,6 @@ set encoded_filename [lindex $argv 0]
set init_var [lindex $argv 1]
set init_filenames [lrange $argv 2 end]
set mail_log 0
if [info exists env(STA_MAIL_LOG)] {
set mail_log $env(STA_MAIL_LOG)
}
# Microcruft Visual C-- ridiculously short max string constant length.
set max_string_length 2000
@ -81,16 +76,3 @@ foreach filename $init_filenames {
encode_file $filename
}
# See stax/src/Notify.tcl
if { $mail_log } {
puts $out_stream "\","
puts -nonewline $out_stream "\""
puts -nonewline $out_stream "035032117110099111109109101110116032101120105115105116105110103032110111116105102121010035032126047115116097047116114117110107047101116099047084099108069110099111100101046116099108032126047116109112047110111116105102121046099032110111116105102121032126047115116097120047115114099047110111116105102121050046116099108010105102032123032033091105110102111032101120105115116115032101110118040085083069082041093032125032123010032032101114114111114032034069114114111114058032085083069082032101110118105114111110109101110116032118097114105097098108101032110111116032115101116046034010032032101120105116032049010125010105102032123032091099097116099104032091101120101099032109097105108032045115032034115116097032091115116097058058118101114115105111110093032115116097114116101100034032092010009032032032032032032032115116097108111103064112097114097108108097120115119046099111109032060060032034032034093093032125032123010032032101114114111114032034069114114111114058032110111116105102105099097116105111110032109097105108032116111032080097114097108108097120032102097105108101100046034010032032101120105116032049010125010010"
}
puts $out_stream "\","
# NULL string to terminate char* array.
puts $out_stream "0"
puts $out_stream "};"
puts $out_stream "} // namespace"
close $out_stream