/*
 * itypes.c
 * Internal types.
 *
 * Copyright (c) 1996 T. J. Wilkinson & Associates, London, UK.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * Written by Tim Wilkinson <tim@tjwassoc.demon.co.uk>, 1996.
 */

#include "config.h"
#include "config-std.h"
#include "config-mem.h"
#include "jtypes.h"
#include "itypes.h"
#include "baseClasses.h"
#include "classMethod.h"

Hjava_lang_Class intClass;
Hjava_lang_Class longClass;
Hjava_lang_Class booleanClass;
Hjava_lang_Class charClass;
Hjava_lang_Class floatClass; 
Hjava_lang_Class doubleClass;
Hjava_lang_Class byteClass; 
Hjava_lang_Class shortClass;     
Hjava_lang_Class voidClass;

extern Utf8Const* makeUtf8Const(char*, int);
extern gcFuncs gcClassObject;

Hjava_lang_Class* types[MAXTYPES];

void
initPrimClass(Hjava_lang_Class* class, char* name, char sig, int len)
{
	class->dtable = _PRIMITIVE_DTABLE;

	class->name = makeUtf8Const(name, -1);
	CLASS_PRIM_SIG(class) = sig;
	TYPE_PRIM_SIZE(class) = len;

	/* Attach the object to the GC system */
	gc_attach(class, sizeof(Hjava_lang_Class), &gcClassObject);
}

/*
 * Intialise the internal types.
 */
void
initTypes(void)
{
	initPrimClass(&byteClass, "byte", 'B', 1);
	initPrimClass(&shortClass, "short", 'S', 2);
	initPrimClass(&intClass, "int", 'I', 4);
	initPrimClass(&longClass, "long", 'J', 8);
	initPrimClass(&booleanClass, "boolean", 'Z', 1);
	initPrimClass(&charClass, "char", 'C', 2);
	initPrimClass(&floatClass, "float", 'F', 4);
	initPrimClass(&doubleClass, "double", 'D', 8);
	initPrimClass(&voidClass, "void", 'V', 0);

	TYPE_CLASS(TYPE_Boolean) = &booleanClass;
	TYPE_CLASS(TYPE_Char) = &charClass;
	TYPE_CLASS(TYPE_Float) = &floatClass;
	TYPE_CLASS(TYPE_Double) = &doubleClass;
	TYPE_CLASS(TYPE_Byte) = &byteClass;
	TYPE_CLASS(TYPE_Short) = &shortClass;
	TYPE_CLASS(TYPE_Int) = &intClass;
	TYPE_CLASS(TYPE_Long) = &longClass;
}

/*
 * Finish the internal types.
 */
void
finishTypes(void)
{
	byteClass.head.dtable = ClassClass.dtable;
	shortClass.head.dtable = ClassClass.dtable;
	intClass.head.dtable = ClassClass.dtable;
	longClass.head.dtable = ClassClass.dtable;
	booleanClass.head.dtable = ClassClass.dtable;
	charClass.head.dtable = ClassClass.dtable;
	floatClass.head.dtable = ClassClass.dtable;
	doubleClass.head.dtable = ClassClass.dtable;
	voidClass.head.dtable = ClassClass.dtable;
}

Hjava_lang_Class*
classFromSig(char** strp, Hjava_lang_ClassLoader* loader)
{
	char* start;
	char* end;

	switch (*(*strp)++) {
	case 'V': return (&voidClass);
	case 'I': return (&intClass);
	case 'Z': return (&booleanClass);
	case 'S': return (&shortClass);
	case 'B': return (&byteClass);
	case 'C': return (&charClass);
	case 'F': return (&floatClass);
	case 'D': return (&doubleClass);
	case 'J': return (&longClass);
	case '[': return (lookupArray(classFromSig (strp, loader)));
	case 'L':
		start = *strp;
		for (end = start; *end != 0 && *end != ';'; end++)
			;
		*strp = end;
		if (*end != 0) {
			(*strp)++;
		}
		return (loadClass(makeUtf8Const(start, end - start), loader));
	default:
		return (NULL);
	}
}