- Oberon - mailman3.inf.ethz.ch

None
by None 02 Oct '26

02 Oct '26

file you want and execute HyperDocTools.Fetch <LocalName> ~. Regards, Peter E.

1 0

None
by None 02 Oct '26

02 Oct '26

the majority don't support this type of functionality and will always default to either IRQ3 or 4. Regards -- Jacques Eloff Department of Computer Science University of Stellenbosch http://www.cs.sun.ac.za/~eloff

1 0

None
by None 02 Oct '26

02 Oct '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 02 Oct '26

02 Oct '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 02 Oct '26

02 Oct '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 02 Oct '26

02 Oct '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 02 Oct '26

02 Oct '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 02 Oct '26

02 Oct '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 02 Oct '26

02 Oct '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 02 Oct '26

02 Oct '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