gcc/java/resource.c

   1 /* Functions related to building resource files.
   2    Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
   3    Free Software Foundation, Inc.
   4
   5 This file is part of GCC.
   6
   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)
  10 any later version.
  11
  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.
  16
  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.
  21
  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.  */
  25
  26 #include "config.h"
  27 #include "system.h"
  28 #include "coretypes.h"
  29 #include "tm.h"
  30 #include "tree.h"
  31 #include "rtl.h"
  32 #include "flags.h"
  33 #include "java-tree.h"
  34 #include "jcf.h"
  35 #include "obstack.h"
  36 #include "toplev.h"
  37 #include "output.h"
  38 #include "parse.h"
  39 #include "function.h"
  40 #include "ggc.h"
  41 #include "stdio.h"
  42 #include "target.h"
  43 #include "expr.h"
  44
  45 /* DOS brain-damage */
  46 #ifndef O_BINARY
  47 #define O_BINARY 0 /* MS-DOS brain-damage */
  48 #endif
  49
  50 /* A list of all the resources files.  */
  51 static GTY(()) tree resources = NULL;
  52
  53 /* Function used to register resources.  */
  54 static GTY(()) rtx registerResource_libfunc;
  55
  56 /* Count of all the resources compiled in this invocation.  */
  57 static int Jr_count = 0;
  58
  59 void
  60 compile_resource_data (const char *name, const char *buffer, int length)
  61 {
  62   tree rtype, field = NULL_TREE, data_type, rinit, data, decl;
  63   char buf[60];
  64
  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;
  82   TREE_INVARIANT (rinit) = 1;
  83
  84   /* Generate a unique-enough identifier.  */
  85   sprintf (buf, "_Jr%d", ++Jr_count);
  86
  87   decl = build_decl (VAR_DECL, get_identifier (buf), rtype);
  88   TREE_STATIC (decl) = 1;
  89   DECL_ARTIFICIAL (decl) = 1;
  90   DECL_IGNORED_P (decl) = 1;
  91   TREE_READONLY (decl) = 1;
  92   TREE_THIS_VOLATILE (decl) = 0;
  93   DECL_INITIAL (decl) = rinit;
  94   layout_decl (decl, 0);
  95   pushdecl (decl);
  96   rest_of_decl_compilation (decl, (char*) 0, global_bindings_p (), 0);
  97   make_decl_rtl (decl, (char*) 0);
  98   assemble_variable (decl, 1, 0, 0);
  99
 100   resources = tree_cons (NULL_TREE, decl, resources);
 101 }
 102
 103 void
 104 write_resource_constructor (void)
 105 {
 106   tree init_name, init_type, init_decl;
 107   tree iter;
 108   location_t saved_loc = input_location;
 109   char *resource_ctor_name;
 110
 111   /* Only do work if required.  */
 112   if (resources == NULL_TREE)
 113     return;
 114
 115   resource_ctor_name = concat (IDENTIFIER_POINTER (get_file_function_name ('I')),
 116                                "_resource", NULL);
 117   init_name = get_identifier (resource_ctor_name);
 118   free (resource_ctor_name);
 119   init_type = build_function_type (void_type_node, end_params_node);
 120
 121   init_decl = build_decl (FUNCTION_DECL, init_name, init_type);
 122   DECL_SOURCE_LINE (init_decl) = 0;
 123   SET_DECL_ASSEMBLER_NAME (init_decl, init_name);
 124   TREE_STATIC (init_decl) = 1;
 125   current_function_decl = init_decl;
 126   DECL_RESULT (init_decl) = build_decl (RESULT_DECL,
 127                                         NULL_TREE, void_type_node);
 128
 129   /* It can be a static function as long as collect2 does not have
 130      to scan the object file to find its ctor/dtor routine.  */
 131   TREE_PUBLIC (init_decl) = ! targetm.have_ctors_dtors;
 132
 133   /* Suppress spurious warnings.  */
 134   TREE_USED (init_decl) = 1;
 135
 136   pushlevel (0);
 137   make_decl_rtl (init_decl, NULL);
 138   init_function_start (init_decl);
 139   expand_function_start (init_decl, 0);
 140
 141   /* Write out entries in the same order in which they were defined.  */
 142   for (iter = nreverse (resources); iter != NULL_TREE;
 143        iter = TREE_CHAIN (iter))
 144     {
 145       emit_library_call (registerResource_libfunc, 0, VOIDmode, 1,
 146                          expand_expr (build_address_of (TREE_VALUE (iter)),
 147                                       0, Pmode, 0),
 148                          Pmode);
 149     }
 150
 151   input_location = DECL_SOURCE_LOCATION (init_decl);
 152   expand_function_end ();
 153   poplevel (1, 0, 1);
 154
 155   /* rest_of_compilation forces generation even if -finline-functions.  */
 156   rest_of_compilation ();
 157
 158   current_function_decl = NULL_TREE;
 159   if (targetm.have_ctors_dtors)
 160     targetm.asm_out.constructor (XEXP (DECL_RTL (init_decl), 0),
 161                                  DEFAULT_INIT_PRIORITY);
 162   input_location = saved_loc;
 163 }
 164
 165 /* Generate a byte array representing the contents of FILENAME.  The
 166    array is assigned a unique local symbol.  The array represents a
 167    compiled Java resource, which is accessed by the runtime using
 168    NAME.  */
 169 void
 170 compile_resource_file (const char *name, const char *filename)
 171 {
 172   struct stat stat_buf;
 173   int fd;
 174   char *buffer;
 175
 176   fd = open (filename, O_RDONLY | O_BINARY);
 177   if (fd < 0)
 178     {
 179       perror ("Failed to read resource file");
 180       return;
 181     }
 182   if (fstat (fd, &stat_buf) != 0
 183       || ! S_ISREG (stat_buf.st_mode))
 184     {
 185       perror ("Could not figure length of resource file");
 186       return;
 187     }
 188   buffer = xmalloc (strlen (name) + stat_buf.st_size);
 189   strcpy (buffer, name);
 190   read (fd, buffer + strlen (name), stat_buf.st_size);
 191   close (fd);
 192
 193   compile_resource_data (name, buffer, stat_buf.st_size);
 194   write_resource_constructor ();
 195 }
 196
 197 void
 198 init_resource_processing (void)
 199 {
 200   registerResource_libfunc =
 201     gen_rtx_SYMBOL_REF (Pmode, "_Jv_RegisterResource");
 202 }
 203
 204 #include "gt-java-resource.h"