xref: /openbsd/usr.sbin/unbound/testcode/readhex.c (revision 712b2f30)
1 /*
2  * testcode/readhex.c - read hex data.
3  *
4  * Copyright (c) 2007, NLnet Labs. All rights reserved.
5  *
6  * This software is open source.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  *
12  * Redistributions of source code must retain the above copyright notice,
13  * this list of conditions and the following disclaimer.
14  *
15  * Redistributions in binary form must reproduce the above copyright notice,
16  * this list of conditions and the following disclaimer in the documentation
17  * and/or other materials provided with the distribution.
18  *
19  * Neither the name of the NLNET LABS nor the names of its contributors may
20  * be used to endorse or promote products derived from this software without
21  * specific prior written permission.
22  *
23  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
24  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
25  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
26  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
27  * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
28  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
29  * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
30  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
31  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
32  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
33  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
34  *
35  */
36 /**
37  * \file
38  * Declarations useful for the unit tests.
39  */
40 #include "config.h"
41 #include <ctype.h>
42 #include "testcode/readhex.h"
43 #include "util/log.h"
44 #include "sldns/sbuffer.h"
45 #include "sldns/parseutil.h"
46 
47 /** skip whitespace */
48 static void
skip_whites(const char ** p)49 skip_whites(const char** p)
50 {
51 	while(1) {
52 		while(isspace((unsigned char)**p))
53 			(*p)++;
54 		if(**p == ';') {
55 			/* comment, skip until newline */
56 			while(**p && **p != '\n')
57 				(*p)++;
58 			if(**p == '\n')
59 				(*p)++;
60 		} else return;
61 	}
62 }
63 
64 /* takes a hex string and puts into buffer */
hex_to_buf(sldns_buffer * pkt,const char * hex)65 void hex_to_buf(sldns_buffer* pkt, const char* hex)
66 {
67 	const char* p = hex;
68 	int val;
69 	sldns_buffer_clear(pkt);
70 	while(*p) {
71 		skip_whites(&p);
72 		if(sldns_buffer_position(pkt) == sldns_buffer_limit(pkt))
73 			fatal_exit("hex_to_buf: buffer too small");
74 		if(!isalnum((unsigned char)*p))
75 			break;
76 		val = sldns_hexdigit_to_int(*p++) << 4;
77 		skip_whites(&p);
78 		log_assert(*p && isalnum((unsigned char)*p));
79 		val |= sldns_hexdigit_to_int(*p++);
80 		sldns_buffer_write_u8(pkt, (uint8_t)val);
81 		skip_whites(&p);
82 	}
83 	sldns_buffer_flip(pkt);
84 }
85 
86