1 {
2   Translation of the OpenAL headers for FreePascal
3   Copyright (C) 2006 by Ivo Steinmann
4 }
5 
6 unit openal;
7 
8 {$mode objfpc}
9 
10 interface
11 
12 uses
13   ctypes;
14 
15 {$IFDEF WINDOWS}
16   {$DEFINE DYNLINK}
17 {$ENDIF}
18 
19 {$IF Defined(DYNLINK)}
20 const
21 {$IF Defined(WINDOWS)}
22   openallib = 'openal32.dll';
23 {$ELSEIF Defined(UNIX)}
24   openallib = 'libopenal.so';
25 {$ELSE}
26   {$MESSAGE ERROR 'DYNLINK not supported'}
27 {$IFEND}
28 {$ELSEIF Defined(Darwin)}
29 {$linkframework OpenAL}
30 {$ELSE}
31   {$LINKLIB openal}
32 {$ENDIF}
33 
34 {$include alh.inc}
35 {$include alch.inc}
36 {$include alexth.inc}
37 
38 implementation
39 
40 end.
41