Tcl Source Code

Artifact b6e585391c8f78cabd8fa0989265b2ff71fc89ae:

Attachment "append.tcl" to ticket [2992970fff] added by ferrieux 2010-04-29 04:07:58.

---

puts "Version:[info patchlevel]"
set sample {
    8
    128
    128
    128
    128
    128
    32
    8
    128
    128
    24
    8
    24
    8
    64
    8
    16
    8
    8
    128
    128
    104
    8
    60
    8
    12
    8
    128
    112
    8
    90
    8
    128
    128
    128
    68
    8
    4
    8
}

proc ap {} {
    global sample
    set z [binary format a130 \0]
    for {set i 0} {$i<100000} {incr i} {
	foreach l $sample {
	    append buffer [string range $z 0 $l]
	}
    }
    puts "Total size: [string length $buffer]"
}
puts [time ap]