with Ada.Text_IO;
with Ada.Command_Line;
with Bundle;
procedure Show_Message is
use Bundle;
Count : constant Natural := Ada.Command_Line.Argument_Count;
begin
if Count = 0 then
Ada.Text_IO.Put_Line ("Missing argument 'msg' or 'msg_fr'");
Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
return;
end if;
for I in 1 .. Count loop
declare
Name : constant String := Ada.Command_Line.Argument (I);
C : constant Content_Access := Get_Content (Name);
begin
if C = null then
Ada.Text_IO.Put_Line ("FAIL: No bundle file " & Name);
Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
return;
end if;
for Val of C.all loop
Ada.Text_IO.Put (Character'Val (Val));
end loop;
end;
end loop;
end Show_Message;