SuperKamiGuru/foss-mmo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add media.ended binding.

Browse source
This commit is contained in:
David Thompson 2024-05-22 21:29:50 -04:00
parent 111eb33429
commit e09efb46a0
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
game.js
View file

@ -49,6 +49,7 @@ window.addEventListener("load", async () => {
}, },
media: { media: {
newAudio: (src) => new Audio(src), newAudio: (src) => new Audio(src),
ended: (media) => media.ended,
play: (media) => media.play(), play: (media) => media.play(),
pause: (media) => media.pause(), pause: (media) => media.pause(),
volume: (media) => media.volume, volume: (media) => media.volume,

13
modules/dom/media.scm
View file

@ -20,6 +20,7 @@
(library (dom media) (library (dom media)
(export make-audio (export make-audio
media-ended?
media-play media-play
media-pause media-pause
media-volume media-volume
@ -34,21 +35,33 @@
(define-foreign make-audio (define-foreign make-audio
"media" "newAudio" "media" "newAudio"
(ref string) -> (ref extern)) (ref string) -> (ref extern))
(define-foreign %media-ended?
"media" "ended"
(ref extern) -> i32)
(define (media-ended? media)
(= (%media-ended? media) 1))
(define-foreign media-play (define-foreign media-play
"media" "play" "media" "play"
(ref extern) -> none) (ref extern) -> none)
(define-foreign media-pause (define-foreign media-pause
"media" "pause" "media" "pause"
(ref extern) -> none) (ref extern) -> none)
(define-foreign media-volume (define-foreign media-volume
"media" "volume" "media" "volume"
(ref extern) -> f64) (ref extern) -> f64)
(define-foreign set-media-volume! (define-foreign set-media-volume!
"media" "setVolume" "media" "setVolume"
(ref extern) f64 -> none) (ref extern) f64 -> none)
(define-foreign set-media-loop! (define-foreign set-media-loop!
"media" "setLoop" "media" "setLoop"
(ref extern) i32 -> none) (ref extern) i32 -> none)
(define-foreign media-seek (define-foreign media-seek
"media" "seek" "media" "seek"
(ref extern) f64 -> none)) (ref extern) f64 -> none))