/*
** Copyright (C) 2004, 2006 The University of Melbourne.
** This file may only be copied under the terms of the GNU Library General
** Public License - see the file COPYING.LIB in the Mercury distribution.
*/

/*
** File: Native.c	- Native code for java/runtime/Native.java
*/

#include <jni.h>

/*
 * Class:     Native
 * Method:    clock
 * Signature: ()I
 */
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clock(JNIEnv *, jclass);

/*
 * Class:     Native
 * Method:    clocks_per_sec
 * Signature: ()I
 */
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clocks_1per_1sec(
		JNIEnv *, jclass);

/*
 * Class:     Native
 * Method:    times
 * Signature: ()[I
 */
JNIEXPORT jintArray JNICALL Java_mercury_runtime_Native_times(
		JNIEnv *, jclass);

/*
 * Class:     Native
 * Method:    clk_tck
 * Signature: ()I
 */
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clk_1tck(JNIEnv *, jclass);

/*
 * Class:     Native
 * Method:    get_user_cpu_milliseconds
 * Signature: ()I
 */
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_get_1user_1cpu_1milliseconds(
		JNIEnv *, jclass);

#include "mercury_imp.h"
#include "mercury_timing.h"

#include <time.h>
#ifdef MR_HAVE_SYS_TYPES_H
	#include <sys/types.h>
#endif
#ifdef MR_HAVE_SYS_TIMES_H
	#include <sys/times.h>
#endif
#ifdef MR_HAVE_UNISTD_H
	#include <unistd.h>
#endif

JNIEXPORT jint JNICALL
Java_mercury_runtime_Native_clock(JNIEnv *env, jclass obj) {
	return (MR_Integer) clock();
}

JNIEXPORT jint JNICALL
Java_mercury_runtime_Native_clocks_1per_1sec(JNIEnv *env, jclass obj) {
	return CLOCKS_PER_SEC;
}

JNIEXPORT jintArray JNICALL
Java_mercury_runtime_Native_times(JNIEnv *env, jclass obj) {
	jint		intarray[5];
	jintArray	result;

#ifdef MR_HAVE_POSIX_TIMES
	struct tms	t;

	intarray[0] = (MR_Integer) times(&t);
	intarray[1] = (MR_Integer) t.tms_utime;
	intarray[2] = (MR_Integer) t.tms_stime;
	intarray[3] = (MR_Integer) t.tms_cutime;
	intarray[4] = (MR_Integer) t.tms_cstime;
#else
	intarray[0] = -1;
#endif

	result = (*env)->NewIntArray(env, 5);
	if (result != NULL) {
		(*env)->SetIntArrayRegion(env, result, 0, 5, intarray);
	}

	return result;
}

JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clk_1tck(
		JNIEnv *env, jclass obj)
{
#if defined(MR_CLOCK_TICKS_PER_SECOND)
	return MR_CLOCK_TICKS_PER_SECOND;
#else
	return -1;
#endif
}

JNIEXPORT jint JNICALL
Java_mercury_runtime_Native_get_1user_1cpu_1milliseconds(
		JNIEnv *env, jclass obj)
{
	return MR_get_user_cpu_milliseconds();
}