# -*- tcl -*-
# $Id: varda,v 1.1 1999/10/04 08:52:56 tobotras Exp $

rename textSdataFilter textSdataFilter_varda

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

substitution HebTransSubst {
    {[Kunderdot]} {?}
    {[kunderdot]} {?}
    {[bunderdot]} {?}
    {[hSamek]} {?}
    {[beth]} {?}
    {[heth]} {?}
    {[taw]} {?}
    {[gimel]} {?}
    {[tsade]} {?}
    {[hsamek]} {?}
    {[daleth]} {?}
    {[teth]} {?}
    {[kaf]} {?}
    {[patah]} {?}
    {[hsegol]} {?}
    {[hpatah]} {?}
    {[copy  ]} {?}
    {[aacute]} {?}
    {[???????????????]} {?}
}

set rtf_fonttbl [join {
    {{\f0\froman\fcharset[rtf:CharSet]\fprq2 Times New Roman;}}
    {{\f1\fswiss\fcharset[rtf:CharSet]\fprq2 Arial;}}
    {{\f2\fmodern\fcharset[rtf:CharSet]\fprq1 Courier New;}}
    {{\f3\fhebtrans\fcharset[rtf:CharSet]\fprq2 SIL Heb Trans;}}
    } "" ]

array set rtf:FontTable {
    roman	0
    sans	1
    mono	2
    hebtrans	3
}

rtf:charStyle style_hebrew "Hebrew quote" -basedon style_Plain {
    Font hebtrans
}
