February 2011 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] [squeak-dev] Object>>is:

by Igor Stasenko

On 11 February 2011 02:28, David T. Lewis <lewis(a)mail.msen.com> wrote: > We had a good deal of discussion earlier about adding Object>>is: > with an inconclusive outcome: > Â http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-April/148501.ht… > > Igor's original proposal is: > Â http://lists.squeakfoundation.org/pipermail/squeak-dev/2009-June/136793.html > > I have been tinkering around with Juan's SimpleMorphic in hopes of > getting it running in Squeak alongside MVC and Morphic, and it would > be convenient to have the default implementation of #is: in the image > so I don't have to put it in a package override. > Just yesterday i had discussion about this with people in the lab. I can't say that i heard something new regarding this, and not saying that i'd like to resurrect the discussion. So, in short: there was no objection concerning getting rid of isXXX in favor of using #is: method. The only thing which still looks controversial is too simple default implementation which answers false. To my current opinion, Juan's variant is preferable. :) Yes. it should answer false and don't contain any extra logic , like trying to follow class hierarchy etc. Because it serves to replace isXXXX pattern, and not adding something new (i.e. more 'userful'). So, answering false for Object class fits well for this purpose. And of course solution to that problem is simple: - avoid writing code in style, which require isXXX tests and then branching. Nicely written code should use message dispatch instead. Too bad, we are not living in perfect world :) > Any strong objections? > -- Best regards, Igor Stasenko AKA sig.

Feb. 11, 2011

Re: [Pharo-project] Accessing the serial interface with Pharo on Windows/Linux?

by Serge Stinckwich

All is here: http://code.google.com/p/pharo/issues/detail?id=1057 The same code is integrated in Squeak 4.2. The integration in 1.2 (or 1.3) is still pending. Should i ask David and SÃ©verin to explicitely sign the Pharo licence agreement ? Regards, On Fri, Feb 11, 2011 at 12:20 AM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > The serial port should be working (there is a fix for named ports) I do not remember whether we should or we already integrated it. > > Stef > > On Feb 10, 2011, at 6:02 PM, Friedrich Dominicus wrote: > >> Just wondering if there is some Smalltalk way to access the serial >> interface. >> >> A little bit extended. Can one use COM and Pharo on Windows? >> >> Regards >> Friedrich >> > > > -- Serge Stinckwich UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam Every DSL ends up being Smalltalk http://doesnotunderstand.org/

Feb. 11, 2011

Re: [Pharo-project] A tinyBenchmark

by Igor Stasenko

so much noise for so insignificant smoke test. I'd rather prefer seeing Cog doing copy-down compiled method, at least for most simple cases - self sends :) -- Best regards, Igor Stasenko AKA sig.

Feb. 11, 2011

Re: [Pharo-project] A tinyBenchmark

by David T. Lewis

On Thu, Feb 10, 2011 at 07:12:03PM +0100, Sven Van Caekenberghe wrote: > > On 10 Feb 2011, at 17:45, Felipe Ba?ados Schwerter wrote: > > > Every System was the one available from their websites. (Got Pharo 1.2 from Hudson about 3 days ago.) However, VisualWorks is not available from its website right now. I installed it from a Cincom CD-ROM I got on Smalltalks 2010 . > > > > - There are two different Cog VMs. You didn't specify which one did you use with Pharo. > > > > Smalltalk vmVersion returns 'Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.35]'). > > +1 > > There does indeed not seem to be a very good way to get at the proper > VM version (let alone build) from inside the Smalltalk image. It frustrates me too. > Check out SystemReporter on SqueakSource. It's being used in Squeak now and AFIK should load in Pharo also. Very convenient, and tells you everything you need to know about VM version and lots of other things. Dave

Feb. 11, 2011

[Pharo-project] [Hudson] updates

by Marcus Denker

done in the last week: - current core and full are now automatically loaded from gforge for building and testing the core image (1.3 just updates the last core build artefact) - For 1.3, there is now a new script build13 that does not kill the image when a debuglog is written. (all 1.3 builds use this) - updated the vm used for running builds and tests (not yet the one bundled in the One-Click) - there is now the latest cog. the buildWithCog.sh uses this - seaside is build with cog, but tests are run on the interpreter for now - aida, seaside, xmlrpc and petitparser used as client tests for 1.2 https://pharo-ic.lille.inria.fr/hudson/view/Pharo-Clients/ - RMod now has it's own view: https://pharo-ic.lille.inria.fr/hudson/view/Rmod/ - the script used for building now available as an artefact https://pharo-ic.lille.inria.fr/hudson/job/Pharo%201.1/lastSuccessfulBuild/… - Disk usage plugin installed -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

Feb. 11, 2011

Re: [Pharo-project] Issue 3583 in pharo: Shout should only be active in code panes

by pharo＠googlecode.com

Comment #47 on issue 3583 by guillerm...(a)gmail.com: Shout should only be active in code panes http://code.google.com/p/pharo/issues/detail?id=3583 Mmm, maybe it's not possible, but this issue is here because the merge between PluggableTextMorph and PluggableTextMorphWithShout was not completely done or thought. How difficult it is to go back to that refactor again and have this in mind? Because this looks like a lot of patches and patches and patches...

Feb. 11, 2011

Re: [Pharo-project] A tinyBenchmark

by Levente Uzonyi

On Thu, 10 Feb 2011, Sven Van Caekenberghe wrote: > > On 10 Feb 2011, at 17:45, Felipe Ba?ados Schwerter wrote: > >> Every System was the one available from their websites. (Got Pharo 1.2 from Hudson about 3 days ago.) However, VisualWorks is not available from its website right now. I installed it from a Cincom CD-ROM I got on Smalltalks 2010 . >> >> - There are two different Cog VMs. You didn't specify which one did you use with Pharo. >> >> Smalltalk vmVersion returns 'Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.35]'). > > +1 > > There does indeed not seem to be a very good way to get at the proper VM version (let alone build) from inside the Smalltalk image. It frustrates me too. These methods should do it: Smalltalk buildDate. 'Win32 built on Feb 6 2011 18:06:24 Compiler: 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)'. Smalltalk isRunningCog. true. Smalltalk isRunningCogit. true. Smalltalk interpreterClass. 'CoInterpreter VMMaker-oscog.47 uuid: a4053f20-cb87-415d-aad3-3bb29b03724c Feb 6 2011'. Smalltalk cogitClass. 'StackToRegisterMappingCogit VMMaker-oscog.47 uuid: a4053f20-cb87-415d-aad3-3bb29b03724c Feb 6 2011'. > >> - You used a CogVM (JIT) with Pharo but SqueakVM (interpreter) with Squeak 4.2. What's even worse is that you based your conclusion on this mistake. >> >> Yes, it is true. Daniel Galdames also pointed this out last night on the blog. But as I told before, it is just the benchmarks you get from the "download the latest version available" approach. I couldn't find a Cog-based Squeak on its ftp site, (perhaps I was too lazy). I won't have the time to repeat this until next week, then I'll try this. > > Again, you are right: even though Squeak 4.2 is ready for Cog, there is (not yet) a simple one-click installer using it (as far as I can tell from a casual look). So your experience mirrors what some others might find. There will be when it will be released. ;) > > Benchmarking is always fuzzy, you picked one that was available and has been there for years, so if it would be no good, somebody should have replaced it. It's fine for benchmarking the VM. As the name suggests, it's not a system wide benchmark, just a tiny one. Levente > > Regards, > > Sven > > > > > >

Feb. 10, 2011

Re: [Pharo-project] A tinyBenchmark

by Levente Uzonyi

On Thu, 10 Feb 2011, Felipe Ba?ados Schwerter wrote: > Hi Everybody! This is my first post on the list, even though i've been > subscribed for more than 6 months. > > 2011/2/10 Levente Uzonyi <leves(a)elte.hu> > >> On Thu, 10 Feb 2011, Torsten Bergmann wrote: >> >> see http://fbanados.wordpress.com/2011/02/10/a-tinybenchmark >>> >>> Maybe Eliot is able to say something here on the main >>> differences between Cog <-> VW VM. >>> >> >> You made several mistakes: >> - You didn't post the source code for #tinyBenchmarks. Do all those >> Smalltalks implement it? Are the implementations equal? >> > > No, they don't implement it. Just Pharo and Squeak. I just added the same > implementation to Integer in VA, VisualWorks and GNU Smalltalk ( > Integer>>tinyBenchmarks, Integer>>benchmark and Integer>>benchFib), so the > source code is the same. Cool. I've ported #tinyBenchmarks to Clamato and also tried StrongTalk. I had to rewrite the code to make it run on both of them. > > - You didn't specify the version numbers for the VMs used. Or if you built >> them yourself, then the sourcecode + compiler version + configuration >> parameters. Without these your measurements can't be reproduced. >> > > Every System was the one available from their websites. (Got Pharo 1.2 from > Hudson about 3 days ago.) However, VisualWorks is not available from its > website right now. I installed it from a Cincom CD-ROM I got on Smalltalks > 2010 . It makes sense, just note it. > > >> - There are two different Cog VMs. You didn't specify which one did you use >> with Pharo. >> > > Smalltalk vmVersion returns 'Croquet Closure Cog VM [CoInterpreter > VMMaker-oscog.35]'). So it's SimpleStackBasedCogit. If you use StackToRegisterMappingCogit you'll get much better results. > > >> - You used a CogVM (JIT) with Pharo but SqueakVM (interpreter) with Squeak >> 4.2. What's even worse is that you based your conclusion on this mistake. >> > > Yes, it is true. Daniel Galdames also pointed this out last night on the > blog. But as I told before, it is just the benchmarks you get from the > "download the latest version available" approach. I couldn't find a > Cog-based Squeak on its ftp site, (perhaps I was too lazy). I won't have the > time to repeat this until next week, then I'll try this. It's a question of how much time you spend on it. You used Pharo 1.2, though you have to dig deep to download it from the Pharo website. Finding Pharo 1.1.1 is obvious from there :). Anyway it doesn't really matter which image you use for #tinyBenchmarks, because it's a VM benchmark. The image can hardly affect it's results. > > >> - Does #tinyBenchmarks alone give fair performance comparison? Hardly. >> >> Well, it was the benchmark I knew of. Do you know a better performance > benchmark available? If so, I could retry the experiment. See what Eliot suggested. Levente > > >> >> Levente >> >> >> >>> Thx >>> T. >>> -- >>> NEU: FreePhone - kostenlos mobil telefonieren und surfen! >>> Jetzt informieren: http://www.gmx.net/de/go/freephone >>> >>> >>> >> > > > -- > Felipe Ba?ados Schwerter > Estudiante de IngenierÃa Civil en ComputaciÃ³n > http://www.dcc.uchile.cl/~fbanados > Universidad de Chile >

Feb. 10, 2011

Re: [Pharo-project] drawString: aString from: firstIndex to: lastIndex at: aPoint font: fontOrNil color: c

by Igor Stasenko

On 10 February 2011 17:24, Schwab,Wilhelm K <bschwab(a)anest.ufl.edu> wrote: > I knew I had read that somewhere: thanks for the link. Â Still, the question of performance lurks. Â Passing all of those parameters and setting all of the colors/pens/etc. for EVERY operation might be inefficient. Â Just asking... > indeed. But sometimes you can't avoid doing that, especially if you don't know who used canvas and for what before you. > -- Best regards, Igor Stasenko AKA sig.

Feb. 10, 2011

Re: [Pharo-project] Fwd: Build failed in Hudson: Pharo 1.3 #16

by Igor Stasenko

On 10 February 2011 18:10, Dale Henrichs <dhenrich(a)vmware.com> wrote: > Marcus, > > Since there are truncated lines in the mail message, it isn't possible to > tell precisely what broke, but I did look at the console output: > > Â https://pharo-ic.lille.inria.fr/hudson/job/Pharo%201.3/16/console > > and according to the stack on the console it looks like the top of the stack > was: > > Â UndefinedObject(Object)>>doesNotUnderstand: #readStream > Â MCScanner class>>scanTokens: > Â MCMczReader>>parseMember: > > and this is the typical signature of a failed mcz download ... where the > file was created with little or no content ... > > If I recall correctly, there may be a corrupted file in the package-cache, > so the package-cache needs to be cleared before retrying ... > i wonder why MC don't throws something like 'DownloadFailedError' , and returning nil instead. > Dale > > > On 02/10/2011 08:17 AM, Marcus Denker wrote: >> >> We should really fix the 1.3 build.... >> >> Begin forwarded message: >> >>> From: hudson(a)pharo-ic.lille.inria.fr >>> Date: February 10, 2011 7:06:37 AM PST >>> To: marcus.denker(a)inria.fr, Pharo-project(a)lists.gforge.inria.fr >>> Subject: Build failed in Hudson: Pharo 1.3 #16 >>> >>> See<https://pharo-ic.lille.inria.fr/hudson/job/Pharo%201.3/16/> >>> >>> ------------------------------------------ >>> [...truncated 775 lines...] >>> Â MetacelloMCProjectSpec>>load >>> Â MetacelloProjectReferenceSpec>>loadUsing:gofer: >>> Â [:pkg | pkg loadUsing: self gofer: gofer] in >>> MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: >>> Â OrderedCollection>>do: >>> >>> Â MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: >>> Â [super linearLoadPackageSpecs: packageSpecs repositories: repositories] >>> in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: >>> Â BlockClosure>>ensure: >>> Â MetacelloLoaderPolicy>>pushLoadDirective:during: >>> Â MetacelloLoaderPolicy>>pushLinearLoadDirectivesDuring:for: >>> Â MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: >>> Â MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load >>> Â MetacelloMCVersionSpecLoader>>load >>> Â MetacelloMCVersion>>executeLoadFromArray: >>> Â [self versionSpec loader: newLoader. >>> Â Â Â ^ self executeLoadFromArray: anArray] in [[self versionSpec loader: >>> newLoader. >>> Â Â Â ^ self executeLoadFromArray: anArray] >>> Â Â Â Â Â Â Â ensure: [self versionSpec loader: originalLoader]] in >>> MetacelloMCVersion>>fetchRequiredFromArray: >>> Â BlockClosure>>ensure: >>> Â [[self versionSpec loader: newLoader. >>> Â Â Â ^ self executeLoadFromArray: anArray] >>> Â Â Â Â Â Â Â ensure: [self versionSpec loader: originalLoader]] in >>> MetacelloMCVersion>>fetchRequiredFromArray: >>> Â MetacelloPharoPlatform(MetacelloPlatform)>>do:displaying: >>> Â MetacelloPharoPlatform>>do:displaying: >>> Â MetacelloMCVersion>>fetchRequiredFromArray: >>> Â [| fetchLoader | >>> Â fetchLoader := self fetchRequiredFromArray: anArray. >>> Â Â Â MetacelloPlatform current >>> Â Â Â Â Â Â Â do: [fetchLoader doLoad] >>> Â Â Â Â Â Â Â displaying: 'Loading ' , displayString. >>> Â Â Â Transcript cr; show: '...finished ' , self versionNumber >>> printString. >>> Â Â Â ^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray: >>> Â BlockClosure>>ensure: >>> Â MetacelloMCVersion>>doLoadRequiredFromArray: >>> Â MetacelloMCVersion>>load >>> Â UndefinedObject>>DoIt >>> Â Compiler>>evaluate:in:to:notifying:ifFail:logged: >>> Â Compiler class>>evaluate:for:notifying:logged: >>> Â Compiler class>>evaluate:for:logged: >>> Â Compiler class>>evaluate:logged: >>> Â [| chunk | val := (self peekFor: $!) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [(Compiler evaluate: self nextChunk >>> logged: false) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â scanFrom: self] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [chunk := self nextChunk. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â self checkForPreamble: chunk. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Compiler evaluate: chunk logged: >>> true]] in [:bar | >>> Â [self atEnd] >>> Â Â Â Â Â Â Â whileFalse: [bar value: self position. >>> Â Â Â Â Â Â Â Â Â Â Â self skipSeparators. >>> Â Â Â Â Â Â Â Â Â Â Â [| chunk | val := (self peekFor: $!) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [(Compiler >>> evaluate: self nextChunk logged: false) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â scanFrom: >>> self] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [chunk := self >>> nextChunk. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â self >>> checkForPreamble: chunk. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Compiler evaluate: >>> chunk logged: true]] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â on: InMidstOfFileinNotification >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [:ex | ex resume: true]. >>> Â Â Â Â Â Â Â Â Â Â Â self skipStyleChunk]. >>> Â Â Â self close] in >>> RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: >>> Â BlockClosure>>on:do: >>> Â [:bar | >>> Â [self atEnd] >>> Â Â Â Â Â Â Â whileFalse: [bar value: self position. >>> Â Â Â Â Â Â Â Â Â Â Â self skipSeparators. >>> Â Â Â Â Â Â Â Â Â Â Â [| chunk | val := (self peekFor: $!) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [(Compiler >>> evaluate: self nextChunk logged: false) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â scanFrom: >>> self] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [chunk := self >>> nextChunk. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â self >>> checkForPreamble: chunk. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Compiler evaluate: >>> chunk logged: true]] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â on: InMidstOfFileinNotification >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [:ex | ex resume: true]. >>> Â Â Â Â Â Â Â Â Â Â Â self skipStyleChunk]. >>> Â Â Â self close] in >>> RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: >>> Â NonInteractiveUIManager>>progressInitiationExceptionDefaultAction: >>> Â ProgressInitiationException>>defaultAction >>> Â UndefinedObject>>handleSignal: >>> Â ProgressInitiationException(Exception)>>signal >>> Â ProgressInitiationException>>display:at:from:to:during: >>> Â ProgressInitiationException class>>display:at:from:to:during: >>> Â ByteString(String)>>displayProgressAt:from:to:during: >>> Â RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: >>> Â RWBinaryOrTextStream(PositionableStream)>>fileIn >>> Â CodeLoader>>installSourceFile: >>> Â [:req | self installSourceFile: req contentStream] in >>> CodeLoader>>installSourceFiles >>> Â Array(SequenceableCollection)>>do: >>> Â CodeLoader>>installSourceFiles >>> Â ProjectLauncher>>startUpAfterLogin >>> Â ProjectLauncher>>startUp >>> Â [launcher startUp] in [:launcher | ws >>> Â Â Â Â Â Â Â addDeferredUIMessage: [launcher startUp]] in AutoStart >>> class>>startUp: >>> Â WorldState>>runStepMethodsIn: >>> Â PasteUpMorph>>runStepMethods >>> Â WorldState>>doOneCycleNowFor: >>> Â WorldState>>doOneCycleFor: >>> Â PasteUpMorph>>doOneCycle >>> Â [[World doOneCycle. >>> Â Â Â Processor yield. >>> Â Â Â false] whileFalse. >>> Â Â Â nil] in Project class>>spawnNewProcess >>> Â [self value. >>> Â Â Â Processor terminateActive] in BlockClosure>>newProcess >>> Â ------------------------------------------------------------ >>> >>> Â Processes and their stacks: >>> Â Process: a Process in nil >>> Â Â stack: >>> >>> Â Array(SequenceableCollection)>>do: >>> Â [:logger | >>> Â logger nextPutAll: 'Processes and their stacks: '; >>> Â Â Â Â Â Â Â Â cr. >>> Â Â Â Process allInstances >>> Â Â Â Â Â Â Â do: [:each | >>> Â Â Â Â Â Â Â Â Â Â Â | ctx | >>> Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: 'Process: '; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â print: each; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â nextPutAll: ' Â stack:'; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr. >>> Â Â Â Â Â Â Â Â Â Â Â ctx := each isActiveProcess >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [thisContext >>> sender] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [each >>> suspendedContext]. >>> Â Â Â Â Â Â Â Â Â Â Â ctx >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifNotNil: [(ctx stackOfSize: 20) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [:s | logger print: s; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr]]. >>> Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: >>> '------------------------------'; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr]] in [Smalltalk logError: aString >>> inContext: aContext. >>> Â Â Â Smalltalk >>> Â Â Â Â Â Â Â logDuring: [:logger | >>> Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: 'Processes and their stacks: '; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr. >>> Â Â Â Â Â Â Â Â Â Â Â Process allInstances >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [:each | >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â | ctx | >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: 'Process: '; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â print: each; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â nextPutAll: ' Â stack:'; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ctx := each isActiveProcess >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: >>> [thisContext sender] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: >>> [each suspendedContext]. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ctx >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifNotNil: [(ctx >>> stackOfSize: 20) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [:s | >>> logger print: s; >>> >>> Â Â Â cr]]. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: >>> '------------------------------'; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr]]] in >>> NonInteractiveUIManager>>quitFrom:withMessage: >>> Â [logStream := self openLog. >>> Â Â Â aMonadicBlock value: logStream] in SmalltalkImage>>logDuring: >>> Â BlockClosure>>ensure: >>> Â SmalltalkImage>>logDuring: >>> Â [Smalltalk logError: aString inContext: aContext. >>> Â Â Â Smalltalk >>> Â Â Â Â Â Â Â logDuring: [:logger | >>> Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: 'Processes and their stacks: '; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr. >>> Â Â Â Â Â Â Â Â Â Â Â Process allInstances >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [:each | >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â | ctx | >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: 'Process: '; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â print: each; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â nextPutAll: ' Â stack:'; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ctx := each isActiveProcess >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: >>> [thisContext sender] >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: >>> [each suspendedContext]. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ctx >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifNotNil: [(ctx >>> stackOfSize: 20) >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [:s | >>> logger print: s; >>> >>> Â Â Â cr]]. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â logger nextPutAll: >>> '------------------------------'; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr; >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cr]]] in >>> NonInteractiveUIManager>>quitFrom:withMessage: >>> Â BlockClosure>>ensure: >>> Â NonInteractiveUIManager>>quitFrom:withMessage: >>> Â NonInteractiveUIManager>>unhandledErrorDefaultAction: >>> Â UnhandledError>>defaultAction >>> Â UndefinedObject>>handleSignal: >>> Â MethodContext(ContextPart)>>handleSignal: >>> Â MethodContext(ContextPart)>>handleSignal: >>> Â MethodContext(ContextPart)>>handleSignal: >>> Â UnhandledError(Exception)>>signal >>> Â UnhandledError class>>signalForException: >>> Â MessageNotUnderstood(Error)>>defaultAction >>> Â MessageNotUnderstood>>defaultAction >>> Â UndefinedObject>>handleSignal: >>> Â MethodContext(ContextPart)>>handleSignal: >>> Â ------------------------------ >>> >>> Â Process: a Process in Delay class>>handleTimerEvent >>> Â Â stack: >>> >>> Â Delay class>>handleTimerEvent >>> Â Delay class>>runTimerEventLoop >>> Â [self runTimerEventLoop] in Delay class>>startTimerEventLoop >>> Â [self value. >>> Â Â Â Processor terminateActive] in BlockClosure>>newProcess >>> Â ------------------------------ >>> >>> Â Process: a Process in SmalltalkImage>>lowSpaceWatcher >>> Â Â stack: >>> >>> Â SmalltalkImage>>lowSpaceWatcher >>> Â [self lowSpaceWatcher] in SmalltalkImage>>installLowSpaceWatcher >>> Â [self value. >>> Â Â Â Processor terminateActive] in BlockClosure>>newProcess >>> Â ------------------------------ >>> >>> Â Process: a Process in ProcessorScheduler class>>idleProcess >>> Â Â stack: >>> >>> Â ProcessorScheduler class>>idleProcess >>> Â [self idleProcess] in ProcessorScheduler class>>startUp >>> Â [self value. >>> Â Â Â Processor terminateActive] in BlockClosure>>newProcess >>> Â ------------------------------ >>> >>> Â Process: a Process in [delaySemaphore wait] in Delay>>wait >>> Â Â stack: >>> >>> Â [delaySemaphore wait] in Delay>>wait >>> Â BlockClosure>>ifCurtailed: >>> Â Delay>>wait >>> Â InputEventPollingFetcher>>waitForInput >>> Â InputEventPollingFetcher(InputEventFetcher)>>eventLoop >>> Â [self eventLoop] in >>> InputEventPollingFetcher(InputEventFetcher)>>installEventLoop >>> Â [self value. >>> Â Â Â Processor terminateActive] in BlockClosure>>newProcess >>> Â ------------------------------ >>> >>> Â Process: a Process in WeakArray class>>finalizationProcess >>> Â Â stack: >>> >>> Â WeakArray class>>finalizationProcess >>> Â [self finalizationProcess] in WeakArray >>> class>>restartFinalizationProcess >>> Â [self value. >>> Â Â Â Processor terminateActive] in BlockClosure>>newProcess >>> Â ------------------------------ >>> >>> Archiving artifacts >>> Enregistrement des rÃ©sultats des tests >>> >> >> -- >> Marcus Denker Â -- http://www.marcusdenker.de >> INRIA Lille -- Nord Europe. Team RMoD. >> >> > > > -- Best regards, Igor Stasenko AKA sig.

Feb. 10, 2011