From 0418c7706bb45d3113f6e23053ed29deabccd49a Mon Sep 17 00:00:00 2001 From: Shawn Nock Date: Fri, 8 Mar 2019 11:29:29 -0500 Subject: [PATCH] Removes unused string splitting package --- src/split_string.adb | 30 ------------------------------ src/split_string.ads | 9 --------- 2 files changed, 39 deletions(-) delete mode 100644 src/split_string.adb delete mode 100644 src/split_string.ads diff --git a/src/split_string.adb b/src/split_string.adb deleted file mode 100644 index 0ac7046..0000000 --- a/src/split_string.adb +++ /dev/null @@ -1,30 +0,0 @@ -with Ada.Text_IO; use Ada.Text_IO; - -package body Split_String is - procedure Split_By (Output : out Separated_String; - src : Unbounded_String; - separator : Character) - is - use Separated_String_Pkg; - Tmp_String : Unbounded_String; - begin - for char of To_String(src) loop - if char = separator then - Append(Output, Tmp_String); - Put_Line("Appending: " & To_String(Tmp_String)); - Tmp_String := To_Unbounded_String(""); - else - Tmp_String := Tmp_String & char; - end if; - end loop; - Put_Line("Appending: " & To_String(Tmp_String)); - Append(Output, Tmp_String); - end; - - procedure Split - (Output : out Separated_String; src : Unbounded_String) is - begin - Split_By(Output => Output, src => src, separator => ' '); - end; - -end Split_String; diff --git a/src/split_string.ads b/src/split_string.ads deleted file mode 100644 index aa44fa1..0000000 --- a/src/split_string.ads +++ /dev/null @@ -1,9 +0,0 @@ -with Ada.Containers.Formal_Indefinite_Vectors; use Ada.Containers; -with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; -package Split_String -with Spark_Mode is - type Split_String is array (Natural range <>) of String; - procedure Split_By(output : out Separated_String; src : Unbounded_String; separator : Character); - procedure Split(output: out Separated_String; src : Unbounded_String); - -end Split_String;