rebuilt release

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8443 8c9fc860-2736-0410-a75d-ab315db34111

Linux32/bin/DiskFS.SymU

@@ -122,7 +122,7 @@ TYPE
 		dir: Directory; 
 		finalizeFiles: Kernel.FinalizedCollection; 
 		openFiles: DiskAdrList; 
-		tempRegFileSec: DiskAdrList; 
+		tempRegFileSec: DiskAdrTable; 
 
 		PROCEDURE ^  & Init*; 
 		PROCEDURE ^ New0*(name: ARRAY OF CHAR): Files.File; 
@@ -133,7 +133,7 @@ TYPE
 		PROCEDURE ^ FileKey*(name: ARRAY OF CHAR): LONGINT; 
 		PROCEDURE ^ CollectRegisteredFileSectors(adr: DiskAdr); 
 		PROCEDURE ^ PurgeByAdr(adr: DiskAdr); 
-		PROCEDURE ^ PurgeOpenedFile(f: File; except: DiskAdrList); 
+		PROCEDURE ^ PurgeOpenedFile(f: File; except: DiskAdrTable); 
 		PROCEDURE ^ Close(f: File); 
 		PROCEDURE ^ Finalize*; 
 	END FileSystem; 
@@ -146,14 +146,28 @@ TYPE
 		count: LONGINT; 
 
 		PROCEDURE ^  & New*; 
-		PROCEDURE ^ GetCount(): LONGINT; 
 		PROCEDURE ^ Grow; 
 		PROCEDURE ^ Add(x: DiskAdr); 
 		PROCEDURE ^ Remove(x: DiskAdr); 
-		PROCEDURE ^ Clear; 
 		PROCEDURE ^ Contains(x: DiskAdr): BOOLEAN; 
 	END DiskAdrList; 
 
+	DiskAdrTable = OBJECT {EXCLUSIVE} 
+	CONST 
+		threshold = 4; 
+	VAR 
+		table: DiskAdrArray; 
+		count: SIZE; 
+		size: SIZE; 
+
+		PROCEDURE ^  & New*; 
+		PROCEDURE ^ Clear; 
+		PROCEDURE ^ Grow; 
+		PROCEDURE ^ HashValue(key: DiskAdr): SIZE; 
+		PROCEDURE ^ Add(x: DiskAdr); 
+		PROCEDURE ^ Contains(x: DiskAdr): BOOLEAN; 
+	END DiskAdrTable; 
+
 	File = OBJECT {EXCLUSIVE} (Files.File)
 	VAR 
 		aleng, bleng: LONGINT; 

Linux32/bin/Files.SymU

@@ -31,7 +31,9 @@ CONST
 	SetSize = (MAX(SET) + 1); 
 	NeedsPrefix* = 0; 
 TYPE 
-	TSize* = Streams.TSize; 
+	Position* = Streams.Position; 
+
+	TSize* = LONGINT; 
 
 	FileName* = ARRAY (PrefixLength + NameLength) OF CHAR; 
 
@@ -49,7 +51,7 @@ TYPE
 		file: File; 
 		r: Rider; 
 
-		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
+		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
 		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^  & InitFileReader*(file: File; pos: LONGINT); 
@@ -92,6 +94,7 @@ TYPE
 
 		PROCEDURE ^ AllocBlock*(hint: Address; VAR adr: Address); 
 		PROCEDURE ^ FreeBlock*(adr: Address); 
+		PROCEDURE ^ FreeBlocks*(CONST a: ARRAY OF Address; ofs, len: TSize); 
 		PROCEDURE ^ MarkBlock*(adr: Address); 
 		PROCEDURE ^ MarkBlocks*(CONST a: ARRAY OF Address; ofs, len: TSize); 
 		PROCEDURE ^ Marked*(adr: Address): BOOLEAN; 
@@ -112,12 +115,12 @@ TYPE
 
 		PROCEDURE ^ New0*(name: ARRAY OF CHAR): File; 
 		PROCEDURE ^ Old0*(name: ARRAY OF CHAR): File; 
-		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key, res: LONGINT); 
+		PROCEDURE ^ Delete0*(name: ARRAY OF CHAR; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Rename0*(old, new: ARRAY OF CHAR; f: File; VAR res: WORD); 
 		PROCEDURE ^ Enumerate0*(mask: ARRAY OF CHAR; flags: SET; enum: Enumerator); 
 		PROCEDURE ^ FileKey*(name: ARRAY OF CHAR): LONGINT; 
 		PROCEDURE ^ CreateDirectory0*(name: ARRAY OF CHAR; VAR res: WORD); 
-		PROCEDURE ^ RemoveDirectory0*(name: ARRAY OF CHAR; force: BOOLEAN; VAR key, res: LONGINT); 
+		PROCEDURE ^ RemoveDirectory0*(name: ARRAY OF CHAR; force: BOOLEAN; VAR key: LONGINT; VAR res: WORD); 
 		PROCEDURE ^ Finalize*; 
 		PROCEDURE ^ Has*(CONST name: ARRAY OF CHAR; VAR fullName: ARRAY OF CHAR; VAR flags: SET): BOOLEAN; 
 	END FileSystem; 

Linux32/bin/FoxBasic.SymU

@@ -487,6 +487,8 @@ VAR
 	PROCEDURE ^ InitWindowWriter; 
 	PROCEDURE ^ InstallWriterFactory*(writer: WriterFactory; debug: DebugWriterFactory; diagnostics: DiagnosticsFactory); 
 	PROCEDURE ^ Replace(VAR in: ARRAY OF CHAR; CONST this, by: ARRAY OF CHAR); 
+	OPERATOR ^ "="-(CONST left: ARRAY OF CHAR; right: String): BOOLEAN; 
+	OPERATOR ^ "="-(left: String; CONST right: ARRAY OF CHAR): BOOLEAN; 
 	PROCEDURE ^ MessageS*(CONST format, s0: ARRAY OF CHAR): MessageString; 
 	PROCEDURE ^ MessageSS*(CONST format, s0, s1: ARRAY OF CHAR): MessageString; 
 	PROCEDURE ^ MessageI*(CONST format: ARRAY OF CHAR; i0: LONGINT): MessageString;