eclass/required-use-warn.eclass


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

# Copyright 2018 Martin V\"ath
# Distributed under the terms of the GNU General Public License v2

# @ECLASS: required-use-warn.eclass
# @MAINTAINER:
# Martin Väth <martin@mvath.de>
# @BLURB: This eclass support REQUIRED_USE_WARN
# @DESCRIPTION:
# The eclass provides support for REQUIRED_USE_WARN.
# REQUIRED_USE_WARN is similar to REQUIRED_USE except that only warnings are
# are printed if a condition is violated.
# The only supported conditions are of the type
#   FLAG
#   !FLAG
#   A? ( B C ... )
# where each of A B C ... are of some of the 3 types.
# @EXAMPLE:
# To warn that USE=bazola is ignored (if USE="foo -bar bazola" is active)
# and that USE=BAR is implicitly enabled (if USE="FOO -BAR" is active) use:
# @CODE
# inherit required-use-warn
#
# REQUIRED_USE_WARN="foo? ( !bar? ( !bazola ) ) !FOO? ( BAR )
# pkg_pretend() {
#	required-use-warn
# }

# @FUNCTION: required-use-warn_internal
# @USAGE: string
# @INTERNAL
# @DESCRIPTION:
# Print warnings according to the passed normalized string.
# Normalized means only spaces, none superfluous
required-use-warn_internal() {
	local first curr cond negate satisfied rest second open pass brace
	[ -n "${1}" ] || return 0
	first=${1%%' '*}
	if [ "${first}" = "${1}" ]; then
		rest=
	else
		rest=${1#*' '}
	fi
	cond=${first#'!'}
	[ "${cond}" = "${first}" ] && negate=false || negate=:
	curr=${cond%'?'}
	[ "${curr}" = "${cond}" ] && cond=false || cond=:
	satisfied=false
	if use "${curr}"; then
		${negate} || satisfied=:
	else
		! ${negate} || satisfied=:
	fi
	if ! $cond; then
		if ! ${satisfied}; then
			if ${negate}; then
				ewarn "Ignoring USE=${curr} for ${CATEGORY}/${PN}"
			else
				ewarn "Implicitly enabling USE=${curr} for ${CATEGORY}/${PN}"
			fi
		fi
		required-use-warn_internal "${rest}"
		return 0
	fi
	second=${rest#'( '}
	[ "${second}" != "${rest}" ] || die "no opening brace after ${first}"
	rest=${second}
	pass=
	open=1
	while :; do
		second=${rest%%' '[()]*}
		[ "${second}" != "${rest}" ] || die "wrong bracing after ${first}"
		pass=${pass}${second}
		brace=${rest#"${second}"}
		rest=${brace#' '?}
		case ${brace} in
		' ('*)
			pass=${pass}' ('
			: $(( ++open ));;
		' )'*)
			: $(( --open ))
			[ $open -eq 0 ] && break
			pass=${pass}' )'
		esac
	done
	! ${satisfied} || required-use-warn_internal "${pass}"
	rest=${rest#' '}
	required-use-warn_internal "${rest}"
}

# @FUNCTION: required-use-warn
# @USAGE: [string]
# @DESCRIPTION:
# Print warnings according to the passed string (default is REQUIRED_USE_WARN)
required-use-warn() {
	local normalized i
	if [ ${#} -eq 0 ]; then
		normalized=${REQUIRED_USE_WARN}
	else
		normalized=${1}
	fi
	normalized=${normalized//[[:space:]]/' '}
	while i=${normalized//'  '/' '} && [ "${i}" != "${normalized}" ]; do
		normalized=${i}
	done
	normalized=${normalized%' '}
	normalized=${normalized#' '}
	required-use-warn_internal "${normalized}"
}