Tcl Library Source Code

Changes On Branch tkt-997c8b4e67-aku
Login

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

Changes In Branch tkt-997c8b4e67-aku Excluding Merge-Ins

This is equivalent to a diff from 78d7722e1e to e6c5341f16

2018-02-01
04:33
Merged work on tkt [997c8b4e67] to release rc check-in: 5e6fbe3de1 user: aku tags: tcllib-1-19-rc
2018-01-25
05:01
Tkt [997c8b4e67] rest/rest <B> More fixes to the command extraction and validation. Closed-Leaf check-in: e6c5341f16 user: aku tags: tkt-997c8b4e67-aku
2017-08-07
23:41
Merged fix for ticket [cb043ecc70e0e90bf]. check-in: c76dc6a3fc user: aku tags: trunk
23:27
Test demonstrating the problem Closed-Leaf check-in: d345a5a2e5 user: aku tags: tkt-cb043ecc70e0e90bff9-demo
2017-08-06
16:29
fix math::geometry::areaPolygon plus polish the module. check-in: 3cb80496a0 user: avl42 tags: avl-fix-areaPolygon-and-more
2017-06-05
21:22
Sync to trunk. check-in: f736853eec user: aku tags: tkt-997c8b4e67-aku
21:00
Merged fixes for tkt [71deadcf96]. check-in: 78d7722e1e user: aku tags: trunk
20:59
Bump version of "pt::rde::nx" properly. Closed-Leaf check-in: 329f77b79d user: aku tags: pt-nx-fixes
2017-05-30
16:26
Merged fixes for ticket e4cfcc0f96: handling of null by hullde json writer. check-in: bf5f60bebe user: andreask tags: trunk

Changes to modules/rest/pkgIndex.tcl.

1
2
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded rest 1.3 [list source [file join $dir rest.tcl]]

|
1
2
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded rest 1.3.1 [list source [file join $dir rest.tcl]]

Changes to modules/rest/rest.man.

1
2
3
4
5
6
7
8
9
[comment {-*- tcl -*- doctools manpage}]
[vset VERSION 1.3]
[manpage_begin rest n [vset VERSION]]
[moddesc   {A framework for RESTful web services}]
[titledesc {define REST web APIs and call them inline or asychronously}]
[require Tcl 8.5]
[require rest [opt [vset VERSION]]]
[description]


|







1
2
3
4
5
6
7
8
9
[comment {-*- tcl -*- doctools manpage}]
[vset VERSION 1.3.1]
[manpage_begin rest n [vset VERSION]]
[moddesc   {A framework for RESTful web services}]
[titledesc {define REST web APIs and call them inline or asychronously}]
[require Tcl 8.5]
[require rest [opt [vset VERSION]]]
[description]

Changes to modules/rest/rest.tcl.

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

package require Tcl 8.5
package require http 2.7
package require json
package require tdom
package require base64

package provide rest 1.3

namespace eval ::rest {
    namespace export create_interface parameters parse_opts save \
    describe substitute
}

# simple --







|







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

package require Tcl 8.5
package require http 2.7
package require json
package require tdom
package require base64

package provide rest 1.3.1

namespace eval ::rest {
    namespace export create_interface parameters parse_opts save \
    describe substitute
}

# simple --
105
106
107
108
109
110
111


112
113
114
115
116
117
118
119
120
121
122
123
	set cmd [lindex $cmd 0]
    }]} {
	# Not a proper list. String processing.
	# Simple: Assume name without spaces.
	# TODO: Quoted literal.
	regexp {^([^ ]+).*$} $cmd -> cmd
    }


    if {$cmd ni {get delete head post put patch}} {
	return -code error "Unable to determine rest::simple method, found \"$cmd\". Please specify it explicitly."
    }
    set cmd [namespace tail $cmd]    
    if {$cmd eq "simple"} { set cmd get }
    #puts >>>|$cmd|
    dict set config method $cmd
    return
}

# create_interface --
#







>
>



<
<







105
106
107
108
109
110
111
112
113
114
115
116


117
118
119
120
121
122
123
	set cmd [lindex $cmd 0]
    }]} {
	# Not a proper list. String processing.
	# Simple: Assume name without spaces.
	# TODO: Quoted literal.
	regexp {^([^ ]+).*$} $cmd -> cmd
    }
    set cmd [namespace tail $cmd]    
    if {$cmd eq "simple"} { set cmd get }
    if {$cmd ni {get delete head post put patch}} {
	return -code error "Unable to determine rest::simple method, found \"$cmd\". Please specify it explicitly."
    }


    #puts >>>|$cmd|
    dict set config method $cmd
    return
}

# create_interface --
#