generate-stackbrew-library.sh

#!/usr/bin/env bash
set -Eeuo pipefail

declare -A aliases=(
	[11.0]='11 latest'
	[10.3]='10'
)

defaultDebianSuite='bookworm'
declare -A debianSuites=(
	#[10.0]='bullseye'
)

defaultPhpVersion='php8.3'
declare -A defaultPhpVersions=(
# releases older than 11 will conservatively stay on 8.2 by default
	[10.3]='php8.2'
	[10.2]='php8.2'
# https://www.drupal.org/docs/7/system-requirements/php-requirements#php_required
	[7]='php8.1' # PHP 7.4 & 8.0 are EOL, so we don't have a choice but to update the default
# https://www.drupal.org/docs/system-requirements/php-requirements
)

self="$(basename "$BASH_SOURCE")"
cd "$(dirname "$(readlink -f "$BASH_SOURCE")")"

if [ "$#" -eq 0 ]; then
	versions="$(jq -r 'keys | map(@sh) | join(" ")' versions.json)"
	eval "set -- $versions"
fi

# sort version numbers with highest first
IFS=$'\n'; set -- $(sort -rV <<<"$*"); unset IFS

# get the most recent commit which modified any of "$@"
fileCommit() {
	git log -1 --format='format:%H' HEAD -- "$@"
}

# get the most recent commit which modified "$1/Dockerfile" or any file COPY'd from "$1/Dockerfile"
dirCommit() {
	local dir="$1"; shift
	(
		cd "$dir"
		files="$(
			git show HEAD:./Dockerfile | awk '
				toupper($1) == "COPY" {
					for (i = 2; i < NF; i++) {
						if ($i ~ /^--from=/) {
							next
						}
						print $i
					}
				}
			'
		)"
		fileCommit Dockerfile $files
	)
}

gawkParents='
	{ cmd = toupper($1) }
	cmd == "FROM" {
		print $2
		next
	}
	cmd == "COPY" {
		for (i = 2; i < NF; i++) {
			if ($i ~ /^--from=/) {
				gsub(/^--from=/, "", $i)
				print $i
				next
			}
		}
	}
'

getArches() {
	local repo="$1"; shift
	local officialImagesBase="${BASHBREW_LIBRARY:-https://github.com/docker-library/official-images/raw/HEAD/library}/"

	local parentRepoToArchesStr
	parentRepoToArchesStr="$(
		find -name 'Dockerfile' -exec gawk "$gawkParents" '{}' + \
			| sort -u \
			| gawk -v officialImagesBase="$officialImagesBase" '
				$1 !~ /^('"$repo"'|scratch|.*\/.*)(:|$)/ {
					printf "%s%s\n", officialImagesBase, $1
				}
			' \
			| xargs -r bashbrew cat --format '["{{ .RepoName }}:{{ .TagName }}"]="{{ join " " .TagEntry.Architectures }}"'
	)"
	eval "declare -g -A parentRepoToArches=( $parentRepoToArchesStr )"
}
getArches 'drupal'

cat <<-EOH
# this file is generated via https://github.com/docker-library/drupal/blob/$(fileCommit "$self")/$self

Maintainers: Tianon Gravi <admwiggin@gmail.com> (@tianon),
             Joseph Ferguson <yosifkit@gmail.com> (@yosifkit)
GitRepo: https://github.com/docker-library/drupal.git
EOH

# prints "$2$1$3$1...$N"
join() {
	local sep="$1"; shift
	local out; printf -v out "${sep//%/%%}%s" "$@"
	echo "${out#$sep}"
}

for version; do
	export version

	if ! fullVersion="$(jq -er '.[env.version] | if . then .version else empty end' versions.json)"; then
		continue
	fi

	phpVersions="$(jq -r '.[env.version].phpVersions | map(@sh) | join(" ")' versions.json)"
	eval "phpVersions=( $phpVersions )"
	variants="$(jq -r '.[env.version].variants | map(@sh) | join(" ")' versions.json)"
	eval "variants=( $variants )"

	latestAlpineVersion="$(jq -r '.[env.version].variants[] | ltrimstr("fpm-") | select(startswith("alpine")) | ltrimstr("alpine")' versions.json | sort -rV | head -1)"
	debianSuite="${debianSuites[$version]:-$defaultDebianSuite}"
	versionDefaultPhpVersion="${defaultPhpVersions[$version]:-$defaultPhpVersion}"

	rcVersion="${version%-rc}"
	versionAliases=()
	while [ "$fullVersion" != "$rcVersion" -a "${fullVersion%[.]*}" != "$fullVersion" ]; do
		versionAliases+=( $fullVersion )
		fullVersion="${fullVersion%[.]*}"
	done
	versionAliases+=(
		$version
		${aliases[$version]:-}
	)

	for phpVersion in "${phpVersions[@]}"; do
		phpVersion="php$phpVersion"
		for variant in "${variants[@]}"; do
			dir="$version/$phpVersion/$variant"
			[ -f "$dir/Dockerfile" ] || continue

			commit="$(dirCommit "$dir")"

			phpVersionAliases=( "${versionAliases[@]/%/-$phpVersion}" )
			phpVersionAliases=( "${phpVersionAliases[@]//latest-/}" )

			variantSuffixes=( "$variant" )
			case "$variant" in
				*-"$debianSuite") # "-apache-buster", -> "-apache"
					variantSuffixes+=( "${variant%-$debianSuite}" )
					;;
				*-"alpine$latestAlpineVersion") # "-fpm-alpine3.15" -> "-fpm-alpine"
					variantSuffixes+=( "${variant%$latestAlpineVersion}" )
					;;
			esac
			variantAliases=()
			phpVersionVariantAliases=()
			for variantSuffix in "${variantSuffixes[@]}"; do
				variantAliases+=( "${versionAliases[@]/%/-$variantSuffix}" )
				phpVersionVariantAliases+=( "${phpVersionAliases[@]/%/-$variantSuffix}" )
				if [ "$variantSuffix" = 'apache' ]; then
					variantAliases+=( "${versionAliases[@]}" )
					phpVersionVariantAliases+=( "${phpVersionAliases[@]}" )
				fi
			done
			variantAliases=( "${variantAliases[@]//latest-/}" )
			phpVersionVariantAliases=( "${phpVersionVariantAliases[@]//latest-/}" )

			fullAliases=( "${phpVersionVariantAliases[@]}" )
			if [ "$phpVersion" = "$versionDefaultPhpVersion" ]; then
				fullAliases+=( "${variantAliases[@]}" )
			fi

			variantParents="$(gawk "$gawkParents" "$dir/Dockerfile")"
			variantArches=
			for variantParent in $variantParents; do
				parentArches="${parentRepoToArches[$variantParent]:-}"
				if [ -z "$parentArches" ]; then
					continue
				elif [ -z "$variantArches" ]; then
					variantArches="$parentArches"
				else
					variantArches="$(
						comm -12 \
							<(xargs -n1 <<<"$variantArches" | sort -u) \
							<(xargs -n1 <<<"$parentArches" | sort -u)
					)"
				fi
			done

			echo
			cat <<-EOE
				Tags: $(join ', ' "${fullAliases[@]}")
				Architectures: $(join ', ' $variantArches)
				GitCommit: $commit
				Directory: $dir
			EOE
		done
	done
done