Chicken/awful-sse
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updating examples

Browse source
This commit is contained in:
Daniel Ziltener 2020-12-29 03:35:33 +01:00
parent 324324c4a9
commit e81b389351
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/example1.scm
View file

@ -1,11 +1,11 @@
;; Run with 'awful example1.scm'. ;; Run with 'awful example1.scm'.
;; On web browser open http://localhost:8080/client and watch the ;; On web browser open http://localhost:8080/client and watch the
;; new time coming each second from the server. ;; new time coming each second from the server.
(use awful-sse awful spiffy posix srfi-18) (import (chicken time posix) (chicken random) (awful sse) awful spiffy srfi-18)
(define (sse-proc) (define (sse-proc)
(let loop () (let loop ()
(send-sse-data (seconds->string) id: (random 10) event: "message") (send-sse-data (seconds->string) id: (pseudo-random-integer 10) event: "message")
(thread-sleep! 1) (thread-sleep! 1)
(loop))) (loop)))

2
examples/example2.scm
View file

@ -2,7 +2,7 @@
;; Open two web browsers and point both to http://localhost:8080/client. ;; Open two web browsers and point both to http://localhost:8080/client.
;; Try clicking on the blue and the red divs and see them changing their ;; Try clicking on the blue and the red divs and see them changing their
;; boolean values on BOTH browsers. ;; boolean values on BOTH browsers.
(use awful-sse awful spiffy json posix srfi-18) (import (chicken port) (awful sse) awful spiffy json srfi-18)
; Global variables are not good practice, but will suffice for the moment. ; Global variables are not good practice, but will suffice for the moment.
(define one #t) (define one #t)