/*
 * Copyright (c) 2007, 2018, Oracle and/or its affiliates. All rights reserved.
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 *
 * This code is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License version 2 only, as
 * published by the Free Software Foundation.
 *
 * This code is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * version 2 for more details (a copy is included in the LICENSE file that
 * accompanied this code).
 *
 * You should have received a copy of the GNU General Public License version
 * 2 along with this work; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
 * or visit www.oracle.com if you need additional information or have any
 * questions.
 */

#include <jni.h>
#include <stdio.h>
#include "jnihelper.h"

jobject NewObjectWrapper(JNIEnv *env, jclass clazz, jmethodID methodID, ...) {
  va_list ap;
  jobject tmp;

  va_start(ap,methodID);
  tmp=(*env)->NewObjectV(env, clazz, methodID, ap);
  va_end(ap);
  return(tmp);
}

JNIEXPORT jobjectArray JNICALL
Java_nsk_stress_jni_JNIter002_jniobjects (JNIEnv *env, jobject jobj, jstring jstr, jint intgr,
              jlong lng, jcharArray jChArr, jfloat flt, jdouble dbl) {

  static int classCount = 0;
  jobjectArray obj;
  jobject element;
  jclass clazz, clazzUp;
  jmethodID methodID;
  const char *classname="nsk/stress/jni/objectsJNI";
  const char *name="<init>";
  const char *sig="(Ljava/lang/String;IJ[CFD)V";
  const char *upperClassName="nsk/stress/jni/jnistress002";
  const char *fieldName="jniStringAllocSize";
  const char *fieldSig="I";
  const char *setpass="halt";
  const char *setpassSig="()V";
  jvalue paramArr [6];

  (*env)->MonitorEnter(env, jobj); CE
  ++classCount;
  (*env)->MonitorExit(env, jobj); CE
  paramArr[0].l=jstr;
  paramArr[1].i=intgr;
  paramArr[2].j=lng;
  paramArr[3].l=jChArr;
  paramArr[4].f=flt;
  paramArr[5].d=dbl;

  clazz=(*env)->FindClass(env,classname); CE
  obj=(*env)->NewObjectArray(env,(jsize)3,clazz,
                 (*env)->AllocObject(env, clazz)); CE
  if (obj==NULL) {
    fprintf(stderr,"Can not construct the object Array for  %s\n", classname);
    return(NULL);
  }

  methodID=(*env)->GetMethodID(env,clazz,name,sig); CE
  if (methodID==NULL) {
    fprintf(stderr,"Can not get the ID of <init> for %s\n", classname);
    return(NULL);
  }

  element=(*env)->NewObject(env,clazz,methodID,
                jstr, intgr, lng, jChArr, flt, dbl); CE
  (*env)->SetObjectArrayElement(env,obj,0,element); CE
  element=(*env)->NewObjectA(env,clazz,methodID,paramArr); CE
  (*env)->SetObjectArrayElement(env,obj,1,element); CE
  element= NewObjectWrapper(env, clazz, methodID,
                jstr, intgr, lng, jChArr, flt, dbl); CE
  (*env)->SetObjectArrayElement(env,obj,2,element); CE

  clazzUp=(*env)->FindClass(env, upperClassName); CE
  if (classCount == (*env)->GetStaticIntField(env, clazzUp,
      (*env)->GetStaticFieldID(env,clazzUp,fieldName,fieldSig))) {
    classname="nsk/stress/jni/JNIter002";
    clazz=(*env)->FindClass(env, classname); CE
    methodID=(*env)->GetStaticMethodID(env,clazz, setpass, setpassSig); CE
    (*env)->CallStaticVoidMethod(env, clazz, methodID); CE
  }

  CE

  return obj;
}