1 /*
2 * Copyright (C) 2005, 2007, 2009, 2014, 2015 Internet Systems Consortium, Inc. ("ISC")
3 *
4 * Permission to use, copy, modify, and/or distribute this software for any
5 * purpose with or without fee is hereby granted, provided that the above
6 * copyright notice and this permission notice appear in all copies.
7 *
8 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
9 * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
10 * AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
11 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
12 * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
13 * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
14 * PERFORMANCE OF THIS SOFTWARE.
15 */
16
17 /* $Id: a_1.c,v 1.8 2009/12/04 22:06:37 tbox Exp $ */
18
19 /* by Bjorn.Victor@it.uu.se, 2005-05-07 */
20 /* Based on generic/soa_6.c and generic/mx_15.c */
21
22 #ifndef RDATA_CH_3_A_1_C
23 #define RDATA_CH_3_A_1_C
24
25 #include <isc/net.h>
26
27 #define RRTYPE_A_ATTRIBUTES (0)
28
29 static inline isc_result_t
fromtext_ch_a(ARGS_FROMTEXT)30 fromtext_ch_a(ARGS_FROMTEXT) {
31 isc_token_t token;
32 dns_name_t name;
33 isc_buffer_t buffer;
34
35 REQUIRE(type == dns_rdatatype_a);
36 REQUIRE(rdclass == dns_rdataclass_ch); /* 3 */
37
38 UNUSED(type);
39 UNUSED(callbacks);
40
41 RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_string,
42 ISC_FALSE));
43
44 /* get domain name */
45 dns_name_init(&name, NULL);
46 buffer_fromregion(&buffer, &token.value.as_region);
47 if (origin == NULL)
48 origin = dns_rootname;
49 RETTOK(dns_name_fromtext(&name, &buffer, origin, options, target));
50 if ((options & DNS_RDATA_CHECKNAMES) != 0 &&
51 (options & DNS_RDATA_CHECKREVERSE) != 0) {
52 isc_boolean_t ok;
53 ok = dns_name_ishostname(&name, ISC_FALSE);
54 if (!ok && (options & DNS_RDATA_CHECKNAMESFAIL) != 0)
55 RETTOK(DNS_R_BADNAME);
56 if (!ok && callbacks != NULL)
57 warn_badname(&name, lexer, callbacks);
58 }
59
60 /* 16-bit octal address */
61 RETERR(isc_lex_getoctaltoken(lexer, &token, ISC_FALSE));
62 if (token.value.as_ulong > 0xffffU)
63 RETTOK(ISC_R_RANGE);
64 return (uint16_tobuffer(token.value.as_ulong, target));
65 }
66
67 static inline isc_result_t
totext_ch_a(ARGS_TOTEXT)68 totext_ch_a(ARGS_TOTEXT) {
69 isc_region_t region;
70 dns_name_t name;
71 dns_name_t prefix;
72 isc_boolean_t sub;
73 char buf[sizeof("0177777")];
74 isc_uint16_t addr;
75
76 REQUIRE(rdata->type == dns_rdatatype_a);
77 REQUIRE(rdata->rdclass == dns_rdataclass_ch); /* 3 */
78 REQUIRE(rdata->length != 0);
79
80 dns_name_init(&name, NULL);
81 dns_name_init(&prefix, NULL);
82
83 dns_rdata_toregion(rdata, ®ion);
84 dns_name_fromregion(&name, ®ion);
85 isc_region_consume(®ion, name_length(&name));
86 addr = uint16_fromregion(®ion);
87
88 sub = name_prefix(&name, tctx->origin, &prefix);
89 RETERR(dns_name_totext(&prefix, sub, target));
90
91 sprintf(buf, "%o", addr); /* note octal */
92 RETERR(str_totext(" ", target));
93 return (str_totext(buf, target));
94 }
95
96 static inline isc_result_t
fromwire_ch_a(ARGS_FROMWIRE)97 fromwire_ch_a(ARGS_FROMWIRE) {
98 isc_region_t sregion;
99 isc_region_t tregion;
100 dns_name_t name;
101
102 REQUIRE(type == dns_rdatatype_a);
103 REQUIRE(rdclass == dns_rdataclass_ch);
104
105 UNUSED(type);
106 UNUSED(rdclass);
107
108 dns_decompress_setmethods(dctx, DNS_COMPRESS_GLOBAL14);
109
110 dns_name_init(&name, NULL);
111
112 RETERR(dns_name_fromwire(&name, source, dctx, options, target));
113
114 isc_buffer_activeregion(source, &sregion);
115 isc_buffer_availableregion(target, &tregion);
116 if (sregion.length < 2)
117 return (ISC_R_UNEXPECTEDEND);
118 if (tregion.length < 2)
119 return (ISC_R_NOSPACE);
120
121 memmove(tregion.base, sregion.base, 2);
122 isc_buffer_forward(source, 2);
123 isc_buffer_add(target, 2);
124
125 return (ISC_R_SUCCESS);
126 }
127
128 static inline isc_result_t
towire_ch_a(ARGS_TOWIRE)129 towire_ch_a(ARGS_TOWIRE) {
130 dns_name_t name;
131 dns_offsets_t offsets;
132 isc_region_t sregion;
133 isc_region_t tregion;
134
135 REQUIRE(rdata->type == dns_rdatatype_a);
136 REQUIRE(rdata->rdclass == dns_rdataclass_ch);
137 REQUIRE(rdata->length != 0);
138
139 dns_compress_setmethods(cctx, DNS_COMPRESS_GLOBAL14);
140
141 dns_name_init(&name, offsets);
142
143 dns_rdata_toregion(rdata, &sregion);
144
145 dns_name_fromregion(&name, &sregion);
146 isc_region_consume(&sregion, name_length(&name));
147 RETERR(dns_name_towire(&name, cctx, target));
148
149 isc_buffer_availableregion(target, &tregion);
150 if (tregion.length < 2)
151 return (ISC_R_NOSPACE);
152
153 memmove(tregion.base, sregion.base, 2);
154 isc_buffer_add(target, 2);
155 return (ISC_R_SUCCESS);
156 }
157
158 static inline int
compare_ch_a(ARGS_COMPARE)159 compare_ch_a(ARGS_COMPARE) {
160 dns_name_t name1;
161 dns_name_t name2;
162 isc_region_t region1;
163 isc_region_t region2;
164 int order;
165
166 REQUIRE(rdata1->type == rdata2->type);
167 REQUIRE(rdata1->rdclass == rdata2->rdclass);
168 REQUIRE(rdata1->type == dns_rdatatype_a);
169 REQUIRE(rdata1->rdclass == dns_rdataclass_ch);
170 REQUIRE(rdata1->length != 0);
171 REQUIRE(rdata2->length != 0);
172
173 dns_name_init(&name1, NULL);
174 dns_name_init(&name2, NULL);
175
176 dns_rdata_toregion(rdata1, ®ion1);
177 dns_rdata_toregion(rdata2, ®ion2);
178
179 dns_name_fromregion(&name1, ®ion1);
180 dns_name_fromregion(&name2, ®ion2);
181 isc_region_consume(®ion1, name_length(&name1));
182 isc_region_consume(®ion2, name_length(&name2));
183
184 order = dns_name_rdatacompare(&name1, &name2);
185 if (order != 0)
186 return (order);
187
188 order = memcmp(rdata1->data, rdata2->data, 2);
189 if (order != 0)
190 order = (order < 0) ? -1 : 1;
191 return (order);
192 }
193
194 static inline isc_result_t
fromstruct_ch_a(ARGS_FROMSTRUCT)195 fromstruct_ch_a(ARGS_FROMSTRUCT) {
196 dns_rdata_ch_a_t *a = source;
197 isc_region_t region;
198
199 REQUIRE(type == dns_rdatatype_a);
200 REQUIRE(source != NULL);
201 REQUIRE(a->common.rdtype == type);
202 REQUIRE(a->common.rdclass == rdclass);
203
204 UNUSED(type);
205 UNUSED(rdclass);
206
207 dns_name_toregion(&a->ch_addr_dom, ®ion);
208 RETERR(isc_buffer_copyregion(target, ®ion));
209
210 return (uint16_tobuffer(ntohs(a->ch_addr), target));
211 }
212
213 static inline isc_result_t
tostruct_ch_a(ARGS_TOSTRUCT)214 tostruct_ch_a(ARGS_TOSTRUCT) {
215 dns_rdata_ch_a_t *a = target;
216 isc_region_t region;
217 dns_name_t name;
218
219 REQUIRE(rdata->type == dns_rdatatype_a);
220 REQUIRE(rdata->rdclass == dns_rdataclass_ch);
221 REQUIRE(rdata->length != 0);
222
223 a->common.rdclass = rdata->rdclass;
224 a->common.rdtype = rdata->type;
225 ISC_LINK_INIT(&a->common, link);
226
227 dns_rdata_toregion(rdata, ®ion);
228
229 dns_name_init(&name, NULL);
230 dns_name_fromregion(&name, ®ion);
231 isc_region_consume(®ion, name_length(&name));
232
233 dns_name_init(&a->ch_addr_dom, NULL);
234 RETERR(name_duporclone(&name, mctx, &a->ch_addr_dom));
235 a->ch_addr = htons(uint16_fromregion(®ion));
236 a->mctx = mctx;
237 return (ISC_R_SUCCESS);
238 }
239
240 static inline void
freestruct_ch_a(ARGS_FREESTRUCT)241 freestruct_ch_a(ARGS_FREESTRUCT) {
242 dns_rdata_ch_a_t *a = source;
243
244 REQUIRE(source != NULL);
245 REQUIRE(a->common.rdtype == dns_rdatatype_a);
246
247 if (a->mctx == NULL)
248 return;
249
250 dns_name_free(&a->ch_addr_dom, a->mctx);
251 a->mctx = NULL;
252 }
253
254 static inline isc_result_t
additionaldata_ch_a(ARGS_ADDLDATA)255 additionaldata_ch_a(ARGS_ADDLDATA) {
256
257 REQUIRE(rdata->type == dns_rdatatype_a);
258 REQUIRE(rdata->rdclass == dns_rdataclass_ch);
259
260 UNUSED(rdata);
261 UNUSED(add);
262 UNUSED(arg);
263
264 return (ISC_R_SUCCESS);
265 }
266
267 static inline isc_result_t
digest_ch_a(ARGS_DIGEST)268 digest_ch_a(ARGS_DIGEST) {
269 isc_region_t r;
270 dns_name_t name;
271
272 REQUIRE(rdata->type == dns_rdatatype_a);
273 REQUIRE(rdata->rdclass == dns_rdataclass_ch);
274
275 dns_rdata_toregion(rdata, &r);
276 dns_name_init(&name, NULL);
277 dns_name_fromregion(&name, &r);
278 isc_region_consume(&r, name_length(&name));
279 RETERR(dns_name_digest(&name, digest, arg));
280 return ((digest)(arg, &r));
281 }
282
283 static inline isc_boolean_t
checkowner_ch_a(ARGS_CHECKOWNER)284 checkowner_ch_a(ARGS_CHECKOWNER) {
285
286 REQUIRE(type == dns_rdatatype_a);
287 REQUIRE(rdclass == dns_rdataclass_ch);
288
289 UNUSED(type);
290
291 return (dns_name_ishostname(name, wildcard));
292 }
293
294 static inline isc_boolean_t
checknames_ch_a(ARGS_CHECKNAMES)295 checknames_ch_a(ARGS_CHECKNAMES) {
296 isc_region_t region;
297 dns_name_t name;
298
299 REQUIRE(rdata->type == dns_rdatatype_a);
300 REQUIRE(rdata->rdclass == dns_rdataclass_ch);
301
302 UNUSED(owner);
303
304 dns_rdata_toregion(rdata, ®ion);
305 dns_name_init(&name, NULL);
306 dns_name_fromregion(&name, ®ion);
307 if (!dns_name_ishostname(&name, ISC_FALSE)) {
308 if (bad != NULL)
309 dns_name_clone(&name, bad);
310 return (ISC_FALSE);
311 }
312
313 return (ISC_TRUE);
314 }
315
316 static inline int
casecompare_ch_a(ARGS_COMPARE)317 casecompare_ch_a(ARGS_COMPARE) {
318 return (compare_ch_a(rdata1, rdata2));
319 }
320 #endif /* RDATA_CH_3_A_1_C */
321