# -*- tcl -*-

rename textSdataFilter textSdataFilter_HTML

proc textSdataFilter { text } {
    return [textSdataFilter_HTML [HebTransSubst $text]]
}

# substitution HebTransSubst {
#     {[Kunderdot]} "<img src='Kunderdot.gif' alt='Kunderdot'>"
#     {[kunderdot]} "<img src='kunderdot.gif' alt='kunderdot'>"
#     {[bunderdot]} "<img src='bunderdot.gif' alt='bunderdot'>"
#     {[hSamek]} "<img src='hSamek.gif' alt='hSamek'>"
#     {[beth]} "<img src='beth.gif' alt='beth'>"
#     {[heth]} "<img src='heth.gif' alt='heth'>"
#     {[taw]} "<img src='taw.gif' alt='taw'>"
#     {[gimel]} "<img src='gimel.gif' alt='gimel'>"
#     {[tsade]} "<img src='tsade.gif' alt='tsade'>"
#     {[hsamek]} "<img src='hsamek.gif' alt='hsamek'>"
#     {[daleth]} "<img src='daleth.gif' alt='daleth'>"
#     {[teth]} "<img src='teth.gif' alt='teth'>"
#     {[kaf]} "<img src='kaf.gif' alt='kaf'>"
#     {[patah]} "<img src='patah.gif' alt='patah'>"
#     {[hsegol]} "<img src='hsegol.gif' alt='hsegol'>"
#     {[hpatah]} "<img src='hpatah.gif' alt='hpatah'>"
#     {[copy  ]} "<img src='copy.gif' alt='copy'>"
#     {[aacute]} "<img src='aacute.gif' alt='aacute'>"
# }

substitution HebTransSubst {
    {[Kunderdot]} "<strong>K</strong>"
    {[kunderdot]} "<strong>k</strong>"
    {[bunderdot]} "<strong>b</strong>"
    {[hSamek]} "<strong>S</strong>"
    {[beth]} "<strong>b</strong>"
    {[heth]} "<strong>h</strong>"
    {[taw]} "<strong>t</strong>"
    {[gimel]} "<strong>?</strong>"
    {[tsade]} "<strong>?</strong>"
    {[hsamek]} "<strong>s</strong>"
    {[daleth]} "<strong>?</strong>"
    {[teth]} "<strong>t</strong>"
    {[kaf]} "<strong>?</strong>"
    {[patah]} "<strong>?</strong>"
    {[hsegol]} "<strong>e</strong>"
    {[hpatah]} "<strong>?</strong>"
    {[copy  ]} "(c)"
    {[aacute]} "&aacute;"
}
