Replace single letter parameter name

Made consistent across all labs

Author: frank-at-adacore

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-in_depth/ada95/employee.adb

@@ -11,75 +11,75 @@ package body Employee is
    end Image;
 
    procedure Set_Name
-     (Item  : in out Person_T;
+     (This  : in out Person_T;
       Value :        Name_T) is
    begin
-      Item.The_Name := Value;
+      This.The_Name := Value;
    end Set_Name;
    function Name
-     (Item : Person_T)
+     (This : Person_T)
       return Name_T is
    begin
-      return Item.The_Name;
+      return This.The_Name;
    end Name;
 
    procedure Set_Birth_Date
-     (Item  : in out Person_T;
+     (This  : in out Person_T;
       Value :        Date_T) is
    begin
-      Item.The_Birth_Date := Value;
+      This.The_Birth_Date := Value;
    end Set_Birth_Date;
    function Birth_Date
-     (Item : Person_T)
+     (This : Person_T)
       return Date_T is
    begin
-      return Item.The_Birth_Date;
+      return This.The_Birth_Date;
    end Birth_Date;
 
-   procedure Print (Item : Person_T) is
+   procedure Print (This : Person_T) is
    begin
-      Put_Line ("Name: " & Name (Item));
-      Put_Line ("Birthdate: " & Image (Birth_Date (Item)));
+      Put_Line ("Name: " & Name (This));
+      Put_Line ("Birthdate: " & Image (Birth_Date (This)));
    end Print;
 
    procedure Set_Start_Date
-     (Item  : in out Employee_T;
+     (This  : in out Employee_T;
       Value :        Date_T) is
    begin
-      Item.The_Start_Date := Value;
+      This.The_Start_Date := Value;
    end Set_Start_Date;
    function Start_Date
-     (Item : Employee_T)
+     (This : Employee_T)
       return Date_T is
    begin
-      return Item.The_Start_Date;
+      return This.The_Start_Date;
    end Start_Date;
 
-   procedure Print (Item : Employee_T) is
+   procedure Print (This : Employee_T) is
    begin
-      Print (Person_T (Item)); --  Use parent "Print"
-      Put_Line ("Startdate: " & Image (Start_Date (Item)));
+      Print (Person_T (This)); --  Use parent "Print"
+      Put_Line ("Startdate: " & Image (Start_Date (This)));
    end Print;
 
    procedure Set_Job
-     (Item  : in out Position_T;
+     (This  : in out Position_T;
       Value :        Job_T) is
    begin
-      Item.The_Job := Value;
+      This.The_Job := Value;
    end Set_Job;
    function Job
-     (Item : Position_T)
+     (This : Position_T)
       return Job_T is
    begin
-      return Item.The_Job;
+      return This.The_Job;
    end Job;
 
-   procedure Print (Item : Position_T) is
+   procedure Print (This : Position_T) is
    begin
-      Put_Line ("Name: " & Name (Item));
-      Put_Line ("Birthdate: " & Image (Birth_Date (Item)));
-      Put_Line ("Startdate: " & Image (Start_Date (Item)));
-      Put_Line ("Job: " & Job_T'Image (Job (Item)));
+      Put_Line ("Name: " & Name (This));
+      Put_Line ("Birthdate: " & Image (Birth_Date (This)));
+      Put_Line ("Startdate: " & Image (Start_Date (This)));
+      Put_Line ("Job: " & Job_T'Image (Job (This)));
    end Print;
 
 end Employee;

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-in_depth/ada95/employee.ads

@@ -9,36 +9,36 @@ package Employee is
    type Job_T is (Sales, Engineer, Bookkeeping);
 
    procedure Set_Name
-     (Item  : in out Person_T;
+     (This  : in out Person_T;
       Value :        Name_T);
    function Name
-     (Item : Person_T)
+     (This : Person_T)
       return Name_T;
    procedure Set_Birth_Date
-     (Item  : in out Person_T;
+     (This  : in out Person_T;
       Value :        Date_T);
    function Birth_Date
-     (Item : Person_T)
+     (This : Person_T)
       return Date_T;
-   procedure Print (Item : Person_T);
+   procedure Print (This : Person_T);
 
    type Employee_T is new Person_T with private;
    procedure Set_Start_Date
-     (Item  : in out Employee_T;
+     (This  : in out Employee_T;
       Value :        Date_T);
    function Start_Date
-     (Item : Employee_T)
+     (This : Employee_T)
       return Date_T;
-   procedure Print (Item : Employee_T);
+   procedure Print (This : Employee_T);
 
    type Position_T is new Employee_T with private;
    procedure Set_Job
-     (Item  : in out Position_T;
+     (This  : in out Position_T;
       Value :        Job_T);
    function Job
-     (Item : Position_T)
+     (This : Position_T)
       return Job_T;
-   procedure Print (Item : Position_T);
+   procedure Print (This : Position_T);
 
 private
    type Person_T is tagged record

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-in_depth/answer/employee.adb

@@ -5,54 +5,56 @@ package body Employee is
    function Image (Date : Date_T) return String is
      (Date.Year'Image & " -" & Date.Month'Image & " -" & Date.Day'Image);
 
-   procedure Set_Name (O     : in out Person_T;
+   procedure Set_Name (This  : in out Person_T;
                        Value :        Name_T) is
    begin
-      O.The_Name := Value;
+      This.The_Name := Value;
    end Set_Name;
-   function Name (O : Person_T) return Name_T is (O.The_Name);
+   function Name (This : Person_T) return Name_T is (This.The_Name);
 
-   procedure Set_Birth_Date (O     : in out Person_T;
+   procedure Set_Birth_Date (This  : in out Person_T;
                              Value :        Date_T) is
    begin
-      O.The_Birth_Date := Value;
+      This.The_Birth_Date := Value;
    end Set_Birth_Date;
-   function Birth_Date (O : Person_T) return Date_T is (O.The_Birth_Date);
+   function Birth_Date (This : Person_T) return Date_T is
+      (This.The_Birth_Date);
 
-   procedure Print (O : Person_T) is
+   procedure Print (This : Person_T) is
    begin
-      Put_Line ("Name: " & O.Name);
-      Put_Line ("Birthdate: " & Image (O.Birth_Date));
+      Put_Line ("Name: " & This.Name);
+      Put_Line ("Birthdate: " & Image (This.Birth_Date));
    end Print;
 
-   not overriding procedure Set_Start_Date (O     : in out Employee_T;
+   not overriding procedure Set_Start_Date (This  : in out Employee_T;
                                             Value :        Date_T) is
    begin
-      O.The_Start_Date := Value;
+      This.The_Start_Date := Value;
    end Set_Start_Date;
-   not overriding function Start_Date (O : Employee_T) return Date_T is
-      (O.The_Start_Date);
+   not overriding function Start_Date (This : Employee_T) return Date_T is
+      (This.The_Start_Date);
 
-   overriding procedure Print (O : Employee_T) is
+   overriding procedure Print (This : Employee_T) is
    begin
-      Print (Person_T (O)); --  Use parent "Print"
-      Put_Line ("Startdate: " & Image (O.Start_Date));
+      Print (Person_T (This)); --  Use parent "Print"
+      Put_Line ("Startdate: " & Image (This.Start_Date));
    end Print;
 
 --Types_Body
-   not overriding procedure Set_Job (O     : in out Position_T;
+   not overriding procedure Set_Job (This  : in out Position_T;
                                      Value :        Job_T) is
    begin
-      O.The_Job := Value;
+      This.The_Job := Value;
    end Set_Job;
-   not overriding function Job (O : Position_T) return Job_T is (O.The_Job);
+   not overriding function Job (This : Position_T) return Job_T is
+      (This.The_Job);
 
-   overriding procedure Print (O : Position_T) is
+   overriding procedure Print (This : Position_T) is
    begin
-      Put_Line ("Name: " & O.Name);
-      Put_Line ("Birthdate: " & Image (O.Birth_Date));
-      Put_Line ("Startdate: " & Image (O.Start_Date));
-      Put_Line ("Job: " & O.Job'Image);
+      Put_Line ("Name: " & This.Name);
+      Put_Line ("Birthdate: " & Image (This.Birth_Date));
+      Put_Line ("Startdate: " & Image (This.Start_Date));
+      Put_Line ("Job: " & This.Job'Image);
    end Print;
 
 end Employee;

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-in_depth/answer/employee.ads

@@ -8,25 +8,25 @@ package Employee is
    end record;
    type Job_T is (Sales, Engineer, Bookkeeping);
 
-   procedure Set_Name (O     : in out Person_T;
+   procedure Set_Name (This  : in out Person_T;
                        Value :        Name_T);
-   function Name (O : Person_T) return Name_T;
-   procedure Set_Birth_Date (O     : in out Person_T;
+   function Name (This : Person_T) return Name_T;
+   procedure Set_Birth_Date (This  : in out Person_T;
                              Value :        Date_T);
-   function Birth_Date (O : Person_T) return Date_T;
-   procedure Print (O : Person_T);
+   function Birth_Date (This : Person_T) return Date_T;
+   procedure Print (This : Person_T);
 
    type Employee_T is new Person_T with private;
-   not overriding procedure Set_Start_Date (O     : in out Employee_T;
+   not overriding procedure Set_Start_Date (This  : in out Employee_T;
                                             Value :        Date_T);
-   not overriding function Start_Date (O : Employee_T) return Date_T;
-   overriding procedure Print (O : Employee_T);
+   not overriding function Start_Date (This : Employee_T) return Date_T;
+   overriding procedure Print (This : Employee_T);
 
    type Position_T is new Employee_T with private;
-   not overriding procedure Set_Job (O     : in out Position_T;
+   not overriding procedure Set_Job (This  : in out Position_T;
                                      Value :        Job_T);
-   not overriding function Job (O : Position_T) return Job_T;
-   overriding procedure Print (O : Position_T);
+   not overriding function Job (This : Position_T) return Job_T;
+   overriding procedure Print (This : Position_T);
 
 private
    type Person_T is tagged record

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-in_depth/prompt/employee.adb

@@ -1,20 +1,20 @@
 package body Employee is
 
    procedure Set_Attribute
-     (O     : in out Person_T;
+     (This  : in out Person_T;
       Value :        String) is
    begin
       null;
    end Set_Attribute;
 
    function Get_Attribute
-     (O : Person_T)
+     (This : Person_T)
       return String is
    begin
       return "";
    end Get_Attribute;
 
-   procedure Print (O : Person_T) is
+   procedure Print (This : Person_T) is
    begin
       null;
    end Print;

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-in_depth/prompt/employee.ads

@@ -4,12 +4,12 @@ package Employee is
    -- create primitive subprograms to set/get attributes for Person_T and
    -- to print the contents of Person_T
    procedure Set_Attribute
-     (O     : in out Person_T;
+     (This  : in out Person_T;
       Value :        String);
    function Get_Attribute
-     (O : Person_T)
+     (This : Person_T)
       return String;
-   procedure Print (O : Person_T);
+   procedure Print (This : Person_T);
 
    -- Create a new type Employee_T based on Person with some
    --    additional attributes