rebuilt releases

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

Linux32/bin/ArrayXdBytes.SymU

@@ -81,7 +81,6 @@ TYPE
 
 	PROCEDURE ^ StoreMemory(W: DataIO.Writer; baseadr: LONGINT; len: LONGINT); 
 	PROCEDURE ^ ReadMemory(R: DataIO.Reader; baseadr: LONGINT; size: LONGINT; VAR len: LONGINT); 
-	PROCEDURE ^ Min(l, r: LONGINT): LONGINT; 
 	PROCEDURE ^ CheckIndexArray(dim: Index; VAR a: IndexArray); 
 	PROCEDURE ^ CopyIndexArray(src: ARRAY OF Index; dest: IndexArray); 
 	PROCEDURE ^ Intersect*(org1, len1, org2, len2: IndexArray; VAR org, len: IndexArray): BOOLEAN; 

Linux32/bin/Beep.SymU

@@ -4,7 +4,7 @@ CONST
 VAR 
 	disp: XDisplay.Display; 
 
-	PROCEDURE ^ Beep*(hz: LONGINT); 
+	PROCEDURE ^ Beep*(hz: WORD); 
 	PROCEDURE ^ GetDisplay; 
 BEGIN
 END Beep.

Linux32/bin/Commands.SymU

@@ -24,20 +24,6 @@ TYPE
 		PROCEDURE ^  & Init*(in, arg: Streams.Reader; out, error: Streams.Writer; caller: OBJECT); 
 	END Context; 
 
-	ReaderMonitor* = OBJECT (Streams.Reader)
-	VAR 
-		in: Streams.Reader; 
-		tracer: Streams.Writer; 
-		pos0: Streams.Position; 
-		tracedPos: LONGINT; 
-
-		PROCEDURE ^  & Init(in: Streams.Reader; tracer: Streams.Writer); 
-		PROCEDURE ^ Receiver(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len: LONGINT; VAR res: WORD); 
-		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: Streams.Position); 
-		PROCEDURE ^ Pos*(): Streams.Position; 
-	END ReaderMonitor; 
-
 	CommandProc = PROCEDURE ; 
 
 	CommandContextProc = PROCEDURE (context: Context); 
@@ -46,8 +32,6 @@ TYPE
 	VAR 
 		moduleName, commandName: Modules.Name; 
 		context: Context; 
-		tracer: Streams.Writer; 
-		r: ReaderMonitor; 
 		proc: CommandProc; 
 		commandProc: CommandContextProc; 
 		msg: ARRAY 128 OF CHAR; 

Linux32/bin/CryptoRSA.SymU

@@ -42,5 +42,6 @@ VAR
 	PROCEDURE ^ StorePrivateKey*(w: Streams.Writer; k: Key; CONST passwd: ARRAY OF CHAR); 
 	PROCEDURE ^ StorePublicKey*(w: Streams.Writer; k: Key); 
 	PROCEDURE ^ LoadPublicKey*(r: Streams.Reader): Key; 
+	PROCEDURE ^ ExtractPublicKey*(r: Streams.Reader): Key; 
 BEGIN
 END CryptoRSA.

Linux32/bin/DTPData.SymU

@@ -281,7 +281,5 @@ VAR
 	dollyFrame*: FrameObject; 
 
 	PROCEDURE ^ NewObject*(): ContentObject; 
-	PROCEDURE ^ Min(a, b: REAL): REAL; 
-	PROCEDURE ^ Max(a, b: REAL): REAL; 
 BEGIN
 END DTPData.

Linux32/bin/DTPUtilities.SymU

@@ -273,8 +273,6 @@ VAR
 	ctxAlignLeft, ctxAlignCenter, ctxAlignRight, ctxAlignJustified: ContextMenuData; 
 	ctxRegular, ctxBold, ctxItalic, ctxBoldItalic: ContextMenuData; 
 
-	PROCEDURE ^ Min*(a, b: REAL): REAL; 
-	PROCEDURE ^ Max*(a, b: REAL): REAL; 
 	PROCEDURE ^ Inc*(VAR a, b: REAL); 
 	PROCEDURE ^ Dec*(VAR a, b: REAL); 
 	PROCEDURE ^ FixpToFloat*(x: LONGINT): REAL; 

Linux32/bin/DiskCaches.SymU

@@ -18,7 +18,7 @@ TYPE
 		transfer: TransferProcedure; 
 
 		PROCEDURE ^  & Init*(transfer: TransferProcedure; blocksPerCacheLine= 32: LONGINT); 
-		PROCEDURE ^ Transfer*(op: LONGINT; block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD); 
+		PROCEDURE ^ Transfer*(op: LONGINT; block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT); 
 	END Cache; 
 BEGIN
 END DiskCaches.

Linux32/bin/FoxAssembler.SymU

@@ -71,7 +71,7 @@ TYPE
 		diagnostics: Diagnostics.Diagnostics; 
 		error-: BOOLEAN; 
 		errorPosition-: Position; 
-		symbol-: Scanner.Symbol; 
+		token-: Scanner.Token; 
 		scanner: Scanner.AssemblerScanner; 
 		orgOffset: LONGINT; 
 		section-: IntermediateCode.Section; 
@@ -86,12 +86,12 @@ TYPE
 		PROCEDURE ^ SetContext(CONST context: Scanner.Context); 
 		PROCEDURE ^ Error*(pos: SyntaxTree.Position; CONST msg: ARRAY OF CHAR); 
 		PROCEDURE ^ ErrorSS*(pos: SyntaxTree.Position; CONST s1, s2: ARRAY OF CHAR); 
-		PROCEDURE ^ NextSymbol*; 
-		PROCEDURE ^ ThisToken*(x: LONGINT): BOOLEAN; 
+		PROCEDURE ^ NextToken*; 
+		PROCEDURE ^ ThisSymbol*(x: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ GetIdentifier*(VAR pos: Position; VAR identifier: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ ThisIdentifier*(CONST this: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ ExpectIdentifier*(VAR pos: Position; VAR identifier: ARRAY OF CHAR): BOOLEAN; 
-		PROCEDURE ^ ExpectToken*(x: LONGINT): BOOLEAN; 
+		PROCEDURE ^ ExpectSymbol*(x: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ ExpectConstantInteger*(VAR x: Result; critical: BOOLEAN): BOOLEAN; 
 		PROCEDURE ^ Section; 
 		PROCEDURE ^ DefineLabel(pos: Position; CONST name: ARRAY OF CHAR); 

Linux32/bin/FoxBinaryCode.SymU

@@ -39,7 +39,7 @@ TYPE
 		mode-: INTEGER; 
 		displacement-: Unit; 
 		scale-: ObjectFile.Bits; 
-		patterns-: LONGINT; 
+		patterns-: SIZE; 
 		pattern-: FixupPatterns; 
 		offset-: Unit; 
 		symbol-: ObjectFile.Identifier; 

Linux32/bin/FoxGenericObjectFile.SymU

@@ -36,7 +36,7 @@ VAR
 	PROCEDURE ^ CopyFixups(sections: Sections.SectionList; from, to: BinaryCode.Section; offset: LONGINT); 
 	PROCEDURE ^ UpdateAliases(section: BinaryCode.Section; fingerprinter: Fingerprinter.Fingerprinter); 
 	PROCEDURE ^ Get*(): Formats.ObjectFileFormat; 
-	PROCEDURE ^ ReadHeader(reader: Streams.Reader; VAR binary: BOOLEAN; VAR poolMap: ObjectFile.PoolMap; VAR offers, requires: ObjectFile.NameList): LONGINT; 
+	PROCEDURE ^ ReadHeader(reader: Streams.Reader; VAR binary: BOOLEAN; VAR poolMap: ObjectFile.PoolMap; VAR offers, requires: ObjectFile.NameList): WORD; 
 	PROCEDURE ^ WriteHeader(writer: Streams.Writer; binary: BOOLEAN; sections: Sections.SectionList; VAR poolMap: ObjectFile.PoolMap; offers, requires: ObjectFile.NameList; fingerprinter: Fingerprinter.Fingerprinter); 
 	PROCEDURE ^ GCD(a, b: LONGINT): LONGINT; 
 	PROCEDURE ^ SCM(a, b: LONGINT): LONGINT; 

Linux32/bin/FoxIntermediateParser.SymU

@@ -15,16 +15,16 @@ TYPE
 	VAR 
 		diagnostics: Diagnostics.Diagnostics; 
 		error: BOOLEAN; 
-		symbol: Scanner.Symbol; 
+		token: Scanner.Token; 
 		scanner: Scanner.AssemblerScanner; 
 		system: Global.System; 
 
 		PROCEDURE ^  & Init*(diagnostics: Diagnostics.Diagnostics; s: Global.System); 
 		PROCEDURE ^ Error(pos: Position; CONST msg: ARRAY OF CHAR); 
-		PROCEDURE ^ NextSymbol; 
-		PROCEDURE ^ ThisToken(x: LONGINT): BOOLEAN; 
+		PROCEDURE ^ NextToken; 
+		PROCEDURE ^ ThisSymbol(x: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ GetIdentifier(VAR pos: Position; VAR identifier: ARRAY OF CHAR): BOOLEAN; 
-		PROCEDURE ^ ExpectToken(x: LONGINT): BOOLEAN; 
+		PROCEDURE ^ ExpectSymbol(x: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ ThisIdentifier(CONST this: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ ExpectAnyIdentifier(VAR pos: Position; VAR identifier: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ ExpectIntegerWithSign(VAR integer: LONGINT): BOOLEAN; 

Linux32/bin/FoxParser.SymU

@@ -15,7 +15,7 @@ TYPE
 		IgnoringElse = 4; 
 	VAR 
 		scanner-: Scanner.Scanner; 
-		symbol-: Scanner.Symbol; 
+		token-: Scanner.Token; 
 		diagnostics: Diagnostics.Diagnostics; 
 		currentScope: SyntaxTree.Scope; 
 		recentCommentItem: ANY; 
@@ -25,7 +25,7 @@ TYPE
 		error-: BOOLEAN; 
 		Lax-: BOOLEAN; 
 		indent: LONGINT; 
-		hasSymbol: BOOLEAN; 
+		hasToken: BOOLEAN; 
 		prevPosition-: Position; 
 		conditional: WORD; 
 		conditionals: ARRAY 10 OF WORD; 
@@ -39,24 +39,24 @@ TYPE
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ SetLax*; 
 		PROCEDURE ^ Error(position: Position; code: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ GetNextSymbol(VAR symbol: Scanner.Symbol): BOOLEAN; 
-		PROCEDURE ^ ConditionalStatement(VAR symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ GetNextToken(VAR token: Scanner.Token): BOOLEAN; 
+		PROCEDURE ^ ConditionalStatement(VAR token: Scanner.Token): BOOLEAN; 
 		PROCEDURE ^ SkipComments(b: BOOLEAN); 
-		PROCEDURE ^ NextSymbol*; 
-		PROCEDURE ^ Token*(): LONGINT; 
+		PROCEDURE ^ NextToken*; 
+		PROCEDURE ^ Symbol*(): LONGINT; 
 		PROCEDURE ^ TokenB*(): LONGINT; 
-		PROCEDURE ^ PeekB*(token: Scanner.Token): BOOLEAN; 
-		PROCEDURE ^ Peek*(token: Scanner.Token): BOOLEAN; 
-		PROCEDURE ^ Mandatory*(token: Scanner.Token): BOOLEAN; 
-		PROCEDURE ^ Check(token: Scanner.Token); 
+		PROCEDURE ^ PeekB*(symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ Peek*(symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ Mandatory*(symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ Check(symbol: Scanner.Symbol); 
 		PROCEDURE ^ MandatoryIdentifier(VAR name: SyntaxTree.Identifier): BOOLEAN; 
 		PROCEDURE ^ Identifier(VAR position: Position): SyntaxTree.Identifier; 
 		PROCEDURE ^ MandatoryString*(VAR name: Scanner.StringType): BOOLEAN; 
 		PROCEDURE ^ ExpectThisIdentifier(name: SyntaxTree.Identifier): BOOLEAN; 
 		PROCEDURE ^ ExpectThisString(CONST name: ARRAY OF CHAR): BOOLEAN; 
-		PROCEDURE ^ Optional*(token: Scanner.Token): BOOLEAN; 
-		PROCEDURE ^ OptionalB*(token: Scanner.Token): BOOLEAN; 
-		PROCEDURE ^ Ignore(token: Scanner.Token); 
+		PROCEDURE ^ Optional*(symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ OptionalB*(symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ Ignore(symbol: Scanner.Symbol); 
 		PROCEDURE ^ QualifiedIdentifier*(): SyntaxTree.QualifiedIdentifier; 
 		PROCEDURE ^ IdentifierDefinition(VAR name: SyntaxTree.Identifier; VAR access: SET; allowedReadOnly: BOOLEAN); 
 		PROCEDURE ^ ExpressionList(expressionList: SyntaxTree.ExpressionList); 

Linux32/bin/FoxScanner.SymU

@@ -158,13 +158,13 @@ TYPE
 		PROCEDURE ^ PutString*(CONST name: ARRAY OF CHAR; index: LONGINT); 
 	END KeywordTable; 
 
-	Token* = LONGINT; 
+	Symbol* = LONGINT; 
 
 	Position* = Basic.Position; 
 
-	Symbol* = RECORD 
+	Token* = RECORD 
 		position*: Position; 
-		token*: Token; 
+		symbol*: Symbol; 
 		identifier*: IdentifierType; 
 		identifierString*: IdentifierString; 
 		string*: StringType; 
@@ -212,14 +212,14 @@ TYPE
 		PROCEDURE ^ Error(code: INTEGER); 
 		PROCEDURE ^ GetNextCharacter*; 
 		PROCEDURE ^ ConsumeStringUntil(CONST endString: ARRAY OF CHAR; useControl: BOOLEAN); 
-		PROCEDURE ^ GetEscapedString(VAR symbol: Symbol); 
-		PROCEDURE ^ GetString(VAR symbol: Symbol; multiLine, multiString, useControl: BOOLEAN); 
-		PROCEDURE ^ GetIdentifier(VAR symbol: Symbol); 
-		PROCEDURE ^ GetNumber(VAR symbol: Symbol): Token; 
-		PROCEDURE ^ ReadComment(VAR symbol: Symbol); 
-		PROCEDURE ^ SkipToEndOfCode*(VAR startPos, endPos: LONGINT; VAR symbol: Symbol): Token; 
+		PROCEDURE ^ GetEscapedString(VAR token: Token); 
+		PROCEDURE ^ GetString(VAR token: Token; multiLine, multiString, useControl: BOOLEAN); 
+		PROCEDURE ^ GetIdentifier(VAR token: Token); 
+		PROCEDURE ^ GetNumber(VAR token: Token): Symbol; 
+		PROCEDURE ^ ReadComment(VAR token: Token); 
+		PROCEDURE ^ SkipToEndOfCode*(VAR startPos, endPos: LONGINT; VAR token: Token): Symbol; 
 		PROCEDURE ^ SkipBlanks; 
-		PROCEDURE ^ GetNextSymbol*(VAR symbol: Symbol): BOOLEAN; 
+		PROCEDURE ^ GetNextToken*(VAR token: Token): BOOLEAN; 
 		PROCEDURE ^ ResetError*; 
 		PROCEDURE ^ ResetErrorDiagnostics*(VAR diagnostics: Diagnostics.Diagnostics); 
 	END Scanner; 
@@ -238,21 +238,21 @@ TYPE
 		PROCEDURE ^ GetContext*(VAR context: Context); 
 		PROCEDURE ^ SetContext*(CONST context: Context); 
 		PROCEDURE ^ SkipToEndOfLine*; 
-		PROCEDURE ^ GetIdentifier(VAR symbol: Symbol); 
-		PROCEDURE ^ GetNextSymbol*(VAR symbol: Symbol): BOOLEAN; 
+		PROCEDURE ^ GetIdentifier(VAR token: Token); 
+		PROCEDURE ^ GetNextToken*(VAR token: Token): BOOLEAN; 
 	END AssemblerScanner; 
 VAR 
 	reservedCharacter: ARRAY 256 OF BOOLEAN; 
-	tokens-: ARRAY (EndOfText + 1) OF Keyword; 
+	symbols-: ARRAY (EndOfText + 1) OF Keyword; 
 	keywordsLower, keywordsUpper: KeywordTable; 
 
 	PROCEDURE ^ NewScanner*(CONST source: ARRAY OF CHAR; reader: Streams.Reader; position: LONGINT; diagnostics: Diagnostics.Diagnostics): Scanner; 
 	PROCEDURE ^ NewAssemblerScanner*(CONST source: ARRAY OF CHAR; reader: Streams.Reader; position: LONGINT; diagnostics: Diagnostics.Diagnostics): AssemblerScanner; 
-	PROCEDURE ^ SymbolToString*(CONST symbol: Symbol; case: LONGINT; VAR str: ARRAY OF CHAR); 
-	PROCEDURE ^ OutSymbol*(w: Streams.Writer; CONST symbol: Symbol); 
+	PROCEDURE ^ TokenToString*(CONST token: Token; case: LONGINT; VAR str: ARRAY OF CHAR); 
+	PROCEDURE ^ PrintToken*(w: Streams.Writer; CONST token: Token); 
 	PROCEDURE ^ InitReservedCharacters; 
-	PROCEDURE ^ GetKeyword*(case: LONGINT; token: LONGINT; VAR identifier: IdentifierType); 
-	PROCEDURE ^ InitTokens; 
+	PROCEDURE ^ GetKeyword*(case: LONGINT; symbol: LONGINT; VAR identifier: IdentifierType); 
+	PROCEDURE ^ InitSymbols; 
 	PROCEDURE ^ InitKeywords; 
 	PROCEDURE ^ ReportKeywords*(context: Commands.Context); 
 BEGIN

Linux32/bin/FoxSyntaxTree.SymU

@@ -157,8 +157,8 @@ TYPE
 	END; 
 
 	Fingerprint* = RECORD 
-		shallow*, public*, private*: Basic.Fingerprint; 
-		shallowAvailable*, deepAvailable*: BOOLEAN; 
+		shallow* := 0, public*, private*: Basic.Fingerprint; 
+		shallowAvailable* := FALSE, deepAvailable*: BOOLEAN; 
 	END; 
 
 	Identifier* = Basic.String; 
@@ -790,11 +790,8 @@ TYPE
 	END ResultDesignator; 
 
 	Value* = OBJECT (Expression)
-	VAR 
-		fingerprint-: Fingerprint; 
 
 		PROCEDURE ^  & InitValue(position: Position); 
-		PROCEDURE ^ SetFingerprint*(CONST fp: Fingerprint); 
 		PROCEDURE ^ Equals*(v: Value): BOOLEAN; 
 	END Value; 
 
@@ -1590,7 +1587,6 @@ VAR
 	moduleType-: Type; 
 	indexListSeparator-: Expression; 
 
-	PROCEDURE ^ InitFingerprint*(VAR fingerprint: Fingerprint); 
 	PROCEDURE ^ NewModule*(CONST sourceName: ARRAY OF CHAR; position: Position; name: Identifier; scope: ModuleScope; case: LONGINT): Module; 
 	PROCEDURE ^ NewComment*(position: Position; scope: Scope; CONST source: ARRAY OF CHAR; length: LONGINT): Comment; 
 	PROCEDURE ^ NewImport*(position: Position; alias, name: Identifier; direct: BOOLEAN): Import;