mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-17 06:47:17 +00:00
1abb7c2bfa
Estimated hours taken: 2 Branches: main Implement some library procedures for the Java back-end. library/time.m: Implement c_clk_tck/0 for Java. Also changed the C implementation to use the same macro as that used in Native.c. java/runtime/Native.java.in: Add new function clk_tck() to be called by c_clk_tck/0. java/runtime/Native.c: Add corresponding implementation for clk_tck().
117 lines
2.4 KiB
C
117 lines
2.4 KiB
C
/*
|
|
** Copyright (C) 2004 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_miliseconds
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_get_1user_1cpu_1miliseconds(
|
|
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_1miliseconds(
|
|
JNIEnv *env, jclass obj)
|
|
{
|
|
return MR_get_user_cpu_miliseconds();
|
|
}
|
|
|