CVS difference for arm/progs/arm_rtf.adb

Differences between 1.16 and version 1.17
Log of other versions for file arm/progs/arm_rtf.adb

--- arm/progs/arm_rtf.adb	2006/01/13 01:36:03	1.16
+++ arm/progs/arm_rtf.adb	2006/01/17 07:20:11	1.17
@@ -3715,6 +3715,43 @@
 	Ordinary_Text (Output_Object, Text); -- Nothing special in this format.
     end AI_Reference;
 
+
+    procedure Local_Target (Output_Object : in out RTF_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 RTF_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 RTF_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;
+
 -- Notes:
 -- "\_" is a non-breaking hyphen.
 

Questions? Ask the ACAA Technical Agent