From 26b77d7593b5ee0792b6b556f5569ea4227c2b02 Mon Sep 17 00:00:00 2001
From: Sunil Shetye
Date: Thu, 16 May 2019 12:18:48 +0530
Subject: convert to unix format

---
 macros/FunctionList/FL_ExistCFunction.sci | 234 +++++++++++++++---------------
 1 file changed, 117 insertions(+), 117 deletions(-)

(limited to 'macros/FunctionList/FL_ExistCFunction.sci')

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
-- 
cgit