hans/racket-sound
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-25 10:15:51 +01:00
parent 7fc4cde76f
commit 626670699f
2 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
libao/libao-async-ffi.rkt
View File

@@ -11,6 +11,7 @@
ao_stop_async ao_stop_async
ao_play_async ao_play_async
ao_is_at_second_async ao_is_at_second_async
ao_music_duration_async
ao_bufsize_async ao_bufsize_async
ao_clear_async ao_clear_async
) )
@@ -26,16 +27,18 @@
;extern void ao_stop_async(void *handle); ;extern void ao_stop_async(void *handle);
(define-libao-async ao_stop_async(_fun _libao-async-handle-pointer -> _void)) (define-libao-async ao_stop_async(_fun _libao-async-handle-pointer -> _void))
;extern void ao_play_async(void *handle, double at_second, int buf_size, void *mem); ;extern void ao_play_async(void *handle, double at_second, double music_duration, int buf_size, void *mem);
(define-libao-async ao_play_async(_fun _libao-async-handle-pointer _double _uint32 _pointer -> _void)) (define-libao-async ao_play_async(_fun _libao-async-handle-pointer _double _double _uint32 _pointer -> _void))
;extern double ao_is_at_second_async(void *handle); ;extern double ao_is_at_second_async(void *handle);
(define-libao-async ao_is_at_second_async(_fun _libao-async-handle-pointer -> _double)) (define-libao-async ao_is_at_second_async(_fun _libao-async-handle-pointer -> _double))
;extern double ao_music_duration_async(void *handle);
(define-libao-async ao_music_duration_async(_fun _libao-async-handle-pointer -> _double))
;extern int ao_bufsize_async(void *handle); ;extern int ao_bufsize_async(void *handle);
(define-libao-async ao_bufsize_async(_fun _libao-async-handle-pointer -> _int)) (define-libao-async ao_bufsize_async(_fun _libao-async-handle-pointer -> _int))
;extern void ao_clear_async(void *handle); ;extern void ao_clear_async(void *handle);
(define-libao-async ao_clear_async(_fun _libao-async-handle-pointer -> _void)) (define-libao-async ao_clear_async(_fun _libao-async-handle-pointer -> _void))

6
libao/libao.rkt
View File

@@ -16,6 +16,7 @@
ao-close ao-close
ao-default-driver-id ao-default-driver-id
ao-at-second ao-at-second
ao-music-duration
ao-bufsize-async ao-bufsize-async
ao-clear-async ao-clear-async
ao-set-async-mode! ao-set-async-mode!
@@ -232,6 +233,11 @@
(ffi:ao_is_at_second_async (ao-handle-async-player handle)) (ffi:ao_is_at_second_async (ao-handle-async-player handle))
(scm:ao_is_at_second_async (ao-handle-async-player handle)))) (scm:ao_is_at_second_async (ao-handle-async-player handle))))
(define (ao-music-duration handle)
(if (eq? libao-async-mode 'ffi)
(ffi:ao_music_duration_async (ao-handle-async-player handle))
(scm:ao_music_duration_async (ao-handle-async-player handle))))
(define (ao-bufsize-async handle) (define (ao-bufsize-async handle)
(if (eq? libao-async-mode 'ffi) (if (eq? libao-async-mode 'ffi)
(ffi:ao_bufsize_async (ao-handle-async-player handle)) (ffi:ao_bufsize_async (ao-handle-async-player handle))