CVS difference for arm/progs/arm_corr.ads

Differences between 1.7 and version 1.8
Log of other versions for file arm/progs/arm_corr.ads

--- arm/progs/arm_corr.ads	2007/02/11 07:28:53	1.7
+++ arm/progs/arm_corr.ads	2007/02/16 07:27:10	1.8
@@ -54,6 +54,8 @@
     -- 10/13/06 - RLB - Added Local_Link_Start and Local_Link_End to allow
     --			formatting in the linked text.
     --  2/ 9/07 - RLB - Changed comments on AI_Reference.
+    --  2/13/07 - RLB - Revised to separate style and indent information
+    --			for paragraphs.
 
     type Corr_Output_Type is new ARM_Output.Output_Type with private;
 
@@ -83,8 +85,9 @@
 	-- Raises Not_Valid_Error if in a paragraph.
 
     procedure Start_Paragraph (Output_Object : in out Corr_Output_Type;
-			       Format : in ARM_Output.Paragraph_Type;
-			       Number : in String;
+			       Style     : in ARM_Output.Paragraph_Style_Type;
+			       Indent    : in ARM_Output.Paragraph_Indent_Type;
+			       Number    : in String;
 			       No_Prefix : in Boolean := False;
 			       Tab_Stops : in ARM_Output.Tab_Info := ARM_Output.NO_TABS;
 			       No_Breaks : in Boolean := False;
@@ -93,12 +96,12 @@
 				   := ARM_Output.Normal;
 			       Justification : in ARM_Output.Justification_Type
 				   := ARM_Output.Default);
-	-- Start a new paragraph. The format of the paragraph is as specified.
-	-- The (AA)RM paragraph number (which might include update and version
-	-- numbers as well: [12.1/1]) is Number. If the format is a type with
-	-- a prefix (bullets, hangining items), the prefix is omitted if
-	-- No_Prefix is true. Tab_Stops defines the tab stops for the
-	-- paragraph. If No_Breaks is True, we will try to avoid page breaks
+	-- Start a new paragraph. The style and indent of the paragraph is as
+	-- specified. The (AA)RM paragraph number (which might include update
+	-- and version numbers as well: [12.1/1]) is Number. If the format is
+	-- a type with a prefix (bullets, hangining items), the prefix is
+	-- omitted if No_Prefix is true. Tab_Stops defines the tab stops for
+	-- the paragraph. If No_Breaks is True, we will try to avoid page breaks
 	-- in the paragraph. If Keep_with_Next is true, we will try to avoid
 	-- separating this paragraph and the next one. (These may have no
 	-- effect in formats that don't have page breaks). Space_After
@@ -262,8 +265,8 @@
 
     procedure End_Hang_Item (Output_Object : in out Corr_Output_Type);
 	-- Marks the end of a hanging item. Call only once per paragraph.
-	-- Raises Not_Valid_Error if the paragraph format is not
-	-- Hanging .. Small_Nested_Enumerated, or if this has already been
+	-- Raises Not_Valid_Error if the paragraph style is not in
+	-- Text_Prefixed_Style_Subtype, or if this has already been
 	-- called for the current paragraph, or if the paragraph was started
 	-- with No_Prefix = True.
 
@@ -408,7 +411,8 @@
 	Char_Count : Natural := 0; -- Characters on current line.
 	Out_Char_Count : Natural := 0; -- Characters output on current line.
 	Indent_Amount : Natural := 0; -- Amount to indent paragraphs.
-	Para_Format : ARM_Output.Paragraph_Type := ARM_Output.Normal;
+	Para_Style : ARM_Output.Paragraph_Style_Type := ARM_Output.Normal;
+	Para_Indent : ARM_Output.Paragraph_Indent_Type := 0; -- Specified indent.
 	Is_Fixed_Format : Boolean; -- Is the text currently in a fixed format? (@Xcode)
 	Is_Bold : Boolean; -- Is the text currently bold?
 	Is_Italic : Boolean; -- Is the text current italics?

Questions? Ask the ACAA Technical Agent