1
|
#!/bin/bash -e
|
2
|
realpath () { readlink -f -- "$1"; }
|
3
|
|
4
|
include_guard_var () { realpath "$1"|sed 's/[^a-zA-Z0-9_]/_/g'; }
|
5
|
|
6
|
self_not_included () # usage: if self_not_included; then ... fi
|
7
|
{
|
8
|
test "$#" -ge 1 || set -- "${BASH_SOURCE[1]}"
|
9
|
local include_guard="$(include_guard_var "$1")"
|
10
|
alias self_being_included=false
|
11
|
test -z "${!include_guard+t}" && \
|
12
|
{ eval "$include_guard"=1; alias self_being_included=true; }
|
13
|
}
|
14
|
|
15
|
# to load newly-defined aliases for use in functions in the same file:
|
16
|
## fi # load new aliases
|
17
|
## if self_being_included; then
|
18
|
# this is needed because aliases defined inside an if statement are not
|
19
|
# available inside that if statement
|
20
|
|
21
|
if self_not_included "${BASH_SOURCE[0]}"; then
|
22
|
|
23
|
shopt -s expand_aliases
|
24
|
|
25
|
#### arrays
|
26
|
|
27
|
join () { local IFS="$delim"; echo "$*"; } # usage: delim=... join elems...
|
28
|
|
29
|
reverse () # usage: array=($(reverse args...))
|
30
|
{
|
31
|
local i
|
32
|
for (( i=$#; i >= 1; i-- )); do printf '%q ' "${!i}"; done
|
33
|
}
|
34
|
|
35
|
#### strings
|
36
|
|
37
|
sed_ere_flag="$(test "$(uname)" = Darwin && echo E || echo r)"
|
38
|
|
39
|
sed () { echo_run env sed -"$sed_ere_flag" "$@";}
|
40
|
|
41
|
#### verbose output
|
42
|
|
43
|
: "${verbosity:=$verbose}" "${verbosity:=0}"
|
44
|
|
45
|
echo_cmd () { echo "$PS4$*" >&2; }
|
46
|
|
47
|
echo_run () { echo_cmd "$@"; "$@"; }
|
48
|
|
49
|
canon_rel_path ()
|
50
|
{
|
51
|
local path="$1"
|
52
|
path="$(realpath "$path")" # canonicalize
|
53
|
path="${path#$(pwd -P)/}" # remove any shared prefix with the current dir
|
54
|
echo "$path"
|
55
|
}
|
56
|
|
57
|
# usage: echo_func "$@"
|
58
|
echo_func ()
|
59
|
{
|
60
|
local script="$(canon_rel_path "${BASH_SOURCE[1]}")"
|
61
|
echo_cmd "$script:${BASH_LINENO[0]}" "${FUNCNAME[1]}" "$@"
|
62
|
}
|
63
|
|
64
|
echo_stdin () # usage: input|echo_stdin|cmd
|
65
|
{
|
66
|
echo ----- >&2
|
67
|
tee -a /dev/stderr;
|
68
|
echo ----- >&2
|
69
|
}
|
70
|
|
71
|
echo_vars () # usage: echo_vars var...
|
72
|
{ { echo -n "$PS4"; declare -p "${@%%=*}";} >&2; }
|
73
|
|
74
|
echo_export ()
|
75
|
{
|
76
|
builtin export "$@"
|
77
|
echo_vars "$@"
|
78
|
}
|
79
|
|
80
|
if test "$verbosity" -ge 2; then
|
81
|
alias export="echo_export" # automatically echo env vars when they are set
|
82
|
fi
|
83
|
|
84
|
usage () { echo "Usage: $1" >&2; (exit 2); }
|
85
|
|
86
|
#### vars
|
87
|
|
88
|
set_var () { eval "$1"'="$2"'; }
|
89
|
|
90
|
set_inv () { set_var no_"$1" "$(test -n "${!1}" || echo 1)"; }
|
91
|
|
92
|
# usage: local var=...; local_inv
|
93
|
alias local_inv='local "no_$var=$(test -n "${!var}" || echo 1)"'
|
94
|
|
95
|
#### commands
|
96
|
|
97
|
top_dir="$(dirname "$0")" # outermost script
|
98
|
|
99
|
run_args_cmd () # runs the command line args command
|
100
|
{
|
101
|
test "$?" -eq 0 || return
|
102
|
eval set -- "$(reverse "${BASH_ARGV[@]}")"
|
103
|
test "$#" -ge 1 || set -- all
|
104
|
echo_cmd "$(canon_rel_path "$0")" "$@"; "$@"
|
105
|
}
|
106
|
|
107
|
fwd () # usage: subdirs=(...); fwd "$FUNCNAME" "$@"
|
108
|
{
|
109
|
echo_func "$@"
|
110
|
: "${subdirs?}"
|
111
|
|
112
|
for subdir in "${subdirs[@]}"; do
|
113
|
"$(dirname "${BASH_SOURCE[1]}")"/"$subdir"/run "$@"
|
114
|
done
|
115
|
}
|
116
|
|
117
|
#### make
|
118
|
|
119
|
make ()
|
120
|
{
|
121
|
echo_func "$@"
|
122
|
echo_run env make --directory="$top_dir" "$@"
|
123
|
}
|
124
|
|
125
|
if false; then ## usage:
|
126
|
inline_make 3<<'EOF'
|
127
|
target:
|
128
|
$(self_dir)/cmd >$@
|
129
|
EOF
|
130
|
# target will be run automatically because it's first in the makefile
|
131
|
fi ##
|
132
|
inline_make ()
|
133
|
{
|
134
|
echo_func "$@"
|
135
|
local self="$(readlink -f "${BASH_SOURCE[1]}")"
|
136
|
local self_dir="$(dirname "$self")"
|
137
|
export self self_dir
|
138
|
|
139
|
make --makefile=<((
|
140
|
cat /dev/fd/3
|
141
|
echo -n "
|
142
|
.SUFFIXES: # turn off built-in suffix rules
|
143
|
.SECONDARY: # don't automatically delete intermediate files
|
144
|
.DELETE_ON_ERROR: # delete target if recipe fails
|
145
|
"
|
146
|
)|echo_stdin) "$@"
|
147
|
}
|
148
|
|
149
|
#### compression
|
150
|
|
151
|
### zip
|
152
|
|
153
|
alias zip="echo_run zip"
|
154
|
alias unzip="echo_run unzip"
|
155
|
set_inv force
|
156
|
alias zip_newer="zip${no_force:+ -u}"
|
157
|
alias unzip_newer="unzip${no_force:+ -u} -o"
|
158
|
# -o is safe because -u only extracts newer files
|
159
|
|
160
|
#### databases
|
161
|
|
162
|
quote='"'
|
163
|
|
164
|
esc_name () { echo "$quote${1//$quote/$quote$quote}$quote"; }
|
165
|
|
166
|
mk_esc_name () { set_var "$1"_esc "$(esc_name "${!1}")"; }
|
167
|
|
168
|
alias mk_schema_esc="local schema_esc; mk_esc_name schema"
|
169
|
alias mk_table_esc="local table_esc; mk_esc_name table"
|
170
|
|
171
|
fi # load new aliases
|
172
|
if self_being_included; then
|
173
|
|
174
|
log_sql () { test "$verbosity" -ge 2; }
|
175
|
|
176
|
### MySQL
|
177
|
|
178
|
mysql ()
|
179
|
{
|
180
|
echo_func "$@"
|
181
|
echo_run env mysql --verbose "$@"
|
182
|
}
|
183
|
|
184
|
mysql_ANSI ()
|
185
|
{
|
186
|
echo_func "$@"
|
187
|
(echo "SET sql_mode = 'ANSI';"; cat)|mysql "$@"
|
188
|
}
|
189
|
|
190
|
### PostgreSQL
|
191
|
|
192
|
pg_copy_to ()
|
193
|
{
|
194
|
echo_func "$@"
|
195
|
if test -z "$source"; then
|
196
|
: "${table:?}"; mk_table_esc
|
197
|
if test -z "$limit"; then local source="$table_esc"
|
198
|
else local source="(SELECT * FROM $table_esc LIMIT $limit)"
|
199
|
fi
|
200
|
fi
|
201
|
local pg_copy_format="${pg_copy_format-CSV HEADER}"
|
202
|
|
203
|
psql "$@" <<<"COPY $source TO STDOUT $pg_copy_format;"
|
204
|
}
|
205
|
|
206
|
pg_header ()
|
207
|
{
|
208
|
echo_func "$@"
|
209
|
local pg_copy_format="CSV HEADER" limit=0
|
210
|
pg_copy_to "$@"|echo_stdin
|
211
|
}
|
212
|
|
213
|
pg_export_table_no_header ()
|
214
|
{
|
215
|
echo_func "$@"
|
216
|
local pg_copy_format="CSV"
|
217
|
pg_copy_to "$@"
|
218
|
}
|
219
|
|
220
|
pg_export_table_to_dir_no_header ()
|
221
|
{
|
222
|
echo_func "$@"
|
223
|
local table="$1"; shift; mk_table_esc
|
224
|
local cols="$(pg_header)"
|
225
|
pg_export_table_no_header "$@" >"$exports_dir/$table.no_header.cols=$cols.csv"
|
226
|
}
|
227
|
|
228
|
fi
|