#! /usr/bin/env bash
set -e
# Wiki pages to update
wikiPageManual='Manual'
wikiPageDownloads='Downloads'
# Function to update a wiki page, if it has changed
function updatePage() {
local pageName newContents mimeType
local oldContents
pageName="$1"
newContents="$2"
mimeType="$3"
if [ -z "${mimeType}" ]; then
mimeType='text/x-fossil-wiki'
fi
oldContents="$(fossil wiki export "${pageName}" 2>/dev/null)" || oldContents=''
if [ "${oldContents}" != "${newContents}" ]; then
echo "${newContents}" | fossil wiki commit --mimetype "${mimeType}" "${pageName}" >/dev/null 2>/dev/null || \
echo "${newContents}" | fossil wiki create --mimetype "${mimeType}" "${pageName}" || return 1
fi
return 0
}
# Generate the new downloads page
function generateDownloads() {
local version tarball sha256
version="$1"
tarball="$2"
sha256="$3"
if [ -z "${version}" -o -z "${tarball}" ]; then
return 0
fi
echo 'Tcl Nano'
echo '========'
echo ''
echo "Current release: **${version}**"
echo ''
echo ' - Downloads:'
echo " - [Source](/uv/${tarball}) <small>(SHA2-256: ${sha256})</small>"
echo ''
echo "Older releases may be found in the [archives](/uvlist)."
return 0
}
# Ensure we are operating in the root of the checkout
cd "$(dirname "${BASH_SOURCE[0]}")/.."
# Update the repository
fossil sync
fossil uv sync
# Determine latest release
tclNanoVersion="$(fossil uv ls | sed 's/^releases\/tcl-nano-\(.*\)\.tar\.gz/\1/;t;d' | sort --version-sort | tail -n 1)"
tclNanoTarball="releases/tcl-nano-${tclNanoVersion}.tar.gz"
tclNanoReleaseDate="$(fossil uv cat "${tclNanoTarball}" 2>/dev/null | gzip -dc 2>/dev/null | tar -tvf - 2>/dev/null | awk '{ print $4 }')"
tclNanoTarballSHA256="$(fossil uv cat "${tclNanoTarball}" 2>/dev/null | openssl dgst -sha256 | sed 's/.*= *//')"
# Generate the new manual page entry
manPage="$(groff -mandoc -Thtml nano.man | sed -r 's@</*(body|html)( [^>]*|)>@@g;/<head>/,/<\/head>/ d' | sed "s/@@VERS@@/${tclNanoVersion}/g;s/@@SHORT_DATE@@/${tclNanoRelaseDate}/g" | sed 's/\[/\[/g;s/\]/\]/g' | tail -n +5)"
updatePage "${wikiPageManual}" "${manPage}"
# Generate the new download page entry
downloadsPage="$(generateDownloads "${tclNanoVersion}" "${tclNanoTarball}" "${tclNanoTarballSHA256}")"
updatePage "${wikiPageDownloads}" "${downloadsPage}" 'markdown'
# Push changes if any have been made
fossil sync
exit 0