Subversion Repositories wimsdev

Rev

Rev 7692 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
791 bpr 1 
!if $wims_read_parm!=slib_header
13585 bpr 2 
  !goto proc
791 bpr 3 
!endif
4158 bpr 4 
 
4349 bpr 5 
slib_author=Bernadette, Perrin-Riou
4158 bpr 6 
 
791 bpr 7 
slib_example=zi:br@,
8 
 
9 
!exit
10 
 
11 
:proc
12 
!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
13 
 !exit
14 
!endif
15 
 
16 
slib_word= $wims_read_parm
17 
 
18 
pas de code html  sauf
19 
{,æ
20 
},ʉ
21 
 
22 
slib_out =$slib_word
23 
 
24 
!!slib_out=!replace internal & by && in $slib_out
25 
slib_IPA=ʉ,#qqqqqqqqqqqqqqqq;\
26 
æ,#pppppppppppppppp;\
27 
&,&#zzzzzzzzzzzzzzz;,ɶ,s.c. OE lig. \
28 
2,ø,ø,o-slash \
29 
3,xxxxxxxxxxxxxxx\
30 
9,&#339yyyyyyyyyy;,œ,oe ligature \
31 
6,ɐ,ɐ,turned a \
32 
&#339yyyyyyyyyy;,œ\
33 
xxxxxxxxxxxxxxx,3\
34 
3,ɜ,ɜ,rev. epsilon \
35 
&#zzzzzzzzzzzzzzz,ɶ,ɶ,s.c. OE lig. \
36 
#pppppppppppppppp;,æ\
37 
#qqqqqqqqqqqqqqqq;,ʉ\
38 
A,ɑ,ɑ,script a \
39 
{,æ,æ,ae ligature \
40 
Q,ɒ,ɒ,turned script a \
41 
E,ɛ,ɛ,epsilon \
42 
@,ə,ə,turned e \
43 
I,ɪ,ɪ,small cap I \
44 
O,ɔ,ɔ,turned c \
45 
U,ʊ,ʊ,upsilon \
46 
},ʉ,ʉ,barred u \
47 
V,ʌ,ʌ,turned v \
48 
Y,ʏ,ʏ,small cap Y \
49 
B,β,β,beta \
50 
C,ç,ç,c-cedilla \
51 
D,ð,ð,eth \
52 
G,ɣ,ɣ,gamma \
53 
L,ʎ,ʎ,turned y \
54 
J,ɲ,ɲ,left-tail n \
55 
N,ŋ,ŋ,eng \
56 
R,ʁ,ʁ,inv. s.c. R \
57 
S,ʃ,ʃ,esh \
58 
T,θ,θ,theta \
59 
H,ɥ,ɥ,turned h \
60 
Z,ʒ,ʒ,ezh (yogh) \
7692 bpr 61 
?,ʔ,ʔ,dotless ?
791 bpr 62 
`,˞
63 
 
64 
 
65 
slib_IPA_m=!lines2rows $slib_IPA
66 
 
67 
slib_cnt=!linecnt $slib_IPA
68 
!for slib_k = 1 to $slib_cnt
69 
  slib_l=!line $slib_k of $slib_IPA
70 
  slib_p=!item 1 of $slib_l
71 
  slib_q=!item 2 of $slib_l
72 
  slib_out=!replace internal $slib_p by $slib_q in $slib_out
73 
!next