sys/src/cmd/htmlroff/html.c

   1 /*
   2  * Emit html.  Keep track of tags so that user doesn't have to.
   3  */
   4
   5 #include "a.h"
   6
   7 typedef struct Tag Tag;
   8 struct Tag
   9 {
  10         Tag *next;
  11         Rune *id;
  12         Rune *open;
  13         Rune *close;
  14 };
  15
  16 Tag *tagstack;
  17 Tag *tagset;
  18 int hidingset;
  19
  20 static Rune*
  21 closingtag(Rune *s)
  22 {
  23         Rune *t;
  24         Rune *p0, *p;
  25
  26         t = runemalloc(sizeof(Rune));
  27         if(s == nil)
  28                 return t;
  29         for(p=s; *p; p++){
  30                 if(*p == Ult){
  31                         p++;
  32                         if(*p == '/'){
  33                                 while(*p && *p != Ugt)
  34                                         p++;
  35                                 goto close;
  36                         }
  37                         p0 = p;
  38                         while(*p && !isspacerune(*p) && *p != Uspace && *p != Ugt)
  39                                 p++;
  40                         t = runerealloc(t, 1+(p-p0)+2+runestrlen(t)+1);
  41                         runemove(t+(p-p0)+3, t, runestrlen(t)+1);
  42                         t[0] = Ult;
  43                         t[1] = '/';
  44                         runemove(t+2, p0, p-p0);
  45                         t[2+(p-p0)] = Ugt;
  46                 }
  47
  48                 if(*p == Ugt && p>s && *(p-1) == '/'){
  49                 close:
  50                         for(p0=t+1; *p0 && *p0 != Ult; p0++)
  51                                 ;
  52                         runemove(t, p0, runestrlen(p0)+1);
  53                 }
  54         }
  55         return t;
  56 }
  57
  58 void
  59 html(Rune *id, Rune *s)
  60 {
  61         Rune *es;
  62         Tag *t, *tt, *next;
  63
  64         br();
  65         hideihtml();    /* br already did, but be paranoid */
  66         for(t=tagstack; t; t=t->next){
  67                 if(runestrcmp(t->id, id) == 0){
  68                         for(tt=tagstack;; tt=next){
  69                                 next = tt->next;
  70                                 free(tt->id);
  71                                 free(tt->open);
  72                                 out(tt->close);
  73                                 outrune('\n');
  74                                 free(tt->close);
  75                                 free(tt);
  76                                 if(tt == t){
  77                                         tagstack = next;
  78                                         goto cleared;
  79                                 }
  80                         }
  81                 }
  82         }
  83
  84 cleared:
  85         if(s == nil || s[0] == 0)
  86                 return;
  87         out(s);
  88         outrune('\n');
  89         es = closingtag(s);
  90         if(es[0] == 0){
  91                 free(es);
  92                 return;
  93         }
  94         if(runestrcmp(id, L("-")) == 0){
  95                 out(es);
  96                 outrune('\n');
  97                 free(es);
  98                 return;
  99         }
 100         t = emalloc(sizeof *t);
 101         t->id = erunestrdup(id);
 102         t->close = es;
 103         t->next = tagstack;
 104         tagstack = t;
 105 }
 106
 107 void
 108 closehtml(void)
 109 {
 110         Tag *t, *next;
 111
 112         br();
 113         hideihtml();
 114         for(t=tagstack; t; t=next){
 115                 next = t->next;
 116                 out(t->close);
 117                 outrune('\n');
 118                 free(t->id);
 119                 free(t->close);
 120                 free(t);
 121         }
 122 }
 123
 124 static void
 125 rshow(Tag *t, Tag *end)
 126 {
 127         if(t == nil || t == end)
 128                 return;
 129         rshow(t->next, end);
 130         out(t->open);
 131 }
 132
 133 void
 134 ihtml(Rune *id, Rune *s)
 135 {
 136         Tag *t, *tt, **l;
 137
 138         for(t=tagset; t; t=t->next){
 139                 if(runestrcmp(t->id, id) == 0){
 140                         if(s && t->open && runestrcmp(t->open, s) == 0)
 141                                 return;
 142                         for(l=&tagset; (tt=*l); l=&tt->next){
 143                                 if(!hidingset)
 144                                         out(tt->close);
 145                                 if(tt == t)
 146                                         break;
 147                         }
 148                         *l = t->next;
 149                         free(t->id);
 150                         free(t->close);
 151                         free(t->open);
 152                         free(t);
 153                         if(!hidingset)
 154                                 rshow(tagset, *l);
 155                         goto cleared;
 156                 }
 157         }
 158
 159 cleared:
 160         if(s == nil || s[0] == 0)
 161                 return;
 162         t = emalloc(sizeof *t);
 163         t->id = erunestrdup(id);
 164         t->open = erunestrdup(s);
 165         t->close = closingtag(s);
 166         if(!hidingset)
 167                 out(s);
 168         t->next = tagset;
 169         tagset = t;
 170 }
 171
 172 void
 173 hideihtml(void)
 174 {
 175         Tag *t;
 176
 177         if(hidingset)
 178                 return;
 179         hidingset = 1;
 180         for(t=tagset; t; t=t->next)
 181                 out(t->close);
 182 }
 183
 184 void
 185 showihtml(void)
 186 {
 187         if(!hidingset)
 188                 return;
 189         hidingset = 0;
 190         rshow(tagset, nil);
 191 }
 192
 193 int
 194 e_lt(void)
 195 {
 196         return Ult;
 197 }
 198
 199 int
 200 e_gt(void)
 201 {
 202         return Ugt;
 203 }
 204
 205 int
 206 e_at(void)
 207 {
 208         return Uamp;
 209 }
 210
 211 int
 212 e_tick(void)
 213 {
 214         return Utick;
 215 }
 216
 217 int
 218 e_btick(void)
 219 {
 220         return Ubtick;
 221 }
 222
 223 int
 224 e_minus(void)
 225 {
 226         return Uminus;
 227 }
 228
 229 void
 230 r_html(Rune *name)
 231 {
 232         Rune *id, *line, *p;
 233
 234         id = copyarg();
 235         line = readline(HtmlMode);
 236         for(p=line; *p; p++){
 237                 switch(*p){
 238                 case '<':
 239                         *p = Ult;
 240                         break;
 241                 case '>':
 242                         *p = Ugt;
 243                         break;
 244                 case '&':
 245                         *p = Uamp;
 246                         break;
 247                 case ' ':
 248                         *p = Uspace;
 249                         break;
 250                 }
 251         }
 252         if(name[0] == 'i')
 253                 ihtml(id, line);
 254         else
 255                 html(id, line);
 256         free(id);
 257         free(line);
 258 }
 259
 260 char defaultfont[] =
 261         ".ihtml f1\n"
 262         ".ihtml f\n"
 263         ".ihtml f <span style=\"font-size: \\n(.spt\">\n"
 264         ".if \\n(.f==2 .ihtml f1 <i>\n"
 265         ".if \\n(.f==3 .ihtml f1 <b>\n"
 266         ".if \\n(.f==4 .ihtml f1 <b><i>\n"
 267         ".if \\n(.f==5 .ihtml f1 <tt>\n"
 268         ".if \\n(.f==6 .ihtml f1 <tt><i>\n"
 269         "..\n"
 270 ;
 271
 272 void
 273 htmlinit(void)
 274 {
 275         addraw(L("html"), r_html);
 276         addraw(L("ihtml"), r_html);
 277
 278         addesc('<', e_lt, CopyMode);
 279         addesc('>', e_gt, CopyMode);
 280         addesc('\'', e_tick, CopyMode);
 281         addesc('`', e_btick, CopyMode);
 282         addesc('-', e_minus, CopyMode);
 283         addesc('@', e_at, CopyMode);
 284
 285         ds(L("font"), L(defaultfont));
 286 }
 287