convert to unix format

1 files changed, 217 insertions, 217 deletions

diff --git a/macros/FunctionAnnotation/FA_GetFunAnn.sci b/macros/FunctionAnnotation/FA_GetFunAnn.sci
index 3fadd1f2..57bae95c 100644
--- a/macros/FunctionAnnotation/FA_GetFunAnn.sci
+++ b/macros/FunctionAnnotation/FA_GetFunAnn.sci
@@ -1,217 +1,217 @@
-function [FunTypeAnnot,FunSizeAnnot,NOutArg_mod] = ...

-    FA_GetFunAnn(NInArg,NOutArg,FunName,FileInfo,SharedInfo)

-// function [FunTypeAnnot,FunSizeAnnot] = ...

-//    FA_GetFunAnn(NInArg,NOutArg,FunName,FileInfo,SharedInfo)

-// -----------------------------------------------------------------

-// #RNU_RES_B

-// This function extracts the TYPE and SIZE annotations from the

-// input .ann file.

-// No blank lines are allowed between function annotations.

-//

-// #RNU_RES_E

-// Input data:

-// //NUT: Add description here

-//

-// Output data:

-// //NUT: Add description here

-//

-// Status:

-// 11-Jul-2007 -- Nutricato Raffaele: Author.

-//

-// Copyright 2007 Raffaele Nutricato.

-// Contact: raffaele.nutricato@tiscali.it

-// -----------------------------------------------------------------

-

-//NUT: consider the possibility to split this function into more functions.

-

-// ------------------------------

-// --- Check input arguments. ---

-// ------------------------------

-SCI2CNInArgCheck(argn(2),5,5);

-

-// -----------------------

-// --- Initialization. ---

-// -----------------------

-nxtscifunname   = SharedInfo.NextSCIFunName;

-nxtscifunnumber = SharedInfo.NextSCIFunNumber;

-ReportFileName  = FileInfo.Funct(nxtscifunnumber).ReportFileName;

-// #RNU_RES_B

-PrintStringInfo(' ',ReportFileName,'file','y');

-PrintStringInfo('***Reading function annotations***',ReportFileName,'file','y');

-// #RNU_RES_E

-SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo);

-FunTypeAnnot = '';

-FunSizeAnnot = '';

-// ---------------------------

-// --- End Initialization. ---

-// ---------------------------

-

-

-// ---------------------------------------------

-// --- Read the annotations of the function. ---

-// ---------------------------------------------

-// --- Open the .sci file (read only). ---

-inclsfid = SCI2COpenFileRead(SCI2CClassFileName);

-PrintStringInfo(' '+string(inclsfid),ReportFileName,'file','y');

-// #RNU_RES_B

-// --- Loop over the lines of the input file. ---

-// Position file pointer to the desired NInArg/NOutArg section,

-// and read the NOutArg annotation.

-// #RNU_RES_E

-FoundNIn  = 0;

-FoundNOut = 0;

-line_position = 0;

-while ((meof(inclsfid) == 0) & (FoundNIn == 0) & (FoundNOut == 0))

-  check_string = stripblanks(mgetl(inclsfid,1));

-  line_position = line_position + 1;

-  if (~isempty(check_string))

-

-// #RNU_RES_B

-// --- Search for the NIN annotation. ---

-// #RNU_RES_E

-    if (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNIN,check_string))

-      FUNNINAnnot = part(check_string,length(SharedInfo.Annotations.FUNNIN)+1:length(check_string));

-

-// #RNU_RES_B

-// --- Check NIN value. ---

-// #RNU_RES_E

-      if (eval(FUNNINAnnot) == NInArg)

-// #RNU_RES_B

-        PrintStringInfo('   Line '+string(line_position)+' - Function NInArg Annotation: '+' ""'+check_string+' ""',...

-                        ReportFileName,'file','y');

-// #RNU_RES_E

-        FoundNIn = 1;

-        check_string = stripblanks(mgetl(inclsfid,1));

-        line_position = line_position + 1;

-        if (~isempty(check_string))

-

-// #RNU_RES_B

-// --- Search for the NOUT annotation. ---

-// #RNU_RES_E

-          if (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNOUT,check_string))

-            FUNNOUTAnnot = part(check_string,length(SharedInfo.Annotations.FUNNOUT)+1:length(check_string));

-// #RNU_RES_B

-// --- Check NOUT value. ---

-// #RNU_RES_E

-            if (eval(FUNNOUTAnnot) == NOutArg)

-// #RNU_RES_B

-              PrintStringInfo('   Line '+string(line_position)+' - Function NOutArg Annotation: '+' ""'+check_string+' ""',...

-                              ReportFileName,'file','y');

-// #RNU_RES_E

-              FoundNOut = 1;

-            elseif(eval(FUNNOUTAnnot) == 0)

-              FoundNOut = 1

-            else

-              FoundNIn = 0;

-            end

-          else

-            PrintStringInfo(' ',ReportFileName,'both','y');

-            PrintStringInfo('SCI2CERROR: Incorrect format for function annotation.',ReportFileName,'both','y');

-            PrintStringInfo('SCI2CERROR: Expected '+SharedInfo.Annotations.FUNNIN+' field in the annotations of the function.',ReportFileName,'both','y');

-            PrintStringInfo(' ',ReportFileName,'both','y');

-            error(9999, 'SCI2CERROR: Incorrect format for function annotation.');

-          end

-        else

-          PrintStringInfo(' ',ReportFileName,'both','y');

-          PrintStringInfo('SCI2CERROR: Incorrect format for function annotation.',ReportFileName,'both','y');

-          PrintStringInfo('SCI2CERROR: Expected '+SharedInfo.Annotations.FUNNIN+' field in the annotations of the function.',ReportFileName,'both','y');

-          PrintStringInfo(' ',ReportFileName,'both','y');

-          error(9999, 'SCI2CERROR: Incorrect format for function annotation.');

-        end

-      end

-    end

-  end

-end

-

-if (FoundNOut*FoundNIn == 0)

-  PrintStringInfo(' ',ReportFileName,'both','y');

-  PrintStringInfo('SCI2CERROR: Please check file: '+SCI2CClassFileName,ReportFileName,'both','y');

-  PrintStringInfo('SCI2CERROR: Incorrect function annotation.',ReportFileName,'both','y');

-  PrintStringInfo('SCI2CERROR: There are two possibilities:',ReportFileName,'both','y');

-  PrintStringInfo('SCI2CERROR: 1. Syntax error in function annotations.',ReportFileName,'both','y');

-  PrintStringInfo('SCI2CERROR: 2. Missing the right combination of NIN/NOUT annotations: ""'+SharedInfo.Annotations.FUNNIN+string(NInArg)+','+SharedInfo.Annotations.FUNNOUT+' '+string(NOutArg)+'"".',ReportFileName,'both','y');

-  PrintStringInfo(' ',ReportFileName,'both','y');

-  error(9999, 'SCI2CERROR: Incorrect function annotation.');

-else

-  //This change has been made in order to supress the generation

-  //of output variables in case of functions which do not return

-  //anything.

-  if(eval(FUNNOUTAnnot) == 0)

-    NOutArg_mod = 0;

-  else

-    NOutArg_mod = NOutArg

-  end 

-  

-  // In case we are reading to much informations

-  readNewLine = %t;

-

-  for cntout = 1:NOutArg

-    SCI2C_nout=cntout; // Useful for eval.

-

-// #RNU_RES_B

-// Read the Fun type annotation.

-// #RNU_RES_E

-    if (readNewLine == %t)

-      check_string = stripblanks(mgetl(inclsfid,1));

-      line_position = line_position + 1;

-    else

-      // reset state

-      readNewLine = %t;

-    end

-    if (isempty(check_string) == %F)

-      tmpannstring = eval(SharedInfo.Annotations.FUNTYPE);

-      if (SCI2Cstrncmps1size(tmpannstring,check_string))

-// #RNU_RES_B

-        PrintStringInfo('   Line '+string(line_position)+' - Function Type Annotation: '+' ""'+check_string+' ""',...

-                        ReportFileName,'file','y');

-// #RNU_RES_E

-        FunTypeAnnot(cntout) = ...

-            stripblanks(part(check_string,length(tmpannstring)+1:length(check_string)));

-      end

-    else

-      PrintStringInfo(' ',ReportFileName,'both','y');

-      PrintStringInfo('SCI2CERROR: Line '+string(line_position)+' Function type annotation not found in file: '+SCI2CClassFileName,ReportFileName,'both','y');

-      PrintStringInfo(' ',ReportFileName,'both','y');

-      error(9999, 'SCI2CERROR: Line '+string(line_position)+' Function type annotation not found in file: '+SCI2CClassFileName);

-    end

-

-// #RNU_RES_B

-// --- Read the Fun size annotation. ---

-// #RNU_RES_E

-    SCI2C_nelem = 0; // Useful for eval.

-//    while(SCI2C_nelem < 2 & isempty(check_string) == %F)

-    while(SCI2C_nelem < 3 & isempty(check_string) == %F)

-      line_position = line_position + 1;

-// #RNU_RES_B

-      PrintStringInfo('   Line '+string(line_position)+' - Function Size Annotation: '+' ""'+check_string+' ""',...

-                      ReportFileName,'file','y');

-      if (isempty(check_string) == %F)

-        SCI2C_nelem = SCI2C_nelem + 1

-        tmpannstring = eval(SharedInfo.Annotations.FUNSIZE);

-        check_string = stripblanks(mgetl(inclsfid,1));

-        if (SCI2Cstrncmps1size(tmpannstring,check_string))

-// #RNU_RES_E

-          FunSizeAnnot(cntout,SCI2C_nelem) = ...

-              stripblanks(part(check_string,length(tmpannstring)+1:length(check_string)));

-        else

-          readNewLine = %f;

-        end

-      else

-        PrintStringInfo(' ',ReportFileName,'both','y');

-        PrintStringInfo('SCI2CERROR: Line '+string(line_position)+' Function size annotation not found in file: '+SCI2CClassFileName,ReportFileName,'both','y');

-        PrintStringInfo(' ',ReportFileName,'both','y');

-        error(9999, 'SCI2CERROR: Line '+string(line_position)+' Function size annotation not found in file: '+SCI2CClassFileName);

-      end

-    end

-  end

-

-  

-end

-// --- End loop over the lines of the input file. ---

-mclose(inclsfid);

-// -------------------------------------------------

-// --- End Read the annotations of the function. ---

-// -------------------------------------------------

-PrintStringInfo('  end of annotation '+string(NOutArg_mod),ReportFileName,'file','y');

-

-endfunction

+function [FunTypeAnnot,FunSizeAnnot,NOutArg_mod] = ...
+    FA_GetFunAnn(NInArg,NOutArg,FunName,FileInfo,SharedInfo)
+// function [FunTypeAnnot,FunSizeAnnot] = ...
+//    FA_GetFunAnn(NInArg,NOutArg,FunName,FileInfo,SharedInfo)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// This function extracts the TYPE and SIZE annotations from the
+// input .ann file.
+// No blank lines are allowed between function annotations.
+//
+// #RNU_RES_E
+// Input data:
+// //NUT: Add description here
+//
+// Output data:
+// //NUT: Add description here
+//
+// Status:
+// 11-Jul-2007 -- Nutricato Raffaele: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+//NUT: consider the possibility to split this function into more functions.
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),5,5);
+
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+nxtscifunname   = SharedInfo.NextSCIFunName;
+nxtscifunnumber = SharedInfo.NextSCIFunNumber;
+ReportFileName  = FileInfo.Funct(nxtscifunnumber).ReportFileName;
+// #RNU_RES_B
+PrintStringInfo(' ',ReportFileName,'file','y');
+PrintStringInfo('***Reading function annotations***',ReportFileName,'file','y');
+// #RNU_RES_E
+SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo);
+FunTypeAnnot = '';
+FunSizeAnnot = '';
+// ---------------------------
+// --- End Initialization. ---
+// ---------------------------
+
+
+// ---------------------------------------------
+// --- Read the annotations of the function. ---
+// ---------------------------------------------
+// --- Open the .sci file (read only). ---
+inclsfid = SCI2COpenFileRead(SCI2CClassFileName);
+PrintStringInfo(' '+string(inclsfid),ReportFileName,'file','y');
+// #RNU_RES_B
+// --- Loop over the lines of the input file. ---
+// Position file pointer to the desired NInArg/NOutArg section,
+// and read the NOutArg annotation.
+// #RNU_RES_E
+FoundNIn  = 0;
+FoundNOut = 0;
+line_position = 0;
+while ((meof(inclsfid) == 0) & (FoundNIn == 0) & (FoundNOut == 0))
+  check_string = stripblanks(mgetl(inclsfid,1));
+  line_position = line_position + 1;
+  if (~isempty(check_string))
+
+// #RNU_RES_B
+// --- Search for the NIN annotation. ---
+// #RNU_RES_E
+    if (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNIN,check_string))
+      FUNNINAnnot = part(check_string,length(SharedInfo.Annotations.FUNNIN)+1:length(check_string));
+
+// #RNU_RES_B
+// --- Check NIN value. ---
+// #RNU_RES_E
+      if (eval(FUNNINAnnot) == NInArg)
+// #RNU_RES_B
+        PrintStringInfo('   Line '+string(line_position)+' - Function NInArg Annotation: '+' ""'+check_string+' ""',...
+                        ReportFileName,'file','y');
+// #RNU_RES_E
+        FoundNIn = 1;
+        check_string = stripblanks(mgetl(inclsfid,1));
+        line_position = line_position + 1;
+        if (~isempty(check_string))
+
+// #RNU_RES_B
+// --- Search for the NOUT annotation. ---
+// #RNU_RES_E
+          if (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNOUT,check_string))
+            FUNNOUTAnnot = part(check_string,length(SharedInfo.Annotations.FUNNOUT)+1:length(check_string));
+// #RNU_RES_B
+// --- Check NOUT value. ---
+// #RNU_RES_E
+            if (eval(FUNNOUTAnnot) == NOutArg)
+// #RNU_RES_B
+              PrintStringInfo('   Line '+string(line_position)+' - Function NOutArg Annotation: '+' ""'+check_string+' ""',...
+                              ReportFileName,'file','y');
+// #RNU_RES_E
+              FoundNOut = 1;
+            elseif(eval(FUNNOUTAnnot) == 0)
+              FoundNOut = 1
+            else
+              FoundNIn = 0;
+            end
+          else
+            PrintStringInfo(' ',ReportFileName,'both','y');
+            PrintStringInfo('SCI2CERROR: Incorrect format for function annotation.',ReportFileName,'both','y');
+            PrintStringInfo('SCI2CERROR: Expected '+SharedInfo.Annotations.FUNNIN+' field in the annotations of the function.',ReportFileName,'both','y');
+            PrintStringInfo(' ',ReportFileName,'both','y');
+            error(9999, 'SCI2CERROR: Incorrect format for function annotation.');
+          end
+        else
+          PrintStringInfo(' ',ReportFileName,'both','y');
+          PrintStringInfo('SCI2CERROR: Incorrect format for function annotation.',ReportFileName,'both','y');
+          PrintStringInfo('SCI2CERROR: Expected '+SharedInfo.Annotations.FUNNIN+' field in the annotations of the function.',ReportFileName,'both','y');
+          PrintStringInfo(' ',ReportFileName,'both','y');
+          error(9999, 'SCI2CERROR: Incorrect format for function annotation.');
+        end
+      end
+    end
+  end
+end
+
+if (FoundNOut*FoundNIn == 0)
+  PrintStringInfo(' ',ReportFileName,'both','y');
+  PrintStringInfo('SCI2CERROR: Please check file: '+SCI2CClassFileName,ReportFileName,'both','y');
+  PrintStringInfo('SCI2CERROR: Incorrect function annotation.',ReportFileName,'both','y');
+  PrintStringInfo('SCI2CERROR: There are two possibilities:',ReportFileName,'both','y');
+  PrintStringInfo('SCI2CERROR: 1. Syntax error in function annotations.',ReportFileName,'both','y');
+  PrintStringInfo('SCI2CERROR: 2. Missing the right combination of NIN/NOUT annotations: ""'+SharedInfo.Annotations.FUNNIN+string(NInArg)+','+SharedInfo.Annotations.FUNNOUT+' '+string(NOutArg)+'"".',ReportFileName,'both','y');
+  PrintStringInfo(' ',ReportFileName,'both','y');
+  error(9999, 'SCI2CERROR: Incorrect function annotation.');
+else
+  //This change has been made in order to supress the generation
+  //of output variables in case of functions which do not return
+  //anything.
+  if(eval(FUNNOUTAnnot) == 0)
+    NOutArg_mod = 0;
+  else
+    NOutArg_mod = NOutArg
+  end 
+  
+  // In case we are reading to much informations
+  readNewLine = %t;
+
+  for cntout = 1:NOutArg
+    SCI2C_nout=cntout; // Useful for eval.
+
+// #RNU_RES_B
+// Read the Fun type annotation.
+// #RNU_RES_E
+    if (readNewLine == %t)
+      check_string = stripblanks(mgetl(inclsfid,1));
+      line_position = line_position + 1;
+    else
+      // reset state
+      readNewLine = %t;
+    end
+    if (isempty(check_string) == %F)
+      tmpannstring = eval(SharedInfo.Annotations.FUNTYPE);
+      if (SCI2Cstrncmps1size(tmpannstring,check_string))
+// #RNU_RES_B
+        PrintStringInfo('   Line '+string(line_position)+' - Function Type Annotation: '+' ""'+check_string+' ""',...
+                        ReportFileName,'file','y');
+// #RNU_RES_E
+        FunTypeAnnot(cntout) = ...
+            stripblanks(part(check_string,length(tmpannstring)+1:length(check_string)));
+      end
+    else
+      PrintStringInfo(' ',ReportFileName,'both','y');
+      PrintStringInfo('SCI2CERROR: Line '+string(line_position)+' Function type annotation not found in file: '+SCI2CClassFileName,ReportFileName,'both','y');
+      PrintStringInfo(' ',ReportFileName,'both','y');
+      error(9999, 'SCI2CERROR: Line '+string(line_position)+' Function type annotation not found in file: '+SCI2CClassFileName);
+    end
+
+// #RNU_RES_B
+// --- Read the Fun size annotation. ---
+// #RNU_RES_E
+    SCI2C_nelem = 0; // Useful for eval.
+//    while(SCI2C_nelem < 2 & isempty(check_string) == %F)
+    while(SCI2C_nelem < 3 & isempty(check_string) == %F)
+      line_position = line_position + 1;
+// #RNU_RES_B
+      PrintStringInfo('   Line '+string(line_position)+' - Function Size Annotation: '+' ""'+check_string+' ""',...
+                      ReportFileName,'file','y');
+      if (isempty(check_string) == %F)
+        SCI2C_nelem = SCI2C_nelem + 1
+        tmpannstring = eval(SharedInfo.Annotations.FUNSIZE);
+        check_string = stripblanks(mgetl(inclsfid,1));
+        if (SCI2Cstrncmps1size(tmpannstring,check_string))
+// #RNU_RES_E
+          FunSizeAnnot(cntout,SCI2C_nelem) = ...
+              stripblanks(part(check_string,length(tmpannstring)+1:length(check_string)));
+        else
+          readNewLine = %f;
+        end
+      else
+        PrintStringInfo(' ',ReportFileName,'both','y');
+        PrintStringInfo('SCI2CERROR: Line '+string(line_position)+' Function size annotation not found in file: '+SCI2CClassFileName,ReportFileName,'both','y');
+        PrintStringInfo(' ',ReportFileName,'both','y');
+        error(9999, 'SCI2CERROR: Line '+string(line_position)+' Function size annotation not found in file: '+SCI2CClassFileName);
+      end
+    end
+  end
+
+  
+end
+// --- End loop over the lines of the input file. ---
+mclose(inclsfid);
+// -------------------------------------------------
+// --- End Read the annotations of the function. ---
+// -------------------------------------------------
+PrintStringInfo('  end of annotation '+string(NOutArg_mod),ReportFileName,'file','y');
+
+endfunction