* include/jvm.h: Declare _Jv_RegisterResource.

        * gnu/gcj/Core.java, gnu/gcj/natCore.cc,
        gnu/gcj/protocol/core/Connection.java,
        gnu/gcj/protocol/core/Handler.java,
        gnu/gcj/protocol/core/CoreInputStream.java,
        gnu/gcj/protocol/core/natCoreInputStream.cc: New files.
        * java/net/URL.java (setURLStreamHandler): Use
        gnu.gcj.protocol.core.Handler for the core protocol.
        * gnu/gcj/runtime/VMClassLoader.java (init): Add "core:/" to the
        end of java.class.path.
        * Makefile.am (ordinary_java_source_files): Add new java files.
        (nat_source_files): Add new native code files.
        * Makefile.in: Rebuilt.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@45450 138bc75d-0d04-0410-961f-82ee72b054a4

7 files changed, 431 insertions, 0 deletions

diff --git a/libjava/gnu/gcj/Core.java b/libjava/gnu/gcj/Core.java
new file mode 100644
index 00000000000..15a7e5c1255
--- /dev/null
+++ b/libjava/gnu/gcj/Core.java
@@ -0,0 +1,18 @@
+/* Copyright (C) 2001  Free Software Foundation
+
+   This file is part of libgcj.
+
+This software is copyrighted work licensed under the terms of the
+Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
+details.  */
+
+package gnu.gcj;
+
+public class Core
+{
+  public native static Core create (String name) throws java.io.IOException;
+
+  public RawData ptr;
+  public int length;
+}
+
diff --git a/libjava/gnu/gcj/natCore.cc b/libjava/gnu/gcj/natCore.cc
new file mode 100644
index 00000000000..8e7a0240527
--- /dev/null
+++ b/libjava/gnu/gcj/natCore.cc
@@ -0,0 +1,82 @@
+// natCore -- C++ side of Core
+
+/* Copyright (C) 2001  Free Software Foundation
+
+   This file is part of libgcj.
+
+This software is copyrighted work licensed under the terms of the
+Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
+details.  */
+
+/* Author: Anthony Green <green@redhat.com>.  */
+
+#include <config.h>
+
+#include <gcj/cni.h>
+#include <jvm.h>
+#include <string.h>
+#include <stdlib.h>
+
+#include <java/lang/NullPointerException.h>
+#include <java/io/IOException.h>
+#include <gnu/gcj/Core.h>
+
+typedef struct core_chain_struct
+{
+  int name_length;
+  const char *name;
+  int data_length;
+  const void *data;
+  
+  struct core_chain_struct *next;
+} core_chain;
+
+static core_chain *root;
+
+void _Jv_RegisterResource (void *vptr)
+{
+  char *rptr = (char *)vptr;
+
+  // These are permanent data structures for now.  This routine is
+  // called from a static constructor, so we shouldn't depend on too
+  // much existing infrastructure.
+  core_chain *cc = (core_chain *) malloc (sizeof (core_chain));
+
+  cc->name_length = ((int *)rptr)[0];
+  cc->data_length = ((int *)rptr)[1];
+  cc->name = rptr + 2*sizeof(int);
+  cc->data = cc->name + cc->name_length;
+
+  // Add this new item to the chain...
+  core_chain *old_root = root;
+  cc->next = old_root;
+  root = cc;
+}
+
+gnu::gcj::Core *
+gnu::gcj::Core::create (jstring name)
+{
+  char buf[name->length() + 1];
+  jsize total = JvGetStringUTFRegion (name, 0, name->length(), buf);
+  buf[total] = '\0';
+
+  core_chain *node = root;
+
+  while (node)
+    {
+      if (total == node->name_length
+	  && strncmp (buf, node->name, total) == 0)
+	{
+	  gnu::gcj::Core *core = 
+	    (gnu::gcj::Core *) _Jv_AllocObject(&gnu::gcj::Core::class$,
+					       sizeof (gnu::gcj::Core));
+	  core->ptr = (gnu::gcj::RawData *) node->data;
+	  core->length = node->data_length;
+	  return core;
+	}
+      else
+	node = node->next;
+    }
+
+  throw new java::io::IOException (JvNewStringLatin1 ("can't open core"));
+}
diff --git a/libjava/gnu/gcj/protocol/core/Connection.java b/libjava/gnu/gcj/protocol/core/Connection.java
new file mode 100644
index 00000000000..6513e336214
--- /dev/null
+++ b/libjava/gnu/gcj/protocol/core/Connection.java
@@ -0,0 +1,154 @@
+// Connection.java - Implementation of URLConnection for core protocol.
+
+/* Copyright (C) 2001  Free Software Foundation
+
+   This file is part of libgcj.
+
+This software is copyrighted work licensed under the terms of the
+Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
+details.  */
+
+package gnu.gcj.protocol.core;
+
+import gnu.gcj.Core;
+import java.net.*;
+import java.io.*;
+import java.util.Vector;
+import java.util.Hashtable;
+import java.util.Enumeration;
+
+/**
+ * @author Anthony Green <green@redhat.com>
+ * @date August 13, 2001
+ */
+
+class Connection extends URLConnection
+{
+  private Hashtable hdrHash = new Hashtable();
+  private Vector hdrVec = new Vector();
+  private boolean gotHeaders = false;
+
+  private Core core;
+
+  public Connection(URL url)
+  {
+    super(url);
+  }
+
+  // Implementation of abstract method.
+  public void connect() throws IOException
+  {
+    // Call is ignored if already connected.
+    if (connected)
+      return;
+
+    // If not connected, then file needs to be opened.
+    core = Core.create (url.getFile());
+    connected = true;
+  }
+
+  public InputStream getInputStream() throws IOException
+  {
+    if (!connected)
+      connect();
+
+    if (! doInput)
+      throw new ProtocolException("Can't open InputStream if doInput is false");
+    return new BufferedInputStream(new CoreInputStream (core));
+  }
+
+  // Override default method in URLConnection.
+  public String getHeaderField(String name)
+  {
+    try
+      {
+	getHeaders();
+      }
+    catch (IOException x)
+      {
+	return null;
+      }
+    return (String) hdrHash.get(name.toLowerCase());
+  }
+
+  // Override default method in URLConnection.
+  public String getHeaderField(int n)
+  {
+    try
+      {
+	getHeaders();
+      }
+    catch (IOException x)
+      {
+	return null;
+      }
+    if (n < hdrVec.size())
+      return getField((String) hdrVec.elementAt(n));
+
+    return null;
+  }
+
+  // Override default method in URLConnection.
+  public String getHeaderFieldKey(int n)
+  {
+    try
+      {
+	getHeaders();
+      }
+    catch (IOException x)
+      {
+	return null;
+      }
+    if (n < hdrVec.size())
+      return getKey((String) hdrVec.elementAt(n));
+
+    return null;
+  }
+
+  private String getKey(String str)
+  {
+    if (str == null)
+      return null;
+    int index = str.indexOf(':');
+    if (index >= 0)
+      return str.substring(0, index);
+    else
+      return null;
+  }
+
+  private String getField(String str)
+  {
+    if (str == null)
+      return null;
+    int index = str.indexOf(':');
+    if (index >= 0)
+      return str.substring(index + 1).trim();
+    else
+      return str;
+  }
+
+  private void getHeaders() throws IOException
+  {
+    if (gotHeaders)
+      return;
+    gotHeaders = true;
+
+    connect();
+
+    // Yes, it is overkill to use the hash table and vector here since
+    // we're only putting one header in the file, but in case we need
+    // to add others later and for consistency, we'll implement it this way.
+
+    // Add the only header we know about right now:  Content-length.
+    long len = core.length;
+    String line = "Content-length: " + len;
+    hdrVec.addElement(line);
+
+    // The key will never be null in this scenario since we build up the
+    // headers ourselves.  If we ever rely on getting a header from somewhere
+    // else, then we may have to check if the result of getKey() is null.
+    String key = getKey(line);
+    hdrHash.put(key.toLowerCase(), Long.toString(len));
+  }
+}
+
diff --git a/libjava/gnu/gcj/protocol/core/CoreInputStream.java b/libjava/gnu/gcj/protocol/core/CoreInputStream.java
new file mode 100644
index 00000000000..3dd0524f162
--- /dev/null
+++ b/libjava/gnu/gcj/protocol/core/CoreInputStream.java
@@ -0,0 +1,89 @@
+// Handler.java - URLStreamHandler for core protocol.
+
+/* Copyright (C) 2001  Free Software Foundation
+
+   This file is part of libgcj.
+
+This software is copyrighted work licensed under the terms of the
+Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
+details.  */
+
+package gnu.gcj.protocol.core;
+
+import java.io.*;
+import gnu.gcj.Core;
+import gnu.gcj.RawData;
+
+public class CoreInputStream extends InputStream
+{
+  /* A pointer to the object in memory.  */
+  protected RawData ptr;
+
+  /* Position of the next byte in core to be read. */
+  protected int pos;
+
+  /* The currently marked position in the stream. */
+  protected int mark;
+
+  /* The index in core one greater than the last valid character. */
+  protected int count;
+
+  private native int unsafeGetByte (long offset);
+  private native int copyIntoByteArray (byte[] dest, int offset, int numBytes);
+
+  public CoreInputStream (Core core)
+  {
+    ptr = core.ptr;
+    count = core.length;
+  }
+
+  public synchronized int available()
+  {
+    return count - pos;
+  }
+
+  public synchronized void mark(int readAheadLimit)
+  {
+    // readAheadLimit is ignored per Java Class Lib. book, p.220.
+    mark = pos;
+  }
+
+  public boolean markSupported()
+  {
+    return true;
+  }
+
+  public synchronized int read()
+  {
+    if (pos < count)
+      return ((int) unsafeGetByte(pos++)) & 0xFF;
+    return -1;
+  }
+
+  public synchronized int read(byte[] b, int off, int len)
+  {
+    if (pos >= count)
+      return -1;
+
+    int numBytes = Math.min(count - pos, len);
+    copyIntoByteArray (b, off, numBytes);
+    pos += numBytes;
+    return numBytes;
+  }
+
+  public synchronized void reset()
+  {
+    pos = mark;
+  }
+
+  public synchronized long skip(long n)
+  {
+    // Even though the var numBytes is a long, in reality it can never
+    // be larger than an int since the result of subtracting 2 positive
+    // ints will always fit in an int.  Since we have to return a long
+    // anyway, numBytes might as well just be a long.
+    long numBytes = Math.min((long) (count - pos), n < 0 ? 0L : n);
+    pos += numBytes;
+    return numBytes;
+  }
+}
diff --git a/libjava/gnu/gcj/protocol/core/Handler.java b/libjava/gnu/gcj/protocol/core/Handler.java
new file mode 100644
index 00000000000..474ae6fdab0
--- /dev/null
+++ b/libjava/gnu/gcj/protocol/core/Handler.java
@@ -0,0 +1,29 @@
+// Handler.java - URLStreamHandler for core protocol.
+
+/* Copyright (C) 2001  Free Software Foundation
+
+   This file is part of libgcj.
+
+This software is copyrighted work licensed under the terms of the
+Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
+details.  */
+
+package gnu.gcj.protocol.core;
+
+import java.net.URL;
+import java.net.URLConnection;
+import java.net.URLStreamHandler;
+import java.io.IOException;
+
+/**
+ * @author Anthony Green <green@redhat.com>
+ * @date August 13, 2001.
+ */
+
+public class Handler extends URLStreamHandler
+{
+  protected URLConnection openConnection(URL url) throws IOException
+  {
+    return new Connection(url);
+  }
+}
diff --git a/libjava/gnu/gcj/protocol/core/natCoreInputStream.cc b/libjava/gnu/gcj/protocol/core/natCoreInputStream.cc
new file mode 100644
index 00000000000..0a61ec074f4
--- /dev/null
+++ b/libjava/gnu/gcj/protocol/core/natCoreInputStream.cc
@@ -0,0 +1,49 @@
+// natCoreInputStream.cc -- C++ side of CoreInputStream
+
+/* Copyright (C) 2001  Free Software Foundation
+
+   This file is part of libgcj.
+
+This software is copyrighted work licensed under the terms of the
+Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
+details.  */
+
+/* Author: Anthony Green <green@redhat.com>.  */
+
+#include <config.h>
+
+#include <gcj/cni.h>
+#include <jvm.h>
+#include <string.h>
+
+#include <java/lang/NullPointerException.h>
+#include <java/lang/ArrayIndexOutOfBoundsException.h>
+#include <gnu/gcj/protocol/core/CoreInputStream.h>
+
+jint
+gnu::gcj::protocol::core::CoreInputStream::unsafeGetByte (jlong offset)
+{
+  return ((char *)ptr)[offset];
+}
+
+jint
+gnu::gcj::protocol::core::CoreInputStream::copyIntoByteArray (jbyteArray dest,
+							      jint offset,
+							      jint numBytes)
+{
+  if (! dest)
+    throw new java::lang::NullPointerException; 
+  jsize destSize = JvGetArrayLength (dest);
+  if (offset < 0 || numBytes < 0 || offset + numBytes < 0
+      || offset + numBytes > destSize
+      || pos + numBytes > count)
+    throw new java::lang::ArrayIndexOutOfBoundsException;
+
+  void *pcore = (void *) &((char*)ptr)[pos];
+  void *pdest = (void *) (elements (dest) + offset);
+
+  memcpy (pdest, pcore, numBytes);
+
+  return 0;
+}
+
diff --git a/libjava/gnu/gcj/runtime/VMClassLoader.java b/libjava/gnu/gcj/runtime/VMClassLoader.java
index 9468d163eb8..77d21606621 100644
--- a/libjava/gnu/gcj/runtime/VMClassLoader.java
+++ b/libjava/gnu/gcj/runtime/VMClassLoader.java
@@ -56,6 +56,16 @@ public final class VMClassLoader extends java.net.URLClassLoader
 	    /* Ignore this path element */
 	  }
       }
+    // Add core:/ to the end of the java.class.path so any resources
+    // compiled into this executable may be found.
+    try
+      {
+	p.addElement (new URL("core", "", -1, "/"));
+      }
+    catch (java.net.MalformedURLException x)
+      {
+	// This should never happen.
+      }
 
     URL[] urls = new URL[p.size()];
     p.copyInto (urls);