CVS difference for arm/progs/arm_html.adb

Differences between 1.31 and version 1.32
Log of other versions for file arm/progs/arm_html.adb

--- arm/progs/arm_html.adb	2006/09/22 04:40:47	1.31
+++ arm/progs/arm_html.adb	2006/09/23 05:23:35	1.32
@@ -147,6 +147,7 @@
     --  3/28/06 - RLB - Removed unnecessary space from headers.
     --  3/30/06 - RLB - Added a bit of space around inline pictures.
     --  9/21/06 - RLB - Added Body_Font.
+    --  9/22/06 - RLB - Added Subsubclause.
 
     LINE_LENGTH : constant := 78;
 	-- Maximum intended line length.
@@ -3390,7 +3391,8 @@
 	    when ARM_Contents.Section =>
 	        Ada.Text_IO.Put_Line (Output_Object.Output_File, "<H1>Section " &
 				      Clause_Number & ": " & Header_Text & "</H1>");
-	    when ARM_Contents.Clause | ARM_Contents.Subclause =>
+	    when ARM_Contents.Clause | ARM_Contents.Subclause |
+		 ARM_Contents.Subsubclause =>
 	        Ada.Text_IO.Put_Line (Output_Object.Output_File, "<H1>" &
 				      Clause_Number & ' ' & Header_Text & "</H1>");
 	end case;
@@ -3473,7 +3475,8 @@
 	    when ARM_Contents.Section =>
 	        Ada.Text_IO.Put_Line (Output_Object.Output_File, "<H1>Section " &
 				      Clause_Number & ": " & Header_Text & "</H1>");
-	    when ARM_Contents.Clause | ARM_Contents.Subclause =>
+	    when ARM_Contents.Clause | ARM_Contents.Subclause |
+		 ARM_Contents.Subsubclause =>
 	        Ada.Text_IO.Put_Line (Output_Object.Output_File, "<H1> " &
 				      Clause_Number & ' ' & Header_Text & "</H1>");
 	end case;

Questions? Ask the ACAA Technical Agent