File: realign.sh 1 #!/bin/sh 2 3 # The MIT License (MIT) 4 # 5 # Copyright © 2024 pacman64 6 # 7 # Permission is hereby granted, free of charge, to any person obtaining a copy 8 # of this software and associated documentation files (the “Software”), to deal 9 # in the Software without restriction, including without limitation the rights 10 # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 11 # copies of the Software, and to permit persons to whom the Software is 12 # furnished to do so, subject to the following conditions: 13 # 14 # The above copyright notice and this permission notice shall be included in 15 # all copies or substantial portions of the Software. 16 # 17 # THE SOFTWARE IS PROVIDED “AS IS”, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 18 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 19 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 20 # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 21 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 22 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 23 # SOFTWARE. 24 25 26 # realign [options...] [filenames...] 27 # 28 # Realign all detected columns, right-aligning any detected numbers in any 29 # column. 30 # 31 # To realign columns from TSV (tab-separated values) lines, use any among 32 # these as the leading option: `-t`, `-tab` `-tabs`, or `-tsv`. 33 # 34 # Double-dashed variants of supported options are also supported. 35 36 37 # handle leading options 38 tsv=0 39 case "$1" in 40 -h|--h|-help|--help) 41 # show help message, extracting the info-comment at the start 42 # of this file, and quit 43 awk '/^# +realign/, /^$/ { gsub(/^# ?/, ""); print }' "$0" 44 exit 0 45 ;; 46 -t|--t|-tab|--tab|-tabs|--tabs|-tsv|--tsv) 47 # enable TSV (tab-separated values) mode 48 tsv=1 49 shift 50 ;; 51 esac 52 53 54 awk -v tsv="${tsv}" ' 55 BEGIN { 56 if (tsv) FS = "\t" 57 } 58 59 { 60 for (i = 1; i <= NF; i++) { 61 w = length($i) 62 if (maxw[i] < w) maxw[i] = w 63 data[NR][i] = $i 64 } 65 } 66 67 END { 68 for (i in data) { 69 for (j = 1; j <= length(data[i]); j++) { 70 if (j > 1) printf " " 71 v = data[i][j] 72 pad = match(v, /^[+-]?[0-9]+(\.[0-9]+)?$/) ? maxw[j] : -maxw[j] 73 printf "%*s", pad, v 74 } 75 printf "\n" 76 } 77 } 78 ' "$@"