January 2007 - Oberon - mailman3.inf.ethz.ch

Has BB/Aos got equivalent: 'The Oberon Companion'...etc. tuts ?
by Chris Glur 15 Jan '07

15 Jan '07

How much of the substantial investment in ETHZ-system3's documentation is, transferable to BB/Aos ? == Chris Glur. PS. For linux users who need to keep down their online telco time/costs, I found a further refinement [successive refinement work in LIFE]. As Peter Easthope pointed out, lynx is lightening-fast for fetching http [no images]; and has a nice format for reading off-line and extracting links for further downloading. The following minimal script fetches the list of URLs in eg. 'urls.txt' and accumulates them to 'accumulation' for later human processing:----------------- #!/bin/bash # for url in `cat urls.txt`; do lynx -dump "$url" >> accumulation; done for url in `cat NewsLst`; do lynx -dump "$url" >> accumNewsLst; done ------------ I find it convenient/economical to start the 'lynx-http-fetch' script before doing net-jobs which require on-line attention, eg. trying to edit a wiki; ie. which can't easily be automated.

2 1

Re: N-O: HOW2 SelectTextStretch given beg, end ?
by Chris Glur 13 Jan '07

13 Jan '07

> > I can't guess where the code would be to 'SetSelection' > > as per mouse activation ? > > Chris Burrows wrote: > In ETH Oberon v2.4 Plugin for Windows 'TextFrames.SetSelection' > looks promising. It looks massively convoluted to me ! Bernhard Egger wrote: > For me, the following code works in Bluebottle Oberon: > > moving the current selection by 5 characters: > > PROCEDURE MoveSelection*; --snip-- > setting a new selection in the marked (*) text: > > PROCEDURE SetSelection*; --snip-- Thanks, these work nicely. I've made some wrong assumptions at the highest level. That's why 'top-down' design is best. If I use positioning the caret after the closing-'bracket' AND selecting up to the closing-'bracket', AND the closing-'bracket' is off screen then [apparently] the caret-stepping, looses the beginning selection of the block. It's what it LOOKS like to the user that matters. I favour data/table-driven programming, where possible. Then many types of nested-bracketed-text can be handled, other than "IF <expn> THEN <stmt> END" types. I'll start putting it to Edgar's wiki. Probably at: http://www.edgar-schwarz.de/mm/HiliteBlocks For those like me, who don't want their text to be auto-reformatted, use short lines and '[[BR]]' as a line-terminator for wiki. Now I'm going to try to post & paste: A problem is to quickly see the block-structure of source code[[BR]] when the blocks/nested-statements extend over multiple screens.[[BR]] Thanks, == Chris Glur.

1 0

N-O: HOW2 SelectTextStretch given beg, end ?
by Chris Glur 13 Jan '07

13 Jan '07

Since linux-ETHZ-oberon allows multiple desktops, this makes programming easier. You can have a separate desktop for your docu/tutors. Some docus want eg. a full size UserTrack to view. Also separate desktop[s] for your notes/log-of-progress. And of course a separate desktop for the source being compiled. Although you can't cutNpaste between desktops [which are separate linux-processes] communication via common file[s] is convenient. These increased facilities prompted me to investigate making a tool which reduces the frustration of locating the 'closing-bracket'/"END-token" of 'blocks which stretch over multiple screens. The ' "END" terminated blocks' begin with one of: "BEGIN","WHILE", "FOR","IF", "LOOP". I think that only leaves "REPEAT" ? I morphed Chapter5.Text Example7 to make the tool which I'm now using; which after setting the caret before the 'opening bracket token' eg. "IF", moves the caret to the corresponding "END". [I'll put the 'project' to Edgar's wiki later.] It would be nice if the 'block' could be selected, instead of just moving the caret to the "END". This would even allow a single clux [N-O mouse chord] to colour the block ! One would: select the opening token & execute 'Do.SelctBlk', and see the block selected -- possibly over multiple screens. And then have the ability to copy, colour ..etc. the block ? I can't see how to select the TextStrech, given the beg, end. There's plenty sample code and tutorials on GetSelection, but SetSelection seems to be a taboo - not recommended. My first/simplest approach failed: 1. exercise the given example[s] for GetSelection, 2. trace the SelectMesg fields: beg, end to confirm, 3. modify these 2 fields eg. to beg+3, end+5, and the id field frrom Oberon.get to Oberon.set and hope that the other unchaged fields are OK. This fails with no symptoms. I can't guess where the code would be to 'SetSelection' as per mouse activation ? Can someone advise/help ? Thanks, == Chris Glur.

3 2

out of index range bug in AosFATFiles ?
by Patrick.Hunziker＠unibas.ch 12 Jan '07

12 Jan '07

Hi There appears to be an error in index computation in AosFATFiles.Mod resulting in a negative idx in Procedure TailFinder: [1] TRAP 7 PL 3 index out of range Aos 18.8.06 CS:=0000001B DS:=00000020 ES:=00000020 SS:=0000002B CR0=80040031 FPU=00000000 EIP=011CB891 ESI=011C5BE8 EDI=8479F6C0 ESP=8479F6D0 CR2=8479DD9C PID=00000000 EAX=000022B9 EBX=011DAFB8 ECX=00000000 EDX=FFFFFFFC CR3=07FFE000 LCK=00000000 EBP=8479F6FC FS:=00000000 GS:=00000000 ERR=00000000 CR4=00000200 TMR=18479A53 EFLAGS: cPazStIdo iopl3 {1..2, 7, 9, 12..13} Process: 96 run 0 3 00EF0B70:WebHTTPServer.HTTPAgent AosATADisks.Interrupt.Wait pc=250 {} AosFATFiles.Directory.TailFinder pc=21001 p=00E04CC0H tail=0 @Self=011C5810H delta=10000 i=282 idx=-4 l=4 ofs=18 offset=-1110 rlow=1000 t=-110 State AosFATFiles: @Self=006B6C90H AosFATFiles.Directory.TailGeneration pc=21242 shortname="AMISA683XML" TailNeeded=TRUE @Self=011C5810H tp=00E04CC0H l=5 len=0 max=0 pos=0 tail=0 AosFATFiles.Directory.GetShortName pc=22359 name="AmisA683161929.xml"... shortname="AMISA683XML" checksum=00X @Self=011C5810H extPos=15 i=3 k=18 ascii="AMISA683161929.XML"... lossy=FALSE l=FALSE sameName=FALSE AosFATFiles.Directory.WriteFileHeaderX pc=24235 f=011C5230H @Self=011C5810H data="" b=FALSE ro=TRUE writeLast=TRUE ofs=105024 (00019A40H) i=0 k=0 len=3 numFree=3 s=0 ucs=0 unicode=0, 0, 0, 0, 0, 0, 0, 0... r=Rec.00000280H c=00X chksum=00X AosFATFiles.Directory.WriteFileHeader pc=23225 f=011C5230H @Self=011C5810H AosFATFiles.File.UpdateX pc=15051 @Self=011C5230H dir=011C5810H AosFATFiles.File.Register0 pc=14651 res=0 @Self=011C5230H dir=011C5810H old=00000000H s=00000000H Greetings Pat ---------------------------------------------------------------- This message was sent using IMP, the Internet Messaging Program.

2 1

Problem with USB on ASUS P5WD2 (Intel 955X chipset)
by Yaroslav Romanchenko 10 Jan '07

10 Jan '07

When i've try to install Bluebottle (build 28.11.06) on USB devices (USB stick SanDisk Cruzer Crossfire 1.0 Gb and USB controller with attached IDE HDD) i've got error: AosUsb: Driver UsbStorage (USB Mass Storage Driver) has been added. AosUsbStorage: Storage device USB0 (SanDisk Cruzer Crossfire) is now accessible. AosUsbStorage: Device sent wrong tag in CSW AosUsbStorage: 2nd try to get CSW failed AosUsbStorage: Sense error on protocol sense AosUsbStorage: Device sent wrong tag in CSW AosUsbEhci: USBHC0 (USB Enhanced Host Controller): Failed to unlink TDs from pipe: Control In Pipe: Adr: 1 Ep: 0 [HighSpeed] Queue: 00000000H, QH: 038F8A80H, firstTD: 038F8AE0H, lastTD: 038F8B20H Timeout: 5000ms , MaxPacketSize: 64 Bytes, MaxRetries: 3, Mode: Normal, Last status: [InProgress], Last errors: [NoErrors] TD buffer: 63997 TD's EHCI data structure at 038F8A80: Isochronous Tranfers Desriptor Endpoint Capabilities 1: DeviceAddr: 1, Endpoint: 0, Speed: HighSpeed, MaxPacketSize: 64, NakRL: 3, Flags: [DataToggleControl][Head] Endpoint Capabilities 2: Mult: 1, HubAddr: 0, HubPort: 0, SplitCMask: 0, QhSMask: 0 Queue Head Horizontal Link Pointer: 03A17D40 (Queue Head) Current qTD Pointer: 038F8B20, Next qTD Pointer: 00000001 Transfer overlay: qTD at 038F8A90: qTD Token: Pid: IN, DataToggle: DATA1, Bytes to transfer: 0, IOC: No, CERR: 3 qTD Token Status: [Active] Buffer information: Current Buffer: 0, Nak counter: 1 Buffer Pointer 0: 00000000 Current Offset: 00000000 Buffer Pointer 1: 00000000 C-prog-mask: 00000000 Buffer Pointer 2: 00000000 S-Bytes / Frametag: 00000000 Buffer Pointer 3: 00000000 Buffer Pointer 4: 00000000 ExtBufferPointer0: 00000000 ExtBufferPointer1: 00000000 ExtBufferPointer2: 00000000 ExtBufferPointer3: 00000000 ExtBufferPointer4: 00000000 Alternate Next qTD Pointer: Invalid (00000005) Next qTD Pointer: Invalid (00000001) qTD chain: qTD at 038F8AE0: qTD Token: Pid: SETUP, DataToggle: DATA1, Bytes to transfer: 0, IOC: No, CERR: 3 qTD Token Status: Buffer information: Current Buffer: 0 Buffer Pointer 0: 03D68000 Current Offset: 00000930 Buffer Pointer 1: 00000000 Buffer Pointer 2: 00000000 Buffer Pointer 3: 00000000 Buffer Pointer 4: 00000000 ExtBufferPointer0: 00000000 ExtBufferPointer1: 00000000 ExtBufferPointer2: 00000000 ExtBufferPointer3: 00000000 ExtBufferPointer4: 00000000 Alternate Next qTD Pointer: Invalid (00000001) Next qTD Pointer: 038F8B20 qTD at 038F8B20: qTD Token: Pid: IN, DataToggle: DATA1, Bytes to transfer: 0, IOC: No, CERR: 3 qTD Token Status: Buffer information: Current Buffer: 0 Buffer Pointer 0: 00000000 Current Offset: 00000000 Buffer Pointer 1: 00000000 Buffer Pointer 2: 00000000 Buffer Pointer 3: 00000000 Buffer Pointer 4: 00000000 ExtBufferPointer0: 00000000 ExtBufferPointer1: 00000000 ExtBufferPointer2: 00000000 ExtBufferPointer3: 00000000 ExtBufferPointer4: 00000000 Alternate Next qTD Pointer: Invalid (00000001) Next qTD Pointer: Invalid (00000001) End of Chain AosUsbStorage: Mass storage reset failed. AosUsbStorage: Device sent wrong tag in CSW AosUsbEhci: USBHC0 (USB Enhanced Host Controller): LinkTDs: ERROR: PIPE IS STILL ACTIVE!!!! AosUsbStorage: Mass storage reset failed. --- Cheers, SAGE http://sage.h15.ru/ ---------------------------------------------------------------- This message was sent using NBI WebMail service

3 3

Antwort: [Oberon] FAT Filesystem on BluebottleServer allows duplicate files with same name
by Edgar Schwarz 10 Jan '07

10 Jan '07

Hi Patrik, I know for years that FAT has problems and also some people at ETH should know. My problems showed up when I mapped WebDAV files to FAT. WebDAV knows about directories so I couldn't use the Oberon filesystem. I had spurious problems with duplicate files and also couldn't delete files and so on. My guess it that these are problems concerning garbage collection and freeing filehandles. You can't "close" a file in Oberon AFAIK. A clash of philosophies :-( But I never dared to take a dive into the FAT driver. Also if I communicate with an external WebDAV server (E.g. apache) this isn't a problem. Mit freundlichen Grüßen /Med vänliga hälsningar/ Best regards Edgar Schwarz P.S. At the moment ObeDAV is ported from Builder.Compile to PC.Compile. This means in some files a lot of editorial (I hope) changes because of ordering restrictions. -- Edgar.Schwarz(a)ericsson.com, Postf. 1920, D-71509 Backnang,+49 7191 13 3382, Make it as simple as possible, but not simpler (A.Einstein) Patrick.Hunzike r(a)unibas.ch An: oberon(a)lists.inf.ethz.ch Gesendet von: Kopie: oberon-bounces@ Blindkopie: lists.inf.ethz. Thema: [Oberon] FAT Filesystem on BluebottleServer allows ch duplicate files with same name 10.01.2007 12:54 Bitte antworten an ETH Oberon and related systems To my surprise, Files generated on a Bluebottle FAT partition in a folder sometimes have the same name, as visible in System.Directory, visible in the Bluebottle File Browser, and visible when accessing the folder in Windows. There seem no "nonprintable" characters in the filename (a problem sometimes occurring when using the Store Button in the Oberon Gadgets Interface). When trying, in Bluebottle, to Zipfile.Add a list of files containing that duplicate, the duplicate file problem becomes manifest. The same problem becomes manifest when booting windows and trying to copy that folder. A visualisation of the problem is on http://www.computational.ch/FATbug.jpg Greetings Pat ---------------------------------------------------------------- This message was sent using IMP, the Internet Messaging Program. -- Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

USB CD Boot
by Aubrey.McIntosh＠Alumni.UTexas.Net 07 Jan '07

07 Jan '07

I have a system with a USB based CD drive. I built a CD iso image with a kernel that is known to boot a USB memory stick. There are two additional AosStorage??? modules that are also linked into the file, that end up being loaded when I mount a USBCD based file system. It doesn't boot. I have set Init=0 and TraceMode=3 and watched as all sorts of insightful information scrolls off the top of the screen too fast for me to read. It will be a lot of effort to set up serial debugging support. I wonder if there is some way to make the trace output slow down. (scroll lock does not work) Alternately, has anyone already succeeded at a USB CD boot? -- -- Aubrey McIntosh, Ph.D.

3 4

Formatting text in BlueBottle PET
by John Drake 05 Jan '07

05 Jan '07

Hello all, This should be a simple question, but it's been bugging me for a while. Inside the IDE how do you change fonts? Clearly it can load files with various fonts, but I don't see any way to change fonts. Regards, John M. Drake __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

2 1