76 lines
2.4 KiB
Racket
76 lines
2.4 KiB
Racket
#lang racket/base
|
|
|
|
(require ffi/unsafe
|
|
ffi/unsafe/define
|
|
ffi/unsafe/atomic
|
|
ffi/unsafe/os-thread
|
|
racket/async-channel
|
|
racket/runtime-path
|
|
racket/port
|
|
data/queue
|
|
json
|
|
racket/string
|
|
racket/path
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; FFI Library
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define lib-type 'release)
|
|
|
|
(define-runtime-path lib-dir "lib")
|
|
|
|
(define libname (let ((os (system-type 'os*)))
|
|
(cond ((eq? os 'windows) (format "rktwebview.dll"))
|
|
((eq? os 'linux) (format "librktwebview.so"))
|
|
(else (error (format "OS ~a not supported" os)))))
|
|
)
|
|
;(set! libname "../rktwebview/build/Release/rktwebview.dll")
|
|
;(set! libname "../rktwebview/build/Release/librktwebview.so")
|
|
(set! libname "../rktwebview_qt/build/Desktop-Release/librktwebview_qt.so")
|
|
(define webview-lib-file (build-path lib-dir libname))
|
|
|
|
(define webview-lib (ffi-lib webview-lib-file))
|
|
(define-ffi-definer define-rktwebview webview-lib)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Types
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;RKTWEBVIEW_QT_EXPORT void rkt_webview_init(int &argc, char **argv);
|
|
(define-rktwebview rkt_webview_init
|
|
(_fun -> _void))
|
|
|
|
;RKTWEBVIEW_QT_EXPORT void rkt_webview_process_events(int for_ms);
|
|
(define-rktwebview rkt_webview_process_events
|
|
(_fun _int -> _void))
|
|
|
|
;RKTWEBVIEW_QT_EXPORT int rkt_webview_create(int parent);
|
|
(define-rktwebview rkt_webview_create
|
|
(_fun _int -> _int))
|
|
|
|
;RKTWEBVIEW_QT_EXPORT void rkt_webview_close(int wv);
|
|
(define-rktwebview rkt_webview_close
|
|
(_fun _int -> _void))
|
|
|
|
;RKTWEBVIEW_QT_EXPORT result_t rkt_webview_set_url(int wv, const char *url);
|
|
(define-rktwebview rkt_webview_set_url
|
|
(_fun _int _string/utf-8 -> _int))
|
|
|
|
;RKTWEBVIEW_QT_EXPORT result_t rkt_webview_set_html(int wv, const char *html);
|
|
|
|
(define process-events #t)
|
|
(define (start-event-processing)
|
|
(thread (λ ()
|
|
(letrec ((f (λ ()
|
|
(rkt_webview_process_events 1)
|
|
(sleep 0.001)
|
|
(if process-events
|
|
(f)
|
|
'done))))
|
|
(f)))))
|
|
|
|
(rkt_webview_init)
|
|
(start-event-processing)
|
|
|