Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_author=Fabrice,Guerimand

slib_example=435,\

12,30

!exit

:proc

!distribute item $wims_read_parm into slib_input,slib_option,slib_sep

slib_input=$[rint($slib_input)]

!if NaN isin $slib_input

 !exit

!endif

!bound slib_option between 5 and 50 default 20

!bound slib_input between 1 and 10^5 default 0

!bound slib_sep within item,$empty default $empty

slib_cnt=!charcnt $slib_input

slib_out=$empty

!for slib_k=1 to $slib_cnt

  slib_char=!char $slib_k of $slib_input

  !if $slib_char!=0

    slib_valeur=egyptien_$[10^($slib_cnt-$slib_k)]

    slib_tmp=!makelist <img width="$slib_option" src="gifs/numeration/$(slib_valeur).gif" alt="$slib_valeur"> for v=1 to $(slib_char)

    !if $slib_sep=item

      slib_out=!append item $slib_tmp to $slib_out

    !else

      slib_tmp=!items2words $slib_tmp

      slib_out=$slib_out $slib_tmp

    !endif

  !endif

!next slib_k