- Oberon - mailman3.inf.ethz.ch

None
by None 04 Nov '26

04 Nov '26

" Note: (-5) DIV 3 = -2 but -5 DIV 3 = -(5 DIV 3) = -1 " The language wants x = (x DIV y) * y + (x MOD y) -Doug Stefan Salewski wrote: > > Hello, > > I think there is something wrong with the DIV statement. > > ========== > > MODULE StSTest; > > IMPORT Out; > > PROCEDURE Do*; > VAR > i,j,k:LONGINT; > BEGIN > Out.String("Output is:"); > Out.Ln; > i:=10; > j:=3; > k:=-(-i DIV j); > Out.Int(k,8); Out.Ln; > i:=-i; > k:=-(i DIV j); > Out.Int(k,8); Out.Ln; > END Do; > > BEGIN > END StSTest. > > StSTest.Do ~ > > Output is: > 3 > 4 > ========== > > Best regards > > Stefan Salewski > -- > Oberon(a)inf.ethz.ch mailing list for ETH Oberon and related systems > http://www.lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

None
by None 04 Nov '26

04 Nov '26

matching algorithm should be the entire text. Anyone with a thorough understanding of how texts are represented in Oberon can probably read the RX.Mod files and understand why the scope is limited. (A nice didactic exercise.) Regards, Peter E. imi Peter Easthope http://carnot.pathology.ubc.ca/

1 0

None
by None 04 Nov '26

04 Nov '26

Changes were required within Texts.Mod to the Writeint procedure to correct mismatched columns in the more complete directory display. Apparently the whitespace char in Oberon#.Scn.Fnt's are only one-half a char wide (in pixels). To maintain straight columns when writing integers to the screen this requires a double-space for each char the integer is shorter than the default (the 6 above in the System.Mod code). (** Write integer x to W's buffer. Spaces are padded to the left until the number field is at least n characters long. *) PROCEDURE WriteInt* (VAR W: Writer; x, n: LONGINT); VAR i, x0: LONGINT; a: ARRAY 10 OF CHAR; BEGIN i := 0; IF x < 0 THEN IF x = MIN(LONGINT) THEN WriteString(W, " -2147483648"); RETURN ELSE DEC(n); x0 := -x END ELSE x0 := x END; REPEAT a[i] := CHR(x0 MOD 10 + 30H); x0 := x0 DIV 10; INC(i) UNTIL x0 = 0; n := (n-i )* 2; (* newcode CPA *) (* WHILE n > i DO Write(W, " "); DEC(n) END; original code CPA*) WHILE n > 0 DO Write(W, " "); DEC(n) END; (* newcode CPA *) IF x < 0 THEN Write(W, "-") END; REPEAT DEC(i); Write(W, a[i]) UNTIL i = 0 END WriteInt; After making the above changes to System.Mod and Texts.Mod, recompiling and a reboot: System.Directory *\d Gives this dispaly: 10.08.2002 06:33:25 7330 ASCIITab.Obj 10.08.2002 06:33:25 455 ASCIITab.Tool 14.08.2002 04:31:56 36985 ASPI.Mod 07.08.2002 05:54:58 18190 ASPI.Obj 14.08.2002 04:31:57 48874 ATADisks.Mod 07.08.2002 05:54:59 20348 ATADisks.Obj 14.08.2002 04:31:58 63047 Adaptec7.Mod Star mark the frame and use: Sort.Sort *\r in reverse order To get this display: 1069 files use 25MB 17.08.2002 03:36:19 5078 Mail.Panel 17.08.2002 03:34:53 5109 Mail.Panel.Bak 17.08.2002 02:49:09 1696 MailMessages 17.08.2002 02:48:55 971 Mail.Out.Text 17.08.2002 02:40:56 1032 Mail.Out.Text.Bak 17.08.2002 02:28:45 28950 Oberon.Text 16.08.2002 04:00:11 2303 Oberon10.Scn.Fnt 16.08.2002 03:55:25 2303 Ob10.Scn.Fnt 16.08.2002 03:55:09 2003 Ob8.Scn.Fnt 16.08.2002 03:46:26 4270 System.Tool 15.08.2002 10:23:02 93012 URL.DB.Bak 15.08.2002 03:25:27 28931 Oberon.Text.Bak Even the numbers of files and total file size appear at the top as an added `bonus'! :-) The standard filenames-only display is not altered by any of these modifications btw. With these minor adjustments to the two Modules, Finding the most recently changed files is facilitated and the straightened columns give Oberon a better overall appearance IMO. When using DOS.Directory there is a problem with how Oberon is interpreting the TAB char "9X" but I haven't looked into that problem - yet. ;-) Is the Linux version doing straight columns when accessing the Linux directories or is this TAB interpretation much the same for all versions of ETH N-O? Charles Angelich The Ghost in the Machine! DOS and W31 Tech website: http://www.undercoverdesign.com/dosghost Stories, poems, music, and photos website: http://www.undercoverdesign.com/dosghost/faf

1 0

None
by None 04 Nov '26

04 Nov '26

(* --- Toolbox of file system *) PROCEDURE *List(name: ARRAY OF CHAR; time, date, size: LONGINT; VAR cont: BOOLEAN); BEGIN INC(count); IF size # MIN(LONGINT) THEN (* changed lines start *) Texts.WriteDate(W, time, date);Texts.WriteString(W, 9X); Texts.WriteInt(W, size, 6); Texts.WriteString(W, 9X); INC(total, size) END; Texts.WriteString(W, name); (* changed lines end *) Texts.WriteLn(W) END List; re: Texts.WriteInt(W, size, 6) The integer value used has been "5" but with Kernel.Mod being over 100K this value must be increased to "6" decimal places to accomodate the larger kernel source code file size integer.

1 0

None
by None 04 Nov '26

04 Nov '26

(* --- Toolbox of file system *) PROCEDURE *List(name: ARRAY OF CHAR; time, date, size: LONGINT; VAR cont: BOOLEAN); BEGIN INC(count); IF size # MIN(LONGINT) THEN Texts.WriteDate(W, time, date);Texts.WriteString(W, 9X); END; Texts.WriteString(W, name); IF size # MIN(LONGINT) THEN Texts.WriteString(W, 9X); Texts.WriteInt(W, size, 5); INC(total, size) END; Texts.WriteLn(W) END List; Compiler.Compile System.Mod \s~ (reboot) System.Directory *.Tool\d~ Star mark the frame and do: Sort.Sort *\r Which gives you something like this. :-) 71 files use 179KB 16.08.2002 03:46:26 System.Tool 4270 13.08.2002 08:14:17 NetSystem.Tool 2279 13.08.2002 06:09:04 ZipCompile.Tool 558 13.08.2002 06:09:04 Zip.Tool 1896 10.08.2002 06:33:37 Calc.Tool 943 10.08.2002 06:33:35 PictConverters.Tool 584 10.08.2002 06:33:34 Sort.Tool 727 10.08.2002 06:33:34 RX.Tool 2846 >-- Chris Glur. > >PS. Charles, your desire to have 'all instruments always visible' like a >sports aircraft is inappropriate for computing. A 500 page book has >one pair of opposing pages visible at one time. If your desk project >has 3 envelopes, 2 books, 5 documents and a map, then you need to >move them around, from partly coverd to 'focused' as you work. >That's life. A work in progress is a dynamic entity -- until it hopefully >disapears on completion. > >This ability to rapidly shuffle the documents around is intimately >related to the n-o interface. You can't do it wearing boxing-gloves. Code more, philosophize less. Charles Angelich The Ghost in the Machine! DOS and W31 Tech website: http://www.undercoverdesign.com/dosghost Stories, poems, music, and photos website: http://www.undercoverdesign.com/dosghost/faf

1 0

None
by None 04 Nov '26

04 Nov '26

(* --- Toolbox of file system *) PROCEDURE *List(name: ARRAY OF CHAR; time, date, size: LONGINT; VAR cont: BOOLEAN); BEGIN INC(count); Texts.WriteString(W, name); IF size # MIN(LONGINT) THEN NL-> Texts.WriteString(W, 0DX); NL-> Texts.WriteString(W, 9X); Texts.WriteDate(W, time, date); NL-> Texts.WriteString(W, 9X); Texts.WriteInt(W, size, 5); INC(total, size) END; Texts.WriteLn(W) END List; Charles Angelich The Ghost in the Machine! DOS and W31 Tech website: http://www.undercoverdesign.com/dosghost Stories, poems, music, and photos website: http://www.undercoverdesign.com/dosghost/faf

1 0

None
by None 04 Nov '26

04 Nov '26

stores postings for 2 weeks + and eliminates older postings every Mo. Older matter must be retrieved from archives. Some are listed at the end of http://www.oberon.ethz.ch/support.html The list is probably not exhaustive. Andr Fischer - fischer at inf.ethz.ch ETH Oberon : http://www.oberon.ethz.ch Bluebottle: http://bluebottle.ethz.ch

1 0

None
by None 04 Nov '26

04 Nov '26

> Support for 4 COM ports in Native Oberon is relatively recent. > According to http://www.oberon.ethz.ch/native/WebAlpha.html > Andr=E9 Fischer added this on 04.09.01. His changes also allow > the port addresses to be configured arbitrarily. > > You could try fetching V24.Mod and ConfigV24.Mod from: > ftp://ftp.inf.ethz.ch/pub/ETHOberon/Native/Update/Alpha/Source1.zip > and compiling them, but there might be complications due to new > interfaces that would be non-trivial to address. My modified V24.Obj works with my modem at COM4 now but it is not the interrupt driven version. :-\ Question: Does Andre', or anyone, know of any reason why his Alpha V24.Mod would not work within the Native/Update/Beta 08.12.00 version of Oberon? Charles Angelich The Ghost in the Machine! DOS and W31 Tech website: http://www.undercoverdesign.com/dosghost Stories, poems, music, and photos website: http://www.undercoverdesign.com/dosghost/faf

1 0

None
by None 04 Nov '26

04 Nov '26

URL: ftp://ftp.inf.ethz.ch/pub/ETHOberon/Native/Update/Alpha/readme.txt 2. After booting Oberon-0, Install.Tool is opened automatically. It starts with: > Oberon-0 is a small ramdisk-based system > for configuring the real Oberon system. > For an introductory text, move the mouse > cursor to Edit.Open below and click the > middle button (or double-click left). > Edit.Open Introduction.Text 3. After executing Edit.Open above, Introduction.Text is opened. It starts with: > This tutorial introduces the concepts of the Oberon user interface necessary > to continue the installation process. If you are familiar with Oberon, skip it. ... and goes on to explain Oberon concepts like system track, user track, viewer, scroll bar, menu bar, viewer title, scrolling, command execution, text editing, text selection, resizing viewers. and closing viewers. All in about two pages. URL: ftp://ftp.inf.ethz.ch/pub/ETHOberon/Native/Update/Alpha/Build/Build.zip Install.Tool and Introduction.Text ( Edit.Open ^ ) These are simple text documents without large fonts, so that normal TextFrames can be used. Colour and 10pt bold or italic are fine. (They could also be Script documents, with arbitrary fonts, but those fonts would have to be included in the Oberon-0 environment, increasing its memory requirements). 4. Installation continues through steps 1 to 3, documented by the relevant tool texts: Install.Tool, InstallFiles.Tool, Configuration.Tool. ( Edit.Open ^ ) 5. After booting the installed system, the System.Tool is opened automatically with the following at its start: > Script.Open System.Text > click middle mouse button (or double left) > on Script.Open above for introductory text 6. The System.Text starts: > Blue colored parts in this document are Oberon commands. They can be > activated simply by pointing at their beginning with the mouse and > then clicking the middle key (or, if a three button mouse is not > available double click the left key). For example, the Script.Open > UserGuide.Text command can be activated by clicking middle at > Script.Open. It connects to a brief tutorial for new Oberon users. By > its activation, an extra viewer is popped up that can be used, > manipulated and closed again independently. The first link opens the UserGuide.Text, which goes into more detail on operating the system. System.Text documents the configuration of the system, and installation of additional packages. URL: ftp://ftp.inf.ethz.ch/pub/ETHOberon/Native/Update/Alpha/Build/System.zip System.Text and UserGuide.Text ( Script.Open ^ ) The intention is that after reading the documention up to this point carefully, the new user will be able to find his/her way around the system, installing additional packages like Gadgets and Docu, and exploring the documentation there. I find this "documentation path" sensible, even though the contents of the last two documents leaves room for improvement. Suggestions are welcome. Preferably send me edited documents in the same format as the original. BTW The Windows Oberon approach of opening the Gadgets document Distribution.Text automatically is much simpler, but this is not possible in Native Oberon under the restrictions of a single install diskette. -- Pieter P.S. To see how things are progressing with the alpha version, read: http://www.oberon.ethz.ch/native/WebAlpha.html -- Pieter Muller, Computer Systems Institute, ETH Zurich / MCT Lab, Zurich Native Oberon OS: http://www.oberon.ethz.ch/native/

1 0

None
by None 04 Nov '26

04 Nov '26

and parts are semi-functional what basis is there for pushing forward into BlueBottle? If BB is built using Native Oberon `parts' the foundation is shakey IMO. Newer faster hardware won't hide the lack of completeness nor will it overcome the need to document and instruct in the use of Oberon. Charles Angelich The Ghost in the Machine! DOS and W31 Tech website: http://www.undercoverdesign.com/dosghost Stories, poems, music, and photos website: http://www.undercoverdesign.com/dosghost/faf

1 0