From 40b919e817999b444e31285af5020bed2c78cb75 Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Sat, 28 Feb 1998 20:56:22 +0100
Subject: [PATCH] upgrade to 0.6
Rev: tutorial/Sgml.pmod:1.7
---
tutorial/Sgml.pmod | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/tutorial/Sgml.pmod b/tutorial/Sgml.pmod
index d4fc1fab2b..6597189496 100644
--- a/tutorial/Sgml.pmod
+++ b/tutorial/Sgml.pmod
@@ -18,7 +18,8 @@ class Tag
return "pos "+pos+" in file "+file;
}
- varargs void create(string t, mapping p, int po, array(object) d, string f)
+ void create(string t, void|mapping p, void|int po,
+ void|array(object) d, void|string f)
{
tag=t;
pos=po;
@@ -134,8 +135,9 @@ SGML group(SGML data)
{
string tag=foo->tag[1..];
string t;
+ int d;
if (sscanf(tag,"%[^ \t\r\n>]%*s",t)==2) foo->tag=tag=t;
- for(int d=sizeof(ret)-1;d>=0;d--)
+ for(d=sizeof(ret)-1;d>=0;d--)
{
if(objectp(ret[d]) && !ret[d]->data && ret[d]->tag==tag)
{
@@ -166,7 +168,7 @@ string mktag(string tag, mapping params)
return ret+">";
}
-varargs string generate(SGML data, function mkt)
+string generate(SGML data, void|function mkt)
{
string ret="";
if(!mkt)
--
GitLab