1 /* This file read a Java(TM) .class file.
2 It is not stand-alone: It depends on tons of macros, and the
3 intent is you #include this file after you've defined the macros.
5 Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU CC; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA.
22 Java and all Java-based marks are trademarks or registered trademarks
23 of Sun Microsystems, Inc. in the United States and other countries.
24 The Free Software Foundation is independent of Sun Microsystems, Inc. */
29 static int get_attribute
PARAMS ((JCF
*));
30 static int jcf_parse_preamble
PARAMS ((JCF
*));
31 static int jcf_parse_constant_pool
PARAMS ((JCF
*));
32 static void jcf_parse_class
PARAMS ((JCF
*));
33 static int jcf_parse_fields
PARAMS ((JCF
*));
34 static int jcf_parse_one_method
PARAMS ((JCF
*));
35 static int jcf_parse_methods
PARAMS ((JCF
*));
36 static int jcf_parse_final_attributes
PARAMS ((JCF
*));
37 #ifdef NEED_PEEK_ATTRIBUTE
38 static int peek_attribute
PARAMS ((JCF
*, int, const char *, int));
40 #ifdef NEED_SKIP_ATTRIBUTE
41 static void skip_attribute
PARAMS ((JCF
*, int));
44 /* Go through all available attribute (ATTRIBUTE_NUMER) and try to
45 identify PEEKED_NAME. Return 1 if PEEKED_NAME was found, 0
46 otherwise. JCF is restored to its initial position before
49 #ifdef NEED_PEEK_ATTRIBUTE /* Not everyone uses this function */
51 peek_attribute (jcf
, attribute_number
, peeked_name
, peeked_name_length
)
54 const char *peeked_name
;
55 int peeked_name_length
;
58 long absolute_offset
= (long)JCF_TELL (jcf
);
61 for (i
= 0; !to_return
&& i
< attribute_number
; i
++)
63 uint16 attribute_name
= (JCF_FILL (jcf
, 6), JCF_readu2 (jcf
));
64 uint32 attribute_length
= JCF_readu4 (jcf
);
66 const unsigned char *name_data
;
68 JCF_FILL (jcf
, (long) attribute_length
);
69 if (attribute_name
<= 0 || attribute_name
>= JPOOL_SIZE(jcf
)
70 || JPOOL_TAG (jcf
, attribute_name
) != CONSTANT_Utf8
)
73 name_length
= JPOOL_UTF_LENGTH (jcf
, attribute_name
);
74 name_data
= JPOOL_UTF_DATA (jcf
, attribute_name
);
76 if (name_length
== peeked_name_length
77 && ! memcmp (name_data
, peeked_name
, peeked_name_length
))
83 JCF_SKIP (jcf
, attribute_length
);
86 JCF_SEEK (jcf
, absolute_offset
);
91 #ifdef NEED_SKIP_ATTRIBUTE /* Not everyone uses this function */
93 skip_attribute (jcf
, number_of_attribute
)
95 int number_of_attribute
;
97 while (number_of_attribute
--)
100 (void) JCF_readu2 (jcf
);
101 JCF_SKIP (jcf
, JCF_readu4 (jcf
));
107 DEFUN(get_attribute
, (jcf
),
110 uint16 attribute_name
= (JCF_FILL (jcf
, 6), JCF_readu2 (jcf
));
111 uint32 attribute_length
= JCF_readu4 (jcf
);
112 uint32 start_pos
= JCF_TELL(jcf
);
114 const unsigned char *name_data
;
115 JCF_FILL (jcf
, (long) attribute_length
);
116 if (attribute_name
<= 0 || attribute_name
>= JPOOL_SIZE(jcf
))
118 if (JPOOL_TAG (jcf
, attribute_name
) != CONSTANT_Utf8
)
120 name_length
= JPOOL_UTF_LENGTH (jcf
, attribute_name
);
121 name_data
= JPOOL_UTF_DATA (jcf
, attribute_name
);
123 #ifdef IGNORE_ATTRIBUTE
124 if (IGNORE_ATTRIBUTE (jcf
, attribute_name
, attribute_length
))
126 JCF_SKIP (jcf
, attribute_length
);
130 #ifdef HANDLE_SOURCEFILE
131 if (name_length
== 10 && memcmp (name_data
, "SourceFile", 10) == 0)
133 uint16 sourcefile_index
= JCF_readu2 (jcf
);
134 HANDLE_SOURCEFILE(sourcefile_index
);
138 #ifdef HANDLE_CONSTANTVALUE
139 if (name_length
== 13 && memcmp (name_data
, "ConstantValue", 13) == 0)
141 uint16 constantvalue_index
= JCF_readu2 (jcf
);
142 if (constantvalue_index
<= 0 || constantvalue_index
>= JPOOL_SIZE(jcf
))
144 HANDLE_CONSTANTVALUE(constantvalue_index
);
148 #ifdef HANDLE_CODE_ATTRIBUTE
149 if (name_length
== 4 && memcmp (name_data
, "Code", 4) == 0)
152 uint16 max_stack ATTRIBUTE_UNUSED
= JCF_readu2 (jcf
);
153 uint16 max_locals ATTRIBUTE_UNUSED
= JCF_readu2 (jcf
);
154 uint32 code_length
= JCF_readu4 (jcf
);
155 uint16 exception_table_length
, attributes_count
;
156 if (code_length
+ 12 > attribute_length
)
158 HANDLE_CODE_ATTRIBUTE(max_stack
, max_locals
, code_length
);
159 JCF_SKIP (jcf
, code_length
);
160 exception_table_length
= JCF_readu2 (jcf
);
161 if (code_length
+ 8 * exception_table_length
+ 12 > attribute_length
)
163 #ifdef HANDLE_EXCEPTION_TABLE
164 HANDLE_EXCEPTION_TABLE (jcf
->read_ptr
, exception_table_length
);
166 JCF_SKIP (jcf
, 2 * 4 * exception_table_length
);
167 attributes_count
= JCF_readu2 (jcf
);
168 for (j
= 0; j
< attributes_count
; j
++)
170 int code
= get_attribute (jcf
);
176 #endif /* HANDLE_CODE_ATTRIBUTE */
177 #ifdef HANDLE_EXCEPTIONS_ATTRIBUTE
178 if (name_length
== 10 && memcmp (name_data
, "Exceptions", 10) == 0)
180 uint16 count
= JCF_readu2 (jcf
);
181 HANDLE_EXCEPTIONS_ATTRIBUTE (count
);
185 #ifdef HANDLE_LINENUMBERTABLE_ATTRIBUTE
186 if (name_length
== 15 && memcmp (name_data
, "LineNumberTable", 15) == 0)
188 uint16 count
= JCF_readu2 (jcf
);
189 HANDLE_LINENUMBERTABLE_ATTRIBUTE (count
);
193 #ifdef HANDLE_LOCALVARIABLETABLE_ATTRIBUTE
194 if (name_length
== 18 && memcmp (name_data
, "LocalVariableTable", 18) == 0)
196 uint16 count
= JCF_readu2 (jcf
);
197 HANDLE_LOCALVARIABLETABLE_ATTRIBUTE (count
);
201 #ifdef HANDLE_INNERCLASSES_ATTRIBUTE
202 if (name_length
== 12 && memcmp (name_data
, "InnerClasses", 12) == 0)
204 uint16 count
= JCF_readu2 (jcf
);
205 HANDLE_INNERCLASSES_ATTRIBUTE (count
);
209 #ifdef HANDLE_SYNTHETIC_ATTRIBUTE
210 if (name_length
== 9 && memcmp (name_data
, "Synthetic", 9) == 0)
212 HANDLE_SYNTHETIC_ATTRIBUTE ();
217 #ifdef PROCESS_OTHER_ATTRIBUTE
218 PROCESS_OTHER_ATTRIBUTE(jcf
, attribute_name
, attribute_length
);
220 JCF_SKIP (jcf
, attribute_length
);
223 if ((long) (start_pos
+ attribute_length
) != JCF_TELL(jcf
))
228 /* Read and handle the pre-amble. */
230 DEFUN(jcf_parse_preamble
, (jcf
),
233 uint32 magic
= (JCF_FILL (jcf
, 8), JCF_readu4 (jcf
));
234 uint16 minor_version ATTRIBUTE_UNUSED
= JCF_readu2 (jcf
);
235 uint16 major_version ATTRIBUTE_UNUSED
= JCF_readu2 (jcf
);
237 HANDLE_MAGIC (magic
, minor_version
, major_version
);
239 if (magic
!= 0xcafebabe)
245 /* Read and handle the constant pool.
248 Return -2 if a bad cross-reference (index of other constant) was seen.
251 DEFUN(jcf_parse_constant_pool
, (jcf
),
255 JPOOL_SIZE (jcf
) = (JCF_FILL (jcf
, 2), JCF_readu2 (jcf
));
256 jcf
->cpool
.tags
= ALLOC (JPOOL_SIZE (jcf
));
257 jcf
->cpool
.data
= ALLOC (sizeof (jword
) * JPOOL_SIZE (jcf
));
258 jcf
->cpool
.tags
[0] = 0;
259 #ifdef HANDLE_START_CONSTANT_POOL
260 HANDLE_START_CONSTANT_POOL (JPOOL_SIZE (jcf
));
262 for (i
= 1; i
< (int) JPOOL_SIZE (jcf
); i
++)
266 /* Make sure at least 9 bytes are available. This is enough
267 for all fixed-sized constant pool entries (so we don't need many
268 more JCF_FILL calls below), but is is small enough that
269 we are guaranteed to not hit EOF (in a valid .class file). */
271 constant_kind
= JCF_readu (jcf
);
272 jcf
->cpool
.tags
[i
] = constant_kind
;
273 switch (constant_kind
)
275 case CONSTANT_String
:
277 jcf
->cpool
.data
[i
] = JCF_readu2 (jcf
);
279 case CONSTANT_Fieldref
:
280 case CONSTANT_Methodref
:
281 case CONSTANT_InterfaceMethodref
:
282 case CONSTANT_NameAndType
:
283 jcf
->cpool
.data
[i
] = JCF_readu2 (jcf
);
284 jcf
->cpool
.data
[i
] |= JCF_readu2 (jcf
) << 16;
286 case CONSTANT_Integer
:
288 jcf
->cpool
.data
[i
] = JCF_readu4 (jcf
);
291 case CONSTANT_Double
:
292 jcf
->cpool
.data
[i
] = JCF_readu4 (jcf
);
293 i
++; /* These take up two spots in the constant pool */
294 jcf
->cpool
.tags
[i
] = 0;
295 jcf
->cpool
.data
[i
] = JCF_readu4 (jcf
);
298 n
= JCF_readu2 (jcf
);
300 #ifdef HANDLE_CONSTANT_Utf8
301 HANDLE_CONSTANT_Utf8(jcf
, i
, n
);
303 jcf
->cpool
.data
[i
] = JCF_TELL(jcf
) - 2;
314 /* Read various class flags and numbers. */
317 DEFUN(jcf_parse_class
, (jcf
),
321 uint16 interfaces_count
;
323 jcf
->access_flags
= JCF_readu2 (jcf
);
324 jcf
->this_class
= JCF_readu2 (jcf
);
325 jcf
->super_class
= JCF_readu2 (jcf
);
326 interfaces_count
= JCF_readu2 (jcf
);
328 #ifdef HANDLE_CLASS_INFO
329 HANDLE_CLASS_INFO(jcf
->access_flags
, jcf
->this_class
, jcf
->super_class
, interfaces_count
);
332 JCF_FILL (jcf
, 2 * interfaces_count
);
334 /* Read interfaces. */
335 for (i
= 0; i
< interfaces_count
; i
++)
337 uint16 index ATTRIBUTE_UNUSED
= JCF_readu2 (jcf
);
338 #ifdef HANDLE_CLASS_INTERFACE
339 HANDLE_CLASS_INTERFACE (index
);
346 DEFUN(jcf_parse_fields
, (jcf
),
352 fields_count
= JCF_readu2 (jcf
);
354 #ifdef HANDLE_START_FIELDS
355 HANDLE_START_FIELDS (fields_count
);
357 for (i
= 0; i
< fields_count
; i
++)
359 uint16 access_flags
= (JCF_FILL (jcf
, 8), JCF_readu2 (jcf
));
360 uint16 name_index
= JCF_readu2 (jcf
);
361 uint16 signature_index
= JCF_readu2 (jcf
);
362 uint16 attribute_count
= JCF_readu2 (jcf
);
363 #ifdef HANDLE_START_FIELD
364 HANDLE_START_FIELD (access_flags
, name_index
, signature_index
,
367 for (j
= 0; j
< attribute_count
; j
++)
369 int code
= get_attribute (jcf
);
373 #ifdef HANDLE_END_FIELD
377 #ifdef HANDLE_END_FIELDS
378 HANDLE_END_FIELDS ();
386 DEFUN(jcf_parse_one_method
, (jcf
),
390 uint16 access_flags
= (JCF_FILL (jcf
, 8), JCF_readu2 (jcf
));
391 uint16 name_index
= JCF_readu2 (jcf
);
392 uint16 signature_index
= JCF_readu2 (jcf
);
393 uint16 attribute_count
= JCF_readu2 (jcf
);
395 HANDLE_METHOD(access_flags
, name_index
, signature_index
, attribute_count
);
397 for (i
= 0; i
< attribute_count
; i
++)
399 int code
= get_attribute (jcf
);
403 #ifdef HANDLE_END_METHOD
404 HANDLE_END_METHOD ();
410 DEFUN(jcf_parse_methods
, (jcf
),
414 uint16 methods_count
;
416 methods_count
= JCF_readu2 (jcf
);
417 #ifdef HANDLE_START_METHODS
418 HANDLE_START_METHODS (methods_count
);
420 for (i
= 0; i
< methods_count
; i
++)
422 int code
= jcf_parse_one_method (jcf
);
426 #ifdef HANDLE_END_METHODS
427 HANDLE_END_METHODS ();
432 /* Read attributes. */
434 DEFUN(jcf_parse_final_attributes
, (jcf
),
438 uint16 attributes_count
= (JCF_FILL (jcf
, 2), JCF_readu2 (jcf
));
439 #ifdef START_FINAL_ATTRIBUTES
440 START_FINAL_ATTRIBUTES (attributes_count
)
442 for (i
= 0; i
< attributes_count
; i
++)
444 int code
= get_attribute (jcf
);