Specification of package Tgx.Date_String

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2001, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= -- ;

with Ada.Calendar ;

package Tgx.Date_String is

    Monday is day 0 in the week
   subtype Day_In_Week is Natural range 0 .. 6 ;

   subtype Week_Number is Natural range 1 .. 54 ;

   type Split_Time is
   record
      Year     : Ada.Calendar.Year_Number ;
      Month    : Ada.Calendar.Month_Number ;
      Week     : Week_Number ;
      Day      : Ada.Calendar.Day_Number ;
      Week_Day : Day_In_Week ;
      Hour     : Natural ;
      Minute   : Natural ;
      Seconds  : Duration ;
   end record ;

   function Bissextile (Year : in Ada.Calendar.Year_Number)
      return Boolean ;

   function Get_Date (Date : in Ada.Calendar.Time := Ada.Calendar.Clock)
      return Split_Time ;

   function English (Date : in Ada.Calendar.Time := Ada.Calendar.Clock)
      return String ;

   function English (Date : in Split_Time) return String ;

   function French (Date : in Ada.Calendar.Time := Ada.Calendar.Clock)
      return String ;

   function French (Date : in Split_Time) return String ;

end Tgx.Date_String ;