From c24f802cfe6ac98b1d87a582378fa028da949693 Mon Sep 17 00:00:00 2001 From: oscarl-2 Date: Sun, 21 Dec 2003 03:03:29 +0000 Subject: [PATCH] initial commit --- .../bepascal/pas/src/be/media/playsound.pp | 22 +++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 bepascal/source/bepascal/pas/src/be/media/playsound.pp diff --git a/bepascal/source/bepascal/pas/src/be/media/playsound.pp b/bepascal/source/bepascal/pas/src/be/media/playsound.pp new file mode 100644 index 0000000..4c2a9d5 --- /dev/null +++ b/bepascal/source/bepascal/pas/src/be/media/playsound.pp @@ -0,0 +1,22 @@ +unit PlaySound; +// Description: Interface for a simple beep sound. + +interface + +uses + Entry, OS, SupportDefs; + +type + sound_handle = sem_id; + +function play_sound(const soundRef : Pentry_ref; mix : Boolean; queue : Boolean; + background : Boolean) : sound_handle; + cdecl; external 'media' name 'play_sound'; +function stop_sound(handle : sound_handle) : status_t; + cdecl; external 'media' name 'stop_sound'; +function wait_for_sound(handle : sound_handle) : status_t; + cdecl; external 'media' name 'wait_for_sound'; + +implementation + +end. \ No newline at end of file