Recent changes to patches

Symmetrical json conversion

2013-04-10T18:11:03Z

I propose the following enhancement:

proc json::dict2json {dictVal {keys {}}} {
set json ""
dict for {key val} $dictVal {
# key must always be a string, val may be a number, string or
# bare word (true|false|null) or a dict if provided in keys

## check if we can resolve the value to a dictionary
if {($key in $keys) && ![catch {dict keys $val}]} {
set val [json::dict2json $val $keys]
} elseif {![string is double -strict $val]
&& ![regexp {^(?:true|false|null)$} $val]} {
set val "\"$val\""
}
if {$json ne ""} {append json ","}
append json "\"$key\":$val"
}
return "\{${json}\}"
}

Normally one knows the keys in a dictionary, how else would you be able to access them? Thus you could also pass a list of all possible keys allowing for symmetric conversion:

> json::json2dict {{"user1":{"maint":"yes"},"user2":{"maint":"no","home":{"town":"Vienna","state":"Austria"}}}}
user1 {maint yes} user2 {maint no home {town Vienna state Austria}}

> json::dict2json {user1 {maint yes} user2 {maint no home {town Vienna state Austria}}} {user1 user2 home}
{"user1":{"maint":"yes"},"user2":{"maint":"no","home":{"town":"Vienna","state":"Austria"}}}

Calendar closes by clicking year/month navigation arrow.

2013-03-08T01:01:20Z

I have modified dateentry <ButtonPress> binding not to close a calendar by clicking items tagged with "cbutton".

update iban valtype

2013-02-26T19:17:53Z

Update version for compatibility with IBAN Registry version 43

added imap "copy" command

2013-02-11T17:24:26Z

I've added a proc for the imap "copy" function, which is needed if you want to move a message from one mailbox to another. Currently, it's not possible to move messages between folders with the imap4 library. This proc fixes that problem.

To add this feature, paste the following proc below the "proc expunge" function in imap4.tcl

May I ask that you add this patch to the imap library ?

Thanks!

-john

# copy : copy a message to a destination mailbox
proc copy {chan msgid mailbox} {
if {[simplecmd $chan COPY SELECT [list $msgid $mailbox]]} {
return 1
}
return 0
}

huddle get does not accept non-scalar dict keys

2012-06-20T20:06:50Z

Found a bug in how huddle dict objects lookup non-scalar keys. The bug is in huddle::_key_reflexive and stems from the a non-scalar single key being passed via args (variadic mechanism). The problem is that an extra set of curly braces ends up enclosing the key path when it finally gets passed to dict get (which errors). A simple example is:
set h [huddle create {a a} b]
huddle get $h {a a}; # error thrown here

I've seen this bug in huddle versions 0.1.3 through 0.1.5.

A fix for this is attached along with some new tests, the files are modified versions of the huddle 0.1.5 source.

iban validate

2012-06-05T21:34:28Z

update version for compatibility with IBAN Registry version 35

json: pretty-printing a dictionary

2012-03-19T11:40:11Z

Based on json.tcl (1.1.2)
I added a new proc named "json2prettydict"

Aim of this proc is to return a "pretty-printed" tcl-dictionary.

I think this proc could be useful for documentating complex nested dictionaries.

- Internal Notes -
"json2prettydict" is heavily based on existing json2dict and json::parseXXX procs.
I slightly changed the internal code of all json::parseXXX procs, so that
these procs, may be called in two ways: for getting a (traditional) tcl-dict
or for getting a pretty-printed tcl-dict.

[Source code is attached]

-------------------------------------
Here is a demo:

set jsonStr { \ { "photos": { "page": 1, "pages": "726", "perpage": 3, "total": "7257",
"photo": [
{ "id": "6974156079", "owner": "74957296@N08", "secret": "005d743f82", "server": "7197", "farm": 8, "title": "Kenya Watamu \"Deep Sea Fishing\" \"Indian Ocean\" \"Blue Marlin\"", "ispublic": 1, "isfriend": 0, "isfamily": 0 },
{ "id": "6822988100", "owner": "52857411@N08", "secret": "56630c18e8", "server": "7183", "farm": 8, "title": "Gedi Ruins, Local Guide", "ispublic": 1, "isfriend": 0, "isfamily": 0 },
{ "id": "6822909640", "owner": "52857411@N08", "secret": "f4e392ea36", "server": "7063", "farm": 8, "title": "Local Fisherman, Mida Creek", "ispublic": 1, "isfriend": 0, "isfamily": 0 }
] }, "stat": "ok" }
}
# First, just for comparision, call json2dict
set d1 [json::json2dict $jsonStr]
# result is the following
if {0} {

photos {page 1 pages 726 perpage 3 total 7257 photo {{id 6974156079 owner 74957296@N08 secret 005d743f82 server 7197 farm 8 title {Kenya Watamu "Deep Sea Fishing" "Indian Ocean" "Blue Marlin"} ispublic 1 isfriend 0 isfamily 0} {id 6822988100 owner 52857411@N08 secret 56630c18e8 server 7183 farm 8 title {Gedi Ruins, Local Guide} ispublic 1 isfriend 0 isfamily 0} {id 6822909640 owner 52857411@N08 secret f4e392ea36 server 7063 farm 8 title {Local Fisherman, Mida Creek} ispublic 1 isfriend 0 isfamily 0}}} stat ok

}
# Then create a pretty printed dictionary
set d2 [json::json2prettydict $jsonStr]
# result is the following
if {0} {

photos {
page 1
pages 726
perpage 3
total 7257
photo {
{
id 6974156079
owner 74957296@N08
secret 005d743f82
server 7197
farm 8
title {Kenya Watamu "Deep Sea Fishing" "Indian Ocean" "Blue Marlin"}
ispublic 1
isfriend 0
isfamily 0
}
{
id 6822988100
owner 52857411@N08
secret 56630c18e8
server 7183
farm 8
title {Gedi Ruins, Local Guide}
ispublic 1
isfriend 0
isfamily 0
}
{
id 6822909640
owner 52857411@N08
secret f4e392ea36
server 7063
farm 8
title {Local Fisherman, Mida Creek}
ispublic 1
isfriend 0
isfamily 0
}
}

}
stat ok

}

# -- end

New Module: socks5

2012-03-10T23:19:28Z

Patch to add a new module for establishing connections via SOCKS 5 proxies. The patch was generated against the 1.14 release tarball.

::S3 missing "Host:" header

2012-03-01T22:18:55Z

::S3 does not send a "Host:" header.
This causes "HTTP/1.1 400 Bad Request" to be returned by some transparent proxies.
(e.g. when using Telstra 3G through the telstra.iph APN).

The patch below sets the host header.

--- /System/Library/Tcl/tcllib1.12/amazon-s3/S3.tcl.orig 2012-02-25 15:32:45.000000000 +1100
+++ /System/Library/Tcl/tcllib1.12/amazon-s3/S3.tcl 2012-03-02 09:13:07.000000000 +1100
@@ -252,6 +252,7 @@
if {${content-type} != ""} {
dict set headers content-type ${content-type}
}
+ dict set headers host s3.amazonaws.com
set xamz ""
foreach key [lsort [dict keys $headers x-amz-*]] {
# Assume each is seen only once, for now, and is canonical already.

First go at installing tcl modules

2012-02-29T23:26:49Z

Attached patch gives the installer the ability to install (some) packages as tcl modules.
Also adds -destdir option, similar to ${DESTDIR} in Tcl's Makefile.