2
0
Эх сурвалжийг харах

rebuilt release

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7235 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 жил өмнө
parent
commit
3d1f1681e2

BIN
WinAos/A2.exe


BIN
WinAos/oberon.exe


BIN
WinAos/obg/FoxArrayBase.GofW


+ 1 - 1
WinAos/obg/FoxArrayBase.SymW

@@ -1076,7 +1076,7 @@ VAR
 	OPERATOR ^ "*"-(CONST left, right: ARRAY [?] OF SHORTINT): ARRAY [?] OF SHORTINT; 
 	PROCEDURE ^ Overlap(src1, src2: ADDRESS): BOOLEAN; 
 	PROCEDURE ^ AllocateTransposed(VAR dest: ADDRESS; src: ADDRESS; elementsize: SIZE): ANY; 
-	PROCEDURE ^ Transpose*(dest: ADDRESS; left: ADDRESS; Size: SIZE); 
+	PROCEDURE ^ Transpose*(dest, left: ADDRESS; Size: SIZE); 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF SHORTINT): ARRAY [*, *] OF SHORTINT; 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF INTEGER): ARRAY [*, *] OF INTEGER; 
 	OPERATOR ^ "`"-(CONST left: ARRAY [*, *] OF LONGINT): ARRAY [*, *] OF LONGINT; 

BIN
WinAos/obg/FoxIntermediateBackend.GofW


BIN
WinAos/obg/Machine.GofW


BIN
WinAos/obg/Modules.GofW


BIN
WinAos/obg/Reflection.GofW


+ 4 - 1
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, Kernel;
 CONST 
 	ShowAllProcs = TRUE; 
 	MaxFrames = 128; 
@@ -91,6 +91,7 @@ TYPE
 	END; 
 VAR 
 	modes: ARRAY 25 OF CHAR; 
+	trace: Streams.Writer; 
 
 	PROCEDURE ^ CheckHeapAddress(address: ADDRESS): BOOLEAN; 
 	PROCEDURE ^ Wait(w: Streams.Writer); 
@@ -147,5 +148,7 @@ VAR
 	PROCEDURE ^ ReportScope*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
 	PROCEDURE ^ ReportModule*(w: Streams.Writer; refs: Modules.Bytes; offset: LONGINT); 
 	PROCEDURE ^ Report*(w: Streams.Writer; refs: Modules.Bytes; offset: LONGINT); 
+	PROCEDURE ^ TraceH(process: Objects.Process; pc, bp: ADDRESS; stacklow, stackhigh: ADDRESS); 
+	PROCEDURE ^ TraceProcesses*; 
 BEGIN
 END Reflection.

BIN
WinAos/obg/SkinEditor.GofW


BIN
WinAos/obg/Texts.GofW


BIN
WinAos/obg/WMGraphics.GofW


+ 1 - 0
WinAos/obg/WMGraphics.SymW

@@ -160,6 +160,7 @@ VAR
 	nofFallbackFonts: LONGINT; 
 
 	PROCEDURE ^ Max(a, b: LONGINT): LONGINT; 
+	PROCEDURE ^ Swap(VAR a, b: LONGINT); 
 	PROCEDURE ^ MakeRectangle*(l, t, r, b: LONGINT): Rectangle; 
 	PROCEDURE ^ ColorToRGBA*(color: Color; VAR r, g, b, a: LONGINT); 
 	PROCEDURE ^ RGBAToColor*(r, g, b, a: LONGINT): Color; 

BIN
WinAos/obg/WMGraphicsSmooth.GofW


+ 6 - 5
WinAos/obg/WMGraphicsSmooth.SymW

@@ -13,21 +13,22 @@ TYPE
 		lineWidth-: Real; 
 		capType-: LONGINT; 
 		rasterMode: Raster.Mode; 
-		colorMap: ARRAY 256 OF Raster.Pixel; 
+		drawColor: WMGraphics.Color; 
+		drawColorMap: ARRAY 256 OF Raster.Pixel; 
 		halfLineWidth: Real; 
 		halfLineWidthBy255: Real; 
 		invLineWidthBy255: Real; 
 		halfLineWidthSqr: Real; 
 
 		PROCEDURE ^  & New*(img: Raster.Image); 
-		PROCEDURE ^ SetColor*(x: WMGraphics.Color); 
+		PROCEDURE ^ SetDrawColor(color: WMGraphics.Color); 
 		PROCEDURE ^ SetLineWidth*(w: Real); 
 		PROCEDURE ^ SetLineCap*(lineCap: LONGINT); 
-		PROCEDURE ^ LineReal*(x0, y0, x1, y1: Real; lineColor: WMGraphics.Color; mode: LONGINT); 
+		PROCEDURE ^ LineReal*(x0, y0, x1, y1: Real; color: WMGraphics.Color; mode: LONGINT); 
 		PROCEDURE ^ Disk*(x0, y0: Real; radius: Real; color: WMGraphics.Color; mode: LONGINT); 
 		PROCEDURE ^ DrawDisk(x0, y0, radius: Real); 
-		PROCEDURE ^ PutPixel(x, y: LONGINT; colorMapIndex: LONGINT); 
-		PROCEDURE ^ PutPixelSwapped(x, y: LONGINT; colorMapIndex: LONGINT); 
+		PROCEDURE ^ PutPixel(x, y: LONGINT; drawColorMapIndex: LONGINT); 
+		PROCEDURE ^ PutPixelSwapped(x, y: LONGINT; drawColorMapIndex: LONGINT); 
 		PROCEDURE ^ DrawThinLine(x0, y0, x1, y1: Real); 
 		PROCEDURE ^ DrawThickLine(x0, y0, x1, y1: Real); 
 	END Canvas; 

BIN
WinAos/obg/WMInstaller.GofW


BIN
WinAos/obg/WMSlideshow.GofW


BIN
WinAos/obg/WMStandardComponents.GofW


+ 1 - 0
WinAos/obg/WMStandardComponents.SymW

@@ -359,6 +359,7 @@ TYPE
 		dx, dy: LONGINT; 
 
 		PROCEDURE ^  & Init*; 
+		PROCEDURE ^ GetOffsets*(VAR x, y: LONGINT); 
 		PROCEDURE ^ PropertyChanged*(sender, property: ANY); 
 		PROCEDURE ^ RecacheProperties*; 
 		PROCEDURE ^ ScrollbarsChanged(sender, data: ANY); 

BIN
WinAos/obg/WMTextView.GofW


+ 10 - 0
WinAos/obg/WMTextView.SymW

@@ -392,6 +392,13 @@ TYPE
 		PROCEDURE ^ GetFont(CONST name: ARRAY OF CHAR; size: LONGINT; style: SET): WMGraphics.Font; 
 	END FontCache; 
 
+	DZ = OBJECT (Texts.Attributes)
+	VAR 
+		value: LONGINT; 
+
+		PROCEDURE ^  & Init(v: LONGINT); 
+	END DZ; 
+
 	; 
 VAR 
 	manager: WMWindowManager.WindowManager; 
@@ -413,6 +420,9 @@ VAR
 	END; 
 
 	PROCEDURE ^ Limit(x, min, max: LONGINT): LONGINT; 
+	PROCEDURE ^ GetNewSize(CONST fontname: ARRAY OF CHAR; value, currentSize: LONGINT; VAR newSize: LONGINT); 
+	PROCEDURE ^ EnsureAttribute(VAR attr: Texts.Attributes); 
+	PROCEDURE ^ ChangeAttribute(VAR attr: Texts.Attributes; userData: ANY); 
 	PROCEDURE ^ GetFontFromAttr(info: Texts.FontInfo): WMGraphics.Font; 
 	PROCEDURE ^ IsSameFont(f1, f2: WMGraphics.Font): BOOLEAN; 
 	PROCEDURE ^ CheckFont(style: SyntaxHighlighter.Style; font: WMGraphics.Font; VAR fontCache: FontCache); 

BIN
WinAos/obg/WMWindowManager.GofW