September 2006 - Oberon - mailman3.inf.ethz.ch

ObeDAV on Sourceforge
by edgar＠edgarschwarz.de 29 Sep '06

29 Sep '06

Hi all, after being in limbo for a while I started again working on my WebDAV/DeltaV for Bluebottle. I'm implementing a client using the custom DeltaV interface of Subversion for Apache and mod_dav_svn atm. To have a secure repository for my work I got myself a project at Sourceforge: ObeDAV More information you can get already from the Subversion repository at: https://svn.sourceforge.net/svnroot/obedav/ from ObeDAV.Text I can't access https from WinOberon and Bluebottle. Configuration problem or missing feature in Bluebottle ? BTW, does Bluebottle have ssh ? Just too lazy to search for myself atm :-) If https is a problem for Bluebottle I will copy ObeDAV.Text to http://obedav.sourceforge.net/. I already created and configured the ssh keys I need for doing that. I will try it tomorrow. Cheers, Edgar

2 1

pci scan for sound device
by Søren Renner 28 Sep '06

28 Sep '06

If I add the line "ScanPCI(vendorID,productID)" to the file Aosi810Sound.Mod and recompile, should the sound device probably work? Where in the numbers below do I find those two ID numbers? "vendor/device 11063059" is one number. . . NOTE: I was looking in a drawer this morning for my cufflinks when I stumbled upon an RTK8139 card; my networking worries are over, thanks to the advice given in this forum. Thanks to all. <?xml version="1.0" encoding="UTF-8"?> <?bluebottle format version="0.1" ?> <?xml-stylesheet type="text/xsl" href="http://bluebottle.ethz.ch/bluebottle.xsl" ?> <Text> <![CDATA[Bus 0, device 17, function 5: class/rev 04010060, vendor/device 11063059, status/cmd 02100001 Class: Multimedia controller, Sub-class: Multimedia audio controller Vendor: VIA Technologies, Inc., Device: VT8233/A/8235/8237 AC97 Audio Controller Driver: n/a IRQ5, INTC 256B I/O at 0000C800-0000C8FF PCI Configuration Space Registers: ]]><![CDATA[ 00h 30591106 04h 02100001 08h 04010060 0Ch 00000000 10h 0000C801 14h 00000000 18h 00000000 1Ch 00000000 20h 00000000 24h 00000000 28h 00000000 2Ch 18771019 30h 00000000 34h 000000C0 38h 00000000 3Ch 00000305 ]]><![CDATA[ Command Register: IO Space: On, Memory Space: Off, Bus Master: Off, Special Cycles: Off, Memory Write and Invalidate: Off VGA Palette Snoop: Off, Parity Error Response: Off, Stepping Control: Off, SERR#: Off, Fast Back-to-Back: Off Status Register: Capabilities List: Yes, 66MHz Capable: No, Fast Back-to-Back Capable: No, Master Data Parity Error: No DEVSEL timing: Medium Signaled Target Abort: No, Received Target Abort: No, Received Master Abort: No, Signaled System Error: No, Detected Parity Error: ]]> </Text>

2 1

Bluebottle sound and network configuration
by Søren Renner 27 Sep '06

27 Sep '06

My box has a modern integrated motherboard, this one: http://www.ecs.com.tw/ECSWeb/Products/ProductsDetail.aspx?DetailID=552&Menu… Is it possible that BB has drivers for this motherboard's a. sound and b. network? How would I change the configuration? The XML config file is confusing, and doesn't even mention sound. I've never had sound in Oberon or BB, but now I am thinkingabout rewriting the core of Csound in AO, for kicks. Sorry if my ceaseless questions are pestersome.

3 2

Custom Keys
by Stauber Sven Philipp 25 Sep '06

25 Sep '06

Hi, I implemented a hot key tool for Bluebottle. Besides assignments of commands to key combinations, it also supports the remapping of key combos to other key combos, e.g. remap ALT+PageDown to META+PageDown. The tool will be included in the next release. Regards, Sven Stauber

2 1

Custom Zoom Key
by Søren Renner 24 Sep '06

24 Sep '06

I have an old IBM keyboard whose keys make a satisfying click.It doesn't have the "Windows" key between CTRL and ALT like newer keyboards. How should I modify BB so that another key can substitute in "Windows + mousewheel"? Is there a way to do it with an XMLconfi file, or will I need to change a bit of code? "Life's brilliant dapple, its joy-spangled mottle Is deeper and richer with ETHZ Bluebottle."

2 1

Raster.Mod Image Filters
by Søren Renner 22 Sep '06

22 Sep '06

Which procedure exported by Raster should I use to filter an image? I know there is such a procedure, because the WM zoom uses it for smoothing.

2 1

Re^n threads
by shark＠gulfnet.sd64.bc.ca 21 Sep '06

21 Sep '06

Thomas F.> If there are more questions about the topic, ... Some of us know almost nothing about AO and threads. What introduction is recommended and what reference documents are current? Thanks, ... Peter E. Desktops.OpenDoc http://carnot.pathology.ubc.ca/

2 1

precise specification of single remaining difficulty
by Søren Renner 21 Sep '06

21 Sep '06

MODULE srThreadDemo; IMPORT srBase, AosActive, DebugLog; TYPE thread=OBJECT VAR I: INTEGER; PROCEDURE&init(i:INTEGER); BEGIN I:=i; END init; BEGIN{ACTIVE, PRIORITY(AosActive.Normal)} REPEAT BEGIN{EXCLUSIVE} AWAIT(flag[I]); INC(threadsdone); flag[I]:=FALSE; END; DebugLog.Int(threadsdone,4); DebugLog.String("threads done"); UNTIL FALSE; END thread; VAR threads: ARRAY 10 OF thread; flag: ARRAY 10 OF BOOLEAN; gothreads: BOOLEAN; i: INTEGER; threadsdone: INTEGER; PROCEDURE go*; VAR i:INTEGER; BEGIN BEGIN{EXCLUSIVE} threadsdone:=0; FOR i := 0 TO 9 DO flag[i]:=TRUE END; DebugLog.String("go go little threads. which thread will win? . . ."); AWAIT(threadsdone=10) END; DebugLog.String("well, so much for those threads i guess"); (* NEVER REACHED! *) END go; PROCEDURE loadmodule*; END loadmodule; BEGIN BEGIN{EXCLUSIVE} gothreads:=FALSE END; FOR i := 0 TO 9 DO NEW(threads[i],i); DebugLog.String("sprawning thread "); DebugLog.Int(i,4); DebugLog.Ln; END; go; END srThreadDemo. srThreadDemo.go: DebugLog output: P1.218 srThreadDemo.$$[208]> sprawning thread P1.218 srThreadDemo.$$[223]> 0 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 1 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 2 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 3 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 4 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 5 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 6 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 7 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 8 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.$$[208]> sprawning thread P0.218 srThreadDemo.$$[223]> 9 P0.218 srThreadDemo.$$[228]> P0.218 srThreadDemo.go[538]> go go little threads. which thread will win? . . . P1.219 srThreadDemo.thread.@Body[419]> 1 P1.219 srThreadDemo.thread.@Body[431]> threads done P1.220 srThreadDemo.thread.@Body[419]> 2 P1.220 srThreadDemo.thread.@Body[431]> threads done P1.221 srThreadDemo.thread.@Body[419]> 3 P1.221 srThreadDemo.thread.@Body[431]> threads done P1.222 srThreadDemo.thread.@Body[419]> 4 P1.222 srThreadDemo.thread.@Body[431]> threads done P1.223 srThreadDemo.thread.@Body[419]> 5 P1.223 srThreadDemo.thread.@Body[431]> threads done P1.224 srThreadDemo.thread.@Body[419]> 6 P1.224 srThreadDemo.thread.@Body[431]> threads done P1.225 srThreadDemo.thread.@Body[419]> 7 P1.225 srThreadDemo.thread.@Body[431]> threads done P1.226 srThreadDemo.thread.@Body[419]> 8 P1.226 srThreadDemo.thread.@Body[431]> threads done P1.227 srThreadDemo.thread.@Body[419]> 9 P1.227 srThreadDemo.thread.@Body[431]> threads done P1.228 srThreadDemo.thread.@Body[419]> 10 P1.228 srThreadDemo.thread.@Body[431]> threads done Why is AWAIT(threadsdone=10) never triggered?

2 1

threads
by Søren Renner 19 Sep '06

19 Sep '06

thank you mr frey! with careful use of BEGIN{EXCLUSIVE}....END, the kernel errors have disappeared. there remains some difficulty however. to sketch: there is an active process which drives the renderer. each frame, it handles the mouse and keyboard inputs, moves the camera, prepares the rays (one per pixel), and so forth. then it calls the ray engine. the ray engine is a module that has n tiles. each tile traces the rays for a piece of the window. the tiles have active bodies. The problem is, how to arrange things so that "go" only returns when all the tiles are done, and each tile only works once. should the following work? MODULE rayengine; TYPE tile=OBJECT; VAR I:INTEGER; PROCEDURE&init(i:INTEGER) BEGIN I:=i END init; BEGIN{ACTIVE} REPEAT BEGIN{EXCLUSIVE} AWAIT(tilego[i]) tilego[i]:=FALSE; TRACE RAYS INC(tilesdone); END UNTIL FALSE END; VAR tiles: ARRAY n OF tile; i, tilesdone: INTEGER; tilego: ARRAY n OF BOOLEAN; PROCEDURE frame*; BEGIN BEGIN{EXCLUSIVE} tilesdone:=0; FOR i:=0 TO n-1 DO tilego[i]:=TRUE; END; END; DebugLog.String("Frame started"); BEGIN{EXCLUSIVE} AWAIT(tilesdone=n) END; DebugLog.String("Frame done"); END go; BEGIN FOR i:=0 TO n-1 DO NEW(tile[n],i) END END rayengine;

1 0

Re: Oberon Digest, Vol 36, Issue 5
by Søren Renner 18 Sep '06

18 Sep '06

What is wrong with using threads in the following way in Bluebottle Oberon? ***************************************************** MODULE threads; TYPE workthread=OBJECT BEGIN{ACTIVE, normal priority} REPEAT AWAIT(gothreads); work; INC(threadsdone); AWAIT(~gothreads); END; VAR threadsdone:INTEGER; gothreads:BOOLEAN (*main thread*) PROCEDURE go*; BEGIN gothreads:=TRUE; AWAIT(threadsdone=n); (* for n threads*) gothreads:=FALSE END go; BEGIN create n thread objects END threads; each time "go" is called every thread does its work once before "go" returns to the caller. why does this create traps in the kernel log that trace to the AWAIT statement?

2 1