convert to unix format

1 files changed, 117 insertions, 117 deletions

diff --git a/macros/FunctionList/FL_ExistCFunction.sci b/macros/FunctionList/FL_ExistCFunction.sci
index dbb9121f..7c3d24c5 100644
--- a/macros/FunctionList/FL_ExistCFunction.sci
+++ b/macros/FunctionList/FL_ExistCFunction.sci
@@ -1,117 +1,117 @@
-function flagexist = FL_ExistCFunction(CFunName,USER2CAvailableCDat,SCI2CAvailableCDat,ConvertedDat,ToBeConvertedDat,ReportFileName)

-// function flagexist = FL_ExistCFunction(CFunName,USER2CAvailableCDat,SCI2CAvailableCDat,ConvertedDat,ToBeConvertedDat,ReportFileName)

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

-// //NUT: add description here

-//

-// Input data:

-// //NUT: add description here

-//

-// Output data:

-// //NUT: add description here

-//

-// Status:

-// 30-Oct-2007 -- Raffaele Nutricato: Author.

-// 30-Oct-2007 -- Alberto Morea: Test Ok.

-//

-// Copyright 2007 Raffaele Nutricato & Alberto Morea.

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

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

-

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

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

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

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

-

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

-// --- Initialization. ---

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

-flagexist = %F;

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

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

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

-

-

-AvailableDat = USER2CAvailableCDat;

-load(AvailableDat,'Available');

-NAvail = size(Available,1);

-

-tmpcnt = 1;

-while ((tmpcnt <=NAvail) & (flagexist == %F))

-   if mtlb_strcmp(Available(tmpcnt),CFunName)

-      flagexist = %T;

-      // #RNU_RES_B

-      PrintStringInfo('   Found C Function Name in : '+AvailableDat,ReportFileName,'file','y');

-      // #RNU_RES_E

-   end

-   tmpcnt = tmpcnt + 1;

-end

-clear Available

-

-if (flagexist == %F)

-   AvailableDat = SCI2CAvailableCDat;

-   load(AvailableDat,'Available');

-   NAvail = size(Available,1);

-   

-   tmpcnt = 1;

-   while ((tmpcnt <=NAvail) & (flagexist == %F))

-      if mtlb_strcmp(Available(tmpcnt),CFunName)

-         flagexist = %T;

-         // #RNU_RES_B

-         PrintStringInfo('   Found C Function Name in : '+AvailableDat,ReportFileName,'file','y');

-         // #RNU_RES_E

-      end

-      tmpcnt = tmpcnt + 1;

-   end

-   clear Available

-end

-

-if (flagexist == %F)

-   load(ConvertedDat,'Converted');

-   NConv = size(Converted,1);

-   tmpcnt = 1;

-   while ((tmpcnt <=NConv) & (flagexist == %F))

-      if mtlb_strcmp(Converted(tmpcnt),CFunName)

-         flagexist = %T;

-         // #RNU_RES_B

-         PrintStringInfo('   Found C Function Name in : '+ConvertedDat,ReportFileName,'file','y');

-         // #RNU_RES_E

-      end

-      tmpcnt = tmpcnt + 1;

-   end

-   clear Converted

-end

-

-if (flagexist == %F)

-   load(ToBeConvertedDat,'ToBeConverted');

-   NToBeConv = size(ToBeConverted,1);

-   tmpcnt = 1;

-   while ((tmpcnt <=NToBeConv) & (flagexist == %F))

-      if mtlb_strcmp(ToBeConverted(tmpcnt).CFunctionName,CFunName)

-         flagexist = %T;

-         // #RNU_RES_B

-         PrintStringInfo('   Found C Function Name in : '+ToBeConvertedDat,ReportFileName,'file','y');

-         // #RNU_RES_E

-      end

-      tmpcnt = tmpcnt + 1;

-   end

-   clear ToBeConverted

-end

-

-if (flagexist == %F)

-   // #RNU_RES_B

-   AvailableDat = SCI2CAvailableCDat;

-   

-   PrintStringInfo('   C Function Name not found in the ""Available"" , ""Converted"" and ""ToBeConverted"" function lists.',ReportFileName,'file','y');

-   load(AvailableDat,'Available');

-   PrintStringInfo('Available: ' + strcat(Available(grep(Available, ASTFunName)), ' '),ReportFileName,'file','y');

-   clear Available

-   load(ConvertedDat,'Converted');

-   PrintStringInfo('Converted: ' + strcat(Converted(grep(Converted, ASTFunName)), ' '),ReportFileName,'file','y');

-   clear Converted

-   load(ToBeConvertedDat,'ToBeConverted');

-   PrintStringInfo('ToBeConverted: ' + ToBeConverted.SCIFunctionName + ' ' + ToBeConverted.CFunctionName,ReportFileName,'file','y');

-   clear ToBeConverted   

-   // #RNU_RES_E

-end

-

-endfunction

+function flagexist = FL_ExistCFunction(CFunName,USER2CAvailableCDat,SCI2CAvailableCDat,ConvertedDat,ToBeConvertedDat,ReportFileName)
+// function flagexist = FL_ExistCFunction(CFunName,USER2CAvailableCDat,SCI2CAvailableCDat,ConvertedDat,ToBeConvertedDat,ReportFileName)
+// -----------------------------------------------------------------
+// //NUT: add description here
+//
+// Input data:
+// //NUT: add description here
+//
+// Output data:
+// //NUT: add description here
+//
+// Status:
+// 30-Oct-2007 -- Raffaele Nutricato: Author.
+// 30-Oct-2007 -- Alberto Morea: Test Ok.
+//
+// Copyright 2007 Raffaele Nutricato & Alberto Morea.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),6,6);
+
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+flagexist = %F;
+// ---------------------------
+// --- End Initialization. ---
+// ---------------------------
+
+
+AvailableDat = USER2CAvailableCDat;
+load(AvailableDat,'Available');
+NAvail = size(Available,1);
+
+tmpcnt = 1;
+while ((tmpcnt <=NAvail) & (flagexist == %F))
+   if mtlb_strcmp(Available(tmpcnt),CFunName)
+      flagexist = %T;
+      // #RNU_RES_B
+      PrintStringInfo('   Found C Function Name in : '+AvailableDat,ReportFileName,'file','y');
+      // #RNU_RES_E
+   end
+   tmpcnt = tmpcnt + 1;
+end
+clear Available
+
+if (flagexist == %F)
+   AvailableDat = SCI2CAvailableCDat;
+   load(AvailableDat,'Available');
+   NAvail = size(Available,1);
+   
+   tmpcnt = 1;
+   while ((tmpcnt <=NAvail) & (flagexist == %F))
+      if mtlb_strcmp(Available(tmpcnt),CFunName)
+         flagexist = %T;
+         // #RNU_RES_B
+         PrintStringInfo('   Found C Function Name in : '+AvailableDat,ReportFileName,'file','y');
+         // #RNU_RES_E
+      end
+      tmpcnt = tmpcnt + 1;
+   end
+   clear Available
+end
+
+if (flagexist == %F)
+   load(ConvertedDat,'Converted');
+   NConv = size(Converted,1);
+   tmpcnt = 1;
+   while ((tmpcnt <=NConv) & (flagexist == %F))
+      if mtlb_strcmp(Converted(tmpcnt),CFunName)
+         flagexist = %T;
+         // #RNU_RES_B
+         PrintStringInfo('   Found C Function Name in : '+ConvertedDat,ReportFileName,'file','y');
+         // #RNU_RES_E
+      end
+      tmpcnt = tmpcnt + 1;
+   end
+   clear Converted
+end
+
+if (flagexist == %F)
+   load(ToBeConvertedDat,'ToBeConverted');
+   NToBeConv = size(ToBeConverted,1);
+   tmpcnt = 1;
+   while ((tmpcnt <=NToBeConv) & (flagexist == %F))
+      if mtlb_strcmp(ToBeConverted(tmpcnt).CFunctionName,CFunName)
+         flagexist = %T;
+         // #RNU_RES_B
+         PrintStringInfo('   Found C Function Name in : '+ToBeConvertedDat,ReportFileName,'file','y');
+         // #RNU_RES_E
+      end
+      tmpcnt = tmpcnt + 1;
+   end
+   clear ToBeConverted
+end
+
+if (flagexist == %F)
+   // #RNU_RES_B
+   AvailableDat = SCI2CAvailableCDat;
+   
+   PrintStringInfo('   C Function Name not found in the ""Available"" , ""Converted"" and ""ToBeConverted"" function lists.',ReportFileName,'file','y');
+   load(AvailableDat,'Available');
+   PrintStringInfo('Available: ' + strcat(Available(grep(Available, ASTFunName)), ' '),ReportFileName,'file','y');
+   clear Available
+   load(ConvertedDat,'Converted');
+   PrintStringInfo('Converted: ' + strcat(Converted(grep(Converted, ASTFunName)), ' '),ReportFileName,'file','y');
+   clear Converted
+   load(ToBeConvertedDat,'ToBeConverted');
+   PrintStringInfo('ToBeConverted: ' + ToBeConverted.SCIFunctionName + ' ' + ToBeConverted.CFunctionName,ReportFileName,'file','y');
+   clear ToBeConverted   
+   // #RNU_RES_E
+end
+
+endfunction