CVS difference for arm/progs/arm_html.ads

Differences between 1.15 and version 1.16
Log of other versions for file arm/progs/arm_html.ads

--- arm/progs/arm_html.ads	2006/02/11 07:59:47	1.15
+++ arm/progs/arm_html.ads	2006/02/19 06:44:41	1.16
@@ -87,6 +87,7 @@
     --  2/10/06 - RLB - Added even more additional parameters to the
     --			table command.
     --		- RLB - Added picture command.
+    --  2/19/06 - RLB - Added Number_Paragraphs flag and large letter count.
 
     type HTML_Output_Type is new ARM_Output.Output_Type with private;
 
@@ -110,6 +111,7 @@
 		      File_Prefix : in String;
 		      HTML_Kind : in HTML_Type;
 		      Use_Unicode : in Boolean;
+		      Number_Paragraphs : in Boolean;
 	              Ref_URL : in String;
 	              Srch_URL : in String;
 	              Index_URL : in String;
@@ -139,6 +141,8 @@
 	-- equivalents). [Note: It's known that IE on Windows 95/98/ME cannot
 	-- display Unicode characters.] Use_Unicode has no effect if HTML_Kind
 	-- is set to HTML_3.
+	-- Number_Paragraphs means that paragraph numbers will be used;
+	-- otherwise, the Number parameter to Start_Paragraph must be "".
 	-- Ref_URL, Srch_URL, and Index_URL are the URLs (possibly relative)
 	-- for the "References", "Search", and "Index" buttons/labels,
 	-- respectively. If null, these buttons/labels link to sections named
@@ -478,6 +482,7 @@
 	Title : Ada.Strings.Unbounded.Unbounded_String;
         HTML_Kind : HTML_Type;
         Use_Unicode : Boolean;
+        Number_Paragraphs : Boolean;
         Ref_URL : Ada.Strings.Unbounded.Unbounded_String;
         Srch_URL : Ada.Strings.Unbounded.Unbounded_String;
         Index_URL : Ada.Strings.Unbounded.Unbounded_String;
@@ -497,6 +502,8 @@
 	Section_Name : String(1..3);
 	Char_Count : Natural := 0; -- Characters on current line.
 	Disp_Char_Count : Natural := 0; -- Displayed characters on current line.
+	Disp_Large_Char_Count : Natural := 0; -- Displayed large characters on current line (others are "small" characters).
+			-- Large characters are capitals, 'm', 'w', and numbers.
 	Any_Nonspace : Boolean := False; -- Have we output any non-space on this line?
 	Last_was_Space : Boolean := False; -- True if the last visible character
 				-- output was a space (any kind), or this is the

Questions? Ask the ACAA Technical Agent