From 842b0ca86c59a9010893f394740a2c80b26e55af Mon Sep 17 00:00:00 2001
From: kevin <kevin@larke.org>
Date: Mon, 8 Jul 2024 18:43:09 -0400
Subject: [PATCH] cwMidiFile.cpp : Added _testOpenCsv().

---
 cwMidiFile.cpp | 33 ++++++++++++++++++++++++++++++---
 1 file changed, 30 insertions(+), 3 deletions(-)

diff --git a/cwMidiFile.cpp b/cwMidiFile.cpp
index cee11f8..f018cf9 100644
--- a/cwMidiFile.cpp
+++ b/cwMidiFile.cpp
@@ -1148,7 +1148,7 @@ namespace cw
         return rc;
       }
 
-      rc_t _testCsv( const object_t* cfg )
+      rc_t _testGenCsv( const object_t* cfg )
       {
         rc_t        rc     = kOkRC;
         const char* midiFn = nullptr;
@@ -1166,6 +1166,30 @@ namespace cw
         return rc;
       }
 
+      rc_t _testOpenCsv( const object_t* cfg )
+      {
+        rc_t rc = kOkRC;
+        rc_t rc1 = kOkRC;
+        midi::file::handle_t mfH;
+        const char* csvFn = nullptr;
+        
+        if((rc = cfg->getv("csvFn",csvFn)) != kOkRC )
+          return cwLogError(kSyntaxErrorRC,"Invalid parameter to MIDI to CSV file conversion.");
+        
+        if(( rc = midi::file::open_csv(mfH,csvFn)) != kOkRC )
+          goto errLabel;
+
+        midi::file::printMsgs(mfH,log::globalHandle());
+
+          
+      errLabel:
+
+        if((rc1 = close(mfH)) != kOkRC )
+          rc1 = cwLogError(rc1,"MIDI file close failed on '%s'.",cwStringNullGuard(csvFn));
+        
+        return rcSelect(rc,rc1);
+      }
+
 
       rc_t _testBatchConvert( const object_t* cfg )
       {
@@ -2639,8 +2663,11 @@ cw::rc_t cw::midi::file::test( const object_t* cfg )
       if( textIsEqual(o->pair_label(),"rpt") )
         rc = _testReport(o->pair_value());
       
-      if( textIsEqual(o->pair_label(),"csv") )
-        rc = _testCsv(o->pair_value());
+      if( textIsEqual(o->pair_label(),"gen_csv") )
+        rc = _testGenCsv(o->pair_value());
+
+      if( textIsEqual(o->pair_label(),"open_csv") )
+        rc = _testOpenCsv(o->pair_value());
       
       if( textIsEqual(o->pair_label(),"batch_convert") )
         rc = _testBatchConvert(o->pair_value());