63 lines
1.1 KiB
Racket
63 lines
1.1 KiB
Racket
(module web-wire racket/base
|
|
|
|
(require racket/system
|
|
)
|
|
|
|
(provide ww-start
|
|
ww
|
|
ww-stop
|
|
|
|
ww-new
|
|
ww-move
|
|
ww-resize
|
|
ww-set-title
|
|
ww-set-icon
|
|
)
|
|
|
|
|
|
(define-struct ww
|
|
(
|
|
[win #:auto #:mutable]
|
|
[process-handler #:auto #:mutable]
|
|
[cb-move #:auto #:mutable]
|
|
[cb-resize #:auto #:mutable]
|
|
|
|
)
|
|
#:auto-value #f
|
|
)
|
|
|
|
(define (ww-start)
|
|
(let* ((cwd (current-directory))
|
|
(bin (build-path cwd ".." "bin" "linux" "web-wire"))
|
|
(ww (make-ww))
|
|
(ports (process bin)))
|
|
(let* ((in (car ports))
|
|
(out (cadr ports))
|
|
(pid (caddr ports))
|
|
(err (cadddr ports))
|
|
)
|
|
(set-ww-process-handler! (thread
|
|
(displayln bin)
|
|
(let ((ports (process bin)))
|
|
|
|
#t))
|
|
|
|
(define (ww-stop)
|
|
#t)
|
|
|
|
(define (ww-new)
|
|
#t)
|
|
|
|
(define (ww-move)
|
|
#t)
|
|
|
|
(define (ww-resize)
|
|
#t)
|
|
|
|
(define (ww-set-title)
|
|
#t)
|
|
|
|
(define (ww-set-icon)
|
|
#t)
|
|
|
|
); end of module |