libcm is a C development framework with an emphasis on audio signal processing applications.
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456
  1. #include "cmPrefix.h"
  2. #include "cmGlobal.h"
  3. #include "cmRpt.h"
  4. #include "cmErr.h"
  5. #include "cmCtx.h"
  6. #include "cmFile.h"
  7. #include "cmMem.h"
  8. #include "cmMallocDebug.h"
  9. #include "cmLinkedHeap.h"
  10. #include "cmTime.h"
  11. #include "cmMidi.h"
  12. #include "cmMidiFile.h"
  13. #ifdef cmBIG_ENDIAN
  14. #define mfSwap16(v) (v)
  15. #define mfSwap32(v) (v)
  16. #else
  17. #define mfSwap16(v) cmSwap16(v)
  18. #define mfSwap32(v) cmSwap32(v)
  19. #endif
  20. typedef struct
  21. {
  22. unsigned cnt; // count of track records
  23. cmMidiTrackMsg_t* base; // pointer to first track recd
  24. cmMidiTrackMsg_t* last; // pointer to last track recd
  25. } _cmMidiTrack_t;
  26. typedef struct
  27. {
  28. cmErr_t err; // this objects error object
  29. cmLHeapH_t lhH; // linked heap used for all dynamically alloc'd data space
  30. cmFileH_t fh; // cmFile handle (only used in fmMidiFileOpen() and cmMidiFileWrite())
  31. unsigned short fmtId; // midi file type id: 0,1,2
  32. unsigned short ticksPerQN; // ticks per quarter note or 0 if smpteFmtId is valid
  33. cmMidiByte_t smpteFmtId; // smpte format or 0 if ticksPerQN is valid
  34. cmMidiByte_t smpteTicksPerFrame; // smpte ticks per frame or 0 if ticksPerQN is valid
  35. unsigned short trkN; // track count
  36. _cmMidiTrack_t* trkV; // track vector
  37. char* fn; // file name or NULL if this object did not originate from a file
  38. unsigned msgN; // count of msg's in msgV[]
  39. cmMidiTrackMsg_t** msgV; // sorted msg list
  40. unsigned nextUid; // next available msg uid
  41. } _cmMidiFile_t;
  42. cmMidiFileH_t cmMidiFileNullHandle = cmSTATIC_NULL_HANDLE;
  43. _cmMidiFile_t* _cmMidiFileHandleToPtr( cmMidiFileH_t h )
  44. {
  45. _cmMidiFile_t* p = (_cmMidiFile_t*)h.h;
  46. assert( p != NULL );
  47. return p;
  48. }
  49. void* _cmMidiFileMalloc( _cmMidiFile_t* mfp, unsigned byteN )
  50. { return cmLHeapAllocZ(mfp->lhH,byteN); }
  51. cmMfRC_t _cmMidiFileRead8( _cmMidiFile_t* mfp, cmMidiByte_t* p )
  52. {
  53. if( cmFileReadUChar(mfp->fh,p,1) != kOkFileRC )
  54. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI byte read failed.");
  55. return kOkMfRC;
  56. }
  57. cmMfRC_t _cmMidiFileRead16( _cmMidiFile_t* mfp, unsigned short* p )
  58. {
  59. if( cmFileReadUShort(mfp->fh,p,1) != kOkFileRC )
  60. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI short read failed.");
  61. *p = mfSwap16(*p);
  62. return kOkMfRC;
  63. }
  64. cmMfRC_t _cmMidiFileRead24( _cmMidiFile_t* mfp, unsigned* p )
  65. {
  66. *p = 0;
  67. int i = 0;
  68. for(; i<3; ++i)
  69. {
  70. unsigned char c;
  71. if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
  72. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI 24 bit integer read failed.");
  73. *p = (*p << 8) + c;
  74. }
  75. //*p =mfSwap32(*p);
  76. return kOkMfRC;
  77. }
  78. cmMfRC_t _cmMidiFileRead32( _cmMidiFile_t* mfp, unsigned* p )
  79. {
  80. if( cmFileReadUInt(mfp->fh,p,1) != kOkFileRC )
  81. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI integer read failed.");
  82. *p = mfSwap32(*p);
  83. return kOkMfRC;
  84. }
  85. cmMfRC_t _cmMidiFileReadText( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigned byteN )
  86. {
  87. if( byteN == 0 )
  88. return kOkMfRC;
  89. char* t = (char*)_cmMidiFileMalloc(mfp,byteN+1);
  90. t[byteN] = 0;
  91. if( cmFileReadChar(mfp->fh,t,byteN) != kOkFileRC )
  92. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read text failed.");
  93. tmp->u.text = t;
  94. tmp->byteCnt = byteN;
  95. return kOkMfRC;
  96. }
  97. cmMfRC_t _cmMidiFileReadRecd( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigned byteN )
  98. {
  99. char* t = (char*)_cmMidiFileMalloc(mfp,byteN);
  100. if( cmFileReadChar(mfp->fh,t,byteN) != kOkFileRC )
  101. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read record failed.");
  102. tmp->byteCnt = byteN;
  103. tmp->u.voidPtr = t;
  104. return kOkMfRC;
  105. }
  106. cmMfRC_t _cmMidiFileReadVarLen( _cmMidiFile_t* mfp, unsigned* p )
  107. {
  108. unsigned char c;
  109. if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
  110. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read variable length integer failed.");
  111. if( !(c & 0x80) )
  112. *p = c;
  113. else
  114. {
  115. *p = c & 0x7f;
  116. do
  117. {
  118. if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
  119. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read variable length integer failed.");
  120. *p = (*p << 7) + (c & 0x7f);
  121. }while( c & 0x80 );
  122. }
  123. return kOkMfRC;
  124. }
  125. cmMfRC_t _cmMidiFileAppendTrackMsg( _cmMidiFile_t* mfp, unsigned short trkIdx, unsigned dtick, cmMidiByte_t status, cmMidiTrackMsg_t** trkMsgPtrPtr )
  126. {
  127. cmMidiTrackMsg_t* tmp = (cmMidiTrackMsg_t*)_cmMidiFileMalloc(mfp, sizeof(cmMidiTrackMsg_t) );
  128. // link new record onto track record chain
  129. if( mfp->trkV[trkIdx].base == NULL )
  130. mfp->trkV[trkIdx].base = tmp;
  131. else
  132. mfp->trkV[trkIdx].last->link = tmp;
  133. mfp->trkV[trkIdx].last = tmp;
  134. mfp->trkV[trkIdx].cnt++;
  135. // set the generic track record fields
  136. tmp->dtick = dtick;
  137. tmp->status = status;
  138. tmp->metaId = kInvalidMetaMdId;
  139. tmp->trkIdx = trkIdx;
  140. tmp->byteCnt = 0;
  141. *trkMsgPtrPtr = tmp;
  142. return kOkMfRC;
  143. }
  144. cmMfRC_t _cmMidiFileReadSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigned byteN )
  145. {
  146. cmMfRC_t rc = kOkMfRC;
  147. cmMidiByte_t b = 0;
  148. if( byteN == cmInvalidCnt )
  149. {
  150. long offs;
  151. if( cmFileTell(mfp->fh,&offs) != kOkFileRC )
  152. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI File 'tell' failed.");
  153. byteN = 0;
  154. // get the length of the sys-ex msg
  155. while( !cmFileEof(mfp->fh) && (b != kSysComEoxMdId) )
  156. {
  157. if((rc = _cmMidiFileRead8(mfp,&b)) != kOkMfRC )
  158. return rc;
  159. ++byteN;
  160. }
  161. // verify that the EOX byte was found
  162. if( b != kSysComEoxMdId )
  163. return cmErrMsg(&mfp->err,kMissingEoxMfRC,"MIDI file missing 'end-of-sys-ex'.");
  164. // rewind to the beginning of the msg
  165. if( cmFileSeek(mfp->fh,kBeginFileFl,offs) != kOkFileRC )
  166. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file seek failed on sys-ex read.");
  167. }
  168. // allocate memory to hold the sys-ex msg
  169. cmMidiByte_t* mp = (cmMidiByte_t *)_cmMidiFileMalloc(mfp, byteN );
  170. // read the sys-ex msg from the file into msg memory
  171. if( cmFileReadUChar(mfp->fh,mp,byteN) != kOkFileRC )
  172. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI sys-ex read failed.");
  173. tmp->byteCnt = byteN;
  174. tmp->u.sysExPtr = mp;
  175. return rc;
  176. }
  177. cmMfRC_t _cmMidiFileReadChannelMsg( _cmMidiFile_t* mfp, cmMidiByte_t* rsPtr, cmMidiByte_t status, cmMidiTrackMsg_t* tmp )
  178. {
  179. cmMfRC_t rc = kOkMfRC;
  180. cmMidiChMsg_t* p = (cmMidiChMsg_t*)_cmMidiFileMalloc(mfp,sizeof(cmMidiChMsg_t));
  181. unsigned useRsFl = status <= 0x7f;
  182. cmMidiByte_t statusCh = useRsFl ? *rsPtr : status;
  183. if( useRsFl )
  184. p->d0 = status;
  185. else
  186. *rsPtr = status;
  187. tmp->byteCnt = sizeof(cmMidiChMsg_t);
  188. tmp->status = statusCh & 0xf0;
  189. p->ch = statusCh & 0x0f;
  190. p->durTicks = 0;
  191. unsigned byteN = cmMidiStatusToByteCount(tmp->status);
  192. if( byteN==kInvalidMidiByte || byteN > 2 )
  193. return cmErrMsg(&mfp->err,kInvalidStatusMfRC,"Invalid status:0x%x %i.",tmp->status,tmp->status);
  194. unsigned i;
  195. for(i=useRsFl; i<byteN; ++i)
  196. {
  197. cmMidiByte_t* b = i==0 ? &p->d0 : &p->d1;
  198. if((rc = _cmMidiFileRead8(mfp,b)) != kOkMfRC )
  199. return rc;
  200. }
  201. // convert note-on velocity=0 to note off
  202. if( tmp->status == kNoteOnMdId && p->d1==0 )
  203. tmp->status = kNoteOffMdId;
  204. tmp->u.chMsgPtr = p;
  205. return rc;
  206. }
  207. cmMfRC_t _cmMidiFileReadMetaMsg( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp )
  208. {
  209. cmMidiByte_t metaId;
  210. cmMfRC_t rc;
  211. unsigned byteN = 0;
  212. if((rc = _cmMidiFileRead8(mfp,&metaId)) != kOkMfRC )
  213. return rc;
  214. if((rc = _cmMidiFileReadVarLen(mfp,&byteN)) != kOkMfRC )
  215. return rc;
  216. //printf("mt: %i 0x%x n:%i\n",metaId,metaId,byteN);
  217. switch( metaId )
  218. {
  219. case kSeqNumbMdId: rc = _cmMidiFileRead16(mfp,&tmp->u.sVal); break;
  220. case kTextMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  221. case kCopyMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  222. case kTrkNameMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  223. case kInstrNameMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  224. case kLyricsMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  225. case kMarkerMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  226. case kCuePointMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  227. case kMidiChMdId: rc = _cmMidiFileRead8(mfp,&tmp->u.bVal); break;
  228. case kEndOfTrkMdId: break;
  229. case kTempoMdId: rc = _cmMidiFileRead24(mfp,&tmp->u.iVal); break;
  230. case kSmpteMdId: rc = _cmMidiFileReadRecd(mfp,tmp,sizeof(cmMidiSmpte_t)); break;
  231. case kTimeSigMdId: rc = _cmMidiFileReadRecd(mfp,tmp,sizeof(cmMidiTimeSig_t)); break;
  232. case kKeySigMdId: rc = _cmMidiFileReadRecd(mfp,tmp,sizeof(cmMidiKeySig_t)); break;
  233. case kSeqSpecMdId: rc = _cmMidiFileReadSysEx(mfp,tmp,byteN); break;
  234. default:
  235. cmFileSeek(mfp->fh,kCurFileFl,byteN);
  236. rc = cmErrMsg(&mfp->err,kUnknownMetaIdMfRC,"Unknown meta status:0x%x %i.",metaId,metaId);
  237. }
  238. tmp->metaId = metaId;
  239. return rc;
  240. }
  241. cmMfRC_t _cmMidiFileReadTrack( _cmMidiFile_t* mfp, unsigned short trkIdx )
  242. {
  243. cmMfRC_t rc = kOkMfRC;
  244. unsigned dticks = 0;
  245. cmMidiByte_t status;
  246. cmMidiByte_t runstatus = 0;
  247. bool contFl = true;
  248. while( contFl && (rc==kOkMfRC))
  249. {
  250. cmMidiTrackMsg_t* tmp = NULL;
  251. // read the tick count
  252. if((rc = _cmMidiFileReadVarLen(mfp,&dticks)) != kOkMfRC )
  253. return rc;
  254. // read the status byte
  255. if((rc = _cmMidiFileRead8(mfp,&status)) != kOkMfRC )
  256. return rc;
  257. //printf("st:%i 0x%x\n",status,status);
  258. // append a track msg
  259. if((rc = _cmMidiFileAppendTrackMsg( mfp, trkIdx, dticks, status, &tmp )) != kOkMfRC )
  260. return rc;
  261. // switch on status
  262. switch( status )
  263. {
  264. // handle sys-ex msg
  265. case kSysExMdId:
  266. rc = _cmMidiFileReadSysEx(mfp,tmp,cmInvalidCnt);
  267. break;
  268. // handle meta msg
  269. case kMetaStId:
  270. rc = _cmMidiFileReadMetaMsg(mfp,tmp);
  271. // ignore unknown meta messages
  272. if( rc == kUnknownMetaIdMfRC )
  273. rc = kOkMfRC;
  274. contFl = tmp->metaId != kEndOfTrkMdId;
  275. break;
  276. default:
  277. // handle channel msg
  278. rc = _cmMidiFileReadChannelMsg(mfp,&runstatus,status,tmp);
  279. }
  280. }
  281. return rc;
  282. }
  283. cmMfRC_t _cmMidiFileReadHdr( _cmMidiFile_t* mfp )
  284. {
  285. cmMfRC_t rc;
  286. unsigned fileId;
  287. unsigned chunkByteN;
  288. // read the file id
  289. if((rc = _cmMidiFileRead32(mfp,&fileId)) != kOkMfRC )
  290. return rc;
  291. // verify the file id
  292. if( fileId != 'MThd' )
  293. return cmErrMsg(&mfp->err,kNotAMidiFileMfRC,"");
  294. // read the file chunk byte count
  295. if((rc = _cmMidiFileRead32(mfp,&chunkByteN)) != kOkMfRC )
  296. return rc;
  297. // read the format id
  298. if((rc = _cmMidiFileRead16(mfp,&mfp->fmtId)) != kOkMfRC )
  299. return rc;
  300. // read the track count
  301. if((rc = _cmMidiFileRead16(mfp,&mfp->trkN)) != kOkMfRC )
  302. return rc;
  303. // read the ticks per quarter note
  304. if((rc = _cmMidiFileRead16(mfp,&mfp->ticksPerQN)) != kOkMfRC )
  305. return rc;
  306. // if the division field was given in smpte
  307. if( mfp->ticksPerQN & 0x8000 )
  308. {
  309. mfp->smpteFmtId = (mfp->ticksPerQN & 0x7f00) >> 8;
  310. mfp->smpteTicksPerFrame = (mfp->ticksPerQN & 0xFF);
  311. mfp->ticksPerQN = 0;
  312. }
  313. // allocate and zero the track array
  314. if( mfp->trkN )
  315. mfp->trkV = _cmMidiFileMalloc( mfp, sizeof(_cmMidiTrack_t)*mfp->trkN);
  316. return rc;
  317. }
  318. int _cmMidiFileSortFunc( const void *p0, const void* p1 )
  319. {
  320. //printf("%i %i\n",(*(cmMidiTrackMsg_t**)p0)->dticks,(*(cmMidiTrackMsg_t**)p1)->dticks);
  321. if( (*(cmMidiTrackMsg_t**)p0)->atick == (*(cmMidiTrackMsg_t**)p1)->atick )
  322. return 0;
  323. return (*(cmMidiTrackMsg_t**)p0)->atick < (*(cmMidiTrackMsg_t**)p1)->atick ? -1 : 1;
  324. }
  325. cmMfRC_t _cmMidiFileClose( _cmMidiFile_t* mfp )
  326. {
  327. cmMfRC_t rc = kOkMfRC;
  328. if( mfp == NULL )
  329. return rc;
  330. cmMemPtrFree(&mfp->msgV);
  331. if( cmFileIsValid( mfp->fh ) )
  332. if( cmFileClose( &mfp->fh ) != kOkFileRC )
  333. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file close failed.");
  334. if( cmLHeapIsValid( mfp->lhH ) )
  335. cmLHeapDestroy(&mfp->lhH);
  336. cmMemPtrFree(&mfp);
  337. return rc;
  338. }
  339. cmMfRC_t cmMidiFileOpen( const char* fn, cmMidiFileH_t* hPtr, cmCtx_t* ctx )
  340. {
  341. cmMfRC_t rc = kOkMfRC;
  342. _cmMidiFile_t* mfp = NULL;
  343. unsigned short trkIdx = 0;
  344. cmErr_t err;
  345. if( cmMidiFileIsValid(*hPtr) )
  346. if((rc = _cmMidiFileClose(_cmMidiFileHandleToPtr(*hPtr))) != kOkMfRC )
  347. return rc;
  348. cmErrSetup(&err,&ctx->rpt,"MIDI File");
  349. // allocate the midi file object
  350. if(( mfp = cmMemAllocZ( _cmMidiFile_t, 1)) == NULL )
  351. return rc = cmErrMsg(&err,kMemAllocFailMfRC,"MIDI file memory allocation failed.");
  352. cmErrClone(&mfp->err,&err);
  353. // allocate the linked heap
  354. if( cmLHeapIsValid( mfp->lhH = cmLHeapCreate( 1024, ctx )) == false )
  355. {
  356. rc = cmErrMsg(&err,kMemAllocFailMfRC,"MIDI heap allocation failed.");
  357. goto errLabel;
  358. }
  359. // open the file
  360. if(cmFileOpen(&mfp->fh,fn,kReadFileFl | kBinaryFileFl,mfp->err.rpt) != kOkFileRC )
  361. {
  362. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file open failed.");
  363. goto errLabel;
  364. }
  365. // read header and setup track array
  366. if(( rc = _cmMidiFileReadHdr(mfp)) != kOkMfRC )
  367. goto errLabel;
  368. while( !cmFileEof(mfp->fh) && trkIdx < mfp->trkN )
  369. {
  370. unsigned chkId=0,chkN=0;
  371. // read the chunk id
  372. if((rc = _cmMidiFileRead32(mfp,&chkId)) != kOkMfRC )
  373. goto errLabel;
  374. // read the chunk size
  375. if((rc = _cmMidiFileRead32(mfp,&chkN)) != kOkMfRC )
  376. goto errLabel;
  377. // if this is not a trk chunk then skip it
  378. if( chkId != (unsigned)'MTrk')
  379. {
  380. //if( fseek( mfp->fp, chkN, SEEK_CUR) != 0 )
  381. if( cmFileSeek(mfp->fh,kCurFileFl,chkN) != kOkFileRC )
  382. {
  383. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file seek failed.");
  384. goto errLabel;
  385. }
  386. }
  387. else
  388. {
  389. if((rc = _cmMidiFileReadTrack(mfp,trkIdx)) != kOkMfRC )
  390. goto errLabel;
  391. ++trkIdx;
  392. }
  393. }
  394. // get the total trk msg count
  395. mfp->msgN = 0;
  396. for(trkIdx=0; trkIdx<mfp->trkN; ++trkIdx)
  397. mfp->msgN += mfp->trkV[ trkIdx ].cnt;
  398. // allocate the trk msg index vector: msgV[]
  399. mfp->msgV = cmMemAllocZ(cmMidiTrackMsg_t*, mfp->msgN);
  400. // store a pointer to every trk msg in msgV[]
  401. // and convert tick to absolute tick
  402. mfp->nextUid = 0;
  403. unsigned i = 0;
  404. for(trkIdx=0; trkIdx<mfp->trkN; ++trkIdx)
  405. {
  406. unsigned tick = 0;
  407. cmMidiTrackMsg_t* tmp = mfp->trkV[ trkIdx ].base;
  408. while( tmp != NULL )
  409. {
  410. assert( i < mfp->msgN);
  411. tick += tmp->dtick; // convert delta-ticks to absolute ticks
  412. tmp->atick = tick;
  413. tmp->uid = mfp->nextUid++; // assign the msg uid
  414. mfp->msgV[i] = tmp;
  415. tmp = tmp->link;
  416. ++i;
  417. }
  418. }
  419. // sort msgV[] in ascending order on atick
  420. qsort( mfp->msgV, mfp->msgN, sizeof(cmMidiTrackMsg_t*), _cmMidiFileSortFunc );
  421. //for(i=0; i<25; ++i)
  422. // printf("%i 0x%x 0x%x\n",mfp->msgV[i]->tick,mfp->msgV[i]->status,mfp->msgV[i]->metaId);
  423. mfp->fn = _cmMidiFileMalloc(mfp,strlen(fn)+1);
  424. assert( mfp->fn != NULL );
  425. strcpy(mfp->fn,fn);
  426. hPtr->h = mfp;
  427. errLabel:
  428. if( cmFileClose(&mfp->fh) != kOkFileRC )
  429. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file close failed.");
  430. if( rc != kOkMfRC )
  431. _cmMidiFileClose(mfp);
  432. return rc;
  433. }
  434. cmMfRC_t cmMidiFileClose( cmMidiFileH_t* h )
  435. {
  436. cmMfRC_t rc;
  437. if( cmMidiFileIsNull(*h) )
  438. return kOkMfRC;
  439. if((rc = _cmMidiFileClose(_cmMidiFileHandleToPtr(*h))) == kOkMfRC )
  440. return rc;
  441. h->h = NULL;
  442. return rc;
  443. }
  444. cmMfRC_t _cmMidiFileWrite8( _cmMidiFile_t* mfp, unsigned char v )
  445. {
  446. cmMfRC_t rc = kOkMfRC;
  447. if( cmFileWriteUChar(mfp->fh,&v,1) != kOkFileRC )
  448. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file byte write failed.");
  449. return rc;
  450. }
  451. cmMfRC_t _cmMidiFileWrite16( _cmMidiFile_t* mfp, unsigned short v )
  452. {
  453. cmMfRC_t rc = kOkMfRC;
  454. v = mfSwap16(v);
  455. if( cmFileWriteUShort(mfp->fh,&v,1) != kOkFileRC )
  456. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file short integer write failed.");
  457. return rc;
  458. }
  459. cmMfRC_t _cmMidiFileWrite24( _cmMidiFile_t* mfp, unsigned v )
  460. {
  461. cmMfRC_t rc = kOkMfRC;
  462. unsigned mask = 0xff0000;
  463. int i;
  464. for(i=2; i>=0; --i)
  465. {
  466. unsigned char c = (v & mask) >> (i*8);
  467. mask >>= 8;
  468. if( cmFileWriteUChar(mfp->fh,&c,1) != kOkFileRC )
  469. {
  470. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file 24 bit integer write failed.");
  471. goto errLabel;
  472. }
  473. }
  474. errLabel:
  475. return rc;
  476. }
  477. cmMfRC_t _cmMidiFileWrite32( _cmMidiFile_t* mfp, unsigned v )
  478. {
  479. cmMfRC_t rc = kOkMfRC;
  480. v = mfSwap32(v);
  481. if( cmFileWriteUInt(mfp->fh,&v,1) != kOkFileRC )
  482. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file integer write failed.");
  483. return rc;
  484. }
  485. cmMfRC_t _cmMidiFileWriteRecd( _cmMidiFile_t* mfp, const void* v, unsigned byteCnt )
  486. {
  487. cmMfRC_t rc = kOkMfRC;
  488. if( cmFileWriteChar(mfp->fh,v,byteCnt) != kOkFileRC )
  489. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file write record failed.");
  490. return rc;
  491. }
  492. cmMfRC_t _cmMidiFileWriteVarLen( _cmMidiFile_t* mfp, unsigned v )
  493. {
  494. cmMfRC_t rc = kOkMfRC;
  495. unsigned buf = v & 0x7f;
  496. while((v >>= 7) > 0 )
  497. {
  498. buf <<= 8;
  499. buf |= 0x80;
  500. buf += (v & 0x7f);
  501. }
  502. while(1)
  503. {
  504. unsigned char c = (unsigned char)(buf & 0xff);
  505. if( cmFileWriteUChar(mfp->fh,&c,1) != kOkFileRC )
  506. {
  507. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file variable length integer write failed.");
  508. goto errLabel;
  509. }
  510. if( buf & 0x80 )
  511. buf >>= 8;
  512. else
  513. break;
  514. }
  515. errLabel:
  516. return rc;
  517. }
  518. cmMfRC_t _cmMidiFileWriteHdr( _cmMidiFile_t* mfp )
  519. {
  520. cmMfRC_t rc;
  521. unsigned fileId = 'MThd';
  522. unsigned chunkByteN = 6;
  523. // write the file id ('MThd')
  524. if((rc = _cmMidiFileWrite32(mfp,fileId)) != kOkMfRC )
  525. return rc;
  526. // write the file chunk byte count (always 6)
  527. if((rc = _cmMidiFileWrite32(mfp,chunkByteN)) != kOkMfRC )
  528. return rc;
  529. // write the MIDI file format id (0,1,2)
  530. if((rc = _cmMidiFileWrite16(mfp,mfp->fmtId)) != kOkMfRC )
  531. return rc;
  532. // write the track count
  533. if((rc = _cmMidiFileWrite16(mfp,mfp->trkN)) != kOkMfRC )
  534. return rc;
  535. unsigned short v = 0;
  536. // if the ticks per quarter note field is valid ...
  537. if( mfp->ticksPerQN )
  538. v = mfp->ticksPerQN;
  539. else
  540. {
  541. // ... otherwise the division field was given in smpte
  542. v = mfp->smpteFmtId << 8;
  543. v += mfp->smpteTicksPerFrame;
  544. }
  545. if((rc = _cmMidiFileWrite16(mfp,v)) != kOkMfRC )
  546. return rc;
  547. return rc;
  548. }
  549. cmMfRC_t _cmMidiFileWriteSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp )
  550. {
  551. cmMfRC_t rc = kOkMfRC;
  552. if((rc = _cmMidiFileWrite8(mfp,kSysExMdId)) != kOkMfRC )
  553. goto errLabel;
  554. if( cmFileWriteUChar(mfp->fh,tmp->u.sysExPtr,tmp->byteCnt) != kOkFileRC )
  555. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"Sys-ex msg write failed.");
  556. errLabel:
  557. return rc;
  558. }
  559. cmMfRC_t _cmMidiFileWriteChannelMsg( _cmMidiFile_t* mfp, const cmMidiTrackMsg_t* tmp, cmMidiByte_t* runStatus )
  560. {
  561. cmMfRC_t rc = kOkMfRC;
  562. unsigned byteN = cmMidiStatusToByteCount(tmp->status);
  563. cmMidiByte_t status = tmp->status + tmp->u.chMsgPtr->ch;
  564. if( status != *runStatus )
  565. {
  566. *runStatus = status;
  567. if((rc = _cmMidiFileWrite8(mfp,status)) != kOkMfRC )
  568. goto errLabel;
  569. }
  570. if(byteN>=1)
  571. if((rc = _cmMidiFileWrite8(mfp,tmp->u.chMsgPtr->d0)) != kOkMfRC )
  572. goto errLabel;
  573. if(byteN>=2)
  574. if((rc = _cmMidiFileWrite8(mfp,tmp->u.chMsgPtr->d1)) != kOkMfRC )
  575. goto errLabel;
  576. errLabel:
  577. return rc;
  578. }
  579. cmMfRC_t _cmMidiFileWriteMetaMsg( _cmMidiFile_t* mfp, const cmMidiTrackMsg_t* tmp )
  580. {
  581. cmMfRC_t rc;
  582. if((rc = _cmMidiFileWrite8(mfp,kMetaStId)) != kOkMfRC )
  583. return rc;
  584. if((rc = _cmMidiFileWrite8(mfp,tmp->metaId)) != kOkMfRC )
  585. return rc;
  586. switch( tmp->metaId )
  587. {
  588. case kSeqNumbMdId:
  589. if((rc = _cmMidiFileWrite8(mfp,sizeof(tmp->u.sVal))) == kOkMfRC )
  590. rc = _cmMidiFileWrite16(mfp,tmp->u.sVal);
  591. break;
  592. case kTempoMdId:
  593. if((rc = _cmMidiFileWrite8(mfp,3)) == kOkMfRC )
  594. rc = _cmMidiFileWrite24(mfp,tmp->u.iVal);
  595. break;
  596. case kSmpteMdId:
  597. if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiSmpte_t))) == kOkMfRC )
  598. rc = _cmMidiFileWriteRecd(mfp,tmp->u.smptePtr,sizeof(cmMidiSmpte_t));
  599. break;
  600. case kTimeSigMdId:
  601. if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiTimeSig_t))) == kOkMfRC )
  602. rc = _cmMidiFileWriteRecd(mfp,tmp->u.timeSigPtr,sizeof(cmMidiTimeSig_t));
  603. break;
  604. case kKeySigMdId:
  605. if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiKeySig_t))) == kOkMfRC )
  606. rc = _cmMidiFileWriteRecd(mfp,tmp->u.keySigPtr,sizeof(cmMidiKeySig_t));
  607. break;
  608. case kSeqSpecMdId:
  609. if((rc = _cmMidiFileWriteVarLen(mfp,sizeof(tmp->byteCnt))) == kOkMfRC )
  610. rc = _cmMidiFileWriteRecd(mfp,tmp->u.sysExPtr,tmp->byteCnt);
  611. break;
  612. case kMidiChMdId:
  613. if((rc = _cmMidiFileWrite8(mfp,sizeof(tmp->u.bVal))) == kOkMfRC )
  614. rc = _cmMidiFileWrite8(mfp,tmp->u.bVal);
  615. break;
  616. case kEndOfTrkMdId:
  617. rc = _cmMidiFileWrite8(mfp,0);
  618. break;
  619. case kTextMdId:
  620. case kCopyMdId:
  621. case kTrkNameMdId:
  622. case kInstrNameMdId:
  623. case kLyricsMdId:
  624. case kMarkerMdId:
  625. case kCuePointMdId:
  626. {
  627. unsigned n = tmp->u.text==NULL ? 0 : strlen(tmp->u.text);
  628. if((rc = _cmMidiFileWriteVarLen(mfp,n)) == kOkMfRC && n>0 )
  629. rc = _cmMidiFileWriteRecd(mfp,tmp->u.text,n);
  630. }
  631. break;
  632. default:
  633. {
  634. // ignore unknown meta messages
  635. }
  636. }
  637. return rc;
  638. }
  639. cmMfRC_t _cmMidiFileWriteTrack( _cmMidiFile_t* mfp, unsigned trkIdx )
  640. {
  641. cmMfRC_t rc = kOkMfRC;
  642. cmMidiTrackMsg_t* tmp = mfp->trkV[trkIdx].base;
  643. cmMidiByte_t runStatus = 0;
  644. for(; tmp!=NULL; tmp=tmp->link)
  645. {
  646. // write the msg tick count
  647. if((rc = _cmMidiFileWriteVarLen(mfp,tmp->dtick)) != kOkMfRC )
  648. return rc;
  649. // switch on status
  650. switch( tmp->status )
  651. {
  652. // handle sys-ex msg
  653. case kSysExMdId:
  654. rc = _cmMidiFileWriteSysEx(mfp,tmp);
  655. break;
  656. // handle meta msg
  657. case kMetaStId:
  658. rc = _cmMidiFileWriteMetaMsg(mfp,tmp);
  659. break;
  660. default:
  661. // handle channel msg
  662. rc = _cmMidiFileWriteChannelMsg(mfp,tmp,&runStatus);
  663. }
  664. }
  665. return rc;
  666. }
  667. cmMfRC_t cmMidiFileWrite( cmMidiFileH_t h, const char* fn )
  668. {
  669. cmMfRC_t rc = kOkMfRC;
  670. _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  671. unsigned i;
  672. // create the output file
  673. if( cmFileOpen(&mfp->fh,fn,kWriteFileFl,mfp->err.rpt) != kOkFileRC )
  674. return cmErrMsg(&mfp->err,kFileFailMfRC,"The MIDI file '%s' could not be created.",cmStringNullGuard(fn));
  675. // write the file header
  676. if((rc = _cmMidiFileWriteHdr(mfp)) != kOkMfRC )
  677. {
  678. rc = cmErrMsg(&mfp->err,rc,"The file header write failed on the MIDI file '%s'.",cmStringNullGuard(fn));
  679. goto errLabel;
  680. }
  681. for(i=0; i < mfp->trkN; ++i )
  682. {
  683. unsigned chkId='MTrk';
  684. long offs0,offs1;
  685. // write the track chunk id ('MTrk')
  686. if((rc = _cmMidiFileWrite32(mfp,chkId)) != kOkMfRC )
  687. goto errLabel;
  688. cmFileTell(mfp->fh,&offs0);
  689. // write the track chunk size as zero
  690. if((rc = _cmMidiFileWrite32(mfp,0)) != kOkMfRC )
  691. goto errLabel;
  692. if((rc = _cmMidiFileWriteTrack(mfp,i)) != kOkMfRC )
  693. goto errLabel;
  694. cmFileTell(mfp->fh,&offs1);
  695. cmFileSeek(mfp->fh,kBeginFileFl,offs0);
  696. _cmMidiFileWrite32(mfp,offs1-offs0-4);
  697. cmFileSeek(mfp->fh,kBeginFileFl,offs1);
  698. }
  699. errLabel:
  700. cmFileClose(&mfp->fh);
  701. return rc;
  702. }
  703. bool cmMidiFileIsValid( cmMidiFileH_t h )
  704. { return !cmMidiFileIsNull(h); }
  705. unsigned cmMidiFileTrackCount( cmMidiFileH_t h )
  706. {
  707. _cmMidiFile_t* mfp;
  708. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  709. return cmInvalidCnt;
  710. return mfp->trkN;
  711. }
  712. unsigned cmMidiFileType( cmMidiFileH_t h )
  713. {
  714. _cmMidiFile_t* mfp;
  715. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  716. return cmInvalidId;
  717. return mfp->fmtId;
  718. }
  719. const char* cmMidiFileName( cmMidiFileH_t h )
  720. {
  721. _cmMidiFile_t* mfp;
  722. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  723. return NULL;
  724. return mfp->fn;
  725. }
  726. unsigned cmMidiFileTicksPerQN( cmMidiFileH_t h )
  727. {
  728. _cmMidiFile_t* mfp;
  729. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  730. return cmInvalidCnt;
  731. return mfp->ticksPerQN;
  732. }
  733. cmMidiByte_t cmMidiFileTicksPerSmpteFrame( cmMidiFileH_t h )
  734. {
  735. _cmMidiFile_t* mfp;
  736. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  737. return kInvalidMidiByte;
  738. if( mfp->ticksPerQN != 0 )
  739. return 0;
  740. return mfp->smpteTicksPerFrame;
  741. }
  742. cmMidiByte_t cmMidiFileSmpteFormatId( cmMidiFileH_t h )
  743. {
  744. _cmMidiFile_t* mfp;
  745. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  746. return kInvalidMidiByte;
  747. if( mfp->ticksPerQN != 0 )
  748. return 0;
  749. return mfp->smpteFmtId;
  750. }
  751. unsigned cmMidiFileTrackMsgCount( cmMidiFileH_t h, unsigned trackIdx )
  752. {
  753. _cmMidiFile_t* mfp;
  754. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  755. return cmInvalidCnt;
  756. return mfp->trkV[trackIdx].cnt;
  757. }
  758. const cmMidiTrackMsg_t* cmMidiFileTrackMsg( cmMidiFileH_t h, unsigned trackIdx )
  759. {
  760. _cmMidiFile_t* mfp;
  761. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  762. return NULL;
  763. return mfp->trkV[trackIdx].base;
  764. }
  765. unsigned cmMidiFileMsgCount( cmMidiFileH_t h )
  766. {
  767. _cmMidiFile_t* mfp;
  768. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  769. return cmInvalidCnt;
  770. return mfp->msgN;
  771. }
  772. const cmMidiTrackMsg_t** cmMidiFileMsgArray( cmMidiFileH_t h )
  773. {
  774. _cmMidiFile_t* mfp;
  775. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  776. return NULL;
  777. // this cast is needed to eliminate an apparently needless 'incompatible type' warning
  778. return (const cmMidiTrackMsg_t**)mfp->msgV;
  779. }
  780. unsigned cmMidiFileSeekUsecs( cmMidiFileH_t h, unsigned offsUSecs, unsigned* msgUsecsPtr, unsigned* microsPerTickPtr )
  781. {
  782. _cmMidiFile_t* p;
  783. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  784. return cmInvalidIdx;
  785. if( p->msgN == 0 )
  786. return cmInvalidIdx;
  787. unsigned mi;
  788. double microsPerQN = 60000000.0/120.0;
  789. double microsPerTick = microsPerQN / p->ticksPerQN;
  790. double accUSecs = 0;
  791. for(mi=0; mi<p->msgN; ++mi)
  792. {
  793. const cmMidiTrackMsg_t* mp = p->msgV[mi];
  794. if( mp->status == kMetaStId && mp->metaId == kTempoMdId )
  795. microsPerTick = mp->u.iVal / p->ticksPerQN;
  796. accUSecs += mp->dtick * microsPerTick ;
  797. if( accUSecs >= offsUSecs )
  798. break;
  799. }
  800. if( mi == p->msgN )
  801. return cmInvalidIdx;
  802. if( msgUsecsPtr != NULL )
  803. *msgUsecsPtr = round(accUSecs - offsUSecs);
  804. if( microsPerTickPtr != NULL )
  805. *microsPerTickPtr = round(microsPerTick);
  806. return mi;
  807. }
  808. double cmMidiFileDurSecs( cmMidiFileH_t h )
  809. {
  810. _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  811. unsigned mi;
  812. double durSecs = 0;
  813. double r = 1.0; //1000.0/(1000-.8);
  814. double microsPerQN = r*60000000.0/120.0;
  815. double microsPerTick = microsPerQN / mfp->ticksPerQN;
  816. for(mi=0; mi<mfp->msgN; ++mi)
  817. {
  818. cmMidiTrackMsg_t* mp = mfp->msgV[mi];
  819. if( mp->status == kMetaStId && mp->metaId == kTempoMdId )
  820. microsPerTick = r*mp->u.iVal / mfp->ticksPerQN;
  821. // update the accumulated seconds
  822. durSecs += (mp->dtick * microsPerTick) / 1000000.0;
  823. }
  824. return durSecs;
  825. }
  826. void cmMidiFileTickToMicros( cmMidiFileH_t h )
  827. {
  828. _cmMidiFile_t* p;
  829. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  830. return;
  831. if( p->msgN == 0 )
  832. return;
  833. unsigned mi;
  834. double r = 1.0; //1000.0/(1000-.8);
  835. double microsPerQN = r*60000000/120; // default tempo
  836. double microsPerTick = microsPerQN / p->ticksPerQN;
  837. for(mi=0; mi<p->msgN; ++mi)
  838. {
  839. cmMidiTrackMsg_t* mp = p->msgV[mi];
  840. if( mp->status == kMetaStId && mp->metaId == kTempoMdId )
  841. microsPerTick = r*mp->u.iVal / p->ticksPerQN;
  842. mp->dtick = round(microsPerTick*mp->dtick);
  843. }
  844. }
  845. void cmMidiFileTickToSamples( cmMidiFileH_t h, double srate, bool absFl )
  846. {
  847. _cmMidiFile_t* p;
  848. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  849. return;
  850. if( p->msgN == 0 )
  851. return;
  852. unsigned mi;
  853. double r = 1.0; //1000.0/(1000-.8);
  854. double microsPerQN = r*60000000/120; // default tempo
  855. double microsPerTick = microsPerQN / p->ticksPerQN;
  856. double absSmp = 0;
  857. for(mi=0; mi<p->msgN; ++mi)
  858. {
  859. cmMidiTrackMsg_t* mp = p->msgV[mi];
  860. if( mp->status == kMetaStId && mp->metaId == kTempoMdId )
  861. microsPerTick = r*mp->u.iVal / p->ticksPerQN;
  862. double delta = microsPerTick*mp->dtick*srate/1000000.0;
  863. absSmp += delta;
  864. mp->dtick = round(absFl ? absSmp : delta);
  865. }
  866. }
  867. typedef struct _cmMidiVoice_str
  868. {
  869. const cmMidiTrackMsg_t* mp;
  870. unsigned durTicks;
  871. bool sustainFl;
  872. struct _cmMidiVoice_str* link;
  873. } _cmMidiVoice_t;
  874. void _cmMidFileCalcNoteDurationReleaseNote( _cmMidiVoice_t** listPtrPtr, _cmMidiVoice_t* pp, _cmMidiVoice_t* vp )
  875. {
  876. assert( (pp==NULL && vp==*listPtrPtr) || pp->link==vp);
  877. // store the duration of the note into the track msg
  878. // assoc'd with the note-on msg
  879. cmMidiChMsg_t* cmp = (cmMidiChMsg_t*)vp->mp->u.chMsgPtr; // cast away const
  880. cmp->durTicks = vp->durTicks;
  881. _cmMidiVoice_t* np = vp->link;
  882. // release the voice msg
  883. cmMemFree(vp);
  884. // unlink the active voice msg
  885. if( pp == NULL )
  886. *listPtrPtr = np;
  887. else
  888. pp->link = np;
  889. }
  890. void _cmMidiFileCalcNoteDurationsAllocVoice( _cmMidiVoice_t** listPtrPtr, cmMidiTrackMsg_t* mp, bool sustainFl )
  891. {
  892. _cmMidiVoice_t* vp = cmMemAllocZ(_cmMidiVoice_t,1);
  893. vp->mp = mp;
  894. vp->sustainFl = sustainFl;
  895. vp->link = *listPtrPtr;
  896. *listPtrPtr = vp;
  897. }
  898. void cmMidiFileCalcNoteDurations( cmMidiFileH_t h )
  899. {
  900. _cmMidiFile_t* p;
  901. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  902. return;
  903. if( p->msgN == 0 )
  904. return;
  905. unsigned mi = cmInvalidId;
  906. _cmMidiVoice_t* list = NULL; // list of active voices
  907. _cmMidiVoice_t* vp = NULL;
  908. bool sustainFlagV[ kMidiChCnt ];
  909. // clear the sustain pedal flag
  910. for(mi=0; mi<kMidiChCnt; ++mi)
  911. sustainFlagV[mi]=false;
  912. for(mi=0; mi<p->msgN; ++mi)
  913. {
  914. cmMidiTrackMsg_t* mp = p->msgV[mi];
  915. // update the duration of the sounding notes
  916. for(vp = list; vp!=NULL; vp=vp->link)
  917. vp->durTicks += mp->dtick;
  918. //
  919. // If this is sustain pedal msg
  920. //
  921. if( mp->status==kCtlMdId && mp->u.chMsgPtr->d0 == kSustainCtlMdId )
  922. {
  923. unsigned chIdx = mp->u.chMsgPtr->ch;
  924. assert( chIdx < kMidiChCnt );
  925. // set the state of the sustain pedal flags
  926. sustainFlagV[chIdx] = mp->u.chMsgPtr->d1 >= 64;
  927. // if the pedal went down ...
  928. if( sustainFlagV[chIdx] )
  929. {
  930. _cmMidiFileCalcNoteDurationsAllocVoice( &list, mp, true );
  931. }
  932. else // ... if the pedal went up
  933. {
  934. // ... then release sustaining notes
  935. _cmMidiVoice_t* pp = NULL;
  936. for(vp=list; vp != NULL; )
  937. {
  938. _cmMidiVoice_t* np = vp->link;
  939. if( vp->sustainFl && (vp->mp->u.chMsgPtr->ch == chIdx) )
  940. _cmMidFileCalcNoteDurationReleaseNote(&list,pp,vp);
  941. else
  942. pp = vp;
  943. vp = np;
  944. }
  945. }
  946. }
  947. //
  948. // if this is a note-on msg
  949. //
  950. if( mp->status==kNoteOnMdId && mp->u.chMsgPtr->d1>0 )
  951. {
  952. _cmMidiFileCalcNoteDurationsAllocVoice( &list, mp, false );
  953. }
  954. else
  955. //
  956. // if this is a note-off msg
  957. //
  958. if( (mp->status==kNoteOnMdId && mp->u.chMsgPtr->d1==0) || (mp->status==kNoteOffMdId) )
  959. {
  960. _cmMidiVoice_t* pp = NULL;
  961. unsigned chIdx = mp->u.chMsgPtr->ch;
  962. assert( chIdx < kMidiChCnt );
  963. // for each active voice
  964. for(vp=list; vp!=NULL; vp=vp->link )
  965. {
  966. // if this active voice ch/pitch matches the note-off msg ch pitch
  967. if( (vp->mp->u.chMsgPtr->d0==mp->u.chMsgPtr->d0) && (vp->mp->u.chMsgPtr->ch==chIdx) )
  968. {
  969. // if the sustain pedal is down for this channel - then defer turning the note off
  970. if( sustainFlagV[chIdx] )
  971. vp->sustainFl = true;
  972. else
  973. _cmMidFileCalcNoteDurationReleaseNote(&list,pp,vp);
  974. break;
  975. }
  976. pp = vp;
  977. } // end for
  978. } // end if
  979. } // end-for
  980. // check for hung notes
  981. _cmMidiVoice_t* np = NULL;
  982. vp = list;
  983. while( vp != NULL )
  984. {
  985. np = vp->link;
  986. if( cmMidiIsNoteOn(vp->mp->status) == false )
  987. cmErrMsg(&p->err,kMissingNoteOffMfRC,"Missing note-off for note-on:%s",cmMidiToSciPitch(vp->mp->u.chMsgPtr->d0,NULL,0));
  988. cmMemFree(vp);
  989. vp = np;
  990. }
  991. }
  992. void cmMidiFileSetDelay( cmMidiFileH_t h, unsigned ticks )
  993. {
  994. _cmMidiFile_t* p;
  995. unsigned mi;
  996. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  997. return;
  998. if( p->msgN == 0 )
  999. return;
  1000. for(mi=0; mi<p->msgN; ++mi)
  1001. {
  1002. cmMidiTrackMsg_t* mp = p->msgV[mi];
  1003. // locate the first msg which has a non-zero delta tick
  1004. if( mp->dtick > 0 )
  1005. {
  1006. mp->dtick = ticks;
  1007. break;
  1008. }
  1009. }
  1010. }
  1011. unsigned cmMidiFilePackTrackMsgBufByteCount( const cmMidiTrackMsg_t* m )
  1012. { return sizeof(cmMidiTrackMsg_t) + m->byteCnt; }
  1013. cmMidiTrackMsg_t* cmMidiFilePackTrackMsg( const cmMidiTrackMsg_t* m, void* buf, unsigned bufByteCnt )
  1014. {
  1015. unsigned n = sizeof(cmMidiTrackMsg_t) + m->byteCnt;
  1016. if( n < bufByteCnt )
  1017. {
  1018. assert(0);
  1019. return NULL;
  1020. }
  1021. // copy the cmMidiTrackMsg_t into the buffer
  1022. memcpy(buf, m, sizeof(cmMidiTrackMsg_t));
  1023. if( m->byteCnt > 0 )
  1024. {
  1025. // copy any linked data into the buffer
  1026. memcpy(buf + sizeof(cmMidiTrackMsg_t), m->u.voidPtr, m->byteCnt );
  1027. // fixup the linked data ptr
  1028. cmMidiTrackMsg_t* mp = (cmMidiTrackMsg_t*)buf;
  1029. mp->u.voidPtr = buf + sizeof(cmMidiTrackMsg_t);
  1030. }
  1031. return (cmMidiTrackMsg_t*)buf;
  1032. }
  1033. void cmMidiFilePrint( cmMidiFileH_t h, unsigned trkIdx, cmRpt_t* rpt )
  1034. {
  1035. const _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  1036. if( mfp->fn != NULL )
  1037. cmRptPrintf(rpt,"%s ",mfp->fn);
  1038. cmRptPrintf(rpt,"fmt:%i ticksPerQN:%i tracks:%i\n",mfp->fmtId,mfp->ticksPerQN,mfp->trkN);
  1039. int i = trkIdx == cmInvalidIdx ? 0 : trkIdx;
  1040. int n = trkIdx == cmInvalidIdx ? mfp->trkN : trkIdx+1;
  1041. for(; i<n; ++i)
  1042. {
  1043. cmRptPrintf(rpt,"Track:%i\n",i);
  1044. cmMidiTrackMsg_t* tmp = mfp->trkV[i].base;
  1045. while( tmp != NULL )
  1046. {
  1047. cmRptPrintf(rpt,"%5i ", tmp->dtick );
  1048. if( tmp->status == kMetaStId )
  1049. cmRptPrintf(rpt,"%s ", cmMidiMetaStatusToLabel(tmp->metaId));
  1050. else
  1051. {
  1052. cmRptPrintf(rpt,"%4s %3i %3i %3i", cmMidiStatusToLabel(tmp->status),tmp->u.chMsgPtr->ch,tmp->u.chMsgPtr->d0,tmp->u.chMsgPtr->d1);
  1053. }
  1054. cmRptPrintf(rpt,"\n");
  1055. tmp = tmp->link;
  1056. }
  1057. }
  1058. }
  1059. bool cmMidiFileIsNull( cmMidiFileH_t h )
  1060. { return (_cmMidiFile_t*)h.h == NULL; }
  1061. void cmMidiFileTestPrint( void* printDataPtr, const char* fmt, va_list vl )
  1062. { vprintf(fmt,vl); }
  1063. void cmMidiFileTest( const char* fn, cmCtx_t* ctx )
  1064. {
  1065. cmMfRC_t rc;
  1066. cmMidiFileH_t h = cmMidiFileNullHandle;
  1067. if((rc = cmMidiFileOpen(fn,&h,ctx)) != kOkMfRC )
  1068. {
  1069. printf("Error:%i Unable to open the cmMidi file: %s\n",rc,fn);
  1070. return;
  1071. }
  1072. if(1)
  1073. {
  1074. //cmMidiFilePrint(h,cmMidiFileTrackCount(h)-1,&ctx->rpt);
  1075. cmMidiFilePrint(h,cmInvalidIdx,&ctx->rpt);
  1076. }
  1077. if( 0 )
  1078. {
  1079. printf("Tracks:%i\n",cmMidiFileTrackCount(h));
  1080. unsigned i = 0;
  1081. for(i=0; i<cmMidiFileMsgCount(h); ++i)
  1082. {
  1083. cmMidiTrackMsg_t* tmp = (cmMidiTrackMsg_t*)cmMidiFileMsgArray(h)[i];
  1084. if( tmp->status==kMetaStId && tmp->metaId == kTempoMdId )
  1085. {
  1086. double bpm = 60000000.0/tmp->u.iVal;
  1087. printf("Tempo:%i %f\n",tmp->u.iVal,bpm);
  1088. tmp->u.iVal = floor( 60000000.0/69.0 );
  1089. break;
  1090. }
  1091. }
  1092. cmMidiFileWrite(h,"/home/kevin/temp/test0.mid");
  1093. }
  1094. cmMidiFileClose(&h);
  1095. }