code.delx.au - gnu-emacs-elpa/blob - packages/web-server/examples/017-transfer-encoding-chunked.el

   1 ;;; transfer-encoding-chunked.el -- chunked transfer encoding
   2 (ws-start
   3  (lambda (request)
   4    (let ((s "
   5 Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec
   6 hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
   7 nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
   8 natoque penatibus et magnis dis parturient montes, nascetur
   9 ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
  10 diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
  11 vestibulum accumsan nisl.
  12
  13 Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec
  14 hendrerit tempor tellus. Donec pretium posuere tellus. Proin quam
  15 nisl, tincidunt et, mattis eget, convallis nec, purus. Cum sociis
  16 natoque penatibus et magnis dis parturient montes, nascetur
  17 ridiculus mus. Nulla posuere. Donec vitae dolor. Nullam tristique
  18 diam non turpis. Cras placerat accumsan nulla. Nullam rutrum. Nam
  19 vestibulum accumsan nisl.
  20 "))
  21      (with-slots (process headers) request
  22        (ws-response-header process 200
  23          '("Content-type" . "text/plain; charset=utf-8")
  24          '("Transfer-Encoding" . "chunked"))
  25        (ws-send process s) (sit-for 0.5)
  26        (ws-send process s) (sit-for 0.5)
  27        (ws-send process s) (sit-for 0.5)
  28        (ws-send process s))))
  29  9017)