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/GeneralFunctions/FunName2SciFileName.sci | 112 ++++++++++++------------ 1 file changed, 56 insertions(+), 56 deletions(-) (limited to 'macros/GeneralFunctions/FunName2SciFileName.sci') 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 -- cgit