1. with Ada.Strings.Unbounded; 
  2. package HTML is 
  3.  
  4.    use Ada.Strings.Unbounded; 
  5.  
  6.    type Text_Align_Type is (Center, Left, Right); 
  7.  
  8.    function HTML_Document 
  9.      (Head_Contens : Unbounded_String := Null_Unbounded_String; 
  10.       Body_Contens : Unbounded_String := Null_Unbounded_String) return Unbounded_String; 
  11.  
  12.    type Line_Type is array (Integer range <>) of Unbounded_String; 
  13.    function Table (Lines : Unbounded_String := Null_Unbounded_String) return Unbounded_String; 
  14.    function Line 
  15.      (Item_List  : Unbounded_String; 
  16.       Head_Line  : Boolean         := False) return Unbounded_String; 
  17.  
  18.    function Item 
  19.      (Contens           : Unbounded_String; 
  20.       Mark_First_Column : Boolean         := False; 
  21.       Text_Align        : Text_Align_Type := Center) return Unbounded_String; 
  22.  
  23.    function Item (Contens : String; Mark_First_Column : Boolean := False) return Unbounded_String; 
  24.  
  25.    type String_Matrix_Type is array (Integer range <>, Integer range <>) of Unbounded_String; 
  26.  
  27.    function Table 
  28.      (Matrix            : String_Matrix_Type; 
  29.       Head_Line         : Boolean         := False; 
  30.       Mark_first_Column : Boolean         := False; 
  31.       Text_Align        : Text_Align_Type := Center; 
  32.       Display_Steps     : Boolean         := False) return Unbounded_String; 
  33.  
  34. end HTML;