ooxml

Check-in [3487eb7901]
Login

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

Overview
Comment:something like garbage collection. unset cells() while serialization also to reduce maximum mem peek
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | garbagecollection
Files: files | file ages | folders
SHA3-256: 3487eb7901f25cb58f46ea7e35fa59f7633be824361f0a2d1729d86121b4bf32
User & Date: alex 2019-08-16 19:46:00
Original Comment: something like garbage collection. unset sharedStrings and unset cells() while serialization also to reduce maximum mem peek
Context
2019-08-16
19:54
unset sharedStrings Closed-Leaf check-in: 1c13bb825f user: alex tags: garbagecollection
19:46
something like garbage collection. unset cells() while serialization also to reduce maximum mem peek check-in: 3487eb7901 user: alex tags: garbagecollection
19:23
fixed a problem with -style option (from check-in [6c6aa2f98f]) check-in: 27bb35e6a6 user: alex tags: populationspeed
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ooxml.tcl.

3073
3074
3075
3076
3077
3078
3079


3080
3081
3082
3083
3084
3085
3086
		    if {[dict exists $cells($idx) f] && [dict get $cells($idx) f] ne {}} {
		      Tag_f { Text [dict get $cells($idx) f] }
		    }
		  }
		} elseif {[dict exists $cells($idx) s] && [string is integer -strict [dict get $cells($idx) s]] && [dict get $cells($idx) s] > 0} {
		  Tag_c r [::ooxml::RowColumnToString $row,$col] s [dict get $cells($idx) s] {}
		}


	      }
	    }
	  }
	}
	if {$obj(autofilter,$ws) ne {}} {
	  Tag_autoFilter ref $obj(autofilter,$ws) {}
	}







>
>







3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
		    if {[dict exists $cells($idx) f] && [dict get $cells($idx) f] ne {}} {
		      Tag_f { Text [dict get $cells($idx) f] }
		    }
		  }
		} elseif {[dict exists $cells($idx) s] && [string is integer -strict [dict get $cells($idx) s]] && [dict get $cells($idx) s] > 0} {
		  Tag_c r [::ooxml::RowColumnToString $row,$col] s [dict get $cells($idx) s] {}
		}
		# garbage collection
	        unset -nocomplain cells($idx)
	      }
	    }
	  }
	}
	if {$obj(autofilter,$ws) ne {}} {
	  Tag_autoFilter ref $obj(autofilter,$ws) {}
	}