libcm is a C development framework with an emphasis on audio signal processing applications.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849
  1. #include "cmGlobal.h"
  2. #include "cmFloatTypes.h"
  3. #include "cmRpt.h"
  4. #include "cmErr.h"
  5. #include "cmCtx.h"
  6. #include "cmMem.h"
  7. #include "cmMallocDebug.h"
  8. #include "cmLinkedHeap.h"
  9. #include "cmJson.h"
  10. #include "cmText.h"
  11. #include "cmAudioFile.h"
  12. #include "cmTime.h"
  13. #include "cmMidi.h"
  14. #include "cmMidiFile.h"
  15. #include "cmFileSys.h"
  16. #include "cmTimeLine.h"
  17. #include "cmOnset.h"
  18. // id's used to track the type of a serialized object
  19. enum
  20. {
  21. kMsgTlId,
  22. kObjTlId
  23. };
  24. //
  25. typedef struct _cmTlMsg_str
  26. {
  27. unsigned typeId; // always set to kMsgTlId
  28. cmTlUiMsgTypeId_t msgId; //
  29. double srate;
  30. unsigned seqCnt;
  31. unsigned seqId;
  32. } _cmTlMsg_t;
  33. typedef struct _cmTlObj_str
  34. {
  35. void* mem;
  36. unsigned memByteCnt;
  37. cmTlObj_t* obj;
  38. struct _cmTlObj_str* prev;
  39. struct _cmTlObj_str* next;
  40. } _cmTlObj_t;
  41. typedef struct
  42. {
  43. _cmTlObj_t* first;
  44. _cmTlObj_t* last;
  45. } _cmTlSeq_t;
  46. typedef struct
  47. {
  48. cmErr_t err;
  49. cmCtx_t ctx;
  50. cmLHeapH_t lH;
  51. double srate;
  52. unsigned nextSeqId;
  53. cmTlCb_t cbFunc;
  54. void* cbArg;
  55. cmChar_t* prefixPath;
  56. unsigned nextUId;
  57. char* tmpBuf;
  58. unsigned seqCnt;
  59. _cmTlSeq_t* seq; // seq[seqCnt]
  60. const cmChar_t* filename;
  61. cmOnsetCfg_t onsetCfg;
  62. } _cmTl_t;
  63. typedef struct
  64. {
  65. char label[8];
  66. unsigned id;
  67. } _cmTlId_t;
  68. _cmTlId_t _cmTlIdArray[] =
  69. {
  70. { "mf", kMidiFileTlId },
  71. { "me", kMidiEvtTlId },
  72. { "af", kAudioFileTlId },
  73. { "ae", kAudioEvtTlId },
  74. { "mk", kMarkerTlId },
  75. { "", cmInvalidId }
  76. };
  77. cmTlH_t cmTimeLineNullHandle = cmSTATIC_NULL_HANDLE;
  78. _cmTl_t* _cmTlHandleToPtr( cmTlH_t h )
  79. {
  80. _cmTl_t* p = (_cmTl_t*)h.h;
  81. assert( p != NULL );
  82. return p;
  83. }
  84. _cmTlId_t* _cmTlIdLabelToRecd( _cmTl_t* p, const cmChar_t* label )
  85. {
  86. unsigned i;
  87. if( label != NULL )
  88. for(i=0; _cmTlIdArray[i].id != cmInvalidId; ++i)
  89. if( strcmp(_cmTlIdArray[i].label,label) == 0 )
  90. return _cmTlIdArray + i;
  91. return NULL;
  92. }
  93. _cmTlId_t* _cmTlIdToRecd( _cmTl_t* p, unsigned id )
  94. {
  95. unsigned i;
  96. for(i=0; _cmTlIdArray[i].id != cmInvalidId; ++i)
  97. if( _cmTlIdArray[i].id == id )
  98. return _cmTlIdArray + i;
  99. return NULL;
  100. }
  101. const cmChar_t* _cmTlIdToLabel( _cmTl_t* p, unsigned id )
  102. {
  103. _cmTlId_t* rp;
  104. if((rp = _cmTlIdToRecd(p,id)) != NULL )
  105. return rp->label;
  106. return "";
  107. }
  108. unsigned _cmTlIdLabelToId( _cmTl_t* p, const cmChar_t* label )
  109. {
  110. _cmTlId_t* rp;
  111. if((rp = _cmTlIdLabelToRecd(p,label)) != NULL )
  112. return rp->id;
  113. return cmInvalidId;
  114. }
  115. // cast a generic object to a midi file object
  116. cmTlMidiFile_t* _cmTlMidiFileObjPtr( _cmTl_t* p, cmTlObj_t* op, bool errFl )
  117. {
  118. if( op==NULL || op->typeId != kMidiFileTlId )
  119. {
  120. if( errFl && p != NULL)
  121. cmErrMsg(&p->err,kTypeCvtFailTlRC,"A time line object type promotion failed.");
  122. return NULL;
  123. }
  124. return (cmTlMidiFile_t*)op;
  125. }
  126. // cast a generic object to a midi event object
  127. cmTlMidiEvt_t* _cmTlMidiEvtObjPtr( _cmTl_t* p, cmTlObj_t* op, bool errFl )
  128. {
  129. if( op==NULL || op->typeId != kMidiEvtTlId )
  130. {
  131. if( errFl && p != NULL )
  132. cmErrMsg(&p->err,kTypeCvtFailTlRC,"A time line object type promotion failed.");
  133. return NULL;
  134. }
  135. return (cmTlMidiEvt_t*)op;
  136. }
  137. // case a generic object to an audio file object
  138. cmTlAudioFile_t* _cmTlAudioFileObjPtr( _cmTl_t* p, cmTlObj_t* op, bool errFl )
  139. {
  140. if( op==NULL || op->typeId != kAudioFileTlId )
  141. {
  142. if( errFl && p != NULL)
  143. cmErrMsg(&p->err,kTypeCvtFailTlRC,"A time line object type promotion failed.");
  144. return NULL;
  145. }
  146. return (cmTlAudioFile_t*)op;
  147. }
  148. // cast a generic object an audio event object to
  149. cmTlAudioEvt_t* _cmTlAudioEvtObjPtr( _cmTl_t* p, cmTlObj_t* op, bool errFl )
  150. {
  151. if( op==NULL || op->typeId != kAudioEvtTlId )
  152. {
  153. if( errFl && p != NULL)
  154. cmErrMsg(&p->err,kTypeCvtFailTlRC,"A time line object type promotion failed.");
  155. return NULL;
  156. }
  157. return (cmTlAudioEvt_t*)op;
  158. }
  159. // cast a generic object to a marker object
  160. cmTlMarker_t* _cmTlMarkerObjPtr( _cmTl_t* p, cmTlObj_t* op, bool errFl )
  161. {
  162. if( op==NULL || op->typeId != kMarkerTlId )
  163. {
  164. if( errFl && p != NULL)
  165. cmErrMsg(&p->err,kTypeCvtFailTlRC,"A time line object type promotion failed.");
  166. return NULL;
  167. }
  168. return (cmTlMarker_t*)op;
  169. }
  170. cmTlMidiFile_t* _cmTimeLineMidiFileObjPtr( _cmTl_t* p, cmTlObj_t* op )
  171. { return _cmTlMidiFileObjPtr(p,op,true); }
  172. cmTlMidiEvt_t* _cmTimeLineMidiEvtObjPtr( _cmTl_t* p, cmTlObj_t* op )
  173. { return _cmTlMidiEvtObjPtr(p,op,true); }
  174. cmTlAudioFile_t* _cmTimeLineAudioFileObjPtr( _cmTl_t* p, cmTlObj_t* op )
  175. { return _cmTlAudioFileObjPtr(p,op,true);}
  176. cmTlAudioEvt_t* _cmTimeLineAudioEvtObjPtr( _cmTl_t* p, cmTlObj_t* op )
  177. { return _cmTlAudioEvtObjPtr(p,op,true);}
  178. cmTlMarker_t* _cmTimeLineMarkerObjPtr( _cmTl_t* p, cmTlObj_t* op )
  179. { return _cmTlMarkerObjPtr(p,op,true);}
  180. // Locate a record which matches 'name' and (optionally) 'seqId'
  181. _cmTlObj_t* _cmTlFindRecd( _cmTl_t* p, unsigned seqId, const cmChar_t* name )
  182. {
  183. if( name == NULL )
  184. return NULL;
  185. unsigned i;
  186. for(i=0; i<p->seqCnt; ++i)
  187. if( seqId==cmInvalidId || seqId == i )
  188. {
  189. _cmTlObj_t* op = p->seq[i].first;
  190. while(op != NULL)
  191. {
  192. if( strcmp(op->obj->name,name) == 0 )
  193. return op;
  194. op = op->next;
  195. }
  196. }
  197. return NULL;
  198. }
  199. // Returns true if 'op' is a child of 'ref'.
  200. bool _cmTlIsChild( _cmTlObj_t* ref, _cmTlObj_t* op )
  201. {
  202. // if 'op' is not active then it can't be a child
  203. if( op->obj == NULL )
  204. return false;
  205. // if 'ref' is NULL then match obj's which do not have a parent
  206. if( ref == NULL )
  207. return op->obj->ref == NULL;
  208. // if 'ref' is the parent of 'op'.
  209. return op->obj->ref == ref->obj;
  210. }
  211. // calc the absolute start time of this object by adding the
  212. // time time offsets of all ancestors.
  213. int _cmTlStartTime( const cmTlObj_t* obj )
  214. {
  215. assert( obj != NULL );
  216. int t = 0;
  217. do
  218. {
  219. t += obj->begSmpIdx;
  220. obj=obj->ref;
  221. }while( obj != NULL);
  222. return t;
  223. }
  224. // Locate the closest record which is before 'np'.
  225. // When multiple records have the same distance to 'np' then the last one inserted
  226. // is taken as the closest. This way records with equal time values will be
  227. // secondarily sequenced on their order of insertion.
  228. _cmTlObj_t* _cmTlFindRecdBefore( _cmTl_t* p, const _cmTlObj_t* np )
  229. {
  230. assert( np->obj!=NULL && np->obj->seqId < p->seqCnt );
  231. // calc the absolute time of this object
  232. //int absSmpIdx = _cmTlStartTime(np->obj);
  233. int rsi = 0;
  234. _cmTlObj_t* rp = NULL;
  235. _cmTlObj_t* op = p->seq[np->obj->seqId].first;
  236. //printf("type:%i %i\n",np->obj->typeId,absSmpIdx);
  237. // for each object in the list ...
  238. while( op != NULL )
  239. {
  240. int csi;
  241. //if( op!=np && op->obj!=NULL && (csi = _cmTlStartTime(op->obj)) <= absSmpIdx )
  242. if( (op!=np) && (op->obj!=NULL) && ((csi = op->obj->seqSmpIdx) <= np->obj->seqSmpIdx) )
  243. {
  244. if( rp == NULL || csi >= rsi )
  245. {
  246. rp = op;
  247. rsi = csi;
  248. }
  249. }
  250. op = op->next;
  251. }
  252. return rp;
  253. }
  254. // Mark 'op' and all children of 'op' for deletion.
  255. // Note that this function is recursive.
  256. cmTlRC_t _cmTlDeleteDependentRecds( _cmTl_t* p, _cmTlObj_t* op )
  257. {
  258. assert( op->obj!=NULL && op->obj->seqId < p->seqCnt );
  259. cmTlRC_t rc = kOkTlRC;
  260. _cmTlObj_t* dp = p->seq[op->obj->seqId].first;
  261. // mark all recd's that are children of 'op' for deletion
  262. while( dp != NULL )
  263. {
  264. // if 'dp' is a child of 'op'.
  265. if( _cmTlIsChild(op,dp) )
  266. if(( rc = _cmTlDeleteDependentRecds(p,dp)) != kOkTlRC )
  267. return rc;
  268. dp = dp->next;
  269. }
  270. // release any resources held by 'op'.
  271. switch(op->obj->typeId)
  272. {
  273. case kMidiFileTlId:
  274. {
  275. cmTlMidiFile_t* mp = _cmTimeLineMidiFileObjPtr(p,op->obj);
  276. cmMidiFileClose(&mp->h);
  277. }
  278. break;
  279. case kMidiEvtTlId:
  280. break;
  281. case kAudioFileTlId:
  282. {
  283. cmTlAudioFile_t* ap = _cmTimeLineAudioFileObjPtr(p,op->obj);
  284. cmAudioFileDelete(&ap->h);
  285. }
  286. break;
  287. case kAudioEvtTlId:
  288. break;
  289. case kMarkerTlId:
  290. break;
  291. default:
  292. return cmErrMsg(&p->err,kUnknownRecdTypeTlRC,"An unknown time line object type (%i) was encounterned during object deletion.",op->obj->typeId);
  293. }
  294. // mark 'op' as deleted by setting op->obj to NULL
  295. op->obj = NULL;
  296. return kOkTlRC;
  297. }
  298. // Delete 'op' and all of its dependents.
  299. cmTlRC_t _cmTlDeleteRecd( _cmTl_t* p, _cmTlObj_t* op )
  300. {
  301. if( op == NULL )
  302. return kOkTlRC;
  303. assert( op->obj!=NULL && op->obj->seqId < p->seqCnt );
  304. cmTlRC_t rc;
  305. _cmTlSeq_t* s = p->seq + op->obj->seqId;
  306. // mark this object and any objecs which are dependent on it for deletion
  307. if((rc =_cmTlDeleteDependentRecds(p,op)) != kOkTlRC )
  308. return rc;
  309. // unlink and delete and records marked for deletion
  310. op = s->first;
  311. while( op )
  312. {
  313. _cmTlObj_t* tp = op->next;
  314. // if this object is marked for deletion unlink it from this master list
  315. if( op->obj == NULL )
  316. {
  317. if( op->next != NULL )
  318. op->next->prev = op->prev;
  319. else
  320. {
  321. assert( s->last == op );
  322. s->last = op->prev;
  323. }
  324. if( op->prev != NULL )
  325. op->prev->next = op->next;
  326. else
  327. {
  328. assert( s->first == op );
  329. s->first = op->next;
  330. }
  331. // free the record
  332. cmLhFreePtr(p->lH,(void**)&op->mem);
  333. }
  334. op = tp;
  335. }
  336. return rc;
  337. }
  338. // Insert 'op' after 'bp'.
  339. // If 'bp' is NULL then 'op' is inserted as p->seq[op->seqId].first.
  340. void _cmTlInsertAfter( _cmTl_t* p, _cmTlObj_t* bp, _cmTlObj_t* op )
  341. {
  342. assert( op->obj!=NULL && op->obj->seqId < p->seqCnt );
  343. _cmTlSeq_t* s = p->seq + op->obj->seqId;
  344. op->prev = bp;
  345. // if op is being inserted at the beginning of the list
  346. if( bp == NULL )
  347. {
  348. op->next = s->first;
  349. if( s->first != NULL )
  350. s->first->prev = op;
  351. s->first = op;
  352. }
  353. else // op is being inserted in the middle or end of the list
  354. {
  355. op->next = bp->next;
  356. if( bp->next != NULL )
  357. bp->next->prev = op;
  358. else
  359. {
  360. // insertion at end
  361. assert( bp == s->last );
  362. s->last = op;
  363. }
  364. bp->next = op;
  365. }
  366. if( s->last == NULL )
  367. s->last = op;
  368. if( s->first == NULL )
  369. s->first = op;
  370. }
  371. // Allocate an object record
  372. cmTlRC_t _cmTlAllocRecd2(
  373. _cmTl_t* p,
  374. const cmChar_t* nameStr, // NULL, empty or unique name
  375. _cmTlObj_t* refPtr, // parent object
  376. int begSmpIdx, // start time
  377. unsigned durSmpCnt, // duration
  378. unsigned typeId, // object type id
  379. unsigned seqId, // owning seq
  380. unsigned recdByteCnt, // byte for type specific data to follow _cmTlObj_t data
  381. _cmTlObj_t** opp ) // return pointer
  382. {
  383. *opp = NULL;
  384. if( nameStr == NULL )
  385. nameStr = "";
  386. // get the length of the recd name field
  387. unsigned nameByteCnt = strlen(nameStr)+1;
  388. // verify that the name was not already used by another recd
  389. if( nameByteCnt>1 && _cmTlFindRecd(p,seqId,nameStr) != NULL )
  390. return cmErrMsg(&p->err,kDuplNameTlRC,"The object identifier '%s' was already used.",nameStr);
  391. assert( refPtr==NULL || refPtr->obj !=NULL );
  392. if( refPtr != NULL && refPtr->obj->seqId != seqId )
  393. return cmErrMsg(&p->err,kInvalidSeqIdTlRC,"The sequence id of the reference object (%i) does not match the sequence id (%i) of the new object (label:%s).",refPtr->obj->seqId,seqId,cmStringNullGuard(nameStr));
  394. if( seqId >= p->seqCnt )
  395. {
  396. // assume the sequence id's arrive in increasing order
  397. assert( seqId == p->seqCnt );
  398. assert( refPtr == NULL );
  399. p->seqCnt = seqId+1;
  400. p->seq = cmMemResizePZ(_cmTlSeq_t,p->seq,p->seqCnt);
  401. }
  402. // calc the total size of the recd. memory layout: [name /0 _cmTlObj_t cmTlObj_t <type specific fields> ]
  403. unsigned byteCnt = sizeof(unsigned) + sizeof(unsigned) + nameByteCnt + sizeof(_cmTlObj_t) + recdByteCnt;
  404. void* mem = cmLHeapAllocZ( p->lH, byteCnt );
  405. unsigned* tidPtr = (unsigned*)mem;
  406. unsigned* parentIdPtr = tidPtr + 1;
  407. cmChar_t* name = (cmChar_t*)(parentIdPtr + 1);
  408. _cmTlObj_t* op = (_cmTlObj_t*)(name + nameByteCnt);
  409. cmTlObj_t* tp = (cmTlObj_t*)(op+1);
  410. // The entire object is contained in mem[]
  411. // Memory Layout:
  412. // kObjTlId parentId name[] \0 _cmTlObj_t cmTlObj_t [recdByteCnt - sizeof(cmTlObj_t)]
  413. strcpy(name,nameStr);
  414. // the first element in the mem[] buffer must be kObjTlId - this allows
  415. // mem[] to be used directly as the serialized version of the buffer.
  416. *tidPtr = kObjTlId;
  417. *parentIdPtr = refPtr==NULL ? cmInvalidId : refPtr->obj->uid;
  418. tp->reserved = op;
  419. tp->seqId = seqId;
  420. tp->name = name;
  421. tp->uid = p->nextUId++;
  422. tp->typeId = typeId;
  423. tp->ref = refPtr==NULL ? NULL : refPtr->obj;
  424. tp->begSmpIdx = refPtr==NULL ? 0 : begSmpIdx;
  425. tp->durSmpCnt = durSmpCnt;
  426. tp->seqSmpIdx = refPtr==NULL ? 0 : refPtr->obj->seqSmpIdx + begSmpIdx;
  427. tp->flags = 0;
  428. tp->text = NULL;
  429. op->obj = tp;
  430. op->mem = mem;
  431. op->memByteCnt = byteCnt;
  432. op->next = NULL;
  433. op->prev = NULL;
  434. //if( seqId == 4 )
  435. // printf("seq:%i id:%i type:%i accum:%i ref:%i offs:%i %f\n",seqId, tp->uid, tp->typeId, tp->seqSmpIdx, refPtr==NULL?-1:refPtr->obj->uid, begSmpIdx, begSmpIdx/(96000.0*60.0) );
  436. _cmTlInsertAfter(p, _cmTlFindRecdBefore(p,op), op );
  437. *opp = op;
  438. return kOkTlRC;
  439. }
  440. cmTlRC_t _cmTlAllocRecd( _cmTl_t* p, const cmChar_t* nameStr, const cmChar_t* refIdStr, int begSmpIdx, unsigned durSmpCnt, unsigned typeId, unsigned seqId, unsigned recdByteCnt, _cmTlObj_t** opp )
  441. {
  442. // locate the obj recd that this recd is part of (the parent recd)
  443. _cmTlObj_t* refPtr = _cmTlFindRecd(p,seqId,refIdStr);
  444. // if this obj has a parent but it was not found
  445. if( refPtr == NULL && refIdStr!=NULL && strlen(refIdStr)>0 )
  446. return cmErrMsg(&p->err,kRefNotFoundTlRC,"Reference identifier '%s' not found for object '%s'.",refIdStr,cmStringNullGuard(nameStr));
  447. return _cmTlAllocRecd2(p,nameStr,refPtr,begSmpIdx,durSmpCnt,typeId,seqId,recdByteCnt,opp);
  448. }
  449. void _cmTlNotifyListener( _cmTl_t* p, cmTlUiMsgTypeId_t msgTypeId, _cmTlObj_t* op, unsigned seqId )
  450. {
  451. if( p->cbFunc == NULL )
  452. return;
  453. switch( msgTypeId )
  454. {
  455. case kInitMsgTlId:
  456. case kFinalMsgTlId:
  457. case kDoneMsgTlId:
  458. {
  459. _cmTlMsg_t m;
  460. m.typeId = kMsgTlId;
  461. m.msgId = msgTypeId;
  462. m.srate = p->srate;
  463. m.seqCnt = p->seqCnt;
  464. m.seqId = seqId;
  465. p->cbFunc( p->cbArg, &m, sizeof(m) );
  466. }
  467. break;
  468. case kInsertMsgTlId:
  469. if( op != NULL )
  470. p->cbFunc( p->cbArg, op->mem, op->memByteCnt );
  471. break;
  472. default:
  473. { assert(0); }
  474. }
  475. }
  476. cmTlRC_t _cmTlAllocAudioFileRecd( _cmTl_t* p, const cmChar_t* nameStr, const cmChar_t* refIdStr, int begSmpIdx, unsigned seqId, const cmChar_t* fn )
  477. {
  478. cmAudioFileH_t afH = cmNullAudioFileH;
  479. cmAudioFileInfo_t info;
  480. cmRC_t afRC = cmOkRC;
  481. cmTlRC_t rc;
  482. _cmTlObj_t* op = NULL;
  483. // prepend the time-line path prefix to the filename
  484. fn = cmFsMakeFn( p->prefixPath, fn, NULL, NULL );
  485. unsigned recdByteCnt = sizeof(cmTlAudioFile_t) + strlen(fn) + 1;
  486. if( cmAudioFileIsValid( afH = cmAudioFileNewOpen(fn, &info, &afRC, p->err.rpt )) == false )
  487. {
  488. rc = cmErrMsg(&p->err,kAudioFileFailTlRC,"The time line audio file '%s' could not be opened.",cmStringNullGuard(fn));
  489. goto errLabel;
  490. }
  491. if((rc = _cmTlAllocRecd(p,nameStr,refIdStr,begSmpIdx,info.frameCnt,kAudioFileTlId,seqId,recdByteCnt,&op)) != kOkTlRC )
  492. goto errLabel;
  493. assert(op != NULL && fn != NULL );
  494. cmTlAudioFile_t* ap = _cmTimeLineAudioFileObjPtr(p,op->obj);
  495. char* cp = (char*)ap;
  496. assert(ap != NULL );
  497. ap->h = afH;
  498. ap->info = info;
  499. ap->fn = cp + sizeof(cmTlAudioFile_t);
  500. strcpy(ap->fn,fn); // copy the file name into the extra memory
  501. assert( ap->fn + strlen(fn) + 1 == cp + recdByteCnt );
  502. op->obj->text = ap->fn;
  503. // notify listeners that an new object was created by sending a kObjTlId msg
  504. // notifiy any listeners that a midi file object was created
  505. //_cmTlNotifyListener(p, kInsertMsgTlId, op );
  506. errLabel:
  507. cmFsFreeFn(fn);
  508. if( rc != kOkTlRC )
  509. cmAudioFileDelete(&afH);
  510. return rc;
  511. }
  512. cmTlRC_t _cmTlProcMidiFile( _cmTl_t* p, _cmTlObj_t* op, cmMidiFileH_t mfH )
  513. {
  514. cmTlRC_t rc = kOkTlRC;
  515. cmTlMidiFile_t* mfp = _cmTimeLineMidiFileObjPtr(p,op->obj);
  516. unsigned mn = cmMidiFileMsgCount(mfH);
  517. const cmMidiTrackMsg_t** mapp = cmMidiFileMsgArray(mfH);
  518. unsigned mi = 0;
  519. _cmTlObj_t* refOp = op;
  520. mfp->noteOnCnt = 0;
  521. // for each midi message
  522. for(; mi<mn; ++mi)
  523. {
  524. _cmTlObj_t* meop = NULL;
  525. const cmMidiTrackMsg_t* mp = mapp[mi];
  526. int begSmpIdx = mp->dtick;
  527. int durSmpCnt = 0;
  528. unsigned midiTrkMsgByteCnt = cmMidiFilePackTrackMsgBufByteCount( mp );
  529. unsigned recdByteCnt = sizeof(cmTlMidiEvt_t) + midiTrkMsgByteCnt;
  530. //if( mfp->obj.seqId==4 && mi<=25 )
  531. // printf("%s: bsi:%9i acc:%f smp acc:%f min %s\n", mp->status == kNoteOnMdId?"non":" ", begSmpIdx, accum, accum / (p->srate * 60),cmStringNullGuard(mfp->obj.name));
  532. // count the note-on messages
  533. if( cmMidiIsNoteOn(mp->status) )
  534. {
  535. durSmpCnt = mp->u.chMsgPtr->durTicks;
  536. ++mfp->noteOnCnt;
  537. }
  538. if( cmMidiIsCtl(mp->status) && cmMidiIsSustainPedal(mp->status,mp->u.chMsgPtr->d0) )
  539. durSmpCnt = mp->u.chMsgPtr->durTicks;
  540. // allocate the generic time-line object record
  541. if((rc = _cmTlAllocRecd2(p, NULL, refOp, begSmpIdx, durSmpCnt, kMidiEvtTlId, mfp->obj.seqId, recdByteCnt, &meop)) != kOkTlRC )
  542. goto errLabel;
  543. assert( meop != NULL );
  544. cmTlMidiEvt_t* mep = _cmTimeLineMidiEvtObjPtr(p,meop->obj);
  545. char* cp = (char*)mep;
  546. assert( mep != NULL );
  547. // Set the cmTlMidiEvt_t.msg cmMidiTrkMsg_t pointer to point to the
  548. // extra memory allocated just past the cmTlMidiEvt_t recd.
  549. mep->msg = (cmMidiTrackMsg_t*)(cp + sizeof(cmTlMidiEvt_t));
  550. mep->midiFileObjId = mfp->obj.uid;
  551. // Do not write MIDI objects that are part of a MIDI file. They will be automatically
  552. // loaded when the time line is loaded and therefore do not need to be save
  553. // explicitely in the time line data.
  554. meop->obj->flags = cmSetFlag(meop->obj->flags,kNoWriteTlFl);
  555. // Pack the cmMidiTrackMsg_t record into the extra memory
  556. cmMidiFilePackTrackMsg( mp, (char*)mep->msg, midiTrkMsgByteCnt );
  557. // verify that the memory allocation was calculated correctly
  558. assert( cp + recdByteCnt == ((char*)mep->msg) + midiTrkMsgByteCnt);
  559. // this midi event is the ref. for the next midi evt
  560. refOp = meop;
  561. }
  562. errLabel:
  563. return rc;
  564. }
  565. cmTlRC_t _cmTlAllocMidiFileRecd( _cmTl_t* p, const cmChar_t* nameStr, const cmChar_t* refIdStr, int begSmpIdx, unsigned seqId, const cmChar_t* fn )
  566. {
  567. cmMidiFileH_t mfH = cmMidiFileNullHandle;
  568. cmTlRC_t rc = kOkTlRC;
  569. _cmTlObj_t* op = NULL;
  570. // prepend the time-line path prefix to the filename
  571. fn = cmFsMakeFn( p->prefixPath, fn, NULL, NULL );
  572. // open the midi file
  573. if( cmMidiFileOpen(fn, &mfH, &p->ctx ) != kOkMfRC )
  574. return cmErrMsg(&p->err,kMidiFileFailTlRC,"The time line midi file '%s' could not be opened.",cmStringNullGuard(fn));
  575. // force the first msg to occurr one quarter note into the file
  576. cmMidiFileSetDelay(mfH, cmMidiFileTicksPerQN(mfH) );
  577. unsigned durSmpCnt = floor(cmMidiFileDurSecs(mfH)*p->srate);
  578. // convert the midi file from delta ticks to delta samples
  579. cmMidiFileTickToSamples(mfH,p->srate,false);
  580. // assign note durations to all note-on msg's
  581. cmMidiFileCalcNoteDurations(mfH);
  582. unsigned recdByteCnt = sizeof(cmTlMidiFile_t) + strlen(fn) + 1;
  583. // allocate the midi file time line object
  584. if((rc = _cmTlAllocRecd(p,nameStr,refIdStr,begSmpIdx,durSmpCnt,kMidiFileTlId,seqId,recdByteCnt,&op)) != kOkTlRC )
  585. goto errLabel;
  586. assert( op != NULL && fn != NULL );
  587. cmTlMidiFile_t* mp = _cmTimeLineMidiFileObjPtr(p,op->obj);
  588. char* cp = (char*)mp;
  589. assert(mp != NULL );
  590. mp->h = mfH;
  591. mp->fn = cp + sizeof(cmTlMidiFile_t);
  592. strcpy(mp->fn,fn); // copy the filename into the extra memory
  593. assert( mp->fn + strlen(mp->fn) + 1 == cp + recdByteCnt );
  594. op->obj->text = mp->fn;
  595. // insert the events in the midi file as individual time line objects
  596. if((rc = _cmTlProcMidiFile(p, op, mfH)) != kOkTlRC )
  597. goto errLabel;
  598. errLabel:
  599. cmFsFreeFn(fn);
  600. if( rc != kOkTlRC )
  601. {
  602. cmMidiFileClose(&mfH);
  603. _cmTlDeleteRecd(p, op);
  604. }
  605. return rc;
  606. }
  607. cmTlRC_t _cmTlAllocMarkerRecd( _cmTl_t* p, const cmChar_t* nameStr, const cmChar_t* refIdStr, int begSmpIdx, unsigned durSmpCnt, unsigned seqId, const cmChar_t* text, unsigned bar, const cmChar_t* sectionStr, unsigned markerTypeId, cmTlObj_t* refObjPtr )
  608. {
  609. cmTlRC_t rc = kOkTlRC;
  610. _cmTlObj_t* op = NULL;
  611. const cmChar_t* textStr = text==NULL ? "" : text;
  612. const cmChar_t* sectStr = sectionStr==NULL ? "" : sectionStr;
  613. // add memory at the end of the the cmTlMarker_t record to hold the text string.
  614. unsigned recdByteCnt = sizeof(cmTlMarker_t) + strlen(textStr) + sizeof(bar) + strlen(sectStr) + 2;
  615. if(refIdStr == NULL )
  616. rc = _cmTlAllocRecd2(p,nameStr,(_cmTlObj_t*)refObjPtr->reserved,begSmpIdx,durSmpCnt,kMarkerTlId,seqId,recdByteCnt,&op);
  617. else
  618. rc = _cmTlAllocRecd(p,nameStr,refIdStr,begSmpIdx,durSmpCnt,kMarkerTlId,seqId,recdByteCnt,&op);
  619. if(rc != kOkTlRC )
  620. goto errLabel;
  621. assert(op != NULL);
  622. // get a ptr to the marker part of the object
  623. cmTlMarker_t* mp = _cmTimeLineMarkerObjPtr(p,op->obj);
  624. assert(mp != NULL );
  625. // copy the marker text string into the memory just past the cmTlMarker_t recd.
  626. cmChar_t* tp = (cmChar_t*)(mp + 1);
  627. strcpy(tp,textStr);
  628. // copy the section label string into memory just past the markers text string
  629. cmChar_t* sp = tp + strlen(tp) + 1;
  630. strcpy(sp,sectStr);
  631. // onset markers are generated but not written
  632. if( markerTypeId != kAudioMarkTlId )
  633. mp->obj.flags = cmSetFlag(mp->obj.flags,kNoWriteTlFl);
  634. mp->typeId = markerTypeId;
  635. mp->text = tp;
  636. mp->sectionStr = sp;
  637. mp->bar = bar;
  638. op->obj->text = tp;
  639. errLabel:
  640. if( op != NULL && rc != kOkTlRC )
  641. _cmTlDeleteRecd(p,op);
  642. return rc;
  643. }
  644. cmTlRC_t _cmTlAllocAudioEvtRecd( _cmTl_t* p, const cmChar_t* nameStr, const cmChar_t* refIdStr, int begSmpIdx, unsigned durSmpCnt, unsigned seqId, const cmChar_t* text )
  645. {
  646. cmTlRC_t rc = kOkTlRC;
  647. _cmTlObj_t* op = NULL;
  648. const cmChar_t* textStr = text==NULL ? "" : text;
  649. unsigned recdByteCnt = sizeof(cmTlAudioEvt_t) + strlen(textStr) + 1;
  650. if((rc = _cmTlAllocRecd(p,nameStr,refIdStr,begSmpIdx,durSmpCnt,kAudioEvtTlId,seqId,recdByteCnt,&op)) != kOkTlRC )
  651. goto errLabel;
  652. assert(op != NULL);
  653. cmTlAudioEvt_t* mp = _cmTimeLineAudioEvtObjPtr(p,op->obj);
  654. assert(mp != NULL );
  655. // copy the marker text string into the memory just past the cmTlAudioEvt_t recd.
  656. cmChar_t* tp = (cmChar_t*)(mp + 1);
  657. strcpy(tp,textStr);
  658. mp->text = tp;
  659. op->obj->text = tp;
  660. errLabel:
  661. if( op != NULL && rc != kOkTlRC )
  662. _cmTlDeleteRecd(p,op);
  663. return rc;
  664. }
  665. cmTlRC_t _cmTlAllocRecdFromJson(_cmTl_t* p,const cmChar_t* nameStr, const cmChar_t* typeIdStr,const cmChar_t* refIdStr, int begSmpIdx, unsigned durSmpCnt, unsigned seqId, const cmChar_t* textStr, unsigned bar, const cmChar_t* sectionStr)
  666. {
  667. cmTlRC_t rc = kOkTlRC;
  668. unsigned typeId = _cmTlIdLabelToId(p,typeIdStr);
  669. switch( typeId )
  670. {
  671. case kAudioFileTlId: rc = _cmTlAllocAudioFileRecd(p,nameStr,refIdStr,begSmpIdx, seqId,textStr); break;
  672. case kMidiFileTlId: rc = _cmTlAllocMidiFileRecd( p,nameStr,refIdStr,begSmpIdx, seqId,textStr); break;
  673. case kMarkerTlId: rc = _cmTlAllocMarkerRecd( p,nameStr,refIdStr,begSmpIdx,durSmpCnt,seqId,textStr,bar,sectionStr,kAudioMarkTlId,NULL); break;
  674. case kAudioEvtTlId: rc = _cmTlAllocAudioEvtRecd( p,nameStr,refIdStr,begSmpIdx,durSmpCnt,seqId,textStr); break;
  675. default:
  676. rc = cmErrMsg(&p->err,kParseFailTlRC,"'%s' is not a valid 'objArray' record type.",cmStringNullGuard(typeIdStr));
  677. }
  678. return rc;
  679. }
  680. cmTlRC_t _cmTimeLineFinalize( _cmTl_t* p )
  681. {
  682. cmTlRC_t rc = kOkTlRC;
  683. unsigned i;
  684. for(i=0; i<p->seqCnt; ++i)
  685. while( p->seq[i].first != NULL )
  686. {
  687. if((rc = _cmTlDeleteRecd(p,p->seq[i].first)) != kOkTlRC )
  688. goto errLabel;
  689. }
  690. cmMemFree(p->seq);
  691. cmLHeapDestroy(&p->lH);
  692. cmMemPtrFree(&p->tmpBuf);
  693. cmMemPtrFree(&p->prefixPath);
  694. cmMemPtrFree(&p);
  695. return kOkTlRC;
  696. errLabel:
  697. return cmErrMsg(&p->err,kFinalizeFailTlRC,"Finalize failed.");
  698. }
  699. cmTlRC_t cmTimeLineInitialize( cmCtx_t* ctx, cmTlH_t* hp, cmTlCb_t cbFunc, void* cbArg, const cmChar_t* prefixPath )
  700. {
  701. cmTlRC_t rc;
  702. if((rc = cmTimeLineFinalize(hp)) != kOkTlRC )
  703. return rc;
  704. _cmTl_t* p = cmMemAllocZ( _cmTl_t, 1 );
  705. cmErrSetup(&p->err,&ctx->rpt,"Time Line");
  706. p->ctx = *ctx;
  707. p->cbFunc = cbFunc;
  708. p->cbArg = cbArg;
  709. p->prefixPath = cmMemAllocStr(prefixPath);
  710. if(cmLHeapIsValid( p->lH = cmLHeapCreate( 8192, ctx )) == false )
  711. {
  712. rc = cmErrMsg(&p->err,kLHeapFailTlRC,"The linked heap allocation failed.");
  713. goto errLabel;
  714. }
  715. hp->h = p;
  716. return rc;
  717. errLabel:
  718. _cmTimeLineFinalize(p);
  719. return rc;
  720. }
  721. cmTlRC_t cmTimeLineInitializeFromFile( cmCtx_t* ctx, cmTlH_t* hp, cmTlCb_t cbFunc, void* cbArg, const cmChar_t* fn, const cmChar_t* prefixPath )
  722. {
  723. cmTlRC_t rc;
  724. if((rc = cmTimeLineInitialize(ctx,hp,cbFunc,cbArg,prefixPath)) != kOkTlRC )
  725. return rc;
  726. return cmTimeLineReadJson(hp,fn);
  727. }
  728. const cmChar_t* cmTimeLineFileName( cmTlH_t h )
  729. {
  730. _cmTl_t* p = _cmTlHandleToPtr(h);
  731. return p->filename;
  732. }
  733. cmTlRC_t cmTimeLineFinalize( cmTlH_t* hp )
  734. {
  735. cmTlRC_t rc;
  736. if( hp == NULL || cmTimeLineIsValid(*hp) == false )
  737. return kOkTlRC;
  738. _cmTl_t* p = _cmTlHandleToPtr(*hp);
  739. if((rc = _cmTimeLineFinalize(p)) != kOkTlRC )
  740. return rc;
  741. hp->h = NULL;
  742. return rc;
  743. }
  744. bool cmTimeLineIsValid( cmTlH_t h )
  745. { return h.h != NULL; }
  746. double cmTimeLineSampleRate( cmTlH_t h )
  747. {
  748. _cmTl_t* p = _cmTlHandleToPtr(h);
  749. return p->srate;
  750. }
  751. int cmTimeLineSeqToLocalSampleIndex( int seqSmpIdx, cmTlObj_t* localObjPtr )
  752. {
  753. return seqSmpIdx - localObjPtr->seqSmpIdx;
  754. }
  755. cmTlObj_t* _cmTimeLineIdToObj( _cmTl_t* p, unsigned seqId, unsigned id )
  756. {
  757. assert( seqId < p->seqCnt );
  758. _cmTlObj_t* op = p->seq[seqId].first;
  759. for(; op != NULL; op=op->next )
  760. if( op->obj->uid == id )
  761. return op->obj;
  762. return NULL;
  763. }
  764. cmTlObj_t* cmTimeLineIdToObj( cmTlH_t h, unsigned seqId, unsigned id )
  765. {
  766. _cmTl_t* p = _cmTlHandleToPtr(h);
  767. cmTlObj_t* op = NULL;
  768. if( seqId != cmInvalidId )
  769. op = _cmTimeLineIdToObj(p,seqId,id);
  770. else
  771. {
  772. for(seqId=0; seqId<p->seqCnt; ++seqId)
  773. if((op = _cmTimeLineIdToObj(p,seqId,id) ) != NULL )
  774. break;
  775. }
  776. return op;
  777. }
  778. cmTlObj_t* cmTimeLineNextObj( cmTlH_t h, cmTlObj_t* tp, unsigned seqId )
  779. {
  780. _cmTl_t* p = _cmTlHandleToPtr(h);
  781. _cmTlObj_t* op;
  782. assert( seqId < p->seqCnt );
  783. if( seqId >= p->seqCnt )
  784. return NULL;
  785. // if tp is NULL then start at the begin of the obj list ...
  786. if( tp == NULL )
  787. op = p->seq[seqId].first;
  788. else
  789. {
  790. // ... otherwise advance to the obj after tp
  791. op = (_cmTlObj_t*)tp->reserved;
  792. assert( op != NULL );
  793. op = op->next;
  794. }
  795. // if the list is empty
  796. if( op == NULL )
  797. return NULL;
  798. // return the next object which matches seqId or
  799. // the next object if seqId == cmInvalidId
  800. for(; op != NULL; op = op->next)
  801. if( (seqId == cmInvalidId) || (op->obj->seqId == seqId) )
  802. return op->obj;
  803. return NULL;
  804. }
  805. cmTlObj_t* cmTimeLineNextTypeObj( cmTlH_t h, cmTlObj_t* p, unsigned seqId, unsigned typeId )
  806. {
  807. cmTlObj_t* tp = p;
  808. while( (tp = cmTimeLineNextObj(h,tp,seqId)) != NULL )
  809. if( typeId == cmInvalidId || tp->typeId == typeId )
  810. return tp;
  811. return NULL;
  812. }
  813. cmTlMidiFile_t* cmTlNextMidiFileObjPtr( cmTlH_t h, cmTlObj_t* op, unsigned seqId )
  814. {
  815. if((op = cmTimeLineNextTypeObj(h, op, seqId, kMidiFileTlId )) == NULL )
  816. return NULL;
  817. return cmTimeLineMidiFileObjPtr(h,op);
  818. }
  819. cmTlAudioFile_t* cmTlNextAudioFileObjPtr( cmTlH_t h, cmTlObj_t* op, unsigned seqId )
  820. {
  821. if((op = cmTimeLineNextTypeObj(h, op, seqId, kAudioFileTlId )) == NULL )
  822. return NULL;
  823. return cmTimeLineAudioFileObjPtr(h,op);
  824. }
  825. cmTlMidiEvt_t* cmTlNextMidiEvtObjPtr( cmTlH_t h, cmTlObj_t* op, unsigned seqId )
  826. {
  827. if((op = cmTimeLineNextTypeObj(h, op, seqId, kMidiEvtTlId )) == NULL )
  828. return NULL;
  829. return cmTimeLineMidiEvtObjPtr(h,op);
  830. }
  831. cmTlAudioEvt_t* cmTlNextAudioEvtObjPtr( cmTlH_t h, cmTlObj_t* op, unsigned seqId )
  832. {
  833. if((op = cmTimeLineNextTypeObj(h, op, seqId, kAudioEvtTlId )) == NULL )
  834. return NULL;
  835. return cmTimeLineAudioEvtObjPtr(h,op);
  836. }
  837. cmTlMarker_t* cmTlNextMarkerObjPtr( cmTlH_t h, cmTlObj_t* op, unsigned seqId )
  838. {
  839. if((op = cmTimeLineNextTypeObj(h, op, seqId, kMarkerTlId )) == NULL )
  840. return NULL;
  841. return cmTimeLineMarkerObjPtr(h,op);
  842. }
  843. cmTlObj_t* cmTlIdToObjPtr( cmTlH_t h, unsigned uid )
  844. {
  845. _cmTl_t* p = _cmTlHandleToPtr(h);
  846. unsigned i;
  847. for(i=0; i<p->seqCnt; ++i)
  848. //if( p->seq[i].first->obj->uid <= uid && uid <= p->seq[i].last->obj->uid )
  849. {
  850. _cmTlObj_t* op = p->seq[i].first;
  851. for(; op != NULL; op=op->next )
  852. if( op->obj->uid == uid )
  853. return op->obj;
  854. }
  855. return NULL;
  856. }
  857. cmTlMidiFile_t* cmTimeLineMidiFileObjPtr( cmTlH_t h, cmTlObj_t* op )
  858. {
  859. _cmTl_t* p = _cmTlHandleToPtr(h);
  860. return _cmTimeLineMidiFileObjPtr(p,op);
  861. }
  862. cmTlAudioFile_t* cmTimeLineAudioFileObjPtr( cmTlH_t h, cmTlObj_t* op )
  863. {
  864. _cmTl_t* p = _cmTlHandleToPtr(h);
  865. return _cmTimeLineAudioFileObjPtr(p,op);
  866. }
  867. cmTlMidiEvt_t* cmTimeLineMidiEvtObjPtr( cmTlH_t h, cmTlObj_t* op )
  868. {
  869. _cmTl_t* p = _cmTlHandleToPtr(h);
  870. return _cmTimeLineMidiEvtObjPtr(p,op);
  871. }
  872. cmTlAudioEvt_t* cmTimeLineAudioEvtObjPtr( cmTlH_t h, cmTlObj_t* op )
  873. {
  874. _cmTl_t* p = _cmTlHandleToPtr(h);
  875. return _cmTimeLineAudioEvtObjPtr(p,op);
  876. }
  877. cmTlMarker_t* cmTimeLineMarkerObjPtr( cmTlH_t h, cmTlObj_t* op )
  878. {
  879. _cmTl_t* p = _cmTlHandleToPtr(h);
  880. return _cmTimeLineMarkerObjPtr(p,op);
  881. }
  882. cmTlMidiFile_t* cmTlMidiFileObjPtr( cmTlH_t h, cmTlObj_t* op )
  883. {
  884. _cmTl_t* p = _cmTlHandleToPtr(h);
  885. return _cmTlMidiFileObjPtr(p,op,false);
  886. }
  887. cmTlAudioFile_t* cmTlAudioFileObjPtr( cmTlH_t h, cmTlObj_t* op )
  888. {
  889. _cmTl_t* p = _cmTlHandleToPtr(h);
  890. return _cmTlAudioFileObjPtr(p,op,false);
  891. }
  892. cmTlMidiEvt_t* cmTlMidiEvtObjPtr( cmTlH_t h, cmTlObj_t* op )
  893. {
  894. _cmTl_t* p = _cmTlHandleToPtr(h);
  895. return _cmTlMidiEvtObjPtr(p,op,false);
  896. }
  897. cmTlAudioEvt_t* cmTlAudioEvtObjPtr( cmTlH_t h, cmTlObj_t* op )
  898. {
  899. _cmTl_t* p = _cmTlHandleToPtr(h);
  900. return _cmTlAudioEvtObjPtr(p,op,false);
  901. }
  902. cmTlMarker_t* cmTlMarkerObjPtr( cmTlH_t h, cmTlObj_t* op )
  903. {
  904. _cmTl_t* p = _cmTlHandleToPtr(h);
  905. return _cmTlMarkerObjPtr(p,op,false);
  906. }
  907. cmTlRC_t cmTimeLineInsert( cmTlH_t h, const cmChar_t* nameStr, unsigned typeId,
  908. const cmChar_t* fn, int begSmpIdx, unsigned durSmpCnt, const cmChar_t* refObjNameStr, unsigned seqId )
  909. {
  910. _cmTl_t* p = _cmTlHandleToPtr(h);
  911. return _cmTlAllocRecdFromJson(p, nameStr, _cmTlIdToLabel(p,typeId), refObjNameStr, begSmpIdx, durSmpCnt, seqId, fn, 0, NULL);
  912. }
  913. cmTlObj_t* _cmTimeLineFindFile( _cmTl_t* p, const cmChar_t* fn, unsigned typeId )
  914. {
  915. unsigned i;
  916. for(i=0; i<p->seqCnt; ++i)
  917. {
  918. _cmTlObj_t* op = p->seq[i].first;
  919. for(; op != NULL; op=op->next )
  920. if( op->obj->typeId == typeId )
  921. {
  922. const cmChar_t* objFn = NULL;
  923. switch( typeId )
  924. {
  925. case kAudioFileTlId:
  926. objFn = ((cmTlAudioFile_t*)(op->obj))->fn;
  927. break;
  928. case kMidiFileTlId:
  929. objFn = ((cmTlMidiFile_t*)(op->obj))->fn;
  930. break;
  931. default:
  932. { assert(0); }
  933. }
  934. if( strcmp(objFn,fn) == 0 )
  935. return op->obj;
  936. }
  937. }
  938. return NULL;
  939. }
  940. cmTlAudioFile_t* cmTimeLineFindAudioFile( cmTlH_t h, const cmChar_t* fn )
  941. {
  942. _cmTl_t* p = _cmTlHandleToPtr(h);
  943. cmTlObj_t* op;
  944. if((op = _cmTimeLineFindFile(p,fn,kAudioFileTlId)) != NULL )
  945. return _cmTlAudioFileObjPtr(p,op,true);
  946. return NULL;
  947. }
  948. cmTlMidiFile_t* cmTimeLineFindMidiFile( cmTlH_t h, const cmChar_t* fn )
  949. {
  950. _cmTl_t* p = _cmTlHandleToPtr(h);
  951. cmTlObj_t* op;
  952. if((op = _cmTimeLineFindFile(p,fn,kMidiFileTlId)) != NULL )
  953. return _cmTlMidiFileObjPtr(p,op,true);
  954. return NULL;
  955. }
  956. _cmTlObj_t* _cmTimeLineObjAtTime( _cmTl_t* p, unsigned seqId, unsigned seqSmpIdx, unsigned typeId )
  957. {
  958. assert( seqId < p->seqCnt );
  959. _cmTlObj_t* op = p->seq[seqId].first;
  960. _cmTlObj_t* min_op = NULL;
  961. unsigned minDist = UINT_MAX;
  962. for(; op!=NULL; op=op->next)
  963. if( typeId==cmInvalidId || op->obj->typeId == typeId )
  964. {
  965. // if seqSmpIdx is inside this object - then return it as the solution
  966. if((op->obj->seqSmpIdx <= seqSmpIdx && seqSmpIdx < (op->obj->seqSmpIdx + op->obj->durSmpCnt)))
  967. return op;
  968. // measure the distance from seqSmpIdx to the begin and end of this object
  969. unsigned d0 = op->obj->seqSmpIdx < seqSmpIdx ? seqSmpIdx - op->obj->seqSmpIdx : op->obj->seqSmpIdx - seqSmpIdx;
  970. unsigned d1 = op->obj->seqSmpIdx+op->obj->durSmpCnt < seqSmpIdx ? seqSmpIdx - op->obj->seqSmpIdx+op->obj->durSmpCnt : op->obj->seqSmpIdx+op->obj->durSmpCnt - seqSmpIdx;
  971. // d0 and d1 should decrease as the cur object approaches seqSmpIdx
  972. // If they do not then the search is over - return the closest point.
  973. if( d0>minDist && d1>minDist)
  974. break;
  975. // track the min dist and the assoc'd obj
  976. if( d0 < minDist )
  977. {
  978. minDist = d0;
  979. min_op = op;
  980. }
  981. if( d1 < minDist )
  982. {
  983. minDist = d1;
  984. min_op = op;
  985. }
  986. }
  987. return min_op;
  988. }
  989. cmTlAudioFile_t* cmTimeLineAudioFileAtTime( cmTlH_t h, unsigned seqId, unsigned seqSmpIdx )
  990. {
  991. _cmTl_t* p = _cmTlHandleToPtr(h);
  992. _cmTlObj_t* op;
  993. if((op = _cmTimeLineObjAtTime(p,seqId,seqSmpIdx,kAudioFileTlId)) == NULL )
  994. return NULL;
  995. return _cmTlAudioFileObjPtr(p,op->obj,false);
  996. }
  997. cmTlMidiFile_t* cmTimeLineMidiFileAtTime( cmTlH_t h, unsigned seqId, unsigned seqSmpIdx )
  998. {
  999. _cmTl_t* p = _cmTlHandleToPtr(h);
  1000. _cmTlObj_t* op;
  1001. if((op = _cmTimeLineObjAtTime(p,seqId,seqSmpIdx,kMidiFileTlId)) == NULL )
  1002. return NULL;
  1003. return _cmTlMidiFileObjPtr(p,op->obj,false);
  1004. }
  1005. cmTlMidiEvt_t* cmTimeLineMidiEvtAtTime( cmTlH_t h, unsigned seqId, unsigned seqSmpIdx )
  1006. {
  1007. _cmTl_t* p = _cmTlHandleToPtr(h);
  1008. _cmTlObj_t* op;
  1009. if((op = _cmTimeLineObjAtTime(p,seqId,seqSmpIdx,kMidiEvtTlId)) == NULL )
  1010. return NULL;
  1011. return _cmTlMidiEvtObjPtr(p,op->obj,false);
  1012. }
  1013. cmTlMarker_t* cmTimeLineMarkerAtTime( cmTlH_t h, unsigned seqId, unsigned seqSmpIdx )
  1014. {
  1015. _cmTl_t* p = _cmTlHandleToPtr(h);
  1016. _cmTlObj_t* op;
  1017. if((op = _cmTimeLineObjAtTime(p,seqId,seqSmpIdx,kMarkerTlId)) == NULL )
  1018. return NULL;
  1019. return _cmTlMarkerObjPtr(p,op->obj,false);
  1020. }
  1021. cmTlMarker_t* cmTimeLineMarkerFind( cmTlH_t h, const cmChar_t* markText )
  1022. {
  1023. unsigned i;
  1024. unsigned n = cmTimeLineSeqCount(h);
  1025. cmTlMarker_t* mop = NULL;
  1026. for(i=0; i<n && mop==NULL; ++i)
  1027. {
  1028. cmTlObj_t* op = NULL;
  1029. mop = NULL;
  1030. while((mop = cmTlNextMarkerObjPtr(h,op,i)) != NULL )
  1031. {
  1032. if( mop->obj.name!=NULL && strcmp(mop->obj.name,markText)==0 )
  1033. break;
  1034. op = &mop->obj;
  1035. }
  1036. }
  1037. return mop;
  1038. }
  1039. cmTlRC_t _cmTlParseErr( cmErr_t* err, const cmChar_t* errLabelPtr, unsigned idx, const cmChar_t* fn )
  1040. {
  1041. cmTlRC_t rc;
  1042. if( errLabelPtr != NULL )
  1043. rc = cmErrMsg(err,kParseFailTlRC,"The required time line configuration field %s was not found in the record at index %i in '%s'.",cmStringNullGuard(errLabelPtr),idx,cmStringNullGuard(fn));
  1044. else
  1045. rc = cmErrMsg(err,kParseFailTlRC,"The time_line configuration parse failed on the record at index %i in '%s'.",idx,cmStringNullGuard(fn));
  1046. return rc;
  1047. }
  1048. cmTlRC_t cmTimeLineReadJson( cmTlH_t* hp, const cmChar_t* ifn )
  1049. {
  1050. cmTlRC_t rc = kOkTlRC;
  1051. cmJsRC_t jsRC = kOkJsRC;
  1052. cmJsonH_t jsH = cmJsonNullHandle;
  1053. cmJsonNode_t* jnp = NULL;
  1054. cmJsonNode_t* cnp = NULL;
  1055. const cmChar_t* errLabelPtr = NULL;
  1056. int i;
  1057. _cmTl_t* p = _cmTlHandleToPtr(*hp);
  1058. // open the json file
  1059. if( cmJsonInitializeFromFile(&jsH, ifn, &p->ctx ) != kOkJsRC )
  1060. return cmErrMsg(&p->err,kJsonFailTlRC,"JSON file initialization failed.");
  1061. if((jnp = cmJsonFindValue(jsH,"time_line",cmJsonRoot(jsH),kObjectTId)) == NULL)
  1062. {
  1063. rc = cmErrMsg(&p->err,kParseFailTlRC,"The JSON 'time_line' object was not found in '%s'.",cmStringNullGuard(ifn));
  1064. goto errLabel;
  1065. }
  1066. if( cmJsonMemberValues(jnp,&errLabelPtr,
  1067. "srate",kRealTId,&p->srate,
  1068. "onset",kObjectTId,&cnp,
  1069. "objArray",kArrayTId,&jnp,
  1070. NULL) != kOkJsRC )
  1071. {
  1072. if(jsRC == kNodeNotFoundJsRC )
  1073. rc = cmErrMsg(&p->err,kParseFailTlRC,"The JSON 'time_line' header required field:'%s' was not found in '%s'.",errLabelPtr,cmStringNullGuard(ifn));
  1074. else
  1075. rc = cmErrMsg(&p->err,kParseFailTlRC,"The JSON 'time_line' object header parse failed in '%s'.",cmStringNullGuard(ifn));
  1076. goto errLabel;
  1077. }
  1078. if((jsRC = cmJsonMemberValues(cnp,&errLabelPtr,
  1079. "wndMs", kRealTId, &p->onsetCfg.wndMs,
  1080. "hopFact", kIntTId, &p->onsetCfg.hopFact,
  1081. "audioChIdx", kIntTId, &p->onsetCfg.audioChIdx,
  1082. "wndFrmCnt", kIntTId, &p->onsetCfg.wndFrmCnt,
  1083. "preWndMult", kRealTId, &p->onsetCfg.preWndMult,
  1084. "threshold", kRealTId, &p->onsetCfg.threshold,
  1085. "maxFrqHz", kRealTId, &p->onsetCfg.maxFrqHz,
  1086. "filtCoeff", kRealTId, &p->onsetCfg.filtCoeff,
  1087. "medFiltWndMs", kRealTId, &p->onsetCfg.medFiltWndMs,
  1088. "filterId", kIntTId, &p->onsetCfg.filterId,
  1089. "preDelayMs", kRealTId, &p->onsetCfg.preDelayMs,
  1090. NULL)) != kOkJsRC )
  1091. {
  1092. if(jsRC == kNodeNotFoundJsRC )
  1093. rc = cmErrMsg(&p->err,kParseFailTlRC,"The JSON 'time_line' onset analysizer cfg. required field:'%s' was not found in '%s'.",errLabelPtr,cmStringNullGuard(ifn));
  1094. else
  1095. rc = cmErrMsg(&p->err,kParseFailTlRC,"The JSON 'time_line' onset analyzer cfg. in '%s'.",cmStringNullGuard(ifn));
  1096. goto errLabel;
  1097. }
  1098. for(i=0; i<cmJsonChildCount(jnp); ++i)
  1099. {
  1100. const cmJsonNode_t* rp = cmJsonArrayElementC(jnp,i);
  1101. const cmChar_t* nameStr;
  1102. const cmChar_t* typeIdStr;
  1103. const cmChar_t* refIdStr;
  1104. int begSmpIdx;
  1105. unsigned durSmpCnt;
  1106. unsigned seqId;
  1107. const cmChar_t* textStr;
  1108. unsigned bar = 0;
  1109. const cmChar_t* sectStr = NULL;
  1110. if( cmJsonMemberValues(rp,&errLabelPtr,
  1111. "label",kStringTId,&nameStr,
  1112. "type", kStringTId,&typeIdStr,
  1113. "ref", kStringTId,&refIdStr,
  1114. "offset",kIntTId,&begSmpIdx,
  1115. "smpCnt",kIntTId,&durSmpCnt,
  1116. "trackId",kIntTId,&seqId,
  1117. "textStr",kStringTId,&textStr,
  1118. "bar", kIntTId | kOptArgJsFl,&bar,
  1119. "sectStr",kStringTId | kOptArgJsFl,&sectStr,
  1120. NULL) != kOkJsRC )
  1121. {
  1122. rc = _cmTlParseErr(&p->err, errLabelPtr, i, ifn );
  1123. goto errLabel;
  1124. }
  1125. if((rc = _cmTlAllocRecdFromJson(p,nameStr,typeIdStr,refIdStr,begSmpIdx,durSmpCnt,seqId,textStr,bar,sectStr)) != kOkTlRC )
  1126. goto errLabel;
  1127. }
  1128. p->filename = cmLhAllocStr(p->lH,ifn);
  1129. errLabel:
  1130. if( rc != kOkTlRC )
  1131. cmTimeLineFinalize(hp);
  1132. cmJsonFinalize(&jsH);
  1133. return rc;
  1134. }
  1135. unsigned cmTimeLineSeqCount( cmTlH_t h )
  1136. {
  1137. _cmTl_t* p = _cmTlHandleToPtr(h);
  1138. return p->seqCnt;
  1139. }
  1140. cmTlRC_t cmTimeLineSeqNotify( cmTlH_t h, unsigned seqId )
  1141. {
  1142. cmTlRC_t rc = kOkTlRC;
  1143. _cmTl_t* p = _cmTlHandleToPtr(h);
  1144. assert( seqId < p->seqCnt );
  1145. _cmTlNotifyListener(p,kInitMsgTlId,NULL,seqId);
  1146. _cmTlObj_t* op = p->seq[seqId].first;
  1147. for(; op!=NULL; op=op->next)
  1148. if( op->obj->seqId == seqId )
  1149. _cmTlNotifyListener(p, kInsertMsgTlId, op, cmInvalidId );
  1150. _cmTlNotifyListener(p,kDoneMsgTlId,NULL,seqId);
  1151. return rc;
  1152. }
  1153. cmTlRC_t cmTimeLineGenOnsetMarks( cmTlH_t h, unsigned seqId )
  1154. {
  1155. cmTlRC_t rc = kOkTlRC;
  1156. _cmTl_t* p = _cmTlHandleToPtr(h);
  1157. cmTlObj_t* op = NULL;
  1158. cmOnH_t onsH = cmOnsetNullHandle;
  1159. cmChar_t* textStr = "";
  1160. cmChar_t* sectionStr = "";
  1161. unsigned bar = cmInvalidIdx;
  1162. unsigned i,j;
  1163. unsigned smpIdx;
  1164. // initialize the audio onset analyzer
  1165. if( cmOnsetInitialize(&p->ctx, &onsH ) != kOkOnRC )
  1166. {
  1167. rc = cmErrMsg(&p->err,kOnsetFailTlRC,"Audio onset analyzer initialization failed.");
  1168. goto errLabel;
  1169. }
  1170. // for each audio file
  1171. for(i=0; (op = cmTimeLineNextTypeObj(h, op, seqId, kAudioFileTlId )) != NULL; ++i)
  1172. {
  1173. cmTlAudioFile_t* aop = NULL;
  1174. // get a pointer to this audio file object
  1175. if((aop = cmTlAudioFileObjPtr(h, op )) == NULL )
  1176. {
  1177. rc = cmErrMsg(&p->err,kTypeCvtFailTlRC,"Unexpected audio file object type conversion failure.");
  1178. goto errLabel;
  1179. }
  1180. // analyze the onsets in this audio file
  1181. if( cmOnsetProc(onsH,&p->onsetCfg,aop->fn) != kOkOnRC)
  1182. {
  1183. rc = cmErrMsg(&p->err,kOnsetFailTlRC,"Audio onset analyzer failed during processing.");
  1184. goto errLabel;
  1185. }
  1186. // for each detected onset
  1187. for(j=0; (smpIdx = cmOnsetSampleIndex(onsH,j))!=cmInvalidIdx; ++j)
  1188. {
  1189. cmChar_t* labelStr = NULL;
  1190. labelStr = cmTsPrintfP(labelStr,"a-%i-%i",i,j);
  1191. // generate a marker record
  1192. rc = _cmTlAllocMarkerRecd(p, labelStr, aop->obj.name, smpIdx, cmOnsetHopSampleCount(onsH), seqId, textStr, bar, sectionStr, kAudioOnsetMarkTlId,NULL );
  1193. cmMemFree(labelStr);
  1194. if( rc != kOkTlRC )
  1195. goto errLabel;
  1196. }
  1197. }
  1198. unsigned intervalSmpCnt = 0;
  1199. cmTlMidiEvt_t* max_eop = NULL;
  1200. cmTlObj_t* fop = NULL;
  1201. unsigned midiFileObjId = cmInvalidId;
  1202. op = NULL;
  1203. for(i=0; (op = cmTimeLineNextTypeObj(h, op, seqId, kMidiEvtTlId )) != NULL; ++i)
  1204. {
  1205. cmTlMidiEvt_t* eop = NULL;
  1206. // get a pointer to this event object
  1207. if((eop = cmTlMidiEvtObjPtr(h, op )) == NULL )
  1208. {
  1209. rc = cmErrMsg(&p->err,kTypeCvtFailTlRC,"Unexpected MIDI event object type conversion failure.");
  1210. goto errLabel;
  1211. }
  1212. // if this is the first event in a new MIDI file
  1213. if(eop->midiFileObjId != midiFileObjId)
  1214. {
  1215. // get the MIDI file object
  1216. if((fop = cmTimeLineIdToObj(h,seqId,eop->midiFileObjId)) == NULL )
  1217. {
  1218. rc = cmErrMsg(&p->err,kAssertFailTlRC,"The MIDi file associated with a MIDI event could not be found.");
  1219. goto errLabel;
  1220. }
  1221. midiFileObjId = eop->midiFileObjId;
  1222. max_eop = NULL;
  1223. intervalSmpCnt = 0;
  1224. j = 0;
  1225. }
  1226. // if we have reviewed one second of MIDI events
  1227. if( intervalSmpCnt > p->srate )
  1228. {
  1229. // rewind the interval accumulator to less than one second
  1230. while(intervalSmpCnt >= p->srate )
  1231. intervalSmpCnt -= p->srate;
  1232. // if a max veloctiy event was selected ...
  1233. if( max_eop != NULL )
  1234. {
  1235. cmChar_t* labelStr = NULL;
  1236. labelStr = cmTsPrintfP(labelStr,"%i-%i",i,j);
  1237. // ... generate a marker record
  1238. rc = _cmTlAllocMarkerRecd(p, labelStr, NULL, 0, cmOnsetHopSampleCount(onsH), seqId, textStr, bar, sectionStr, kMidiOnsetMarkTlId, &max_eop->obj );
  1239. cmMemFree(labelStr);
  1240. if( rc != kOkTlRC )
  1241. goto errLabel;
  1242. max_eop = NULL;
  1243. ++j;
  1244. }
  1245. }
  1246. // update the max velocity event
  1247. if( max_eop==NULL || (eop->msg->status == kNoteOnMdId && eop->msg->u.chMsgPtr->d1>0 && max_eop->msg->u.chMsgPtr->d1 < eop->msg->u.chMsgPtr->d1) )
  1248. max_eop = eop;
  1249. // increment the interval accumulator
  1250. intervalSmpCnt += eop->obj.begSmpIdx;
  1251. }
  1252. errLabel:
  1253. if( cmOnsetFinalize(&onsH) != kOkOnRC )
  1254. rc = cmErrMsg(&p->err,kOnsetFailTlRC,"Audio onset analyzer finalization failed.");
  1255. return rc;
  1256. }
  1257. cmTlRC_t cmTimeLineDeleteOnsetMarks( cmTlH_t h, unsigned seqId )
  1258. {
  1259. return kOkTlRC;
  1260. }
  1261. void _cmTimeLinePrintObj(_cmTl_t* p, _cmTlObj_t* op, cmRpt_t* rpt )
  1262. {
  1263. cmRptPrintf(rpt,"%2i %5i %9i %9i %s %10s ",op->obj->seqId, op->obj->uid, op->obj->seqSmpIdx, op->obj->begSmpIdx, _cmTlIdToLabel(p,op->obj->typeId),op->obj->name);
  1264. switch(op->obj->typeId )
  1265. {
  1266. case kMidiFileTlId:
  1267. {
  1268. cmTlMidiFile_t* rp = _cmTimeLineMidiFileObjPtr(p,op->obj);
  1269. cmRptPrintf(rpt,"%s ", cmMidiFileName(rp->h));
  1270. }
  1271. break;
  1272. case kMidiEvtTlId:
  1273. {
  1274. cmTlMidiEvt_t* rp = _cmTimeLineMidiEvtObjPtr(p,op->obj);
  1275. if( op->obj->ref != NULL )
  1276. cmRptPrintf(rpt,"%s ",op->obj->ref->name);
  1277. cmRptPrintf(rpt,"%s ",cmMidiStatusToLabel(rp->msg->status));
  1278. }
  1279. break;
  1280. case kAudioFileTlId:
  1281. {
  1282. cmTlAudioFile_t* rp = _cmTimeLineAudioFileObjPtr(p,op->obj);
  1283. cmRptPrintf(rpt,"%s ", cmAudioFileName(rp->h));
  1284. }
  1285. break;
  1286. case kAudioEvtTlId:
  1287. {
  1288. cmTlAudioEvt_t* rp = _cmTimeLineAudioEvtObjPtr(p,op->obj);
  1289. cmRptPrintf(rpt,"%s",rp->text);
  1290. }
  1291. break;
  1292. case kMarkerTlId:
  1293. {
  1294. cmTlMarker_t* rp = _cmTimeLineMarkerObjPtr(p,op->obj);
  1295. cmRptPrintf(rpt,"%s ", rp->text );
  1296. }
  1297. break;
  1298. }
  1299. cmRptPrint(rpt,"\n");
  1300. }
  1301. cmTlRC_t _cmTimeLineWriteRecd( _cmTl_t* p, cmJsonH_t jsH, cmJsonNode_t* np, cmTlObj_t* obj )
  1302. {
  1303. cmTlRC_t rc = kOkTlRC;
  1304. // if this recd is writable and has not been previously written
  1305. if( cmIsNotFlag(obj->flags,kNoWriteTlFl) && cmIsNotFlag(obj->flags,kReservedTlFl) )
  1306. {
  1307. const cmChar_t* refStr = NULL;
  1308. if( obj->ref != NULL )
  1309. {
  1310. refStr = obj->ref->name;
  1311. // if the ref obj was not previously written then write it (recursively) first
  1312. if( cmIsNotFlag(obj->ref->flags, kReservedTlFl) )
  1313. if((rc = _cmTimeLineWriteRecd(p,jsH,np,obj->ref)) != kOkTlRC )
  1314. return rc;
  1315. }
  1316. // create the time-line recd
  1317. if( cmJsonInsertPairs( jsH, cmJsonCreateObject(jsH,np),
  1318. "label", kStringTId, obj->name,
  1319. "type", kStringTId, _cmTlIdToLabel(p, obj->typeId ),
  1320. "ref", kStringTId, refStr==NULL ? "" : refStr,
  1321. "offset", kIntTId, obj->begSmpIdx,
  1322. "smpCnt", kIntTId, obj->durSmpCnt,
  1323. "trackId", kIntTId, obj->seqId,
  1324. "textStr", kStringTId, obj->text==NULL ? "" : obj->text,
  1325. NULL ) != kOkJsRC )
  1326. {
  1327. return cmErrMsg(&p->err,kJsonFailTlRC,"A time line insertion failed on label:%s type:%s text:%s.",cmStringNullGuard(obj->name),cmStringNullGuard(_cmTlIdToLabel(p, obj->typeId )), cmStringNullGuard(obj->text));
  1328. }
  1329. obj->flags = cmSetFlag(obj->flags, kReservedTlFl);
  1330. }
  1331. return rc;
  1332. }
  1333. cmTlRC_t cmTimeLineWrite( cmTlH_t h, const cmChar_t* fn )
  1334. {
  1335. cmTlRC_t rc = kOkTlRC;
  1336. _cmTl_t* p = _cmTlHandleToPtr(h);
  1337. cmJsonH_t jsH = cmJsonNullHandle;
  1338. cmJsonNode_t* np;
  1339. // initialize a JSON tree
  1340. if( cmJsonInitialize(&jsH,&p->ctx) != kOkJsRC )
  1341. return cmErrMsg(&p->err,kJsonFailTlRC,"JSON object initialization failed.");
  1342. // create the root object
  1343. if((np = cmJsonCreateObject(jsH,NULL)) == NULL )
  1344. {
  1345. rc = cmErrMsg(&p->err,kJsonFailTlRC,"Time line root object create failed while creating the time line file '%s.",cmStringNullGuard(fn));
  1346. goto errLabel;
  1347. }
  1348. // create the time-line object
  1349. if((np = cmJsonInsertPairObject(jsH, np, "time_line" )) == NULL )
  1350. {
  1351. rc = cmErrMsg(&p->err,kJsonFailTlRC,"'time_line' object created failed while creating the time line file '%s.",cmStringNullGuard(fn));
  1352. goto errLabel;
  1353. }
  1354. // write the sample rate
  1355. if( cmJsonInsertPairReal(jsH, np, "srate", p->srate ) != kOkJsRC )
  1356. {
  1357. rc = cmErrMsg(&p->err,kJsonFailTlRC,"'sample rate' output failed while creating the time line file '%s.",cmStringNullGuard(fn));
  1358. goto errLabel;
  1359. }
  1360. // create the time-line object array
  1361. if((np = cmJsonInsertPairArray(jsH, np, "objArray")) == NULL )
  1362. {
  1363. rc = cmErrMsg(&p->err,kJsonFailTlRC,"'objArray' output failed while creating the time line file '%s.",cmStringNullGuard(fn));
  1364. goto errLabel;
  1365. }
  1366. unsigned i;
  1367. // write each time-line object
  1368. for(i=0; i<p->seqCnt; ++i)
  1369. {
  1370. _cmTlObj_t* op = p->seq[i].first;
  1371. for(; op != NULL; op=op->next )
  1372. if((rc = _cmTimeLineWriteRecd(p,jsH,np,op->obj)) != kOkTlRC )
  1373. goto errLabel;
  1374. }
  1375. if( cmJsonErrorCode(jsH) == kOkJsRC )
  1376. if( cmJsonWrite(jsH,NULL,fn) != kOkJsRC )
  1377. {
  1378. rc = cmErrMsg(&p->err,kJsonFailTlRC,"JSON write failed.");
  1379. goto errLabel;
  1380. }
  1381. errLabel:
  1382. if( cmJsonFinalize(&jsH) != kOkJsRC )
  1383. {
  1384. rc = cmErrMsg(&p->err,kJsonFailTlRC,"JSON finalize failed.");
  1385. goto errLabel;
  1386. }
  1387. return rc;
  1388. }
  1389. cmTlRC_t cmTimeLinePrint( cmTlH_t h, cmRpt_t* rpt )
  1390. {
  1391. _cmTl_t* p = _cmTlHandleToPtr(h);
  1392. unsigned i;
  1393. for(i=0; i<p->seqCnt; ++i)
  1394. {
  1395. _cmTlObj_t* op = p->seq[i].first;
  1396. while(op != NULL)
  1397. {
  1398. _cmTimeLinePrintObj(p,op,rpt);
  1399. op = op->next;
  1400. }
  1401. }
  1402. return kOkTlRC;
  1403. }
  1404. cmTlRC_t cmTimeLinePrintFn( cmCtx_t* ctx, const cmChar_t* fn, const cmChar_t* prefixPath, cmRpt_t* rpt )
  1405. {
  1406. cmTlRC_t rc;
  1407. cmTlH_t h = cmTimeLineNullHandle;
  1408. if((rc = cmTimeLineInitializeFromFile(ctx,&h,NULL,NULL,fn,prefixPath)) != kOkTlRC )
  1409. return rc;
  1410. cmTimeLinePrint(h,rpt);
  1411. return cmTimeLineFinalize(&h);
  1412. }
  1413. cmTlRC_t cmTimeLineTest( cmCtx_t* ctx, const cmChar_t* jsFn, const cmChar_t* prefixPath )
  1414. {
  1415. cmTlRC_t rc = kOkTlRC;
  1416. cmTlH_t tlH = cmTimeLineNullHandle;
  1417. if((rc = cmTimeLineInitialize(ctx,&tlH,NULL,NULL,prefixPath)) != kOkTlRC )
  1418. return rc;
  1419. if((rc = cmTimeLineReadJson(&tlH,jsFn)) != kOkTlRC )
  1420. goto errLabel;
  1421. if((rc = cmTimeLineInsert(tlH,"Mark",kMarkerTlId,"My Marker",10,0,NULL,0)) != kOkTlRC )
  1422. goto errLabel;
  1423. cmTimeLinePrint(tlH, &ctx->rpt );
  1424. errLabel:
  1425. cmTimeLineFinalize(&tlH);
  1426. return rc;
  1427. }
  1428. cmTlRC_t _cmTimeLineDecodeObj( const void* msg, unsigned msgByteCnt, cmTlUiMsg_t* r )
  1429. {
  1430. cmTlRC_t rc = kOkTlRC;
  1431. unsigned* typeIdPtr = (unsigned*)msg;
  1432. unsigned* parentIdPtr = typeIdPtr + 1;
  1433. const char* text = (const char*)(parentIdPtr + 1);
  1434. _cmTlObj_t* op = (_cmTlObj_t*)(text + strlen(text) + 1);
  1435. cmTlObj_t* tp = (cmTlObj_t*)(op + 1 );
  1436. r->msgId = kInsertMsgTlId;
  1437. r->objId = tp->uid;
  1438. r->seqId = tp->seqId;
  1439. r->srate = 0;
  1440. return rc;
  1441. }
  1442. cmTlRC_t cmTimeLineDecode( const void* msg, unsigned msgByteCnt, cmTlUiMsg_t* r )
  1443. {
  1444. cmTlRC_t rc = kOkTlRC;
  1445. _cmTlMsg_t* m = (_cmTlMsg_t*)msg;
  1446. switch( m->typeId )
  1447. {
  1448. case kMsgTlId:
  1449. r->msgId = m->msgId;
  1450. r->srate = m->srate;
  1451. r->seqCnt= m->seqCnt;
  1452. r->seqId = m->seqId;
  1453. break;
  1454. case kObjTlId:
  1455. r->msgId = kInsertMsgTlId;
  1456. rc = _cmTimeLineDecodeObj(msg,msgByteCnt,r);
  1457. break;
  1458. default:
  1459. assert(0);
  1460. }
  1461. return rc;
  1462. }