privacy: limited private, indef private, opaque pointers

Author: leogermond

courses/fundamentals_of_ada/110_private_types/07-limited-private.rst

@@ -0,0 +1,145 @@
+================
+Advanced Private
+================
+
+---------------
+Limited Private
+---------------
+
+.. code:: Ada
+
+   type T is limited private;
+
+* Same interface as private
+
+   - Removes :ada:`=` and :ada:`/=`
+   - Removes assignments
+   - Removes copies
+
+* Reminder: private type is a **view**
+
+   - Completion should provide **at least** the same set of features
+   - Completion can be a :ada:`limited record`
+   - ... but doesn't **have** to
+
+---------------
+Limited Private
+---------------
+
+* No assignment: user cannot duplicate a key
+* No equality: user cannot check two keys are the same
+* Private type: user cannot access or change the issued date
+* Definite: user **doesn't** have to call :ada:`Make_Key`
+
+.. code:: Ada
+
+   package Key_Stuff is
+      type Key is limited private;
+      function Make_Key( ... ) return Key;
+   private
+      type Key is limited record
+         Issued: Date;
+         Code: Integer;
+      end record;
+   end Key_Stuff;
+
+   package body Key_Stuff is
+      function Make_Key ( ... ) return Key is
+      begin
+         return New_Key: Key do
+            New_Key.Issued := Today;
+            New_Key.Code := ... ;
+         end return;
+      end Make_Key;
+      ...
+    end Key_Stuff;
+
+------------------
+Indefinite Private
+------------------
+
+* Indefinite: user **must** use the constructors
+* Delegated :ada:`constant` objects are static constructors
+* Type completion **can** be definite
+
+.. code:: Ada
+
+  package Binary_Trees is
+    type Tree_T (<>) is private;
+
+    Empty_Tree : constant Tree_T;
+
+    type Nodes_T is ...
+    type Edges_T is ...
+    procedure Make (N : Nodes_T; E : Edges_T);
+    ...
+  private
+    type Tree_T is record
+    ...
+
+    Empty_Tree : constant Tree_T := ...;
+       
+  end Binary_Trees;
+
+---------------
+Opaque Pointers
+---------------
+
+* User can instatiate 
+* Completion is an :ada:`access`
+* Concrete type being pointed to is **incomplete**
+* Implementation is done entirely within the body
+
+.. code:: Ada
+
+  package Black_Boxes is
+     type Box_T is private;
+     procedure Foo (B : Box_T);
+  private
+     type Internal_Box_T; -- incomplete
+     type Box_T is access all Internal_Box_T;
+  end Black_Boxes;
+
+------------------------
+Example: A String Holder
+------------------------
+
+.. code:: Ada
+
+    package String_Holders is
+       type Info is limited private;
+
+       function Contains (I : Info; S : String) return Boolean
+          with Ghost;
+       function Equals (A, B : Info) return Boolean
+          with Ghost;
+
+       function To_Info (S : String) return Info
+          with Post => Contains (To_Info'Result, S);
+       function To_String (Obj : Info)
+                            return String
+          with Post => Contains (Obj, To_String'Result);
+
+       function Copy (Obj : Info) return Info
+          with Post => Equals (Copy'Result, Obj);
+       procedure Copy (To   : in out Info;
+                       From :    	Info)
+          with Post => Equals (To, From);
+
+       procedure Append (Obj : in out Info;
+                         S   : String)
+          with Post => Contains (Obj, To_String (Obj)'Old & S);
+
+       procedure Reset (Obj : in out Info);
+       procedure Destroy (Obj : in out Info);
+
+    private
+       type Info is access String;
+       function To_String_Internal (I : Info) return String
+          is (if I = null then "" else I.all);
+
+       function Contains (I : Info; S : String) return Boolean
+          is (I /= null and then I.all = S);
+       function Equals (A, B : Info) return Boolean
+          is (To_String_Internal (A) = To_String_Internal (B));
+    end String_Holders;

courses/fundamentals_of_ada/300_expert_resource_management.rst

@@ -0,0 +1,36 @@
+**************************
+Expert Resource Management
+**************************
+
+.. container:: PRELUDE BEGIN
+
+.. container:: PRELUDE ROLES
+
+.. role:: ada(code)
+    :language: Ada
+
+.. role:: C(code)
+    :language: C
+
+.. role:: cpp(code)
+    :language: C++
+
+.. container:: PRELUDE SYMBOLS
+
+.. |rightarrow| replace:: :math:`\rightarrow`
+.. |forall| replace:: :math:`\forall`
+.. |exists| replace:: :math:`\exists`
+.. |equivalent| replace:: :math:`\iff`
+.. |le| replace:: :math:`\le`
+.. |ge| replace:: :math:`\ge`
+.. |lt| replace:: :math:`<`
+.. |gt| replace:: :math:`>`
+.. |checkmark| replace:: :math:`\checkmark`
+
+.. container:: PRELUDE REQUIRES
+
+.. container:: PRELUDE PROVIDES
+
+.. container:: PRELUDE END
+
+.. include:: 110_private_types/07-limited-private.rst