Subversion Repositories wimsdev

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

slib_author=Bernadette, Perrin-Riou

slib_example=zi:br@,

!exit

:proc
!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
 !exit
!endif

slib_word= $wims_read_parm

pas de code html  sauf
{,æ
},ʉ

slib_out =$slib_word

!!slib_out=!replace internal & by && in $slib_out
slib_IPA=ʉ,#qqqqqqqqqqqqqqqq;\
æ,#pppppppppppppppp;\
&,&#zzzzzzzzzzzzzzz;,ɶ,s.c. OE lig. \
2,ø,ø,o-slash \
3,xxxxxxxxxxxxxxx\
9,&#339yyyyyyyyyy;,œ,oe ligature \
6,ɐ,ɐ,turned a \
&#339yyyyyyyyyy;,œ\
xxxxxxxxxxxxxxx,3\
3,ɜ,ɜ,rev. epsilon \
&#zzzzzzzzzzzzzzz,ɶ,ɶ,s.c. OE lig. \
#pppppppppppppppp;,æ\
#qqqqqqqqqqqqqqqq;,ʉ\
A,ɑ,ɑ,script a \
{,æ,æ,ae ligature \
Q,ɒ,ɒ,turned script a \
E,ɛ,ɛ,epsilon \
@,ə,ə,turned e \
I,ɪ,ɪ,small cap I \
O,ɔ,ɔ,turned c \
U,ʊ,ʊ,upsilon \
},ʉ,ʉ,barred u \
V,ʌ,ʌ,turned v \
Y,ʏ,ʏ,small cap Y \
B,β,β,beta \
C,ç,ç,c-cedilla \
D,ð,ð,eth \
G,ɣ,ɣ,gamma \
L,ʎ,ʎ,turned y \
J,ɲ,ɲ,left-tail n \
N,ŋ,ŋ,eng \
R,ʁ,ʁ,inv. s.c. R \
S,ʃ,ʃ,esh \
T,θ,θ,theta \
H,ɥ,ɥ,turned h \
Z,ʒ,ʒ,ezh (yogh) \
?,ʔ,ʔ,dotless ?
`,˞


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