I was working with "xmlgen-1.4" and had quite a bit of success with it.
However, formatting of the results seemed to be a real pain, and the documentation, examples, disucssion thread, direct discussions with the originator of xmlgen did not seem to help me grasp the issues. From what I could tell, others in the community were having similar issues.
So to get my job done, I wrote the following routine. (Don't laugh - it could be better, but time has not been on my side.)
The following code does a very nice job of structuring resulting XML. I hope you find it as useful as I have.
The proc "CleanUP" needs the string of XML that will be cleaned up as the submission variable. This application generates a textbox to display the results.
### XML CLEANUP ROUTINES
proc placeData {indentlevel item} {
set tabs ""
set i 1
while {$i <= $indentlevel} {
lappend tabs "\t"
incr i
}
if {[llength $item] > 0 } {
# Write data to the non-visible textbox
.tb2 insert end "[join $tabs]$item\n"
}
} ; # end placeData
proc CleanUp {xml} {
catch {destroy .tb2}
text .tb2
# Gather XML Content
set indentlevel 0
foreach item [split $xml \n] {
set item [string trim $item]
switch -glob -- $item {
<?xml* {
# Header -- NO indent Adjustment
placeData $indentlevel $item
}
*/> {
# Handle NULL Value Tags
}
</* {
# End Tag
incr indentlevel -1
placeData $indentlevel $item
}
<* {
# Look for tags on the same line verses start of a XML nest structure
# Get the tag name
regsub -all {<|>} $item { } tempitem
set tag [lindex $tempitem 0]
if [string match *</$tag> $item] {
# In-Line Tag - NO indent Adjustment
placeData $indentlevel $item
} else {
# Tag is head of a super structure
placeData $indentlevel $item
incr indentlevel
}
}
} ; # end switch
} ; # end foreach
return [.tb2 get 0.0 end]
} ; # end CleanUpIn the future, I would like to add more controls to toggle between tab indentions verses spaces. And also possibly eliminate the second process and keep it all in one proc.
Hope you get as much benefit from this as I have.