]>
Commit | Line | Data |
---|---|---|
e04a16fb AG |
1 | /* Utility macros to read Java(TM) .class files and byte codes. |
2 | ||
9caaf519 | 3 | Copyright (C) 1996, 97-98, 1999 Free Software Foundation, Inc. |
e04a16fb AG |
4 | |
5 | This program is free software; you can redistribute it and/or modify | |
6 | it under the terms of the GNU General Public License as published by | |
7 | the Free Software Foundation; either version 2, or (at your option) | |
8 | any later version. | |
9 | ||
10 | This program 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 | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with GNU CC; see the file COPYING. If not, write to | |
17 | the Free Software Foundation, 59 Temple Place - Suite 330, | |
18 | Boston, MA 02111-1307, USA. | |
19 | ||
20 | Java and all Java-based marks are trademarks or registered trademarks | |
21 | of Sun Microsystems, Inc. in the United States and other countries. | |
22 | The Free Software Foundation is independent of Sun Microsystems, Inc. */ | |
23 | ||
24 | /* Written by Per Bothner <bothner@cygnus.com>, February 1996. */ | |
25 | ||
26 | #ifndef JCF_H | |
27 | #define JCF_H | |
28 | #include "javaop.h" | |
29 | #ifndef DEFUN | |
30 | #if defined (__STDC__) | |
31 | #define AND , | |
32 | #define PTR void * | |
33 | #define DEFUN(name, arglist, args) name(args) | |
34 | #else | |
35 | #define PTR char * | |
36 | #define AND ; | |
37 | #define DEFUN(name, arglist, args) name arglist args; | |
e04a16fb AG |
38 | #endif |
39 | #endif /* !DEFUN */ | |
40 | ||
41 | #ifndef PROTO | |
42 | #if defined (__STDC__) | |
43 | #define PROTO(paramlist) paramlist | |
44 | #else | |
45 | #define PROTO(paramlist) () | |
46 | #endif | |
47 | #endif | |
48 | ||
49 | #ifndef JCF_u4 | |
50 | #define JCF_u4 unsigned long | |
51 | #endif | |
52 | #ifndef JCF_u2 | |
53 | #define JCF_u2 unsigned short | |
54 | #endif | |
55 | ||
c2e3db92 KG |
56 | #define ALLOC xmalloc |
57 | #define REALLOC xrealloc | |
e04a16fb AG |
58 | #ifndef FREE |
59 | #define FREE(PTR) free(PTR) | |
60 | #endif | |
61 | ||
62 | #ifdef JCF_word | |
63 | #define JCF_word JCF_u4 | |
64 | #endif | |
65 | ||
66 | #define JCF_ZIP 1 | |
67 | #define JCF_CLASS 2 | |
68 | #define JCF_SOURCE 3 | |
69 | ||
70 | struct JCF; | |
71 | typedef int (*jcf_filbuf_t) PROTO ((struct JCF*, int needed)); | |
72 | ||
73 | typedef struct CPool { | |
74 | /* Available number of elements in the constants array, before it | |
75 | must be re-allocated. */ | |
76 | int capacity; | |
77 | ||
78 | /* The constant_pool_count. */ | |
79 | int count; | |
80 | ||
81 | uint8* tags; | |
82 | ||
83 | jword* data; | |
84 | } CPool; | |
85 | ||
86 | /* JCF encapsulates the state of reading a Java Class File. */ | |
87 | ||
88 | typedef struct JCF { | |
89 | unsigned char *buffer; | |
90 | unsigned char *buffer_end; | |
91 | unsigned char *read_ptr; | |
92 | unsigned char *read_end; | |
93 | int seen_in_zip; | |
94 | int java_source; | |
e04a16fb AG |
95 | long zip_offset; |
96 | jcf_filbuf_t filbuf; | |
97 | void *read_state; | |
98 | char *filename; | |
99 | char *classname; | |
100 | void *zipd; /* Directory entry where it was found */ | |
101 | JCF_u2 access_flags, this_class, super_class; | |
102 | CPool cpool; | |
103 | } JCF; | |
104 | /*typedef JCF* JCF_FILE;*/ | |
105 | ||
106 | /* The CPOOL macros take a (pointer to a) CPool. | |
107 | The JPOOL macros take a (pointer to a) JCF. | |
108 | Some of the latter should perhaps be deprecated or removed. */ | |
109 | ||
110 | #define CPOOL_COUNT(CPOOL) ((CPOOL)->count) | |
111 | #define JPOOL_SIZE(JCF) CPOOL_COUNT(&(JCF)->cpool) | |
112 | #define JPOOL_TAG(JCF, INDEX) ((JCF)->cpool.tags[INDEX]) | |
113 | /* The INDEX'th constant pool entry as a JCF_u4. */ | |
114 | #define CPOOL_UINT(CPOOL, INDEX) ((CPOOL)->data[INDEX]) | |
115 | #define JPOOL_UINT(JCF, INDEX) CPOOL_UINT(&(JCF)->cpool, INDEX) /*deprecated*/ | |
116 | /* The first uint16 of the INDEX'th constant pool entry. */ | |
117 | #define CPOOL_USHORT1(CPOOL, INDEX) ((CPOOL)->data[INDEX] & 0xFFFF) | |
118 | #define JPOOL_USHORT1(JCF, INDEX) CPOOL_USHORT1(&(JCF)->cpool, INDEX) | |
119 | /* The second uint16 of the INDEX'th constant pool entry. */ | |
120 | #define CPOOL_USHORT2(CPOOL, INDEX) ((CPOOL)->data[INDEX] >> 16) | |
121 | #define JPOOL_USHORT2(JCF, INDEX) CPOOL_USHORT2(&(JCF)->cpool, INDEX) | |
122 | #define JPOOL_LONG(JCF, INDEX) \ | |
123 | WORDS_TO_LONG (JPOOL_UINT(JCF, INDEX), JPOOL_UINT(JCF, (INDEX)+1)) | |
124 | #define JPOOL_DOUBLE(JCF, INDEX) \ | |
125 | WORDS_TO_DOUBLE (JPOOL_UINT(JCF, INDEX), JPOOL_UINT(JCF, (INDEX)+1)) | |
126 | #ifndef JPOOL_UTF_LENGTH | |
127 | #define JPOOL_UTF_LENGTH(JCF, INDEX) \ | |
128 | GET_u2 ((JCF)->buffer+JPOOL_UINT(JCF, INDEX)) | |
129 | #endif | |
130 | #ifndef JPOOL_UTF_DATA | |
131 | #define JPOOL_UTF_DATA(JCF, INDEX) \ | |
132 | ((JCF)->buffer+JPOOL_UINT(JCF, INDEX)+2) | |
133 | #endif | |
134 | #define JPOOL_INT(JCF, INDEX) ((jint) JPOOL_UINT (JCF, INDEX)) | |
135 | #define JPOOL_FLOAT(JCF, INDEX) WORD_TO_FLOAT (JPOOL_UINT (JCF, INDEX)) | |
136 | ||
137 | #define CPOOL_INDEX_IN_RANGE(CPOOL, INDEX) \ | |
138 | ((INDEX) > 0 && (INDEX) < CPOOL_COUNT(CPOOL)) | |
139 | ||
140 | #define CPOOL_FINISH(CPOOL) { \ | |
141 | if ((CPOOL)->tags) FREE ((CPOOL)->tags); \ | |
142 | if ((CPOOL)->data) FREE ((CPOOL)->data); } | |
143 | ||
144 | #define JCF_FINISH(JCF) { \ | |
145 | CPOOL_FINISH(&(JCF)->cpool); \ | |
146 | if ((JCF)->buffer) FREE ((JCF)->buffer); \ | |
147 | if ((JCF)->filename) FREE ((JCF)->filename); \ | |
148 | if ((JCF)->classname) FREE ((JCF)->classname); } | |
149 | ||
150 | #define CPOOL_INIT(CPOOL) \ | |
151 | ((CPOOL)->capacity = 0, (CPOOL)->count = 0, (CPOOL)->tags = 0, (CPOOL)->data = 0) | |
152 | ||
153 | #define CPOOL_REINIT(CPOOL) ((CPOOL)->count = 0) | |
154 | ||
155 | #define JCF_ZERO(JCF) \ | |
156 | ((JCF)->buffer = (JCF)->buffer_end = (JCF)->read_ptr = (JCF)->read_end = 0,\ | |
157 | (JCF)->read_state = 0, (JCF)->filename = (JCF)->classname = 0, \ | |
158 | CPOOL_INIT(&(JCF)->cpool), (JCF)->java_source = 0) | |
159 | ||
160 | /* Given that PTR points to a 2-byte unsigned integer in network | |
161 | (big-endian) byte-order, return that integer. */ | |
162 | #define GET_u2(PTR) (((PTR)[0] << 8) | ((PTR)[1])) | |
163 | /* Like GET_u2, but for little-endian format. */ | |
164 | #define GET_u2_le(PTR) (((PTR)[1] << 8) | ((PTR)[0])) | |
165 | ||
166 | /* Given that PTR points to a 4-byte unsigned integer in network | |
167 | (big-endian) byte-order, return that integer. */ | |
168 | #define GET_u4(PTR) (((JCF_u4)(PTR)[0] << 24) | ((JCF_u4)(PTR)[1] << 16) \ | |
169 | | ((JCF_u4)(PTR)[2] << 8) | ((JCF_u4)(PTR)[3])) | |
170 | /* Like GET_u4, but for little-endian order. */ | |
171 | #define GET_u4_le(PTR) (((JCF_u4)(PTR)[3] << 24) | ((JCF_u4)(PTR)[2] << 16) \ | |
172 | | ((JCF_u4)(PTR)[1] << 8) | ((JCF_u4)(PTR)[0])) | |
173 | ||
174 | /* Make sure there are COUNT bytes readable. */ | |
175 | #define JCF_FILL(JCF, COUNT) \ | |
176 | ((JCF)->read_end-(JCF)->read_ptr >= (COUNT) ? 0 : (*(JCF)->filbuf)(JCF, COUNT)) | |
177 | #define JCF_GETC(JCF) (JCF_FILL(JCF, 1) ? -1 : *(JCF)->read_ptr++) | |
178 | #define JCF_READ(JCF, BUFFER, N) \ | |
179 | (memcpy (BUFFER, (JCF)->read_ptr, N), (JCF)->read_ptr += (N)) | |
180 | #define JCF_SKIP(JCF,N) ((JCF)->read_ptr += (N)) | |
181 | #define JCF_readu(JCF) (*(JCF)->read_ptr++) | |
182 | ||
183 | /* Reads an unsigned 2-byte integer in network (big-endian) byte-order | |
184 | from JCF. Returns that integer. | |
185 | Does not check for EOF (make sure to call JCF_FILL before-hand). */ | |
186 | #define JCF_readu2(JCF) ((JCF)->read_ptr += 2, GET_u2 ((JCF)->read_ptr-2)) | |
187 | #define JCF_readu2_le(JCF) ((JCF)->read_ptr += 2, GET_u2_le((JCF)->read_ptr-2)) | |
188 | ||
189 | /* Like JCF_readu2, but read a 4-byte unsigned integer. */ | |
190 | #define JCF_readu4(JCF) ((JCF)->read_ptr += 4, GET_u4 ((JCF)->read_ptr-4)) | |
191 | #define JCF_readu4_le(JCF) ((JCF)->read_ptr += 4, GET_u4_le((JCF)->read_ptr-4)) | |
192 | ||
193 | #define JCF_TELL(JCF) ((JCF)->read_ptr - (JCF)->buffer) | |
194 | #define JCF_SEEK(JCF, POS) ((JCF)->read_ptr = (JCF)->buffer + (POS)) | |
195 | ||
196 | #define ACC_PUBLIC 0x0001 | |
197 | #define ACC_PRIVATE 0x0002 | |
198 | #define ACC_PROTECTED 0x0004 | |
199 | #define ACC_STATIC 0x0008 | |
200 | #define ACC_FINAL 0x0010 | |
201 | #define ACC_SYNCHRONIZED 0x0020 | |
202 | #define ACC_SUPER 0x0020 | |
203 | #define ACC_VOLATILE 0x0040 | |
204 | #define ACC_TRANSIENT 0x0080 | |
205 | #define ACC_NATIVE 0x0100 | |
206 | #define ACC_INTERFACE 0x0200 | |
207 | #define ACC_ABSTRACT 0x0400 | |
208 | ||
209 | #define CONSTANT_Class 7 | |
210 | #define CONSTANT_Fieldref 9 | |
211 | #define CONSTANT_Methodref 10 | |
212 | #define CONSTANT_InterfaceMethodref 11 | |
213 | #define CONSTANT_String 8 | |
214 | #define CONSTANT_Integer 3 | |
215 | #define CONSTANT_Float 4 | |
216 | #define CONSTANT_Long 5 | |
217 | #define CONSTANT_Double 6 | |
218 | #define CONSTANT_NameAndType 12 | |
219 | #define CONSTANT_Utf8 1 | |
220 | #define CONSTANT_Unicode 2 | |
221 | ||
e04a16fb AG |
222 | #define DEFAULT_CLASS_PATH "." |
223 | ||
c8e7d2e6 KG |
224 | extern const char *find_class PROTO ((const char *, int, JCF*, int)); |
225 | extern const char *find_classfile PROTO ((char *, JCF*, const char *)); | |
e04a16fb | 226 | extern int jcf_filbuf_from_stdio PROTO ((JCF *jcf, int count)); |
d593dd8c | 227 | extern int jcf_unexpected_eof PROTO ((JCF*, int)) ATTRIBUTE_NORETURN; |
e04a16fb AG |
228 | |
229 | /* Extract a character from a Java-style Utf8 string. | |
230 | * PTR points to the current character. | |
231 | * LIMIT points to the end of the Utf8 string. | |
232 | * PTR is incremented to point after the character thta gets returns. | |
233 | * On an error, -1 is returned. */ | |
234 | #define UTF8_GET(PTR, LIMIT) \ | |
235 | ((PTR) >= (LIMIT) ? -1 \ | |
236 | : *(PTR) < 128 ? *(PTR)++ \ | |
237 | : (*(PTR)&0xE0) == 0xC0 && ((PTR)+=2)<=(LIMIT) && ((PTR)[-1]&0xC0) == 0x80 \ | |
238 | ? (((PTR)[-2] & 0x1F) << 6) + ((PTR)[-1] & 0x3F) \ | |
239 | : (*(PTR) & 0xF0) == 0xE0 && ((PTR) += 3) <= (LIMIT) \ | |
240 | && ((PTR)[-2] & 0xC0) == 0x80 && ((PTR)[-1] & 0xC0) == 0x80 \ | |
a3299934 | 241 | ? (((PTR)[-3]&0x0F) << 12) + (((PTR)[-2]&0x3F) << 6) + ((PTR)[-1]&0x3F) \ |
e04a16fb AG |
242 | : ((PTR)++, -1)) |
243 | ||
df66b566 TT |
244 | extern char *jcf_write_base_directory; |
245 | ||
e04a16fb AG |
246 | /* Debug macros, for the front end */ |
247 | ||
248 | extern int quiet_flag; | |
5e942c50 | 249 | #ifdef VERBOSE_SKELETON |
e04a16fb AG |
250 | #undef SOURCE_FRONTEND_DEBUG |
251 | #define SOURCE_FRONTEND_DEBUG(X) \ | |
252 | {if (!quiet_flag) {printf ("* "); printf X; putchar ('\n');} } | |
253 | #else | |
254 | #define SOURCE_FRONTEND_DEBUG(X) | |
255 | #endif | |
256 | ||
fc45c7ef TT |
257 | /* Declarations for dependency code. */ |
258 | extern void jcf_dependency_reset PROTO ((void)); | |
c8e7d2e6 KG |
259 | extern void jcf_dependency_set_target PROTO ((const char *)); |
260 | extern void jcf_dependency_add_target PROTO ((const char *)); | |
8603f9c5 | 261 | extern void jcf_dependency_set_dep_file PROTO ((const char *)); |
fc45c7ef TT |
262 | extern void jcf_dependency_add_file PROTO ((const char *, int)); |
263 | extern void jcf_dependency_write PROTO ((void)); | |
264 | extern void jcf_dependency_init PROTO ((int)); | |
265 | ||
8603f9c5 TT |
266 | /* Declarations for path handling code. */ |
267 | extern void jcf_path_init PROTO ((void)); | |
c8e7d2e6 KG |
268 | extern void jcf_path_classpath_arg PROTO ((const char *)); |
269 | extern void jcf_path_CLASSPATH_arg PROTO ((const char *)); | |
270 | extern void jcf_path_include_arg PROTO ((const char *)); | |
8603f9c5 TT |
271 | extern void jcf_path_seal PROTO ((void)); |
272 | extern void *jcf_path_start PROTO ((void)); | |
273 | extern void *jcf_path_next PROTO ((void *)); | |
274 | extern char *jcf_path_name PROTO ((void *)); | |
275 | extern int jcf_path_is_zipfile PROTO ((void *)); | |
276 | extern int jcf_path_is_system PROTO ((void *)); | |
277 | extern int jcf_path_max_len PROTO ((void)); | |
278 | ||
e04a16fb | 279 | #endif |