summaryrefslogtreecommitdiffstats
path: root/src/installer.sh
blob: 9891ff332a89aa724fbaa35f04c073b40990614f (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
# Installer-related functions
#
# Copyright (C) 2015, 2021  Patrick McDermott
#
# This file is part of the ProteanOS Development Kit.
#
# The ProteanOS Development Kit 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 3 of the
# License, or (at your option) any later version.
#
# The ProteanOS Development Kit 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 the ProteanOS Development Kit.  If not, see
# <http://www.gnu.org/licenses/>.

_installers=' '

register_installer()
{
	local installer="${1}"
	shift 1

	_installers="${_installers}${installer} "
	return 0
}

is_installer()
{
	local inst="${1}"
	shift 1

	case "${_installers}" in *" ${inst} "*) return 0;; *) return 1;; esac
}

run_installer()
{
	local mirror="${1}"
	local suite="${2}"
	local arch="${3}"
	local plat="${4}"
	local root="${5}"
	local foreign="${6}"
	shift 6
	local inst=

	if [ x"${mirror}" = x'' ]; then
		mirror="$(profile_select_mirror)"
	fi
	profile_prepare_install "${mirror}" "${suite}"

	if [ x"${plat}" = x'' ]; then
		plat="$(profile_default_plat)"
	fi
	if [ x"${arch}" = x'' ]; then
		arch="$(profile_plat_arches "${plat}")"
		case "${arch}" in
			*?"${LF}"?*)
				# Multiple architectures for platform
				arch="$(profile_detect_arch)"
				;;
		esac
	fi

	if ! profile_validate_archplat "${arch}" "${plat}"; then
		error "$(get_msg 'install_bad_archplat')" "${arch}" "${plat}"
		return 1
	fi

	info "$(get_msg 'install_selected_arch')" "${arch}"
	info "$(get_msg 'install_selected_plat')" "${plat}"
	info "$(get_msg 'install_selected_mirror')" "${mirror}"

	inst="$(profile_installer_type "${arch}" "${plat}")"
	if ! is_installer "${inst}"; then
		error "$(get_msg 'installer_invalid')" "${inst}"
		return 1
	fi
	"installer_${inst}_main" "${arch}" "${plat}" "${root}" "${foreign}" || \
		return ${?}
	return 0
}