Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif
slib_author=Bernadette, Perrin-Riou

slib_title=Numération romaine
slib_parms=1\
,number to convert (less than 3999)
slib_out=Conversion en numération romaine

slib_example=456\
654\
12

!exit

:proc

slib_chif=$wims_read_parm

slib_romain=
!bound $slib_chif between 1 and 3999
slib_number=1,I,V\
10,X,L\
100,C,D\
1000,M,MMMMM
slib_cnt=!charcnt $slib_chif
!for slib_a = 1 to $slib_cnt
  slib_digit=!char $[$slib_cnt - $slib_a+1] of $slib_chif
  slib_i= $(slib_number[$slib_a;2])
  slib_v=$(slib_number[$slib_a;3])
  !if $slib_digit iswordof 1 2 3
    slib_rom=!makelist $slib_i for x = 1 to $slib_digit
    slib_romain= $slib_rom $slib_romain
  !endif
  !if $slib_digit=4
    slib_romain= $slib_i $slib_v $slib_romain
  !endif
  !if $slib_digit=5
    slib_romain= $slib_v $slib_romain
  !endif
   !if $slib_digit iswordof 6 7 8
     slib_rom= !makelist $slib_i for x = 1 to $slib_digit -5
     slib_romain=$slib_v$slib_rom $slib_romain
   !endif
   !if $slib_digit=9
     slib_x=$(slib_number[$slib_a+1;2])
     slib_romain=$slib_i$slib_x$slib_romain
   !endif
 !next

 slib_out=!replace internal , by in $slib_romain
 slib_out=!nospace $slib_out