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

re: [Oberon] Rembrandt > Scale :html (gif) ?
by eas-lab＠absamail.co.za 18 Aug '03

18 Aug '03

Peter Easthope wrote: > cg> * I've confirmed [in the distsnt past] that Rembrandt.Panel can scale > 'pictures'. > > I've never learned to use Rembrandt.Panel. Pity there > isn't an instruction document similar to that for Leonardo. > http://www.oberon.ethz.ch/ethoberon/tutorial/Rembrandt.html is OK, but does not talk about 'shrinking *.gif'. > cg> Q1. does this only apply to *.Pict ? > > Probably. Can Rembrandt open any file other than Pict? > Well: System.Directory *.gif ; Desktops.OpenDoc Techn:DataSlicr.gif shows me a nice diagram. > cg> Q3. Since converting: *.gif <--> *.Pict is possible under n-o > > PictConverters has *.gif --> *.Pict. Where is *.Pict --> *.gif ? > > cg> Q3. Since converting: *.gif <--> *.Pict is possible under n-o, can > I rescale *.gif ? > > Converting to Pict seems too inefficient for Web browsing. > > How about writing fast scaling commands as part of > the Images package? > > cg> Often the text is good but a diagram is too 'course' and overflows > the display. > > Web browsing capabilities in Oberon and AOS certainly > leave many opportunities for improvements. It works for me. I don't surf: surfing is going no-where, just balancing, until you fall off. I don't browse: browsing is for the idle rich - like window shopping. Since most inet material today is http available, I fetch http, 99.5% as text, often by email. Just rarely I also want the diagrams. I don't mind processing the graphics separately, since I intend keeping the 'page' and spending much time analysing it. You might process a thousand tons of dirt to reach a diamond. I need to be able to see the diagrams on my n-o machine; together with the accompnying text - to be able to hi-lite and colour the text. One can't do this with Netscape nor IE ? -- Chris Glur.

1 0

re: Partitions.Show failure
by eas-lab＠absamail.co.za 17 Aug '03

17 Aug '03

Vasile Rotaru > I am trying to install NO on a new comp, and after mid-clicking on > Partitions.Show it barfs on me with "error 9". Any suggestions? > > The disk is a WDC WD200BB-00DEA0 model (18 GB), and was > partioned with Debian cfdisk. You don't say what version of NO. I use ver 2001 and Partitions.Show always works on all/several IDE's. Searching for "error" on Partitions.Mod shows: ] Texts.WriteString(w, "error "); Texts.WriteInt(w, res, 1) which doesn't fit your report. Nor does: ] NoSpaceAvailable = 9001; ] CoreMismatch = 9002; (* core file on disk does not match *) ] CoreChecksumError = 9003; (* core file checksum mismatch *) ] OutOfSlots = 9004; (* out of primary partition slots *) ] PartitionTooSmall = 9005; (* partition too small to create *) > Or has is anything to do with the BIOS settings (LBA, NORMAL...)? If linux sees the partitions, I'd expect NO to also see them ? -- Chris Glur.

2 3

Rembrandt > Scale :html (gif) ?
by eas-lab＠absamail.co.za 16 Aug '03

16 Aug '03

Hi, I really don't want to spend hours to see if this works: * I'm using n-o 'ver 2001'. * Desktops.OpenDoc ^ http://tantos.homelinux.org/andras/work/newad/index.htm happens to be the web-page in question, but my query is 'general'. * Some graphics are too big to view - also with UserTrack fully expanded; I use VGA setting [SVGA would be more compact]. * I've confirmed [in the distsnt past] that Rembrandt.Panel can scale 'pictures'. Q1. does this only apply to *.Pict ? Q2. since the latest SYS:Temp.gif came from the above web-page, I'm assuming that the 'too big' picture is also *.gif . Or how is it stored away in the library ? Q3. Since converting: *.gif <--> *.Pict is possible under n-o, can I rescale *.gif ? Q4. Is it do-able (with n-o) to rescale the graphics of *.html fetches. Often the text is good but a diagram is too 'course' and overflows the display. Thanks for any help, -- Chris Glur.

1 0

Re: [Oberon] Database
by eas-lab＠absamail.co.za 15 Aug '03

15 Aug '03

> keller(a)creacare.com wrote: > >There is an object oriented DB for Oberon available: Odeon by Jacques > >Supcik. > > > >http://www.cs.inf.ethz.ch/group/wirth/projects/odeon/ > > > >Ask supcik(a)inf.ethz.ch for the code. Since it is single threaded, it > >must be ported to bluebottle. > > > > Dan Parnete wrote: > Yes, I've already read about the Odeon project, an it look very > interesting to me. Unfortunately Jacques's address is no more valid. I > grabbed the web for the Odeon code, but no results. If you find an > actual address of Jacques, please let me know. > > Thanks, > Dan I too would like to look at it. My dream is to salvage some of the labour that's gone into many of the n-o applications, but which are not used/usable because of minor problems - usually documentation. The theory (possibly wrong ?) is that when from time to time the next user who give the application a 'work out', he can add his refinements via something like CVS/WebDAV. A bit like negative entropy: insead of getting dirty by usage, it get cleaner by adding value - successive refinement [somewhat]. Some real examples: 1. I got the mini-spreadsheet which I needed, to handle some important work, without having to import/export to/from n-o. I had to polish up the documentation, so that it was easier to use the second time - after 9 months non usage. 2. I got " SmartDir.Directory " 'privately' and use it several times a day. I don't think it's in the suite ? If each user has got his own private/aquired tools, imagine what value can be added by effectively pooling them. But his requires a (strict) protocol: like each directory of ../contributions/.. must have a README or 'description' and other naming conventions/rules. -- Chris Glur.

3 2

Oberon / Aos disk performance
by Dan Parnete 14 Aug '03

14 Aug '03

Hello, I was interested in testing the Oberon disk access performance. I used a Pentium 4 1,8Ghz PC with 512Mb of RAM, and a 36 Mb File.Test. Allocated 40Mb cache in Aos. Challengers: Bluebottle ver. 04.06.2003 Native Oberon ver. 05.01.2003 Win Plugin ver. 14.05.2001 on Windows 2000 WinAos ver. 30.06.2003 on Windows 2000 Linux x86 ver 08.01.2003 on Mandrake 9.1 READ / WRITE test: t := Input.Time(); fi := Files.Old( "File.Test" ); Files.Set( ri, fi, 0 ); fo := Files.New( "File.Bak" ); Files.Set( ro, fo, 0 ); REPEAT Files.ReadBytes( ri, buf, 1024 ); Files.WriteBytes( ro, buf, 1024 ); UNTIL ri.eof; Out.String( "Time: " ); Out.Int( Input.Time() - t , 9); Out.Ln; and the equivalent in Activ Oberon. Results: First run Second run Aos 53309 17584 Native 27950 13112 Win Plugin 4672 4782 WinAos 4703 4578 Linux x86 1718 1764 RANDOM READ test: len := fi.Length(); t := Input.Time(); pos := 0; FOR i:=1 TO 100000 DO pos := (pos + i * 5) MOD len; IF pos >= len - 1024 THEN pos := len - 1024 END; fi.Set( ri, pos ); fi.ReadBytes( ri, buf, 0, 1024 ); END; AosOut.String( "Rand time: " ); AosOut.Int( Input.Time() - t , 9); and the equivalent in Oberon. The results: First run Second run Aos 42757 896 Native 22681 585 Win Plugin 16156 828 WinAos 16625 938 Linux x86 2095 777 SEQUENTIAL READ test: First run Second run Aos 32170 100 Native 13672 70 Win Plugin 1281 78 WinAos 1250 94 Linux x86 1354 77 Conclusions: AosFS it's great on cache. Congratulations. But writing and the first time reading it's a pain. Am I missing something ? Is it anything else to adjust for better performance ? Thank you, Dan Parnete

3 6

Database
by keller＠creacare.com 14 Aug '03

14 Aug '03

There is an object oriented DB for Oberon available: Odeon by Jacques Supcik. http://www.cs.inf.ethz.ch/group/wirth/projects/odeon/ Ask supcik(a)inf.ethz.ch for the code. Since it is single threaded, it must be ported to bluebottle. Daniel

2 1

real to longint
by Christian Wassmer 14 Aug '03

14 Aug '03

Hi, what's the shortest way to convert a real to a longint? I can't find it in the manuals. Thanks Christian

6 8

run-time error 26 => Stream not Open!
by Fernando Passold 12 Aug '03

12 Aug '03

Helo people, Excuse me about mine intrusion.... I find a interesting thing related with the Module wich causes the problem I inform sooner. By curiosity I type the command: The first time: XO> TelnetServer.ShowCommands NeuralTool.Mod ~ [BEGIN | EXCEPTION] - Trap kind: Stream not Open (26) - Task Entry: Shells.ExecutionHandler.Run - Task Id: 12 - Task Status: Halted - Trapped Procedure Frame: Modules.ReadStringCompressed - Current Instruction Pointer: 0003958CH - Relative PC: 124 - Stack Dump Follows: Modules.ReadStringCompressed PC: 124 Wow!!! On a second time: XO> TelnetServer.ShowCommands NeuralTool.Mod ~ Commands of NeuralTool XOClient.Execute NeuralTool.CriaRede ~ XOClient.Execute NeuralTool.ChangeLrType ~ XOClient.Execute NeuralTool.InitRedeForceControl ~ XOClient.Execute NeuralTool.InitRedeJointPosControl ~ XOClient.Execute NeuralTool.InitRedeJointPosOpContro ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XOClient.Execute NeuralTool. ~ XO> So nice!!!! It does not seems "natural"... How I like XO/2 (ironic). It seems that I have the file NeuralTool.Mod corrupted despite the fact the XCompiler runs over it!!!! But it was no the problem as I could verifie (COpy & Paste using external ASCii Editor: PDE). And most insterestig: the command related with the "rbf" object works fine - why? Now, I have noticed that the XO/2 have truncated the name of the Procedure called: "PROCEDURE InitRedeJointPosOpControl*;" by: " XOClient.Execute NeuralTool.InitRedeJointPosOpContro ~ XOClient.Execute NeuralTool. ~ " I will try to reduce the name of this procedure... Ok... this works: XO> TelnetServer.ShowCommands NeuralTool.Mod ~ Commands of NeuralTool XOClient.Execute NeuralTool.CriaRede ~ XOClient.Execute NeuralTool.ChangeLrType ~ XOClient.Execute NeuralTool.InitRedeForceControl ~ XOClient.Execute NeuralTool.InitRedeJointPosControl ~ XOClient.Execute NeuralTool.InitRedeJointOpControl ~ XOClient.Execute NeuralTool.RedRidingHoodNet ~ XOClient.Execute NeuralTool.ShowDadosIniRede ~ XOClient.Execute NeuralTool.SetLr ~ XOClient.Execute NeuralTool.SetFlatSpot ~ XOClient.Execute NeuralTool.SetMom ~ XOClient.Execute NeuralTool.SetNoise ~ XOClient.Execute NeuralTool.SetTaxasLrMom ~ XOClient.Execute NeuralTool.ShowW ~ XOClient.Execute NeuralTool.ShowNNenergy ~ XOClient.Execute NeuralTool.ShowNNErros ~ XOClient.Execute NeuralTool.ShowNNData ~ XOClient.Execute NeuralTool.ShowNNTaxaErros ~ XOClient.Execute NeuralTool.ShowPar ~ XOClient.Execute NeuralTool.ShowPatterns ~ XOClient.Execute NeuralTool.TrainRedNet ~ XO> And now the other commands related with "net" object works.... at least!!! thanks, and excuse me about mine introduction, Fernando ............................. FeRnando Passold Doutorando DAS/LAI - UFSC - Florianópolis/SC (48) 331 7597 / (48) 234 8503 ICQ: 171216144 ^^ ^^ .. .. [] [] .:[]:_ ^^ ,:[]:. .: :[]: :-. ,-: :[]: :. .: : :[]: : :`._ ,.': : :[]: : :. .: : : :[]: : : : :-._ _,-: : : : :[]: : : :. _..: : : : :[]: : : : : : :-._________.-: : : : : : :[]: : : : :-._ _:_:_:_:_:_:[]:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:[]:_:_:_:_:_:_ !!!!!!!!!!!![]!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![]!!!!!!!!!!!!! ^^^^^^^^^^^^[]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^[]^^^^^^^^^^^^^ [] [] [] [] [] [] ~~^-~^_~^~/ \~^-~^~_~^-~_^~-^~_^~~-^~_~^~-~_~-^~_^/ \~^-~_~^-~~- ~ _~~- ~^-^~-^~~- ^~_^-^~~_ -~^_ -~_-~~^- _~~_~-^_ ~^-^~~-_^-~ ~^ ~ ^- _~~_- ~~ _ ~ ^~ - ~~^ _ - ^~- ~ _ ~~^ - ~_ - ~^_~ ~- ^_ ~^ - ^~ _ - ~^~ _ _~^~- _ ~~^ - _ ~ - _ ~~^ - ~^ -_ ~^^ -_ ~ _ - _ ~^~- _~ -_ ~- _ ~^ _ - ~ ^- ~^~ - _ ^ - ~~~ _ - _ ~-^ ~ __- ~_ - ~ ~^_- ~ ~- ^~ - ~^ - ~ ^~ - ~~ ^~ - ~

1 0

HELP with array of object and how to acess them???
by Fernando Passold 12 Aug '03

12 Aug '03

Hello people, I am using: Oberon System 3 for WindowsTM Win32 2.3 (25.2.1999) on Windows NT 5.0 (Win2000) TFTPd Threaded/rb, dd/ 7.4.99 XOClient v1.0.2 /rb/ 7.4.99 XO/Client handler started. TFTPd Started System.ChangeDirectory D:/users/passold/XOberon3Teste XO/2 PowerPC Browser, running on Intel /rb/ Q1 2000 XO/2 PowerPC Cross-Compiler, running on Intel /rb/ Q1 2000 / rev4c Oberon Portable Compiler / nw & rc PowerPC Code Generator / MB, tk 7.8.95 Mutator and Fixes / rb 23.2.00 That means, I compile the Modules on a PC due a cross-compiler and then download de "packet" to the host machine (equiped with Mottoral Power PC). My problems is with this "enigmatic" run-time error mesage: XO> NeuralTool.InitRedeJointPosControl ~ [BEGIN | EXCEPTION] - Trap kind: Stream not Open (26) <---- What does it mean??????? And where??? - Task Entry: TelnetServer.SessionHandler.Run - Task Id: 11 - Task Status: Halted - Trapped Procedure Frame: Modules.ReadStringCompressed - Current Instruction Pointer: 0003958CH - Relative PC: 124 - Stack Dump Follows: : Tasks.Terminate PC: 48240 [END | EXCEPTION] And the system simple hangs!!! I lost completellly the controll of the host system even the communication! Even using the option: "XCompile.Compile *\Nnf" after I have selected one of the PC's indicated above I could not find what causes this crash -> these PC numbers points to nonsense parts of the module that crashes the system (NeuralTool.Mod). I have noticed that this problem occours when I tried do access data from any position of an ARRAY of Object (XO/2 handles ARRAY object in a special way?), that I have declarated in another module compiled as indicated above: -------------------- Robot.Mod: IMPORT MathL, Peripherals, Tasks, MathLib, GetPeripherals, JR3, Texts, Neural, RBF, Sliding, Force; : VAR vers*: ARRAY 60 OF CHAR; net*: ARRAY 3 OF Neural.NeuralNet; rbf*: ARRAY 3 OF RBF.rbfNet; : --------- where "net" was declarated in Neural.Mod: --------- MODULE Neural; IMPORT Texts,MathL, MathLib, RandomNumbers; CONST MAXPEs* = 20; TYPE : NeuralNet*= POINTER TO NeuralNetDesc; NeuralNetDesc = RECORD; L*: LONGINT; FaixaIniW*, FaixaIniBias*, Bias*: LONGREAL; m*: ARRAY 4 OF LONGINT; x*: ARRAY MAXPEs OF LONGREAL; : END; ---------- and "rbf" was declarated in RBF.Mod: ---------- MODULE RBF; IMPORT Texts, MathL, MathLib, RandomNumbers; TYPE classeDesc* = RECORD; junta*: ARRAY 4 OF juntaDesc; END; PhiDesc* = ARRAY 180 OF LONGREAL; pesosDesc*= ARRAY 180 OF ARRAY 4 OF LONGREAL; rbfNet* = POINTER TO rbfDesc; rbfDesc* = RECORD; classes*, funcoes*: LONGINT; classe*: ARRAY 5 OF classeDesc; Phi*: PhiDesc; : END ---------- These array of objects was initialized using "InitObject" method: ---------- MODULE Robot; IMPORT MathL, Peripherals, Tasks, MathLib, GetPeripherals, JR3, Texts, Neural, RBF, Sliding, Force; : VAR vers*: ARRAY 60 OF CHAR; net*: ARRAY 3 OF Neural.NeuralNet; rbf*: ARRAY 3 OF RBF.rbfNet; : PROCEDURE (robot: Robot) InitObject*(): LONGINT; VAR ok: BOOLEAN; i: LONGINT; w: Texts.Writer; CONST k= 0.025/2.0/MathL.pi; BEGIN Texts.OpenWriter(w); : FOR i:= 0 TO 2 DO IF net[i] = NIL THEN NEW(net[i]); END; IF net[i] # NIL THEN Texts.WriteString(w,'Instanciado MLP['); Texts.WriteInt(w, i, 1); Texts.WriteString(w,'].. Ok'); Texts.WriteLn(w); END; IF rbf[i] = NIL THEN NEW(rbf[i]); END; IF rbf[i] # NIL THEN Texts.WriteString(w,'Instanciado RBF['); Texts.WriteInt(w, i, 1); Texts.WriteString(w,'].. Ok'); Texts.WriteLn(w); END; END; : END InitObject; ----------------- When it is ran "robot.InitObject" follows these messagens in the screen (Log window): ----------------- : Instanciado MLP[0].. Ok Instanciado RBF[0].. Ok Instanciado MLP[1].. Ok Instanciado RBF[1].. Ok Instanciado MLP[2].. Ok Instanciado RBF[2].. Ok :O) Robot object succesfully created : ----------------- And the initial part of "NeuralTool.InitRedeJointPosControl" is: ----------------- PROCEDURE InitRedeJointPosControl*; VAR w: Texts.Writer; PEs: ARRAY 4 OF LONGINT; BEGIN Texts.OpenWriter(w); Texts.WriteString(w,'Initializing a neural network for joint position controll...'); IF Robot.net[0] = NIL THEN NEW(Robot.net[0]); Texts.WriteString(w, ' Brad New Network object'); END; Texts.WriteLn(w); PEs[0]:=12; PEs[1]:=8; PEs[2]:=5; PEs[3]:=4; Robot.net[0].CriaRede (4, PEs, 0.05, 0.005, -1.0); Robot.net[0].Lr:=0.02; Robot.net[0].TaxaLr:=0; Robot.net[0].Mom:=0.5; Robot.net[0].TaxaMom:=0; Robot.net[0].CodigoPacoteEntrada:= 1; END InitRedeJointPosControl; ----------- Could anyone give me a suggestion about what causes this problem!? I really want to use an array of object related to neural netwrosk because I need to run until 2 net at the same time in XO/2. thanks in advance, Fernando Passold PhD Student in E.Eng. Lab. of Industrial Automation Dept. of Automation Systems Federal University of Santa Catarina BRAZIL ICQ: 171216144 ^^ ^^ .. .. [] [] .:[]:_ ^^ ,:[]:. .: :[]: :-. ,-: :[]: :. .: : :[]: : :`._ ,.': : :[]: : :. .: : : :[]: : : : :-._ _,-: : : : :[]: : : :. _..: : : : :[]: : : : : : :-._________.-: : : : : : :[]: : : : :-._ _:_:_:_:_:_:[]:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:[]:_:_:_:_:_:_ !!!!!!!!!!!![]!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![]!!!!!!!!!!!!! ^^^^^^^^^^^^[]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^[]^^^^^^^^^^^^^ [] [] [] [] [] [] ~~^-~^_~^~/ \~^-~^~_~^-~_^~-^~_^~~-^~_~^~-~_~-^~_^/ \~^-~_~^-~~- ~ _~~- ~^-^~-^~~- ^~_^-^~~_ -~^_ -~_-~~^- _~~_~-^_ ~^-^~~-_^-~ ~^ ~ ^- _~~_- ~~ _ ~ ^~ - ~~^ _ - ^~- ~ _ ~~^ - ~_ - ~^_~ ~- ^_ ~^ - ^~ _ - ~^~ _ _~^~- _ ~~^ - _ ~ - _ ~~^ - ~^ -_ ~^^ -_ ~ _ - _ ~^~- _~ -_ ~- _ ~^ _ - ~ ^- ~^~ - _ ^ - ~~~ _ - _ ~-^ ~ __- ~_ - ~ ~^_- ~ ~- ^~ - ~^ - ~ ^~ - ~~ ^~ - ~

1 0

Aos DSL Problems: MSS increased.
by edgar＠edgarschwarz.de 12 Aug '03

12 Aug '03

Hi, my DSL problems with mail receiving, some FTP servers and a WebDAV server are gone after I increased MaximumSegmentLength in AosTCP from 536 to 1402. Aos didn't with bigger segments of the peer. I didn't notice any adverse effects yet with the exception that my VNC connection to bluebottle.ethz.ch crashed twice after some actions with the increased MSS. The funny thing is that I had no problems with the smaller MSS using PPP. Cheers, 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