Subversion Repositories wimsdev

Rev

Rev 791 | Rev 4158 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
791 bpr 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4 
slib_title=IPA transcription according to epd ascii codage (for english)
5 
slib_parms=1\
1477 bpr 6 
,text
791 bpr 7 
slib_author=Bernadette Perrin-Riou
8 
slib_out= IPA transcription in html symbols
9 
slib_comment=see http://seas3.elte.hu/szigetva/etcetera/EPD.html
10 
slib_example='g0dmVD@R,pIktS@-kAdz
11 
 
12 
!exit
13 
 
14 
:proc
15 
 
16 
slib_word=$wims_read_parm
17 
 
18 
pas de code html !
19 
 
20 
slib_out =$slib_word
21 
slib_out=!replace internal & by && in $slib_out
22 
slib_IPA=0,&#59VV;,ɑ\
23 
3,ɜ:,&#x025C\
24 
&#59VV;,ɒ,;\
25 
&&,æ,æ\
26 
i,i:,i:\
27 
I,ɪ,ɪ\
28 
@,ə,ə\
29 
U,ʊ,ʊ\
30 
A,ɑ:,a:\
31 
V,ʌ,ʌ\
32 
O,ɔ:,ɔ:\
33 
u,u:,u:\
34 
tS,ʧ,ʧ\
35 
dZ,ʤ,ʤ\
36 
N,ŋ,ŋ\
37 
T,θ,θ\
38 
D,ð,ð\
39 
S,ʃ,ʃ\
40 
Z,ʒ,ʒ\
41 
R,˞
42 
 
43 
 
44 
 
45 
slib_IPA_m=!lines2rows $slib_IPA
46 
 
47 
slib_cnt=!linecnt $slib_IPA
48 
!for slib_k = 1 to $slib_cnt
49 
  slib_l=!line $slib_k of $slib_IPA
50 
  slib_p=!item 1 of $slib_l
51 
  slib_q=!item 2 of $slib_l
52 
  slib_out=!replace internal $slib_p by $slib_q in $slib_out
53 
!next
54 
 
55