LinearAlgebra and MatrixOperation Update

1 files changed, 0 insertions, 187 deletions

diff --git a/2.3-1/macros/CCodeGeneration/C_GenDeclarations_Dup.sci b/2.3-1/macros/CCodeGeneration/C_GenDeclarations_Dup.sci
deleted file mode 100644
index 475e2e0c..00000000
--- a/2.3-1/macros/CCodeGeneration/C_GenDeclarations_Dup.sci
+++ /dev/null
@@ -1,187 +0,0 @@
-function Cdeclaration = C_GenDeclarations_Dup(InArg,NInArg,com_type,ArgStruct,CDeclarationFileName,IndentLevel,ReportFileName,FlagExt,ResizeApproach)
-// function Cdeclaration = C_GenDeclarations(ArgStruct,CDeclarationFileName,IndentLevel,ReportFileName,FlagExt,ResizeApproach)
-// -----------------------------------------------------------------
-// //NUT: add description here
-//
-// Input data:
-// //NUT: add description here
-//
-// Output data:
-// //NUT: add description here
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-// 10-Jun-2008 -- Raffaele Nutricato: adapted to work with realloc function.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// Generate C corresponding declaration given some information in ArgStruct
-// 
-  
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),9,9);
-// #RNU_RES_B
-//NUT: ilnome di questa funzione va cambiato perche' le dichiarazioni le fanno anche i for e i while.
-
-PrintStringInfo(' ',ReportFileName,'file','y');
-PrintStringInfo('***Generating C declaration***',ReportFileName,'file','y');
-// #RNU_RES_E
-
-Cdeclaration = '';
-if (ArgStruct.Dimension > 0)
-  if (FlagExt == 1)
-    Cdeclaration(1) = 'extern ';
-    Cdeclaration(2) = 'extern ';
-  else
-    Cdeclaration(1) = '';
-    Cdeclaration(2) = '';
-  end
-// #RNU_RES_B
-//NUT: vedi Mem_Alloc_Out per maggiori info sulla rimozione della temp nella if
-// if ((ArgStruct.Scope=='Temp') | (ArgStruct.FindLike == -1) | (isnum(ArgStruct.Size(1))==%F) | (isnum(ArgStruct.Size(2))==%F))
-// #RNU_RES_E
-  if (ArgStruct.Type=='g')
-// if (isnan(ArgStruct.Value) )
-    if ((isnum(ArgStruct.Size(1))==%F) | (isnum(ArgStruct.Size(2))==%F) )
-      Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
-          ' * '+ArgStruct.Name+';';
-    else
-      if ((FlagExt == 1) | (isnan(ArgStruct.Value)))
-        Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
-            ' '+ArgStruct.Name+'['+ArgStruct.Size(1)+'*'+ArgStruct.Size(2)+'];';
-      else
-        Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
-            ' '+ArgStruct.Name+'['+ArgStruct.Size(1)+'*'+ArgStruct.Size(2)+'] = {'+ArgStruct.Value+'};';
-      end
-    end
-    Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2] = {'+ArgStruct.Size(1)+','+ArgStruct.Size(2)+'};';
-  elseif ((ArgStruct.FindLike == -1) | ...
-          (isnum(ArgStruct.Size(1))==%F) | (isnum(ArgStruct.Size(2))==%F) | ...
-          (ResizeApproach=='REALLOC_ALL_RESIZE_ALL' & ArgStruct.Type~='g'))
-// #RNU_RES_B
-//RNU sulle stringhe non ho ancora deciso se applicare la realloc.
-// Generate only the pointer that will be used by the malloc function.
-// #RNU_RES_E
-    if (FlagExt == 1)
-      Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+'* '+...
-          ArgStruct.Name+';';
-    else
-      Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+'* '+...
-          ArgStruct.Name+' = NULL;';
-    end
-// Declare the Size array
-    Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2];';
-  else
-// Declare the array with its size.
-    computedSize = ArgStruct.Size(1);
-    computedSizeLength = size(ArgStruct.Size, '*');
-    computedSizeField =  ArgStruct.Size(1);
-    for sizeIterator = 2:computedSizeLength;
-      computedSize = computedSize + ' * ' + ArgStruct.Size(sizeIterator);
-      computedSizeField = computedSizeField + ', ' + ArgStruct.Size(sizeIterator);
-    end
-    Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+' '+ArgStruct.Name+'['+computedSize+']={';
-    row = eval(ArgStruct.Size(1))
-    col = eval(ArgStruct.Size(2))
-    if row == 1
-	if com_type == 0
-		for i = 1:NInArg-1
-			Cdeclaration(1) = Cdeclaration(1)+InArg(i).Name+',';
-		end
-		Cdeclaration(1) = Cdeclaration(1)+InArg(NInArg).Name+'};';
-    	else
-    		for i=1:NInArg-1
-    			if InArg(i).Type <> 'z' & InArg(i).Type <> 'c'
-    				Cdeclaration(1) = Cdeclaration(1)+InArg(i).Name+',0,';
-    		    	else
-    		                Cdeclaration(1) = Cdeclaration(1)+InArg(i).Name+',';
-    		    	end
-    		end
-    		if InArg(NInArg).Type <> 'z' & InArg(NInArg).Type <> 'c'
-    			Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + ',0};'
-    		else
-    		    Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + '};'
-    		end
-    	end
-    else
-	if com_type == 0
-		for i = 1:col
-			for j = 0:row-1
-				if (j*col)+i ~= row*col
-				Cdeclaration(1) = Cdeclaration(1) + InArg(((j*col)+i)).Name + ',';
-				end
-			end
-		end
-		Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + '};';
-	else
-		for i = 1:col
-			for j = 0:row-1
-				if (j*col)+i ~= row*col
-					if InArg(((j*col)+i)).Type <> 'z' & InArg(((j*col)+i)).Type <> 'c'
-						Cdeclaration(1) = Cdeclaration(1) + InArg(((j*col)+i)).Name + ',0,';
-					else
-						Cdeclaration(1) = Cdeclaration(1) + InArg(((j*col)+i)).Name + ',';
-					end
-				end
-			end
-		end
-		if InArg(NInArg).Type <> 'z' & InArg(NInArg).Type <> 'c' 
-			Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + ',0};';
-		else
-			Cdeclaration(1) = Cdeclaration(1) + InArg(NInArg).Name + '};';
-		end
-	end
-    end
-    Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size['+string(computedSizeLength)+']';
-    if (FlagExt <> 1)
-      Cdeclaration(2) = Cdeclaration(2)+' = {'+computedSizeField+'}';
-    end
-    Cdeclaration(2) = Cdeclaration(2)+';';
-  end
-else
-  if (ArgStruct.Type == 'fn')
-    //do nothing. This is a function name. Will be declared in header file.
-  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)+';';
-  end
-end
-
-
-// --------------------------------------------
-// --- Write C declaration into the C file. ---
-// --------------------------------------------
-PrintStringInfo(' ',CDeclarationFileName,'file','y'); 
-for cntdecl = 1:size(Cdeclaration, '*')
-  PrintStringInfo('   '+Cdeclaration(cntdecl),ReportFileName,'file','y');
-  PrintStringInfo(C_IndentBlanks(IndentLevel)+Cdeclaration(cntdecl),CDeclarationFileName,'file','y');
-end
-
-PrintStringInfo('   Writing C declaration in: '+CDeclarationFileName,ReportFileName,'file','y');
-PrintStringInfo(' ',CDeclarationFileName,'file','y');
-
-endfunction
-// #RNU_RES_B
-//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]??
-// #RNU_RES_E