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

with Framework_Config;
use Framework_Config;

use Framework_Config.Priority_Io;

with id_generators;
use id_generators;

with Objects;
use Objects;

with Parameters;
use Parameters;

use parameters.User_Defined_Parameters_Table_Package;

with Offsets;
use Offsets;

use offsets.Offsets_Table_Package;

with Convert_Strings;

with Convert_Unbounded_Strings;

with text_io;
use text_io;

with Unbounded_Strings;
use Unbounded_Strings;

use unbounded_strings.Unbounded_String_List_Package;

with standards_io;
use standards_io;

use standards_io.boolean_io;

use standards_io.natural_io;

with Ada.Finalization;

with Unchecked_Deallocation;

with Primitive_XML_Strings;
use Primitive_XML_Strings;

with Lists;

with ada.strings.unbounded.text_io;
use ada.strings.unbounded.text_io;

with Tasks; use Tasks;

Package Tmp_Task is

   -- --------= PTask =--------

   type PTask;
   type PTask_Ptr is access all PTask'Class;
   type PTask is new Generic_Task with
   record
    period : Natural;
    jitter : Natural;
    every  : Natural;
   end record;

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

End Tmp_Task;