Subversion Repositories wimsdev

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

slib_author=Bernadette, Perrin-Riou

slib_example=mother,mothers,father,fathers,toto

!exit
:proc
!reset slib_epd slib_out
slib_text=$wims_read_parm
slib_text=!replace internal $   $ by $\
$ in $slib_text
slib_line_cnt=!linecnt $slib_text
slib_bad=,;?!.:
slib_bad_cnt=!charcnt $slib_bad
!for slib_a =1 to $slib_bad_cnt
  slib_char=!char $slib_a of $slib_bad
  slib_text=!replace internal $slib_char by $ $slib_char$ $ in $slib_text
!next
!for slib_l=1 to $slib_line_cnt
  !reset slib_epd_l
  slib_line=!line $slib_l of $slib_text
  slib_word_cnt=!wordcnt $slib_line
  !for slib_j = 1 to $slib_word_cnt
    slib_w = !word $slib_j of $slib_text
    slib_e=
    !if $slib_j notin $slib_bad
      slib_e = !lookup $slib_w in data/lex/epd_data
      slib_e=!item 1 of $slib_e
    !endif
    !default slib_e=$slib_w
    slib_epd_l=!append word $slib_e to $slib_epd_l
  !next
  slib_epd=$slib_epd\
$slib_epd_l
!next
slib_epd=!trim $slib_epd

!read slib/lang/epd2ipa $slib_epd
!for slib_a =1 to $slib_bad_cnt
  slib_char=!char $slib_a of $slib_bad
  slib_out=!replace internal $ $slib_char by $slib_char in $slib_out
!next