clean up TclEncode
This commit is contained in:
parent
7f0094159d
commit
5493a6ec91
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue