rebuilt release

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

WinAos/obg/Compiler.SymW

@@ -34,13 +34,17 @@ TYPE
 	END; 
 VAR 
 	platforms: Options.Defaults; 
+	defaultPlatform: ARRAY 32 OF CHAR; 
 
 	PROCEDURE ^ ParseReplacements(CONST filename: ARRAY OF CHAR; VAR replacement: SemanticChecker.Replacement; diagnostics: Diagnostics.Diagnostics): BOOLEAN; 
 	PROCEDURE ^ Modules*(CONST source: ARRAY OF CHAR; reader: Streams.Reader; position: LONGINT; diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; CONST options: CompilerOptions; VAR importCache: SyntaxTree.ModuleScope): BOOLEAN; 
 	PROCEDURE ^ GetOptions*(input: Streams.Reader; error: Streams.Writer; diagnostics: Diagnostics.Diagnostics; VAR compilerOptions: CompilerOptions): BOOLEAN; 
 	PROCEDURE ^ Compile*(context: Commands.Context); 
 	PROCEDURE ^ CompileReader*(context: Commands.Context; reader: Streams.Reader); 
-	PROCEDURE ^ AddPlatform(CONST name: ARRAY OF CHAR; CONST defaults: ARRAY OF CHAR); 
+	PROCEDURE ^ DoAddPlatform(CONST name: ARRAY OF CHAR; CONST defaults: ARRAY OF CHAR); 
 	PROCEDURE ^ ShowDefaults*(context: Commands.Context); 
+	PROCEDURE ^ AddPlatform*(context: Commands.Context); 
+	PROCEDURE ^ SetDefaultPlatform*(context: Commands.Context); 
+	PROCEDURE ^ GetDefaultPlatform(VAR name: ARRAY OF CHAR): BOOLEAN; 
 BEGIN
 END Compiler.

WinAos/obg/ComponentViewer.SymW

@@ -1,10 +1,11 @@
 MODULE ComponentViewer;
-	IMPORT Modules, Commands, Options, XML, Repositories, WMMessages, WMWindowManager, WMComponents, WMRestorable, Streams, D := Debugging, Files, WMRectangles;
+	IMPORT Modules, Commands, Options, XML, Repositories, WMMessages, WMWindowManager, WMComponents, WMRestorable, Streams, D := Debugging, Files, WMRectangles, WMGraphicsSmooth;
 CONST 
 	DefaultWidth = 320; 
 	DefaultHeight = 240; 
 	InvalidPosition* = MIN(LONGINT); 
-	FlagMoveable = 20; 
+	FlagMoveable* = 20; 
+	FlagSmoothGraphics* = 21; 
 TYPE 
 	KillerMsg = OBJECT 
 	END KillerMsg; 

WinAos/obg/Files.SymW

@@ -116,6 +116,7 @@ TYPE
 		PROCEDURE ^ CreateDirectory0*(name: ARRAY OF CHAR; VAR res: LONGINT); 
 		PROCEDURE ^ RemoveDirectory0*(name: ARRAY OF CHAR; force: BOOLEAN; VAR key, res: LONGINT); 
 		PROCEDURE ^ Finalize*; 
+		PROCEDURE ^ Has*(CONST name: ARRAY OF CHAR; VAR fullName: ARRAY OF CHAR; VAR flags: SET): BOOLEAN; 
 	END FileSystem; 
 
 	FileSystemTable* = POINTER TO ARRAY OF FileSystem; 
@@ -208,6 +209,8 @@ VAR
 	PROCEDURE ^ CreateDirectory*(path: ARRAY OF CHAR; VAR res: LONGINT); 
 	PROCEDURE ^ RemoveDirectory*(path: ARRAY OF CHAR; force: BOOLEAN; VAR res: LONGINT); 
 	PROCEDURE ^ Enumerate(VAR mask: ARRAY OF CHAR; flags: SET; enum: Enumerator); 
+	PROCEDURE ^ Exists*(CONST fileName: ARRAY OF CHAR; VAR fullName: ARRAY OF CHAR; VAR flags: SET): BOOLEAN; 
+	PROCEDURE ^ AddSearchPath*(context: Commands.Context); 
 	PROCEDURE ^ FindOpenFile(enum: FileSearcher; fs: FileSystem; key: LONGINT): File; 
 	PROCEDURE ^ ReadSInt*(VAR r: Rider; VAR x: SHORTINT); 
 	PROCEDURE ^ ReadInt*(VAR r: Rider; VAR x: INTEGER); 

WinAos/obg/FoxArrayBase.SymW

@@ -91,51 +91,76 @@ TYPE
 
 	TransposeP* = PROCEDURE (ladr, dadr, lstride, linc, dstride, dinc, rows, cols: LONGINT); 
 
-	T0 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (0 * 8)) OF CHAR; 
+	LenInc = RECORD 
+		len: SIZE; 
+		inc: SIZE; 
 	END; 
 
-	T1 = POINTER TO RECORD 
+	ArrayDescriptor* = RECORD 
 		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (1 * 8)) OF CHAR; 
+		adr: ADDRESS; 
+		flags: SET; 
+		dim: SIZE; 
+		elementSize: SIZE; 
 	END; 
 
-	T2 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (2 * 8)) OF CHAR; 
+	UnsafeArray* = POINTER {UNSAFE} TO RECORD (ArrayDescriptor)
+		lens: ARRAY 8 OF LenInc; 
 	END; 
 
-	T3 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (3 * 8)) OF CHAR; 
+	A0 = RECORD (ArrayDescriptor)
 	END; 
 
-	T4 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (4 * 8)) OF CHAR; 
+	A1 = RECORD (ArrayDescriptor)
+		lens: ARRAY 1 OF LenInc; 
 	END; 
 
-	T5 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (5 * 8)) OF CHAR; 
+	A2 = RECORD (ArrayDescriptor)
+		lens: ARRAY 2 OF LenInc; 
 	END; 
 
-	T6 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (6 * 8)) OF CHAR; 
+	A3 = RECORD (ArrayDescriptor)
+		lens: ARRAY 3 OF LenInc; 
 	END; 
 
-	T7 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (7 * 8)) OF CHAR; 
+	A4 = RECORD (ArrayDescriptor)
+		lens: ARRAY 4 OF LenInc; 
 	END; 
 
-	T8 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (8 * 8)) OF CHAR; 
+	A5 = RECORD (ArrayDescriptor)
+		lens: ARRAY 5 OF LenInc; 
+	END; 
+
+	A6 = RECORD (ArrayDescriptor)
+		lens: ARRAY 6 OF LenInc; 
+	END; 
+
+	A7 = RECORD (ArrayDescriptor)
+		lens: ARRAY 7 OF LenInc; 
 	END; 
 
+	A8 = RECORD (ArrayDescriptor)
+		lens: ARRAY 8 OF LenInc; 
+	END; 
+
+	T0 = POINTER TO A0; 
+
+	T1 = POINTER TO A1; 
+
+	T2 = POINTER TO A2; 
+
+	T3 = POINTER TO A3; 
+
+	T4 = POINTER TO A4; 
+
+	T5 = POINTER TO A5; 
+
+	T6 = POINTER TO A6; 
+
+	T7 = POINTER TO A7; 
+
+	T8 = POINTER TO A8; 
+
 	T9 = POINTER TO RECORD 
 		ptr: ANY; 
 		a: ARRAY (MathLenOffset + (9 * 8)) OF CHAR; 
@@ -421,6 +446,7 @@ VAR
 	PROCEDURE ^ GenericLoopR(ladr, dadr, linc, dinc, len: LONGINT; op: PROCEDURE (x: REAL):REAL); 
 	PROCEDURE ^ GenericLoopX(ladr, dadr, linc, dinc, len: LONGINT; op: PROCEDURE (x: LONGREAL):LONGREAL); 
 	PROCEDURE ^ GenericLoopZ(ladr, dadr, linc, dinc, len: LONGINT; op: PROCEDURE (x: COMPLEX):COMPLEX); 
+	PROCEDURE ^ GenericLoopLZ(ladr, dadr, linc, dinc, len: LONGINT; op: PROCEDURE (x: LONGCOMPLEX):LONGCOMPLEX); 
 	PROCEDURE ^ MinusLoopS(ladr, dadr, linc, dinc, len: LONGINT); 
 	OPERATOR ^ "-"-(CONST src: ARRAY [?] OF SHORTINT): ARRAY [?] OF SHORTINT; 
 	PROCEDURE ^ MinusLoopI(ladr, dadr, linc, dinc, len: LONGINT); 
@@ -1167,6 +1193,8 @@ VAR
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF LONGREAL): ARRAY [*, *] OF LONGREAL; 
 	PROCEDURE ^ CheckTensorGeometry(left, right, dest: Address; ldim, rdim: LONGINT): BOOLEAN; 
 	PROCEDURE ^ DoReshape*(VAR dest: LONGINT; src: LONGINT; CONST shape: ARRAY [*] OF LONGINT); 
+	PROCEDURE ^ AllocateTensorA*(CONST a: ARRAY OF SIZE; elementSize: SIZE; tag: ADDRESS; VAR dest: ADDRESS); 
+	PROCEDURE ^ AllocateArrayA*(CONST a: ARRAY OF SIZE; elementSize: SIZE; tag: ADDRESS; dest: ADDRESS); 
 	PROCEDURE ^ AllocateTensorX*(VAR destA: ARRAY [?] ; CONST a: ARRAY [*] OF LONGINT; Size: LONGINT; tag: LONGINT); 
 	PROCEDURE ^ LenA*(VAR dest: ARRAY [*] OF LONGINT; src: Address); 
 	PROCEDURE ^ IncrA*(VAR dest: ARRAY [*] OF LONGINT; src: Address); 
@@ -1215,5 +1243,6 @@ VAR
 	OPERATOR ^ "ALL"-(CONST x: ARRAY [?] OF REAL; op: PROCEDURE (x: REAL):REAL): ARRAY [?] OF REAL; 
 	OPERATOR ^ "ALL"-(CONST x: ARRAY [?] OF LONGREAL; op: PROCEDURE (x: LONGREAL):LONGREAL): ARRAY [?] OF LONGREAL; 
 	OPERATOR ^ "ALL"-(CONST x: ARRAY [?] OF COMPLEX; op: PROCEDURE (x: COMPLEX):COMPLEX): ARRAY [?] OF COMPLEX; 
+	OPERATOR ^ "ALL"-(CONST x: ARRAY [?] OF LONGCOMPLEX; op: PROCEDURE (x: LONGCOMPLEX):LONGCOMPLEX): ARRAY [?] OF LONGCOMPLEX; 
 BEGIN
 END FoxArrayBase.

WinAos/obg/Kernel32.SymW

@@ -31,6 +31,7 @@ CONST
 	FileAttributeNotContentIndexed* = 13; 
 	FileFlagDeleteOnClose* = 26; 
 	FileFlagRandomAccess* = 28; 
+	FileFlagOverlapped* = 30; 
 	FileFlagWriteThrough* = 31; 
 	FileBegin* = 0; 
 	MoveFileReplaceExisting* = 0; 
@@ -148,6 +149,7 @@ CONST
 	ErrorFileNotFound* = 2; 
 	ErrorAccessDenied* = 5; 
 	ErrorInvalidParameter* = 87; 
+	ErrorIoPending* = 997; 
 TYPE 
 	BOOL* = LONGINT; 
 
@@ -318,6 +320,14 @@ TYPE
 		DaylightDate*: SystemTime; 
 		DaylightBias*: LONGINT; 
 	END; 
+
+	Overlapped* = RECORD 
+		Internal*: LONGINT; 
+		InternalHigh*: LONGINT; 
+		Offset*: LONGINT; 
+		OffsetHigh*: LONGINT; 
+		hEvent*: HANDLE; 
+	END; 
 VAR 
 	hInstance-: HINSTANCE; 
 	isEXE-: BOOLEAN; 
@@ -373,6 +383,7 @@ VAR
 	GetLogicalDrives-: PROCEDURE ():SET; 
 	GetModuleFileName-: PROCEDURE {WINAPI}(hModule: HMODULE; VAR lpFileName: ARRAY OF CHAR; nSize: LONGINT):LONGINT; 
 	GetModuleHandle-: PROCEDURE {WINAPI}(CONST lpModuleName: ARRAY OF CHAR):HMODULE; 
+	GetOverlappedResult-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpOverlapped: Overlapped; VAR lpNumberOfBytesTransferred: LONGINT; bWait: BOOL):BOOL; 
 	GetPrivateProfileString-: PROCEDURE {WINAPI}(CONST lpAppName: ARRAY OF CHAR; CONST lpKeyName: ARRAY OF CHAR; CONST lpDefault: ARRAY OF CHAR; CONST lpReturnedString: ARRAY OF CHAR; nSize: LONGINT; CONST lpFileName: ARRAY OF CHAR):LONGINT; 
 	GetProcessHeap-: PROCEDURE {WINAPI}():HANDLE; 
 	GetProcessTimes-: PROCEDURE {WINAPI}(CONST hProcess: HANDLE; VAR lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: FileTime):LONGINT; 
@@ -415,7 +426,7 @@ VAR
 	QueryPerformanceCounter-: PROCEDURE {WINAPI}(VAR lpPerformaceCount: LargeInteger):BOOL; 
 	QueryPerformanceFrequency-: PROCEDURE {WINAPI}(VAR lpFrequency: LargeInteger):BOOL; 
 	QueryThreadCycleTime-: PROCEDURE {WINAPI}(hThread: HANDLE; VAR cycleTime: HUGEINT):BOOL; 
-	readFile-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToRead: LONGINT; VAR lpNumberOfBytesRead: LONGINT; lpOverlapped: ANY):BOOL; 
+	readFile-: PROCEDURE {WINAPI}(hFile: HANDLE; VAR lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToRead: LONGINT; VAR lpNumberOfBytesRead: LONGINT; lpOverlapped: ADDRESS):BOOL; 
 	ReadProcessMemory-: PROCEDURE {WINAPI}(hProcess: HANDLE; lpBaseAddress: ADDRESS; VAR lpBuffer: ARRAY OF SYSTEM.BYTE; nSize: LONGINT; VAR lpNumberOfBytesRead: LONGINT):BOOL; 
 	RemoveDirectory-: PROCEDURE {WINAPI}(VAR lpPathName: ARRAY OF CHAR):BOOL; 
 	ResetEvent-: PROCEDURE {WINAPI}(hEvent: HANDLE):BOOL; 
@@ -453,15 +464,15 @@ VAR
 	VirtualAlloc-: PROCEDURE {WINAPI}(lpAddress: ADDRESS; dwSize: LONGINT; flAllocationType, flProtect: SET):ADDRESS; 
 	VirtualFree-: PROCEDURE {WINAPI}(lpAddress: ADDRESS; dwSize: LONGINT; dwFreeType: SET):BOOL; 
 	WaitForSingleObject-: PROCEDURE {WINAPI}(hHandle: HANDLE; dwMilliseconds: LONGINT):LONGINT; 
-	writeFile-: PROCEDURE {WINAPI}(hFile: HANDLE; CONST lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToWrite: LONGINT; VAR lpNumberOfBytesWritten: LONGINT; lpOverlapped: ANY):BOOL; 
+	writeFile-: PROCEDURE {WINAPI}(hFile: HANDLE; CONST lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToWrite: LONGINT; VAR lpNumberOfBytesWritten: LONGINT; lpOverlapped: ADDRESS):BOOL; 
 	OutputString*: PROCEDURE (CONST a: ARRAY OF CHAR); 
 	LeaveA2*, ReenterA2*: PROCEDURE ; 
 	Shutdown*: PROCEDURE (code: LONGINT); 
 
 	PROCEDURE ^ EnterCriticalSection*(VAR lpCriticalSection: CriticalSection); 
 	PROCEDURE ^ LeaveCriticalSection*(VAR lpCriticalSection: CriticalSection); 
-	PROCEDURE ^ ReadFile-(hFile: HANDLE; VAR lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToRead: LONGINT; VAR lpNumberOfBytesRead: LONGINT; lpOverlapped: ANY): BOOL; 
-	PROCEDURE ^ WriteFile-(hFile: HANDLE; CONST lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToWrite: LONGINT; VAR lpNumberOfBytesWritten: LONGINT; lpOverlapped: ANY): BOOL; 
+	PROCEDURE ^ ReadFile-(hFile: HANDLE; VAR lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToRead: LONGINT; VAR lpNumberOfBytesRead: LONGINT; lpOverlapped: ADDRESS): BOOL; 
+	PROCEDURE ^ WriteFile-(hFile: HANDLE; CONST lpBuffer: ARRAY OF SYSTEM.BYTE; nNumberOfBytesToWrite: LONGINT; VAR lpNumberOfBytesWritten: LONGINT; lpOverlapped: ADDRESS): BOOL; 
 	PROCEDURE ^ GetProcAddress*(hModule: HMODULE; CONST procName: ARRAY OF CHAR; VAR adr: ADDRESS); 
 	PROCEDURE ^ CopyString*(lpString: LPSTR; VAR str: ARRAY OF CHAR); 
 	PROCEDURE ^ OutputDebugString*(CONST str: ARRAY OF CHAR); 

WinAos/obg/Pipes.SymW

@@ -15,5 +15,20 @@ TYPE
 		PROCEDURE ^  & Init*(size: LONGINT); 
 		PROCEDURE ^ Close*; 
 	END Pipe; 
+
+	Receiver* = PROCEDURE {DELEGATE}(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
+
+	ReadDecoupler* = OBJECT {EXCLUSIVE} 
+	VAR 
+		pipe: Pipe; 
+		inputReceiver: Receiver; 
+		numR: LONGINT; 
+		smallbuf: ARRAY [128] OF CHAR; 
+		len, res: LONGINT; 
+
+		PROCEDURE ^  & InitReadDecoupler*(inputReceiver: Receiver); 
+		PROCEDURE ^ Receive*(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
+	BEGIN{ACTIVE} 
+	END ReadDecoupler; 
 BEGIN
 END Pipes.

WinAos/obg/Random.SymW

@@ -20,6 +20,7 @@ TYPE
 		PROCEDURE ^ Dice*(sides: LONGINT): LONGINT; 
 		PROCEDURE ^ Uniform*(): REAL; 
 		PROCEDURE ^ Exp*(mu: REAL): REAL; 
+		PROCEDURE ^ Gaussian*(): REAL; 
 	END Generator; 
 
 	Sequence* = OBJECT {EXCLUSIVE} 

WinAos/obg/Reflection.SymW

@@ -1,5 +1,5 @@
 MODULE Reflection;
-	IMPORT Modules, Streams, SYSTEM, Machine, Heaps, Objects, Trace;
+	IMPORT Modules, Streams, SYSTEM, Machine, Heaps, Objects, Trace, FoxArrayBase;
 CONST 
 	ShowAllProcs = TRUE; 
 	MaxFrames = 128; 

WinAos/obg/StdIO.SymW

@@ -1,5 +1,5 @@
 MODULE StdIO;
-	IMPORT S := SYSTEM, Modules, Commands, Streams, WinTrace, Kernel32;
+	IMPORT S := SYSTEM, Modules, Commands, Streams, Pipes, WinTrace, Kernel32;
 CONST 
 	AddrSize = SIZEOF(ADDRESS); 
 TYPE 
@@ -7,6 +7,7 @@ TYPE
 VAR 
 	env-: Commands.Context; 
 	hin-, hout-, herr-: Kernel32.HANDLE; 
+	stdInDecoupler: Pipes.ReadDecoupler; 
 
 	PROCEDURE ^ Args(): String; 
 	PROCEDURE ^ Cleanup; 

WinAos/obg/V24.SymW

@@ -8,6 +8,7 @@ TYPE
 		handle: Kernel32.HANDLE; 
 		portname: ARRAY 6 OF CHAR; 
 		timer: Kernel.Timer; 
+		rOverlapped, wOverlapped: Kernel32.Overlapped; 
 
 		PROCEDURE ^  & Init*(port: LONGINT); 
 		PROCEDURE ^ Open*(bps, data, parity, stop: LONGINT; VAR res: LONGINT);