From e386a9675df336aa48425c6ceb08a0255781ef7e Mon Sep 17 00:00:00 2001 From: kpl Date: Tue, 24 Sep 2013 13:03:01 -0700 Subject: [PATCH] cmMidiFile.h/c : Added cmMidiFileWrite() and the 'atick' absolute tick value field. --- cmMidiFile.c | 434 ++++++++++++++++++++++++++++++++++++++++++++++----- cmMidiFile.h | 29 ++-- 2 files changed, 412 insertions(+), 51 deletions(-) diff --git a/cmMidiFile.c b/cmMidiFile.c index b67c5bf..49ecd54 100644 --- a/cmMidiFile.c +++ b/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; istatus==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); } diff --git a/cmMidiFile.h b/cmMidiFile.h index cdfee1b..ecfc9f2 100644 --- a/cmMidiFile.h +++ b/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.