Rev 4158 | 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 |
||
| 4158 | bpr | 4 | |
| 5 | slib_comment=http://seas3.elte.hu/szigetva/etcetera/EPD.html |
||
| 791 | bpr | 6 | slib_example='g0dmVD@R,pIktS@-kAdz |
| 7 | |||
| 8 | !exit |
||
| 9 | |||
| 10 | :proc |
||
| 11 | |||
| 12 | slib_word=$wims_read_parm |
||
| 13 | |||
| 14 | pas de code html ! |
||
| 15 | |||
| 16 | slib_out =$slib_word |
||
| 17 | slib_out=!replace internal & by && in $slib_out |
||
| 18 | slib_IPA=0,;VV;,ɑ\ |
||
| 19 | 3,ɜ:,ɜ\ |
||
| 20 | ;VV;,ɒ,;\ |
||
| 21 | &&,æ,æ\ |
||
| 22 | i,i:,i:\ |
||
| 23 | I,ɪ,ɪ\ |
||
| 24 | @,ə,ə\ |
||
| 25 | U,ʊ,ʊ\ |
||
| 26 | A,ɑ:,a:\ |
||
| 27 | V,ʌ,ʌ\ |
||
| 28 | O,ɔ:,ɔ:\ |
||
| 29 | u,u:,u:\ |
||
| 30 | tS,ʧ,ʧ\ |
||
| 31 | dZ,ʤ,ʤ\ |
||
| 32 | N,ŋ,ŋ\ |
||
| 33 | T,θ,θ\ |
||
| 34 | D,ð,ð\ |
||
| 35 | S,ʃ,ʃ\ |
||
| 36 | Z,ʒ,ʒ\ |
||
| 37 | R,˞ |
||
| 38 | |||
| 39 | |||
| 40 | |||
| 41 | slib_IPA_m=!lines2rows $slib_IPA |
||
| 42 | |||
| 43 | slib_cnt=!linecnt $slib_IPA |
||
| 44 | !for slib_k = 1 to $slib_cnt |
||
| 45 | slib_l=!line $slib_k of $slib_IPA |
||
| 46 | slib_p=!item 1 of $slib_l |
||
| 47 | slib_q=!item 2 of $slib_l |
||
| 48 | slib_out=!replace internal $slib_p by $slib_q in $slib_out |
||
| 49 | !next |