diff options
Diffstat (limited to 'src/cmd/index/rotate')
| -rw-r--r-- | src/cmd/index/rotate | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/cmd/index/rotate b/src/cmd/index/rotate new file mode 100644 index 00000000..76c0274c --- /dev/null +++ b/src/cmd/index/rotate @@ -0,0 +1,31 @@ +awk ' # rotate +# Input line: string (tab) ["b"|"e"|"a"] (tab) number +# Output several lines: +# string (tab) ["b"|"e"|"a"] (tab) number +# rotated string (tab) ["b"|"e"|"a"] (tab) number +# rotated string (tab) ["b"|"e"|"a"] (tab) number +# ... +# +# In the output strings, tildes are replaced by spaces + +BEGIN { FS = OFS = "\t" } + +/ %key / { # if explicit sort.key is provided, do not rotate + print $0 + next + } + + { + t1 = $1 #t1 will be $1 with tildes changed to spaces + gsub(/%~/, "QQ5QQ", t1) #hide real tildes + gsub(/~/, " ", t1) #change tildes to spaces + gsub(/QQ5QQ/, "%~", t1) #restore real tildes + print t1, $2, $3 + i = 1 + while ((j = index(substr($1, i+1), " ")) > 0) { + i += j + printf("%s, %s\t%s\t%s\n", \ + substr(t1, i+1), substr(t1, 1, i-1), $2, $3) + } + } +' $* |