-- PragmAda Reusable Component (PragmARC)
-- Copyright (C) 2024 by PragmAda Software Engineering. All rights reserved.
-- Released under the terms of the BSD 3-Clause license; see https://opensource.org/licenses
-- **************************************************************************
--
-- Parse a String into fields based on a separator Character
--
-- History:
-- 2024 Aug 15 J. Carter V1.1--Eliminated Raw
-- 2022 Aug 01 J. Carter V1.0--Initial version
--
pragma Assertion_Policy (Check);
pragma Unsuppress (All_Checks);
with Ada.Strings.Unbounded;
with Ada.Containers.Vectors;
package PragmARC.Line_Fields is
package Field_Lists is new Ada.Containers.Vectors
(Index_Type => Positive, Element_Type => Ada.Strings.Unbounded.Unbounded_String, "=" => Ada.Strings.Unbounded."=");
subtype Field_List is Field_Lists.Vector;
function Parsed (Line : String; Separator : Character := ' ') return Field_List;
-- Presumes that Line consists of fields speparated by Separator
-- If Separator = ' ', then fields are separated by 1 or more spaces; otherwise, they are separated by exactly 1 Separator
-- Handles quoted field surrounded by quotation marks (") that may contain Separator. The surrounding quotation marks are
-- removed and any doubled quotation marks ("") are converted to single quotation marks. Any field containing quotation marks
-- must have an even number of quotation marks or Constraint_Error will be raised
-- The result contains the fields parsed out of Line
end PragmARC.Line_Fields;