2 * Copyright (C) 2004, 2005 Internet Systems Consortium, Inc. ("ISC")
3 * Copyright (C) 2000-2003 Internet Software Consortium.
5 * Permission to use, copy, modify, and distribute this software for any
6 * purpose with or without fee is hereby granted, provided that the above
7 * copyright notice and this permission notice appear in all copies.
9 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10 * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11 * AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13 * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14 * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15 * PERFORMANCE OF THIS SOFTWARE.
18 /* $Id: hex.c,v 1.14.18.2 2005/04/29 00:16:46 marka Exp $ */
26 #include <isc/buffer.h>
29 #include <isc/string.h>
32 #define RETERR(x) do { \
33 isc_result_t _r = (x); \
34 if (_r != ISC_R_SUCCESS) \
40 * BEW: These static functions are copied from lib/dns/rdata.c.
43 str_totext(const char *source, isc_buffer_t *target);
46 mem_tobuffer(isc_buffer_t *target, void *base, unsigned int length);
48 static const char hex[] = "0123456789ABCDEF";
51 isc_hex_totext(isc_region_t *source, int wordlength,
52 const char *wordbreak, isc_buffer_t *target)
55 unsigned int loops = 0;
60 memset(buf, 0, sizeof(buf));
61 while (source->length > 0) {
62 buf[0] = hex[(source->base[0] >> 4) & 0xf];
63 buf[1] = hex[(source->base[0]) & 0xf];
64 RETERR(str_totext(buf, target));
65 isc_region_consume(source, 1);
68 if (source->length != 0 &&
69 (int)((loops + 1) * 2) >= wordlength)
72 RETERR(str_totext(wordbreak, target));
75 return (ISC_R_SUCCESS);
79 * State of a hex decoding process in progress.
82 int length; /*%< Desired length of binary data or -1 */
83 isc_buffer_t *target; /*%< Buffer for resulting binary data */
84 int digits; /*%< Number of buffered hex digits */
89 hex_decode_init(hex_decode_ctx_t *ctx, int length, isc_buffer_t *target)
96 static inline isc_result_t
97 hex_decode_char(hex_decode_ctx_t *ctx, int c) {
100 if ((s = strchr(hex, toupper(c))) == NULL)
101 return (ISC_R_BADHEX);
102 ctx->val[ctx->digits++] = s - hex;
103 if (ctx->digits == 2) {
106 num = (ctx->val[0] << 4) + (ctx->val[1]);
107 RETERR(mem_tobuffer(ctx->target, &num, 1));
108 if (ctx->length >= 0) {
109 if (ctx->length == 0)
110 return (ISC_R_BADHEX);
116 return (ISC_R_SUCCESS);
119 static inline isc_result_t
120 hex_decode_finish(hex_decode_ctx_t *ctx) {
122 return (ISC_R_UNEXPECTEDEND);
123 if (ctx->digits != 0)
124 return (ISC_R_BADHEX);
125 return (ISC_R_SUCCESS);
129 isc_hex_tobuffer(isc_lex_t *lexer, isc_buffer_t *target, int length) {
130 hex_decode_ctx_t ctx;
131 isc_textregion_t *tr;
135 hex_decode_init(&ctx, length, target);
137 while (ctx.length != 0) {
144 RETERR(isc_lex_getmastertoken(lexer, &token,
145 isc_tokentype_string, eol));
146 if (token.type != isc_tokentype_string)
148 tr = &token.value.as_textregion;
149 for (i = 0; i < tr->length; i++)
150 RETERR(hex_decode_char(&ctx, tr->base[i]));
153 isc_lex_ungettoken(lexer, &token);
154 RETERR(hex_decode_finish(&ctx));
155 return (ISC_R_SUCCESS);
159 isc_hex_decodestring(char *cstr, isc_buffer_t *target) {
160 hex_decode_ctx_t ctx;
162 hex_decode_init(&ctx, -1, target);
167 if (c == ' ' || c == '\t' || c == '\n' || c== '\r')
169 RETERR(hex_decode_char(&ctx, c));
171 RETERR(hex_decode_finish(&ctx));
172 return (ISC_R_SUCCESS);
176 str_totext(const char *source, isc_buffer_t *target) {
180 isc_buffer_availableregion(target, ®ion);
183 if (l > region.length)
184 return (ISC_R_NOSPACE);
186 memcpy(region.base, source, l);
187 isc_buffer_add(target, l);
188 return (ISC_R_SUCCESS);
192 mem_tobuffer(isc_buffer_t *target, void *base, unsigned int length) {
195 isc_buffer_availableregion(target, &tr);
196 if (length > tr.length)
197 return (ISC_R_NOSPACE);
198 memcpy(tr.base, base, length);
199 isc_buffer_add(target, length);
200 return (ISC_R_SUCCESS);