CVS difference for arm/progs/arm_text.adb

Differences between 1.12 and version 1.13
Log of other versions for file arm/progs/arm_text.adb

--- arm/progs/arm_text.adb	2006/01/17 07:20:11	1.12
+++ arm/progs/arm_text.adb	2006/01/19 23:07:31	1.13
@@ -93,6 +93,7 @@
     --  1/11/06 - RLB - Eliminated dispatching Create in favor of tailored
     --			versions.
     --  1/13/06 - RLB - Added new Link operations.
+    --  1/18/06 - RLB - Added additional styles.
 
     LINE_LENGTH : constant := 78;
 	-- Maximum intended line length.
@@ -305,7 +306,20 @@
 	    when ARM_Output.Small_Indented_Examples => Output_Object.Indent_Amount := 26;
 	        Ada.Text_IO.Put (Output_Object.Output_File, "                    "); -- Six units.
 	        Output_Object.Char_Count := 20;
+	    when ARM_Output.Swiss_Examples => Output_Object.Indent_Amount := 6;
+	    when ARM_Output.Small_Swiss_Examples => Output_Object.Indent_Amount := 10;
+                Ada.Text_IO.Put (Output_Object.Output_File, "    ");
+		Output_Object.Char_Count := 4;
+	    when ARM_Output.Swiss_Indented_Examples => Output_Object.Indent_Amount := 18;
+                Ada.Text_IO.Put (Output_Object.Output_File, "            ");
+		Output_Object.Char_Count := 12;
+	    when ARM_Output.Small_Swiss_Indented_Examples => Output_Object.Indent_Amount := 26;
+	        Ada.Text_IO.Put (Output_Object.Output_File, "                    "); -- Six units.
+	        Output_Object.Char_Count := 20;
 	    when ARM_Output.Syntax_Indented => Output_Object.Indent_Amount := 6;
+	    when ARM_Output.Small_Syntax_Indented => Output_Object.Indent_Amount := 10;
+                Ada.Text_IO.Put (Output_Object.Output_File, "    ");
+		Output_Object.Char_Count := 4;
 	    when ARM_Output.Code_Indented => Output_Object.Indent_Amount := 10;
                 Ada.Text_IO.Put (Output_Object.Output_File, "    ");
 		Output_Object.Char_Count := 4;
@@ -504,11 +518,12 @@
 		 ARM_Output.Index | ARM_Output.Syntax_Summary |
 		 ARM_Output.Examples | ARM_Output.Small_Examples |
 		 ARM_Output.Indented_Examples | ARM_Output.Small_Indented_Examples |
-		 ARM_Output.Syntax_Indented |
+		 ARM_Output.Swiss_Examples | ARM_Output.Small_Swiss_Examples |
+		 ARM_Output.Swiss_Indented_Examples | ARM_Output.Small_Swiss_Indented_Examples |
+		 ARM_Output.Syntax_Indented | ARM_Output.Small_Syntax_Indented |
 		 ARM_Output.Indented | ARM_Output.Small_Indented |
 		 ARM_Output.Inner_Indented | ARM_Output.Small_Inner_Indented |
-		 ARM_Output.Code_Indented |
-		 ARM_Output.Small_Code_Indented =>
+		 ARM_Output.Code_Indented | ARM_Output.Small_Code_Indented =>
 		Output_Object.Tab_Stops := Tab_Stops;
 		    -- We'll expand proportional stops here (text characters
 		    -- are larger than the variable ones these are set up for).

Questions? Ask the ACAA Technical Agent