+
+distro-name-compat() {
+ local x=$(distro-name)
+ case $x in
+ trisquel)
+ echo ubuntu
+ ;;
+ *)
+ echo $x
+ ;;
+ esac
+}
+
+distro-name-ver() {
+ echo `distro-name``debian-archive`
+}
+
+debian-archive() {
+ isdeb || return 0
+ local archive expression pri name highpri shortest
+ local policy="${1:-$(apt-cache policy)}" || return $?
+ # a = archive
+ # n = codename
+ # o = origin
+ # c = component (licensing component)
+ # l = label (Debian{,-Security,-Updates})
+ local d=$(distro-name)
+ # goto b for archive lines we are interested in, a for lines we arent
+ # print priority + archive name. priority is in
+ # the previous line from the archive line.
+ # case insensitive, because $d is lower and we are matching with first char upper
+ read -rd '' expression <<EOF ||:
+/o=$d/I!b a;/l=$d/I!b a;/c=main/!b a b b;
+: a;s/^ *([-0-9]+).*/\1/;h;b;
+: b;s/^.*a=([^,]+).*/ \1/;H;x;s/\n//;p
+EOF
+ while read -r pri name; do
+# in ubuntu, we get archives like flidas, flidas-updates, all the same pri,
+# so just pick the shortest one.
+ if [[ ! $highpri ]]; then
+ highpri=$pri;
+ shortest=$name
+ continue
+ fi
+ if [[ $pri != $highpri ]]; then
+ break
+ fi
+ if (( ${#shortest} > ${#name} )); then
+ shortest=$name
+ fi
+ done < <(echo "$policy" | sed -rn "$expression" | sort -rn || [[ $? == 141 ]])
+ echo "$shortest"
+
+}
+
+
+isdebian-testing() {
+ [[ $(debian-archive) == testing ]]
+}
+# I only do testing or stable.
+isdebian-stable() {
+ [[ $(debian-archive) == stable ]]
+}
+
+debian-codename() {
+ isdeb || return 0
+ local policy="$(apt-cache policy)" || return $?
+ archive=$(debian-archive "$policy")
+ echo "$policy" | sed -rn "s/^.*a=$archive,n=([a-z]+).*/\1/p;T;q" || [[ $? == 141 ]]
+}
+debian-codename-compat() {
+ local n=$(debian-codename)
+ case $n in
+ flidas)
+ echo xenial
+ ;;
+ etiona)
+ echo bionic
+ ;;
+ *)
+ echo $n
+ ;;
+ esac
+}
+