From 9d4cbed90bf28487c52de84e7040ee78e60b4b5d Mon Sep 17 00:00:00 2001
From: nutricato
Date: Wed, 4 Jun 2008 08:58:15 +0000
Subject: 

---
 src/Scilab2C/Annotations/Sci2AnnotationFile.sci | 73 -------------------------
 1 file changed, 73 deletions(-)
 delete mode 100644 src/Scilab2C/Annotations/Sci2AnnotationFile.sci

(limited to 'src/Scilab2C/Annotations/Sci2AnnotationFile.sci')

diff --git a/src/Scilab2C/Annotations/Sci2AnnotationFile.sci b/src/Scilab2C/Annotations/Sci2AnnotationFile.sci
deleted file mode 100644
index a7046543..00000000
--- a/src/Scilab2C/Annotations/Sci2AnnotationFile.sci
+++ /dev/null
@@ -1,73 +0,0 @@
-function Sci2AnnotationFile(FileInfoDatFile,SciFileName)
-// function Sci2AnnotationFile(FileInfoDatFile,SciFileName)
-// --------------------------------------------------------------------------------
-// This function reads the .sci input file and generates the correspondig .ann
-// file.
-//
-// Input data:
-// FileInfoDatFile: name of the .dat file containing the FileInfo structure.
-//
-// Output data:
-//
-// Status:
-// 25-Jun-2007 -- Nutricato Raffaele: Author.
-// -----------------------------------------------------------------
-
-// ---------------------
-// --- Load section. ---
-// ---------------------
-// --- Load File Info Structure. ---
-load(FileInfoDatFile,'FileInfo');
-
-// --- Load Shared Info Structure. ---
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-
-// --- Extraction of the function name and number. ---
-funname   = SharedInfo.Next(1).SCIFunName;
-funnumber = SharedInfo.NextSCIFunNumber;
-// -------------------------
-// --- End load section. ---
-// -------------------------
-
-// --- File names initialization. ---
-[tmppath,tmpname,tmpext] = fileparts(SciFileName);
-AnnFileName = fullfile(FileInfo.USER2CLibAnnDirName,tmpname+'.ann');
-
-PrintStepInfo('Generate annotations file: '+AnnFileName,...
-   FileInfo.GeneralReport,'both');
-
-// ---------------------------------------
-// --- Open the .sci file (read only). ---
-// ---------------------------------------
-[inscifid,inscierr] = mopen(SciFileName,'r');
-if (inscierr < 0)
-   SCI2Cerror(['Cannot open (in read mode): '+SciFileName]);
-end
-
-// ----------------------------------------------
-// --- Loop over the lines of the input file. ---
-// ----------------------------------------------
-line_position = 0;
-while (meof(inscifid) == 0)
-   check_string = stripblanks(mgetl(inscifid,1));
-   line_position = line_position + 1;
-   if (length(check_string) >= 1)
-      if ((SCI2Cstrncmps1size(SharedInfo.Annotations.GBLVAR,check_string)) | ...
-         (SCI2Cstrncmps1size(SharedInfo.Annotations.VARTYPE,check_string)) | ...
-         (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNOUT,check_string)) | ...
-         (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNSIZE,check_string)) | ...
-         (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNTYPE,check_string)))
-         PrintStringInfo('Line '+string(line_position)+' - Found Annotation:: '+' ""'+check_string+' ""',...
-            FileInfo.GeneralReport,'file','y');
-         PrintStringInfo(check_string,...
-            AnnFileName,'file','y');
- 
-      end
-   end
-end
-// --------------------------------------------------
-// --- End loop over the lines of the input file. ---
-// --------------------------------------------------
-
-mclose(inscifid);
-endfunction
-- 
cgit