summaryrefslogtreecommitdiff
path: root/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci
diff options
context:
space:
mode:
Diffstat (limited to 'src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci')
-rw-r--r--src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci63
1 files changed, 0 insertions, 63 deletions
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci
deleted file mode 100644
index 6e560e6a..00000000
--- a/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci
+++ /dev/null
@@ -1,63 +0,0 @@
-function SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo)
-// function SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Jul-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-tmpannfilename = FunName+'.ann';
-tmpscifilename = FunName+'.sci';
-AnnFileName = '';
-ClsFileName = ''
-
-SCI2CClassSpecifier = SharedInfo.Annotations.FUNCLASS;
-FlagFoundAnnFile = 0;
-if SCI2Cfileexist(FileInfo.USER2CLibCAnnFun,tmpannfilename)
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.USER2CLibCAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.USER2CLibCAnnCls,SCI2CClassName+'.acls');
-elseif SCI2Cfileexist(FileInfo.USER2CLibSCIAnnFun,tmpannfilename)
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.USER2CLibSCIAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.USER2CLibSCIAnnCls,SCI2CClassName+'.acls');
-elseif (SCI2Cfileexist(FileInfo.SCI2CLibCAnnFun,tmpannfilename))
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.SCI2CLibCAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.SCI2CLibCAnnCls,SCI2CClassName+'.acls');
-elseif (SCI2Cfileexist(FileInfo.SCI2CLibSCIAnnFun,tmpannfilename))
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.SCI2CLibSCIAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.SCI2CLibSCIAnnCls,SCI2CClassName+'.acls');
-end
-
-if (FlagFoundAnnFile == 0)
- [FlagFoundAnnFile,fullpathscifilename] = SCI2CFindFile(FileInfo.UserSciFilesPaths,FunName+'.sci');
- if (FlagFoundAnnFile == 0)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Missing function annotation. Could not find',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: an associated .sci or .ann file for function: '+FunName,ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- AnnFileName = fullfile(FileInfo.USER2CLibSCIAnnFun,tmpannfilename);
- SCI2CClassName = FunName;
- SCI2CClassFileName = fullfile(FileInfo.USER2CLibSCIAnnCls,SCI2CClassName+'.acls');
- Sci2AnnotationFile(fullpathscifilename,SCI2CClassFileName,AnnFileName,...
- SharedInfo.Annotations.USERFUN,ReportFileName);
-end
-endfunction