Use rtx_expr_list for expr_status.x_forced_labels
[official-gcc.git] / gcc / java / resource.c
blob8ae7e4269cd14deb57d2cd3c3fced394f465b904
1 /* Functions related to building resource files.
2 Copyright (C) 1996-2014 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
9 any later version.
11 GCC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>.
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. */
24 #include "config.h"
25 #include "system.h"
26 #include "coretypes.h"
27 #include "tree.h"
28 #include "stringpool.h"
29 #include "stor-layout.h"
30 #include "java-tree.h"
31 #include "jcf.h"
32 #include "diagnostic-core.h"
33 #include "toplev.h"
34 #include "parse.h"
35 #include "function.h"
36 #include "ggc.h"
37 #include "tree-iterator.h"
38 #include "cgraph.h"
40 /* A list of all the resources files. */
41 static GTY(()) vec<tree, va_gc> *resources;
43 void
44 compile_resource_data (const char *name, const char *buffer, int length)
46 tree rtype, field = NULL_TREE, data_type, rinit, data, decl;
47 vec<constructor_elt, va_gc> *v = NULL;
49 data_type = build_prim_array_type (unsigned_byte_type_node,
50 strlen (name) + length);
51 rtype = make_node (RECORD_TYPE);
52 PUSH_FIELD (input_location,
53 rtype, field, "name_length", unsigned_int_type_node);
54 PUSH_FIELD (input_location,
55 rtype, field, "resource_length", unsigned_int_type_node);
56 PUSH_FIELD (input_location, rtype, field, "data", data_type);
57 FINISH_RECORD (rtype);
58 START_RECORD_CONSTRUCTOR (v, rtype);
59 PUSH_FIELD_VALUE (v, "name_length",
60 build_int_cst (NULL_TREE, strlen (name)));
61 PUSH_FIELD_VALUE (v, "resource_length",
62 build_int_cst (NULL_TREE, length));
63 data = build_string (strlen(name) + length, buffer);
64 TREE_TYPE (data) = data_type;
65 PUSH_FIELD_VALUE (v, "data", data);
66 FINISH_RECORD_CONSTRUCTOR (rinit, v, rtype);
67 TREE_CONSTANT (rinit) = 1;
69 decl = build_decl (input_location,
70 VAR_DECL, java_mangle_resource_name (name), rtype);
71 TREE_STATIC (decl) = 1;
72 TREE_PUBLIC (decl) = 1;
73 java_hide_decl (decl);
74 DECL_ARTIFICIAL (decl) = 1;
75 DECL_IGNORED_P (decl) = 1;
76 TREE_READONLY (decl) = 1;
77 TREE_THIS_VOLATILE (decl) = 0;
78 DECL_INITIAL (decl) = rinit;
79 layout_decl (decl, 0);
80 pushdecl (decl);
81 rest_of_decl_compilation (decl, global_bindings_p (), 0);
82 varpool_node::finalize_decl (decl);
84 vec_safe_push (resources, decl);
87 void
88 write_resource_constructor (tree *list_p)
90 tree decl, t, register_resource_fn;
91 unsigned ix;
93 if (resources == NULL)
94 return;
96 t = build_function_type_list (void_type_node, ptr_type_node, NULL);
97 t = build_decl (input_location,
98 FUNCTION_DECL, get_identifier ("_Jv_RegisterResource"), t);
99 TREE_PUBLIC (t) = 1;
100 DECL_EXTERNAL (t) = 1;
101 register_resource_fn = t;
103 /* Write out entries in the same order in which they were defined. */
104 FOR_EACH_VEC_ELT (*resources, ix, decl)
106 t = build_fold_addr_expr (decl);
107 t = build_call_expr (register_resource_fn, 1, t);
108 append_to_statement_list (t, list_p);
112 /* Generate a byte array representing the contents of FILENAME. The
113 array is assigned a unique local symbol. The array represents a
114 compiled Java resource, which is accessed by the runtime using
115 NAME. */
116 void
117 compile_resource_file (const char *name, const char *filename)
119 struct stat stat_buf;
120 int fd;
121 char *buffer;
123 fd = open (filename, O_RDONLY | O_BINARY);
124 if (fd < 0)
126 perror ("Failed to read resource file");
127 return;
129 if (fstat (fd, &stat_buf) != 0
130 || ! S_ISREG (stat_buf.st_mode))
132 perror ("Could not figure length of resource file");
133 return;
135 buffer = XNEWVEC (char, strlen (name) + stat_buf.st_size);
136 strcpy (buffer, name);
137 read (fd, buffer + strlen (name), stat_buf.st_size);
138 close (fd);
140 compile_resource_data (name, buffer, stat_buf.st_size);
143 #include "gt-java-resource.h"