src/native/vm/gnu/gnu_classpath_VMSystemProperties.c

   1 /* src/native/vm/gnu/gnu_classpath_VMSystemProperties.c
   2
   3    Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel,
   4    C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
   5    E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
   6    J. Wenninger, Institut f. Computersprachen - TU Wien
   7
   8    This file is part of CACAO.
   9
  10    This program is free software; you can redistribute it and/or
  11    modify it under the terms of the GNU General Public License as
  12    published by the Free Software Foundation; either version 2, or (at
  13    your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful, but
  16    WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18    General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program; if not, write to the Free Software
  22    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  23    02110-1301, USA.
  24
  25    $Id: gnu_classpath_VMSystemProperties.c 7264 2007-01-31 14:05:57Z twisti $
  26
  27 */
  28
  29
  30 #include "config.h"
  31
  32 #include <stdlib.h>
  33 #include <string.h>
  34
  35 #include "vm/types.h"
  36
  37 #include "mm/memory.h"
  38
  39 #include "native/jni.h"
  40 #include "native/include/java_util_Properties.h"
  41
  42 #include "vm/exceptions.h"
  43 #include "vm/properties.h"
  44 #include "vm/vm.h"
  45
  46
  47 /*
  48  * Class:     gnu/classpath/VMSystemProperties
  49  * Method:    preInit
  50  * Signature: (Ljava/util/Properties;)V
  51  */
  52 JNIEXPORT void JNICALL Java_gnu_classpath_VMSystemProperties_preInit(JNIEnv *env, jclass clazz, java_util_Properties *properties)
  53 {
  54         java_objectheader *p;
  55
  56         p = (java_objectheader *) properties;
  57
  58         if (p == NULL) {
  59                 exceptions_throw_nullpointerexception();
  60                 return;
  61         }
  62
  63         /* fill the java.util.Properties object */
  64
  65         properties_system_add_all(p);
  66 }
  67
  68
  69 /*
  70  * Class:     gnu/classpath/VMSystemProperties
  71  * Method:    postInit
  72  * Signature: (Ljava/util/Properties;)V
  73  */
  74 JNIEXPORT void JNICALL Java_gnu_classpath_VMSystemProperties_postInit(JNIEnv *env, jclass clazz, java_util_Properties *properties)
  75 {
  76         java_objectheader *p;
  77 #if defined(WITH_JRE_LAYOUT)
  78         char *path;
  79         s4    len;
  80 #endif
  81
  82         p = (java_objectheader *) properties;
  83
  84         if (p == NULL) {
  85                 exceptions_throw_nullpointerexception();
  86                 return;
  87         }
  88
  89         /* post-set some properties */
  90
  91 #if defined(WITH_JRE_LAYOUT)
  92         /* XXX when we do it that way, we can't set these properties on
  93            commandline */
  94
  95         properties_system_add(p, "gnu.classpath.home", cacao_prefix);
  96
  97         len =
  98                 strlen("file://") +
  99                 strlen(cacao_prefix) +
 100                 strlen("/lib") +
 101                 strlen("0");
 102
 103         path = MNEW(char, len);
 104
 105         strcpy(path, "file://");
 106         strcat(path, cacao_prefix);
 107         strcat(path, "/lib");
 108
 109         properties_system_add(p, "gnu.classpath.home.url", path);
 110
 111         MFREE(path, char, len);
 112 #endif
 113 }
 114
 115
 116 /*
 117  * These are local overrides for various environment variables in Emacs.
 118  * Please do not remove this and leave it at the end of the file, where
 119  * Emacs will automagically detect them.
 120  * ---------------------------------------------------------------------
 121  * Local variables:
 122  * mode: c
 123  * indent-tabs-mode: t
 124  * c-basic-offset: 4
 125  * tab-width: 4
 126  * End:
 127  */