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

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