Science
/
tesselada
1
0
Fork 0
Code Releases Activity

Removes unused string splitting package

This commit is contained in:
Shawn Nock 2019-03-08 11:29:29 -05:00
parent ca89f35c64
commit 0418c7706b
2 changed files with 0 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/split_string.adb
View File

@ -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;

9
src/split_string.ads
View File

@ -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;