#!/bin/bash -e

realpath () { readlink -f -- "$1"; }

include_guard_var () { realpath "$1"|sed 's/[^a-zA-Z0-9_]/_/g'; }

self_not_included () # usage: if self_not_included; then ... fi

{

	test "$#" -ge 1 || set -- "${BASH_SOURCE[1]}"

	local include_guard="$(include_guard_var "$1")"

	test -z "${!include_guard+t}" && eval "$include_guard"=1

}

if self_not_included "${BASH_SOURCE[0]}"; then

shopt -s expand_aliases

set_var () { eval "$1"'="$2"'; }

reverse () # usage: array=($(reverse args...))

{

	local i

	for (( i=$#; i >= 1; i-- )); do printf '%q ' "${!i}"; done

}

: "${verbosity:=$verbose}" "${verbosity:=0}"

echo_cmd () { echo "$PS4$*" >&2; }

echo_run () { echo_cmd "$@"; "$@"; }

canon_rel_path ()

{

	local path="$1"

	path="$(realpath "$path")" # canonicalize

	path="${path#$(pwd -P)/}" # remove any shared prefix with the current dir

	echo "$path"

}

# usage: echo_func "$@"

echo_func ()

{

	local script="$(canon_rel_path "${BASH_SOURCE[1]}")"

	echo_cmd "$script:${BASH_LINENO[0]}" "${FUNCNAME[1]}" "$@"

}

echo_stdin () # usage: input|echo_stdin|cmd

{

	echo ----- >&2

	tee -a /dev/stderr;

	echo ----- >&2

}

echo_vars () { declare -p "${@%%=*}" >&2; } # usage: echo_vars var...

echo_export ()

{

	builtin export "$@"

	echo_vars "$@"

}

if test "$verbosity" -ge 2; then

	alias export="echo_export" # automatically echo env vars when they are set

fi

usage () { echo "Usage: $1" >&2; (exit 2); }

top_dir="$(dirname "$0")" # outermost script

run_args_cmd () # runs the command line args command

{

	test "$?" -eq 0 || return

	eval set -- "$(reverse "${BASH_ARGV[@]}")"

	test "$#" -ge 1 || set -- all

	echo_cmd "$(canon_rel_path "$0")" "$@"; "$@"

}

fwd () # usage: subdirs=(...); fwd "$FUNCNAME" "$@"

{

	echo_func "$@"

	: "${subdirs?}"

	for subdir in "${subdirs[@]}"; do

		"$(dirname "${BASH_SOURCE[1]}")"/"$subdir"/run "$@"

	done

}

make ()

{

	echo_func "$@"

	echo_run env make --directory="$top_dir" "$@"

}

if false; then ## usage:

inline_make 3<<'EOF'

target:

	$(self_dir)/cmd >$@

EOF

# target will be run automatically because it's first in the makefile

fi ##

inline_make ()

{

	echo_func "$@"

	local self="$(readlink -f "${BASH_SOURCE[1]}")"

	local self_dir="$(dirname "$self")"

	export self self_dir

	make --makefile=<((

		cat /dev/fd/3

		echo -n "

.SUFFIXES: # turn off built-in suffix rules

.SECONDARY: # don't automatically delete intermediate files

.DELETE_ON_ERROR: # delete target if recipe fails

"

	)|echo_stdin) "$@"

}

alias zip="echo_run zip"

alias unzip="echo_run unzip"

alias zip_newer="zip -u"

alias unzip_newer="unzip -u -o" # -o is safe b/c -u only extracts newer files

#### databases

quote='"'

esc_name () { echo "$quote${1//$quote/$quote$quote}$quote"; }

mk_esc_name () { set_var "$1"_esc "$(esc_name "${!1}")"; }

mysql ()

{

	echo_func "$@"

	echo_run mysql_bien --database="$schema" --verbose "$@"

}

mysql_ANSI ()

{

	echo_func "$@"

	(echo "SET sql_mode = 'ANSI';"; cat)|mysql "$@"

}

psql () # usage: ([file=...] [dir=...]; self)

{

	echo_func "$@"

	local dir="$dir"

	if test -n "$file"; then

		set -- --file "$file" "$@"

		: "${dir:=$(dirname "$file")}"

	fi

	: "${dir:=$top_dir}"

	(cat <<EOF

\cd $dir

\set schema "$schema"

\set table "$table"

\set table_str '''"$table"'''

SET search_path TO "$schema", util;

EOF

	cat)|

	echo_run env no_search_path=1 psql_verbose_vegbien "$@"

}

fi