cleanup

README.md

@@ -107,9 +107,10 @@ For an example, see Pd_Gain.pdv.
     between 0 and 1 inclusive.
 
     PROGRAMSARECHUNKS = <TRUE/FALSE>
-    Save and Get Pd lists in .fxp file via ([s svstdata] and [r rvstdata])
-    Some hosts don't work correctly with this.
-    If in doubt just use FALSE.
+    All vst parameters are saved in the host session and additionally 
+    you can set/get some "Pd list" in the session or to a .fxp/.fxb file 
+    via [s svstdata] and [r rvstdata]
+
  
 
 # Pd/VST audio/midi Communication

build/Release32/Pd_Chunks-test/Pd_Chunks-test.pd

@@ -1,4 +1,4 @@
-#N canvas 19 118 885 488 12;
+#N canvas 19 118 947 544 12;
 #X obj 78 87 adc~, f 6;
 #X obj 73 241 loadbang;
 #X msg 73 271 \; pd dsp 1 \;;
@@ -18,18 +18,14 @@
 #X text 320 114 range is 0..1;
 #X obj 64 393 r rvstplugname;
 #X symbolatom 64 425 26 0 0 0 - - - 0;
-#X obj 478 422 r rvstdata;
-#X obj 476 331 s svstdata;
-#X obj 478 454 print;
+#X obj 478 447 r rvstdata;
+#X obj 476 356 s svstdata;
+#X obj 478 479 print;
 #X symbolatom 673 132 26 0 0 0 - - - 0;
 #X obj 673 100 r rvstprogname;
 #X obj 503 100 r rvstprognumber;
 #X floatatom 503 124 5 0 0 0 - - - 0;
-#X text 464 273 1 send some data to the host's data chunk;
-#X text 463 358 2 from the host save the file as .fxp or .fxb;
-#X msg 476 299 hello world 1.2;
-#X text 462 392 3 from the host open the file you saved;
-#X text 500 11 When the host chamges the program these 2 are updated. Additionally you can use this to set lots of parameters that are not exposed to host. The program used is stored and recalled in the host/DAW project., f 49;
+#X msg 476 324 hello world 1.2;
 #N canvas 182 182 450 300 additionally 0;
 #X msg 121 99 12 34 56 hello;
 #X msg 150 136 0.2 0.4 0.78 foo;
@@ -53,6 +49,10 @@
 #X listbox 503 182 23 0 0 0 - - - 0;
 #X text 466 223 Experimental. Not all hosts supports it correctly. See the .pdv file. This only works if PROGRAMSARECHUNKS = TRUE is set., f 50;
 #X obj 242 213 t f f;
+#X text 464 273 1 all vstparameters are tracked and additionally you can send some Pd list to the host's data chunk;
+#X text 463 383 2 from the host save your current session (or to a file as .fxp or .fxb);
+#X text 462 417 3 from the host open your session (or the file you saved);
+#X text 500 11 When the host chamges the program these 2 are updated. Additionally you can use this to set lots of parameters that are not exposed to the host. The program used is stored and recalled in the host/DAW project., f 52;
 #X connect 0 0 7 0;
 #X connect 0 1 6 0;
 #X connect 1 0 2 0;
@@ -65,14 +65,14 @@
 #X connect 9 0 15 0;
 #X connect 10 0 11 0;
 #X connect 11 0 12 0;
-#X connect 14 0 34 0;
+#X connect 14 0 30 0;
 #X connect 15 0 14 0;
 #X connect 17 0 18 0;
 #X connect 19 0 21 0;
 #X connect 23 0 22 0;
 #X connect 24 0 25 0;
-#X connect 25 0 31 0;
-#X connect 28 0 20 0;
-#X connect 31 0 32 0;
-#X connect 34 0 10 0;
-#X connect 34 1 13 0;
+#X connect 25 0 27 0;
+#X connect 26 0 20 0;
+#X connect 27 0 28 0;
+#X connect 30 0 10 0;
+#X connect 30 1 13 0;

build/Release32/Pd_Chunks-test/Pd_Chunks-test.pdv

@@ -25,10 +25,10 @@ DEBUG = TRUE
 # ***OBSOLETE, use [declare] inside patch instead*** 
 #LIB = 
 
-# Save and Get Pd lists in .fxp file via ([s svstdata] and [r rvstdata])
-# Some hosts don't work correctly with this.
-# If in doubt just use FALSE.
-PROGRAMSARECHUNKS = FALSE
+# All vst parameters are saved in the host session and additionally 
+# you can set/get some "Pd list" in the session or to a .fxp/.fxb file 
+# via [s svstdata] and [r rvstdata]
+PROGRAMSARECHUNKS = TRUE
 
 # Number of VST parameters (up to 128)
 PARAMETERS = 1

build/Release64/Pd_Chunks-test/Pd_Chunks-test.pd

@@ -1,4 +1,4 @@
-#N canvas 19 118 885 488 12;
+#N canvas 19 118 947 544 12;
 #X obj 78 87 adc~, f 6;
 #X obj 73 241 loadbang;
 #X msg 73 271 \; pd dsp 1 \;;
@@ -18,18 +18,14 @@
 #X text 320 114 range is 0..1;
 #X obj 64 393 r rvstplugname;
 #X symbolatom 64 425 26 0 0 0 - - - 0;
-#X obj 478 422 r rvstdata;
-#X obj 476 331 s svstdata;
-#X obj 478 454 print;
+#X obj 478 447 r rvstdata;
+#X obj 476 356 s svstdata;
+#X obj 478 479 print;
 #X symbolatom 673 132 26 0 0 0 - - - 0;
 #X obj 673 100 r rvstprogname;
 #X obj 503 100 r rvstprognumber;
 #X floatatom 503 124 5 0 0 0 - - - 0;
-#X text 464 273 1 send some data to the host's data chunk;
-#X text 463 358 2 from the host save the file as .fxp or .fxb;
-#X msg 476 299 hello world 1.2;
-#X text 462 392 3 from the host open the file you saved;
-#X text 500 11 When the host chamges the program these 2 are updated. Additionally you can use this to set lots of parameters that are not exposed to host. The program used is stored and recalled in the host/DAW project., f 49;
+#X msg 476 324 hello world 1.2;
 #N canvas 182 182 450 300 additionally 0;
 #X msg 121 99 12 34 56 hello;
 #X msg 150 136 0.2 0.4 0.78 foo;
@@ -53,6 +49,10 @@
 #X listbox 503 182 23 0 0 0 - - - 0;
 #X text 466 223 Experimental. Not all hosts supports it correctly. See the .pdv file. This only works if PROGRAMSARECHUNKS = TRUE is set., f 50;
 #X obj 242 213 t f f;
+#X text 464 273 1 all vstparameters are tracked and additionally you can send some Pd list to the host's data chunk;
+#X text 463 383 2 from the host save your current session (or to a file as .fxp or .fxb);
+#X text 462 417 3 from the host open your session (or the file you saved);
+#X text 500 11 When the host chamges the program these 2 are updated. Additionally you can use this to set lots of parameters that are not exposed to the host. The program used is stored and recalled in the host/DAW project., f 52;
 #X connect 0 0 7 0;
 #X connect 0 1 6 0;
 #X connect 1 0 2 0;
@@ -65,14 +65,14 @@
 #X connect 9 0 15 0;
 #X connect 10 0 11 0;
 #X connect 11 0 12 0;
-#X connect 14 0 34 0;
+#X connect 14 0 30 0;
 #X connect 15 0 14 0;
 #X connect 17 0 18 0;
 #X connect 19 0 21 0;
 #X connect 23 0 22 0;
 #X connect 24 0 25 0;
-#X connect 25 0 31 0;
-#X connect 28 0 20 0;
-#X connect 31 0 32 0;
-#X connect 34 0 10 0;
-#X connect 34 1 13 0;
+#X connect 25 0 27 0;
+#X connect 26 0 20 0;
+#X connect 27 0 28 0;
+#X connect 30 0 10 0;
+#X connect 30 1 13 0;

build/Release64/Pd_Chunks-test/Pd_Chunks-test.pdv

@@ -25,10 +25,10 @@ DEBUG = TRUE
 # ***OBSOLETE, use [declare] inside patch instead*** 
 #LIB = 
 
-# Save and Get Pd lists in .fxp file via ([s svstdata] and [r rvstdata])
-# Some hosts don't work correctly with this.
-# If in doubt just use FALSE.
-PROGRAMSARECHUNKS = FALSE
+# All vst parameters are saved in the host session and additionally 
+# you can set/get some "Pd list" in the session or to a .fxp/.fxb file
+# via [s svstdata] and [r rvstdata]
+PROGRAMSARECHUNKS = TRUE
 
 # Number of VST parameters (up to 128)
 PARAMETERS = 1

vst-template/pdvst.cpp

@@ -625,23 +625,24 @@ bool pdvst::getOutputProperties(VstInt32 index, VstPinProperties* properties)
 
 VstInt32 pdvst::getChunk (void** data, bool isPreset)
 {
-    VstInt32 len;
+
+    Chunk = new pdvstProgramAreChunks;    
     //MessageBoxA(NULL, "getchunk call", "debug", MB_OK); // all host gets here    
-    if(*data)
+    for (int i = 0; i < nParameters; i++)
     {
-        //MessageBoxA(NULL, "getchunk if data", "debug", MB_OK); // not all hosts gets here
-        WaitForSingleObject(pdvstTransferMutex, 10);
-        {
-            //strcpy ((char *)*data, pdvstData->datachunk.value.stringData);
-            *data = pdvstData->datachunk.value.stringData;
-            len = (VstInt32)strlen(pdvstData->datachunk.value.stringData);
-            //memcpy(*data, pdvstData->datachunk.value.stringData, (size_t)len+1);
-            ReleaseMutex(pdvstTransferMutex);
-        }
-        return len+1;
+        Chunk->vstParam[i] = vstParam[i];
     }    
-    else
-    return 0;
+    //MessageBoxA(NULL, "getchunk if data", "debug", MB_OK); // not all hosts gets here
+    WaitForSingleObject(pdvstTransferMutex, 10);
+    {
+        memset(&Chunk->Data, '\0', MAXSTRLEN);
+        strcpy (Chunk->Data, pdvstData->datachunk.value.stringData);
+        ReleaseMutex(pdvstTransferMutex);
+    }        
+        
+    debugLog("luc:debug-size-of-chunk %d", sizeof(*Chunk));
+    *data = (void*)Chunk;        
+    return sizeof(*Chunk);
 }
 
 VstInt32 pdvst::setChunk (void* data, VstInt32 byteSize, bool isPreset)
@@ -649,17 +650,29 @@ VstInt32 pdvst::setChunk (void* data, VstInt32 byteSize, bool isPreset)
     //MessageBoxA(NULL, "setchunk call", "debug", MB_OK);
     if(byteSize)
     {        
+        Chunk = (pdvstProgramAreChunks*)data;       
         //MessageBoxA(NULL, "setchunk call if bytesize", "debug", MB_OK);
         WaitForSingleObject(pdvstTransferMutex, 10);
         {
             pdvstData->datachunk.direction = PD_RECEIVE;
             pdvstData->datachunk.type = STRING_TYPE;
-            memset(&pdvstData->datachunk.value.stringData, '\0', MAXSTRINGSIZE);
-            strncpy(pdvstData->datachunk.value.stringData,(char *)data, (size_t)byteSize);
+            memset(&pdvstData->datachunk.value.stringData, '\0', MAXSTRLEN);
+            strcpy(pdvstData->datachunk.value.stringData, Chunk->Data);
             pdvstData->datachunk.updated = 1;
+            
+
+            for (int i = 0; i < nParameters; i++)
+            {
+                pdvstData->vstParameters[i].type = FLOAT_TYPE;
+                pdvstData->vstParameters[i].value.floatData = Chunk->vstParam[i];
+                pdvstData->vstParameters[i].direction = PD_RECEIVE;
+                pdvstData->vstParameters[i].updated = 1;
+            }  
+            
             ReleaseMutex(pdvstTransferMutex);
         }
     }
+    
     return 0;
 }
 

vst-template/pdvst.hpp

@@ -53,6 +53,13 @@ typedef struct _pdvstProgram
     float paramValue[MAXPARAMETERS];
 } pdvstProgram;
 
+/* for programsarechunks*/
+typedef struct _pdvstProgramAreChunks
+{
+    float vstParam[MAXPARAMETERS];
+    char Data[MAXSTRLEN];
+} pdvstProgramAreChunks;
+
 class pdVstBuffer
 {
 
@@ -128,6 +135,7 @@ protected:
     char **vstParamName;
     int nParameters;
     pdvstProgram *program;
+    pdvstProgramAreChunks *Chunk;
     int nPrograms;
     int nChannels;
     int nExternalLibs;