summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/control.sh60
1 files changed, 41 insertions, 19 deletions
diff --git a/lib/control.sh b/lib/control.sh
index cb4dfd6..30c6b9c 100644
--- a/lib/control.sh
+++ b/lib/control.sh
@@ -19,6 +19,35 @@
_OB_SUBSTVARS_MAX_DEPTH=50
+_ob_parse_control_error()
+{
+ local file=
+ local line_nr=
+ local msg_id=
+ local file_info=
+ local orig_text_domain=
+
+ file="${1}"
+ line_nr="${2}"
+ msg_id="${3}"
+ shift 3
+
+ if [ ${line_nr} -eq 0 ]; then
+ file_info="$(printf '%20s:' "${file}")"
+ else
+ file_info="$(printf '%20s(l%d):' "${file}" "${line_nr}")"
+ fi
+
+ orig_text_domain="$(ob_get_text_domain)"
+ ob_set_text_domain "${_OB_INTERNAL_TEXT_DOMAIN}"
+
+ ob_warn "${file_info} $(ob_get_msg "${msg_id}")" "${@}"
+
+ ob_set_text_domain "${orig_text_domain}"
+
+ return 0
+}
+
## @brief Parse a control file
## @details \fBob_parse_control\fP parses a control file of field names and
## values formatted like RFC 822 (or RFC 2822 or RFC 5322) headers.
@@ -35,10 +64,6 @@ _OB_SUBSTVARS_MAX_DEPTH=50
## @operand field_cb req Callback to run for each field. Must accept three
## arguments: the field name, the field value, and
## \fIuser_data\fP.
-## @operand error_cb req Callback to run on errors. Must accept four or more
-## arguments: \fIuser_data\fP, the file name, the line
-## number, the error ID string, and any arguments for
-## formatted output.
## @operand user_data req Data to pass to \fIfield_cb\fP.
## @operand req_fields opt Required fields that must appear in the control file.
## @operand opt_fields opt Optional fields that may appear in the control file.
@@ -52,7 +77,6 @@ ob_parse_control()
{
local file=
local field_cb=
- local error_cb=
local user_data=
local req_fields=
local opt_fields=
@@ -64,19 +88,17 @@ ob_parse_control()
local name=
local value=
- if [ ${#} -eq 4 ]; then
+ if [ ${#} -eq 3 ]; then
file="${1}"
field_cb="${2}"
- error_cb="${3}"
- user_data="${4}"
+ user_data="${3}"
check_fields='false'
- elif [ ${#} -eq 6 ]; then
+ elif [ ${#} -eq 5 ]; then
file="${1}"
field_cb="${2}"
- error_cb="${3}"
- user_data="${4}"
- req_fields="${5}"
- opt_fields="${6}"
+ user_data="${3}"
+ req_fields="${4}"
+ opt_fields="${5}"
check_fields='true'
all_fields=" ${req_fields} ${opt_fields} "
else
@@ -91,7 +113,7 @@ ob_parse_control()
line_nr=$(($line_nr + 1))
case "${line}" in
'')
- "${error_cb}" "${user_data}" "${file}" "${line_nr}" \
+ _ob_parse_control_error "${file}" "${line_nr}" \
'control_empty_line'
;;
'#'*) # Comment.
@@ -107,7 +129,7 @@ ob_parse_control()
EOF
if [ -z "${name}" ]; then
# Badly formatted control field.
- "${error_cb}" "${user_data}" "${file}" "${line_nr}" \
+ _ob_parse_control_error "${file}" "${line_nr}" \
'control_bad_nv'
continue
fi
@@ -115,7 +137,7 @@ ob_parse_control()
if [ "${all_fields% ${name} *}" = \
"${all_fields}" ]; then
# Unknown field.
- "${error_cb}" "${user_data}" \
+ _ob_parse_control_error \
"${file}" "${line_nr}" \
'control_unknown_field' "${name}"
else
@@ -127,7 +149,7 @@ ob_parse_control()
if [ "${got_fields% ${name} *}" != \
"${got_fields}" ]; then
# Duplicate field.
- "${error_cb}" "${user_data}" "${file}" "${line_nr}" \
+ _ob_parse_control_error "${file}" "${line_nr}" \
'control_duplicate_field' "${name}"
else
got_fields="${got_fields}${name} "
@@ -136,7 +158,7 @@ ob_parse_control()
' '*) # Continuation line.
if [ -z "${name}" ]; then
# Expecting a "Name: Value" line.
- "${error_cb}" "${user_data}" "${file}" "${line_nr}" \
+ _ob_parse_control_error "${file}" "${line_nr}" \
'control_found_continuation'
continue
fi
@@ -160,7 +182,7 @@ ob_parse_control()
# Missing required control fields.
req_fields="$(echo "${req_fields}" | sed 's/ / /g' | \
sed "s/ /$(ob_get_msg 'list_item_separator')/g")"
- "${error_cb}" "${user_data}" "${file}" '0' \
+ _ob_parse_control_error "${file}" '0' \
'control_missing_fields' "${req_fields}"
fi
fi