blob: 34e460b4178ec939ecab723c2677f84aec4b57b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
# opkbuild
# lib/control
# Functions for parsing control files.
#
# 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/>.
[ -n "${_OB_CONTROL_SM}" ] && return 0
_OB_CONTROL_SM='true'
ob_use messages
ob_use locale
OB_CONTROL_NAME=
OB_CONTROL_VALUE=
ob_parse_control()
{
_ob_local _obpco_file _obpco_field_cb _obpco_req_fields _obpco_opt_fields \
_obpco_all_fields _obpco_got_fields \
_obpco_line_nr _obpco_line _obpco_name _obpco_value
if [ ${#} -eq 4 ]; then
_obpco_file="${1}"
_obpco_field_cb="${2}"
_obpco_req_fields="${3}"
_obpco_opt_fields="${4}"
else
_ob_return 125
return ${?}
fi
_obpco_all_fields=" ${_obpco_req_fields} ${_obpco_opt_fields} "
_obpco_got_fields=' '
_obpco_line_nr=0
while IFS= read -r _obpco_line; do
_obpco_line_nr=$(($_obpco_line_nr + 1))
if [ -z "$(echo ${_obpco_line})" ]; then
_ob_parse_control_error "${_obpco_file}" "${_obpco_line_nr}" \
'control_empty_line'
elif [ "${_obpco_line# }" = "${_obpco_line}" ]; then
# "Name: Value" line.
_obpco_name="${_line%%:*}"
_obpco_value="${_line#*: }"
if [ -z "${_obpco_name}" -o "${_obpco_name}" = "${_obpco_line}" \
-o -z "${_obpco_value}" ]; then
# Badly formatted control field.
_ob_parse_control_error "${_obpco_file}" "${_obpco_line_nr}" \
'control_bad_nv'
continue
fi
if [ "${_obpco_all_fields% ${_obpco_name} *}" = \
"${_obpco_all_fields}" ]; then
# Unknown field.
_ob_parse_control_error "${_obpco_file}" "${_obpco_line_nr}" \
'control_unknown_field' "${_obpco_name}"
else
# Remove field from list of required fields.
_obpco_req_fields="$(echo "${_obpco_req_fields}" | \
sed "s/${_obpco_name}//")"
fi
if [ "${_obpco_got_fields% ${_obpco_name} *}" != \
"${_obpco_got_fields}" ]; then
# Duplicate field.
_ob_parse_control_error "${_obpco_file}" "${_obpco_line_nr}" \
'control_duplicate_field' "${_obpco_name}"
else
_obpco_got_fields="${_obpco_got_fields}${_obpco_name} "
fi
OB_CONTROL_NAME="${_obpco_name}"
OB_CONTROL_VALUE="${_obpco_value}"
"${_obpco_field_cb}"
if [ ${?} -ne 0 ]; then
_ob_return 0
return ${?}
fi
else
# Continuation line.
if [ -z "${_name}" ]; then
# Expecting a "Name: Value" line.
_ob_parse_control_error "${_obpco_file}" "${_obpco_line_nr}" \
'control_found_continuation'
continue
fi
_obpco_value="${_obpco_value}
${_line# }"
fi
done <"${_obpco_file}"
_obpco_req_fields="${_obpco_req_fields## }"
_obpco_req_fields="${_obpco_req_fields%% }"
if [ -n "${_obpco_req_fields}" ]; then
# Missing required control fields.
_obpco_req_fields="$(echo "${_obpco_req_fields}" | sed 's/ / /g' | \
sed "s/ /$(ob_get_msg 'list_item_separator')/g")"
_ob_parse_control_error "${_obpco_file}" '0' \
'control_missing_fields' \
"${_obpco_req_fields}"
fi
_ob_return 0
return ${?}
}
_ob_parse_control_error()
{
_ob_local _obpcoe_file _obpcoe_line_nr _obpcoe_msg_id \
_obpcoe_file_info _obpcoe_orig_text_domain
_obpcoe_file="${1}"
_obpcoe_line_nr="${2}"
_obpcoe_msg_id="${3}"
shift 3
if [ "${_obpcoe_line_nr}" -eq 0 ]; then
_obpcoe_file_info="$(printf '%20s:' "${_obpcoe_file}")"
else
_obpcoe_file_info="$(printf '%20s(l%d):' "${_obpcoe_file}" \
"${_obpcoe_line_nr}")"
fi
_obpcoe_orig_text_domain="$(ob_get_text_domain)"
ob_set_text_domain "${_OB_INTERNAL_TEXT_DOMAIN}"
ob_warn "${_obpcoe_file_info} $(ob_get_msg "${_obpcoe_msg_id}")" "${@}"
ob_set_text_domain "${_obpcoe_orig_text_domain}"
_ob_return 0
return ${?}
}
|
