tasks a-s

Task/Scope-modifiers/Ada/scope-modifiers-1.ada

@@ -0,0 +1,5 @@
+package P is
+   ... -- Declarations placed here are publicly visible
+private
+   ... -- These declarations are visible only to the children of P
+end P;

Task/Scope-modifiers/Ada/scope-modifiers-2.ada

@@ -0,0 +1,11 @@
+package P is
+   type T is private; -- No components visible
+   procedure F (X : in out T); -- The only visible operation
+   N : constant T; -- A constant, which value is hidden
+private
+   type T is record -- The implementation, visible to children only
+      Component : Integer;
+   end record;
+   procedure V (X : in out T); -- Operation used only by children
+   N : constant T := (Component => 0); -- Constant implementation
+end P;

Task/Scope-modifiers/Ada/scope-modifiers-3.ada

@@ -0,0 +1,4 @@
+package body P is
+   -- The implementation of P, invisible to anybody
+   procedure W (X : in out T); -- Operation used only internally
+end P;

Task/Scope-modifiers/Ada/scope-modifiers-4.ada

@@ -0,0 +1,5 @@
+private package P.Q is
+   ... -- Visible to the siblings only
+private
+   ... -- Visible to the children only
+end P.Q;