diff options
Diffstat (limited to 'macros/GeneralFunctions/SCI2CFindFile.sci')
-rw-r--r-- | macros/GeneralFunctions/SCI2CFindFile.sci | 80 |
1 files changed, 40 insertions, 40 deletions
diff --git a/macros/GeneralFunctions/SCI2CFindFile.sci b/macros/GeneralFunctions/SCI2CFindFile.sci index f7271e2e..7cb3e104 100644 --- a/macros/GeneralFunctions/SCI2CFindFile.sci +++ b/macros/GeneralFunctions/SCI2CFindFile.sci @@ -1,40 +1,40 @@ -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
+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 |