summaryrefslogtreecommitdiff
path: root/scripts/libmakepkg/util/source.sh.in
blob: 238d1f58e6a1b399e6dd44bd7cc7b9bfbb4a1e10 (plain)
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
#!/bin/bash
#
#   source.sh - functions to extract information from source URLs
#
#   Copyright (c) 2010-2017 Pacman Development Team <pacman-dev@archlinux.org>
#
#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program.  If not, see <http://www.gnu.org/licenses/>.
#

[[ -n "$LIBMAKEPKG_UTIL_SOURCE_SH" ]] && return
LIBMAKEPKG_UTIL_SOURCE_SH=1

LIBRARY=${LIBRARY:-'@libmakepkgdir@'}

source "$LIBRARY/util/message.sh"


# a source entry can have two forms :
# 1) "filename::http://path/to/file"
# 2) "http://path/to/file"

# extract the URL from a source entry
get_url() {
        # strip an eventual filename
        printf "%s\n" "${1#*::}"
}

# extract the protocol from a source entry - return "local" for local sources
get_protocol() {
        if [[ $1 = *://* ]]; then
                # strip leading filename
                local proto="${1#*::}"
                printf "%s\n" "${proto%%://*}"
        elif [[ $1 = *lp:* ]]; then
                local proto="${1#*::}"
                printf "%s\n" "${proto%%lp:*}"
        else
                printf "%s\n" local
        fi
}

# extract the filename from a source entry
get_filename() {
        local netfile=$1

        # if a filename is specified, use it
        if [[ $netfile = *::* ]]; then
                printf "%s\n" ${netfile%%::*}
                return
        fi

        local proto=$(get_protocol "$netfile")

        case $proto in
                bzr*|git*|hg*|svn*)
                        filename=${netfile%%#*}
                        filename=${filename%%\?*}
                        filename=${filename%/}
                        filename=${filename##*/}
                        if [[ $proto = bzr* ]]; then
                                filename=${filename#*lp:}
                        fi
                        if [[ $proto = git* ]]; then
                                filename=${filename%%.git*}
                        fi
                        ;;
                *)
                        # if it is just an URL, we only keep the last component
                        filename="${netfile##*/}"
                        ;;
        esac
        printf "%s\n" "${filename}"
}

# Return the absolute filename of a source entry
get_filepath() {
        local file="$(get_filename "$1")"
        local proto="$(get_protocol "$1")"

        case $proto in
                bzr*|git*|hg*|svn*)
                        if [[ -d "$startdir/$file" ]]; then
                                file="$startdir/$file"
                        elif [[ -d "$SRCDEST/$file" ]]; then
                                file="$SRCDEST/$file"
                        else
                                return 1
                        fi
                        ;;
                *)
                        if [[ -f "$startdir/$file" ]]; then
                                file="$startdir/$file"
                        elif [[ -f "$SRCDEST/$file" ]]; then
                                file="$SRCDEST/$file"
                        else
                                return 1
                        fi
                        ;;
        esac

        printf "%s\n" "$file"
}

# extract the VCS revision/branch specifier from a source entry
get_uri_fragment() {
        local netfile=$1

        local fragment=${netfile#*#}
        if [[ $fragment = "$netfile" ]]; then
                unset fragment
        fi
        fragment=${fragment%\?*}

        printf "%s\n" "$fragment"
}

# extract the VCS "signed" status from a source entry
get_uri_query() {
        local netfile=$1

        local query=${netfile#*\?}
        if [[ $query = "$netfile" ]]; then
                unset query
        fi
        query=${query%#*}

        printf "%s\n" "$query"
}

get_downloadclient() {
        local proto=$1

        # loop through DOWNLOAD_AGENTS variable looking for protocol
        local i
        for i in "${DLAGENTS[@]}"; do
                local handler="${i%%::*}"
                if [[ $proto = "$handler" ]]; then
                        local agent="${i#*::}"
                        break
                fi
        done

        # if we didn't find an agent, return an error
        if [[ -z $agent ]]; then
                error "$(gettext "Unknown download protocol: %s")" "$proto"
                plain "$(gettext "Aborting...")"
                exit 1 # $E_CONFIG_ERROR
        fi

        # ensure specified program is installed
        local program="${agent%% *}"
        if [[ ! -x $program ]]; then
                local baseprog="${program##*/}"
                error "$(gettext "The download program %s is not installed.")" "$baseprog"
                plain "$(gettext "Aborting...")"
                exit 1 # $E_MISSING_PROGRAM
        fi

        printf "%s\n" "$agent"
}