2 Copyright (C) 2003-2005 Mathieu Olivier
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13 See the GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to:
18 Free Software Foundation, Inc.
19 59 Temple Place - Suite 330
20 Boston, MA 02111-1307, USA
32 =================================================================
34 Minimal set of definitions from the Ogg Vorbis lib
35 (C) COPYRIGHT 1994-2001 by the XIPHOPHORUS Company
38 WARNING: for a matter of simplicity, several pointer types are
39 casted to "void*", and most enumerated values are not included
41 =================================================================
45 typedef __int64 ogg_int64_t;
47 typedef long long ogg_int64_t;
52 size_t (*read_func) (void *ptr, size_t size, size_t nmemb, void *datasource);
53 int (*seek_func) (void *datasource, ogg_int64_t offset, int whence);
54 int (*close_func) (void *datasource);
55 long (*tell_func) (void *datasource);
83 unsigned char *body_data;
88 ogg_int64_t *granule_vals;
93 unsigned char header[282];
100 ogg_int64_t granulepos;
118 ogg_int64_t granulepos;
119 ogg_int64_t sequence;
120 ogg_int64_t glue_bits;
121 ogg_int64_t time_bits;
122 ogg_int64_t floor_bits;
123 ogg_int64_t res_bits;
131 unsigned char *buffer;
146 ogg_int64_t granulepos;
147 ogg_int64_t sequence;
148 vorbis_dsp_state *vd;
153 void *reap; // VOIDED POINTER
163 char **user_comments;
164 int *comment_lengths;
177 ogg_int64_t *offsets;
178 ogg_int64_t *dataoffsets;
180 ogg_int64_t *pcmlengths;
183 ogg_int64_t pcm_offset;
185 long current_serialno;
192 ov_callbacks callbacks;
197 =================================================================
199 DarkPlaces definitions
201 =================================================================
204 // Functions exported from the vorbisfile library
205 static int (*qov_clear) (OggVorbis_File *vf);
206 static vorbis_info* (*qov_info) (OggVorbis_File *vf,int link);
207 static vorbis_comment* (*qov_comment) (OggVorbis_File *vf,int link);
208 static char * (*qvorbis_comment_query) (vorbis_comment *vc, char *tag, int count);
209 static int (*qov_open_callbacks) (void *datasource, OggVorbis_File *vf,
210 char *initial, long ibytes,
211 ov_callbacks callbacks);
212 static int (*qov_pcm_seek) (OggVorbis_File *vf,ogg_int64_t pos);
213 static ogg_int64_t (*qov_pcm_total) (OggVorbis_File *vf,int i);
214 static long (*qov_read) (OggVorbis_File *vf,char *buffer,int length,
215 int bigendianp,int word,int sgned,int *bitstream);
217 static dllfunction_t vorbisfilefuncs[] =
219 {"ov_clear", (void **) &qov_clear},
220 {"ov_info", (void **) &qov_info},
221 {"ov_comment", (void **) &qov_comment},
222 {"vorbis_comment_query", (void **) &qvorbis_comment_query},
223 {"ov_open_callbacks", (void **) &qov_open_callbacks},
224 {"ov_pcm_seek", (void **) &qov_pcm_seek},
225 {"ov_pcm_total", (void **) &qov_pcm_total},
226 {"ov_read", (void **) &qov_read},
230 static dllfunction_t vorbisfuncs[] =
232 {"vorbis_comment_query", (void **) &qvorbis_comment_query},
236 // Handles for the Vorbis and Vorbisfile DLLs
237 static dllhandle_t vo_dll = NULL;
238 static dllhandle_t vf_dll = NULL;
242 unsigned char *buffer;
243 ogg_int64_t ind, buffsize;
247 static size_t ovcb_read (void *ptr, size_t size, size_t nb, void *datasource)
249 ov_decode_t *ov_decode = (ov_decode_t*)datasource;
252 remain = ov_decode->buffsize - ov_decode->ind;
255 len = remain - remain % size;
257 memcpy (ptr, ov_decode->buffer + ov_decode->ind, len);
258 ov_decode->ind += len;
263 static int ovcb_seek (void *datasource, ogg_int64_t offset, int whence)
265 ov_decode_t *ov_decode = (ov_decode_t*)datasource;
272 offset += ov_decode->ind;
275 offset += ov_decode->buffsize;
280 if (offset < 0 || offset > ov_decode->buffsize)
283 ov_decode->ind = offset;
287 static int ovcb_close (void *ov_decode)
292 static long ovcb_tell (void *ov_decode)
294 return ((ov_decode_t*)ov_decode)->ind;
299 =================================================================
303 =================================================================
310 Try to load the VorbisFile DLL
313 qboolean OGG_OpenLibrary (void)
315 const char* dllnames_vo [] =
322 #elif defined(MACOSX)
330 const char* dllnames_vf [] =
333 "libvorbisfile64.dll",
337 #elif defined(MACOSX)
338 "libvorbisfile.dylib",
340 "libvorbisfile.so.3",
350 // COMMANDLINEOPTION: Sound: -novorbis disables ogg vorbis sound support
351 if (COM_CheckParm("-novorbis"))
355 // We need to load both by hand because some OSes seem to not load
356 // the vorbis DLL automatically when loading the VorbisFile DLL
357 if (! Sys_LoadLibrary (dllnames_vo, &vo_dll, vorbisfuncs) ||
358 ! Sys_LoadLibrary (dllnames_vf, &vf_dll, vorbisfilefuncs))
360 Sys_UnloadLibrary (&vo_dll);
361 Con_Printf ("Ogg Vorbis support disabled\n");
365 Con_Printf ("Ogg Vorbis support enabled\n");
374 Unload the VorbisFile DLL
377 void OGG_CloseLibrary (void)
379 Sys_UnloadLibrary (&vf_dll);
380 Sys_UnloadLibrary (&vo_dll);
385 =================================================================
389 =================================================================
392 #define STREAM_BUFFER_DURATION 1.5f // 1.5 sec
393 #define STREAM_BUFFER_SIZE(format_ptr) ((int)(ceil (STREAM_BUFFER_DURATION * ((format_ptr)->speed * (format_ptr)->width * (format_ptr)->channels))))
395 // We work with 1 sec sequences, so this buffer must be able to contain
396 // 1 sec of sound of the highest quality (48 KHz, 16 bit samples, stereo)
397 static unsigned char resampling_buffer [48000 * 2 * 2];
400 // Per-sfx data structure
406 } ogg_stream_persfx_t;
408 // Per-channel data structure
412 ov_decode_t ov_decode;
413 unsigned int sb_offset;
415 snd_buffer_t sb; // must be at the end due to its dynamically allocated size
416 } ogg_stream_perchannel_t;
419 static const ov_callbacks callbacks = {ovcb_read, ovcb_seek, ovcb_close, ovcb_tell};
426 static const snd_buffer_t* OGG_FetchSound (channel_t* ch, unsigned int* start, unsigned int nbsampleframes)
428 ogg_stream_perchannel_t* per_ch;
430 ogg_stream_persfx_t* per_sfx;
432 int newlength, done, ret, bigendian;
433 unsigned int real_start;
436 per_ch = (ogg_stream_perchannel_t *)ch->fetcher_data;
438 per_sfx = (ogg_stream_persfx_t *)sfx->fetcher_data;
440 // If there's no fetcher structure attached to the channel yet
443 size_t buff_len, memsize;
444 snd_format_t sb_format;
446 sb_format.speed = snd_renderbuffer->format.speed;
447 sb_format.width = per_sfx->format.width;
448 sb_format.channels = per_sfx->format.channels;
450 buff_len = STREAM_BUFFER_SIZE(&sb_format);
451 memsize = sizeof (*per_ch) - sizeof (per_ch->sb.samples) + buff_len;
452 per_ch = (ogg_stream_perchannel_t *)Mem_Alloc (snd_mempool, memsize);
453 sfx->memsize += memsize;
455 // Open it with the VorbisFile API
456 per_ch->ov_decode.buffer = per_sfx->file;
457 per_ch->ov_decode.ind = 0;
458 per_ch->ov_decode.buffsize = per_sfx->filesize;
459 if (qov_open_callbacks (&per_ch->ov_decode, &per_ch->vf, NULL, 0, callbacks) < 0)
461 Con_Printf("error while reading Ogg Vorbis stream \"%s\"\n", sfx->name);
467 per_ch->sb_offset = 0;
468 per_ch->sb.format = sb_format;
469 per_ch->sb.nbframes = 0;
470 per_ch->sb.maxframes = buff_len / (per_ch->sb.format.channels * per_ch->sb.format.width);
472 ch->fetcher_data = per_ch;
478 factor = per_sfx->format.width * per_sfx->format.channels;
480 // If the stream buffer can't contain that much samples anyway
481 if (nbsampleframes > sb->maxframes)
483 Con_Printf ("OGG_FetchSound: stream buffer too small (%u sample frames required)\n", nbsampleframes);
487 // If the data we need has already been decompressed in the sfxbuffer, just return it
488 if (per_ch->sb_offset <= real_start && per_ch->sb_offset + sb->nbframes >= real_start + nbsampleframes)
490 *start = per_ch->sb_offset;
494 newlength = (int)(per_ch->sb_offset + sb->nbframes) - real_start;
496 // If we need to skip some data before decompressing the rest, or if the stream has looped
497 if (newlength < 0 || per_ch->sb_offset > real_start)
499 unsigned int time_start;
500 ogg_int64_t ogg_start;
503 if (real_start > (unsigned int)sfx->total_length)
505 Con_Printf ("OGG_FetchSound: asked for a start position after the end of the sfx! (%u > %u)\n",
506 real_start, sfx->total_length);
510 // We work with 200ms (1/5 sec) steps to avoid rounding errors
511 time_start = real_start * 5 / snd_renderbuffer->format.speed;
512 ogg_start = time_start * (per_sfx->format.speed / 5);
513 err = qov_pcm_seek (&per_ch->vf, ogg_start);
516 Con_Printf ("OGG_FetchSound: qov_pcm_seek(..., %d) returned %d\n",
522 real_start = (float)ogg_start / per_sfx->format.speed * snd_renderbuffer->format.speed;
523 if (*start - real_start + nbsampleframes > sb->maxframes)
525 Con_Printf ("OGG_FetchSound: stream buffer too small after seek (%u sample frames required)\n",
526 *start - real_start + nbsampleframes);
527 per_ch->sb_offset = real_start;
531 // Else, move forward the samples we need to keep in the sound buffer
534 memmove (sb->samples, sb->samples + (real_start - per_ch->sb_offset) * factor, newlength * factor);
535 sb->nbframes = newlength;
538 per_ch->sb_offset = real_start;
540 // We add exactly 1 sec of sound to the buffer:
541 // 1- to ensure we won't lose any sample during the resampling process
542 // 2- to force one call to OGG_FetchSound per second to regulate the workload
543 if (sb->format.speed + sb->nbframes > sb->maxframes)
545 Con_Printf ("OGG_FetchSound: stream buffer overflow (%u sample frames / %u)\n",
546 sb->format.speed + sb->nbframes, sb->maxframes);
549 newlength = per_sfx->format.speed * factor; // -> 1 sec of sound before resampling
551 // Decompress in the resampling_buffer
552 #if BYTE_ORDER == BIG_ENDIAN
558 while ((ret = qov_read (&per_ch->vf, (char *)&resampling_buffer[done], (int)(newlength - done), bigendian, 2, 1, &per_ch->bs)) > 0)
561 Snd_AppendToSndBuffer (sb, resampling_buffer, (size_t)done / (size_t)factor, &per_sfx->format);
563 *start = per_ch->sb_offset;
573 static void OGG_FetchEnd (channel_t* ch)
575 ogg_stream_perchannel_t* per_ch;
577 per_ch = (ogg_stream_perchannel_t *)ch->fetcher_data;
582 // Free the ogg vorbis decoder
583 qov_clear (&per_ch->vf);
585 buff_len = per_ch->sb.maxframes * per_ch->sb.format.channels * per_ch->sb.format.width;
586 ch->sfx->memsize -= sizeof (*per_ch) - sizeof (per_ch->sb.samples) + buff_len;
589 ch->fetcher_data = NULL;
599 static void OGG_FreeSfx (sfx_t* sfx)
601 ogg_stream_persfx_t* per_sfx = (ogg_stream_persfx_t *)sfx->fetcher_data;
603 // Free the Ogg Vorbis file
604 Mem_Free(per_sfx->file);
605 sfx->memsize -= per_sfx->filesize;
607 // Free the stream structure
609 sfx->memsize -= sizeof (*per_sfx);
611 sfx->fetcher_data = NULL;
621 static const snd_format_t* OGG_GetFormat (sfx_t* sfx)
623 ogg_stream_persfx_t* per_sfx = (ogg_stream_persfx_t *)sfx->fetcher_data;
624 return &per_sfx->format;
627 static const snd_fetcher_t ogg_fetcher = { OGG_FetchSound, OGG_FetchEnd, OGG_FreeSfx, OGG_GetFormat };
634 Load an Ogg Vorbis file into memory
637 qboolean OGG_LoadVorbisFile (const char *filename, sfx_t *sfx)
640 const char *loopcomment;
641 fs_offset_t filesize;
642 ov_decode_t ov_decode;
646 ogg_int64_t len, buff_len;
652 if (sfx->fetcher != NULL)
656 data = FS_LoadFile (filename, snd_mempool, false, &filesize);
660 Con_DPrintf ("Loading Ogg Vorbis file \"%s\"\n", filename);
662 // Open it with the VorbisFile API
663 ov_decode.buffer = data;
665 ov_decode.buffsize = filesize;
666 if (qov_open_callbacks (&ov_decode, &vf, NULL, 0, callbacks) < 0)
668 Con_Printf ("error while opening Ogg Vorbis file \"%s\"\n", filename);
673 // Get the stream information
674 vi = qov_info (&vf, -1);
675 if (vi->channels < 1 || vi->channels > 2)
677 Con_Printf("%s has an unsupported number of channels (%i)\n",
678 sfx->name, vi->channels);
684 len = qov_pcm_total (&vf, -1) * vi->channels * 2; // 16 bits => "* 2"
686 // Decide if we go for a stream or a simple PCM cache
687 buff_len = (int)ceil (STREAM_BUFFER_DURATION * (snd_renderbuffer->format.speed * 2 * vi->channels));
688 if (snd_streaming.integer && len > (ogg_int64_t)filesize + 3 * buff_len)
690 ogg_stream_persfx_t* per_sfx;
692 Con_DPrintf ("\"%s\" will be streamed\n", filename);
693 per_sfx = (ogg_stream_persfx_t *)Mem_Alloc (snd_mempool, sizeof (*per_sfx));
694 sfx->memsize += sizeof (*per_sfx);
695 per_sfx->file = data;
696 per_sfx->filesize = filesize;
697 sfx->memsize += filesize;
699 per_sfx->format.speed = vi->rate;
700 per_sfx->format.width = 2; // We always work with 16 bits samples
701 per_sfx->format.channels = vi->channels;
703 sfx->fetcher_data = per_sfx;
704 sfx->fetcher = &ogg_fetcher;
705 sfx->flags |= SFXFLAG_STREAMED;
706 sfx->total_length = (int)((size_t)len / (per_sfx->format.channels * 2) * ((double)snd_renderbuffer->format.speed / per_sfx->format.speed));
707 sfx->loopstart = sfx->total_length;
708 vc = qov_comment(&vf, -1);
711 loopcomment = qvorbis_comment_query(vc, "LOOP_START", 0);
713 sfx->loopstart = bound(0, (unsigned int) (atof(loopcomment) * (double)snd_renderbuffer->format.speed / (double)per_sfx->format.speed), sfx->total_length);
723 snd_format_t ogg_format;
725 Con_DPrintf ("\"%s\" will be cached\n", filename);
728 buff = (char *)Mem_Alloc (snd_mempool, (int)len);
731 #if BYTE_ORDER == BIG_ENDIAN
736 while ((ret = qov_read (&vf, &buff[done], (int)(len - done), bigendian, 2, 1, &bs)) > 0)
739 // Build the sound buffer
740 ogg_format.speed = vi->rate;
741 ogg_format.channels = vi->channels;
742 ogg_format.width = 2; // We always work with 16 bits samples
743 sb = Snd_CreateSndBuffer ((unsigned char *)buff, (size_t)done / (vi->channels * 2), &ogg_format, snd_renderbuffer->format.speed);
752 sfx->fetcher = &wav_fetcher;
753 sfx->fetcher_data = sb;
755 sfx->total_length = sb->nbframes;
756 sfx->memsize += sb->maxframes * sb->format.channels * sb->format.width + sizeof (*sb) - sizeof (sb->samples);
758 sfx->loopstart = sfx->total_length;
759 sfx->flags &= ~SFXFLAG_STREAMED;
760 vc = qov_comment(&vf, -1);
763 loopcomment = qvorbis_comment_query(vc, "LOOP_START", 0);
765 sfx->loopstart = bound(0, (unsigned int) (atoi(loopcomment) * (double)snd_renderbuffer->format.speed / (double)sb->format.speed), sfx->total_length);