Check-in [49c63e8862]
Not logged in

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

Overview
Comment:add tcllib upstream changes
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 49c63e8862464413ffcba073b3e6a7f123200f1b
User & Date: chw 2016-09-15 05:06:37
Context
2016-09-15
05:20
update to sqlite 3.14.2 check-in: 281963bc1f user: chw tags: trunk
05:06
add tcllib upstream changes check-in: 49c63e8862 user: chw tags: trunk
2016-09-12
15:06
improvements in CH34x usbserial w.r.t. mode setting check-in: db21d22791 user: chw tags: trunk
Changes

Changes to assets/tcllib1.18/yaml/pkgIndex.tcl.

1
2
3
4
5
6

if {![package vsatisfies [package provide Tcl] 8.5]} {return}

package ifneeded yaml         0.3.9 [list source [file join $dir yaml.tcl]]
package ifneeded huddle       0.2   [list source [file join $dir huddle.tcl]]
package ifneeded huddle::json 0.1   [list source [file join $dir json2huddle.tcl]]



|
|
|
1
2
3
4
5
6

if {![package vsatisfies [package provide Tcl] 8.5]} {return}

package ifneeded yaml         0.3.10 [list source [file join $dir yaml.tcl]]
package ifneeded huddle       0.2    [list source [file join $dir huddle.tcl]]
package ifneeded huddle::json 0.1    [list source [file join $dir json2huddle.tcl]]

Changes to assets/tcllib1.18/yaml/yaml.tcl.

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
..
64
65
66
67
68
69
70

71
72
73
74
75
76
77
#   See the file named license.terms.
#
# It currently supports a very limited subsection of the YAML spec.
#
#

package require Tcl 8.5
package provide yaml 0.3.9
package require cmdline
package require huddle 0.1.7

namespace eval ::yaml {
    namespace export load setOptions dict2dump list2dump
    variable data
    array set data {}
................................................................................
            false:Group {false off - no n}
        }
    }

    variable _dumpIndent   2
    variable _dumpWordWrap 40


    variable opts [lrange [::cmdline::GetOptionDefaults {
        {file             {input is filename}}
        {stream           {input is stream}}
        {m.arg        ""  {fixed-modifiers bulk settings(null/true/false)}}
        {m:null.arg   ""  {null modifier settings(default {"" {null "" ~}})}}
        {m:true.arg   ""  {true modifier settings(default {1 {true on + yes y}})}}
        {m:false.arg  ""  {false modifier settings(default {0 {false off - no n}})}}







|







 







>







9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
..
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#   See the file named license.terms.
#
# It currently supports a very limited subsection of the YAML spec.
#
#

package require Tcl 8.5
package provide yaml 0.3.10
package require cmdline
package require huddle 0.1.7

namespace eval ::yaml {
    namespace export load setOptions dict2dump list2dump
    variable data
    array set data {}
................................................................................
            false:Group {false off - no n}
        }
    }

    variable _dumpIndent   2
    variable _dumpWordWrap 40

    variable result
    variable opts [lrange [::cmdline::GetOptionDefaults {
        {file             {input is filename}}
        {stream           {input is stream}}
        {m.arg        ""  {fixed-modifiers bulk settings(null/true/false)}}
        {m:null.arg   ""  {null modifier settings(default {"" {null "" ~}})}}
        {m:true.arg   ""  {true modifier settings(default {1 {true on + yes y}})}}
        {m:false.arg  ""  {false modifier settings(default {0 {false off - no n}})}}