-- Copyright (c) 2019-2021 Bartek thindil Jasicki <thindil@laeran.pl>
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.

with Ada.Characters.Latin_1;
with Ada.Text_IO;

package body Messages is

   procedure Show_Message
     (Text: String; Message_Type: Messages_Types := Default_Message_Type) is
      use Ada.Characters.Latin_1;
      use Ada.Text_IO;
   begin
      -- Change text color in terminal if needed
      case Message_Type is
         when ERROR =>
            Put(Item => ESC & "[31m");
         when SUCCESS =>
            Put(Item => ESC & "[32m");
         when NORMAL =>
            null;
      end case;
      Put(Item => Text);
      -- Reset text color in terminal if needed
      if Message_Type /= NORMAL then
         Put(Item => ESC & "[0m");
      end if;
      New_Line;
   end Show_Message;

end Messages;