URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 578 |
Rev 1765 |
namespace eval ::iwidgets {
|
namespace eval ::iwidgets {
|
set romand(val) {1000 900 500 400 100 90 50 40 10 9 5 4 1}
|
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(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}
|
set romand(lower) { m cm d cd c xc l xl x ix v iv i}
|
|
|
proc roman2 {n {case upper}} {
|
proc roman2 {n {case upper}} {
|
global romand
|
global romand
|
set r ""
|
set r ""
|
foreach val $romand(val) sym $romand($case) {
|
foreach val $romand(val) sym $romand($case) {
|
while {$n >= $val} {
|
while {$n >= $val} {
|
set r "$r$sym"
|
set r "$r$sym"
|
incr n -$val
|
incr n -$val
|
}
|
}
|
}
|
}
|
return $r
|
return $r
|
}
|
}
|
|
|
proc roman {n {case upper}} {
|
proc roman {n {case upper}} {
|
global romand
|
global romand
|
set r ""
|
set r ""
|
foreach val $romand(val) sym $romand($case) {
|
foreach val $romand(val) sym $romand($case) {
|
for {} {$n >= $val} {incr n -$val} {
|
for {} {$n >= $val} {incr n -$val} {
|
set r "$r$sym"
|
set r "$r$sym"
|
}
|
}
|
}
|
}
|
return $r
|
return $r
|
}
|
}
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.