From 329613eb48542f24bb9014a0a617b05199726e99 Mon Sep 17 00:00:00 2001
From: siddhu8990
Date: Thu, 17 Dec 2015 14:48:36 +0530
Subject: Code generation for Arduino changed. DC motor added to Arduino.

---
 macros/Scilab-Arduino/InsertSetupInList.sci | 58 +++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 macros/Scilab-Arduino/InsertSetupInList.sci

(limited to 'macros/Scilab-Arduino/InsertSetupInList.sci')

diff --git a/macros/Scilab-Arduino/InsertSetupInList.sci b/macros/Scilab-Arduino/InsertSetupInList.sci
new file mode 100644
index 0000000..5c6be8b
--- /dev/null
+++ b/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	 
-- 
cgit