Ported to Chicken 5

awful-sse.meta

@@ -1,8 +0,0 @@
-;; -*- Scheme -*-
-
-((synopsis "Server-Sent Events module for Awful")
- (author "Arthur Maciel")
- (category web)
- (license "BSD")
- (depends awful spiffy intarweb)
- (test-depends test server-test uri-common http-client))

awful-sse.setup

@@ -1,9 +0,0 @@
-;; -*- Scheme -*-
-
-(compile -s -O2 awful-sse.scm -j awful-sse)
-(compile -s -O2 awful-sse.import.scm)
-
-(install-extension
-  'awful-sse
-  '("awful-sse.so" "awful-sse.import.so")
-  '((version "0.1")))

awful.sse.egg

@@ -0,0 +1,9 @@
+;; -*- mode: scheme -*-
+((author "Arthur Maciel")
+ (synopsis "Server-Sent Events module for Awful")
+ (category web)
+ (license "BSD")
+ (dependencies awful spiffy intarweb)
+ (test-dependencies test server-test uri-common http-client)
+ (components
+  (extension awful.sse)))

awful.sse.scm

@@ -24,31 +24,36 @@
 ;; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
-(module awful-sse
+(module (awful sse)
 
  (define-page/sse send-sse-data send-sse-retry)
 
- (import scheme chicken data-structures extras posix)
+ (import scheme
- (use awful spiffy intarweb)
+         (chicken base)
+         (chicken keyword)
+         (chicken string)
+         ;;data-structures extras posix
+         awful spiffy intarweb)
 
  (define (add-sse-resource! sse-path sse-proc vhost-root-path client-path)
    (add-resource! sse-path
-		  (or vhost-root-path (root-path))
+		              (or vhost-root-path (root-path))
-		  (lambda (#!optional given-path)
+		              (lambda (#!optional given-path)
-		    (let ((accept (header-values 'accept
+		                (let ((accept (header-values 'accept
-						 (request-headers (current-request)))))
+						                                     (request-headers (current-request)))))
-		      ;; If client's EventSource (JS code) requested SSE page...
+		                  ;; If client's EventSource (JS code) requested SSE page...
-		      (if (memq 'text/event-stream accept)
+		                  (if (memq 'text/event-stream accept)
-			  ;;...complete handshake & keep connection alive with 'sse-proc'.
+			                    ;;...complete handshake & keep connection alive with 'sse-proc'.
                           (lambda ()
-			    (with-headers '((content-type text/event-stream)
+			                      (with-headers '((content-type text/event-stream)
-					    (cache-control no-cache)
+					                                  (cache-control no-cache)
-					    (connection keep-alive))
+					                                  (connection keep-alive))
-					  (lambda ()
+					                                (lambda ()
-					    (write-logged-response)
+					                                  (write-logged-response)
-					    (sse-proc))))
+					                                  (sse-proc))))
-			  (redirect-to client-path)))) 
+			                    (redirect-to client-path))))
-		  'GET))
+		              'GET
+		              #f))
 
  (define (define-page/sse path contents sse-path sse-proc #!rest rest)
    (apply define-page (append (list path contents) rest))

tests/client.scm

@@ -1,4 +1,4 @@
-(use awful-sse)
+(import (awful sse))
 
 (define (sse-proc)
   (send-sse-data "sse"))

tests/run.scm

@@ -1,4 +1,6 @@
-(use awful http-client intarweb uri-common server-test test)
+(import (chicken base) 
+        (chicken io)
+        awful http-client intarweb uri-common server-test test)
 
 (awful-apps (list "client.scm"))