mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-13 04:44:39 +00:00
115 lines
2.5 KiB
C
115 lines
2.5 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
//
|
|
// Copyright (C) 2004, 2006 The University of Melbourne.
|
|
// Copyright (C) 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
//
|
|
|
|
// File: Native.c - Native code for java/runtime/Native.java.
|
|
|
|
#include <jni.h>
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: clock
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_jmercury_runtime_Native_clock(JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: clocks_per_sec
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_jmercury_runtime_Native_clocks_1per_1sec(
|
|
JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: times
|
|
* Signature: ()[I
|
|
*/
|
|
JNIEXPORT jintArray JNICALL Java_jmercury_runtime_Native_times(
|
|
JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: clk_tck
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_jmercury_runtime_Native_clk_1tck(JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: get_user_cpu_milliseconds
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_jmercury_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_jmercury_runtime_Native_clock(JNIEnv *env, jclass obj) {
|
|
return (MR_Integer) clock();
|
|
}
|
|
|
|
JNIEXPORT jint JNICALL
|
|
Java_jmercury_runtime_Native_clocks_1per_1sec(JNIEnv *env, jclass obj) {
|
|
return CLOCKS_PER_SEC;
|
|
}
|
|
|
|
JNIEXPORT jintArray JNICALL
|
|
Java_jmercury_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_jmercury_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_jmercury_runtime_Native_get_1user_1cpu_1milliseconds(
|
|
JNIEnv *env, jclass obj)
|
|
{
|
|
return MR_get_user_cpu_milliseconds();
|
|
}
|