1553 satır
38 KiB
C
1553 satır
38 KiB
C
#include "cmGlobal.h"
|
|
#include "cmFloatTypes.h"
|
|
#include "cmRpt.h"
|
|
#include "cmErr.h"
|
|
#include "cmCtx.h"
|
|
#include "cmMem.h"
|
|
#include "cmMallocDebug.h"
|
|
#include "cmLinkedHeap.h"
|
|
#include "cmLex.h"
|
|
#include "cmCsv.h"
|
|
#include "cmSdb.h"
|
|
#include "cmText.h"
|
|
#include "cmMath.h"
|
|
#include "cmTime.h"
|
|
#include "cmMidi.h"
|
|
#include "cmVectOpsTemplateMain.h"
|
|
#include "cmAudioFile.h"
|
|
#include "cmFileSys.h"
|
|
|
|
typedef enum
|
|
{
|
|
kUuidColIdx,
|
|
kBaseUuidColIdx,
|
|
kChIdxColIdx,
|
|
kObiColIdx,
|
|
kIbiColIdx,
|
|
kIeiColIdx,
|
|
kOeiColIdx,
|
|
kSrcColIdx,
|
|
kMidiColIdx,
|
|
kInstrColIdx,
|
|
kSrateColIdx,
|
|
kChCntColIdx,
|
|
kNotesColIdx,
|
|
kAfnColIdx,
|
|
kInvalidColIdx
|
|
} cmSdbColIdx_t;
|
|
|
|
struct cmSdb_str;
|
|
|
|
typedef struct cmSdbSeqBlk_str
|
|
{
|
|
cmSdbSeqEvent_t* eV;
|
|
unsigned cnt;
|
|
struct cmSdbSeqBlk_str* link;
|
|
} cmSdbSeqBlk_t;
|
|
|
|
typedef struct cmSdbSeq_str
|
|
{
|
|
struct cmSdb_str* p;
|
|
cmSdbSeqBlk_t* blocks;
|
|
cmSdbSeqBlk_t* ebp;
|
|
unsigned cnt; // total count of events in all blocks
|
|
unsigned chCnt; // max(chIdx)+1 of all events
|
|
double minDurSec; // min dur of all events
|
|
double maxDurSec; // max dur of all events
|
|
struct cmSdbSeq_str* link;
|
|
} cmSdbSeq_t;
|
|
|
|
typedef struct cmSdbRspBlk_str
|
|
{
|
|
unsigned* indexV; // indexV[ cmSdb_t.blkIdxAllocCnt ]
|
|
unsigned cnt; // count of indexes used
|
|
struct cmSdbRspBlk_str* link; // cmSdbRsp_t.blocks link
|
|
} cmSdbRspBlk_t;
|
|
|
|
typedef struct cmSdbRsp_str
|
|
{
|
|
struct cmSdb_str* p; //
|
|
cmSdbRspBlk_t* blocks; // first block ptr
|
|
cmSdbRspBlk_t* ebp; // end block ptr
|
|
unsigned cnt; // total count of indexes
|
|
struct cmSdbRsp_str* link; // cmSdb_t.responses link
|
|
} cmSdbRsp_t;
|
|
|
|
typedef struct cmSdb_str
|
|
{
|
|
cmCtx_t ctx;
|
|
cmLHeapH_t lhH;
|
|
cmCsvH_t csvH;
|
|
cmSdbEvent_t* eV;
|
|
unsigned eN;
|
|
cmChar_t* audioDir;
|
|
unsigned blkIdxAllocCnt;
|
|
unsigned blkEvtAllocCnt;
|
|
cmSdbRsp_t* responses;
|
|
cmSdbSeq_t* seqs;
|
|
} cmSdb_t;
|
|
|
|
cmSdbH_t cmSdbNullHandle = cmSTATIC_NULL_HANDLE;
|
|
cmSdbResponseH_t cmSdbResponseNullHandle = cmSTATIC_NULL_HANDLE;
|
|
cmSdbSeqH_t cmSdbSeqNullHandle = cmSTATIC_NULL_HANDLE;
|
|
|
|
cmSdb_t* _cmSdbHandleToPtr( cmSdbH_t h )
|
|
{
|
|
cmSdb_t* p = (cmSdb_t*)h.h;
|
|
assert( p != NULL );
|
|
return p;
|
|
}
|
|
|
|
void _cmSdbRspFree( cmSdbRsp_t* );
|
|
cmSdbRC_t _cmSdbSeqFree( cmSdbSeq_t* );
|
|
|
|
cmSdbRC_t _cmSdbDestroy( cmSdb_t* p )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
|
|
if( cmCsvFinalize(&p->csvH) != kOkCsvRC )
|
|
rc = cmErrMsg(&p->ctx.err,kCsvFailSdbRC,"CSV file finalize failed.");
|
|
|
|
while( p->responses != NULL )
|
|
_cmSdbRspFree(p->responses);
|
|
|
|
while( p->seqs != NULL )
|
|
_cmSdbSeqFree(p->seqs);
|
|
|
|
cmLHeapDestroy(&p->lhH);
|
|
cmMemFree(p);
|
|
return rc;
|
|
}
|
|
|
|
cmSdbRC_t cmSdbCreate( cmCtx_t* ctx, cmSdbH_t* hp, const cmChar_t* csvFn, const cmChar_t* audioDir )
|
|
{
|
|
cmSdbRC_t rc;
|
|
if((rc = cmSdbDestroy(hp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
cmSdb_t* p = cmMemAllocZ(cmSdb_t,1);
|
|
p->ctx = *ctx;
|
|
p->blkIdxAllocCnt = 1024;
|
|
p->blkEvtAllocCnt = 1024;
|
|
|
|
cmErrSetup(&p->ctx.err,&ctx->rpt,"sdb");
|
|
|
|
if( cmLHeapIsValid( p->lhH = cmLHeapCreate(8192,ctx)) == false )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kLHeapFailSdbRC,"Linked heap mgr. allocation failed.");
|
|
goto errLabel;
|
|
}
|
|
|
|
hp->h = p;
|
|
|
|
if( csvFn != NULL )
|
|
if((rc = cmSdbLoad(*hp,csvFn,audioDir)) != kOkSdbRC )
|
|
goto errLabel;
|
|
|
|
errLabel:
|
|
if( rc != kOkSdbRC )
|
|
_cmSdbDestroy(p);
|
|
|
|
return rc;
|
|
}
|
|
|
|
cmSdbRC_t cmSdbDestroy( cmSdbH_t* hp )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
|
|
if( hp==NULL || cmSdbIsValid(*hp)==false )
|
|
return rc;
|
|
|
|
cmSdb_t* p = _cmSdbHandleToPtr(*hp);
|
|
|
|
if((rc = _cmSdbDestroy(p)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
hp->h = NULL;
|
|
|
|
return rc;
|
|
}
|
|
|
|
bool cmSdbIsValid( cmSdbH_t h )
|
|
{ return h.h != NULL; }
|
|
|
|
|
|
cmSdbRC_t _cmSdbSyntaxError(cmSdb_t* p, const cmChar_t* csvFn, unsigned rowIdx, unsigned colIdx, const cmChar_t* colLabel )
|
|
{
|
|
return cmErrMsg(&p->ctx.err,kSyntaxErrSdbRC,"A syntax error was found at row %i col %i (label:%s) in '%s'.",rowIdx+1,colIdx+1,cmStringNullGuard(colLabel),cmStringNullGuard(csvFn));
|
|
}
|
|
|
|
|
|
cmSdbRC_t cmSdbLoad( cmSdbH_t h, const cmChar_t* csvFn, const cmChar_t* audioDir )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
unsigned i;
|
|
|
|
cmSdb_t* p = _cmSdbHandleToPtr(h);
|
|
|
|
if( cmCsvInitializeFromFile(&p->csvH, csvFn, 0, &p->ctx ) != kOkCsvRC )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kCsvFailSdbRC,"CSV file load fail on '%s'.",cmStringNullGuard(csvFn));
|
|
goto errLabel;
|
|
}
|
|
|
|
p->eN = cmCsvRowCount(p->csvH)-1;
|
|
|
|
// release all the memory held by the linked heap
|
|
cmLHeapClear(p->lhH,true);
|
|
|
|
p->eV = cmLhAllocZ(p->lhH,cmSdbEvent_t,p->eN);
|
|
|
|
|
|
for(i=0; rc==kOkSdbRC && i<p->eN; ++i)
|
|
{
|
|
unsigned rowIdx = i+1;
|
|
|
|
if((p->eV[i].uuid = cmCsvCellUInt(p->csvH,rowIdx,kUuidColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kUuidColIdx,"uuid");
|
|
|
|
if((p->eV[i].baseUuid = cmCsvCellUInt(p->csvH,rowIdx,kBaseUuidColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kBaseUuidColIdx,"baseUuid");
|
|
|
|
if((p->eV[i].chIdx = cmCsvCellUInt(p->csvH,rowIdx,kChIdxColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kChIdxColIdx,"chIdx");
|
|
else
|
|
p->eV[i].chIdx -= 1; // CSV channel index is 1 based
|
|
|
|
if((p->eV[i].obi = cmCsvCellUInt(p->csvH,rowIdx,kObiColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kObiColIdx,"obi");
|
|
else
|
|
p->eV[i].obi -= 1;
|
|
|
|
if((p->eV[i].ibi = cmCsvCellUInt(p->csvH,rowIdx,kIbiColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kIbiColIdx,"ibi");
|
|
else
|
|
p->eV[i].ibi -= 1;
|
|
|
|
if((p->eV[i].iei = cmCsvCellUInt(p->csvH,rowIdx,kIeiColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kIeiColIdx,"obi");
|
|
else
|
|
p->eV[i].iei -= 1;
|
|
|
|
if((p->eV[i].oei = cmCsvCellUInt(p->csvH,rowIdx,kOeiColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kOeiColIdx,"ibi");
|
|
else
|
|
p->eV[i].oei -= 1;
|
|
|
|
if((p->eV[i].src = cmCsvCellText(p->csvH,rowIdx,kSrcColIdx)) == NULL )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kSrcColIdx,"src");
|
|
|
|
if((p->eV[i].midi = cmCsvCellInt(p->csvH,rowIdx,kMidiColIdx)) == INT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kMidiColIdx,"midi");
|
|
|
|
if((p->eV[i].instr = cmCsvCellText(p->csvH,rowIdx,kInstrColIdx)) == NULL )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kInstrColIdx,"instr");
|
|
|
|
if((p->eV[i].srate = cmCsvCellUInt(p->csvH,rowIdx,kSrateColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kSrateColIdx,"srate");
|
|
|
|
if((p->eV[i].chCnt = cmCsvCellUInt(p->csvH,rowIdx,kChCntColIdx)) == UINT_MAX )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kChCntColIdx,"chCnt");
|
|
|
|
|
|
cmCsvCell_t* c;
|
|
if((c = cmCsvCellPtr(p->csvH,rowIdx,kNotesColIdx)) == NULL )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kSyntaxErrSdbRC,"Syntax Error: No 'notes' or 'audio file name' field for row %i in '%s'.",rowIdx+1,cmStringNullGuard(csvFn));
|
|
goto errLabel;
|
|
}
|
|
|
|
// count the number of 'notes'
|
|
unsigned nn = 0;
|
|
for(; c->rowPtr != NULL; c=c->rowPtr)
|
|
++nn;
|
|
|
|
if( nn > 0 )
|
|
{
|
|
unsigned k = 0;
|
|
|
|
// allocate the 'notes' ptr array - the last entry is set to NULL.
|
|
p->eV[i].notesV = cmLhAllocZ(p->lhH,const cmChar_t*,nn+1);
|
|
|
|
// read each note
|
|
for(c=cmCsvCellPtr(p->csvH,rowIdx,kNotesColIdx); c!=NULL&&c->rowPtr!=NULL; c=c->rowPtr,++k)
|
|
if(( p->eV[i].notesV[k] = cmCsvCellText(p->csvH,rowIdx,kNotesColIdx+k)) == NULL )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kNotesColIdx+k,"notes");
|
|
|
|
assert(k==nn);
|
|
}
|
|
|
|
// read the audio file name
|
|
if((p->eV[i].afn = cmCsvCellText(p->csvH,rowIdx,kNotesColIdx+nn)) == NULL )
|
|
rc = _cmSdbSyntaxError(p,csvFn,rowIdx,kNotesColIdx+nn,"afn");
|
|
|
|
}
|
|
|
|
// store the audio directory
|
|
if( cmTextLength(audioDir) )
|
|
p->audioDir = cmLhAllocStr(p->lhH,audioDir);
|
|
else
|
|
{
|
|
cmLhFree(p->lhH,&p->audioDir);
|
|
p->audioDir = NULL;
|
|
}
|
|
errLabel:
|
|
|
|
return rc;
|
|
|
|
}
|
|
|
|
|
|
cmSdbRC_t cmSdbSyncChPairs( cmSdbH_t h )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
cmSdb_t* p = _cmSdbHandleToPtr(h);
|
|
unsigned i;
|
|
// for each multi-channel event
|
|
for(i=0; i<p->eN; ++i)
|
|
if(p->eV[i].chCnt > 1 )
|
|
{
|
|
const cmSdbEvent_t* ep = p->eV + i;
|
|
unsigned iV[ep->chCnt];
|
|
unsigned j,k;
|
|
|
|
// load iV[] with the event indexes of the channel pairs
|
|
for(j=0,k=0; j<p->eN && k<ep->chCnt; ++j)
|
|
if( p->eV[j].baseUuid == ep->baseUuid )
|
|
{
|
|
assert( p->eV[j].chIdx < ep->chCnt );
|
|
|
|
iV[p->eV[j].chIdx] = j;
|
|
++k;
|
|
}
|
|
|
|
if( k != ep->chCnt )
|
|
rc = cmErrMsg(&p->ctx.err,kChPairNotFoundSdbRC,"The channel pair associated with 'id:%i instr:%s src:%s ch index:%i could not be found.",ep->uuid,cmStringNullGuard(ep->instr),cmStringNullGuard(ep->src),ep->chIdx);
|
|
else
|
|
{
|
|
unsigned mobi = ep->obi;
|
|
unsigned mibi = ep->ibi;
|
|
unsigned miei = ep->iei;
|
|
unsigned moei = ep->oei;
|
|
|
|
// get the min onsets and max offsets
|
|
for(j=0; j<ep->chCnt; ++j)
|
|
{
|
|
mobi = cmMin(mobi,p->eV[ iV[j] ].obi);
|
|
mibi = cmMin(mibi,p->eV[ iV[j] ].ibi);
|
|
miei = cmMax(miei,p->eV[ iV[j] ].iei);
|
|
moei = cmMax(moei,p->eV[ iV[j] ].oei);
|
|
}
|
|
|
|
// set the onsets to the min onset / offsets to max offsets
|
|
for(j=0; j<ep->chCnt; ++j)
|
|
{
|
|
p->eV[ iV[j] ].obi = mobi;
|
|
p->eV[ iV[j] ].ibi = mibi;
|
|
p->eV[ iV[j] ].iei = miei;
|
|
p->eV[ iV[j] ].oei = moei;
|
|
}
|
|
}
|
|
}
|
|
|
|
return rc;
|
|
}
|
|
|
|
const cmSdbEvent_t* _cmSdbEvent( cmSdb_t* p, unsigned uuid )
|
|
{
|
|
unsigned i;
|
|
for(i=0; i<p->eN; ++i)
|
|
if( p->eV[i].uuid == uuid )
|
|
return p->eV + i;
|
|
|
|
return NULL;
|
|
}
|
|
|
|
const cmSdbEvent_t* cmSdbEvent( cmSdbH_t h, unsigned uuid )
|
|
{
|
|
cmSdb_t* p = _cmSdbHandleToPtr(h);
|
|
return _cmSdbEvent(p,uuid);
|
|
}
|
|
|
|
//================================================================================================================================
|
|
cmSdbRsp_t* _cmSdbRspHandleToPtr( cmSdbResponseH_t h )
|
|
{
|
|
cmSdbRsp_t* p = (cmSdbRsp_t*)h.h;
|
|
assert( p != NULL );
|
|
return p;
|
|
}
|
|
|
|
void _cmSdbRspBlkFree( cmSdb_t* p, cmSdbRspBlk_t* bp )
|
|
{
|
|
cmLhFree(p->lhH, bp->indexV);
|
|
cmLhFree(p->lhH, bp);
|
|
}
|
|
|
|
|
|
cmSdbRspBlk_t* _cmSdbRspBlkUnlink( cmSdbRsp_t* rp, cmSdbRspBlk_t* bp )
|
|
{
|
|
cmSdbRspBlk_t* dp = rp->blocks;
|
|
cmSdbRspBlk_t* pp = NULL;
|
|
for(; dp!=NULL; dp=dp->link)
|
|
{
|
|
if( dp == bp )
|
|
{
|
|
if( pp == NULL )
|
|
rp->blocks = dp->link;
|
|
else
|
|
pp->link = dp->link;
|
|
|
|
return bp;
|
|
}
|
|
|
|
pp = dp;
|
|
}
|
|
|
|
assert(0);
|
|
return NULL;
|
|
}
|
|
|
|
void _cmSdbRspInsertIndex( cmSdb_t* p, cmSdbRsp_t* rp, unsigned evtIndex )
|
|
{
|
|
|
|
if( rp->ebp == NULL || rp->ebp->cnt == p->blkIdxAllocCnt )
|
|
{
|
|
cmSdbRspBlk_t* bp = cmLhAllocZ(p->lhH,cmSdbRspBlk_t,1);
|
|
bp->indexV = cmLhAllocZ(p->lhH,unsigned,p->blkIdxAllocCnt);
|
|
|
|
if( rp->ebp != NULL )
|
|
rp->ebp->link = bp;
|
|
|
|
if( rp->blocks == NULL )
|
|
rp->blocks = bp;
|
|
|
|
rp->ebp = bp;
|
|
|
|
}
|
|
|
|
assert( rp->ebp!=NULL && rp->ebp->cnt < p->blkIdxAllocCnt );
|
|
|
|
rp->ebp->indexV[ rp->ebp->cnt++ ] = evtIndex;
|
|
rp->cnt += 1;
|
|
}
|
|
|
|
|
|
cmSdbRsp_t* _cmSdbRspUnlink( cmSdbRsp_t* rp )
|
|
{
|
|
cmSdb_t* p = rp->p;
|
|
cmSdbRsp_t* dp = p->responses;
|
|
cmSdbRsp_t* pp = NULL;
|
|
|
|
for(; dp!=NULL; dp=dp->link)
|
|
{
|
|
if( dp == rp )
|
|
{
|
|
if( pp == NULL )
|
|
p->responses = dp->link;
|
|
else
|
|
pp->link = dp->link;
|
|
|
|
return rp;
|
|
}
|
|
|
|
pp = dp;
|
|
}
|
|
|
|
assert( 0 );
|
|
|
|
return NULL;
|
|
}
|
|
|
|
|
|
void _cmSdbRspFree( cmSdbRsp_t* rp )
|
|
{
|
|
_cmSdbRspUnlink(rp);
|
|
|
|
while( rp->blocks != NULL )
|
|
{
|
|
cmSdbRspBlk_t* np = rp->blocks->link;
|
|
cmSdbRspBlk_t* bp;
|
|
|
|
if((bp = _cmSdbRspBlkUnlink(rp,rp->blocks)) != NULL )
|
|
_cmSdbRspBlkFree(rp->p,bp);
|
|
|
|
rp->blocks = np;
|
|
}
|
|
|
|
cmLhFree(rp->p->lhH,rp);
|
|
|
|
}
|
|
|
|
cmSdbRsp_t* _cmSdbRspAlloc( cmSdb_t* p )
|
|
{
|
|
cmSdbRsp_t* rp = cmLhAllocZ(p->lhH,cmSdbRsp_t,1);
|
|
rp->p = p;
|
|
rp->link = p->responses;
|
|
p->responses = rp;
|
|
|
|
|
|
return rp;
|
|
}
|
|
|
|
|
|
// Compare 'label' to every string in tV[i] and return true if any comparision is a match.
|
|
// If 'subFlV[i]' is set then 'label' must only contain tV[i] as a substring to match.
|
|
// If 'negFlV[i]' is set then return true if any comparision is a mismatch.
|
|
bool _cmSdbSelectText( const cmSdbEvent_t* r, const cmChar_t** tV, const bool* subFlV, const bool* negFlV, const cmChar_t* label )
|
|
{
|
|
unsigned i;
|
|
|
|
if( label == NULL )
|
|
return false;
|
|
|
|
if( tV == NULL )
|
|
return true;
|
|
|
|
for(i=0; tV[i]!=NULL; ++i)
|
|
{
|
|
bool matchFl = false;
|
|
if( subFlV[i] )
|
|
matchFl = strstr(label,tV[i]) != NULL;
|
|
else
|
|
matchFl = strcmp(tV[i],label)==0;
|
|
|
|
if( negFlV[i] )
|
|
matchFl = !matchFl;
|
|
|
|
if(matchFl)
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
unsigned _cmSdbStrVectCnt( const cmChar_t** v )
|
|
{
|
|
unsigned n = 0;
|
|
unsigned i = 0;
|
|
|
|
if( v == NULL )
|
|
return 0;
|
|
|
|
for(i=0; v[i]!=NULL; ++i)
|
|
++n;
|
|
return n;
|
|
}
|
|
|
|
void _cmSdbStrVectFlags( const cmChar_t** v, bool* sV, bool* nV )
|
|
{
|
|
unsigned i = 0;
|
|
if( v == NULL )
|
|
return;
|
|
|
|
for(i=0; v[i]!=NULL; ++i)
|
|
{
|
|
nV[i] = false;
|
|
sV[i] = false;
|
|
|
|
if( strncmp(v[i],"*!",2)==0 || strncmp(v[i],"!*",2)==0)
|
|
{
|
|
sV[i] = nV[i] = true;
|
|
v[i] += 2;
|
|
}
|
|
else
|
|
{
|
|
if( strncmp(v[i],"!",1)==0 )
|
|
{
|
|
nV[i] = true;
|
|
v[i] += 1;
|
|
}
|
|
|
|
if( strncmp(v[i],"*",1)==0 )
|
|
{
|
|
sV[i] = true;
|
|
v[i] += 1;
|
|
}
|
|
}
|
|
|
|
|
|
}
|
|
}
|
|
|
|
cmSdbRC_t cmSdbSelect(
|
|
cmSdbH_t h,
|
|
double srate,
|
|
const cmChar_t** instrV,
|
|
const cmChar_t** srcV,
|
|
const cmChar_t** notesV,
|
|
const unsigned* pitchV,
|
|
double minDurSec,
|
|
double maxDurSec,
|
|
unsigned minChCnt,
|
|
cmSdbResponseH_t* rhp )
|
|
{
|
|
cmSdbRC_t rc;
|
|
|
|
if((rc = cmSdbResponseFree(rhp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
cmSdb_t* p = _cmSdbHandleToPtr(h);
|
|
cmSdbRsp_t* rp = _cmSdbRspAlloc(p);
|
|
unsigned i;
|
|
|
|
// get the length of each string vector
|
|
unsigned srcN = _cmSdbStrVectCnt(srcV);
|
|
unsigned insN = _cmSdbStrVectCnt(instrV);
|
|
unsigned notN = _cmSdbStrVectCnt(notesV);
|
|
|
|
// allocate flag vectors
|
|
bool srcSubFlV[ srcN ];
|
|
bool srcNegFlV[ srcN ];
|
|
bool insSubFlV[ insN ];
|
|
bool insNegFlV[ insN ];
|
|
bool notSubFlV[ notN ];
|
|
bool notNegFlV[ notN ];
|
|
|
|
// fill the flag vectors
|
|
_cmSdbStrVectFlags(srcV, srcSubFlV,srcNegFlV);
|
|
_cmSdbStrVectFlags(instrV,insSubFlV,insNegFlV);
|
|
_cmSdbStrVectFlags(notesV,notSubFlV,notNegFlV);
|
|
|
|
for(i=0; i<p->eN; ++i)
|
|
{
|
|
const cmSdbEvent_t* r = p->eV + i;
|
|
double durSec = (double)r->srate * (r->oei - r->obi);
|
|
unsigned j;
|
|
|
|
if( srate!=0 && srate!=r->srate )
|
|
continue;
|
|
|
|
if( durSec < minDurSec || (maxDurSec!=0 && maxDurSec < durSec) )
|
|
continue;
|
|
|
|
if( minChCnt!=0 && r->chCnt > minChCnt )
|
|
continue;
|
|
|
|
if( !_cmSdbSelectText(r,srcV,srcSubFlV,srcNegFlV,r->src) )
|
|
continue;
|
|
|
|
if( !_cmSdbSelectText(r,instrV,insSubFlV,insNegFlV,r->instr) )
|
|
continue;
|
|
|
|
if( pitchV != NULL )
|
|
{
|
|
for(j=0; pitchV[j]!=kInvalidMidiPitch; ++j)
|
|
if( pitchV[j] == r->midi )
|
|
break;
|
|
|
|
if( pitchV[j] != r->midi )
|
|
continue;
|
|
}
|
|
|
|
if( r->notesV != NULL )
|
|
{
|
|
for(j=0; r->notesV[j]!=NULL; ++j)
|
|
if( _cmSdbSelectText(r,notesV,notSubFlV,notNegFlV,r->notesV[j]) == true )
|
|
break;
|
|
|
|
if( r->notesV[j]==NULL )
|
|
continue;
|
|
}
|
|
|
|
|
|
_cmSdbRspInsertIndex(p,rp,i);
|
|
}
|
|
|
|
rhp->h = rp;
|
|
|
|
if(rc != kOkSdbRC )
|
|
_cmSdbRspFree(rp);
|
|
|
|
return rc;
|
|
}
|
|
|
|
cmSdbRC_t _cmSdbSelectChPairs( cmSdb_t* p, const cmSdbEvent_t* ep, cmSdbResponseH_t* rhp )
|
|
{
|
|
cmSdbRC_t rc;
|
|
if((rc = cmSdbResponseFree(rhp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
cmSdbRsp_t* rp = _cmSdbRspAlloc(p);
|
|
unsigned i;
|
|
|
|
// for each channel of this event
|
|
for(i=0; i<ep->chCnt; ++i)
|
|
{
|
|
// if i channel is not the known events channel
|
|
if( ep->chIdx != i )
|
|
{
|
|
unsigned j;
|
|
|
|
// examine each record
|
|
for(j=0; j<p->eN; ++j)
|
|
// if eV[j] shares a baseUuid but is on a different channel than *ep ...
|
|
if( p->eV[j].baseUuid == ep->baseUuid && p->eV[j].chIdx==i )
|
|
{
|
|
// .. then a match has been found
|
|
_cmSdbRspInsertIndex(p,rp,j);
|
|
break;
|
|
}
|
|
|
|
if( j== p->eN )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kChPairNotFoundSdbRC,"The channel pair associated with 'id:%i instr:%s src:%s ch index:%i could not be found.",ep->uuid,cmStringNullGuard(ep->instr),cmStringNullGuard(ep->src),ep->chIdx);
|
|
}
|
|
}
|
|
}
|
|
|
|
rhp->h = rp;
|
|
|
|
return rc;
|
|
}
|
|
|
|
cmSdbRC_t cmSdbSelectChPairs( cmSdbH_t h, const cmSdbEvent_t* ep, cmSdbResponseH_t* rhp )
|
|
{
|
|
cmSdb_t* p = _cmSdbHandleToPtr(h);
|
|
return _cmSdbSelectChPairs( p, ep,rhp );
|
|
}
|
|
|
|
unsigned cmSdbResponseCount( cmSdbResponseH_t rh )
|
|
{
|
|
cmSdbRsp_t* rp = _cmSdbRspHandleToPtr(rh);
|
|
return rp->cnt;
|
|
}
|
|
|
|
const cmSdbEvent_t* cmSdbResponseEvent( cmSdbResponseH_t rh, unsigned index )
|
|
{
|
|
cmSdbRsp_t* rp = _cmSdbRspHandleToPtr(rh);
|
|
|
|
if( index >= rp->cnt )
|
|
return NULL;
|
|
|
|
cmSdbRspBlk_t* bp = rp->blocks;
|
|
unsigned i;
|
|
for(i=0; bp!=NULL; i+=bp->cnt,bp=bp->link)
|
|
if( i <= index && index < (i + bp->cnt) )
|
|
return rp->p->eV + bp->indexV[index-i];
|
|
|
|
cmErrMsg(&rp->p->ctx.err,kInvalidRspIdxSdbRC,"Invalid query response index=%i.",index);
|
|
return NULL;
|
|
}
|
|
|
|
bool cmSdbResponseIsValid( cmSdbResponseH_t rh )
|
|
{ return rh.h != NULL; }
|
|
|
|
cmSdbRC_t cmSdbResponseFree( cmSdbResponseH_t* rhp )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
|
|
if( rhp == NULL || cmSdbResponseIsValid(*rhp)==false )
|
|
return rc;
|
|
|
|
cmSdbRsp_t* rp = _cmSdbRspHandleToPtr(*rhp);
|
|
|
|
_cmSdbRspFree(rp);
|
|
|
|
rhp->h = NULL;
|
|
|
|
return rc;
|
|
}
|
|
|
|
void cmSdbResponsePrint( cmSdbResponseH_t rh, cmRpt_t* rpt )
|
|
{
|
|
unsigned n = cmSdbResponseCount(rh);
|
|
unsigned i;
|
|
for(i=0; i<n; ++i)
|
|
{
|
|
const cmSdbEvent_t* e = cmSdbResponseEvent(rh,i);
|
|
if( e != NULL )
|
|
cmRptPrintf(rpt,"%6i %6i %2i %12i %12i %12i %12i %2i %6i %2i %10s %15s\n",
|
|
e->uuid,e->baseUuid,e->chIdx,e->obi,e->ibi,e->iei,e->oei,e->midi,e->srate,e->chCnt,
|
|
cmStringNullGuard(e->src), cmStringNullGuard(e->instr) );
|
|
}
|
|
}
|
|
|
|
//================================================================================================================================
|
|
cmSdbSeq_t* _cmSdbSeqHandleToPtr( cmSdbSeqH_t sh )
|
|
{
|
|
cmSdbSeq_t* sp = (cmSdbSeq_t*)sh.h;
|
|
assert(sp !=NULL );
|
|
return sp;
|
|
}
|
|
|
|
void _cmSdbSeqInsertEvent( cmSdbSeq_t* sp, unsigned uuid, unsigned chIdx, double begSecs, double durSecs )
|
|
{
|
|
cmSdb_t* p = sp->p;
|
|
|
|
// if no block has been allocated or the current block is full
|
|
if( sp->ebp == NULL || sp->ebp->cnt >= p->blkEvtAllocCnt )
|
|
{
|
|
// allocate a new seq block recd
|
|
cmSdbSeqBlk_t* bp = cmLhAllocZ(sp->p->lhH,cmSdbSeqBlk_t,1);
|
|
|
|
// allocate a seq evt array
|
|
bp->eV = cmLhAllocZ(sp->p->lhH,cmSdbSeqEvent_t,p->blkEvtAllocCnt);
|
|
|
|
// link in the block recd
|
|
if( sp->ebp != NULL )
|
|
sp->ebp->link = bp;
|
|
|
|
if( sp->blocks == NULL )
|
|
{
|
|
sp->blocks = bp;
|
|
sp->minDurSec = durSecs;
|
|
sp->maxDurSec = durSecs;
|
|
}
|
|
|
|
sp->ebp = bp;
|
|
}
|
|
|
|
assert( sp->ebp != NULL && sp->ebp->cnt < p->blkEvtAllocCnt );
|
|
|
|
// get the next seq evt recd to fill
|
|
cmSdbSeqEvent_t* ep = sp->ebp->eV + sp->ebp->cnt;
|
|
|
|
// fill the seq evt recd
|
|
ep->uuid = uuid;
|
|
ep->begSec = begSecs;
|
|
ep->durSec = durSecs;
|
|
ep->outChIdx = chIdx;
|
|
ep->gain = 1.0;
|
|
|
|
// incr the seq evt cnt
|
|
sp->ebp->cnt += 1;
|
|
sp->cnt += 1;
|
|
sp->chCnt = cmMax(sp->chCnt,chIdx+1);
|
|
sp->minDurSec = cmMin(sp->minDurSec,durSecs);
|
|
sp->maxDurSec = cmMax(sp->maxDurSec,durSecs);
|
|
}
|
|
|
|
|
|
// unlink a sequence record from p->seqs.
|
|
cmSdbSeq_t* _cmSdbSeqUnlink( cmSdbSeq_t* sp )
|
|
{
|
|
cmSdb_t* p = sp->p;
|
|
cmSdbSeq_t* cp = p->seqs;
|
|
cmSdbSeq_t* pp = NULL;
|
|
|
|
for(; cp!=NULL; cp=cp->link)
|
|
{
|
|
if( cp == sp )
|
|
{
|
|
if( pp == NULL )
|
|
p->seqs = sp->link;
|
|
else
|
|
pp->link = sp->link;
|
|
|
|
return sp;
|
|
}
|
|
|
|
pp = cp;
|
|
}
|
|
|
|
assert(0);
|
|
return NULL;
|
|
}
|
|
|
|
// free a sequence record
|
|
cmSdbRC_t _cmSdbSeqFree( cmSdbSeq_t* sp )
|
|
{
|
|
cmSdb_t* p = sp->p;
|
|
|
|
// unlink this seq. record from p->seqs
|
|
if( _cmSdbSeqUnlink(sp) == NULL )
|
|
return cmErrMsg(&p->ctx.err,kAssertFailSdbRC,"Sequence unlink failed.");
|
|
|
|
// release the seq blocks held by the sequence
|
|
while( sp->blocks != NULL )
|
|
{
|
|
cmSdbSeqBlk_t* np = sp->blocks->link;
|
|
|
|
cmLhFree(p->lhH,sp->blocks->eV);
|
|
cmLhFree(p->lhH,sp->blocks);
|
|
|
|
sp->blocks = np;
|
|
}
|
|
|
|
|
|
cmLhFree(p->lhH,sp);
|
|
|
|
return kOkSdbRC;
|
|
}
|
|
|
|
// allocate a sequence record
|
|
cmSdbSeq_t* _cmSdbSeqAlloc( cmSdb_t* p )
|
|
{
|
|
cmSdbSeq_t* sp = cmLhAllocZ(p->lhH,cmSdbSeq_t,1);
|
|
|
|
sp->p = p;
|
|
sp->link = p->seqs;
|
|
p->seqs = sp;
|
|
|
|
return sp;
|
|
}
|
|
|
|
cmSdbRC_t _cmSdbStoreSeqEvent(
|
|
cmSdb_t* p,
|
|
cmSdbSeq_t* sp,
|
|
cmSdbResponseH_t rh,
|
|
unsigned ri,
|
|
unsigned seqChCnt,
|
|
double begSecs,
|
|
double limitEvtDurSecs,
|
|
double* durSecsRef )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
double maxEvtDurSecs = 0;
|
|
|
|
// retrieve the event record
|
|
const cmSdbEvent_t* ep;
|
|
if((ep = cmSdbResponseEvent(rh,ri)) == NULL )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kRspEvtNotFoundSdbRC,"A response event could not be found during random sequence generation.");
|
|
goto errLabel;
|
|
}
|
|
|
|
cmSdbResponseH_t rh0 = cmSdbResponseNullHandle;
|
|
unsigned rn0 = 0;
|
|
unsigned ci = 0;
|
|
|
|
// locate the channel pairs for 'ep'.
|
|
if( seqChCnt>1 && ep->chCnt>1 )
|
|
{
|
|
if( _cmSdbSelectChPairs(p, ep, &rh0 ) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kChPairNotFoundSdbRC,"A response event could not find channel pairs during random sequence generation.");
|
|
goto errLabel;
|
|
}
|
|
|
|
rn0 = cmSdbResponseCount(rh0);
|
|
}
|
|
|
|
while(1)
|
|
{
|
|
|
|
// calculate the event duration
|
|
double durSecs = (double)(ep->oei - ep->obi)/ep->srate;
|
|
|
|
// truncate the event if it is longer than limitEvtDurSecs
|
|
if( limitEvtDurSecs!=0 && durSecs>limitEvtDurSecs )
|
|
durSecs = cmMin(limitEvtDurSecs,durSecs);
|
|
|
|
// track the longest event
|
|
maxEvtDurSecs = cmMax(maxEvtDurSecs,durSecs);
|
|
|
|
// store the sequence event
|
|
_cmSdbSeqInsertEvent(sp,ep->uuid,ci,begSecs,durSecs);
|
|
|
|
// incr the output ch index
|
|
++ci;
|
|
|
|
// if all the out ch's are filled or the sample event has no more channels
|
|
if( ci >= seqChCnt || ci-1 >= rn0 )
|
|
break;
|
|
|
|
// get the next channel pair
|
|
if((ep = cmSdbResponseEvent(rh0,ci-1)) == NULL )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kRspEvtNotFoundSdbRC,"A channel pair response event could not be found during random sequence generation.");
|
|
goto errLabel;
|
|
}
|
|
|
|
} // for each sample event pair
|
|
|
|
errLabel:
|
|
|
|
if( durSecsRef != NULL )
|
|
*durSecsRef = maxEvtDurSecs;
|
|
|
|
cmSdbResponseFree(&rh0);
|
|
|
|
return rc;
|
|
|
|
}
|
|
|
|
cmSdbRC_t cmSdbSeqRand(
|
|
cmSdbResponseH_t rh,
|
|
unsigned seqDurSecs,
|
|
unsigned seqChCnt,
|
|
unsigned minEvtPerSec,
|
|
unsigned maxEvtPerSec,
|
|
cmSdbSeqH_t* shp )
|
|
{
|
|
cmSdbRC_t rc;
|
|
|
|
if((rc = cmSdbSeqFree(shp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
cmSdbRsp_t* rp = _cmSdbRspHandleToPtr(rh);
|
|
cmSdb_t* p = rp->p;
|
|
cmSdbSeq_t* sp = _cmSdbSeqAlloc(p);
|
|
|
|
if( seqChCnt < 1 )
|
|
return cmErrMsg(&p->ctx.err,kInvalidArgSdbRC,"The random sequence generator channel count parameter must be non-zero.");
|
|
|
|
if( seqDurSecs <= 0 )
|
|
return cmErrMsg(&p->ctx.err,kInvalidArgSdbRC,"The random sequence generator signal duration must be greater than 0.");
|
|
|
|
if( maxEvtPerSec < minEvtPerSec )
|
|
return cmErrMsg(&p->ctx.err,kInvalidArgSdbRC,"The random sequence generator max. events per second must be greater or equal to the min. events per second.");
|
|
|
|
if((rc = cmSdbSeqFree(shp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
unsigned rn = cmSdbResponseCount(rh);
|
|
unsigned sec;
|
|
for(sec=0; sec<seqDurSecs; sec+=1 )
|
|
{
|
|
|
|
// calcuate the number of events to initiate during this second
|
|
unsigned en = cmRandUInt(minEvtPerSec,maxEvtPerSec);
|
|
unsigned ei;
|
|
for(ei=0; ei<en; ++ei)
|
|
{
|
|
// select an event index
|
|
unsigned ri = cmRandUInt(0,rn-1);
|
|
|
|
// double select a start time for this event
|
|
double begSecs = sec + cmRandDouble(0.0,1.0);
|
|
double maxEvtDurSecs = 0;
|
|
|
|
if((rc = _cmSdbStoreSeqEvent(p,sp,rh,ri,seqChCnt,begSecs,maxEvtDurSecs,NULL)) != kOkSdbRC )
|
|
goto errLabel;
|
|
|
|
} // for each event init'd during this second
|
|
|
|
|
|
} // for each second
|
|
|
|
shp->h = sp;
|
|
|
|
errLabel:
|
|
if( rc != kOkSdbRC )
|
|
_cmSdbSeqFree(sp);
|
|
|
|
return rc;
|
|
}
|
|
|
|
cmSdbRC_t cmSdbSeqSerial(
|
|
cmSdbResponseH_t rh,
|
|
unsigned seqChCnt,
|
|
double gapSec,
|
|
double maxEvtDurSec,
|
|
cmSdbSeqH_t* shp )
|
|
{
|
|
cmSdbRC_t rc;
|
|
|
|
if((rc = cmSdbSeqFree(shp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
cmSdbRsp_t* rp = _cmSdbRspHandleToPtr(rh);
|
|
cmSdb_t* p = rp->p;
|
|
cmSdbSeq_t* sp = _cmSdbSeqAlloc(p);
|
|
unsigned n = cmSdbResponseCount(rh);
|
|
double begSecs = 0;
|
|
unsigned ri;
|
|
|
|
for(ri=0; ri<n; ++ri)
|
|
{
|
|
double durSecs = 0;
|
|
|
|
if((rc = _cmSdbStoreSeqEvent(p,sp,rh,ri,seqChCnt,begSecs,maxEvtDurSec,&durSecs)) != kOkSdbRC )
|
|
goto errLabel;
|
|
|
|
// offset to next event
|
|
begSecs += durSecs + gapSec;
|
|
|
|
}
|
|
|
|
shp->h = sp;
|
|
|
|
errLabel:
|
|
if(rc != kOkSdbRC )
|
|
_cmSdbSeqFree(sp);
|
|
|
|
return rc;
|
|
}
|
|
|
|
cmSdbRC_t cmSdbSeqChord(
|
|
cmSdbResponseH_t* rhp,
|
|
unsigned rn,
|
|
unsigned seqChCnt,
|
|
unsigned maxEvtDurSec,
|
|
cmSdbSeqH_t* shp )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
|
|
assert( shp != NULL );
|
|
|
|
if( rn == 0 )
|
|
return rc;
|
|
|
|
cmSdbResponseH_t rh = rhp[0];
|
|
cmSdbRsp_t* rp = _cmSdbRspHandleToPtr(rh);
|
|
cmSdb_t* p = rp->p;
|
|
cmSdbSeq_t* sp = _cmSdbSeqAlloc(p);
|
|
unsigned i;
|
|
|
|
if((rc = cmSdbSeqFree(shp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
// for each chord note
|
|
for(i=0; i<rn; ++i)
|
|
{
|
|
// get the query response handle for this note
|
|
rh = rhp[i];
|
|
rp = _cmSdbRspHandleToPtr(rh);
|
|
|
|
// verify that all query responses were drawn from the same cmSdbH_t handle.
|
|
if( rp->p != p )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kAssertFailSdbRC,"All chord query response handle must be derived from the same cmSdbH_t handle.");
|
|
goto errLabel;
|
|
}
|
|
|
|
// pick one event at random from the response
|
|
unsigned n = cmSdbResponseCount(rh);
|
|
unsigned rei = cmRandUInt(0,n-1);
|
|
|
|
// all notes start at time: 0.0.
|
|
double begSecs = 0.0;
|
|
|
|
// store the sequence event
|
|
if((rc = _cmSdbStoreSeqEvent(p,sp,rh,rei,seqChCnt,begSecs,maxEvtDurSec,NULL)) != kOkSdbRC )
|
|
goto errLabel;
|
|
|
|
}
|
|
|
|
shp->h = sp;
|
|
|
|
errLabel:
|
|
if(rc != kOkSdbRC )
|
|
_cmSdbSeqFree(sp);
|
|
|
|
return rc;
|
|
}
|
|
|
|
|
|
|
|
bool cmSdbSeqIsValid( cmSdbSeqH_t sh )
|
|
{ return sh.h != NULL; }
|
|
|
|
cmSdbRC_t cmSdbSeqFree( cmSdbSeqH_t* shp )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
if( shp==NULL || cmSdbSeqIsValid(*shp)==false )
|
|
return rc;
|
|
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(*shp);
|
|
|
|
if((rc = _cmSdbSeqFree(sp)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
shp->h = NULL;
|
|
|
|
return rc;
|
|
}
|
|
|
|
unsigned cmSdbSeqCount( cmSdbSeqH_t sh )
|
|
{
|
|
if( cmSdbSeqIsValid(sh)==false )
|
|
return 0;
|
|
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(sh);
|
|
return sp->cnt;
|
|
}
|
|
|
|
const cmSdbSeqEvent_t* cmSdbSeqEvent( cmSdbSeqH_t sh, unsigned index )
|
|
{
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(sh);
|
|
if( index >= sp->cnt )
|
|
return NULL;
|
|
|
|
cmSdbSeqBlk_t* bp = sp->blocks;
|
|
unsigned i;
|
|
for(i=0; bp!=NULL; i+=bp->cnt,bp=bp->link)
|
|
if( i <= index && index < (i + bp->cnt) )
|
|
return bp->eV + index-i;
|
|
|
|
cmErrMsg(&sp->p->ctx.err,kInvalidSeqIdxSdbRC,"Invalid sequence event index=%i.",index);
|
|
|
|
return NULL;
|
|
}
|
|
|
|
const cmSdbEvent_t* cmSdbSeqSdbEvent( cmSdbSeqH_t sh, unsigned index )
|
|
{
|
|
const cmSdbSeqEvent_t* ep;
|
|
if((ep = cmSdbSeqEvent(sh,index)) == NULL )
|
|
return NULL;
|
|
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(sh);
|
|
|
|
return _cmSdbEvent(sp->p,ep->uuid);
|
|
}
|
|
|
|
double cmSdbSeqDurSeconds( cmSdbSeqH_t sh )
|
|
{
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(sh);
|
|
|
|
cmSdbSeqBlk_t* bp = sp->blocks;
|
|
while( bp!=NULL && bp->link!=NULL )
|
|
bp=bp->link;
|
|
|
|
if( bp == NULL )
|
|
return 0;
|
|
|
|
cmSdbSeqEvent_t* ep = bp->eV + bp->cnt - 1;
|
|
|
|
return ep->begSec + ep->durSec;
|
|
}
|
|
|
|
double cmSdbSeqSampleRate( cmSdbSeqH_t sh )
|
|
{
|
|
unsigned n = cmSdbSeqCount(sh);
|
|
unsigned i;
|
|
const cmSdbEvent_t* ep;
|
|
|
|
for(i=0; i<n; ++i)
|
|
if((ep = cmSdbSeqSdbEvent(sh,i)) != NULL && ep->srate != 0 )
|
|
return ep->srate;
|
|
|
|
return 0;
|
|
}
|
|
|
|
cmSdbRC_t cmSdbSeqToAudio(
|
|
cmSdbSeqH_t sh,
|
|
unsigned decayMs,
|
|
double noiseDb,
|
|
double normFact,
|
|
cmSample_t** signalRef,
|
|
unsigned* sigSmpCntRef )
|
|
{
|
|
assert( signalRef!=NULL && sigSmpCntRef!=NULL);
|
|
|
|
*signalRef = NULL;
|
|
*sigSmpCntRef = 0;
|
|
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(sh);
|
|
cmSdb_t* p = sp->p;
|
|
unsigned qN = cmSdbSeqCount(sh);
|
|
double durSecs = cmSdbSeqDurSeconds(sh);
|
|
double srate = cmSdbSeqSampleRate(sh);
|
|
|
|
assert(sp->maxDurSec>=sp->minDurSec);
|
|
|
|
// verify that sequence events exist
|
|
if( qN==0 || durSecs==0 || sp->chCnt==0 || sp->maxDurSec==0)
|
|
return rc;
|
|
|
|
// validate the sample rate
|
|
if( srate == 0 )
|
|
return cmErrMsg(&p->ctx.err,kAssertFailSdbRC,"The sample rate of the sequence could not be determined.");
|
|
|
|
unsigned sN = (unsigned)floor(srate * (durSecs + 0.25)); // output signal sample count + 1/4 second of silence
|
|
unsigned dN = (unsigned)floor(srate * decayMs / 1000.0); // decay env. sample count
|
|
unsigned tN = (unsigned)floor(srate * sp->maxDurSec); // length of longest audio event in samples
|
|
cmSample_t* s = cmMemAllocZ(cmSample_t,sN*sp->chCnt); // allocate the outputsignal buffer
|
|
cmSample_t* t = cmMemAllocZ(cmSample_t,tN*sp->chCnt); // audio event read buffer
|
|
cmSample_t* d = NULL;
|
|
cmSample_t* chBuf[ sp->chCnt ];
|
|
unsigned i;
|
|
|
|
// fill the channel buffers
|
|
for(i=0; i<sp->chCnt; ++i)
|
|
chBuf[i] = t + (i*tN);
|
|
|
|
// if a decay rate was specified
|
|
if( dN > 0 )
|
|
{
|
|
d = cmMemAllocZ(cmSample_t,dN); // allocate the decay env. buffer
|
|
cmVOS_LinSpace(d,dN,1.0,0.0); // calc. a decay envelope
|
|
cmVOS_PowVS(d,dN,4.0);
|
|
}
|
|
|
|
// if a noise floor was specified
|
|
if( noiseDb != 0 )
|
|
{
|
|
// fill the signal with low level white noise
|
|
cmVOS_Random(s,sN,-1.0,1.0);
|
|
cmVOS_MultVS(s,sN,pow(10.0,-fabs(noiseDb)/20.0));
|
|
}
|
|
|
|
// for each sequence event
|
|
for(i=0; rc==kOkSdbRC && i<qN; ++i)
|
|
{
|
|
const cmSdbSeqEvent_t* qep;
|
|
const cmSdbEvent_t* ep;
|
|
|
|
// get the sequence event record
|
|
if((qep = cmSdbSeqEvent(sh,i)) == NULL )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kAssertFailSdbRC,"Unable to retrieve the sequence event at index %i.",i);
|
|
goto errLabel;
|
|
}
|
|
|
|
// get the audio event record
|
|
if((ep = _cmSdbEvent(p,qep->uuid)) == NULL)
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kAssertFailSdbRC,"Unable to retrieve the sample event with uuid:%i.",qep->uuid);
|
|
goto errLabel;
|
|
}
|
|
|
|
unsigned begFrmIdx = floor(srate * qep->begSec ); // dest. index into output signal
|
|
unsigned frmCnt = floor(srate * qep->durSec ); // seq. event dur in samples
|
|
const cmChar_t* afn = NULL; // audio event file name
|
|
unsigned actFrmCnt = 0; // actual count of samples read from the audio event file
|
|
cmAudioFileInfo_t afInfo; // audio file info. record
|
|
|
|
// form the audio event file name
|
|
if((afn = cmFsMakeFn(p->audioDir,ep->afn,NULL,NULL))==NULL)
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kFileSysFailSdbRC,"Unable to form the file name for %s/%s.",cmStringNullGuard(p->audioDir),cmStringNullGuard(ep->afn));
|
|
goto errLabel;
|
|
}
|
|
|
|
assert(ep->oei-ep->obi>0 );
|
|
|
|
// read the audio event from the file into t[]
|
|
if( cmAudioFileGetSample(afn, ep->obi, cmMin(tN,cmMin(frmCnt,ep->oei-ep->obi)), 0, ep->chCnt, chBuf, &actFrmCnt, &afInfo, p->ctx.err.rpt ) != kOkAfRC )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kFileSysFailSdbRC,"Audio event read failed for event uuid:%i in '%s'.",qep->uuid,cmStringNullGuard(afn));
|
|
goto doneLabel;
|
|
}
|
|
|
|
// 'actFrmCnt' now holds the length of the event signal
|
|
|
|
// verify that the audio event sample rate matches the sequence srate
|
|
if( afInfo.srate != srate )
|
|
cmErrWarnMsg(&p->ctx.err,kAssertFailSdbRC,"The sample rate (%f) of audio event uuid:%i in '%s' does not match the sequence sample rate:%f.",afInfo.srate,qep->uuid,cmStringNullGuard(afn),srate);
|
|
|
|
// if a decay rate was specified
|
|
if( dN > 0 )
|
|
{
|
|
unsigned ti = 0; // start of decay in t[]
|
|
unsigned di = 0; // start of decay in d[]
|
|
|
|
if( actFrmCnt > dN )
|
|
ti = actFrmCnt - dN; // decay func is applied to end of audio event
|
|
else
|
|
di = dN - actFrmCnt; // decay func is longer than audio event (shorten it)
|
|
|
|
unsigned mn = dN - di; // decay function length
|
|
unsigned j;
|
|
|
|
// apply the decay function
|
|
for(j=0; j<sp->chCnt; ++j)
|
|
cmVOS_MultVV(t + (j*tN) +ti , mn, d+di);
|
|
}
|
|
|
|
// normalize the event signal
|
|
if( normFact != 0 )
|
|
cmVOS_NormToAbsMax(t,actFrmCnt,normFact);
|
|
|
|
|
|
// verify the the signal event falls inside the output signal
|
|
if( begFrmIdx >= sN )
|
|
rc = cmErrMsg(&p->ctx.err,kAssertFailSdbRC,"A sequence event start time falls after the end of the sequence signal. This should never happen.");
|
|
else
|
|
{
|
|
// if the event signal goes past the end of the signal - truncate the event
|
|
if( begFrmIdx + actFrmCnt > sN )
|
|
actFrmCnt = sN - begFrmIdx;
|
|
|
|
// sum the event signal into the output signal
|
|
cmVOS_AddVV(s + (qep->outChIdx*sN) + begFrmIdx,actFrmCnt,t);
|
|
}
|
|
|
|
doneLabel:
|
|
cmFsFreeFn(afn);
|
|
|
|
}
|
|
|
|
*signalRef = s;
|
|
*sigSmpCntRef = sN;
|
|
errLabel:
|
|
if( rc != kOkSdbRC )
|
|
cmMemFree(s);
|
|
|
|
cmMemFree(d);
|
|
cmMemFree(t);
|
|
return rc;
|
|
}
|
|
|
|
cmSdbRC_t cmSdbSeqToAudioFn(
|
|
cmSdbSeqH_t sh,
|
|
unsigned decayMs,
|
|
double noiseDb,
|
|
double evtNormFact,
|
|
double sigNormFact,
|
|
const cmChar_t* fn,
|
|
unsigned bitsPerSample
|
|
)
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
cmSample_t* s = NULL;
|
|
unsigned sN = 0;
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(sh);
|
|
cmSdb_t* p = sp->p;
|
|
double srate = cmSdbSeqSampleRate(sh);
|
|
unsigned i;
|
|
|
|
// fill s[sN] with the sequence audio signal
|
|
if((rc = cmSdbSeqToAudio(sh,decayMs,noiseDb,evtNormFact,&s,&sN)) != kOkSdbRC )
|
|
return rc;
|
|
|
|
// if no audio signal was created there is nothing to do
|
|
if( sN == 0 )
|
|
return rc;
|
|
|
|
// the sample rate was already check by cmSdbSeqToAudio().
|
|
assert(srate != 0 && s != NULL);
|
|
|
|
// if requested normalize the signal
|
|
if( sigNormFact != 0 )
|
|
cmVOS_NormToAbsMax(s,sN*sp->chCnt,sigNormFact);
|
|
|
|
// fill the channel buffer
|
|
cmSample_t* chBuf[ sp->chCnt ];
|
|
for(i=0; i<sp->chCnt; ++i)
|
|
chBuf[i] = s + (i*sN);
|
|
|
|
// write the signal to an audio file
|
|
if((rc = cmAudioFileWriteFileFloat(fn, srate, bitsPerSample, sN, sp->chCnt, chBuf, p->ctx.err.rpt )) != kOkAfRC )
|
|
{
|
|
rc = cmErrMsg(&p->ctx.err,kAudioFileFailSdbRC,"The sequence audio file '%s' could not be created.",cmStringNullGuard(fn));
|
|
goto errLabel;
|
|
}
|
|
|
|
errLabel:
|
|
cmMemFree(s);
|
|
return rc;
|
|
}
|
|
|
|
|
|
void cmSdbSeqPrint( cmSdbSeqH_t sh, cmRpt_t* rpt )
|
|
{
|
|
unsigned i;
|
|
unsigned n = cmSdbSeqCount(sh);
|
|
cmSdbSeq_t* sp = _cmSdbSeqHandleToPtr(sh);
|
|
const cmSdbSeqEvent_t* ep;
|
|
|
|
cmRptPrintf(rpt,"evt cnt:%i ch cnt:%i dur min:%f max:%f \n",sp->cnt,sp->chCnt,sp->minDurSec,sp->maxDurSec);
|
|
cmRptPrintf(rpt," uuid ch beg dur gain \n");
|
|
cmRptPrintf(rpt,"------- --- ------- ------- -------\n");
|
|
for(i=0; i<n; ++i)
|
|
if((ep = cmSdbSeqEvent(sh,i)) != NULL )
|
|
cmRptPrintf(rpt,"%7i %3i %7.3f %7.3f %7.3f\n",ep->uuid,ep->outChIdx,ep->begSec,ep->durSec,ep->gain );
|
|
|
|
}
|
|
|
|
|
|
|
|
cmSdbRC_t cmSdbTest( cmCtx_t* ctx )
|
|
{
|
|
cmSdbRC_t rc = kOkSdbRC;
|
|
cmSdbH_t h = cmSdbNullHandle;
|
|
const cmChar_t* audioDir = "/home/kevin/media/audio";
|
|
const cmChar_t* csvFn = "/home/kevin/temp/sdb0/sdb_master.csv";
|
|
cmErr_t err;
|
|
|
|
cmErrSetup(&err,&ctx->rpt,"sdb test");
|
|
|
|
if((rc = cmSdbCreate(ctx, &h, csvFn, audioDir )) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&err,rc,"sdb create failed.");
|
|
goto errLabel;
|
|
}
|
|
|
|
if((rc = cmSdbSyncChPairs(h)) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&err,rc,"sdb sync-ch-pairs failed.");
|
|
goto errLabel;
|
|
}
|
|
|
|
if(1)
|
|
{
|
|
cmSdbResponseH_t rH = cmSdbResponseNullHandle;
|
|
cmSdbSeqH_t sH = cmSdbSeqNullHandle;
|
|
|
|
const cmChar_t* instrV[] = { "violin", NULL };
|
|
const cmChar_t* srcV[] = { "ui", NULL };
|
|
const cmChar_t* notesV[] = { "!vibrato", NULL };
|
|
|
|
if((rc = cmSdbSelect(h,0,instrV,srcV,notesV,NULL,0,0,0,&rH)) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&err,rc,"sdb query failed.");
|
|
goto errLabel;
|
|
}
|
|
|
|
//cmSdbResponsePrint(rH,&ctx->rpt);
|
|
|
|
unsigned seqDurSecs = 15;
|
|
unsigned seqChCnt = 2;
|
|
unsigned sel = 2;
|
|
switch( sel )
|
|
{
|
|
case 0:
|
|
{
|
|
unsigned minEvtPerSec = 1;
|
|
unsigned maxEvtPerSec = 5;
|
|
|
|
if((rc = cmSdbSeqRand(rH,seqDurSecs,seqChCnt,minEvtPerSec,maxEvtPerSec,&sH)) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&err,rc,"sdb random sequence generation failed.");
|
|
goto errLabel;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 1:
|
|
{
|
|
double gapSec = 0.1;
|
|
double maxEvtDurSec = 1.0;
|
|
|
|
if((rc = cmSdbSeqSerial(rH,seqChCnt,gapSec,maxEvtDurSec,&sH)) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&err,rc,"sdb serial sequence generation failed.");
|
|
goto errLabel;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 2:
|
|
{
|
|
cmSdbResponseH_t rhV[] = { rH, rH, rH };
|
|
unsigned rN = sizeof(rhV)/sizeof(rhV[0]);
|
|
double maxEvtDurSec = 1.0;
|
|
|
|
if((rc = cmSdbSeqChord(rhV,rN,seqChCnt,maxEvtDurSec,&sH)) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&err,rc,"sdb chord sequence generation failed.");
|
|
goto errLabel;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
|
|
cmSdbSeqPrint(sH,&ctx->rpt);
|
|
|
|
const cmChar_t* afn = "/home/kevin/temp/aaa.aif";
|
|
unsigned decayMs = 50;
|
|
double noiseDb = -70.0;
|
|
double evtNormFact = 0; //0.7;
|
|
double sigNormFact = 0.7; //0.7;
|
|
unsigned bitsPerSample = 16;
|
|
|
|
if((rc = cmSdbSeqToAudioFn(sH,decayMs,noiseDb,evtNormFact,sigNormFact,afn,bitsPerSample)) != kOkSdbRC )
|
|
{
|
|
rc = cmErrMsg(&err,rc,"sdb sequence audio file generation failed.");
|
|
goto errLabel;
|
|
}
|
|
|
|
cmSdbSeqFree(&sH);
|
|
cmSdbResponseFree(&rH);
|
|
}
|
|
|
|
errLabel:
|
|
if((rc = cmSdbDestroy(&h)) != kOkSdbRC )
|
|
rc = cmErrMsg(&err,rc,"sdb destroy failed.");
|
|
|
|
return rc;
|
|
}
|