1 /* Functions related to building resource files.
2 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
3 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC 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 GCC 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 GCC; 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. */
28 #include "coretypes.h"
33 #include "java-tree.h"
45 /* DOS brain-damage */
47 #define O_BINARY 0 /* MS-DOS brain-damage */
50 /* A list of all the resources files. */
51 static GTY(()) tree resources = NULL;
53 /* Function used to register resources. */
54 static GTY(()) rtx registerResource_libfunc;
56 /* Count of all the resources compiled in this invocation. */
57 static int Jr_count = 0;
60 compile_resource_data (const char *name, const char *buffer, int length)
62 tree rtype, field = NULL_TREE, data_type, rinit, data, decl;
65 data_type = build_prim_array_type (unsigned_byte_type_node,
66 strlen (name) + length);
67 rtype = make_node (RECORD_TYPE);
68 PUSH_FIELD (rtype, field, "name_length", unsigned_int_type_node);
69 PUSH_FIELD (rtype, field, "resource_length", unsigned_int_type_node);
70 PUSH_FIELD (rtype, field, "data", data_type);
71 FINISH_RECORD (rtype);
72 START_RECORD_CONSTRUCTOR (rinit, rtype);
73 PUSH_FIELD_VALUE (rinit, "name_length",
74 build_int_2 (strlen (name), 0));
75 PUSH_FIELD_VALUE (rinit, "resource_length",
76 build_int_2 (length, 0));
77 data = build_string (strlen(name) + length, buffer);
78 TREE_TYPE (data) = data_type;
79 PUSH_FIELD_VALUE (rinit, "data", data);
80 FINISH_RECORD_CONSTRUCTOR (rinit);
81 TREE_CONSTANT (rinit) = 1;
83 /* Generate a unique-enough identifier. */
84 sprintf (buf, "_Jr%d", ++Jr_count);
86 decl = build_decl (VAR_DECL, get_identifier (buf), rtype);
87 TREE_STATIC (decl) = 1;
88 DECL_ARTIFICIAL (decl) = 1;
89 DECL_IGNORED_P (decl) = 1;
90 TREE_READONLY (decl) = 1;
91 TREE_THIS_VOLATILE (decl) = 0;
92 DECL_INITIAL (decl) = rinit;
93 layout_decl (decl, 0);
95 rest_of_decl_compilation (decl, (char*) 0, global_bindings_p (), 0);
96 make_decl_rtl (decl, (char*) 0);
97 assemble_variable (decl, 1, 0, 0);
99 resources = tree_cons (NULL_TREE, decl, resources);
103 write_resource_constructor (void)
105 tree init_name, init_type, init_decl;
107 location_t saved_loc = input_location;
108 char *resource_ctor_name;
110 /* Only do work if required. */
111 if (resources == NULL_TREE)
114 resource_ctor_name = concat (IDENTIFIER_POINTER (get_file_function_name ('I')),
116 init_name = get_identifier (resource_ctor_name);
117 free (resource_ctor_name);
118 init_type = build_function_type (void_type_node, end_params_node);
120 init_decl = build_decl (FUNCTION_DECL, init_name, init_type);
121 DECL_SOURCE_LINE (init_decl) = 0;
122 SET_DECL_ASSEMBLER_NAME (init_decl, init_name);
123 TREE_STATIC (init_decl) = 1;
124 current_function_decl = init_decl;
125 DECL_RESULT (init_decl) = build_decl (RESULT_DECL,
126 NULL_TREE, void_type_node);
128 /* It can be a static function as long as collect2 does not have
129 to scan the object file to find its ctor/dtor routine. */
130 TREE_PUBLIC (init_decl) = ! targetm.have_ctors_dtors;
132 /* Suppress spurious warnings. */
133 TREE_USED (init_decl) = 1;
136 make_decl_rtl (init_decl, NULL);
137 init_function_start (init_decl);
138 expand_function_start (init_decl, 0);
140 /* Write out entries in the same order in which they were defined. */
141 for (iter = nreverse (resources); iter != NULL_TREE;
142 iter = TREE_CHAIN (iter))
144 emit_library_call (registerResource_libfunc, 0, VOIDmode, 1,
145 expand_expr (build_address_of (TREE_VALUE (iter)),
150 input_location = DECL_SOURCE_LOCATION (init_decl);
151 expand_function_end ();
154 /* Force generation, even with -O3 or deeper. Gross hack.
156 int saved_flag = flag_inline_functions;
157 flag_inline_functions = 0;
158 rest_of_compilation (init_decl);
159 flag_inline_functions = saved_flag;
161 current_function_decl = NULL_TREE;
162 if (targetm.have_ctors_dtors)
163 targetm.asm_out.constructor (XEXP (DECL_RTL (init_decl), 0),
164 DEFAULT_INIT_PRIORITY);
165 input_location = saved_loc;
168 /* Generate a byte array representing the contents of FILENAME. The
169 array is assigned a unique local symbol. The array represents a
170 compiled Java resource, which is accessed by the runtime using
173 compile_resource_file (const char *name, const char *filename)
175 struct stat stat_buf;
179 fd = open (filename, O_RDONLY | O_BINARY);
182 perror ("Failed to read resource file");
185 if (fstat (fd, &stat_buf) != 0
186 || ! S_ISREG (stat_buf.st_mode))
188 perror ("Could not figure length of resource file");
191 buffer = xmalloc (strlen (name) + stat_buf.st_size);
192 strcpy (buffer, name);
193 read (fd, buffer + strlen (name), stat_buf.st_size);
196 compile_resource_data (name, buffer, stat_buf.st_size);
197 write_resource_constructor ();
201 init_resource_processing (void)
203 registerResource_libfunc =
204 gen_rtx_SYMBOL_REF (Pmode, "_Jv_RegisterResource");
207 #include "gt-java-resource.h"