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
;
109 /* Only do work if required. */
110 if (resources
== NULL_TREE
)
113 init_name
= get_file_function_name ('I');
114 init_type
= build_function_type (void_type_node
, end_params_node
);
116 init_decl
= build_decl (FUNCTION_DECL
, init_name
, init_type
);
117 DECL_SOURCE_LINE (init_decl
) = 0;
118 SET_DECL_ASSEMBLER_NAME (init_decl
, init_name
);
119 TREE_STATIC (init_decl
) = 1;
120 current_function_decl
= init_decl
;
121 DECL_RESULT (init_decl
) = build_decl (RESULT_DECL
,
122 NULL_TREE
, void_type_node
);
124 /* It can be a static function as long as collect2 does not have
125 to scan the object file to find its ctor/dtor routine. */
126 TREE_PUBLIC (init_decl
) = ! targetm
.have_ctors_dtors
;
129 make_decl_rtl (init_decl
, NULL
);
130 init_function_start (init_decl
);
131 expand_function_start (init_decl
, 0);
133 /* Write out entries in the same order in which they were defined. */
134 for (iter
= nreverse (resources
); iter
!= NULL_TREE
;
135 iter
= TREE_CHAIN (iter
))
137 emit_library_call (registerResource_libfunc
, 0, VOIDmode
, 1,
138 expand_expr (build_address_of (TREE_VALUE (iter
)),
143 input_location
= DECL_SOURCE_LOCATION (init_decl
);
144 expand_function_end ();
147 /* Force generation, even with -O3 or deeper. Gross hack.
149 int saved_flag
= flag_inline_functions
;
150 flag_inline_functions
= 0;
151 rest_of_compilation (init_decl
);
152 flag_inline_functions
= saved_flag
;
154 current_function_decl
= NULL_TREE
;
155 (* targetm
.asm_out
.constructor
) (XEXP (DECL_RTL (init_decl
), 0),
156 DEFAULT_INIT_PRIORITY
);
157 input_location
= saved_loc
;
160 /* Generate a byte array representing the contents of FILENAME. The
161 array is assigned a unique local symbol. The array represents a
162 compiled Java resource, which is accessed by the runtime using
165 compile_resource_file (const char *name
, const char *filename
)
167 struct stat stat_buf
;
171 fd
= open (filename
, O_RDONLY
| O_BINARY
);
174 perror ("Failed to read resource file");
177 if (fstat (fd
, &stat_buf
) != 0
178 || ! S_ISREG (stat_buf
.st_mode
))
180 perror ("Could not figure length of resource file");
183 buffer
= xmalloc (strlen (name
) + stat_buf
.st_size
);
184 strcpy (buffer
, name
);
185 read (fd
, buffer
+ strlen (name
), stat_buf
.st_size
);
188 compile_resource_data (name
, buffer
, stat_buf
.st_size
);
189 write_resource_constructor ();
193 init_resource_processing (void)
195 registerResource_libfunc
=
196 gen_rtx_SYMBOL_REF (Pmode
, "_Jv_RegisterResource");
199 #include "gt-java-resource.h"