bpkg-util/utility.bash.in


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

# file      : bpkg-util/utility.bash.in
# license   : MIT; see accompanying LICENSE file

# Utility functions useful for implementing package management utilities.

if [ "$bpkg_util_utility" ]; then
  return 0
else
  bpkg_util_utility=true
fi

# Diagnostics.
#
function info  () { echo "$*" 1>&2; }
function error () { info "$*"; exit 1; }

# Trace a command line, quoting empty arguments as well as those that contain
# spaces.
#
function trace_cmd () # <cmd> <arg>...
{
  local s="+"
  while [ $# -gt 0 ]; do
    if [ -z "$1" -o -z "${1##* *}" ]; then
      s="$s '$1'"
    else
      s="$s $1"
    fi

    shift
  done

  info "$s"
}

# Trace the current function name and arguments.
#
function trace_func () # <args>...
{
  trace_cmd "${FUNCNAME[1]}" "$@"
}

# Trace and run a command.
#
function run () # <cmd> <arg>...
{
  trace_cmd "$@"
  "$@"
}

# Return lower-case URL scheme or empty string if the argument doesn't look
# like a URL.
#
function url_scheme () # <url>
{
  sed -n -re 's%^(.*)://.*$%\L\1%p' <<<"$1"
}

# Check that the git repository properly responds to the probing request
# before the timeout (in seconds). Noop for protocols other than HTTP(S).
#
function check_git_connectivity () # <repo-url> <timeout>
{
  local url="$1"
  local tmo="$2"

  local s
  s="$(url_scheme "$url")"

  if [ "$s" == "http" -o "$s" == "https" ]; then
    local u q

    u="$(sed -n -re 's%^([^?]*).*$%\1%p' <<<"$url")" # Strips query part.
    q="$(sed -n -re 's%^[^?]*(.*)$%\1%p' <<<"$url")" # Query part.

    if [ -z "$q" ]; then
      u="$u/info/refs?service=git-upload-pack"
    else
      u="$u/info/refs$q&service=git-upload-pack"
    fi

    # Here we limit the time for the whole operation.
    #
    curl -S -s --max-time "$tmo" "$u" >/dev/null
  fi
}