aliases-and-functions

#-*- sh -*-

#здесь находятся алиасы и функции, которые можно запускать из других скриптов, если подключить это файл
#но я так ни разу не делал

#=== bool ===
bool(){ test "$@" && echo true || echo false; }
# pred=$(bool 2 = 2)
# if $pred; then ...
# $pred && echo 1 || echo 2

#=== wget ===
alias wgetsite="wget -r -np -k -p -e robots=off -U mozilla --random-wait"
#-r              recursive
#-np no-parent - не подниматься выше заданной директории
#-k              после завершения загрузки конвертировать ссылки
#-p              Загружать все файлы, которые нужны для отображения страниц HTML
#-e robots=off   не подчиняться (obey) robots.txt
#-U mozilla      прикинуться mozillой
#--random-wait   случайное время ожидания - чтобы не банили как бота

#=== cadaver ===
alias yacadav='cadaver https://webdav.yandex.ru'

#=== winlink ===
winlink(){
	usage()
	{
		echo usage: winlink DEST SOURCE >&2
	}
	[ $# != 2 ] && { usage; return 1; }
	[ -d "$1" ] && cmd /C mklink /J "$2" "$1" || cmd /C mklink /H "$2" "$1"
}

#=== stack ===
STACK_SEPARATOR="\$'\n'" #how it works is invisible through echo, but visible through 'printf "%s"' (under bash)
push()
{
	usage()
	{
		echo usage: push array_name value >&2
	}
	[ $# != 2 ] && { usage; return 1; }

	#echo "$1=\$$1$STACK_SEPARATOR\"$2\""
	eval "$1=\$$1$STACK_SEPARATOR\"$2\""
}
pop()
{
	usage()
	{
		echo usage: pop array_name >&2
	}
	[ $# != 1 ] && { usage; return 1; }

	eval "echo \${$1##*$STACK_SEPARATOR}"
	eval "$1=\${$1%$STACK_SEPARATOR*}"
}
popto()
{
	usage()
	{
		echo usage: popto array_name var_name >&2
	}
	[ $# != 2 ] && { usage; return 1; }

	eval "$2=\${$1##*$STACK_SEPARATOR}"
	eval "$1=\${$1%$STACK_SEPARATOR*}"
}

#=== path ===
alias echopath='echo $PATH | sed '\''s/:/\n/g'\'

pathdisable() # что
{
	for x ; do
		local found
		while true; do
			if found=$((echo "$PATH" | grep '^(.*):([^:]*'"$x"'[^:]*):(.*)$' > /dev/null) && (echo "$PATH" | sed 's/^(.*):([^:]*'"$x"'[^:]*):(.*)$/\2/') ); then
				echo disable "$found"
				PATH=${PATH/":$found:"/:}
				[ -z "$DISABLEDPATH" ] && DISABLEDPATH="$found" || DISABLEDPATH="$DISABLEDPATH:$found"
			elif found=$((echo "$PATH" | grep '^([^:]*'"$x"'[^:]*):(.*)$' > /dev/null) && (echo "$PATH" | sed 's/^([^:]*'"$x"'[^:]*):(.*)$/\2/') ); then
				echo disable "$found"
				PATH=${PATH/"$found:"/}
				[ -z "$DISABLEDPATH" ] && DISABLEDPATH="$found" || DISABLEDPATH="$DISABLEDPATH:$found"
			elif found=$((echo "$PATH" | grep '^(.*):([^:]*'"$x"'[^:]*)$' > /dev/null) && (echo "$PATH" | sed 's/^(.*):([^:]*'"$x"'[^:]*)$/\2/') ); then
				echo disable "$found"
				PATH=${PATH/":$found"/}
				[ -z "$DISABLEDPATH" ] && DISABLEDPATH="$found" || DISABLEDPATH="$DISABLEDPATH:$found"
			else
				break;
			fi
		done
	done
}

enable2pathhead() # что
{
	for x ; do
		local found
		while true; do
			if found=$((echo "$DISABLEDPATH" | grep '^(.*):([^:]*'"$x"'[^:]*):(.*)$' > /dev/null) && (echo "$DISABLEDPATH" | sed 's/^(.*):([^:]*'"$x"'[^:]*):(.*)$/\2/') ); then
				echo enable "$found"
				DISABLEDPATH=${DISABLEDPATH/":$found:"/:}
				[ -z "$PATH" ] && PATH="$found" || PATH="$found:$PATH"
			elif found=$((echo "$DISABLEDPATH" | grep '^([^:]*'"$x"'[^:]*):(.*)$' > /dev/null) && (echo "$DISABLEDPATH" | sed 's/^([^:]*'"$x"'[^:]*):(.*)$/\2/') ); then
				echo enable "$found"
				DISABLEDPATH=${DISABLEDPATH/"$found:"/}
				[ -z "$PATH" ] && PATH="$found" || PATH="$found:$PATH"
			elif found=$((echo "$DISABLEDPATH" | grep '^(.*):([^:]*'"$x"'[^:]*)$' > /dev/null) && (echo "$DISABLEDPATH" | sed 's/^(.*):([^:]*'"$x"'[^:]*)$/\2/') ); then
				echo enable "$found"
				DISABLEDPATH=${DISABLEDPATH/":$found"/}
				[ -z "$PATH" ] && PATH="$found" || PATH="$found:$PATH"
			else
				break;
			fi
		done
	done
}

enable2pathtail() # что
{
	for x ; do
		local found
		while true; do
			if found=$((echo "$DISABLEDPATH" | grep '^(.*):([^:]*'"$x"'[^:]*):(.*)$' > /dev/null) && (echo "$DISABLEDPATH" | sed 's/^(.*):([^:]*'"$x"'[^:]*):(.*)$/\2/') ); then
				echo enable "$found"
				DISABLEDPATH=${DISABLEDPATH/":$found:"/:}
				[ -z "$PATH" ] && PATH="$found" || PATH="$PATH:$found"
			elif found=$((echo "$DISABLEDPATH" | grep '^([^:]*'"$x"'[^:]*):(.*)$' > /dev/null) && (echo "$DISABLEDPATH" | sed 's/^([^:]*'"$x"'[^:]*):(.*)$/\2/') ); then
				echo enable "$found"
				DISABLEDPATH=${DISABLEDPATH/"$found:"/}
				[ -z "$PATH" ] && PATH="$found" || PATH="$PATH:$found"
			elif found=$((echo "$DISABLEDPATH" | grep '^(.*):([^:]*'"$x"'[^:]*)$' > /dev/null) && (echo "$DISABLEDPATH" | sed 's/^(.*):([^:]*'"$x"'[^:]*)$/\2/') ); then
				echo enable "$found"
				DISABLEDPATH=${DISABLEDPATH/":$found"/}
				[ -z "$PATH" ] && PATH="$found" || PATH="$PATH:$found"
			else
				break;
			fi
		done
	done
}

#=== tar ===
myuntar()
{
	usage()
	{
		echo usage: myuntar archive.tgz >&2
		echo   разархивирует в любом случае в отдельную папку >&2
	}
	[ $# != 1 ] && { usage; return 1; }

	mkdir ${1%.tgz}
	cd ${1%.tgz}
	tar -xzf ../$1
	local c=0
	for x in * ; do
		c=$(($c+1))
	done
	if [ "$c" = 1 ]; then
		mv * ..
	fi
	cd -
	if [ "$c" = 1 ]; then
		rmdir ${1%.tgz}
	fi
}
mytar()
{
	usage()
	{
		echo usage: mytar dir_or_file >&2
		echo   архивирует в dir_or_file.tgz >&2
	}
	[ $# != 1 ] && { usage; return 1; }

	tar -czf $1 -o $1.tgz
}

TRASH_DIR=~/.trash
#=== rm-to-trash ===
rm-to-trash(){
if [ $# == 0 -o "x$1" = x--help -o "x$1" = x-h ]; then
	echo "usage:"
	echo "   <rm> [-h|--help]         --- вывести этот usage"
	echo "   <rm> -f|-rf objects...   --- вызов системного rm с соответствующими опциями и объектами"
	echo "   <rm> [-v] objects...     --- перемещение объектов в корзину, -v - verbose"
	return 1
fi

if [ "x$1" = x-f -o "x$1" = x-rf ]; then
	env rm "$@" # todo надо сделать вариант вызова rm без аргументов -f и -rf
else
	if [ "x$1" = x-v ];then
		local verbose=1; 
		shift
	else
		local verbose=0
	fi
	local dt="$( date '+%Y-%m-%d %H-%M-%S')"
	local exitcode=0
	while [ $# -gt 0 ]; do
		case "$1" in /*) local fname="${1%/}";; *) local fname="$PWD/${1%/}";; esac
		shift
		local efname="$dt$(echo "$fname" | sed -E 's/%/%%/g; s/\//%-/g')"
		[ $verbose = 1 ] && echo "$fname --> $TRASH_DIR/$efname"
		mv -i "$fname" "$TRASH_DIR/$efname" || exitcode=1
	done
	return $exitcode
fi
}

function restore(){
if [ $# == 0 -o "x$1" = x--help -o "x$1" = x-h ]; then
	echo "usage:"
	echo "   restore [-h|--help]           --- вывести этот usage"
	echo "   restore [-v] [-p] objects...  --- перемещение объектов из корзины на свои места"
	echo "-v - verbose; -p - предварительно создваать папки (если отсутствуют), куда должны быть перемещены объекты"
	echo "объектами могут быть как имена удаленных файлов и каталогов в файловой системе, так и в папке $TRASH_DIR"
	return 1
fi
	if [ "x$1" = x-v ];then
		local verbose=1; 
		shift
	else
		local verbose=0
	fi
	if [ "x$1" = x-p ];then
		local mkdirp=1; 
		shift
	else
		local mkdirp=0
	fi
	local exitcode=0
	while [ $# -gt 0 ]; do
		case "$1" in /*) local fname="${1%/}";; *) local fname="$PWD/${1%/}";; esac
		shift
		if [ "$(dirname "$fname")" = "$TRASH_DIR" ]; then
			local esctrashdir="$(echo "$TRASH_DIR" | sed 's/\./\\\./g; s/\//\\\//g')" # todo теоретически надо экранировать больше симолов
			local efname="$(echo "$fname" | sed -E "s/$esctrashdir"'\/[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]-[0-9][0-9]-[0-9][0-9]//; s/%(%|-)/\/\1/g; s/\/%/%/g; s/\/-/\//g')"
			[ $verbose = 1 ] && echo "$fname --> $efname"
			if [ -d "$efname" ]; then # todo надо указать еще типы аналогичных директорий, типа сокеты, симлинки, файлы-потоки...
				echo "restore отказывается заменять существующий каталог каталогом из корзины: $efname" && exitcode=1
			else
				[ $mkdirp = 1 ] && mkdir -p "$(dirname "$efname")"
				mv -i "$fname" "$efname" || exitcode=1
			fi
		else
			local efname="$(echo "$fname" | sed -E 's/%/%%/g; s/\//%-/g')" # todo теоретически надо экранировать больше симолов
			local paths="$(find ~/.trash -name "????-??-?? ??-??-??$efname")" # todo -name надо заменить на -regexp, потому что find этот шаблон может найти в подкаталогах ~/.trash
			if [ $(echo "$paths" | wc -l) = 1 ]; then
				[ $verbose = 1 ] && echo "$paths --> $fname"
				if [ -d "$fname" ]; then # todo надо указать еще типы аналогичных директорий, типа сокеты, симлинки, файлы-потоки...
					echo "restore отказывается заменять существующий каталог каталогом из корзины: $fname" && exitcode=1
				else
					[ $mkdirp = 1 ] && mkdir -p "$(dirname "$fname")"
					mv -i "$paths" "$fname" || exitcode=1
				fi
			elif [ $(echo "$paths" | wc -l) = 0 ]; then
				echo в корзине не найдено ни одного файла "$fname"
				exitcode=1
			else
				echo в корзине найдено более одного файла "$fname" :
				echo "$paths" | sed -E 's/ /\\ /g'
				exitcode=1
			fi
		fi
	done
	return $exitcode
}
#----

# создает симлинк $2 указывающий на $1
# если файл или симлинк с таким имененм существует - переименовывает его
linksave() {
	usage()
	{
		echo usage: linksave DEST SOURCE >&2
		echo   если файл или симлинк с таким имененм существует - переименовывает его >&2
	}
	[ $# != 2 ] && { usage; return 1; }

	#echo "$1" "$2"
	if [ -f "$2" -o -L "$2" ] && [ -z "$(grep -P "\\Q$1\\E\$" <(ls -l "$2") )" ]; then
		date_var="$(date "+%F-%H-%M-%S")"
		mv "$2" "$2".bak-"$date_var"
		echo "$2" moved to "$2".bak-"$date_var"
	fi
	# после переименования не должно остаться $1
	[ -f "$2" -o -L "$2" ] || ln -s "$1" "$2"
}

# добавляет строку $1 в файл $2, если там ее нет
append_ifnot_line() {
	usage()
	{
		echo usage: append_ifnot_line STRING FILE >&2
		echo   добавляет строку, если ее там нет >&2
	}
	[ $# != 2 ] && { usage; return 1; }

	[ -z "$(grep -P "\\Q$1\\E" "$2")" ] && echo "$1" >> "$2" || return 0
}

# возвращает столбец;строку , где находится курсор
curpos() {
	usage()
	{
		echo usage: curpos >&2
		echo   return 'col;line' >&2
	}
	[ $# != 0 ] && { usage; return 1; }

	# based on a script from http://invisible-island.net/xterm/xterm.faq.html
	exec < /dev/tty
	local oldstty=$(stty -g)
	stty raw -echo min 0
	# on my system, the following line can be replaced by the line below it
	echo -en "\033[6n" > /dev/tty
	# tput u7 > /dev/tty    # when TERM=xterm (and relatives)
	local pos
	read -r -d R pos
	stty $oldstty

	#echo -en "\E[6n"
	#local CURPOS
	#read -sdR CURPOS
	echo ${pos#*[}
}