Subversion Repositories wimsdev

Rev

Rev 4158 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

!if $wims_read_parm!=slib_header
 !goto proc
!endif

slib_comment=http://seas3.elte.hu/szigetva/etcetera/EPD.html
slib_example='g0dmVD@R,pIktS@-kAdz

!exit

:proc

slib_word=$wims_read_parm

pas de code html !

slib_out =$slib_word
slib_out=!replace internal & by && in $slib_out
slib_IPA=0,&#59VV;,ɑ\
3,ɜ:,&#x025C\
&#59VV;,ɒ,;\
&&,æ,æ\
i,i:,i:\
I,ɪ,ɪ\
@,ə,ə\
U,ʊ,ʊ\
A,ɑ:,a:\
V,ʌ,ʌ\
O,ɔ:,ɔ:\
u,u:,u:\
tS,ʧ,ʧ\
dZ,ʤ,ʤ\
N,ŋ,ŋ\
T,θ,θ\
D,ð,ð\
S,ʃ,ʃ\
Z,ʒ,ʒ\
R,˞



slib_IPA_m=!lines2rows $slib_IPA

slib_cnt=!linecnt $slib_IPA
!for slib_k = 1 to $slib_cnt
  slib_l=!line $slib_k of $slib_IPA
  slib_p=!item 1 of $slib_l
  slib_q=!item 2 of $slib_l
  slib_out=!replace internal $slib_p by $slib_q in $slib_out
!next