1 aa83d772 2004-05-17 devnull awk ' # reroman
 2 aa83d772 2004-05-17 devnull #   Output: string (tab) arab1            [(space) arab2]
 3 aa83d772 2004-05-17 devnull #   Input:  string (tab) arab1 or roman1  [(space) arab2 or roman2]
 4 aa83d772 2004-05-17 devnull 
 5 aa83d772 2004-05-17 devnull BEGIN	{ FS = OFS = "\t"
 6 aa83d772 2004-05-17 devnull 	  # set a[1] = "i", a[2] = "ii", ...
 7 aa83d772 2004-05-17 devnull 	  s =   "i ii iii iv v vi vii viii ix x"
 8 aa83d772 2004-05-17 devnull 	  s = s " xi xii xiii xiv xv xvi xvii xviii xix xx"
 9 aa83d772 2004-05-17 devnull 	  s = s " xxi xxii xxiii xxiv xxv xxvi xxvii xxviii xxix xxx"
10 aa83d772 2004-05-17 devnull 	  split(s, a, " ")
11 aa83d772 2004-05-17 devnull 	}
12 aa83d772 2004-05-17 devnull $2 < 0	{ n = split($2, b, " ")
13 aa83d772 2004-05-17 devnull 	  for (i = 1; i <= n; i++) {
14 aa83d772 2004-05-17 devnull 		if (b[i] >= 0) continue
15 aa83d772 2004-05-17 devnull 	  	j = 1000 + b[i]
16 aa83d772 2004-05-17 devnull 	  	if (j in a) b[i] = a[j]
17 aa83d772 2004-05-17 devnull 	  	else print "reroman: bad number: " $0  | "cat 1>&2"
18 aa83d772 2004-05-17 devnull 	  }
19 aa83d772 2004-05-17 devnull 	  $2 = b[1]
20 aa83d772 2004-05-17 devnull 	  if (n > 1) $2 = b[1] " " b[2]
21 aa83d772 2004-05-17 devnull 	}
22 aa83d772 2004-05-17 devnull 	{ print }
23 aa83d772 2004-05-17 devnull ' $*