| 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 } |
| ' $* |
