@@ -0,0 +1,72 @@
	1	implement FileDescriptor_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	sys : import jni;
	27	FALSE : import jni;
	28	TRUE : import jni;
	29	#<<
	30
	31	include "FileDescriptor_L.m";
	32
	33	#>> extra post includes here
	34	#<<
	35
	36	init( jni_p : JNI )
	37	{
	38	# save java native inteface mod instance
	39	jni = jni_p;
	40	#>>extra initialization here
	41	sys = jni->sys;
	42	#<<
	43	}
	44
	45	valid_Z( this : ref FileDescriptor_obj) : int
	46	{#>>
	47	if (this.fd != nil)
	48	return TRUE;
	49	else
	50	return FALSE;
	51	}#<<
	52
	53	sync_V( this : ref FileDescriptor_obj)
	54	{#>>
	55	# this routine has no meaning in the limbo world because there is
	56	# nothing to sync or flush. It may have meaning to each underlying
	57	# file system (device driver) but at the present there is no devtab
	58	# interface to the device driver for sync. As such, this routine is
	59	# a noop.
	60	jni->ThrowException("java.io.SyncFailedException", "sync not gauranteed");
	61	}#<<
	62
	63	initSystemFD_rFileDescriptor_I_rFileDescriptor( p0 : ref FileDescriptor_obj,p1 : int) : ref FileDescriptor_obj
	64	{#>>
	65	p0.fd = sys->fildes(p1);
	66	return (p0);
	67	}#<<
	68
	69
	70
	71
	72

java/pkg2/java/io/FileDescriptor_L.m+16−0

@@ -0,0 +1,16 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	FileDescriptor_L : module
	4	{
	5	FileDescriptor_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	fd : ref Sys->FD;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	valid_Z : fn( this : ref FileDescriptor_obj) : int;
	13	sync_V : fn( this : ref FileDescriptor_obj);
	14	initSystemFD_rFileDescriptor_I_rFileDescriptor : fn( p0 : ref FileDescriptor_obj,p1 : int) : ref FileDescriptor_obj;
	15
	16	};

java/pkg2/java/io/FileInputStream.java+0−0

Empty file added.

java/pkg2/java/io/FileInputStream_L.b+135−0

@@ -0,0 +1,135 @@
	1	implement FileInputStream_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	sys : import jni;
	27	FALSE : import jni;
	28	TRUE : import jni;
	29	include "FileDescriptor_L.m";
	30	FileDescriptor_obj : import FileDescriptor_L;
	31	#<<
	32
	33	include "FileInputStream_L.m";
	34
	35	#>> extra post includes here
	36	#<<
	37
	38	init( jni_p : JNI )
	39	{
	40	# save java native inteface mod instance
	41	jni = jni_p;
	42	#>>extra initialization here
	43	sys = jni->sys;
	44	#<<
	45	}
	46
	47	open_rString_V( this : ref FileInputStream_obj, p0 : JString)
	48	{#>>
	49	# p0 == file name
	50
	51	if ((p0 == nil) \|\| (p0.str == nil))
	52	jni->ThrowException("java.lang.NullPointerException", "str is nil");
	53
	54	this.fd.fd = sys->open(p0.str, sys->OREAD);
	55	if(this.fd.fd == nil)
	56	jni->ThrowException("java.io.IOException", "open error");
	57	}#<<
	58
	59	read_I( this : ref FileInputStream_obj) : int
	60	{#>>
	61	buf := array[1] of byte;
	62
	63	if (this.fd.fd == nil)
	64	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	65	readin := sys->read(this.fd.fd, buf, 1);
	66	if (readin == 0) # EOF
	67	return -1;
	68
	69	if (readin < 0)
	70	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	71	return (int buf[0]);
	72
	73	}#<<
	74
	75	readBytes_aB_I_I_I( this : ref FileInputStream_obj, p0 : JArrayB,p1 : int,p2 : int) : int
	76	{#>>
	77	# p0 == input buffer (array of bytes)
	78	# p1 == offset
	79	# p2 == length
	80	# read p2 bytes from the file and place them at location (p0 + p1)
	81
	82	if (this.fd == nil)
	83	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	84	if ((p0 == nil) \|\| (p0.ary == nil))
	85	jni->ThrowException("java.lang.NullPointerException", "nil buffer pointer");
	86	if ((p1 < 0) \|\| (p1 > len p0.ary))
	87	jni->ThrowException("java.lang.ArrayIndexOutOfBoundsException",
	88	jni->sys->sprint( "offset=%d len buf array=%d", p1, len p0.ary));
	89
	90	if ((p1 + p2) > len p0.ary)
	91	p2 = (len p0.ary) - p1;
	92	if (p2 <= 0)
	93	return 0;
	94
	95	n := sys->read(this.fd.fd, p0.ary[p1: len p0.ary], p2);
	96	if (n == 0) # EOF
	97	return -1;
	98
	99	if (n < 0)
	100	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	101	return n;
	102	}#<<
	103
	104	skip_J_J( this : ref FileInputStream_obj, p0 : big) : big
	105	{#>>
	106	# skip the next p0 bytes from the Input stream. First find out where you are in
	107	# the stream. Next skip the bytes then return the "actual" bytes skipped.
	108
	109	if (this.fd.fd == nil)
	110	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	111	cur := sys->seek(this.fd.fd, 0, sys->SEEKRELA);
	112	end := sys->seek(this.fd.fd, (int p0), sys->SEEKRELA);
	113	return big (end - cur);
	114	}#<<
	115
	116	available_I( this : ref FileInputStream_obj) : int
	117	{#>>
	118	if (this.fd.fd == nil)
	119	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	120	cur := sys->seek(this.fd.fd, 0, Sys->SEEKRELA);
	121	end := sys->seek(this.fd.fd, 0, Sys->SEEKEND);
	122	sys->seek(this.fd.fd, cur, Sys->SEEKSTART);
	123
	124	return (end - cur);
	125	}#<<
	126
	127	close_V( this : ref FileInputStream_obj)
	128	{#>>
	129	if (this.fd != nil)
	130	this.fd.fd = nil;
	131	}#<<
	132
	133
	134
	135

java/pkg2/java/io/FileInputStream_L.m+19−0

@@ -0,0 +1,19 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	FileInputStream_L : module
	4	{
	5	FileInputStream_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	fd : ref FileDescriptor_obj;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	open_rString_V : fn( this : ref FileInputStream_obj, p0 : JString);
	13	read_I : fn( this : ref FileInputStream_obj) : int;
	14	readBytes_aB_I_I_I : fn( this : ref FileInputStream_obj, p0 : JArrayB,p1 : int,p2 : int) : int;
	15	skip_J_J : fn( this : ref FileInputStream_obj, p0 : big) : big;
	16	available_I : fn( this : ref FileInputStream_obj) : int;
	17	close_V : fn( this : ref FileInputStream_obj);
	18
	19	};

java/pkg2/java/io/FileNotFoundException.java+0−0

Empty file added.

java/pkg2/java/io/FileOutputStream.java+0−0

Empty file added.

java/pkg2/java/io/FileOutputStream_L.b+116−0

@@ -0,0 +1,116 @@
	1	implement FileOutputStream_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	sys : import jni;
	27	FALSE : import jni;
	28	TRUE : import jni;
	29	include "FileDescriptor_L.m";
	30	FileDescriptor_obj : import FileDescriptor_L;
	31	#<<
	32
	33	include "FileOutputStream_L.m";
	34
	35	#>> extra post includes here
	36	#<<
	37
	38	init( jni_p : JNI )
	39	{
	40	# save java native inteface mod instance
	41	jni = jni_p;
	42	#>>extra initialization here
	43	sys = jni->sys;
	44	#<<
	45	}
	46
	47	open_rString_V( this : ref FileOutputStream_obj, p0 : JString)
	48	{#>>
	49	# open file pointed to by p0. If it does not exists, create it and
	50	# and open it with mode of 644.
	51
	52	if ((p0 == nil) \|\| (p0.str == nil))
	53	jni->ThrowException("java.lang.NullPointerException", "null file name");
	54
	55	this.fd.fd = sys->create(p0.str, sys->OWRITE, 8r666);
	56	if(this.fd.fd == nil)
	57	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	58	}#<<
	59
	60	openAppend_rString_V( this : ref FileOutputStream_obj, p0 : JString)
	61	{#>>
	62	if ((p0 == nil) \|\| (p0.str == nil))
	63	jni->ThrowException("java.lang.NullPointerException", "null filename");
	64
	65	this.fd.fd = sys->open(p0.str, sys->OWRITE);
	66	if(this.fd.fd == nil)
	67	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	68	sys->seek(this.fd.fd, 0, sys->SEEKEND);
	69	}#<<
	70
	71	write_I_V( this : ref FileOutputStream_obj, p0 : int)
	72	{#>>
	73	# p0 == character to write
	74	c := array[1] of byte;
	75	c[0] = byte p0;
	76
	77	if ((this.fd == nil) \|\| (this.fd.fd == nil))
	78	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	79
	80	if (sys->write(this.fd.fd, c, 1) != 1)
	81	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	82	}#<<
	83
	84	writeBytes_aB_I_I_V( this : ref FileOutputStream_obj, p0 : JArrayB,p1 : int,p2 : int)
	85	{#>>
	86	# p0 == buffer array to write from
	87	# p1 == offset in buffer
	88	# p2 == length to write out
	89
	90	if ((this.fd == nil) \|\| (this.fd.fd == nil))
	91	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	92	if ((p0 == nil) \|\| (p0.ary == nil))
	93	jni->ThrowException("java.lang.NullPointerException", nil);
	94	if ((p1 < 0) \|\| (p2 < 0) \|\| (p1 > (len p0.ary)))
	95	jni->ThrowException("java.lang.ArrayIndexOutOfBoundsException", nil);
	96
	97	n := 0;
	98	while (p2 > 0) {
	99	# you can also write the following line as.....
	100	# n = sys->write(this.fd.fd, p0.ary[p1:], p2);
	101	n = sys->write(this.fd.fd, p0.ary[p1:len p0.ary], p2);
	102	if (n == -1) {
	103	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	104	break;
	105	}
	106	p1 += n;
	107	p2 -= n;
	108	}
	109	}#<<
	110
	111	close_V( this : ref FileOutputStream_obj)
	112	{#>>
	113	if (this.fd != nil)
	114	this.fd.fd = nil;
	115	}#<<
	116

java/pkg2/java/io/FileOutputStream_L.m+18−0

@@ -0,0 +1,18 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	FileOutputStream_L : module
	4	{
	5	FileOutputStream_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	fd : ref FileDescriptor_obj;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	open_rString_V : fn( this : ref FileOutputStream_obj, p0 : JString);
	13	openAppend_rString_V : fn( this : ref FileOutputStream_obj, p0 : JString);
	14	write_I_V : fn( this : ref FileOutputStream_obj, p0 : int);
	15	writeBytes_aB_I_I_V : fn( this : ref FileOutputStream_obj, p0 : JArrayB,p1 : int,p2 : int);
	16	close_V : fn( this : ref FileOutputStream_obj);
	17
	18	};

java/pkg2/java/io/FileReader.java+0−0

Empty file added.

java/pkg2/java/io/FileWriter.java+0−0

Empty file added.

java/pkg2/java/io/File_L.b+332−0

@@ -0,0 +1,332 @@
	1	implement File_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	sys : import jni;
	27	str : import jni;
	28	FALSE : import jni;
	29	TRUE : import jni;
	30	#<<
	31
	32	include "File_L.m";
	33
	34	#>> extra post includes here
	35	include "workdir.m";
	36	include "regex.m";
	37	str_mod : String;
	38	#<<
	39
	40	init( jni_p : JNI )
	41	{
	42	# save java native inteface mod instance
	43	jni = jni_p;
	44	#>>extra initialization here
	45	sys = jni->sys;
	46	str_mod = jni->str;
	47	#<<
	48	}
	49
	50	exists0_Z( this : ref File_obj) : int
	51	{#>>
	52	(ok, nil) := sys->stat(this.path.str);
	53	if (ok == -1)
	54	return (FALSE);
	55	return (TRUE);
	56	}#<<
	57
	58	canWrite0_Z( this : ref File_obj) : int
	59	{#>>
	60	# this routine is real cludgy...try to open the file for writing
	61	# to see if you have WRITE access rights or not.
	62
	63	local_fd := sys->open(this.path.str, sys->OWRITE);
	64	if (local_fd == nil)
	65	return (FALSE);
	66	return (TRUE);
	67	}#<<
	68
	69	canRead0_Z( this : ref File_obj) : int
	70	{#>>
	71	# this routine is real cludgy...try to open the file for reading
	72	# to see if you have READ access rights or not.
	73
	74	local_fd := sys->open(this.path.str, sys->OREAD);
	75	if (local_fd == nil)
	76	return (FALSE);
	77	return (TRUE);
	78	}#<<
	79
	80	isFile0_Z( this : ref File_obj) : int
	81	{#>>
	82	(ok, dir) := sys->stat(this.path.str);
	83	if(ok >= 0 && !(dir.mode & Sys->CHDIR))
	84	return (TRUE);
	85	return (FALSE);
	86	}#<<
	87
	88	isDirectory0_Z( this : ref File_obj) : int
	89	{#>>
	90	(ok, dir) := sys->stat(this.path.str);
	91	if(ok >= 0 && (dir.mode & Sys->CHDIR))
	92	return (TRUE);
	93	return (FALSE);
	94	}#<<
	95
	96	lastModified0_J( this : ref File_obj) : big
	97	{#>>
	98	(ok, dir) := sys->stat(this.path.str);
	99	if(ok >= 0)
	100	return (big dir.mtime);
	101	return (big 0);
	102	}#<<
	103
	104	length0_J( this : ref File_obj) : big
	105	{#>>
	106	(ok, dir) := sys->stat(this.path.str);
	107	if(ok >= 0)
	108	return (big dir.length);
	109	return (big 0);
	110	}#<<
	111
	112	mkdir0_Z( this : ref File_obj) : int
	113	{#>>
	114	(ok, nil) := sys->stat(this.path.str);
	115	if(ok >= 0)
	116	return (FALSE);
	117	fd := sys->create(this.path.str, sys->OREAD, sys->CHDIR + 8r777);
	118	if(fd == nil)
	119	return (FALSE);
	120	fd = nil;
	121	return (TRUE);
	122	}#<<
	123
	124	renameTo0_rFile_Z( this : ref File_obj, p0 : ref File_obj) : int
	125	{#>>
	126	# this routine is based on the appl/cmd/mv command in inferno....
	127
	128	#put from and to file names into complete path names
	129	frompath := pathname(this.path.str);
	130	topath := pathname(p0.path.str);
	131
	132	#seperate the name of the file from the directory the files reside in
	133	(fromdir, fromname) := split(frompath);
	134	(todir, toname) := split(topath);
	135
	136	(i, dirf) := sys->stat(this.path.str);
	137	if ( i == -1 )
	138	return FALSE;
	139
	140	# are the files in the same directory????
	141	if ( samefile(fromdir, todir) ) {
	142	if ( toname == fromname )
	143	return TRUE;
	144	(j, dirt) := sys->stat(p0.path.str);
	145	if ( j == 0 ) {
	146	if ( (dirf.mode \| dirt.mode) & Sys->CHDIR )
	147	return FALSE;
	148	hardremove(topath);
	149	}
	150	dirf.name = toname;
	151	if ( sys->wstat(this.path.str, dirf) >= 0 )
	152	return TRUE;
	153	}
	154	#open the from file....
	155	if ( (fdf := sys->open(this.path.str, Sys->OREAD)) == nil )
	156	return FALSE;
	157
	158	#open the to file....
	159	if ( (fdt := sys->create(p0.path.str, Sys->OWRITE, dirf.mode)) == nil )
	160	return FALSE;;
	161
	162	#copy data from from file to to file....
	163	if ( (stat := copy1(fdf, fdt)) == TRUE ) {
	164	fdf = nil;
	165	if ( sys->remove(this.path.str) < 0 )
	166	return FALSE;
	167	}
	168	else {
	169	fdt = nil;
	170	sys->remove(p0.path.str);
	171	}
	172	return stat;
	173	}#<<
	174
	175	delete0_Z( this : ref File_obj) : int
	176	{#>>
	177	if (isFile0_Z(this) == TRUE)
	178	return (remove0_b(this));
	179	return (FALSE);
	180	}#<<
	181
	182	rmdir0_Z( this : ref File_obj) : int
	183	{#>>
	184	if (isDirectory0_Z(this) == TRUE)
	185	return (remove0_b(this));
	186	return (FALSE);
	187	}#<<
	188
	189	list0_aString( this : ref File_obj) : JArrayJString
	190	{#>>
	191	fd := sys->open(this.path.str, sys->OREAD);
	192	if(fd == nil) {
	193	return nil;
	194	}
	195
	196	dir_array := array[200] of Sys->Dir;
	197	n := 0;
	198	for(;;){
	199	if(len dir_array - n == 0){
	200	# expand dir_array
	201	nd := array[2 * len dir_array] of Sys->Dir;
	202	nd[0:] = dir_array;
	203	dir_array = nd;
	204	}
	205	nr := sys->dirread(fd, dir_array[n:]);
	206	if(nr < 0)
	207	return nil;
	208	if(nr == 0)
	209	break;
	210	n += nr;
	211	}
	212	file_name := array[n] of string;
	213
	214	for(i := 0; i < n; i++)
	215	file_name[i] = dir_array[i].name;
	216
	217	return (jni->MkAString(file_name));
	218	}#<<
	219
	220	canonPath_rString_rString( this : ref File_obj, p0 : JString) : JString
	221	{#>>
	222	TRACE_1 := this; # to remove warning msg at compile time;
	223
	224	path := pathname(p0.str) + "/";
	225
	226	regex := load Regex Regex->PATH;
	227	if ( regex == nil )
	228	jni->InitError( sys->sprint( "java.io.File: could not load %s: %r", Regex->PATH ) );
	229
	230	path = squeeze_out(regex, regex->compile("//", 0), "/", path);
	231	path = squeeze_out(regex, regex->compile("/\\./", 0), "/", path);
	232	path = squeeze_out(regex, regex->compile("/[^/]+/\\.\\./", 0), "/", path);
	233
	234	if ( len path > 1 && path[len path - 1] == '/' )
	235	path = path[0:len path - 1];
	236
	237	return (jni->NewString( path));
	238	}#<<
	239
	240	isAbsolute_Z( this : ref File_obj) : int
	241	{#>>
	242	if (str_mod->prefix("/", this.path.str))
	243	return (TRUE);
	244	return (FALSE);
	245	}#<<
	246
	247
	248
	249
	250
	251	remove0_b( this : ref File_obj) : int
	252	{
	253	if (sys->remove(this.path.str) < 0)
	254	return (FALSE);
	255	return (TRUE);
	256	}
	257
	258	copy1(fdf, fdt : ref Sys->FD): int
	259	{
	260	n : int;
	261	buf := array[8192] of byte;
	262
	263	for ( ; ; ) {
	264	n = sys->read(fdf, buf, len buf);
	265	if (n<=0)
	266	break;
	267	n1 := sys->write(fdt, buf, n);
	268	if ( n1 != n )
	269	return FALSE;
	270	}
	271	if ( n < 0 )
	272	return FALSE;
	273	return TRUE;
	274	}
	275
	276	#convert a file name into complete path name
	277	pathname(p : string) : string
	278	{
	279	if ( p == nil \|\| p[0] == '/' )
	280	return p;
	281	gwd := load Workdir Workdir->PATH;
	282	if ( gwd == nil )
	283	jni->InitError( sys->sprint( "java.io.File: could not load %s: %r", Workdir->PATH ) );
	284
	285	wd := gwd->init();
	286	if ( len wd == 0 )
	287	return p;
	288	return wd + "/" + p;
	289	}
	290
	291	#pull out the name of the file only
	292	split(name : string): (string,string)
	293	{
	294	(d,t) := str_mod->splitr(name, "/");
	295	if ( d != nil )
	296	return(d,t);
	297	else if ( name == ".." )
	298	return("../",".");
	299	else
	300	return("./",name);
	301	}
	302
	303	# return TRUE if file a is same as file b
	304	samefile(a,b : string): int
	305	{
	306	if ( a == b )
	307	return 1;
	308	(i, file_a) := sys->stat(a);
	309	(j, file_b) := sys->stat(b);
	310	if ( i < 0 \|\| j < 0 )
	311	return 0;
	312	i = ((file_a.qid.path == file_b.qid.path) && (file_a.qid.vers == file_b.qid.vers) &&
	313	(file_a.dev == file_b.dev) && (file_a.dtype == file_b.dtype));
	314	return i;
	315	}
	316
	317	hardremove(a: string)
	318	{
	319	do; while ( sys->remove(a) != -1 );
	320	}
	321
	322	squeeze_out(r : Regex, pat : Regex->Re, repl, str :string) : string
	323	{
	324	while ( str_mod->prefix("/../", str) )
	325	str = str[3:];
	326	a := r->execute(pat, str);
	327	if (a == nil)
	328	return str;
	329	(beg, end) := a[0];
	330	str = str[0:beg] + repl + str[end:];
	331	return squeeze_out(r, pat, repl, str);
	332	}

java/pkg2/java/io/File_L.m+27−0

@@ -0,0 +1,27 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	File_L : module
	4	{
	5	File_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	path : JString;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	exists0_Z : fn( this : ref File_obj) : int;
	13	canWrite0_Z : fn( this : ref File_obj) : int;
	14	canRead0_Z : fn( this : ref File_obj) : int;
	15	isFile0_Z : fn( this : ref File_obj) : int;
	16	isDirectory0_Z : fn( this : ref File_obj) : int;
	17	lastModified0_J : fn( this : ref File_obj) : big;
	18	length0_J : fn( this : ref File_obj) : big;
	19	mkdir0_Z : fn( this : ref File_obj) : int;
	20	renameTo0_rFile_Z : fn( this : ref File_obj, p0 : ref File_obj) : int;
	21	delete0_Z : fn( this : ref File_obj) : int;
	22	rmdir0_Z : fn( this : ref File_obj) : int;
	23	list0_aString : fn( this : ref File_obj) : JArrayJString;
	24	canonPath_rString_rString : fn( this : ref File_obj, p0 : JString) : JString;
	25	isAbsolute_Z : fn( this : ref File_obj) : int;
	26
	27	};

java/pkg2/java/io/FilenameFilter.java+0−0

Empty file added.

java/pkg2/java/io/FilterInputStream.java+0−0

Empty file added.

java/pkg2/java/io/FilterOutputStream.java+0−0

Empty file added.

java/pkg2/java/io/FilterReader.java+0−0

Empty file added.

java/pkg2/java/io/FilterWriter.java+0−0

Empty file added.

java/pkg2/java/io/IOException.java+0−0

Empty file added.

java/pkg2/java/io/InputStream.java+0−0

Empty file added.

java/pkg2/java/io/InputStreamReader.java+0−0

Empty file added.

java/pkg2/java/io/InterruptedIOException.java+0−0

Empty file added.

java/pkg2/java/io/InvalidClassException.java+0−0

Empty file added.

java/pkg2/java/io/InvalidObjectException.java+0−0

Empty file added.

java/pkg2/java/io/LineNumberInputStream.java+0−0

Empty file added.

java/pkg2/java/io/LineNumberReader.java+0−0

Empty file added.

java/pkg2/java/io/NotActiveException.java+0−0

Empty file added.

java/pkg2/java/io/NotSerializableExceptio.java+0−0

Empty file added.

java/pkg2/java/io/ObjectInput.java+0−0

Empty file added.

java/pkg2/java/io/ObjectInputStream.java+0−0

Empty file added.

java/pkg2/java/io/ObjectInputStream_L.b+397−0

@@ -0,0 +1,397 @@
	1	implement ObjectInputStream_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	sys : import jni;
	27	str : import jni;
	28	FALSE : import jni;
	29	TRUE : import jni;
	30	#<<
	31
	32	include "ObjectInputStream_L.m";
	33
	34	#>> extra post includes here
	35	include "workdir.m";
	36	include "regex.m";
	37	str_mod : String;
	38	ClassData, Value : import jni;
	39	cast : Cast;
	40	low : Low;
	41	#<<
	42
	43	init( jni_p : JNI )
	44	{
	45	# save java native inteface mod instance
	46	jni = jni_p;
	47	#>>extra initialization here
	48	sys = jni->sys;
	49	str_mod = jni->str;
	50	cast = jni->CastMod();
	51	low = jni->LowMod();
	52	#<<
	53	}
	54
	55	loadClass0_rClass_rString_rClass( this : ref ObjectInputStream_obj, p0 : JClass,p1 : JString) : JClass
	56	{#>>
	57	TRACE_1 := (this, p0);
	58	if(p1.str[0] == '[')
	59	return jni->LookupArrayClass(p1.str);
	60	else
	61	return jni->GetClassObject( jni->FindClass(p1.str) );
	62	}#<<
	63
	64	inputClassFields_rObject_rClass_aI_V( this : JObject, p0 : JObject,p1 : JClass,p2 : JArrayI)
	65	{#>>
	66	#p0 the object being inputted
	67	#p1 class being referred to
	68	#p2 fieldSequence array
	69
	70	ok : int;
	71	val : ref Value;
	72	#
	73	# get all fields except the transient and static
	74	#
	75	fields_n_sigs := jni->GetFieldSignatures(p1, (JNI->ACC_STATIC\|JNI->ACC_TRANSIENT));
	76	#
	77	# for each field, parse out the field name and signature. Then based on the
	78	# signature, call the appropriate read routine.
	79	#
	80	for (i:=0; i < len p2.ary; i += 2) {
	81	fldindex := p2.ary[i+1];
	82
	83	(str_part, tmp_str) := str_mod->splitl((fields_n_sigs.ary[fldindex]).str, " ");
	84	sig_part := tmp_str[1];
	85	#
	86	# call the appropriate read routine to get the value of this field
	87	#
	88	case sig_part {
	89	# SIGNATURE_BYTE
	90	'B' =>
	91	(val, ok) = jni->CallMethod(this, "readByte", "()B", nil);
	92	# SIGNATURE_CHAR
	93	'C' =>
	94	(val, ok) = jni->CallMethod(this, "readChar", "()C", nil);
	95	# SIGNATURE_FLOAT
	96	'F' =>
	97	(val, ok) = jni->CallMethod(this, "readFloat", "()F", nil);
	98	# SIGNATURE_DOUBLE
	99	'D' =>
	100	(val, ok) = jni->CallMethod(this, "readDouble", "()D", nil);
	101	# SIGNATURE_INT
	102	'I' =>
	103	(val, ok) = jni->CallMethod(this, "readInt", "()I", nil);
	104	# SIGNATURE_LONG
	105	'J' =>
	106	(val, ok) = jni->CallMethod(this, "readLong", "()J", nil);
	107	# SIGNATURE_SHORT
	108	'S' =>
	109	(val, ok) = jni->CallMethod(this, "readShort", "()S", nil);
	110	# SIGNATURE_BOOLEAN
	111	'Z' =>
	112	(val, ok) = jni->CallMethod(this, "readBoolean", "()Z", nil);
	113	# SIGNATURE_ARRAY
	114	'[' =>
	115	(val, ok) = jni->CallMethod(this, "readObject", "()Ljava/lang/Object;", nil);
	116	# SIGNATURE_CLASS
	117	'L' =>
	118	(val, ok) = jni->CallMethod(this, "readObject", "()Ljava/lang/Object;", nil);
	119	}
	120	#
	121	# now take that just readin value and store into the object.
	122	#
	123	if (ok == JNI->OK)
	124	jni->SetObjField(p0, str_part, val);
	125	}
	126	}#<<
	127
	128	inputArrayValues_rObject_rClass_V( this : JObject, p0 : JObject,p1 : JClass)
	129	{#>>
	130	# p0 is an array of Objects. We have to look at the signature
	131	# of the array to find what the Objects really are.
	132	#
	133	# p1 the class name of the elements of the array (this is also
	134	# the arrays signature)
	135	#
	136	# make sure this is an array we have. If so, get its length.
	137	#
	138	if ( jni->IsArray(p0) == JNI->FALSE) {
	139	jni->ThrowException("java.io.InvalidClassException", "Not an array");
	140	}
	141	length := jni->GetArrayLength(cast->ToJArray(p0));
	142	ok : int;
	143	val : ref Value;
	144
	145	#
	146	# dispatch on the signature of the array and read in each element.
	147	#
	148	i : int;
	149	case p1.aryname[1] {
	150	# SIGNATURE_BYTE
	151	'B' =>
	152	{
	153	mul_args := array[3] of ref Value;
	154	mul_args[0] = ref Value.TObject(p0);
	155	mul_args[1] = ref Value.TInt(0);
	156	mul_args[2] = ref Value.TInt(length);
	157	(val, ok) = jni->CallMethod(this, "readFully", "([BII)V", mul_args);
	158	}
	159	# SIGNATURE_CHAR
	160	'C' =>
	161	{
	162	JAChar := cast->ToJArrayI(p0);
	163	for (i = 0; i < length; i++) {
	164	(val, ok) = jni->CallMethod(this, "readChar", "()C", nil);
	165	JAChar.ary[i] = val.Char();
	166	}
	167	}
	168	# SIGNATURE_FLOAT
	169	'F' =>
	170	{
	171	JAFloat := cast->ToJArrayF(p0);
	172	for (i = 0; i < length; i++) {
	173	(val, ok) = jni->CallMethod(this, "readFloat", "()F", nil);
	174	JAFloat.ary[i] = val.Float();
	175	}
	176	}
	177	# SIGNATURE_DOUBLE
	178	'D' =>
	179	{
	180	JADouble := cast->ToJArrayD(p0);
	181	for (i = 0; i < length; i++) {
	182	(val, ok) = jni->CallMethod(this, "readDouble", "()D", nil);
	183	JADouble.ary[i] = val.Double();
	184	}
	185	}
	186	# SIGNATURE_INT
	187	'I' =>
	188	{
	189	JAInt := cast->ToJArrayI(p0);
	190	for (i = 0; i < length; i++) {
	191	(val, ok) = jni->CallMethod(this, "readInt", "()I", nil);
	192	JAInt.ary[i] = val.Int();
	193	}
	194	}
	195	# SIGNATURE_LONG
	196	'J' =>
	197	{
	198	JALong := cast->ToJArrayJ(p0);
	199	for (i = 0; i < length; i++) {
	200	(val, ok) = jni->CallMethod(this, "readLong", "()J", nil);
	201	JALong.ary[i] = val.Long();
	202	}
	203	}
	204	# SIGNATURE_SHORT
	205	'S' =>
	206	{
	207	JAShort := cast->ToJArrayI(p0);
	208	for (i = 0; i < length; i++) {
	209	(val, ok) = jni->CallMethod(this, "readShort", "()S", nil);
	210	JAShort.ary[i] = val.Short();
	211	}
	212	}
	213	# SIGNATURE_BOOLEAN
	214	'Z' =>
	215	{
	216	JABool := cast->ToJArrayZ(p0);
	217	for (i = 0; i < length; i++) {
	218	(val, ok) = jni->CallMethod(this, "readBoolean", "()Z", nil);
	219	JABool.ary[i] = byte val.Boolean();
	220	}
	221	}
	222	# SIGNATURE_ARRAY
	223	'[' =>
	224	{
	225	JAObj := cast->ToJArrayJObject(p0);
	226	for (i = 0; i < length; i++) {
	227	(val, ok) = jni->CallMethod(this, "readObject", "()Ljava/lang/Object;", nil);
	228	JAObj.ary[i] = val.Object();
	229	}
	230	}
	231	# SIGNATURE_CLASS
	232	'L' =>
	233	{
	234	JAObj := cast->ToJArrayJObject(p0);
	235	for (i = 0; i < length; i++) {
	236	(val, ok) = jni->CallMethod(this, "readObject", "()Ljava/lang/Object;", nil);
	237	JAObj.ary[i] = val.Object();
	238	}
	239	}
	240	}
	241	}#<<
	242
	243	#
	244	# Does class c directly implement interface iface?
	245	#
	246	directImp(c: ClassData, iface: string): int
	247	{
	248	l := c.interdirect;
	249	while(l != nil) {
	250	i := hd l;
	251	if(i.name == iface)
	252	return 1;
	253	l = tl l;
	254	}
	255	return 0;
	256	}
	257
	258	#
	259	# If c directly implements Externalizable, then call its default
	260	# constructor (if there is one).
	261	# Otherwise, c must directly implement Serializable. In this case,
	262	# find the nearest super that doesn't implement Serializable and call
	263	# its default constructor (if there is one).
	264	# In either case, if there is a constructor to call, then it must be public.
	265	# If not, an IllegalAccessException is thrown.
	266	#
	267
	268	callCtor(c: ClassData, o: JObject)
	269	{
	270	if(directImp(c, "java/io/Externalizable") == 0) {
	271	if(directImp(c, "java/io/Serializable") == 0)
	272	return;
	273	c = c.super;
	274	while(c != nil) {
	275	if(directImp(c, "java/io/Serializable") == 0)
	276	break;
	277	c = c.super;
	278	}
	279	}
	280	if(c == nil)
	281	return;
	282	(mod, ix) := jni->FindMethod(c, "<init>", "()V", JNI->METH_INIT);
	283	if(mod == nil)
	284	return;
	285	flags := jni->GetMethodFlags(c.this, "<init> ()V");
	286	if((flags & JNI->ACC_PUBLIC) == 0)
	287	jni->ThrowException("java.lang.IllegalAccessException", "");
	288	low->CallMethod(mod, ix, o, array[0] of ref Value, nil);
	289	}
	290
	291	#
	292	# Allocate a new object of class p0.
	293	#
	294	allocateNewObject_rClass_rClass_rObject(p0 : JClass, p1 : JClass) : JObject
	295	{#>>
	296	TRACE_1 := p1;
	297	o := jni->AllocObject(p0.class);
	298	callCtor(p0.class, o);
	299	return o;
	300	}#<<
	301
	302	allocateNewArray_rClass_I_rObject( p0 : JClass,p1 : int) : JObject
	303	{#>>
	304	#
	305	# p0 is the class of the array elements
	306	# p1 is number of elelments.
	307	#
	308	#
	309	# example transformation.....
	310	# jni->MkALong(array[p1] of big) ==> JArrayJ
	311	# cast->BigToJArray(JArrayJ (aka BigArray)) ==> JArray
	312	# cast->FromJArray(JArray) ==> JObject
	313	#
	314	case p0.aryname[1] {
	315	# SIGNATURE_BYTE
	316	'B' =>
	317	{
	318	# limbo array ==>JArrayB ==>JArray ==>JObject
	319	return (cast->FromJArray(cast->ByteToJArray(jni->MkAByte(array[p1] of byte))));
	320	}
	321	# SIGNATURE_CHAR
	322	'C' =>
	323	{
	324	# limbo array ==>JArrayC ==>JArray ==>JObject
	325	return (cast->FromJArray(cast->IntToJArray(jni->MkAChar(array[p1] of int))));
	326	}
	327	# SIGNATURE_FLOAT
	328	'F' =>
	329	{
	330	# limbo array ==>JArrayF ==>JArray ==>JObject
	331	return (cast->FromJArray(cast->RealToJArray(jni->MkAFloat(array[p1] of real))));
	332	}
	333	# SIGNATURE_DOUBLE
	334	'D' =>
	335	{
	336	# limbo array ==>JArrayD ==>JArray ==>JObject
	337	return (cast->FromJArray(cast->RealToJArray(jni->MkADouble(array[p1] of real))));
	338	}
	339	# SIGNATURE_INT
	340	'I' =>
	341	{
	342	# limbo array ==>JArrayI ==>JArray ==>JObject
	343	return (cast->FromJArray(cast->IntToJArray(jni->MkAInt(array[p1] of int))));
	344	}
	345	# SIGNATURE_LONG
	346	'J' =>
	347	{
	348	# limbo array ==>JArrayJ ==>JArray ==>JObject
	349	return (cast->FromJArray(cast->BigToJArray(jni->MkALong(array[p1] of big))));
	350	}
	351	# SIGNATURE_SHORT
	352	'S' =>
	353	{
	354	# limbo array ==>JArrayS ==>JArray ==>JObject
	355	return (cast->FromJArray(cast->IntToJArray(jni->MkAShort(array[p1] of int))));
	356	}
	357	# SIGNATURE_BOOLEAN
	358	'Z' =>
	359	{
	360	# limbo array ==>JArrayZ ==>JArray ==>JObject
	361	return (cast->FromJArray(cast->ByteToJArray(jni->MkABoolean(array[p1] of byte))));
	362	}
	363	# SIGNATURE_ARRAY
	364	'[' =>
	365	{
	366	objarray := cast->ObjectToJArray(jni->MkAObject(array[p1] of JObject));
	367	desc := jni->JSigToDescriptor(p0.aryname);
	368	objarray.dims = desc.dims;
	369	objarray.class = desc.class;
	370	objarray.primitive = desc.prim;
	371	return (cast->FromJArray(objarray));
	372	}
	373	# SIGNATURE_CLASS
	374	'L' =>
	375	{
	376	objarray := cast->ObjectToJArray(jni->MkAObject(array[p1] of JObject));
	377	objarray.class = jni->FindClass(p0.aryname[2:len p0.aryname-1]);
	378	return (cast->FromJArray(objarray));
	379	}
	380	}
	381	jni->ThrowException("java.io.InvalidClassException", "Unknown signature");
	382	return nil;
	383	}#<<
	384
	385	invokeObjectReader_rObject_rClass_Z( this : JObject, p0 : JObject,p1 : JClass) : int
	386	{#>>
	387	junk := p1;
	388	#
	389	# call readObject() on object "p0" with an argument of "this"
	390	#
	391	MyValueArray := array[] of {
	392	ref Value.TObject(this)
	393	};
	394	(a, b) := jni->CallMethod(p0, "readObject", "(Ljava/io/ObjectInputStream;)V", MyValueArray);
	395
	396	return b == JNI->OK;
	397	}#<<

java/pkg2/java/io/ObjectInputStream_L.m+36−0

@@ -0,0 +1,36 @@
	1	# generated file edit with care
	2
	3	ObjectInputStream_L : module
	4	{
	5	ObjectInputStream_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	in : JObject;
	9	count : int;
	10	blockDataMode : byte;
	11	dis : JObject;
	12	abortIOException : JObject;
	13	abortClassNotFoundException : JObject;
	14	currentObject : JObject;
	15	currentClassDesc : JObject;
	16	currentClass : JClass;
	17	classdesc : JArrayJObject;
	18	# classes : JArrayJClass;
	19	spClass : int;
	20	wireHandle2Object : JObject;
	21	nextWireOffset : int;
	22	callbacks : JObject;
	23	recursionDepth : int;
	24	currCode : byte;
	25	enableResolve : byte;
	26	};
	27
	28	init : fn( jni_p : JNI );
	29	loadClass0_rClass_rString_rClass : fn( this : ref ObjectInputStream_obj, p0 : JClass,p1 : JString) : JClass;
	30	inputClassFields_rObject_rClass_aI_V : fn( this : JObject, p0 : JObject,p1 : JClass,p2 : JArrayI);
	31	inputArrayValues_rObject_rClass_V : fn( this : JObject, p0 : JObject,p1 : JClass);
	32	allocateNewObject_rClass_rClass_rObject : fn( p0 : JClass,p1 : JClass) : JObject;
	33	allocateNewArray_rClass_I_rObject : fn( p0 : JClass,p1 : int) : JObject;
	34	invokeObjectReader_rObject_rClass_Z : fn( this : JObject, p0 : JObject,p1 : JClass) : int;
	35
	36	};

java/pkg2/java/io/ObjectInputValidation.java+0−0

Empty file added.

java/pkg2/java/io/ObjectOutput.java+0−0

Empty file added.

java/pkg2/java/io/ObjectOutputStream.java+0−0

Empty file added.

java/pkg2/java/io/ObjectOutputStream_L.b+257−0

@@ -0,0 +1,257 @@
	1	implement ObjectOutputStream_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	sys : import jni;
	27	str : import jni;
	28	FALSE : import jni;
	29	TRUE : import jni;
	30	#<<
	31
	32	include "ObjectOutputStream_L.m";
	33
	34	#>> extra post includes here
	35	include "workdir.m";
	36	include "regex.m";
	37	str_mod : String;
	38	Value : import jni;
	39	cast : Cast;
	40	#<<
	41
	42	init( jni_p : JNI )
	43	{
	44	# save java native inteface mod instance
	45	jni = jni_p;
	46	#>>extra initialization here
	47	sys = jni->sys;
	48	str_mod = jni->str;
	49	cast = jni->CastMod();
	50	#<<
	51	}
	52
	53	outputClassFields_rObject_rClass_aI_V( this : JObject, p0 : JObject,p1 : JClass,p2 : JArrayI)
	54	{#>>
	55
	56	class := jni->GetObjectClass(p0);
	57	#p0 the object being outputted
	58	#p1 class being referred to
	59	#p2 fieldSequence array
	60
	61	a : ref Value;
	62	b : int;
	63	#
	64	# get all fields except the transient and static
	65	#
	66	fields_n_sigs := jni->GetFieldSignatures(p1, (JNI->ACC_STATIC\|JNI->ACC_TRANSIENT));
	67	#
	68	# for each field, parse out the field name and signature. Then based on the
	69	# signature, call the appropriate write routine.
	70	#
	71	for (i:=0; i < len p2.ary; i += 2) {
	72	fldindex := p2.ary[i+1];
	73
	74	(str_part, tmp_str) := str_mod->splitl((fields_n_sigs.ary[fldindex]).str, " ");
	75	sig_part := tmp_str[1];
	76	#
	77	# get the value of this field and call the write routine
	78	#
	79	argv := array[] of {
	80	jni->GetObjField(p0, str_part, tmp_str[1:])
	81	};
	82	pick v := argv[0] {
	83	TByte =>
	84	argv[0] = ref Value.TInt(v.jbyte);
	85	TChar =>
	86	argv[0] = ref Value.TInt(v.jchar);
	87	TShort =>
	88	argv[0] = ref Value.TInt(v.jshort);
	89	}
	90	case sig_part {
	91	# SIGNATURE_BYTE
	92	'B' =>
	93	(a, b) = jni->CallMethod(this, "writeByte", "(I)V", argv);
	94	# SIGNATURE_CHAR
	95	'C' =>
	96	(a, b) = jni->CallMethod(this, "writeChar", "(I)V", argv);
	97	# SIGNATURE_FLOAT
	98	'F' =>
	99	(a, b) = jni->CallMethod(this, "writeFloat", "(F)V", argv);
	100	# SIGNATURE_DOUBLE
	101	'D' =>
	102	(a, b) = jni->CallMethod(this, "writeDouble", "(D)V", argv);
	103	# SIGNATURE_INT
	104	'I' =>
	105	(a, b) = jni->CallMethod(this, "writeInt", "(I)V", argv);
	106	# SIGNATURE_LONG
	107	'J' =>
	108	(a, b) = jni->CallMethod(this, "writeLong", "(J)V", argv);
	109	# SIGNATURE_SHORT
	110	'S' =>
	111	(a, b) = jni->CallMethod(this, "writeShort", "(I)V", argv);
	112	# SIGNATURE_BOOLEAN
	113	'Z' =>
	114	(a, b) = jni->CallMethod(this, "writeBoolean", "(Z)V", argv);
	115	# SIGNATURE_ARRAY
	116	'[' =>
	117	(a, b) = jni->CallMethod(this, "writeObject", "(Ljava/lang/Object;)V", argv);
	118	# SIGNATURE_CLASS
	119	'L' =>
	120	(a, b) = jni->CallMethod(this, "writeObject", "(Ljava/lang/Object;)V", argv);
	121	}
	122	}
	123	}#<<
	124
	125	outputArrayValues_rObject_rClass_V( this : JObject, p0 : JObject,p1 : JClass)
	126	{#>>
	127	# p0 the array being outputted
	128	# p1 the class name of the elements of the array (this is also the arrays signature)
	129	#
	130	#
	131	# make sure this is an array we have. If so, get the
	132	# length and write it out.
	133	#
	134	if ( jni->IsArray(p0) == JNI->FALSE) {
	135	jni->ThrowException("java.io.InvalidClassException", "Not an array");
	136	}
	137	length := jni->GetArrayLength(cast->ToJArray(p0));
	138	argv := array[1] of ref Value;
	139	argv[0] = ref Value.TInt(length);
	140	(a, b) := jni->CallMethod(this, "writeInt", "(I)V", argv);
	141
	142	#
	143	# dispatch on the signature of the array and print out each element.
	144	#
	145	i : int;
	146	case p1.aryname[1] {
	147	# SIGNATURE_BYTE
	148	'B' =>
	149	{
	150	JAByte := cast->ToJArrayB(p0);
	151	for (i = 0; i < length; i++) {
	152	argv[0] = ref Value.TInt(int JAByte.ary[i]);
	153	(a, b) = jni->CallMethod(this, "writeByte", "(I)V", argv);
	154	}
	155	}
	156	# SIGNATURE_CHAR
	157	'C' =>
	158	{
	159	JAChar := cast->ToJArrayI(p0);
	160	for (i = 0; i < length; i++) {
	161	argv[0] = ref Value.TInt(JAChar.ary[i]);
	162	(a, b) = jni->CallMethod(this, "writeChar", "(I)V", argv);
	163	}
	164	}
	165	# SIGNATURE_FLOAT
	166	'F' =>
	167	{
	168	JAFloat := cast->ToJArrayF(p0);
	169	for (i = 0; i < length; i++) {
	170	argv[0] = ref Value.TFloat(JAFloat.ary[i]);
	171	(a, b) = jni->CallMethod(this, "writeFloat", "(F)V", argv);
	172	}
	173	}
	174	# SIGNATURE_DOUBLE
	175	'D' =>
	176	{
	177	JADouble := cast->ToJArrayD(p0);
	178	for (i = 0; i < length; i++) {
	179	argv[0] = ref Value.TDouble(JADouble.ary[i]);
	180	(a, b) = jni->CallMethod(this, "writeDouble", "(D)V", argv);
	181	}
	182	}
	183	# SIGNATURE_INT
	184	'I' =>
	185	{
	186	JAInt := cast->ToJArrayI(p0);
	187	for (i = 0; i < length; i++) {
	188	argv[0] = ref Value.TInt(JAInt.ary[i]);
	189	(a, b) = jni->CallMethod(this, "writeInt", "(I)V", argv);
	190	}
	191	}
	192	# SIGNATURE_LONG
	193	'J' =>
	194	{
	195	JALong := cast->ToJArrayJ(p0);
	196	for (i = 0; i < length; i++) {
	197	argv[0] = ref Value.TLong(JALong.ary[i]);
	198	(a, b) = jni->CallMethod(this, "writeLong", "(J)V", argv);
	199	}
	200	}
	201	# SIGNATURE_SHORT
	202	'S' =>
	203	{
	204	JAShort := cast->ToJArrayI(p0);
	205	for (i = 0; i < length; i++) {
	206	argv[0] = ref Value.TInt(JAShort.ary[i]);
	207	(a, b) = jni->CallMethod(this, "writeShort", "(I)V", argv);
	208	}
	209	}
	210	# SIGNATURE_BOOLEAN
	211	'Z' =>
	212	{
	213	JABool := cast->ToJArrayZ(p0);
	214	for (i = 0; i < length; i++) {
	215	argv[0] = ref Value.TBoolean(int JABool.ary[i]);
	216	(a, b) = jni->CallMethod(this, "writeBoolean", "(Z)V", argv);
	217	}
	218	}
	219	# SIGNATURE_ARRAY
	220	'[' =>
	221	{
	222	JAObj := cast->ToJArrayJObject(p0);
	223	for (i = 0; i < length; i++) {
	224	argv[0] = ref Value.TObject(JAObj.ary[i]);
	225	(a, b) = jni->CallMethod(this, "writeObject", "(Ljava/lang/Object;)V", argv);
	226	}
	227	}
	228	# SIGNATURE_CLASS
	229	'L' =>
	230	{
	231	JAObj := cast->ToJArrayJObject(p0);
	232	for (i = 0; i < length; i++) {
	233	argv[0] = ref Value.TObject(JAObj.ary[i]);
	234	(a, b) = jni->CallMethod(this, "writeObject", "(Ljava/lang/Object;)V", argv);
	235	}
	236	}
	237	}
	238	}#<<
	239
	240	invokeObjectWriter_rObject_rClass_Z( this : JObject, p0 : JObject,p1 : JClass) : int
	241	{#>>
	242	junk := p1;
	243	#
	244	# call writeObject() on object "p0" with an argument of "this"
	245	#
	246	MyValueArray := array[] of {
	247	ref Value.TObject(this)
	248	};
	249	(a, b) := jni->CallMethod(p0, "writeObject", "(Ljava/io/ObjectOutputStream;)V", MyValueArray);
	250
	251	return b == JNI->OK;
	252	}#<<
	253
	254	getRefHashCode_rObject_I( p0 : JObject) : int
	255	{#>>
	256	return( jni->IdentityHash(p0) );
	257	}#<<

java/pkg2/java/io/ObjectOutputStream_L.m+33−0

@@ -0,0 +1,33 @@
	1	# generated file edit with care
	2
	3	ObjectOutputStream_L : module
	4	{
	5	ObjectOutputStream_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	blockDataMode : byte;
	9	buf : JArrayB;
	10	count : int;
	11	out : JObject;
	12	dos : JObject;
	13	abortIOException : JObject;
	14	wireHandle2Object : JArrayJObject;
	15	wireNextHandle : JArrayI;
	16	wireHash2Handle : JArrayI;
	17	nextWireOffset : int;
	18	currentObject : JObject;
	19	currentClassDesc : JObject;
	20	classDescStack : JObject;
	21	enableReplace : byte;
	22	replaceObjects : JArrayJObject;
	23	nextReplaceOffset : int;
	24	recursionDepth : int;
	25	};
	26
	27	init : fn( jni_p : JNI );
	28	outputClassFields_rObject_rClass_aI_V : fn( this : JObject, p0 : JObject,p1 : JClass,p2 : JArrayI);
	29	outputArrayValues_rObject_rClass_V : fn( this : JObject, p0 : JObject,p1 : JClass);
	30	invokeObjectWriter_rObject_rClass_Z : fn( this : JObject, p0 : JObject,p1 : JClass) : int;
	31	getRefHashCode_rObject_I : fn( p0 : JObject) : int;
	32
	33	};

java/pkg2/java/io/ObjectStreamClass.java+0−0

Empty file added.

java/pkg2/java/io/ObjectStreamClass_L.b+164−0

@@ -0,0 +1,164 @@
	1	implement ObjectStreamClass_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	sys : import jni;
	27	str : import jni;
	28	FALSE : import jni;
	29	TRUE : import jni;
	30	#<<
	31
	32	include "ObjectStreamClass_L.m";
	33
	34	#>> extra post includes here
	35	include "workdir.m";
	36	include "regex.m";
	37	str_mod : String;
	38	Value : import jni;
	39	cast : Cast;
	40	#<<
	41
	42	init( jni_p : JNI )
	43	{
	44	# save java native inteface mod instance
	45	jni = jni_p;
	46	#>>extra initialization here
	47	sys = jni->sys;
	48	str_mod = jni->str;
	49	cast = jni->CastMod();
	50	#<<
	51	}
	52
	53	getClassAccess_rClass_I( p0 : JClass) : int
	54	{#>>
	55	return (jni->GetClassFlags(p0) & JNI->ACC_WRITTEN_FLAGS);
	56	}#<<
	57
	58	getMethodSignatures_rClass_aString( p0 : JClass) : JArrayJString
	59	{#>>
	60	# Return an array of Strings containing the method names and signatures.
	61	return (jni->GetMethodSignatures(p0, 0));
	62	}#<<
	63
	64	getMethodAccess_rClass_rString_I( p0 : JClass,p1 : JString) : int
	65	{#>>
	66	return (jni->GetMethodFlags(p0, p1.str) & JNI->ACC_WRITTEN_FLAGS);
	67	}#<<
	68
	69	getFieldSignatures_rClass_aString( p0 : JClass) : JArrayJString
	70	{#>>
	71	# Return an array of Strings containing the field names and signatures.
	72	return (jni->GetFieldSignatures(p0, 0));
	73	}#<<
	74
	75	getFieldAccess_rClass_rString_I( p0 : JClass,p1 : JString) : int
	76	{#>>
	77	return (jni->GetFieldFlags(p0, p1.str) & JNI->ACC_WRITTEN_FLAGS);
	78	}#<<
	79
	80	getFields0_rClass_aObjectStreamField( this : ref ObjectStreamClass_obj, p0 : JClass) : JArrayJObject
	81	{#>>
	82	#
	83	# Return an array of ObjectStreamField objects for each non-static and
	84	# non-transient field of the specified class. First find and load the
	85	# ObjectStreamField class.
	86	#
	87	junk := this;
	88	cl_data := jni->FindClass("java/io/ObjectStreamField");
	89	if (cl_data == nil)
	90	jni->FatalError("ObjectStreamClass could not load java/io/ObjectStreamField");
	91
	92	#
	93	# Get a list of all non-static and non transient fields of this class. If there are
	94	# non, jni->GetFieldSignatures() returns an array of length 0.
	95	#
	96	fields_n_sigs := jni->GetFieldSignatures(p0, (JNI->ACC_STATIC\|JNI->ACC_TRANSIENT));
	97
	98	MyValueArray := array[4] of ref Value;
	99	MyObjectArray := array[len fields_n_sigs.ary] of JObject;
	100
	101	#
	102	# for each non-static and non-transient fields of this class...
	103	# call constructor for ObjectStreamField as follows
	104	# ObjectStreamField(n, sig, o, t)
	105	# where n is field name, sig is first byte of field signature
	106	# o is index into class field table and if sig != [ or L,
	107	# t is NULL. If sig is [ or L, t is signature.
	108	# For each of those constructors that are created, stuff them into
	109	# an array entry.
	110	#
	111	for (i:=0; i < len fields_n_sigs.ary; i++) {
	112	#
	113	# Each entry in fields_n_sigs.ary is of the format <name> <sig> where name is
	114	# the name of the field and signature is its full signature. Seperate them
	115	# out and format a call instruction to call the constructor for ObjectStreamField.
	116	#
	117	(name, full_sig) := str_mod->splitl((fields_n_sigs.ary[i]).str, " ");
	118	full_sig = full_sig[1:];
	119
	120	MyValueArray[0] = ref Value.TObject(cast->FromJString(jni->NewString(name)));
	121	MyValueArray[1] = ref Value.TChar(full_sig[0]);
	122	# NOT offset of field in object (but does it matter)???
	123	MyValueArray[2] = ref Value.TInt(i);
	124	if ((full_sig[0] == 'L') \|\| (full_sig[0] == '['))
	125	MyValueArray[3] = ref Value.TObject(cast->FromJString(jni->NewString(full_sig)));
	126	else
	127	MyValueArray[3] = ref Value.TObject(nil);
	128
	129	jObj := jni->AllocObject(cl_data);
	130	(ret, ok) := jni->CallMethod(jObj, "<init>", "(Ljava/lang/String;CILjava/lang/String;)V", MyValueArray);
	131	if (ok != JNI->OK)
	132	jni->FatalError("ObjectStreamClass could not create ObjectStreamField");
	133	#
	134	# make an array of these created objects.
	135	#
	136	MyObjectArray[i] = jObj;
	137	}
	138	#
	139	# Finally, return the full array.
	140	#
	141	jary := jni->MkAObject(MyObjectArray);
	142	jary.class = cl_data;
	143	return jary;
	144	}#<<
	145
	146	getSerialVersionUID_rClass_J( p0 : JClass) : big
	147	{#>>
	148	ret : big;
	149	val : ref Value;
	150	val = jni->GetStaticField(p0.class, "serialVersionUID", "J");
	151	if (val != nil)
	152	ret = val.Long();
	153	else
	154	ret = big 0;
	155	return ret;
	156	}#<<
	157
	158	hasWriteObject_rClass_Z( p0 : JClass) : int
	159	{#>>
	160	if (jni->GetMethodFlags(p0, "writeObject (Ljava/io/ObjectOutputStream;)V") != 0)
	161	return JNI->TRUE;
	162	else
	163	return JNI->FALSE;
	164	}#<<

java/pkg2/java/io/ObjectStreamClass_L.m+30−0

@@ -0,0 +1,30 @@
	1	# generated file edit with care
	2
	3	ObjectStreamClass_L : module
	4	{
	5	ObjectStreamClass_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	name : JString;
	9	superclass : ref ObjectStreamClass_obj;
	10	serializable : byte;
	11	externalizable : byte;
	12	fields : JArrayJObject;
	13	ofClass : JClass;
	14	suid : big;
	15	fieldSequence : JArrayI;
	16	hasWriteObjectMethod : byte;
	17	localClassDesc : ref ObjectStreamClass_obj;
	18	};
	19
	20	init : fn( jni_p : JNI );
	21	getClassAccess_rClass_I : fn( p0 : JClass) : int;
	22	getMethodSignatures_rClass_aString : fn( p0 : JClass) : JArrayJString;
	23	getMethodAccess_rClass_rString_I : fn( p0 : JClass,p1 : JString) : int;
	24	getFieldSignatures_rClass_aString : fn( p0 : JClass) : JArrayJString;
	25	getFieldAccess_rClass_rString_I : fn( p0 : JClass,p1 : JString) : int;
	26	getFields0_rClass_aObjectStreamField : fn( this : ref ObjectStreamClass_obj, p0 : JClass) : JArrayJObject;
	27	getSerialVersionUID_rClass_J : fn( p0 : JClass) : big;
	28	hasWriteObject_rClass_Z : fn( p0 : JClass) : int;
	29
	30	};

java/pkg2/java/io/ObjectStreamConstants.java+0−0

Empty file added.

java/pkg2/java/io/ObjectStreamException.java+0−0

Empty file added.

java/pkg2/java/io/ObjectStreamField.java+0−0

Empty file added.

java/pkg2/java/io/OptionalDataException.java+0−0

Empty file added.

java/pkg2/java/io/OutputStream.java+0−0

Empty file added.

java/pkg2/java/io/OutputStreamWriter.java+0−0

Empty file added.

java/pkg2/java/io/PipedInputStream.java+0−0

Empty file added.

java/pkg2/java/io/PipedOutputStream.java+0−0

Empty file added.

java/pkg2/java/io/PipedReader.java+0−0

Empty file added.

java/pkg2/java/io/PipedWriter.java+0−0

Empty file added.

java/pkg2/java/io/PrintStream.java+0−0

Empty file added.

java/pkg2/java/io/PrintWriter.java+0−0

Empty file added.

java/pkg2/java/io/PushbackInputStream.java+0−0

Empty file added.

java/pkg2/java/io/PushbackReader.java+0−0

Empty file added.

java/pkg2/java/io/RandomAccessFile.java+0−0

Empty file added.

java/pkg2/java/io/RandomAccessFile_L.b+190−0

@@ -0,0 +1,190 @@
	1	implement RandomAccessFile_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	sys : import jni;
	27	FALSE : import jni;
	28	TRUE : import jni;
	29	include "FileDescriptor_L.m";
	30	FileDescriptor_obj : import FileDescriptor_L;
	31	#<<
	32
	33	include "RandomAccessFile_L.m";
	34
	35	#>> extra post includes here
	36	#<<
	37
	38	init( jni_p : JNI )
	39	{
	40	# save java native inteface mod instance
	41	jni = jni_p;
	42	#>>extra initialization here
	43	sys = jni->sys;
	44	#<<
	45	}
	46
	47	open_rString_Z_V( this : ref RandomAccessFile_obj, p0 : JString,p1 : int)
	48	{#>>
	49	# p0 == file name
	50	# p1 == writable flag
	51
	52	if ((this.fd == nil) \|\| (p0 == nil) \|\| (p0.str == nil))
	53	jni->ThrowException("java.lang.NullPointerException", "null path name");
	54
	55	if (p1 == TRUE){
	56	this.fd.fd = sys->open(p0.str, sys->ORDWR);
	57	if(this.fd.fd == nil)
	58	this.fd.fd = sys->create(p0.str, Sys->ORDWR, 8r640);
	59	}
	60	else
	61	this.fd.fd = sys->open(p0.str, sys->OREAD);
	62
	63	if(this.fd.fd == nil)
	64	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	65	}#<<
	66
	67	read_I( this : ref RandomAccessFile_obj) : int
	68	{#>>
	69	buf := array[1] of byte;
	70
	71	if ((this.fd == nil) \|\| (this.fd.fd == nil))
	72	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	73
	74	readin := sys->read(this.fd.fd, buf, 1);
	75	if (readin == 0) # EOF
	76	return -1;
	77
	78	if (readin < 0)
	79	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	80	return (int buf[0]);
	81	}#<<
	82
	83	FD: import Sys;
	84	stderr: ref FD;
	85	readBytes_aB_I_I_I( this : ref RandomAccessFile_obj, p0 : JArrayB,p1 : int,p2 : int) : int
	86	{#>>
	87	# p0 == buffer for read in data
	88	# p1 == offset in buffer to start to place data
	89	# p2 == amount of data to read in
	90
	91	if ((this.fd == nil) \|\| (this.fd.fd == nil))
	92	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	93
	94	if ((p0 == nil) \|\| (p0.ary == nil))
	95	jni->ThrowException("java.lang.NullPointerException", "null array");
	96
	97	if ((p1 < 0) \|\| (p1 > len p0.ary))
	98	jni->ThrowException("java.lang.ArrayIndexOutOfBoundsException", nil);
	99
	100	if ((p1 + p2) > len p0.ary)
	101	p2 = (len p0.ary) - p1;
	102
	103	if (p2 <= 0)
	104	jni->ThrowException("java.lang.ArrayIndexOutOfBoundsException",
	105	nil);
	106
	107	n := sys->read(this.fd.fd, p0.ary[p1:len p0.ary], p2);
	108	if (n == 0) # EOF
	109	return -1;
	110
	111	if (n < 0)
	112	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	113	return n;
	114	}#<<
	115
	116	write_I_V( this : ref RandomAccessFile_obj, p0 : int)
	117	{#>>
	118	c := array[1] of byte;
	119	c[0] = byte p0;
	120
	121	if ((this.fd == nil) \|\| (this.fd.fd == nil))
	122	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	123
	124	if (sys->write(this.fd.fd, c, 1) != 1)
	125	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	126	}#<<
	127
	128	writeBytes_aB_I_I_V( this : ref RandomAccessFile_obj, p0 : JArrayB,p1 : int,p2 : int)
	129	{#>>
	130	# p0 == buffer array to write from
	131	# p1 == offset in buffer
	132	# p2 == amount to write out
	133
	134	if ((this.fd == nil) \|\| (this.fd.fd == nil))
	135	jni->ThrowException("java.lang.NullPointerException", "null FileDescriptor");
	136	if ((p0 == nil) \|\| (p0.ary == nil))
	137	jni->ThrowException("java.lang.NullPointerException", nil);
	138	if ((p1 < 0) \|\| (p2 < 0) \|\| (p1 + p2 > (len p0.ary)))
	139	jni->ThrowException("java.lang.ArrayIndexOutOfBoundsException", nil);
	140
	141	n := 0;
	142	while (p2 > 0) {
	143	n = sys->write(this.fd.fd, p0.ary[p1:len p0.ary], p2);
	144	if (n == -1) {
	145	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	146	break;
	147	}
	148	p1 += n;
	149	p2 -= n;
	150	}
	151	}#<<
	152
	153	getFilePointer_J( this : ref RandomAccessFile_obj) : big
	154	{#>>
	155	if (this.fd == nil)
	156	jni->ThrowException("java.io.IOException", "this.fd nil");
	157	cur := sys->seek(this.fd.fd, 0, sys->SEEKRELA);
	158	if (cur < 0)
	159	jni->ThrowException("java.io.IOException", sys->sprint("%r"));
	160	return (big cur);
	161	}#<<
	162
	163	seek_J_V( this : ref RandomAccessFile_obj, p0 : big)
	164	{#>>
	165	if (this.fd == nil)
	166	jni->ThrowException("java.io.IOException", "this.fd nil");
	167	sys->seek(this.fd.fd, (int p0), sys->SEEKSTART);
	168	}#<<
	169
	170	length_J( this : ref RandomAccessFile_obj) : big
	171	{#>>
	172	if (this.fd == nil)
	173	jni->ThrowException("java.io.IOException", "this.fd nil");
	174	cur := sys->seek(this.fd.fd, 0, sys->SEEKRELA);
	175	end := sys->seek(this.fd.fd, 0, sys->SEEKEND);
	176	sys->seek(this.fd.fd, cur, sys->SEEKSTART);
	177
	178	return (big end);
	179	}#<<
	180
	181	close_V( this : ref RandomAccessFile_obj)
	182	{#>>
	183	if (this.fd != nil)
	184	this.fd.fd = nil;
	185	}#<<
	186
	187
	188
	189
	190

java/pkg2/java/io/RandomAccessFile_L.m+22−0

@@ -0,0 +1,22 @@
	1	# javal v1.3 generated file: edit with care
	2
	3	RandomAccessFile_L : module
	4	{
	5	RandomAccessFile_obj : adt
	6	{
	7	cl_mod : ClassModule;
	8	fd : ref FileDescriptor_obj;
	9	};
	10
	11	init : fn( jni_p : JNI );
	12	open_rString_Z_V : fn( this : ref RandomAccessFile_obj, p0 : JString,p1 : int);
	13	read_I : fn( this : ref RandomAccessFile_obj) : int;
	14	readBytes_aB_I_I_I : fn( this : ref RandomAccessFile_obj, p0 : JArrayB,p1 : int,p2 : int) : int;
	15	write_I_V : fn( this : ref RandomAccessFile_obj, p0 : int);
	16	writeBytes_aB_I_I_V : fn( this : ref RandomAccessFile_obj, p0 : JArrayB,p1 : int,p2 : int);
	17	getFilePointer_J : fn( this : ref RandomAccessFile_obj) : big;
	18	seek_J_V : fn( this : ref RandomAccessFile_obj, p0 : big);
	19	length_J : fn( this : ref RandomAccessFile_obj) : big;
	20	close_V : fn( this : ref RandomAccessFile_obj);
	21
	22	};

java/pkg2/java/io/Reader.java+0−0

Empty file added.

java/pkg2/java/io/SequenceInputStream.java+0−0

Empty file added.

java/pkg2/java/io/Serializable.java+0−0

Empty file added.

java/pkg2/java/io/StreamCorruptedExceptio.java+0−0

Empty file added.

java/pkg2/java/io/StreamTokenizer.java+0−0

Empty file added.

java/pkg2/java/io/StringBufferInputStream.java+0−0

Empty file added.

java/pkg2/java/io/StringReader.java+0−0

Empty file added.

java/pkg2/java/io/StringWriter.java+0−0

Empty file added.

java/pkg2/java/io/SyncFailedException.java+0−0

Empty file added.

java/pkg2/java/io/UTFDataFormatException.java+0−0

Empty file added.

java/pkg2/java/io/UnsupportedEncodingExce.java+0−0

Empty file added.

java/pkg2/java/io/WriteAbortedException.java+0−0

Empty file added.

java/pkg2/java/io/Writer.java+0−0

Empty file added.

java/pkg2/java/io/mkfile+150−0

@@ -0,0 +1,150 @@
	1	<../../../../mkconfig
	2
	3	TARG=\
	4	BufferedInputStream.dis\
	5	BufferedOutputStream.dis\
	6	BufferedReader.dis\
	7	BufferedWriter.dis\
	8	ByteArrayInputStream.dis\
	9	ByteArrayOutputStream.dis\
	10	CharArrayReader.dis\
	11	CharArrayWriter.dis\
	12	# for CharConversionException.dis\
	13	oF8WXXue0VYZof82fzj4L.dis\
	14	DataInput.dis\
	15	DataInputStream.dis\
	16	DataOutput.dis\
	17	DataOutputStream.dis\
	18	EOFException.dis\
	19	Externalizable.dis\
	20	File.dis\
	21	FileDescriptor.dis\
	22	FileInputStream.dis\
	23	FileNotFoundException.dis\
	24	FileOutputStream.dis\
	25	FileReader.dis\
	26	FileWriter.dis\
	27	FilenameFilter.dis\
	28	FilterInputStream.dis\
	29	FilterOutputStream.dis\
	30	FilterReader.dis\
	31	FilterWriter.dis\
	32	IOException.dis\
	33	InputStream.dis\
	34	InputStreamReader.dis\
	35	# for InterruptedIOException.dis\
	36	Udmf2Su14O7L1V-QzaTq3.dis\
	37	InvalidClassException.dis\
	38	# for InvalidObjectException.dis\
	39	PjqhaWOg4nDK5hla7XFmv.dis\
	40	LineNumberInputStream.dis\
	41	LineNumberReader.dis\
	42	NotActiveException.dis\
	43	# for NotSerializableException.dis\
	44	YBCI4zMUNV+Uc45idEPcv.dis\
	45	ObjectInput.dis\
	46	ObjectInputStream.dis\
	47	ObjectInputValidation.dis\
	48	ObjectOutput.dis\
	49	ObjectOutputStream.dis\
	50	ObjectStreamClass.dis\
	51	# for ObjectStreamClassEntry.dis\
	52	6T1LdH4wdbOUJeqUfASeI.dis\
	53	ObjectStreamConstants.dis\
	54	ObjectStreamException.dis\
	55	ObjectStreamField.dis\
	56	OptionalDataException.dis\
	57	OutputStream.dis\
	58	OutputStreamWriter.dis\
	59	PipedInputStream.dis\
	60	PipedOutputStream.dis\
	61	PipedReader.dis\
	62	PipedWriter.dis\
	63	PrintStream.dis\
	64	PrintWriter.dis\
	65	PushbackInputStream.dis\
	66	PushbackReader.dis\
	67	RandomAccessFile.dis\
	68	Reader.dis\
	69	SequenceInputStream.dis\
	70	Serializable.dis\
	71	# for StreamCorruptedException.dis\
	72	7Ev9-si8zsgglOEBSxbM3.dis\
	73	StreamTokenizer.dis\
	74	# for StringBufferInputStream.dis\
	75	O+cE9tcuJ1-znyckKtvEt.dis\
	76	StringReader.dis\
	77	StringWriter.dis\
	78	SyncFailedException.dis\
	79	# for UTFDataFormatException.dis\
	80	VgQ9w-N7w2YXJglmrtjzJ.dis\
	81	# for UnsupportedEncodingException.dis\
	82	34nQVDtVtK+3NDDpbkN7j.dis\
	83	ValidationCallback.dis\
	84	WriteAbortedException.dis\
	85	Writer.dis\
	86	# Limbo code\
	87	FileDescriptor_L.dis\
	88	FileInputStream_L.dis\
	89	FileOutputStream_L.dis\
	90	File_L.dis\
	91	ObjectInputStream_L.dis\
	92	ObjectOutputStream_L.dis\
	93	ObjectStreamClass_L.dis\
	94	RandomAccessFile_L.dis\
	95
	96	MODULES=\
	97	$ROOT/java/module/classloader.m\
	98	$ROOT/java/module/jni.m\
	99	$ROOT/java/module/cast.m\
	100	FileDescriptor_L.m\
	101	FileInputStream_L.m\
	102	FileOutputStream_L.m\
	103	File_L.m\
	104	ObjectInputStream_L.m\
	105	ObjectOutputStream_L.m\
	106	ObjectStreamClass_L.m\
	107	RandomAccessFile_L.m\
	108
	109	SYSMODULES=\
	110	draw.m\
	111	hash.m\
	112	keyring.m\
	113	loader.m\
	114	math.m\
	115	string.m\
	116	sys.m\
	117
	118	DISBIN=$ROOT/java/dis/java/java/io
	119
	120	<$ROOT/mkfiles/mkjava
	121
	122	oF8WXXue0VYZof82fzj4L.dis: CharConversionException.class
	123	j2d CharConversionException.class
	124
	125	Udmf2Su14O7L1V-QzaTq3.dis: InterruptedIOException.class
	126	j2d InterruptedIOException.class
	127
	128	PjqhaWOg4nDK5hla7XFmv.dis: InvalidObjectException.class
	129	j2d InvalidObjectException.class
	130
	131	YBCI4zMUNV+Uc45idEPcv.dis: NotSerializableException.class
	132	j2d NotSerializableException.class
	133
	134	6T1LdH4wdbOUJeqUfASeI.dis: ObjectStreamClass.class
	135	j2d ObjectStreamClassEntry.class
	136
	137	7Ev9-si8zsgglOEBSxbM3.dis: StreamCorruptedException.class
	138	j2d StreamCorruptedException.class
	139
	140	O+cE9tcuJ1-znyckKtvEt.dis: StringBufferInputStream.class
	141	j2d StringBufferInputStream.class
	142
	143	VgQ9w-N7w2YXJglmrtjzJ.dis: UTFDataFormatException.class
	144	j2d UTFDataFormatException.class
	145
	146	34nQVDtVtK+3NDDpbkN7j.dis: UnsupportedEncodingException.class
	147	j2d UnsupportedEncodingException.class
	148
	149	ValidationCallback.dis: ObjectInputStream.class
	150	j2d ValidationCallback.class