summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Makefile.in2
-rw-r--r--lib/changelog.sh145
2 files changed, 146 insertions, 1 deletions
diff --git a/lib/Makefile.in b/lib/Makefile.in
index 4e9ecdf..ecf1e3a 100644
--- a/lib/Makefile.in
+++ b/lib/Makefile.in
@@ -28,7 +28,7 @@ LIBDIR = @libdir@
.SUFFIXES:
.SUFFIXES: .sh
-SRCS = controlfields.sh architecture.sh archive.sh messages.sh
+SRCS = controlfields.sh architecture.sh archive.sh messages.sh changelog.sh
OBJS = $(SRCS:.sh=)
PACKAGE = @package@
diff --git a/lib/changelog.sh b/lib/changelog.sh
new file mode 100644
index 0000000..81e3332
--- /dev/null
+++ b/lib/changelog.sh
@@ -0,0 +1,145 @@
+#!@@SHELL@@
+#
+# opkhelper
+# lib/changelog
+# Functions for parsing changelogs.
+#
+# Copyright (C) 2012 Patrick "P. J." McDermott
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+. @@LIBDIR@@/opkhelper/messages
+
+oh_changelog_parse_error()
+{
+ _file="${1}"
+ _line_nr="${2}"
+ _error="${3}"
+ _expect_id="${4}"
+
+ case "${_expect_id}" in
+ FIRST_HEADING) _expect_str='first heading';;
+ NEXT_OR_EOF) _expect_str='next heading or eof';;
+ START_CHANGES) _expect_str='start of change data';;
+ CHANGES_OR_TRAILER) _expect_str='more change data or trailer';;
+ *) _expect_str='unknown';;
+ esac
+
+ _file_info=$(printf '%20s(l%d):' "${_file}" "${_line_nr}")
+ oh_warn "${_file_info} ${_error}" "${_expect_str}"
+}
+
+oh_changelog_parse()
+{
+ # Parsing logic based on that of dpkg.
+
+ _file="${1}"
+ _cb="${2}"
+
+ _expect=FIRST_HEADING
+ _line_nr=0
+ _entries=0
+
+ while IFS= read _line; do
+ _line_nr=$(($_line_nr + 1))
+ if [ -z "${_line}" ]; then
+ if [ "${_expect}" = START_CHANGES ]; then
+ OH_CHANGELOG_CHANGES="${OH_CHANGELOG_CHANGES}
+${_line}"
+ elif [ "${_expect}" = NEXT_OR_EOF ]; then
+ :
+ elif [ "${_expect}" != CHANGES_OR_TRAILER ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'found blank line where expected %s' "${_expect}"
+ else
+ _blank_lines="${_blank_lines}
+${_line}"
+ fi
+ elif [ "${_line# }" = "${_line}" ]; then
+ if [ "${_expect}" != FIRST_HEADING -a \
+ "${_expect}" != NEXT_OR_EOF ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'found start of entry where expected %s' "${_expect}"
+ fi
+ _source="${_line%% (*}"
+ _line_="${_line#* (}"
+ _distribution="${_line_##*) }"
+ _line_="${_line_%) *}"
+ _version="${_line_}"
+ if [ -z "${_source}" -o -z "${_distribution}" -o \
+ -z "${_version}" -o \
+ "${_version% *}" != "${_version}" ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'badly formatted heading line'
+ OH_CHANGELOG_SOURCE=
+ OH_CHANGELOG_VERSION=
+ OH_CHANGELOG_DISTRIBUTION=
+ OH_CHANGELOG_CHANGES=
+ else
+ OH_CHANGELOG_SOURCE="${_source}"
+ OH_CHANGELOG_VERSION="${_version}"
+ OH_CHANGELOG_DISTRIBUTION="${_distribution}"
+ OH_CHANGELOG_CHANGES="${_line}"
+ fi
+ _expect=START_CHANGES
+ _blank_lines=
+ elif [ "${_line# -- }" != "${_line}" ]; then
+ if [ "${_expect}" != CHANGES_OR_TRAILER ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'found trailer where expected %s' "${_expect}"
+ fi
+ _line="${_line# -- }"
+ _maintainer="${_line%% *}"
+ _date="${_line#* }"
+ if [ -z "${_maintainer}" -o -z "${_date}" -o \
+ "${_maintainer}" = "${_date}" ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'badly formatted trailer line'
+ OH_CHANGELOG_MAINTAINER=
+ OH_CHANGELOG_DATE=
+ elif [ -n "${OH_CHANGELOG_SOURCE}" ]; then
+ OH_CHANGELOG_MAINTAINER="${_maintainer}"
+ OH_CHANGELOG_DATE="${_date}"
+ "${_cb}"
+ _entries=$(($_entries + 1))
+ fi
+ _expect=NEXT_OR_EOF
+ _blank_lines=
+ elif [ "${_line# --}" != "${_line}" ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'badly formatted trailer line'
+ elif [ "${_line## }" != "${_line}" ]; then
+ if [ "${_expect}" != START_CHANGES -a \
+ "${_expect}" != CHANGES_OR_TRAILER ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'found change data where expected %s' "${_expect}"
+ fi
+ OH_CHANGELOG_CHANGES="${OH_CHANGELOG_CHANGES}
+${_blank_lines}${_line}"
+ _expect=CHANGES_OR_TRAILER
+ _blank_lines=
+ else
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'unrecognized line'
+ _blank_lines=
+ fi
+ done <"${_file}"
+
+ if [ "${_expect}" != NEXT_OR_EOF ]; then
+ oh_changelog_parse_error "${_file}" "${_line_nr}" \
+ 'found eof where expected %s' "${_expect}"
+ fi
+
+ return ${_entries}
+}