#!/bin/sh
#
# SliTaz Base functions.
# Documentation: `man libtaz` or /usr/share/doc/slitaz/libtaz.txt
#
# Copyright (C) 2012-2015 SliTaz GNU/Linux - BSD License
#

. /usr/bin/gettext.sh
alias sed="busybox sed"

# Internal
lgettext() { gettext -d 'slitaz-base' "$@"; }
translate_query() {
	case $1 in
		y) lgettext "y";;
		Y) lgettext "Y";;
		n) lgettext "n";;
		N) lgettext "N";;
		# Support other cases but keep them untranslated.
		*) echo "$1" ;;
	esac
}
okmsg="$(lgettext 'Done')"
ermsg="$(lgettext 'Failed')"
: ${okcolor=32}
: ${ercolor=31}
: ${decolor=36}

# Parse cmdline options and store values in a variable.
for opt in "$@"; do
	opt_name="${opt%%=*}"; opt_name="$(echo -n "${opt_name#--}" | tr -c 'a-zA-Z0-9' '_')"
	case "$opt" in
		--[0-9]*=*)	export _$opt_name="${opt#*=}" ;;
		--[0-9]*)	export _$opt_name=yes ;;
		--*=*)		export  $opt_name="${opt#*=}" ;;
		--*)		export  $opt_name=yes ;;
	esac
done
[ "$HTTP_REFERER" ] && output='html'

# i18n functions
_()  { local T="$1"; shift; printf "$(gettext "$T")" "$@"; echo; }
_n() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; }
_p() { local S="$1" P="$2" N="$3"; shift 3; printf "$(ngettext "$S" "$P" "$N")" "$@"; }

# Get terminal columns
get_cols() { stty size 2>/dev/null | awk -vc=$cols 'END{print c?c:$2?$2:80}'; }

# Last command status
status() {
	local ret_code=$?
	[ -n "$quiet" -a "$ret_code" -eq 0 ] && return
	[ -n "$quiet" ] && action "$saved_action" no-quiet

	case $ret_code in
		0) local msg="$okmsg" color="$okcolor";;
		*) local msg="$ermsg" color="$ercolor";;
	esac
	case $output in
		raw|gtk) echo " $msg";;
		html) echo " <span class=\"float-right color$color\">$msg</span>";;
		*)
			local cols=$(get_cols)
			local scol=$((${cols:-80} - 10))
			echo -e "\\033[${scol}G[ \\033[1;${color}m$msg\\033[0;39m ]";;
	esac
}

# Line separator
separator() {
	[ -n "$quiet" ] && return
	case $output in
		gtk) echo '--------';;
		html) echo -n '<hr/>';;
		*) printf "%$(get_cols)s\n" | tr ' ' "${1:-=}";;
	esac
}

# New line
newline() {
	[ -z "$quiet" ] && echo
}

# Display a bold message
boldify() {
	[ -n "$quiet" ] && return
	case $output in
		raw)  echo "$@" ;;
		gtk)  echo "<b>$@</b>" ;;
		html) echo "<strong>$@</strong>" ;;
		*) echo -e "\\033[1m$@\\033[0m" ;;
	esac
}

# Colorize message
colorize() {
	[ -n "$quiet" ] && return
	: ${color=$1}
	shift
	case $output in
		raw|gtk) echo "$@";;
		html)    echo -n "<span class=\"color$color\">$@</span>";;
		*)  case $color in
				0*) echo -e "\\033[${color:-38}m$@\\033[39m";;
				*)  echo -e "\\033[1;${color:-38}m$@\\033[0;39m";;
			esac;;
	esac
	unset color
}

# Indent text
indent() {
	[ -n "$quiet" ] && return
	local in="$1"
	shift
	echo -e "\033["$in"G $@";
}

# Extended MeSsaGe output
emsg() {
	[ -n "$quiet" ] && return
	local sep="\n$(separator)\n"
	case $output in
		raw)
			echo "$@" | sed -e 's|<b>||g; s|</b>||g; s|<c [0-9]*>||g; \
			s|</c>||g; s|<->|'$sep'|g; s|<n>|\n|g; s|<i [0-9]*>| |g' ;;
		gtk)
			echo "$@" | sed -e 's|<c [0-9]*>||g; s|</c>||g; s|<->|'$sep'|g; \
			s|<n>|\n|g; s|<i [0-9]*>| |g' ;;
		html)
			echo "$@" | sed -e 's|<b>|<strong>|g; s|</b>|</strong>|g; \
			s|<c \([0-9]*\)>|<span class="color\1">|g; s|</c>|</span>|g; \
			s|<n>|<br/>|g; s|<->|<hr/>|g; s|<i [0-9]*>| |g' ;;
		*)
			echo -en "$(echo "$@" | sed -e 's|<b>|\\033[1m|g; s|</b>|\\033[0m|g;
			s|<c 0\([0-9]*\)>|\\033[\1m|g; s|<c \([1-9][0-9]*\)>|\\033[1;\1m|g;
			s|</c>|\\033[0;39m|g; s|<n>|\n|g;
			s|<->|'$sep'|g; s|<i \([0-9]*\)>|\\033[\1G|g')"
			[ "$1" != "-n" ] && echo
			;;
	esac
}

# Check if user is logged as root
check_root() {
	if [ $(id -u) -ne 0 ]; then
		lgettext "You must be root to execute:"; echo " $(basename $0) $@"
		exit 1
	fi
}

# Display debug info when --debug is used.
debug() {
	[ -n "$debug" ] && echo "$(colorize $decolor 'DEBUG:') $1"
}

# Report error and finish work
die() { longline "$(_ "$@")" >&2; exit 1; }

# Interactive mode
im() { tty -s; }

# Confirmation
confirm() {
	local answer='' defanswer='n'
	# Check auto-answer, if any
	[ -n "$yes" ] && answer='y'
	[ -n "$noconfirm" ] && answer='n'
	# Print question
	if [ -n "$1" ]; then
		case "$2" in
			'')  echo -n "$1 ";;
			y|Y) echo -n "$1 [$(translate_query Y)/$(translate_query n)] "; defanswer='y';;
			*)   echo -n "$1 [$(translate_query y)/$(translate_query N)] ";;
		esac
	else
		echo -n " [$(translate_query y)/$(translate_query N)] ? "
	fi
	# Is it auto-answer?
	if [ -z "$answer" ]; then
		im && read -t ${timeout:-30} answer
		[ -z "$answer" ] && answer="$(translate_query "$defanswer")"
	else
		translate_query "$answer"; echo ' (auto)'
	fi
	# Return true/false to use in conditions
	[ "$answer" == "$(translate_query y)" -o "$answer" == "$(translate_query Y)" ]
}

# Log activities
log() {
	echo "$(date '+%F %R') : $@" >> ${activity:-/var/log/slitaz/libtaz.log}
}

# Print two-column list of options with descriptions
optlist() {
	[ -n "$quiet" ] && return
	local in="$(echo "$1" | sed 's|		*|	|g')" w=$(get_cols) col1=1 line
	IFS=$'\n'
	for line in $in; do
		col=$(echo -n "$line" | cut -f1 | wc -m)
		[ $col -gt $col1 ] && col1=$col
	done
	echo "$in" | sed 's|\t|&\n|' | fold -sw$((w - col1 - 4)) | \
	sed "/\t/!{s|^.*$|[$((col1 + 4))G&|g}" | sed "/\t$/{N;s|.*|  &|;s|\t\n||}"
}

# Wrap words in long terminal message
longline() {
	[ -n "$quiet" ] && return
	local w=$(get_cols)
	echo -e "$@" | fold -sw$w
}

# Print localized title
title() {
	[ -n "$quiet" ] && return
	case $output in
		html) echo "<section><header>$(_ "$@")</header><pre class=\"scroll\">";;
		*) newline; boldify "$(_ "$@")"; separator;;
	esac
}

# Print footer
footer() {
	[ -n "$quiet" ] && return
	case $output in
		html) echo "</pre><footer>$1</footer></section>";;
		*)    separator; echo "$1"; [ -n "$1" ] && newline;;
	esac
}

# Print current action
saved_action=''
action() {
	saved_action="$1"
	[ -n "$quiet" -a -z "$2" ] && return
	local w c scol msg chars
	# Translators: 'w' is the width the wider translated message ('[ Done ]' or '[ Failed ]') takes in a terminal; place here the number
	w=$(_ 'w'); w=${w/w/10}
	c=$(get_cols)
	scol=$(( $c - $w ))
	msg="$(_n "$@" | fold -sw$scol)"
	chars=$(echo -n "$msg" | tail -n1 | wc -m)
	msg="$(printf '%s%'$(( $scol - $chars ))'s' "$msg" '')"

	case $output in
		raw|gtk|html) echo -n "$msg";;
		*) echo -ne "\033[0;33m$msg\033[0m";;
	esac
}

# Print long line as list item
itemize() {
	[ -n "$quiet" ] && return
	case $output in
		gtk) echo "$@";;
		*)
			local inp="$@" w=$(get_cols) first offset
			first="$(echo -e "$inp" | fold -sw$w | head -n1)"
			echo "$first"
			cols1="$(echo "${first:1}" | wc -c)"
			offset=$(echo "$first" | sed -n 's|^\([^:\*-]*[:\*-]\).*$|\1|p' | wc -m)
			echo "${inp:$cols1}" | fold -sw$((w - offset)) | awk \
				'($0){printf "%'$offset's%s\n","",$0}'
			;;
	esac
}
