Proof of concept for FLParam in SC

2019-11-26 21:42:43 +00:00
parent 033e4e912e
commit dc8359deb6
2 changed files with 102 additions and 1 deletions
@@ -1,4 +1,40 @@

+FLParam : UGen {
+
+	*ir { arg name, a;
+
+		parseTag(name, a);
+	}
+
+	parseTag()
+	{
+		arg tag, val;
+
+		if (tag.isKindOf(String))
+		{
+			var args = tag.ascii;
+			var size = args.size;
+			var asize = a.size;
+			var newArgs = Array.newClear(args.size + 3 + asize);
+			newArgs[0] = 'init';
+
+			newArgs[1] = args.size;
+			size.do()
+			{ arg i;
+				newArgs[i + 2] = args[i];
+			};
+
+			newArgs[size + 2] = a.size;
+			asize.do()
+			{ arg i;
+				newArgs[i + 3 + size] = a[i];
+			};
+
+			^this.new1( *newArgs );
+		}
+	}
+}
+
 FLObject : UGen {
 	classvar paramCount;

@@ -26,6 +26,70 @@ void FLTest_CalcAudio(FrameLib_SC_UGen *unit, int inNumSamples);

 static void FLTest_Dtor(FrameLib_SC_UGen* unit);

+struct FrameLib_Param_UGen : public Unit
+{
+    char *mTag;
+    char *mSymbol;
+    float *mVector;
+    size_t mVecLength;
+};
+
+size_t FLParam_String(FrameLib_Param_UGen* unit, char*& str, size_t i)
+{
+    size_t length = 0;
+    Wire **it = unit->mInput + i;
+    Wire **end = unit->mInput + unit->mNumInputs;
+    
+    length = (*it++)->mScalarValue;
+    str = (char *) ft->fRTAlloc(unit->mWorld, sizeof(char) * (length + 1));
+    
+    for (size_t j = 0; it != end && j < length; it++, j++)
+        str[j] = (char) (*it)->mScalarValue;
+
+    str[length] = 0;
+                       
+    return unit->mNumInputs - (end - it);
+}
+
+void FLParam_Vector(FrameLib_Param_UGen* unit, float*& vec, size_t i)
+{
+    size_t length = 0;
+    Wire **it = unit->mInput + i;
+    Wire **end = unit->mInput + unit->mNumInputs;
+    
+    unit->mVecLength = length = (*it++)->mScalarValue;
+    vec = (float *) ft->fRTAlloc(unit->mWorld, sizeof(float) * (length + 1));
+    
+    for (size_t j = 0; it != end && j < length; it++, j++)
+        vec[j] = (*it)->mScalarValue;
+}
+
+void FLParam_Ctor(FrameLib_Param_UGen* unit)
+{
+    unit->mTag = nullptr;
+    unit->mSymbol = nullptr;
+    unit->mVector = nullptr;
+    unit->mVecLength = 0;
+    
+    size_t pos = FLParam_String(unit, unit->mTag, 0);
+    FLParam_Vector(unit, unit->mVector, pos);
+
+    unit->mCalcFunc = (UnitCalcFunc) &FLTest_CalcZero;
+}
+
+void FLParam_Dtor(FrameLib_Param_UGen* unit)
+{
+    using std::vector;
+    
+    if (unit->mTag)
+        ft->fRTFree(unit->mWorld, unit->mTag);
+    unit->mVector.~vector<float>();
+    if (unit->mSymbol)
+        ft->fRTFree(unit->mWorld, unit->mSymbol);
+}
+
+
+
 // Global pbject

 struct SC_FrameLib_Global
@@ -445,7 +509,8 @@ void ParameterSetup(World *inWorld, void* inUserData, sc_msg_iter *args, void *r
    const char *paramMessage = args->gets();
    const char *inputMessage = args->gets();
    
-    sGlobal.SetInitParameters(inWorld, count, paramMessage, inputMessage);
+    SC_FrameLib_Global *global = (SC_FrameLib_Global *) inUserData;
+    global->SetInitParameters(inWorld, count, paramMessage, inputMessage);
 }

 PluginLoad(FrameLib)