libtool-version: Catch up by incrementing current.

        * libtool-version: Catch up by incrementing current.

        * configure.host: Disable use of GCJ_PROPERTIES for mips-tx39.
        * configure, include/config.h.in: Rebuilt.
        * acconfig.h (DISABLE_GETENV_PROPERTIES): Undefine.
        * configure.in: Added --disable-getenv-properties and new define
        `DISABLE_GETENV_PROPERTIES'.

        * prims.cc (PROCESS_GCJ_PROPERTIES): Define.
        (next_property_key): New function.
        (next_property_value): New function.
        (process_gcj_properties): New function.
        (JvRunMain): Call process_gcj_properties.
        (_JvRunMain): Ditto.

        * java/lang/natSystem.cc (init_properties): Set properties defined
        in GCJ_PROPERTIES.  Also add 1.2 style versioning properties.

        * include/java-props.h: New file.

        * java/lang/natSystem.cc (init_properties): Add new properties to
        conform with Java Product Versioning Specification.

From-SVN: r30007

libjava/ChangeLog

+1999-10-13  Anthony Green  <green@cygnus.com>
+
+	* libtool-version: Catch up by incrementing current.
+
+	* configure.host: Disable use of GCJ_PROPERTIES for mips-tx39.
+	* configure, include/config.h.in: Rebuilt.
+	* acconfig.h (DISABLE_GETENV_PROPERTIES): Undefine.
+	* configure.in: Added --disable-getenv-properties and new define
+	`DISABLE_GETENV_PROPERTIES'.
+
+	* prims.cc (PROCESS_GCJ_PROPERTIES): Define.
+	(next_property_key): New function.
+	(next_property_value): New function.
+	(process_gcj_properties): New function.
+	(JvRunMain): Call process_gcj_properties.
+	(_JvRunMain): Ditto.
+
+	* java/lang/natSystem.cc (init_properties): Set properties defined
+	in GCJ_PROPERTIES.
+
+	* include/java-props.h: New file.
+
+	* java/lang/natSystem.cc (init_properties): Add new properties to
+	conform with Java Product Versioning Specification.
+
 1999-10-12  Tom Tromey  <tromey@cygnus.com>
 
 	* configure: Rebuilt.

libjava/acconfig.h

@@ -112,3 +112,7 @@
 
 /* Define if java.net native functions should be stubbed out.  */
 #undef DISABLE_JAVA_NET
+
+/* Define if system properties shouldn't be read from
+   getenv("GCJ_PROPERTIES").  */
+#undef DISABLE_GETENV_PROPERTIES

libjava/configure.host

@@ -53,6 +53,7 @@ case "${host}" in
 	# Use "Ecos" processes since they are a no-op.
 	PROCESS=Ecos
  	enable_java_net_default=no
+ 	enable_getenv_properties_default=no
 	;;
   i686-*|i586-*)
 	libgcj_flags="${libgcj_flags} -ffloat-store"

libjava/configure.in

@@ -36,6 +36,20 @@ AC_ARG_ENABLE(fast-character,
 # Nothing
 , AC_DEFINE(COMPACT_CHARACTER))
 
+dnl Should the runtime set system properties by examining the 
+dnl environment variable GCJ_PROPERTIES?
+AC_ARG_ENABLE(getenv-properties,
+[  --disable-getenv-properties
+                          don't set system properties from GCJ_PROPERTIES])
+
+dnl Whether GCJ_PROPERTIES is used depends on the target.
+if test -n "$enable_getenv_properties"; then
+   enable_getenv_properties=${enable_getenv_properties_default-yes}
+fi
+if test "$enable_getenv_properties" = no; then
+   AC_DEFINE(DISABLE_GETENV_PROPERTIES)
+fi
+
 dnl See if the user has requested runtime debugging.
 AC_ARG_ENABLE(libgcj-debug,
 [  --enable-libgcj-debug   enable runtime debugging code],

libjava/include/config.h.in

@@ -128,6 +128,10 @@
 /* Define if java.net native functions should be stubbed out.  */
 #undef DISABLE_JAVA_NET
 
+/* Define if system properties shouldn't be read from
+   getenv("GCJ_PROPERTIES").  */
+#undef DISABLE_GETENV_PROPERTIES
+
 /* Define if you have the access function.  */
 #undef HAVE_ACCESS
 

libjava/include/java-props.h

+// java-props.h - Properties  -*- c++ -*-
+
+#ifndef __JAVA_PROPS_H__
+#define __JAVA_PROPS_H__
+
+typedef struct
+{
+  char *key;
+  size_t      key_length;
+  char *value;
+  size_t      value_length;
+} property_pair;
+
+#endif
+

libjava/java/lang/natSystem.cc

@@ -40,6 +40,7 @@ details.  */
 
 #include <gcj/cni.h>
 #include <jvm.h>
+#include <java-props.h>
 #include <java/lang/System.h>
 #include <java/lang/Class.h>
 #include <java/lang/ArrayStoreException.h>
@@ -52,6 +53,7 @@ details.  */
 #define SystemClass _CL_Q34java4lang6System
 extern java::lang::Class SystemClass;
 
+extern property_pair *_Jv_Environment_Properties;
 
 
 #if defined (ECOS)
@@ -274,10 +276,23 @@ java::lang::System::init_properties (void)
   // A convenience define.
 #define SET(Prop,Val) \
 	properties->put(JvNewStringLatin1 (Prop), JvNewStringLatin1 (Val))
+
+  // A mixture of the Java Product Versioning Specification
+  // (introduced in 1.2), and earlier versioning properties.
   SET ("java.version", VERSION);
   SET ("java.vendor", "Cygnus Solutions");
   SET ("java.vendor.url", "http://sourceware.cygnus.com/java/");
   SET ("java.class.version", GCJVERSION);
+  SET ("java.vm.specification.version", "1.1");
+  SET ("java.vm.specification.name", "Java(tm) Virtual Machine Specification");
+  SET ("java.vm.specification.vendor", "Sun Microsystems Inc.");
+  SET ("java.vm.version", GCJVERSION);
+  SET ("java.vm.vendor", "Cygnus Solutions");
+  SET ("java.vm.name", "libgcj");
+  SET ("java.specification.version", "1.1");
+  SET ("java.specification.name", "Java(tm) Language Specification");
+  SET ("java.specification.vendor", "Sun Microsystems Inc.");
+
   // FIXME: how to set these given location-independence?
   // SET ("java.home", "FIXME");
   // SET ("java.class.path", "FIXME");
@@ -363,4 +378,17 @@ java::lang::System::init_properties (void)
   if (buffer != NULL)
     free (buffer);
 #endif
+
+  // Set the system properties from the user's environment.
+  if (_Jv_Environment_Properties)
+    {
+      size_t i = 0;
+
+      while (_Jv_Environment_Properties[i].key)
+	{
+	  SET (_Jv_Environment_Properties[i].key, 
+	       _Jv_Environment_Properties[i].value);
+	  i++;
+	}
+    }
 }

libjava/libtool-version

@@ -3,4 +3,4 @@
 # a separate file so that version updates don't involve re-running
 # automake.
 # CURRENT:REVISION:AGE
-0:0:0
+1:0:0

libjava/prims.cc

@@ -23,6 +23,14 @@ details.  */
 #include <java-signal.h>
 #include <java-threads.h>
 
+#ifndef DISABLE_GETENV_PROPERTIES
+#include <ctype.h>
+#include <java-props.h>
+#define PROCESS_GCJ_PROPERTIES process_gcj_properties()
+#else
+#define PROCESS_GCJ_PROPERTIES
+#endif // DISABLE_GETENV_PROPERTIES
+
 #include <java/lang/Class.h>
 #include <java/lang/Runtime.h>
 #include <java/lang/String.h>
@@ -55,6 +63,10 @@ static java::lang::OutOfMemoryError *no_memory;
 // Largest representable size_t.
 #define SIZE_T_MAX ((size_t) (~ (size_t) 0))
 
+#ifndef DISABLE_GETENV_PROPERTIES
+// Property key/value pairs.
+property_pair *_Jv_Environment_Properties;
+#endif
 
 
 #ifdef HANDLE_SEGV
@@ -621,9 +633,154 @@ main_init (void)
   sigaction (SIGPIPE, &act, NULL);
 }
 
+#ifndef DISABLE_GETENV_PROPERTIES
+
+static char *
+next_property_key (char *s, size_t *length)
+{
+  size_t l = 0;
+
+  JvAssert (s);
+
+  // Skip over whitespace
+  while (isspace (*s))
+    s++;
+
+  // If we've reached the end, return NULL.  Also return NULL if for
+  // some reason we've come across a malformed property string.
+  if (*s == 0
+      || *s == ':'
+      || *s == '=')
+    return NULL;
+
+  // Determine the length of the property key.
+  while (s[l] != 0
+	 && ! isspace (s[l])
+	 && s[l] != ':'
+	 && s[l] != '=')
+    {
+      if (s[l] == '\\'
+	  && s[l+1] != 0)
+	l++;
+      l++;
+    }
+
+  *length = l;
+
+  return s;
+}
+
+static char *
+next_property_value (char *s, size_t *length)
+{
+  size_t l = 0;
+
+  JvAssert (s);
+
+  while (isspace (*s))
+    s++;
+
+  if (*s == ':'
+      || *s == '=')
+    s++;
+
+  while (isspace (*s))
+    s++;
+
+  // If we've reached the end, return NULL.
+  if (*s == 0)
+    return NULL;
+
+  // Determine the length of the property value.
+  while (s[l] != 0
+	 && ! isspace (s[l])
+	 && s[l] != ':'
+	 && s[l] != '=')
+    {
+      if (s[l] == '\\'
+	  && s[l+1] != 0)
+	l += 2;
+      else
+	l++;
+    }
+
+  *length = l;
+
+  return s;
+}
+
+static void
+process_gcj_properties ()
+{
+  char *props = getenv("GCJ_PROPERTIES");
+  char *p = props;
+  size_t length;
+  size_t property_count = 0;
+
+  if (NULL == props)
+    return;
+
+  // Whip through props quickly in order to count the number of
+  // property values.
+  while (p && (p = next_property_key (p, &length)))
+    {
+      // Skip to the end of the key
+      p += length;
+
+      p = next_property_value (p, &length);
+      if (p)
+	p += length;
+      
+      property_count++;
+    }
+
+  // Allocate an array of property value/key pairs.
+  _Jv_Environment_Properties = 
+    (property_pair *) malloc (sizeof(property_pair) 
+			      * (property_count + 1));
+
+  // Go through the properties again, initializing _Jv_Properties
+  // along the way.
+  p = props;
+  property_count = 0;
+  while (p && (p = next_property_key (p, &length)))
+    {
+      _Jv_Environment_Properties[property_count].key = p;
+      _Jv_Environment_Properties[property_count].key_length = length;
+
+      // Skip to the end of the key
+      p += length;
+
+      p = next_property_value (p, &length);
+      
+      _Jv_Environment_Properties[property_count].value = p;
+      _Jv_Environment_Properties[property_count].value_length = length;
+
+      if (p)
+	p += length;
+
+      property_count++;
+    }
+  memset ((void *) &_Jv_Environment_Properties[property_count], 
+	  0, sizeof (property_pair));
+  {
+    size_t i = 0;
+
+    // Null terminate the strings.
+    while (_Jv_Environment_Properties[i].key)
+      {
+	_Jv_Environment_Properties[i].key[_Jv_Environment_Properties[i].key_length] = 0;
+	_Jv_Environment_Properties[i++].value[_Jv_Environment_Properties[i].value_length] = 0;
+      }
+  }
+}
+#endif // DISABLE_GETENV_PROPERTIES
+
 void
 JvRunMain (jclass klass, int argc, const char **argv)
 {
+  PROCESS_GCJ_PROPERTIES;
+
   main_init ();
 
   arg_vec = JvConvertArgv (argc - 1, argv + 1);
@@ -639,6 +796,8 @@ JvRunMain (jclass klass, int argc, const char **argv)
 void
 _Jv_RunMain (const char *class_name, int argc, const char **argv)
 {
+  PROCESS_GCJ_PROPERTIES;
+
   main_init ();
 
   arg_vec = JvConvertArgv (argc - 1, argv + 1);