1 files changed, 41 insertions, 0 deletions
diff --git a/2.3-1/macros/GeneralFunctions/SCI2CFindFile.sci b/2.3-1/macros/GeneralFunctions/SCI2CFindFile.sci
new file mode 100644
index 00000000..912a72a8
--- /dev/null
+++ b/2.3-1/macros/GeneralFunctions/SCI2CFindFile.sci
@@ -0,0 +1,41 @@
+function [FlagFound,SCIFileName] = SCI2CFindFile(PathList,FileName)
+// function [FlagFound,SCIFileName] = SCI2CFindFile(PathList,FileName)
+// -----------------------------------------------------------------
+// //NUT: add description here
+//
+// 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
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),2,2);
+
+FlagFound = 0;
+SCIFileName = '';
+
+// Perform the search in the user .sci files.
+Nscipaths = size(PathList,1);
+counterscipaths = 1;
+while ((FlagFound == 0) & (counterscipaths <= Nscipaths))
+   dirscifilename      = PathList(counterscipaths);
+   fullpathscifilename = fullfile(dirscifilename,FileName);
+   if (SCI2Cfileexist(dirscifilename,FileName))
+      // It is a function of the USER2C library.
+      FlagFound   = 1;
+      SCIFileName = fullpathscifilename;
+   end
+   counterscipaths = counterscipaths + 1;
+end
+
+endfunction