First commit!
This commit is contained in:
David Thompson
commit
2c824b40a9
31 changed files with 2048 additions and 0 deletions
72
modules/dom/canvas.scm
Normal file
72
modules/dom/canvas.scm
Normal file
|
|
@ -0,0 +1,72 @@
|
|||
;;; Copyright (C) 2024 David Thompson <dave@spritely.institute>
|
||||
;;;
|
||||
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
||||
;;; you may not use this file except in compliance with the License.
|
||||
;;; You may obtain a copy of the License at
|
||||
;;;
|
||||
;;; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;;;
|
||||
;;; Unless required by applicable law or agreed to in writing, software
|
||||
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; HTMLCanvasElement and CanvasRenderingContext2D bindings.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(define-module (dom canvas)
|
||||
#:pure
|
||||
#:use-module (scheme base)
|
||||
#:use-module (hoot ffi)
|
||||
#:export (get-context
|
||||
set-fill-color!
|
||||
set-font!
|
||||
set-text-align!
|
||||
clear-rect
|
||||
fill-rect
|
||||
fill-text
|
||||
draw-image
|
||||
set-scale!
|
||||
set-transform!
|
||||
set-image-smoothing-enabled!))
|
||||
|
||||
;; HTMLCanvasElement
|
||||
(define-foreign get-context
|
||||
"canvas" "getContext"
|
||||
(ref extern) (ref string) -> (ref extern))
|
||||
|
||||
;; CanvasRenderingContext2D
|
||||
(define-foreign set-fill-color!
|
||||
"canvas" "setFillColor"
|
||||
(ref extern) (ref string) -> none)
|
||||
(define-foreign set-font!
|
||||
"canvas" "setFont"
|
||||
(ref extern) (ref string) -> none)
|
||||
(define-foreign set-text-align!
|
||||
"canvas" "setTextAlign"
|
||||
(ref extern) (ref string) -> none)
|
||||
(define-foreign clear-rect
|
||||
"canvas" "clearRect"
|
||||
(ref extern) f64 f64 f64 f64 -> none)
|
||||
(define-foreign fill-rect
|
||||
"canvas" "fillRect"
|
||||
(ref extern) f64 f64 f64 f64 -> none)
|
||||
(define-foreign fill-text
|
||||
"canvas" "fillText"
|
||||
(ref extern) (ref string) f64 f64 -> none)
|
||||
(define-foreign draw-image
|
||||
"canvas" "drawImage"
|
||||
(ref extern) (ref extern) f64 f64 f64 f64 f64 f64 f64 f64 -> none)
|
||||
(define-foreign set-scale!
|
||||
"canvas" "setScale"
|
||||
(ref extern) f64 f64 -> none)
|
||||
(define-foreign set-transform!
|
||||
"canvas" "setTransform"
|
||||
(ref extern) f64 f64 f64 f64 f64 f64 -> none)
|
||||
(define-foreign set-image-smoothing-enabled!
|
||||
"canvas" "setImageSmoothingEnabled"
|
||||
(ref extern) i32 -> none)
|
||||
45
modules/dom/document.scm
Normal file
45
modules/dom/document.scm
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
;;; Copyright (C) 2024 David Thompson <dave@spritely.institute>
|
||||
;;;
|
||||
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
||||
;;; you may not use this file except in compliance with the License.
|
||||
;;; You may obtain a copy of the License at
|
||||
;;;
|
||||
;;; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;;;
|
||||
;;; Unless required by applicable law or agreed to in writing, software
|
||||
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; Document bindings.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(define-module (dom document)
|
||||
#:pure
|
||||
#:use-module (scheme base)
|
||||
#:use-module (hoot ffi)
|
||||
#:export (current-document
|
||||
document-body
|
||||
get-element-by-id
|
||||
make-text-node
|
||||
make-element))
|
||||
|
||||
(define-foreign current-document
|
||||
"document" "get"
|
||||
-> (ref extern))
|
||||
(define-foreign document-body
|
||||
"document" "body"
|
||||
-> (ref null extern))
|
||||
(define-foreign get-element-by-id
|
||||
"document" "getElementById"
|
||||
(ref string) -> (ref null extern))
|
||||
(define-foreign make-text-node
|
||||
"document" "createTextNode"
|
||||
(ref string) -> (ref extern))
|
||||
(define-foreign make-element
|
||||
"document" "createElement"
|
||||
(ref string) -> (ref extern))
|
||||
71
modules/dom/element.scm
Normal file
71
modules/dom/element.scm
Normal file
|
|
@ -0,0 +1,71 @@
|
|||
;;; Copyright (C) 2024 David Thompson <dave@spritely.institute>
|
||||
;;;
|
||||
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
||||
;;; you may not use this file except in compliance with the License.
|
||||
;;; You may obtain a copy of the License at
|
||||
;;;
|
||||
;;; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;;;
|
||||
;;; Unless required by applicable law or agreed to in writing, software
|
||||
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; Element bindings.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(define-module (dom element)
|
||||
#:pure
|
||||
#:use-module (scheme base)
|
||||
#:use-module (hoot ffi)
|
||||
#:export (element-value
|
||||
set-element-value!
|
||||
element-width set-element-width!
|
||||
element-height set-element-height!
|
||||
append-child!
|
||||
remove!
|
||||
replace-with!
|
||||
set-attribute!
|
||||
remove-attribute!
|
||||
clone-element))
|
||||
|
||||
(define-foreign element-value
|
||||
"element" "value"
|
||||
(ref extern) -> (ref string))
|
||||
(define-foreign set-element-value!
|
||||
"element" "setValue"
|
||||
(ref extern) (ref string) -> none)
|
||||
(define-foreign element-width
|
||||
"element" "width"
|
||||
(ref extern) -> i32)
|
||||
(define-foreign element-height
|
||||
"element" "height"
|
||||
(ref extern) -> i32)
|
||||
(define-foreign set-element-width!
|
||||
"element" "setWidth"
|
||||
(ref extern) i32 -> none)
|
||||
(define-foreign set-element-height!
|
||||
"element" "setHeight"
|
||||
(ref extern) i32 -> none)
|
||||
(define-foreign append-child!
|
||||
"element" "appendChild"
|
||||
(ref extern) (ref extern) -> (ref extern))
|
||||
(define-foreign remove!
|
||||
"element" "remove"
|
||||
(ref extern) -> none)
|
||||
(define-foreign replace-with!
|
||||
"element" "replaceWith"
|
||||
(ref extern) (ref extern) -> none)
|
||||
(define-foreign set-attribute!
|
||||
"element" "setAttribute"
|
||||
(ref extern) (ref string) (ref string) -> none)
|
||||
(define-foreign remove-attribute!
|
||||
"element" "removeAttribute"
|
||||
(ref extern) (ref string) -> none)
|
||||
(define-foreign clone-element
|
||||
"element" "clone"
|
||||
(ref extern) -> (ref extern))
|
||||
46
modules/dom/event.scm
Normal file
46
modules/dom/event.scm
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
;;; Copyright (C) 2024 David Thompson <dave@spritely.institute>
|
||||
;;;
|
||||
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
||||
;;; you may not use this file except in compliance with the License.
|
||||
;;; You may obtain a copy of the License at
|
||||
;;;
|
||||
;;; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;;;
|
||||
;;; Unless required by applicable law or agreed to in writing, software
|
||||
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; EventTarget and Event bindings.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(define-module (dom event)
|
||||
#:pure
|
||||
#:use-module (scheme base)
|
||||
#:use-module (hoot ffi)
|
||||
#:export (add-event-listener!
|
||||
remove-event-listener!
|
||||
prevent-default!
|
||||
keyboard-event-code))
|
||||
|
||||
;; EventTarget
|
||||
(define-foreign add-event-listener!
|
||||
"event" "addEventListener"
|
||||
(ref extern) (ref string) (ref extern) -> none)
|
||||
(define-foreign remove-event-listener!
|
||||
"event" "removeEventListener"
|
||||
(ref extern) (ref string) (ref extern) -> none)
|
||||
|
||||
;; Event
|
||||
(define-foreign prevent-default!
|
||||
"event" "preventDefault"
|
||||
(ref extern) -> none)
|
||||
|
||||
;; KeyboardEvent
|
||||
(define-foreign keyboard-event-code
|
||||
"event" "keyboardCode"
|
||||
(ref extern) -> (ref string))
|
||||
29
modules/dom/image.scm
Normal file
29
modules/dom/image.scm
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
;;; Copyright (C) 2024 David Thompson <dave@spritely.institute>
|
||||
;;;
|
||||
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
||||
;;; you may not use this file except in compliance with the License.
|
||||
;;; You may obtain a copy of the License at
|
||||
;;;
|
||||
;;; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;;;
|
||||
;;; Unless required by applicable law or agreed to in writing, software
|
||||
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; HTMLImageElement bindings.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(define-module (dom image)
|
||||
#:pure
|
||||
#:use-module (scheme base)
|
||||
#:use-module (hoot ffi)
|
||||
#:export (make-image))
|
||||
|
||||
(define-foreign make-image
|
||||
"image" "new"
|
||||
(ref string) -> (ref extern))
|
||||
54
modules/dom/media.scm
Normal file
54
modules/dom/media.scm
Normal file
|
|
@ -0,0 +1,54 @@
|
|||
;;; Copyright (C) 2024 David Thompson <dave@spritely.institute>
|
||||
;;;
|
||||
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
||||
;;; you may not use this file except in compliance with the License.
|
||||
;;; You may obtain a copy of the License at
|
||||
;;;
|
||||
;;; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;;;
|
||||
;;; Unless required by applicable law or agreed to in writing, software
|
||||
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; HTMLMediaElement bindings.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(library (dom media)
|
||||
(export make-audio
|
||||
media-play
|
||||
media-pause
|
||||
media-volume
|
||||
set-media-volume!
|
||||
set-media-loop!
|
||||
media-seek)
|
||||
(import (scheme base)
|
||||
(hoot ffi)
|
||||
(hoot match)
|
||||
(only (hoot syntax) define*))
|
||||
|
||||
(define-foreign make-audio
|
||||
"media" "newAudio"
|
||||
(ref string) -> (ref extern))
|
||||
(define-foreign media-play
|
||||
"media" "play"
|
||||
(ref extern) -> none)
|
||||
(define-foreign media-pause
|
||||
"media" "pause"
|
||||
(ref extern) -> none)
|
||||
(define-foreign media-volume
|
||||
"media" "volume"
|
||||
(ref extern) -> f64)
|
||||
(define-foreign set-media-volume!
|
||||
"media" "setVolume"
|
||||
(ref extern) f64 -> none)
|
||||
(define-foreign set-media-loop!
|
||||
"media" "setLoop"
|
||||
(ref extern) i32 -> none)
|
||||
(define-foreign media-seek
|
||||
"media" "seek"
|
||||
(ref extern) f64 -> none))
|
||||
45
modules/dom/window.scm
Normal file
45
modules/dom/window.scm
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
;;; Copyright (C) 2024 David Thompson <dave@spritely.institute>
|
||||
;;;
|
||||
;;; Licensed under the Apache License, Version 2.0 (the "License");
|
||||
;;; you may not use this file except in compliance with the License.
|
||||
;;; You may obtain a copy of the License at
|
||||
;;;
|
||||
;;; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;;;
|
||||
;;; Unless required by applicable law or agreed to in writing, software
|
||||
;;; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
;;; See the License for the specific language governing permissions and
|
||||
;;; limitations under the License.
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; Window bindings.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(define-module (dom window)
|
||||
#:pure
|
||||
#:use-module (scheme base)
|
||||
#:use-module (hoot ffi)
|
||||
#:export (current-window
|
||||
window-inner-width
|
||||
window-inner-height
|
||||
request-animation-frame
|
||||
timeout))
|
||||
|
||||
(define-foreign current-window
|
||||
"window" "get"
|
||||
-> (ref extern))
|
||||
(define-foreign window-inner-width
|
||||
"window" "innerWidth"
|
||||
(ref extern) -> i32)
|
||||
(define-foreign window-inner-height
|
||||
"window" "innerHeight"
|
||||
(ref extern) -> i32)
|
||||
(define-foreign request-animation-frame
|
||||
"window" "requestAnimationFrame"
|
||||
(ref extern) -> none)
|
||||
(define-foreign timeout
|
||||
"window" "setTimeout"
|
||||
(ref extern) f64 -> i32)
|
||||
Loading…
Add table
Add a link
Reference in a new issue