ref: 87288afa5ac476efb3ef1ed40df658427339f13e
dir: /idx/reroman/
#!/bin/rc
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 }
' $*