libjava/java/lang/natSystem.cc

   1 // natSystem.cc - Native code implementing System class.
   2
   3 /* Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2006 Free Software Foundation
   4
   5    This file is part of libgcj.
   6
   7 This software is copyrighted work licensed under the terms of the
   8 Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
   9 details.  */
  10
  11 #include <config.h>
  12 #include <platform.h>
  13
  14 #include <stdio.h>
  15 #include <string.h>
  16 #include <stdlib.h>
  17
  18 #include <gcj/cni.h>
  19 #include <jvm.h>
  20 #include <java/lang/System.h>
  21 #include <java/lang/Class.h>
  22 #include <java/lang/ArrayStoreException.h>
  23 #include <java/lang/ArrayIndexOutOfBoundsException.h>
  24 #include <java/lang/NullPointerException.h>
  25 #include <java/io/PrintStream.h>
  26 #include <java/io/InputStream.h>
  27
  28 \f
  29
  30 void
  31 java::lang::System::setErr0 (java::io::PrintStream *newErr)
  32 {
  33   err = newErr;
  34 }
  35
  36 void
  37 java::lang::System::setIn0 (java::io::InputStream *newIn)
  38 {
  39   in = newIn;
  40 }
  41
  42 void
  43 java::lang::System::setOut0 (java::io::PrintStream *newOut)
  44 {
  45   out = newOut;
  46 }
  47
  48 void
  49 java::lang::System::arraycopy (jobject src, jint src_offset,
  50                                jobject dst, jint dst_offset,
  51                                jint count)
  52 {
  53   if (! src || ! dst)
  54     throw new NullPointerException;
  55
  56   jclass src_c = src->getClass();
  57   jclass dst_c = dst->getClass();
  58   jclass src_comp = src_c->getComponentType();
  59   jclass dst_comp = dst_c->getComponentType();
  60
  61   if (! src_c->isArray() || ! dst_c->isArray()
  62       || src_comp->isPrimitive() != dst_comp->isPrimitive()
  63       || (src_comp->isPrimitive() && src_comp != dst_comp))
  64     throw new ArrayStoreException;
  65
  66   __JArray *src_a = (__JArray *) src;
  67   __JArray *dst_a = (__JArray *) dst;
  68   if (src_offset < 0 || dst_offset < 0 || count < 0
  69       || (unsigned jint) src_offset > (unsigned jint) src_a->length
  70       || (unsigned jint) (src_offset + count) > (unsigned jint) src_a->length
  71       || (unsigned jint) dst_offset > (unsigned jint) dst_a->length
  72       || (unsigned jint) (dst_offset + count) > (unsigned jint) dst_a->length)
  73     throw new ArrayIndexOutOfBoundsException;
  74
  75   // Do-nothing cases.
  76   if ((src == dst && src_offset == dst_offset)
  77       || ! count)
  78     return;
  79
  80   // If both are primitive, we can optimize trivially.  If DST
  81   // components are always assignable from SRC components, then we
  82   // will never need to raise an error, and thus can do the
  83   // optimization.  If source and destinations are the same, then we
  84   // know that the assignability premise always holds.
  85   const bool prim = src_comp->isPrimitive();
  86   if (prim || dst_comp->isAssignableFrom(src_comp) || src == dst)
  87     {
  88       const size_t size = (prim ? src_comp->size()
  89                            : sizeof elements((jobjectArray)src)[0]);
  90
  91       char *src_elts = _Jv_GetArrayElementFromElementType (src, src_comp);
  92       src_elts += size * src_offset;
  93
  94       char *dst_elts = _Jv_GetArrayElementFromElementType (dst, dst_comp);
  95       dst_elts += size * dst_offset;
  96
  97 #if HAVE_MEMMOVE
  98       // We don't bother trying memcpy.  It can't be worth the cost of
  99       // the check.
 100       // Don't cast to (void*), as memmove may expect (char*)
 101       memmove (dst_elts, src_elts, count * size);
 102 #else
 103       bcopy (src_elts, dst_elts, count * size);
 104 #endif
 105     }
 106   else
 107     {
 108       jobject *src_elts = elements ((jobjectArray) src_a) + src_offset;
 109       jobject *dst_elts = elements ((jobjectArray) dst_a) + dst_offset;
 110
 111       for (int i = 0; i < count; ++i)
 112         {
 113           if (*src_elts
 114               && ! dst_comp->isAssignableFrom((*src_elts)->getClass()))
 115             throw new ArrayStoreException;
 116           *dst_elts++ = *src_elts++;
 117         }
 118     }
 119 }
 120
 121 jlong
 122 java::lang::System::currentTimeMillis (void)
 123 {
 124   return _Jv_platform_gettimeofday ();
 125 }
 126
 127 jlong
 128 java::lang::System::nanoTime ()
 129 {
 130   return _Jv_platform_nanotime ();
 131 }
 132
 133 jint
 134 java::lang::System::identityHashCode (jobject obj)
 135 {
 136   return _Jv_HashCode (obj);
 137 }
 138
 139 jstring
 140 java::lang::System::getenv0 (jstring name)
 141 {
 142   jint len = _Jv_GetStringUTFLength (name);
 143   char buf[len + 1];
 144   jsize total = JvGetStringUTFRegion (name, 0, name->length(), buf);
 145   buf[total] = '\0';
 146   const char *value = ::getenv (buf);
 147   if (value == NULL)
 148     return NULL;
 149   return JvNewStringUTF (value);
 150 }