cmMidiFile.h/c : Added cmMidiFileWrite() and the 'atick' absolute tick
value field.
This commit is contained in:
kpl
parent
6a46695080
commit
e386a9675d
434
cmMidiFile.c
434
cmMidiFile.c
@ -31,7 +31,7 @@ typedef struct
|
||||
{
|
||||
cmErr_t err; // this objects error object
|
||||
cmLHeapH_t lhH; // linked heap used for all dynamically alloc'd data space
|
||||
cmFileH_t fh; // cmFile handle (only used in fmMidiFileOpen())
|
||||
cmFileH_t fh; // cmFile handle (only used in fmMidiFileOpen() and cmMidiFileWrite())
|
||||
unsigned short fmtId; // midi file type id: 0,1,2
|
||||
unsigned short ticksPerQN; // ticks per quarter note or 0 if smpteFmtId is valid
|
||||
cmMidiByte_t smpteFmtId; // smpte format or 0 if ticksPerQN is valid
|
||||
@ -44,14 +44,9 @@ typedef struct
|
||||
|
||||
} _cmMidiFile_t;
|
||||
|
||||
#define _cmMidiFileError( err, rc ) _cmMidiFileOnError(err, rc, __LINE__,__FILE__,__FUNCTION__ )
|
||||
|
||||
cmMidiFileH_t cmMidiFileNullHandle = cmSTATIC_NULL_HANDLE;
|
||||
|
||||
cmMfRC_t _cmMidiFileOnError( cmErr_t* err, cmMfRC_t rc, int line, const char* fn, const char* func )
|
||||
{
|
||||
return cmErrMsg(err,rc,"rc:%i line:%i %s %s\n",rc,line,func,fn);
|
||||
}
|
||||
|
||||
_cmMidiFile_t* _cmMidiFileHandleToPtr( cmMidiFileH_t h )
|
||||
{
|
||||
@ -67,14 +62,14 @@ void* _cmMidiFileMalloc( _cmMidiFile_t* mfp, unsigned byteN )
|
||||
cmMfRC_t _cmMidiFileRead8( _cmMidiFile_t* mfp, cmMidiByte_t* p )
|
||||
{
|
||||
if( cmFileReadUChar(mfp->fh,p,1) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI byte read failed.");
|
||||
return kOkMfRC;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileRead16( _cmMidiFile_t* mfp, unsigned short* p )
|
||||
{
|
||||
if( cmFileReadUShort(mfp->fh,p,1) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI short read failed.");
|
||||
|
||||
*p = mfSwap16(*p);
|
||||
|
||||
@ -89,7 +84,7 @@ cmMfRC_t _cmMidiFileRead24( _cmMidiFile_t* mfp, unsigned* p )
|
||||
{
|
||||
unsigned char c;
|
||||
if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI 24 bit integer read failed.");
|
||||
*p = (*p << 8) + c;
|
||||
}
|
||||
|
||||
@ -101,7 +96,7 @@ cmMfRC_t _cmMidiFileRead24( _cmMidiFile_t* mfp, unsigned* p )
|
||||
cmMfRC_t _cmMidiFileRead32( _cmMidiFile_t* mfp, unsigned* p )
|
||||
{
|
||||
if( cmFileReadUInt(mfp->fh,p,1) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI integer read failed.");
|
||||
|
||||
*p = mfSwap32(*p);
|
||||
|
||||
@ -117,7 +112,7 @@ cmMfRC_t _cmMidiFileReadText( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigne
|
||||
t[byteN] = 0;
|
||||
|
||||
if( cmFileReadChar(mfp->fh,t,byteN) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read text failed.");
|
||||
|
||||
tmp->u.text = t;
|
||||
tmp->byteCnt = byteN;
|
||||
@ -129,7 +124,7 @@ cmMfRC_t _cmMidiFileReadRecd( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigne
|
||||
char* t = (char*)_cmMidiFileMalloc(mfp,byteN);
|
||||
|
||||
if( cmFileReadChar(mfp->fh,t,byteN) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read record failed.");
|
||||
|
||||
tmp->byteCnt = byteN;
|
||||
tmp->u.voidPtr = t;
|
||||
@ -142,7 +137,7 @@ cmMfRC_t _cmMidiFileReadVarLen( _cmMidiFile_t* mfp, unsigned* p )
|
||||
unsigned char c;
|
||||
|
||||
if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read variable length integer failed.");
|
||||
|
||||
if( !(c & 0x80) )
|
||||
*p = c;
|
||||
@ -154,7 +149,7 @@ cmMfRC_t _cmMidiFileReadVarLen( _cmMidiFile_t* mfp, unsigned* p )
|
||||
{
|
||||
|
||||
if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read variable length integer failed.");
|
||||
|
||||
*p = (*p << 7) + (c & 0x7f);
|
||||
|
||||
@ -199,7 +194,7 @@ cmMfRC_t _cmMidiFileReadSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsign
|
||||
|
||||
long offs;
|
||||
if( cmFileTell(mfp->fh,&offs) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFtellFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI File 'tell' failed.");
|
||||
|
||||
byteN = 0;
|
||||
|
||||
@ -214,11 +209,11 @@ cmMfRC_t _cmMidiFileReadSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsign
|
||||
|
||||
// verify that the EOX byte was found
|
||||
if( b != kSysComEoxMdId )
|
||||
return _cmMidiFileError(&mfp->err,kMissingEoxMfRC);
|
||||
return cmErrMsg(&mfp->err,kMissingEoxMfRC,"MIDI file missing 'end-of-sys-ex'.");
|
||||
|
||||
// rewind to the beginning of the msg
|
||||
if( cmFileSeek(mfp->fh,kBeginFileFl,offs) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFseekFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file seek failed on sys-ex read.");
|
||||
|
||||
}
|
||||
|
||||
@ -227,7 +222,7 @@ cmMfRC_t _cmMidiFileReadSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsign
|
||||
|
||||
// read the sys-ex msg from the file into msg memory
|
||||
if( cmFileReadUChar(mfp->fh,mp,byteN) != kOkFileRC )
|
||||
return _cmMidiFileError(&mfp->err,kSysFreadFailMfRC);
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI sys-ex read failed.");
|
||||
|
||||
tmp->byteCnt = byteN;
|
||||
tmp->u.sysExPtr = mp;
|
||||
@ -239,8 +234,8 @@ cmMfRC_t _cmMidiFileReadChannelMsg( _cmMidiFile_t* mfp, cmMidiByte_t* rsPtr, cmM
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
cmMidiChMsg_t* p = (cmMidiChMsg_t*)_cmMidiFileMalloc(mfp,sizeof(cmMidiChMsg_t));
|
||||
unsigned useRsFl = status <= 0x7f;
|
||||
cmMidiByte_t statusCh = useRsFl ? *rsPtr : status;
|
||||
unsigned useRsFl = status <= 0x7f;
|
||||
cmMidiByte_t statusCh = useRsFl ? *rsPtr : status;
|
||||
|
||||
if( useRsFl )
|
||||
p->d0 = status;
|
||||
@ -309,8 +304,7 @@ cmMfRC_t _cmMidiFileReadMetaMsg( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp )
|
||||
|
||||
default:
|
||||
cmFileSeek(mfp->fh,kCurFileFl,byteN);
|
||||
cmErrMsg(&mfp->err,kUnknownMetaIdMfRC,"Unknown meta status:0x%x %i.",metaId,metaId);
|
||||
rc = _cmMidiFileError(&mfp->err,kUnknownMetaIdMfRC);
|
||||
rc = cmErrMsg(&mfp->err,kUnknownMetaIdMfRC,"Unknown meta status:0x%x %i.",metaId,metaId);
|
||||
}
|
||||
|
||||
tmp->metaId = metaId;
|
||||
@ -386,7 +380,7 @@ cmMfRC_t _cmMidiFileReadHdr( _cmMidiFile_t* mfp )
|
||||
|
||||
// verify the file id
|
||||
if( fileId != 'MThd' )
|
||||
return _cmMidiFileError(&mfp->err,kNotAMidiFileMfRC);
|
||||
return cmErrMsg(&mfp->err,kNotAMidiFileMfRC,"");
|
||||
|
||||
// read the file chunk byte count
|
||||
if((rc = _cmMidiFileRead32(mfp,&chunkByteN)) != kOkMfRC )
|
||||
@ -423,10 +417,10 @@ int _cmMidiFileSortFunc( const void *p0, const void* p1 )
|
||||
{
|
||||
//printf("%i %i\n",(*(cmMidiTrackMsg_t**)p0)->dticks,(*(cmMidiTrackMsg_t**)p1)->dticks);
|
||||
|
||||
if( (*(cmMidiTrackMsg_t**)p0)->dtick == (*(cmMidiTrackMsg_t**)p1)->dtick )
|
||||
if( (*(cmMidiTrackMsg_t**)p0)->atick == (*(cmMidiTrackMsg_t**)p1)->atick )
|
||||
return 0;
|
||||
|
||||
return (*(cmMidiTrackMsg_t**)p0)->dtick < (*(cmMidiTrackMsg_t**)p1)->dtick ? -1 : 1;
|
||||
return (*(cmMidiTrackMsg_t**)p0)->atick < (*(cmMidiTrackMsg_t**)p1)->atick ? -1 : 1;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileClose( _cmMidiFile_t* mfp )
|
||||
@ -440,7 +434,7 @@ cmMfRC_t _cmMidiFileClose( _cmMidiFile_t* mfp )
|
||||
|
||||
if( cmFileIsValid( mfp->fh ) )
|
||||
if( cmFileClose( &mfp->fh ) != kOkFileRC )
|
||||
rc = _cmMidiFileError(&mfp->err,kSysFcloseFailMfRC);
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file close failed.");
|
||||
|
||||
if( cmLHeapIsValid( mfp->lhH ) )
|
||||
cmLHeapDestroy(&mfp->lhH);
|
||||
@ -467,21 +461,21 @@ cmMfRC_t cmMidiFileOpen( const char* fn, cmMidiFileH_t* hPtr, cmCtx_t* ctx )
|
||||
|
||||
// allocate the midi file object
|
||||
if(( mfp = cmMemAllocZ( _cmMidiFile_t, 1)) == NULL )
|
||||
return rc = _cmMidiFileError(&err,kMemAllocFailMfRC);
|
||||
return rc = cmErrMsg(&err,kMemAllocFailMfRC,"MIDI file memory allocation failed.");
|
||||
|
||||
cmErrClone(&mfp->err,&err);
|
||||
|
||||
// allocate the linked heap
|
||||
if( cmLHeapIsValid( mfp->lhH = cmLHeapCreate( 1024, ctx )) == false )
|
||||
{
|
||||
rc = _cmMidiFileError(&err,kMemAllocFailMfRC);
|
||||
rc = cmErrMsg(&err,kMemAllocFailMfRC,"MIDI heap allocation failed.");
|
||||
goto errLabel;
|
||||
}
|
||||
|
||||
// open the file
|
||||
if(cmFileOpen(&mfp->fh,fn,kReadFileFl | kBinaryFileFl,mfp->err.rpt) != kOkFileRC )
|
||||
{
|
||||
rc = _cmMidiFileError(&mfp->err,kSysFopenFailMfRC);
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file open failed.");
|
||||
goto errLabel;
|
||||
}
|
||||
|
||||
@ -507,7 +501,7 @@ cmMfRC_t cmMidiFileOpen( const char* fn, cmMidiFileH_t* hPtr, cmCtx_t* ctx )
|
||||
//if( fseek( mfp->fp, chkN, SEEK_CUR) != 0 )
|
||||
if( cmFileSeek(mfp->fh,kCurFileFl,chkN) != kOkFileRC )
|
||||
{
|
||||
rc = _cmMidiFileError(&mfp->err,kSysFseekFailMfRC);
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file seek failed.");
|
||||
goto errLabel;
|
||||
}
|
||||
}
|
||||
@ -541,7 +535,7 @@ cmMfRC_t cmMidiFileOpen( const char* fn, cmMidiFileH_t* hPtr, cmCtx_t* ctx )
|
||||
assert( i < mfp->msgN);
|
||||
|
||||
tick += tmp->dtick; // convert delta-ticks to absolute ticks
|
||||
tmp->dtick = tick;
|
||||
tmp->atick = tick;
|
||||
mfp->msgV[i] = tmp;
|
||||
tmp = tmp->link;
|
||||
++i;
|
||||
@ -561,6 +555,7 @@ cmMfRC_t cmMidiFileOpen( const char* fn, cmMidiFileH_t* hPtr, cmCtx_t* ctx )
|
||||
//
|
||||
// calculate the total duration of the MIDI file and convert absolute ticks back to delta ticks
|
||||
//
|
||||
/*
|
||||
unsigned mi;
|
||||
unsigned prvTick = 0;
|
||||
|
||||
@ -574,13 +569,14 @@ cmMfRC_t cmMidiFileOpen( const char* fn, cmMidiFileH_t* hPtr, cmCtx_t* ctx )
|
||||
prvTick = mp->dtick;
|
||||
mp->dtick = dtick;
|
||||
}
|
||||
*/
|
||||
|
||||
hPtr->h = mfp;
|
||||
|
||||
errLabel:
|
||||
|
||||
if( cmFileClose(&mfp->fh) != kOkFileRC )
|
||||
rc = _cmMidiFileError(&mfp->err,kCloseFailFileRC);
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file close failed.");
|
||||
|
||||
if( rc != kOkMfRC )
|
||||
_cmMidiFileClose(mfp);
|
||||
@ -604,6 +600,348 @@ cmMfRC_t cmMidiFileClose( cmMidiFileH_t* h )
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWrite8( _cmMidiFile_t* mfp, unsigned char v )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
|
||||
if( cmFileWriteUChar(mfp->fh,&v,1) != kOkFileRC )
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file byte write failed.");
|
||||
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWrite16( _cmMidiFile_t* mfp, unsigned short v )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
|
||||
v = mfSwap16(v);
|
||||
|
||||
if( cmFileWriteUShort(mfp->fh,&v,1) != kOkFileRC )
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file short integer write failed.");
|
||||
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWrite24( _cmMidiFile_t* mfp, unsigned v )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
unsigned mask = 0xff0000;
|
||||
int i;
|
||||
|
||||
for(i=2; i>=0; --i)
|
||||
{
|
||||
unsigned char c = (v & mask) >> (i*8);
|
||||
mask >>= 8;
|
||||
|
||||
if( cmFileWriteUChar(mfp->fh,&c,1) != kOkFileRC )
|
||||
{
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file 24 bit integer write failed.");
|
||||
goto errLabel;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
errLabel:
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWrite32( _cmMidiFile_t* mfp, unsigned v )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
|
||||
v = mfSwap32(v);
|
||||
|
||||
if( cmFileWriteUInt(mfp->fh,&v,1) != kOkFileRC )
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file integer write failed.");
|
||||
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWriteRecd( _cmMidiFile_t* mfp, const void* v, unsigned byteCnt )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
|
||||
if( cmFileWriteChar(mfp->fh,v,byteCnt) != kOkFileRC )
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file write record failed.");
|
||||
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWriteVarLen( _cmMidiFile_t* mfp, unsigned v )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
unsigned buf = v & 0x7f;
|
||||
|
||||
while((v >>= 7) > 0 )
|
||||
{
|
||||
buf <<= 8;
|
||||
buf |= 0x80;
|
||||
buf += (v & 0x7f);
|
||||
}
|
||||
|
||||
while(1)
|
||||
{
|
||||
unsigned char c = (unsigned char)(buf & 0xff);
|
||||
if( cmFileWriteUChar(mfp->fh,&c,1) != kOkFileRC )
|
||||
{
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file variable length integer write failed.");
|
||||
goto errLabel;
|
||||
}
|
||||
|
||||
if( buf & 0x80 )
|
||||
buf >>= 8;
|
||||
else
|
||||
break;
|
||||
}
|
||||
|
||||
errLabel:
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWriteHdr( _cmMidiFile_t* mfp )
|
||||
{
|
||||
cmMfRC_t rc;
|
||||
unsigned fileId = 'MThd';
|
||||
unsigned chunkByteN = 6;
|
||||
|
||||
// write the file id ('MThd')
|
||||
if((rc = _cmMidiFileWrite32(mfp,fileId)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
// write the file chunk byte count (always 6)
|
||||
if((rc = _cmMidiFileWrite32(mfp,chunkByteN)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
// write the MIDI file format id (0,1,2)
|
||||
if((rc = _cmMidiFileWrite16(mfp,mfp->fmtId)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
// write the track count
|
||||
if((rc = _cmMidiFileWrite16(mfp,mfp->trkN)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
unsigned short v = 0;
|
||||
|
||||
// if the ticks per quarter note field is valid ...
|
||||
if( mfp->ticksPerQN )
|
||||
v = mfp->ticksPerQN;
|
||||
else
|
||||
{
|
||||
// ... otherwise the division field was given in smpte
|
||||
v = mfp->smpteFmtId << 8;
|
||||
v += mfp->smpteTicksPerFrame;
|
||||
}
|
||||
|
||||
if((rc = _cmMidiFileWrite16(mfp,v)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
return rc;
|
||||
|
||||
}
|
||||
|
||||
|
||||
cmMfRC_t _cmMidiFileWriteSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
|
||||
if((rc = _cmMidiFileWrite8(mfp,kSysExMdId)) != kOkMfRC )
|
||||
goto errLabel;
|
||||
|
||||
if( cmFileWriteUChar(mfp->fh,tmp->u.sysExPtr,tmp->byteCnt) != kOkFileRC )
|
||||
rc = cmErrMsg(&mfp->err,kFileFailMfRC,"Sys-ex msg write failed.");
|
||||
|
||||
errLabel:
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWriteChannelMsg( _cmMidiFile_t* mfp, const cmMidiTrackMsg_t* tmp, cmMidiByte_t* runStatus )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
unsigned byteN = cmMidiStatusToByteCount(tmp->status);
|
||||
cmMidiByte_t status = tmp->status + tmp->u.chMsgPtr->ch;
|
||||
|
||||
if( status != *runStatus )
|
||||
{
|
||||
*runStatus = status;
|
||||
if((rc = _cmMidiFileWrite8(mfp,status)) != kOkMfRC )
|
||||
goto errLabel;
|
||||
}
|
||||
|
||||
if(byteN>=1)
|
||||
if((rc = _cmMidiFileWrite8(mfp,tmp->u.chMsgPtr->d0)) != kOkMfRC )
|
||||
goto errLabel;
|
||||
|
||||
if(byteN>=2)
|
||||
if((rc = _cmMidiFileWrite8(mfp,tmp->u.chMsgPtr->d1)) != kOkMfRC )
|
||||
goto errLabel;
|
||||
|
||||
errLabel:
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWriteMetaMsg( _cmMidiFile_t* mfp, const cmMidiTrackMsg_t* tmp )
|
||||
{
|
||||
cmMfRC_t rc;
|
||||
|
||||
if((rc = _cmMidiFileWrite8(mfp,kMetaStId)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
if((rc = _cmMidiFileWrite8(mfp,tmp->metaId)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
|
||||
switch( tmp->metaId )
|
||||
{
|
||||
case kSeqNumbMdId:
|
||||
if((rc = _cmMidiFileWrite8(mfp,sizeof(tmp->u.sVal))) == kOkMfRC )
|
||||
rc = _cmMidiFileWrite16(mfp,tmp->u.sVal);
|
||||
break;
|
||||
|
||||
case kTempoMdId:
|
||||
if((rc = _cmMidiFileWrite8(mfp,3)) == kOkMfRC )
|
||||
rc = _cmMidiFileWrite24(mfp,tmp->u.iVal);
|
||||
break;
|
||||
|
||||
case kSmpteMdId:
|
||||
if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiSmpte_t))) == kOkMfRC )
|
||||
rc = _cmMidiFileWriteRecd(mfp,tmp->u.smptePtr,sizeof(cmMidiSmpte_t));
|
||||
break;
|
||||
|
||||
case kTimeSigMdId:
|
||||
if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiTimeSig_t))) == kOkMfRC )
|
||||
rc = _cmMidiFileWriteRecd(mfp,tmp->u.timeSigPtr,sizeof(cmMidiTimeSig_t));
|
||||
break;
|
||||
|
||||
case kKeySigMdId:
|
||||
if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiKeySig_t))) == kOkMfRC )
|
||||
rc = _cmMidiFileWriteRecd(mfp,tmp->u.keySigPtr,sizeof(cmMidiKeySig_t));
|
||||
break;
|
||||
|
||||
case kSeqSpecMdId:
|
||||
if((rc = _cmMidiFileWriteVarLen(mfp,sizeof(tmp->byteCnt))) == kOkMfRC )
|
||||
rc = _cmMidiFileWriteRecd(mfp,tmp->u.sysExPtr,tmp->byteCnt);
|
||||
break;
|
||||
|
||||
case kMidiChMdId:
|
||||
if((rc = _cmMidiFileWrite8(mfp,sizeof(tmp->u.bVal))) == kOkMfRC )
|
||||
rc = _cmMidiFileWrite8(mfp,tmp->u.bVal);
|
||||
break;
|
||||
|
||||
case kEndOfTrkMdId:
|
||||
rc = _cmMidiFileWrite8(mfp,0);
|
||||
break;
|
||||
|
||||
case kTextMdId:
|
||||
case kCopyMdId:
|
||||
case kTrkNameMdId:
|
||||
case kInstrNameMdId:
|
||||
case kLyricsMdId:
|
||||
case kMarkerMdId:
|
||||
case kCuePointMdId:
|
||||
{
|
||||
unsigned n = tmp->u.text==NULL ? 0 : strlen(tmp->u.text);
|
||||
if((rc = _cmMidiFileWriteVarLen(mfp,n)) == kOkMfRC && n>0 )
|
||||
rc = _cmMidiFileWriteRecd(mfp,tmp->u.text,n);
|
||||
}
|
||||
break;
|
||||
|
||||
default:
|
||||
{
|
||||
// ignore unknown meta messages
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t _cmMidiFileWriteTrack( _cmMidiFile_t* mfp, unsigned trkIdx )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
cmMidiTrackMsg_t* tmp = mfp->trkV[trkIdx].base;
|
||||
cmMidiByte_t runStatus = 0;
|
||||
|
||||
for(; tmp!=NULL; tmp=tmp->link)
|
||||
{
|
||||
// write the msg tick count
|
||||
if((rc = _cmMidiFileWriteVarLen(mfp,tmp->dtick)) != kOkMfRC )
|
||||
return rc;
|
||||
|
||||
// switch on status
|
||||
switch( tmp->status )
|
||||
{
|
||||
// handle sys-ex msg
|
||||
case kSysExMdId:
|
||||
rc = _cmMidiFileWriteSysEx(mfp,tmp);
|
||||
break;
|
||||
|
||||
// handle meta msg
|
||||
case kMetaStId:
|
||||
rc = _cmMidiFileWriteMetaMsg(mfp,tmp);
|
||||
break;
|
||||
|
||||
default:
|
||||
// handle channel msg
|
||||
rc = _cmMidiFileWriteChannelMsg(mfp,tmp,&runStatus);
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
return rc;
|
||||
}
|
||||
|
||||
cmMfRC_t cmMidiFileWrite( cmMidiFileH_t h, const char* fn )
|
||||
{
|
||||
cmMfRC_t rc = kOkMfRC;
|
||||
_cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
|
||||
unsigned i;
|
||||
|
||||
// create the output file
|
||||
if( cmFileOpen(&mfp->fh,fn,kWriteFileFl,mfp->err.rpt) != kOkFileRC )
|
||||
return cmErrMsg(&mfp->err,kFileFailMfRC,"The MIDI file '%s' could not be created.",cmStringNullGuard(fn));
|
||||
|
||||
// write the file header
|
||||
if((rc = _cmMidiFileWriteHdr(mfp)) != kOkMfRC )
|
||||
{
|
||||
rc = cmErrMsg(&mfp->err,rc,"The file header write failed on the MIDI file '%s'.",cmStringNullGuard(fn));
|
||||
goto errLabel;
|
||||
}
|
||||
|
||||
for(i=0; i < mfp->trkN; ++i )
|
||||
{
|
||||
unsigned chkId='MTrk';
|
||||
long offs0,offs1;
|
||||
|
||||
// write the track chunk id ('MTrk')
|
||||
if((rc = _cmMidiFileWrite32(mfp,chkId)) != kOkMfRC )
|
||||
goto errLabel;
|
||||
|
||||
cmFileTell(mfp->fh,&offs0);
|
||||
|
||||
// write the track chunk size as zero
|
||||
if((rc = _cmMidiFileWrite32(mfp,0)) != kOkMfRC )
|
||||
goto errLabel;
|
||||
|
||||
if((rc = _cmMidiFileWriteTrack(mfp,i)) != kOkMfRC )
|
||||
goto errLabel;
|
||||
|
||||
cmFileTell(mfp->fh,&offs1);
|
||||
|
||||
cmFileSeek(mfp->fh,kBeginFileFl,offs0);
|
||||
|
||||
_cmMidiFileWrite32(mfp,offs1-offs0-4);
|
||||
|
||||
cmFileSeek(mfp->fh,kBeginFileFl,offs1);
|
||||
|
||||
}
|
||||
|
||||
errLabel:
|
||||
cmFileClose(&mfp->fh);
|
||||
return rc;
|
||||
}
|
||||
|
||||
|
||||
bool cmMidiFileIsValid( cmMidiFileH_t h )
|
||||
{ return !cmMidiFileIsNull(h); }
|
||||
|
||||
@ -1070,7 +1408,7 @@ void cmMidiFileTestPrint( void* printDataPtr, const char* fmt, va_list vl )
|
||||
void cmMidiFileTest( const char* fn, cmCtx_t* ctx )
|
||||
{
|
||||
cmMfRC_t rc;
|
||||
cmMidiFileH_t h;
|
||||
cmMidiFileH_t h = cmMidiFileNullHandle;
|
||||
|
||||
if((rc = cmMidiFileOpen(fn,&h,ctx)) != kOkMfRC )
|
||||
{
|
||||
@ -1078,9 +1416,33 @@ void cmMidiFileTest( const char* fn, cmCtx_t* ctx )
|
||||
return;
|
||||
}
|
||||
|
||||
cmMidiFilePrint(h,cmMidiFileTrackCount(h)-1,&ctx->rpt);
|
||||
|
||||
printf("Tracks:%i\n",cmMidiFileTrackCount(h));
|
||||
if(1)
|
||||
{
|
||||
//cmMidiFilePrint(h,cmMidiFileTrackCount(h)-1,&ctx->rpt);
|
||||
cmMidiFilePrint(h,cmInvalidIdx,&ctx->rpt);
|
||||
}
|
||||
if( 0 )
|
||||
{
|
||||
printf("Tracks:%i\n",cmMidiFileTrackCount(h));
|
||||
|
||||
unsigned i = 0;
|
||||
for(i=0; i<cmMidiFileMsgCount(h); ++i)
|
||||
{
|
||||
cmMidiTrackMsg_t* tmp = (cmMidiTrackMsg_t*)cmMidiFileMsgArray(h)[i];
|
||||
|
||||
if( tmp->status==kMetaStId && tmp->metaId == kTempoMdId )
|
||||
{
|
||||
double bpm = 60000000.0/tmp->u.iVal;
|
||||
printf("Tempo:%i %f\n",tmp->u.iVal,bpm);
|
||||
|
||||
tmp->u.iVal = floor( 60000000.0/69.0 );
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
cmMidiFileWrite(h,"/home/kevin/temp/test0.mid");
|
||||
}
|
||||
|
||||
cmMidiFileClose(&h);
|
||||
}
|
||||
|
||||
29
cmMidiFile.h
29
cmMidiFile.h
@ -56,13 +56,14 @@ extern "C" {
|
||||
cmMidiByte_t ch;
|
||||
cmMidiByte_t d0;
|
||||
cmMidiByte_t d1;
|
||||
unsigned durTicks; // note duration calc'd by
|
||||
unsigned durTicks; // note duration calc'd by cmMidiFileCalcNoteDurations();
|
||||
} cmMidiChMsg_t;
|
||||
|
||||
|
||||
typedef struct cmMidiTrackMsg_str
|
||||
{
|
||||
unsigned dtick; // delta ticks
|
||||
unsigned atick;
|
||||
cmMidiByte_t status; // ch msg's have the channel value removed (it is stored in u.chMsgPtr->ch)
|
||||
cmMidiByte_t metaId; //
|
||||
unsigned short trkIdx; //
|
||||
@ -86,20 +87,16 @@ extern "C" {
|
||||
|
||||
enum
|
||||
{
|
||||
kOkMfRC = cmOkRC, // 0
|
||||
kSysFopenFailMfRC, // 1
|
||||
kSysFreadFailMfRC, // 2
|
||||
kSysFseekFailMfRC, // 3
|
||||
kSysFtellFailMfRC, // 4
|
||||
kSysFcloseFailMfRC, // 5
|
||||
kNotAMidiFileMfRC, // 6
|
||||
kMemAllocFailMfRC, // 7
|
||||
kFileCorruptMfRC, // 8
|
||||
kMissingEoxMfRC, // 9
|
||||
kUnknownMetaIdMfRC, // 10
|
||||
kInvalidHandleMfRC, // 11
|
||||
kMissingNoteOffMfRC, // 12
|
||||
kInvalidStatusMfRC // 13
|
||||
kOkMfRC = cmOkRC, // 0
|
||||
kFileFailMfRC, // 1
|
||||
kNotAMidiFileMfRC, // 7
|
||||
kMemAllocFailMfRC, // 8
|
||||
kFileCorruptMfRC, // 9
|
||||
kMissingEoxMfRC, // 10
|
||||
kUnknownMetaIdMfRC, // 11
|
||||
kInvalidHandleMfRC, // 12
|
||||
kMissingNoteOffMfRC, // 13
|
||||
kInvalidStatusMfRC // 14
|
||||
};
|
||||
|
||||
extern cmMidiFileH_t cmMidiFileNullHandle;
|
||||
@ -107,6 +104,8 @@ extern "C" {
|
||||
cmMfRC_t cmMidiFileOpen( const char* fn, cmMidiFileH_t* hPtr, cmCtx_t* ctx );
|
||||
cmMfRC_t cmMidiFileClose( cmMidiFileH_t* hp );
|
||||
|
||||
cmMfRC_t cmMidiFileWrite( cmMidiFileH_t h, const char* fn );
|
||||
|
||||
bool cmMidiFileIsValid( cmMidiFileH_t h );
|
||||
|
||||
// Returns track count or kInvalidCnt if 'h' is invalid.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user