------------------------------------------------------------------------------
-- Copyright (C) 2020 by Heisenbug Ltd. (gh+spat@heisenbug.eu)
--
-- This work is free. You can redistribute it and/or modify it under the
-- terms of the Do What The Fuck You Want To Public License, Version 2,
-- as published by Sam Hocevar. See the LICENSE file for more details.
------------------------------------------------------------------------------
pragma License (Unrestricted);
package body SPAT.String_Vectors is
---------------------------------------------------------------------------
-- Max_Length
---------------------------------------------------------------------------
not overriding
function Max_Length (Source : in List) return Ada.Text_IO.Count is
Result : Ada.Text_IO.Count := 0;
begin
for S of Source loop
Result :=
Ada.Text_IO.Count'Max (Result,
Ada.Text_IO.Count (Length (Source => S)));
end loop;
return Result;
end Max_Length;
end SPAT.String_Vectors;