ooxml

Check-in [dd54fcbd9a]
Login

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

Overview
Comment:merged from garbagecollection
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | populationspeed
Files: files | file ages | folders
SHA3-256: dd54fcbd9a9f378b2cca49e67b8d707e8d2ae68ba5942e8035adaaa041698294
User & Date: alex 2019-08-16 20:06:45
Context
2019-08-16
21:24
merged from initnodecmds Leaf check-in: 56d2fef577 user: alex tags: populationspeed
21:15
execute initialization of node commands centrally and only once Closed-Leaf check-in: 1625832b7b user: alex tags: initnodecmds
20:06
merged from garbagecollection check-in: dd54fcbd9a user: alex tags: populationspeed
19:54
unset sharedStrings Closed-Leaf check-in: 1c13bb825f 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.

2467
2468
2469
2470
2471
2472
2473


2474
2475
2476
2477
2478
2479
2480
....
3073
3074
3075
3076
3077
3078
3079


3080
3081
3082
3083
3084
3085
3086

      $root appendFromScript {
	foreach string $sharedStrings {
	  Tag_si {
	    Tag_t { Text $string }
	  }
	}


      }
      ::ooxml::Dom2zip $zf $root "xl/sharedStrings.xml" cd count
      $doc delete
    }


    # xl/calcChain.xml
................................................................................
		    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) {}
	}







>
>







 







>
>







2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
....
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090

      $root appendFromScript {
	foreach string $sharedStrings {
	  Tag_si {
	    Tag_t { Text $string }
	  }
	}
	# garbage collection
	set sharedStrings {}
      }
      ::ooxml::Dom2zip $zf $root "xl/sharedStrings.xml" cd count
      $doc delete
    }


    # xl/calcChain.xml
................................................................................
		    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) {}
	}