Tcl Source Code

OriginalBugID: 3949 RFE
Version: 8.3b1
SubmitDate: '1999-12-27'
LastModified: '2000-02-05'
Severity: MED
Status: UnAssn
Submitter: techsupp
ChangedBy: hobbs
OS: All
FixedDate: '2000-10-25'
ClosedDate: '2000-10-25'


Name:
Jan Nijtmans

Comments:
The EBCDIC tables come from <http://www.synkronix.com/programmers_guide/ebcdic.html>
Of course, the same encoding will work for Tcl8.1 and 8.2 as well.
The .enc-file is not generated from the .txt-file by the executable in the
Tcl- distribution, but by the following quickly written script:

for {set i 0} {$i<256} {incr i} {
    set hex "[format "%02X" $i]"
    set a($hex) 00$hex
}

set f [open ebcdic.txt]
while {![eof $f]} {
    set line [gets $f]
    if {[string equal [string range $line 0 1] "0x"]} {
set hex1 [string range $line 2 3]
set hex2 [string range $line 9 10]
set a($hex1) 00$hex2
    }
}
close $f
set f [open ebcdic.enc w]
puts $f "# Encoding file: ebcdic, single-byte\nS\n006F 0 1\n00"
for {set i 0} {$i<256} {incr i} {
    set hex "[format "%02X" $i]"
    if {[string range $hex 1 1] == "0"} {puts $f ""}
    puts -nonewline $f "$a($hex)"
}
close $f

DesiredBehavior:
EBCDIC encoding would allow a 3270 terminal emulator to be written in Tcl. Further on,
it would make porting Tcl/Tk to any mainframe using EBCDIC a lot easier.

Patch:
The 2 new files can be downloaded from:
http://members1.chello.nl/~j.nijtmans/ebcdic.txt
http://members1.chello.nl/~j.nijtmans/ebcdic.txt

PatchFiles:
ebcdic.txt, ebcdic.enc (2 new files)

File Added - 11900: ebcdic.enc

Logged In: YES 
user_id=72656

Attaching ebcdic.enc for reference.

These are commited to 8.3.4cvs and 8.4a4cvs.

File Added - 11899: ebcdic.txt

Logged In: YES 
user_id=72656

Attaching ebcdic.txt for reference.