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

Oberon Database
by Dan Parnete 19 Sep '05

19 Sep '05

Hello, I have read this list archives, the documentation inside the distributions, some extra found on the web and I understood. Database is a Tabu word in this community, and is better to not talk about. There is no trace in any distribution (excluding the commercial BlackBox) and the new Bluebottle project doesn't intend to implement one. Ok. It's a choice of live. But don't tell me none of you never needed to put some data altogether. I can't believe nobody extended at list the Library code to more flexible collections management. I saw some database projects started long time ago. Where are this implementations? In other words: if I need a database, have I write it myself? Dan

4 4

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

Library
by Dan Parnete 31 Aug '03

31 Aug '03

Hello, I'm writing a simple database engine based on Library. Practically I'm collecting objects in lib and store libs in a database file. For now I have a running version with volatile indexes, witch is a nice experience with less the 5000 libs stored, but above that, building indexes on the fly is no more funny. Expecialy do to an anoing problem with Objects.LoadLibrary procedure. I should like to do that: PROCEDURE ReadLib*( f: Files.File, pos: LONGINT ): Objects.Library; VAR i, len: LONGINT; L: Objects.Library; BEGIN NEW( L ); Objects.OpenLibrary( L ); Objects.LoadLibrary( L, f, pos+1, len ); RETURN L END ReadLib; But the result is: TRAP 7 Index out of range in thread Oberon.Loop Files.ReadString PC = 7278 R = 00411878H Files.Rider ch = 00000020X i = 64 x = " " ... Objects.LoadLibrary PC = 6475 @for = 8223 @for = 13 L = 014E0200H Objects.LibDesc N = 8224 R = 00411878H Files.Rider dict = 00000000H (Objects.ListDictDesc) dorg = 595 entry = 00000000H (Objects.EntryDesc) f = 01C1CA20H Files.File gorg = 512 i = 14 ind = 014AAF40H Objects.ArrayIndexDesc key = 8224 len = 597 n = 0 pos = 200017 version = 1380272450 DpsDb.ReadLib PC = 11734 L = 014E0200H Objects.LibDesc ch = 00000000X f = 01C1CA20H Files.File fl = 00000000H (Files.File) i = 0 len = 597 rl = 00411878H Files.Rider size = 597 And is nothing wrong with the data because doing that: PROCEDURE ReadLib*( size: LONGINT; f: Files.File; r: Files.Rider ): Objects.Library; VAR i, len: LONGINT; ch: CHAR; fl: Files.File; rl: Files.Rider; L: Objects.Library; BEGIN fl := Files.New( "TempLib" ); Files.Set( rl, fl, 0 ); FOR i:=0 TO size-1 DO Files.Read( r, ch ); Files.Write( rl, ch ) END; Files.Register( fl ); fl := Files.Old( "TempLib" ); NEW( L ); Objects.OpenLibrary( L ); Objects.LoadLibrary( L, fl, 1, len ); RETURN L END ReadLib; works fine, but writing on disk when you just want to read, is very time consuming. And if you use it to build and index, it's another nice mess. Have any of you experienced this problem? I'm using Windows Plugin version 14.05.2001 but it's the same on WinAos and Linux. Thank you, Dan Parnete

1 0

[AOS] StrongARM port
by Philipp Kramer 26 Aug '03

26 Aug '03

Hi, We have a version of the system running, although it is still under development. A problem is that we have not ported it to a platform having the StrongARM that can be bought easily. As far as I know we don't have it in the current public release. Email Thomas Frey or me directly. Best regards, Philipp.

1 0

AosTCPServices on WinAos
by Dan Parnete 25 Aug '03

25 Aug '03

Hello Felix, I'm new in area, and I'm discovering the wonderful world of Oberon. I like it so much, that I intend to switch here all me future projects. I should like to write some server code running on both Aos and WinAos. I'm trying to run this on WinAos (it runs fine on Aos) but it fails on AosTCPServices.OpenService: MODULE DpsServer; IMPORT AosModules, AosOut, AosTCP, AosTCPServices, AosIO; CONST port = 17; TYPE ClientAgent = OBJECT (AosTCPServices.Agent) VAR w: AosIO.Writer; BEGIN {ACTIVE} AosIO.OpenWriter( w, client.Send ); AosIO.WriteString( w, "I'am ready!" ); w.Update; Terminate END ClientAgent; VAR service: AosTCPServices.Service; PROCEDURE Open*( par: PTR) : PTR; BEGIN RETURN NIL END Open; PROCEDURE Close*( par: PTR ) : PTR; BEGIN Finalize; RETURN NIL END Close; PROCEDURE Initialize; BEGIN AosOut.String( "DpsServer: " ); AosTCPServices.OpenService( service, port, NewClientAgent ); IF (service # NIL) THEN AosOut.String( "service started." ); ELSE AosOut.String( "service failed to start." ); END; AosOut.Ln; END Initialize; PROCEDURE Finalize; BEGIN AosTCPServices.CloseService( service ); AosOut.String( "DpsServer: service stoped." ); AosOut.Ln END Finalize; PROCEDURE NewClientAgent( c: AosTCP.Connection; s: AosTCPServices.Service ): AosTCPServices.Agent; VAR a: ClientAgent; BEGIN NEW( a, c, s ); RETURN a END NewClientAgent; BEGIN Initialize; AosModules.InstallTermHandler( Finalize ) END DpsServer. Aos.Call DpsServer.Open System.Free DpsServer ~ TRAP access violation in thread Service AosWinsock.Accept PC = 4929 C = 02D7E5E0H AosWinsock.Connection newC = NIL reference ( 00000084H ) res = 0 ret = 0 AosTCP.Connection.Accept PC = 1208 @SELF = 02D7E550H AosTCP.Connection client = 00000000H (AosTCP.Connection) res = 0 resi = 0 AosTCPServices.Service.$$ PC = 54 @SELF = 02D7E4F0H AosTCPServices.Service Unknown EIP = 02D7F21AH EBP = 0361FF88H Is it anything I'm doing wrong ? WinAos needs any special setting for running AosTCPServices ? Thanks, Dan Parnete parnete(a)aladata.it

4 5

Partitions.Show failure
by Vasile Rotaru 19 Aug '03

19 Aug '03

Hi, 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. Or has is anything to do with the BIOS settings (LBA, NORMAL...)? Vasile

2 3

Re (2): [Oberon] Rembrandt > Scale :html (gif) ?
by peter_easthope＠gulfnet.sd64.bc.ca 18 Aug '03

18 Aug '03

Chris Glur wrote, cg> System.Directory *.gif ; Desktops.OpenDoc Techn:DataSlicr.gif shows me a nice diagram. ... One can't do this with Netscape nor IE ? John M. Drake wrote, jmd> Actually there is an instruction document. It's Rembrant.html ... create an Oberon panel on the fly that supported frames and had better support for tables than the old Oberon web browser. Just a thought. Thanks Chris & John for many useful tips in response to my naive remarks. ... Peter E. Desktops.OpenDoc http://carnot.pathology.ubc.ca/

1 0

Apple's G5
by Douglas G. Danforth 18 Aug '03

18 Aug '03

Folks, A suggestion - port Bluebottle to Apple's G5 machine and use the resulting system for high energy physics and scientific computing. Caveat - the software must be as reliable as Blackbox/Component Pascal. -Doug

2 1

re: [Oberon] Rembrandt > Scale :html (gif) ?
by Peter Easthope 18 Aug '03

18 Aug '03

Chris, 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. cg> Q1. does this only apply to *.Pict ? Probably. Can Rembrandt open any file other than Pict? 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. Regards, Peter E.

2 1

Re: [Oberon] Partitions.Show failure
by eas-lab＠absamail.co.za 18 Aug '03

18 Aug '03

> > Vasile Rotaru wrote: > > > 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. > > > > It is the version I used before (the alpha/last one, I guess). > I must have somewhere other version of NO. I'll try it too, thank you. > > > > 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 ? > > > > As far as I know, the linux kernel does not use BIOS calls at all..., > but LILO (the bootloader) should use them, so I just don't know. > I have found an NO version 2.3.6 and have tried it. This should be a well tested version ? My v2.3.6s are Linux and DOSbased. Obviously yours is StandAlone ? > > When I select the ATA/EIDE driver, Partition.Show fails with error 9. > When I select the IDE(old) driver, Partition.Show/Create works OK, > but Partition.Check fails. (Or it fails later with the same trap if I skip > Partition.Check). I have tried to move the partition forth and back, > but it didn't help. I will have to check the disk for bad blocks :(. > This looks like a BIG problem. > Anyway, I'm appending both traps, > > Partition.Show, widh ATA/EIDE driver > ATADisk* ==> ATADisks.Obj Watson.ShowDef ^ > PROCEDURE Install; > > TRAP 17 Disk error > ATADisk.Report PC = 9213 > err = 9 > ATADisk.TransferBlocks PC = 9806 > bufAdr = 1176324 > ctrl = 0030EC60H > dev = 0030ECE0H > drive = 0 > lba = 1 > num = 0 > num1 = 1 > read = TRUE > res = 9 > try = 0 > ATADisk.GetBlocks PC = 9854 > buf = L, O, 00000001X, 00000000X, 00000016X, 00000002X, 00000000X, 00000000X ... > drive = 0 > num = 1 > ofs = 0 > start = 0 > Partition.GetHDParams PC = 7258 Can't you look at PROC ATADisk.TransferBlocks using the value of the variables shown in the TRAP, and try to see what condition causes "err = 9" And if need be, work your way down the 'calling-chain' as shown by the Trap-trace: ATADisk.TransferBlock > ATADisk.GetBlocks > Partition.GetHDParams > Partition.GetInfo> .... ------------------------------------------ > Partition.Check, with IDE(old) driver > > TRAP 17 Disk error > IDEDisk.GetBlocks PC = 4107 > Error.err = 0 > buf = 000000E9X, 000000BCX, 00000001X, 00000000X, 00000000X, h, 00000080X, % ... > drive = 0 > err = 6013 > num = 16 > ofs = 0 > start = 24805896 > Partition.Check PC = 14880 > ch = 00000000X > date = 53009 > i = 1536 > len = 16 > num = 6 > pc = 0 > pr = 10 > seed = 5294032 > size = 192780 > start = 24804360 > t0 = 66935 > t1 = 0 > ticks = 83058 > Oberon.Call PC = 4672 This one also fails with the hardware driver AFAIK ? So it looks as if the problem is with the IDE, not the software. Perhaps the way NO initially starts 'getting to the partition' is a problem that linux avoids - is more tolerant to ? > I have allocated a partition, I have checked it with linux "badblocks". > No bad blocks found. But Partition. Check still fails. :( > I suppose you don't have another IDE to check ? -- Chris Glur.

2 1