/* class: java/lang/Runtime */


#include <unistd.h>
#include <sys/utsname.h>
#include "jni.h"
#include "builtin.h"
#include "loader.h"
#include "native.h"
#include "tables.h"
#include "asmpart.h"
#include "mm/boehm.h"
#include "java_io_File.h"
#include "java_lang_String.h"
#include "java_util_Properties.h"    /* needed for java_lang_Runtime.h */
#include "java_lang_Runtime.h"


#define JOWENN_DEBUG


#define MAXPROPS 100
static int activeprops = 19;  
   
static char *proplist[MAXPROPS][2] = {
        { "java.class.path", NULL },
        { "java.home", NULL },
        { "user.home", NULL },  
        { "user.name", NULL },
        { "user.dir",  NULL },
                                
        { "os.arch", NULL },
        { "os.name", NULL },
        { "os.version", NULL },
                                         
        { "java.class.version", "45.3" },
        { "java.version", PACKAGE":"VERSION },
        { "java.vendor", "CACAO Team" },
        { "java.vendor.url", "http://www.complang.tuwien.ac.at/java/cacao/" },
	{ "java.vm.name", "CACAO"}, 
	{ "java.tmpdir", "/tmp/"},
	{ "java.io.tmpdir", "/tmp/"},

        { "path.separator", ":" },
        { "file.separator", "/" },
        { "line.separator", "\n" },
	{ "java.protocol.handler.pkgs", "gnu.java.net.protocol"}
};


/*
 * Class:     java_lang_Runtime
 * Method:    execInternal
 * Signature: ([Ljava/lang/String;[Ljava/lang/String;Ljava/io/File;)Ljava/lang/Process;
 */
JNIEXPORT struct java_lang_Process* JNICALL Java_java_lang_Runtime_execInternal (JNIEnv *env ,  struct java_lang_Runtime* this ,
	java_objectarray* cmd, java_objectarray* shellenv, struct java_io_File* workingdir)
{
  log_text("Java_java_lang_Runtime_execInternal  called");
  return NULL;
}


/*
 * Class:     java/lang/Runtime
 * Method:    exitInternal
 * Signature: (I)V
 */
JNIEXPORT void JNICALL Java_java_lang_Runtime_exitInternal ( JNIEnv *env ,  struct java_lang_Runtime* this, s4 par1)
{
	cacao_shutdown (par1);
}


/*
 * Class:     java/lang/Runtime
 * Method:    freeMemory
 * Signature: ()J
 */
JNIEXPORT s8 JNICALL Java_java_lang_Runtime_freeMemory ( JNIEnv *env ,  struct java_lang_Runtime* this)
{
	log_text ("java_lang_Runtime_freeMemory called");
	return builtin_i2l (0);
}


/*
 * Class:     java/lang/Runtime
 * Method:    gc
 * Signature: ()V
 */
JNIEXPORT void JNICALL Java_java_lang_Runtime_gc ( JNIEnv *env ,  struct java_lang_Runtime* this)
{
	gc_call();
}


/*
 * Class:     java/lang/Runtime
 * Method:    runFinalization
 * Signature: ()V
 */
JNIEXPORT void JNICALL Java_java_lang_Runtime_runFinalization ( JNIEnv *env, struct java_lang_Runtime* this)
{
  log_text("Java_java_lang_Runtime_runFinalization0  called");
}


/*
 * Class:     java/lang/Runtime
 * Method:    runFinalizersOnExit
 * Signature: (Z)V
 */
JNIEXPORT void JNICALL Java_java_lang_Runtime_runFinalizersOnExitInternal ( JNIEnv *env ,  jclass clazz, s4 par1)
{
  log_text("Java_java_lang_Runtime_runFinalizersOnExit0  called");
}


/*
 * Class:     java/lang/Runtime
 * Method:    totalMemory
 * Signature: ()J
 */
JNIEXPORT s8 JNICALL Java_java_lang_Runtime_totalMemory ( JNIEnv *env ,  struct java_lang_Runtime* this)
{
	log_text ("java_lang_Runtime_totalMemory called");
	return builtin_i2l (0);
}


/*
 * Class:     java/lang/Runtime
 * Method:    traceInstructions
 * Signature: (Z)V
 */
JNIEXPORT void JNICALL Java_java_lang_Runtime_traceInstructions ( JNIEnv *env ,  struct java_lang_Runtime* this, s4 par1)
{
  log_text("Java_java_lang_Runtime_traceInstructions  called");
}


/*
 * Class:     java/lang/Runtime
 * Method:    traceMethodCalls
 * Signature: (Z)V
 */
JNIEXPORT void JNICALL Java_java_lang_Runtime_traceMethodCalls ( JNIEnv *env ,  struct java_lang_Runtime* this, s4 par1)
{
  log_text("Java_java_lang_Runtime_traceMethodCalls  called");
}


/*
 * Class:     java_lang_Runtime
 * Method:    availableProcessors
 * Signature: ()I
 */
JNIEXPORT s4 JNICALL Java_java_lang_Runtime_availableProcessors (JNIEnv *env ,  struct java_lang_Runtime* this ) {
	log_text("Java_java_lang_Runtime_availableProcessors called, returning hardcoded 1");
	return 1;
}


/*
 * Class:     java_lang_Runtime
 * Method:    nativeLoad
 * Signature: (Ljava/lang/String;)I
 */
JNIEXPORT s4 JNICALL Java_java_lang_Runtime_nativeLoad (JNIEnv *env ,  struct java_lang_Runtime* this , struct java_lang_String* 
par1)
{
#ifdef JOWENN_DEBUG	
	char *buffer;	         	
	int buffer_len;
	utf * data;
	
	data=javastring_toutf(par1,0);
	
	if (!data) {
		log_text("nativeLoad: Error: empty string");
		return 1;
	}
	
	buffer_len = 
	  utf_strlen(data)+ 40;

	  	
	buffer = MNEW(char, buffer_len);

	strcpy(buffer, "Java_java_lang_Runtime_nativeLoad:");
        utf_sprint(buffer+strlen(data), data);
	log_text(buffer);	

	MFREE(buffer, char, buffer_len);
#endif
	log_text("Java_java_lang_Runtime_nativeLoad");
	return 1;
}


/*
 * Class:     java_lang_Runtime
 * Method:    nativeGetLibname
 * Signature: (Ljava/lang/String;Ljava/lang/String;)Ljava/lang/String;
 */
JNIEXPORT struct java_lang_String* JNICALL Java_java_lang_Runtime_nativeGetLibname (JNIEnv *env , jclass clazz, struct java_lang_String* par1,
struct java_lang_String* par2) {
#ifdef JOWENN_DEBUG	
	char *buffer;	         	
	int buffer_len;
	utf * data;
	
	data=javastring_toutf(par2,0);
	
		if (!data) {
		log_text("nativeGetLibName: Error: empty string");
		return 0;;
	}
	
	buffer_len = 
	  utf_strlen(data)+ 40;
	
	buffer = MNEW(char, buffer_len);

	strcpy(buffer, "Java_java_lang_Runtime_nativeGetLibname:");
        utf_sprint(buffer+strlen(data), data);
	log_text(buffer);	

	MFREE(buffer, char, buffer_len);
#endif
	log_text("Java_java_lang_Runtime_nativeGetLibname");
	return 0;
}


/*
 * Class:     java_lang_Runtime
 * Method:    insertSystemProperties
 * Signature: (Ljava/util/Properties;)V
 */
JNIEXPORT void JNICALL Java_java_lang_Runtime_insertSystemProperties (JNIEnv *env , jclass clazz, struct java_util_Properties* p) {

        #define BUFFERSIZE 200
        u4 i;
        methodinfo *m;
        char buffer[BUFFERSIZE];
        struct utsname utsnamebuf;

	log_text("Java_java_lang_Runtime_insertSystemProperties");

        proplist[0][1] = classpath;
        proplist[1][1] = getenv("JAVA_HOME");
        proplist[2][1] = getenv("HOME");
        proplist[3][1] = getenv("USER");
        proplist[4][1] = getcwd(buffer, BUFFERSIZE);

        /* get properties from system */
        uname(&utsnamebuf);
        proplist[5][1] = utsnamebuf.machine;
        proplist[6][1] = utsnamebuf.sysname;
        proplist[7][1] = utsnamebuf.release;

        if (!p) panic("Java_java_lang_Runtime_insertSystemProperties called with NULL-Argument");

        /* search for method to add properties */
        m = class_resolvemethod(
                                p->header.vftbl->class,
                                utf_new_char("put"),
                                utf_new_char("(Ljava/lang/Object;Ljava/lang/Object;)Ljava/lang/Object;")
                                );

        if (!m) panic("Can not find method 'put' for class Properties");

        /* add the properties */
        for (i = 0; i < activeprops; i++) {

            if (proplist[i][1] == NULL) proplist[i][1] = "";

            asm_calljavamethod(m,
                               p,
                               javastring_new_char(proplist[i][0]),
                               javastring_new_char(proplist[i][1]),
                               NULL
                               );
        }

        return;
}


/*
 * Class:     java_lang_Runtime
 * Method:    maxMemory
 * Signature: ()J
 */
JNIEXPORT s8 JNICALL Java_java_lang_Runtime_maxMemory (JNIEnv *env ,  struct java_lang_Runtime* this ) {
	log_text("Java_java_lang_Runtime_maxMemory");
	return 0;
}


/*
 * These are local overrides for various environment variables in Emacs.
 * Please do not remove this and leave it at the end of the file, where
 * Emacs will automagically detect them.
 * ---------------------------------------------------------------------
 * Local variables:
 * mode: c
 * indent-tabs-mode: t
 * c-basic-offset: 4
 * tab-width: 4
 * End:
 */