ooxml

Check-in [b37b7c9994]
Login

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

Overview
Comment:new opts: -created, -modifiedby, -modified and -application
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | newcreateopts
Files: files | file ages | folders
SHA3-256: b37b7c9994d90ba3080b118b3ecfac3d51d67bd686ead055fd171e03dd7607cd
User & Date: alex 2019-08-09 20:57:20
Context
2019-08-10
09:21
merged new constructor options check-in: 86cfba6df0 user: alex tags: trunk
2019-08-09
20:57
new opts: -created, -modifiedby, -modified and -application Leaf check-in: b37b7c9994 user: alex tags: newcreateopts
16:24
new constructor opts check-in: 4827b010f4 user: alex tags: newcreateopts
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ooxml.tcl.

94
95
96
97
98
99
100




101
102
103
104
105
106
107
....
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477



1478







1479




1480

1481
1482

1483
1484


1485
1486
1487
1488
1489
1490
1491
#   return workbookData
# 
# 
# ::ooxml::xl_write
# 
#   constructor args
#     -creator CREATOR




#     return class
# 
#   method numberformat args
#     -format FORMAT -general -date -time -datetime -iso8601 -number -decimal -red -separator -fraction -scientific -percent -text -string
#     return NUMFMTID
#
#   method defaultdatestyle STYLEID
................................................................................
    my variable fonts
    my variable numFmts
    my variable styles
    my variable fills
    my variable borders
    my variable cols

    if {[::ooxml::Getopt opts {creator.arg {unknown} application.args {}} $args]} {
      error $opts(-errmsg)
    }

    set obj(blockPreset) 0

    set obj(encoding) utf-8
    set obj(indent) none




    set obj(creator) $opts(creator)







    set obj(lastModifiedBy) $opts(creator)




    set obj(created) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1]

    set obj(modified) $obj(created)
    set obj(application) $opts(application)

    if {[string trim $obj(application)] eq {}} {
      set obj(application) {Tcl - Office Open XML - Spreadsheet}


    }

    set obj(sheets) 0
    array set sheets {}

    set obj(sharedStrings) 0
    set sharedStrings {}







>
>
>
>







 







|








>
>
>
|
>
>
>
>
>
>
>
|
>
>
>
>
|
>
|
<
>
|

>
>







94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
....
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500

1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
#   return workbookData
# 
# 
# ::ooxml::xl_write
# 
#   constructor args
#     -creator CREATOR
#     -created UTC-TIMESTAMP
#     -modifiedby NAME
#     -modified UTC-TIMESTAMP
#     -application NAME
#     return class
# 
#   method numberformat args
#     -format FORMAT -general -date -time -datetime -iso8601 -number -decimal -red -separator -fraction -scientific -percent -text -string
#     return NUMFMTID
#
#   method defaultdatestyle STYLEID
................................................................................
    my variable fonts
    my variable numFmts
    my variable styles
    my variable fills
    my variable borders
    my variable cols

    if {[::ooxml::Getopt opts {creator.arg {unknown} created.arg {} modifiedby.arg {} modified.arg {} application.arg {}} $args]} {
      error $opts(-errmsg)
    }

    set obj(blockPreset) 0

    set obj(encoding) utf-8
    set obj(indent) none

    if {[string trim $opts(creator)] eq {}} {
      set obj(creator) {unknown}
    } else {
      set obj(creator) $opts(creator)
    }
    if {[string trim $opts(created)] eq {} || [catch {clock scan $opts(created)}]} {
      set obj(created) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1]
    } else {
      set obj(created) $opts(created)
    }
    if {[string trim $opts(modifiedby)] eq {}} {
      set obj(lastModifiedBy) $opts(creator)
    } else {
      set obj(lastModifiedBy) $opts(modifiedby)
    }
    if {[string trim $opts(modified)] eq {} || [catch {clock scan $opts(modified)}]} {
      set obj(modified) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1]
    } else {
      set obj(modified) $opts(modified)

    }
    if {[string trim $opts(application)] eq {}} {
      set obj(application) {Tcl - Office Open XML - Spreadsheet}
    } else {
      set obj(application) $opts(application)
    }

    set obj(sheets) 0
    array set sheets {}

    set obj(sharedStrings) 0
    set sharedStrings {}