Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | amazon-S3 - Fixed missing argument pointed out by TDK tclchecker. Version bumped to 1.0.3. |
|---|---|
| Timelines: | family | ancestors | descendants | both | tcllib-1-17-rc |
| Files: | files | file ages | folders |
| SHA1: |
4f1177c40cc936dbc357dd63dadb144b |
| User & Date: | aku 2015-04-16 00:01:14 |
Context
|
2015-04-21
| ||
| 06:41 | math::calculus - Ticket [2d683b17a1] - Resolved decision. Removed 8.5-isms from the code (**-operator, min(), max(), lassign). Testsuite now passes for Tcl 8.4. Version bumped to 0.8.1. check-in: 4fc707c9ef user: aku tags: tcllib-1-17-rc | |
|
2015-04-16
| ||
| 00:01 | amazon-S3 - Fixed missing argument pointed out by TDK tclchecker. Version bumped to 1.0.3. check-in: 4f1177c40c user: aku tags: tcllib-1-17-rc | |
|
2015-04-15
| ||
| 21:21 | Updated README check-in: 734ccd27b4 user: aku tags: tcllib-1-17-rc | |
Changes
Changes to modules/amazon-s3/S3.man.
|
| | | 1 2 3 4 5 6 7 8 |
[vset VERSION 1.0.3]
[manpage_begin S3 n [vset VERSION]]
[keywords amazon]
[keywords cloud]
[keywords s3]
[moddesc {Amazon S3 Web Service Utilities}]
[titledesc {Amazon S3 Web Service Interface}]
[category Networking]
|
| ︙ | ︙ |
Changes to modules/amazon-s3/S3.tcl.
| ︙ | ︙ | |||
34 35 36 37 38 39 40 | # These three are required to do the auth, so always require them. # Note that package registry and package fileutil are required # by the individual routines that need them. Grep for "package". package require sha1 package require md5 package require base64 | | | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
# These three are required to do the auth, so always require them.
# Note that package registry and package fileutil are required
# by the individual routines that need them. Grep for "package".
package require sha1
package require md5
package require base64
package provide S3 1.0.3
namespace eval S3 {
variable config ; # A dict holding the current configuration.
variable config_orig ; # Holds configuration to "reset" back to.
variable debug 0 ; # Turns on or off S3::debug
variable debuglog 0 ; # Turns on or off debugging into a file
variable bgvar_counter 0 ; # Makes unique names for bgvars.
|
| ︙ | ︙ | |||
317 318 319 320 321 322 323 |
global errorCode
S3::debug "nextdo" $routine $thunk $direction $args
if {[dict get $thunk blocking]} {
return [S3::$routine $thunk]
} else {
if {[llength $args] == 2} {
# fcopy failed!
| | | 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 |
global errorCode
S3::debug "nextdo" $routine $thunk $direction $args
if {[dict get $thunk blocking]} {
return [S3::$routine $thunk]
} else {
if {[llength $args] == 2} {
# fcopy failed!
S3::fail $thunk "S3 fcopy failed: [lindex $args 1]" "" \
[list S3 socket $errorCode]
} else {
fileevent [dict get $thunk S3chan] $direction \
[list S3::$routine $thunk]
if {$direction == "writable"} {
fileevent [dict get $thunk S3chan] readable {}
} else {
|
| ︙ | ︙ |
Changes to modules/amazon-s3/pkgIndex.tcl.
1 2 3 4 5 6 |
# pkgIndex.tcl --
# Copyright (c) 2006 Darren New
# This is for the Amazon S3 web service packages.
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
| | | | 1 2 3 4 5 6 7 8 9 |
# pkgIndex.tcl --
# Copyright (c) 2006 Darren New
# This is for the Amazon S3 web service packages.
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded xsxp 1.0 [list source [file join $dir xsxp.tcl]]
package ifneeded S3 1.0.3 [list source [file join $dir S3.tcl]]
|