#--------------------------------------------------------------------
function Help()
return <<END

 A converted from tx format to html format

 Syntax:
   tx2htm < file.tx > file.htm

tx will preserve the html tags in your tx formatted text

The meaning of tx-tags:

Beginning of the line tags:

 <c> <> code block.
 <n> <> keeps original new-line
 <t> <> table
          * to start and row and (*! header fields)
          TAB or | to separate fields
 <x> <> unordered list items (<ul><li>..</ul>). Each item starts from *
 <o> <> ordered list  (<ol><li>..</ol>). Each item starts from *
 <d> <> data itemsi (<dl><li>..<li></dl>) . Each item starts from *
 any_tag--  surrounds the whole line with the tag, e.g. h1--
 !_  or h4-- header4
 !-  or h3-- header3
 :   - in a code block - the output of the command
 :   - the program syntax line
 ** bold;  ~~ italic;  -- code; @@ math - apply to the entire line
 <box> </box> places a piece of text in a framed box
 <box1> </box> another box type

Tags in any position

 **aa bb  => <b>aa</b> bb
 ** aa bb **  => <b>aa bb</bb>
 ** bold;  ~~ italic;  -- code; @@ bolditalic
 *\* ** ;  ~\~    ~~;  -\-  --; @\@ @@
 a^^b superscript
 a,,b subscript
-------- Links
`linkName  
`linkName{ linkTitle }
`linkName{ linkTitle }{alerttext[| title]} #if title then window, otherwise pop
 <img src="file" options>
 <img src="file" options>{ Figure caption } # align option is moved to the table spec.
 <img src="file" options>{ Figure caption }{mouseOverImgFile,mouseDownImgFile,mouseClickURL} 
 
 
 >>>anchor or >>>anchor{ keyword1, keyword2,.. }
 kwrd = {asdf, asdfasdfas asdf, asdjfka, ,as d,f }
 ''   - post-processed into nothing
 '''  - post-processed into space
 '''' - &nbsp;&nbsp;
 <$   - backspace

 Free html <tags> are: ACDEFGHJKLMNOPQRVWXYZadefghjklmopqrvwxyz
END
endfunction

function InTx(string s)
    #  other replacements
    spl=(shell.options.split | shell.options.s) ? "\n<!-- split>" : "\n"
    Replace(s, '\n________*', "\n<hr>")   >>     # <hr>
    Replace(@, '\`\`'      'BACKQUOTE')>>    # protect ``
    Replace(@, '\`(.*?)\s*\{(.*?)\}\s*\{pop\}','<a href=''javascript:popup(350,280,"\1","no")''>\2</a>') >> #pop links
    Replace(@, '\`(.*?)\s*\{(.*?)\}\s*\{pop1\}','<a href=''javascript:popup(600,500,"\1","yes")''>\2</a>') >> #pop links
    Replace(@, '\`(\S+?)\{(.*?)\}\{(.*?)\}','<a onClick="alert(''\3'')" href="\1">\2</a>') >>
    Replace(@, '\`(\S+?)#(\S+?)\{(.*?)\}', '<a_href="\1#\2">\3</a>') >>
    Replace(@, '\`(\S+?)#\{(.*?)\}',       '<a_href="\1">\2</a>') >>
    Replace(@, '\`(\S+?)#(\S+?)',          '<a_href="\1#\2">\1#\2</a>') >>
    Replace(@, '\`(\S+?)#',                '<a_href="\1">\1</a>')   >>
    Replace(@, '\`(\S+?)\{(.*?)\}',        '<a_href="#\1">\2</a>')  >>
    Replace(@, '\`(\S+?)([\(\[\,\]\)\}])', '<a_href="#\1">\1</a>\2')>> # `link) 
    Replace(@, '\`(\S+?)',                 '<a_href="#\1">\1</a>')  >> # link
    Replace(@, '\>\>\>(\S.*?)\{.*?\}'  '<a name="\1"></a>')>>
    Replace(@, '\>\>\>(\S+?)'          '<a name="\1"></a>')>>
    Replace(@, '\n\:\*', "\n&nbsp;&nbsp;&nbsp;"   ) >>   # <br>&nbsp;
    Replace(@, '\n!\_ (.*)', "\n"+'<h4>\1</h4>') >>
    Replace(@, '\n!\- (.*)', "\n"+'<h3>\1</h3>') >>
    Replace(@, '\n(\w+)\-\-\s*(.*)', spl+'<\1>\2</\1>') >>

  Replace(@, '<f=>'  "<table border='1'><tr><td>")  >>                    # frame
  Replace(@, '<r=>'  "<table noborder bgcolor='#FFEEEE'><tr><td>")  >>
  Replace(@, '<g=>'  "<table noborder bgcolor='#EEFFEE'><tr><td>")  >>
  Replace(@, '<b=>'  "<table noborder bgcolor='#EEEEFF'><tr><td>")  >>
  Replace(@, '<t=>'  "<table noborder bgcolor='#EEFFFF'><tr><td>")  >>  # teal
  Replace(@, '<s=>'  "<table noborder bgcolor='#EEEEEE'><tr><td>")  >>  # silver
  Replace(@, '<y=>'  "<table noborder bgcolor='#FFFFEE'><tr><td>")  >>  # yellow
  Replace(@, '<m=>'  "<table noborder bgcolor='#FFEEEE'><tr><td>")  >>  # maroon
  Replace(@, '<==>'  "</td></tr></table>"      ) >>

    Replace(@, '\s<\s', '&lt;') >>
    Replace(@, '\s>\s', '&gt;') >>
    Replace(@, '\s>=\s', '&gt;=') >>
    Replace(@, '\s<=\s', '&lt;=') >>
    Replace(@, '([^\^])\^\^(\S+?)(\s)', '\1<sup>\2</sup>\3') >>
    Replace(@, '([^\,])\,\,(\S+?)(\s)', '\1<sub>\2</sub>\3') >>

    Replace(@, '\nr\- (.*)'               , "\n"+'<font color="red"><tt>\1</tt></font>') >>
    Replace(@, '\nG\- (.*)'               , "\n"+'<font color="green">\1</font>') >>
    Replace(@, '\ng\- (.*)'               , "\n"+'<font color="green"><tt>\1</tt></font>') >>
    Replace(@, '\nm\- (.*)'               , "\n"+'<font color="maroon"><tt>\1</tt></font>') >>
    Replace(@, '\nt\- (.*)'               , "\n"+'<font color="teal"><tt>\1</tt></font>') >>
    Replace(@, '\nn\- (.*)'               , "\n"+'<font color="navy"><tt>\1</tt></font>') >>
    Replace(@, '\nb\- (.*)'               , "\n"+'<font color="blue"><tt>\1</tt></font>') >>
    Replace(@, '\nt\- (.*)'               , "\n"+'<font color="teal"><tt>\1</tt></font>') >>
    Replace(@, '\ny\- (.*)'               , "\n"+'<font color="yellow"><tt>\1</tt></font>') >>
    Replace(@, '\nS\- (.*)'               , "\n"+'<font size="-1">\1</font>') >>
    Replace(@, '\ns\- (.*)'               , "\n"+'<font size="-2">\1</font>') >>

    Replace(@, '([\n\s\,\[\(\{])\-\-\s(.*?)\s\-\-([\s\,\]\)\}])', '\1<tt>\2</tt>\3')>>
    Replace(@, '([\n\s\,\[\(\{])\-\-(\S+?)', '\1<tt>\2</tt>'   ) >>  # code
    Replace(@, '\n\-\- (.*)'               , "\n"+'<tt>\1</tt>') >>

    Replace(@, '([\n\s\,\[\(\{])\*\*\s(.*?)\s\*\*([\s\,\]\)\}])', '\1<b>\2</b>\3')>>
    Replace(@, '([\n\s\,\[\(\{])\*\*(\S+?)', '\1<b>\2</b>'   ) >>  # bold
    Replace(@, '\n\*\* (.*)'               , "\n"+'<b>\1</b>') >>

    Replace(@, '([\n\s\,\[\(\{])\~\~\s(.*?)\s\~\~([\s\,\]\)\}])', '\1<i>\2</i>\3')>>
    Replace(@, '([\n\s\,\[\(\{])\~\~(\S+?)', '\1<i>\2</i>'   ) >>  # italic
    Replace(@, '\n\~\~ (.*)'               , "\n"+'<i>\1</i>') >>

    Replace(@, '([\n\s\,\[\(\{])\@\@\s(.*?)\s\@\@([\s\,\]\)\}])', '\1<b><i>\2</b></i>\3')>>
    Replace(@, '([\n\s\,\[\(\{])\@\@(\S+?)', '\1<b><i>\2</b></i>'   ) >>  # bold-italic
    Replace(@, '\n\@\@ (.*)'               , "\n"+'<b><i>\1</b></i>') >>

    Replace(@, '(<img src=.*? )(align=\S+?)([\s\>][^\n]*?)\s*?\{(.*?)\}':n, '<table border="0" cellspacing="0" cellpading="0" width="1" \2><tr><td>\1\3</td></tr><tr><td height="10"><font size="-1">\4</font></td></tr></table>') >>
    Replace(@, '(<img src=[^\n]*?>)\s*?\{(.*?)\}':n, '<table border="0" cellspacing="0" cellpading="0" width="1" align="right"><tr><td>\1</td></tr><tr><td height="10"><font size="-2">\2</font></td></tr></table>') >>
    
    
    Replace(@, '<table.*?(<img (src=["''](.*?)["''][^\n]*?\>)).*?able>\{(.*?),(.*?),(.*?)\}':n, '<a href="\6" onMouseOut="swapImgRestore();" onMouseOver="swapImage(''\6'','' '',''\4'',1);" onMousedown="swapImage(''\6'','' '',''\5'',1);"><img border="0" name="\6" \2</a>', field=1) >>
    Replace(@, '\s(https?://[^ \t\n\r<]+?)':i, "<a_href=\"\\1\">\\1</a>", field=1 ) >>
    Replace(@, '(ftps?://[^ \t\n\r<]+?)':i, "<a_href=\"\\1\">\\1</a>" ) >>
    Replace(@, '(\s)(www\.[^ \t\n\r<]+?)':i, "\\1<a_href=\"http://\\2\">\\2</a>" ) >>
    Replace(@, '(\s)(mailto:[^ \t\r\n<]+?)':i, "\\1<a_href=\"\\2\">\\2</a>" ) >>
    Replace(@, '(\s)(ftp\.[^ \t\r\n<]+?)':i, "\\1<a_href=\"ftp://\\2\">\\2</a>" ) => s

    return s
endfunction
#
function PreprocessAll(string s)
  return s
endfunction
#
function InCode(string s)
  Replace(s,'>',"&gt;") >>
  Replace(@,'<',"&lt;") >>
  Replace(@, '\n\:(.*)', "\n"+'<font color=brown>\1</font>') >>
  Replace(@, '(\s+)# (.*?)', '\1'+"</tt><font color=black># "+'\2' + "</font><tt>") => s
  switch s[1]
   case "r": return "<font color='red'><pre><tt>" + s[2:$] + "</tt></pre></font>"
   case "g": return "<font color='green'><pre><tt>" + s[2:$] + "</tt></pre></font>" 
   case "b": return "<font color='blue'><pre><tt>" + s[2:$] + "</tt></pre></font>" 
   case "m": return "<font color='maroon'><pre><tt>" + s[2:$] + "</tt></pre></font>" 
   case "t": return "<font color='teal'><pre><tt>" + s[2:$] + "</tt></pre></font>" 
   case "n": return "<font color='navy'><pre><tt>" + s[2:$] + "</tt></pre></font>" 
   default : return "<pre><tt>" + s + "</tt></pre>"
  endswitch
endfunction
#
function PostprocessAll(string s)
  Replace(s, "''''"   "&nbsp;&nbsp;") >>
  Replace(@, "'''"    " "           ) >>
  Replace(@, "<a_href" "<a href"    ) >>
  Replace(@, ' \<\$'  ""            ) >>   # backspace
  Replace(@, "-\-"    "--"          ) >>   # --
  Replace(@, '\~\\\~' "~~"          ) >>   # ~~
  Replace(@, '\*\\\*' "**"          ) >>   # **
  Replace(@, "@\@"    "@@"          ) >>   # @@
  Replace(@, "^\^"    "^^"          ) >>   # ^^
  Replace(@, ">\>"    ">>"          ) >>   # >>
  Replace(@, "LTLT"    "&lt;&lt;"   ) >>   # <<
  Replace(@, "GTGT"    "&gt;&gt;"   ) >>   # >>
  Replace(@, "LTGT"    "&lt;&gt;"   ) >>   # <>
  Replace(@, "BACKQUOTE" "`"    ) >>   # ` 
  Replace(@, "'\'"    "''"          ) >>   # ''
  Replace(@, "''"     ""            ) => s
  return s
endfunction
#
function HtmlHeader()
 return <<END
<html>
<head>

<!-- encapsulates Javascript -->
<script language = "Javascript">
<!--

function popup(width,height,link,title, scroll)
{
 window.open(link, "pop", "location=" + title + ",menubars=" + title + ",toolbar=" + title + ",scrollbars=" + scroll + ",width=" + width + ",height=" + height);
}

function search()
 {
  k=document.form1.text1.value;
  document.cookie="";
  document.cookie= "wm_javascript=search::" + escape(k)
  parent.frames[1].document.location.href = "searchh.htm";
 }

if (navigator.appName!="Netscape")
{
 document.writeln('<style type="text/css">')
 document.writeln("  body {")
 document.writeln("    margin-left: 8%;")
 document.writeln("    margin-right: 8%;")
 document.writeln("    font-family: sans-serif;")
 document.writeln("  }")
 document.writeln("  h2 { margin-left: -3% }")
 document.writeln("  h3,h4,h5,h6 { margin-left: -2% }")
 document.writeln("  pre {")
 document.writeln("     font-weight: normal;")
 document.writeln('     white-space: pre; font-family: "Courier New", monospace;')
 document.writeln("  }")
 document.writeln("  tt {")
 document.writeln("     font-weight: normal;")
 document.writeln('     white-space: pre; font-family: "Courier New", monospace;')
 document.writeln("  }")
 document.writeln("  em { font-style: italic; font-weight: bold }")
 document.writeln("  strong { text-transform: uppercase; font-weight: bold }")
 document.writeln("</style>              ")
}

function findObj(n, d) { 
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document); return x;
}
function swapImage() { 
  var i,j=0,x,a=swapImage.arguments; document.sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=findObj(a[i]))!=null){document.sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function swapImgRestore() { //v3.0
  var i,x,a=document.sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

//-->
</script>
</head>
<body bgcolor="ffffff">
END
endfunction
#
function InBrBlock(string s)
  return ( Replace(s,'\n',"<br>\n") >> Replace(@,'\n<p><br>\n',"\n<br>\n") + "<br>" )
endfunction
#
function InSyntax(string s) # Bee-syntax line intepretation
  Replace(s[3:$], '(\w+?)='      '<tt>\1=</tt>' ) >>       # name= in tt
  Replace(@,'([ \(\{\[\|])(\w+)' '\1<i>\2</i>'  ) >>       # most args in italic
  Replace(@, '([\(\)])'          '<b>\1</b>'    ) >>       # (  and ) in bold
  Replace(@, '\@(\S+?)'      "(<tt>"+'\1'+" </tt>)" ) >>   # for @default_value
  Replace(@, '\`(\S+?)','<a_href="#\1"><b>\1</b></a>')>>   # link
  Replace(@, '\*(\S+?)'      "<tt>"+'\1'+" </tt>" ) => s   # *arg to revert to tt
  return s
endfunction

function InUl(string s)
    ss= Split(s,'\n\s*(\*) ',field=1)
    s=""; for x in ss if(s!="") s+="<li>"; s+=x; endfor
    return "\n<ul>" + s +"\n</ul>"
endfunction
#
function InOl(string s) 
    ss= Split(s,'\n\s*(\*) ',field=1)
    s=""; for x in ss if(s!="") s+="<li>"; s+=x; endfor
    return "<ol>" + s +"\n</ol>"
endfunction
#
function InDl(string s) 
   ss= Split(s,'\n\s*(\*) ',field=1)
   for i=1,Nof(ss)
     ss[i] = Replace(ss[i], '(.*?)\n?\t+(.*?)':n, '<dt>\1</dt>'+"\n<dd>\n"+'\2'+"</dd>\n" ,field=0 )  
   endfor
   return "<dl>" + Sum(ss,"\n") +"\n</dl>" 
endfunction
#
function InDl1(string s) 
   ss= Split(s,'\n\s*(\*) ',field=1)
   for i=1,Nof(ss)
     ss[i] = Replace(ss[i], '(.*?)\n?\t+(.*?)':n, '<dt><b>\1</b></dt>'+"\n<dd>\n"+'\2'+"</dd>\n" ,field=0 )  
   endfor
   return "<dl>" + Sum(ss,"\n") +"\n</dl>" 
endfunction
#
function InTab(string s) 
   ss= Split(s,'(\n+\*)[\s\!]',field=1)
   for i=1,Nof(ss)
     if(Length(Trim(ss[i],right))<=1) continue
     if(ss[i][1]!="!") then
       ss[i] = "<tr> <td>"+Trim(Replace(ss[i],'\t',"</td>\t<td>")) +"</td> </tr>"
     else
       ss[i] = "<tr bgcolor=f0f0f0> <th> "+Trim(Replace(ss[i][2:$],'\t',"</th>\t<th>")) +" </th> </tr>"
     endif
   endfor
   return "<table noborder>" + Sum(ss,"\n") +"\n</table>"
endfunction
#
function InTab1(string s) 
   ss= Split(s,'(\n+\*)[\s\!]',field=1)
   for i=1,Nof(ss)
     if(Length(Trim(ss[i],right))<=1) continue
     if(ss[i][1]!="!") then
       ss[i] = "<tr> <td>"+Trim(Replace(ss[i],'\t',"</td>\t<td>")) +"</td> </tr>"
     else
       ss[i] = "<tr bgcolor=f0f0f0> <th> "+Trim(Replace(ss[i][2:$],'\t',"</th>\t<th>")) +" </th> </tr>"
     endif
   endfor
   return "<table border=\"1\">" + Sum(ss,"\n") +"\n</table>"
endfunction