rebuilt release

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

WinAos/obg/FoxIntermediateBackend.SymW

@@ -572,6 +572,7 @@ TYPE
 		PROCEDURE ^ ProcedureDescriptorArray(section: IntermediateCode.Section; VAR numberProcs: LONGINT); 
 		PROCEDURE ^ BasePointer(section: IntermediateCode.Section); 
 		PROCEDURE ^ BaseObject(section: IntermediateCode.Section); 
+		PROCEDURE ^ BaseRecord(section: IntermediateCode.Section); 
 		PROCEDURE ^ ModuleDescriptor(section: IntermediateCode.Section); 
 		PROCEDURE ^ ModuleSection(): IntermediateCode.Section; 
 		PROCEDURE ^ NewModuleInfo; 

WinAos/obg/Heaps.SymW

@@ -239,7 +239,7 @@ VAR
 	PROCEDURE ^ InitFreeBlock(freeBlock: FreeBlockU; mark: LONGINT; dataAdr: ADDRESS; size: SIZE); 
 	PROCEDURE ^ NewBlock(size: SIZE): ADDRESS; 
 	PROCEDURE ^ CheckBP(bp: ADDRESS): ADDRESS; 
-	PROCEDURE ^ SetPC(p: DataBlockU); 
+	PROCEDURE ^ SetPC*(p: DataBlockU); 
 	PROCEDURE ^ NewSys*(VAR p: ANY; size: SIZE; isRealtime: BOOLEAN); 
 	PROCEDURE ^ NewRec*(VAR p: ANY; tag: ADDRESS; isRealtime: BOOLEAN); 
 	PROCEDURE ^ NewProtRec*(VAR p: ANY; tag: ADDRESS; isRealtime: BOOLEAN); 

WinAos/obg/Kernel32.SymW

@@ -376,6 +376,7 @@ VAR
 	GetExitCodeProcess-: PROCEDURE {WINAPI}(hProcess: HANDLE; VAR lpExitCode: LONGINT):BOOL; 
 	GetFileAttributes-: PROCEDURE {WINAPI}(VAR lpFileName: ARRAY OF CHAR):SET; 
 	GetFileSize-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpFileSizeHigh: LONGINT):LONGINT; 
+	GetFileSizeEx-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpFileSize: HUGEINT):BOOL; 
 	GetFileTime-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpCreationTime, lpLastAccessTime, lpLastWriteTime: FileTime):BOOL; 
 	GetFullPathName-: PROCEDURE {WINAPI}(CONST lpFileName: ARRAY OF CHAR; nBufferLength: LONGINT; VAR lpBuffer: ARRAY OF CHAR; lpFilePart: LPSTR):LONGINT; 
 	GetLastError-: PROCEDURE {WINAPI}():LONGINT; 
@@ -450,6 +451,7 @@ VAR
 	SetEvent-: PROCEDURE {WINAPI}(hEvent: HANDLE):BOOL; 
 	SetFileAttributes-: PROCEDURE {WINAPI}(VAR lpFileName: ARRAY OF CHAR; dwFileAttributes: SET):BOOL; 
 	SetFilePointer-: PROCEDURE {WINAPI}(hFile: HANDLE; lDistanceToMove: LONGINT; VAR lpDistanceToMoveHigh: LONGINT; dwMoveMethod: LONGINT):LONGINT; 
+	SetFilePointerEx-: PROCEDURE {WINAPI}(hFile: HANDLE; lDistanceToMove: HUGEINT; VAR lpNewFilePointer: HUGEINT; dwMoveMethod: LONGINT):BOOL; 
 	SetFileTime-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpCreationTime, lpLastAccessTime, lpLastWriteTime: FileTime):BOOL; 
 	SetLocalTime-: PROCEDURE {WINAPI}(VAR lpSystemTime: SystemTime):BOOL; 
 	SetThreadAffinityMask-: PROCEDURE {WINAPI}(hThread: HANDLE; dwThreadAffinityMask: SET):SET; 

WinAos/obg/Options.SymW

@@ -4,6 +4,7 @@ CONST
 	Flag* = 0; 
 	String* = 1; 
 	Integer* = 2; 
+	Real* = 3; 
 	Unknown =  -1; 
 	MaxOptions = 64; 
 	OptionDelimiter = \"-"\; 
@@ -21,6 +22,7 @@ TYPE
 		name: Name; 
 		type: LONGINT; 
 		value: LONGINT; 
+		rvalue: LONGREAL; 
 		string: Parameter; 
 	END; 
 
@@ -41,6 +43,7 @@ TYPE
 		PROCEDURE ^ SetInteger*(ch: CHAR; CONST name: Name; CONST string: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ GetString*(CONST name: Name; VAR string: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ SetString*(ch: CHAR; CONST name: Name; CONST string: ARRAY OF CHAR): BOOLEAN; 
+		PROCEDURE ^ GetReal*(CONST name: Name; VAR real: LONGREAL): BOOLEAN; 
 		PROCEDURE ^ Clear*; 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ Parse*(arg: Streams.Reader; error: Streams.Writer): BOOLEAN; 

WinAos/obg/Random.SymW

@@ -33,6 +33,7 @@ TYPE
 		PROCEDURE ^ Dice*(sides: LONGINT): LONGINT; 
 		PROCEDURE ^ Uniform*(): REAL; 
 		PROCEDURE ^ Exp*(mu: REAL): REAL; 
+		PROCEDURE ^ Gaussian*(): REAL; 
 	END Sequence; 
 BEGIN
 END Random.

WinAos/obg/StdIOShell.SymW

@@ -0,0 +1,14 @@
+MODULE StdIOShell;
+	IMPORT StdIO, Commands, Modules, Streams, Pipes, Strings;
+CONST 
+VAR 
+	env: Commands.Context; 
+	str: Strings.String; 
+	decoupler: Pipes.ReadDecoupler; 
+	inDecoupled: Streams.Receiver; 
+	inStreamDecoupled: Streams.Reader; 
+
+	PROCEDURE ^ Activate(context: Commands.Context; CONST cmd: ARRAY OF CHAR): BOOLEAN; 
+	PROCEDURE ^ Execute(context: Commands.Context); 
+BEGIN
+END StdIOShell.

WinAos/obg/WMMessages.SymW

@@ -15,6 +15,7 @@ CONST
 	MsgSetLanguage* = 10; 
 	MsgInvalidate* = 11; 
 	MsgSerialize* = 12; 
+	MsgMerged* = 15; 
 	MsgSubPointerMove* = 0; 
 	MsgSubPointerDown* = 1; 
 	MsgSubPointerUp* = 2;