That looks useful. But, it looks like my ver of cloverleaf does not have that package. Do you know where to download it, I couldnt find it?
Also, I created a xlt proc to replace tabs with 10 chars (including existing chars).
######################################################################
# Name: xltReplaceTab
# Purpose:Replace tabs with 10 chars (including existing chars).
# UPoC type: xltp
# Args: none
# Notes: All data is presented through special variables. The initial
# upvar in this proc provides access to the required variables.
#
# This proc style only works when called from a code fragment
# within an XLT.
#
# By: Garrett Fletcher, gfletcher0913@gmail.com
proc xltReplaceTab {} {
upvar xlateId xlateId
xlateInList xlateInList
xlateInTypes xlateInTypes
xlateInVals xlateInVals
xlateOutList xlateOutList
xlateOutTypes xlateOutTypes
xlateOutVals xlateOutVals
set counter 0
set newObxList [list]
set obxList [split $xlateInVals t]
set obxListLen [llength $obxList]
foreach item $obxList {
incr counter
if {$counter == $obxListLen} {
set newItem [format %10s $item]
lappend newObxList $newItem
} else {
set newItem [format %9s $item]
lappend newObxList $newItem
}
}
set xlateOutVals [join $newObxList]
}
.
