"Fossies" - the Fresh Open Source Software Archive

Member "FreeBASIC-1.09.0-win64/inc/AL/al.bi" (1 Jan 2022, 16830 Bytes) of package /windows/misc/FreeBASIC-1.09.0-win64.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Visual Basic source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 '' FreeBASIC binding for openal-soft-1.16.0
    2 ''
    3 '' based on the C header files:
    4 ''
    5 ''   OpenAL cross platform audio library
    6 ''   Copyright (C) 2008 by authors.
    7 ''   This library is free software; you can redistribute it and/or
    8 ''    modify it under the terms of the GNU Library General Public
    9 ''    License as published by the Free Software Foundation; either
   10 ''    version 2 of the License, or (at your option) any later version.
   11 ''
   12 ''   This library is distributed in the hope that it will be useful,
   13 ''    but WITHOUT ANY WARRANTY; without even the implied warranty of
   14 ''    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   15 ''    Library General Public License for more details.
   16 ''
   17 ''   You should have received a copy of the GNU Library General Public
   18 ''    License along with this library; if not, write to the
   19 ''    Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
   20 ''    Boston, MA  02111-1301, USA.
   21 ''   Or go to http://www.gnu.org/copyleft/lgpl.html
   22 ''
   23 '' translated to FreeBASIC by:
   24 ''   Copyright © 2015 FreeBASIC development team
   25 
   26 #pragma once
   27 
   28 #ifdef __FB_WIN32__
   29     #inclib "OpenAL32"
   30 #else
   31     #inclib "openal"
   32 #endif
   33 
   34 extern "C"
   35 
   36 #define AL_AL_H
   37 #define OPENAL
   38 const AL_INVALID = -1
   39 #define AL_VERSION_1_0
   40 #define AL_VERSION_1_1
   41 
   42 type ALboolean as byte
   43 type ALchar as zstring
   44 type ALbyte as byte
   45 type ALubyte as ubyte
   46 type ALshort as short
   47 type ALushort as ushort
   48 type ALint as long
   49 type ALuint as ulong
   50 type ALsizei as long
   51 type ALenum as long
   52 type ALfloat as single
   53 type ALdouble as double
   54 type ALvoid as any
   55 
   56 const AL_NONE = 0
   57 const AL_FALSE = 0
   58 const AL_TRUE = 1
   59 const AL_SOURCE_RELATIVE = &h202
   60 const AL_CONE_INNER_ANGLE = &h1001
   61 const AL_CONE_OUTER_ANGLE = &h1002
   62 const AL_PITCH = &h1003
   63 const AL_POSITION = &h1004
   64 const AL_DIRECTION = &h1005
   65 const AL_VELOCITY = &h1006
   66 const AL_LOOPING = &h1007
   67 const AL_BUFFER = &h1009
   68 const AL_GAIN = &h100A
   69 const AL_MIN_GAIN = &h100D
   70 const AL_MAX_GAIN = &h100E
   71 const AL_ORIENTATION = &h100F
   72 const AL_SOURCE_STATE = &h1010
   73 const AL_INITIAL = &h1011
   74 const AL_PLAYING = &h1012
   75 const AL_PAUSED = &h1013
   76 const AL_STOPPED = &h1014
   77 const AL_BUFFERS_QUEUED = &h1015
   78 const AL_BUFFERS_PROCESSED = &h1016
   79 const AL_REFERENCE_DISTANCE = &h1020
   80 const AL_ROLLOFF_FACTOR = &h1021
   81 const AL_CONE_OUTER_GAIN = &h1022
   82 const AL_MAX_DISTANCE = &h1023
   83 const AL_SEC_OFFSET = &h1024
   84 const AL_SAMPLE_OFFSET = &h1025
   85 const AL_BYTE_OFFSET = &h1026
   86 const AL_SOURCE_TYPE = &h1027
   87 const AL_STATIC = &h1028
   88 const AL_STREAMING = &h1029
   89 const AL_UNDETERMINED = &h1030
   90 const AL_FORMAT_MONO8 = &h1100
   91 const AL_FORMAT_MONO16 = &h1101
   92 const AL_FORMAT_STEREO8 = &h1102
   93 const AL_FORMAT_STEREO16 = &h1103
   94 const AL_FREQUENCY = &h2001
   95 const AL_BITS = &h2002
   96 const AL_CHANNELS = &h2003
   97 const AL_SIZE = &h2004
   98 const AL_UNUSED = &h2010
   99 const AL_PENDING = &h2011
  100 const AL_PROCESSED = &h2012
  101 const AL_NO_ERROR = 0
  102 const AL_INVALID_NAME = &hA001
  103 const AL_INVALID_ENUM = &hA002
  104 const AL_ILLEGAL_ENUM = AL_INVALID_ENUM
  105 const AL_INVALID_VALUE = &hA003
  106 const AL_INVALID_OPERATION = &hA004
  107 const AL_ILLEGAL_COMMAND = AL_INVALID_OPERATION
  108 const AL_OUT_OF_MEMORY = &hA005
  109 const AL_VENDOR = &hB001
  110 const AL_VERSION = &hB002
  111 const AL_RENDERER = &hB003
  112 const AL_EXTENSIONS = &hB004
  113 const AL_DOPPLER_FACTOR = &hC000
  114 declare sub alDopplerFactor(byval value as ALfloat)
  115 const AL_DOPPLER_VELOCITY = &hC001
  116 declare sub alDopplerVelocity(byval value as ALfloat)
  117 const AL_SPEED_OF_SOUND = &hC003
  118 declare sub alSpeedOfSound(byval value as ALfloat)
  119 const AL_DISTANCE_MODEL = &hD000
  120 declare sub alDistanceModel(byval distanceModel as ALenum)
  121 const AL_INVERSE_DISTANCE = &hD001
  122 const AL_INVERSE_DISTANCE_CLAMPED = &hD002
  123 const AL_LINEAR_DISTANCE = &hD003
  124 const AL_LINEAR_DISTANCE_CLAMPED = &hD004
  125 const AL_EXPONENT_DISTANCE = &hD005
  126 const AL_EXPONENT_DISTANCE_CLAMPED = &hD006
  127 
  128 declare sub alEnable(byval capability as ALenum)
  129 declare sub alDisable(byval capability as ALenum)
  130 declare function alIsEnabled(byval capability as ALenum) as ALboolean
  131 declare function alGetString(byval param as ALenum) as const ALchar ptr
  132 declare sub alGetBooleanv(byval param as ALenum, byval values as ALboolean ptr)
  133 declare sub alGetIntegerv(byval param as ALenum, byval values as ALint ptr)
  134 declare sub alGetFloatv(byval param as ALenum, byval values as ALfloat ptr)
  135 declare sub alGetDoublev(byval param as ALenum, byval values as ALdouble ptr)
  136 declare function alGetBoolean(byval param as ALenum) as ALboolean
  137 declare function alGetInteger(byval param as ALenum) as ALint
  138 declare function alGetFloat(byval param as ALenum) as ALfloat
  139 declare function alGetDouble(byval param as ALenum) as ALdouble
  140 declare function alGetError() as ALenum
  141 declare function alIsExtensionPresent(byval extname as const ALchar ptr) as ALboolean
  142 declare function alGetProcAddress(byval fname as const ALchar ptr) as any ptr
  143 declare function alGetEnumValue(byval ename as const ALchar ptr) as ALenum
  144 declare sub alListenerf(byval param as ALenum, byval value as ALfloat)
  145 declare sub alListener3f(byval param as ALenum, byval value1 as ALfloat, byval value2 as ALfloat, byval value3 as ALfloat)
  146 declare sub alListenerfv(byval param as ALenum, byval values as const ALfloat ptr)
  147 declare sub alListeneri(byval param as ALenum, byval value as ALint)
  148 declare sub alListener3i(byval param as ALenum, byval value1 as ALint, byval value2 as ALint, byval value3 as ALint)
  149 declare sub alListeneriv(byval param as ALenum, byval values as const ALint ptr)
  150 declare sub alGetListenerf(byval param as ALenum, byval value as ALfloat ptr)
  151 declare sub alGetListener3f(byval param as ALenum, byval value1 as ALfloat ptr, byval value2 as ALfloat ptr, byval value3 as ALfloat ptr)
  152 declare sub alGetListenerfv(byval param as ALenum, byval values as ALfloat ptr)
  153 declare sub alGetListeneri(byval param as ALenum, byval value as ALint ptr)
  154 declare sub alGetListener3i(byval param as ALenum, byval value1 as ALint ptr, byval value2 as ALint ptr, byval value3 as ALint ptr)
  155 declare sub alGetListeneriv(byval param as ALenum, byval values as ALint ptr)
  156 declare sub alGenSources(byval n as ALsizei, byval sources as ALuint ptr)
  157 declare sub alDeleteSources(byval n as ALsizei, byval sources as const ALuint ptr)
  158 declare function alIsSource(byval source as ALuint) as ALboolean
  159 declare sub alSourcef(byval source as ALuint, byval param as ALenum, byval value as ALfloat)
  160 declare sub alSource3f(byval source as ALuint, byval param as ALenum, byval value1 as ALfloat, byval value2 as ALfloat, byval value3 as ALfloat)
  161 declare sub alSourcefv(byval source as ALuint, byval param as ALenum, byval values as const ALfloat ptr)
  162 declare sub alSourcei(byval source as ALuint, byval param as ALenum, byval value as ALint)
  163 declare sub alSource3i(byval source as ALuint, byval param as ALenum, byval value1 as ALint, byval value2 as ALint, byval value3 as ALint)
  164 declare sub alSourceiv(byval source as ALuint, byval param as ALenum, byval values as const ALint ptr)
  165 declare sub alGetSourcef(byval source as ALuint, byval param as ALenum, byval value as ALfloat ptr)
  166 declare sub alGetSource3f(byval source as ALuint, byval param as ALenum, byval value1 as ALfloat ptr, byval value2 as ALfloat ptr, byval value3 as ALfloat ptr)
  167 declare sub alGetSourcefv(byval source as ALuint, byval param as ALenum, byval values as ALfloat ptr)
  168 declare sub alGetSourcei(byval source as ALuint, byval param as ALenum, byval value as ALint ptr)
  169 declare sub alGetSource3i(byval source as ALuint, byval param as ALenum, byval value1 as ALint ptr, byval value2 as ALint ptr, byval value3 as ALint ptr)
  170 declare sub alGetSourceiv(byval source as ALuint, byval param as ALenum, byval values as ALint ptr)
  171 declare sub alSourcePlayv(byval n as ALsizei, byval sources as const ALuint ptr)
  172 declare sub alSourceStopv(byval n as ALsizei, byval sources as const ALuint ptr)
  173 declare sub alSourceRewindv(byval n as ALsizei, byval sources as const ALuint ptr)
  174 declare sub alSourcePausev(byval n as ALsizei, byval sources as const ALuint ptr)
  175 declare sub alSourcePlay(byval source as ALuint)
  176 declare sub alSourceStop(byval source as ALuint)
  177 declare sub alSourceRewind(byval source as ALuint)
  178 declare sub alSourcePause(byval source as ALuint)
  179 declare sub alSourceQueueBuffers(byval source as ALuint, byval nb as ALsizei, byval buffers as const ALuint ptr)
  180 declare sub alSourceUnqueueBuffers(byval source as ALuint, byval nb as ALsizei, byval buffers as ALuint ptr)
  181 declare sub alGenBuffers(byval n as ALsizei, byval buffers as ALuint ptr)
  182 declare sub alDeleteBuffers(byval n as ALsizei, byval buffers as const ALuint ptr)
  183 declare function alIsBuffer(byval buffer as ALuint) as ALboolean
  184 declare sub alBufferData(byval buffer as ALuint, byval format as ALenum, byval data as const any ptr, byval size as ALsizei, byval freq as ALsizei)
  185 declare sub alBufferf(byval buffer as ALuint, byval param as ALenum, byval value as ALfloat)
  186 declare sub alBuffer3f(byval buffer as ALuint, byval param as ALenum, byval value1 as ALfloat, byval value2 as ALfloat, byval value3 as ALfloat)
  187 declare sub alBufferfv(byval buffer as ALuint, byval param as ALenum, byval values as const ALfloat ptr)
  188 declare sub alBufferi(byval buffer as ALuint, byval param as ALenum, byval value as ALint)
  189 declare sub alBuffer3i(byval buffer as ALuint, byval param as ALenum, byval value1 as ALint, byval value2 as ALint, byval value3 as ALint)
  190 declare sub alBufferiv(byval buffer as ALuint, byval param as ALenum, byval values as const ALint ptr)
  191 declare sub alGetBufferf(byval buffer as ALuint, byval param as ALenum, byval value as ALfloat ptr)
  192 declare sub alGetBuffer3f(byval buffer as ALuint, byval param as ALenum, byval value1 as ALfloat ptr, byval value2 as ALfloat ptr, byval value3 as ALfloat ptr)
  193 declare sub alGetBufferfv(byval buffer as ALuint, byval param as ALenum, byval values as ALfloat ptr)
  194 declare sub alGetBufferi(byval buffer as ALuint, byval param as ALenum, byval value as ALint ptr)
  195 declare sub alGetBuffer3i(byval buffer as ALuint, byval param as ALenum, byval value1 as ALint ptr, byval value2 as ALint ptr, byval value3 as ALint ptr)
  196 declare sub alGetBufferiv(byval buffer as ALuint, byval param as ALenum, byval values as ALint ptr)
  197 
  198 type LPALENABLE as sub(byval capability as ALenum)
  199 type LPALDISABLE as sub(byval capability as ALenum)
  200 type LPALISENABLED as function(byval capability as ALenum) as ALboolean
  201 type LPALGETSTRING as function(byval param as ALenum) as const ALchar ptr
  202 type LPALGETBOOLEANV as sub(byval param as ALenum, byval values as ALboolean ptr)
  203 type LPALGETINTEGERV as sub(byval param as ALenum, byval values as ALint ptr)
  204 type LPALGETFLOATV as sub(byval param as ALenum, byval values as ALfloat ptr)
  205 type LPALGETDOUBLEV as sub(byval param as ALenum, byval values as ALdouble ptr)
  206 type LPALGETBOOLEAN as function(byval param as ALenum) as ALboolean
  207 type LPALGETINTEGER as function(byval param as ALenum) as ALint
  208 type LPALGETFLOAT as function(byval param as ALenum) as ALfloat
  209 type LPALGETDOUBLE as function(byval param as ALenum) as ALdouble
  210 type LPALGETERROR as function() as ALenum
  211 type LPALISEXTENSIONPRESENT as function(byval extname as const ALchar ptr) as ALboolean
  212 type LPALGETPROCADDRESS as function(byval fname as const ALchar ptr) as any ptr
  213 type LPALGETENUMVALUE as function(byval ename as const ALchar ptr) as ALenum
  214 type LPALLISTENERF as sub(byval param as ALenum, byval value as ALfloat)
  215 type LPALLISTENER3F as sub(byval param as ALenum, byval value1 as ALfloat, byval value2 as ALfloat, byval value3 as ALfloat)
  216 type LPALLISTENERFV as sub(byval param as ALenum, byval values as const ALfloat ptr)
  217 type LPALLISTENERI as sub(byval param as ALenum, byval value as ALint)
  218 type LPALLISTENER3I as sub(byval param as ALenum, byval value1 as ALint, byval value2 as ALint, byval value3 as ALint)
  219 type LPALLISTENERIV as sub(byval param as ALenum, byval values as const ALint ptr)
  220 type LPALGETLISTENERF as sub(byval param as ALenum, byval value as ALfloat ptr)
  221 type LPALGETLISTENER3F as sub(byval param as ALenum, byval value1 as ALfloat ptr, byval value2 as ALfloat ptr, byval value3 as ALfloat ptr)
  222 type LPALGETLISTENERFV as sub(byval param as ALenum, byval values as ALfloat ptr)
  223 type LPALGETLISTENERI as sub(byval param as ALenum, byval value as ALint ptr)
  224 type LPALGETLISTENER3I as sub(byval param as ALenum, byval value1 as ALint ptr, byval value2 as ALint ptr, byval value3 as ALint ptr)
  225 type LPALGETLISTENERIV as sub(byval param as ALenum, byval values as ALint ptr)
  226 type LPALGENSOURCES as sub(byval n as ALsizei, byval sources as ALuint ptr)
  227 type LPALDELETESOURCES as sub(byval n as ALsizei, byval sources as const ALuint ptr)
  228 type LPALISSOURCE as function(byval source as ALuint) as ALboolean
  229 type LPALSOURCEF as sub(byval source as ALuint, byval param as ALenum, byval value as ALfloat)
  230 type LPALSOURCE3F as sub(byval source as ALuint, byval param as ALenum, byval value1 as ALfloat, byval value2 as ALfloat, byval value3 as ALfloat)
  231 type LPALSOURCEFV as sub(byval source as ALuint, byval param as ALenum, byval values as const ALfloat ptr)
  232 type LPALSOURCEI as sub(byval source as ALuint, byval param as ALenum, byval value as ALint)
  233 type LPALSOURCE3I as sub(byval source as ALuint, byval param as ALenum, byval value1 as ALint, byval value2 as ALint, byval value3 as ALint)
  234 type LPALSOURCEIV as sub(byval source as ALuint, byval param as ALenum, byval values as const ALint ptr)
  235 type LPALGETSOURCEF as sub(byval source as ALuint, byval param as ALenum, byval value as ALfloat ptr)
  236 type LPALGETSOURCE3F as sub(byval source as ALuint, byval param as ALenum, byval value1 as ALfloat ptr, byval value2 as ALfloat ptr, byval value3 as ALfloat ptr)
  237 type LPALGETSOURCEFV as sub(byval source as ALuint, byval param as ALenum, byval values as ALfloat ptr)
  238 type LPALGETSOURCEI as sub(byval source as ALuint, byval param as ALenum, byval value as ALint ptr)
  239 type LPALGETSOURCE3I as sub(byval source as ALuint, byval param as ALenum, byval value1 as ALint ptr, byval value2 as ALint ptr, byval value3 as ALint ptr)
  240 type LPALGETSOURCEIV as sub(byval source as ALuint, byval param as ALenum, byval values as ALint ptr)
  241 type LPALSOURCEPLAYV as sub(byval n as ALsizei, byval sources as const ALuint ptr)
  242 type LPALSOURCESTOPV as sub(byval n as ALsizei, byval sources as const ALuint ptr)
  243 type LPALSOURCEREWINDV as sub(byval n as ALsizei, byval sources as const ALuint ptr)
  244 type LPALSOURCEPAUSEV as sub(byval n as ALsizei, byval sources as const ALuint ptr)
  245 type LPALSOURCEPLAY as sub(byval source as ALuint)
  246 type LPALSOURCESTOP as sub(byval source as ALuint)
  247 type LPALSOURCEREWIND as sub(byval source as ALuint)
  248 type LPALSOURCEPAUSE as sub(byval source as ALuint)
  249 type LPALSOURCEQUEUEBUFFERS as sub(byval source as ALuint, byval nb as ALsizei, byval buffers as const ALuint ptr)
  250 type LPALSOURCEUNQUEUEBUFFERS as sub(byval source as ALuint, byval nb as ALsizei, byval buffers as ALuint ptr)
  251 type LPALGENBUFFERS as sub(byval n as ALsizei, byval buffers as ALuint ptr)
  252 type LPALDELETEBUFFERS as sub(byval n as ALsizei, byval buffers as const ALuint ptr)
  253 type LPALISBUFFER as function(byval buffer as ALuint) as ALboolean
  254 type LPALBUFFERDATA as sub(byval buffer as ALuint, byval format as ALenum, byval data as const any ptr, byval size as ALsizei, byval freq as ALsizei)
  255 type LPALBUFFERF as sub(byval buffer as ALuint, byval param as ALenum, byval value as ALfloat)
  256 type LPALBUFFER3F as sub(byval buffer as ALuint, byval param as ALenum, byval value1 as ALfloat, byval value2 as ALfloat, byval value3 as ALfloat)
  257 type LPALBUFFERFV as sub(byval buffer as ALuint, byval param as ALenum, byval values as const ALfloat ptr)
  258 type LPALBUFFERI as sub(byval buffer as ALuint, byval param as ALenum, byval value as ALint)
  259 type LPALBUFFER3I as sub(byval buffer as ALuint, byval param as ALenum, byval value1 as ALint, byval value2 as ALint, byval value3 as ALint)
  260 type LPALBUFFERIV as sub(byval buffer as ALuint, byval param as ALenum, byval values as const ALint ptr)
  261 type LPALGETBUFFERF as sub(byval buffer as ALuint, byval param as ALenum, byval value as ALfloat ptr)
  262 type LPALGETBUFFER3F as sub(byval buffer as ALuint, byval param as ALenum, byval value1 as ALfloat ptr, byval value2 as ALfloat ptr, byval value3 as ALfloat ptr)
  263 type LPALGETBUFFERFV as sub(byval buffer as ALuint, byval param as ALenum, byval values as ALfloat ptr)
  264 type LPALGETBUFFERI as sub(byval buffer as ALuint, byval param as ALenum, byval value as ALint ptr)
  265 type LPALGETBUFFER3I as sub(byval buffer as ALuint, byval param as ALenum, byval value1 as ALint ptr, byval value2 as ALint ptr, byval value3 as ALint ptr)
  266 type LPALGETBUFFERIV as sub(byval buffer as ALuint, byval param as ALenum, byval values as ALint ptr)
  267 type LPALDOPPLERFACTOR as sub(byval value as ALfloat)
  268 type LPALDOPPLERVELOCITY as sub(byval value as ALfloat)
  269 type LPALSPEEDOFSOUND as sub(byval value as ALfloat)
  270 type LPALDISTANCEMODEL as sub(byval distanceModel as ALenum)
  271 
  272 end extern