mirror of
https://github.com/flatcar/scripts.git
synced 2025-12-16 06:41:38 +01:00
eclass/{versionator,eapi7-ver,eqawarn}: Drop obsolete eclasses
This commit is contained in:
Krzesimir Nowak
parent
d3f4a0b9b8
commit
2226798e99
@ -1,309 +0,0 @@
|
||||
# Copyright 1999-2021 Gentoo Authors
|
||||
# Distributed under the terms of the GNU General Public License v2
|
||||
|
||||
# @DEAD
|
||||
# @ECLASS: eapi7-ver.eclass
|
||||
# @MAINTAINER:
|
||||
# PMS team <pms@gentoo.org>
|
||||
# @AUTHOR:
|
||||
# Ulrich Müller <ulm@gentoo.org>
|
||||
# Michał Górny <mgorny@gentoo.org>
|
||||
# @SUPPORTED_EAPIS: 0 1 2 3 4 5 6
|
||||
# @BLURB: Testing implementation of EAPI 7 version manipulators
|
||||
# @DESCRIPTION:
|
||||
# A stand-alone implementation of the version manipulation functions
|
||||
# aimed for EAPI 7. Intended to be used for wider testing of
|
||||
# the proposed functions and to allow ebuilds to switch to the new
|
||||
# model early, with minimal change needed for actual EAPI 7.
|
||||
#
|
||||
# https://bugs.gentoo.org/482170
|
||||
#
|
||||
# @SUBSECTION Version strings
|
||||
#
|
||||
# The functions support arbitrary version strings consisting of version
|
||||
# components interspersed with (possibly empty) version separators.
|
||||
#
|
||||
# A version component can either consist purely of digits ([0-9]+)
|
||||
# or purely of uppercase and lowercase letters ([A-Za-z]+). A version
|
||||
# separator is either a string of any other characters ([^A-Za-z0-9]+),
|
||||
# or it occurs at the transition between a sequence of letters
|
||||
# and a sequence of digits, or vice versa. In the latter case,
|
||||
# the version separator is an empty string.
|
||||
#
|
||||
# The version is processed left-to-right, and each successive component
|
||||
# is assigned numbers starting with 1. The components are either split
|
||||
# on version separators or on boundaries between digits and letters
|
||||
# (in which case the separator between the components is empty).
|
||||
# Version separators are assigned numbers starting with 1 for
|
||||
# the separator between 1st and 2nd components. As a special case,
|
||||
# if the version string starts with a separator, it is assigned index 0.
|
||||
#
|
||||
# Examples:
|
||||
#
|
||||
# @CODE
|
||||
# 1.2b-alpha4 -> 1 . 2 '' b - alpha '' 4
|
||||
# c s c s c s c s c
|
||||
# 1 1 2 2 3 3 4 4 5
|
||||
#
|
||||
# .11. -> . 11 .
|
||||
# s c s
|
||||
# 0 1 1
|
||||
# @CODE
|
||||
#
|
||||
# @SUBSECTION Ranges
|
||||
#
|
||||
# A range can be specified as 'm' for m-th version component, 'm-'
|
||||
# for all components starting with m-th or 'm-n' for components starting
|
||||
# at m-th and ending at n-th (inclusive). If the range spans outside
|
||||
# the version string, it is truncated silently.
|
||||
|
||||
case ${EAPI:-0} in
|
||||
0|1|2|3|4|5|6) ;;
|
||||
7|8) die "${ECLASS}: EAPI=${EAPI} includes all functions from this eclass" ;;
|
||||
*) die "${ECLASS}: EAPI=${EAPI} unknown" ;;
|
||||
esac
|
||||
|
||||
# @FUNCTION: _ver_parse_range
|
||||
# @USAGE: <range> <max>
|
||||
# @INTERNAL
|
||||
# @DESCRIPTION:
|
||||
# Parse the range string <range>, setting 'start' and 'end' variables
|
||||
# to the appropriate bounds. <max> specifies the appropriate upper
|
||||
# bound for the range; the user-specified value is truncated to this.
|
||||
_ver_parse_range() {
|
||||
local range=${1}
|
||||
local max=${2}
|
||||
|
||||
[[ ${range} == [0-9]* ]] \
|
||||
|| die "${FUNCNAME}: range must start with a number"
|
||||
start=${range%-*}
|
||||
[[ ${range} == *-* ]] && end=${range#*-} || end=${start}
|
||||
if [[ ${end} ]]; then
|
||||
[[ ${start} -le ${end} ]] \
|
||||
|| die "${FUNCNAME}: end of range must be >= start"
|
||||
[[ ${end} -le ${max} ]] || end=${max}
|
||||
else
|
||||
end=${max}
|
||||
fi
|
||||
}
|
||||
|
||||
# @FUNCTION: _ver_split
|
||||
# @USAGE: <version>
|
||||
# @INTERNAL
|
||||
# @DESCRIPTION:
|
||||
# Split the version string <version> into separator-component array.
|
||||
# Sets 'comp' to an array of the form: ( s_0 c_1 s_1 c_2 s_2 c_3... )
|
||||
# where s_i are separators and c_i are components.
|
||||
_ver_split() {
|
||||
local v=${1} LC_ALL=C
|
||||
|
||||
comp=()
|
||||
|
||||
# get separators and components
|
||||
local s c
|
||||
while [[ ${v} ]]; do
|
||||
# cut the separator
|
||||
s=${v%%[a-zA-Z0-9]*}
|
||||
v=${v:${#s}}
|
||||
# cut the next component; it can be either digits or letters
|
||||
[[ ${v} == [0-9]* ]] && c=${v%%[^0-9]*} || c=${v%%[^a-zA-Z]*}
|
||||
v=${v:${#c}}
|
||||
|
||||
comp+=( "${s}" "${c}" )
|
||||
done
|
||||
}
|
||||
|
||||
# @FUNCTION: ver_cut
|
||||
# @USAGE: <range> [<version>]
|
||||
# @DESCRIPTION:
|
||||
# Print the substring of the version string containing components
|
||||
# defined by the <range> and the version separators between them.
|
||||
# Processes <version> if specified, ${PV} otherwise.
|
||||
#
|
||||
# For the syntax of versions and ranges, please see the eclass
|
||||
# description.
|
||||
ver_cut() {
|
||||
local range=${1}
|
||||
local v=${2:-${PV}}
|
||||
local start end
|
||||
local -a comp
|
||||
|
||||
_ver_split "${v}"
|
||||
local max=$((${#comp[@]}/2))
|
||||
_ver_parse_range "${range}" "${max}"
|
||||
|
||||
if [[ ${start} -gt 0 ]]; then
|
||||
start=$(( start*2 - 1 ))
|
||||
fi
|
||||
# Work around a bug in bash-3.2, where "${comp[*]:start:end*2-start}"
|
||||
# inserts stray 0x7f characters for empty array elements
|
||||
printf "%s" "${comp[@]:start:end*2-start}" $'\n'
|
||||
}
|
||||
|
||||
# @FUNCTION: ver_rs
|
||||
# @USAGE: <range> <repl> [<range> <repl>...] [<version>]
|
||||
# @DESCRIPTION:
|
||||
# Print the version string after substituting the specified version
|
||||
# separators at <range> with <repl> (string). Multiple '<range> <repl>'
|
||||
# pairs can be specified. Processes <version> if specified,
|
||||
# ${PV} otherwise.
|
||||
#
|
||||
# For the syntax of versions and ranges, please see the eclass
|
||||
# description.
|
||||
ver_rs() {
|
||||
local v
|
||||
(( ${#} & 1 )) && v=${@: -1} || v=${PV}
|
||||
local start end i
|
||||
local -a comp
|
||||
|
||||
_ver_split "${v}"
|
||||
local max=$((${#comp[@]}/2 - 1))
|
||||
|
||||
while [[ ${#} -ge 2 ]]; do
|
||||
_ver_parse_range "${1}" "${max}"
|
||||
for (( i = start*2; i <= end*2; i+=2 )); do
|
||||
[[ ${i} -eq 0 && -z ${comp[i]} ]] && continue
|
||||
comp[i]=${2}
|
||||
done
|
||||
shift 2
|
||||
done
|
||||
|
||||
local IFS=
|
||||
echo "${comp[*]}"
|
||||
}
|
||||
|
||||
# @FUNCTION: _ver_compare_int
|
||||
# @USAGE: <a> <b>
|
||||
# @RETURN: 0 if <a> -eq <b>, 1 if <a> -lt <b>, 3 if <a> -gt <b>
|
||||
# @INTERNAL
|
||||
# @DESCRIPTION:
|
||||
# Compare two non-negative integers <a> and <b>, of arbitrary length.
|
||||
# If <a> is equal to, less than, or greater than <b>, return 0, 1, or 3
|
||||
# as exit status, respectively.
|
||||
_ver_compare_int() {
|
||||
local a=$1 b=$2 d=$(( ${#1}-${#2} ))
|
||||
|
||||
# Zero-pad to equal length if necessary.
|
||||
if [[ ${d} -gt 0 ]]; then
|
||||
printf -v b "%0${d}d%s" 0 "${b}"
|
||||
elif [[ ${d} -lt 0 ]]; then
|
||||
printf -v a "%0$(( -d ))d%s" 0 "${a}"
|
||||
fi
|
||||
|
||||
[[ ${a} > ${b} ]] && return 3
|
||||
[[ ${a} == "${b}" ]]
|
||||
}
|
||||
|
||||
# @FUNCTION: _ver_compare
|
||||
# @USAGE: <va> <vb>
|
||||
# @RETURN: 1 if <va> < <vb>, 2 if <va> = <vb>, 3 if <va> > <vb>
|
||||
# @INTERNAL
|
||||
# @DESCRIPTION:
|
||||
# Compare two versions <va> and <vb>. If <va> is less than, equal to,
|
||||
# or greater than <vb>, return 1, 2, or 3 as exit status, respectively.
|
||||
_ver_compare() {
|
||||
local va=${1} vb=${2} a an al as ar b bn bl bs br re LC_ALL=C
|
||||
|
||||
re="^([0-9]+(\.[0-9]+)*)([a-z]?)((_(alpha|beta|pre|rc|p)[0-9]*)*)(-r[0-9]+)?$"
|
||||
|
||||
[[ ${va} =~ ${re} ]] || die "${FUNCNAME}: invalid version: ${va}"
|
||||
an=${BASH_REMATCH[1]}
|
||||
al=${BASH_REMATCH[3]}
|
||||
as=${BASH_REMATCH[4]}
|
||||
ar=${BASH_REMATCH[7]}
|
||||
|
||||
[[ ${vb} =~ ${re} ]] || die "${FUNCNAME}: invalid version: ${vb}"
|
||||
bn=${BASH_REMATCH[1]}
|
||||
bl=${BASH_REMATCH[3]}
|
||||
bs=${BASH_REMATCH[4]}
|
||||
br=${BASH_REMATCH[7]}
|
||||
|
||||
# Compare numeric components (PMS algorithm 3.2)
|
||||
# First component
|
||||
_ver_compare_int "${an%%.*}" "${bn%%.*}" || return
|
||||
|
||||
while [[ ${an} == *.* && ${bn} == *.* ]]; do
|
||||
# Other components (PMS algorithm 3.3)
|
||||
an=${an#*.}
|
||||
bn=${bn#*.}
|
||||
a=${an%%.*}
|
||||
b=${bn%%.*}
|
||||
if [[ ${a} == 0* || ${b} == 0* ]]; then
|
||||
# Remove any trailing zeros
|
||||
[[ ${a} =~ 0+$ ]] && a=${a%"${BASH_REMATCH[0]}"}
|
||||
[[ ${b} =~ 0+$ ]] && b=${b%"${BASH_REMATCH[0]}"}
|
||||
[[ ${a} > ${b} ]] && return 3
|
||||
[[ ${a} < ${b} ]] && return 1
|
||||
else
|
||||
_ver_compare_int "${a}" "${b}" || return
|
||||
fi
|
||||
done
|
||||
[[ ${an} == *.* ]] && return 3
|
||||
[[ ${bn} == *.* ]] && return 1
|
||||
|
||||
# Compare letter components (PMS algorithm 3.4)
|
||||
[[ ${al} > ${bl} ]] && return 3
|
||||
[[ ${al} < ${bl} ]] && return 1
|
||||
|
||||
# Compare suffixes (PMS algorithm 3.5)
|
||||
as=${as#_}${as:+_}
|
||||
bs=${bs#_}${bs:+_}
|
||||
while [[ -n ${as} && -n ${bs} ]]; do
|
||||
# Compare each suffix (PMS algorithm 3.6)
|
||||
a=${as%%_*}
|
||||
b=${bs%%_*}
|
||||
if [[ ${a%%[0-9]*} == "${b%%[0-9]*}" ]]; then
|
||||
_ver_compare_int "${a##*[a-z]}" "${b##*[a-z]}" || return
|
||||
else
|
||||
# Check for p first
|
||||
[[ ${a%%[0-9]*} == p ]] && return 3
|
||||
[[ ${b%%[0-9]*} == p ]] && return 1
|
||||
# Hack: Use that alpha < beta < pre < rc alphabetically
|
||||
[[ ${a} > ${b} ]] && return 3 || return 1
|
||||
fi
|
||||
as=${as#*_}
|
||||
bs=${bs#*_}
|
||||
done
|
||||
if [[ -n ${as} ]]; then
|
||||
[[ ${as} == p[_0-9]* ]] && return 3 || return 1
|
||||
elif [[ -n ${bs} ]]; then
|
||||
[[ ${bs} == p[_0-9]* ]] && return 1 || return 3
|
||||
fi
|
||||
|
||||
# Compare revision components (PMS algorithm 3.7)
|
||||
_ver_compare_int "${ar#-r}" "${br#-r}" || return
|
||||
|
||||
return 2
|
||||
}
|
||||
|
||||
# @FUNCTION: ver_test
|
||||
# @USAGE: [<v1>] <op> <v2>
|
||||
# @DESCRIPTION:
|
||||
# Check if the relation <v1> <op> <v2> is true. If <v1> is not specified,
|
||||
# default to ${PVR}. <op> can be -gt, -ge, -eq, -ne, -le, -lt.
|
||||
# Both versions must conform to the PMS version syntax (with optional
|
||||
# revision parts), and the comparison is performed according to
|
||||
# the algorithm specified in the PMS.
|
||||
ver_test() {
|
||||
local va op vb
|
||||
|
||||
if [[ $# -eq 3 ]]; then
|
||||
va=${1}
|
||||
shift
|
||||
else
|
||||
va=${PVR}
|
||||
fi
|
||||
|
||||
[[ $# -eq 2 ]] || die "${FUNCNAME}: bad number of arguments"
|
||||
|
||||
op=${1}
|
||||
vb=${2}
|
||||
|
||||
case ${op} in
|
||||
-eq|-ne|-lt|-le|-gt|-ge) ;;
|
||||
*) die "${FUNCNAME}: invalid operator: ${op}" ;;
|
||||
esac
|
||||
|
||||
_ver_compare "${va}" "${vb}"
|
||||
test $? "${op}" 2
|
||||
}
|
||||
@ -1,27 +0,0 @@
|
||||
# Copyright 1999-2022 Gentoo Authors
|
||||
# Distributed under the terms of the GNU General Public License v2
|
||||
|
||||
# @DEAD
|
||||
# @ECLASS: eqawarn.eclass
|
||||
# @MAINTAINER:
|
||||
# base-system@gentoo.org
|
||||
# @SUPPORTED_EAPIS: 6
|
||||
# @BLURB: output a QA warning
|
||||
|
||||
case ${EAPI} in
|
||||
6) ;;
|
||||
*) die "${ECLASS}: EAPI ${EAPI:-0} not supported" ;;
|
||||
esac
|
||||
|
||||
# @FUNCTION: eqawarn
|
||||
# @USAGE: [message]
|
||||
# @DESCRIPTION:
|
||||
# Proxy to ewarn for package managers that don't provide eqawarn and
|
||||
# use the PM implementation if available. Reuses PORTAGE_ELOG_CLASSES
|
||||
# as set by the dev profile.
|
||||
if ! declare -F eqawarn >/dev/null ; then
|
||||
eqawarn() {
|
||||
has qa ${PORTAGE_ELOG_CLASSES} && ewarn "$@"
|
||||
:
|
||||
}
|
||||
fi
|
||||
@ -1,519 +0,0 @@
|
||||
# Copyright 1999-2020 Gentoo Authors
|
||||
# Distributed under the terms of the GNU General Public License v2
|
||||
|
||||
# @DEAD
|
||||
# @ECLASS: versionator.eclass
|
||||
# @MAINTAINER:
|
||||
# Jonathan Callen <jcallen@gentoo.org>
|
||||
# base-system@gentoo.org
|
||||
# @SUPPORTED_EAPIS: 0 1 2 3 4 5 6
|
||||
# @BLURB: functions which simplify manipulation of ${PV} and similar version strings
|
||||
# @DEPRECATED: ver_* functions from EAPI 7
|
||||
# @DESCRIPTION:
|
||||
# This eclass provides functions which simplify manipulating $PV and similar
|
||||
# variables. Most functions default to working with $PV, although other
|
||||
# values can be used.
|
||||
# @EXAMPLE:
|
||||
# Simple Example 1: $PV is 1.2.3b, we want 1_2.3b:
|
||||
# MY_PV=$(replace_version_separator 1 '_' )
|
||||
#
|
||||
# Simple Example 2: $PV is 1.4.5, we want 1:
|
||||
# MY_MAJORV=$(get_major_version )
|
||||
#
|
||||
# Rather than being a number, the index parameter can be a separator character
|
||||
# such as '-', '.' or '_'. In this case, the first separator of this kind is
|
||||
# selected.
|
||||
#
|
||||
# There's also:
|
||||
# version_is_at_least want have
|
||||
# which may be buggy, so use with caution.
|
||||
|
||||
if [[ -z ${_VERSIONATOR_ECLASS} ]]; then
|
||||
_VERSIONATOR_ECLASS=1
|
||||
|
||||
case ${EAPI:-0} in
|
||||
0|1|2|3|4|5|6)
|
||||
;;
|
||||
*)
|
||||
die "${ECLASS}: banned in EAPI=${EAPI}; use ver_* instead";;
|
||||
esac
|
||||
|
||||
inherit estack
|
||||
|
||||
# @FUNCTION: get_all_version_components
|
||||
# @USAGE: [version]
|
||||
# @DESCRIPTION:
|
||||
# Split up a version string into its component parts. If no parameter is
|
||||
# supplied, defaults to $PV.
|
||||
# 0.8.3 -> 0 . 8 . 3
|
||||
# 7c -> 7 c
|
||||
# 3.0_p2 -> 3 . 0 _ p2
|
||||
# 20040905 -> 20040905
|
||||
# 3.0c-r1 -> 3 . 0 c - r1
|
||||
get_all_version_components() {
|
||||
eshopts_push -s extglob
|
||||
local ver_str=${1:-${PV}} result
|
||||
result=()
|
||||
|
||||
# sneaky cache trick cache to avoid having to parse the same thing several
|
||||
# times.
|
||||
if [[ ${VERSIONATOR_CACHE_VER_STR} == ${ver_str} ]] ; then
|
||||
echo ${VERSIONATOR_CACHE_RESULT}
|
||||
eshopts_pop
|
||||
return
|
||||
fi
|
||||
export VERSIONATOR_CACHE_VER_STR=${ver_str}
|
||||
|
||||
while [[ -n $ver_str ]] ; do
|
||||
case "${ver_str::1}" in
|
||||
# number: parse whilst we have a number
|
||||
[[:digit:]])
|
||||
result+=("${ver_str%%[^[:digit:]]*}")
|
||||
ver_str=${ver_str##+([[:digit:]])}
|
||||
;;
|
||||
|
||||
# separator: single character
|
||||
[-_.])
|
||||
result+=("${ver_str::1}")
|
||||
ver_str=${ver_str:1}
|
||||
;;
|
||||
|
||||
# letter: grab the letters plus any following numbers
|
||||
[[:alpha:]])
|
||||
local not_match=${ver_str##+([[:alpha:]])*([[:digit:]])}
|
||||
# Can't say "${ver_str::-${#not_match}}" in Bash 3.2
|
||||
result+=("${ver_str::${#ver_str} - ${#not_match}}")
|
||||
ver_str=${not_match}
|
||||
;;
|
||||
|
||||
# huh?
|
||||
*)
|
||||
result+=("${ver_str::1}")
|
||||
ver_str=${ver_str:1}
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
export VERSIONATOR_CACHE_RESULT=${result[*]}
|
||||
echo ${result[@]}
|
||||
eshopts_pop
|
||||
}
|
||||
|
||||
# @FUNCTION: get_version_components
|
||||
# @USAGE: [version]
|
||||
# @DESCRIPTION:
|
||||
# Get the important version components, excluding '.', '-' and '_'. Defaults to
|
||||
# $PV if no parameter is supplied.
|
||||
# 0.8.3 -> 0 8 3
|
||||
# 7c -> 7 c
|
||||
# 3.0_p2 -> 3 0 p2
|
||||
# 20040905 -> 20040905
|
||||
# 3.0c-r1 -> 3 0 c r1
|
||||
get_version_components() {
|
||||
local c=$(get_all_version_components "${1:-${PV}}")
|
||||
echo ${c//[-._]/ }
|
||||
}
|
||||
|
||||
# @FUNCTION: get_major_version
|
||||
# @USAGE: [version]
|
||||
# @DESCRIPTION:
|
||||
# Get the major version of a value. Defaults to $PV if no parameter is supplied.
|
||||
# 0.8.3 -> 0
|
||||
# 7c -> 7
|
||||
# 3.0_p2 -> 3
|
||||
# 20040905 -> 20040905
|
||||
# 3.0c-r1 -> 3
|
||||
get_major_version() {
|
||||
local c=($(get_all_version_components "${1:-${PV}}"))
|
||||
echo ${c[0]}
|
||||
}
|
||||
|
||||
# @FUNCTION: get_version_component_range
|
||||
# @USAGE: <range> [version]
|
||||
# @DESCRIPTION:
|
||||
# Get a particular component or range of components from the version. If no
|
||||
# version parameter is supplied, defaults to $PV.
|
||||
# 1 1.2.3 -> 1
|
||||
# 1-2 1.2.3 -> 1.2
|
||||
# 2- 1.2.3 -> 2.3
|
||||
get_version_component_range() {
|
||||
eshopts_push -s extglob
|
||||
local c v="${2:-${PV}}" range="${1}" range_start range_end
|
||||
local -i i=-1 j=0
|
||||
c=($(get_all_version_components "${v}"))
|
||||
range_start=${range%-*}; range_start=${range_start:-1}
|
||||
range_end=${range#*-} ; range_end=${range_end:-${#c[@]}}
|
||||
|
||||
while ((j < range_start)); do
|
||||
i+=1
|
||||
((i > ${#c[@]})) && eshopts_pop && return
|
||||
[[ -n "${c[i]//[-._]}" ]] && j+=1
|
||||
done
|
||||
|
||||
while ((j <= range_end)); do
|
||||
echo -n ${c[i]}
|
||||
((i > ${#c[@]})) && eshopts_pop && return
|
||||
[[ -n "${c[i]//[-._]}" ]] && j+=1
|
||||
i+=1
|
||||
done
|
||||
eshopts_pop
|
||||
}
|
||||
|
||||
# @FUNCTION: get_after_major_version
|
||||
# @USAGE: [version]
|
||||
# @DESCRIPTION:
|
||||
# Get everything after the major version and its separator (if present) of a
|
||||
# value. Defaults to $PV if no parameter is supplied.
|
||||
# 0.8.3 -> 8.3
|
||||
# 7c -> c
|
||||
# 3.0_p2 -> 0_p2
|
||||
# 20040905 -> (empty string)
|
||||
# 3.0c-r1 -> 0c-r1
|
||||
get_after_major_version() {
|
||||
echo $(get_version_component_range 2- "${1:-${PV}}")
|
||||
}
|
||||
|
||||
# @FUNCTION: replace_version_separator
|
||||
# @USAGE: <search> <replacement> [subject]
|
||||
# @DESCRIPTION:
|
||||
# Replace the $1th separator with $2 in $3 (defaults to $PV if $3 is not
|
||||
# supplied). If there are fewer than $1 separators, don't change anything.
|
||||
# 1 '_' 1.2.3 -> 1_2.3
|
||||
# 2 '_' 1.2.3 -> 1.2_3
|
||||
# 1 '_' 1b-2.3 -> 1b_2.3
|
||||
# Rather than being a number, $1 can be a separator character such as '-', '.'
|
||||
# or '_'. In this case, the first separator of this kind is selected.
|
||||
replace_version_separator() {
|
||||
eshopts_push -s extglob
|
||||
local w c v="${3:-${PV}}"
|
||||
declare -i i found=0
|
||||
w=${1:-1}
|
||||
c=($(get_all_version_components ${v}))
|
||||
if [[ ${w} != *[[:digit:]]* ]] ; then
|
||||
# it's a character, not an index
|
||||
for ((i = 0; i < ${#c[@]}; i++)); do
|
||||
if [[ ${c[i]} == ${w} ]]; then
|
||||
c[i]=${2}
|
||||
break
|
||||
fi
|
||||
done
|
||||
else
|
||||
for ((i = 0; i < ${#c[@]}; i++)); do
|
||||
if [[ -n "${c[i]//[^-._]}" ]]; then
|
||||
found+=1
|
||||
if ((found == w)); then
|
||||
c[i]=${2}
|
||||
break
|
||||
fi
|
||||
fi
|
||||
done
|
||||
fi
|
||||
c=${c[*]}
|
||||
echo ${c// }
|
||||
eshopts_pop
|
||||
}
|
||||
|
||||
# @FUNCTION: replace_all_version_separators
|
||||
# @USAGE: <replacement> [subject]
|
||||
# @DESCRIPTION:
|
||||
# Replace all version separators in $2 (defaults to $PV) with $1.
|
||||
# '_' 1b.2.3 -> 1b_2_3
|
||||
replace_all_version_separators() {
|
||||
local c=($(get_all_version_components "${2:-${PV}}"))
|
||||
c=${c[@]//[-._]/$1}
|
||||
echo ${c// }
|
||||
}
|
||||
|
||||
# @FUNCTION: delete_version_separator
|
||||
# @USAGE: <search> [subject]
|
||||
# @DESCRIPTION:
|
||||
# Delete the $1th separator in $2 (defaults to $PV if $2 is not supplied). If
|
||||
# there are fewer than $1 separators, don't change anything.
|
||||
# 1 1.2.3 -> 12.3
|
||||
# 2 1.2.3 -> 1.23
|
||||
# 1 1b-2.3 -> 1b2.3
|
||||
# Rather than being a number, $1 can be a separator character such as '-', '.'
|
||||
# or '_'. In this case, the first separator of this kind is deleted.
|
||||
delete_version_separator() {
|
||||
replace_version_separator "${1}" "" "${2}"
|
||||
}
|
||||
|
||||
# @FUNCTION: delete_all_version_separators
|
||||
# @USAGE: [subject]
|
||||
# @DESCRIPTION:
|
||||
# Delete all version separators in $1 (defaults to $PV).
|
||||
# 1b.2.3 -> 1b23
|
||||
delete_all_version_separators() {
|
||||
replace_all_version_separators "" "${1}"
|
||||
}
|
||||
|
||||
# @FUNCTION: get_version_component_count
|
||||
# @USAGE: [version]
|
||||
# @DESCRIPTION:
|
||||
# How many version components are there in $1 (defaults to $PV)?
|
||||
# 1.0.1 -> 3
|
||||
# 3.0c-r1 -> 4
|
||||
get_version_component_count() {
|
||||
local a=($(get_version_components "${1:-${PV}}"))
|
||||
echo ${#a[@]}
|
||||
}
|
||||
|
||||
# @FUNCTION: get_last_version_component_index
|
||||
# @USAGE: [version]
|
||||
# @DESCRIPTION:
|
||||
# What is the index of the last version component in $1 (defaults to $PV)?
|
||||
# Equivalent to get_version_component_count - 1.
|
||||
# 1.0.1 -> 2
|
||||
# 3.0c-r1 -> 3
|
||||
get_last_version_component_index() {
|
||||
echo $(($(get_version_component_count "${1:-${PV}}" ) - 1))
|
||||
}
|
||||
|
||||
# @FUNCTION: version_is_at_least
|
||||
# @USAGE: <want> [have]
|
||||
# @DESCRIPTION:
|
||||
# Is $2 (defaults to $PVR) at least version $1? Intended for use in eclasses
|
||||
# only. May not be reliable, be sure to do very careful testing before actually
|
||||
# using this.
|
||||
version_is_at_least() {
|
||||
local want_s="$1" have_s="${2:-${PVR}}" r
|
||||
version_compare "${want_s}" "${have_s}"
|
||||
r=$?
|
||||
case $r in
|
||||
1|2)
|
||||
return 0
|
||||
;;
|
||||
3)
|
||||
return 1
|
||||
;;
|
||||
*)
|
||||
die "versionator compare bug [atleast, ${want_s}, ${have_s}, ${r}]"
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
# @FUNCTION: version_compare
|
||||
# @USAGE: <A> <B>
|
||||
# @DESCRIPTION:
|
||||
# Takes two parameters (A, B) which are versions. If A is an earlier version
|
||||
# than B, returns 1. If A is identical to B, return 2. If A is later than B,
|
||||
# return 3. You probably want version_is_at_least rather than this function.
|
||||
# May not be very reliable. Test carefully before using this.
|
||||
version_compare() {
|
||||
eshopts_push -s extglob
|
||||
local ver_a=${1} ver_b=${2} parts_a parts_b
|
||||
local cur_tok_a cur_tok_b num_part_a num_part_b
|
||||
local -i cur_idx_a=0 cur_idx_b=0 prev_idx_a prev_idx_b
|
||||
parts_a=( $(get_all_version_components "${ver_a}" ) )
|
||||
parts_b=( $(get_all_version_components "${ver_b}" ) )
|
||||
|
||||
### compare number parts.
|
||||
local -i inf_loop=0
|
||||
while true; do
|
||||
inf_loop+=1
|
||||
((inf_loop > 20)) && \
|
||||
die "versionator compare bug [numbers, ${ver_a}, ${ver_b}]"
|
||||
|
||||
# Store the current index to test later
|
||||
prev_idx_a=cur_idx_a
|
||||
prev_idx_b=cur_idx_b
|
||||
|
||||
# grab the current number components
|
||||
cur_tok_a=${parts_a[cur_idx_a]}
|
||||
cur_tok_b=${parts_b[cur_idx_b]}
|
||||
|
||||
# number?
|
||||
if [[ -n ${cur_tok_a} ]] && [[ -z ${cur_tok_a//[[:digit:]]} ]] ; then
|
||||
cur_idx_a+=1
|
||||
[[ ${parts_a[cur_idx_a]} == . ]] \
|
||||
&& cur_idx_a+=1
|
||||
else
|
||||
cur_tok_a=
|
||||
fi
|
||||
|
||||
if [[ -n ${cur_tok_b} ]] && [[ -z ${cur_tok_b//[[:digit:]]} ]] ; then
|
||||
cur_idx_b+=1
|
||||
[[ ${parts_b[cur_idx_b]} == . ]] \
|
||||
&& cur_idx_b+=1
|
||||
else
|
||||
cur_tok_b=
|
||||
fi
|
||||
|
||||
# done with number components?
|
||||
[[ -z ${cur_tok_a} && -z ${cur_tok_b} ]] && break
|
||||
|
||||
# if a component is blank, then it is the lesser value
|
||||
[[ -z ${cur_tok_a} ]] && eshopts_pop && return 1
|
||||
[[ -z ${cur_tok_b} ]] && eshopts_pop && return 3
|
||||
|
||||
# According to PMS, if we are *not* in the first number part, and either
|
||||
# token begins with "0", then we use a different algorithm (that
|
||||
# effectively does floating point comparison)
|
||||
if (( prev_idx_a != 0 && prev_idx_b != 0 )) \
|
||||
&& [[ ${cur_tok_a} == 0* || ${cur_tok_b} == 0* ]] ; then
|
||||
|
||||
# strip trailing zeros
|
||||
cur_tok_a=${cur_tok_a%%+(0)}
|
||||
cur_tok_b=${cur_tok_b%%+(0)}
|
||||
|
||||
# do a *string* comparison of the resulting values: 2 > 11
|
||||
[[ ${cur_tok_a} < ${cur_tok_b} ]] && eshopts_pop && return 1
|
||||
[[ ${cur_tok_a} > ${cur_tok_b} ]] && eshopts_pop && return 3
|
||||
else
|
||||
# to avoid going into octal mode, strip any leading zeros. otherwise
|
||||
# bash will throw a hissy fit on versions like 6.3.068.
|
||||
cur_tok_a=${cur_tok_a##+(0)}
|
||||
cur_tok_b=${cur_tok_b##+(0)}
|
||||
|
||||
# now if a component is blank, it was originally 0 -- make it so
|
||||
: ${cur_tok_a:=0}
|
||||
: ${cur_tok_b:=0}
|
||||
|
||||
# compare
|
||||
((cur_tok_a < cur_tok_b)) && eshopts_pop && return 1
|
||||
((cur_tok_a > cur_tok_b)) && eshopts_pop && return 3
|
||||
fi
|
||||
done
|
||||
|
||||
### number parts equal. compare letter parts.
|
||||
local letter_a=
|
||||
letter_a=${parts_a[cur_idx_a]}
|
||||
if [[ ${#letter_a} -eq 1 && -z ${letter_a/[a-z]} ]] ; then
|
||||
cur_idx_a+=1
|
||||
else
|
||||
letter_a=@
|
||||
fi
|
||||
|
||||
local letter_b=
|
||||
letter_b=${parts_b[cur_idx_b]}
|
||||
if [[ ${#letter_b} -eq 1 && -z ${letter_b/[a-z]} ]] ; then
|
||||
cur_idx_b+=1
|
||||
else
|
||||
letter_b=@
|
||||
fi
|
||||
|
||||
# compare
|
||||
[[ ${letter_a} < ${letter_b} ]] && eshopts_pop && return 1
|
||||
[[ ${letter_a} > ${letter_b} ]] && eshopts_pop && return 3
|
||||
|
||||
### letter parts equal. compare suffixes in order.
|
||||
inf_loop=0
|
||||
while true ; do
|
||||
inf_loop+=1
|
||||
((inf_loop > 20)) && \
|
||||
die "versionator compare bug [numbers, ${ver_a}, ${ver_b}]"
|
||||
[[ ${parts_a[cur_idx_a]} == _ ]] && ((cur_idx_a++))
|
||||
[[ ${parts_b[cur_idx_b]} == _ ]] && ((cur_idx_b++))
|
||||
|
||||
cur_tok_a=${parts_a[cur_idx_a]}
|
||||
cur_tok_b=${parts_b[cur_idx_b]}
|
||||
num_part_a=0
|
||||
num_part_b=0
|
||||
|
||||
if has ${cur_tok_a%%+([0-9])} "alpha" "beta" "pre" "rc" "p"; then
|
||||
cur_idx_a+=1
|
||||
num_part_a=${cur_tok_a##+([a-z])}
|
||||
# I don't like octal
|
||||
num_part_a=${num_part_a##+(0)}
|
||||
: ${num_part_a:=0}
|
||||
cur_tok_a=${cur_tok_a%%+([0-9])}
|
||||
else
|
||||
cur_tok_a=
|
||||
fi
|
||||
|
||||
if has ${cur_tok_b%%+([0-9])} alpha beta pre rc p; then
|
||||
cur_idx_b+=1
|
||||
num_part_b=${cur_tok_b##+([a-z])}
|
||||
# I still don't like octal
|
||||
num_part_b=${num_part_b##+(0)}
|
||||
: ${num_part_b:=0}
|
||||
cur_tok_b=${cur_tok_b%%+([0-9])}
|
||||
else
|
||||
cur_tok_b=
|
||||
fi
|
||||
|
||||
if [[ ${cur_tok_a} != ${cur_tok_b} ]]; then
|
||||
local suffix
|
||||
for suffix in alpha beta pre rc "" p; do
|
||||
[[ ${cur_tok_a} == ${suffix} ]] && eshopts_pop && return 1
|
||||
[[ ${cur_tok_b} == ${suffix} ]] && eshopts_pop && return 3
|
||||
done
|
||||
elif [[ -z ${cur_tok_a} && -z ${cur_tok_b} ]]; then
|
||||
break
|
||||
else
|
||||
((num_part_a < num_part_b)) && eshopts_pop && return 1
|
||||
((num_part_a > num_part_b)) && eshopts_pop && return 3
|
||||
fi
|
||||
done
|
||||
|
||||
# At this point, the only thing that should be left is the -r# part
|
||||
[[ ${parts_a[cur_idx_a]} == - ]] && ((cur_idx_a++))
|
||||
[[ ${parts_b[cur_idx_b]} == - ]] && ((cur_idx_b++))
|
||||
|
||||
# Sanity check
|
||||
if [[ ${parts_a[cur_idx_a]/r+([0-9])} || ${parts_b[cur_idx_b]/r+([0-9])} ]]; then
|
||||
die "versionator compare bug [revisions, ${ver_a}, ${ver_b}]"
|
||||
fi
|
||||
|
||||
num_part_a=${parts_a[cur_idx_a]#r}
|
||||
num_part_a=${num_part_a##+(0)}
|
||||
: ${num_part_a:=0}
|
||||
num_part_b=${parts_b[cur_idx_b]#r}
|
||||
num_part_b=${num_part_b##+(0)}
|
||||
: ${num_part_b:=0}
|
||||
|
||||
((num_part_a < num_part_b)) && eshopts_pop && return 1
|
||||
((num_part_a > num_part_b)) && eshopts_pop && return 3
|
||||
|
||||
### no differences.
|
||||
eshopts_pop
|
||||
return 2
|
||||
}
|
||||
|
||||
# @FUNCTION: version_sort
|
||||
# @USAGE: <version> [more versions...]
|
||||
# @DESCRIPTION:
|
||||
# Returns its parameters sorted, highest version last. We're using a quadratic
|
||||
# algorithm for simplicity, so don't call it with more than a few dozen items.
|
||||
# Uses version_compare, so be careful.
|
||||
version_sort() {
|
||||
eshopts_push -s extglob
|
||||
local items=
|
||||
local -i left=0
|
||||
items=("$@")
|
||||
while ((left < ${#items[@]})); do
|
||||
local -i lowest_idx=left
|
||||
local -i idx=lowest_idx+1
|
||||
while ((idx < ${#items[@]})); do
|
||||
version_compare "${items[lowest_idx]}" "${items[idx]}"
|
||||
[[ $? -eq 3 ]] && lowest_idx=idx
|
||||
idx+=1
|
||||
done
|
||||
local tmp=${items[lowest_idx]}
|
||||
items[lowest_idx]=${items[left]}
|
||||
items[left]=${tmp}
|
||||
left+=1
|
||||
done
|
||||
echo ${items[@]}
|
||||
eshopts_pop
|
||||
}
|
||||
|
||||
# @FUNCTION: version_format_string
|
||||
# @USAGE: <format> [version]
|
||||
# @DESCRIPTION:
|
||||
# Reformat complicated version strings. The first argument is the string
|
||||
# to reformat with while the rest of the args are passed on to the
|
||||
# get_version_components function. You should make sure to single quote
|
||||
# the first argument since it'll have variables that get delayed expansions.
|
||||
# @EXAMPLE:
|
||||
# P="cow-hat-1.2.3_p4"
|
||||
# MY_P=$(version_format_string '${PN}_source_$1_$2-$3_$4')
|
||||
# Now MY_P will be: cow-hat_source_1_2-3_p4
|
||||
version_format_string() {
|
||||
local fstr=$1
|
||||
shift
|
||||
set -- $(get_version_components "$@")
|
||||
eval echo "${fstr}"
|
||||
}
|
||||
|
||||
fi
|
||||
Loading…
x
Reference in New Issue
Block a user