CVS difference for arm/progs/arm_text.adb

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

--- arm/progs/arm_text.adb	2006/01/13 01:36:05	1.11
+++ arm/progs/arm_text.adb	2006/01/17 07:20:11	1.12
@@ -92,6 +92,7 @@
     --  5/27/05 - RLB - Added arbitrary Unicode characters.
     --  1/11/06 - RLB - Eliminated dispatching Create in favor of tailored
     --			versions.
+    --  1/13/06 - RLB - Added new Link operations.
 
     LINE_LENGTH : constant := 78;
 	-- Maximum intended line length.
@@ -1424,5 +1425,42 @@
     begin
 	Ordinary_Text (Output_Object, Text); -- Nothing special in this format.
     end AI_Reference;
+
+
+    procedure Local_Target (Output_Object : in out Text_Output_Type;
+			    Text : in String;
+			    Target : in String) is
+	-- Generate a local target. This marks the potential target of local
+	-- links identified by "Target". Text is the text of the target.
+	-- For hyperlinked formats, this should generate a link target;
+	-- for other formats, only the text is generated.
+    begin
+	Ordinary_Text (Output_Object, Text); -- Nothing special in this format.
+    end Local_Target;
+
+
+    procedure Local_Link (Output_Object : in out Text_Output_Type;
+			  Text : in String;
+			  Target : in String;
+			  Clause_Number : in String) is
+	-- Generate a local link to the target and clause given.
+	-- Text is the text of the link.
+	-- For hyperlinked formats, this should generate a link;
+	-- for other formats, only the text is generated.
+    begin
+	Ordinary_Text (Output_Object, Text); -- Nothing special in this format.
+    end Local_Link;
+
+
+    procedure URL_Link (Output_Object : in out Text_Output_Type;
+			Text : in String;
+			URL : in String) is
+	-- Generate a link to the URL given.
+	-- Text is the text of the link.
+	-- For hyperlinked formats, this should generate a link;
+	-- for other formats, only the text is generated.
+    begin
+	Ordinary_Text (Output_Object, Text); -- Nothing special in this format.
+    end URL_Link;
 
 end ARM_Text;

Questions? Ask the ACAA Technical Agent