plan9-archive/inferno-java

java/pkg2/java/lang/AbstractMethodError.java+0−0

Empty file added.

java/pkg2/java/lang/ArithmeticException.java+0−0

Empty file added.

java/pkg2/java/lang/ArrayIndexOutOfBoundsException.java+0−0

Empty file added.

java/pkg2/java/lang/ArrayStoreException.java+0−0

Empty file added.

java/pkg2/java/lang/Boolean.java+0−0

Empty file added.

java/pkg2/java/lang/Byte.java+0−0

Empty file added.

java/pkg2/java/lang/Character.java+0−0

Empty file added.

java/pkg2/java/lang/Character_L.b+63−0

@@ -0,0 +1,63 @@
	1	implement Character_L;
	2
	3	# javal v1.3 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	#<<
	28
	29	include "Character_L.m";
	30
	31	#>> extra post includes here
	32
	33	include "unicode_table.m";
	34
	35	unicode_table : UnicodeTable;
	36	A,
	37	Y,
	38	X : import unicode_table;
	39
	40	#<<
	41
	42	init( jni_p : JNI )
	43	{
	44	# save java native inteface mod instance
	45	jni = jni_p;
	46	#>>extra initialization here
	47	#<<
	48	}
	49
	50	lookup_C_I( p0 : int) : int
	51	{#>>
	52	if ( unicode_table == nil )
	53	loadtable();
	54
	55	return( A[Y[(X[p0>>6]<<6)\|(p0& 16r3F)]] );
	56	}#<<
	57
	58	loadtable()
	59	{
	60	unicode_table = load UnicodeTable UnicodeTable->PATH;
	61	if ( unicode_table == nil )
	62	jni->InitError( jni->sys->sprint( "java.lang.Character: could not load %s: %r", UnicodeTable->PATH ) );
	63	}

java/pkg2/java/lang/Character_L.m+14−0

@@ -0,0 +1,14 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	Character_L : module
	4	{
	5	Character_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	value : int;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	lookup_C_I : fn( p0 : int) : int;
	13
	14	};

java/pkg2/java/lang/Class.java+0−0

Empty file added.

java/pkg2/java/lang/ClassCastException.java+0−0

Empty file added.

java/pkg2/java/lang/ClassCircularityError.java+0−0

Empty file added.

java/pkg2/java/lang/ClassFormatError.java+0−0

Empty file added.

java/pkg2/java/lang/ClassLoader.java+0−0

Empty file added.

java/pkg2/java/lang/ClassLoader_L.b+82−0

@@ -0,0 +1,82 @@
	1	implement ClassLoader_L;
	2
	3	# javal v1.2 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JObject : import jni;
	23
	24	#>> extra pre includes here
	25
	26	#<<
	27
	28	include "ClassLoader_L.m";
	29
	30	#>> extra post includes here
	31
	32	#<<
	33
	34	init( jni_p : JNI )
	35	{
	36	# save java native inteface mod instance
	37	jni = jni_p;
	38	#>>extra initialization here
	39	#<<
	40	}
	41
	42	init_V( this : ref ClassLoader_obj)
	43	{#>>
	44	junk := this;
	45	}#<<
	46
	47	defineClass0_rString_aB_I_I_rClass( this : ref ClassLoader_obj, p0 : JString,p1 : JArrayB,p2 : int,p3 : int) : JClass
	48	{#>>
	49	junk := (this,p0,p1,p2,p3);
	50	jni->ThrowException( "java.lang.ClassNotFoundException", "not implemented" );
	51	return( nil );
	52	}#<<
	53
	54	resolveClass0_rClass_V( this : ref ClassLoader_obj, p0 : JClass)
	55	{#>>
	56	junk := (this,p0);
	57	jni->FatalError( "resolveClass() not implemented" );
	58	}#<<
	59
	60	findSystemClass0_rString_rClass( this : ref ClassLoader_obj, p0 : JString) : JClass
	61	{#>>
	62	junk := (this,p0);
	63	jni->FatalError( "findSystemClass() not implemented" );
	64	return( nil );
	65	}#<<
	66
	67	getSystemResourceAsStream0_rString_rInputStream( p0 : JString) : JObject
	68	{#>>
	69	junk := p0;
	70	jni->FatalError( "getSystemResourceAsStream() not implemented" );
	71	return( nil );
	72	}#<<
	73
	74	getSystemResourceAsName0_rString_rString( p0 : JString) : JString
	75	{#>>
	76	junk := p0;
	77	jni->FatalError( "getSystemResourceAsName() not implemented" );
	78	return( nil );
	79	}#<<
	80
	81
	82

java/pkg2/java/lang/ClassLoader_L.m+20−0

@@ -0,0 +1,20 @@
	1	# javal v1.2 generated file: edit with care
	2
	3	ClassLoader_L : module
	4	{
	5	ClassLoader_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	initialized : int;
	9	classes : JObject;
	10	};
	11
	12	init : fn( jni_p : JNI );
	13	init_V : fn( this : ref ClassLoader_obj);
	14	defineClass0_rString_aB_I_I_rClass : fn( this : ref ClassLoader_obj, p0 : JString,p1 : JArrayB,p2 : int,p3 : int) : JClass;
	15	resolveClass0_rClass_V : fn( this : ref ClassLoader_obj, p0 : JClass);
	16	findSystemClass0_rString_rClass : fn( this : ref ClassLoader_obj, p0 : JString) : JClass;
	17	getSystemResourceAsStream0_rString_rInputStream : fn( p0 : JString) : JObject;
	18	getSystemResourceAsName0_rString_rString : fn( p0 : JString) : JString;
	19
	20	};

java/pkg2/java/lang/ClassNotFoundException.java+0−0

Empty file added.

java/pkg2/java/lang/Class_L.b+778−0

@@ -0,0 +1,778 @@
	1	implement Class_L;
	2
	3	# javal v1.2 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JObject : import jni;
	23
	24	#>> extra pre includes here
	25
	26	jldr : JavaClassLoader;
	27	cast : Cast;
	28
	29	#<<
	30
	31	include "Class_L.m";
	32
	33	#>> extra post includes here
	34
	35	ClassData,
	36	Value : import jni;
	37
	38	include "reflect/reflect.m";
	39	refl : Reflect;
	40
	41	#<<
	42
	43	init( jni_p : JNI )
	44	{
	45	# save java native inteface mod instance
	46	jni = jni_p;
	47	#>>extra initialization here
	48	jldr = jni->jldr;
	49	cast = jni->CastMod();
	50	#<<
	51	}
	52
	53	forName_rString_rClass( p0 : JString) : JClass
	54	{#>>
	55	e := ref Sys->Exception;
	56	if (jni->sys->rescue("JLD:e0*", e) == Sys->HANDLER)
	57	{
	58	if ( p0.str != nil && p0.str[0] == '[' )
	59	return( jni->LookupArrayClass(p0.str) );
	60	else
	61	return( jni->GetClassObject( jni->FindClass(p0.str) ) );
	62	}
	63
	64	jni->sys->rescued(Sys->ONCE, nil);
	65	# turn into a ClassNotFoundException
	66	jni->ThrowException( "java.lang.ClassNotFoundException", p0.str );
	67	return(nil);
	68	}#<<
	69
	70	newInstance_rObject( this : JClass) : JObject
	71	{#>>
	72	if ( this.class.flags & (JNI->ACC_INTERFACE \| JNI->ACC_ABSTRACT) ) {
	73	s : string;
	74	if ( isPrimitive_Z(this) == JNI->TRUE )
	75	s = this.class.name[len "inferno/vm/":len this.class.name - 2];
	76	else if ( this.aryname != nil )
	77	s = this.aryname;
	78	else
	79	s = this.class.name;
	80	jni->ThrowException( "java.lang.InstantiationException", s );
	81	}
	82	# create new object for the given class
	83	return( jni->NewObject(this.class) );
	84	}#<<
	85
	86	isInstance_rObject_Z( this : JClass, p0 : JObject) : int
	87	{#>>
	88	return( jni->IsInstanceOf( p0, this.class ) );
	89	}#<<
	90
	91	isAssignableFrom_rClass_Z( this : JClass, p0 : JClass) : int
	92	{#>>
	93	return( jni->IsAssignable( p0, this ) );
	94	}#<<
	95
	96	isInterface_Z( this : JClass) : int
	97	{#>>
	98	return( this.class.flags & JNI->ACC_INTERFACE );
	99	}#<<
	100
	101	isArray_Z( this : JClass) : int
	102	{#>>
	103	return( this.class.name == "inferno/vm/Array" );
	104	}#<<
	105
	106	isPrimitive_Z( this : JClass) : int
	107	{#>>
	108	ret : int;
	109	if ( jni->PrimitiveIndex(this, 0) > 0 )
	110	ret = JNI->TRUE;
	111	else
	112	ret = JNI->FALSE;
	113	return ret;
	114	}#<<
	115
	116	getName_rString( this : JClass) : JString
	117	{#>>
	118	name : string;
	119	if ( isPrimitive_Z(this) == JNI->TRUE )
	120	{
	121	# mk primitive name from a slice
	122	name = this.class.name[len "inferno/vm/":len this.class.name - 2];
	123	}
	124	else
	125	{
	126	if ( this.aryname != nil )
	127	{
	128	name = this.aryname;
	129	}
	130	else
	131	{
	132	name = this.class.name;
	133	}
	134	# change slashes to dots
	135	for ( i := 0; i < len name; i++ )
	136	if ( name[i] == '/' )
	137	name[i] = '.';
	138	}
	139	return( jni->NewString( name ) );
	140	}#<<
	141
	142	getClassLoader_rClassLoader( this : JClass) : JObject
	143	{#>>
	144	junk := (this);
	145	jni->FatalError( "getClassLoader() not implemented" );
	146	return(nil);
	147	}#<<
	148
	149	getSuperclass_rClass( this : JClass) : JClass
	150	{#>>
	151	if ( isPrimitive_Z(this) == JNI->TRUE
	152	\|\| this.class.flags & JNI->ACC_INTERFACE )
	153	return nil;
	154	if ( (superclass := jni->GetSuperclass(this.class)) == nil )
	155	return nil;
	156	return( jni->GetClassObject( superclass ) );
	157	}#<<
	158
	159	getInterfaces_aClass( this : JClass) : JArrayJClass
	160	{#>>
	161	n : int;
	162	# kludge for arrays to be consistent with JavaSoft's VM
	163	if ( isArray_Z(this) )
	164	n = 0;
	165	else
	166	n = len this.class.interdirect;
	167	interface := array [n] of JObject;
	168	il := this.class.interdirect;
	169	for (i := n-1; i >= 0; i--) {
	170	interface[i] = cast->FromJClass(jni->GetClassObject(hd il));
	171	il = tl il;
	172	}
	173	classarray := cast->JArrayToClass(cast->ObjectToJArray(jni->MkAObject(interface)));
	174	classarray.class = jni->FindClass("java/lang/Class");
	175	return classarray;
	176	}#<<
	177
	178	getComponentType_rClass(this : JClass) : JClass
	179	{#>>
	180	if(this == nil \|\| this.aryname == nil)
	181	return nil;
	182
	183	name : string;
	184	c := this.aryname[1];
	185	if(c == '[') {
	186	return jni->LookupArrayClass(this.aryname[1:]);
	187	} else {
	188	if(c == 'L') {
	189	name = this.aryname[2:len this.aryname - 1];
	190	} else {
	191	getReflect();
	192	name = "inferno/vm/" + refl->TypeCharToName(c) + "_p";
	193	}
	194	return jni->GetClassObject(jni->FindClass(name));
	195	}
	196	}#<<
	197
	198	getModifiers_I( this : JClass) : int
	199	{#>>
	200	return( this.class.flags & (~ JNI->ACC_SYNCHRONIZED));
	201	}#<<
	202
	203	getSigners_aObject( this : JClass) : JArrayJObject
	204	{#>>
	205	junk := (this);
	206	jni->FatalError( "getSigners() not implemented" );
	207	return(nil);
	208	}#<<
	209
	210	setSigners_aObject_V( this : JClass, p0 : JArrayJObject)
	211	{#>>
	212	junk := (this,p0);
	213	jni->FatalError( "setSigners() not implemented" );
	214	}#<<
	215
	216	getPrimitiveClass_rString_rClass( p0 : JString) : JClass
	217	{#>>
	218	e := ref Sys->Exception;
	219	if (jni->sys->rescue("JLD:e0*", e) == Sys->HANDLER)
	220	{
	221	return( jni->GetClassObject(jni->FindClass("inferno/vm/"+ p0.str +"_p")) );
	222	}
	223	return(nil);
	224	}#<<
	225
	226	getFields0_I_aField( this : JClass, p0 : int) : JArrayJObject
	227	{#>>
	228	# 'this' represents the class whose fields are wanted.
	229	# p0 == 0 for PUBLIC members (includes inherited members)
	230	# p0 == 1 for DECLARED members (All members but not inherited members)
	231
	232	objs : list of JObject;
	233	if ( !isArray_Z(this) )
	234	objs = getFields(this, p0);
	235
	236	obj_array := array[len objs] of JObject;
	237	for ( i := 0; objs != nil ; i++ ) {
	238	obj_array[i] = hd objs;
	239	objs = tl objs;
	240	}
	241
	242	fieldarray := jni->MkAObject(obj_array);
	243	fieldarray.class = jni->FindClass("java/lang/reflect/Field");
	244	return fieldarray;
	245	}#<<
	246
	247	getMethods0_I_aMethod( this : JClass, p0 : int) : JArrayJObject
	248	{#>>
	249	# 'this' represents the class whose methods are wanted.
	250	# p0 == 0 for PUBLIC members (includes inherited members)
	251	# p0 == 1 for DECLARED members (All members but not inherited members)
	252
	253	objs : list of JObject;
	254
	255	# if primitive or interface, filter out java.lang.Object methods
	256	if ( isPrimitive_Z(this) == JNI->TRUE
	257	\|\| this.class.flags & JNI->ACC_INTERFACE )
	258	p0 = 1;
	259	objs = getMethods(this, p0);
	260
	261	obj_array := array[len objs] of JObject;
	262	for ( i := 0; objs != nil ; i++ ) {
	263	obj_array[i] = hd objs;
	264	objs = tl objs;
	265	}
	266
	267	methodarray := jni->MkAObject(obj_array);
	268	methodarray.class = jni->FindClass("java/lang/reflect/Method");
	269	return methodarray;
	270	}#<<
	271
	272	getConstructors0_I_aConstructor( this : JClass, p0 : int) : JArrayJObject
	273	{#>>
	274	# 'this' represents the class whose constructors are wanted.
	275	# p0 == 0 for PUBLIC members (includes inherited members)
	276	# p0 == 1 for DECLARED members (All members but not inherited members)
	277
	278	objs : list of JObject;
	279	if ( isPrimitive_Z(this) == JNI->FALSE && !isArray_Z(this) )
	280	objs = getConstructors(this, p0);
	281
	282	obj_array := array[len objs] of JObject;
	283	for ( i := 0; objs != nil ; i++ ) {
	284	obj_array[i] = hd objs;
	285	objs = tl objs;
	286	}
	287
	288	constructorarray := jni->MkAObject(obj_array);
	289	constructorarray.class = jni->FindClass("java/lang/reflect/Constructor");
	290	return constructorarray;
	291	}#<<
	292
	293	getField0_rString_I_rField( this : JClass, p0 : JString,p1 : int) : JObject
	294	{#>>
	295	# 'this' represents the class for which a Field is desired.
	296	# p0 is the name of the field.
	297	# p1 == 0 for PUBLIC members (includes inherited members)
	298	# p1 == 1 for DECLARED members (All members but not inherited members)
	299
	300	staticfields := this.class.staticdata;
	301	flg : int;
	302	fld : ref jldr->Field;
	303	for ( i := 0; i < len staticfields; i++ ) {
	304	fld = staticfields[i];
	305	flg = fld.flags;
	306	if ( fld.field == p0.str &&
	307	(p1 != 0 \|\| (flg & JNI->ACC_PUBLIC) != 0) )
	308	break;
	309	}
	310	if ( i >= len staticfields ) { # Not a public static field
	311	super : list of ref jldr->Field = nil;
	312	if ( (superclass := jni->GetSuperclass(this.class)) != nil &&
	313	superclass != this.class )
	314	super = superclass.objectdata;
	315	objfields := this.class.objectdata;
	316	for ( i = 0; objfields != nil; i++ ) {
	317	if ( p1 == 1 && objfields == super ) # exclude inherited
	318	break;
	319	fld = hd objfields;
	320	flg = fld.flags;
	321	if ( fld.field == p0.str &&
	322	(p1 != 0 \|\| (flg & JNI->ACC_PUBLIC) != 0) )
	323	break;
	324	objfields = tl objfields;
	325	}
	326	if ( objfields == super \|\| objfields == nil )
	327	i = len staticfields + len this.class.objectdata;
	328	}
	329	if ( i >= len staticfields + len this.class.objectdata ) {
	330	jni->ThrowException("java/lang/NoSuchFieldException", "");
	331	return nil;
	332	}
	333	return makeField(this, fld, i);
	334	}#<<
	335
	336	getMethod0_rString_aClass_I_rMethod( this : JClass, p0 : JString,p1 : JArrayJClass,p2 : int) : JObject
	337	{#>>
	338	# 'this' represents the class for which a Method is desired.
	339	# p0 is the name of the method.
	340	# p1 is a Java array of Class objects, corresponding to the formal parameters
	341	# of the method for which a Method object is desired. The array
	342	# is used to construct a signature string which can be matched against
	343	# data compiled by the classloader.
	344	# p2 == 0 for PUBLIC members (includes inherited members)
	345	# p2 == 1 for DECLARED members (All members but not inherited members)
	346
	347	signatur := "(" + MakeSignature(p1) + ")";
	348
	349	methods := this.class.staticmethods;
	350	for ( i := 0; i < len methods; i++ ) {
	351	fld := methods[i];
	352	if ( fld.field == p0.str && jni->str->prefix(signatur, fld.signature) &&
	353	(p2 != 0 \|\| (fld.flags & JNI->ACC_PUBLIC) != 0) )
	354	return makeMethod(this, fld, i, p1, fld.signature[len signatur:]);
	355	}
	356	methods = this.class.privatemethods;
	357	for ( i = 0; i < len methods; i++ ) {
	358	fld := methods[i];
	359	if ( fld.field == p0.str && jni->str->prefix(signatur, fld.signature) &&
	360	(p2 != 0 \|\| (fld.flags & JNI->ACC_PUBLIC) != 0) )
	361	return makeMethod(this, fld, i, p1, fld.signature[len signatur:]);
	362	}
	363	vmethods := this.class.virtualmethods;
	364	for ( i = 0; i < len vmethods; i++ ) {
	365	fld := vmethods[i].field;
	366	if ( fld.field == p0.str && jni->str->prefix(signatur, fld.signature) &&
	367	((p2 != 0 && this.class == vmethods[i].class)
	368	\|\| (fld.flags & JNI->ACC_PUBLIC) != 0) ) {
	369	if ( vmethods[i].class != this.class )
	370	this = jni->GetClassObject(vmethods[i].class);
	371	return makeMethod(this, fld, i, p1, fld.signature[len signatur:]);
	372	}
	373	}
	374	jni->ThrowException("java/lang/NoSuchMethodException", "");
	375	return nil;
	376	}#<<
	377
	378	getConstructor0_aClass_I_rConstructor( this : JClass, p0 : JArrayJClass,p1 : int) : JObject
	379	{#>>
	380	# 'this' represents the class for which a Constructor is desired.
	381	# p0 is a Java array of Class objects, corresponding to the formal parameters
	382	# of the constructor for which a Constructor object is desired. The array
	383	# is used to construct a signature string which can be matched against
	384	# data compiled by the classloader.
	385	# p1 == 0 for PUBLIC members (includes inherited members)
	386	# p1 == 1 for DECLARED members (All members but not inherited members)
	387
	388	signatur := "(" + MakeSignature(p0) + ")";
	389
	390	initmethods := this.class.initmethods;
	391	flg : int;
	392	fld : ref jldr->Field;
	393	for ( i := 0; i < len initmethods; i++ ) {
	394	fld = initmethods[i];
	395	flg = fld.flags;
	396	if ( jni->str->prefix(signatur, fld.signature) &&
	397	(p1 != 0 \|\| (flg & JNI->ACC_PUBLIC) != 0) )
	398	break;
	399	}
	400	if ( i >= len initmethods ) {
	401	jni->ThrowException("java/lang/NoSuchMethodException", "");
	402	return nil;
	403	}
	404	return makeMethod(this, fld, i, p0, nil);
	405	}#<<
	406
	407	#
	408	# getPublicStaticFields() and doInterfaces() are helper
	409	# functions for getFields().
	410	#
	411
	412	#
	413	# Return list of public static fields of this class.
	414	#
	415
	416	getPublicStaticFields(this : JClass, objs : list of JObject) : list of JObject
	417	{
	418	flds := this.class.staticdata;
	419	for ( i := len flds - 1; i >= 0; i-- )
	420	if ( (flds[i].flags & JNI->ACC_PUBLIC) != 0 )
	421	objs = makeField(this, flds[i], i) :: objs;
	422	return objs;
	423	}
	424
	425	#
	426	# Recursively (for superinterfaces) call getPublicStaticFields()
	427	# on interfaces of this class.
	428	#
	429
	430	ifacelist: list of JClass;
	431
	432	doInterfaces(this : JClass, objs : list of JObject) : list of JObject
	433	{
	434	ifaces := this.class.interfaces;
	435	outer: for ( i := 0; i < len ifaces; i++ ) {
	436	iface := jni->GetClassObject(ifaces[i].class);
	437	for ( l := ifacelist; l != nil; l = tl l )
	438	if ( hd l == iface )
	439	continue outer;
	440	ifacelist = iface :: ifacelist;
	441	objs = getPublicStaticFields(iface, objs);
	442	objs = doInterfaces(iface, objs);
	443	}
	444	return objs;
	445	}
	446
	447	#
	448	# A helper function that gets fields for the class represented
	449	# by this. p0 == 0 => PUBLIC fields, p0 == 1 => DECLARED fields.
	450	# Candidate fields are found in the loader array staticdata (for
	451	# static fields) and list objectdata (for instance fields).
	452	#
	453
	454	getFields(this : JClass, p0 : int) : list of JObject
	455	{
	456	objs : list of JObject;
	457
	458	# get instance fields
	459	objdata := this.class.objectdata;
	460	flds := array[len objdata] of ref jldr->Field;
	461	super : list of ref jldr->Field = nil;
	462	if ( (superclass := jni->GetSuperclass(this.class)) != nil )
	463	super = superclass.objectdata;
	464	for ( i := 0; objdata != nil; i++ ) {
	465	if ( p0 == 1 && objdata == super )
	466	break;
	467	flds[i] = hd objdata;
	468	objdata = tl objdata;
	469	}
	470	# need to associate declaring class with each instance field ???
	471	for ( i--; i >= 0; i-- )
	472	if ( p0 != 0 \|\| (flds[i].flags & JNI->ACC_PUBLIC) != 0 )
	473	objs = makeField(this, flds[i], i) :: objs;
	474
	475	# get class fields of this class
	476	flds = this.class.staticdata;
	477	for ( i = len flds - 1; i >= 0; i-- )
	478	if ( p0 != 0 \|\| (flds[i].flags & JNI->ACC_PUBLIC) != 0 )
	479	objs = makeField(this, flds[i], i) :: objs;
	480
	481	# get class fields of super classes and interfaces
	482	if ( p0 == 0 ) {
	483	ifacelist = nil;
	484	objs = doInterfaces(this, objs);
	485	curclass := this;
	486	while ( ( curclass = getSuperclass_rClass(curclass) ) != nil ) {
	487	objs = getPublicStaticFields(curclass, objs);
	488	objs = doInterfaces(curclass, objs);
	489	}
	490	}
	491
	492	return objs;
	493	}
	494	#
	495	# A helper function that gets methods for the class represented
	496	# by this. p0 == 0 => PUBLIC methods, p0 == 1 => DECLARED methods.
	497	# Candidate methods are found in the loader arrays staticmethods (for
	498	# class methods), privatemethods (for methods private to this
	499	# particular class), and virtualmethods (public instance methods of
	500	# this class and all its superclasses).
	501	#
	502	getMethods(this : JClass, p0 : int) : list of JObject
	503	{
	504	objs : list of JObject;
	505
	506	getReflect();
	507
	508	flds := this.class.staticmethods;
	509	for ( i := 0; i < len flds; i++ )
	510	if ( p0 != 0 \|\| (flds[i].flags & JNI->ACC_PUBLIC) != 0 )
	511	objs = makeAMethod(this, flds[i], i) :: objs;
	512
	513	if ( p0 != 0 ) {
	514	flds = this.class.privatemethods;
	515	for ( i = len flds - 1; i >= 0; i-- )
	516	objs = makeAMethod(this, flds[i], i) :: objs;
	517	}
	518
	519	vflds := this.class.virtualmethods;
	520	for ( i = len vflds - 1; i >= 0; i-- )
	521	if ( (p0 == 1 && vflds[i].class == this.class) # declared, this class
	522	\|\| ( p0 == 0 && (vflds[i].field.flags & JNI->ACC_PUBLIC) != 0 ) ) {
	523	if ( vflds[i].class != this.class )
	524	this = jni->GetClassObject(vflds[i].class);
	525	objs = makeAMethod(this, vflds[i].field, i) :: objs;
	526	}
	527
	528	return objs;
	529	}
	530	#
	531	# A helper function that gets constructors for the class represented
	532	# by this. p0 == 0 => PUBLIC constructors, p0 == 1 => DECLARED
	533	# constructors. Candidate constructors are found in the loader
	534	# array initmethods.
	535	#
	536	getConstructors(this : JClass, p0 : int) : list of JObject
	537	{
	538	objs : list of JObject;
	539
	540	getReflect();
	541
	542	flds := this.class.initmethods;
	543	for ( i := len flds - 1; i >= 0; i-- )
	544	if ( p0 != 0 \|\| (flds[i].flags & JNI->ACC_PUBLIC) != 0 )
	545	objs = makeAMethod(this, flds[i], i) :: objs;
	546
	547	return objs;
	548	}
	549	#
	550	# Make sure Reflect module is loaded.
	551	#
	552	getReflect()
	553	{
	554	if ( refl == nil ) {
	555	refl = load Reflect Reflect->PATH;
	556	if ( refl == nil )
	557	jni->InitError( jni->sys->sprint( "java.lang.Class: could not load %s: %r", Reflect->PATH ) );
	558	else
	559	refl->init(jni);
	560	}
	561	}
	562	#
	563	# Construct a Field Object. The field is a member of the class
	564	# represented by this, and the loader data for the field is in fld,
	565	# which is at offset ix in the appropriate array or list. The 'slot'
	566	# elements of a Field_obj adt is used only by native methods, and has
	567	# the fields modifier flags in the low-order 16 bits, and the index
	568	# into the array/list in the upper 16 bits. (The index into what
	569	# depends on the modifier flags.)
	570	#
	571	makeField(this : JClass, fld : ref jldr->Field, ix : int) : JObject
	572	{
	573	getReflect();
	574	fldobj := jni->AllocObject(jni->FindClass("java/lang/reflect/Field"));
	575
	576	clazz := ref Value.TObject(cast->FromJClass(this));
	577	jni->SetObjField(fldobj, "clazz", clazz);
	578
	579	name := ref Value.TObject(cast->FromJString(jni->NewString(fld.field)));
	580	jni->SetObjField(fldobj, "name", name);
	581
	582	class : ref Value;
	583	if ( (typ := refl->SigToType(fld.signature)) > 0 )
	584	class = refl->GetPrimitiveClass(typ);
	585	else {
	586	classname := fld.signature[1:len fld.signature - 1];
	587	class = ref Value.TObject(cast->FromJClass(
	588	jni->GetClassObject(jni->FindClass(classname))));
	589	}
	590	jni->SetObjField(fldobj, "type", class);
	591
	592	slot := ref Value.TInt((fld.flags & 16rffff) \| (ix << 16));
	593	jni->SetObjField(fldobj, "slot", slot);
	594
	595	return fldobj;
	596	}
	597	#
	598	# Make a new Method/Constructor object for a method or constructor in
	599	# the class this. The loader information for the method/constructor is
	600	# found in the loader Field adt fld, which is at offset ix in its
	601	# array or list. The signature for the arguments is converted into
	602	# a corresponding array of Class objects by makeParamClassArray, then
	603	# makeMethod is called to generate the new object.
	604	#
	605	makeAMethod(this: JClass, fld : ref jldr->Field, ix : int) : JObject
	606	{
	607	(sig, retsig) := jni->str->splitr(fld.signature, ")");
	608	objectarray := makeParamClassArray(sig);
	609
	610	classarray := cast->JArrayToClass(cast->ObjectToJArray(objectarray));
	611	return makeMethod(this, fld, ix, classarray, retsig);
	612	}
	613	#
	614	# Construct a Method Object. Also used to make Constructor Objects,
	615	# share several elements with Methods. The two can be distinguished
	616	# because constructors have the name "<init>" (however, Constructor
	617	# Objects do not have a 'name' field, nor do they have a 'returnType'
	618	# field. The 'slot' field, which is only used by native methods,
	619	# is filled with modifier flags in the lower 16 bits and an index (ix)
	620	# into an appropriate loader array/list in the upper 16 bits (which
	621	# array can be determined by the modifier flags. ). The arguments
	622	# types required by the method are specified by the cl array of
	623	# Class ofjects. The return value, if any, is specified by the
	624	# signature given in retsig.
	625	#
	626	makeMethod(this: JClass, fld : ref jldr->Field, ix : int, cl : JArrayJClass,
	627	retsig : string) : JObject
	628	{
	629	mcl : ClassData;
	630	isConstructor := 0;
	631	if ( fld.field == "<init>" )
	632	isConstructor = 1;
	633	if ( isConstructor )
	634	mcl = jni->FindClass("java/lang/reflect/Constructor");
	635	else
	636	mcl = jni->FindClass("java/lang/reflect/Method");
	637	methobj := jni->AllocObject(mcl);
	638
	639	clazz := ref Value.TObject(cast->FromJClass(this));
	640	jni->SetObjField(methobj, "clazz", clazz);
	641
	642	if ( ! isConstructor ) {
	643	name := ref Value.TObject(cast->FromJString(jni->NewString(fld.field)));
	644	jni->SetObjField(methobj, "name", name);
	645	}
	646
	647	slot := ref Value.TInt((fld.flags & 16rffff) \| (ix << 16));
	648	jni->SetObjField(methobj, "slot", slot);
	649
	650	if ( ! isConstructor ) {
	651	getReflect();
	652	ret : ref Value;
	653	if ( (typ := refl->SigToType(retsig)) > 0 )
	654	ret = refl->GetPrimitiveClass(typ);
	655	else {
	656	rclass: JClass;
	657	case retsig[0] {
	658	'L' =>
	659	rcdata := jni->FindClass(retsig[1:len retsig -1]);
	660	rclass = jni->GetClassObject(rcdata);
	661	'[' =>
	662	rclass = jni->LookupArrayClass(retsig);
	663	'V' =>
	664	rcdata := jni->FindClass("inferno/vm/void_p");
	665	rclass = jni->GetClassObject(rcdata);
	666	}
	667	ret = ref Value.TObject(cast->FromJClass(rclass));
	668	}
	669	jni->SetObjField(methobj, "returnType", ret);
	670	}
	671
	672	args := ref Value.TObject(cast->FromJArray(cast->ClassToJArray(cl)));
	673	jni->SetObjField(methobj, "parameterTypes", args);
	674
	675	# Don't know how to get the list of exceptions thrown.
	676	# jni->SetObjField(methobj, "exceptionTypes", excs);
	677	# Set to a sensible default for now.
	678	foo := cast->JArrayToClass(cast->ObjectToJArray(makeParamClassArray("()")));
	679	excs := ref Value.TObject(cast->FromJArray(cast->ClassToJArray(foo)));
	680	jni->SetObjField(methobj, "exceptionTypes", excs);
	681	return methobj;
	682	}
	683	#
	684	# Turn a signature into an array of Class Objects.
	685	#
	686	makeParamClassArray(sig : string) : JArrayJObject
	687	{
	688	if ( sig[0] != '(' \|\| sig[len sig -1] != ')' )
	689	return nil;
	690	clist := makeParamClass(sig[1:len sig -1]);
	691	jajcl := array[len clist] of JObject;
	692	for ( i := 0; i < len jajcl; i++ ) {
	693	jajcl[i] = hd clist;
	694	clist = tl clist;
	695	}
	696	paramclassarray := jni->MkAObject(jajcl);
	697	paramclassarray.class = jni->FindClass("java/lang/Class");
	698	return paramclassarray;
	699	}
	700	#
	701	# Recursively turn a signature into a list of JClass
	702	#
	703	makeParamClass(sig : string) : list of JObject
	704	{
	705	if ( sig == "" )
	706	return nil;
	707
	708	(first, rest) := splitSignature(sig);
	709	jobj: JObject;
	710	case first[0] {
	711	'L' =>
	712	first = first[1:len first - 1];
	713	newcl := jni->GetClassObject(jni->FindClass(first));
	714	jobj = cast->FromJClass(newcl);
	715	'[' =>
	716	newcl := jni->LookupArrayClass(first);
	717	jobj = cast->FromJClass(newcl);
	718	'Z' or 'B' or 'S' or 'C' or 'I' or 'J' or 'F' or 'D' =>
	719	typ := refl->SigToType(first);
	720	jobj = refl->GetPrimitiveClass(typ).Object();
	721	* =>
	722	return nil;
	723	}
	724
	725	return jobj :: makeParamClass(rest);
	726	}
	727	#
	728	# Convert an array of JClass to the corresponding signature string.
	729	#
	730	MakeSignature(jcl : JArrayJClass) : string
	731	{
	732	clarray: array of JClass;
	733	if ( jcl != nil )
	734	clarray = jcl.ary;
	735	sig := "";
	736	for ( i := 0; i < len clarray; i++)
	737	sig += MakeSingleSignature(clarray[i]);
	738	return sig;
	739	}
	740	#
	741	# Convert a Jclass to the corresponding signature.
	742	#
	743	MakeSingleSignature(this : JClass) : string
	744	{
	745	if ( (typ := jni->PrimitiveIndex(this, 1)) > 0 ) {
	746	getReflect();
	747	return refl->TypeToSig(typ);
	748	}
	749
	750	if ( this.aryname != nil )
	751	return this.aryname;
	752
	753	#
	754	# Must be a class type
	755	#
	756	return "L" + this.class.name + ";";
	757	}
	758	#
	759	# Break a signature into an initial type plus the remainder.
	760	#
	761	splitSignature(sig : string) : (string, string)
	762	{
	763	case sig[0] {
	764	'L' =>
	765	for ( i := 1; sig[i] != ';'; i++ ) ;
	766	i++;
	767	return (sig[0:i], sig[i:]);
	768
	769	'[' => # recurse to get element type
	770	(first, rest) := splitSignature(sig[1:]);
	771	return ("[" + first, rest);
	772
	773	'Z' or 'B' or 'S' or 'C' or 'I' or 'J' or 'F' or 'D' =>
	774	return (sig[0:1], sig[1:]);
	775	}
	776	return (nil, nil);
	777	}
	778

java/pkg2/java/lang/Class_L.m+30−0

@@ -0,0 +1,30 @@
	1	# javal v1.2 generated file: edit with care
	2
	3	Class_L : module
	4	{
	5
	6	init : fn( jni_p : JNI );
	7	forName_rString_rClass : fn( p0 : JString) : JClass;
	8	newInstance_rObject : fn( this : JClass) : JObject;
	9	isInstance_rObject_Z : fn( this : JClass, p0 : JObject) : int;
	10	isAssignableFrom_rClass_Z : fn( this : JClass, p0 : JClass) : int;
	11	isInterface_Z : fn( this : JClass) : int;
	12	isArray_Z : fn( this : JClass) : int;
	13	isPrimitive_Z : fn( this : JClass) : int;
	14	getName_rString : fn( this : JClass) : JString;
	15	getClassLoader_rClassLoader : fn( this : JClass) : JObject;
	16	getSuperclass_rClass : fn( this : JClass) : JClass;
	17	getInterfaces_aClass : fn( this : JClass) : JArrayJClass;
	18	getComponentType_rClass : fn( this : JClass) : JClass;
	19	getModifiers_I : fn( this : JClass) : int;
	20	getSigners_aObject : fn( this : JClass) : JArrayJObject;
	21	setSigners_aObject_V : fn( this : JClass, p0 : JArrayJObject);
	22	getPrimitiveClass_rString_rClass : fn( p0 : JString) : JClass;
	23	getFields0_I_aField : fn( this : JClass, p0 : int) : JArrayJObject;
	24	getMethods0_I_aMethod : fn( this : JClass, p0 : int) : JArrayJObject;
	25	getConstructors0_I_aConstructor : fn( this : JClass, p0 : int) : JArrayJObject;
	26	getField0_rString_I_rField : fn( this : JClass, p0 : JString,p1 : int) : JObject;
	27	getMethod0_rString_aClass_I_rMethod : fn( this : JClass, p0 : JString,p1 : JArrayJClass,p2 : int) : JObject;
	28	getConstructor0_aClass_I_rConstructor : fn( this : JClass, p0 : JArrayJClass,p1 : int) : JObject;
	29
	30	};

java/pkg2/java/lang/CloneNotSupportedException.java+0−0

Empty file added.

java/pkg2/java/lang/Cloneable.java+0−0

Empty file added.

java/pkg2/java/lang/Compiler.java+0−0

Empty file added.

java/pkg2/java/lang/Double.java+0−0

Empty file added.

java/pkg2/java/lang/Double_L.b+66−0

@@ -0,0 +1,66 @@
	1	implement Double_L;
	2
	3	# javal v1.3 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	#<<
	28
	29	include "Double_L.m";
	30
	31	#>> extra post includes here
	32	math : Math;
	33	#<<
	34
	35	init( jni_p : JNI )
	36	{
	37	# save java native inteface mod instance
	38	jni = jni_p;
	39	#>>extra initialization here
	40	math = jni->math;
	41	#<<
	42	}
	43
	44	doubleToLongBits_D_J( p0 : real) : big
	45	{#>>
	46	return( math->realbits64(p0) );
	47	}#<<
	48
	49	longBitsToDouble_J_D( p0 : big) : real
	50	{#>>
	51	return( math->bits64real( p0 ) );
	52	}#<<
	53
	54	valueOf0_rString_D( p0 : JString) : real
	55	{#>>
	56	return( real p0.str );
	57	}#<<
	58
	59	mkstring_D_rString( p0 : real) : JString
	60	{#>>
	61	s := string p0;
	62	if(p0 == 0.0)
	63	s += ".0";
	64	return( jni->NewString( s ) );
	65	}#<<
	66

java/pkg2/java/lang/Double_L.m+17−0

@@ -0,0 +1,17 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	Double_L : module
	4	{
	5	Double_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	value : real;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	doubleToLongBits_D_J : fn( p0 : real) : big;
	13	longBitsToDouble_J_D : fn( p0 : big) : real;
	14	valueOf0_rString_D : fn( p0 : JString) : real;
	15	mkstring_D_rString : fn( p0 : real) : JString;
	16
	17	};

java/pkg2/java/lang/Error.java+0−0

Empty file added.

java/pkg2/java/lang/Exception.java+0−0

Empty file added.

java/pkg2/java/lang/ExceptionInInitializerE..a+73−0

@@ -0,0 +1,73 @@
	1	/*
	2	* @(#)ExceptionInInitializerError.java 1.2 97/01/20
	3	*
	4	* Copyright (c) 1996 Sun Microsystems, Inc. All Rights Reserved.
	5	*
	6	* Permission to use, copy, modify, and distribute this software
	7	* and its documentation for NON-COMMERCIAL purposes and without
	8	* fee is hereby granted provided that this copyright notice
	9	* appears in all copies. Please refer to the file "copyright.html"
	10	* for further important copyright and licensing information.
	11	*
	12	* SUN MAKES NO REPRESENTATIONS OR WARRANTIES ABOUT THE SUITABILITY OF
	13	* THE SOFTWARE, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
	14	* TO THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
	15	* PARTICULAR PURPOSE, OR NON-INFRINGEMENT. SUN SHALL NOT BE LIABLE FOR
	16	* ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR
	17	* DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES.
	18	*/
	19
	20	package java.lang;
	21
	22	/**
	23	* Signals that an unexpected exception has occurred in a static initializer.
	24	*
	25	* @author Frank Yellin
	26	* @version 1.2, 01/20/97
	27	*
	28	* @since JDK1.1
	29	*/
	30	public
	31	class ExceptionInInitializerError extends LinkageError {
	32	private Throwable exception;
	33
	34	/**
	35	* Constructs an ExceptionInInitializerError with no detail message.
	36	* A detail message is a String that describes this particular exception.
	37	*
	38	* @since JDK1.1
	39	*/
	40	public ExceptionInInitializerError() {
	41	super();
	42	}
	43
	44	/**
	45	* Constructs a new ExceptionInInitializerError class initialized to
	46	* the specific throwable
	47	*
	48	* @param thrown The exception thrown
	49	* @since JDK1.1
	50	*/
	51	public ExceptionInInitializerError(Throwable thrown) {
	52	this.exception = thrown;
	53	}
	54
	55	/**
	56	* Constructs a ExceptionInInitializerError with the specified detail message.
	57	* A detail message is a String that describes this particular exception.
	58	*
	59	* @param s the detail message
	60	* @since JDK1.1
	61	*/
	62	public ExceptionInInitializerError(String s) {
	63	super(s);
	64	}
	65
	66	/**
	67	* Returns the exception that occurred during a static initialization that
	68	* caused this Error to be created.
	69	*/
	70	public Throwable getException() {
	71	return exception;
	72	}
	73	}

java/pkg2/java/lang/Float.java+0−0

Empty file added.

java/pkg2/java/lang/Float_L.b+60−0

@@ -0,0 +1,60 @@
	1	implement Float_L;
	2
	3	# javal v1.3 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	#<<
	28
	29	include "Float_L.m";
	30
	31	#>> extra post includes here
	32	math : Math;
	33	#<<
	34
	35	init( jni_p : JNI )
	36	{
	37	# save java native inteface mod instance
	38	jni = jni_p;
	39	#>>extra initialization here
	40	math = jni->math;
	41	#<<
	42	}
	43
	44	floatToIntBits_F_I( p0 : real) : int
	45	{#>>
	46	return( math->realbits32(p0) );
	47	}#<<
	48
	49	intBitsToFloat_I_F( p0 : int) : real
	50	{#>>
	51	return( math->bits32real(p0) );
	52	}#<<
	53
	54	mkstring_F_rString( p0 : real) : JString
	55	{#>>
	56	s := string p0;
	57	if(p0 == 0.0)
	58	s += ".0";
	59	return( jni->NewString( s ) );
	60	}#<<

java/pkg2/java/lang/Float_L.m+16−0

@@ -0,0 +1,16 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	Float_L : module
	4	{
	5	Float_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	value : real;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	floatToIntBits_F_I : fn( p0 : real) : int;
	13	intBitsToFloat_I_F : fn( p0 : int) : real;
	14	mkstring_F_rString : fn( p0 : real) : JString;
	15
	16	};

java/pkg2/java/lang/IllegalAccessError.java+0−0

Empty file added.

java/pkg2/java/lang/IllegalAccessException.java+0−0

Empty file added.

java/pkg2/java/lang/IllegalArgumentException.java+0−0

Empty file added.

java/pkg2/java/lang/IllegalMonitorStateException.java+0−0

Empty file added.

java/pkg2/java/lang/IllegalStateException.java+0−0

Empty file added.

java/pkg2/java/lang/IllegalThreadStateExcep..a+0−0

Empty file added.

java/pkg2/java/lang/IncompatibleClassChange..a+0−0

Empty file added.

java/pkg2/java/lang/IndexOutOfBoundsExcepti..a+0−0

Empty file added.

java/pkg2/java/lang/InfernoProcess.java+0−0

Empty file added.

java/pkg2/java/lang/InfernoProcess_L.b+207−0

@@ -0,0 +1,207 @@
	1	implement InfernoProcess_L;
	2
	3	# javal v1.3 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	include "java/io/FileDescriptor_L.m";
	28	FileDescriptor_obj : import FileDescriptor_L;
	29
	30	#<<
	31
	32	include "InfernoProcess_L.m";
	33
	34	#>> extra post includes here
	35
	36	include "sh.m";
	37
	38	ioexception := "";
	39
	40	#<<
	41
	42	init( jni_p : JNI )
	43	{
	44	# save java native inteface mod instance
	45	jni = jni_p;
	46	#>>extra initialization here
	47	#<<
	48	}
	49
	50	initProc_aString_aString_V( this : ref InfernoProcess_obj, p0 : JArrayJString,p1 : JArrayJString)
	51	{#>>
	52	#
	53	# p0 : command and arguments
	54	# p1 : environment in for var=value; does not apply in Inferno
	55	#
	56	dummy := this;
	57	jstrs := p0.ary;
	58	args : list of string;
	59	l := len jstrs;
	60	for ( i := l-1; i >= 0; i--)
	61	args = jstrs[i].str :: args;
	62
	63	sync := chan of int;
	64	spawn exec(this, args, sync);
	65	pid := <- sync;
	66	if ( pid == 0 )
	67	jni->ThrowException("java.io.IOException", ioexception);
	68	}#<<
	69
	70	waitFor_I( this : ref InfernoProcess_obj) : int
	71	{#>>
	72	if ( this.waitfd.fd == nil )
	73	this.terminated = JNI->TRUE;
	74	while ( this.terminated == JNI->FALSE ) {
	75	(ok, nil) := jni->sys->fstat(this.waitfd.fd);
	76	if ( ok < 0 )
	77	this.terminated = JNI->TRUE;
	78	else
	79	jni->sys->sleep(1000);
	80	}
	81	this.waitfd.fd = nil;
	82	return 0;
	83	}#<<
	84
	85	destroy_V( this : ref InfernoProcess_obj)
	86	{#>>
	87	if ( this.pid == 0 \|\| isTerminated_Z(this) == JNI->TRUE )
	88	return;
	89
	90	fd := jni->sys->open("/prog/"+string this.pid+"/ctl", jni->sys->OWRITE);
	91	if ( fd != nil )
	92	jni->sys->fprint(fd, "killgrp");
	93	this.pid = 0;
	94	this.terminated = JNI->TRUE;
	95	}#<<
	96
	97	isTerminated_Z( this : ref InfernoProcess_obj) : int
	98	{#>>
	99	# If the file descriptor being used to wait for the process to terminate
	100	# is still good, the process hasn't terminated yet.
	101	#
	102	if ( this.waitfd.fd == nil )
	103	return this.terminated = JNI->TRUE;
	104	(ok, nil) := jni->sys->fstat(this.waitfd.fd);
	105	if ( ok < 0 )
	106	this.terminated = JNI->TRUE;
	107	return this.terminated;
	108	}#<<
	109
	110
	111
	112	exec(this : ref InfernoProcess_obj, args : list of string,
	113	waitpid : chan of int)
	114	{
	115	# find and load module corresponding to hd args.
	116	cmd := hd args;
	117	file := cmd;
	118	if ( len file < 4 \|\| file[len file - 4:] != ".dis" )
	119	file += ".dis";
	120
	121	c := load Command file;
	122	if ( c == nil ) {
	123	err := jni->sys->sprint("%r");
	124	if ( err == "file does not exist" && file[0] != '/' &&
	125	file[0:2] != "./" ) {
	126	c = load Command "/dis/" + file;
	127	if ( c == nil )
	128	err = jni->sys->sprint("%r");
	129	}
	130	if ( c == nil ) {
	131	ioexception = jni->sys->sprint("%s: %r", cmd);
	132	waitpid <- = 0;
	133	return;
	134	}
	135	}
	136	#
	137	# Get pid (via pctl) and save; We save the pid of the PARENT of the
	138	# thread that will actually execute the command. Then if someone
	139	# calls destroy, the whole group is killed.
	140	#
	141	this.pid = jni->sys->pctl(Sys->FORKNS \| Sys->NEWPGRP, nil);
	142	#
	143	# Note: have to open the /prog/n/wait file of parent before doing the spawn.
	144	#
	145	waitfd : ref Sys->FD;;
	146	if ( this.pid > 0 )
	147	waitfd = jni->sys->open("#p/" + string this.pid + "/wait", Sys->OREAD);
	148	this.waitfd.fd = waitfd;
	149
	150	# arrange for new input/output to the command. Save in stdin & stdout.
	151	si := array[2] of ref Sys->FD;
	152	so := array[2] of ref Sys->FD;
	153	se := array[2] of ref Sys->FD;
	154	if ( jni->sys->pipe(si) < 0 ) {
	155	ioexception = "pipe failure";
	156	waitpid <- = 0;
	157	return;
	158	}
	159	if ( jni->sys->pipe(so) < 0 ) {
	160	ioexception = "pipe failure";
	161	waitpid <- = 0;
	162	return;
	163	}
	164	if ( jni->sys->pipe(se) < 0 ) {
	165	ioexception = "pipe failure";
	166	waitpid <- = 0;
	167	return;
	168	}
	169	this.stdin.fd = si[1];
	170	this.stdout.fd = so[0];
	171	this.stderr.fd = se[0];
	172	spawn exec1(c, si[0], so[1], se[1], args, waitpid);
	173	si[0] = si[1] = so[0] = so[1] = se[0] = se[1] = nil;
	174	#
	175	# We can't just exit this thread, or we could never detect completion
	176	# of the child. So we wait here for the wait notification.
	177	# Note that we nil the 'this' reference, so that it will be
	178	# possible for it to be garbage collected when not referenced elsewhere.
	179	# That means we can't set the terminated flag, so that anyone who
	180	# really needs to know whether the process has terminated has to check
	181	# to see if this.waitfd.fd is still a valid FD.
	182	#
	183	this = nil;
	184	buf := array[64] of byte;
	185	if ( waitfd != nil && jni->sys->read(waitfd, buf, len buf) < 0 )
	186	jni->sys->print("read error on wait file: %r\n")
	187	; # even if this is an error, how do we report it?
	188	}
	189
	190	exec1(cmd : Command, in, out, err : ref Sys->FD, args : list of string,
	191	c : chan of int)
	192	{
	193	newfds := in.fd :: out.fd :: err.fd :: nil;
	194	pid := jni->sys->pctl(Sys->NEWFD, newfds);
	195	jni->sys->dup(in.fd, 0);
	196	jni->sys->dup(out.fd, 1);
	197	jni->sys->dup(err.fd, 2);
	198	in = out = err = nil;
	199	pid = jni->sys->pctl(Sys->NEWFD, 0 :: 1 :: 2 :: nil);
	200	#
	201	# Eventually there has to be a way to get the Draw->Context.
	202	#
	203	# ctxt := jni->GetContext();
	204	c <- = pid;
	205	cmd->init(nil, args);
	206	}
	207

java/pkg2/java/lang/InfernoProcess_L.m+22−0

@@ -0,0 +1,22 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	InfernoProcess_L : module
	4	{
	5	InfernoProcess_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	stdin : ref FileDescriptor_obj;
	9	stdout : ref FileDescriptor_obj;
	10	stderr : ref FileDescriptor_obj;
	11	pid : int;
	12	waitfd : ref FileDescriptor_obj;
	13	terminated : int;
	14	};
	15
	16	init : fn( jni_p : JNI );
	17	initProc_aString_aString_V : fn( this : ref InfernoProcess_obj, p0 : JArrayJString,p1 : JArrayJString);
	18	waitFor_I : fn( this : ref InfernoProcess_obj) : int;
	19	destroy_V : fn( this : ref InfernoProcess_obj);
	20	isTerminated_Z : fn( this : ref InfernoProcess_obj) : int;
	21
	22	};

java/pkg2/java/lang/InstantiationError.java+0−0

Empty file added.

java/pkg2/java/lang/InstantiationException.java+0−0

Empty file added.

java/pkg2/java/lang/Integer.java+0−0

Empty file added.

java/pkg2/java/lang/InternalError.java+0−0

Empty file added.

java/pkg2/java/lang/InterruptedException.java+0−0

Empty file added.

java/pkg2/java/lang/LinkageError.java+0−0

Empty file added.

java/pkg2/java/lang/Long.java+0−0

Empty file added.

java/pkg2/java/lang/Math.java+0−0

Empty file added.

java/pkg2/java/lang/Math_L.b+119−0

@@ -0,0 +1,119 @@
	1	implement Math_L;
	2
	3	# javal v1.2 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JObject : import jni;
	23
	24	#>> extra pre includes here
	25
	26	#<<
	27
	28	include "Math_L.m";
	29
	30	#>> extra post includes here
	31	math : Math;
	32	#<<
	33
	34	init( jni_p : JNI )
	35	{
	36	# save java native inteface mod instance
	37	jni = jni_p;
	38	#>>extra initialization here
	39	math = jni->math;
	40	#<<
	41	}
	42
	43	sin_D_D( p0 : real) : real
	44	{#>>
	45	return( math->sin(p0) );
	46	}#<<
	47
	48	cos_D_D( p0 : real) : real
	49	{#>>
	50	return( math->cos(p0) );
	51	}#<<
	52
	53	tan_D_D( p0 : real) : real
	54	{#>>
	55	return( math->tan(p0) );
	56	}#<<
	57
	58	asin_D_D( p0 : real) : real
	59	{#>>
	60	return( math->asin(p0) );
	61	}#<<
	62
	63	acos_D_D( p0 : real) : real
	64	{#>>
	65	return( math->acos(p0) );
	66	}#<<
	67
	68	atan_D_D( p0 : real) : real
	69	{#>>
	70	return( math->atan(p0) );
	71	}#<<
	72
	73	exp_D_D( p0 : real) : real
	74	{#>>
	75	return( math->exp(p0) );
	76	}#<<
	77
	78	log_D_D( p0 : real) : real
	79	{#>>
	80	return( math->log(p0) );
	81	}#<<
	82
	83	sqrt_D_D( p0 : real) : real
	84	{#>>
	85	return( math->sqrt(p0) );
	86	}#<<
	87
	88	IEEEremainder_D_D_D( p0 : real,p1 : real) : real
	89	{#>>
	90	return( math->remainder(p0,p1) );
	91	}#<<
	92
	93	ceil_D_D( p0 : real) : real
	94	{#>>
	95	return( math->ceil(p0) );
	96	}#<<
	97
	98	floor_D_D( p0 : real) : real
	99	{#>>
	100	return( math->floor(p0) );
	101	}#<<
	102
	103	rint_D_D( p0 : real) : real
	104	{#>>
	105	return( math->rint(p0) );
	106	}#<<
	107
	108	atan2_D_D_D( p0 : real,p1 : real) : real
	109	{#>>
	110	return( math->atan2(p0,p1) );
	111	}#<<
	112
	113	pow_D_D_D( p0 : real,p1 : real) : real
	114	{#>>
	115	return( math->pow(p0,p1) );
	116	}#<<
	117
	118
	119

java/pkg2/java/lang/Math_L.m+27−0

@@ -0,0 +1,27 @@
	1	# javal v1.2 generated file: edit with care
	2
	3	Math_L : module
	4	{
	5	Math_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	};
	9
	10	init : fn( jni_p : JNI );
	11	sin_D_D : fn( p0 : real) : real;
	12	cos_D_D : fn( p0 : real) : real;
	13	tan_D_D : fn( p0 : real) : real;
	14	asin_D_D : fn( p0 : real) : real;
	15	acos_D_D : fn( p0 : real) : real;
	16	atan_D_D : fn( p0 : real) : real;
	17	exp_D_D : fn( p0 : real) : real;
	18	log_D_D : fn( p0 : real) : real;
	19	sqrt_D_D : fn( p0 : real) : real;
	20	IEEEremainder_D_D_D : fn( p0 : real,p1 : real) : real;
	21	ceil_D_D : fn( p0 : real) : real;
	22	floor_D_D : fn( p0 : real) : real;
	23	rint_D_D : fn( p0 : real) : real;
	24	atan2_D_D_D : fn( p0 : real,p1 : real) : real;
	25	pow_D_D_D : fn( p0 : real,p1 : real) : real;
	26
	27	};

java/pkg2/java/lang/NegativeArraySizeExcept..a+0−0

Empty file added.

java/pkg2/java/lang/NoClassDefFoundError.java+0−0

Empty file added.

java/pkg2/java/lang/NoSuchFieldError.java+0−0

Empty file added.

java/pkg2/java/lang/NoSuchFieldException.java+0−0

Empty file added.

java/pkg2/java/lang/NoSuchMethodError.java+0−0

Empty file added.

java/pkg2/java/lang/NoSuchMethodException.java+0−0

Empty file added.

java/pkg2/java/lang/NullPointerException.java+0−0

Empty file added.

java/pkg2/java/lang/Number.java+0−0

Empty file added.

java/pkg2/java/lang/NumberFormatException.java+0−0

Empty file added.

java/pkg2/java/lang/Object.java+0−0

Empty file added.

java/pkg2/java/lang/Object_L.b+71−0

@@ -0,0 +1,71 @@
	1	implement Object_L;
	2
	3	include "jni.m";
	4	jni : JNI;
	5	ClassModule,
	6	JString,
	7	JArray,
	8	JArrayI,
	9	JArrayC,
	10	JArrayB,
	11	JArrayS,
	12	JArrayJ,
	13	JArrayF,
	14	JArrayD,
	15	JArrayZ,
	16	JArrayJObject,
	17	JArrayJString,
	18	JClass,
	19	JObject : import jni;
	20
	21	#>> extra pre includes here
	22
	23	#<<
	24
	25	include "Object_L.m";
	26
	27	#>> extra post includes here
	28
	29	#<<
	30
	31	init( jni_p : JNI )
	32	{
	33	# save java native inteface mod instance
	34	jni = jni_p;
	35	#>>extra initialization here
	36	#<<
	37	}
	38
	39	getClass_rClass( this : JObject) : JClass
	40	{#>>
	41	return( jni->GetObjectClass(this) );
	42	}#<<
	43
	44	hashCode_I( this : JObject ) : int
	45	{#>>
	46	return( jni->IdentityHash( this ) );
	47	}#<<
	48
	49	clone_rObject( this : JObject ) : JObject
	50	{#>>
	51	return( jni->DupObject( this ) );
	52	}#<<
	53
	54	notify_V( this : JObject )
	55	{#>>
	56	jni->jldr->monitornotify( this, 0 );
	57	}#<<
	58
	59	notifyAll_V( this : JObject )
	60	{#>>
	61	jni->jldr->monitornotify( this, 1 );
	62	}#<<
	63
	64	wait_J_V( this : JObject, p0 : big)
	65	{#>>
	66	if ( p0 < big 0 )
	67	jni->ThrowException( "java.lang.IllegalArgumentException", "negative timeout value" );
	68	# limit to 30 bits of millisecond time.
	69	duration := (int p0) & 16r3FFFFFFF;
	70	jni->jldr->monitorwait( this, duration );
	71	}#<<

java/pkg2/java/lang/Object_L.m+14−0

@@ -0,0 +1,14 @@
	1	# generated file edit with care
	2
	3	Object_L : module
	4	{
	5	init : fn( jni_p : JNI );
	6	getClass_rClass : fn( this : JObject ) : JClass;
	7	hashCode_I : fn( this : JObject ) : int;
	8	clone_rObject : fn( this : JObject ) : JObject;
	9	notify_V : fn( this : JObject );
	10	notifyAll_V : fn( this : JObject );
	11	wait_J_V : fn( this : JObject, p0 : big);
	12	registerNatives_V : fn( this : JObject );
	13
	14	};

java/pkg2/java/lang/OutOfMemoryError.java+0−0

Empty file added.

java/pkg2/java/lang/Process.java+0−0

Empty file added.

java/pkg2/java/lang/Runnable.java+0−0

Empty file added.

java/pkg2/java/lang/Runtime.java+0−0

Empty file added.

java/pkg2/java/lang/RuntimeException.java+0−0

Empty file added.

java/pkg2/java/lang/Runtime_L.b+161−0

@@ -0,0 +1,161 @@
	1	implement Runtime_L;
	2
	3	# javal v1.2 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JObject : import jni;
	23
	24	#>> extra pre includes here
	25
	26	#<<
	27
	28	include "Runtime_L.m";
	29
	30	#>> extra post includes here
	31
	32	#<<
	33
	34	init( jni_p : JNI )
	35	{
	36	# save java native inteface mod instance
	37	jni = jni_p;
	38	#>>extra initialization here
	39	#<<
	40	}
	41
	42	killgrp()
	43	{
	44	# kill this process group
	45	msg := array of byte "killgrp";
	46	pid := string jni->sys->pctl(0,nil); #my pid
	47
	48	fd := jni->sys->open("#p/"+pid+"/ctl", Sys->OWRITE);
	49	if(fd != nil)
	50	jni->sys->write(fd, msg, len msg);
	51
	52	#note: we silently fail if we could not open
	53	#'#p' (i.e. because of NODEVS) or if the
	54	#write fails
	55	}
	56
	57	exitInternal_I_V( this : ref Runtime_obj, p0 : int)
	58	{#>>
	59	# can't kill self, so spawn thread to kill group
	60	spawn killgrp();
	61	# send nowhere until killed
	62	chan of int <-= 666;
	63	junk := (this,p0); #inferno does not have an exit code
	64	}#<<
	65
	66	runFinalizersOnExit0_Z_V( p0 : int)
	67	{#>>
	68	junk := (p0);
	69	}#<<
	70
	71	freeMemory_J( this : ref Runtime_obj) : big
	72	{#>>
	73	# open; read; parase; memory device
	74	mfd := jni->sys->open("#c/memory", Sys->OREAD);
	75	if ( mfd == nil )
	76	return(big 0);
	77	buf := array[300] of byte;
	78	n := jni->sys->read(mfd, buf, len buf);
	79	if(n <= 0)
	80	return(big 0);
	81	(nil, arena) := jni->sys->tokenize(string buf[0:n], "\n");
	82	(used,limit) := (0,0);
	83	# walk list of arena's looking for "heap"
	84	while(arena != nil)
	85	{
	86	# break line into tokens
	87	(nil,tok) := jni->sys->tokenize( hd arena, " " );
	88	used = int (hd tok); #first tok is amount used
	89	tok = tl tok;
	90	limit = int (hd tok); #second tok is total
	91	name : string;
	92	for(tok= tl tok; tok != nil; tok = tl tok)
	93	name = hd tok;
	94
	95	if ( name == "heap" )
	96	break;
	97	arena = tl arena;
	98	}
	99
	100	# return the amount free
	101	return( big (limit-used) );
	102	junk := (this);
	103	}#<<
	104
	105	totalMemory_J( this : ref Runtime_obj) : big
	106	{#>>
	107	# open; read; parase; memory device
	108	mfd := jni->sys->open("#c/memory", Sys->OREAD);
	109	if ( mfd == nil )
	110	return( big 0 );
	111	buf := array[300] of byte;
	112	n := jni->sys->read(mfd, buf, len buf);
	113	if(n <= 0)
	114	return(big 0);
	115	(nil, arena) := jni->sys->tokenize(string buf[0:n], "\n");
	116	limit := 0;
	117	while(arena != nil)
	118	{
	119	# break line into tokens
	120	(nil,tok) := jni->sys->tokenize( hd arena, " " );
	121	tok = tl tok;
	122	limit = int (hd tok); #second tok is total
	123	name : string;
	124	for(tok= tl tok; tok != nil; tok = tl tok)
	125	name = hd tok;
	126
	127	if ( name == "heap" )
	128	break;
	129	arena = tl arena;
	130	}
	131
	132	# return the total amount
	133	return( big limit );
	134	junk := (this);
	135	}#<<
	136
	137	gc_V( this : ref Runtime_obj)
	138	{#>>
	139	# do nothing
	140	junk := this;
	141	}#<<
	142
	143	runFinalization_V( this : ref Runtime_obj)
	144	{#>>
	145	# do nothing
	146	junk := this;
	147	}#<<
	148
	149	traceInstructions_Z_V( this : ref Runtime_obj, p0 : int)
	150	{#>>
	151	# do nothing
	152	return;
	153	junk := (this,p0);
	154	}#<<
	155
	156	traceMethodCalls_Z_V( this : ref Runtime_obj, p0 : int)
	157	{#>>
	158	# doing nothing is a valid implementation
	159	return;
	160	junk := (this,p0);
	161	}#<<

java/pkg2/java/lang/Runtime_L.m+20−0

@@ -0,0 +1,20 @@
	1	# javal v1.2 generated file: edit with care
	2
	3	Runtime_L : module
	4	{
	5	Runtime_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	};
	9
	10	init : fn( jni_p : JNI );
	11	exitInternal_I_V : fn( this : ref Runtime_obj, p0 : int);
	12	runFinalizersOnExit0_Z_V : fn( p0 : int);
	13	freeMemory_J : fn( this : ref Runtime_obj) : big;
	14	totalMemory_J : fn( this : ref Runtime_obj) : big;
	15	gc_V : fn( this : ref Runtime_obj);
	16	runFinalization_V : fn( this : ref Runtime_obj);
	17	traceInstructions_Z_V : fn( this : ref Runtime_obj, p0 : int);
	18	traceMethodCalls_Z_V : fn( this : ref Runtime_obj, p0 : int);
	19
	20	};

java/pkg2/java/lang/SecurityException.java+0−0

Empty file added.

java/pkg2/java/lang/SecurityManager.java+0−0

Empty file added.

java/pkg2/java/lang/SecurityManager_L.b+175−0

@@ -0,0 +1,175 @@
	1	implement SecurityManager_L;
	2
	3	# javal v1.2 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JObject : import jni;
	23
	24	#>> extra pre includes here
	25
	26	#<<
	27
	28	include "SecurityManager_L.m";
	29
	30	#>> extra post includes here
	31
	32	#<<
	33
	34	init( jni_p : JNI )
	35	{
	36	# save java native inteface mod instance
	37	jni = jni_p;
	38	#>>extra initialization here
	39	#<<
	40	}
	41
	42	getClassContext_aClass( this : ref SecurityManager_obj) : JArrayJClass
	43	{#>>
	44	#
	45	# return an array of classes that represent the classes of
	46	# each method on the current call stack (presumably ignoring
	47	# any native funtions).
	48	#
	49	jni->FatalError( "getClassContext() not implemented" );
	50	junk := this;
	51	return(nil);
	52	}#<<
	53
	54	currentClassLoader_rClassLoader( this : ref SecurityManager_obj) : JObject
	55	{#>>
	56	#
	57	# this returns the most recent class loader on the current call
	58	# stack. Traditionally the call stack is walked and the class of
	59	# each "active" method is checked to obtain its class loader (if
	60	# any; null==root loader). The first such class loader we find
	61	# is returned.
	62	#
	63	return(nil); #for now we don't walk back
	64	junk := this;
	65	}#<<
	66
	67	classDepth_rString_I( this : ref SecurityManager_obj, p0 : JString) : int
	68	{#>>
	69	#
	70	# walk the call stack looking for a method that resides in
	71	# the class specified.
	72	#
	73	if ( p0 != nil )
	74	{
	75	clname := p0.str;
	76	# change any '.' to '/'
	77	l := len clname;
	78	for(x:=0;x<l; x++)
	79	if ( clname[x] == '.' ) clname[x] = '/';
	80
	81	# attempt to open the local "prog" device (i.e. '#p')
	82	# and read the call stack into an array of bytes
	83	pid := jni->sys->pctl(0,nil);
	84	progfile := "#p/"+ (string pid) +"/stack";
	85	fd := jni->sys->open( progfile, Sys->OREAD );
	86	if ( fd != nil )
	87	{
	88	# must spin a thread to read my own call-stack
	89	result := chan of array of byte; # channel for thd results
	90	spawn ReadCallStack( fd, result );
	91	callstack := <- result; # wait for results
	92
	93	(cnt,frame) := jni->sys->tokenize( string callstack, "\n" );
	94	if ( cnt > 0 )
	95	{
	96	# walk frames looking for module-name/class-name match
	97	depth := 0;
	98	for( ; frame!=nil; frame=tl frame )
	99	{
	100	# parse each line
	101	(a,tok) := jni->sys->tokenize(hd frame, " ");
	102	if ( a > 0 )
	103	{
	104	#module name is last token
	105	for( b:=0; b<a-1; b-- )
	106	tok = tl tok;
	107	if ( (hd tok) == clname )
	108	return( depth );
	109	}
	110	depth++;
	111	}
	112	}
	113	}
	114
	115	}
	116
	117	return(-1); #if we are here we can't find the class
	118	junk := (this);
	119	}#<<
	120
	121	classLoaderDepth_I( this : ref SecurityManager_obj) : int
	122	{#>>
	123	#
	124	# return the number of frames back to the first class
	125	# loader on the call stack. Return -1 if no classloaders.
	126	#
	127	return(-1); #for now we don't walk back
	128	junk := this;
	129	}#<<
	130
	131	currentLoadedClass0_rClass( this : ref SecurityManager_obj) : JClass
	132	{#>>
	133	#
	134	# return the first class on the call stack that was loaded
	135	# with a class loader.
	136	#
	137	return( nil );
	138	junk := this;
	139	}#<<
	140
	141
	142
	143
	144	ReadCallStack( fd : ref Sys->FD, result : chan of array of byte )
	145	{
	146	# read until eof
	147	buf := array[8000] of byte; #about 10 frames
	148	(n,ptr) := (0,0);
	149	do
	150	{
	151	cur := len buf-ptr;
	152	n = jni->sys->read(fd, buf[ptr:], cur);
	153	ptr += n;
	154	if ( n == cur )
	155	{
	156	# need to read more
	157	buf = ExtendBuf(buf);
	158	}
	159
	160	} while ( n != 0 );
	161
	162	result <- = buf[:ptr];
	163	}
	164
	165	ExtendBuf( buf : array of byte ) : array of byte
	166	{
	167	curlen := len buf;
	168	newbuf := array[curlen + 8000] of byte;
	169
	170	# copy old contents
	171	for(x:=0; x<curlen; x++ )
	172	newbuf[x] = buf[x];
	173
	174	return( newbuf );
	175	}

java/pkg2/java/lang/SecurityManager_L.m+19−0

@@ -0,0 +1,19 @@
	1	# javal v1.2 generated file: edit with care
	2
	3	SecurityManager_L : module
	4	{
	5	SecurityManager_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	inCheck : int;
	9	initialized : int;
	10	};
	11
	12	init : fn( jni_p : JNI );
	13	getClassContext_aClass : fn( this : ref SecurityManager_obj) : JArrayJClass;
	14	currentClassLoader_rClassLoader : fn( this : ref SecurityManager_obj) : JObject;
	15	classDepth_rString_I : fn( this : ref SecurityManager_obj, p0 : JString) : int;
	16	classLoaderDepth_I : fn( this : ref SecurityManager_obj) : int;
	17	currentLoadedClass0_rClass : fn( this : ref SecurityManager_obj) : JClass;
	18
	19	};

java/pkg2/java/lang/Short.java+0−0

Empty file added.

java/pkg2/java/lang/StackOverflowError.java+0−0

Empty file added.

java/pkg2/java/lang/String.java+0−0

Empty file added.

java/pkg2/java/lang/StringBuffer.java+0−0

Empty file added.

java/pkg2/java/lang/StringBuffer_L.b+359−0

@@ -0,0 +1,359 @@
	1	implement StringBuffer_L;
	2
	3	# javal v1.4 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	# this module implements the class java.lang.StringBuffer
	28	# the buffer is really a Limbo string type. In the original
	29	# Java implementation an array of char was used and the array
	30	# size was always >= to the buffer contents. In this version
	31	# The limbo string represents only the buffer contents and
	32	# contains no extra "padding". This is done because the
	33	# Inferno implementation of string is optimized for string
	34	# operations. Thus, the actual buffer contents is simply the
	35	# length of the Limbo string; the original Java version
	36	# maintained the buffer content size in the field 'count'.
	37	# For conveience of the Java code, and to negate a call into
	38	# the native Limbo, the 'count' field is maintained to always
	39	# be the length of the Limbo string: e.g. "count=len Ivalue".
	40	#
	41	# In the Java version the character array can be shared with
	42	# an instance of the Java String class, hence a flag for being
	43	# shared. This is not the case for the Inferno implementation.
	44	# whenever data is passed out it must be a copy of the 'Ivalue'
	45	# string.
	46	#
	47	# When this was implemented synchronizatio of native methods
	48	# was not complete, so this module assumes if a method should
	49	# be synchronized it is done before entering the native method
	50	# so each native method should be a private method and wrapped
	51	# in Java code by a synchronized method (or block).
	52	#
	53	# The java.lang.StringBuffer class is serialzable. For Inferno
	54	# since the internal structure has changed serialization must
	55	# be explitily handled by this class. This is done by adding
	56	# writeObject()/readObject() methods in the Java side to write
	57	# and read in the expected format, so outside VM's do not know
	58	# we have a differen implementation.
	59	#
	60
	61	#<<
	62
	63	include "StringBuffer_L.m";
	64
	65	#>> extra post includes here
	66	Value : import jni;
	67	cast : Cast;
	68
	69	#<<
	70
	71	init( jni_p : JNI )
	72	{
	73	# save java native inteface mod instance
	74	jni = jni_p;
	75	#>>extra initialization here
	76	cast = jni->CastMod();
	77	#<<
	78	}
	79
	80	setLength0_I_V( this : ref StringBuffer_obj, p0 : int)
	81	{#>>
	82	# p0 => length to set buf to; assume >=0
	83
	84	l := len this.Ivalue;
	85
	86	if ( p0 < l ) # truncate
	87	this.Ivalue = this.Ivalue[:p0];
	88	else { # pad with null characters
	89	for( i := l; i < p0; i++ )
	90	this.Ivalue[i] = '\0';
	91	}
	92	this.count = len this.Ivalue;
	93	}#<<
	94
	95	charAt0_I_C( this : ref StringBuffer_obj, p0 : int) : int
	96	{#>>
	97	# assume p0 is within the range 0..len this.Ivalue
	98	return( this.Ivalue[p0] );
	99	}#<<
	100
	101	getChars0_I_I_aC_I_V( this : ref StringBuffer_obj, p0 : int,p1 : int,p2 : JArrayC,p3 : int)
	102	{#>>
	103	# assume the index ranges are already checked
	104	copy_count := (p1-p0);
	105	dst_end := p3 + copy_count;
	106	if ( dst_end > len p2.ary )
	107	jni->ThrowException( "java.lang.ArrayIndexOutOfBoundsException", "destination array not large enough" );
	108
	109	# copy one char at a time
	110	for( (x,y) := (p3,p0); x < copy_count; junk:=(x++,y++) )
	111	p2.ary[x] = this.Ivalue[y];
	112
	113	}#<<
	114
	115	setCharAt0_I_C_V( this : ref StringBuffer_obj, p0 : int,p1 : int)
	116	{#>>
	117	# assume index has been checked
	118	this.Ivalue[p0] = p1;
	119	}#<<
	120
	121	reverse0_V( this : ref StringBuffer_obj)
	122	{#>>
	123	# reverse the string buffer contents
	124	str := this.Ivalue[:]; # slice a copy
	125	for( (x,y):=(0,(len str)-1); x<len str; junk:=(x++,y--) )
	126	this.Ivalue[x] = str[y];
	127
	128	}#<<
	129
	130	append_int_I_V( this : ref StringBuffer_obj, p0 : int)
	131	{#>>
	132	# append the Ivalue to the string
	133	this.Ivalue += string p0;
	134	this.count = len this.Ivalue;
	135	}#<<
	136
	137	append_long_J_V( this : ref StringBuffer_obj, p0 : big)
	138	{#>>
	139	# append the Ivalue to the string
	140	this.Ivalue += string p0;
	141	this.count = len this.Ivalue;
	142	}#<<
	143
	144	append_str_rString_V( this : ref StringBuffer_obj, p0 : JString)
	145	{#>>
	146	# append the Ivalue to the string
	147	val : string;
	148	if ( p0 == nil )
	149	val = "null"; #this is what Java wants
	150	else
	151	val = p0.str;
	152
	153	this.Ivalue += val;
	154	this.count = len this.Ivalue;
	155	}#<<
	156
	157	append_chars_aC_I_I_V( this : ref StringBuffer_obj, p0 : JArrayC,p1 : int,p2 : int)
	158	{#>>
	159	# append the Ivalue to the string
	160	if ( p0 == nil ) return;
	161
	162	val := p0.ary[p1:p1+p2];
	163	l := len this.Ivalue;
	164	for( x:=0; x < len val; x++ )
	165	this.Ivalue[l++] = val[x];
	166	this.count = len this.Ivalue;
	167	}#<<
	168
	169	append_ch_C_V( this : ref StringBuffer_obj, p0 : int)
	170	{#>>
	171	# append the Ivalue to the string
	172	this.Ivalue[this.count] = p0;
	173	this.count++;
	174	}#<<
	175
	176	append_float_F_V( this : ref StringBuffer_obj, p0 : real)
	177	{#>>
	178	# append the Ivalue to the string
	179	s := string p0;
	180	if(p0 == 0.0)
	181	s += ".0";
	182	this.Ivalue += s;
	183	this.count = len this.Ivalue;
	184	}#<<
	185
	186	append_double_D_V( this : ref StringBuffer_obj, p0 : real)
	187	{#>>
	188	# append the Ivalue to the string
	189	s := string p0;
	190	if(p0 == 0.0)
	191	s += ".0";
	192	this.Ivalue += s;
	193	this.count = len this.Ivalue;
	194	}#<<
	195
	196	insert_int_I_I_V( this : ref StringBuffer_obj, p0 : int,p1 : int)
	197	{#>>
	198	# insert 'p1' into the string the new string is
	199	# left + p1 + right; where left is Ivalue[:p0]
	200	# and right is Ivalue[p0:]. newright is
	201	# p1+right
	202	# assume args have been checked
	203	#
	204	newright := (string p1) + this.Ivalue[p0:];
	205	this.Ivalue = this.Ivalue[:p0] + newright;
	206	this.count = len this.Ivalue;
	207	}#<<
	208
	209	insert_long_I_J_V( this : ref StringBuffer_obj, p0 : int,p1 : big)
	210	{#>>
	211	# insert 'p1' into the string the new string is
	212	# left + p1 + right; where left is Ivalue[0:p0]
	213	# and right is Ivalue[p0:count]. newright is
	214	# p1+right
	215	#
	216	newright := (string p1) + this.Ivalue[p0:];
	217	this.Ivalue = this.Ivalue[:p0] + newright;
	218	this.count = len this.Ivalue;
	219	}#<<
	220
	221	insert_str_I_rString_V( this : ref StringBuffer_obj, p0 : int,p1 : JString)
	222	{#>>
	223	# insert 'p1' into the string the new string is
	224	# left + p1 + right; where left is Ivalue[0:p0]
	225	# and right is Ivalue[p0:count]. newright is
	226	# p1+right
	227	#
	228	val : string;
	229	if ( p1 == nil )
	230	val = "null";
	231	else
	232	val = p1.str;
	233	newright := val + this.Ivalue[p0:];
	234	left := this.Ivalue[:p0];
	235	this.Ivalue = left + newright;
	236	this.count = len this.Ivalue;
	237	}#<<
	238
	239	insert_chars_I_aC_V( this : ref StringBuffer_obj, p0 : int,p1 : JArrayC)
	240	{#>>
	241	# insert 'p1' into the string the new string is
	242	# left + p1 + right; where left is Ivalue[:p0]
	243	# and right is Ivalue[p0:]. newright is
	244	# p1+right
	245	#
	246	if ( p1 == nil ) return;
	247
	248	# get copy of old right part and lop it off
	249	oldright := this.Ivalue[p0:];
	250	this.Ivalue = this.Ivalue[:p0];
	251
	252	# insert char array first
	253	for( x:=0; x<len p1.ary; x++ )
	254	this.Ivalue[p0 + x] = p1.ary[x];
	255
	256	# now add the old right back
	257	this.Ivalue += oldright;
	258	this.count = len this.Ivalue;
	259	}#<<
	260
	261	insert_ch_I_C_V( this : ref StringBuffer_obj, p0 : int,p1 : int)
	262	{#>>
	263	# insert 'p1' into the string the new string is
	264	# left + p1 + right; where left is Ivalue[:p0]
	265	# and right is Ivalue[p0:]. newright is
	266	# p1+right
	267	#
	268	newright: string;
	269	newright[0] = p1;
	270	newright += this.Ivalue[p0:];
	271	this.Ivalue = this.Ivalue[:p0] + newright;
	272	this.count = len this.Ivalue;
	273	}#<<
	274
	275	insert_float_I_F_V( this : ref StringBuffer_obj, p0 : int,p1 : real)
	276	{#>>
	277	# insert 'p1' into the string the new string is
	278	# left + p1 + right; where left is Ivalue[0:p0]
	279	# and right is Ivalue[p0:count]. newright is
	280	# p1+right
	281	#
	282	s := string p1;
	283	if(p1 == 0.0)
	284	s += ".0";
	285	newright := s + this.Ivalue[p0:];
	286	this.Ivalue = this.Ivalue[:p0] + newright;
	287	this.count = len this.Ivalue;
	288	}#<<
	289
	290	insert_double_I_D_V( this : ref StringBuffer_obj, p0 : int,p1 : real)
	291	{#>>
	292	# insert 'p1' into the string the new string is
	293	# left + p1 + right; where left is Ivalue[0:p0]
	294	# and right is Ivalue[p0:count]. newright is
	295	# p1+right
	296	#
	297	s := string p1;
	298	if(p1 == 0.0)
	299	s += ".0";
	300	newright := s + this.Ivalue[p0:];
	301	this.Ivalue = this.Ivalue[:p0] + newright;
	302	this.count = len this.Ivalue;
	303	}#<<
	304
	305	get_string_rString( this : ref StringBuffer_obj) : JString
	306	{#>>
	307	return( jni->NewString( this.Ivalue[:] ) ); #return a copy
	308	}#<<
	309
	310	get_chars_aC( this : ref StringBuffer_obj) : JArrayC
	311	{#>>
	312	# return a char array
	313	l := len this.Ivalue;
	314	chars := array[l] of int;
	315	for( x:=0; x<l; x++ )
	316	chars[x] = this.Ivalue[x];
	317
	318	return( jni->MkAChar( chars ) );
	319	}#<<
	320
	321	#
	322	# the next two functions are for serialization
	323	#
	324
	325	#
	326	# write this.Ivalue (a Dis string) to an ObjectOutputStream as a char[]
	327	#
	328
	329	writeObject0_rObjectOutputStream_V(this : ref StringBuffer_obj, p0 : JObject)
	330	{#>>
	331	jaryc := jni->StringToAChar(this.Ivalue);
	332	args := array[] of {
	333	ref Value.TObject(cast->FromJArray(cast->IntToJArray(jaryc)))
	334	};
	335	jni->CallMethod(p0, "writeObject", "(Ljava/lang/Object;)V", args);
	336	}#<<
	337
	338	#
	339	# read a char[] from an ObjectInputStream and convert it to a Dis string
	340	#
	341
	342	readObject0_rObjectInputStream_V(this : ref StringBuffer_obj, p0 : JObject)
	343	{#>>
	344	jaryc : JArrayC;
	345
	346	(val, ok) := jni->CallMethod(p0, "readObject", "()Ljava/lang/Object;", nil);
	347	if(ok == JNI->OK) {
	348	pick v := val {
	349	TObject =>
	350	jaryc = cast->ToJArrayC(v.jobj);
	351	}
	352	}
	353	if(jaryc == nil \|\| len jaryc.ary < this.count)
	354	jni->ThrowException("java.io.IOException", "bad StringBuffer object serialized");
	355
	356	# JavaSoft JVM serializes trailing null characters; we can ignore
	357	for(i := 0; i < this.count; i++)
	358	this.Ivalue[i] = jaryc.ary[i];
	359	}#<<

java/pkg2/java/lang/StringBuffer_L.m+42−0

@@ -0,0 +1,42 @@
	1	# javal v1.4 generated file: edit with care
	2
	3	##EDITED
	4
	5	StringBuffer_L : module
	6	{
	7	StringBuffer_obj : adt
	8	{
	9	cl_mod : ClassModule;
	10	Ivalue : string;
	11	buf_capacity : int;
	12	value : array of int;
	13	count : int;
	14	shared : byte;
	15	};
	16
	17	init : fn( jni_p : JNI );
	18	setLength0_I_V : fn( this : ref StringBuffer_obj, p0 : int);
	19	charAt0_I_C : fn( this : ref StringBuffer_obj, p0 : int) : int;
	20	getChars0_I_I_aC_I_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : int,p2 : JArrayC,p3 : int);
	21	setCharAt0_I_C_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : int);
	22	reverse0_V : fn( this : ref StringBuffer_obj);
	23	append_int_I_V : fn( this : ref StringBuffer_obj, p0 : int);
	24	append_long_J_V : fn( this : ref StringBuffer_obj, p0 : big);
	25	append_str_rString_V : fn( this : ref StringBuffer_obj, p0 : JString);
	26	append_chars_aC_I_I_V : fn( this : ref StringBuffer_obj, p0 : JArrayC,p1 : int,p2 : int);
	27	append_ch_C_V : fn( this : ref StringBuffer_obj, p0 : int);
	28	append_float_F_V : fn( this : ref StringBuffer_obj, p0 : real);
	29	append_double_D_V : fn( this : ref StringBuffer_obj, p0 : real);
	30	insert_int_I_I_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : int);
	31	insert_long_I_J_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : big);
	32	insert_str_I_rString_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : JString);
	33	insert_chars_I_aC_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : JArrayC);
	34	insert_ch_I_C_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : int);
	35	insert_float_I_F_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : real);
	36	insert_double_I_D_V : fn( this : ref StringBuffer_obj, p0 : int,p1 : real);
	37	get_string_rString : fn( this : ref StringBuffer_obj) : JString;
	38	get_chars_aC : fn( this : ref StringBuffer_obj) : JArrayC;
	39
	40	writeObject0_rObjectOutputStream_V : fn(this : ref StringBuffer_obj, p0 : JObject);
	41	readObject0_rObjectInputStream_V : fn(this : ref StringBuffer_obj, p0 : JObject);
	42	};

java/pkg2/java/lang/StringIndexOutOfBoundsE..a+0−0

Empty file added.

java/pkg2/java/lang/String_L.b+517−0

@@ -0,0 +1,517 @@
	1	implement String_L;
	2
	3	# javal v1.6 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	#<<
	28
	29	include "String_L.m";
	30
	31	#>> extra post includes here
	32	include "hash.m";
	33
	34	str : String;
	35	hash : Hash;
	36
	37	#
	38	# the following are for the intern() method
	39	# a pool of all Java String classes is maintained
	40	# hashed on the actual string contents. For any
	41	# given actual string the same Java String object
	42	# should be returned. We maingain a hash table
	43	# of String objects, hashed on the string value.
	44	#
	45	PSZ : con 31;
	46	pool := array[PSZ] of list of JString;
	47
	48	PoolAdd( jstr : JString )
	49	{
	50	idx := hash->fun1(jstr.str,PSZ);
	51	pool[idx] = jstr :: pool[idx];
	52	}
	53
	54	PoolGet( val : JString ) : JString
	55	{
	56	# search for an existing object with same value
	57	for( l := pool[hash->fun1(val.str,PSZ)]; l != nil; l = tl l )
	58	{
	59	jstr := hd l;
	60	if (jstr.str == val.str)
	61	return( jstr );
	62	}
	63
	64	# could not find so add this class
	65	PoolAdd( val );
	66	return( val );
	67	}
	68
	69	#<<
	70
	71	init( jni_p : JNI )
	72	{
	73	# save java native inteface mod instance
	74	jni = jni_p;
	75	#>>extra initialization here
	76	str = jni->str;
	77	hash = load Hash Hash->PATH;
	78	if ( hash == nil )
	79	jni->InitError( jni->sys->sprint( "java.lang.String: could not load %s: %r", Hash->PATH ) );
	80	#<<
	81	}
	82
	83	length_I( this : JString) : int
	84	{#>>
	85	return( len this.str );
	86	}#<<
	87
	88	charAt_I_C( this : JString, p0 : int) : int
	89	{#>>
	90	if ((this.str == nil) \|\| (p0 > (len this.str -1)) \|\| (p0 < 0))
	91	jni->ThrowException( "java.lang.StringIndexOutOfBoundsException", string p0 );
	92	return( this.str[p0] );
	93	}#<<
	94
	95	getChars_I_I_aC_I_V( this : JString, p0 : int,p1 : int,p2 : JArrayC,p3 : int)
	96	{#>>
	97	# fill the char array with each char from the string
	98
	99	# do some checking first
	100	if ( p0 < 0 )
	101	jni->ThrowException( "java.lang.StringIndexOutOfBoundsException", string p0 );
	102	if ( p1 > len this.str )
	103	jni->ThrowException( "java.lang.StringIndexOutOfBoundsException", string p1 );
	104	if ( p0 > p1 )
	105	jni->ThrowException( "java.lang.StringIndexOutOfBoundsException", string (p1-p0) );
	106
	107	# now check array and copy chars into
	108	copy_count := p1-p0; # number of chars to copy
	109
	110	#STD?? I will just throw an exception here if I know
	111	# I will overwrite the array bounds. To really be
	112	# legit I may need to copy upto the end and then throw
	113	if ( (copy_count + p3) > (len p2.ary) )
	114	jni->ThrowException( "java.lang.ArrayIndexOutOfBoundsException", string (len p2.ary) );
	115
	116	# now copy chars from this string into
	117	# the char array, starting at the indicated
	118	# position (p3) of the char array.
	119	for( x:=0; x<copy_count; x++ )
	120	p2.ary[p3+x] = this.str[p0+x];
	121
	122	}#<<
	123
	124	equality_rString_Z_Z( this : JString, p0 : JString,p1 : int) : int
	125	{#>>
	126	if ( p0 == nil )
	127	return( JNI->FALSE );
	128
	129	if ( this.str == p0.str )
	130	return( JNI->TRUE );
	131
	132	# check if we should ignore case
	133	if ( p1 )
	134	return( str->toupper(this.str) == str->toupper(p0.str) );
	135
	136	# strings not equal
	137	return( JNI->FALSE );
	138
	139	}#<<
	140
	141	compareTo_rString_I( this : JString, p0 : JString) : int
	142	{#>>
	143	# compare 'p0' to this.
	144	# return: 0 => equal
	145	# <0 => this < p0
	146	# >0 => this > p0
	147
	148	this_str := this.str;
	149	other := p0.str;
	150
	151	# simple equlity check
	152	if ( this_str == other )
	153	return( 0 );
	154
	155	# otherwise, determine if "this" is
	156	# lexicographically smaller than "other"
	157
	158	this_len := len this_str;
	159	other_len := len other;
	160	min := 0;
	161	if ( this_len < other_len )
	162	min = this_len;
	163	else
	164	min = other_len;
	165
	166	# find char where strings differ
	167	x:=0;
	168	while( (x<min) && (this_str[x]==other[x]) ) x++;
	169
	170	# is one string a proper prefix of the other?
	171	if(x == min)
	172	return this_len - other_len;
	173
	174	# if some chars were common then "this" is
	175	# smaller if the character where they differ
	176	# has a smaller value than "other"
	177	return( this_str[x] - other[x] );
	178	}#<<
	179
	180	regionMatches_Z_I_rString_I_I_Z( this : JString, p0 : int,p1 : int,p2 : JString,p3 : int,p4 : int) : int
	181	{#>>
	182	# p0 => ignore case==1
	183	# p1 => this start index
	184	# p2 => other string
	185	# p3 => other start index
	186	# p4 => length to compare
	187
	188	# check params
	189	if ( (p1<0) \|\| (p1 > (len this.str - p4)) \|\|
	190	(p3<0) \|\| (p3 > (len p2.str - p4)) )
	191	return( jni->FALSE );
	192
	193	this_str, other : string;
	194
	195	this_last := (p1+p4);
	196	other_last := (p3+p4);
	197
	198	if ( int p0 == 1 )
	199	{
	200	# ignore case
	201	this_str = str->toupper(this.str[p1:this_last]);
	202	other = str->toupper(p2.str[p3:other_last]);
	203	}
	204	else
	205	{
	206	# case sensitive
	207	this_str = this.str[p1:this_last];
	208	other = p2.str[p3:other_last];
	209	}
	210
	211	# now compare the two substrings
	212	return( this_str == other );
	213	}#<<
	214
	215	hashCode_I( this : JString) : int
	216	{#>>
	217	# hashcode of string as defined in JLS
	218	strhash := 0;
	219	this_str := this.str;
	220	this_len := len this_str;
	221
	222	if ( this_len <= 15 )
	223	{
	224	for(x:=0; x<this_len; x++)
	225	strhash = (strhash*37) + this_str[x];
	226	}
	227	else
	228	{
	229	k := int (this_len/8);
	230	for(x:=0; x < this_len; x+=k)
	231	strhash = (strhash*39) + this_str[x];
	232	}
	233
	234	return( strhash );
	235	}#<<
	236
	237	substring_I_I_rString( this : JString, p0 : int,p1 : int) : JString
	238	{#>>
	239	# return string composed of chars p0..p1-1 both
	240	# java and limbo allow the p1 to be (len this.str)
	241	this_len := len this.str;
	242	if ( (p0 < 0) \|\| (p1 > this_len) \|\| (p0 > p1) )
	243	jni->ThrowException( "java.lang.StringIndexOutOfBoundsException",
	244	jni->sys->sprint( "len=%d begin=%d end=%d", this_len, p0, p1 ) );
	245
	246	return( jni->NewString( this.str[p0:p1] ) );
	247	}#<<
	248
	249	concat_rString_rString( this : JString, p0 : JString) : JString
	250	{#>>
	251	if ( p0 == nil )
	252	jni->ThrowException( "java.lang.NullPointerException", "concat arg is null" );
	253
	254	# as defined in JLS: if p0 is 0 len return ref to this
	255	if ( (len p0.str) == 0 )
	256	return( this );
	257
	258	# return a new string composed of this+p0
	259	return( jni->NewString( this.str + p0.str ) );
	260	}#<<
	261
	262	replace_C_C_rString( this : JString, p0 : int,p1 : int) : JString
	263	{#>>
	264	# p0 => old char, p1 => new char
	265	# if p0 does not exist in this then
	266	# return reference to this
	267	# otherwise return a new string which
	268	# is composed of the 'this' with all
	269	# old char's (p0) replaced with new chars (p1)
	270
	271	newstr := this.str[:];
	272	found := 0;
	273	for(x:=0; x<(len newstr); x++)
	274	{
	275	if ( newstr[x] == p0 )
	276	{
	277	found = 1;
	278	newstr[x] = p1;
	279	}
	280	}
	281
	282	if ( ! found )
	283	return( this );
	284
	285	return( jni->NewString( newstr ) );
	286	}#<<
	287
	288	trim_rString( this : JString) : JString
	289	{#>>
	290	# as defined in JLS
	291	if ( this.str == "" )
	292	return( this );
	293
	294	this_str := this.str;
	295	if ( (this_str[0] > '\u0020') && (this_str[len this_str-1] > '\u0020') )
	296	return( this );
	297
	298	# look for first char > \u0020
	299	for( x:=0; x<(len this_str); x++ )
	300	if ( this_str[x] > '\u0020' ) break;
	301
	302	# if no chars < \u0020 found return a new "empty string"
	303	if ( x == len this_str )
	304	return( jni->NewString( "" ) );
	305
	306	first := x;
	307
	308	# look for last char > \u0020
	309	for( x=(len this_str -1); x >= 0; x-- )
	310	if ( this_str[x] > '\u0020' ) break;
	311
	312	last := x; # this has to be at least ==first
	313
	314	return( jni->NewString( this_str[first:last+1] ) );
	315
	316	}#<<
	317
	318	intern_rString( this : JString) : JString
	319	{#>>
	320	# as defined in JLS
	321	# need to maintain a private pool of String
	322	# objects and return the same object for a
	323	# given string
	324	return( PoolGet( this ) );
	325	}#<<
	326
	327	utfLength_I( this : JString) : int
	328	{#>>
	329	b : array of byte;
	330	b = array of byte this.str;
	331	return( len b );
	332	}#<<
	333
	334	fill_aC_I_I_V( this : JString, p0 : JArrayC,p1 : int,p2 : int)
	335	{#>>
	336	#
	337	# create a newstring from the array of int
	338	#
	339
	340	# check array length
	341	if ( (p1+p2) > len p0.ary )
	342	jni->ThrowException( "java.lang.ArrayIndexOutOfBoundsException", string (len p0.ary) );
	343
	344	this.str = nil; # get rid of what is there
	345
	346	# now append each char to the string value
	347	# Lecuona correction: for( x:=0; x<(p2-p1); x++ )
	348	for( x:=0; x<p2; x++ )
	349	this.str[x] = p0.ary[x+p1];
	350	}#<<
	351
	352	isPrefix_rString_I_Z( this : JString, p0 : JString,p1 : int) : int
	353	{#>>
	354	# p0 => string to compare
	355	# p1 => start index
	356
	357	# do some checking
	358	if ( p0 == nil )
	359	jni->ThrowException( "java.lang.NullPointerException", "String.isPrefix()" );
	360	other_len := len p0.str;
	361	endix := other_len + p1; # can overflow
	362	if ( p1 < 0 \|\| endix > len this.str \|\| endix < 0 )
	363	return( jni->FALSE );
	364	if ( other_len == 0 )
	365	return( jni->TRUE ); # JLS defined
	366	return( p0.str == this.str[p1:p1+other_len] );
	367	}#<<
	368
	369	isSuffix_rString_Z( this : JString, p0 : JString) : int
	370	{#>>
	371	start := (len this.str) - (len p0.str);
	372	if ( start < 0 )
	373	return( jni->FALSE );
	374
	375	return( p0.str == this.str[start:] );
	376	}#<<
	377
	378	uppercase_rString( this : JString) : JString
	379	{#>>
	380	return( jni->NewString( str->toupper(this.str) ) );
	381	}#<<
	382
	383	lowercase_rString( this : JString) : JString
	384	{#>>
	385	return( jni->NewString( str->tolower(this.str) ) );
	386	}#<<
	387
	388	index_rString_I_I( this : JString, p0 : JString,p1 : int) : int
	389	{#>>
	390	# p0 => string to match
	391	# p1 => index to start search from
	392	# p2 => searche left-right=1 right-left=0
	393	this_str := this.str;
	394	this_len := len this_str;
	395	other := p0.str;
	396	other_len := len other;
	397
	398	# if other > this then it can't be a substring
	399	if ( other_len > this_len )
	400	return( -1 );
	401
	402	# if start index <0 make it 0, if > len return -1
	403	from := 0;
	404	if ( p1 > 0 )
	405	{
	406	from = p1;
	407	# this also handles p1 > this_len
	408	# which will return -1 below, we
	409	}
	410
	411	# null string always matches
	412	if ( other_len == 0 )
	413	return from;
	414
	415	# determine char of this to stop searching on
	416	stop_char := this_len - other_len;
	417
	418	# look for first-char match then
	419	# match the substring.
	420	for( i:=from; i <= stop_char; i++ )
	421	if ( (this_str[i] == other[0]) &&
	422	(this_str[i:i+other_len] == other) )
	423	return( i );
	424
	425	# match failed
	426	return( -1 );
	427	}#<<
	428
	429	index_I_I_I( this : JString, p0 : int,p1 : int) : int
	430	{#>>
	431	# p0 => char to match
	432	# p1 => start index
	433
	434	this_str := this.str;
	435	this_len := len this_str;
	436
	437	# if start index <0 make it 0, if > len return -1
	438	from := 0;
	439	if ( p1 > 0 )
	440	from = p1;
	441
	442	# start from left,
	443	# look for first match
	444	for( i:=from; i < this_len; i++ )
	445	if ( this_str[i] == p0 )
	446	return( i );
	447
	448	# match failed
	449	return( -1 );
	450	}#<<
	451
	452	rindex_rString_I_Z_I( this : JString, p0 : JString,p1 : int,p2 : int) : int
	453	{#>>
	454	# p0 => string to match
	455	# p1 => index to start search from
	456	# p2 => 1 == search from end (ignore p1)
	457	this_str := this.str;
	458	this_len := len this_str;
	459	other := p0.str;
	460	other_len := len other;
	461
	462	# if other > this then it can't be a substring
	463	if ( other_len > this_len )
	464	return( -1 );
	465
	466	# if start index > this_len-other_len make it this_len-other_len
	467	# if < 0 return -1
	468	from := this_len - other_len;
	469	if ( (p2 != 1) && (p1 < from) )
	470	{
	471	from = p1;
	472	# this also handles the defined case
	473	# of p1 < 0 is the same as p1==-1 and
	474	# will return -1 below
	475	}
	476
	477	# start from end
	478	if ( other_len == 0 )
	479	return( from ); # empty string always matches
	480
	481	# look for first char match starting from right
	482	# then match the substring
	483	for( i:=from; i >= 0; i-- )
	484	if ( (this_str[i] == other[0]) &&
	485	(this_str[i:i+other_len] == other) )
	486	return(i);
	487
	488	return(-1); #no match
	489	}#<<
	490
	491	rindex_I_I_Z_I( this : JString, p0 : int,p1 : int,p2 : int) : int
	492	{#>>
	493	# p0 => char to match
	494	# p1 => start index
	495	# p2 => 1 == scan from (len this.str -1)
	496
	497	this_str := this.str;
	498
	499	# if start index < 0 return -1, if > len this.str make it the length
	500	from := len this_str - 1;
	501	if ( (p2 != 1) && (p1 < from) )
	502	{
	503	from = p1;
	504	}
	505
	506	# start from right
	507	# look for first match
	508	for( i:=from; i >= 0; i-- )
	509	if ( this_str[i] == p0 )
	510	return(i);
	511
	512	# match failed
	513	return( -1 );
	514	}#<<
	515
	516
	517

java/pkg2/java/lang/String_L.m+30−0

@@ -0,0 +1,30 @@
	1	# javal v1.6 generated file: edit with care
	2
	3	String_L : module
	4	{
	5
	6	init : fn( jni_p : JNI );
	7	length_I : fn( this : JString) : int;
	8	charAt_I_C : fn( this : JString, p0 : int) : int;
	9	getChars_I_I_aC_I_V : fn( this : JString, p0 : int,p1 : int,p2 : JArrayC,p3 : int);
	10	equality_rString_Z_Z : fn( this : JString, p0 : JString,p1 : int) : int;
	11	compareTo_rString_I : fn( this : JString, p0 : JString) : int;
	12	regionMatches_Z_I_rString_I_I_Z : fn( this : JString, p0 : int,p1 : int,p2 : JString,p3 : int,p4 : int) : int;
	13	hashCode_I : fn( this : JString) : int;
	14	substring_I_I_rString : fn( this : JString, p0 : int,p1 : int) : JString;
	15	concat_rString_rString : fn( this : JString, p0 : JString) : JString;
	16	replace_C_C_rString : fn( this : JString, p0 : int,p1 : int) : JString;
	17	trim_rString : fn( this : JString) : JString;
	18	intern_rString : fn( this : JString) : JString;
	19	utfLength_I : fn( this : JString) : int;
	20	fill_aC_I_I_V : fn( this : JString, p0 : JArrayC,p1 : int,p2 : int);
	21	isPrefix_rString_I_Z : fn( this : JString, p0 : JString,p1 : int) : int;
	22	isSuffix_rString_Z : fn( this : JString, p0 : JString) : int;
	23	uppercase_rString : fn( this : JString) : JString;
	24	lowercase_rString : fn( this : JString) : JString;
	25	index_rString_I_I : fn( this : JString, p0 : JString,p1 : int) : int;
	26	index_I_I_I : fn( this : JString, p0 : int,p1 : int) : int;
	27	rindex_rString_I_Z_I : fn( this : JString, p0 : JString,p1 : int,p2 : int) : int;
	28	rindex_I_I_Z_I : fn( this : JString, p0 : int,p1 : int,p2 : int) : int;
	29
	30	};

java/pkg2/java/lang/System.java+0−0

Empty file added.

java/pkg2/java/lang/System_L.b+133−0

@@ -0,0 +1,133 @@
	1	implement System_L;
	2
	3	# javal v1.2 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JObject : import jni;
	23
	24	#>> extra pre includes here
	25
	26	#<<
	27
	28	include "System_L.m";
	29
	30	#>> extra post includes here
	31	include "workdir.m";
	32
	33	cast : Cast;
	34	system_class : JNI->ClassData; # java.lang.System class data
	35
	36	#<<
	37
	38	init( jni_p : JNI )
	39	{
	40	# save java native inteface mod instance
	41	jni = jni_p;
	42	#>>extra initialization here
	43	system_class = jni->FindClass( "java/lang/System" );
	44	if ( system_class == nil )
	45	jni->InitError( "System_L.init(): failed to find System class" );
	46
	47	# we Cast in this module
	48	cast = jni->CastMod();
	49	#<<
	50	}
	51
	52	setIn0_rInputStream_V( p0 : JObject)
	53	{#>>
	54	Value : import JNI;
	55	val := ref Value.TObject(p0);
	56	jni->SetStaticField( system_class, "in", val );
	57	}#<<
	58
	59	setOut0_rPrintStream_V( p0 : JObject)
	60	{#>>
	61	Value : import JNI;
	62	val := ref Value.TObject(p0);
	63	jni->SetStaticField( system_class, "out", val );
	64	}#<<
	65
	66	setErr0_rPrintStream_V( p0 : JObject)
	67	{#>>
	68	Value : import JNI;
	69	val := ref Value.TObject(p0);
	70	jni->SetStaticField( system_class, "err", val );
	71	}#<<
	72
	73	currentTimeMillis_J( ) : big
	74	{#>>
	75	fd := jni->sys->open("#c/time", jni->sys->OREAD);
	76	if(fd == nil)
	77	return big 0;
	78	buf := array[128] of byte;
	79	n := jni->sys->read(fd, buf, len buf);
	80	if(n < 0)
	81	return big 0;
	82
	83	return ( (big string buf[:n]) / big 1000 );
	84	}#<<
	85
	86	arraycopy_rObject_I_rObject_I_I_V( p0 : JObject,p1 : int,p2 : JObject,p3 : int,p4 : int)
	87	{#>>
	88	jni->jldr->arraycopy( cast->ToJArray(p0), p1, cast->ToJArray(p2), p3, p4 );
	89	}#<<
	90
	91	identityHashCode_rObject_I( p0 : JObject) : int
	92	{#>>
	93	return( jni->IdentityHash(p0) );
	94	}#<<
	95
	96	GetUserName_rString( ) : JString
	97	{#>>
	98	# return the current inferno user
	99	# name as a Java String
	100	#
	101	user_name : string;
	102
	103	fd := jni->sys->open("#c/user", jni->sys->OREAD);
	104	if(fd == nil)
	105	user_name = "unknown";
	106	else {
	107	buf := array[128] of byte;
	108	n := jni->sys->read(fd, buf, len buf);
	109	if(n < 0)
	110	user_name = "unknown";
	111	else
	112	user_name = string buf[:n];
	113	}
	114
	115	# make java string from user name
	116	return( jni->NewString( user_name ) );
	117	}#<<
	118
	119	GetCWD_rString( ) : JString
	120	{#>>
	121	# return the current working directory
	122	# as a Java String
	123	#
	124	# this fct is really only called once so
	125	# just load Workdir right here
	126	wdir := load Workdir Workdir->PATH;
	127	if ( wdir == nil )
	128	jni->InitError( jni->sys->sprint( "java.lang.System: could not load %s: %r", Workdir->PATH ) );
	129
	130	return( jni->NewString( wdir->init() ) );
	131	}#<<
	132
	133

java/pkg2/java/lang/System_L.m+20−0

@@ -0,0 +1,20 @@
	1	# javal v1.2 generated file: edit with care
	2
	3	System_L : module
	4	{
	5	System_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	};
	9
	10	init : fn( jni_p : JNI );
	11	setIn0_rInputStream_V : fn( p0 : JObject);
	12	setOut0_rPrintStream_V : fn( p0 : JObject);
	13	setErr0_rPrintStream_V : fn( p0 : JObject);
	14	currentTimeMillis_J : fn( ) : big;
	15	arraycopy_rObject_I_rObject_I_I_V : fn( p0 : JObject,p1 : int,p2 : JObject,p3 : int,p4 : int);
	16	identityHashCode_rObject_I : fn( p0 : JObject) : int;
	17	GetUserName_rString : fn( ) : JString;
	18	GetCWD_rString : fn( ) : JString;
	19
	20	};

java/pkg2/java/lang/Thread.java+0−0

Empty file added.

java/pkg2/java/lang/ThreadDeath.java+0−0

Empty file added.

java/pkg2/java/lang/ThreadGroup.java+0−0

Empty file added.

java/pkg2/java/lang/Thread_L.b+455−0

@@ -0,0 +1,455 @@
	1	implement Thread_L;
	2
	3	# javal v1.3 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	#<<
	28
	29	include "Thread_L.m";
	30
	31	#>> extra post includes here
	32
	33	sys : Sys;
	34	jldr : JavaClassLoader;
	35	cast : Cast;
	36
	37	# following used for calling Thread.run()
	38	threadclass : JNI->ClassData; #class data for java.lang.Thread
	39	thread_run_idx : int; #method index for Thread.run()
	40	thread_exit_idx : int; #method index for Thread.exit()
	41
	42	# some imports
	43	ThreadData : import jldr;
	44
	45	#<<
	46
	47	init( jni_p : JNI )
	48	{
	49	# save java native inteface mod instance
	50	jni = jni_p;
	51	#>>extra initialization here
	52
	53	sys = jni->sys;
	54	jldr = jni->jldr;
	55	cast = jni->CastMod();
	56
	57	threadclass = jni->FindClass( "java.lang.Thread" );
	58	if ( threadclass == nil )
	59	jni->InitError( "Thread_L.init(): could not get thread class" );
	60
	61	Class : import jldr;
	62	thread_run_idx = threadclass.findvmethod( "run", "()V" );
	63	if ( thread_run_idx == -1 )
	64	jni->InitError( "Thread_L.init(): could not locate Thread.run()" );
	65
	66	#thread_exit_idx = threadclass.findvmethod( "exit", "()V" );
	67	#if ( exit_idx == -1 )
	68	# jni->InitError( "Thread_L.init(): could not locate Thread.exit()" );
	69	#<<
	70	}
	71
	72	currentThread_rThread( ) : JThread
	73	{#>>
	74	e := ref Sys->Exception;
	75	if ( sys->rescue("*",e) == Sys->HANDLER )
	76	{
	77	# get the java thread object assocciated
	78	# with this thread. it is stored in the
	79	# class loader's thread structure.
	80	thd_obj := jldr->getthreaddata().this;
	81	if ( thd_obj != nil )
	82	return( cast->JObjToJThd(thd_obj) );
	83	sys->unrescue();
	84	}
	85	else
	86	sys->rescued(Sys->ONCE, nil);
	87
	88
	89	# either we could not find the thread data
	90	# or no "Thread" object was stored in it
	91	# either way we are in bad shape
	92	jni->FatalError( "could not get thread object" );
	93
	94	return(nil);
	95	}#<<
	96
	97	yield_V( )
	98	{#>>
	99	jni->sys->sleep(0);
	100	}#<<
	101
	102	sleep_J_V( p0 : big)
	103	{#>>
	104	millis := int p0;
	105
	106	if ( millis < 1 )
	107	{
	108	if ( millis == 0 )
	109	{
	110	# just yield thread
	111	jni->sys->sleep(0);
	112	return;
	113	}
	114
	115	# bad sleep value
	116	jni->ThrowException( "java.lang.IllegalArgumentException", "timeout value is negative" );
	117	}
	118	jldr->sleep( millis );
	119	}#<<
	120
	121	start_V( this : JThread)
	122	{#>>
	123	thdobj := cast->JThdToJObj(this);
	124
	125	# grab the lock on the thread object to ensure
	126	# no state is changed while we are starting the
	127	# thread.
	128	# jni->MonitorEnter( thdobj );
	129
	130	if ( (this.stillborn == byte 0) && (this.PrivateInfo == nil) )
	131	{
	132	# spawn a limbo fct as the java
	133	# thread's starting point.
	134	ok := chan of int;
	135	spawn javathreadinit( this, ok );
	136
	137	# wait for thread to init then we can
	138	# continue. Note we hold a lock and
	139	# the thread will change some state
	140	# and notify us before the java run()
	141	# method is invoked. The purpose is to
	142	# allow for state information to be updated
	143	# while we have the lock.
	144	status := <- ok;
	145
	146	#status == 0 is an err
	147	# == 1 is ok
	148
	149	if ( status == 0 )
	150	{
	151	this.stillborn = byte 1;
	152	this.PrivateInfo = nil;
	153	}
	154
	155	}
	156	# jni->MonitorExit( thdobj );
	157	}#<<
	158
	159	isInterrupted_Z_Z( this : JThread, p0 : int) : int
	160	{#>>
	161	old_flag := int this.was_interrupted;
	162
	163	if ( old_flag )
	164	this.was_interrupted = byte p0;
	165	return( old_flag );
	166	}#<<
	167
	168	isAlive_Z( this : JThread) : int
	169	{#>>
	170	thd := this.PrivateInfo;
	171	if ( (this.stillborn == byte 0) && (thd != nil) )
	172	{
	173	# JLS does not require that we actually determine
	174	# the "os" thread is alive, just that the object
	175	# state indicates it is
	176	return( JNI->TRUE );
	177	}
	178
	179	# looks like thread is not alive
	180	return( jni->FALSE );
	181	}#<<
	182
	183	countStackFrames_I( this : JThread) : int
	184	{#>>
	185	junk := this;
	186	# need to do some /prog work
	187	return( 0 );
	188	}#<<
	189
	190	setPriority0_I_V( this : JThread, p0 : int)
	191	{#>>
	192	# just save the priority, a dis thread
	193	# has no priority
	194	this.priority = p0;
	195	}#<<
	196
	197	stop0_rObject_V( this : JThread, p0 : JObject)
	198	{#>>
	199	# the calling thread is attempting to throw an
	200	# exception at "this" thread (i.e. the one represented
	201	# by this thread object. make sure that thread at least
	202	# appears to be running and throw the exceptio at it
	203
	204	thd := this.PrivateInfo;
	205	stillborn := this.stillborn;
	206
	207	# prevent a start or re-start
	208	this.stillborn = byte 1;
	209
	210	if ( (stillborn == byte 0) && (thd != nil) )
	211	{
	212	# throw the exception (p0) at the thread
	213	jldr->stop( thd, p0 );
	214	}
	215
	216	}#<<
	217
	218	suspend0_V( this : JThread)
	219	{#>>
	220	# the calling thread wants to suspend
	221	# the "this" thread.
	222	thd := this.PrivateInfo;
	223	if ( (this.stillborn == byte 0) && (thd != nil) )
	224	jldr->suspend( thd );
	225
	226	}#<<
	227
	228	resume0_V( this : JThread)
	229	{#>>
	230	# the calling thread wants to resume
	231	# the "this" thread.
	232	thd := this.PrivateInfo;
	233	if ( (this.stillborn == byte 0) && (thd != nil) )
	234	jldr->resume( thd );
	235	}#<<
	236
	237	interrupt0_V( this : JThread)
	238	{#>>
	239	# the calling thread wants to interrupt
	240	# the "this" thread.
	241	thd := this.PrivateInfo;
	242	if ( (this.stillborn == byte 0) && (thd != nil) )
	243	jldr->interrupt( thd );
	244	}#<<
	245
	246	lowinit_rThread_V( p0 : JThread)
	247	{#>>
	248	# this fct is called once during the static init of the
	249	# java.lang.Thread object. 'p0' is the "root thread" object
	250	# which must be associated witht the Dis thread which is
	251	# calling this fuction -- i.e. associate the 'p0' java thread
	252	# object with the current Dis thread. 'p1' is the same thread
	253	# object, just with the type JObject which allows us to store
	254	# it off in the JavaClassLoader->ThreadData structure associated
	255	# with the calling Dis thread.
	256
	257	# since this is the root thread make a root thread group by
	258	# creating an instance of ThreadGroup and calling its private
	259	# default constructor.
	260	thd_grp_cl := jni->FindClass( "java.lang.ThreadGroup" );
	261	if ( thd_grp_cl == nil )
	262	jni->FatalError( "could not obtain ThreadGroup class" );
	263
	264	thd_grp := jni->NewObject( thd_grp_cl );
	265	if ( thd_grp == nil )
	266	jni->FatalError( "could not created root threadgroup" );
	267	p0.group = thd_grp;
	268
	269	# get the ThreadData structure for the calling thread
	270	thd := jldr->getthreaddata();
	271	thd.this = cast->JThdToJObj(p0); # save java object in thread data
	272	p0.PrivateInfo = thd; # save thread data in java object
	273
	274	}#<<
	275
	276
	277
	278
	279
	280	##### private functions used by the Thread_L module
	281
	282	#
	283	# this function is the first function of all java
	284	# threads, except for the first thread which is
	285	# controlled by the JavaClassLoader module.
	286	#
	287	# jthd : the Java thread object associated with this
	288	# Dis thread.
	289	#
	290	# ok : use this channel to notify "spawner" that
	291	# we are under-way. send 0==fail; 1==ok
	292	#
	293	javathreadinit( jthd : JNI->JThread, ok : chan of int )
	294	{
	295	# create a JavaClassLoader->ThreadData structure
	296	# and "register" it with the class loader.
	297
	298	thd := jldr->getthreaddata();
	299
	300	if ( thd.this != nil )
	301	{
	302	# this should be nil, else the java thread
	303	# already is set for this Dis thread and we
	304	# are in some screwed-up state.
	305	ok <-= 0;
	306	return;
	307	}
	308
	309	# now fill in the java thread obj (after
	310	# the putthreaddata so any init is not affected
	311	thdobj := cast->JThdToJObj( jthd );
	312	thd.this = thdobj;
	313
	314	# now save the ThreadData in the java object in order
	315	# to allow a lookup from the other diretion
	316	jthd.PrivateInfo = thd;
	317
	318	# set our daemon thread status
	319	if ( jthd.daemon == JNI->BTRUE )
	320	jldr->daemonize();
	321
	322	# notify spawner we are under-way
	323	ok <- = 1;
	324
	325	# we need to catch any exceptions in order
	326	# to clean up the thread object's state
	327	ee := ref Sys->Exception;
	328	if ( sys->rescue( "*", ee ) == Sys->HANDLER )
	329	{
	330
	331	# call Thread.run() or Runnable.run()
	332	Run( jthd, thdobj );
	333
	334	# call Thread.exit()
	335	(mod,idx) := jni->FindMethod( threadclass, "exit", "()V", JNI->METH_PRIVATE );
	336	jni->jassist->mcall1( mod, idx, thdobj );
	337	sys->unrescue();
	338	}
	339	else
	340	{
	341	# clear exception
	342	sys->rescued( Sys->ONCE, nil );
	343
	344	# thread threw an unhandled exception so
	345	# call the ThreadGroup.uncaughtException()
	346	# method.
	347	UncaughtException( jthd, thdobj, ee );
	348	}
	349
	350	# java thread clean up
	351
	352	jni->jldr->monitorenter( thdobj ); ##LOCK thread object
	353	{
	354
	355	jthd.stillborn = byte 1; # prevent re-run
	356
	357	# notify ALL "waiters" (which includes any Thread.join()'s)
	358	jni->jldr->monitornotify( thdobj, 1 );
	359	}
	360	jni->jldr->monitorexit( thdobj ); ##UNLOCK thread object
	361
	362	# clean up thread structures
	363	jldr->delthreaddata();
	364	thd.this = nil;
	365	jthd.PrivateInfo = nil;
	366	}
	367
	368
	369	#
	370	# if the thread object contains a "registered" Runnable
	371	# object then execute that Runnable's run() method, else
	372	# execute the Thread's run() method (which should be
	373	# overridden.
	374	#
	375	Run( jthd : JNI->JThread, thdobj : JObject )
	376	{
	377	Class : import jldr;
	378	class : JNI->ClassData;
	379	run_idx := thread_run_idx; #default to Thread.run()
	380	obj := thdobj; #this obj for run() call
	381
	382	if ( jthd.target != nil )
	383	{
	384	# the thread has a registered Runnable
	385	# object, find its run() method
	386	class = jni->GetObjectClassData( jthd.target );
	387	run_idx = class.findvmethod( "run", "()V" );
	388	if ( run_idx == -1 )
	389	return;
	390	obj = jthd.target; #set 'this' to the runnable obj
	391	}
	392	else
	393	{
	394	# use the thread object's run()
	395	class = jni->GetObjectClassData(thdobj);
	396	}
	397
	398	run_method := class.virtualmethods[run_idx];
	399
	400	# do the run()
	401	jni->jassist->mcall1( run_method.class.mod, run_method.field.value, obj );
	402	}
	403
	404	#
	405	# If the thread's ThreadGroup is a subclass of java.lang.ThreadGroup
	406	# then invoke that class'es "uncaughtException" method. This
	407	# method is called whenever a thread does not handle an exception.
	408	# The method is passed an instance of the Thread along with the
	409	# "throwable" (i.e. exception).
	410	#
	411	UncaughtException( jthd : JThread, thdobj : JObject, ee : ref Sys->Exception )
	412	{
	413	tgrp_cl := jni->GetObjectClassData( jthd.group );
	414
	415	#
	416	# if the thread group is the default thread group
	417	# class, then we will handle the excepition here
	418	# which is to simply do nothing.
	419	#
	420	if ( tgrp_cl.name != "java/lang/ThreadGroup" )
	421	{
	422	# call method, protected against exceptions
	423	# since we must still clean-up the thread
	424	eee := ref Sys->Exception;
	425	if ( sys->rescue( "*", eee ) == Sys->HANDLER )
	426	{
	427	# find the uncaughtException method for the thd-grp
	428	(mod,idx) := jni->FindMethod( tgrp_cl, "uncaughtException",
	429	"(Ljava.lang.Thread;Ljava.lang.Throwable;)V",
	430	JNI->METH_VIRTUAL );
	431	if ( mod != nil )
	432	{
	433	# call the uncaughException handler
	434	Value : import jni;
	435	args := array[] of
	436	{
	437	ref Value.TObject(thdobj), #the thread
	438	ref Value.TObject(jldr->culprit(ee)) #the exception
	439	};
	440
	441	# do the call
	442	##LATER nil := jni->LowCall( mod, idx, jthd.group, args );
	443	}
	444	sys->unrescue();
	445	}
	446	else
	447	{
	448	# if we get an exception here just return
	449	# and let the thread finish cleanup.
	450	sys->rescued( Sys->ONCE, nil );
	451	}
	452	}
	453
	454	}
	455

java/pkg2/java/lang/Thread_L.m+21−0

@@ -0,0 +1,21 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	Thread_L : module
	4	{
	5
	6	init : fn( jni_p : JNI );
	7	currentThread_rThread : fn( ) : JThread;
	8	yield_V : fn( );
	9	sleep_J_V : fn( p0 : big);
	10	start_V : fn( this : JThread);
	11	isInterrupted_Z_Z : fn( this : JThread, p0 : int) : int;
	12	isAlive_Z : fn( this : JThread) : int;
	13	countStackFrames_I : fn( this : JThread) : int;
	14	setPriority0_I_V : fn( this : JThread, p0 : int);
	15	stop0_rObject_V : fn( this : JThread, p0 : JObject);
	16	suspend0_V : fn( this : JThread);
	17	resume0_V : fn( this : JThread);
	18	interrupt0_V : fn( this : JThread);
	19	lowinit_rThread_V : fn( p0 : JThread);
	20
	21	};

java/pkg2/java/lang/Throwable.java+0−0

Empty file added.

java/pkg2/java/lang/Throwable_L.b+96−0

@@ -0,0 +1,96 @@
	1	implement Throwable_L;
	2
	3	# javal v1.2 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JObject : import jni;
	23
	24	#>> extra pre includes here
	25
	26	#<<
	27
	28	include "Throwable_L.m";
	29
	30	#>> extra post includes here
	31
	32	#<<
	33
	34	init( jni_p : JNI )
	35	{
	36	# save java native inteface mod instance
	37	jni = jni_p;
	38	#>>extra initialization here
	39	#<<
	40	}
	41
	42	printStackTrace0_rObject_V( this : ref Throwable_obj, p0 : JObject)
	43	{#>>
	44	Value : import jni;
	45	jldr := jni->jldr;
	46	Object : import jldr;
	47
	48	if ( this.backtrace != nil )
	49	{
	50	args := array[] of
	51	{
	52	ref Value.TObject( jni->NewStringObject( string this.backtrace ) )
	53	};
	54	(nil,nil):=jni->CallMethod( p0, "println", "(Ljava/lang/String;)V", args );
	55	# ignore any erros
	56	}
	57
	58	}#<<
	59
	60	fillInStackTrace_rThrowable( this : ref Throwable_obj) : ref Throwable_obj
	61	{#>>
	62	# attempt to open the local "prog" device (i.e. '#p')
	63	# and read the call stack into an array of bytes
	64	pid := jni->sys->pctl(0,nil);
	65	progfile := "#p/"+ (string pid) +"/stack";
	66	fd := jni->sys->open( progfile, Sys->OREAD );
	67	if ( fd != nil )
	68	{
	69	# must spin a thread to read my own call-stack
	70	result := chan of array of byte; # channel for thd results
	71	spawn ReadCallStack( fd, result );
	72	this.backtrace = <- result; # wait for results
	73
	74	}
	75	else
	76	this.backtrace = array of byte jni->sys->sprint("could not open %s:%r\n", progfile );
	77
	78	return( this );
	79	}#<<
	80
	81	####### private functions
	82
	83
	84	ReadCallStack( fd : ref Sys->FD, result : chan of array of byte )
	85	{
	86	buf := array[8000] of byte; #about 10 frames
	87	n := jni->sys->read(fd, buf, len buf - 1);
	88	fd = nil;
	89	if(n < 0)
	90	buf = array of byte jni->sys->sprint("could not read call-stack:%r\n");
	91	else
	92	buf[n] = byte 0;
	93
	94	result <- = buf[:n+1];
	95	}
	96

java/pkg2/java/lang/Throwable_L.m+16−0

@@ -0,0 +1,16 @@
	1	# javal v1.2 generated file: edit with care
	2
	3	Throwable_L : module
	4	{
	5	Throwable_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	backtrace : array of byte;
	9	detailMessage : JString;
	10	};
	11
	12	init : fn( jni_p : JNI );
	13	printStackTrace0_rObject_V : fn( this : ref Throwable_obj, p0 : JObject);
	14	fillInStackTrace_rThrowable : fn( this : ref Throwable_obj) : ref Throwable_obj;
	15
	16	};

java/pkg2/java/lang/UnknownError.java+0−0

Empty file added.

java/pkg2/java/lang/UnsatisfiedLinkError.java+0−0

Empty file added.

java/pkg2/java/lang/VerifyError.java+0−0

Empty file added.

java/pkg2/java/lang/VirtualMachineError.java+0−0

Empty file added.

java/pkg2/java/lang/Void.java+0−0

Empty file added.

java/pkg2/java/lang/mkfile+152−0

@@ -0,0 +1,152 @@
	1	<../../../../mkconfig
	2
	3	DIRS=\
	4	reflect\
	5
	6	TARG=\
	7	AbstractMethodError.dis\
	8	ArithmeticException.dis\
	9	# for ArrayIndexOutOfBoundsException.dis\
	10	++5KkA5LRlUzD1nsDM8Mj.dis\
	11	ArrayStoreException.dis\
	12	Boolean.dis\
	13	Byte.dis\
	14	Character.dis\
	15	Class.dis\
	16	ClassCastException.dis\
	17	ClassCircularityError.dis\
	18	ClassFormatError.dis\
	19	ClassLoader.dis\
	20	# for ClassNotFoundException.dis\
	21	S1vm8N5TePhsu3h1FO7yj.dis\
	22	# for CloneNotSupportedException.dis\
	23	wmF21yXDq7VxPRRLc7v5t.dis\
	24	Cloneable.dis\
	25	Compiler.dis\
	26	Double.dis\
	27	Error.dis\
	28	Exception.dis\
	29	# for ExceptionInInitializerError.dis\
	30	Ub2BD3PjJRDSI4wyZi7ID.dis\
	31	Float.dis\
	32	IllegalAccessError.dis\
	33	# for IllegalAccessException.dis\
	34	ClJ4BmIE1TECvv1qdqbQN.dis\
	35	# for IllegalArgumentException.dis\
	36	Z07h8c1IAX5LIjYbhqgGl.dis\
	37	# for IllegalMonitorStateException.dis\
	38	375fcBxmum6K8ZSGn7W2N.dis\
	39	IllegalStateException.dis\
	40	# for IllegalThreadStateException.dis\
	41	1PLXdCFiGoZkxBoL8Bo0P.dis\
	42	# for IncompatibleClassChangeError.dis\
	43	FiACrRolKM+iZTikdgUFa.dis\
	44	# for IndexOutOfBoundsException.dis\
	45	IKsPHNdWGHpuZGqgvYD4e.dis\
	46	InfernoProcess.dis\
	47	InstantiationError.dis\
	48	# for InstantiationException.dis\
	49	jhj+E2mCFNmQ2VUL0zYp8.dis\
	50	Integer.dis\
	51	InternalError.dis\
	52	InterruptedException.dis\
	53	LinkageError.dis\
	54	Long.dis\
	55	Math.dis\
	56	# for NegativeArraySizeException.dis\
	57	iu6-cux1hLK1GoPKq9m1l.dis\
	58	NoClassDefFoundError.dis\
	59	NoSuchFieldError.dis\
	60	NoSuchFieldException.dis\
	61	NoSuchMethodError.dis\
	62	NoSuchMethodException.dis\
	63	NullPointerException.dis\
	64	NullSecurityManager.dis\
	65	Number.dis\
	66	NumberFormatException.dis\
	67	Object.dis\
	68	OutOfMemoryError.dis\
	69	Process.dis\
	70	Runnable.dis\
	71	Runtime.dis\
	72	RuntimeException.dis\
	73	SecurityException.dis\
	74	SecurityManager.dis\
	75	Short.dis\
	76	StackOverflowError.dis\
	77	String.dis\
	78	StringBuffer.dis\
	79	# for StringIndexOutOfBoundsException.dis\
	80	5ZD+zz0io892VFWeXUN1a.dis\
	81	System.dis\
	82	Thread.dis\
	83	ThreadDeath.dis\
	84	ThreadGroup.dis\
	85	Throwable.dis\
	86	UnknownError.dis\
	87	UnsatisfiedLinkError.dis\
	88	VerifyError.dis\
	89	VirtualMachineError.dis\
	90	Void.dis\
	91	# Limbo code\
	92	Character_L.dis\
	93	ClassLoader_L.dis\
	94	Class_L.dis\
	95	Double_L.dis\
	96	Float_L.dis\
	97	InfernoProcess_L.dis\
	98	Math_L.dis\
	99	Object_L.dis\
	100	Runtime_L.dis\
	101	SecurityManager_L.dis\
	102	StringBuffer_L.dis\
	103	String_L.dis\
	104	System_L.dis\
	105	Thread_L.dis\
	106	Throwable_L.dis\
	107	unicode_table.dis\
	108
	109	MODULES=\
	110	$ROOT/java/module/classloader.m\
	111	$ROOT/java/module/jni.m\
	112	$ROOT/java/module/cast.m\
	113	Character_L.m\
	114	ClassLoader_L.m\
	115	Class_L.m\
	116	Double_L.m\
	117	Float_L.m\
	118	InfernoProcess_L.m\
	119	Math_L.m\
	120	Object_L.m\
	121	Runtime_L.m\
	122	SecurityManager_L.m\
	123	StringBuffer_L.m\
	124	String_L.m\
	125	System_L.m\
	126	Thread_L.m\
	127	Throwable_L.m\
	128	unicode_table.m\
	129
	130	SYSMODULES=\
	131	draw.m\
	132	hash.m\
	133	keyring.m\
	134	loader.m\
	135	math.m\
	136	string.m\
	137	sys.m\
	138
	139	DISBIN=$ROOT/java/dis/java/java/lang
	140
	141	<$ROOT/mkfiles/mkjava
	142	<$ROOT/mkfiles/mksubdirs
	143
	144	LIMBOINCL=\
	145	$LIMBOINCL\
	146	-I$ROOT/java/pkg\
	147
	148	unicode_table.dis: unicode_table.b
	149	limbo $LIMBOINCL -gw unicode_table.b
	150
	151	NullSecurityManager.dis: SecurityManager.class
	152	j2d NullSecurityManager.class

java/pkg2/java/lang/reflect/Array.java+0−0

Empty file added.

java/pkg2/java/lang/reflect/Array_L.b+417−0

@@ -0,0 +1,417 @@
	1	implement Array_L;
	2
	3	# javal v1.5 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	ClassData,
	28	Value : import jni;
	29
	30	jldr : JavaClassLoader;
	31
	32	#<<
	33
	34	include "Array_L.m";
	35
	36	#>> extra post includes here
	37
	38	include "reflect.m";
	39	refl : Reflect;
	40	widen : import refl;
	41
	42	array_class : ClassData;
	43
	44	badindex := "java.lang.ArrayIndexOutOfBoundsException";
	45	illegalarg := "java.lang.IllegalArgumentException";
	46	nullptr := "java.lang.NullPointerException";
	47
	48	cast : Cast;
	49
	50	#<<
	51
	52	init( jni_p : JNI )
	53	{
	54	# save java native inteface mod instance
	55	jni = jni_p;
	56	#>>extra initialization here
	57	array_class = jni->FindClass("inferno/vm/Array");
	58
	59	jldr = jni->jldr;
	60	cast = jni->CastMod();
	61	refl = load Reflect Reflect->PATH;
	62	if ( refl == nil )
	63	jni->InitError( jni->sys->sprint( "java.lang.reflect.Array: could not load %s: %r", Reflect->PATH ) );
	64	else
	65	refl->init(jni);
	66
	67	#<<
	68	}
	69
	70	getLength_rObject_I( p0 : JObject) : int
	71	{#>>
	72	# p0 - must be a Java array; if not, exceptions are thrown
	73	# Returns the integer length of the array.
	74
	75	if ( p0 == nil )
	76	jni->ThrowException(nullptr, "");
	77	if ( jni->IsArray(p0) == JNI->FALSE)
	78	jni->ThrowException(illegalarg, "Not an array");
	79	return jni->GetArrayLength(cast->ToJArray(p0));
	80	}#<<
	81
	82	get_rObject_I_rObject( p0 : JObject,p1 : int) : JObject
	83	{#>>
	84	# p0 - a Java object, which must be an array, else exception occurs.
	85	# p1 - an index into the array, >= 0 and < length of array
	86	# Returns the element at that index. If the array is of a primitive
	87	# type, it is put in an appropriate wrapper class instance.
	88
	89	checksOK(p0, p1);
	90
	91	#
	92	# Need to figure out what kind of an array this is, then get the
	93	# requested element and convert it to an appropriate JObject.
	94	#
	95	(typ, elem) := GetArrayElement(p0, p1);
	96	#(typ, elem) := jni->GetArrayElement(p0, p1);
	97
	98	if ( typ == 0 ) # array of Objects. good.
	99	return elem.Object();
	100
	101	if ( typ >= JNI->T_BOOLEAN && typ <= JNI->T_LONG )
	102	return refl->ValueToObject(elem);
	103
	104	return nil;
	105	}#<<
	106
	107	getBoolean_rObject_I_Z( p0 : JObject,p1 : int) : int
	108	{#>>
	109	# p0 - a Java object, which must be an array, else exception occurs.
	110	# p1 - an index into the array, >= 0 and < length of array
	111	# Returns the element at that index as a boolean value. If the array
	112	# is not an array of something that can be converted to a boolean by
	113	# widening (and for boolean that's nothing), then getprim will throw
	114	# an exception.
	115
	116	return getprim(p0, p1, JNI->T_BOOLEAN, "boolean").Boolean();
	117	}#<<
	118
	119	getByte_rObject_I_B( p0 : JObject,p1 : int) : int
	120	{#>>
	121	# See comments in getBoolean_rObject_I_Z, above
	122
	123	return getprim(p0, p1, JNI->T_BYTE, "byte").Byte();
	124	}#<<
	125
	126	getChar_rObject_I_C( p0 : JObject,p1 : int) : int
	127	{#>>
	128	# See comments in getBoolean_rObject_I_Z, above
	129
	130	return getprim(p0, p1, JNI->T_CHAR, "char").Char();
	131	}#<<
	132
	133	getShort_rObject_I_S( p0 : JObject,p1 : int) : int
	134	{#>>
	135	# See comments in getBoolean_rObject_I_Z, above
	136
	137	return getprim(p0, p1, JNI->T_SHORT, "short").Short();
	138	}#<<
	139
	140	getInt_rObject_I_I( p0 : JObject,p1 : int) : int
	141	{#>>
	142	# See comments in getBoolean_rObject_I_Z, above
	143
	144	return getprim(p0, p1, JNI->T_INT, "int").Int();
	145	}#<<
	146
	147	getLong_rObject_I_J( p0 : JObject,p1 : int) : big
	148	{#>>
	149	# See comments in getBoolean_rObject_I_Z, above
	150
	151	return getprim(p0, p1, JNI->T_LONG, "long").Long();
	152	}#<<
	153
	154	getFloat_rObject_I_F( p0 : JObject,p1 : int) : real
	155	{#>>
	156	# See comments in getBoolean_rObject_I_Z, above
	157
	158	return getprim(p0, p1, JNI->T_FLOAT, "float").Float();
	159	}#<<
	160
	161	getDouble_rObject_I_D( p0 : JObject,p1 : int) : real
	162	{#>>
	163	# See comments in getBoolean_rObject_I_Z, above
	164
	165	return getprim(p0, p1, JNI->T_DOUBLE, "double").Double();
	166	}#<<
	167
	168	set_rObject_I_rObject_V( p0 : JObject,p1 : int,p2 : JObject)
	169	{#>>
	170	# p0 - a Java array. If null or not an array, exception.
	171	# p1 - index into the array. If < 0 or >= length of array, exception.
	172	# p2 - a value to put into the array at the specified index. If p0 is
	173	# an array of JObject, p2 must be an instance of the appropriate
	174	# class. If p0 is an array of a primitive Java type, then p2 must
	175	# be a wrapper of a primitive type that can be converted to the
	176	# the array's type by widening.
	177
	178	checksOK(p0, p1);
	179
	180	objarray := cast->ToJArray(p0);
	181	typ := objarray.primitive;
	182	if ( typ == 0 ) { # an Object array
	183	if ( jni->IsInstanceOf(p2, objarray.class) == JNI->TRUE ) {
	184	cast->JArrayToObject(objarray).ary[p1] = p2;
	185	return;
	186	}
	187	}
	188	else if ( typ >= JNI->T_BOOLEAN && typ <= JNI->T_LONG ) {
	189	(stype, val) := refl->GetVal(p2);
	190	if ( stype != 0 && (val = widen(stype, typ, val)) != nil ) {
	191	SetArrayElement(p0, p1, val);
	192	return;
	193	}
	194	}
	195	jni->ThrowException(illegalarg, "Argument can't be cast to array element");
	196	}#<<
	197
	198	setBoolean_rObject_I_Z_V( p0 : JObject,p1 : int,p2 : int)
	199	{#>>
	200	# p0[p1] = p2
	201	# where p2 is a boolean value, and it must be possible to convert it by
	202	# widening to the type array p0.
	203
	204	putprim(p0, p1, JNI->T_BOOLEAN, "boolean", ref Value.TBoolean(p2));
	205	}#<<
	206
	207	setByte_rObject_I_B_V( p0 : JObject,p1 : int,p2 : int)
	208	{#>>
	209	# see comments for setBoolean_rObject_I_Z_V, above.
	210
	211	putprim(p0, p1, JNI->T_BYTE, "byte", ref Value.TByte(p2));
	212	}#<<
	213
	214	setChar_rObject_I_C_V( p0 : JObject,p1 : int,p2 : int)
	215	{#>>
	216	# see comments for setBoolean_rObject_I_Z_V, above.
	217
	218	putprim(p0, p1, JNI->T_CHAR, "char", ref Value.TChar(p2));
	219	}#<<
	220
	221	setShort_rObject_I_S_V( p0 : JObject,p1 : int,p2 : int)
	222	{#>>
	223	# see comments for setBoolean_rObject_I_Z_V, above.
	224
	225	putprim(p0, p1, JNI->T_SHORT, "short", ref Value.TShort(p2));
	226	}#<<
	227
	228	setInt_rObject_I_I_V( p0 : JObject,p1 : int,p2 : int)
	229	{#>>
	230	# see comments for setBoolean_rObject_I_Z_V, above.
	231
	232	putprim(p0, p1, JNI->T_INT, "int", ref Value.TInt(p2));
	233	}#<<
	234
	235	setLong_rObject_I_J_V( p0 : JObject,p1 : int,p2 : big)
	236	{#>>
	237	# see comments for setBoolean_rObject_I_Z_V, above.
	238
	239	putprim(p0, p1, JNI->T_LONG, "long", ref Value.TLong(p2));
	240	}#<<
	241
	242	setFloat_rObject_I_F_V( p0 : JObject,p1 : int,p2 : real)
	243	{#>>
	244	# see comments for setBoolean_rObject_I_Z_V, above.
	245
	246	putprim(p0, p1, JNI->T_FLOAT, "float", ref Value.TFloat(p2));
	247	}#<<
	248
	249	setDouble_rObject_I_D_V( p0 : JObject,p1 : int,p2 : real)
	250	{#>>
	251	# see comments for setBoolean_rObject_I_Z_V, above.
	252
	253	putprim(p0, p1, JNI->T_DOUBLE, "double", ref Value.TDouble(p2));
	254	}#<<
	255
	256	newArray(jclass: JClass, bounds: array of int): JObject
	257	{
	258	# Create a Java array whose components belong to class jclass.
	259	# jclass may be a class object representing a primitive type.
	260	# bounds gives the length of each dimension.
	261
	262	dims := len bounds;
	263	cldata: ClassData;
	264
	265	# See if the class represents a primitive type.
	266	typ := jni->PrimitiveIndex(jclass, 1);
	267
	268	# If jclass represents an array, then component type of array
	269	# being created is component type of jclass.
	270	s := jclass.aryname;
	271	if(s != nil) {
	272	# count [s in aryname
	273	n := 1;
	274	while(s[n] == '[')
	275	n++;
	276	dims += n;
	277	typ = refl->SigToType(s[n:]);
	278	if(typ == 0)
	279	cldata = jni->FindClass(s[n+1:len s - 1]);
	280	} else if(typ == 0) { # jclass is not array and not primitive
	281	cldata = jclass.class;
	282	}
	283
	284	return cast->FromJArray(jldr->multianewarray(dims, cldata, typ, bounds));
	285	}
	286
	287	newArray_rClass_I_rObject( p0 : JClass,p1 : int) : JObject
	288	{#>>
	289	if ( p0 == nil )
	290	jni->ThrowException(nullptr, "");
	291
	292	return newArray(p0, array [1] of { p1 });
	293	}#<<
	294
	295	multiNewArray_rClass_aI_rObject( p0 : JClass,p1 : JArrayI) : JObject
	296	{#>>
	297	if ( p0 == nil \|\| p1 == nil )
	298	jni->ThrowException(nullptr, "");
	299
	300	ln := len p1.ary;
	301
	302	if ( ln < 1 \|\| ln > 255 )
	303	jni->ThrowException(illegalarg, "dimensions out of range [1,255]");
	304
	305	return newArray(p0, p1.ary);
	306	}#<<
	307
	308	# An argument verification routine for use by native methods. The
	309	# first argument must be non-null, and a Java array. (These conditions
	310	# are actually check by calling getLength_rObject.) The second
	311	# argument must be a valid index into that array. There is no return
	312	# value: if the conditions above are not met, an exception is thrown;
	313	# hence the routine does not return in this case. A successful return
	314	# indicates the arguments are O.K.
	315	#
	316	checksOK(o : JObject, ix : int)
	317	{
	318	if ( ix >= getLength_rObject_I(o) \|\| ix < 0 )
	319	jni->ThrowException(badindex, "Illegal index");
	320	return;
	321	}
	322	#
	323	# Gets element 'index' of Java array 'o' and returns it as a ref Value
	324	# of the type corresponding to Java type index 'want'. String 's'
	325	# is used only in creating the exception message, and should correspond
	326	# to 'want'. o must be non-null and refer to a Java array, index must
	327	# within range, and the array must be of a primitive type that can
	328	# be made into the requested type by a widening conversion. If any of
	329	# these conditions are not met, an exception is thrown.
	330	#
	331	getprim( o : JObject, index : int, want : int, s : string) : ref Value
	332	{
	333	checksOK(o, index);
	334
	335	(typ, elem) := GetArrayElement(o, index);
	336	if ( (wider := widen(typ, want, elem)) == nil ) {
	337	if ( s != nil )
	338	jni->ThrowException(illegalarg, "Can't cast array element to " + s);
	339	else
	340	jni->ThrowException(illegalarg, "Can't cast array element");
	341	}
	342	return wider;
	343	}
	344	#
	345	# Sets element 'index' of Java array 'o' to the ref Value 'val'
	346	# of the type corresponding to Java type index 'have'. String 's'
	347	# is used only in creating the exception message, and should correspond
	348	# to 'have'. o must be non-null and refer to a Java array, index must
	349	# within range, and the array must be of a primitive type that can
	350	# be made from the provided type by a widening conversion. If any of
	351	# these conditions are not met, an exception is thrown.
	352	#
	353	putprim( o : JObject, index : int, have : int, s : string, val : ref Value)
	354	{
	355	checksOK(o, index);
	356
	357	typ := cast->ToJArray(o).primitive;
	358	if ( (val = widen(have, typ, val)) == nil ) {
	359	if ( s != nil )
	360	jni->ThrowException(illegalarg,
	361	"Can't put input value into " + s + " array");
	362	else
	363	jni->ThrowException(illegalarg,
	364	"Can't put input value into array");
	365	}
	366	SetArrayElement(o, index, val);
	367	#jni->SetArrayElement(o, index, val);
	368	}
	369	#
	370	# Get the element at index from the Java array o and return it in
	371	# in an appropriate member of the Value union.
	372	# The arguments should have been verified before calling this function.
	373	#
	374	GetArrayElement( o : JObject, index : int ) : (int, ref Value)
	375	{
	376	a := cast->ToJArray(o);
	377	val : ref Value;
	378	case a.primitive {
	379	0 =>
	380	val = ref Value.TObject(cast->JArrayToObject(a).ary[index]);
	381	JNI->T_BOOLEAN =>
	382	val = ref Value.TBoolean(int cast->JArrayToByte(a).ary[index]);
	383	JNI->T_BYTE =>
	384	val = ref Value.TByte(int cast->JArrayToByte(a).ary[index]);
	385	JNI->T_CHAR =>
	386	val = ref Value.TChar(cast->JArrayToInt(a).ary[index]);
	387	JNI->T_SHORT =>
	388	val = ref Value.TShort(cast->JArrayToInt(a).ary[index]);
	389	JNI->T_INT =>
	390	val = ref Value.TInt(cast->JArrayToInt(a).ary[index]);
	391	JNI->T_LONG =>
	392	val = ref Value.TLong(cast->JArrayToBig(a).ary[index]);
	393	JNI->T_FLOAT =>
	394	val = ref Value.TFloat(cast->JArrayToReal(a).ary[index]);
	395	JNI->T_DOUBLE =>
	396	val = ref Value.TDouble(cast->JArrayToReal(a).ary[index]);
	397	}
	398	return (a.primitive, val);
	399	}
	400	#
	401	# Set the element at index from the Java array o to 'val',
	402	# The arguments should have been verified before calling this function.
	403	#
	404	SetArrayElement( o : JObject, index : int, val : ref Value)
	405	{
	406	a := cast->ToJArray(o);
	407	pick sw := val {
	408	TBoolean => cast->JArrayToByte(a).ary[index] = byte sw.jboolean;
	409	TByte => cast->JArrayToByte(a).ary[index] = byte sw.jbyte;
	410	TChar => cast->JArrayToInt(a).ary[index] = sw.jchar;
	411	TShort => cast->JArrayToInt(a).ary[index] = sw.jshort;
	412	TInt => cast->JArrayToInt(a).ary[index] = sw.jint;
	413	TLong => cast->JArrayToBig(a).ary[index] = sw.jlong;
	414	TFloat => cast->JArrayToReal(a).ary[index] = sw.jfloat;
	415	TDouble => cast->JArrayToReal(a).ary[index] = sw.jdouble;
	416	}
	417	}

java/pkg2/java/lang/reflect/Array_L.m+33−0

@@ -0,0 +1,33 @@
	1	# javal v1.5 generated file: edit with care
	2
	3	Array_L : module
	4	{
	5	Array_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	};
	9
	10	init : fn( jni_p : JNI );
	11	getLength_rObject_I : fn( p0 : JObject) : int;
	12	get_rObject_I_rObject : fn( p0 : JObject,p1 : int) : JObject;
	13	getBoolean_rObject_I_Z : fn( p0 : JObject,p1 : int) : int;
	14	getByte_rObject_I_B : fn( p0 : JObject,p1 : int) : int;
	15	getChar_rObject_I_C : fn( p0 : JObject,p1 : int) : int;
	16	getShort_rObject_I_S : fn( p0 : JObject,p1 : int) : int;
	17	getInt_rObject_I_I : fn( p0 : JObject,p1 : int) : int;
	18	getLong_rObject_I_J : fn( p0 : JObject,p1 : int) : big;
	19	getFloat_rObject_I_F : fn( p0 : JObject,p1 : int) : real;
	20	getDouble_rObject_I_D : fn( p0 : JObject,p1 : int) : real;
	21	set_rObject_I_rObject_V : fn( p0 : JObject,p1 : int,p2 : JObject);
	22	setBoolean_rObject_I_Z_V : fn( p0 : JObject,p1 : int,p2 : int);
	23	setByte_rObject_I_B_V : fn( p0 : JObject,p1 : int,p2 : int);
	24	setChar_rObject_I_C_V : fn( p0 : JObject,p1 : int,p2 : int);
	25	setShort_rObject_I_S_V : fn( p0 : JObject,p1 : int,p2 : int);
	26	setInt_rObject_I_I_V : fn( p0 : JObject,p1 : int,p2 : int);
	27	setLong_rObject_I_J_V : fn( p0 : JObject,p1 : int,p2 : big);
	28	setFloat_rObject_I_F_V : fn( p0 : JObject,p1 : int,p2 : real);
	29	setDouble_rObject_I_D_V : fn( p0 : JObject,p1 : int,p2 : real);
	30	newArray_rClass_I_rObject : fn( p0 : JClass,p1 : int) : JObject;
	31	multiNewArray_rClass_aI_rObject : fn( p0 : JClass,p1 : JArrayI) : JObject;
	32
	33	};

java/pkg2/java/lang/reflect/Constructor.java+0−0

Empty file added.

java/pkg2/java/lang/reflect/Constructor_L.b+90−0

@@ -0,0 +1,90 @@
	1	implement Constructor_L;
	2
	3	include "jni.m";
	4	jni : JNI;
	5	ClassModule,
	6	JString,
	7	JArray,
	8	JArrayI,
	9	JArrayC,
	10	JArrayB,
	11	JArrayS,
	12	JArrayJ,
	13	JArrayF,
	14	JArrayD,
	15	JArrayZ,
	16	JArrayJObject,
	17	JArrayJClass,
	18	JArrayJString,
	19	JClass,
	20	JObject : import jni;
	21
	22	#>> extra pre includes here
	23
	24	Value,
	25	ClassData,
	26	jldr : import jni;
	27
	28	Object : import jldr;
	29
	30	#<<
	31
	32	include "Constructor_L.m";
	33
	34	#>> extra post includes here
	35
	36	illegalarg := "java.lang.IllegalArgumentException";
	37	nullptr := "java.lang.NullPointerException";
	38
	39	include "reflect.m";
	40	refl : Reflect;
	41	widen : import refl;
	42
	43	#<<
	44
	45	init( jni_p : JNI )
	46	{
	47	# save java native inteface mod instance
	48	jni = jni_p;
	49	#>>extra initialization here
	50	refl = load Reflect Reflect->PATH;
	51	if ( refl == nil )
	52	jni->InitError( jni->sys->sprint( "java.lang.reflect.Constructor: could not load %s: %r", Reflect->PATH ) );
	53	else
	54	refl->init(jni);
	55	#<<
	56	}
	57
	58	getModifiers_I( this : ref Constructor_obj) : int
	59	{#>>
	60	#
	61	# Assume that lower part of slot has modifier bits.
	62	#
	63	return this.slot & 16rffff;
	64	}#<<
	65
	66	newInstance_aObject_rObject( this : ref Constructor_obj, p0 : JArrayJObject) : JObject
	67	{#>>
	68	# this - a Constructor object representing a constructor of some class
	69	# p0 - a Java array of Objects, containing argument values for the
	70	# the constructor
	71	# Returns a new instance, constructed by the 'this' constructor.
	72	#
	73	# Check inputs and build the argument list.
	74	#
	75	args := refl->BuildArgList(this.parameterTypes, p0);
	76	#
	77	# Allocate a new object, then do the call.
	78	#
	79	newobj := jni->AllocObject(this.clazz.class);
	80
	81	# Eventually may be able to do something like
	82	# (result, ok) = jni->CallConstruct(newobj, this.slot, args);
	83
	84	fld := this.clazz.class.initmethods[this.slot >> 16];
	85	(nil, ok) := jni->CallMethod(newobj, fld.field, fld.signature, args);
	86
	87	if ( ok == JNI->OK )
	88	return newobj;
	89	return nil;
	90	}#<<

java/pkg2/java/lang/reflect/Constructor_L.m+18−0

@@ -0,0 +1,18 @@
	1	# generated file edit with care
	2
	3	Constructor_L : module
	4	{
	5	Constructor_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	clazz : JClass;
	9	slot : int;
	10	parameterTypes : JArrayJClass;
	11	exceptionTypes : JArrayJClass;
	12	};
	13
	14	init : fn( jni_p : JNI );
	15	getModifiers_I : fn( this : ref Constructor_obj) : int;
	16	newInstance_aObject_rObject : fn( this : ref Constructor_obj, p0 : JArrayJObject) : JObject;
	17
	18	};

java/pkg2/java/lang/reflect/Field.java+0−0

Empty file added.

java/pkg2/java/lang/reflect/Field_L.b+469−0

@@ -0,0 +1,469 @@
	1	implement Field_L;
	2
	3	# javal v1.5 generated file: edit with care
	4
	5	include "jni.m";
	6	jni : JNI;
	7	ClassModule,
	8	JString,
	9	JArray,
	10	JArrayI,
	11	JArrayC,
	12	JArrayB,
	13	JArrayS,
	14	JArrayJ,
	15	JArrayF,
	16	JArrayD,
	17	JArrayZ,
	18	JArrayJObject,
	19	JArrayJClass,
	20	JArrayJString,
	21	JClass,
	22	JThread,
	23	JObject : import jni;
	24
	25	#>> extra pre includes here
	26
	27	Value,
	28	ClassData : import jni;
	29	jldr : JavaClassLoader;
	30	Object,
	31	Class : import jldr;
	32
	33	#<<
	34
	35	include "Field_L.m";
	36
	37	#>> extra post includes here
	38
	39	include "reflect.m";
	40	refl : Reflect;
	41
	42	STATIC, NONSTATIC : con iota;
	43
	44	illegalacc,
	45	illegalarg,
	46	nullptr : string;
	47
	48	#<<
	49
	50	init( jni_p : JNI )
	51	{
	52	# save java native inteface mod instance
	53	jni = jni_p;
	54	#>>extra initialization here
	55	jldr = jni->jldr;
	56
	57	illegalacc = "java.lang.IllegalAccessException";
	58	illegalarg = "java.lang.IllegalArgumentException";
	59	nullptr = "java.lang.NullPointerException";
	60
	61	refl = load Reflect Reflect->PATH;
	62	if ( refl == nil )
	63	jni->InitError( jni->sys->sprint( "java.lang.reflect.Field: could not load %s: %r", Reflect->PATH ) );
	64	else
	65	refl->init(jni);
	66
	67	#<<
	68	}
	69
	70	getModifiers_I( this : ref Field_obj) : int
	71	{#>>
	72	#
	73	# Assume that lower part of slot points has modifier bits.
	74	#
	75	return this.slot & 16rffff;
	76	}#<<
	77
	78	get_rObject_rObject( this : ref Field_obj, p0 : JObject) : JObject
	79	{#>>
	80	val := getChecks(this, p0);
	81
	82	typ := refl->ValType(val);
	83
	84	if ( typ == 0 ) # array of Objects. good.
	85	return val.Object();
	86
	87	if ( typ >= JNI->T_BOOLEAN && typ <= JNI->T_LONG )
	88	return refl->ValueToObject(val);
	89	return nil;
	90	}#<<
	91
	92	getBoolean_rObject_Z( this : ref Field_obj, p0 : JObject) : int
	93	{#>>
	94	val := getChecks(this, p0);
	95
	96	pick sw := val {
	97	TBoolean => return sw.jboolean;
	98	}
	99	jni->ThrowException(illegalarg, "Can't convert to boolean");
	100	return JNI->FALSE;
	101	}#<<
	102
	103	getByte_rObject_B( this : ref Field_obj, p0 : JObject) : int
	104	{#>>
	105	val := getChecks(this, p0);
	106
	107	pick sw := val {
	108	TByte => return sw.jbyte;
	109	}
	110	jni->ThrowException(illegalarg, "Can't convert to byte");
	111	return JNI->FALSE;
	112	}#<<
	113
	114	getChar_rObject_C( this : ref Field_obj, p0 : JObject) : int
	115	{#>>
	116	val := getChecks(this, p0);
	117
	118	pick sw := val {
	119	TChar => return sw.jchar;
	120	}
	121	jni->ThrowException(illegalarg, "Can't convert to char");
	122	return 0;
	123	}#<<
	124
	125	getShort_rObject_S( this : ref Field_obj, p0 : JObject) : int
	126	{#>>
	127	val := getChecks(this, p0);
	128
	129	pick sw := val {
	130	TByte => return int sw.jbyte;
	131	TShort => return sw.jshort;
	132	}
	133	jni->ThrowException(illegalarg, "Can't convert to short");
	134	return 0;
	135	}#<<
	136
	137	getInt_rObject_I( this : ref Field_obj, p0 : JObject) : int
	138	{#>>
	139	val := getChecks(this, p0);
	140
	141	pick sw := val {
	142	TByte => return int sw.jbyte;
	143	TChar => return sw.jchar;
	144	TShort => return sw.jshort;
	145	TInt => return sw.jint;
	146	}
	147	jni->ThrowException(illegalarg, "Can't convert to int");
	148	return 0;
	149	}#<<
	150
	151	getLong_rObject_J( this : ref Field_obj, p0 : JObject) : big
	152	{#>>
	153	val := getChecks(this, p0);
	154
	155	pick sw := val {
	156	TByte => return big sw.jbyte;
	157	TChar => return big sw.jchar;
	158	TShort => return big sw.jshort;
	159	TInt => return big sw.jint;
	160	TLong => return sw.jlong;
	161	}
	162	jni->ThrowException(illegalarg, "Can't convert to long");
	163	return big 0;
	164	}#<<
	165
	166	getFloat_rObject_F( this : ref Field_obj, p0 : JObject) : real
	167	{#>>
	168	val := getChecks(this, p0);
	169
	170	pick sw := val {
	171	TByte => return real sw.jbyte;
	172	TChar => return real sw.jchar;
	173	TShort => return real sw.jshort;
	174	TInt => return real sw.jint;
	175	TLong => return real sw.jlong;
	176	TFloat => return sw.jfloat;
	177	}
	178	jni->ThrowException(illegalarg, "Can't convert to float");
	179	return 0.0;
	180	}#<<
	181
	182	getDouble_rObject_D( this : ref Field_obj, p0 : JObject) : real
	183	{#>>
	184	val := getChecks(this, p0);
	185
	186	pick sw := val {
	187	TByte => return real sw.jbyte;
	188	TChar => return real sw.jchar;
	189	TShort => return real sw.jshort;
	190	TInt => return real sw.jint;
	191	TLong => return real sw.jlong;
	192	TFloat => return sw.jfloat;
	193	TDouble => return sw.jdouble;
	194	}
	195	jni->ThrowException(illegalarg, "Can't convert to double");
	196	return 0.0;
	197	}#<<
	198
	199	set_rObject_rObject_V( this : ref Field_obj, p0 : JObject,p1 : JObject)
	200	{#>>
	201	want := putChecks(this, p0);
	202	clazz := jni->GetObjectClass(p1);
	203
	204	if ( want == 0 ) { # field value is Object
	205	p := ref Value.TObject;
	206	if ( jni->IsAssignable(clazz, this.clazz) == JNI->TRUE ) {
	207	p.jobj = p1;
	208	SetField(this, p0, p);
	209	return;
	210	}
	211	else {
	212	jni->ThrowException(illegalarg, "Can't safely cast");
	213	return;
	214	}
	215	}
	216	# The field is a primitive type. Then p1 better be a wrapper for that
	217	# type. (Or is it okay if it's a wrapper for something that can be
	218	# safely cast to the target type?)
	219	#
	220	# is p1 a Boolean object, or sub-classed from a Boolean object,
	221	# or a String with value "true" or "false" ?
	222	#
	223	(typ, val) := refl->GetVal(p1);
	224	if ( typ == 0 \|\| (val = refl->widen(typ, want, val)) == nil ) {
	225	jni->ThrowException(illegalarg, "Object can't be cast to needed type");
	226	return;
	227	}
	228	SetField(this, p0, val);
	229	return;
	230	}#<<
	231
	232	setBoolean_rObject_Z_V( this : ref Field_obj, p0 : JObject,p1 : int)
	233	{#>>
	234	want := putChecks(this, p0);
	235
	236	#
	237	# Note that if the field's signature is "Ljava.lang.Boolean;",
	238	# we could create an appropriate Object and assign it.
	239	# But it isn't clear if that is what's wanted.
	240	# A similar argument applies for the other set<Type> functions.
	241	#
	242	p : ref Value;
	243	case want {
	244	JNI->T_BOOLEAN => p = ref Value.TBoolean(p1);
	245	* =>
	246	jni->ThrowException(illegalarg, "Can't convert from boolean");
	247	return;
	248	}
	249	SetField(this, p0, p);
	250	}#<<
	251
	252	setByte_rObject_B_V( this : ref Field_obj, p0 : JObject,p1 : int)
	253	{#>>
	254	want := putChecks(this, p0);
	255
	256	p : ref Value;
	257	case want {
	258	JNI->T_BYTE => p = ref Value.TByte(p1);
	259	JNI->T_SHORT => p = ref Value.TShort(int p1);
	260	JNI->T_INT => p = ref Value.TInt(int p1);
	261	JNI->T_LONG => p = ref Value.TLong(big p1);
	262	JNI->T_FLOAT => p = ref Value.TFloat(real p1);
	263	JNI->T_DOUBLE => p = ref Value.TDouble(real p1);
	264	* =>
	265	jni->ThrowException(illegalarg, "Can't convert from byte");
	266	return;
	267	}
	268	SetField(this, p0, p);
	269	}#<<
	270
	271	setChar_rObject_C_V( this : ref Field_obj, p0 : JObject,p1 : int)
	272	{#>>
	273	want := putChecks(this, p0);
	274
	275	p : ref Value;
	276	case want {
	277	JNI->T_CHAR => p = ref Value.TChar(p1);
	278	* =>
	279	jni->ThrowException(illegalarg, "Can't convert from char");
	280	return;
	281	}
	282	SetField(this, p0, p);
	283	}#<<
	284
	285	setShort_rObject_S_V( this : ref Field_obj, p0 : JObject,p1 : int)
	286	{#>>
	287	want := putChecks(this, p0);
	288
	289	p : ref Value;
	290	case want {
	291	JNI->T_SHORT => p = ref Value.TShort(p1);
	292	JNI->T_INT => p = ref Value.TInt(p1);
	293	JNI->T_LONG => p = ref Value.TLong(big p1);
	294	JNI->T_FLOAT => p = ref Value.TFloat(real p1);
	295	JNI->T_DOUBLE => p = ref Value.TDouble(real p1);
	296	* =>
	297	jni->ThrowException(illegalarg, "Can't convert from short");
	298	return;
	299	}
	300	SetField(this, p0, p);
	301	}#<<
	302
	303	setInt_rObject_I_V( this : ref Field_obj, p0 : JObject,p1 : int)
	304	{#>>
	305	want := putChecks(this, p0);
	306
	307	p : ref Value;
	308	case want {
	309	JNI->T_INT => p = ref Value.TInt(p1);
	310	JNI->T_LONG => p = ref Value.TLong(big p1);
	311	JNI->T_FLOAT => p = ref Value.TFloat(real p1);
	312	JNI->T_DOUBLE => p = ref Value.TDouble(real p1);
	313	* =>
	314	jni->ThrowException(illegalarg, "Can't convert from int");
	315	return;
	316	}
	317	SetField(this, p0, p);
	318	}#<<
	319
	320	setLong_rObject_J_V( this : ref Field_obj, p0 : JObject,p1 : big)
	321	{#>>
	322	want := putChecks(this, p0);
	323
	324	p : ref Value;
	325	case want {
	326	JNI->T_LONG => p = ref Value.TLong(p1);
	327	JNI->T_FLOAT => p = ref Value.TFloat(real p1);
	328	JNI->T_DOUBLE => p = ref Value.TDouble(real p1);
	329	* =>
	330	jni->ThrowException(illegalarg, "Can't convert from long");
	331	return;
	332	}
	333	SetField(this, p0, p);
	334	}#<<
	335
	336	setFloat_rObject_F_V( this : ref Field_obj, p0 : JObject,p1 : real)
	337	{#>>
	338	want := putChecks(this, p0);
	339
	340	p : ref Value;
	341	case want {
	342	JNI->T_FLOAT => p = ref Value.TFloat(p1);
	343	JNI->T_DOUBLE => p = ref Value.TDouble(p1);
	344	* =>
	345	jni->ThrowException(illegalarg, "Can't convert from float");
	346	return;
	347	}
	348	SetField(this, p0, p);
	349	}#<<
	350
	351	setDouble_rObject_D_V( this : ref Field_obj, p0 : JObject,p1 : real)
	352	{#>>
	353	want := putChecks(this, p0);
	354
	355	p : ref Value;
	356	case want {
	357	JNI->T_DOUBLE => p = ref Value.TDouble(p1);
	358	* =>
	359	jni->ThrowException(illegalarg, "Can't convert from double");
	360	return;
	361	}
	362	SetField(this, p0, p);
	363	}#<<
	364
	365
	366
	367	getChecks( this : ref Field_obj, p0 : JObject) : ref Value
	368	{
	369	if ( (this.slot & jldr->ACC_STATIC) == 0 && p0 == nil )
	370	jni->ThrowException(nullptr, "reading field of null Object");
	371
	372	# See if the target object is the same as the one declaring the field.
	373	# this.clazz.class_data is ref to a classloader.Class adt
	374
	375	cldata := this.clazz.class;
	376	if ( (this.slot & jldr->ACC_STATIC) == 0 && jni->IsInstanceOf(p0, cldata) != JNI->TRUE ) {
	377	jni->ThrowException(illegalarg,
	378	"Object is not an instance of this class");
	379	return nil;
	380	}
	381
	382	if ( (this.slot & jldr->ACC_PUBLIC) == 0 )
	383	jni->ThrowException(illegalacc, "reading non-public field");
	384
	385	if ( this.slot & jldr->ACC_STATIC )
	386	return GetStat(cldata, this.slot);
	387	else
	388	return GetField(p0, this.slot);
	389	}
	390
	391	putChecks( this : ref Field_obj, p0 : JObject) : int
	392	{
	393	if ( (this.slot & jldr->ACC_STATIC) == 0 && p0 == nil )
	394	jni->ThrowException(nullptr, "writing field of null Object");
	395
	396	# See if the target object is the same as the one declaring the field.
	397	# this.clazz.class_data is ref to a classloader.Class adt
	398
	399	cldata := this.clazz.class;
	400	if ( (this.slot & jldr->ACC_STATIC) == 0 && jni->IsInstanceOf(p0, cldata) != JNI->TRUE ) {
	401	jni->ThrowException(illegalarg,
	402	"Object is not an instance of this class");
	403	return 0;
	404	}
	405
	406	if ( (this.slot & jldr->ACC_PUBLIC) == 0 \|\| (this.slot & jldr->ACC_FINAL) != 0 )
	407	jni->ThrowException(illegalacc, "writing non-public or final field");
	408
	409	if ( this.slot & jldr->ACC_STATIC )
	410	return refl->SigToType(cldata.staticdata[this.slot >> 16].signature);
	411	else {
	412	flds := cldata.objectdata;
	413	for ( i := (this.slot >> 16); i > 0; i--)
	414	flds = tl flds;
	415	return refl->SigToType((hd flds).signature);
	416	}
	417	return 0;
	418	}
	419
	420	checkMemberAccess(which : int)
	421	{
	422	return;
	423	}
	424
	425	SetField(this : ref Field_obj, o : JObject, v : ref Value)
	426	{
	427	cldata := this.clazz.class;
	428	if ( (this.slot & jldr->ACC_STATIC) != 0 ) {
	429	fld := cldata.staticdata[this.slot >> 16];
	430	jni->SetStaticField(cldata, fld.field, v);
	431	}
	432	else {
	433	flds := cldata.objectdata;
	434	for ( i := (this.slot >> 16); i > 0; i-- )
	435	flds = tl flds;
	436	fld := hd flds;
	437	jni->SetObjField(o, fld.field, v);
	438	}
	439	}
	440
	441	widen(have, want : string, val : ref Value) : ref Value
	442	{
	443	if ( have == want )
	444	return val;
	445	havetype := refl->SigToType(have);
	446	wanttype := refl->SigToType(want);
	447	return refl->widen(havetype, wanttype, val);
	448	}
	449	#
	450	# Eventually JNI may provide a funtions to do this more directly.
	451	#
	452	GetStat(cldata : ClassData, slot : int) : ref Value
	453	{
	454	fld := cldata.staticdata[slot >> 16];
	455	return jni->GetStaticField(cldata, fld.field, fld.signature);
	456	}
	457	#
	458	# Eventually JNI may provide a funtions to do this more directly.
	459	# It would probably know what to do about privatemethods, if anything.
	460	#
	461	GetField(obj : JObject, slot : int) : ref Value
	462	{
	463	flds := obj.class().objectdata;
	464	for ( i := (slot >> 16); i > 0; i-- )
	465	flds = tl flds;
	466	fld := hd flds;
	467	return jni->GetObjField(obj, fld.field, fld.signature);
	468	}
	469

java/pkg2/java/lang/reflect/Field_L.m+35−0

@@ -0,0 +1,35 @@
	1	# javal v1.5 generated file: edit with care
	2
	3	Field_L : module
	4	{
	5	Field_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	clazz : JClass;
	9	slot : int;
	10	name : JString;
	11	type_j : JClass;
	12	};
	13
	14	init : fn( jni_p : JNI );
	15	getModifiers_I : fn( this : ref Field_obj) : int;
	16	get_rObject_rObject : fn( this : ref Field_obj, p0 : JObject) : JObject;
	17	getBoolean_rObject_Z : fn( this : ref Field_obj, p0 : JObject) : int;
	18	getByte_rObject_B : fn( this : ref Field_obj, p0 : JObject) : int;
	19	getChar_rObject_C : fn( this : ref Field_obj, p0 : JObject) : int;
	20	getShort_rObject_S : fn( this : ref Field_obj, p0 : JObject) : int;
	21	getInt_rObject_I : fn( this : ref Field_obj, p0 : JObject) : int;
	22	getLong_rObject_J : fn( this : ref Field_obj, p0 : JObject) : big;
	23	getFloat_rObject_F : fn( this : ref Field_obj, p0 : JObject) : real;
	24	getDouble_rObject_D : fn( this : ref Field_obj, p0 : JObject) : real;
	25	set_rObject_rObject_V : fn( this : ref Field_obj, p0 : JObject,p1 : JObject);
	26	setBoolean_rObject_Z_V : fn( this : ref Field_obj, p0 : JObject,p1 : int);
	27	setByte_rObject_B_V : fn( this : ref Field_obj, p0 : JObject,p1 : int);
	28	setChar_rObject_C_V : fn( this : ref Field_obj, p0 : JObject,p1 : int);
	29	setShort_rObject_S_V : fn( this : ref Field_obj, p0 : JObject,p1 : int);
	30	setInt_rObject_I_V : fn( this : ref Field_obj, p0 : JObject,p1 : int);
	31	setLong_rObject_J_V : fn( this : ref Field_obj, p0 : JObject,p1 : big);
	32	setFloat_rObject_F_V : fn( this : ref Field_obj, p0 : JObject,p1 : real);
	33	setDouble_rObject_D_V : fn( this : ref Field_obj, p0 : JObject,p1 : real);
	34
	35	};

java/pkg2/java/lang/reflect/InvocationTargetExcepti..a+0−0

Empty file added.

java/pkg2/java/lang/reflect/Member.java+0−0

Empty file added.

java/pkg2/java/lang/reflect/Method.java+0−0

Empty file added.

java/pkg2/java/lang/reflect/Method_L.b+117−0

@@ -0,0 +1,117 @@
	1	implement Method_L;
	2
	3	include "jni.m";
	4	jni : JNI;
	5	ClassModule,
	6	JString,
	7	JArray,
	8	JArrayI,
	9	JArrayC,
	10	JArrayB,
	11	JArrayS,
	12	JArrayJ,
	13	JArrayF,
	14	JArrayD,
	15	JArrayZ,
	16	JArrayJObject,
	17	JArrayJClass,
	18	JArrayJString,
	19	JClass,
	20	JObject : import jni;
	21
	22	#>> extra pre includes here
	23
	24	Value,
	25	ClassData,
	26	jldr : import jni;
	27
	28	Object : import jldr;
	29
	30	#<<
	31
	32	include "Method_L.m";
	33
	34	#>> extra post includes here
	35
	36	illegalarg := "java.lang.IllegalArgumentException";
	37	nullptr := "java.lang.NullPointerException";
	38
	39	include "reflect.m";
	40	refl : Reflect;
	41	widen : import refl;
	42
	43	#<<
	44
	45	init( jni_p : JNI )
	46	{
	47	# save java native inteface mod instance
	48	jni = jni_p;
	49	#>>extra initialization here
	50	refl = load Reflect Reflect->PATH;
	51	if ( refl == nil )
	52	jni->InitError( jni->sys->sprint( "java.lang.reflect.Method: could not load %s: %r", Reflect->PATH ) );
	53	else
	54	refl->init(jni);
	55	#<<
	56	}
	57
	58	getModifiers_I( this : ref Method_obj) : int
	59	{#>>
	60	#
	61	# Assume that lower part of slot has modifier bits.
	62	#
	63	return this.slot & 16rffff;
	64	}#<<
	65
	66	invoke_rObject_aObject_rObject( this : ref Method_obj, p0 : JObject,p1 : JArrayJObject) : JObject
	67	{#>>
	68	# this - a Method object. The corresponding method should be invoked for
	69	# p0 - an Object which should contain that method, with
	70	# p1 - a Java array of Objects that are the arguments to the method.
	71	# Can be null if the method has no arguments.
	72	# Returns an object reflecting the value returned by the method call.
	73	#
	74	# First do some checking. If 'this' is a static method, p0 is ignored,
	75	# otherwise it must an instance of the class in which the method is
	76	# declared.
	77	#
	78	if ( (this.slot & JNI->ACC_STATIC) == 0 ) { # not static
	79	if ( p0 == nil )
	80	jni->ThrowException(nullptr, "Must supply an instance");
	81	if ( jni->IsInstanceOf(p0, this.clazz.class) == JNI->FALSE )
	82	jni->ThrowException(illegalarg, "Method not in object");
	83	}
	84	#
	85	# Check inputs and build the argument list.
	86	#
	87	args := refl->BuildArgList(this.parameterTypes, p1);
	88	#
	89	# Do the call.
	90	#
	91	result : ref Value;
	92	ok : int;
	93	if ( this.slot & JNI->ACC_STATIC ) {
	94	fld := this.clazz.class.staticmethods[this.slot >> 16];
	95	(result, ok) = jni->CallStatic(this.clazz.class, fld.field,
	96	fld.signature, args);
	97	}
	98	else {
	99	fld : ref JavaClassLoader->Field;
	100	if ( (this.slot & JNI->ACC_PRIVATE) != 0 )
	101	fld = p0.class().privatemethods[this.slot >> 16];
	102	else
	103	fld = p0.class().virtualmethods[this.slot >> 16].field;
	104	(result, ok) = jni->CallMethod(p0, fld.field, fld.signature, args);
	105	}
	106	#
	107	# If necessary, wrap the answer up as an Object.
	108	#
	109	if ( ok == JNI->OK && result != nil ) {
	110	typ := refl->ValType(result);
	111	if ( typ >= JNI->T_BOOLEAN && typ <= JNI->T_LONG )
	112	return refl->ValueToObject(result);
	113	else
	114	return result.Object();
	115	}
	116	return nil;
	117	}#<<

java/pkg2/java/lang/reflect/Method_L.m+20−0

@@ -0,0 +1,20 @@
	1	# generated file edit with care
	2
	3	Method_L : module
	4	{
	5	Method_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	clazz : JClass;
	9	slot : int;
	10	name : JString;
	11	returnType : JClass;
	12	parameterTypes : JArrayJClass;
	13	exceptionTypes : JArrayJClass;
	14	};
	15
	16	init : fn( jni_p : JNI );
	17	getModifiers_I : fn( this : ref Method_obj) : int;
	18	invoke_rObject_aObject_rObject : fn( this : ref Method_obj, p0 : JObject,p1 : JArrayJObject) : JObject;
	19
	20	};

java/pkg2/java/lang/reflect/Modifier.java+0−0

Empty file added.

java/pkg2/java/lang/reflect/mkfile+46−0

@@ -0,0 +1,46 @@
	1	<../../../../../mkconfig
	2
	3	TARG=\
	4	Array.dis\
	5	Constructor.dis\
	6	Field.dis\
	7	# for InvocationTargetException.dis\
	8	esaAWjdsByqq9cEPQZTRT.dis\
	9	Member.dis\
	10	Method.dis\
	11	Modifier.dis\
	12	# Limbo code\
	13	Array_L.dis\
	14	Constructor_L.dis\
	15	Field_L.dis\
	16	Method_L.dis\
	17	reflect.dis\
	18
	19	MODULES=\
	20	$ROOT/java/module/classloader.m\
	21	$ROOT/java/module/jni.m\
	22	$ROOT/java/module/cast.m\
	23	Array_L.m\
	24	Constructor_L.m\
	25	Field_L.m\
	26	Method_L.m\
	27	reflect.m\
	28
	29	SYSMODULES=\
	30	draw.m\
	31	hash.m\
	32	keyring.m\
	33	loader.m\
	34	math.m\
	35	string.m\
	36	sys.m\
	37
	38	DISBIN=$ROOT/java/dis/java/java/lang/reflect
	39
	40	<$ROOT/mkfiles/mkjava
	41
	42	reflect.dis: reflect.b
	43	limbo $LIMBOINCL -gw reflect.b
	44
	45	esaAWjdsByqq9cEPQZTRT.dis: InvocationTargetException.class
	46	j2d InvocationTargetException.class

java/pkg2/java/lang/reflect/reflect.b+327−0

@@ -0,0 +1,327 @@
	1	implement Reflect;
	2
	3	include "jni.m";
	4	jni : JNI;
	5	cast : Cast;
	6
	7	JObject,
	8	JClass,
	9	JArrayJClass,
	10	JArrayJObject,
	11	Value : import jni;
	12	OK,
	13	ERR,
	14	TRUE,
	15	FALSE,
	16	#T_OBJECT, T_ARRAY,
	17	T_BOOLEAN,
	18	T_BYTE,
	19	T_CHAR,
	20	T_SHORT,
	21	T_INT,
	22	T_LONG,
	23	T_FLOAT,
	24	T_DOUBLE : import JNI;
	25
	26	ClassData : import JNI;
	27
	28	include "reflect.m";
	29
	30	wrapper_class := array[T_LONG-T_BOOLEAN+1] of ClassData;
	31	wrapper_name := array[] of { "Boolean",
	32	"Character",
	33	"Float",
	34	"Double",
	35	"Byte",
	36	"Short",
	37	"Integer",
	38	"Long" };
	39	type_string := "ZCFDBSIJ";
	40
	41	illegalarg := "java.lang.IllegalArgumentException";
	42	nullptr := "java.lang.NullPointerException";
	43
	44	init(jni_m : JNI) {
	45	jni = jni_m;
	46	for ( i := 0; i <= T_LONG - T_BOOLEAN; i++ )
	47	wrapper_class[i] = jni->FindClass("java/lang/" + wrapper_name[i]);
	48	cast = jni->CastMod();
	49	}
	50
	51	widen(have, want : int, val : ref Value) : ref Value
	52	{
	53	if ( have == want )
	54	return val;
	55	havetype := have;
	56	wanttype := want;
	57	valint : int;
	58	valbig : big;
	59	valreal : real;
	60	if ( havetype == 0 \|\| wanttype == 0 )
	61	return nil;
	62	pick sw := val {
	63	TByte =>
	64	valint = int sw.jbyte;
	65	valbig = big valint;
	66	valreal = real valint;
	67	TShort =>
	68	valint = sw.jshort;
	69	valbig = big valint;
	70	valreal = real valint;
	71	TChar =>
	72	valint = sw.jchar;
	73	valbig = big valint;
	74	valreal = real valint;
	75	TInt =>
	76	valint = sw.jint;
	77	valbig = big valint;
	78	valreal = real valint;
	79	TLong =>
	80	valbig = sw.jlong;
	81	valreal = real valbig;
	82	TFloat =>
	83	valreal = sw.jfloat;
	84	}
	85	case ( wanttype ) {
	86	T_BOOLEAN or T_BYTE or T_CHAR =>
	87	return nil;
	88	T_SHORT =>
	89	case ( havetype ) {
	90	T_BYTE =>
	91	sw := ref Value.TShort;
	92	sw.jshort = valint;
	93	val = sw;
	94	* =>
	95	return nil;
	96	}
	97	T_INT =>
	98	case ( havetype ) {
	99	T_BYTE or T_SHORT or T_CHAR =>
	100	sw := ref Value.TInt;
	101	sw.jint = valint;
	102	val = sw;
	103	* =>
	104	return nil;
	105	}
	106	T_LONG =>
	107	case ( havetype ) {
	108	T_BYTE or T_SHORT or T_CHAR or T_INT =>
	109	sw := ref Value.TLong;
	110	sw.jlong = valbig;
	111	val = sw;
	112	* =>
	113	return nil;
	114	}
	115	T_FLOAT =>
	116	case ( havetype ) {
	117	T_BYTE or T_SHORT or T_CHAR or T_INT or T_LONG =>
	118	sw := ref Value.TFloat;
	119	sw.jfloat = valreal;
	120	val = sw;
	121	* =>
	122	return nil;
	123	}
	124	T_DOUBLE =>
	125	case ( havetype ) {
	126	T_BYTE or T_SHORT or T_CHAR or T_INT or T_LONG or T_FLOAT =>
	127	sw := ref Value.TDouble;
	128	sw.jdouble = valreal;
	129	val = sw;
	130	* =>
	131	return nil;
	132	}
	133	}
	134	return val;
	135	}
	136	BuildArgList(parms : JArrayJClass, arg : JArrayJObject) : array of ref Value
	137	{
	138	#
	139	# First do some checking.
	140	#
	141	l := 0;
	142	formal: array of JClass;
	143	actual: array of JObject;
	144	args: array of ref Value;
	145	if ( parms != nil ) {
	146	if ( arg == nil )
	147	jni->ThrowException(nullptr, "constructor requires parameters");
	148	if ( len parms.ary != len arg.ary )
	149	jni->ThrowException(illegalarg, "Wrong number of args");
	150	l = len parms.ary;
	151	formal = parms.ary; # array of JClass
	152	actual = arg.ary; # array of JObject
	153	args = array[l] of ref Value;
	154	}
	155	else # There are no formal parameters
	156	if ( arg != nil && len arg.ary != 0 ) # But there are actual arguments
	157	jni->ThrowException(illegalarg, "Wrong number of args");
	158
	159	#
	160	# March through the arguments, checking for type as we go.
	161	#
	162	for ( i := 0; i < l; i++ ) {
	163	#
	164	# Is the formal parameter a primitive?
	165	#
	166	if ( (want := jni->PrimitiveIndex(formal[i], 1)) > 0 ) {
	167	#
	168	# Actual parameter should be (derived from) a wrapper, and
	169	# be able to be widened to the formal parameter type.
	170	#
	171	(typ, parmval) := GetVal(actual[i]);
	172	if ( (val := widen(want, typ, parmval)) != nil )
	173	args[i] = val;
	174	else
	175	jni->ThrowException(illegalarg, "Argument " + string (i+1) +
	176	", can't cast");
	177	}
	178	else if ( jni->IsInstanceOf(actual[i], formal[i].class) == JNI->TRUE ) {
	179	val := ref Value.TObject;
	180	val.jobj = actual[i];
	181	args[i] = val;
	182	}
	183	else
	184	jni->ThrowException(illegalarg, "Argument " + string (i+1) +
	185	" wrong type");
	186	}
	187	return args;
	188	}
	189	#
	190	# Return a JClass corresponding to the Java type t.
	191	#
	192	Class(t : int) : JClass
	193	{
	194	if ( t < T_BOOLEAN \|\| t > T_LONG )
	195	return nil;
	196	return jni->GetClassObject(wrapper_class[t - T_BOOLEAN]);
	197	}
	198	#
	199	# Return a Class Object corresponding to the Java type t.
	200	#
	201	ClassObject(t : int) : JObject
	202	{
	203	return cast->FromJClass(Class(t));
	204	}
	205	#
	206	# Given the java type, get the Class object representing this
	207	# type, and return as a Value.
	208	#
	209	GetPrimitiveClass(typ : int) : ref Value
	210	{
	211	return jni->GetStaticField(wrapper_class[typ - T_BOOLEAN], "TYPE",
	212	"Ljava/lang/Class;");
	213	}
	214	#
	215	# If the Object o is a wrapper for a Java primitive type, return the
	216	# primitive value (in a Value adt) and the type index.
	217	# Otherwise, return 0 and a nil Value.
	218	#
	219	GetVal(o : JObject) : (int, ref Value)
	220	{
	221	j := T_BOOLEAN;
	222	for ( i := j; i <= T_LONG; i++ ) {
	223	if ( jni->IsInstanceOf(o, wrapper_class[i-j]) == TRUE ) {
	224	val := jni->GetObjField(o, "value", type_string[i-j:i-j+1]);
	225	return (i, val);
	226	}
	227	}
	228	return (0, nil);
	229	}
	230	#
	231	# Convert a signature to a java type index.
	232	#
	233	SigToType(sig : string) : int
	234	{
	235	index : int;
	236	case sig[0] {
	237	'Z' =>
	238	index = T_BOOLEAN;
	239	'B' =>
	240	index = T_BYTE;
	241	'C' =>
	242	index = T_CHAR;
	243	'S' =>
	244	index = T_SHORT;
	245	'I' =>
	246	index = T_INT;
	247	'J' =>
	248	index = T_LONG;
	249	'F' =>
	250	index = T_FLOAT;
	251	'D' =>
	252	index = T_DOUBLE;
	253	* =>
	254	index = 0;
	255	}
	256	return index;
	257	}
	258	#
	259	# Convert a java type index to a signature.
	260	#
	261	TypeToSig(typ : int) : string
	262	{
	263	if ( typ < T_BOOLEAN \|\| typ > T_LONG )
	264	return nil;
	265	return type_string[typ-T_BOOLEAN:typ-T_BOOLEAN+1];
	266	}
	267	#
	268	# Convert a Java type character to its corresponding type name.
	269	#
	270	TypeCharToName(c : int) : string
	271	{
	272	tname : string;
	273	case c {
	274	'Z' =>
	275	tname = "boolean";
	276	'B' =>
	277	tname = "byte";
	278	'C' =>
	279	tname = "char";
	280	'S' =>
	281	tname = "short";
	282	'I' =>
	283	tname = "int";
	284	'J' =>
	285	tname = "long";
	286	'F' =>
	287	tname = "float";
	288	'D' =>
	289	tname = "double";
	290	* =>
	291	tname = "blah";
	292	}
	293	return tname;
	294	}
	295	#
	296	# Calculate the type index of the quantity in val. If it isn't a
	297	# Java primitive type, return 0;
	298	#
	299	ValType(val : ref Value) : int
	300	{
	301	pick sw := val {
	302	TBoolean => return T_BOOLEAN;
	303	TByte => return T_BYTE;
	304	TChar => return T_CHAR;
	305	TShort => return T_SHORT;
	306	TInt => return T_INT;
	307	TLong => return T_LONG;
	308	TFloat => return T_FLOAT;
	309	TDouble => return T_DOUBLE;
	310	* => return 0;
	311	}
	312	}
	313	#
	314	# Create a wrapper Object for the primitive Java value corresponding
	315	# to the argument.
	316	#
	317	ValueToObject(val : ref Value) : JObject
	318	{
	319	typ := ValType(val);
	320	j := T_BOOLEAN;
	321	jobj := jni->AllocObject(wrapper_class[typ - j]);
	322	sig := "(" + type_string[typ-j:typ-j+1] + ")V";
	323	(nil, ok) := jni->CallMethod(jobj, "<init>", sig, array[] of { val });
	324	if ( ok == OK )
	325	return jobj;
	326	return nil;
	327	}

java/pkg2/java/lang/reflect/reflect.m+19−0

@@ -0,0 +1,19 @@
	1	Reflect : module {
	2
	3	PATH : con "/dis/java/java/lang/reflect/reflect.dis";
	4
	5	init : fn(jni_m : JNI);
	6	widen : fn(havetype, wanttype : int, val : ref Value) : ref Value;
	7	BuildArgList: fn(parms : JArrayJClass, arg : JArrayJObject)
	8	: array of ref Value;
	9	Class : fn(t : int) : JClass;
	10	ClassObject : fn(t : int) : JObject;
	11	GetPrimitiveClass : fn(typ : int) : ref Value;
	12	GetVal : fn(o : JObject) : (int, ref Value);
	13	SigToType : fn(sig : string) : int;
	14	TypeToSig : fn(typ : int) : string;
	15	TypeCharToName : fn(c : int) : string;
	16	ValType : fn(val : ref Value) : int;
	17	ValueToObject : fn(val : ref Value) : JObject;
	18
	19	};

java/pkg2/java/lang/unicode_table.b+1285−0

@@ -0,0 +1,1285 @@
	1	implement UnicodeTable;
	2
	3	include "unicode_table.m";
	4
	5	#
	6	# the following is lifted from JavaSoft's java
	7	# source for java.lang.Character. The Limbo
	8	# compiler produces a more compact file then Java
	9	#
	10
	11	# The character properties are currently encoded into 32 bits in the following manner:
	12	# 10 bits signed offset used for converting case
	13	# 1 bit if 1, adding the signed offset converts the character to lowercase
	14	# 1 bit if 1, subtracting the signed offset converts the character to uppercase
	15	# 1 bit if 1, this character has a titlecase equivalent (possibly itself)
	16	# 3 bits 0 may not be part of an identifier
	17	# 1 ignorable control; may continue a Unicode identifier or Java identifier
	18	# 2 may continue a Java identifier but not a Unicode identifier (unused)
	19	# 3 may continue a Unicode identifier or Java identifier
	20	# 4 is a Java whitespace character
	21	# 5 may start or continue a Java identifier;
	22	# may continue but not start a Unicode identifier (underscores)
	23	# 6 may start or continue a Java identifier but not a Unicode identifier ($)
	24	# 7 may start or continue a Unicode identifier or Java identifier
	25	# Thus:
	26	# 5, 6, 7 may start a Java identifier
	27	# 1, 2, 3, 5, 6, 7 may continue a Java identifier
	28	# 7 may start a Unicode identifier
	29	# 1, 3, 5, 7 may continue a Unicode identifier
	30	# 1 is ignorable within an identifier
	31	# 4 is Java whitespace
	32	# 2 bits 0 this character has no numeric property
	33	# 1 adding the digit offset to the character code and then
	34	# masking with 16r1F will produce the desired numeric value
	35	# 2 this character has a "strange" numeric value
	36	# 3 a Java supradecimal digit: adding the digit offset to the
	37	# character code, then masking with 16r1F, then adding 10
	38	# will produce the desired numeric value
	39	# 5 bits digit offset
	40	# 4 bits reserved for future use
	41	# 5 bits character type
	42	#
	43
	44	# The X table has 1024 entries for a total of 1024 bytes.
	45
	46	X = array[] of {
	47	0, 1, 2, 3, 4, 5, 6, 7, # 16r0000
	48	8, 9, 10, 11, 12, 13, 14, 15, # 16r0200
	49	16, 17, 18, 19, 20, 21, 22, 23, # 16r0400
	50	24, 25, 26, 27, 28, 28, 28, 28, # 16r0600
	51	28, 28, 28, 28, 29, 30, 31, 32, # 16r0800
	52	33, 34, 35, 36, 37, 38, 39, 40, # 16r0A00
	53	41, 42, 43, 44, 45, 46, 28, 28, # 16r0C00
	54	47, 48, 49, 50, 51, 52, 53, 28, # 16r0E00
	55	28, 28, 54, 55, 56, 57, 58, 59, # 16r1000
	56	28, 28, 28, 28, 28, 28, 28, 28, # 16r1200
	57	28, 28, 28, 28, 28, 28, 28, 28, # 16r1400
	58	28, 28, 28, 28, 28, 28, 28, 28, # 16r1600
	59	28, 28, 28, 28, 28, 28, 28, 28, # 16r1800
	60	28, 28, 28, 28, 28, 28, 28, 28, # 16r1A00
	61	28, 28, 28, 28, 28, 28, 28, 28, # 16r1C00
	62	60, 60, 61, 62, 63, 64, 65, 66, # 16r1E00
	63	67, 68, 69, 70, 71, 72, 73, 74, # 16r2000
	64	75, 75, 75, 76, 77, 78, 28, 28, # 16r2200
	65	79, 80, 81, 82, 83, 83, 84, 85, # 16r2400
	66	86, 85, 28, 28, 87, 88, 89, 28, # 16r2600
	67	28, 28, 28, 28, 28, 28, 28, 28, # 16r2800
	68	28, 28, 28, 28, 28, 28, 28, 28, # 16r2A00
	69	28, 28, 28, 28, 28, 28, 28, 28, # 16r2C00
	70	28, 28, 28, 28, 28, 28, 28, 28, # 16r2E00
	71	90, 91, 92, 93, 94, 56, 95, 28, # 16r3000
	72	96, 97, 98, 99, 83, 100, 83, 101, # 16r3200
	73	28, 28, 28, 28, 28, 28, 28, 28, # 16r3400
	74	28, 28, 28, 28, 28, 28, 28, 28, # 16r3600
	75	28, 28, 28, 28, 28, 28, 28, 28, # 16r3800
	76	28, 28, 28, 28, 28, 28, 28, 28, # 16r3A00
	77	28, 28, 28, 28, 28, 28, 28, 28, # 16r3C00
	78	28, 28, 28, 28, 28, 28, 28, 28, # 16r3E00
	79	28, 28, 28, 28, 28, 28, 28, 28, # 16r4000
	80	28, 28, 28, 28, 28, 28, 28, 28, # 16r4200
	81	28, 28, 28, 28, 28, 28, 28, 28, # 16r4400
	82	28, 28, 28, 28, 28, 28, 28, 28, # 16r4600
	83	28, 28, 28, 28, 28, 28, 28, 28, # 16r4800
	84	28, 28, 28, 28, 28, 28, 28, 28, # 16r4A00
	85	28, 28, 28, 28, 28, 28, 28, 28, # 16r4C00
	86	56, 56, 56, 56, 56, 56, 56, 56, # 16r4E00
	87	56, 56, 56, 56, 56, 56, 56, 56, # 16r5000
	88	56, 56, 56, 56, 56, 56, 56, 56, # 16r5200
	89	56, 56, 56, 56, 56, 56, 56, 56, # 16r5400
	90	56, 56, 56, 56, 56, 56, 56, 56, # 16r5600
	91	56, 56, 56, 56, 56, 56, 56, 56, # 16r5800
	92	56, 56, 56, 56, 56, 56, 56, 56, # 16r5A00
	93	56, 56, 56, 56, 56, 56, 56, 56, # 16r5C00
	94	56, 56, 56, 56, 56, 56, 56, 56, # 16r5E00
	95	56, 56, 56, 56, 56, 56, 56, 56, # 16r6000
	96	56, 56, 56, 56, 56, 56, 56, 56, # 16r6200
	97	56, 56, 56, 56, 56, 56, 56, 56, # 16r6400
	98	56, 56, 56, 56, 56, 56, 56, 56, # 16r6600
	99	56, 56, 56, 56, 56, 56, 56, 56, # 16r6800
	100	56, 56, 56, 56, 56, 56, 56, 56, # 16r6A00
	101	56, 56, 56, 56, 56, 56, 56, 56, # 16r6C00
	102	56, 56, 56, 56, 56, 56, 56, 56, # 16r6E00
	103	56, 56, 56, 56, 56, 56, 56, 56, # 16r7000
	104	56, 56, 56, 56, 56, 56, 56, 56, # 16r7200
	105	56, 56, 56, 56, 56, 56, 56, 56, # 16r7400
	106	56, 56, 56, 56, 56, 56, 56, 56, # 16r7600
	107	56, 56, 56, 56, 56, 56, 56, 56, # 16r7800
	108	56, 56, 56, 56, 56, 56, 56, 56, # 16r7A00
	109	56, 56, 56, 56, 56, 56, 56, 56, # 16r7C00
	110	56, 56, 56, 56, 56, 56, 56, 56, # 16r7E00
	111	56, 56, 56, 56, 56, 56, 56, 56, # 16r8000
	112	56, 56, 56, 56, 56, 56, 56, 56, # 16r8200
	113	56, 56, 56, 56, 56, 56, 56, 56, # 16r8400
	114	56, 56, 56, 56, 56, 56, 56, 56, # 16r8600
	115	56, 56, 56, 56, 56, 56, 56, 56, # 16r8800
	116	56, 56, 56, 56, 56, 56, 56, 56, # 16r8A00
	117	56, 56, 56, 56, 56, 56, 56, 56, # 16r8C00
	118	56, 56, 56, 56, 56, 56, 56, 56, # 16r8E00
	119	56, 56, 56, 56, 56, 56, 56, 56, # 16r9000
	120	56, 56, 56, 56, 56, 56, 56, 56, # 16r9200
	121	56, 56, 56, 56, 56, 56, 56, 56, # 16r9400
	122	56, 56, 56, 56, 56, 56, 56, 56, # 16r9600
	123	56, 56, 56, 56, 56, 56, 56, 56, # 16r9800
	124	56, 56, 56, 56, 56, 56, 56, 56, # 16r9A00
	125	56, 56, 56, 56, 56, 56, 56, 56, # 16r9C00
	126	56, 56, 56, 56, 56, 56, 102, 28, # 16r9E00
	127	28, 28, 28, 28, 28, 28, 28, 28, # 16rA000
	128	28, 28, 28, 28, 28, 28, 28, 28, # 16rA200
	129	28, 28, 28, 28, 28, 28, 28, 28, # 16rA400
	130	28, 28, 28, 28, 28, 28, 28, 28, # 16rA600
	131	28, 28, 28, 28, 28, 28, 28, 28, # 16rA800
	132	28, 28, 28, 28, 28, 28, 28, 28, # 16rAA00
	133	56, 56, 56, 56, 56, 56, 56, 56, # 16rAC00
	134	56, 56, 56, 56, 56, 56, 56, 56, # 16rAE00
	135	56, 56, 56, 56, 56, 56, 56, 56, # 16rB000
	136	56, 56, 56, 56, 56, 56, 56, 56, # 16rB200
	137	56, 56, 56, 56, 56, 56, 56, 56, # 16rB400
	138	56, 56, 56, 56, 56, 56, 56, 56, # 16rB600
	139	56, 56, 56, 56, 56, 56, 56, 56, # 16rB800
	140	56, 56, 56, 56, 56, 56, 56, 56, # 16rBA00
	141	56, 56, 56, 56, 56, 56, 56, 56, # 16rBC00
	142	56, 56, 56, 56, 56, 56, 56, 56, # 16rBE00
	143	56, 56, 56, 56, 56, 56, 56, 56, # 16rC000
	144	56, 56, 56, 56, 56, 56, 56, 56, # 16rC200
	145	56, 56, 56, 56, 56, 56, 56, 56, # 16rC400
	146	56, 56, 56, 56, 56, 56, 56, 56, # 16rC600
	147	56, 56, 56, 56, 56, 56, 56, 56, # 16rC800
	148	56, 56, 56, 56, 56, 56, 56, 56, # 16rCA00
	149	56, 56, 56, 56, 56, 56, 56, 56, # 16rCC00
	150	56, 56, 56, 56, 56, 56, 56, 56, # 16rCE00
	151	56, 56, 56, 56, 56, 56, 56, 56, # 16rD000
	152	56, 56, 56, 56, 56, 56, 56, 56, # 16rD200
	153	56, 56, 56, 56, 56, 56, 56, 56, # 16rD400
	154	56, 56, 56, 56, 56, 56, 103, 28, # 16rD600
	155	104, 104, 104, 104, 104, 104, 104, 104, # 16rD800
	156	104, 104, 104, 104, 104, 104, 104, 104, # 16rDA00
	157	104, 104, 104, 104, 104, 104, 104, 104, # 16rDC00
	158	104, 104, 104, 104, 104, 104, 104, 104, # 16rDE00
	159	105, 105, 105, 105, 105, 105, 105, 105, # 16rE000
	160	105, 105, 105, 105, 105, 105, 105, 105, # 16rE200
	161	105, 105, 105, 105, 105, 105, 105, 105, # 16rE400
	162	105, 105, 105, 105, 105, 105, 105, 105, # 16rE600
	163	105, 105, 105, 105, 105, 105, 105, 105, # 16rE800
	164	105, 105, 105, 105, 105, 105, 105, 105, # 16rEA00
	165	105, 105, 105, 105, 105, 105, 105, 105, # 16rEC00
	166	105, 105, 105, 105, 105, 105, 105, 105, # 16rEE00
	167	105, 105, 105, 105, 105, 105, 105, 105, # 16rF000
	168	105, 105, 105, 105, 105, 105, 105, 105, # 16rF200
	169	105, 105, 105, 105, 105, 105, 105, 105, # 16rF400
	170	105, 105, 105, 105, 105, 105, 105, 105, # 16rF600
	171	105, 105, 105, 105, 56, 56, 56, 56, # 16rF800
	172	106, 28, 28, 28, 107, 108, 109, 110, # 16rFA00
	173	56, 56, 56, 56, 111, 112, 113, 114, # 16rFC00
	174	115, 116, 56, 117, 118, 119, 120, 121 # 16rFE00
	175	};
	176
	177	# The Y table has 7808 entries for a total of 7808 bytes.
	178
	179	Y = array[] of {
	180	0, 0, 0, 0, 0, 0, 0, 0, # 0
	181	0, 1, 1, 1, 1, 1, 0, 0, # 0
	182	0, 0, 0, 0, 0, 0, 0, 0, # 0
	183	0, 0, 0, 0, 1, 1, 1, 1, # 0
	184	2, 3, 3, 3, 4, 3, 3, 3, # 0
	185	5, 6, 3, 7, 3, 8, 3, 3, # 0
	186	9, 9, 9, 9, 9, 9, 9, 9, # 0
	187	9, 9, 3, 3, 7, 7, 7, 3, # 0
	188	3, 10, 10, 10, 10, 10, 10, 10, # 1
	189	10, 10, 10, 10, 10, 10, 10, 10, # 1
	190	10, 10, 10, 10, 10, 10, 10, 10, # 1
	191	10, 10, 10, 5, 3, 6, 11, 12, # 1
	192	11, 13, 13, 13, 13, 13, 13, 13, # 1
	193	13, 13, 13, 13, 13, 13, 13, 13, # 1
	194	13, 13, 13, 13, 13, 13, 13, 13, # 1
	195	13, 13, 13, 5, 7, 6, 7, 0, # 1
	196	0, 0, 0, 0, 0, 0, 0, 0, # 2
	197	0, 0, 0, 0, 0, 0, 0, 0, # 2
	198	0, 0, 0, 0, 0, 0, 0, 0, # 2
	199	0, 0, 0, 0, 0, 0, 0, 0, # 2
	200	14, 3, 4, 4, 4, 4, 15, 15, # 2
	201	11, 15, 16, 5, 7, 8, 15, 11, # 2
	202	15, 7, 17, 17, 11, 16, 15, 3, # 2
	203	11, 18, 16, 6, 19, 19, 19, 3, # 2
	204	20, 20, 20, 20, 20, 20, 20, 20, # 3
	205	20, 20, 20, 20, 20, 20, 20, 20, # 3
	206	20, 20, 20, 20, 20, 20, 20, 7, # 3
	207	20, 20, 20, 20, 20, 20, 20, 16, # 3
	208	21, 21, 21, 21, 21, 21, 21, 21, # 3
	209	21, 21, 21, 21, 21, 21, 21, 21, # 3
	210	21, 21, 21, 21, 21, 21, 21, 7, # 3
	211	21, 21, 21, 21, 21, 21, 21, 22, # 3
	212	23, 24, 23, 24, 23, 24, 23, 24, # 4
	213	23, 24, 23, 24, 23, 24, 23, 24, # 4
	214	23, 24, 23, 24, 23, 24, 23, 24, # 4
	215	23, 24, 23, 24, 23, 24, 23, 24, # 4
	216	23, 24, 23, 24, 23, 24, 23, 24, # 4
	217	23, 24, 23, 24, 23, 24, 23, 24, # 4
	218	25, 26, 23, 24, 23, 24, 23, 24, # 4
	219	16, 23, 24, 23, 24, 23, 24, 23, # 4
	220	24, 23, 24, 23, 24, 23, 24, 23, # 5
	221	24, 16, 23, 24, 23, 24, 23, 24, # 5
	222	23, 24, 23, 24, 23, 24, 23, 24, # 5
	223	23, 24, 23, 24, 23, 24, 23, 24, # 5
	224	23, 24, 23, 24, 23, 24, 23, 24, # 5
	225	23, 24, 23, 24, 23, 24, 23, 24, # 5
	226	23, 24, 23, 24, 23, 24, 23, 24, # 5
	227	27, 23, 24, 23, 24, 23, 24, 28, # 5
	228	16, 29, 23, 24, 23, 24, 30, 23, # 6
	229	24, 31, 31, 23, 24, 16, 32, 32, # 6
	230	33, 23, 24, 31, 34, 16, 35, 36, # 6
	231	23, 24, 16, 16, 35, 37, 16, 38, # 6
	232	23, 24, 23, 24, 23, 24, 38, 23, # 6
	233	24, 39, 40, 16, 23, 24, 39, 23, # 6
	234	24, 41, 41, 23, 24, 23, 24, 42, # 6
	235	23, 24, 16, 40, 23, 24, 40, 40, # 6
	236	40, 40, 40, 40, 43, 44, 45, 43, # 7
	237	44, 45, 43, 44, 45, 23, 24, 23, # 7
	238	24, 23, 24, 23, 24, 23, 24, 23, # 7
	239	24, 23, 24, 23, 24, 16, 23, 24, # 7
	240	23, 24, 23, 24, 23, 24, 23, 24, # 7
	241	23, 24, 23, 24, 23, 24, 23, 24, # 7
	242	16, 43, 44, 45, 23, 24, 46, 46, # 7
	243	46, 46, 23, 24, 23, 24, 23, 24, # 7
	244	23, 24, 23, 24, 23, 24, 23, 24, # 8
	245	23, 24, 23, 24, 23, 24, 23, 24, # 8
	246	23, 24, 23, 24, 23, 24, 23, 24, # 8
	247	46, 46, 46, 46, 46, 46, 46, 46, # 8
	248	46, 46, 46, 46, 46, 46, 46, 46, # 8
	249	46, 46, 46, 46, 46, 46, 46, 46, # 8
	250	46, 46, 46, 46, 46, 46, 46, 46, # 8
	251	46, 46, 46, 46, 46, 46, 46, 46, # 8
	252	46, 46, 46, 46, 46, 46, 46, 46, # 9
	253	46, 46, 46, 46, 46, 46, 46, 46, # 9
	254	16, 16, 16, 47, 48, 16, 49, 49, # 9
	255	50, 50, 16, 51, 16, 16, 16, 16, # 9
	256	49, 16, 16, 52, 16, 16, 16, 16, # 9
	257	53, 54, 16, 16, 16, 16, 16, 54, # 9
	258	16, 16, 55, 16, 16, 16, 16, 16, # 9
	259	16, 16, 16, 16, 16, 16, 16, 16, # 9
	260	16, 16, 16, 56, 16, 16, 16, 16, # 10
	261	56, 16, 57, 57, 16, 16, 16, 16, # 10
	262	16, 16, 58, 16, 16, 16, 16, 16, # 10
	263	16, 16, 16, 16, 16, 16, 16, 16, # 10
	264	16, 16, 16, 16, 16, 16, 16, 16, # 10
	265	16, 46, 46, 46, 46, 46, 46, 46, # 10
	266	59, 59, 59, 59, 59, 59, 59, 59, # 10
	267	59, 11, 11, 59, 59, 59, 59, 59, # 10
	268	59, 59, 11, 11, 11, 11, 11, 11, # 11
	269	11, 11, 11, 11, 11, 11, 11, 11, # 11
	270	59, 59, 11, 11, 11, 11, 11, 11, # 11
	271	11, 11, 11, 11, 11, 11, 11, 46, # 11
	272	59, 59, 59, 59, 59, 11, 11, 11, # 11
	273	11, 11, 46, 46, 46, 46, 46, 46, # 11
	274	46, 46, 46, 46, 46, 46, 46, 46, # 11
	275	46, 46, 46, 46, 46, 46, 46, 46, # 11
	276	60, 60, 60, 60, 60, 60, 60, 60, # 12
	277	60, 60, 60, 60, 60, 60, 60, 60, # 12
	278	60, 60, 60, 60, 60, 60, 60, 60, # 12
	279	60, 60, 60, 60, 60, 60, 60, 60, # 12
	280	60, 60, 60, 60, 60, 60, 60, 60, # 12
	281	60, 60, 60, 60, 60, 60, 60, 60, # 12
	282	60, 60, 60, 60, 60, 60, 60, 60, # 12
	283	60, 60, 60, 60, 60, 60, 60, 60, # 12
	284	60, 60, 60, 60, 60, 60, 46, 46, # 13
	285	46, 46, 46, 46, 46, 46, 46, 46, # 13
	286	46, 46, 46, 46, 46, 46, 46, 46, # 13
	287	46, 46, 46, 46, 46, 46, 46, 46, # 13
	288	60, 60, 46, 46, 46, 46, 46, 46, # 13
	289	46, 46, 46, 46, 46, 46, 46, 46, # 13
	290	46, 46, 46, 46, 3, 3, 46, 46, # 13
	291	46, 46, 59, 46, 46, 46, 3, 46, # 13
	292	46, 46, 46, 46, 11, 11, 61, 3, # 14
	293	62, 62, 62, 46, 63, 46, 64, 64, # 14
	294	16, 20, 20, 20, 20, 20, 20, 20, # 14
	295	20, 20, 20, 20, 20, 20, 20, 20, # 14
	296	20, 20, 46, 20, 20, 20, 20, 20, # 14
	297	20, 20, 20, 20, 65, 66, 66, 66, # 14
	298	16, 21, 21, 21, 21, 21, 21, 21, # 14
	299	21, 21, 21, 21, 21, 21, 21, 21, # 14
	300	21, 21, 16, 21, 21, 21, 21, 21, # 15
	301	21, 21, 21, 21, 67, 68, 68, 46, # 15
	302	69, 70, 38, 38, 38, 71, 72, 46, # 15
	303	46, 46, 38, 46, 38, 46, 38, 46, # 15
	304	38, 46, 23, 24, 23, 24, 23, 24, # 15
	305	23, 24, 23, 24, 23, 24, 23, 24, # 15
	306	73, 74, 16, 40, 46, 46, 46, 46, # 15
	307	46, 46, 46, 46, 46, 46, 46, 46, # 15
	308	46, 75, 75, 75, 75, 75, 75, 75, # 16
	309	75, 75, 75, 75, 75, 46, 75, 75, # 16
	310	20, 20, 20, 20, 20, 20, 20, 20, # 16
	311	20, 20, 20, 20, 20, 20, 20, 20, # 16
	312	20, 20, 20, 20, 20, 20, 20, 20, # 16
	313	20, 20, 20, 20, 20, 20, 20, 20, # 16
	314	21, 21, 21, 21, 21, 21, 21, 21, # 16
	315	21, 21, 21, 21, 21, 21, 21, 21, # 16
	316	21, 21, 21, 21, 21, 21, 21, 21, # 17
	317	21, 21, 21, 21, 21, 21, 21, 21, # 17
	318	46, 74, 74, 74, 74, 74, 74, 74, # 17
	319	74, 74, 74, 74, 74, 46, 74, 74, # 17
	320	23, 24, 23, 24, 23, 24, 23, 24, # 17
	321	23, 24, 23, 24, 23, 24, 23, 24, # 17
	322	23, 24, 23, 24, 23, 24, 23, 24, # 17
	323	23, 24, 23, 24, 23, 24, 23, 24, # 17
	324	23, 24, 15, 60, 60, 60, 60, 46, # 18
	325	46, 46, 46, 46, 46, 46, 46, 46, # 18
	326	23, 24, 23, 24, 23, 24, 23, 24, # 18
	327	23, 24, 23, 24, 23, 24, 23, 24, # 18
	328	23, 24, 23, 24, 23, 24, 23, 24, # 18
	329	23, 24, 23, 24, 23, 24, 23, 24, # 18
	330	23, 24, 23, 24, 23, 24, 23, 24, # 18
	331	23, 24, 23, 24, 23, 24, 23, 24, # 18
	332	40, 23, 24, 23, 24, 46, 46, 23, # 19
	333	24, 46, 46, 23, 24, 46, 46, 46, # 19
	334	23, 24, 23, 24, 23, 24, 23, 24, # 19
	335	23, 24, 23, 24, 23, 24, 23, 24, # 19
	336	23, 24, 23, 24, 23, 24, 23, 24, # 19
	337	23, 24, 23, 24, 46, 46, 23, 24, # 19
	338	23, 24, 23, 24, 23, 24, 46, 46, # 19
	339	23, 24, 46, 46, 46, 46, 46, 46, # 19
	340	46, 46, 46, 46, 46, 46, 46, 46, # 20
	341	46, 46, 46, 46, 46, 46, 46, 46, # 20
	342	46, 46, 46, 46, 46, 46, 46, 46, # 20
	343	46, 46, 46, 46, 46, 46, 46, 46, # 20
	344	46, 46, 46, 46, 46, 46, 46, 46, # 20
	345	46, 46, 46, 46, 46, 46, 46, 46, # 20
	346	46, 76, 76, 76, 76, 76, 76, 76, # 20
	347	76, 76, 76, 76, 76, 76, 76, 76, # 20
	348	76, 76, 76, 76, 76, 76, 76, 76, # 21
	349	76, 76, 76, 76, 76, 76, 76, 76, # 21
	350	76, 76, 76, 76, 76, 76, 76, 46, # 21
	351	46, 59, 3, 3, 3, 3, 3, 3, # 21
	352	46, 77, 77, 77, 77, 77, 77, 77, # 21
	353	77, 77, 77, 77, 77, 77, 77, 77, # 21
	354	77, 77, 77, 77, 77, 77, 77, 77, # 21
	355	77, 77, 77, 77, 77, 77, 77, 77, # 21
	356	77, 77, 77, 77, 77, 77, 77, 16, # 22
	357	46, 3, 46, 46, 46, 46, 46, 46, # 22
	358	46, 60, 60, 60, 60, 60, 60, 60, # 22
	359	60, 60, 60, 60, 60, 60, 60, 60, # 22
	360	60, 60, 46, 60, 60, 60, 60, 60, # 22
	361	60, 60, 60, 60, 60, 60, 60, 60, # 22
	362	60, 60, 60, 60, 60, 60, 60, 60, # 22
	363	60, 60, 46, 60, 60, 60, 3, 60, # 22
	364	3, 60, 60, 3, 60, 46, 46, 46, # 23
	365	46, 46, 46, 46, 46, 46, 46, 46, # 23
	366	40, 40, 40, 40, 40, 40, 40, 40, # 23
	367	40, 40, 40, 40, 40, 40, 40, 40, # 23
	368	40, 40, 40, 40, 40, 40, 40, 40, # 23
	369	40, 40, 40, 46, 46, 46, 46, 46, # 23
	370	40, 40, 40, 3, 3, 46, 46, 46, # 23
	371	46, 46, 46, 46, 46, 46, 46, 46, # 23
	372	46, 46, 46, 46, 46, 46, 46, 46, # 24
	373	46, 46, 46, 46, 3, 46, 46, 46, # 24
	374	46, 46, 46, 46, 46, 46, 46, 46, # 24
	375	46, 46, 46, 3, 46, 46, 46, 3, # 24
	376	46, 40, 40, 40, 40, 40, 40, 40, # 24
	377	40, 40, 40, 40, 40, 40, 40, 40, # 24
	378	40, 40, 40, 40, 40, 40, 40, 40, # 24
	379	40, 40, 40, 46, 46, 46, 46, 46, # 24
	380	59, 40, 40, 40, 40, 40, 40, 40, # 25
	381	40, 40, 40, 60, 60, 60, 60, 60, # 25
	382	60, 60, 60, 46, 46, 46, 46, 46, # 25
	383	46, 46, 46, 46, 46, 46, 46, 46, # 25
	384	78, 78, 78, 78, 78, 78, 78, 78, # 25
	385	78, 78, 3, 3, 3, 3, 46, 46, # 25
	386	60, 40, 40, 40, 40, 40, 40, 40, # 25
	387	40, 40, 40, 40, 40, 40, 40, 40, # 25
	388	40, 40, 40, 40, 40, 40, 40, 40, # 26
	389	40, 40, 40, 40, 40, 40, 40, 40, # 26
	390	40, 40, 40, 40, 40, 40, 40, 40, # 26
	391	40, 40, 40, 40, 40, 40, 40, 40, # 26
	392	40, 40, 40, 40, 40, 40, 40, 40, # 26
	393	40, 40, 40, 40, 40, 40, 40, 40, # 26
	394	40, 40, 40, 40, 40, 40, 40, 40, # 26
	395	46, 46, 40, 40, 40, 40, 40, 46, # 26
	396	40, 40, 40, 40, 40, 40, 40, 40, # 27
	397	40, 40, 40, 40, 40, 40, 40, 46, # 27
	398	40, 40, 40, 40, 3, 40, 60, 60, # 27
	399	60, 60, 60, 60, 60, 79, 79, 60, # 27
	400	60, 60, 60, 60, 60, 59, 59, 60, # 27
	401	60, 15, 60, 60, 60, 60, 46, 46, # 27
	402	9, 9, 9, 9, 9, 9, 9, 9, # 27
	403	9, 9, 46, 46, 46, 46, 46, 46, # 27
	404	46, 46, 46, 46, 46, 46, 46, 46, # 28
	405	46, 46, 46, 46, 46, 46, 46, 46, # 28
	406	46, 46, 46, 46, 46, 46, 46, 46, # 28
	407	46, 46, 46, 46, 46, 46, 46, 46, # 28
	408	46, 46, 46, 46, 46, 46, 46, 46, # 28
	409	46, 46, 46, 46, 46, 46, 46, 46, # 28
	410	46, 46, 46, 46, 46, 46, 46, 46, # 28
	411	46, 46, 46, 46, 46, 46, 46, 46, # 28
	412	46, 60, 60, 80, 46, 40, 40, 40, # 29
	413	40, 40, 40, 40, 40, 40, 40, 40, # 29
	414	40, 40, 40, 40, 40, 40, 40, 40, # 29
	415	40, 40, 40, 40, 40, 40, 40, 40, # 29
	416	40, 40, 40, 40, 40, 40, 40, 40, # 29
	417	40, 40, 40, 40, 40, 40, 40, 40, # 29
	418	40, 40, 40, 40, 40, 40, 40, 40, # 29
	419	40, 40, 46, 46, 60, 40, 80, 80, # 29
	420	80, 60, 60, 60, 60, 60, 60, 60, # 30
	421	60, 80, 80, 80, 80, 60, 46, 46, # 30
	422	15, 60, 60, 60, 60, 46, 46, 46, # 30
	423	40, 40, 40, 40, 40, 40, 40, 40, # 30
	424	40, 40, 60, 60, 3, 3, 81, 81, # 30
	425	81, 81, 81, 81, 81, 81, 81, 81, # 30
	426	3, 46, 46, 46, 46, 46, 46, 46, # 30
	427	46, 46, 46, 46, 46, 46, 46, 46, # 30
	428	46, 60, 80, 80, 46, 40, 40, 40, # 31
	429	40, 40, 40, 40, 40, 46, 46, 40, # 31
	430	40, 46, 46, 40, 40, 40, 40, 40, # 31
	431	40, 40, 40, 40, 40, 40, 40, 40, # 31
	432	40, 40, 40, 40, 40, 40, 40, 40, # 31
	433	40, 46, 40, 40, 40, 40, 40, 40, # 31
	434	40, 46, 40, 46, 46, 46, 40, 40, # 31
	435	40, 40, 46, 46, 60, 46, 80, 80, # 31
	436	80, 60, 60, 60, 60, 46, 46, 80, # 32
	437	80, 46, 46, 80, 80, 60, 46, 46, # 32
	438	46, 46, 46, 46, 46, 46, 46, 80, # 32
	439	46, 46, 46, 46, 40, 40, 46, 40, # 32
	440	40, 40, 60, 60, 46, 46, 81, 81, # 32
	441	81, 81, 81, 81, 81, 81, 81, 81, # 32
	442	40, 40, 4, 4, 82, 82, 82, 82, # 32
	443	19, 83, 15, 46, 46, 46, 46, 46, # 32
	444	46, 46, 60, 46, 46, 40, 40, 40, # 33
	445	40, 40, 40, 46, 46, 46, 46, 40, # 33
	446	40, 46, 46, 40, 40, 40, 40, 40, # 33
	447	40, 40, 40, 40, 40, 40, 40, 40, # 33
	448	40, 40, 40, 40, 40, 40, 40, 40, # 33
	449	40, 46, 40, 40, 40, 40, 40, 40, # 33
	450	40, 46, 40, 40, 46, 40, 40, 46, # 33
	451	40, 40, 46, 46, 60, 46, 80, 80, # 33
	452	80, 60, 60, 46, 46, 46, 46, 60, # 34
	453	60, 46, 46, 60, 60, 60, 46, 46, # 34
	454	46, 46, 46, 46, 46, 46, 46, 46, # 34
	455	46, 40, 40, 40, 40, 46, 40, 46, # 34
	456	46, 46, 46, 46, 46, 46, 81, 81, # 34
	457	81, 81, 81, 81, 81, 81, 81, 81, # 34
	458	60, 60, 40, 40, 40, 46, 46, 46, # 34
	459	46, 46, 46, 46, 46, 46, 46, 46, # 34
	460	46, 60, 60, 80, 46, 40, 40, 40, # 35
	461	40, 40, 40, 40, 46, 40, 46, 40, # 35
	462	40, 40, 46, 40, 40, 40, 40, 40, # 35
	463	40, 40, 40, 40, 40, 40, 40, 40, # 35
	464	40, 40, 40, 40, 40, 40, 40, 40, # 35
	465	40, 46, 40, 40, 40, 40, 40, 40, # 35
	466	40, 46, 40, 40, 46, 40, 40, 40, # 35
	467	40, 40, 46, 46, 60, 40, 80, 80, # 35
	468	80, 60, 60, 60, 60, 60, 46, 60, # 36
	469	60, 80, 46, 80, 80, 60, 46, 46, # 36
	470	15, 46, 46, 46, 46, 46, 46, 46, # 36
	471	46, 46, 46, 46, 46, 46, 46, 46, # 36
	472	40, 46, 46, 46, 46, 46, 81, 81, # 36
	473	81, 81, 81, 81, 81, 81, 81, 81, # 36
	474	46, 46, 46, 46, 46, 46, 46, 46, # 36
	475	46, 46, 46, 46, 46, 46, 46, 46, # 36
	476	46, 60, 80, 80, 46, 40, 40, 40, # 37
	477	40, 40, 40, 40, 40, 46, 46, 40, # 37
	478	40, 46, 46, 40, 40, 40, 40, 40, # 37
	479	40, 40, 40, 40, 40, 40, 40, 40, # 37
	480	40, 40, 40, 40, 40, 40, 40, 40, # 37
	481	40, 46, 40, 40, 40, 40, 40, 40, # 37
	482	40, 46, 40, 40, 46, 46, 40, 40, # 37
	483	40, 40, 46, 46, 60, 40, 80, 60, # 37
	484	80, 60, 60, 60, 46, 46, 46, 80, # 38
	485	80, 46, 46, 80, 80, 60, 46, 46, # 38
	486	46, 46, 46, 46, 46, 46, 60, 80, # 38
	487	46, 46, 46, 46, 40, 40, 46, 40, # 38
	488	40, 40, 46, 46, 46, 46, 81, 81, # 38
	489	81, 81, 81, 81, 81, 81, 81, 81, # 38
	490	15, 46, 46, 46, 46, 46, 46, 46, # 38
	491	46, 46, 46, 46, 46, 46, 46, 46, # 38
	492	46, 46, 60, 80, 46, 40, 40, 40, # 39
	493	40, 40, 40, 46, 46, 46, 40, 40, # 39
	494	40, 46, 40, 40, 40, 40, 46, 46, # 39
	495	46, 40, 40, 46, 40, 46, 40, 40, # 39
	496	46, 46, 46, 40, 40, 46, 46, 46, # 39
	497	40, 40, 40, 46, 46, 46, 40, 40, # 39
	498	40, 40, 40, 40, 40, 40, 46, 40, # 39
	499	40, 40, 46, 46, 46, 46, 80, 80, # 39
	500	60, 80, 80, 46, 46, 46, 80, 80, # 40
	501	80, 46, 80, 80, 80, 60, 46, 46, # 40
	502	46, 46, 46, 46, 46, 46, 46, 80, # 40
	503	46, 46, 46, 46, 46, 46, 46, 46, # 40
	504	46, 46, 46, 46, 46, 46, 46, 81, # 40
	505	81, 81, 81, 81, 81, 81, 81, 81, # 40
	506	84, 19, 19, 46, 46, 46, 46, 46, # 40
	507	46, 46, 46, 46, 46, 46, 46, 46, # 40
	508	46, 80, 80, 80, 46, 40, 40, 40, # 41
	509	40, 40, 40, 40, 40, 46, 40, 40, # 41
	510	40, 46, 40, 40, 40, 40, 40, 40, # 41
	511	40, 40, 40, 40, 40, 40, 40, 40, # 41
	512	40, 40, 40, 40, 40, 40, 40, 40, # 41
	513	40, 46, 40, 40, 40, 40, 40, 40, # 41
	514	40, 40, 40, 40, 46, 40, 40, 40, # 41
	515	40, 40, 46, 46, 46, 46, 60, 60, # 41
	516	60, 80, 80, 80, 80, 46, 60, 60, # 42
	517	60, 46, 60, 60, 60, 60, 46, 46, # 42
	518	46, 46, 46, 46, 46, 60, 60, 46, # 42
	519	46, 46, 46, 46, 46, 46, 46, 46, # 42
	520	40, 40, 46, 46, 46, 46, 81, 81, # 42
	521	81, 81, 81, 81, 81, 81, 81, 81, # 42
	522	46, 46, 46, 46, 46, 46, 46, 46, # 42
	523	46, 46, 46, 46, 46, 46, 46, 46, # 42
	524	46, 46, 80, 80, 46, 40, 40, 40, # 43
	525	40, 40, 40, 40, 40, 46, 40, 40, # 43
	526	40, 46, 40, 40, 40, 40, 40, 40, # 43
	527	40, 40, 40, 40, 40, 40, 40, 40, # 43
	528	40, 40, 40, 40, 40, 40, 40, 40, # 43
	529	40, 46, 40, 40, 40, 40, 40, 40, # 43
	530	40, 40, 40, 40, 46, 40, 40, 40, # 43
	531	40, 40, 46, 46, 46, 46, 80, 60, # 43
	532	80, 80, 80, 80, 80, 46, 60, 80, # 44
	533	80, 46, 80, 80, 60, 60, 46, 46, # 44
	534	46, 46, 46, 46, 46, 80, 80, 46, # 44
	535	46, 46, 46, 46, 46, 46, 40, 46, # 44
	536	40, 40, 46, 46, 46, 46, 81, 81, # 44
	537	81, 81, 81, 81, 81, 81, 81, 81, # 44
	538	46, 46, 46, 46, 46, 46, 46, 46, # 44
	539	46, 46, 46, 46, 46, 46, 46, 46, # 44
	540	46, 46, 80, 80, 46, 40, 40, 40, # 45
	541	40, 40, 40, 40, 40, 46, 40, 40, # 45
	542	40, 46, 40, 40, 40, 40, 40, 40, # 45
	543	40, 40, 40, 40, 40, 40, 40, 40, # 45
	544	40, 40, 40, 40, 40, 40, 40, 40, # 45
	545	40, 46, 40, 40, 40, 40, 40, 40, # 45
	546	40, 40, 40, 40, 40, 40, 40, 40, # 45
	547	40, 40, 46, 46, 46, 46, 80, 80, # 45
	548	80, 60, 60, 60, 46, 46, 80, 80, # 46
	549	80, 46, 80, 80, 80, 60, 46, 46, # 46
	550	46, 46, 46, 46, 46, 46, 46, 80, # 46
	551	46, 46, 46, 46, 46, 46, 46, 46, # 46
	552	40, 40, 46, 46, 46, 46, 81, 81, # 46
	553	81, 81, 81, 81, 81, 81, 81, 81, # 46
	554	46, 46, 46, 46, 46, 46, 46, 46, # 46
	555	46, 46, 46, 46, 46, 46, 46, 46, # 46
	556	46, 40, 40, 40, 40, 40, 40, 40, # 47
	557	40, 40, 40, 40, 40, 40, 40, 40, # 47
	558	40, 40, 40, 40, 40, 40, 40, 40, # 47
	559	40, 40, 40, 40, 40, 40, 40, 40, # 47
	560	40, 40, 40, 40, 40, 40, 40, 40, # 47
	561	40, 40, 40, 40, 40, 40, 40, 3, # 47
	562	40, 60, 40, 40, 60, 60, 60, 60, # 47
	563	60, 60, 60, 46, 46, 46, 46, 4, # 47
	564	40, 40, 40, 40, 40, 40, 59, 60, # 48
	565	60, 60, 60, 60, 60, 60, 60, 15, # 48
	566	9, 9, 9, 9, 9, 9, 9, 9, # 48
	567	9, 9, 3, 3, 46, 46, 46, 46, # 48
	568	46, 46, 46, 46, 46, 46, 46, 46, # 48
	569	46, 46, 46, 46, 46, 46, 46, 46, # 48
	570	46, 46, 46, 46, 46, 46, 46, 46, # 48
	571	46, 46, 46, 46, 46, 46, 46, 46, # 48
	572	46, 40, 40, 46, 40, 46, 46, 40, # 49
	573	40, 46, 40, 46, 46, 40, 46, 46, # 49
	574	46, 46, 46, 46, 40, 40, 40, 40, # 49
	575	46, 40, 40, 40, 40, 40, 40, 40, # 49
	576	46, 40, 40, 40, 46, 40, 46, 40, # 49
	577	46, 46, 40, 40, 46, 40, 40, 3, # 49
	578	40, 60, 40, 40, 60, 60, 60, 60, # 49
	579	60, 60, 46, 60, 60, 40, 46, 46, # 49
	580	40, 40, 40, 40, 40, 46, 59, 46, # 50
	581	60, 60, 60, 60, 60, 60, 46, 46, # 50
	582	9, 9, 9, 9, 9, 9, 9, 9, # 50
	583	9, 9, 46, 46, 40, 40, 46, 46, # 50
	584	46, 46, 46, 46, 46, 46, 46, 46, # 50
	585	46, 46, 46, 46, 46, 46, 46, 46, # 50
	586	46, 46, 46, 46, 46, 46, 46, 46, # 50
	587	46, 46, 46, 46, 46, 46, 46, 46, # 50
	588	15, 15, 15, 15, 3, 3, 3, 3, # 51
	589	3, 3, 3, 3, 3, 3, 3, 3, # 51
	590	3, 3, 3, 15, 15, 15, 15, 15, # 51
	591	60, 60, 15, 15, 15, 15, 15, 15, # 51
	592	78, 78, 78, 78, 78, 78, 78, 78, # 51
	593	78, 78, 85, 85, 85, 85, 85, 85, # 51
	594	85, 85, 85, 85, 15, 60, 15, 60, # 51
	595	15, 60, 5, 6, 5, 6, 80, 80, # 51
	596	40, 40, 40, 40, 40, 40, 40, 40, # 52
	597	46, 40, 40, 40, 40, 40, 40, 40, # 52
	598	40, 40, 40, 40, 40, 40, 40, 40, # 52
	599	40, 40, 40, 40, 40, 40, 40, 40, # 52
	600	40, 40, 40, 40, 40, 40, 40, 40, # 52
	601	40, 40, 46, 46, 46, 46, 46, 46, # 52
	602	46, 60, 60, 60, 60, 60, 60, 60, # 52
	603	60, 60, 60, 60, 60, 60, 60, 80, # 52
	604	60, 60, 60, 60, 60, 3, 60, 60, # 53
	605	60, 60, 60, 60, 46, 46, 46, 46, # 53
	606	60, 60, 60, 60, 60, 60, 46, 60, # 53
	607	46, 60, 60, 60, 60, 60, 60, 60, # 53
	608	60, 60, 60, 60, 60, 60, 60, 60, # 53
	609	60, 60, 60, 60, 60, 60, 46, 46, # 53
	610	46, 60, 60, 60, 60, 60, 60, 60, # 53
	611	46, 60, 46, 46, 46, 46, 46, 46, # 53
	612	46, 46, 46, 46, 46, 46, 46, 46, # 54
	613	46, 46, 46, 46, 46, 46, 46, 46, # 54
	614	46, 46, 46, 46, 46, 46, 46, 46, # 54
	615	46, 46, 46, 46, 46, 46, 46, 46, # 54
	616	76, 76, 76, 76, 76, 76, 76, 76, # 54
	617	76, 76, 76, 76, 76, 76, 76, 76, # 54
	618	76, 76, 76, 76, 76, 76, 76, 76, # 54
	619	76, 76, 76, 76, 76, 76, 76, 76, # 54
	620	76, 76, 76, 76, 76, 76, 46, 46, # 55
	621	46, 46, 46, 46, 46, 46, 46, 46, # 55
	622	16, 16, 16, 16, 16, 16, 16, 16, # 55
	623	16, 16, 16, 16, 16, 16, 16, 16, # 55
	624	16, 16, 16, 16, 16, 16, 16, 16, # 55
	625	16, 16, 16, 16, 16, 16, 16, 16, # 55
	626	16, 16, 16, 16, 16, 16, 16, 46, # 55
	627	46, 46, 46, 3, 46, 46, 46, 46, # 55
	628	40, 40, 40, 40, 40, 40, 40, 40, # 56
	629	40, 40, 40, 40, 40, 40, 40, 40, # 56
	630	40, 40, 40, 40, 40, 40, 40, 40, # 56
	631	40, 40, 40, 40, 40, 40, 40, 40, # 56
	632	40, 40, 40, 40, 40, 40, 40, 40, # 56
	633	40, 40, 40, 40, 40, 40, 40, 40, # 56
	634	40, 40, 40, 40, 40, 40, 40, 40, # 56
	635	40, 40, 40, 40, 40, 40, 40, 40, # 56
	636	40, 40, 40, 40, 40, 40, 40, 40, # 57
	637	40, 40, 40, 40, 40, 40, 40, 40, # 57
	638	40, 40, 40, 40, 40, 40, 40, 40, # 57
	639	40, 40, 46, 46, 46, 46, 46, 40, # 57
	640	40, 40, 40, 40, 40, 40, 40, 40, # 57
	641	40, 40, 40, 40, 40, 40, 40, 40, # 57
	642	40, 40, 40, 40, 40, 40, 40, 40, # 57
	643	40, 40, 40, 40, 40, 40, 40, 40, # 57
	644	40, 40, 40, 40, 40, 40, 40, 40, # 58
	645	40, 40, 40, 40, 40, 40, 40, 40, # 58
	646	40, 40, 40, 40, 40, 40, 40, 40, # 58
	647	40, 40, 40, 40, 40, 40, 40, 40, # 58
	648	40, 40, 40, 46, 46, 46, 46, 46, # 58
	649	40, 40, 40, 40, 40, 40, 40, 40, # 58
	650	40, 40, 40, 40, 40, 40, 40, 40, # 58
	651	40, 40, 40, 40, 40, 40, 40, 40, # 58
	652	40, 40, 40, 40, 40, 40, 40, 40, # 59
	653	40, 40, 40, 40, 40, 40, 40, 40, # 59
	654	40, 40, 40, 40, 40, 40, 40, 40, # 59
	655	40, 40, 40, 40, 40, 40, 40, 40, # 59
	656	40, 40, 40, 40, 40, 40, 40, 40, # 59
	657	40, 40, 40, 40, 40, 40, 40, 40, # 59
	658	40, 40, 40, 40, 40, 40, 40, 40, # 59
	659	40, 40, 46, 46, 46, 46, 46, 46, # 59
	660	23, 24, 23, 24, 23, 24, 23, 24, # 60
	661	23, 24, 23, 24, 23, 24, 23, 24, # 60
	662	23, 24, 23, 24, 23, 24, 23, 24, # 60
	663	23, 24, 23, 24, 23, 24, 23, 24, # 60
	664	23, 24, 23, 24, 23, 24, 23, 24, # 60
	665	23, 24, 23, 24, 23, 24, 23, 24, # 60
	666	23, 24, 23, 24, 23, 24, 23, 24, # 60
	667	23, 24, 23, 24, 23, 24, 23, 24, # 60
	668	23, 24, 23, 24, 23, 24, 23, 24, # 61
	669	23, 24, 23, 24, 23, 24, 23, 24, # 61
	670	23, 24, 23, 24, 23, 24, 16, 16, # 61
	671	16, 16, 16, 16, 46, 46, 46, 46, # 61
	672	23, 24, 23, 24, 23, 24, 23, 24, # 61
	673	23, 24, 23, 24, 23, 24, 23, 24, # 61
	674	23, 24, 23, 24, 23, 24, 23, 24, # 61
	675	23, 24, 23, 24, 23, 24, 23, 24, # 61
	676	23, 24, 23, 24, 23, 24, 23, 24, # 62
	677	23, 24, 23, 24, 23, 24, 23, 24, # 62
	678	23, 24, 23, 24, 23, 24, 23, 24, # 62
	679	23, 24, 23, 24, 23, 24, 23, 24, # 62
	680	23, 24, 23, 24, 23, 24, 23, 24, # 62
	681	23, 24, 23, 24, 23, 24, 23, 24, # 62
	682	23, 24, 23, 24, 23, 24, 23, 24, # 62
	683	23, 24, 46, 46, 46, 46, 46, 46, # 62
	684	86, 86, 86, 86, 86, 86, 86, 86, # 63
	685	87, 87, 87, 87, 87, 87, 87, 87, # 63
	686	86, 86, 86, 86, 86, 86, 46, 46, # 63
	687	87, 87, 87, 87, 87, 87, 46, 46, # 63
	688	86, 86, 86, 86, 86, 86, 86, 86, # 63
	689	87, 87, 87, 87, 87, 87, 87, 87, # 63
	690	86, 86, 86, 86, 86, 86, 86, 86, # 63
	691	87, 87, 87, 87, 87, 87, 87, 87, # 63
	692	86, 86, 86, 86, 86, 86, 46, 46, # 64
	693	87, 87, 87, 87, 87, 87, 46, 46, # 64
	694	16, 86, 16, 86, 16, 86, 16, 86, # 64
	695	46, 87, 46, 87, 46, 87, 46, 87, # 64
	696	86, 86, 86, 86, 86, 86, 86, 86, # 64
	697	87, 87, 87, 87, 87, 87, 87, 87, # 64
	698	88, 88, 89, 89, 89, 89, 90, 90, # 64
	699	91, 91, 92, 92, 93, 93, 46, 46, # 64
	700	86, 86, 86, 86, 86, 86, 86, 86, # 65
	701	87, 87, 87, 87, 87, 87, 87, 87, # 65
	702	86, 86, 86, 86, 86, 86, 86, 86, # 65
	703	87, 87, 87, 87, 87, 87, 87, 87, # 65
	704	86, 86, 86, 86, 86, 86, 86, 86, # 65
	705	87, 87, 87, 87, 87, 87, 87, 87, # 65
	706	86, 86, 16, 94, 16, 46, 16, 16, # 65
	707	87, 87, 95, 95, 96, 11, 38, 11, # 65
	708	11, 11, 16, 94, 16, 46, 16, 16, # 66
	709	97, 97, 97, 97, 96, 11, 11, 11, # 66
	710	86, 86, 16, 16, 46, 46, 16, 16, # 66
	711	87, 87, 98, 98, 46, 11, 11, 11, # 66
	712	86, 86, 16, 16, 16, 99, 16, 16, # 66
	713	87, 87, 100, 100, 101, 11, 11, 11, # 66
	714	46, 46, 16, 94, 16, 46, 16, 16, # 66
	715	102, 102, 103, 103, 96, 11, 11, 46, # 66
	716	2, 2, 2, 2, 2, 2, 2, 2, # 67
	717	2, 2, 2, 2, 104, 104, 104, 104, # 67
	718	8, 8, 8, 8, 8, 8, 3, 3, # 67
	719	5, 6, 5, 5, 5, 6, 5, 5, # 67
	720	3, 3, 3, 3, 3, 3, 3, 3, # 67
	721	105, 106, 104, 104, 104, 104, 104, 46, # 67
	722	3, 3, 3, 3, 3, 3, 3, 3, # 67
	723	3, 5, 6, 3, 3, 3, 3, 12, # 67
	724	12, 3, 3, 3, 7, 5, 6, 46, # 68
	725	46, 46, 46, 46, 46, 46, 46, 46, # 68
	726	46, 46, 46, 46, 46, 46, 46, 46, # 68
	727	46, 46, 46, 46, 46, 46, 46, 46, # 68
	728	46, 46, 46, 46, 46, 46, 46, 46, # 68
	729	46, 46, 104, 104, 104, 104, 104, 104, # 68
	730	17, 46, 46, 46, 17, 17, 17, 17, # 68
	731	17, 17, 7, 7, 7, 5, 6, 16, # 68
	732	107, 107, 107, 107, 107, 107, 107, 107, # 69
	733	107, 107, 7, 7, 7, 5, 6, 46, # 69
	734	46, 46, 46, 46, 46, 46, 46, 46, # 69
	735	46, 46, 46, 46, 46, 46, 46, 46, # 69
	736	4, 4, 4, 4, 4, 4, 4, 4, # 69
	737	4, 4, 4, 4, 46, 46, 46, 46, # 69
	738	46, 46, 46, 46, 46, 46, 46, 46, # 69
	739	46, 46, 46, 46, 46, 46, 46, 46, # 69
	740	46, 46, 46, 46, 46, 46, 46, 46, # 70
	741	46, 46, 46, 46, 46, 46, 46, 46, # 70
	742	60, 60, 60, 60, 60, 60, 60, 60, # 70
	743	60, 60, 60, 60, 60, 79, 79, 79, # 70
	744	79, 60, 46, 46, 46, 46, 46, 46, # 70
	745	46, 46, 46, 46, 46, 46, 46, 46, # 70
	746	46, 46, 46, 46, 46, 46, 46, 46, # 70
	747	46, 46, 46, 46, 46, 46, 46, 46, # 70
	748	15, 15, 38, 15, 15, 15, 15, 38, # 71
	749	15, 15, 16, 38, 38, 38, 16, 16, # 71
	750	38, 38, 38, 16, 15, 38, 15, 15, # 71
	751	38, 38, 38, 38, 38, 38, 15, 15, # 71
	752	15, 15, 15, 15, 38, 15, 38, 15, # 71
	753	38, 15, 38, 38, 38, 38, 16, 16, # 71
	754	38, 38, 15, 38, 16, 40, 40, 40, # 71
	755	40, 46, 46, 46, 46, 46, 46, 46, # 71
	756	46, 46, 46, 46, 46, 46, 46, 46, # 72
	757	46, 46, 46, 46, 46, 46, 46, 46, # 72
	758	46, 46, 46, 19, 19, 19, 19, 19, # 72
	759	19, 19, 19, 19, 19, 19, 19, 108, # 72
	760	109, 109, 109, 109, 109, 109, 109, 109, # 72
	761	109, 109, 109, 109, 110, 110, 110, 110, # 72
	762	111, 111, 111, 111, 111, 111, 111, 111, # 72
	763	111, 111, 111, 111, 112, 112, 112, 112, # 72
	764	113, 113, 113, 46, 46, 46, 46, 46, # 73
	765	46, 46, 46, 46, 46, 46, 46, 46, # 73
	766	7, 7, 7, 7, 7, 15, 15, 15, # 73
	767	15, 15, 15, 15, 15, 15, 15, 15, # 73
	768	15, 15, 15, 15, 15, 15, 15, 15, # 73
	769	15, 15, 15, 15, 15, 15, 15, 15, # 73
	770	15, 15, 15, 15, 15, 15, 15, 15, # 73
	771	15, 15, 15, 15, 15, 15, 15, 15, # 73
	772	15, 15, 15, 15, 15, 15, 15, 15, # 74
	773	15, 15, 15, 15, 15, 15, 15, 15, # 74
	774	15, 15, 7, 15, 7, 15, 15, 15, # 74
	775	15, 15, 15, 15, 15, 15, 15, 15, # 74
	776	15, 15, 15, 15, 15, 15, 15, 15, # 74
	777	15, 15, 15, 46, 46, 46, 46, 46, # 74
	778	46, 46, 46, 46, 46, 46, 46, 46, # 74
	779	46, 46, 46, 46, 46, 46, 46, 46, # 74
	780	7, 7, 7, 7, 7, 7, 7, 7, # 75
	781	7, 7, 7, 7, 7, 7, 7, 7, # 75
	782	7, 7, 7, 7, 7, 7, 7, 7, # 75
	783	7, 7, 7, 7, 7, 7, 7, 7, # 75
	784	7, 7, 7, 7, 7, 7, 7, 7, # 75
	785	7, 7, 7, 7, 7, 7, 7, 7, # 75
	786	7, 7, 7, 7, 7, 7, 7, 7, # 75
	787	7, 7, 7, 7, 7, 7, 7, 7, # 75
	788	7, 7, 7, 7, 7, 7, 7, 7, # 76
	789	7, 7, 7, 7, 7, 7, 7, 7, # 76
	790	7, 7, 7, 7, 7, 7, 7, 7, # 76
	791	7, 7, 7, 7, 7, 7, 7, 7, # 76
	792	7, 7, 7, 7, 7, 7, 7, 7, # 76
	793	7, 7, 7, 7, 7, 7, 7, 7, # 76
	794	7, 7, 46, 46, 46, 46, 46, 46, # 76
	795	46, 46, 46, 46, 46, 46, 46, 46, # 76
	796	15, 46, 15, 15, 15, 15, 15, 15, # 77
	797	7, 7, 7, 7, 15, 15, 15, 15, # 77
	798	15, 15, 15, 15, 15, 15, 15, 15, # 77
	799	15, 15, 15, 15, 15, 15, 15, 15, # 77
	800	7, 7, 15, 15, 15, 15, 15, 15, # 77
	801	15, 5, 6, 15, 15, 15, 15, 15, # 77
	802	15, 15, 15, 15, 15, 15, 15, 15, # 77
	803	15, 15, 15, 15, 15, 15, 15, 15, # 77
	804	15, 15, 15, 15, 15, 15, 15, 15, # 78
	805	15, 15, 15, 15, 15, 15, 15, 15, # 78
	806	15, 15, 15, 15, 15, 15, 15, 15, # 78
	807	15, 15, 15, 15, 15, 15, 15, 15, # 78
	808	15, 15, 15, 15, 15, 15, 15, 15, # 78
	809	15, 15, 15, 15, 15, 15, 15, 15, # 78
	810	15, 15, 15, 15, 15, 15, 15, 15, # 78
	811	15, 15, 15, 46, 46, 46, 46, 46, # 78
	812	15, 15, 15, 15, 15, 15, 15, 15, # 79
	813	15, 15, 15, 15, 15, 15, 15, 15, # 79
	814	15, 15, 15, 15, 15, 15, 15, 15, # 79
	815	15, 15, 15, 15, 15, 15, 15, 15, # 79
	816	15, 15, 15, 15, 15, 46, 46, 46, # 79
	817	46, 46, 46, 46, 46, 46, 46, 46, # 79
	818	46, 46, 46, 46, 46, 46, 46, 46, # 79
	819	46, 46, 46, 46, 46, 46, 46, 46, # 79
	820	15, 15, 15, 15, 15, 15, 15, 15, # 80
	821	15, 15, 15, 46, 46, 46, 46, 46, # 80
	822	46, 46, 46, 46, 46, 46, 46, 46, # 80
	823	46, 46, 46, 46, 46, 46, 46, 46, # 80
	824	114, 114, 114, 114, 114, 114, 114, 114, # 80
	825	114, 114, 114, 114, 114, 114, 114, 114, # 80
	826	114, 114, 114, 114, 82, 82, 82, 82, # 80
	827	82, 82, 82, 82, 82, 82, 82, 82, # 80
	828	82, 82, 82, 82, 82, 82, 82, 82, # 81
	829	115, 115, 115, 115, 115, 115, 115, 115, # 81
	830	115, 115, 115, 115, 115, 115, 115, 115, # 81
	831	115, 115, 115, 115, 15, 15, 15, 15, # 81
	832	15, 15, 15, 15, 15, 15, 15, 15, # 81
	833	15, 15, 15, 15, 15, 15, 15, 15, # 81
	834	15, 15, 15, 15, 15, 15, 116, 116, # 81
	835	116, 116, 116, 116, 116, 116, 116, 116, # 81
	836	116, 116, 116, 116, 116, 116, 116, 116, # 82
	837	116, 116, 116, 116, 116, 116, 116, 116, # 82
	838	117, 117, 117, 117, 117, 117, 117, 117, # 82
	839	117, 117, 117, 117, 117, 117, 117, 117, # 82
	840	117, 117, 117, 117, 117, 117, 117, 117, # 82
	841	117, 117, 118, 46, 46, 46, 46, 46, # 82
	842	46, 46, 46, 46, 46, 46, 46, 46, # 82
	843	46, 46, 46, 46, 46, 46, 46, 46, # 82
	844	15, 15, 15, 15, 15, 15, 15, 15, # 83
	845	15, 15, 15, 15, 15, 15, 15, 15, # 83
	846	15, 15, 15, 15, 15, 15, 15, 15, # 83
	847	15, 15, 15, 15, 15, 15, 15, 15, # 83
	848	15, 15, 15, 15, 15, 15, 15, 15, # 83
	849	15, 15, 15, 15, 15, 15, 15, 15, # 83
	850	15, 15, 15, 15, 15, 15, 15, 15, # 83
	851	15, 15, 15, 15, 15, 15, 15, 15, # 83
	852	15, 15, 15, 15, 15, 15, 15, 15, # 84
	853	15, 15, 15, 15, 15, 15, 15, 15, # 84
	854	15, 15, 15, 15, 15, 15, 46, 46, # 84
	855	46, 46, 46, 46, 46, 46, 46, 46, # 84
	856	15, 15, 15, 15, 15, 15, 15, 15, # 84
	857	15, 15, 15, 15, 15, 15, 15, 15, # 84
	858	15, 15, 15, 15, 15, 15, 15, 15, # 84
	859	15, 15, 15, 15, 15, 15, 15, 15, # 84
	860	15, 15, 15, 15, 15, 15, 15, 15, # 85
	861	15, 15, 15, 15, 15, 15, 15, 15, # 85
	862	15, 15, 15, 15, 15, 15, 15, 15, # 85
	863	15, 15, 15, 15, 15, 15, 15, 15, # 85
	864	15, 15, 15, 15, 15, 15, 15, 15, # 85
	865	15, 15, 15, 15, 15, 15, 15, 15, # 85
	866	46, 46, 46, 46, 46, 46, 46, 46, # 85
	867	46, 46, 46, 46, 46, 46, 46, 46, # 85
	868	15, 15, 15, 15, 15, 15, 15, 15, # 86
	869	15, 15, 15, 15, 15, 15, 15, 15, # 86
	870	15, 15, 15, 15, 46, 46, 46, 46, # 86
	871	46, 46, 15, 15, 15, 15, 15, 15, # 86
	872	15, 15, 15, 15, 15, 15, 15, 15, # 86
	873	15, 15, 15, 15, 15, 15, 15, 15, # 86
	874	15, 15, 15, 15, 15, 15, 15, 15, # 86
	875	15, 15, 15, 15, 15, 15, 15, 15, # 86
	876	46, 15, 15, 15, 15, 46, 15, 15, # 87
	877	15, 15, 46, 46, 15, 15, 15, 15, # 87
	878	15, 15, 15, 15, 15, 15, 15, 15, # 87
	879	15, 15, 15, 15, 15, 15, 15, 15, # 87
	880	15, 15, 15, 15, 15, 15, 15, 15, # 87
	881	46, 15, 15, 15, 15, 15, 15, 15, # 87
	882	15, 15, 15, 15, 15, 15, 15, 15, # 87
	883	15, 15, 15, 15, 15, 15, 15, 15, # 87
	884	15, 15, 15, 15, 15, 15, 15, 15, # 88
	885	15, 15, 15, 15, 46, 15, 46, 15, # 88
	886	15, 15, 15, 46, 46, 46, 15, 46, # 88
	887	15, 15, 15, 15, 15, 15, 15, 46, # 88
	888	46, 15, 15, 15, 15, 15, 15, 15, # 88
	889	46, 46, 46, 46, 46, 46, 46, 46, # 88
	890	46, 46, 46, 46, 46, 46, 119, 119, # 88
	891	119, 119, 119, 119, 119, 119, 119, 119, # 88
	892	114, 114, 114, 114, 114, 114, 114, 114, # 89
	893	114, 114, 83, 83, 83, 83, 83, 83, # 89
	894	83, 83, 83, 83, 15, 46, 46, 46, # 89
	895	15, 15, 15, 15, 15, 15, 15, 15, # 89
	896	15, 15, 15, 15, 15, 15, 15, 15, # 89
	897	15, 15, 15, 15, 15, 15, 15, 15, # 89
	898	46, 15, 15, 15, 15, 15, 15, 15, # 89
	899	15, 15, 15, 15, 15, 15, 15, 46, # 89
	900	2, 3, 3, 3, 15, 59, 3, 120, # 90
	901	5, 6, 5, 6, 5, 6, 5, 6, # 90
	902	5, 6, 15, 15, 5, 6, 5, 6, # 90
	903	5, 6, 5, 6, 8, 5, 6, 5, # 90
	904	15, 121, 121, 121, 121, 121, 121, 121, # 90
	905	121, 121, 60, 60, 60, 60, 60, 60, # 90
	906	8, 59, 59, 59, 59, 59, 15, 15, # 90
	907	46, 46, 46, 46, 46, 46, 46, 15, # 90
	908	46, 40, 40, 40, 40, 40, 40, 40, # 91
	909	40, 40, 40, 40, 40, 40, 40, 40, # 91
	910	40, 40, 40, 40, 40, 40, 40, 40, # 91
	911	40, 40, 40, 40, 40, 40, 40, 40, # 91
	912	40, 40, 40, 40, 40, 40, 40, 40, # 91
	913	40, 40, 40, 40, 40, 40, 40, 40, # 91
	914	40, 40, 40, 40, 40, 40, 40, 40, # 91
	915	40, 40, 40, 40, 40, 40, 40, 40, # 91
	916	40, 40, 40, 40, 40, 40, 40, 40, # 92
	917	40, 40, 40, 40, 40, 40, 40, 40, # 92
	918	40, 40, 40, 40, 40, 46, 46, 46, # 92
	919	46, 60, 60, 59, 59, 59, 59, 46, # 92
	920	46, 40, 40, 40, 40, 40, 40, 40, # 92
	921	40, 40, 40, 40, 40, 40, 40, 40, # 92
	922	40, 40, 40, 40, 40, 40, 40, 40, # 92
	923	40, 40, 40, 40, 40, 40, 40, 40, # 92
	924	40, 40, 40, 40, 40, 40, 40, 40, # 93
	925	40, 40, 40, 40, 40, 40, 40, 40, # 93
	926	40, 40, 40, 40, 40, 40, 40, 40, # 93
	927	40, 40, 40, 40, 40, 40, 40, 40, # 93
	928	40, 40, 40, 40, 40, 40, 40, 40, # 93
	929	40, 40, 40, 40, 40, 40, 40, 40, # 93
	930	40, 40, 40, 40, 40, 40, 40, 40, # 93
	931	40, 40, 40, 3, 59, 59, 59, 46, # 93
	932	46, 46, 46, 46, 46, 40, 40, 40, # 94
	933	40, 40, 40, 40, 40, 40, 40, 40, # 94
	934	40, 40, 40, 40, 40, 40, 40, 40, # 94
	935	40, 40, 40, 40, 40, 40, 40, 40, # 94
	936	40, 40, 40, 40, 40, 40, 40, 40, # 94
	937	40, 40, 40, 40, 40, 46, 46, 46, # 94
	938	46, 40, 40, 40, 40, 40, 40, 40, # 94
	939	40, 40, 40, 40, 40, 40, 40, 40, # 94
	940	40, 40, 40, 40, 40, 40, 40, 40, # 95
	941	40, 40, 40, 40, 40, 40, 40, 46, # 95
	942	15, 15, 85, 85, 85, 85, 15, 15, # 95
	943	15, 15, 15, 15, 15, 15, 15, 15, # 95
	944	46, 46, 46, 46, 46, 46, 46, 46, # 95
	945	46, 46, 46, 46, 46, 46, 46, 46, # 95
	946	46, 46, 46, 46, 46, 46, 46, 46, # 95
	947	46, 46, 46, 46, 46, 46, 46, 46, # 95
	948	15, 15, 15, 15, 15, 15, 15, 15, # 96
	949	15, 15, 15, 15, 15, 15, 15, 15, # 96
	950	15, 15, 15, 15, 15, 15, 15, 15, # 96
	951	15, 15, 15, 15, 15, 46, 46, 46, # 96
	952	85, 85, 85, 85, 85, 85, 85, 85, # 96
	953	85, 85, 15, 15, 15, 15, 15, 15, # 96
	954	15, 15, 15, 15, 15, 15, 15, 15, # 96
	955	15, 15, 15, 15, 15, 15, 15, 15, # 96
	956	15, 15, 15, 15, 46, 46, 46, 46, # 97
	957	46, 46, 46, 46, 46, 46, 46, 46, # 97
	958	46, 46, 46, 46, 46, 46, 46, 46, # 97
	959	46, 46, 46, 46, 46, 46, 46, 46, # 97
	960	15, 15, 15, 15, 15, 15, 15, 15, # 97
	961	15, 15, 15, 15, 15, 15, 15, 15, # 97
	962	15, 15, 15, 15, 15, 15, 15, 15, # 97
	963	15, 15, 15, 15, 46, 46, 46, 15, # 97
	964	114, 114, 114, 114, 114, 114, 114, 114, # 98
	965	114, 114, 15, 15, 15, 15, 15, 15, # 98
	966	15, 15, 15, 15, 15, 15, 15, 15, # 98
	967	15, 15, 15, 15, 15, 15, 15, 15, # 98
	968	15, 15, 15, 15, 15, 15, 15, 15, # 98
	969	15, 15, 15, 15, 15, 15, 15, 15, # 98
	970	15, 46, 46, 46, 46, 46, 46, 46, # 98
	971	46, 46, 46, 46, 46, 46, 46, 46, # 98
	972	15, 15, 15, 15, 15, 15, 15, 15, # 99
	973	15, 15, 15, 15, 46, 46, 46, 46, # 99
	974	15, 15, 15, 15, 15, 15, 15, 15, # 99
	975	15, 15, 15, 15, 15, 15, 15, 15, # 99
	976	15, 15, 15, 15, 15, 15, 15, 15, # 99
	977	15, 15, 15, 15, 15, 15, 15, 15, # 99
	978	15, 15, 15, 15, 15, 15, 15, 15, # 99
	979	15, 15, 15, 15, 15, 15, 15, 46, # 99
	980	15, 15, 15, 15, 15, 15, 15, 15, # 100
	981	15, 15, 15, 15, 15, 15, 15, 15, # 100
	982	15, 15, 15, 15, 15, 15, 15, 15, # 100
	983	15, 15, 15, 15, 15, 15, 15, 15, # 100
	984	15, 15, 15, 15, 15, 15, 15, 15, # 100
	985	15, 15, 15, 15, 15, 15, 15, 15, # 100
	986	15, 15, 15, 15, 15, 15, 15, 46, # 100
	987	46, 46, 46, 15, 15, 15, 15, 15, # 100
	988	15, 15, 15, 15, 15, 15, 15, 15, # 101
	989	15, 15, 15, 15, 15, 15, 15, 15, # 101
	990	15, 15, 15, 15, 15, 15, 15, 15, # 101
	991	15, 15, 15, 15, 15, 15, 46, 46, # 101
	992	15, 15, 15, 15, 15, 15, 15, 15, # 101
	993	15, 15, 15, 15, 15, 15, 15, 15, # 101
	994	15, 15, 15, 15, 15, 15, 15, 15, # 101
	995	15, 15, 15, 15, 15, 15, 15, 46, # 101
	996	40, 40, 40, 40, 40, 40, 40, 40, # 102
	997	40, 40, 40, 40, 40, 40, 40, 40, # 102
	998	40, 40, 40, 40, 40, 40, 40, 40, # 102
	999	40, 40, 40, 40, 40, 40, 40, 40, # 102
	1000	40, 40, 40, 40, 40, 40, 46, 46, # 102
	1001	46, 46, 46, 46, 46, 46, 46, 46, # 102
	1002	46, 46, 46, 46, 46, 46, 46, 46, # 102
	1003	46, 46, 46, 46, 46, 46, 46, 46, # 102
	1004	40, 40, 40, 40, 40, 40, 40, 40, # 103
	1005	40, 40, 40, 40, 40, 40, 40, 40, # 103
	1006	40, 40, 40, 40, 40, 40, 40, 40, # 103
	1007	40, 40, 40, 40, 40, 40, 40, 40, # 103
	1008	40, 40, 40, 40, 46, 46, 46, 46, # 103
	1009	46, 46, 46, 46, 46, 46, 46, 46, # 103
	1010	46, 46, 46, 46, 46, 46, 46, 46, # 103
	1011	46, 46, 46, 46, 46, 46, 46, 46, # 103
	1012	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1013	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1014	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1015	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1016	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1017	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1018	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1019	122, 122, 122, 122, 122, 122, 122, 122, # 104
	1020	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1021	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1022	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1023	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1024	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1025	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1026	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1027	123, 123, 123, 123, 123, 123, 123, 123, # 105
	1028	40, 40, 40, 40, 40, 40, 40, 40, # 106
	1029	40, 40, 40, 40, 40, 40, 40, 40, # 106
	1030	40, 40, 40, 40, 40, 40, 40, 40, # 106
	1031	40, 40, 40, 40, 40, 40, 40, 40, # 106
	1032	40, 40, 40, 40, 40, 40, 40, 40, # 106
	1033	40, 40, 40, 40, 40, 40, 46, 46, # 106
	1034	46, 46, 46, 46, 46, 46, 46, 46, # 106
	1035	46, 46, 46, 46, 46, 46, 46, 46, # 106
	1036	16, 16, 16, 16, 16, 16, 16, 46, # 107
	1037	46, 46, 46, 46, 46, 46, 46, 46, # 107
	1038	46, 46, 46, 16, 16, 16, 16, 16, # 107
	1039	46, 46, 46, 46, 46, 46, 60, 40, # 107
	1040	40, 40, 40, 40, 40, 40, 40, 40, # 107
	1041	40, 7, 40, 40, 40, 40, 40, 40, # 107
	1042	40, 40, 40, 40, 40, 40, 40, 46, # 107
	1043	40, 40, 40, 40, 40, 46, 40, 46, # 107
	1044	40, 40, 46, 40, 40, 46, 40, 40, # 108
	1045	40, 40, 40, 40, 40, 40, 40, 40, # 108
	1046	40, 40, 40, 40, 40, 40, 40, 40, # 108
	1047	40, 40, 40, 40, 40, 40, 40, 40, # 108
	1048	40, 40, 40, 40, 40, 40, 40, 40, # 108
	1049	40, 40, 40, 40, 40, 40, 40, 40, # 108
	1050	40, 40, 40, 40, 40, 40, 40, 40, # 108
	1051	40, 40, 40, 40, 40, 40, 40, 40, # 108
	1052	40, 40, 40, 40, 40, 40, 40, 40, # 109
	1053	40, 40, 40, 40, 40, 40, 40, 40, # 109
	1054	40, 40, 40, 40, 40, 40, 40, 40, # 109
	1055	40, 40, 40, 40, 40, 40, 40, 40, # 109
	1056	40, 40, 40, 40, 40, 40, 40, 40, # 109
	1057	40, 40, 40, 40, 40, 40, 40, 40, # 109
	1058	40, 40, 46, 46, 46, 46, 46, 46, # 109
	1059	46, 46, 46, 46, 46, 46, 46, 46, # 109
	1060	46, 46, 46, 46, 46, 46, 46, 46, # 110
	1061	46, 46, 46, 46, 46, 46, 46, 46, # 110
	1062	46, 46, 46, 40, 40, 40, 40, 40, # 110
	1063	40, 40, 40, 40, 40, 40, 40, 40, # 110
	1064	40, 40, 40, 40, 40, 40, 40, 40, # 110
	1065	40, 40, 40, 40, 40, 40, 40, 40, # 110
	1066	40, 40, 40, 40, 40, 40, 40, 40, # 110
	1067	40, 40, 40, 40, 40, 40, 40, 40, # 110
	1068	40, 40, 40, 40, 40, 40, 40, 40, # 111
	1069	40, 40, 40, 40, 40, 40, 40, 40, # 111
	1070	40, 40, 40, 40, 40, 40, 40, 40, # 111
	1071	40, 40, 40, 40, 40, 40, 40, 40, # 111
	1072	40, 40, 40, 40, 40, 40, 40, 40, # 111
	1073	40, 40, 40, 40, 40, 40, 40, 40, # 111
	1074	40, 40, 40, 40, 40, 40, 40, 40, # 111
	1075	40, 40, 40, 40, 40, 40, 5, 6, # 111
	1076	46, 46, 46, 46, 46, 46, 46, 46, # 112
	1077	46, 46, 46, 46, 46, 46, 46, 46, # 112
	1078	40, 40, 40, 40, 40, 40, 40, 40, # 112
	1079	40, 40, 40, 40, 40, 40, 40, 40, # 112
	1080	40, 40, 40, 40, 40, 40, 40, 40, # 112
	1081	40, 40, 40, 40, 40, 40, 40, 40, # 112
	1082	40, 40, 40, 40, 40, 40, 40, 40, # 112
	1083	40, 40, 40, 40, 40, 40, 40, 40, # 112
	1084	40, 40, 40, 40, 40, 40, 40, 40, # 113
	1085	40, 40, 40, 40, 40, 40, 40, 40, # 113
	1086	46, 46, 40, 40, 40, 40, 40, 40, # 113
	1087	40, 40, 40, 40, 40, 40, 40, 40, # 113
	1088	40, 40, 40, 40, 40, 40, 40, 40, # 113
	1089	40, 40, 40, 40, 40, 40, 40, 40, # 113
	1090	40, 40, 40, 40, 40, 40, 40, 40, # 113
	1091	40, 40, 40, 40, 40, 40, 40, 40, # 113
	1092	40, 40, 40, 40, 40, 40, 40, 40, # 114
	1093	46, 46, 46, 46, 46, 46, 46, 46, # 114
	1094	46, 46, 46, 46, 46, 46, 46, 46, # 114
	1095	46, 46, 46, 46, 46, 46, 46, 46, # 114
	1096	46, 46, 46, 46, 46, 46, 46, 46, # 114
	1097	46, 46, 46, 46, 46, 46, 46, 46, # 114
	1098	40, 40, 40, 40, 40, 40, 40, 40, # 114
	1099	40, 40, 40, 40, 46, 46, 46, 46, # 114
	1100	46, 46, 46, 46, 46, 46, 46, 46, # 115
	1101	46, 46, 46, 46, 46, 46, 46, 46, # 115
	1102	46, 46, 46, 46, 46, 46, 46, 46, # 115
	1103	46, 46, 46, 46, 46, 46, 46, 46, # 115
	1104	60, 60, 60, 60, 46, 46, 46, 46, # 115
	1105	46, 46, 46, 46, 46, 46, 46, 46, # 115
	1106	3, 8, 8, 12, 12, 5, 6, 5, # 115
	1107	6, 5, 6, 5, 6, 5, 6, 5, # 115
	1108	6, 5, 6, 5, 6, 46, 46, 46, # 116
	1109	46, 3, 3, 3, 3, 12, 12, 12, # 116
	1110	3, 3, 3, 46, 3, 3, 3, 3, # 116
	1111	8, 5, 6, 5, 6, 5, 6, 3, # 116
	1112	3, 3, 7, 8, 7, 7, 7, 46, # 116
	1113	3, 4, 3, 3, 46, 46, 46, 46, # 116
	1114	40, 40, 40, 46, 40, 46, 40, 40, # 116
	1115	40, 40, 40, 40, 40, 40, 40, 40, # 116
	1116	40, 40, 40, 40, 40, 40, 40, 40, # 117
	1117	40, 40, 40, 40, 40, 40, 40, 40, # 117
	1118	40, 40, 40, 40, 40, 40, 40, 40, # 117
	1119	40, 40, 40, 40, 40, 40, 40, 40, # 117
	1120	40, 40, 40, 40, 40, 40, 40, 40, # 117
	1121	40, 40, 40, 40, 40, 40, 40, 40, # 117
	1122	40, 40, 40, 40, 40, 40, 40, 40, # 117
	1123	40, 40, 40, 40, 40, 46, 46, 104, # 117
	1124	46, 3, 3, 3, 4, 3, 3, 3, # 118
	1125	5, 6, 3, 7, 3, 8, 3, 3, # 118
	1126	9, 9, 9, 9, 9, 9, 9, 9, # 118
	1127	9, 9, 3, 3, 7, 7, 7, 3, # 118
	1128	3, 10, 10, 10, 10, 10, 10, 10, # 118
	1129	10, 10, 10, 10, 10, 10, 10, 10, # 118
	1130	10, 10, 10, 10, 10, 10, 10, 10, # 118
	1131	10, 10, 10, 5, 3, 6, 11, 12, # 118
	1132	11, 13, 13, 13, 13, 13, 13, 13, # 119
	1133	13, 13, 13, 13, 13, 13, 13, 13, # 119
	1134	13, 13, 13, 13, 13, 13, 13, 13, # 119
	1135	13, 13, 13, 5, 7, 6, 7, 46, # 119
	1136	46, 3, 5, 6, 3, 3, 40, 40, # 119
	1137	40, 40, 40, 40, 40, 40, 40, 40, # 119
	1138	59, 40, 40, 40, 40, 40, 40, 40, # 119
	1139	40, 40, 40, 40, 40, 40, 40, 40, # 119
	1140	40, 40, 40, 40, 40, 40, 40, 40, # 120
	1141	40, 40, 40, 40, 40, 40, 40, 40, # 120
	1142	40, 40, 40, 40, 40, 40, 40, 40, # 120
	1143	40, 40, 40, 40, 40, 40, 59, 59, # 120
	1144	40, 40, 40, 40, 40, 40, 40, 40, # 120
	1145	40, 40, 40, 40, 40, 40, 40, 40, # 120
	1146	40, 40, 40, 40, 40, 40, 40, 40, # 120
	1147	40, 40, 40, 40, 40, 40, 40, 46, # 120
	1148	46, 46, 40, 40, 40, 40, 40, 40, # 121
	1149	46, 46, 40, 40, 40, 40, 40, 40, # 121
	1150	46, 46, 40, 40, 40, 40, 40, 40, # 121
	1151	46, 46, 40, 40, 40, 46, 46, 46, # 121
	1152	4, 4, 7, 11, 15, 4, 4, 46, # 121
	1153	7, 7, 7, 7, 7, 15, 15, 46, # 121
	1154	46, 46, 46, 46, 46, 46, 46, 46, # 121
	1155	46, 46, 46, 46, 46, 15, 46, 46 # 121
	1156	};
	1157
	1158	# The A table has 124 entries for a total of 496 bytes.
	1159
	1160	A = array[] of {
	1161	16r0001000F, # 0 Cc, ignorable
	1162	16r0004000F, # 1 Cc, whitespace
	1163	16r0004000C, # 2 Zs, whitespace
	1164	16r00000018, # 3 Po
	1165	16r0006001A, # 4 Sc, currency
	1166	16r00000015, # 5 Ps
	1167	16r00000016, # 6 Pe
	1168	16r00000019, # 7 Sm
	1169	16r00000014, # 8 Pd
	1170	16r00036009, # 9 Nd, identifier part, decimal 16
	1171	16r0827FE01, # 10 Lu, hasLower (add 32), identifier start, supradecimal 31
	1172	16r0000001B, # 11 Sk
	1173	16r00050017, # 12 Pc, underscore
	1174	16r0817FE02, # 13 Ll, hasUpper (subtract 32), identifier start, supradecimal 31
	1175	16r0000000C, # 14 Zs
	1176	16r0000001C, # 15 So
	1177	16r00070002, # 16 Ll, identifier start
	1178	16r0000600B, # 17 No, decimal 16
	1179	16r0000500B, # 18 No, decimal 8
	1180	16r0000800B, # 19 No, strange
	1181	16r08270001, # 20 Lu, hasLower (add 32), identifier start
	1182	16r08170002, # 21 Ll, hasUpper (subtract 32), identifier start
	1183	int 16rE1D70002, # 22 Ll, hasUpper (subtract -121), identifier start
	1184	16r00670001, # 23 Lu, hasLower (add 1), identifier start
	1185	16r00570002, # 24 Ll, hasUpper (subtract 1), identifier start
	1186	int 16rCE670001, # 25 Lu, hasLower (add -199), identifier start
	1187	16r3A170002, # 26 Ll, hasUpper (subtract 232), identifier start
	1188	int 16rE1E70001, # 27 Lu, hasLower (add -121), identifier start
	1189	16r4B170002, # 28 Ll, hasUpper (subtract 300), identifier start
	1190	16r34A70001, # 29 Lu, hasLower (add 210), identifier start
	1191	16r33A70001, # 30 Lu, hasLower (add 206), identifier start
	1192	16r33670001, # 31 Lu, hasLower (add 205), identifier start
	1193	16r32A70001, # 32 Lu, hasLower (add 202), identifier start
	1194	16r32E70001, # 33 Lu, hasLower (add 203), identifier start
	1195	16r33E70001, # 34 Lu, hasLower (add 207), identifier start
	1196	16r34E70001, # 35 Lu, hasLower (add 211), identifier start
	1197	16r34670001, # 36 Lu, hasLower (add 209), identifier start
	1198	16r35670001, # 37 Lu, hasLower (add 213), identifier start
	1199	16r00070001, # 38 Lu, identifier start
	1200	16r36A70001, # 39 Lu, hasLower (add 218), identifier start
	1201	16r00070005, # 40 Lo, identifier start
	1202	16r36670001, # 41 Lu, hasLower (add 217), identifier start
	1203	16r36E70001, # 42 Lu, hasLower (add 219), identifier start
	1204	16r00AF0001, # 43 Lu, hasLower (add 2), hasTitle, identifier start
	1205	16r007F0003, # 44 Lt, hasUpper (subtract 1), hasLower (add 1), hasTitle, identifier start
	1206	16r009F0002, # 45 Ll, hasUpper (subtract 2), hasTitle, identifier start
	1207	16r00000000, # 46 unassigned
	1208	16r34970002, # 47 Ll, hasUpper (subtract 210), identifier start
	1209	16r33970002, # 48 Ll, hasUpper (subtract 206), identifier start
	1210	16r33570002, # 49 Ll, hasUpper (subtract 205), identifier start
	1211	16r32970002, # 50 Ll, hasUpper (subtract 202), identifier start
	1212	16r32D70002, # 51 Ll, hasUpper (subtract 203), identifier start
	1213	16r33D70002, # 52 Ll, hasUpper (subtract 207), identifier start
	1214	16r34570002, # 53 Ll, hasUpper (subtract 209), identifier start
	1215	16r34D70002, # 54 Ll, hasUpper (subtract 211), identifier start
	1216	16r35570002, # 55 Ll, hasUpper (subtract 213), identifier start
	1217	16r36970002, # 56 Ll, hasUpper (subtract 218), identifier start
	1218	16r36570002, # 57 Ll, hasUpper (subtract 217), identifier start
	1219	16r36D70002, # 58 Ll, hasUpper (subtract 219), identifier start
	1220	16r00070004, # 59 Lm, identifier start
	1221	16r00030006, # 60 Mn, identifier part
	1222	16r09A70001, # 61 Lu, hasLower (add 38), identifier start
	1223	16r09670001, # 62 Lu, hasLower (add 37), identifier start
	1224	16r10270001, # 63 Lu, hasLower (add 64), identifier start
	1225	16r0FE70001, # 64 Lu, hasLower (add 63), identifier start
	1226	16r09970002, # 65 Ll, hasUpper (subtract 38), identifier start
	1227	16r09570002, # 66 Ll, hasUpper (subtract 37), identifier start
	1228	16r10170002, # 67 Ll, hasUpper (subtract 64), identifier start
	1229	16r0FD70002, # 68 Ll, hasUpper (subtract 63), identifier start
	1230	16r0F970002, # 69 Ll, hasUpper (subtract 62), identifier start
	1231	16r0E570002, # 70 Ll, hasUpper (subtract 57), identifier start
	1232	16r0BD70002, # 71 Ll, hasUpper (subtract 47), identifier start
	1233	16r0D970002, # 72 Ll, hasUpper (subtract 54), identifier start
	1234	16r15970002, # 73 Ll, hasUpper (subtract 86), identifier start
	1235	16r14170002, # 74 Ll, hasUpper (subtract 80), identifier start
	1236	16r14270001, # 75 Lu, hasLower (add 80), identifier start
	1237	16r0C270001, # 76 Lu, hasLower (add 48), identifier start
	1238	16r0C170002, # 77 Ll, hasUpper (subtract 48), identifier start
	1239	16r00034009, # 78 Nd, identifier part, decimal 0
	1240	16r00000007, # 79 Me
	1241	16r00030008, # 80 Mc, identifier part
	1242	16r00037409, # 81 Nd, identifier part, decimal 26
	1243	16r00005A0B, # 82 No, decimal 13
	1244	16r00006E0B, # 83 No, decimal 23
	1245	16r0000740B, # 84 No, decimal 26
	1246	16r0000000B, # 85 No
	1247	int 16rFE170002, # 86 Ll, hasUpper (subtract -8), identifier start
	1248	int 16rFE270001, # 87 Lu, hasLower (add -8), identifier start
	1249	int 16rED970002, # 88 Ll, hasUpper (subtract -74), identifier start
	1250	int 16rEA970002, # 89 Ll, hasUpper (subtract -86), identifier start
	1251	int 16rE7170002, # 90 Ll, hasUpper (subtract -100), identifier start
	1252	int 16rE0170002, # 91 Ll, hasUpper (subtract -128), identifier start
	1253	int 16rE4170002, # 92 Ll, hasUpper (subtract -112), identifier start
	1254	int 16rE0970002, # 93 Ll, hasUpper (subtract -126), identifier start
	1255	int 16rFDD70002, # 94 Ll, hasUpper (subtract -9), identifier start
	1256	int 16rEDA70001, # 95 Lu, hasLower (add -74), identifier start
	1257	int 16rFDE70001, # 96 Lu, hasLower (add -9), identifier start
	1258	int 16rEAA70001, # 97 Lu, hasLower (add -86), identifier start
	1259	int 16rE7270001, # 98 Lu, hasLower (add -100), identifier start
	1260	int 16rFE570002, # 99 Ll, hasUpper (subtract -7), identifier start
	1261	int 16rE4270001, # 100 Lu, hasLower (add -112), identifier start
	1262	int 16rFE670001, # 101 Lu, hasLower (add -7), identifier start
	1263	int 16rE0270001, # 102 Lu, hasLower (add -128), identifier start
	1264	int 16rE0A70001, # 103 Lu, hasLower (add -126), identifier start
	1265	16r00010010, # 104 Cf, ignorable
	1266	16r0004000D, # 105 Zl, whitespace
	1267	16r0004000E, # 106 Zp, whitespace
	1268	16r0000400B, # 107 No, decimal 0
	1269	16r0000440B, # 108 No, decimal 2
	1270	16r0427420A, # 109 Nl, hasLower (add 16), identifier start, decimal 1
	1271	16r0427800A, # 110 Nl, hasLower (add 16), identifier start, strange
	1272	16r0417620A, # 111 Nl, hasUpper (subtract 16), identifier start, decimal 17
	1273	16r0417800A, # 112 Nl, hasUpper (subtract 16), identifier start, strange
	1274	16r0007800A, # 113 Nl, identifier start, strange
	1275	16r0000420B, # 114 No, decimal 1
	1276	16r0000720B, # 115 No, decimal 25
	1277	16r06A0001C, # 116 So, hasLower (add 26)
	1278	16r0690001C, # 117 So, hasUpper (subtract 26)
	1279	16r00006C0B, # 118 No, decimal 22
	1280	16r0000560B, # 119 No, decimal 11
	1281	16r0007720A, # 120 Nl, identifier start, decimal 25
	1282	16r0007400A, # 121 Nl, identifier start, decimal 0
	1283	16r00000013, # 122 Cs
	1284	16r00000012 # 123 Co
	1285	};

java/pkg2/java/lang/unicode_table.m+8−0

@@ -0,0 +1,8 @@
	1	UnicodeTable : module
	2	{
	3	PATH : con "/dis/java/java/lang/unicode_table.dis";
	4
	5	A : array of int;
	6	X : array of int;
	7	Y : array of int;
	8	};