/* $Id: snd_oss.c,v 1.2 2004/03/15 02:25:43 jaq Exp $
 *
 * used to be snd_linux.c
 *
 * Copyright (C) 1997-2001 Id Software, Inc.
 * Copyright (c) 2002 The Quakeforge Project.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
 * 
 * See the GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

/* merged in from snd_irix.c -- jaq */
#ifndef __sgi
#include <unistd.h>
#include <fcntl.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/ioctl.h>
#include <sys/mman.h>
#include <sys/shm.h>
#include <sys/wait.h>
#include <stdio.h>

/* some have sys/soundcard.h, others have just soundcard.h */
#ifdef HAVE_SYS_SOUNDCARD_H
# include <sys/soundcard.h>
#endif

#ifdef HAVE_SOUNDCARD_H
# include <soundcard.h>
#endif

#else /* __sgi */
#include <dmedia/dmedia.h>
#include <dmedia/audio.h>
#endif /* __sgi */

#include "client.h"
#include "snd_loc.h"

#ifdef __sgi

/* must be a power of 2! */
#define QSND_SKID 2
#define QSND_BUFFER_FRAMES 8192
#define QSND_BUFFER_SIZE   (QSND_BUFFER_FRAMES * 2)

#define UST_TO_BUFFPOS(ust) ((int)((ust) & (QSND_BUFFERS_FRAMES - 1)) << 1)

short int dma_buffer[QSND_BUFFER_SIZE];
ALport sgisnd_aport = NULL;
long long sgisnd_startframe;
double sgisnd_frames_per_ns;
long long sgisnd_lastframewritten = 0;

#else /* !__sgi */

static int audio_fd = -1;
static volatile int snd_inited;

static int tryrates[] = { 11025, 22051, 44100, 48000, 8000 };

#endif

/* irix cvars -- jaq */
cvar_t * s_loadas8bit;
cvar_t * s_khz;

struct sndinfo * si;

qboolean SNDDMA_Init(struct sndinfo * s) {
/* merged in from snd_irix.c -- jaq */
#ifdef __sgi
	ALconfig ac = NULL;
	ALpv pvbuf[2];

	s_loadas8bit = Cvar_Get("s_loadas8bit", "16", CVAR_ARCHIVE);
	if ((int) s_loadas8bit->value)
		si->dma->samplebits = 8;
	else
		si->dma->samplebits = 16;

	if (si->dma->samplebits != 16) {
		si->Com_Printf("Don't currently support %i-bit data.  Forcing 16-bit\n", si->dma->samplebits);
		si->dma->samplebits = 16;
		Cvar_SetValue("s_loadas8bit", false);
	}

	s_khz = Cvar_Get("s_khz", "0", CVAR_ARCHIVE);
	switch ((int) s_khz->value) {
		case 48:
			si->dma->speed = AL_RATE_48000;
			break;
		case 44:
			si->dma->speed = AL_RATE_44100;
			break;
		case 32:
			si->dma->speed = AL_RATE_32000;
			break;
		case 22:
			si->dma->speed = AL_RATE_22050;
			break;
		case 16:
			si->dma->speed = AL_RATE_16000;
			break;
		case 11:
			si->dma->speed = AL_RATE_11025;
			break;
		case 8:
			si->dma->speed = AL_RATE_8000;
			break;
		default:
			si->dma->speed = AL_RATE_22050;
			si->Com_Printf("Don't currently support %ikHz sample rate, using %i.\n", (int) s_khz->value, (int) (si->dma->speed/1000));
	}

	/*	si->channels = Cvar_Get("s", "2", CVAR_ARCHIVE);*/
	si->dma->channels = (int) si->channels->value;
	if (si->dma->channels != 2)
		si->Com_Printf("Don't currently support %i sound channels, try 2.\n", si->dma->channels);

	ac = alNewConfig();
	alSetChannels(ac, AL_STEREO);
	alSetStampFmt(ac, AL_SAMPFMT_TWOSCOMP);
	alSetQueueSize(ac, QSND_BUFFER_FRAMES);
	if (si->dma->samplebits == 8)
		alSetWidth(ac, AL_SAMPLE_8);
	else
		alSetWidth(ac, AL_SAMPLE_16);

	sgisnd_aport = alOpenPort("Quake", "w", ac);
	if (!sgisnd_aport) {
		printf("failed to open audio port!\n");
	}

	/* set desired sample rate */
	pvbuf[0].param = AL_MASTER_CLOCK;
	pvbuf[0].value.i = AL_CRYSTAL_MCLK_TYPE;
	pvbuf[1].param = AL_RATE;
	pvbuf[1].value.ll = alIntToFixed(si->dma->speed);
	alSetParams(alGetResource(sgisnd_aport), pvbuf, 2);
	if (pvbuf[1].sizeOut < 0)
		printf("illegal sample rate %d\n", si->dma->speed);

	sgisnd_frames_per_ns = si->dma->speed * 1.0e-9;

	si->dma->samples = sizeof(dma_buffer) / (si->dma->samplebits / 8);
	si->dma->submission_chunk = 1;

	si->dma->buffer = (unsigned char *) dma_buffer;

	si->dma->samplepos = 0;

	alFreeConfig(ac);
	return true;
#else /* !__sgi */
	int rc;
	int fmt;
	int tmp;
	int i;
	struct audio_buf_info info;
	int caps;
	/*
	extern uid_t saved_euid;
	*/

	if (snd_inited)
		return 1;

	snd_inited = 0;

	si = s;

// open /dev/dsp, confirm capability to mmap, and get size of dma buffer

/* snd_bsd.c had "if (!audio_fd)" */
	if (audio_fd == -1)
	{
	    /* seteuid(saved_euid);*/

		audio_fd = open(si->device->string, O_RDWR);

		/* moved from below in snd_bsd.c -- jaq */
		/*seteuid(getuid());*/
		
		if (audio_fd == -1)
		{
			perror(si->device->string);
			/* 
			   seteuid(getuid());*/
			si->Com_Printf("SNDDMA_Init: Could not open %s.\n", si->device->string);
			return 0;
		}
		/*
		seteuid(getuid());
		*/
	}

    rc = ioctl(audio_fd, SNDCTL_DSP_RESET, 0);
    if (rc == -1) /* snd_bsd has "rc < 0" */
	{
		perror(si->device->string);
		si->Com_Printf("SNDDMA_Init: Could not reset %s.\n", si->device->string);
		close(audio_fd);
		audio_fd = -1;
		return 0;
	}

	if (ioctl(audio_fd, SNDCTL_DSP_GETCAPS, &caps)==-1)
	{
		perror(si->device->string);
		si->Com_Printf("SNDDMA_Init: Sound driver too old.\n");
		close(audio_fd);
		audio_fd = -1;
		return 0;
	}

	if (!(caps & DSP_CAP_TRIGGER) || !(caps & DSP_CAP_MMAP))
	{
		si->Com_Printf("SNDDMA_Init: Sorry, but your soundcard doesn't support trigger or mmap. (%08x)\n", caps);
		close(audio_fd);
		audio_fd = -1;
		return 0;
	}

    if (ioctl(audio_fd, SNDCTL_DSP_GETOSPACE, &info)==-1)
    {   
        perror("GETOSPACE");
		si->Com_Printf("SNDDMA_Init: GETOSPACE ioctl failed.\n");
		close(audio_fd);
		audio_fd = -1;
		return 0;
    }
	
// set sample bits & speed

    si->dma->samplebits = (int)si->bits->value;
	if (si->dma->samplebits != 16 && si->dma->samplebits != 8) {
        ioctl(audio_fd, SNDCTL_DSP_GETFMTS, &fmt);
#ifdef HAVE_AFMT_S16_NE
		if (fmt & AFMT_S16_NE)
#else
        if (fmt & AFMT_S16_LE)
#endif
			si->dma->samplebits = 16;
        else if (fmt & AFMT_U8) si->dma->samplebits = 8;
    }
/* in relnev 0.9, from here until the next RELNEV 0.9 comment has been moved
 * down to the following RELNEV 0.9 comment -- jaq */
	si->dma->speed = (int)si->speed->value;
	if (!si->dma->speed) {
		for (i=0 ; i<sizeof(tryrates)/4 ; i++)
			if (!ioctl(audio_fd, SNDCTL_DSP_SPEED, &tryrates[i]))
				break;
		si->dma->speed = tryrates[i];
	}

	si->dma->channels = (int)si->channels->value;
	if (si->dma->channels < 1 || si->dma->channels > 2)
		si->dma->channels = 2;

	tmp = 0;
	if (si->dma->channels == 2)
		tmp = 1;
    rc = ioctl(audio_fd, SNDCTL_DSP_STEREO, &tmp);
    if (rc < 0)
    {
		perror(si->device->string);
		si->Com_Printf("SNDDMA_Init: Could not set %s to stereo=%d.", si->device->string, si->dma->channels);
		close(audio_fd);
		audio_fd = -1;
        return 0;
    }

	if (tmp)
		si->dma->channels = 2;
	else
		si->dma->channels = 1;
	/* RELNEV 0.9 end deletion */

    if (si->dma->samplebits == 16)
    {
#ifdef HAVE_AFMT_S16_NE
        rc = AFMT_S16_NE;
#else
		rc = AFMT_S16_LE;
#endif
        rc = ioctl(audio_fd, SNDCTL_DSP_SETFMT, &rc);
        if (rc < 0)
		{
			perror(si->device->string);
			si->Com_Printf("SNDDMA_Init: Could not support 16-bit data.  Try 8-bit.\n");
			close(audio_fd);
			audio_fd = -1;
			return 0;
		}
    }
    else if (si->dma->samplebits == 8)
    {
        rc = AFMT_U8;
        rc = ioctl(audio_fd, SNDCTL_DSP_SETFMT, &rc);
        if (rc < 0)
		{
			perror(si->device->string);
			si->Com_Printf("SNDDMA_Init: Could not support 8-bit data.\n");
			close(audio_fd);
			audio_fd = -1;
			return 0;
		}
    }
	else
	{
		perror(si->device->string);
		si->Com_Printf("SNDDMA_Init: %d-bit sound not supported.", si->dma->samplebits);
		close(audio_fd);
		audio_fd = -1;
		return 0;
	}

	/* RELNEV 0.9 insert some here */

	rc = ioctl(audio_fd, SNDCTL_DSP_SPEED, &si->dma->speed);
	if (rc < 0)
	{
		perror(si->device->string);
		si->Com_Printf("SNDDMA_Init: Could not set %s speed to %d.", si->device->string, si->dma->speed);
		close(audio_fd);
		audio_fd = -1;
		return 0;
	}

	/* RELNEV 0.9 insert the mmap stuff here */

// toggle the trigger & start her up

	tmp = 0;
    	rc  = ioctl(audio_fd, SNDCTL_DSP_SETTRIGGER, &tmp);
	si->dma->samples = info.fragstotal * info.fragsize / (si->dma->samplebits/8);
	si->dma->submission_chunk = 1;

	// memory map the dma buffer

	if (!si->dma->buffer) {
	    si->dma->buffer = (unsigned char *) mmap(NULL, info.fragstotal * info.fragsize,
#if defined(__FreeBSD__) && (__FreeBSD_version < 500000)
						PROT_READ|PROT_WRITE,
#else
						PROT_WRITE,
#endif
						MAP_FILE|MAP_SHARED, audio_fd, 0);
	}
	if (!si->dma->buffer || si->dma->buffer == MAP_FAILED) {
	    perror(si->device->string);
	    si->Com_Printf("SNDDMA_Init: Could not mmap %s.\n", si->device->string);
	    close(audio_fd);
	    audio_fd = -1;
	    return 0;
	}

	if (rc < 0) {
	    perror(si->device->string);
	    si->Com_Printf("SNDDMA_Init: Could not toggle. (1)\n");
	    close(audio_fd);
	    audio_fd = -1;
	    return 0;
	}
    	tmp = PCM_ENABLE_OUTPUT;
	rc = ioctl(audio_fd, SNDCTL_DSP_SETTRIGGER, &tmp);
	if (rc < 0) {
	    perror(si->device->string);
	    si->Com_Printf("SNDDMA_Init: Could not toggle. (2)\n");
	    close(audio_fd);
	    audio_fd = -1;
	    return 0;
	}

	si->Com_Printf("oss: buffer size is %d, %d samples\n", info.fragstotal * info.fragsize, si->dma->samples);

	si->dma->samplepos = 0;
	snd_inited = 1;
	return 1;
#endif /* !__sgi */
}

/*
 * SNDDMA_GetDMAPos
 *
 * return the current sample position (in mono samples, not stereo)
 * insde the recirculating dma buffer, so the mixing code will know
 * how many samples are required to fill it up.
 */
int SNDDMA_GetDMAPos(void) {
/* merged in from snd_irix.c -- jaq */
#ifdef __sgi
	long long ustFuture, ustNow;

	if (!sgisnd_aport)
		return 0;

	alGetFrameTime(sgisnd_aport, &sgisnd_startframe, &ustFuture);
	dmGetUST((unsigned long long *) &ustNow);
	sgisnd_startframe -= (long long) ((ustFuture - ustNow) * sgisnd_frames_per_ns);
	sgisnd_startframe += 100;
	/* printf("frame %ld pos %d\n", frame, UST_TO_BUFFPOS(sgisnd_startframe)); */
	return UST_TO_BUFFPOS(sgisnd_startframe);
#else /* __sgi */
	struct count_info count;

	if (!snd_inited) return 0;

	if (ioctl(audio_fd, SNDCTL_DSP_GETOPTR, &count)==-1)
	{
		perror(si->device->string);
		si->Com_Printf("SNDDMA_GetDMAPos: GETOPTR failed.\n");
		close(audio_fd);
		audio_fd = -1;
		snd_inited = 0;
		return 0;
	}
//	si->dma->samplepos = (count.bytes / (si->dma->samplebits / 8)) & (si->dma->samples-1);
//	fprintf(stderr, "%d    \r", count.ptr);
	si->dma->samplepos = count.ptr / (si->dma->samplebits / 8);

	return si->dma->samplepos;
#endif /* __sgi */
}

/*
 * SNDDMA_Shutdown
 * Reset the sound device for exiting
 */
void SNDDMA_Shutdown(void) {
	printf ("SNDDMA_Shutdown\n");
/* merged in from snd_irix.c -- jaq */
#ifdef __sgi
	if (sgisnd_aport) {
		alClosePort(sgisnd_aport);
		sgisnd_aport = NULL;
	}
#else
	if (snd_inited) {
	    munmap (si->dma->buffer, si->dma->samples *si->dma->samplebits / 8);
	    si->dma->buffer = 0L;

	    close(audio_fd);
	    audio_fd = -1;
	    snd_inited = 0;
	}
#endif
}

/*
==============
SNDDMA_Submit

Send sound to device if buffer isn't really the dma buffer
===============
*/

/* merged in from snd_irix.c -- jaq */
#ifdef __sgi
extern int soundtime;
#endif

void SNDDMA_Submit(void) {
#ifdef __sgi
	int nFillable, nFilled, nPos;
	int nFrames, nFramesLeft;
	unsigned endtime;

	if (!sgisnd_aport)
		return;

	nFillable = alGetFillable(sgisnd_aport);
	nFilled = QSND_BUFFER_FRAMES - nFillable;

	nFrames = si->dma->samples >> (si->dma->channels - 1);

	if (paintedtime - soundtime < nFrames)
		nFrames = paintedtime - soundtime;

	if (nFrames <= QSND_SKID)
		return;

	nPos = UST_TO_BUFFPOS(sgisnd_startframe);

	/* dump rewritten contents of the buffer */
	if (sgisnd_lastframewritten > sgisnd_startframe) {
		alDiscardFrames(sgisnd_aport, sgisnd_lastframewritten - sgisnd_startframe);
	} else if ((int) (sgisnd_startframe - sgisnd_lastframewritten) >= QSND_BUFFER_FRAMES) {
		/* blow away everything if we've underflowed */
		alDiscardFrames(sgisnd_aport, QSND_BUFFER_FRAMES);
	}

	/* don't block */
	if (nFrames > nFillable)
		nFrames = nFillable;

	/* account for stereo */
	nFramesLeft = nFrames;
	if (nPos + nFrames * si->dma->channels > QSND_BUFFER_SIZE) {
		int nFramesAtEnd = (QSND_BUFFER_SIZE - nPos) >> (si->dma->channels - 1);

		alWriteFrames(sgisnd_aport, &dma_buffer[nPos], nFramesAtEnd);
		nPos = 0;
		nFramesLeft -= nFramesAtEnd;
	}
	alWriteFrames(sgi_aport, &dma_buffer[nPos], nFramesLeft);

	sgisnd_lastframewritten = sgisnd_startframe + nFrames;
#endif /* __sgi */
}

void SNDDMA_BeginPainting (void)
{
}