CVS difference for arm/progs/arm_text.adb

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

--- arm/progs/arm_text.adb	2005/02/02 00:28:10	1.9
+++ arm/progs/arm_text.adb	2005/08/21 18:02:01	1.10
@@ -89,6 +89,7 @@
     -- 11/15/04 - RLB - Added Indented_Nested_Bulleted.
     --  1/24/05 - RLB - Added Inner_Indented.
     --  2/ 1/05 - RLB - Added Turkish chars to allow an AARM note.
+    --  5/27/05 - RLB - Added arbitrary Unicode characters.
 
     LINE_LENGTH : constant := 78;
 	-- Maximum intended line length.
@@ -1207,6 +1208,16 @@
 		Ordinary_Text (Output_Object, "I"); -- Not available in plain text, use the nearest text.
 	end case;
     end Special_Character;
+
+
+    procedure Unicode_Character (Output_Object : in out Text_Output_Type;
+			         Char : in ARM_Output.Unicode_Type) is
+	-- Output a Unicode character, with code position Char.
+	Char_Code : constant String := ARM_Output.Unicode_Type'Image(Char);
+    begin
+	-- We don't check, but we assume this is not a normal character.
+	Ordinary_Text (Output_Object, "<Unicode-" & Char_Code(2..Char_Code'Last) & ">");
+    end Unicode_Character;
 
 
     procedure End_Hang_Item (Output_Object : in out Text_Output_Type) is

Questions? Ask the ACAA Technical Agent