July 2003 - Oberon - mailman3.inf.ethz.ch

Re: [Oberon] Support for Realtek RTL-8139 with Native Oberon
by frey＠inf.ethz.ch 05 Jan '05

05 Jan '05

> I'm running Native Oberon on a Pentium-II class machine. > How can a network card such as, Realtek RTL-8139 be > configured in Native Oberon ? PCITools.Scan was able to > detect this card as a PCI device. The driver is currently only available for the new Bluebottle OS. http://bluebottle.ethz.ch It should not be too difficult to make a Native Oberon driver out of the Bluebottle OS driver. But... I have no time to do this myself. --Thomas Frey

2 2

DIV and MOD
by Jacques Eloff 07 Aug '03

07 Aug '03

Hi I recently noticed that the compiler (at least the 2.3.8 Linux version for Intel) now attempts to compensate for fractions when performing signed integer division, adjusting the result returned by the CPU. This requires a minimum of three additional instructions and can create problems when routines are written in assembler since the result will deviate in some cases from what Oberon says the answer should be. Does anyone know what the reasoning behind this change was? Previously, something like x DIV y (with x, y: LONGINT) would result in MOV EAX, x[EBP] CDQ IDIV y[EBP] but now, the compiler generates MOV EAX, x[EBP] CDQ IDIV y[EBP] CMP EDX, 0 JGE done DEC EAX done: Regards Jacques Eloff

2 1

Touchpad and usb mouse
by Gérard Meunier 02 Aug '03

02 Aug '03

Hello, I've installed BB on a notebook, which has a touchpad. Under Windows, I can use the touchpad, or an usb mouse, or both together. Under BB, it's difficult to use the touchpad, because there is no middle button, and the control key doesn't replace it. (Under Native Oberon, the control key works fine with the touchpad.) And it's impossible to use the usb mouse, which responds erratically. (On my desktop computer, this mouse works well under BB.) Is there a solution? Cheers. Gérard

3 5

Offer and request, 1d/2d arrays
by Felix Friedrich 01 Aug '03

01 Aug '03

Hello everybody, as we are just preparing generic modules for operations on one and two dimensional arrays (of Integer,Rational,Real,Cplx variables), I would like to ask all of you for comments on typically needed features for modules of that kind. As future versions of Oberon/Aos will probably provide the functionalities that are just being collected, announcing desired features will be of use for all of us. We are currently working on - monadic and dyadic Operators (+,-,*,/,MOD,DIV) [Array, Array-Array, Array-Value] - additional features on ARRAY OF / ARRAY OF ARRAY OF including -- Norms, Distances, MinMax, MeanSsq, kSmallest/Median -- Patterned Access (Copy,Add,Div etc. ) -- Access on Indexes (Remove,Insert,Shift) -- Extract/Put Row/Col (on 2d only) -- SwapRows/SwapCols/Transpose (on 2d only) A short version of the current interface of (the Integer) modules is appended below [the operators as +,-,*etc. are omited]. Comments/Requests/Questions/Concerns welcome ! Felix. Array1d Array = POINTER TO ARRAY OF LONGINT; PROCEDURE Abs (VAR x: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE AddAA (VAR x, y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE AddAV (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE AddAVPat (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE ApplyMap (map: Map; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE ApplyMapPat (map: Map; VAR res: ARRAY OF LONGINT; offset, step, piecelen, pieces: LONGINT); PROCEDURE Copy (VAR x: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, destoffset, len: LONGINT); PROCEDURE CopyPat (VAR x: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE DIV (): Array; PROCEDURE DivAA (VAR x, y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE DivAV (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE DivAVPat (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE DivVA (x: LONGINT; VAR y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE DivVAPat (x: LONGINT; VAR y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE EqualsAA (VAR x, y: ARRAY OF LONGINT; offset, len: LONGINT): BOOLEAN; PROCEDURE Fill (x: LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE FillPat (x: LONGINT; VAR res: ARRAY OF LONGINT; offset, step, piecelen, pieces: LONGINT); PROCEDURE HammingDist (VAR x, y: ARRAY OF LONGINT; xoffset, yoffset, len: LONGINT): LONGINT; PROCEDURE HammingWeight (VAR x: ARRAY OF LONGINT; offset, len: LONGINT): LONGINT; PROCEDURE HammingWeightPat (map: Map; VAR x: ARRAY OF LONGINT; offset, step, piecelen, pieces: LONGINT): LONGINT; PROCEDURE InsertBlock (VAR x: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE L1Dist (VAR x, y: ARRAY OF LONGINT; xoffset, yoffset, len: LONGINT): LONGINT; PROCEDURE L1Norm (VAR x: ARRAY OF LONGINT; offset, len: LONGINT): LONGINT; PROCEDURE L1NormPat (map: Map; VAR x: ARRAY OF LONGINT; offset, step, piecelen, pieces: LONGINT): LONGINT; PROCEDURE L2Dist (VAR x, y: ARRAY OF LONGINT; xoffset, yoffset, len: LONGINT): LONGINT; PROCEDURE L2Norm (VAR x: ARRAY OF LONGINT; offset, len: LONGINT): LONGINT; PROCEDURE L2NormPat (map: Map; VAR x: ARRAY OF LONGINT; offset, step, piecelen, pieces: LONGINT): LONGINT; PROCEDURE LInftyDist (VAR x, y: ARRAY OF LONGINT; xoffset, yoffset, len: LONGINT): LONGINT; PROCEDURE LInftyNorm (VAR x: ARRAY OF LONGINT; offset, len: LONGINT): LONGINT; PROCEDURE LInftyNormPat (map: Map; VAR x: ARRAY OF LONGINT; offset, step, piecelen, pieces: LONGINT): LONGINT; PROCEDURE Long (VAR x: ARRAY OF LONGINT; res: ARRAY OF MathH.HUGEINT; len: LONGINT); PROCEDURE Max (VAR x: ARRAY OF LONGINT; offset, len: LONGINT; VAR maxpos: LONGINT): LONGINT; PROCEDURE MeanSsq (VAR x: ARRAY OF LONGINT; offset, len: LONGINT; VAR mean, ssq: REAL); PROCEDURE Median (VAR a: ARRAY OF LONGINT; len: LONGINT): LONGINT; PROCEDURE Min (VAR x: ARRAY OF LONGINT; offset, len: LONGINT; VAR minpos: LONGINT): LONGINT; PROCEDURE MinMax (VAR x: ARRAY OF LONGINT; offset, len: LONGINT; VAR min, max: LONGINT; minpos, maxpos: LONGINT); PROCEDURE MinMaxPat (map: Map; VAR x: ARRAY OF LONGINT; offset, step, piecelen, pieces: LONGINT; VAR min, max: LONGINT; minpos, maxpos: LONGINT); PROCEDURE ModAA (VAR x, y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE ModAV (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE ModAVPat (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE ModVA (x: LONGINT; VAR y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE ModVAPat (x: LONGINT; VAR y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE MultAA (VAR x, y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE MultAV (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE MultAVPat (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE Negate (VAR x: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE RemoveBlock (VAR x: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE ScalarProduct (VAR x, y: ARRAY OF LONGINT; VAR res: LONGINT; offset, len: LONGINT); PROCEDURE SetLen (VAR a: Array; len: LONGINT); PROCEDURE ShiftBlock (VAR x: ARRAY OF LONGINT; from, to, len: LONGINT); PROCEDURE Short (VAR x: ARRAY OF LONGINT; res: ARRAY OF INTEGER; len: LONGINT); PROCEDURE Sort (VAR x: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE SortByIndex (VAR x: ARRAY OF LONGINT; VAR index: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE SortWithIndex (VAR x: ARRAY OF LONGINT; VAR index: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE SubtractAA (VAR x, y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE SubtractAV (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE SubtractAVPat (VAR x: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE SubtractVA (VAR x: LONGINT; VAR y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; offset, len: LONGINT); PROCEDURE SubtractVAPat (x: LONGINT; VAR y: ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, srcstep, destoffset, deststep, piecelen, pieces: LONGINT); PROCEDURE kSmallest (k: LONGINT; VAR a: ARRAY OF LONGINT; len: LONGINT): LONGINT; PROCEDURE kSmallestModify (k: LONGINT; VAR a: ARRAY OF LONGINT; len: LONGINT): LONGINT; Array2d: Array = POINTER TO ARRAY OF ARRAY OF LONGINT; PROCEDURE Col (x: LONGINT; VAR s: ARRAY OF ARRAY OF LONGINT): Array1dInt.Array; PROCEDURE Copy (VAR src: ARRAY OF ARRAY OF LONGINT; VAR dest: ARRAY OF ARRAY OF LONGINT; srcx, srcy, destx, desty, w, h: LONGINT); PROCEDURE CopyCol (x: LONGINT; VAR s: ARRAY OF ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, destoffset, len: LONGINT); PROCEDURE CopyRow (y: LONGINT; VAR s: ARRAY OF ARRAY OF LONGINT; VAR res: ARRAY OF LONGINT; srcoffset, destoffset, len: LONGINT); PROCEDURE CopyToCol (VAR s: ARRAY OF LONGINT; x: LONGINT; VAR res: ARRAY OF ARRAY OF LONGINT; srcoffset, destoffset, len: LONGINT); PROCEDURE CopyToRow (VAR s: ARRAY OF LONGINT; y: LONGINT; VAR res: ARRAY OF ARRAY OF LONGINT; srcoffset, destoffset, len: LONGINT); PROCEDURE Fill (val: LONGINT; VAR res: ARRAY OF ARRAY OF LONGINT; x, y, w, h: LONGINT); PROCEDURE MeanSsq (VAR s: ARRAY OF ARRAY OF LONGINT; x, y, w, h: LONGINT; VAR mean, ssq: REAL); PROCEDURE Median (VAR s: ARRAY OF ARRAY OF LONGINT; x, y, w, h: LONGINT): LONGINT; PROCEDURE MinMax (VAR s: ARRAY OF ARRAY OF LONGINT; x, y, w, h: LONGINT; VAR min, max, minx, miny, maxx, maxy: LONGINT); PROCEDURE Row (y: LONGINT; VAR s: ARRAY OF ARRAY OF LONGINT): Array1dInt.Array; PROCEDURE SwapCols (VAR s: ARRAY OF ARRAY OF LONGINT; x1, x2: LONGINT); PROCEDURE SwapRows (VAR s: ARRAY OF ARRAY OF LONGINT; y1, y2: LONGINT); PROCEDURE Transposed (VAR s: ARRAY OF ARRAY OF LONGINT): Array; PROCEDURE kSmallest (k: LONGINT; VAR s: ARRAY OF ARRAY OF LONGINT; x, y, w, h: LONGINT): LONGINT; -- Felix Friedrich Institut für Biomathematik und Biometrie GSF - Forschungszentrum für Umwelt und Gesundheit, GmbH Ingolstädter Landstraße 1, D-85764 Neuherberg Tel: ++49 89 3187 2436 email: friedrich(a)gsf.de --

6 5

[Hardware] Looking for a Ceres Workstation
by Bernd Kopriva 31 Jul '03

31 Jul '03

Hi, first i have to apologize, if such a request is not desired ... ... i'm monitoring this list for some weeks now, and i found no such type of request, but i grasp at straws ... I'm trying to get my hands on a Ceres workstation (or maybe a Lillith), but all my attempts were unsuccessful. I asked in different newsgroups, i had contact with some guys at the eth ... Can anyone help me ? Thanks alot Bernd Bernd Kopriva Phone: ++49-7195-179452 Weilerstr. 24 E-Mail: bernd(a)kopriva.de D-71397 Leutenbach Germany

1 0

Re: [Oberon] Unmount a FAT-Bootvolume?
by Stauber, Sven Philipp 30 Jul '03

30 Jul '03

Hi Alexander. Did you try the command "AosFSTools.Unmount PREFIX \f"? The parameter \f forces the unmounting of a filesystem if the underlying volume has the flag AosFS.Boot. Greets, Sven Is there any possibility to unmount a FAT(32)-Partition wich is mounted as a Boot-Volume before shutting down/rebooting the system?

1 0

Re: [Oberon] monitoring an RS-232 interface.
by eas-lab＠absamail.co.za 27 Jul '03

27 Jul '03

peter_easthope wrote: > Here is a rather unusual problem. Answers to my NewsGroup queries described such a device as being essential. It's a worth while project. > I want to monitor the serial interface > of an external modem. The approach I am > considering is a generalization of that > described in > "http://www.oberon.ethz.ch/native/WebTrace.html" . I've archived this. It's only about 10 lines. Is that right ? "WebTrace" seems to be a poorly chosen name. > In this case we need to monitor both sending and > receiving lines. This will require a tee serial cable with > the side branch dividing to two cables. One of these > side branches needs the send and receive lines > crossed. This special cable will be inserted between > the modem and the server. Then one "observer" > machine can be attached to each of the side branches. > Yes: Tx ser-port = Rx modem --> Rx monitor 1 Rx ser-port = Tx modem --> Rx monitor 2 > WIth this setup, one observer will monitor transmissions > from computer to modem and the other will monitor > transmissions from modem to computer. Perhaps one > machine with two serial ports is capable of monitoring > both lines. No doubt this would work with Unix but I > have not tried running two concurrent V24 tasks in Oberon. > The serial port(s) only need attention when their FIFO (buffers) are getting full or empty for Rx and Tx respectively. Has n-o got the ability to interrupt for modem or mouse ? I don't think so. Older machines had smaller buffered ser-chips and would be more likely to 'overflow'. Normally, the ser-mouse and ser-modem ARE 'sharing' tasks. Although not symetrically. From the papers which you kindly posted: " Mouse and keyboard buffers are polled at each task switch in the loop.." The whole business of how (normally) the ser-modem is given and releases its ser-port, is central to the ppp-bug which I'm investigating, and where readers 'look the other way' when I ask questions. =:-( > Is such a technique described elsewhere? Any suggestions > or improvements on my proposal? There's a special name for this tool (which exists) that was mentioned in 2 of my threads in Newsgroups: comp.protocols.ppp. Perhaps a google will lead to mention of how it works. I think your idea is correct/do-able. You could start (a-la Wirth) with a minimal system, by using your modem port to monitor your mouse port. This will prove to you if/how the basic concept is OK. What is the serial port speed setting for the mouse ? Chris Glur PS. keep me informed of progress please. Thomas wrote: > There is such a program for Aos/Bluebottle. You can link the watch > computer between > the modem and the control computer. It usually works well as long > as the connection > speed is not changed during the connection. > I'll have to search for the program if you are interested. Does it monitor both control computer AND modem.

2 1

Re. Offer and request, 1d/2d arrays
by eas-lab＠absamail.co.za 23 Jul '03

23 Jul '03

Felix Friedrich wrote: > as we are just preparing generic modules for operations on one and two > dimensional arrays > (of Integer,Rational,Real,Cplx variables), I would like to ask all of you > for comments on typically needed features for modules of that kind. > > As future versions of Oberon/Aos will probably provide the functionalities > that are just being collected, announcing desired features will be of use > for all of us. > > We are currently working on .... snip .. Looks nice ! Poplog (AI suitable language, free-ware with Algol-like syntax) was talking about adding extra maths functionality. Apparently there are 'standards' established over decades ? I'm guessing that your question(s) has been answered for more matured, languages. Oberon/Aos is part of the open-standards community and should follow the leader(s) as appropriate. Are there corresponding 'sets of canonical tests' ? One hopes for a high level of confidence. -- Chris Glur.

1 0

Unmount a FAT-Bootvolume?
by Alexander Hofmann 21 Jul '03

21 Jul '03

Hi, Is there any possibility to unmount a FAT(32)-Partition wich is mounted as a Boot-Volume before shutting down/rebooting the system? Tanks, Alexander.

1 0

[DAV] WebDAV 1.0.0
by edgar＠edgarschwarz.de 20 Jul '03

20 Jul '03

Hi, I uploaded WebDAV 1.0.0 to "http://www.edgarschwarz.de/oberon/. If you want to try it out you can use http://webdav.ethz.ch/. It's a virtual host on bluebottle.ethz.ch. The server is running on Bluebottle. The client also works with WinAosOberon 1.02 alpha. For write access to webdav.ethz.ch you can ask me give you a password for a directory. There is already /dav/, /ppp/, /WinAosOberon/ with some baselines. I don't expect the traffic on WebDAV to be too high so my idea is to manage it on the mailing list just using the subject prefix [DAV]. At the moment I'm working on a DAV AosFS.Filesystem so it can be used with a viewer similar to FATDocs. This also should make it easy to do a FMFileManager plugin. Regards, Edgar -- edgar(a)edgarschwarz.de "http://www.edgarschwarz.de" "http://www.edgar-schwarz.de/forum/oberon" Running Active Oberon Make it as simple as possible, but not simpler. Albert Einstein

1 0