[elpa] 101/119: manual application of chunked transfer encoding

[Eric Schulte]

eschulte pushed a commit to branch master
in repository elpa.

commit 0be3f458fbec8e7349efbde06cb5980c62e77583
Author: Eric Schulte <address@hidden>
Date:   Fri Jan 17 08:19:21 2014 -0700

    manual application of chunked transfer encoding
---
 examples/017-transfer-encoding-chunked.el |   30 +++++++++++++++++++++++++++++
 1 files changed, 30 insertions(+), 0 deletions(-)

diff --git a/examples/017-transfer-encoding-chunked.el 
b/examples/017-transfer-encoding-chunked.el
new file mode 100644
index 0000000..6289e37
--- /dev/null
+++ b/examples/017-transfer-encoding-chunked.el
@@ -0,0 +1,30 @@
+;;; transfer-encoding-chunked.el -- manual chunked transfer encoding
+(ws-start
+ (lambda (request)
+   (cl-flet ((chunk (s) (format "%x\r\n%s\r\n" (string-bytes s) s)))
+     (with-slots (process headers) request
+       (ws-response-header process 200
+         '("Content-type" . "text/plain; charset=utf-8")
+         '("Transfer-Encoding" . "chunked"))
+       (let ((s "
+Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec
+hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
+nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
+natoque penatibus et magnis dis parturient montes, nascetur
+ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
+diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
+vestibulum accumsan nisl.
+
+Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec
+hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
+nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
+natoque penatibus et magnis dis parturient montes, nascetur
+ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
+diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
+vestibulum accumsan nisl.
+"))
+         (process-send-string process (chunk s)) (sit-for 0.5)
+         (process-send-string process (chunk s)) (sit-for 0.5)
+         (process-send-string process (chunk s)) (sit-for 0.5)
+         (process-send-string process "0\r\n\r\n")))))
+ 9017)