February 2015 - Oberon - mailman3.inf.ethz.ch

Oberon / Linux Revival
by Stout, John - Management Information Systems Coordinator 17 Feb '15

17 Feb '15

Marvellous! I've just run it on my new Raspberry Pi 2. I assume that we should be able to get Gadgets working fairly easily, but even with just (!) the standard Oberon interface it's a great advertisement. John ________________________________________ From: oberon-request(a)lists.inf.ethz.ch [oberon-request(a)lists.inf.ethz.ch] Sent: 16 February 2015 11:00 To: oberon(a)lists.inf.ethz.ch Subject: Oberon Digest, Vol 129, Issue 4 Send Oberon mailing list submissions to oberon(a)lists.inf.ethz.ch To subscribe or unsubscribe via the World Wide Web, visit https://lists.inf.ethz.ch/mailman/listinfo/oberon or, via email, send a message with subject or body 'help' to oberon-request(a)lists.inf.ethz.ch You can reach the person managing the list at oberon-owner(a)lists.inf.ethz.ch When replying, please edit your Subject line so it is more specific than "Re: Contents of Oberon digest..." Today's Topics: 1. Oberon / Linux Revival (Peter Matthias) ---------------------------------------------------------------------- Message: 1 Date: Sun, 15 Feb 2015 14:37:41 +0100 From: Peter Matthias <PeterMatthias(a)web.de> Subject: [Oberon] Oberon / Linux Revival To: oberon(a)lists.inf.ethz.ch Message-ID: <54E0A125.5010307(a)web.de> Content-Type: text/plain; charset=utf-8; format=flowed Hi all, in case someone is interested: I uploaded a proof of concept of a multi binary distribution of Oberon on the Linux kernel to https://drive.google.com/file/d/0B6eJZR_nlqauODdGVDUwd0Q3OGM/view?usp=shari… . It runs on ARM, MIPS and X86. Just extract the tgz file, go into olr directory and run ./ola (ARM) ./olm (MIPS) or ./olx (X86). It compiles itself, X86 version also compiles MIPS and ARM. All source and some instructions are included. Have fun. Peter ------------------------------ -- Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems https://lists.inf.ethz.ch/mailman/listinfo/oberon End of Oberon Digest, Vol 129, Issue 4 **************************************

1 0

Re (2): Re (2): A2, targeting a Geode SC3200.
by peter＠easthope.ca 10 Feb '15

10 Feb '15

From: Felix Friedrich <felix.friedrich(a)inf.ethz.ch> Date: Wed, 28 Jan 2015 22:12:22 +0100 > ... try to replace I386.PCI.Mod by BiosFreePCI.Mod. Done, and with this config setting, ATADetect=legacy the CF, ID0#1, appears to mount. The boot trace comes to this. pid= -1 Exception during command execution The end of the new trace is here. http://carnot.yi.org/TatungA2BiosFree.jpg Further ideas? Thanks, ... Peter E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 12 Tel +1 360 639 0202 http://carnot.yi.org/ Bcc: peter at easthope. ca

1 0

ETHO 'holds' TCP connection.
by eas lab 09 Feb '15

09 Feb '15

ETHO's Mail & USEnet free-form-interfaces are so much better than the inflexible pre-determined normal alternatives. But for unknown reasons my NNTP is often slower and even "hangs" sometimes. Now I see: -> lsof | grep obe |grep TCP | awk '{print $1 ":" $2 ":" $8 $9}' == linux.obe:9288:100.84.235.103:59049->213.239.209.88:nntp(ESTABLISHED) linux.obe:9288:100.87.22.6:59022->213.239.209.88:nntp(ESTABLISHED) linux.obe:9288:100.87.22.6:59023->213.239.209.88:nntp(ESTABLISHED) linux.obe:9288:100.84.235.103:59046->213.239.209.88:nntp(ESTABLISHED) linux.obe:9288:100.84.235.103:59047->213.239.209.88:nntp(ESTABLISHED) linux.obe:9288:100.78.139.55:39596->213.239.209.88:nntp(ESTABLISHED) linux.obe:10193:10.170.96.162:58466->213.239.209.88:nntp(ESTABLISHED) linux.obe:10193:10.203.48.170:41384->213.239.209.88:nntp(ESTABLISHED) linux.obe:10193:10.203.33.66:35201->213.239.209.88:nntp(ESTABLISHED) linux.obe:10193:10.170.96.162:58465->213.239.209.88:nntp(ESTABLISHED) This means that 2 of LEO, which were recently on-line are still "ESTABLISHED" Other inet facilities, of linux, which were used and done/disconnected don't show, as I'd expect, and the "still-connected" from PC to rPi shows: sshd:7519:192.168.0.1:ssh->192.168.0.2:37236(ESTABLISHED) I expect the NetSystem.* to be rather complex. Is there a simple way to debug/fix this? How did old N-O handle the critical time-sharing? With LEO the display is frozen while NetSystem is connected, but mouse still is active. I thought display and mouse had the same rank/priority; ie. each Frame has its own display and mouse handler? == Chris Glur.

1 0

Some strange behaviour in A2
by Yaroslav Romanchenko 01 Feb '15

01 Feb '15

Hi guys, I faced with some strange behaviour in A2. After drawing 32-bit bitmap with alpha set to 0 into img field of WMWindowManager.BufferWindow instance, the window stops to handle mouse events. I've made small code based on WMScribble application to illustrate this. Just open instance of window. Draw something. Window will work as expected. Then press "b" key. The precomputed picture will be drawn on img field. Then try to draw something using mouse... Now you should see that when mouse positioned on black parts of picture the cursor changed to cursor that currently set for underlaying window. Even mouse clicks handled by underlaying window. And after clicking the WMScribble losts focus! It looks like you may see the window, but, for system it absent. Situation changes when you point mouse exactly on some yellow part of picture. The mouse pointer changes to cross-hair, window can receive mouse click again and drawing works also. Is it known feature in A2 or a bug? MODULE WMScribble; (** AUTHOR "TF"; PURPOSE "Example program"; *) IMPORT SYSTEM, Raster, WMWindowManager, Strings, WMGraphics, WMRectangles, Modules, WMDialogs; CONST MAP = [ [8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 4, 4, 6, 4, 4, 6, 4, 6, 4, 4, 4, 6, 4], [8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4], [8, 0, 3, 3, 0, 0, 0, 0, 0, 8, 8, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6], [8, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6], [8, 0, 3, 3, 0, 0, 0, 0, 0, 8, 8, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4], [8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 4, 0, 0, 0, 0, 0, 6, 6, 6, 0, 6, 4, 6], [8, 8, 8, 8, 0, 8, 8, 8, 8, 8, 8, 4, 4, 4, 4, 4, 4, 6, 0, 0, 0, 0, 0, 6], [7, 7, 7, 7, 0, 7, 7, 7, 7, 0, 8, 0, 8, 0, 8, 0, 8, 4, 0, 4, 0, 6, 0, 6], [7, 7, 0, 0, 0, 0, 0, 0, 7, 8, 0, 8, 0, 8, 0, 8, 8, 6, 0, 0, 0, 0, 0, 6], [7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 6, 0, 0, 0, 0, 0, 4], [7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 6, 0, 6, 0, 6, 0, 6], [7, 7, 0, 0, 0, 0, 0, 0, 7, 8, 0, 8, 0, 8, 0, 8, 8, 6, 4, 6, 0, 6, 6, 6], [7, 7, 7, 7, 0, 7, 7, 7, 7, 8, 8, 4, 0, 6, 8, 4, 8, 3, 3, 3, 0, 3, 3, 3], [2, 2, 2, 2, 0, 2, 2, 2, 2, 4, 6, 4, 0, 0, 6, 0, 6, 3, 0, 0, 0, 0, 0, 3], [2, 2, 0, 0, 0, 0, 0, 2, 2, 4, 0, 0, 0, 0, 0, 0, 4, 3, 0, 0, 0, 0, 0, 3], [2, 0, 0, 0, 0, 0, 0, 0, 2, 4, 0, 0, 0, 0, 0, 0, 4, 3, 0, 0, 0, 0, 0, 3], [1, 0, 0, 0, 0, 0, 0, 0, 1, 4, 4, 4, 4, 4, 6, 0, 6, 3, 3, 0, 0, 0, 3, 3], [2, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 2, 2, 2, 6, 6, 0, 0, 5, 0, 5, 0, 5], [2, 2, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 2, 2, 0, 5, 0, 5, 0, 0, 0, 5, 5], [2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 5, 0, 5, 0, 5, 0, 5, 0, 5], [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5], [2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 5, 0, 5, 0, 5, 0, 5, 0, 5], [2, 2, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 2, 2, 0, 5, 0, 5, 0, 0, 0, 5, 5], [2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 5, 5, 5, 5, 5, 5, 5, 5, 5] ]; MAP_HEIGHT = LEN(MAP, 0); MAP_WIDTH = LEN(MAP, 1); CELL_WIDTH = 20; TYPE ScribbleWindow = OBJECT (WMWindowManager.BufferWindow); VAR lx, ly : LONGINT; mode: Raster.Mode; PROCEDURE &New*; BEGIN Init(nMapPixelsWidth, nMapPixelsHeight, FALSE); WMWindowManager.AddWindow(SELF, 200, 200); SetTitle(Strings.NewString("Scribble Example")); SetIcon(WMGraphics.LoadImage("WMIcons.tar://WMScribble.png", TRUE)); canvas.Fill(WMRectangles.MakeRect(0, 0, GetWidth(), GetHeight()), WMGraphics.White, WMGraphics.ModeCopy); Invalidate(WMRectangles.MakeRect(0, 0, GetWidth(), GetHeight())); SetPointerInfo(manager.pointerCrosshair) END New; PROCEDURE PointerMove(x, y : LONGINT; keys : SET); BEGIN IF 0 IN keys THEN canvas.Line(lx, ly, x, y, WMGraphics.Blue, WMGraphics.ModeSrcOverDst); Invalidate( WMRectangles.MakeRect(Strings.Min(lx, x), Strings.Min(ly, y), Strings.Max(lx, x) + 1, Strings.Max(ly, y) + 1) ) END; lx := x; ly := y END PointerMove; PROCEDURE PointerDown(x, y : LONGINT; keys : SET); BEGIN lx := x; ly := y; IF 2 IN keys THEN canvas.Fill(WMRectangles.MakeRect(0, 0, GetWidth(), GetHeight()), WMGraphics.White, WMGraphics.ModeCopy); Invalidate(WMRectangles.MakeRect(0, 0, GetWidth(), GetHeight())) END END PointerDown; PROCEDURE KeyEvent(ucs : LONGINT; flags : SET; keySym : LONGINT); VAR res, y: LONGINT; filename : ARRAY 128 OF CHAR; BEGIN IF ucs = ORD("s") THEN filename := "scribble.bmp"; IF WMDialogs.QueryString("Save as :", filename) = WMDialogs.ResOk THEN WMGraphics.StoreImage(img, filename, res); IF res # 0 THEN WMDialogs.Error("Sorry", "The image could not be stored. Try another file name."); END END ELSIF ucs = ORD("b") THEN Raster.InitMode(mode, Raster.srcCopy); FOR y := 0 TO nMapPixelsHeight - 1 DO Raster.PutPixels(img, 0, y, nMapPixelsWidth, Raster.BGRA8888, bufMapPixels^, y * nMapPixelsWidth * 4, mode) END; Invalidate(WMRectangles.MakeRect(0, 0, GetWidth(), GetHeight())); END END KeyEvent; END ScribbleWindow; VAR s : ScribbleWindow; bufMapPixels: POINTER TO ARRAY OF CHAR; nMapPixelsWidth, nMapPixelsHeight: LONGINT; PROCEDURE InitMapPixels; VAR x, y, tileX, tileY, x2, y2: LONGINT; pixelWall, pixelFloor: Raster.Pixel; bTop, bBottom, bLeft, bRight: BOOLEAN; BEGIN NEW(bufMapPixels, nMapPixelsWidth * nMapPixelsHeight * 4); pixelWall[Raster.r] := 080X; pixelWall[Raster.g] := 050X; pixelWall[Raster.b] := 0X; pixelWall[Raster.a] := 020X; pixelFloor[Raster.r] := 0X; pixelFloor[Raster.g] := 0X; pixelFloor[Raster.b] := 0X; pixelFloor[Raster.a] := 0X; (* draw border *) FOR y := 0 TO nMapPixelsHeight - 1 DO FOR x := 0 TO nMapPixelsWidth - 1 DO IF (x = 0) OR (x = nMapPixelsWidth - 1) OR (y = 0) OR (y = nMapPixelsHeight - 1) THEN SYSTEM.PUT32(SYSTEM.ADR(bufMapPixels^[0]) + nMapPixelsWidth * 4 * y + 4 * x, SYSTEM.VAL(LONGINT, pixelWall)) ELSE SYSTEM.PUT32(SYSTEM.ADR(bufMapPixels^[0]) + nMapPixelsWidth * 4 * y + 4 * x, SYSTEM.VAL(LONGINT, pixelFloor)) END END END; tileY := 1; FOR y := 1 TO MAP_HEIGHT - 2 DO tileX := 1; FOR x := 1 TO MAP_WIDTH - 2 DO IF MAP[y, x] > 0 THEN bBottom := (y + 1 <= MAP_HEIGHT - 2) & (MAP[y + 1, x] = 0); bTop := (y - 1 >= 1) & (MAP[y - 1, x] = 0); bLeft := (x - 1 >= 1) & (MAP[y, x - 1] = 0); bRight := (x + 1 <= MAP_WIDTH - 2) & (MAP[y, x + 1] = 0); FOR y2 := 0 TO CELL_WIDTH - 1 DO FOR x2 := 0 TO CELL_WIDTH - 1 DO IF ((x2 = 0) & bLeft) OR ((y2 = 0) & bTop) OR ((x2 = CELL_WIDTH - 1) & bRight) OR ((y2 = CELL_WIDTH - 1) & bBottom) OR ((x2 + y2) MOD 5 = 0) THEN SYSTEM.PUT32(SYSTEM.ADR(bufMapPixels^[0]) + nMapPixelsWidth * 4 * (tileY + y2) + 4 * (tileX + x2), SYSTEM.VAL(LONGINT, pixelWall)) END END END END; INC(tileX, CELL_WIDTH) END; INC(tileY, CELL_WIDTH) END END InitMapPixels; PROCEDURE Open*; BEGIN {EXCLUSIVE} IF s # NIL THEN s.Close END; nMapPixelsWidth := CELL_WIDTH * (MAP_WIDTH - 2) + 2; nMapPixelsHeight := CELL_WIDTH * (MAP_HEIGHT - 2) + 2; InitMapPixels; NEW(s); END Open; PROCEDURE Cleanup; BEGIN IF s # NIL THEN s.Close END END Cleanup; BEGIN Modules.InstallTermHandler(Cleanup) END WMScribble. SystemTools.Free WMScribble ~ WMScribble.Open ~ WMPicView.Open scribble.bmp ~ --- Cheers, SAGE http://sage.com.ua/

2 1