From BIC-request@pisa.rockefeller.edu  Thu Dec 12 16:11:46 1996
Received: from cs.columbia.edu (root@cs.columbia.edu [128.59.10.13]) by opus.cs.columbia.edu (8.8.3/8.6.6) with ESMTP id QAA01970 for <radev@opus.cs.columbia.edu>; Thu, 12 Dec 1996 16:11:45 -0500 (EST)
Received: from rockvax.rockefeller.edu (rockvax.rockefeller.edu [129.85.1.21]) by cs.columbia.edu (8.8.3/8.6.6) with ESMTP id QAA06026 for <radev@cs.columbia.edu>; Thu, 12 Dec 1996 16:11:44 -0500 (EST)
Received: from pisa.rockefeller.edu (pisa.rockefeller.edu [129.85.23.103])
          by rockvax.rockefeller.edu (8.8.4/8.8.4) with SMTP
	  id QAA24804; Thu, 12 Dec 1996 16:11:09 -0500 (EST)
Received: by pisa.rockefeller.edu (940816.SGI.8.6.9/940406.SGI)
	 id QAA13020; Thu, 12 Dec 1996 16:11:37 -0500
Resent-Date: Thu, 12 Dec 1996 16:11:37 -0500
Message-ID: <32B07717.6266@astro.ocis.temple.edu>
Date: Thu, 12 Dec 1996 16:20:23 -0500
From: Val Todorov <vtodorov@astro.ocis.temple.edu>
Reply-To: vtodorov@astro.ocis.temple.edu
Organization: AppletWare, Inc.
X-Mailer: Mozilla 3.0 (Win95; I)
MIME-Version: 1.0
To: BIC@pisa.rockefeller.edu
Subject: Cyrillic/Latin Converter
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by mailhub.southeast.net id QAA19055
Resent-Message-ID: <"i-eLvB.A.ZLD.IUHsy"@pisa>
Resent-From: BIC@pisa.rockefeller.edu
X-Mailing-List: <BIC@pisa.rockefeller.edu> archive/latest/567
X-Loop: BIC@pisa.rockefeller.edu
Precedence: list
Resent-Sender: BIC-request@pisa.rockefeller.edu
Status: RO

Bjah obeshtal predi izvestno (dosta) vreme, che shte
se opitam na napisha PERL script za convertirane mezhdu
Cyrillic(Win1251) i latinica.

Eto neshto po-dobro (pone po-lesno za polzvane): JavaScript
converter. Prosto otrezhete pod linijata i zapishete kato
HTML file (naprimer, Converter.html). Otvorete v Netscape
i... bi trjabvalo da raboti :-)

Vsyshnost sym go probval samo s Netscape 3.0 na Win95.
Kazhete kakvo mislite i dali raboti na UNIX.

Val

P.P. Sega raboti s konvenicijata na Zapadnite slavisti.
('Zh' e 'zh', 'er goljam' e 'y' (ili 'q'), 'i kratko' e 'j').
Smjatam da dobavja drugata naj-razprostranena konvencija,
kydeto 'zh' e 'j', 'er goljam' e 'q', 'i kratko' e 'y'.


=====================================================================
<TITLE>Cyrillic/Latin Converter</TITLE>
<SCRIPT LANGUAGE="JavaScript">
/* 
   Description: Converts Bulgarian Cyrillic(Win1251)
		to Latin and vice versa.
   Copyright: Val Todorov
   e-mail: vtodorov@astro.ocis.temple.edu   
   Date: 12/12/1996
*/

C=new Array(
  'À','Á','Â','Ã','Ä','Å','Æ','Ç','È','É','Ê','Ë','Ì','Í','Î',
  'Ï','Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ú','Ü','Þ','ß',
  'à','á','â','ã','ä','å','æ','ç','è','é','ê','ë','ì','í','î',
  'ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','ü','þ')

L=new Array(
  'A','B','V','G','D','E','Zh','Z','I','J','K','L','M','N','O',
  'P','R','S','T','U','F','H','C','Ch','Sh','Sht','Y','J','Ju','Ja',
  'a','b','v','g','d','e','zh','z','i','j','k','l','m','n','o',
  'p','r','s','t','u','f','h','c','ch','sh','sht','y','j','ju')

//------------------------------------
Lat=new Array()
for (q=0;q<59;q++) Lat[C[q]]=L[q]

function toLat(cyr) {
  lat=''
  for (q=0;q<cyr.length;q++) {
    ch=cyr.charAt(q)

    if (Lat[ch]) {
      lat+=Lat[ch]

      chL=Lat[ch].toLowerCase()
      nxt=cyr.charAt(q+1)
      if ((chL=='z' || chL=='s') && Lat[nxt]) {
        if (Lat[nxt]=='h') {lat+='x'; q++}
        else if (Lat[nxt]=='H') {lat+='X'; q++} 
      }

    }
    else if (ch==unescape('%FF')) lat+='ja'
    else lat+=ch
  }
  return lat
}

//------------------------------------
Cyr=new Array()
for (q=0;q<59;q++) {
  if (q==27 || q==57) continue
  Cyr[L[q]]=C[q]
}
Cyr['Q']='Ú', Cyr['q']='ú'
Cyr['W']='Â', Cyr['w']='â'
Cyr['X']='Õ', Cyr['x']='õ'
Cyr['ja']=unescape('%FF')
Cyr['erM']='ü'

function toCyr(lat) {
  cyr=''
  for (q=0;q<lat.length;q++) {
    ch=lat.charAt(q)
    chL=ch.toLowerCase()
    nxt=lat.charAt(q+1).toLowerCase()

    if (chL=='c' || chL=='s' || chL=='z')
      if (nxt=='h') {ch+=nxt; q++}

    chL=ch.toLowerCase()
    nxt=lat.charAt(q+1).toLowerCase()     
    if (chL=='sh' && nxt=='t') {ch+=nxt; q++}

    if (chL=='j' && (nxt=='u' || nxt=='a')) {ch+=nxt; q++}

    if (chL=='j' && nxt=='o' && Cyr[lat.charAt(q-1)]) {
      vowels='aeiou', vowel=false
      for (i=0;i<vowels.length;i++) 
        if (lat.charAt(q-1).toLowerCase()==vowels[i]) vowel=true
      if (!vowel) ch='erM'
    }

    if (Cyr[ch]) cyr+=Cyr[ch]
    else cyr+=ch
  }
  return cyr
}

</SCRIPT>

<FORM><CENTER><TABLE>
<TR>
    <TH><INPUT TYPE="button" VALUE="Clear"
onClick="this.form.Lat.value=''">
        <INPUT TYPE="button" VALUE="Latin to Cyrillic ->" 
           onClick="this.form.Cyr.value=toCyr(this.form.Lat.value)"> 
    
    <TH><INPUT TYPE="button" VALUE="<- Cyrillic to Latin" 
           onClick="this.form.Lat.value=toLat(this.form.Cyr.value)">
        <INPUT TYPE="button" VALUE="Clear"
onClick="this.form.Cyr.value=''">
<TR>
    <TD><TEXTAREA NAME="Lat" ROWS=20 COLS=35></TEXTAREA> 
    <TD><TEXTAREA NAME="Cyr" ROWS=20 COLS=35></TEXTAREA>
</TABLE></CENTER></FORM>

<B>Bulgarian Alphabet:</B><P>

<SCRIPT LANGUAGE="JavaScript">
table='<TABLE BORDER=1>'
for (q=0;q<30;q++) {
  if (q%10==0) table+='<TR>'
  table+='<TH>'+L[q]
}
table+='</TABLE>'
document.write(table)
</SCRIPT>

<DL><DT><I>Note</I>: 
    <DD><B>W</B>, <B>X</B> and <B>Q</B> may substitute <B>V</B>, 
<B>H</B> and <B>Y</B> respectively. 
    <BR><B>H</B> after <B>Z</B> must be <B>X</B>.
</DL>

<P><B>How to use Cyrillic fonts:</B>
<OL>
<LI>Options > General Preferences > Fonts 
    <UL><LI>
    <DL><DT>Fonts and Encodings dialog box:
        <DD>For the Encoding > Cyrillic
        <BR>Use the Proportional Font > Choose Font</DL>
        <LI>
    <DL><DT>Choose Base Font dialog box:
        <DD>Font > Lucida Sans Unicode
        <BR>Script > Cyrillic</DL>
    </UL>
<LI>Options > Document Encoding > Cyrillic(Win1251)
</OL>