Mercurial > hg > CbC > CbC_gcc
comparison libiberty/hex.c @ 0:a06113de4d67
first commit
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 14:47:48 +0900 |
parents | |
children | 04ced10e8804 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:a06113de4d67 |
---|---|
1 /* Hex character manipulation support. | |
2 Copyright (C) 1995, 2001 Free Software Foundation, Inc. | |
3 | |
4 This file is part of the libiberty library. | |
5 Libiberty is free software; you can redistribute it and/or | |
6 modify it under the terms of the GNU Library General Public | |
7 License as published by the Free Software Foundation; either | |
8 version 2 of the License, or (at your option) any later version. | |
9 | |
10 Libiberty is distributed in the hope that it will be useful, | |
11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 Library General Public License for more details. | |
14 | |
15 You should have received a copy of the GNU Library General Public | |
16 License along with libiberty; see the file COPYING.LIB. If | |
17 not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, | |
18 Boston, MA 02110-1301, USA. */ | |
19 | |
20 #include <stdio.h> /* for EOF */ | |
21 #ifdef HAVE_CONFIG_H | |
22 #include "config.h" | |
23 #endif | |
24 #include "libiberty.h" | |
25 #include "safe-ctype.h" /* for HOST_CHARSET_ASCII */ | |
26 | |
27 #if EOF != -1 | |
28 #error "hex.c requires EOF == -1" | |
29 #endif | |
30 | |
31 /* | |
32 | |
33 @deftypefn Extension void hex_init (void) | |
34 | |
35 Initializes the array mapping the current character set to | |
36 corresponding hex values. This function must be called before any | |
37 call to @code{hex_p} or @code{hex_value}. If you fail to call it, a | |
38 default ASCII-based table will normally be used on ASCII systems. | |
39 | |
40 @end deftypefn | |
41 | |
42 @deftypefn Extension int hex_p (int @var{c}) | |
43 | |
44 Evaluates to non-zero if the given character is a valid hex character, | |
45 or zero if it is not. Note that the value you pass will be cast to | |
46 @code{unsigned char} within the macro. | |
47 | |
48 @end deftypefn | |
49 | |
50 @deftypefn Extension {unsigned int} hex_value (int @var{c}) | |
51 | |
52 Returns the numeric equivalent of the given character when interpreted | |
53 as a hexadecimal digit. The result is undefined if you pass an | |
54 invalid hex digit. Note that the value you pass will be cast to | |
55 @code{unsigned char} within the macro. | |
56 | |
57 The @code{hex_value} macro returns @code{unsigned int}, rather than | |
58 signed @code{int}, to make it easier to use in parsing addresses from | |
59 hex dump files: a signed @code{int} would be sign-extended when | |
60 converted to a wider unsigned type --- like @code{bfd_vma}, on some | |
61 systems. | |
62 | |
63 @end deftypefn | |
64 | |
65 @undocumented _hex_array_size | |
66 @undocumented _hex_bad | |
67 @undocumented _hex_value | |
68 | |
69 */ | |
70 | |
71 | |
72 /* Are we ASCII? */ | |
73 #if HOST_CHARSET == HOST_CHARSET_ASCII | |
74 | |
75 const unsigned char _hex_value[_hex_array_size] = | |
76 { | |
77 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* NUL SOH STX ETX */ | |
78 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* EOT ENQ ACK BEL */ | |
79 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* BS HT LF VT */ | |
80 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* FF CR SO SI */ | |
81 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* DLE DC1 DC2 DC3 */ | |
82 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* DC4 NAK SYN ETB */ | |
83 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* CAN EM SUB ESC */ | |
84 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* FS GS RS US */ | |
85 | |
86 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* SP ! " # */ | |
87 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* $ % & ' */ | |
88 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* ( ) * + */ | |
89 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* , - . / */ | |
90 0, 1, 2, 3, /* 0 1 2 3 */ | |
91 4, 5, 6, 7, /* 4 5 6 7 */ | |
92 8, 9, _hex_bad, _hex_bad, /* 8 9 : ; */ | |
93 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* < = > ? */ | |
94 | |
95 _hex_bad, 10, 11, 12, /* @ A B C */ | |
96 13, 14, 15, _hex_bad, /* D E F G */ | |
97 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* H I J K */ | |
98 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* L M N O */ | |
99 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* P Q R S */ | |
100 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* T U V W */ | |
101 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* X Y Z [ */ | |
102 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* \ ] ^ _ */ | |
103 | |
104 _hex_bad, 10, 11, 12, /* ` a b c */ | |
105 13, 14, 15, _hex_bad, /* d e f g */ | |
106 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* h i j k */ | |
107 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* l m n o */ | |
108 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* p q r s */ | |
109 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* t u v w */ | |
110 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* x y z { */ | |
111 _hex_bad, _hex_bad, _hex_bad, _hex_bad, /* | } ~ DEL */ | |
112 | |
113 /* The high half of unsigned char, all values are _hex_bad. */ | |
114 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
115 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
116 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
117 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
118 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
119 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
120 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
121 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
122 | |
123 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
124 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
125 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
126 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
127 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
128 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
129 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
130 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
131 | |
132 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
133 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
134 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
135 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
136 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
137 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
138 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
139 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
140 | |
141 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
142 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
143 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
144 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
145 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
146 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
147 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
148 _hex_bad, _hex_bad, _hex_bad, _hex_bad, | |
149 }; | |
150 #define HEX_TABLE_INITIALIZED | |
151 | |
152 #else | |
153 | |
154 unsigned char _hex_value[_hex_array_size]; | |
155 | |
156 #endif /* not ASCII */ | |
157 | |
158 void | |
159 hex_init (void) | |
160 { | |
161 #ifndef HEX_TABLE_INITIALIZED | |
162 int i; | |
163 | |
164 for (i=0; i<_hex_array_size; i++) | |
165 { | |
166 switch (i) | |
167 { | |
168 case '0': _hex_value[i] = 0; break; | |
169 case '1': _hex_value[i] = 1; break; | |
170 case '2': _hex_value[i] = 2; break; | |
171 case '3': _hex_value[i] = 3; break; | |
172 case '4': _hex_value[i] = 4; break; | |
173 case '5': _hex_value[i] = 5; break; | |
174 case '6': _hex_value[i] = 6; break; | |
175 case '7': _hex_value[i] = 7; break; | |
176 case '8': _hex_value[i] = 8; break; | |
177 case '9': _hex_value[i] = 9; break; | |
178 | |
179 case 'a': case 'A': _hex_value[i] = 10; break; | |
180 case 'b': case 'B': _hex_value[i] = 11; break; | |
181 case 'c': case 'C': _hex_value[i] = 12; break; | |
182 case 'd': case 'D': _hex_value[i] = 13; break; | |
183 case 'e': case 'E': _hex_value[i] = 14; break; | |
184 case 'f': case 'F': _hex_value[i] = 15; break; | |
185 | |
186 default: | |
187 _hex_value[i] = _hex_bad; | |
188 break; | |
189 } | |
190 } | |
191 #endif | |
192 } |