mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 13:23:53 +00:00
9fc47f5c91
Branches: main
Make the Java backend not use native code to implement any standard library
procedures. The only such procedures were related to benchmarking and timing,
which aren't very important so I just make a best effort using methods that
the Java standard library provides.
library/benchmarking.m:
Implement `benchmarking.report_stats' for Java as closely as possible
without native code. Add real time output.
Add `benchmarking.ML_initialise' to remember the time when the
program starts up.
compiler/mlds_to_java.m:
Make the main wrapper call `benchmarking.ML_initialise' at startup.
library/time.m:
Implement `time.clock', `time.times', `time.clocks_per_sec',
`time.clk_tck' as closely as possible without native code.
library/Mmakefile:
Comment out commands to build and install Native.so.
java/runtime/Native.c:
Even though this is not used any more, update the function names for
the "jmercury" package prefix.
README.Java:
Update section on unimplemented procedures.
117 lines
2.4 KiB
C
117 lines
2.4 KiB
C
/*
|
|
** 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_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();
|
|
}
|
|
|