summaryrefslogtreecommitdiff
path: root/src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci
diff options
context:
space:
mode:
Diffstat (limited to 'src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci')
-rw-r--r--src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci45
1 files changed, 0 insertions, 45 deletions
diff --git a/src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci b/src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci
deleted file mode 100644
index c2f6db34..00000000
--- a/src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-function ScilabFileName = FunName2SciFileName(DirList,InFunName);
-// function ScilabFileName = FunName2SciFileName(DirList,InFunName);
-// -----------------------------------------------------------------
-// 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.
-//
-// Input data:
-//
-//
-// Output data:
-//
-// Status:
-// 16-Apr-2007 -- Nutricato Raffaele: Author.
-// -----------------------------------------------------------------
-
-if (prod(size(DirList)) == 0)
- SCI2Cerror('Incorrect DirList parameter.');
-end
-
-if (prod(size(InFunName)) == 0)
- SCI2Cerror('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);
- SCI2Cerror('Found more than one scilab file.');
-end
-
-if ((prod(size(ScilabFileName))) < 1)
- disp(ScilabFileName);
- SCI2Cerror('Scilab file ""'+InFunName+'.sci"", not found');
-end
-
-endfunction