summaryrefslogtreecommitdiffstats
path: root/tests/httpd11.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-01 15:15:46 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-01 15:15:46 (GMT)
commit67acc8945524908e6b8e9e1f8b1f949d3a146e11 (patch)
treece07568e15418586794d34eedbaa04e6f1db2dc9 /tests/httpd11.tcl
parent573f9fd80810dede88587f8ec61fb5cbb4a100b8 (diff)
downloadtcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.zip
tcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.tar.gz
tcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.tar.bz2
Whitespace reduction in Tcl scripts. No functional change.
Diffstat (limited to 'tests/httpd11.tcl')
-rw-r--r--tests/httpd11.tcl10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/httpd11.tcl b/tests/httpd11.tcl
index 267f409..6eae2b7 100644
--- a/tests/httpd11.tcl
+++ b/tests/httpd11.tcl
@@ -44,7 +44,7 @@ proc get-chunks {data {compression gzip}} {
deflate { set data [zlib deflate $data] }
compress { set data [zlib compress $data] }
}
-
+
set data ""
set chunker [make-chunk-generator $data 512]
while {[string length [set chunk [$chunker]]]} {
@@ -59,7 +59,7 @@ proc blow-chunks {data {ochan stdout} {compression gzip}} {
deflate { set data [zlib deflate $data] }
compress { set data [zlib compress $data] }
}
-
+
set chunker [make-chunk-generator $data 512]
while {[string length [set chunk [$chunker]]]} {
puts -nonewline $ochan $chunk
@@ -156,7 +156,7 @@ proc Service {chan addr port} {
set code "200 OK"
set close [expr {[dict get? $meta connection] eq "close"}]
}
-
+
if {$protocol eq "HTTP/1.1"} {
foreach enc [split [dict get? $meta accept-encoding] ,] {
set enc [string trim $enc]
@@ -169,7 +169,7 @@ proc Service {chan addr port} {
} else {
set close 1
}
-
+
foreach pair [split $query &] {
if {[scan $pair {%[^=]=%s} key val] != 2} {set val ""}
switch -exact -- $key {
@@ -209,7 +209,7 @@ proc Service {chan addr port} {
} else {
puts -nonewline $chan $data
}
-
+
if {$close} {
chan event $chan readable {}
close $chan