From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,WEIRD_QUOTING
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,6487f59679c615d8
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.125.201 with SMTP id ms9mr11959493pbb.3.1336773589610;
        Fri, 11 May 2012 14:59:49 -0700 (PDT)
Path: 
 pr3ni15061pbb.0!nntp.google.com!news2.google.com!volia.net!news2.volia.net!feed-A.news.volia.net!news.musoftware.de!wum.musoftware.de!news.swapon.de!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Suggestion for RM HTML formatter extension
Date: Fri, 11 May 2012 22:59:49 +0100
Organization: A noiseless patient Spider
Message-ID: <m21umqbcq2.fsf@nidhoggr.home>
References: <82aa1ud0l3.fsf@stephe-leake.org> <jnla59$h9e$1@munin.nbi.dk>
	<jnnknk$3ko$1@munin.nbi.dk> <jnu7u0$16o$1@munin.nbi.dk>
	<jnv464$os5$1@munin.nbi.dk> <20120509131736.63c924c8@vostro>
	<82lil0gxbm.fsf@stephe-leake.org> <20120511040710.52bbc3fd@vostro>
	<op.wd4hv0viule2fv@douda-yannick>
	<87obpv17gd.fsf_-_@adaheads.sparre-andersen.dk>
	<m2aa1ebumt.fsf@nidhoggr.home>
Mime-Version: 1.0
Injection-Info: mx04.eternal-september.org;
 posting-host="Pd4gCuG8QV/d3K7tc8x0Wg";
	logging-data="11552"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX19XqDBcBGzX5DWOWYK1D0+5gX6VNEtVgSU="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (darwin)
Cancel-Lock: sha1:hQAglYReUscrROOjI4eS8/jjfKU=
	sha1:DX3f4LPV9gA3f1tSBOpd7vfKahA=
Content-Type: text/plain; charset=us-ascii
Date: 2012-05-11T22:59:49+01:00
List-Id: <comp.lang.ada>

Simon Wright <simon@pushface.org> writes:

> A simple patch

That patch is actually incomplete (there's another case I missed, which
I think would be invoked for a different output selection):

diff -r 61202be49b9e progs/arm_html.adb
--- a/progs/arm_html.adb	Thu May 10 16:59:13 2012 +0100
+++ b/progs/arm_html.adb	Fri May 11 16:57:39 2012 +0100
@@ -2254,7 +2254,11 @@
 		Paranum_Used := True;
 		Ada.Text_IO.Put (Output_Object.Output_File, "<div class=""paranum"">");
 	        Ada.Text_IO.Put (Output_Object.Output_File, "<font size=-2>");
+                Ada.Text_IO.Put (Output_Object.Output_File, "<a name=""p");
 	        Ada.Text_IO.Put (Output_Object.Output_File, Number);
+                Ada.Text_IO.Put (Output_Object.Output_File, """>");
+	        Ada.Text_IO.Put (Output_Object.Output_File, Number);
+                Ada.Text_IO.Put (Output_Object.Output_File, "</a>");
 	        Ada.Text_IO.Put (Output_Object.Output_File, "</font>");
 	        Ada.Text_IO.Put_Line (Output_Object.Output_File, "</div>");
 	        Output_Object.Char_Count := 0;
@@ -2345,7 +2349,11 @@
 	    if Number /= "" then -- Has paragraph number.
 		Paranum_Used := True;
 	        Ada.Text_IO.Put (Output_Object.Output_File, "<div class=""paranum"">");
+                Ada.Text_IO.Put (Output_Object.Output_File, "<a name=""p");
 	        Ada.Text_IO.Put (Output_Object.Output_File, Number);
+                Ada.Text_IO.Put (Output_Object.Output_File, """>");
+	        Ada.Text_IO.Put (Output_Object.Output_File, Number);
+                Ada.Text_IO.Put (Output_Object.Output_File, "</a>");
 	        Ada.Text_IO.Put_Line (Output_Object.Output_File, "</div>");
 	        Output_Object.Char_Count := 0;
 	        Output_Object.Disp_Char_Count := 0;