-- Chapter 16 - Program 4
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_text_IO; use Ada.Integer_Text_IO;
with DynStrng; use DynStrng;

procedure TryStrng is

   Try_This : STRING(1..13);
   Name     : DYNAMIC_STRING(0..15);
   Stuff    : DYNAMIC_STRING(0..35);
   Result   : BOOLEAN;
   Neat     : constant STRING := "XYZ";
   Good3    : STRING(1..3);
   Good4    : STRING(1..4);
   Column   : INTEGER;

begin

   Name(0) := CHARACTER'VAL(3);
   Stuff(0) := CHARACTER'VAL(7);

   Put(Size_Of(Name));
   Put(Size_Of(Stuff));
   Put(Length(Name));
   Put(Length(Stuff));
   New_Line;

   Try_This := "ABCDEFGHIJKL$";
   Copy(Try_This,Stuff,Result);
   Put(Size_Of(Stuff));
   Put(Length(Stuff));
   Put(Stuff); Put(Stuff);
   New_Line(2);

   Copy(Stuff,Name,Result);
   Put(Name); Put(Name); Put(Name); New_Line;

   Concat(Name,Name,Stuff,Result);
   Put(Stuff); New_Line;

   Delete(Stuff,5,3,Result);
   Put(Stuff); New_Line;
   Delete(Stuff,6,3,Result);
   Put(Stuff); New_Line;
   Delete(Stuff,6,3,Result);
   Put(Stuff); New_Line;
   Delete(Stuff,6,3,Result);
   Put(Stuff); New_Line;
   Delete(Stuff,6,3,Result);
   Put(Stuff); New_Line;
   Delete(Stuff,6,3,Result);
   Put(Stuff); New_Line;
   Delete(Stuff,6,3,Result);
   Put(Stuff); New_Line;
   Delete(Stuff,6,3,Result);
   Put(Stuff); New_Line(2);

   Try_This := "1234567890123";
   Copy(Try_This,Stuff,Result);
   Copy(Neat,Name,Result);
   Put(Stuff); Put(Name); New_Line;

   Insert(Stuff,Name,5,Result);
   Put(Stuff); New_Line;
   Insert(Stuff,Name,50,Result);
   Put(Stuff); New_Line;
   Insert(Stuff,Name,2,Result);
   Put(Stuff); New_Line;
   Insert(Stuff,Name,24,Result);
   Put(Stuff); New_Line;
   Insert(Stuff,Name,5,Result);
   Put(Stuff); New_Line;
   Insert(Stuff,Name,5,Result);
   Put(Stuff); New_Line;
   Insert(Stuff,Name,5,Result);
   Put(Stuff); New_Line;
   Insert(Stuff,Name,5,Result);
   Put(Stuff); New_Line(2);

   Good3 := "123";
   Try_This := "1234567890123";
   Copy(Try_This,Stuff,Result);
   Copy(Good3,Name,Result);
   Pos(Stuff,Name,1,Column,Result);
   Ada.Text_IO.Put("Found in column number"); Put(Column); New_Line;
   Pos(Stuff,Name,2,Column,Result);
   Ada.Text_IO.Put("Found in column number"); Put(Column); New_Line;
   Pos(Stuff,Name,7,Column,Result);
   Ada.Text_IO.Put("Found in column number"); Put(Column); New_Line;
   Pos(Stuff,Name,12,Column,Result);
   Ada.Text_IO.Put("Found in column number"); Put(Column); New_Line;
   Pos(Stuff,Name,18,Column,Result);
   Ada.Text_IO.Put("Found in column number"); Put(Column); New_Line;
   Pos(Stuff,Name,50,Column,Result);
   Ada.Text_IO.Put("Found in column number"); Put(Column); New_Line;

end TryStrng;