November 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

FPGA - Simple Graph Fill
by Tomas Kral 14 Jan '19

14 Jan '19

> In short, from a given (x, y), evaluate F(x+1, y-1/2) which dictates > wether to go East or South-East for the next pixel. Hi, I have this simple example, drawing a circle, and attempting to fill it, starting off the centre. Fill goes well east and north, and fills exactly one quadrant. Uncommenting west south then the recursive does not stop. GraphTest.DoCircle 11 300 200 4 ~ colour x y radius GraphTest.DoFill 0 8 300 200 ~ target replacement x y col x y 0 300 200 east start 0 301 200 0 302 200 0 303 200 11 304 200 east stop col # target col 0 303 201 north start 11 304 201 east resume 11 303 202 north resume 0 302 201 0 303 201 11 304 201 11 303 202 .... never terminates CONST ppw = 8; dpt = 4; bpl = dpt*128; (*pixels per word, depth, bytes per line*) PROCEDURE Fill*(tgc, rpc, x, y: INTEGER); VAR c, a: INTEGER; (*tgc, rpc - target replacement colour*) BEGIN a := D.Base + (x DIV ppw)*4 + y*bpl; S.GET(a, c); c := ASR(c, -(x MOD ppw * 4)) MOD 10H; O.Int(c, 4); O.Int(x, 4); O.Int(y, 4); O.Ln; IF c = tgc THEN D.Dot(rpc, x, y, D.replace); Fill(tgc, rpc, x+1, y); (*east*) Fill(tgc, rpc, x, y+1); (*north*) (*Fill(tgc, rpc, x-1, y); (*west*) Fill(tgc, rpc, x, y-1); (*south*)*) END END Fill; -- Tomas Kral <thomas.kral(a)email.cz>

6 11

FPGA - OberonV4 Dialogs
by Tomas Kral 26 Dec '18

26 Dec '18

Hi, > To have this „Linz GUI“ (= Dialogs) you don’t need Oberon-2. > You „only“ have to > a) adapt the outer core (mainly ') > b) port the relevant Linz modules from Oberon-2 to to Oberon-07 As porting OP2 for RISC5 seems already taken care of. I wish to concentrate on `Dialogs' for FPGA RISC5 1MB machines. I would like to start recoding them to Oberon-7, so far without integration to `Texts/TextFrames', just to make them hover above viewers in their own bound rectangle, taking the whole event loop until quit. Integration to come later. Not having much experience nor knowledge of V4, any guidance or suggestion more then welcome. -- Tomas Kral <thomas.kral(a)email.cz>

4 40

PO2013 - Simple Calc Tool
by Tomas Kral 20 Dec '18

20 Dec '18

Hi, Looking for simple calculator, doing simple math, e.g. adding offsets and addresses, taking input from standard scanner or In.Mod? Bin, Hex, Dec, Octal not needed. Many thanks. -- Tomas Kral <thomas.kral(a)email.cz>

4 5

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 Andreas Pirklbauer 07 Dec '18

07 Dec '18

I recommend that you read Wirth's October 1989 ETH technical report No. 117 titled “Drawing Lines, Circles and Ellipses in a Raster”. In a tutorial style, Bresenham’s algorithms for drawing straight lines and circles are developed using Dijkstra’s notation and discipline. > Tomas Kral thomas.kral(a)email.cz Wed Nov 7 12:51:46 CET 2018 > > Circle does not use SIN(x) or COS(y) at all, how is that possible? I > have always thought we need some trigonometry to draw a circle.

5 5

Project Oberon / Linux
by peter＠easthope.ca 28 Nov '18

28 Nov '18

>From reading http://oberon.wikidot.com/ and https://www.sifive.com/boards I infer that Peter Matthias would favor Project Oberon / RISC-V Linux on a HiFive1 or HiFive Unleashed with CentOS or Ubuntu. Is anyone running one of these setups? Another line in https://en.wikibooks.org/wiki/Oberon#Contemporary_Hardware might be warranted. Thanks, ... Lyall E. -- Message composed and transmitted by software designed to avoid the complication, overhead and vulnerability of antivirus software. 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 +1 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Processing Text in each of several files & garbage collection.
by peter＠easthope.ca 27 Nov '18

27 Nov '18

Hi, For an arbitrary number of files, Oberon.HTML.Mod can create an HTML file from Text a file. This code is visible near the end of https://en.wikibooks.org/wiki/Oberon/Oberon.HTML.Mod . WHILE (S.class = Texts.Name) & (Texts.Pos(S) < end + S.len + 1) DO Out.String(S.s); Out.String(" => "); NEW(T); Texts.Open(T, S.s); CompileT(); Texts.Scan(S) END All the opened Texts remain in memory until garbage collection after the HTML module is unloaded; correct? Can memory be salvaged without unloading the module? A message from B. Smith-Mannschott in 1999 is somewhat relevant. http://www.ethoberon.ethz.ch/native/archive/59.txt Thanks, ... Lyall E. -- Message composed and transmitted by software designed to avoid the complication, overhead and vulnerability of antivirus software. 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 +1 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Re: [Oberon] PO2013 - Oberon mouse location
by peter＠easthope.ca 27 Nov '18

27 Nov '18

From: "Skulski, Wojciech" <skulski(a)pas.rochester.edu> Date: Wed, 21 Nov 2018 16:08:48 +0000 > A remote Oberon desktop would be very interesting. This would > require a remote Display. How to approach it? In S3 and in the Oberon subsystem of A2 (*), ET.Open VNC.Tool . What is VNC? https://en.wikipedia.org/wiki/Virtual_Network_Computing A machine needs more than 1 MB of memory to allow niceties (high-res color display & etc.) S3 succeeded in operating DRAM. Correct? So the solution to several problems is evident: spend effort to develop support for DRAM or spend money on SRAM or spend time waiting for PGAs with more BRAM. Correct? According to https://en.wikipedia.org/wiki/Static_random-access_memory#Contemporary_SRAM… a 2 MB SRAM with asynchronous interface is available. Put 4 or 8 of these beasts on RiskFive and you have 8 or 16 MB. Correct? As you stated, hardware cost is negligible in comparison to the time people pour into software. Correct? Regards, ... Lyall E. (*) It's deja vu all over again. https://quoteinvestigator.com/2013/10/08/deja-vu-again/ -- Message composed and transmitted by software designed to avoid the complication, overhead and vulnerability of antivirus software. 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 +1 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

3 2

FPGA - OberonV4 Dialogs
by Andreas Pirklbauer 26 Nov '18

26 Nov '18

> This shows why an Oberon-2 compiler makes much more sense. There will soon be a enhanced Oberon-07 compiler for FPGA Oberon which will support some of the key features of Oberon-2, e.g., - type-bound procedures - NEW(p, len) for open array types Once these are in place, the remaining differences are relatively minor, e.g. use the type CASE statement instead of WITH for regional type guard, RETURN only at the end of a procedure,..

1 0