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