Skip to content
Snippets Groups Projects
Commit 40b919e8 authored by Mirar (Pontus Hagland)'s avatar Mirar (Pontus Hagland)
Browse files

upgrade to 0.6

Rev: tutorial/Sgml.pmod:1.7
parent 64b07fcb
No related branches found
No related tags found
No related merge requests found
...@@ -18,7 +18,8 @@ class Tag ...@@ -18,7 +18,8 @@ class Tag
return "pos "+pos+" in file "+file; 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; tag=t;
pos=po; pos=po;
...@@ -134,8 +135,9 @@ SGML group(SGML data) ...@@ -134,8 +135,9 @@ SGML group(SGML data)
{ {
string tag=foo->tag[1..]; string tag=foo->tag[1..];
string t; string t;
int d;
if (sscanf(tag,"%[^ \t\r\n>]%*s",t)==2) foo->tag=tag=t; 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) if(objectp(ret[d]) && !ret[d]->data && ret[d]->tag==tag)
{ {
...@@ -166,7 +168,7 @@ string mktag(string tag, mapping params) ...@@ -166,7 +168,7 @@ string mktag(string tag, mapping params)
return ret+">"; return ret+">";
} }
varargs string generate(SGML data, function mkt) string generate(SGML data, void|function mkt)
{ {
string ret=""; string ret="";
if(!mkt) if(!mkt)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment