cmXScore.h/c : Added cmXScoreWriteCsv().

app/cmXScore.c

 #include "cmXScore.h"
 #include "cmTime.h"
 #include "cmMidi.h"
+#include "cmLex.h"
+#include "cmCsv.h"
 
 cmXsH_t cmXsNullHandle = cmSTATIC_NULL_HANDLE;
 
 };
 
 
-
 typedef struct cmXsNote_str
 {
   unsigned             flags;    // See k???XsFl 
   unsigned             tick;     // 
   unsigned             duration; // duration in ticks
   unsigned             rvalue;   // 1/type = rythmic value (1/4=quarter note, 1/8=eighth note, ...)
+  const cmChar_t*      tvalue;   // text value
   struct cmXsNote_str* mlink;    // measure note list 
   struct cmXsNote_str* slink;    // time sorted event list
 } cmXsNote_t;
 
-
 typedef struct cmXsVoice_str
 {
   unsigned              id;    // Voice id
 
 typedef struct cmXsMeas_str
 {
-  unsigned             number;  // Measure number
-  
-  unsigned             divisions; 
-  unsigned             beats;
-  unsigned             beat_type;
+  unsigned number;      // Measure number
+  unsigned divisions;   // ticks-per-quarter-note
+  unsigned beats;       // beats per measure
+  unsigned beat_type;   // whole/half/quarter/eighth ...
   
-  cmXsVoice_t*         voiceL;  // List of voices in this measure   
-  cmXsNote_t*          noteL;   // List of time sorted notes in this measure
+  cmXsVoice_t* voiceL;  // List of voices in this measure   
+  cmXsNote_t*  noteL;   // List of time sorted notes in this measure
   
   struct cmXsMeas_str* link;    // Link to other measures in this part.
 } cmXsMeas_t;
 
 typedef struct
 {
-  cmErr_t              err;
-  cmXmlH_t             xmlH;
-  cmLHeapH_t           lhH;
-  cmXsPart_t*          partL;
+  cmErr_t     err;
+  cmXmlH_t    xmlH;
+  cmLHeapH_t  lhH;
+  cmXsPart_t* partL;
+  cmCsvH_t    csvH;  
 } cmXScore_t;
 
 cmXScore_t* _cmXScoreHandleToPtr( cmXsH_t h )
   cmXsRC_t rc = kOkXsRC;
 
   // release the XML file
-  if( cmXmlIsValid(p->xmlH) )
-    cmXmlFree( &p->xmlH );
+  cmXmlFree( &p->xmlH );
 
   // release the local linked heap memory
-  if( cmLHeapIsValid(p->lhH) )
-    cmLHeapDestroy(&p->lhH);
+  cmLHeapDestroy(&p->lhH);
+
+  // release the CSV output object
+  cmCsvFinalize(&p->csvH);
   
   cmMemFree(p);
   
 
   map_t mapV[] =
   {
+    {  -1, "measure" },  // whole measure rest
     {   1, "whole"   },
     {   2, "half"    },
     {   4, "quarter" },
 
   const cmChar_t* str;
   if((str = cmXmlNodeValue(nnp,label,NULL)) == NULL)
+  {
+    if((nnp = cmXmlSearch(nnp,"rest",NULL,0)) != NULL )
+    {
+      const cmXmlAttr_t* a;
+      if((a = cmXmlFindAttrib(nnp,"measure")) != NULL && cmTextCmp(a->value,"yes")==0)
+        return -1;
+    }
     return 0;
+  }
   
   unsigned i;
   for(i=0; mapV[i].rvalue!=0; ++i)
   return _cmXScorePushNote(p, meas, voiceId, note );
 }
 
-cmXsRC_t _cmXScorePushNonNote( cmXScore_t* p, cmXsMeas_t* meas, unsigned tick, unsigned duration, unsigned rvalue, unsigned flags )
+cmXsRC_t _cmXScorePushNonNote( cmXScore_t* p, cmXsMeas_t* meas, unsigned tick, unsigned duration, unsigned rvalue, const cmChar_t* tvalue, unsigned flags )
 {
   cmXsNote_t* note    = cmLhAllocZ(p->lhH,cmXsNote_t,1);
   unsigned    voiceId = 0;    // non-note's are always assigned to voiceId=0;
   note->tick     = tick;
   note->flags    = flags;
   note->rvalue   = rvalue;
+  note->tvalue   = tvalue;
   note->duration = duration;
   
   return _cmXScorePushNote(p, meas, voiceId, note );
   unsigned           flags    = 0;
   int                offset   = 0;
   unsigned           rvalue   = 0;
+  const cmChar_t*    tvalue   = NULL;
   unsigned           duration = 0;
 
   
   {
     if((a = cmXmlFindAttrib(np,"enclosure")) != NULL && cmTextCmp(a->value,"rectangle")==0 )
     {
-      if( cmXmlNodeUInt(np,&rvalue,NULL) != kOkXsRC )
-        return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Error reading section number on line %i.",np->line);
+      if( cmTextIsEmpty( tvalue = np->dataStr ) )
+        return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Section number is blank or missing on line %i.",np->line);
 
-      printf("rvalue=%i\n",rvalue);
-      
       flags = kSectionXsFl;
     }
   }
 
-  return _cmXScorePushNonNote(p,meas,tick+offset,duration,rvalue,flags);            
+  return _cmXScorePushNonNote(p,meas,tick+offset,duration,rvalue,tvalue,flags);            
       
 }
 
   }
   
   // get measure attributes node
-  if((np = cmXmlSearch(mnp,"attributes",NULL,0)) == NULL)
-    return rc;                  // (this measure does not have any attributes)
-
-
-  cmXmlNodeUInt(np,&meas->divisions,"divisions",NULL);
-  cmXmlNodeUInt(np,&meas->beats,    "time","beats",NULL);
-  cmXmlNodeUInt(np,&meas->beat_type,"time","beat-type",NULL);
-
+  if((np = cmXmlSearch(mnp,"attributes",NULL,0)) != NULL)
+  {
+    cmXmlNodeUInt(np,&meas->divisions,"divisions",NULL);
+    cmXmlNodeUInt(np,&meas->beats,    "time","beats",NULL);
+    cmXmlNodeUInt(np,&meas->beat_type,"time","beat-type",NULL);
+  }
+  
   // store the bar line
-  if((rc = _cmXScorePushNonNote(p,meas,tick,0,0,kBarXsFl)) != kOkXsRC )
+  if((rc = _cmXScorePushNonNote(p,meas,tick,0,0,NULL,kBarXsFl)) != kOkXsRC )
     return rc;
 
   
     goto errLabel;
   }
 
+  //cmXmlPrint(p->xmlH,&ctx->rpt);  
+
   // parse the part-list
   if((rc = _cmXScoreParsePartList( p )) != kOkXsRC )
     goto errLabel;
       goto errLabel;
 
   // fill in the note->slink chain to link the notes in each measure in time order
-  _cmXScoreSort(p); 
+  _cmXScoreSort(p);
+
+  // CSV output initialize failed.
+  if( cmCsvInitialize(&p->csvH,ctx) != kOkCsvRC )
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV output object create failed.");
   
  errLabel:
   if( rc != kOkXsRC )
   cmRptPrintf(rpt,"      %5i %5i %2i %3s %s%s%s%s%s%s%s%s%s",note->tick,note->duration,note->rvalue,N,B,R,G,D,C,e,d,t,P);
 
   if( cmIsFlag(note->flags,kSectionXsFl) )
-    cmRptPrintf(rpt," %i",note->rvalue);
+    cmRptPrintf(rpt," %i",cmStringNullGuard(note->tvalue));
 
   printf("\n");
   
 }
 
-void  cmXScoreReport( cmXsH_t h, cmRpt_t* rpt, bool sortFl )
+/*
+  kMidiFileIdColScIdx= 0,  
+  kTypeLabelColScIdx = 3,
+  kDSecsColScIdx     = 4,
+  kSecsColScIdx      = 5,
+  kD0ColScIdx        = 9,
+  kD1ColScIdx        = 10,
+  kPitchColScIdx     = 11,
+  kBarColScIdx       = 13,
+  kSkipColScIdx      = 14,
+  kEvenColScIdx      = 15,
+  kGraceColScIdx     = 16,
+  kTempoColScIdx     = 17,
+  kFracColScIdx      = 18,
+  kDynColScIdx       = 19,
+  kSectionColScIdx   = 20,
+  kRecdPlayColScIdx  = 21,
+  kRemarkColScIdx    = 22
+ */
+
+
+cmXsRC_t _cmXScoreWriteCsvHdr( cmXScore_t* p )
 {
-  cmXScore_t* p = _cmXScoreHandleToPtr(h);
+  const cmChar_t* s[] =
+  {
+    "id","trk","evt","opcode","dticks","micros","status",
+    "meta","ch","d0","d1","arg0","arg1","bar","skip",
+    "even","grace","tempo","t frac","dyn","section","play_recd","remark",NULL
+  };
 
+  cmCsvCell_t* lcp = NULL;
+  
+  if(  cmCsvAppendRow( p->csvH, &lcp, cmCsvInsertSymText(p->csvH,s[0]), 0, 0 ) != kOkCsvRC )
+    return cmErrMsg(&p->err,kCsvFailXsRC,"CSV append row failed.");
+  
+  unsigned i;
+  for(i=1; s[i]!=NULL; ++i)
+  {
+    if( cmCsvInsertTextColAfter(p->csvH, lcp, &lcp, s[i], 0 ) != kOkCsvRC )
+      return cmErrMsg(&p->err,kCsvFailXsRC,"CSV error inserting CSV title %i.\n",i);
+
+  }
+
+  return kOkXsRC;
+}
+
+cmXsRC_t _cmXScoreWriteCsvBlankCols( cmXScore_t* p, unsigned cnt, cmCsvCell_t** leftCellPtrPtr )
+{
+  unsigned i;
+  for(i=0; i<cnt; ++i)
+    if( cmCsvInsertTextColAfter(p->csvH,*leftCellPtrPtr,leftCellPtrPtr,0,0) != kOkCsvRC )
+      return cmErrMsg(&p->err,kCsvFailXsRC,"CSV output failed on blank column.");
+
+  return kOkCsvRC;    
+}
+
+cmXsRC_t _cmXScoreWriteCsvRow(
+  cmXScore_t*     p,
+  unsigned        rowIdx,
+  unsigned        bar,
+  const cmChar_t* sectionStr,
+  const cmChar_t* opCodeStr,
+  double          dsecs,
+  double          secs,
+  unsigned        d0,
+  unsigned        d1,
+  unsigned        pitch,
+  double          frac,
+  unsigned        flags )
+{
+  cmXsRC_t     rc  = kOkXsRC;
+  cmCsvCell_t* lcp = NULL;
+
+  // append an empty row to the CSV object
+  if(  cmCsvAppendRow( p->csvH, &lcp, cmCsvInsertSymUInt(p->csvH, rowIdx ), 0, 0 ) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV append row failed.");
+    goto errLabel;
+  }
+
+  /*
+  // col 0 : blanks
+  if( cmCsvInsertUIntColAfter(p->csvH, lcp, &lcp, rowIdx,    0 ) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV output row index failed.");
+    goto errLabel;
+  }
+  */
+  
+  // cols 1,2
+  if((rc = _cmXScoreWriteCsvBlankCols(p,2,&lcp)) != kOkXsRC )
+    goto errLabel;
+
+  // col 3 : output the opcode
+  if( cmCsvInsertTextColAfter(p->csvH,lcp,&lcp,opCodeStr,0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on opcode label.");
+    goto errLabel;
+  }
+
+  // col 4 : dsecs
+  if( cmCsvInsertDoubleColAfter(p->csvH,lcp,&lcp,dsecs,0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'dsecs'.");
+    goto errLabel;
+  }
+
+  // col 5 : secs
+  if( cmCsvInsertDoubleColAfter(p->csvH,lcp,&lcp,secs,0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'secs'.");
+    goto errLabel;
+  }
+  
+  // cols 6,7,8 blanks
+  if((rc = _cmXScoreWriteCsvBlankCols(p,3,&lcp)) != kOkXsRC )
+    goto errLabel;
+
+  // col 9 : d0
+  if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,d0,0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'd0'.");
+    goto errLabel;
+  }
+
+  // col 10 : d1
+  if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,d1,0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'd1'.");
+    goto errLabel;
+  }
+
+  // col 11 : pitch
+  if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,pitch,0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'pitch'.");
+    goto errLabel;
+  }
+  
+  // col 12 : blanks
+  if((rc = _cmXScoreWriteCsvBlankCols(p,1 + (cmIsFlag(flags,kBarXsFl) ? 0 : 1), &lcp)) != kOkXsRC )
+    goto errLabel;
+
+  // col 13 : bar number
+  if( cmIsFlag(flags,kBarXsFl) )
+  {
+    if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,bar,0) != kOkCsvRC )
+    {
+      rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'pitch'.");
+      goto errLabel;
+    }
+  }
+
+  // col 14 : skip (blank for now)
+  if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
+    goto errLabel;
+
+  // col 15: even
+  if( cmCsvInsertTextColAfter(p->csvH,lcp,&lcp,cmIsFlag(flags,kEvenXsFl) ? "e" : "",0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
+    goto errLabel;
+  }
+
+  // col 16: grace
+  if( cmCsvInsertTextColAfter(p->csvH,lcp,&lcp,cmIsFlag(flags,kGraceXsFl) ? "g" : "",0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
+    goto errLabel;
+  }
+  
+  // col 17: tempo
+  if( cmCsvInsertTextColAfter(p->csvH,lcp,&lcp,cmIsFlag(flags,kTempoXsFl) ? "t" : "",0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
+    goto errLabel;
+  }
+  
+  // col 18: frac
+  if( frac == 0 )
+  {
+    if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
+      goto errLabel;
+  }
+  else
+  {
+    if( cmCsvInsertDoubleColAfter(p->csvH,lcp,&lcp,1.0/frac,0) != kOkCsvRC )
+    {
+      rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 't frac'.");
+      goto errLabel;
+    }
+  }
+  
+  // col 19: dynamic marking (blank for now)
+  if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
+    goto errLabel;
+  
+  // col 20: section
+  if( cmCsvInsertTextColAfter(p->csvH,lcp,&lcp,cmIsFlag(flags,kSectionXsFl) ? sectionStr : "",0) != kOkCsvRC )
+  {
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
+    goto errLabel;
+  }
+  
+
+  // col 21, 22 : recd-play, remark (blank for now)
+  if((rc = _cmXScoreWriteCsvBlankCols(p,2,&lcp)) != kOkXsRC )
+    goto errLabel;
+  
+ errLabel:
+  return rc;
+  
+}
+
+cmXsRC_t cmXScoreWriteCsv( cmXsH_t h, const cmChar_t* csvFn )
+{
+  cmXsRC_t        rc           = kOkXsRC;
+  cmXScore_t*     p            = _cmXScoreHandleToPtr(h);
+  unsigned        rowIdx       = 1;
+  double          tpqn         = 0; // ticks per quarter note
+  double          tps          = 0; // ticks per second
+  double          sec          = 0; // current time in seconds
+  const cmChar_t* sectionIdStr = NULL;
+        
+  
+  if( !cmCsvIsValid(p->csvH) )
+    return cmErrMsg(&p->err,kCsvFailXsRC,"The CSV output object is not initialized.");
+
+  if((rc = _cmXScoreWriteCsvHdr( p )) != kOkXsRC )
+    goto errLabel;
+  
+  cmXsPart_t* pp = p->partL;
+  for(; pp!=NULL; pp=pp->link)
+  {
+    cmXsMeas_t* mp = pp->measL;
+    for(; mp!=NULL; mp=mp->link)
+    {
+      if( mp->divisions != 0 )
+        tpqn = mp->divisions;
+      
+      cmXsNote_t* np = mp->noteL;
+      
+      double sec0 = sec;
+      
+      for(; np!=NULL; np=np->slink)
+      {
+
+        //  
+        if( cmIsFlag(np->flags,kMetronomeXsFl) )
+        {
+          double bpm = np->duration;
+          double bps = bpm / 60.0;
+          tps = bps * tpqn;
+        }
+
+        double meas_sec = tps == 0 ? 0 : np->tick / tps;
+        double sec1     = sec  + meas_sec;
+        double dsecs    = sec1 - sec0;
+        sec0            = sec1;
+
+        // if this is a section event
+        if( cmIsFlag(np->flags,kSectionXsFl) )
+          sectionIdStr = np->tvalue;
+        
+        // if this is a bar event
+        if( cmIsFlag(np->flags,kBarXsFl) )
+        {
+          _cmXScoreWriteCsvRow(p,rowIdx,mp->number,NULL,"bar",dsecs,sec1,0,0,0,0,np->flags);
+        }
+        else
+          
+        // if this is a pedal event
+        if( cmIsFlag(np->flags,kPedalDnXsFl|kPedalUpXsFl|kPedalUpDnXsFl) )
+        {
+          unsigned d0 = 64; // pedal MIDI ctl id
+          unsigned d1 = cmIsFlag(np->flags,kPedalDnXsFl) ? 64 : 0; // pedal-dn: d1>=64 pedal-up:<64
+          _cmXScoreWriteCsvRow(p,rowIdx,mp->number,NULL,"ctl",dsecs,sec1,d0,d1,0,0,np->flags);
+        }
+        else 
+
+
+          // if this is a sounding note event
+          if( cmIsNotFlag(np->flags,kRestXsFl) )
+          {
+            double frac = np->rvalue + (cmIsFlag(np->flags,kDotXsFl) ? (np->rvalue/2) : 0);
+        
+            // 
+            _cmXScoreWriteCsvRow(p,rowIdx,mp->number,sectionIdStr,"non",dsecs,sec1,0,0,np->pitch,frac,np->flags);
+            sectionIdStr = NULL;
+          }
+        
+        rowIdx += 1;
+        
+
+      }
+
+      sec = sec0;
+    }
+    
+  }
+
+  if( cmCsvWrite( p->csvH, csvFn ) != kOkCsvRC )
+    rc = cmErrMsg(&p->err,kCsvFailXsRC,"The CSV output write failed on file '%s'.",csvFn);
+
+ errLabel:
+  return rc;
+}
+
+
+void  cmXScoreReport( cmXsH_t h, cmRpt_t* rpt, bool sortFl )
+{
+  cmXScore_t* p  = _cmXScoreHandleToPtr(h);
   cmXsPart_t* pp = p->partL;
+  
   for(; pp!=NULL; pp=pp->link)
   {
     cmRptPrintf(rpt,"Part:%s\n",pp->idStr);
   if((rc = cmXScoreInitialize( ctx, &h, fn)) != kOkXsRC )
     return cmErrMsg(&ctx->err,rc,"XScore alloc failed.");
 
+  cmXScoreWriteCsv(h,"/home/kevin/temp/a0.csv");
   cmXScoreReport(h,&ctx->rpt,true);
   
   return cmXScoreFinalize(&h);

app/cmXScore.h

     kOkXsRC = cmOkRC,
     kXmlFailXsRC,
     kLHeapFailXsRC,
-    kSyntaxErrorXsRC
+    kSyntaxErrorXsRC,
+    kCsvFailXsRC
   };
 
   typedef cmRC_t     cmXsRC_t;
   //
   // 3) How to assigned dynamic markings.
   // 4) Tempo syntax is inconsistent.
-
+  // 5) Heel is not being recognized
+  // 6) Sostenuto pedal events are not being parsed.
+  // 7) What is a 'pedal-change' event vs. a 'pedal-stop' event.
+  // 8) Verify the colors.
+  // 9) Remove blank bars at end.
+ 
   cmXsRC_t cmXScoreInitialize( cmCtx_t* ctx, cmXsH_t* hp, const cmChar_t* xmlFn );
   cmXsRC_t cmXScoreFinalize( cmXsH_t* hp );
 
   bool     cmXScoreIsValid( cmXsH_t h );
 
+  cmXsRC_t cmXScoreWriteCsv( cmXsH_t h, const cmChar_t* csvFn );
+
   void     cmXScoreReport( cmXsH_t h, cmRpt_t* rpt, bool sortFl );
 
   cmXsRC_t cmXScoreTest( cmCtx_t* ctx, const cmChar_t* fn );