- Clean add for Raffaele.

23 files changed, 1633 insertions, 0 deletions

diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_FinalizeCode.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_FinalizeCode.sci
new file mode 100644
index 00000000..222ce911
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_FinalizeCode.sci
@@ -0,0 +1,56 @@
+function C_FinalizeCode(FileInfo,SharedInfo)
+// function C_FinalizeCode(FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),2,2);
+
+load(FileInfoDatFile,'FileInfo');
+
+load(FileInfo.SharedInfoDatFile,'SharedInfo');
+
+CPass2FileName      = FileInfo.Funct(SharedInfo.NextSCIFunNumber).CPass2FileName;
+FinalCFileName      = FileInfo.Funct(SharedInfo.NextSCIFunNumber).FinalCFileName;
+Pass1HeaderFileName = FileInfo.Funct(SharedInfo.NextSCIFunNumber).Pass1HeaderFileName;
+FinalHeaderFileName = FileInfo.Funct(SharedInfo.NextSCIFunNumber).FinalHeaderFileName;
+
+PrintStringInfo('/*',Pass1HeaderFileName,'file','y');
+PrintStringInfo('** ---------------------------- ',Pass1HeaderFileName,'file','y');
+PrintStringInfo('** --- End USER2C Includes. --- ',Pass1HeaderFileName,'file','y');
+PrintStringInfo('** ---------------------------- ',Pass1HeaderFileName,'file','y');
+PrintStringInfo('*/',Pass1HeaderFileName,'file','y');
+
+[tmphdrpath,tmphdrname,tmphdrext] = fileparts(Pass1HeaderFileName);
+
+C_SCI2CHeader(FinalCFileName);
+PrintStringInfo('/*',FinalCFileName,'file','y');
+PrintStringInfo('** ----------------- ',FinalCFileName,'file','y');
+PrintStringInfo('** --- Includes. --- ',FinalCFileName,'file','y');
+PrintStringInfo('** ----------------- ',FinalCFileName,'file','y');
+PrintStringInfo('*/',FinalCFileName,'file','y');
+PrintStringInfo('#include ""'+tmphdrname+tmphdrext+'""',...
+   FinalCFileName,'file','y');
+PrintStringInfo('/*',FinalCFileName,'file','y');
+PrintStringInfo('** --------------------- ',FinalCFileName,'file','y');
+PrintStringInfo('** --- End Includes. --- ',FinalCFileName,'file','y');
+PrintStringInfo('** --------------------- ',FinalCFileName,'file','y');
+PrintStringInfo('*/',FinalCFileName,'file','y');
+PrintStringInfo(' ',FinalCFileName,'file','y');
+PrintStringInfo(' ',FinalCFileName,'file','y');
+PrintStringInfo(' ',FinalCFileName,'file','y');
+SCI2Ccopyfile(CPass2FileName,...
+   FinalCFileName,'append');
+SCI2Ccopyfile(Pass1HeaderFileName,...
+   FinalHeaderFileName,'append');
+
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_ForExpression.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_ForExpression.sci
new file mode 100644
index 00000000..a290a24e
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_ForExpression.sci
@@ -0,0 +1,88 @@
+function SharedInfo = C_ForExpression(FileInfo,SharedInfo)
+// function SharedInfo = C_ForExpression(FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+//
+// Status:
+// 15-Nov-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),2,2);
+
+nxtscifunname    = SharedInfo.NextSCIFunName;
+nxtscifunnumber  = SharedInfo.NextSCIFunNumber;
+
+ReportFileName        = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+CPass1FileName        = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
+CPass1ForProlFileName = FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level);
+CDeclarationFileName  = FileInfo.Funct(nxtscifunnumber).CDeclarationFileName;
+CPass1ForEpilFileName = FileInfo.Funct(nxtscifunnumber).CPass1ForEpilFileName(SharedInfo.For.Level);
+
+CCall ='';
+
+if (SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.EqScalar)
+
+   [C_Strings,NumCStrings] = File2StringArray(FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level));
+   C_Strings = stripblanks(C_Strings);
+   
+   for cntstr = 1:NumCStrings
+      PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
+   end
+   PrintStringInfo(' ',CPass1ForEpilFileName ,'file','y');
+
+elseif (SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.OpColon)
+   [C_Strings,NumCStrings] = File2StringArray(FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level));
+   C_Strings = stripblanks(C_Strings);
+   for cntstr = 1:NumCStrings
+      PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
+      PrintStringInfo(C_Strings(cntstr),CPass1ForEpilFileName ,'file','y');
+   end
+   PrintStringInfo('}',CPass1ForEpilFileName ,'file','y');
+   
+   CCall = 'for('+SharedInfo.ForExpr.SclValCntArg.Name+' = '+SharedInfo.ForExpr.OpColonInfoIn1+'; '...
+           +SharedInfo.ForExpr.SclValCntArg.Name+' <= '+SharedInfo.ForExpr.OpColonInfoIn3+'; '...
+           +SharedInfo.ForExpr.SclValCntArg.Name+' += '+SharedInfo.ForExpr.OpColonInfoIn2+')';
+   PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+   
+   CCall = '{';
+   PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+   
+   SharedInfo.NIndent = SharedInfo.NIndent + 1;
+   
+elseif (SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.EqMatrix | ...
+        SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.GenFunMtx)
+
+
+   [C_Strings,NumCStrings] = File2StringArray(FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level));
+   C_Strings = stripblanks(C_Strings);
+   
+   for cntstr = 1:NumCStrings
+      PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
+      PrintStringInfo(C_Strings(cntstr),CPass1ForEpilFileName ,'file','y');
+   end
+   
+   PrintStringInfo('}',CPass1ForEpilFileName ,'file','y');
+   
+   CCall = 'for('+SharedInfo.ForExpr.IntCntArg.Name+' = 0'+'; '+...
+           SharedInfo.ForExpr.IntCntArg.Name+' < '+SharedInfo.ForExpr.MtxValCntArg.Size(1)+'*'+SharedInfo.ForExpr.MtxValCntArg.Size(2)+'; '+...
+           SharedInfo.ForExpr.IntCntArg.Name+'++)';
+   PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+
+   CCall = '{';
+   PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+   
+   SharedInfo.NIndent = SharedInfo.NIndent + 1;
+   
+   CCall = SharedInfo.ForExpr.SclValCntArg.Name+' = '+SharedInfo.ForExpr.MtxValCntArg.Name+'['+SharedInfo.ForExpr.IntCntArg.Name+'];';
+   PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+
+else 
+   SCI2Cerror('Could not manage the for expression.');
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_Funcall.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_Funcall.sci
new file mode 100644
index 00000000..643b3d43
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_Funcall.sci
@@ -0,0 +1,220 @@
+function SharedInfo = C_Funcall(FunInfo,FileInfo,SharedInfo,FlagCall)
+// function SharedInfo = C_Funcall(FunInfo,FileInfo,SharedInfo,FlagCall)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),4,4);
+
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+nxtscifunname    = SharedInfo.NextSCIFunName;
+nxtscifunnumber  = SharedInfo.NextSCIFunNumber;
+
+ReportFileName       = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+CPass1FileName       = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
+CPass1FreeFileName   = FileInfo.Funct(nxtscifunnumber).CPass1FreeFileName;
+HeaderFileName       = FileInfo.Funct(nxtscifunnumber).Pass1HeaderFileName;
+CDeclarationFileName = FileInfo.Funct(nxtscifunnumber).CDeclarationFileName;
+CInitVarsFileName    = FileInfo.Funct(nxtscifunnumber).CInitVarsFileName;
+IndentLevel          = SharedInfo.NIndent;
+CCall                = '';
+
+FunctionName      = FunInfo.SCIFunctionName;
+CFunName          = FunInfo.CFunctionName;
+InArg             = FunInfo.InArg;
+NInArg            = FunInfo.NInArg;
+OutArg            = FunInfo.OutArg;
+NOutArg           = FunInfo.NOutArg;
+PosFirstOutScalar = FunInfo.PosFirstOutScalar;
+
+
+
+if (SharedInfo.SkipNextFun > 0)
+   SharedInfo.SkipNextFun = SharedInfo.SkipNextFun - 1;
+   return;
+end
+
+if ((sum(mtlb_strcmp(FunctionName,SharedInfo.Annotations.DataPrec)) > 0) & ...
+    (SharedInfo.SkipNextPrec == 1))
+   SharedInfo.SkipNextPrec = SharedInfo.SkipNextPrec - 1;
+   return;
+end
+
+if ((mtlb_strcmp(FunctionName,'OpEqual')) & ...
+    (SharedInfo.SkipNextEqual == 1))
+   SharedInfo.SkipNextEqual = SharedInfo.SkipNextEqual - 1;
+   return;
+end
+
+
+
+CCall ='';
+if (FunInfo.CFunctionName == SharedInfo.CMainFunName)
+   if (FlagCall == 1)
+      SCI2Cerror('main function called in a source code!');
+   else
+      CCall =CCall+'SCI2Cint ';
+   end
+else
+   if (PosFirstOutScalar >= 1)
+      if (FlagCall == 1)
+         CCall = CCall+OutArg(PosFirstOutScalar).Name+' = ';
+      else
+         CCall = CCall+C_Type(OutArg(PosFirstOutScalar).Type)+' ';
+      end
+   else
+      if (FlagCall == 0)
+         CCall = CCall+'void ';
+      end
+   end
+end
+
+
+CCall = CCall+CFunName+'(';
+
+clear counterin
+for counterin = 1:NInArg
+
+   if (InArg(counterin).Type == 'g' & InArg(counterin).Scope == 'String')
+      TmpInArgName = '""'+InArg(counterin).Name+'""';
+   elseif (InArg(counterin).Type == 'z' & (InArg(counterin).Scope == 'Number'))
+      TmpInArgName = 'DoubleComplex('+SCI2Cstring(real(InArg(counterin).Value))+','+SCI2Cstring(imag(InArg(counterin).Value))+')';
+   elseif (InArg(counterin).Type == 'c' & (InArg(counterin).Scope == 'Number'))
+      TmpInArgName = 'FloatComplex('+SCI2Cstring(real(InArg(counterin).Value))+','+SCI2Cstring(imag(InArg(counterin).Value))+')';
+   else
+      TmpInArgName = InArg(counterin).Name;
+   end
+   
+   TmpInArgType = C_Type(InArg(counterin).Type);
+   
+   //if (FunctionName == 'OpEqual')
+   //      TmpInArgSizeVar = '__'+OutArg(counterin).Name+'Size';
+   // else
+   TmpInArgSizeVar = '__'+InArg(counterin).Name+'Size';   
+   //end
+      
+   if (InArg(counterin).Dimension == 0)
+      if (FlagCall == 0)
+         CCall = CCall+TmpInArgType+' ';
+      end
+      CCall = CCall+TmpInArgName+',';
+   else
+      if (FlagCall == 0)
+         CCall = CCall+TmpInArgType+'* '+TmpInArgName+', SCI2Cint* __'+TmpInArgName+'Size,';
+      else
+         CCall = CCall+'('+TmpInArgType+'* )'+TmpInArgName+',  '+TmpInArgSizeVar+',';
+      end
+   end
+end
+
+for counterout = 1:NOutArg
+   TmpOutArgName = OutArg(counterout).Name;
+   TmpOutArgType = C_Type(OutArg(counterout).Type);
+   if (counterout == PosFirstOutScalar)
+      if (FlagCall == 0)
+         // --- Write in the declaration file the returned output scalar (if any). ---
+         outscalardeclaration = TmpOutArgType+' '+TmpOutArgName+';';
+         PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CDeclarationFileName,'file','y');
+         PrintStringInfo(' ',CDeclarationFileName,'file','y');
+      end
+   else
+      if (OutArg(counterout).Dimension == 0)
+         if (FlagCall == 0)
+            // --- Write in the declaration file the returned output scalar (if any). ---
+            outscalardeclaration = TmpOutArgType+' '+TmpOutArgName+';';
+            PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CDeclarationFileName,'file','y');
+            PrintStringInfo(' ',CDeclarationFileName,'file','y');
+            CCall = CCall+TmpOutArgType+'* __ptr'+TmpOutArgName+', ';
+         else
+            CCall = CCall+'&'+TmpOutArgName+', ';//NUT: verifica se ci vuole l'&
+         end
+      else
+         if (FlagCall == 0)
+            CCall = CCall+TmpOutArgType+'* '+TmpOutArgName+',';
+            if (OutArg(counterout).FindLike == 1)  
+               CCall = CCall+'SCI2Cint* __'+TmpOutArgName+'Size'+',';
+            end
+            outscalardeclaration = 'SCI2Cint __'+TmpOutArgName+'Size[2];';
+            PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CDeclarationFileName,'file','y');
+            outscalardeclaration = '__'+TmpOutArgName+'Size[0] = '+(OutArg(counterout).Size(1))+';';
+            PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CInitVarsFileName,'file','y');
+            outscalardeclaration = '__'+TmpOutArgName+'Size[1] = '+(OutArg(counterout).Size(2))+';';
+            PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CInitVarsFileName,'file','y');
+            PrintStringInfo(' ',CInitVarsFileName,'file','y');
+         else
+            CCall = CCall+'('+TmpOutArgType+'* )'+OutArg(counterout).Name+',';
+            if (OutArg(counterout).FindLike == 1)  
+               CCall = CCall+'(SCI2Cint* ) __'+TmpOutArgName+'Size'+',';
+            end            
+         end
+      end
+   end
+end
+
+if (part(CCall,length(CCall):length(CCall)) == ' ')
+   CCall = part(CCall,1:length(CCall)-1);
+end
+if (part(CCall,length(CCall):length(CCall)) == ',')
+   CCall = part(CCall,1:length(CCall)-1);
+end
+
+CCall = CCall+')';
+if (FlagCall == 1)
+   CCall = CCall+';';
+end
+//NUT: la parte di generazione della C call va inserita in una funzione a parte.
+//NUT: tale funzione deve avere anche uno switch che consenta di generare differenti versioni
+//NUT: delle chiamate C in accordo con la libreria disponibile, fermo restando che 
+//NUT:  e' sempre possibile fornire la lista delle macro.
+if mtlb_strcmp(FunctionName,'return')
+   // Here I introduce the pointer assignment for output scalar arguments.
+   for cntout = 1:SharedInfo.CurrentFunInfo.NOutArg
+      if (cntout ~= SharedInfo.CurrentFunInfo.PosFirstOutScalar & ...
+          SharedInfo.CurrentFunInfo.OutArg(cntout).Dimension == 0)
+         CCall = '';
+         CCall = CCall+'*__ptr'+SharedInfo.CurrentFunInfo.OutArg(cntout).Name+' = '+...
+            SharedInfo.CurrentFunInfo.OutArg(cntout).Name+';';
+         PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
+      end
+   end
+
+   PrintStringInfo(C_IndentBlanks(1)+'/*',CPass1FreeFileName,'file','y');
+   PrintStringInfo(C_IndentBlanks(1)+'** ------------------------- ',CPass1FreeFileName,'file','y');
+   PrintStringInfo(C_IndentBlanks(1)+'** --- End Free Section. --- ',CPass1FreeFileName,'file','y');
+   PrintStringInfo(C_IndentBlanks(1)+'** ------------------------- ',CPass1FreeFileName,'file','y');
+   PrintStringInfo(C_IndentBlanks(1)+'*/',CPass1FreeFileName,'file','y');
+   PrintStringInfo(' ',CPass1FreeFileName,'file','y');
+   SCI2Ccopyfile(CPass1FreeFileName,...
+      CPass1FileName,'append');
+
+   CCall = '';
+   if (SharedInfo.CurrentFunInfo.CFunctionName == SharedInfo.CMainFunName)
+      CCall = CCall+'return(0);';
+   else
+      if (SharedInfo.CurrentFunInfo.PosFirstOutScalar > 0)
+         CCall = CCall+'return('+SharedInfo.CurrentFunInfo.OutArg(SharedInfo.CurrentFunInfo.PosFirstOutScalar).Name+');'
+      end
+   end
+   PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
+else
+   PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
+   if (FlagCall == 0)
+      // Add prototype to the header file
+      C_InitHeader(CCall+';',HeaderFileName,SharedInfo.Sci2CLibMainHeaderFName);
+      
+      // Add { at the beginning of the function.
+      PrintStringInfo(C_IndentBlanks(IndentLevel)+'{',CPass1FileName,'file','y');
+      
+   end
+end
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenDeclarations.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenDeclarations.sci
new file mode 100644
index 00000000..795d182d
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenDeclarations.sci
@@ -0,0 +1,92 @@
+function Cdeclaration = C_GenDeclarations(ArgStruct,CDeclarationFileName,IndentLevel,ReportFileName,FlagExt)
+// function Cdeclaration = C_GenDeclarations(ArgStruct,CDeclarationFileName,IndentLevel,ReportFileName,FlagExt)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),5,5);
+
+//NUT: ilnome di questa funzione va cambiato perche' le dichiarazioni le fanno anche i for e i while.
+
+
+Cdeclaration = '';
+NDeclarations = 0;
+if (ArgStruct.Dimension > 0)
+   if (FlagExt == 1)
+      Cdeclaration(1) = 'extern ';
+      Cdeclaration(2) = 'extern ';
+   else
+      Cdeclaration(1) = '';
+      Cdeclaration(2) = '';
+   end
+   //NUT: vedi Mem_Alloc_Out per maggiori info sulla rimozione della temp nella if
+   // if ((ArgStruct.Scope=='Temp') | (ArgStruct.FindLike == -1) | (SCI2Cisnum(ArgStruct.Size(1))==%F) | (SCI2Cisnum(ArgStruct.Size(2))==%F))
+   if (ArgStruct.Type=='g')
+      if (isnan(ArgStruct.Value))
+         Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
+            ' * '+ArgStruct.Name+';';         
+      else
+         Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
+            ' '+ArgStruct.Name+'['+ArgStruct.Size(1)+']['+ArgStruct.Size(2)+'] = {'+ArgStruct.Value+'};';
+      end
+      Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2] = {'+ArgStruct.Size(1)+','+ArgStruct.Size(2)+'};';
+      NDeclarations   = 2;
+   elseif ((ArgStruct.FindLike == -1) | (SCI2Cisnum(ArgStruct.Size(1))==%F) | (SCI2Cisnum(ArgStruct.Size(2))==%F))
+      // Generate only the pointer that will be used by the malloc function.
+      Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+'* '+...
+      ArgStruct.Name+';';
+      // Declare the Size array
+      Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2];';
+      NDeclarations   = 2;
+   else
+      // Declare the array with its size.
+      Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
+         ' '+ArgStruct.Name+'['+ArgStruct.Size(1)+']['+ArgStruct.Size(2)+'];';
+      Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2] = {'+ArgStruct.Size(1)+','+ArgStruct.Size(2)+'};';
+      NDeclarations   = 2;
+   end
+else
+   if (FlagExt == 1)
+      Cdeclaration(1) = 'extern ';
+   else
+      Cdeclaration(1) = '';
+   end
+   Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+' '+ArgStruct.Name;
+   if (~isnan(ArgStruct.Value) & (FlagExt == 0))
+      if isreal(ArgStruct.Value)
+         Cdeclaration(1) = Cdeclaration(1)+' = '+SCI2Cstring(ArgStruct.Value);
+      else
+         if (ArgStruct.Type == 'z')
+            Cdeclaration(1) = Cdeclaration(1)+' = DoubleComplex('+SCI2Cstring(real(ArgStruct.Value))+','+SCI2Cstring(imag(ArgStruct.Value))+')';
+         else
+            Cdeclaration(1) = Cdeclaration(1)+' = FloatComplex('+SCI2Cstring(real(ArgStruct.Value))+','+SCI2Cstring(imag(ArgStruct.Value))+')';
+         end
+      end
+   end
+   Cdeclaration(1) = Cdeclaration(1)+';';
+   NDeclarations = 1;
+end
+
+
+// --------------------------------------------
+// --- Write C declaration into the C file. ---
+// --------------------------------------------
+for cntdecl = 1:NDeclarations
+   PrintStringInfo('   '+Cdeclaration(cntdecl),ReportFileName,'file','y');
+end
+for cntdecl = 1:NDeclarations
+   PrintStringInfo(C_IndentBlanks(IndentLevel)+Cdeclaration(cntdecl),CDeclarationFileName,'file','y');
+end
+PrintStringInfo(' ',CDeclarationFileName,'file','y');
+
+endfunction
+//NUT: dove sta il controllo che verifica se dopo aver dichiarato una local A[10] essa viene utilizzata
+//NUT: per memorizzare un A = sin(B) dove B[11]??
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateFunName.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateFunName.sci
new file mode 100644
index 00000000..3ab9daed
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateFunName.sci
@@ -0,0 +1,38 @@
+function CFunName = C_GenerateFunName(FunctionName,InArg,NInArg,OutArg,NOutArg)
+// function CFunName = C_GenerateFunName(FunctionName,InArg,NInArg,OutArg,NOutArg)
+// -----------------------------------------------------------------
+//
+// Status:
+// 26-Oct-2007 -- Raffaele Nutricato: Author.
+// 26-Oct-2007 -- Alberto Morea: Test Ok.
+// 11-Nov-2007 -- Raffaele Nutricato: changed naming rule.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),5,5);
+CFunName = '';
+
+for tmpcnt = 1:NInArg
+   if (InArg(tmpcnt).Dimension == 1)
+      CFunName = CFunName+InArg(tmpcnt).Type+'2';
+   else
+      CFunName = CFunName+InArg(tmpcnt).Type+SCI2Cstring(InArg(tmpcnt).Dimension);
+   end
+end
+
+CFunName = CFunName+FunctionName;
+
+for tmpcnt = 1:NOutArg
+   if (OutArg(tmpcnt).Dimension == 1)
+      CFunName = CFunName+OutArg(tmpcnt).Type+'2';
+   else
+      CFunName = CFunName+OutArg(tmpcnt).Type+SCI2Cstring(OutArg(tmpcnt).Dimension);
+   end
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateLaunchScript.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateLaunchScript.sci
new file mode 100644
index 00000000..cedc0291
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateLaunchScript.sci
@@ -0,0 +1,75 @@
+function C_GenerateLaunchScript(OutDir,ListSCI2CInputPrmFiles)
+// function C_GenerateLaunchScript(OutDir,ListSCI2CInputPrmFiles)
+// -----------------------------------------------------------------
+//
+// Status:
+// 26-Jan-2008 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),2,2);
+
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+ScriptFileName = fullfile(OutDir,'LaunchRegressionTests.rc');
+NTranslations = size(ListSCI2CInputPrmFiles,1);
+// ---------------------------
+// --- End Initialization. ---
+// ---------------------------
+SCI2Cmdelete(ScriptFileName);
+PrintStringInfo('#! /bin/bash ',ScriptFileName,'file','y');
+PrintStringInfo(' ',ScriptFileName,'file','y');
+PrintStringInfo('maindir=$PWD',ScriptFileName,'file','y');
+PrintStringInfo(' ',ScriptFileName,'file','y');
+PrintStringInfo('INTIALIZE()',ScriptFileName,'file','y');
+PrintStringInfo('{',ScriptFileName,'file','y');
+PrintStringInfo('   reportfile=$maindir/RegressionTestsReport.txt',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""#############'+'#################"" > $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""REPORT OF THE REGRESSION TESTS"" > $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""#############'+'#################"" > $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""Author: Raffaele Nutricato"" > $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""Copyright 2008 Raffaele Nutricato"" > $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo "" "" > $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   cd $maindir   ',ScriptFileName,'file','y');
+PrintStringInfo('}',ScriptFileName,'file','y');
+PrintStringInfo(' ',ScriptFileName,'file','y');
+PrintStringInfo('EXECUTE()',ScriptFileName,'file','y');
+PrintStringInfo('{',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""xxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxxx'+'xxxxxxxxxxxx""',ScriptFileName,'file','y');
+PrintStringInfo('   echo "" "" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo "" "" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo "" "" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""xxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxxxxxxxx'+'xxxxxxx"" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo $testname ',ScriptFileName,'file','y');
+PrintStringInfo('   echo $testname >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""xxxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxx'+'xxxxxxxxxxxx"" ',ScriptFileName,'file','y');
+PrintStringInfo('   echo ""xxxxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxxxxx'+'xxxxxxxx"" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   cd $testname/C_Code',ScriptFileName,'file','y');
+PrintStringInfo('   make >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   cd $maindir',ScriptFileName,'file','y');
+PrintStringInfo('   echo "" "" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo "" "" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('   echo "" "" >> $reportfile',ScriptFileName,'file','y');
+PrintStringInfo('}',ScriptFileName,'file','y');
+PrintStringInfo(' ',ScriptFileName,'file','y');
+PrintStringInfo('#############'+'##############',ScriptFileName,'file','y');
+PrintStringInfo('### ADD YOUR TESTS HERE ###',ScriptFileName,'file','y');
+PrintStringInfo('##############'+'#############',ScriptFileName,'file','y');
+PrintStringInfo('INTIALIZE',ScriptFileName,'file','y');
+PrintStringInfo(' ',ScriptFileName,'file','y');
+
+for cnttransl = 1:NTranslations
+   [testpath,tmpname,tmpext] = fileparts(ListSCI2CInputPrmFiles(cnttransl));
+   testpath = ConvertPathMat2C(testpath,'cygwin');
+   PrintStringInfo('testname=""'+testpath+'""',ScriptFileName,'file','y');
+   PrintStringInfo('EXECUTE $testname',ScriptFileName,'file','y');
+   PrintStringInfo(' ',ScriptFileName,'file','y');
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateMakefile.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateMakefile.sci
new file mode 100644
index 00000000..dab2bf86
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateMakefile.sci
@@ -0,0 +1,77 @@
+function C_GenerateMakefile(FileInfo,SharedInfo)
+// function C_GenerateMakefile(FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+//
+// Status:
+// 26-Jan-2008 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),2,2);
+
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+PrintStepInfo('Generating Makefile '+FileInfo.MakefileFilename,...
+   FileInfo.GeneralReport,'both');
+// ---------------------------
+// --- End Initialization. ---
+// ---------------------------
+
+PrintStringInfo('# SCI2C Makefile',FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('# Copyright 2007 Raffaele Nutricato ',FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('# raffaele.nutricato@tiscali.it',FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('# -----------------------',FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('# --- USER PARAMETERS ---',FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('# -----------------------',FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('# --- DIRECTORIES AND FILES ---',FileInfo.MakefileFilename,'file','y');
+if (SharedInfo.CCompilerPathStyle == 'windows')
+   makeobjpath  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cobj';
+   makecsrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2ccode';
+   makehsrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cincludes';
+   makeisrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cinterfaces';
+   makesci2cdir = FileInfo.CStyleOutCCCodeDir;
+elseif (SharedInfo.CCompilerPathStyle == 'unix' | ...
+        SharedInfo.CCompilerPathStyle == 'cygwin')
+   makeobjpath  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cobj';
+   makecsrcdir  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2ccode';
+   makehsrcdir  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cincludes';
+   makeisrcdir  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cinterfaces';
+   makesci2cdir = FileInfo.CStyleOutCCCodeDir;
+else
+   PrintStringInfo(' ',ReportFileName,'stdout','y');
+   PrintStringInfo('SCI2CERROR: Unkwnown option for CCompilerPathStyle','','both','y');
+   PrintStringInfo('SCI2CERROR: Please check SCI2CInputParameters.sce file.','','both','y');
+   SCI2Cerror(' ');
+end
+
+PrintStringInfo('OBJDIR      = '+makeobjpath,FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('CSRCDIR     = '+makecsrcdir,FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('HSRCDIR     = '+makehsrcdir,FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('ISRCDIR     = '+makeisrcdir,FileInfo.MakefileFilename,'file','y');
+//PrintStringInfo('SCI2CDIR    = '+makesci2cdir,FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('SCI2CDIR    = .',FileInfo.MakefileFilename,'file','y');
+PrintStringInfo('EXEFILENAME = mytest.exe',FileInfo.MakefileFilename,'file','y');
+
+// -------------------------------
+// --- Open template makefile. ---
+// -------------------------------
+fidfile = SCI2COpenFileRead(FileInfo.MakefileTemplate);
+
+// -------------------
+// --- Read lines. ---
+// -------------------
+tmpline = mgetl(fidfile,1);
+while (meof(fidfile) == 0)
+   PrintStringInfo(tmpline,FileInfo.MakefileFilename,'file','y');
+   tmpline = mgetl(fidfile,1);
+end
+
+mclose(fidfile);
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfElseBlocks.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfElseBlocks.sci
new file mode 100644
index 00000000..e9375252
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfElseBlocks.sci
@@ -0,0 +1,50 @@
+function SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,InOutStatements)
+// function SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,InOutStatements)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),3,3);
+
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+nxtscifunname    = SharedInfo.NextSCIFunName;
+nxtscifunnumber  = SharedInfo.NextSCIFunNumber;
+
+ReportFileName   = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
+
+IndentLevel      = SharedInfo.NIndent;
+
+CCall = '';
+// ---------------------------
+// --- End Initialization. ---
+// ---------------------------
+
+// -----------------------------------------------------
+// --- Generate the C call/Update indentation level. ---
+// -----------------------------------------------------
+if (InOutStatements=='in')
+   CCall = CCall+'{';
+   PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
+   IndentLevel = IndentLevel + 1;
+elseif (InOutStatements=='out')
+   CCall = CCall+'}';
+   IndentLevel = IndentLevel - 1;
+   PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
+else
+   SCI2CerrorFile('Unknown setting for InOutStatements: '+InOutStatements'.',ReportFileName);
+end
+
+SharedInfo.NIndent = IndentLevel;
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfExpression.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfExpression.sci
new file mode 100644
index 00000000..020267fe
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfExpression.sci
@@ -0,0 +1,55 @@
+function SharedInfo = C_IfExpression(IfCondArg,NIfCondArg,ASTIfExpType,FileInfo,SharedInfo)
+// function SharedInfo = C_IfExpression(IfCondArg,NIfCondArg,ASTIfExpType,FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),5,5);
+
+if ((NIfCondArg ~= 1) & (ASTIfExpType~='else'))
+   SCI2CerrorFile('Cannot manage ""if/elseif"" with a number of condition variables not equal to 1.',ReportFileName);
+end
+
+nxtscifunname    = SharedInfo.NextSCIFunName;
+nxtscifunnumber  = SharedInfo.NextSCIFunNumber;
+
+ReportFileName   = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
+
+
+if (ASTIfExpType=='if')
+   CFunName = 'if';
+elseif (ASTIfExpType=='elseif')
+   CFunName = 'if';
+elseif (ASTIfExpType=='else')
+   CFunName = 'else';
+else
+   SCI2CerrorFile('Unknown ASTIfExpType ""'+ASTIfExpType+'"".',ReportFileName);
+end
+
+if SCI2Cstrncmps1size(ASTIfExpType,'else')
+   SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,'out');
+end
+
+CCall ='';
+CCall = CCall+CFunName;
+if (ASTIfExpType~='else')
+   CCall = CCall+'('+IfCondArg(1)+')';
+end
+PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+
+SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,'in');
+
+if (ASTIfExpType=='elseif')
+   SharedInfo.CountNestedIf = SharedInfo.CountNestedIf + 1;
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IndentBlanks.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IndentBlanks.sci
new file mode 100644
index 00000000..33b9896e
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IndentBlanks.sci
@@ -0,0 +1,21 @@
+function OutBlanksString = C_IndentBlanks(IndentLevel)
+// function OutBlanksString = C_IndentBlanks(IndentLevel)
+// -----------------------------------------------------------------
+//
+// Status:
+// 26-Oct-2007 -- Raffaele Nutricato: Author.
+// 26-Oct-2007 -- Alberto Morea: Test Ok.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),1,1);
+
+OutBlanksString = '';
+BlanksPerLevel  = '   ';
+for cntind = 1:IndentLevel
+   OutBlanksString = OutBlanksString + BlanksPerLevel;
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_InitHeader.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_InitHeader.sci
new file mode 100644
index 00000000..824db943
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_InitHeader.sci
@@ -0,0 +1,48 @@
+function C_InitHeader(C_Prototype,HeaderFileName,Sci2CLibMainHeaderFName)
+// function C_InitHeader(C_Prototype,HeaderFileName,Sci2CLibMainHeaderFName)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),3,3);
+
+      
+C_SCI2CHeader(HeaderFileName);
+PrintStringInfo('/*',HeaderFileName,'file','y');
+PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('** --- SCI2C Includes. --- ',HeaderFileName,'file','y');
+PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('*/',HeaderFileName,'file','y');
+PrintStringInfo('#include ""'+Sci2CLibMainHeaderFName+'""',HeaderFileName,'file','y');
+PrintStringInfo('/*',HeaderFileName,'file','y');
+PrintStringInfo('** --------------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('** --- End SCI2C Includes. --- ',HeaderFileName,'file','y');
+PrintStringInfo('** --------------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('*/',HeaderFileName,'file','y');
+PrintStringInfo(' ',HeaderFileName,'file','y');
+PrintStringInfo(' ',HeaderFileName,'file','y');
+PrintStringInfo('/*',HeaderFileName,'file','y');
+PrintStringInfo('** ------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('** --- Prototypes. --- ',HeaderFileName,'file','y');
+PrintStringInfo('** ------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('*/',HeaderFileName,'file','y');
+PrintStringInfo(C_IndentBlanks(0)+C_Prototype,HeaderFileName,'file','y');
+PrintStringInfo('/*',HeaderFileName,'file','y');
+PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('** --- End Prototypes. --- ',HeaderFileName,'file','y');
+PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
+PrintStringInfo('*/',HeaderFileName,'file','y');
+PrintStringInfo(' ',HeaderFileName,'file','y');
+PrintStringInfo(' ',HeaderFileName,'file','y');
+PrintStringInfo('/*',HeaderFileName,'file','y');
+PrintStringInfo('** ------------------------ ',HeaderFileName,'file','y');
+PrintStringInfo('** --- USER2C Includes. --- ',HeaderFileName,'file','y');
+PrintStringInfo('** ------------------------ ',HeaderFileName,'file','y');
+PrintStringInfo('*/',HeaderFileName,'file','y');
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_MemAllocOutTempVars.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_MemAllocOutTempVars.sci
new file mode 100644
index 00000000..5570f42a
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_MemAllocOutTempVars.sci
@@ -0,0 +1,32 @@
+function C_MemAllocOutTempVars(OutArg,NOutArg,CPass1FileName,CPass1FreeFileName,IndentLevel,ReportFileName)
+// function C_MemAllocOutTempVars(OutArg,NOutArg,CPass1FileName,CPass1FreeFileName,IndentLevel,ReportFileName)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),6,6);
+
+for counterout = 1:NOutArg
+   if (OutArg(counterout).Dimension > 0)
+      if ((OutArg(counterout).FindLike == -1) | (SCI2Cisnum(OutArg(counterout).Size(1))==%F) | (SCI2Cisnum(OutArg(counterout).Size(2))==%F))
+         OutArgName = OutArg(counterout).Name;
+         tmpcode = '__'+OutArgName+'Size[0]='+OutArg(counterout).Size(1)+';';
+         PrintStringInfo(C_IndentBlanks(IndentLevel)+tmpcode,CPass1FileName,'file','y');
+         PrintStringInfo('   '+tmpcode,ReportFileName,'file','y');
+         tmpcode = '__'+OutArgName+'Size[1]='+OutArg(counterout).Size(2)+';';
+         PrintStringInfo(C_IndentBlanks(IndentLevel)+tmpcode,CPass1FileName,'file','y');
+         PrintStringInfo('   '+tmpcode,ReportFileName,'file','y');
+         tmpcode = OutArgName+' = ('+C_Type(OutArg(counterout).Type)+'*) malloc(('+OutArg(counterout).Size(1)+')*('+OutArg(counterout).Size(2)+')*sizeof('+C_Type(OutArg(counterout).Type)+'));';
+         PrintStringInfo(C_IndentBlanks(IndentLevel)+tmpcode,CPass1FileName,'file','y');
+         PrintStringInfo('   '+tmpcode,ReportFileName,'file','y');
+         PrintStringInfo(C_IndentBlanks(1)+'free('+OutArgName+');',CPass1FreeFileName,'file','y');
+      end
+   end
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_SCI2CHeader.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_SCI2CHeader.sci
new file mode 100644
index 00000000..c121f6b7
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_SCI2CHeader.sci
@@ -0,0 +1,24 @@
+function C_SCI2CHeader(FileName)
+// function C_SCI2CHeader(FileName)
+// -----------------------------------------------------------------
+//
+// Status:
+// 21-Dec-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),1,1);
+
+      
+PrintStringInfo('/*',FileName,'file','y');
+PrintStringInfo('** ************************************************',FileName,'file','y');
+PrintStringInfo('** hArtes/POLIBA SCILAB2C',FileName,'file','y');
+PrintStringInfo('** Contact: raffaele.nutricato@tiscali.it',FileName,'file','y');
+PrintStringInfo('** ************************************************',FileName,'file','y');
+PrintStringInfo('*/',FileName,'file','y');
+PrintStringInfo(' ',FileName,'file','y');
+PrintStringInfo(' ',FileName,'file','y');
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_Type.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_Type.sci
new file mode 100644
index 00000000..36b0021a
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_Type.sci
@@ -0,0 +1,31 @@
+function OutC_Type = C_Type(ArgType)
+// function OutC_Type = C_Type(ArgType)
+// -----------------------------------------------------------------
+//
+// Status:
+// 27-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),1,1);
+
+if (ArgType == 's')
+   OutC_Type = 'float';
+elseif (ArgType == 'd')
+   OutC_Type = 'double';
+elseif (ArgType == 'c')
+   OutC_Type = 'floatComplex';
+elseif (ArgType == 'z')
+   OutC_Type = 'doubleComplex';
+elseif (ArgType == 'i')
+   OutC_Type = 'SCI2Cint';
+elseif (ArgType == 'g')
+   OutC_Type = 'char';
+elseif (ArgType == 'f')
+   OutC_Type = 'SCI2CFILEID';
+else
+   SCI2Cerror('Unknown Argument Type: ""'+ArgType+'"".');
+end
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_WhileExpression.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_WhileExpression.sci
new file mode 100644
index 00000000..cfd6b096
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/C_WhileExpression.sci
@@ -0,0 +1,43 @@
+function SharedInfo = C_WhileExpression(FileInfo,SharedInfo)
+// function SharedInfo = C_WhileExpression(FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+//
+// Status:
+// 15-Nov-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),2,2);
+
+nxtscifunname   = SharedInfo.NextSCIFunName;
+nxtscifunnumber = SharedInfo.NextSCIFunNumber;
+
+ReportFileName  = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+CPass1FileName  = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
+
+CPass1WhileProlFileName = FileInfo.Funct(nxtscifunnumber).CPass1WhileProlFileName(SharedInfo.While.Level);
+CPass1WhileEpilFileName = FileInfo.Funct(nxtscifunnumber).CPass1WhileEpilFileName(SharedInfo.While.Level);
+CDeclarationFileName    = FileInfo.Funct(nxtscifunnumber).CDeclarationFileName;
+
+CCall ='';
+
+[C_Strings,NumCStrings] = File2StringArray(CPass1WhileProlFileName);
+C_Strings = stripblanks(C_Strings);
+for cntstr = 1:NumCStrings
+   PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
+   PrintStringInfo(C_Strings(cntstr),CPass1WhileEpilFileName ,'file','y');
+end
+
+PrintStringInfo('}',CPass1WhileEpilFileName ,'file','y');
+   
+CCall = 'while('+SharedInfo.WhileExpr.CondVar+')';
+PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+   
+CCall = '{';
+PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
+   
+SharedInfo.NIndent = SharedInfo.NIndent + 1;   
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GenCFunDatFiles.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GenCFunDatFiles.sci
new file mode 100644
index 00000000..0f304ba3
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/GenCFunDatFiles.sci
@@ -0,0 +1,42 @@
+function GenCFunDatFiles(FunctionName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,CFunName,LibTypeInfo,FunInfoDatDir)
+// function GenCFunDatFiles(FunctionName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,CFunName,LibTypeInfo,FunInfoDatDir)
+// -----------------------------------------------------------------
+//
+// Status:
+// 30-Oct-2007 -- Raffaele Nutricato: Author.
+// 30-Oct-2007 -- Alberto Morea: Test Ok.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),11,11);
+
+
+PosFirstOutScalar = 0;
+FoundOutScalar = 0;
+for counterout = 1:NOutArg
+   if (OutArg(counterout).Dimension == 0)
+      if (FoundOutScalar==0)
+         PosFirstOutScalar = counterout;
+         FoundOutScalar = 1;
+      end
+   end
+end
+
+clear FunInfo
+FunInfo.SCIFunctionName     = FunctionName;
+FunInfo.CFunctionName       = CFunName;
+FunInfo.FunPrecSpecifier    = FunPrecSpecifier;
+FunInfo.FunTypeAnnot        = FunTypeAnnot;
+FunInfo.FunSizeAnnot        = FunSizeAnnot;
+FunInfo.InArg               = InArg;
+FunInfo.NInArg              = NInArg;
+FunInfo.OutArg              = OutArg;
+FunInfo.NOutArg             = NOutArg;
+FunInfo.PosFirstOutScalar   = PosFirstOutScalar;
+FunInfo.LibTypeInfo         = LibTypeInfo;
+save(fullfile(FunInfoDatDir,CFunName+'.dat'),FunInfo);
+clear FunInfo
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci
new file mode 100644
index 00000000..1f8195d0
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci
@@ -0,0 +1,63 @@
+function SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo)
+// function SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+//
+// Status:
+// 11-Jul-2007 -- Nutricato Raffaele: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),3,3);
+
+nxtscifunname   = SharedInfo.NextSCIFunName;
+nxtscifunnumber = SharedInfo.NextSCIFunNumber;
+
+ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+
+tmpannfilename   = FunName+'.ann';
+tmpscifilename   = FunName+'.sci';
+AnnFileName      = '';
+ClsFileName      = ''
+
+SCI2CClassSpecifier = SharedInfo.Annotations.FUNCLASS;
+FlagFoundAnnFile = 0;
+if SCI2Cfileexist(FileInfo.USER2CLibCAnnFun,tmpannfilename)
+   FlagFoundAnnFile   = 1;
+   AnnFileName        = fullfile(FileInfo.USER2CLibCAnnFun,tmpannfilename);
+   SCI2CClassName     = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
+   SCI2CClassFileName = fullfile(FileInfo.USER2CLibCAnnCls,SCI2CClassName+'.acls');
+elseif SCI2Cfileexist(FileInfo.USER2CLibSCIAnnFun,tmpannfilename)
+   FlagFoundAnnFile   = 1;
+   AnnFileName        = fullfile(FileInfo.USER2CLibSCIAnnFun,tmpannfilename);
+   SCI2CClassName     = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
+   SCI2CClassFileName = fullfile(FileInfo.USER2CLibSCIAnnCls,SCI2CClassName+'.acls');
+elseif (SCI2Cfileexist(FileInfo.SCI2CLibCAnnFun,tmpannfilename))
+   FlagFoundAnnFile   = 1;
+   AnnFileName        = fullfile(FileInfo.SCI2CLibCAnnFun,tmpannfilename);
+   SCI2CClassName     = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
+   SCI2CClassFileName = fullfile(FileInfo.SCI2CLibCAnnCls,SCI2CClassName+'.acls');
+elseif (SCI2Cfileexist(FileInfo.SCI2CLibSCIAnnFun,tmpannfilename))
+   FlagFoundAnnFile   = 1;
+   AnnFileName        = fullfile(FileInfo.SCI2CLibSCIAnnFun,tmpannfilename);
+   SCI2CClassName     = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
+   SCI2CClassFileName = fullfile(FileInfo.SCI2CLibSCIAnnCls,SCI2CClassName+'.acls');
+end
+
+if (FlagFoundAnnFile == 0)
+   [FlagFoundAnnFile,fullpathscifilename] = SCI2CFindFile(FileInfo.UserSciFilesPaths,FunName+'.sci');
+   if (FlagFoundAnnFile == 0)
+      PrintStringInfo(' ',ReportFileName,'both','y');
+      PrintStringInfo('SCI2CERROR: Missing function annotation. Could not find',ReportFileName,'both','y');
+      PrintStringInfo('SCI2CERROR: an associated .sci or .ann file for function: '+FunName,ReportFileName,'both','y');
+      PrintStringInfo(' ',ReportFileName,'both','y');
+      SCI2Cerror(' ');
+   end
+   AnnFileName        = fullfile(FileInfo.USER2CLibSCIAnnFun,tmpannfilename);
+   SCI2CClassName     = FunName;
+   SCI2CClassFileName = fullfile(FileInfo.USER2CLibSCIAnnCls,SCI2CClassName+'.acls');
+   Sci2AnnotationFile(fullpathscifilename,SCI2CClassFileName,AnnFileName,...
+      SharedInfo.Annotations.USERFUN,ReportFileName);
+end
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetSymbolDimension.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetSymbolDimension.sci
new file mode 100644
index 00000000..c47fdedb
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/GetSymbolDimension.sci
@@ -0,0 +1,42 @@
+function symboldimension = GetSymbolDimension(Field_Size)
+// function symboldimension = GetSymbolDimension(Field_Size)
+// -----------------------------------------------------------------
+// Status:
+// 26-Oct-2007 -- Raffaele Nutricato: Author.
+// 26-Oct-2007 -- Alberto Morea: Test Ok.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),1,1);
+
+Nelem = max(size(Field_Size));
+if (Nelem < 2)
+   SCI2Cerror('The size of a symbol cannot be expressed with one or zero numbers.');
+end
+for countersize = 1:Nelem
+   if (SCI2Cisnum(Field_Size(countersize)))
+      tmpnum = eval(Field_Size(countersize));
+      if (tmpnum == 0)
+         SCI2Cerror('Found a symbol that has zeros elements. 0xN or Nx0 matrices are not allowed.');
+      elseif (tmpnum == 1)
+         Field_Type(countersize) = 0;
+      else
+         Field_Type(countersize) = 1;
+      end
+   else
+     Field_Type(countersize) = 1;
+   end
+end
+
+Sum_Field_Type = sum(Field_Type);
+if (Sum_Field_Type == 0)
+   symboldimension = 0;
+elseif (Sum_Field_Type == 1)
+   symboldimension = 2;
+else
+   symboldimension = 2;
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetWhileCondVariable.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetWhileCondVariable.sci
new file mode 100644
index 00000000..1a76023a
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/GetWhileCondVariable.sci
@@ -0,0 +1,24 @@
+function SharedInfo = GetWhileCondVariable(OutArg,NOutArg,FunctionName,FileInfo,SharedInfo)
+// function SharedInfo = GetWhileCondVariable(OutArg,NOutArg,FunctionName,FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+//
+// Status:
+// 26-Oct-2007 -- Raffaele Nutricato: Author.
+// 26-Oct-2007 -- Alberto Morea: Test Ok.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),5,5);
+
+nxtscifunname        = SharedInfo.NextSCIFunName;
+nxtscifunnumber      = SharedInfo.NextSCIFunNumber;
+ReportFileName       = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+
+if ((SharedInfo.WhileExpr.OnExec > 0) & (NOutArg==1))
+   SharedInfo.WhileExpr.CondVar = OutArg(1).Name;
+      SharedInfo.WhileExpr.DimCondVar = OutArg(1).Dimension;
+end
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/JoinDeclarAndCcode.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/JoinDeclarAndCcode.sci
new file mode 100644
index 00000000..a869cdab
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/JoinDeclarAndCcode.sci
@@ -0,0 +1,123 @@
+function JoinDeclarAndCcode(FileInfoDatFile)
+// function JoinDeclarAndCcode(FileInfoDatFile)
+// -----------------------------------------------------------------
+// Status:
+// 07-Nov-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),1,1);
+
+load(FileInfoDatFile,'FileInfo');
+
+load(FileInfo.SharedInfoDatFile,'SharedInfo');
+
+nxtscifunname   = SharedInfo.NextSCIFunName;
+funnumber = SharedInfo.NextSCIFunNumber;
+
+CPass1FileName       = FileInfo.Funct(funnumber).CPass1FileName;
+CPass2FileName       = FileInfo.Funct(funnumber).CPass2FileName;
+CDeclarationFileName = FileInfo.Funct(funnumber).CDeclarationFileName;
+CGblDeclarFileName   = FileInfo.Funct(funnumber).CGblDeclarFileName;
+CInitVarsFileName    = FileInfo.Funct(funnumber).CInitVarsFileName;
+ReportFileName       = FileInfo.Funct(funnumber).ReportFileName;
+
+CPass1V1FileFid      = SCI2COpenFileRead(CPass1FileName);
+CDeclarationFileFid  = SCI2COpenFileRead(CDeclarationFileName);
+CGblDeclarFileFid    = SCI2COpenFileRead(CGblDeclarFileName);
+CInitVarsFileFid     = SCI2COpenFileRead(CInitVarsFileName);
+
+
+PrintStringInfo('/*',CPass2FileName,'file','y');
+PrintStringInfo('** -------------------------------------',CPass2FileName,'file','y');
+PrintStringInfo('** --- Global Variables Declaration. ---',CPass2FileName,'file','y');
+PrintStringInfo('** -------------------------------------',CPass2FileName,'file','y');
+PrintStringInfo('*/',CPass2FileName,'file','y');
+
+while (~meof(CGblDeclarFileFid))
+
+   tmpcline = mgetl(CGblDeclarFileFid,1);
+   if (length(tmpcline) == 0)
+      tmpcline = ' ';
+   end
+
+   noblkstmpcline = stripblanks(tmpcline);
+   PrintStringInfo(tmpcline,CPass2FileName,'file','y');
+end
+PrintStringInfo('/*',CPass2FileName,'file','y');
+PrintStringInfo('** -----------------------------------------',CPass2FileName,'file','y');
+PrintStringInfo('** --- End Global Variables Declaration. ---',CPass2FileName,'file','y');
+PrintStringInfo('** -----------------------------------------',CPass2FileName,'file','y');
+PrintStringInfo('*/',CPass2FileName,'file','y');
+PrintStringInfo(' ',CPass2FileName,'file','y');
+
+FoundCurlyBracket = 0;
+while ((~meof(CPass1V1FileFid)) & (FoundCurlyBracket == 0))
+   tmpcline = mgetl(CPass1V1FileFid,1);
+   noblkstmpcline = stripblanks(tmpcline);
+   if (length(noblkstmpcline) > 0)
+      if (SCI2Cstrncmps1size('{',noblkstmpcline))
+         FoundCurlyBracket = 1;
+      end
+   else
+      tmpcline = ' ';
+   end
+   PrintStringInfo(tmpcline,CPass2FileName,'file','y');
+end
+
+if (FoundCurlyBracket == 0)
+   SCI2CerrorFile('""{"" char not found in:'+CPass1FileName,ReportFileName);
+end
+
+PrintStringInfo('/*',CPass2FileName,'file','y');
+PrintStringInfo('** -----------------------------',CPass2FileName,'file','y');
+PrintStringInfo('** --- Variable Declaration. ---',CPass2FileName,'file','y');
+PrintStringInfo('** -----------------------------',CPass2FileName,'file','y');
+PrintStringInfo('*/',CPass2FileName,'file','y');
+while (~meof(CDeclarationFileFid))
+   tmpcline = mgetl(CDeclarationFileFid,1);
+   if (length(tmpcline) == 0)
+      tmpcline = ' ';
+   end
+
+   noblkstmpcline = stripblanks(tmpcline);
+   PrintStringInfo(tmpcline,CPass2FileName,'file','y');
+end
+
+while (~meof(CInitVarsFileFid))
+   tmpcline = mgetl(CInitVarsFileFid,1);
+   if (length(tmpcline) == 0)
+      tmpcline = ' ';
+   end
+
+   noblkstmpcline = stripblanks(tmpcline);
+   PrintStringInfo(tmpcline,CPass2FileName,'file','y');
+end
+PrintStringInfo('/*',CPass2FileName,'file','y');
+PrintStringInfo('** ---------------------------------',CPass2FileName,'file','y');
+PrintStringInfo('** --- End Variable Declaration. ---',CPass2FileName,'file','y');
+PrintStringInfo('** ---------------------------------',CPass2FileName,'file','y');
+PrintStringInfo('*/',CPass2FileName,'file','y');
+
+
+PrintStringInfo('/*',CPass2FileName,'file','y');
+PrintStringInfo('** ---------------',CPass2FileName,'file','y');
+PrintStringInfo('** --- C code. ---',CPass2FileName,'file','y');
+PrintStringInfo('** ---------------',CPass2FileName,'file','y');
+PrintStringInfo('*/',CPass2FileName,'file','y');
+while (~meof(CPass1V1FileFid))
+   tmpcline = mgetl(CPass1V1FileFid,1);
+   if (length(tmpcline) == 0)
+      tmpcline = ' ';
+   end
+   PrintStringInfo(tmpcline,CPass2FileName,'file','y');
+end
+
+mclose(CPass1V1FileFid);
+mclose(CDeclarationFileFid);
+mclose(CGblDeclarFileFid);
+mclose(CInitVarsFileFid);
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.bkp b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.bkp
new file mode 100644
index 00000000..0574ab5a
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.bkp
@@ -0,0 +1,230 @@
+
+# --- C COMPILER ---
+CC = gcc
+CFLAGS = -Wall -pedantic -O3 -I $(HSRCDIR)
+# ---------------------------
+# --- END USER PARAMETERS ---
+# ---------------------------
+
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# DON'T TOUCH ANYTHING BELOW THIS LINE 
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+
+ELEMENTARY_FUNCTIONS_DIR = $(CSRCDIR)/src/elementaryFunctions
+CFLAGS_ELEMENTARY_FUNCTIONS   = -I $(ELEMENTARY_FUNCTIONS_DIR)/includes -I $(ELEMENTARY_FUNCTIONS_DIR)/interfaces
+
+
+EXEFILE = $(SCI2CDIR)/$(EXEFILENAME)
+
+objects = \
+	$(OBJDIR)/doubleComplex.o \
+	$(OBJDIR)/floatComplex.o \
+	$(OBJDIR)/RealToComplex.o \
+	$(OBJDIR)/conj.o \
+	$(OBJDIR)/disp.o \
+	$(OBJDIR)/ones.o \
+	$(OBJDIR)/zeros.o \
+	$(OBJDIR)/OpApex.o \
+	$(OBJDIR)/OpColon.o \
+	$(OBJDIR)/OpDotStar.o \
+	$(OBJDIR)/OpDotHat.o \
+	$(OBJDIR)/OpDotSlash.o \
+	$(OBJDIR)/OpEqual.o \
+	$(OBJDIR)/OpPlus.o \
+	$(OBJDIR)/OpMinus.o \
+	$(OBJDIR)/OpStar.o \
+	$(OBJDIR)/OpIns.o \
+	$(OBJDIR)/OpExt.o \
+	$(OBJDIR)/OpRc.o \
+	$(OBJDIR)/OpCc.o \
+	$(OBJDIR)/cos.o \
+	$(OBJDIR)/cosh.o \
+	$(OBJDIR)/sin.o \
+	$(OBJDIR)/sinh.o  \
+	$(OBJDIR)/FileManagement.o \
+	$(OBJDIR)/OpLogLt.o \
+	$(OBJDIR)/OpLogGt.o \
+	$(OBJDIR)/OpLogGe.o \
+	$(OBJDIR)/OpLogLe.o \
+	$(OBJDIR)/OpLogEq.o \
+	$(OBJDIR)/Find.o \
+	$(OBJDIR)/ConvertPrecision.o \
+	$(OBJDIR)/SCI2Cfft.o \
+	$(OBJDIR)/SCI2Cconvol.o \
+	$(OBJDIR)/ssqrts.o \
+	$(OBJDIR)/dsqrts.o \
+	$(OBJDIR)/csqrts.o \
+	$(OBJDIR)/zsqrts.o \
+	$(OBJDIR)/ssqrta.o \
+	$(OBJDIR)/dsqrta.o \
+	$(OBJDIR)/csqrta.o \
+	$(OBJDIR)/zsqrta.o 
+
+# ---------------
+# --- TARGETS ---
+# ---------------
+compileexecute: $(objects) 
+	@echo " "
+	@echo "============================"
+	@echo "Generation of the executable"
+	@echo "============================"
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) $(objects) $(SCI2CDIR)/*.c -o $(EXEFILE)
+	@echo " "
+	@echo "=============="
+	@echo "Executing code"
+	@echo "=============="
+	$(EXEFILE)
+
+clean:  
+	@echo " "
+	@echo "============================="
+	@echo "Removing only exe + obj files"
+	@echo "============================="
+	rm -rf $(EXEFILE)
+	rm -rf $(objects)
+	@echo " "
+
+cleanexe:  
+	@echo " "
+	@echo "=========================="
+	@echo "Removing only the exe file"
+	@echo "=========================="
+	rm -rf $(EXEFILE)
+	@echo " "
+
+$(OBJDIR)/doubleComplex.o: $(CSRCDIR)/doubleComplex.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/doubleComplex.c -o $(OBJDIR)/doubleComplex.o
+
+$(OBJDIR)/floatComplex.o: $(CSRCDIR)/floatComplex.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/floatComplex.c -o $(OBJDIR)/floatComplex.o
+
+$(OBJDIR)/RealToComplex.o: $(CSRCDIR)/RealToComplex.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/RealToComplex.c -o $(OBJDIR)/RealToComplex.o
+
+$(OBJDIR)/conj.o: $(CSRCDIR)/conj.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/conj.c -o $(OBJDIR)/conj.o
+
+$(OBJDIR)/disp.o: $(CSRCDIR)/disp.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/disp.c	-o $(OBJDIR)/disp.o 
+
+$(OBJDIR)/zeros.o: $(CSRCDIR)/zeros.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/zeros.c -o $(OBJDIR)/zeros.o
+
+$(OBJDIR)/ones.o: $(CSRCDIR)/ones.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/ones.c -o $(OBJDIR)/ones.o
+
+$(OBJDIR)/OpApex.o: $(CSRCDIR)/OpApex.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpApex.c -o $(OBJDIR)/OpApex.o
+
+$(OBJDIR)/OpColon.o: $(CSRCDIR)/OpColon.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpColon.c -o $(OBJDIR)/OpColon.o
+
+$(OBJDIR)/OpDotStar.o: $(CSRCDIR)/OpDotStar.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpDotStar.c -o $(OBJDIR)/OpDotStar.o
+
+$(OBJDIR)/OpDotHat.o: $(CSRCDIR)/OpDotHat.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpDotHat.c -o $(OBJDIR)/OpDotHat.o
+
+$(OBJDIR)/OpDotSlash.o: $(CSRCDIR)/OpDotSlash.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpDotSlash.c -o $(OBJDIR)/OpDotSlash.o
+
+$(OBJDIR)/OpEqual.o: $(CSRCDIR)/OpEqual.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpEqual.c -o $(OBJDIR)/OpEqual.o
+
+$(OBJDIR)/OpPlus.o: $(CSRCDIR)/OpPlus.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpPlus.c -o $(OBJDIR)/OpPlus.o
+   
+$(OBJDIR)/OpMinus.o: $(CSRCDIR)/OpMinus.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpMinus.c -o $(OBJDIR)/OpMinus.o
+   
+$(OBJDIR)/OpStar.o: $(CSRCDIR)/OpStar.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpStar.c -o $(OBJDIR)/OpStar.o
+
+$(OBJDIR)/OpIns.o: $(CSRCDIR)/OpIns.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpIns.c -o $(OBJDIR)/OpIns.o
+   
+$(OBJDIR)/OpExt.o: $(CSRCDIR)/OpExt.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpExt.c -o $(OBJDIR)/OpExt.o
+
+$(OBJDIR)/OpRc.o: $(CSRCDIR)/OpRc.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpRc.c -o $(OBJDIR)/OpRc.o
+   
+$(OBJDIR)/OpCc.o: $(CSRCDIR)/OpCc.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpCc.c -o $(OBJDIR)/OpCc.o
+
+$(OBJDIR)/cos.o: $(CSRCDIR)/cos.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/cos.c -o $(OBJDIR)/cos.o
+
+$(OBJDIR)/cosh.o: $(CSRCDIR)/cosh.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/cosh.c -o $(OBJDIR)/cosh.o
+
+$(OBJDIR)/sin.o: $(CSRCDIR)/sin.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/sin.c -o $(OBJDIR)/sin.o
+   
+$(OBJDIR)/sinh.o: $(CSRCDIR)/sinh.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/sinh.c -o $(OBJDIR)/sinh.o 
+
+$(OBJDIR)/FileManagement.o: $(CSRCDIR)/FileManagement.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/FileManagement.c -o $(OBJDIR)/FileManagement.o 
+
+$(OBJDIR)/OpLogLt.o: $(CSRCDIR)/OpLogLt.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogLt.c -o $(OBJDIR)/OpLogLt.o 
+
+$(OBJDIR)/OpLogGt.o: $(CSRCDIR)/OpLogGt.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogGt.c -o $(OBJDIR)/OpLogGt.o 
+
+$(OBJDIR)/OpLogLe.o: $(CSRCDIR)/OpLogLe.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogLe.c -o $(OBJDIR)/OpLogLe.o 
+
+$(OBJDIR)/OpLogGe.o: $(CSRCDIR)/OpLogGe.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogGe.c -o $(OBJDIR)/OpLogGe.o 
+
+$(OBJDIR)/OpLogEq.o: $(CSRCDIR)/OpLogEq.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogEq.c -o $(OBJDIR)/OpLogEq.o 
+
+$(OBJDIR)/Find.o: $(CSRCDIR)/Find.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/Find.c -o $(OBJDIR)/Find.o 
+
+$(OBJDIR)/ConvertPrecision.o: $(CSRCDIR)/ConvertPrecision.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/ConvertPrecision.c -o $(OBJDIR)/ConvertPrecision.o 
+
+$(OBJDIR)/SCI2Cfft.o: $(CSRCDIR)/SCI2Cfft.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/SCI2Cfft.c -o $(OBJDIR)/SCI2Cfft.o 
+
+$(OBJDIR)/SCI2Cconvol.o: $(CSRCDIR)/SCI2Cconvol.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCDIR)/SCI2Cconvol.c -o $(OBJDIR)/SCI2Cconvol.o 
+
+$(OBJDIR)/sqrt.o: $(CSRCELEMFUNDIR)/sqrt/*sqrt*.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) -c $(CSRCELEMFUNDIR)/sqrt/*sqrt*.c -o $(OBJDIR)/sqrt.o 
+
+$(OBJDIR)/ssqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/ssqrts.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/ssqrts.c -o $(OBJDIR)/ssqrts.o 
+   
+$(OBJDIR)/dsqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/dsqrts.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/dsqrts.c -o $(OBJDIR)/dsqrts.o 
+
+$(OBJDIR)/csqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/csqrts.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/csqrts.c -o $(OBJDIR)/csqrts.o 
+
+$(OBJDIR)/zsqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/zsqrts.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/zsqrts.c -o $(OBJDIR)/zsqrts.o 
+
+$(OBJDIR)/ssqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/ssqrta.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/ssqrta.c -o $(OBJDIR)/ssqrta.o 
+
+$(OBJDIR)/dsqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/dsqrta.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/dsqrta.c -o $(OBJDIR)/dsqrta.o 
+
+$(OBJDIR)/csqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/csqrta.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/csqrta.c -o $(OBJDIR)/csqrta.o 
+
+$(OBJDIR)/zsqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/zsqrta.c $(HSRCDIR)/*.h
+	$(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/zsqrta.c -o $(OBJDIR)/zsqrta.o
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
new file mode 100644
index 00000000..d56a51cd
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
@@ -0,0 +1,126 @@
+
+# --- C COMPILER ---
+CC = gcc
+CFLAGS = -Wall -pedantic -O3 -I $(HSRCDIR) -I $(ISRCDIR)
+# ---------------------------
+# --- END USER PARAMETERS ---
+# ---------------------------
+
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# DON'T TOUCH ANYTHING BELOW THIS LINE 
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+# ------------------------------------
+
+EXEFILE = $(SCI2CDIR)/$(EXEFILENAME)
+
+SWSRCS	=	\
+	$(CSRCDIR)/doubleComplex.c \
+	$(CSRCDIR)/floatComplex.c \
+	$(CSRCDIR)/RealToComplex.c \
+	$(CSRCDIR)/conj.c \
+	$(CSRCDIR)/disp.c \
+	$(CSRCDIR)/ones.c \
+	$(CSRCDIR)/zeros.c \
+	$(CSRCDIR)/OpApex.c \
+	$(CSRCDIR)/OpColon.c \
+	$(CSRCDIR)/OpDotStar.c \
+	$(CSRCDIR)/OpDotHat.c \
+	$(CSRCDIR)/OpDotSlash.c \
+	$(CSRCDIR)/OpEqual.c \
+	$(CSRCDIR)/OpPlus.c \
+	$(CSRCDIR)/OpMinus.c \
+	$(CSRCDIR)/OpStar.c \
+	$(CSRCDIR)/OpIns.c \
+	$(CSRCDIR)/OpExt.c \
+	$(CSRCDIR)/OpRc.c \
+	$(CSRCDIR)/OpCc.c \
+	$(CSRCDIR)/cos.c \
+	$(CSRCDIR)/cosh.c \
+	$(CSRCDIR)/sin.c \
+	$(CSRCDIR)/sinh.c  \
+	$(CSRCDIR)/FileManagement.c \
+	$(CSRCDIR)/OpLogLt.c \
+	$(CSRCDIR)/OpLogGt.c \
+	$(CSRCDIR)/OpLogGe.c \
+	$(CSRCDIR)/OpLogLe.c \
+	$(CSRCDIR)/OpLogEq.c \
+	$(CSRCDIR)/OpLogOr.c \
+	$(CSRCDIR)/OpLogAnd.c \
+	$(CSRCDIR)/Find.c \
+	$(CSRCDIR)/ConvertPrecision.c \
+	$(CSRCDIR)/SCI2Cfft.c \
+	$(CSRCDIR)/SCI2Cconvol.c \
+	$(CSRCDIR)/ssqrts.c \
+	$(CSRCDIR)/dsqrts.c \
+	$(CSRCDIR)/csqrts.c \
+	$(CSRCDIR)/zsqrts.c \
+	$(CSRCDIR)/ssqrta.c \
+	$(CSRCDIR)/dsqrta.c \
+	$(CSRCDIR)/csqrta.c \
+	$(CSRCDIR)/zsqrta.c \
+	$(CSRCDIR)/sabss.c \
+	$(CSRCDIR)/dabss.c \
+	$(CSRCDIR)/cabss.c \
+	$(CSRCDIR)/zabss.c \
+	$(CSRCDIR)/sabsa.c \
+	$(CSRCDIR)/dabsa.c \
+	$(CSRCDIR)/cabsa.c \
+	$(CSRCDIR)/zabsa.c \
+	$(CSRCDIR)/sexps.c \
+	$(CSRCDIR)/dexps.c \
+	$(CSRCDIR)/cexps.c \
+	$(CSRCDIR)/zexps.c \
+	$(CSRCDIR)/sexpa.c \
+	$(CSRCDIR)/dexpa.c \
+	$(CSRCDIR)/cexpa.c \
+	$(CSRCDIR)/zexpa.c
+
+SWOBJS	=	$(SWSRCS:.c=.o)
+
+# ---------------
+# --- TARGETS ---
+# ---------------
+compileexecute: $(SWOBJS) 
+	@echo " "
+	@echo "============================"
+	@echo "Generation of the executable"
+	@echo "============================"
+	$(CC) $(CFLAGS) $(SWOBJS) $(SCI2CDIR)/*.c -o $(EXEFILE)
+	@echo " "
+	@echo "=============="
+	@echo "Executing code"
+	@echo "=============="
+	$(EXEFILE)
+
+clean:  
+	@echo " "
+	@echo "============================="
+	@echo "Removing only exe + obj files"
+	@echo "============================="
+	rm -rf $(EXEFILE)
+	rm -rf $(SWOBJS)
+	@echo " "
+
+cleanexe:  
+	@echo " "
+	@echo "=========================="
+	@echo "Removing only the exe file"
+	@echo "=========================="
+	rm -rf $(EXEFILE)
+	@echo " "
+
+# how to compile object code .o from C source files .c (general rule)
+# space between -o and filename for SUN make
+.c.o:		
+	$(CC) $(CFLAGS) -c -o $(@) $<
+
+# Make object code from source
+swobjs:		$(SWOBJS)
+
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/Sci2AnnotationFile.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/Sci2AnnotationFile.sci
new file mode 100644
index 00000000..9fa9aac9
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/Sci2AnnotationFile.sci
@@ -0,0 +1,33 @@
+function Sci2AnnotationFile(SciFileName,ClsFileName,AnnFileName,AnnSpecifier,ReportFileName)
+// function Sci2AnnotationFile(SciFileName,ClsFileName,AnnFileName,AnnSpecifier,ReportFileName)
+// --------------------------------------------------------------------------------
+//
+// Status:
+// 25-Jun-2007 -- Nutricato Raffaele: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+SCI2CNInArgCheck(argn(2),5,5);
+
+[tmppath,tmpfunname,tmpext] = fileparts(SciFileName);
+
+inscifid = SCI2COpenFileRead(SciFileName);
+
+line_position = 0;
+L_AnnSpecifierP1 = length(AnnSpecifier)+1;
+while (meof(inscifid) == 0)
+   check_string = stripblanks(mgetl(inscifid,1));
+   line_position = line_position + 1;
+   L_string = length(check_string);
+   if (L_string >= 1)
+      if (SCI2Cstrncmps1size(AnnSpecifier,check_string))
+         tmpannotation = stripblanks(part(check_string,L_AnnSpecifierP1:L_string));
+         PrintStringInfo(tmpannotation,ClsFileName,'file','y');
+      end
+   end
+end
+mclose(inscifid);
+PrintStringInfo('CLASS: '+tmpfunname,AnnFileName,'file','y');
+endfunction