Data commit

Task/Distributed-programming/Ada/distributed-programming-1.ada

@@ -0,0 +1,5 @@
+package Server is
+   pragma Remote_Call_Interface;
+   procedure Foo;
+   function Bar return Natural;
+end Server;

Task/Distributed-programming/Ada/distributed-programming-2.ada

@@ -0,0 +1,13 @@
+package body Server is
+   Count : Natural := 0;
+
+   procedure Foo is
+   begin
+      Count := Count + 1;
+   end Foo;
+
+   function Bar return Natural is
+   begin
+      return Count;
+   end Bar;
+end Server;

Task/Distributed-programming/Ada/distributed-programming-3.ada

@@ -0,0 +1,9 @@
+with Server;
+with Ada.Text_IO;
+
+procedure Client is
+begin
+   Ada.Text_IO.Put_Line ("Calling Foo...");
+   Server.Foo;
+   Ada.Text_IO.Put_Line ("Calling Bar: " & Integer'Image (Server.Bar));
+end Client;

Task/Distributed-programming/Ada/distributed-programming-4.ada

@@ -0,0 +1,13 @@
+configuration DSA is
+   pragma Starter (None);
+
+   -- Server
+   Server_Partition : Partition := (Server);
+   procedure Run_Server is in Server_Partition;
+
+   -- Client
+   Client_Partition : Partition;
+   for Client_Partition'Termination use Local_Termination;
+   procedure Client;
+   for Client_Partition'Main use Client;
+end DSA;