From f51ffdcf8da78bda96bce9206ff692d08c4781bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sun, 14 Dec 1997 22:48:23 +0100
Subject: [PATCH] Removed duplicate link-case.
Rev: tutorial/html.pike:1.12
---
tutorial/html.pike | 56 +++++++++++++++++-----------------------------
1 file changed, 20 insertions(+), 36 deletions(-)
diff --git a/tutorial/html.pike b/tutorial/html.pike
index c4261510f9..d1728bb32f 100644
--- a/tutorial/html.pike
+++ b/tutorial/html.pike
@@ -316,22 +316,28 @@ SGML convert(SGML data)
})+data->data+ ({ "\n" }));
continue;
- case "link":
- {
- data->tag="a";
- string to=data->params->to;
- m_delete(data->params,"to");
- if(!link_to_page[to])
- {
- werror("Warning: Cannot find link "+to+" (near "+data->location()+")\n");
- ret+=data->data;
- continue;
- }else{
+ case "link":
+ {
+ data->tag="a";
+ string to=data->params->to;
+ m_delete(data->params,"to");
+ if(!link_to_page[to])
+ {
+ string s=(to/".")[-1];
+ if (link_to_page[s])
+ to=s;
+ else
+ {
+ werror("Warning: Cannot find link "+to
+ +" (near "+data->location()+")\n");
+ data->tag="anchor";
+ break;
+ }
+ }
data->params->href=mklinkname(link_to_page[to])+"#"+to;
break;
- }
- }
-
+ }
+
case "arguments":
ret+=convert(({
Sgml.Tag(
@@ -360,28 +366,6 @@ SGML convert(SGML data)
Sgml.Tag("br")}));
continue;
- case "link":
- {
- data->tag="a";
- string to=data->params->to;
- m_delete(data->params,"to");
- if(!link_to_page[to])
- {
- string s=(to/".")[-1];
- if (link_to_page[s])
- to=s;
- else
- {
- werror("Warning: Cannot find link "+to
- +" (near "+data->location()+")\n");
- data->tag="anchor";
- break;
- }
- }
- data->params->href=mklinkname(link_to_page[to])+"#"+to;
- break;
- }
-
case "ref":
{
string to=data->params->to;
--
GitLab