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