ooxml

Check-in [03ff1d1e5c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Removed a bit useless code: lastRow, minCol and maxCol are only written, but never used.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | speed
Files: files | file ages | folders
SHA3-256: 03ff1d1e5c168b85ab476ab65894c9a93bafdaeb258bfc5da623f0683890fd8a
User & Date: rolf 2019-08-08 20:19:54
Context
2019-08-08
20:32
Minor improvement: Don't create a list of length nr of cells in the sheet (and as much Tcl_Objs, with typically tons of doublets) but an array with just nr of rows in the sheet as entries. And, as an effect, the following sort has much lesser work. check-in: 87b0383960 user: rolf tags: speed
20:19
Removed a bit useless code: lastRow, minCol and maxCol are only written, but never used. check-in: 03ff1d1e5c user: rolf tags: speed
19:03
Saving the [expr ...] is probably even a tiny little better. check-in: 47cf52d42b user: rolf tags: speed
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ooxml.tcl.

2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
	  }
	}
	Tag_sheetFormatPr baseColWidth 10 defaultRowHeight 16 x14ac:dyDescent 0.2 {}
	if {[info exists obj($ws,cols)] && $obj($ws,cols) > 0} {
	  Tag_cols {}
	}
	Tag_sheetData {
	  set lastRow -1
	  set rows {}
	  foreach idx [lsort -dictionary [array names cells $ws,*,*]] {
	    lassign [split $idx ,] sheet row col
	    lappend rows $row
	  }
	  foreach row [lsort -unique -integer $rows] {
	    set maxCol $col
	    if {$row != $lastRow} {
	      set lastRow $row
	      set minCol $col
	    }
	    set attr {}
	    if {[dict exists $obj(rowHeight,$ws) $row]} {
	      lappend attr ht [dict get $obj(rowHeight,$ws) $row] customHeight 1
	    }
	    # lappend attr spans [expr {$minCol + 1}]:[expr {$maxCol + 1}]
	    Tag_row r [expr {$row + 1}] {*}$attr {
	      foreach idx [lsort -dictionary [array names cells $ws,$row,*]] {







<






<
<
<
<
<







2961
2962
2963
2964
2965
2966
2967

2968
2969
2970
2971
2972
2973





2974
2975
2976
2977
2978
2979
2980
	  }
	}
	Tag_sheetFormatPr baseColWidth 10 defaultRowHeight 16 x14ac:dyDescent 0.2 {}
	if {[info exists obj($ws,cols)] && $obj($ws,cols) > 0} {
	  Tag_cols {}
	}
	Tag_sheetData {

	  set rows {}
	  foreach idx [lsort -dictionary [array names cells $ws,*,*]] {
	    lassign [split $idx ,] sheet row col
	    lappend rows $row
	  }
	  foreach row [lsort -unique -integer $rows] {





	    set attr {}
	    if {[dict exists $obj(rowHeight,$ws) $row]} {
	      lappend attr ht [dict get $obj(rowHeight,$ws) $row] customHeight 1
	    }
	    # lappend attr spans [expr {$minCol + 1}]:[expr {$maxCol + 1}]
	    Tag_row r [expr {$row + 1}] {*}$attr {
	      foreach idx [lsort -dictionary [array names cells $ws,$row,*]] {