Subversion Repositories or1k

namespace eval ::iwidgets {

  set romand(val)   {1000 900 500 400 100 90 50 40 10  9 5  4 1}

  set romand(upper) {   M  CM   D  CD   C XC  L XL  X IX V IV I}

  set romand(lower) {   m  cm   d  cd   c xc  l xl  x ix v iv i}

  proc roman2 {n {case upper}} {

      global romand

      set r ""

      foreach val $romand(val) sym $romand($case) {

          while {$n >= $val} {

              set r "$r$sym"

              incr n -$val

          }

      }

      return $r

  }

  proc roman {n {case upper}} {

      global romand

      set r ""

      foreach val $romand(val) sym $romand($case) {

          for {} {$n >= $val} {incr n -$val} {

              set r "$r$sym"

          }

      }

      return $r

  }

}