October 2018 - Oberon - mailman3.inf.ethz.ch

Wanted: Oberon Syntax in TextMate, Sublime Text or Atom Grammar
by Treutwein Bernhard 01 Jan '22

01 Jan '22

Does somebody have grammars for Oberon / Oberon-2 / Component Pascal / Active Oberon as grammar for TextMate / Sublime Text / Atom Background: Github wrongly classifies Oberon / Oberon-2 / Component Pascal / Active Oberon as Modula-2. I opened quite some tiome ago an issue in the github/linguist project (https://github.com/github/linguist/issues/3888) and they don't accept EBNF grammars. -- Bernhard Treutwein

6 9

a module a page (keeps the mind sane)?
by Frans-Pieter Vonck 19 Dec '18

19 Dec '18

I'm looking into the code that is written for the citizen science project Luftdaten. The link below shows the code for firmware for a sensor node, the esp8266. https://github.com/opendata-stuttgart/sensors-software/blob/master/airrohr-… The firmware is written in the arduino language. Arduino is not a modulair language, the main program is over 4000 lines of code. +/- 75 pages (A4). Does anyone remember where Niklaus mentions the ' one page of code, one module ' rule? Greets, F.P. Vonck

14 33

FPGA - Display3.Mod - porting
by Tomas Kral 20 Nov '18

20 Nov '18

Hi, Looking at `Display3.Mod', that was designed for Gadget system. It defines so called graphics Port and Mask aiding clipping and window management. I wish to port some of the drawing primitives to Oberon-7, so we could draw filled rectangles, polygons, ellipses, splines, etc. It may be foreseen as clipping masks may not be used for Oberon-7 (as is unlikely to run Gadgets on), so is it good to remove masks from the implementation for Oberon-7. What could the simplified interface look like? Full definition follows.. ============================================== DEFINITION Display3; (* portable *) (* jm 17.1.95 / tk 7.12.95*) (*Module Display3 implements the clipped graphic primitives used by the Gadget system. It has a twin module called Printer3 that implements the same primitives for the printer. *) IMPORT Display, Fonts, Pictures; CONST replace = Display.replace; paint = Display.paint; invert = Display.invert; (* Standard display modes. *) (* Display styles *) filled = 1; (* Filled *) TYPE Mask = POINTER TO MaskDesc; (* Clipping Mask. *) (* Informs a frame of a new mask. This message is always sent directly. *) OverlapMsg = RECORD (Display.FrameMsg) M: Mask (* Use NIL to indicate to a frame that its current mask is invalid. *) END; (* Message broadcast by a frame (identified by the F field) to indicate that it has an invalid mask and now requires its parent, to calculate a new mask for it and to inform it through the OverlapMsg. *) UpdateMaskMsg = RECORD (Display.FrameMsg) END; MaskDesc = (* Clipping mask descriptor. *)RECORD x, y: INTEGER (* Relative mask origin or offset. *); X, Y, W, H: INTEGER (* Current clipping port in absolute coordinates. *) END; (* Enumerate the set of rectangles in a mask. The clipping port is not enumerated. *) EnumProc = PROCEDURE (X, Y, W, H: INTEGER); VAR selectpat: Display.Pattern; (* Pattern used to draw gadgets when in a selected state. *) (* Colors *) FG, BG: INTEGER; (* Foreground (black) and background (white) color indexes. *) red, green, blue: INTEGER; (* Primary color indexes. *) black, white: INTEGER; (* True black and white. *) topC: INTEGER; (* Top shadow color. *) bottomC: INTEGER; (* Bottom shadow color. *) upC: INTEGER; (* Color of a button. *) downC: INTEGER; (* Color of the pushed button *) groupC: INTEGER; (* Color of containers, i.e. gadgets that have a grouping function like panels. *) invertC: INTEGER; (* Best color for doing inverts.. *) textC: INTEGER; (* Default text color. *) textbackC: INTEGER; (* Default text background. *) textmode: INTEGER; (* Best CopyPattern mode for this display card. *) (* Initialize the Mask to the empty region, i.e. everything will be clipped away. *) PROCEDURE Open(M: Mask); (* Enumerate all the visible areas of a mask. The clipping port is not enumerated. The mask translation vector is taken into account.*) PROCEDURE Enum(M: Mask; enum: EnumProc); (* Enumerate all the invisible areas of a mask. The clipping port is not enumerated. Note that you might obtain coordinates outside of the normal screen area, bounded by approximately -/+ 8192. The mask translation vector is taken into account.*) PROCEDURE EnumInvert(M: Mask; enum: EnumProc); (* Enumerate all the visible areas in the given rectangular region. The clipping port is not taken into account. *) PROCEDURE EnumRect(M: Mask; X, Y, W, H: INTEGER; enum: EnumProc); (* Make a copy of a mask. *) PROCEDURE Copy(from: Mask; VAR to: Mask); (* Add the rectangle X, Y, W, H as a visible/drawable area to the mask. *) PROCEDURE Add(M: Mask; X, Y, W, H: INTEGER); (* Clip the current clipping port of the mask to the rectangle X, Y, W, H. The result is an updated clipping port. *) PROCEDURE AdjustMask(M: Mask; X, Y, W, H: INTEGER); (* Remove area X, Y, W, H from the mask i.e. make area undrawable. *) PROCEDURE Subtract(M: Mask; X, Y, W, H: INTEGER); (* Interset the mask with the rectangle X, Y, W, H. The visible areas are restricted to this rectangle. *) PROCEDURE Intersect(M: Mask; X, Y, W, H: INTEGER); (* Intersect the masks A and B resulting in R. *) PROCEDURE IntersectMasks(A, B: Mask; VAR R: Mask); (* R is an out parameter only *) (* Subtracts the visible areas of B from A to give mask R. *) PROCEDURE SubtractMasks(A, B: Mask; VAR R: Mask); (* Translate the mask so that the resulting origin/offset is 0, 0. This is done by "adding in" the translation vector. *) PROCEDURE Shift(M: Mask); (* Returns TRUE if the visible areas of the mask form a single rectangle. The result, when TRUE, is returned. The clipping port is not taken into account. *) PROCEDURE Rectangular(M: Mask; VAR X, Y, W, H: INTEGER): BOOLEAN; (* Using Display.CopyBlock, copy the area M to position X, Y. The point M.x, M.y is copied to screen coordinates X, Y. *) PROCEDURE CopyMask(M: Mask; X, Y: INTEGER; mode: INTEGER); (* Display.ReplConst through a mask. *) PROCEDURE ReplConst(M: Mask; col: Display.Color; X, Y, W, H, mode: INTEGER); (* Is this rectangle completely visible? The clipping port is taken into acount. *) PROCEDURE Visible(M: Mask; X, Y, W, H : INTEGER) : BOOLEAN; (* Display.Dot through a clipping mask. *) PROCEDURE Dot(M: Mask; col: Display.Color; X, Y, mode: INTEGER); (* Display.FillPattern through a clipping mask. pX, pY is the pattern pin-point. *) PROCEDURE FillPattern(M: Mask; col: Display.Color; pat: Display.Pattern; pX, pY, X, Y, W, H, mode: INTEGER); (* Same as Display.CopyPattern, but through a clipping mask. *) PROCEDURE CopyPattern(M: Mask; col: Display.Color; pat: Display.Pattern; X, Y, mode: INTEGER); (* Draw rectangle outline in the specified size, line width and pattern. *) PROCEDURE Rect(M: Mask; col: Display.Color; pat: Display.Pattern; X, Y, W, H, width, mode: INTEGER); (* Draw rectangle outline in width using top and bottom shadow (3D effects ).*) PROCEDURE Rect3D(M: Mask; topcol, botcol: Display.Color; X, Y, W, H, width, mode: INTEGER); (* Fill rectangle with 3D shadow effects. incol specifies the "inside" color. *) PROCEDURE FilledRect3D(M: Mask; topcol, botcol, incol: Display.Color; X, Y, W, H, width, mode: INTEGER); (* Draw a line in the specified pattern and width. Round brushes are used to draw thick lines. *) PROCEDURE Line(M: Mask; col: Display.Color; pat: Display.Pattern; X, Y, X1, Y1, width, mode: INTEGER); (* Draw a polygon in pattern pat. n specifies the number of vertices listed in the arrays X and Y. Style may be {filled}. *) PROCEDURE Poly(M: Mask; col: Display.Color; pat: Display.Pattern; VAR X, Y: ARRAY OF INTEGER; n, width: INTEGER; style: SET; mode: INTEGER); (* Draw an ellipse. Implementation restriction: cannot fill an ellipse or draw an ellipse with line width > 1 *) PROCEDURE Ellipse(M: Mask; col: Display.Color; pat: Display.Pattern; X, Y, a, b, width: INTEGER; style: SET; mode: INTEGER); (* Draw a circle in radius r using pattern pat at position X, Y. Thick line widths are allowed. *) PROCEDURE Circle(M: Mask; col: Display.Color; pat: Display.Pattern; X, Y, r, width: INTEGER; style: SET; mode: INTEGER); (* Draw string s in font fnt and color col at position X, Y. *) PROCEDURE String(M: Mask; col: Display.Color; X, Y: INTEGER; fnt: Fonts.Font; s: ARRAY OF CHAR; mode: INTEGER); (* Draw a string s in font fnt centered in the rectangle X, Y, W, H. Line breaks will be inserted as needed. *) PROCEDURE CenterString(M: Mask; col: Display.Color; X, Y, W, H: INTEGER; fnt: Fonts.Font; s: ARRAY OF CHAR; mode: INTEGER); (* Return the size of a string in width w and height h. dsr returns the baseline offset as a positive value. *) PROCEDURE StringSize(s: ARRAY OF CHAR; fnt: Fonts.Font; VAR w, h, dsr: INTEGER); (* Draw the area X, Y, W, H of picture P at position DX, DY on the display. *) PROCEDURE Pict(M: Mask; P: Pictures.Picture; X, Y, W, H, DX, DY, mode: INTEGER); (* Replicate a picture filling area X, Y, W, H on the display. px, py is the picture pin-point. *) PROCEDURE ReplPict(M: Mask; P: Pictures.Picture; px, py, X, Y, W, H, mode: INTEGER); END Display3. -- Tomas Kral <thomas.kral(a)email.cz>

3 4

Oberon V4 for Linux
by Tomas Kral 02 Nov '18

02 Nov '18

Hi, This link abandoned non functional, http://www.ssw.uni-linz.ac.at/Teaching/Projects/LinuxOberon/ Where to get Oberon V4 for Linux? Running `RPI', I just wish to see what others do with V4 on Windows. Many thanks. -- Tomas Kral <thomas.kral(a)email.cz>

8 22

Fwd: Re: Bit manipulation in Oberon-07
by Walter Gallegos 31 Oct '18

31 Oct '18

> ...MOD/DIV are just other words for AND/ASR... > All times I use SET when working with hardware registers; so, I was curious about the generated code for MOD/DIV alternative A simple test for extracting some bits from a 16 bits value a := 2345H; b := a DIV 100H MOD 7; Generate : 10 40002345 MOV R0 R0 9029 11 A0D00000 STR R0 SB 0 12 80D00000 LDR R0 SB 0 13 40020008 ASR R0 R0 8 14 400B0007 DIV R0 R0 7 15 20000000 MOV' R0 R0 R0 16 A0D00004 STR R0 SB 4 I forget something ?

3 2

FPGA - Oberon - Sound
by Tomas Kral 30 Oct '18

30 Oct '18

Hi, What could be a simple sound format for Oberon, possibly something better to PC Speaker or ZX Spectrum buzzer. It should be very conservative on memory use. Did Ceres have some sound output? Many thanks. -- Tomas Kral <thomas.kral(a)email.cz>

3 14

FPGA - Oberon-7 - Loops
by Tomas Kral 30 Oct '18

30 Oct '18

Hi, I am trying to optimise some code. I realise, the usual suspect for slow performance may be hidden somewhere inside inner loops. FOR a := 0 TO <expression> DO END; a := 0; WHILE a <= <expression> DO INC(a) END; a := 0; REPEAT INC(a) UNTIL a > <expression>; Expression is constant to the loop, how does compiler handle it? When does it pay to compute expression outside the loop? -- Tomas Kral <thomas.kral(a)email.cz>

8 44

Re: [Oberon] FPGA - Display.Mod 4-bit colour
by Jörg 29 Oct '18

29 Oct '18

Tomas Some history: In Native Oberon the "several video drivers" topic was solved somewhat similar. There were nine different implementations of Display. The files were called - Displays.Display.Mod - Empty.Display.Mod - GD54xx.Display.Mod - S3C805.Display.Mod - S3C924.Display.Mod - S3Trio.Display.Mod - SVGA.Display.Mod - VGA.Display.Mod - W32.Display.Mod All had the same interface (CONST, TYPE, VAR, PROCEDURE) but different implementations corresponding to the chip of the graphics card. In Native Oberon, Kernel.Mod offered routines to read configuration strings provided by the boot loader. (see also Oberon.Text) You configured a prefix (eg "S3Trio." ) to match your HW, Modules.Mod got that video driver prefix from Kernel and took care to load the correct file by adding this prefix to the filename. But this approach is not implemented in the inner core of ProjectOberon. br Jörg Am 02.10.18, 07:54 schrieb "Jörg" <joerg.straube(a)iaeth.ch>: Tomas No. The current Display subsystem in ProjectOberon is not prepared for different "video drivers". You would have to re-write the Display subsystem to be object oriented. With such an approach, all Display procedures Dot, CopyPattern... are procedure variables to be initialized with the correct procedures of the chosen "video driver". Basically, Display can then be seen as kind of dispatcher module for the underlying video driver. But most probably the easiest is to keep the interface of your two Display modules identical. If so, compile DisplayBW.Mod (implementing MODULE Display;) and rename Display.rsc to DisplayBW.rsc Then compile DisplayColor.Mod (also implementing MODULE Display;) and rename Display.rsc to DisplayColor.rsc Now, the two files DisplayBW.rsc and DisplayColor.rsc are different implementations of Display having identical keys. Before booting, you have to copy the correct DisplayXY.rsc to Display.rsc br Jörg Am 01.10.18, 21:41 schrieb "Oberon im Auftrag von Tomas Kral" <oberon-bounces(a)lists.inf.ethz.ch im Auftrag von thomas.kral(a)email.cz>: > I believe the white now truly is {0,1,2,3} = 15, rather than {0} = 1. > But changing it, would invalidate clients, making a different import > KEY. Hi, Now I have two display modules, `Display.Mod' and `Display2.Mod' handling 1-bit and 4-bit colour respectively. While there could be a single driver `vid.v' selecting the mode by a switch e.g. swi[6], adjusting video base accordingly. Can the system somehow boot with either `Display' or `Display2' based on the swi[6]? `Display' is imported by other modules `Oberon',`Viewers',.. -- Tomas Kral <thomas.kral(a)email.cz> -- Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems https://lists.inf.ethz.ch/mailman/listinfo/oberon

4 14

how to correct opening files from internet
by Robert Lewis 27 Oct '18

27 Oct '18

i am connecting to internet thro 3com905b nic i believe it is working as i have a green lite and the act led flashes intermittently when i try to source loband.org using the http:www i get loading document failed but when i try https:www i get a desktop which is blank. what is the problem is this a .mod file coding flaw

1 0

FPGA - Screen.Mod
by Tomas Kral 26 Oct '18

26 Oct '18

Hi, EDIT (1) I am looking for `Screen.Mod' module (mainly its `Screen.Grub' command) hinted in PO2013 pictures. I have completed early version of `Bitmaps.Mod' supporting basic set of raster operations. I wish to share pictures and code. As we may not post attachments to the forum, I could expose to GitHub, there is also `WikiBook' run by Lyall E. Please advise. Many thanks. -- Tomas Kral <thomas.kral(a)email.cz>

4 15