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/FunName2SciFileName.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/FunName2SciFileName.sci')
| -rw-r--r-- | macros/GeneralFunctions/FunName2SciFileName.sci | 112 |
1 files changed, 56 insertions, 56 deletions
diff --git a/macros/GeneralFunctions/FunName2SciFileName.sci b/macros/GeneralFunctions/FunName2SciFileName.sci index 39ff5b21..97c75545 100644 --- a/macros/GeneralFunctions/FunName2SciFileName.sci +++ b/macros/GeneralFunctions/FunName2SciFileName.sci @@ -1,56 +1,56 @@ -function ScilabFileName = FunName2SciFileName(DirList,InFunName);
-// function ScilabFileName = FunName2SciFileName(DirList,InFunName);
-// -----------------------------------------------------------------
-// #RNU_RES_B
-// This function generates the full path of the scilab file
-// related to the function name (InFunName) specified.
-// In more detail the file "eval(InFunName).sci" file is searched
-// in the directories specified in DirList.
-// #RNU_RES_E
-//
-// Input data:
-// //NUT: add description here
-//
-// Output data:
-// //NUT: add description here
-//
-// Status:
-// 16-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-if (prod(size(DirList)) == 0)
- error(9999, 'Incorrect DirList parameter.');
-end
-
-if (prod(size(InFunName)) == 0)
- error(9999, 'Incorrect InFunName parameter.');
-end
-
-// --- Generate the PathList. ---
-for tmpcounter = 1:max(size(DirList))
- PathList(tmpcounter) = fullfile(DirList(tmpcounter),(InFunName+'.sci'));
-end
-
-// --- Search the .sci file. ---
-ScilabFileName = listfiles(PathList);
-
-// --- Check on the number of .sci files found. ---
-if ((prod(size(ScilabFileName))) > 1)
- disp(ScilabFileName);
- error(9999, 'Found more than one scilab file.');
-end
-
-if ((prod(size(ScilabFileName))) < 1)
- disp(ScilabFileName);
- error(9999, 'Scilab file ""'+InFunName+'.sci"", not found');
-end
-
-endfunction
+function ScilabFileName = FunName2SciFileName(DirList,InFunName); +// function ScilabFileName = FunName2SciFileName(DirList,InFunName); +// ----------------------------------------------------------------- +// #RNU_RES_B +// This function generates the full path of the scilab file +// related to the function name (InFunName) specified. +// In more detail the file "eval(InFunName).sci" file is searched +// in the directories specified in DirList. +// #RNU_RES_E +// +// Input data: +// //NUT: add description here +// +// Output data: +// //NUT: add description here +// +// Status: +// 16-Apr-2007 -- Nutricato Raffaele: Author. +// +// Copyright 2007 Raffaele Nutricato. +// Contact: raffaele.nutricato@tiscali.it +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),2,2); + +if (prod(size(DirList)) == 0) + error(9999, 'Incorrect DirList parameter.'); +end + +if (prod(size(InFunName)) == 0) + error(9999, 'Incorrect InFunName parameter.'); +end + +// --- Generate the PathList. --- +for tmpcounter = 1:max(size(DirList)) + PathList(tmpcounter) = fullfile(DirList(tmpcounter),(InFunName+'.sci')); +end + +// --- Search the .sci file. --- +ScilabFileName = listfiles(PathList); + +// --- Check on the number of .sci files found. --- +if ((prod(size(ScilabFileName))) > 1) + disp(ScilabFileName); + error(9999, 'Found more than one scilab file.'); +end + +if ((prod(size(ScilabFileName))) < 1) + disp(ScilabFileName); + error(9999, 'Scilab file ""'+InFunName+'.sci"", not found'); +end + +endfunction |