/* html2txt2.l
   flex file for converting html to txt (sort of...)
   Daniel Scharstein 2/18/08
   2nd version - added lists and blank lines
*/

ws       [ \t\n]|" "
tag      "<"[^>]*">" 
nltag    "<""/"?"h"[1-6]">"|"<p>"|"<br>"|"<tr>"|"</html>"

%%
  int ol = 0;

"<ol>"    { ol = 1; }
"</ol>"   { ol = 0; }
"<li>"    { if (ol > 0) printf("\n %d. ", ol++); else printf("\n * "); }
{nltag}   {printf("\n");}
{tag}     {}
{ws}+     {printf(" ");}
"&gt;"    {printf(">");}
"&lt;"    {printf("<");}
"&amp;"   {printf("&");}