You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tqt3/src/kernel/qsound_x11.cpp

284 lines
6.8 KiB

/****************************************************************************
**
** Implementation of TQSound class and TQAuServer internal class
**
** Created : 000117
**
** Copyright (C) 1999-2008 Trolltech ASA. All rights reserved.
**
** This file is part of the kernel module of the TQt GUI Toolkit.
**
** This file may be used under the terms of the GNU General
** Public License versions 2.0 or 3.0 as published by the Free
** Software Foundation and appearing in the files LICENSE.GPL2
** and LICENSE.GPL3 included in the packaging of this file.
** Alternatively you may (at your option) use any later version
** of the GNU General Public License if such license has been
** publicly approved by Trolltech ASA (or its successors, if any)
** and the KDE Free TQt Foundation.
**
** Please review the following information to ensure GNU General
** Public Licensing requirements will be met:
** http://trolltech.com/products/qt/licenses/licensing/opensource/.
** If you are unsure which license is appropriate for your use, please
** review the following information:
** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
** or contact the sales department at sales@trolltech.com.
**
** This file may be used under the terms of the Q Public License as
** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
** included in the packaging of this file. Licensees holding valid TQt
** Commercial licenses may use this file in accordance with the TQt
** Commercial License Agreement provided with the Software.
**
** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
** herein.
**
**********************************************************************/
#define QT_CLEAN_NAMESPACE
#include "ntqsound.h"
#ifndef QT_NO_SOUND
#include "ntqptrdict.h"
#include "ntqsocketnotifier.h"
#include "ntqapplication.h"
#ifdef QT_NAS_SUPPORT
#include <audio/audiolib.h>
#include <audio/soundlib.h>
static AuServer *nas=0;
static AuBool eventPred(AuServer *, AuEvent *e, AuPointer p)
{
if (e && (e->type == AuEventTypeElementNotify)) {
if (e->auelementnotify.flow == *((AuFlowID *)p))
return TRUE;
}
return FALSE;
}
class TQAuBucketNAS : public TQAuBucket {
public:
TQAuBucketNAS(AuBucketID b, AuFlowID f = 0) : id(b), flow(f), stopped(TRUE), numplaying(0) { }
~TQAuBucketNAS()
{
if ( nas ) {
AuSync(nas, FALSE);
AuDestroyBucket(nas, id, NULL);
AuEvent ev;
while (AuScanEvents(nas, AuEventsQueuedAfterFlush, TRUE, eventPred, &flow, &ev))
;
}
}
AuBucketID id;
AuFlowID flow;
bool stopped;
int numplaying;
};
class TQAuServerNAS : public TQAuServer {
TQ_OBJECT
TQSocketNotifier* sn;
public:
TQAuServerNAS(TQObject* parent);
~TQAuServerNAS();
void init(TQSound*);
void play(const TQString& filename);
void play(TQSound*);
void stop(TQSound*);
bool okay();
void setDone(TQSound*);
public slots:
void dataReceived();
void soundDestroyed(TQObject *o);
private:
TQAuBucketNAS* bucket(TQSound* s)
{
return (TQAuBucketNAS*)TQAuServer::bucket(s);
}
};
TQAuServerNAS::TQAuServerNAS(TQObject* parent) :
TQAuServer(parent,"Network Audio System")
{
nas = AuOpenServer(NULL, 0, NULL, 0, NULL, NULL);
if (nas) {
AuSetCloseDownMode(nas, AuCloseDownDestroy, NULL);
// Ask TQt for async messages...
sn=new TQSocketNotifier(AuServerConnectionNumber(nas),
TQSocketNotifier::Read);
TQObject::connect(sn, SIGNAL(activated(int)),
this, SLOT(dataReceived()));
} else {
sn = 0;
}
}
TQAuServerNAS::~TQAuServerNAS()
{
if ( nas )
AuCloseServer( nas );
delete sn;
nas = 0;
}
static TQPtrDict<void> *inprogress=0;
void TQAuServerNAS::soundDestroyed(TQObject *o)
{
if (inprogress) {
TQSound *so = static_cast<TQSound *>(o);
while (inprogress->remove(so))
; // Loop while remove returns TRUE
}
}
void TQAuServerNAS::play(const TQString& filename)
{
if (nas) {
int iv=100;
AuFixedPoint volume=AuFixedPointFromFraction(iv,100);
AuSoundPlayFromFile(nas, filename, AuNone, volume, NULL, NULL, NULL, NULL, NULL, NULL);
AuFlush(nas);
dataReceived();
AuFlush(nas);
tqApp->flushX();
}
}
static void callback( AuServer*, AuEventHandlerRec*, AuEvent* e, AuPointer p)
{
if ( inprogress->find(p) && e ) {
if (e->type==AuEventTypeElementNotify &&
e->auelementnotify.kind==AuElementNotifyKindState) {
if ( e->auelementnotify.cur_state == AuStateStop )
((TQAuServerNAS*)inprogress->find(p))->setDone((TQSound*)p);
}
}
}
void TQAuServerNAS::setDone(TQSound* s)
{
if (nas) {
decLoop(s);
if (s->loopsRemaining() && !bucket(s)->stopped) {
bucket(s)->stopped = TRUE;
play(s);
} else {
if (--(bucket(s)->numplaying) == 0)
bucket(s)->stopped = TRUE;
inprogress->remove(s);
}
}
}
void TQAuServerNAS::play(TQSound* s)
{
if (nas) {
++(bucket(s)->numplaying);
if (!bucket(s)->stopped) {
stop(s);
}
bucket(s)->stopped = FALSE;
if ( !inprogress )
inprogress = new TQPtrDict<void>;
inprogress->insert(s,(void*)this);
int iv=100;
AuFixedPoint volume=AuFixedPointFromFraction(iv,100);
TQAuBucketNAS *b = bucket(s);
AuSoundPlayFromBucket(nas, b->id, AuNone, volume,
callback, s, 0, &b->flow, NULL, NULL, NULL);
AuFlush(nas);
dataReceived();
AuFlush(nas);
tqApp->flushX();
}
}
void TQAuServerNAS::stop(TQSound* s)
{
if (nas && !bucket(s)->stopped) {
bucket(s)->stopped = TRUE;
AuStopFlow(nas, bucket(s)->flow, NULL);
AuFlush(nas);
dataReceived();
AuFlush(nas);
tqApp->flushX();
}
}
void TQAuServerNAS::init(TQSound* s)
{
connect(s, SIGNAL(destroyed(TQObject *)),
this, SLOT(soundDestroyed(TQObject *)));
if ( nas ) {
AuBucketID b_id =
AuSoundCreateBucketFromFile(nas, s->fileName(),
0 /*AuAccessAllMasks*/, NULL, NULL);
setBucket(s, new TQAuBucketNAS(b_id));
}
}
bool TQAuServerNAS::okay()
{
return !!nas;
}
void TQAuServerNAS::dataReceived()
{
AuHandleEvents(nas);
}
#include "qsound_x11.moc"
#endif
class TQAuServerNull : public TQAuServer {
public:
TQAuServerNull(TQObject* parent);
void play(const TQString&) { }
void play(TQSound*s) { while(decLoop(s) > 0) /* nothing */ ; }
void stop(TQSound*) { }
bool okay() { return FALSE; }
};
TQAuServerNull::TQAuServerNull(TQObject* parent) :
TQAuServer(parent,"Null Audio Server")
{
}
TQAuServer* qt_new_audio_server()
{
#ifdef QT_NAS_SUPPORT
TQAuServer* s=new TQAuServerNAS(tqApp);
if (s->okay()) {
return s;
} else {
delete s;
}
#endif
return new TQAuServerNull(tqApp);
}
#endif // QT_NO_SOUND