1 files changed, 63 insertions, 0 deletions
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci
new file mode 100644
index 00000000..6e560e6a
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci
@@ -0,0 +1,63 @@
+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