with Ada.Strings.Unbounded;
use Ada.Strings.Unbounded;

with Framework_Config;
use Framework_Config;

with id_generators;
use id_generators;

with Objects;
use Objects;

with Tasks;
use Tasks;

use tasks.Generic_Task_List_Package;

with standards_io;
use standards_io;

use standards_io.natural_io;

with Convert_Strings;

with Convert_Unbounded_Strings;

with text_io;
use text_io;

with Ada.Finalization;

with unbounded_strings;
use unbounded_strings;

use unbounded_strings.Unbounded_String_List_Package;

with Unchecked_Deallocation;

with Primitive_XML_Strings;
use Primitive_XML_Strings;

with Task_Groups; use Task_Groups;

Package Tmp_Transaction is

-- --------= Transaction =--------

   type Transaction;
   type Transaction_Ptr is access all Transaction'Class;
   type Transaction is new Generic_Task_Group with
   record
         period : Natural;
   end record;

   procedure Initialize(obj : in out Transaction);
   procedure Put(obj : in Transaction);
   procedure Put(obj : in Transaction_Ptr);
   procedure Put_Name(obj : in Transaction_Ptr);
   procedure Build_Attributes_XML_String(obj : in Transaction; level : in natural := 0; result : in out Unbounded_String);
   function XML_String(obj : in Transaction; level : in natural := 0) return Unbounded_String;
   function XML_String(obj : in Transaction_Ptr; level : in natural := 0) return Unbounded_String;
   function XML_Ref_String(obj : in Transaction; level : in natural := 0) return Unbounded_String;
   function XML_Ref_String(obj : in Transaction_Ptr; level : in natural := 0) return Unbounded_String;
   function Get_Name (obj : in Transaction) return Unbounded_String;
   function Get_Name (obj : in Transaction_Ptr) return Unbounded_String;
   function Copy(obj : in Transaction_Ptr) return Generic_Task_Group_Ptr;
   function Copy(obj : in Transaction) return Generic_Task_Group_Ptr;
   function type_of(obj : in Transaction) return unbounded_string_list;
   function type_of(obj : in Transaction_Ptr) return unbounded_string_list;
   procedure Free  is new Unchecked_Deallocation (Transaction'Class, Transaction_Ptr);

End Tmp_Transaction;