mirror of
https://github.com/9fans/plan9port.git
synced 2025-01-15 11:20:03 +00:00
23 lines
647 B
Text
23 lines
647 B
Text
awk ' # reroman
|
|
# Output: string (tab) arab1 [(space) arab2]
|
|
# Input: string (tab) arab1 or roman1 [(space) arab2 or roman2]
|
|
|
|
BEGIN { FS = OFS = "\t"
|
|
# set a[1] = "i", a[2] = "ii", ...
|
|
s = "i ii iii iv v vi vii viii ix x"
|
|
s = s " xi xii xiii xiv xv xvi xvii xviii xix xx"
|
|
s = s " xxi xxii xxiii xxiv xxv xxvi xxvii xxviii xxix xxx"
|
|
split(s, a, " ")
|
|
}
|
|
$2 < 0 { n = split($2, b, " ")
|
|
for (i = 1; i <= n; i++) {
|
|
if (b[i] >= 0) continue
|
|
j = 1000 + b[i]
|
|
if (j in a) b[i] = a[j]
|
|
else print "reroman: bad number: " $0 | "cat 1>&2"
|
|
}
|
|
$2 = b[1]
|
|
if (n > 1) $2 = b[1] " " b[2]
|
|
}
|
|
{ print }
|
|
' $*
|