CVS difference for arm/progs/arm_html.adb

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

--- arm/progs/arm_html.adb	2005/02/02 00:28:08	1.18
+++ arm/progs/arm_html.adb	2005/03/18 06:36:57	1.19
@@ -113,6 +113,9 @@
     -- 12/15/04 - RLB - Added wider columns.
     --  1/24/05 - RLB - Added Inner_Indented.
     --  2/ 1/05 - RLB - Added Turkish chars to allow an AARM note.
+    --  3/15/05 - RLB - Turned on Unicode characters at Pascal's insistence.
+    --  3/17/05 - RLB - Removed ceiling and floor characters because they don't
+    --			work on Windows.
 
     LINE_LENGTH : constant := 78;
 	-- Maximum intended line length.
@@ -128,8 +131,9 @@
     HTML_Kind : constant HTML_Type := HTML_4_Compatible;
 	-- Eventually, this will be a parameter to the Create routine.
 
-    Use_Unicode : constant Boolean := False;
-	-- Use Unicode characters. (Many browsers can't display these.)
+    Use_Unicode : constant Boolean := True;
+	-- Use Unicode characters. (Many older browsers can't display these;
+	-- it's known that IE can't do so on Windows 95/98/ME.)
 
     LEADING_PERCENT : constant := 70;
 	-- Leading is 70% of normal height.
@@ -3592,7 +3596,8 @@
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 2;
 		end if;
 	    when ARM_Output.Left_Ceiling =>
-		if HTML_Kind > HTML_3 and Use_Unicode then
+		if FALSE and (HTML_Kind > HTML_3 and Use_Unicode) then
+		    -- This character doesn't display on Windows 2000/XP.
 	            Output_Text (Output_Object, "⌈");
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 1;
 		else
@@ -3600,7 +3605,8 @@
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 8;
 		end if;
 	    when ARM_Output.Right_Ceiling =>
-		if HTML_Kind > HTML_3 and Use_Unicode then
+		if FALSE and (HTML_Kind > HTML_3 and Use_Unicode) then
+		    -- This character doesn't display on Windows 2000/XP.
 	            Output_Text (Output_Object, "⌉");
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 1;
 		else
@@ -3608,7 +3614,8 @@
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 1;
 		end if;
 	    when ARM_Output.Left_Floor =>
-		if HTML_Kind > HTML_3 and Use_Unicode then
+		if FALSE and (HTML_Kind > HTML_3 and Use_Unicode) then
+		    -- This character doesn't display on Windows 2000/XP.
 	            Output_Text (Output_Object, "⌊");
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 1;
 		else
@@ -3616,7 +3623,8 @@
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 6;
 		end if;
 	    when ARM_Output.Right_Floor =>
-		if HTML_Kind > HTML_3 and Use_Unicode then
+		if FALSE and (HTML_Kind > HTML_3 and Use_Unicode) then
+		    -- This character doesn't display on Windows 2000/XP.
 	            Output_Text (Output_Object, "⌋");
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 1;
 		else
@@ -3624,7 +3632,8 @@
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 1;
 		end if;
 	    when ARM_Output.Thin_Space =>
-		if HTML_Kind > HTML_3 and Use_Unicode then
+		if FALSE and (HTML_Kind > HTML_3 and Use_Unicode) then
+		    -- This character doesn't display on Windows 2000/XP.
 	            Output_Text (Output_Object, " ");
 		    Output_Object.Disp_Char_Count := Output_Object.Disp_Char_Count + 1;
 		else

Questions? Ask the ACAA Technical Agent