libjava/gnu/gcj/runtime/natVMClassLoader.cc

   1 // Native code for VMClassLoader
   2
   3 /* Copyright (C) 2002, 2003, 2005  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
  13 #include <gcj/cni.h>
  14 #include <jvm.h>
  15
  16 #include <gnu/gcj/runtime/VMClassLoader.h>
  17 #include <java/lang/Class.h>
  18 #include <java/lang/StringBuffer.h>
  19 #include <java/net/URLClassLoader.h>
  20 #include <java/lang/Runtime.h>
  21 #include <java/util/HashSet.h>
  22
  23 jclass
  24 gnu::gcj::runtime::VMClassLoader::findClass (jstring name)
  25 {
  26   _Jv_Utf8Const *name_u = _Jv_makeUtf8Const (name);
  27   jclass klass = _Jv_FindClassInCache (name_u);
  28
  29   if (! klass && lib_control != LIB_NEVER)
  30     {
  31       // Turn `gnu.pkg.quux' into `lib-gnu-pkg-quux'.  Then search for
  32       // a module named (eg, on Linux) `lib-gnu-pkg-quux.so', followed
  33       // by `lib-gnu-pkg.so' and `lib-gnu.so'.  If loading one of
  34       // these causes the class to appear in the cache, then use it.
  35       java::lang::StringBuffer *sb = new java::lang::StringBuffer (JvNewStringLatin1("lib-"));
  36       // Skip inner classes
  37       jstring cn;
  38       jint ci = name->indexOf('$');
  39       if (ci == -1)
  40         cn = name;
  41       else
  42         cn = name->substring (0, ci);
  43       jstring so_base_name = (sb->append (cn)->toString ())->replace ('.', '-');
  44
  45       using namespace ::java::lang;
  46       Runtime *rt = Runtime::getRuntime();
  47
  48       // Compare against `3' because that is the length of "lib".
  49       while (! klass && so_base_name && so_base_name->length() > 3)
  50         {
  51           if (lib_control == LIB_CACHE)
  52             {
  53               // If we've already tried this name, we're done.
  54               if (tried_libraries->contains(so_base_name))
  55                 break;
  56               tried_libraries->add(so_base_name);
  57             }
  58
  59           jboolean loaded = rt->loadLibraryInternal (so_base_name);
  60
  61           jint nd = so_base_name->lastIndexOf ('-');
  62           if (nd == -1)
  63             so_base_name = NULL;
  64           else
  65             so_base_name = so_base_name->substring (0, nd);
  66
  67           if (loaded)
  68             klass = _Jv_FindClassInCache (name_u);
  69         }
  70     }
  71
  72   // Either define the package, or try loading using the interpreter.
  73   if (klass)
  74     definePackageForNative(name);
  75   else
  76     klass = java::net::URLClassLoader::findClass (name);
  77
  78   return klass;
  79 }