slitaz-base-files annotate rootfs/lib/libtaz.sh @ rev 289

libtaz: implement options --quiet and --cols=
author Aleksej Bobylev <al.bobylev@gmail.com>
date Thu Dec 03 04:59:59 2015 +0200 (2015-12-03)
parents 973c3b2ecc5a
children 2d181ce6f795
rev   line source
pankso@125 1 #!/bin/sh
pankso@125 2 #
al@270 3 # SliTaz Base functions.
al@270 4 # Documentation: `man libtaz` or /usr/share/doc/slitaz/libtaz.txt
pankso@139 5 #
al@270 6 # Copyright (C) 2012-2015 SliTaz GNU/Linux - BSD License
pankso@125 7 #
pankso@125 8
pankso@125 9 . /usr/bin/gettext.sh
al@279 10 alias sed="busybox sed"
al@177 11
al@270 12 # Internal
al@219 13 lgettext() { gettext -d 'slitaz-base' "$@"; }
al@270 14 translate_query() {
al@270 15 case $1 in
al@270 16 y) lgettext "y";;
al@270 17 Y) lgettext "Y";;
al@270 18 n) lgettext "n";;
al@270 19 N) lgettext "N";;
al@270 20 # Support other cases but keep them untranslated.
al@270 21 *) echo "$1" ;;
al@270 22 esac
al@270 23 }
al@177 24 okmsg="$(lgettext 'Done')"
al@177 25 ermsg="$(lgettext 'Failed')"
pankso@174 26 : ${okcolor=32}
pankso@174 27 : ${ercolor=31}
pankso@174 28 : ${decolor=36}
pankso@125 29
pankso@137 30 # Parse cmdline options and store values in a variable.
al@270 31 for opt in "$@"; do
al@278 32 opt_name="${opt%%=*}"; opt_name="$(echo -n "${opt_name#--}" | tr -c 'a-zA-Z0-9' '_')"
al@276 33 case "$opt" in
al@278 34 --[0-9]*=*) export _$opt_name="${opt#*=}" ;;
al@278 35 --[0-9]*) export _$opt_name=yes ;;
al@278 36 --*=*) export $opt_name="${opt#*=}" ;;
al@278 37 --*) export $opt_name=yes ;;
pankso@125 38 esac
pankso@125 39 done
al@270 40 [ "$HTTP_REFERER" ] && output='html'
al@270 41
al@270 42
al@270 43
al@270 44
al@270 45 # i18n functions
al@270 46 _() { local T="$1"; shift; printf "$(eval_gettext "$T")" "$@"; echo; }
al@270 47 _n() { local T="$1"; shift; printf "$(eval_gettext "$T")" "$@"; }
al@271 48 _p() { local S="$1" P="$2" N="$3"; shift 3; printf "$(ngettext "$S" "$P" "$N")" "$@"; }
pankso@125 49
pankso@187 50 # Get terminal columns
al@289 51 get_cols() { stty size 2>/dev/null | awk -vc=$cols 'END{print c?c:($2 && $2<80)?$2:80}'; }
pankso@187 52
al@270 53 # Last command status
pankso@125 54 status() {
al@289 55 local ret_code=$?
al@289 56 [ -n "$quiet" -a "$ret_code" -eq 0 ] && return
al@289 57 [ -n "$quiet" ] && action "$saved_action" no-quiet
al@289 58
al@289 59 case $ret_code in
al@289 60 0) local msg="$okmsg" color="$okcolor";;
al@289 61 *) local msg="$ermsg" color="$ercolor";;
al@289 62 esac
pankso@131 63 case $output in
al@289 64 raw|gtk) echo " $msg";;
al@289 65 html) echo " <span class=\"float-right color$color\">$msg</span>";;
al@289 66 *) echo -e "[ \\033[1;${color}m$msg\\033[0;39m ]";;
al@270 67 esac
pankso@125 68 }
pankso@125 69
al@270 70 # Line separator
pankso@125 71 separator() {
al@289 72 [ -n "$quiet" ] && return
pankso@132 73 case $output in
al@288 74 gtk) echo '--------';;
al@289 75 html) echo -n '<hr/>';;
al@289 76 *) printf "%$(get_cols)s\n" | tr ' ' "${1:-=}";;
pankso@132 77 esac
pankso@125 78 }
pankso@125 79
al@270 80 # New line
al@289 81 newline() {
al@289 82 [ -z "$quiet" ] && echo
al@289 83 }
pankso@164 84
al@270 85 # Display a bold message
pankso@125 86 boldify() {
al@289 87 [ -n "$quiet" ] && return
pankso@125 88 case $output in
al@258 89 raw) echo "$@" ;;
al@258 90 gtk) echo "<b>$@</b>" ;;
meshca@149 91 html) echo "<strong>$@</strong>" ;;
meshca@149 92 *) echo -e "\\033[1m$@\\033[0m" ;;
pankso@125 93 esac
pankso@125 94 }
pankso@125 95
al@270 96 # Colorize message
pankso@167 97 colorize() {
al@289 98 [ -n "$quiet" ] && return
meshca@175 99 : ${color=$1}
meshca@175 100 shift
pankso@167 101 case $output in
al@270 102 raw|gtk) echo "$@";;
al@270 103 html) echo -n "<span class=\"color$color\">$@</span>";;
al@279 104 *) case $color in
al@279 105 0*) echo -e "\\033[${color:-38}m$@\\033[39m";;
al@279 106 *) echo -e "\\033[1;${color:-38}m$@\\033[0;39m";;
al@279 107 esac;;
pankso@167 108 esac
pankso@167 109 unset color
pankso@167 110 }
pankso@167 111
al@270 112 # Indent text
pankso@161 113 indent() {
al@289 114 [ -n "$quiet" ] && return
meshca@158 115 local in="$1"
meshca@158 116 shift
pankso@161 117 echo -e "\033["$in"G $@";
meshca@158 118 }
meshca@158 119
al@193 120 # Extended MeSsaGe output
al@193 121 emsg() {
al@289 122 [ -n "$quiet" ] && return
al@289 123 local sep="\n$(separator)\n"
al@193 124 case $output in
al@193 125 raw)
al@193 126 echo "$@" | sed -e 's|<b>||g; s|</b>||g; s|<c [0-9]*>||g; \
al@193 127 s|</c>||g; s|<->|'$sep'|g; s|<n>|\n|g; s|<i [0-9]*>| |g' ;;
al@193 128 gtk)
al@193 129 echo "$@" | sed -e 's|<c [0-9]*>||g; s|</c>||g; s|<->|'$sep'|g; \
al@193 130 s|<n>|\n|g; s|<i [0-9]*>| |g' ;;
al@193 131 html)
al@193 132 echo "$@" | sed -e 's|<b>|<strong>|g; s|</b>|</strong>|g; \
al@270 133 s|<c \([0-9]*\)>|<span class="color\1">|g; s|</c>|</span>|g; \
al@193 134 s|<n>|<br/>|g; s|<->|<hr/>|g; s|<i [0-9]*>| |g' ;;
al@193 135 *)
al@265 136 echo -en "$(echo "$@" | sed -e 's|<b>|\\033[1m|g; s|</b>|\\033[0m|g;
al@279 137 s|<c 0\([0-9]*\)>|\\033[\1m|g; s|<c \([1-9][0-9]*\)>|\\033[1;\1m|g;
al@279 138 s|</c>|\\033[0;39m|g; s|<n>|\n|g;
al@193 139 s|<->|'$sep'|g; s|<i \([0-9]*\)>|\\033[\1G|g')"
al@193 140 [ "$1" != "-n" ] && echo
al@193 141 ;;
al@193 142 esac
al@193 143 }
al@193 144
al@270 145 # Check if user is logged as root
pankso@125 146 check_root() {
al@289 147 if [ $(id -u) -ne 0 ]; then
al@258 148 lgettext "You must be root to execute:"; echo " $(basename $0) $@"
pankso@125 149 exit 1
pankso@125 150 fi
pankso@125 151 }
meshca@158 152
pankso@174 153 # Display debug info when --debug is used.
meshca@169 154 debug() {
al@270 155 [ -n "$debug" ] && echo "$(colorize $decolor 'DEBUG:') $1"
meshca@169 156 }
meshca@169 157
al@270 158 # Confirmation
pankso@161 159 confirm() {
al@260 160 if [ -n "$yes" ]; then
al@260 161 true
al@260 162 else
al@260 163 if [ -n "$1" ]; then
al@260 164 echo -n "$1 "
al@260 165 else
al@260 166 echo -n " ($(translate_query y)/$(translate_query N)) ? "
al@260 167 fi
al@260 168 read answer
al@260 169 [ "$answer" == "$(translate_query y)" ]
al@260 170 fi
meshca@160 171 }
pankso@161 172
al@270 173 # Log activities
pankso@162 174 log() {
al@271 175 echo "$(date '+%F %R') : $@" >> ${activity:-/var/log/slitaz/libtaz.log}
pankso@162 176 }
al@221 177
al@270 178 # Print two-column list of options with descriptions
al@221 179 optlist() {
al@289 180 [ -n "$quiet" ] && return
al@289 181 local in="$(echo "$1" | sed 's| *| |g')" w=$(get_cols) col1=1 line
al@258 182 IFS=$'\n'
al@221 183 for line in $in; do
al@221 184 col=$(echo -n "$line" | cut -f1 | wc -m)
al@221 185 [ $col -gt $col1 ] && col1=$col
al@221 186 done
al@289 187 echo "$in" | sed 's|\t|&\n|' | fold -sw$((w - col1 - 4)) | \
al@221 188 sed "/\t/!{s|^.*$|[$((col1 + 4))G&|g}" | sed "/\t$/{N;s|.*| &|;s|\t\n||}"
al@221 189 }
al@221 190
al@221 191 # Wrap words in long terminal message
al@221 192 longline() {
al@289 193 [ -n "$quiet" ] && return
al@289 194 local w=$(get_cols)
al@289 195 echo -e "$@" | fold -sw$w
al@221 196 }
al@271 197
al@271 198 # Print localized title
al@271 199 title() {
al@289 200 [ -n "$quiet" ] && return
al@271 201 case $output in
al@271 202 html) echo "<section><header>$(_ "$@")</header><pre class=\"scroll\">";;
al@289 203 *) newline; boldify "$(_ "$@")"; separator;;
al@271 204 esac
al@271 205 }
al@271 206
al@271 207 # Print footer
al@271 208 footer() {
al@289 209 [ -n "$quiet" ] && return
al@271 210 case $output in
al@271 211 html) echo "</pre><footer>$1</footer></section>";;
al@271 212 *) separator; echo "$1"; [ -n "$1" ] && newline;;
al@271 213 esac
al@271 214 }
al@271 215
al@271 216 # Print current action
al@289 217 saved_action=''
al@271 218 action() {
al@289 219 saved_action="$1"
al@289 220 [ -n "$quiet" -a -z "$2" ] && return
al@289 221 local w c scol msg chars
al@287 222 w=$(_ 'w'); w=${w/w/10}
al@289 223 c=$(get_cols)
al@289 224 scol=$(( $c - $w ))
al@287 225 msg="$(_n "$@" | fold -sw$scol)"
al@289 226 chars=$(echo -n "$msg" | tail -n1 | wc -m)
al@289 227 msg="$(printf '%s%'$(( $scol - $chars ))'s' "$msg" '')"
al@287 228
al@271 229 case $output in
al@287 230 raw|gtk|html) echo -n "$msg";;
al@287 231 *) echo -ne "\033[0;33m$msg\033[0m";;
al@271 232 esac
al@271 233 }
al@271 234
al@271 235 # Print long line as list item
al@271 236 itemize() {
al@289 237 [ -n "$quiet" ] && return
al@283 238 case $output in
al@283 239 gtk) echo "$@";;
al@283 240 *)
al@289 241 local inp="$@" w=$(get_cols) first offset
al@289 242 first="$(echo -e "$inp" | fold -sw$w | head -n1)"
al@283 243 echo "$first"
al@283 244 cols1="$(echo "${first:1}" | wc -c)"
al@283 245 offset=$(echo "$first" | sed -n 's|^\([^:\*-]*[:\*-]\).*$|\1|p' | wc -m)
al@289 246 echo "${inp:$cols1}" | fold -sw$((w - offset)) | awk \
al@283 247 '($0){printf "%'$offset's%s\n","",$0}'
al@283 248 ;;
al@283 249 esac
al@271 250 }