ooxml

Check-in [27bb35e6a6]
Login

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

Overview
Comment:fixed a problem with -style option (from check-in [6c6aa2f98f])
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | populationspeed
Files: files | file ages | folders
SHA3-256: 27bb35e6a635747004b8d06ca2b4474659f116d03ef3e47cc7adc4e8446919a3
User & Date: alex 2019-08-16 19:23:20
Context
2019-08-16
20:06
merged from garbagecollection check-in: dd54fcbd9a user: alex tags: populationspeed
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
09:54
Modified writing: hold only just one DOM tree of the xml files to generate in memory and drop that immediately after done with it, to reduce maxium mem peek (at bit). check-in: 1780af15a2 user: rolf tags: populationspeed
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ooxml.tcl.

1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
  method cell { sheet {data {}} args } {
    my variable obj
    my variable cells
    my variable cols

    array set opts {
      index ""
      style ""
      formula ""
      string 0
      nozero 0
      globalstyle 0
      height ""
    }
    set len [llength $args]
    set loopInd 0
    while {$loopInd < $len} {
      switch -glob [lindex $args $loopInd] {
        "-index" {
          incr loopInd
          if {$loopInd < $len} {
            set opts(index) [lindex $args $loopInd]
            incr loopInd
          } else {
            error "-index: missing argument"







|









|







1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
  method cell { sheet {data {}} args } {
    my variable obj
    my variable cells
    my variable cols

    array set opts {
      index ""
      style 0
      formula ""
      string 0
      nozero 0
      globalstyle 0
      height ""
    }
    set len [llength $args]
    set loopInd 0
    while {$loopInd < $len} {
      switch -- [lindex $args $loopInd] {
        "-index" {
          incr loopInd
          if {$loopInd < $len} {
            set opts(index) [lindex $args $loopInd]
            incr loopInd
          } else {
            error "-index: missing argument"