--------------------------------------------------------------------------------
-- NOM DU CSU (spécification) : FichSrc.ads
-- AUTEUR DU CSU : P. Pignard
-- VERSION DU CSU : 1.0a
-- DATE DE LA DERNIERE MISE A JOUR : 18 août 2008
-- ROLE DU CSU : Unité de gestion de la lecture du source.
--
--
-- FONCTIONS EXPORTEES DU CSU :
--
--
-- FONCTIONS LOCALES DU CSU :
--
--
-- NOTES :
--
-- COPYRIGHT : (c) Pascal Pignard 2008
-- LICENCE : CeCILL V2 (http://www.cecill.info)
-- CONTACT : http://blady.pagesperso-orange.fr
--------------------------------------------------------------------------------
with Ada.Direct_IO;
with BasicDef; use BasicDef;
package FichSrc is
-- Objet assurant la gestion du fichier source.
type TSourceMgr is tagged limited private;
procedure Open (Object : in out TSourceMgr; Name : TText);
procedure Read (Object : in out TSourceMgr; Ch1, Ch2 : out Character);
procedure Status (Object : TSourceMgr; Name : out TText; Ligne : out Natural);
procedure Close (Object : in out TSourceMgr);
private
package SrcFile is new Ada.Direct_IO (Character);
subtype Ttextbuff is TText;
-- Objet assurant la gestion du fichier source.
type TSourceMgr is tagged limited record
FName : TText;
FRef : SrcFile.File_Type;
FLen : SrcFile.Count;
CptCar, CptLigne : Natural;
TextBuff : Ttextbuff;
ChTemp : Character;
end record;
end FichSrc;