CVS difference for arm/progs/arm_rtf.adb

Differences between 1.44 and version 1.45
Log of other versions for file arm/progs/arm_rtf.adb

--- arm/progs/arm_rtf.adb	2012/09/01 06:46:49	1.44
+++ arm/progs/arm_rtf.adb	2012/11/06 02:30:37	1.45
@@ -138,6 +138,9 @@
     --			automatically (there are too many to hand-fix now).
     -- 10/25/11 - RLB - Added old insertion version to Revised_Clause_Header.
     --  4/ 3/12 - RLB - Eliminated redundancy.
+    --  8/31/12 - RLB - Added Output_Path.
+    -- 10/18/12 - RLB - Added additional hanging styles.
+    -- 11/05/12 - RLB - Added various additional styles.
 
     -- Note: We assume a lot about the Section_Names passed into
     -- Section in order to get the proper headers/footers/page numbers.
@@ -646,11 +649,11 @@
 			 "\s13\widctlpar\adjustright",
 		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext13 ");
 			  -- Note: Narrower space between and afterwards.
-	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 3), -- Hanging in indents
+	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 1),
 		       Font => ARM_Output.Default,
 		       Body_Font => Output_Object.Body_Font,
 		       Font_Size => 18,
-		       Style_Indent => INDENT_UNIT*3,
+		       Style_Indent => INDENT_UNIT*1,
 		       Style_Hang_Width => 360,
 		       Style_Before => 0,
 		       Style_After => 100,
@@ -672,11 +675,11 @@
 			 "\s15\widctlpar\adjustright",
 		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext15 ");
 			  -- Note: Narrower space between and afterwards.
-	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 5),
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 3),
 		       Font => ARM_Output.Default,
 		       Body_Font => Output_Object.Body_Font,
 		       Font_Size => 15,
-		       Style_Indent => INDENT_UNIT*5,
+		       Style_Indent => INDENT_UNIT*3,
 		       Style_Hang_Width => 360,
 		       Style_Before => 0,
 		       Style_After => 80,
@@ -1261,7 +1264,205 @@
 		       Style_String_Prefix =>
 			 "\s65\widctlpar\adjustright",
 		       Style_String_Suffix => "\cgrid\qj\sl-360\slmult0 \snext0 ");
+	    Set_Style (Paragraph_Info(ARM_Output.Giant_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 1440,
+		       Style_Before => 0,
+		       Style_After => 100,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s66\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext66 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Medium_Hanging, 2),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*2,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 100,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s67\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext67 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Giant_Hanging, 6),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 15,
+		       Style_Indent => INDENT_UNIT*6,
+		       Style_Hang_Width => 1440,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s68\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext68 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Medium_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 15,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s69\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext69 ");
+			  -- Note: Narrower space between and afterwards.
 
+	    -- The following are indented one extra level:
+	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 2),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*2,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 100,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s70\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext70 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Medium_Hanging, 3),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*3,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 100,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s71\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext71 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Wide_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 1080,
+		       Style_Before => 0,
+		       Style_After => 100,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s72\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext72 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 15,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s73\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext73 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Medium_Hanging, 5),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 15,
+		       Style_Indent => INDENT_UNIT*5,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s74\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext74 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Wide_Hanging, 6),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 15,
+		       Style_Indent => INDENT_UNIT*6,
+		       Style_Hang_Width => 1080,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s75\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext75 ");
+			  -- Note: Narrower space between and afterwards.
+
+	    -- The following are indented two extra levels:
+	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 3),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*3,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 100,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s76\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext76 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Medium_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 100,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s77\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-200\slmult0 \snext77 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 5),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 15,
+		       Style_Indent => INDENT_UNIT*5,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s78\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext78 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Medium_Hanging, 6),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 15,
+		       Style_Indent => INDENT_UNIT*6,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s79\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-170\slmult0 \snext79 ");
+			  -- Note: Narrower space between and afterwards.
+
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Examples, 2), -- Notes indent
+		       Font => ARM_Output.Fixed,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 14,
+		       Style_Indent => INDENT_UNIT*2,
+		       Style_Before => 0,
+		       Style_After => 70,
+		       Style_Justified => FALSE,
+		       Style_String_Prefix =>
+			 "\s80\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\sl-140\ql \snext80 ");
+
 	    -- New styles should be added here, following numbers will need adjustments.
 	    Set_Style (Heading_4_Info,
 		       Font => ARM_Output.Swiss,
@@ -1272,7 +1473,7 @@
 		       Style_After => 90,
 		       Style_Justified => FALSE,
 		       Style_String_Prefix =>
-			 "\s66\keepn\widctlpar\outlinelevel3\adjustright",
+			 "\s81\keepn\widctlpar\outlinelevel3\adjustright",
 		       Style_String_Suffix => "\b\ql\cgrid \sbasedon0 \snext0 ");
 	    if Output_Object.Big_Files then
 		-- Define the TOC styles:
@@ -1285,7 +1486,7 @@
 		           Style_After => 45,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s67\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s82\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
                 Set_Style (TOC_2_Info,
 		           Font => ARM_Output.Swiss,
@@ -1296,7 +1497,7 @@
 		           Style_After => 0,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s68\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s83\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
                 Set_Style (TOC_3_Info,
 		           Font => ARM_Output.Swiss,
@@ -1307,7 +1508,7 @@
 		           Style_After => 0,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s69\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s84\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
                 Set_Style (TOC_4_Info,
 		           Font => ARM_Output.Swiss,
@@ -1318,7 +1519,7 @@
 		           Style_After => 0,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s70\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s85\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
 	    end if;
 	    Set_Style (Table_C_Text_Info,
@@ -1548,11 +1749,11 @@
 			 "\s13\widctlpar\adjustright",
 		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext13 ");
 			  -- Note: Narrower space between and afterwards.
-	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 3),
+	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 1),
 		       Font => ARM_Output.Default,
 		       Body_Font => Output_Object.Body_Font,
 		       Font_Size => 22,
-		       Style_Indent => INDENT_UNIT*3,
+		       Style_Indent => INDENT_UNIT*1,
 		       Style_Hang_Width => 360,
 		       Style_Before => 0,
 		       Style_After => 120,
@@ -1561,7 +1762,7 @@
 			 "\s14\widctlpar\adjustright",
 		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext14 ");
 			  -- Note: Narrower space between and afterwards.
-	    Set_Style (Paragraph_Info(ARM_Output.Small_Wide_Hanging, 5),
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Wide_Hanging, 5), -- Indented two levels for use in indented text.
 		       Font => ARM_Output.Default,
 		       Body_Font => Output_Object.Body_Font,
 		       Font_Size => 18,
@@ -1574,11 +1775,11 @@
 			 "\s15\widctlpar\adjustright",
 		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext15 ");
 			  -- Note: Narrower space between.
-	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 5),
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 3), -- Indented two levels for use in indented text.
 		       Font => ARM_Output.Default,
 		       Body_Font => Output_Object.Body_Font,
 		       Font_Size => 18,
-		       Style_Indent => INDENT_UNIT*5,
+		       Style_Indent => INDENT_UNIT*3,
 		       Style_Hang_Width => 360,
 		       Style_Before => 0,
 		       Style_After => 90,
@@ -2163,6 +2364,203 @@
 		       Style_String_Prefix =>
 			 "\s65\widctlpar\adjustright",
 		       Style_String_Suffix => "\cgrid\qj\sl-440\slmult0 \snext0 ");
+	    Set_Style (Paragraph_Info(ARM_Output.Giant_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 22,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 1440,
+		       Style_Before => 0,
+		       Style_After => 110,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s66\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext66 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Medium_Hanging, 2),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 22,
+		       Style_Indent => INDENT_UNIT*2,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 120,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s67\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext67 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Giant_Hanging, 6),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*6,
+		       Style_Hang_Width => 1440,
+		       Style_Before => 0,
+		       Style_After => 90,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s68\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext68 ");
+			  -- Note: Narrower space between.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Medium_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 90,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s69\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext69 ");
+			  -- Note: Narrower space between.
+
+	    -- The following are indented one extra level:
+	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 2),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 22,
+		       Style_Indent => INDENT_UNIT*2,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 120,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s70\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext70 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Medium_Hanging, 3),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 22,
+		       Style_Indent => INDENT_UNIT*3,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 120,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s71\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext71 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Wide_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 22,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 1080,
+		       Style_Before => 0,
+		       Style_After => 120,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s72\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext72 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 90,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s73\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext73 ");
+			  -- Note: Narrower space between.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Medium_Hanging, 5),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*5,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 90,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s74\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext74 ");
+			  -- Note: Narrower space between.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Wide_Hanging, 6),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*6,
+		       Style_Hang_Width => 1080,
+		       Style_Before => 0,
+		       Style_After => 90,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s75\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext75 ");
+			  -- Note: Narrower space between.
+	    -- The following are indented two extra levels:
+	    Set_Style (Paragraph_Info(ARM_Output.Narrow_Hanging, 3),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 22,
+		       Style_Indent => INDENT_UNIT*3,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 120,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s76\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext76 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Medium_Hanging, 4),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 22,
+		       Style_Indent => INDENT_UNIT*4,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 120,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s77\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-240\slmult0 \snext77 ");
+			  -- Note: Narrower space between and afterwards.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 5),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*5,
+		       Style_Hang_Width => 360,
+		       Style_Before => 0,
+		       Style_After => 90,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s78\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext78 ");
+			  -- Note: Narrower space between.
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Medium_Hanging, 6),
+		       Font => ARM_Output.Default,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 18,
+		       Style_Indent => INDENT_UNIT*6,
+		       Style_Hang_Width => 720,
+		       Style_Before => 0,
+		       Style_After => 90,
+		       Style_Justified => TRUE,
+		       Style_String_Prefix =>
+			 "\s79\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\qj\sl-190\slmult0 \snext79 ");
+			  -- Note: Narrower space between.
+
+	    Set_Style (Paragraph_Info(ARM_Output.Small_Examples, 2), -- Indented for notes.
+		       Font => ARM_Output.Fixed,
+		       Body_Font => Output_Object.Body_Font,
+		       Font_Size => 16,
+		       Style_Indent => INDENT_UNIT*2,
+		       Style_Before => 0,
+		       Style_After => 80,
+		       Style_Justified => FALSE,
+		       Style_String_Prefix =>
+			 "\s80\widctlpar\adjustright",
+		       Style_String_Suffix => "\cgrid\ql\sl-170\slmult0 \snext80 ");
 
 	    -- New styles should be added here, following numbers will need adjustments.
 	    Set_Style (Heading_4_Info,
@@ -2174,7 +2572,7 @@
 		       Style_After => 100,
 		       Style_Justified => FALSE,
 		       Style_String_Prefix =>
-			 "\s66\keepn\widctlpar\outlinelevel3\adjustright",
+			 "\s81\keepn\widctlpar\outlinelevel3\adjustright",
 		       Style_String_Suffix => "\b\ql\cgrid \sbasedon0 \snext0 ");
 	    if Output_Object.Big_Files then
 		-- Define the TOC styles:
@@ -2187,7 +2585,7 @@
 			   Style_After => 60,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s67\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s82\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
                 Set_Style (TOC_2_Info,
 		           Font => ARM_Output.Swiss,
@@ -2198,7 +2596,7 @@
 			   Style_After => 0,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s68\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s83\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
                 Set_Style (TOC_3_Info,
 		           Font => ARM_Output.Swiss,
@@ -2209,7 +2607,7 @@
 			   Style_After => 0,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s69\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s84\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
                 Set_Style (TOC_4_Info,
 		           Font => ARM_Output.Swiss,
@@ -2220,7 +2618,7 @@
 			   Style_After => 0,
 		           Style_Justified => FALSE,
 		           Style_String_Prefix =>
-		             "\s70\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
+		             "\s85\widctlpar\tqr\tldot\tx" & Paper_Width & "\adjustright",
 		           Style_String_Suffix => "\b\cgrid \sbasedon0 \snext0 ");
 	    end if;
 	    Set_Style (Table_C_Text_Info,
@@ -2298,12 +2696,12 @@
         Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Indented;}");
 	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Wide_Hanging, 3));
         Ada.Text_IO.Put_Line (Output_Object.Output_File, "Hanging;}");
-	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Narrow_Hanging, 3));
-        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Indented Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Narrow_Hanging, 1));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Narrow Hanging;}");
 	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Wide_Hanging, 5));
         Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Hanging;}");
-	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 5));
-        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Indented Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 3));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Narrow Hanging;}");
 	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Bulleted, 1));
         Ada.Text_IO.Put_Line (Output_Object.Output_File, "Bulleted;}");
 	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Nested_Bulleted, 2));
@@ -2401,6 +2799,36 @@
         Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Swiss Code Indented Examples;}");
         Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Title, 0));
         Ada.Text_IO.Put_Line (Output_Object.Output_File, "Standard Title;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Giant_Hanging, 4));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Giant Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Medium_Hanging, 2));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Medium Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Giant_Hanging, 6));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Giant Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Medium_Hanging, 4));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Medium Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Narrow_Hanging, 2));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Indented Narrow Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Medium_Hanging, 3));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Indented Narrow Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Wide_Hanging, 4));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Indented Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 4));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Indented Narrow Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Medium_Hanging, 5));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Indented Medium Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Wide_Hanging, 6));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Indented Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Narrow_Hanging, 3));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Dbl Indented Narrow Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Medium_Hanging, 4));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Dbl Indented Narrow Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Narrow_Hanging, 5));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Dbl Indented Narrow Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Medium_Hanging, 6));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Dbl Indented Medium Hanging;}");
+	Write_Style (Output_Object.Output_File, Paragraph_Info(ARM_Output.Small_Examples, 2));
+        Ada.Text_IO.Put_Line (Output_Object.Output_File, "Small Notes Indented Examples;}");
         if Output_Object.Big_Files then
 	    Write_Style (Output_Object.Output_File, Heading_4_Info);
             Ada.Text_IO.Put_Line (Output_Object.Output_File, "Heading 4;}");
@@ -2788,9 +3216,11 @@
 
 	    when ARM_Output.Bulleted | ARM_Output.Nested_Bulleted |
 		 ARM_Output.Small_Bulleted | ARM_Output.Small_Nested_Bulleted |
-		 ARM_Output.Wide_Hanging | ARM_Output.Narrow_Hanging |
+		 ARM_Output.Giant_Hanging | ARM_Output.Wide_Hanging |
+		 ARM_Output.Medium_Hanging | ARM_Output.Narrow_Hanging |
 		 ARM_Output.Hanging_in_Bulleted |
-		 ARM_Output.Small_Wide_Hanging | ARM_Output.Small_Narrow_Hanging |
+		 ARM_Output.Small_Giant_Hanging | ARM_Output.Small_Wide_Hanging |
+		 ARM_Output.Small_Medium_Hanging | ARM_Output.Small_Narrow_Hanging |
 		 ARM_Output.Small_Hanging_in_Bulleted |
 		 ARM_Output.Enumerated | ARM_Output.Small_Enumerated =>
 		if Output_Object.Tab_Stops.Number /= 0 then
@@ -2931,9 +3361,11 @@
 		    end if;
 		end if;
 
-	    when ARM_Output.Wide_Hanging | ARM_Output.Narrow_Hanging |
+	    when ARM_Output.Giant_Hanging | ARM_Output.Wide_Hanging |
+		 ARM_Output.Medium_Hanging | ARM_Output.Narrow_Hanging |
 		 ARM_Output.Hanging_in_Bulleted |
-		 ARM_Output.Small_Wide_Hanging | ARM_Output.Small_Narrow_Hanging |
+		 ARM_Output.Small_Giant_Hanging | ARM_Output.Small_Wide_Hanging |
+		 ARM_Output.Small_Medium_Hanging | ARM_Output.Small_Narrow_Hanging |
 		 ARM_Output.Small_Hanging_in_Bulleted |
 		 ARM_Output.Enumerated | ARM_Output.Small_Enumerated =>
 		Write_Style_for_Paragraph (Output_Object.Output_File,
@@ -3033,8 +3465,10 @@
 	end if;
 	-- Start hang (last), so we get a clean count of prefix characters:
 	case Style is
-	    when ARM_Output.Wide_Hanging | ARM_Output.Narrow_Hanging |
-		 ARM_Output.Small_Wide_Hanging | ARM_Output.Small_Narrow_Hanging |
+	    when ARM_Output.Giant_Hanging | ARM_Output.Wide_Hanging |
+		 ARM_Output.Medium_Hanging | ARM_Output.Narrow_Hanging |
+		 ARM_Output.Small_Giant_Hanging | ARM_Output.Small_Wide_Hanging |
+		 ARM_Output.Small_Medium_Hanging | ARM_Output.Small_Narrow_Hanging |
 		 ARM_Output.Hanging_in_Bulleted | ARM_Output.Small_Hanging_in_Bulleted |
 		 ARM_Output.Enumerated | ARM_Output.Small_Enumerated =>
 		if not No_Prefix then

Questions? Ask the ACAA Technical Agent