* Emit html. Keep track of tags so that user doesn't have to.

/*
* Emit html. Keep track of tags so that user doesn't have to.
*/

#include "a.h"

typedef struct Tag Tag;
struct Tag
{
Tag *next;
Rune *id;
Rune *open;
Rune *close;
};

Tag *tagstack;
Tag *tagset;
int hidingset;

static Rune*
closingtag(Rune *s)
{
Rune *t;
Rune *p0, *p;

t = runemalloc(sizeof(Rune));
if(s == nil)
return t;
for(p=s; *p; p++){
if(*p == Ult){
p++;
if(*p == '/'){
while(*p && *p != Ugt)
p++;
goto close;
}
p0 = p;
while(*p && !isspacerune(*p) && *p != Uspace && *p != Ugt)
p++;
t = runerealloc(t, 1+(p-p0)+2+runestrlen(t)+1);
runemove(t+(p-p0)+3, t, runestrlen(t)+1);
t[0] = Ult;
t[1] = '/';
runemove(t+2, p0, p-p0);
t[2+(p-p0)] = Ugt;
}

if(*p == Ugt && p>s && *(p-1) == '/'){
close:
for(p0=t+1; *p0 && *p0 != Ult; p0++)
;
runemove(t, p0, runestrlen(p0)+1);
}
}
return t;
}

void
html(Rune *id, Rune *s)
{
Rune *es;
Tag *t, *tt, *next;

br();
hideihtml(); /* br already did, but be paranoid */
for(t=tagstack; t; t=t->next){
if(runestrcmp(t->id, id) == 0){
for(tt=tagstack;; tt=next){
next = tt->next;
free(tt->id);
free(tt->open);
out(tt->close);
outrune('\n');
free(tt->close);
free(tt);
if(tt == t){
tagstack = next;
goto cleared;
}
}
}
}

cleared:
if(s == nil || s[0] == 0)
return;
out(s);
outrune('\n');
es = closingtag(s);
if(es[0] == 0){
free(es);
return;
}
if(runestrcmp(id, L("-")) == 0){
out(es);
outrune('\n');
free(es);
return;
}
t = emalloc(sizeof *t);
t->id = erunestrdup(id);
t->close = es;
t->next = tagstack;
tagstack = t;
}

void
closehtml(void)
{
Tag *t, *next;

br();
hideihtml();
for(t=tagstack; t; t=next){
next = t->next;
out(t->close);
outrune('\n');
free(t->id);
free(t->close);
free(t);
}
}

static void
rshow(Tag *t, Tag *end)
{
if(t == nil || t == end)
return;
rshow(t->next, end);
out(t->open);
}

void
ihtml(Rune *id, Rune *s)
{
Tag *t, *tt, **l;

for(t=tagset; t; t=t->next){
if(runestrcmp(t->id, id) == 0){
if(s && t->open && runestrcmp(t->open, s) == 0)
return;
for(l=&tagset; (tt=*l); l=&tt->next){
if(!hidingset)
out(tt->close);
if(tt == t)
break;
}
*l = t->next;
free(t->id);
free(t->close);
free(t->open);
free(t);
if(!hidingset)
rshow(tagset, *l);
goto cleared;
}
}

cleared:
if(s == nil || s[0] == 0)
return;
t = emalloc(sizeof *t);
t->id = erunestrdup(id);
t->open = erunestrdup(s);
t->close = closingtag(s);
if(!hidingset)
out(s);
t->next = tagset;
tagset = t;
}

void
hideihtml(void)
{
Tag *t;

if(hidingset)
return;
hidingset = 1;
for(t=tagset; t; t=t->next)
out(t->close);
}

void
showihtml(void)
{
if(!hidingset)
return;
hidingset = 0;
rshow(tagset, nil);
}

int
e_lt(void)
{
return Ult;
}

int
e_gt(void)
{
return Ugt;
}

int
e_at(void)
{
return Uamp;
}

int
e_tick(void)
{
return Utick;
}

int
e_btick(void)
{
return Ubtick;
}

int
e_minus(void)
{
return Uminus;
}

void
r_html(Rune *name)
{
Rune *id, *line, *p;

id = copyarg();
line = readline(HtmlMode);
for(p=line; *p; p++){
switch(*p){
case '<':
*p = Ult;
break;
case '>':
*p = Ugt;
break;
case '&':
*p = Uamp;
break;
case ' ':
*p = Uspace;
break;
}
}
if(name[0] == 'i')
ihtml(id, line);
else
html(id, line);
free(id);
free(line);
}

char defaultfont[] =
".ihtml f1\n"
".ihtml f\n"
".ihtml f \n"
".if \\n(.f==2 .ihtml f1 \n"
".if \\n(.f==3 .ihtml f1 \n"
".if \\n(.f==4 .ihtml f1 \n"
".if \\n(.f==5 .ihtml f1 <tt>\n"
".if \\n(.f==6 .ihtml f1 <tt>\n"
"..\n"
;

void
htmlinit(void)
{
addraw(L("html"), r_html);
addraw(L("ihtml"), r_html);

addesc('<', e_lt, CopyMode);
addesc('>', e_gt, CopyMode);
addesc('\'', e_tick, CopyMode);
addesc('`', e_btick, CopyMode);
addesc('-', e_minus, CopyMode);
addesc('@', e_at, CopyMode);

ds(L("font"), L(defaultfont));
}