Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | merged new constructor options |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
86cfba6df09f2356e1b76f832fd58418 |
User & Date: | alex 2019-08-10 09:21:40 |
Context
2019-08-10
| ||
09:33 | added sample9.tcl and timestamp correction doc core check-in: 4a610b3601 user: alex tags: trunk | |
09:21 | merged new constructor options check-in: 86cfba6df0 user: alex tags: trunk | |
09:15 | package require modificated at all samples check-in: a3e6c25ebf user: alex tags: trunk | |
2019-08-09
| ||
20:57 | new opts: -created, -modifiedby, -modified and -application Closed-Leaf check-in: b37b7c9994 user: alex tags: newcreateopts | |
Changes
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 .... 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 .... 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 |
# 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}} $args]} { error $opts(-errmsg) } set obj(blockPreset) 0 set obj(encoding) utf-8 set obj(indent) none set obj(creator) $opts(creator) set obj(created) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1] set obj(sheets) 0 array set sheets {} set obj(sharedStrings) 0 set sharedStrings {} ................................................................................ dom createNodeCmd -tagName $tag elementNode Tag_$tag } $root setAttribute xmlns http://schemas.openxmlformats.org/officeDocument/2006/extended-properties $root setAttribute xmlns:vt http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes $root appendFromScript { Tag_Application { Text {Tcl - Office Open XML - Spreadsheet} } Tag_DocSecurity { Text 0 } Tag_ScaleCrop { Text false } Tag_HeadingPairs { Tag_vt:vector size 2 baseType variant { Tag_vt:variant { Tag_vt:lpstr { Text [msgcat::mc Worksheets] } } ................................................................................ $root setAttribute xmlns:dc http://purl.org/dc/elements/1.1/ $root setAttribute xmlns:dcterms http://purl.org/dc/terms/ $root setAttribute xmlns:dcmitype http://purl.org/dc/dcmitype/ $root setAttribute xmlns:xsi http://www.w3.org/2001/XMLSchema-instance $root appendFromScript { Tag_dc:creator { Text $obj(creator) } Tag_cp:lastModifiedBy { Text $obj(creator) } Tag_dcterms:created xsi:type dcterms:W3CDTF { Text $obj(created) } Tag_dcterms:modified xsi:type dcterms:W3CDTF { Text $obj(created) } } # xl/_rels/workbook.xml.rels set doc [set obj(doc,xl/_rels/workbook.xml.rels) [dom createDocument Relationships]] set root [$doc documentElement] |
> > > > | > > > | > > | > > > > > > > > > > > > > > > > > > | | | |
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 1513 .... 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 .... 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 |
# 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 {} ................................................................................ dom createNodeCmd -tagName $tag elementNode Tag_$tag } $root setAttribute xmlns http://schemas.openxmlformats.org/officeDocument/2006/extended-properties $root setAttribute xmlns:vt http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes $root appendFromScript { Tag_Application { Text $obj(application) } Tag_DocSecurity { Text 0 } Tag_ScaleCrop { Text false } Tag_HeadingPairs { Tag_vt:vector size 2 baseType variant { Tag_vt:variant { Tag_vt:lpstr { Text [msgcat::mc Worksheets] } } ................................................................................ $root setAttribute xmlns:dc http://purl.org/dc/elements/1.1/ $root setAttribute xmlns:dcterms http://purl.org/dc/terms/ $root setAttribute xmlns:dcmitype http://purl.org/dc/dcmitype/ $root setAttribute xmlns:xsi http://www.w3.org/2001/XMLSchema-instance $root appendFromScript { Tag_dc:creator { Text $obj(creator) } Tag_cp:lastModifiedBy { Text $obj(lastModifiedBy) } Tag_dcterms:created xsi:type dcterms:W3CDTF { Text $obj(created) } Tag_dcterms:modified xsi:type dcterms:W3CDTF { Text $obj(modified) } } # xl/_rels/workbook.xml.rels set doc [set obj(doc,xl/_rels/workbook.xml.rels) [dom createDocument Relationships]] set root [$doc documentElement] |