diff options
| author | Sunil Shetye | 2019-05-16 12:18:48 +0530 |
|---|---|---|
| committer | Sunil Shetye | 2019-05-29 11:08:01 +0530 |
| commit | 26b77d7593b5ee0792b6b556f5569ea4227c2b02 (patch) | |
| tree | 8f92052234b01bf39b9c3a6e3cb12b3962d96b1b /macros/GeneralFunctions/SCI2Cfileexist.sci | |
| parent | 5a73e6bec4a12db7afae9de300e39256f754d8d3 (diff) | |
| download | scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.tar.gz scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.tar.bz2 scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.zip | |
convert to unix format
Diffstat (limited to 'macros/GeneralFunctions/SCI2Cfileexist.sci')
| -rw-r--r-- | macros/GeneralFunctions/SCI2Cfileexist.sci | 76 |
1 files changed, 38 insertions, 38 deletions
diff --git a/macros/GeneralFunctions/SCI2Cfileexist.sci b/macros/GeneralFunctions/SCI2Cfileexist.sci index 05dbf590..d01a283d 100644 --- a/macros/GeneralFunctions/SCI2Cfileexist.sci +++ b/macros/GeneralFunctions/SCI2Cfileexist.sci @@ -1,38 +1,38 @@ -function ExistTest = SCI2Cfileexist(InDir,FileName)
-// function ExistTest = SCI2Cfileexist(InDir,FileName)
-// -----------------------------------------------------------------
-// Searches for the file FileName in the directory InDir.
-// Return %F if it doesn't exist.
-//
-// Input data:
-// //NUT: add description here
-//
-// Output data:
-// //NUT: add description here
-//
-// Status:
-// 12-Jun-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-tmppwd = pwd();
-cd(InDir);
-allfiles = ls(FileName);
-cd(tmppwd);
-
-if (size(allfiles,1) == 0)
- ExistTest = %F;
-elseif (size(allfiles,1) == 1)
- ExistTest = %T;
-else
- SCI2Cerror('Very Strange! Found more than one file with the same name.');
-end
-
-endfunction
+function ExistTest = SCI2Cfileexist(InDir,FileName) +// function ExistTest = SCI2Cfileexist(InDir,FileName) +// ----------------------------------------------------------------- +// Searches for the file FileName in the directory InDir. +// Return %F if it doesn't exist. +// +// Input data: +// //NUT: add description here +// +// Output data: +// //NUT: add description here +// +// Status: +// 12-Jun-2007 -- Nutricato Raffaele: Author. +// +// Copyright 2007 Raffaele Nutricato. +// Contact: raffaele.nutricato@tiscali.it +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),2,2); + +tmppwd = pwd(); +cd(InDir); +allfiles = ls(FileName); +cd(tmppwd); + +if (size(allfiles,1) == 0) + ExistTest = %F; +elseif (size(allfiles,1) == 1) + ExistTest = %T; +else + SCI2Cerror('Very Strange! Found more than one file with the same name.'); +end + +endfunction |