- Oberon - mailman3.inf.ethz.ch

Re: [Oberon] Modularization.
by Jörg 31 Oct '26

31 Oct '26

1 0

Re: [Oberon] Export of Oberon Mail.SendCmd().
by Joerg 30 Oct '26

30 Oct '26

Generally, re-using code instead of copying is a good approach. If you do so, then the whole code of Mail is imported in News. Possible but perhaps there is even a better approach to re-use code. What about this: try to separate all common code in an own module (e.g call it Communication.Mod or MsgBase.Mod or Utilities.Mod or so) and import this new module in Mail and in News. br Jörg > Am 14.06.2023 um 19:53 schrieb peter(a)easthope.ca: > > Hello again, > > Several procedures in Mail are used in Oberon News. Rg.: > Mail.ParseContent(), Mail.DecodeMessage() & Mail.GetSetting(). > > Is export of SendCmd() and use in News objectionable? > Ie. in Mail, change PROCEDURE SendCmd(...) to PROCEDURE SendCmd*(...). > > Thanks, ... P. > > - > mobile: +1 778 951 5147 > VoIP: +1 604 670 0140 > > -- > Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems > https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

None
by None 19 Oct '26

19 Oct '26

of characters enclosed in quote marks (")." In contrast to an Oberon string, this string can contain quote marks. One quote mark in the target string is represented by two quote marks in this notation, as in APL. This is an ugly example as Chris might mind. The name of the service is Gulf"@"Net. The user is the 7 characters !@# $%^. The password is &*()_+. NetSystem.SetUser1 "pap" "Gulf""@""Net" "!@# $%^" "&*()_+" ~ So how is this? Can anyone imagine a case where it fails? es> ... implements ... Certainly willing to try. Might need help. es> I still hope that WebDAV can help here. Interesting. I am only beginning to learn about WebDAV. Regards, Peter E. http://carnot.pathology.ubc.ca/

1 0

None
by None 19 Oct '26

19 Oct '26

satisfying their timing requirememts must be a top consideration. Once you go out of your box, you have to face these unpleasant realities. eg. CPU > ser-port > modem > telco-line > ISP > ... To talk of 'throttling back until it flies'; instead of making the timing specs comply, sounds bad ? 1. Some years ago a version of n-o stand Alone often failed to dial the modem, yet DOS and linux always dialed. 2. Here in s.africa it is know that many modems need an extra string to 'get dial-tone'. Apparently there must be a specified time between when the machine 'looks' and when dial-tone is detected. Perhaps n-o should wait ? 3. n-o V2.3.2 standalone Mail.Panel failed to connect, yet V 2.3.6 DOSbased connected. I don't know of any software update and must assume a critical timing cause. 4. I'm still trying to find out why sometimes when I get an abnormal ppp disconnect; further retries fail unless I reboot or Ctrl-Break a few times immediately after Dialer.Dial PPP Device0 ~ The need to try a few times indicates a randomness - 'the roulette ball to fall in' while the "Dialer.Dial PPP Device0" task is still busy ? By monitoring with a second n-o box, I confirm that the strings sent to the modem are OK (except that V24.Panel does not show CR nor LF - which are important). Line and modem Status-register values for good and bad conditions, are different - for latter analysis. Perhaps these differences will points to hardware handshake problems ? If none of you have these problems or even believe them, it's because you all use M$ outspOOk ! Chris Glur. -- PS. I'm using 486 40 Mhz machines.

1 0

None
by None 19 Oct '26

19 Oct '26

> ....Sending [ATM1] > Waiting 60s for [CONNECT] {|ATD 3407501|ATM1||CONNECT} > Calling [PPPMain.StartInst PPP 2nm4nx6x@za] > ---- up to here is OK, then the following 2 lines do not occur: > End of script > IPCP is finally ready. Device opened. by software forcing a 'fail' (eg. a time out waiting for KeyBrdIn) at the various 'states' in the failure range, as indicated in the above trace; and confirming that NetSystem.SetUser <args> can/cannot re-run, will locate the problem. Ie. at which state(s) does a failure not reset/initialise, hence not allowing a new NetSystem.SetUser <args> ? Personally I don't favour this empirical method, and prefer a well understood/documented theoretical model which can be analysed. > Chris, before collecting the log you might > compile in my modification which numbers > frames. This will allow any discussion, between > you and Edgar for example, to refer to "frame n". > That should be easier than saying "Look at the > frame containing this hex string '...'". > I don't remember which module but it is > described in my PPPnotes Web page. Hacking down at the low level, without the supporting overview understanding is not recommended. I first need to get an overview. PS. this tread now deal with 3 related topics: 1. V24.Panel can't run after NetSystem.SetUser <args> runs, because of initialisation problems. 2. NetSystem.SetUser <args> can't re-run, when it fails at certain state(s) (as must be allowed for) because of initialisation problems ? 3. Maintainers/contributors need documentation re. multi-tasking for S3. -- Chris Glur. PS. Edgar uses the term "interrupt", where I say "failure". Ie. when the (serial port, modem) ppp-connection fails. Even for ones which are rare, such 'failures' must be catered for. That's the main design philosophy of the internet.

1 0

None
by None 19 Oct '26

19 Oct '26

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

1 0

None
by None 19 Oct '26

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

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

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

19 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