diff options
Diffstat (limited to 'macros/CCodeGeneration/C_GenDeclarations_Dup.sci')
| -rw-r--r-- | macros/CCodeGeneration/C_GenDeclarations_Dup.sci | 187 |
1 files changed, 0 insertions, 187 deletions
diff --git a/macros/CCodeGeneration/C_GenDeclarations_Dup.sci b/macros/CCodeGeneration/C_GenDeclarations_Dup.sci deleted file mode 100644 index 475e2e0..0000000 --- a/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 |