package require tls
variable quit 0
proc Read {chan} {
if {[eof $chan]} { fileevent $chan readable {}; puts "Closed"; set ::forever 1; return }
puts [read $chan]
variable quit ; if {!$quit} { puts $chan QUIT; set quit 0 }
}
proc Write {chan} {
fileevent $chan writable {}
tls::handshake $chan
fconfigure $chan -buffering line -blocking 0 -translation crlf
}
set sock [tls::socket -async pop.gmail.com 995]
fconfigure $sock -encoding binary -buffering none -blocking 1
fileevent $sock writable [list Write $sock]
fileevent $sock readable [list Read $sock]
vwait ::forever
source examples/hello-direct.tcl
hello {
domain Direct
url /hello
namespace ::Hello
}
testrewrite {
url /testrewrite
rewrite /hello
}
package require rest
set urls "http://tcl-eval.blogspot.tw/"
set res [rest::get http://api.facebook.com/restserver.php [list method links.getStats urls $urls]]
puts $res
<?xml version="1.0" encoding="UTF-8"?>
<links_getStats_response xmlns="http://api.facebook.com/1.0/" xmlns:xsi="http://
www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://api.facebook.com/
1.0/ http://api.facebook.com/1.0/facebook.xsd" list="true">
<link_stat>
<url>http://tcl-eval.blogspot.tw/</url>
<normalized_url>http://tcl-eval.blogspot.tw/</normalized_url>
<share_count>0</share_count>
<like_count>0</like_count>
<comment_count>0</comment_count>
<total_count>0</total_count>
<click_count>0</click_count>
<comments_fbid xsi:nil="true"/>
<commentsbox_count>0</commentsbox_count>
</link_stat>
</links_getStats_response>
#!/usr/bin/tclsh
package require tdbc::sqlite3
tdbc::sqlite3::connection create db "sample.db"
set statement [db prepare {drop table if exists person}]
$statement execute
$statement close
set statement [db prepare {create table person (id integer, name varchar(40))}]
$statement execute
$statement close
set statement [db prepare {insert into person values(1, 'leo')}]
$statement execute
$statement close
set statement [db prepare {insert into person values(2, 'yui')}]
$statement execute
$statement close
set statement [db prepare {SELECT * FROM person}]
$statement foreach row {
puts [dict get $row id]
puts [dict get $row name]
}
$statement close
db close
./configure
make
make install