Subversion Repositories wimsdev

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

slib_author=Fabrice Guerimand 

!exit

:proc
slib_input=$wims_read_parm

test=$[$slib_input]
!if NaN isin $test
 slib_out=NaN
 !exit
!endif

!if e isin $slib_input
 slib_out=$slib_input
 !exit
!endif

decomp=!replace internal . by , in $slib_input
part=!item 1 of $decomp
nbchi=!charcnt $part
nbgrp=$[floor($nbchi/3)]
slib_out=$empty
!ifval $nbgrp*3!=$nbchi
 slib_out=!char 1 to $[$nbchi-3*$nbgrp] of $part
!endif
!for i=0 to $nbgrp-1 
 tmp=!char $[$nbchi-3*($nbgrp-$i)+1] to $[$nbchi-3*($nbgrp-$i-1)] of $part
 slib_out=$slib_out $tmp
!next i

tst=!itemcnt $decomp
!if $tst=1
 !exit
!endif
part=!item 2 of $decomp
nbchi=!charcnt $part
nbgrp=$[ceil($nbchi/3)]
tmp=!char 1 to 3 of $part
slib_out=$(slib_out).$tmp
!for i=1 to $nbgrp 
 tmp=!char $[1+3*($i)] to $[3+3*$i] of $part
 slib_out=$slib_out $tmp 
!next i