CVS difference for ai12s/ai12-0312-1.txt

Differences between 1.12 and version 1.13
Log of other versions for file ai12s/ai12-0312-1.txt

--- ai12s/ai12-0312-1.txt	2019/10/30 04:30:15	1.12
+++ ai12s/ai12-0312-1.txt	2019/10/30 05:03:12	1.13
@@ -1,10 +1,12 @@
-!standard 5.5.2(2/3)                                  19-10-06  AI12-0312-1/07
+!standard 5.5.2(2/3)                                  19-10-29  AI12-0312-1/08
 !class presentation 19-02-07
+!status Amendment 1-2012 19-10-29
+!status ARG Approved 10-0-0  19-10-06
 !status work item 19-02-07
 !status received 19-02-07
 !priority Low
 !difficulty Easy
-!subject Examples for Ada 2020
+!subject Examples for Ada 202x
 !summary
 
 Additional examples are added, and existing ones improved.
@@ -21,19 +23,8 @@
 
 !wording
 
-Append after 3.5.2(11)  [or perhaps 13.4(14) instead?]
+Modify 3.10.1(23):
 
-   -- See 3.5.2 [if placed in 13.4]
-   for Roman_Digit use ('I' => 1,
-                        'V' => 5,
-                        'X' => 10,
-                        'L' => 50,
-                        'C' => 100,
-                        'D' => 500,
-                        'M' => 1000);
-
-Modify 3.10.1(23)
-
 My_Car, Your_Car, Next_Car : Car_Name := new Car;  -- see 4.8
 [George]{Casey} : Person_Name := new Person(M);
    ...
@@ -44,7 +35,7 @@
 and googling famous people named Casey produces about an even mix of the sexes.
 Chris produced mostly male for example, and Pat was also heavily male oriented]
 
-Append after 4.2.1(9.d/5):
+Append after 4.2.1(9/5):
 
 Examples
 
@@ -63,7 +54,7 @@
 
    function To_Roman_Number (S : String) return Roman_Number is
      (declare R : constant array (Integer range <>) of Integer :=
-        (for D in S'Range => Roman_Digit'Enum_Rep (Roman_Digit'Value (S (D..D)))) --  See 3.5.2 [(and 13.4 ???)]
+        (for D in S'Range => Roman_Digit'Enum_Rep (Roman_Digit'Value (''' & S(D) & '''))) --  See 3.5.2 and 13.4
       begin
         [for I in R'Range =>
           (if I < R'Last and then R(I) < R(I + 1) then -1 else 1) * R(I))]
@@ -84,17 +75,17 @@
 
 Delete paragraphs 4.3.5(105/5 - 106/5). [Example is not that different from others]
 
-Append after 4.5.7(22.a/5):
+Append after 4.5.7(21/3):
 
 Examples
    Put_Line ("Casey is " & (if Casey.Sex = M then "Male" else "Female")); -- See 3.10.1
 
-   function Card_Color (Card : Suit) return Color is --  See 3.5.2
+   function Card_Color (Card : Suit) return Color is --  See 3.5.1
      (case Card is
          when Clubs  | Spades   => Black,
          when Hearts | Diamonds => Red);
 
-Modify after 4.5.8 (13/3)
+Modify 4.5.8 (13/3):
 
 pragma Assert (for some X in 2 .. N {when X * X <= N}[/ 2] => N mod X = 0);  --  See iterator_filter in 5.5
 
@@ -158,21 +149,19 @@
 6 For an example of the use of these aspects and attributes, see the Streams
 Subsystem definitions in 13.13.1.
 
-Append after 6.1.2(50.b/5):
+Append after 6.1.2(50/5):
 
 NOTES
 
 For an example of the use of these aspects, see the Vector container definition
 in A.18.2.
 
-Append after 7.3.2(24.a/3):
+Append after 7.3.2(24/3):
 
 Examples
 
    --  A work scheduler where only urgent work can be scheduled for weekends
 
-with See_RM_3_5_1; use See_RM_3_5_1;
-
 package Work_Orders is
 
    --  See 3.5.1 for type declarations of Level, Day, and Weekday
@@ -226,7 +215,7 @@
 
 end Work_Orders;
 
-Append after 7.3.3(9.a/5):
+Append after 7.3.3(9/5):
 
 NOTES
 
@@ -235,12 +224,21 @@
 
 Append after 11.3(7):
 
-For an example of a raise expression, see the Streams Subsytem definitions in
+For an example of a raise expression, see the Streams Subsystem definitions in
 13.13.1.
+
+Append after 13.4(14):
 
-Append after 13.4(14)
+   -- See 3.5.2
+   for Roman_Digit use ('I' => 1,
+                        'V' => 5,
+                        'X' => 10,
+                        'L' => 50,
+                        'C' => 100,
+                        'D' => 500,
+                        'M' => 1000);
 
-For an example of the use of 'Enum_Rep, see 4.2.1
+For an example of the use of attribute Enum_Rep, see 4.2.1.
 
 Modify B.3(78/3):
 --Calling the C Library Function{s} strcpy{, and printf}

Questions? Ask the ACAA Technical Agent