1 /*
   2  * Copyright (c) 2003, 2012, Oracle and/or its affiliates. All rights reserved.
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * This code is free software; you can redistribute it and/or modify it
   6  * under the terms of the GNU General Public License version 2 only, as
   7  * published by the Free Software Foundation.  Oracle designates this
   8  * particular file as subject to the "Classpath" exception as provided
   9  * by Oracle in the LICENSE file that accompanied this code.
  10  *
  11  * This code is distributed in the hope that it will be useful, but WITHOUT
  12  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14  * version 2 for more details (a copy is included in the LICENSE file that
  15  * accompanied this code).
  16  *
  17  * You should have received a copy of the GNU General Public License version
  18  * 2 along with this work; if not, write to the Free Software Foundation,
  19  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  20  *
  21  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  22  * or visit www.oracle.com if you need additional information or have any
  23  * questions.
  24  */
  25 
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include "jni.h"
  29 #include "jni_util.h"
  30 
  31 #ifdef __APPLE__
  32 #include <crt_externs.h>
  33 #define environ (*_NSGetEnviron())
  34 #else
  35 /* This is one of the rare times it's more portable to declare an
  36  * external symbol explicitly, rather than via a system header.
  37  * The declaration is standardized as part of UNIX98, but there is
  38  * no standard (not even de-facto) header file where the
  39  * declaration is to be found.  See:
  40  * http://www.opengroup.org/onlinepubs/009695399/functions/environ.html
  41  * http://www.opengroup.org/onlinepubs/009695399/functions/xsh_chap02_02.html
  42  *
  43  * "All identifiers in this volume of IEEE Std 1003.1-2001, except
  44  * environ, are defined in at least one of the headers" (!)
  45  */
  46 extern char **environ;
  47 #endif
  48 
  49 JNIEXPORT jobjectArray JNICALL
  50 Java_java_lang_ProcessEnvironment_environ(JNIEnv *env, jclass ign)
  51 {
  52     jsize count = 0;
  53     jsize i, j;
  54     jobjectArray result;
  55     jclass byteArrCls = (*env)->FindClass(env, "[B");
  56 
  57     for (i = 0; environ[i]; i++) {
  58         /* Ignore corrupted environment variables */
  59         if (strchr(environ[i], '=') != NULL)
  60             count++;
  61     }
  62 
  63     result = (*env)->NewObjectArray(env, 2*count, byteArrCls, 0);
  64     if (result == NULL) return NULL;
  65 
  66     for (i = 0, j = 0; environ[i]; i++) {
  67         const char * varEnd = strchr(environ[i], '=');
  68         /* Ignore corrupted environment variables */
  69         if (varEnd != NULL) {
  70             jbyteArray var, val;
  71             const char * valBeg = varEnd + 1;
  72             jsize varLength = varEnd - environ[i];
  73             jsize valLength = strlen(valBeg);
  74             var = (*env)->NewByteArray(env, varLength);
  75             if (var == NULL) return NULL;
  76             val = (*env)->NewByteArray(env, valLength);
  77             if (val == NULL) return NULL;
  78             (*env)->SetByteArrayRegion(env, var, 0, varLength,
  79                                        (jbyte*) environ[i]);
  80             (*env)->SetByteArrayRegion(env, val, 0, valLength,
  81                                        (jbyte*) valBeg);
  82             (*env)->SetObjectArrayElement(env, result, 2*j  , var);
  83             (*env)->SetObjectArrayElement(env, result, 2*j+1, val);
  84             (*env)->DeleteLocalRef(env, var);
  85             (*env)->DeleteLocalRef(env, val);
  86             j++;
  87         }
  88     }
  89 
  90     return result;
  91 }