with Ada.Strings.Unbounded;
package HTML is
use Ada.Strings.Unbounded;
type Text_Align_Type is (Center, Left, Right);
function HTML_Document
(Head_Contens : Unbounded_String := Null_Unbounded_String;
Body_Contens : Unbounded_String := Null_Unbounded_String) return Unbounded_String;
type Line_Type is array (Integer range <>) of Unbounded_String;
function Table (Lines : Unbounded_String := Null_Unbounded_String) return Unbounded_String;
function Line
(Item_List : Unbounded_String;
Head_Line : Boolean := False) return Unbounded_String;
function Item
(Contens : Unbounded_String;
Mark_First_Column : Boolean := False;
Text_Align : Text_Align_Type := Center) return Unbounded_String;
function Item (Contens : String; Mark_First_Column : Boolean := False) return Unbounded_String;
type String_Matrix_Type is array (Integer range <>, Integer range <>) of Unbounded_String;
function Table
(Matrix : String_Matrix_Type;
Head_Line : Boolean := False;
Mark_first_Column : Boolean := False;
Text_Align : Text_Align_Type := Center;
Display_Steps : Boolean := False) return Unbounded_String;
end HTML;