essai.adb

pragma Ada_2022;
with tuppleSpacePackage.RealTupples, Ada.Strings.Unbounded, Ada.Text_IO;
use tuppleSpacePackage.RealTupples,
tuppleSpacePackage, Ada.Strings.Unbounded, Ada.Text_IO;
procedure Essai is
    A, B: Unbounded_String;
    T: String_String_Tupple;
    Z: Integer_Positive_String_Tupple;
    I: Integer;
    P: Positive;
    F: Unbounded_String;
    Space: RealTuppleSpace;
begin
    Space.Out_Operation (Encode("111", "111"));
    Space.Out_Operation (Encode(-3,4, "Text"));
    Space.In_Operation (T);
    Put_line(To_String(T.A) & " " & To_string(T.B));
    begin
        Space.INP_Operation (T);
    exception when E: No_Immediate_Message =>
        Put_line ("Caught");
    end;
    begin
        Space.RDP_Operation (T);
    exception when E: No_Immediate_Message =>
        Put_line ("Caught");
    end;
    Space.In_Operation (Z);
    Put_line(Z'Image);
    Space.Out_Operation (Encode ("222", "222"));
    Space.Out_Operation (Encode ("aaa", "aaa"));
    Space.In_Operation (T);
    Put_line(T'Image);
    Space.In_Operation (T);
    Put_line(T'Image);
end Essai;