aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Distributed-programming/Ada/distributed-programming-1.ada
View file

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

13
Task/Distributed-programming/Ada/distributed-programming-2.ada
View file

@ -1,13 +0,0 @@
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;

9
Task/Distributed-programming/Ada/distributed-programming-3.ada
View file

@ -1,9 +0,0 @@
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;

13
Task/Distributed-programming/Ada/distributed-programming-4.ada
View file

@ -1,13 +0,0 @@
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;