git » jacl.git » master » tree

[master] / jacl-client / src / main / abcl / client.lisp 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
(require :abcl-contrib)
(require :jss)

(defpackage #:jacl-client
  (:use :cl)
  (:import-from #:java jinterface-implementation))

(in-package #:jacl-client)

(defun make-listener ()
  (jinterface-implementation
   "java.net.http.WebSocket$Listener"
   "onBinary"
   (lambda (ws data last)
     (error "onBinary: Unimplemented"))
   "onClose"
   (lambda (ws code reason)
     (error "onClose: Unimplemented"))
   "onError"
   (lambda (ws err)
     (error "onError: Unimplemented"))
   "onOpen"
   (lambda (ws)
     (error "onOpen: Unimplemented"))
   "onPing"
   (lambda (ws msg)
     (error "onPing: Unimplemented"))
   "onPong"
   (lambda (ws msg)
     (error "onPong: Unimplemented"))
   "onText"
   (lambda (ws data last)
     (error "onText: Unimplemented"))))

(defun make-websocket (url)
  (let* ((http-client (#"newHttpClient" 'java.net.http.HttpClient))
         (ws-builder (#"newWebSocketBuilder" http-client))
         (uri (#"create" 'java.net.URI url))
         (listener (make-listener)))
    (#"buildAsync" ws-builder uri listener)))