1 files changed, 58 insertions, 0 deletions
diff --git a/2.3-1/macros/Scilab-Arduino/InsertSetupInList.sci b/2.3-1/macros/Scilab-Arduino/InsertSetupInList.sci
new file mode 100644
index 00000000..5c6be8bb
--- /dev/null
+++ b/2.3-1/macros/Scilab-Arduino/InsertSetupInList.sci
@@ -0,0 +1,58 @@
+function InsertSetupInList(FunName,InArg,NInArg,SetupListFile,FunType)
+
+load(SetupListFile,'SetupList');
+
+//Check first if current input function already exists in the list
+nelements = size(SetupList);
+found=%F;
+
+if(FunType=='Setup')
+	for i=1:nelements
+		if(SetupList(i)(1) == FunName)
+			for j=1:NInArg
+				if(SetupList(i)(j+1) ~= InArg(j).Name)
+					found = %F
+					break;
+				else
+					found = %T;
+				end
+			end
+		end
+		if (found == %T) 
+			break;			//One match found. No need to check further.
+		end
+	end
+
+	if(found == %F)
+		temp = list(FunName);
+		for i=1:NInArg
+			temp($+1) = InArg(i).Name;
+		end
+	end
+	SetupList($+1) = temp;
+elseif((FunType=='Init')&((FunName=='cmd_digital_out')|(FunName=='cmd_analog_out')|(FunName=='cmd_digital_in')))
+	for i=1:nelements
+		if(SetupList(i)(1) == FunName)
+			if(SetupList(i)(2) == InArg(2).Name)
+				found = %T
+				break;
+			else
+				found = %F;
+			end
+		end
+	end
+
+	if(found == %F)
+		temp = list('pinMode');
+		temp($+1) = InArg(2).Name;
+		if ((FunName=='cmd_digital_out')|(FunName=='cmd_analog_out'))
+			temp($+1) = 'OUTPUT';
+		elseif (FunName == 'cmd_digital_in')
+			temp($+1) = 'INPUT';
+		end	
+	end
+	SetupList($+1) = temp;
+end
+
+save(SetupListFile,'SetupList');
+endfunction