Add 'packages/web-server/' from commit 'd0b6ae9df6014db2195da0081dc97cc8246f1fda'

[gnu-emacs-elpa] / packages / web-server / examples / 017-transfer-encoding-chunked.el

diff --git a/packages/web-server/examples/017-transfer-encoding-chunked.el b/packages/web-server/examples/017-transfer-encoding-chunked.el
new file mode 100644 (file)
index 0000000..3217ccf
--- /dev/null
+++ b/packages/web-server/examples/017-transfer-encoding-chunked.el
@@ -0,0 +1,29 @@
+;;; transfer-encoding-chunked.el -- chunked transfer encoding
+(ws-start
+ (lambda (request)
+   (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.
+"))
+     (with-slots (process headers) request
+       (ws-response-header process 200
+         '("Content-type" . "text/plain; charset=utf-8")
+         '("Transfer-Encoding" . "chunked"))
+       (ws-send process s) (sit-for 0.5)
+       (ws-send process s) (sit-for 0.5)
+       (ws-send process s) (sit-for 0.5)
+       (ws-send process s))))
+ 9017)