- Pharo-dev - lists.pharo.org

Re: [Pharo-project] Artefact - a PDF framework

by Sean P. DeNigris

Stephan Eggermont wrote > > Don't you think it would be much less work > to port Christian Haider's work to Pharo? The namespace extensions to ring > should > be helpful to make two-way changes from both the VW and Pharo side. > I was thinking the same thing. The usual Smalltalk duplication of effort seems to have been taken to new heights with PDF libs ;-) I totally understand the enthusiasm, because I really want it to (although more viewing than generating)! I looked at doing the port at ESUG last year, but hit the namespace wall... Sean p.s. I was reading the Cairo website the other day and PDF is one of the "output targets". Could that be helpful here? -- View this message in context: http://forum.world.st/Artefact-a-PDF-framework-tp4585877p4603431.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

May 2, 2012

[Pharo-project] Fwd: [squeak-dev] The Trunk: Kernel-eem.684.mcz

by StÃ©phane Ducasse

Begin forwarded message: > From: pharo-project-owner(a)lists.gforge.inria.fr > Subject: Fwd: [squeak-dev] The Trunk: Kernel-eem.684.mcz > Date: April 30, 2012 6:48:24 PM GMT+02:00 > To: stephane.ducasse(a)gmail.com > > You are not allowed to post to this mailing list, and your message has > been automatically rejected. If you think that your messages are > being rejected in error, contact the mailing list owner at > pharo-project-owner(a)lists.gforge.inria.fr. > > > From: stephane ducasse <stephane.ducasse(a)gmail.com> > Subject: Fwd: [squeak-dev] The Trunk: Kernel-eem.684.mcz > Date: April 30, 2012 6:46:40 PM GMT+02:00 > To: Pharo Development <Pharo-project(a)lists.gforge.inria.fr> > > > > > Begin forwarded message: > >> From: commits(a)source.squeak.org >> Subject: [squeak-dev] The Trunk: Kernel-eem.684.mcz >> Date: April 26, 2012 6:07:56 PM GMT+02:00 >> To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org >> Reply-To: squeak-dev(a)lists.squeakfoundation.org >> >> Eliot Miranda uploaded a new version of Kernel to project The Trunk: >> http://source.squeak.org/trunk/Kernel-eem.684.mcz >> >> ==================== Summary ==================== >> >> Name: Kernel-eem.684 >> Author: eem >> Time: 26 April 2012, 11:07:37.737 am >> UUID: e838a325-27ec-4a62-a907-d4059451a046 >> Ancestors: Kernel-nice.683 >> >> Implement endPC numArgs and numTemps for closures >> and contexts (both block and method activations). >> Provide CompiledMethod>abstractBytecodeMessagesDo: >> et al. >> Implement BlockClosure>isClean to identify self-contained blocks. >> >> =============== Diff against Kernel-nice.683 =============== >> >> Item was added: >> + ----- Method: BlockClosure>>abstractBytecodeMessagesDo: (in category 'scanning') ----- >> + abstractBytecodeMessagesDo: aBlock >> + "Evaluate aBlock with the sequence of abstract bytecodes in the receiver." >> + self method >> + abstractBytecodeMessagesFrom: startpc >> + to: self endPC >> + do: aBlock >> + >> + "| msgs | >> + msgs := OrderedCollection new. >> + (SortedCollection sortBlock: [:a :b| a compare: b caseSensitive: false]) sortBlock >> + abstractBytecodeMessagesDo: [:msg| msgs add: msg selector]. >> + msgs"! >> >> Item was added: >> + ----- Method: BlockClosure>>blockCreationBytecodeMessage (in category 'scanning') ----- >> + blockCreationBytecodeMessage >> + "Answer the abstract bytecode message that created the receiver." >> + | blockCreationBytecodeSize | >> + ^self method abstractBytecodeMessageAt: startpc - (blockCreationBytecodeSize := 4) >> + >> + "(SortedCollection sortBlock: [:a :b| a compare: b caseSensitive: false]) sortBlock blockCreationBytecodeMessage"! >> >> Item was added: >> + ----- Method: BlockClosure>>endPC (in category 'accessing') ----- >> + endPC >> + ^self blockCreationBytecodeMessage arguments last + startpc - 1! >> >> Item was changed: >> ----- Method: BlockClosure>>hasMethodReturn (in category 'testing') ----- >> hasMethodReturn >> "Answer whether the receiver has a method-return ('^') in its code." >> + | scanner endpc | >> + scanner := InstructionStream new method: outerContext method pc: startpc. >> + endpc := self endPC. >> + scanner scanFor: [:byte | (byte between: 120 and: 124) or: [scanner pc > endpc]]. >> + ^scanner pc <= endpc! >> - | myMethod scanner preceedingBytecodeMessage end | >> - "Determine end of block from the instruction preceding it. >> - Find the instruction by using an MNU handler to capture >> - the instruction message sent by the scanner." >> - myMethod := outerContext method. >> - scanner := InstructionStream new method: myMethod pc: myMethod initialPC. >> - [scanner pc < startpc] whileTrue: >> - [[scanner interpretNextInstructionFor: nil] >> - on: MessageNotUnderstood >> - do: [:ex| preceedingBytecodeMessage := ex message]]. >> - end := preceedingBytecodeMessage arguments last + startpc - 1. >> - scanner method: myMethod pc: startpc. >> - scanner scanFor: [:byte | (byte between: 120 and: 124) or: [scanner pc > end]]. >> - ^scanner pc <= end! >> >> Item was added: >> + ----- Method: BlockClosure>>isClean (in category 'testing') ----- >> + isClean >> + "Answer if the receiver does not close-over any variables other than globals, and does >> + not ^-return (does not close over the home context). Clean blocks are amenable to >> + being created at compile-time." >> + self numCopiedValues > 0 ifTrue: >> + [^false]. >> + self abstractBytecodeMessagesDo: >> + [:msg| >> + (#( pushReceiver >> + pushReceiverVariable: popIntoReceiverVariable: storeIntoReceiverVariable: >> + methodReturnConstant: methodReturnReceiver methodReturnTop) >> + includes: msg selector) ifTrue: >> + [^false]]. >> + ^true >> + >> + "clean:" >> + "[] isClean" >> + "[:a :b| a < b] isClean" >> + "unclean" >> + "[^nil] isClean" >> + "[self class] isClean" >> + "| v | v := 0. >> + [v class] isClean"! >> >> Item was added: >> + ----- Method: BlockClosure>>numTemps (in category 'accessing') ----- >> + numTemps >> + "Answer the number of temporaries for the receiver; this includes >> + the number of arguments and the number of copied values." >> + | blockCreationBytecodeSize | >> + ^self numCopiedValues >> + + self numArgs >> + + (BlockLocalTempCounter >> + tempCountForBlockAt: startpc - (blockCreationBytecodeSize := 4) >> + in: self method)! >> >> Item was added: >> + ----- Method: CompiledMethod>>abstractBytecodeMessageAt: (in category 'scanning') ----- >> + abstractBytecodeMessageAt: pc >> + "Answer the abstract bytecode message at pc in the receiver." >> + ^[(InstructionStream new method: self pc: pc) interpretNextInstructionFor: nil] >> + on: MessageNotUnderstood >> + do: [:ex| ex message]! >> >> Item was added: >> + ----- Method: CompiledMethod>>abstractBytecodeMessagesDo: (in category 'scanning') ----- >> + abstractBytecodeMessagesDo: aBlock >> + "Evaluate aBlock with the sequence of abstract bytecodes in the receiver" >> + self abstractBytecodeMessagesFrom: self initialPC >> + to: self endPC >> + do: aBlock >> + >> + "| msgs | >> + msgs := OrderedCollection new. >> + CompiledMethod >> #abstractBytecodeMessagesFrom:to: abstractBytecodeMessagesDo: >> + [:msg| msgs add: msg selector]. >> + msgs"! >> >> Item was added: >> + ----- Method: CompiledMethod>>abstractBytecodeMessagesFrom:to:do: (in category 'scanning') ----- >> + abstractBytecodeMessagesFrom: startpc to: endpc do: aBlock >> + "Evaluate aBlock with the sequence of abstract bytecodes from startpc through endpc in the receiver" >> + | scanner | >> + scanner := InstructionStream new method: self pc: startpc. >> + [scanner pc <= endpc] whileTrue: >> + [[scanner interpretNextInstructionFor: nil] >> + on: MessageNotUnderstood >> + do: [:ex| aBlock value: ex message]] >> + >> + "| m msgs | >> + msgs := OrderedCollection new. >> + (m := CompiledMethod >> #abstractBytecodeMessagesFrom:to:) >> + abstractBytecodeMessagesFrom: m initialPC >> + to: m endPC >> + do: [:msg| msgs add: msg selector]. >> + msgs"! >> >> Item was added: >> + ----- Method: MethodContext>>endPC (in category 'private') ----- >> + endPC >> + ^closureOrNil >> + ifNil: [self method endPC] >> + ifNotNil: [closureOrNil endPC]! >> >> Item was added: >> + ----- Method: MethodContext>>numArgs (in category 'accessing') ----- >> + numArgs >> + "Answer the number of arguments for this activation." >> + ^closureOrNil >> + ifNil: [method numArgs] >> + ifNotNil: [closureOrNil numArgs]! >> >> Item was added: >> + ----- Method: MethodContext>>numTemps (in category 'accessing') ----- >> + numTemps >> + "Answer the number of temporaries for this activation; this includes >> + the number of arguments, and for blocks, the number of copied values." >> + ^closureOrNil >> + ifNil: [method numTemps] >> + ifNotNil: [closureOrNil numTemps]! >> >> > > > >

May 2, 2012

[Pharo-project] Fwd: [squeak-dev] The Trunk: Tests-eem.151.mcz

by StÃ©phane Ducasse

Begin forwarded message: > From: pharo-project-owner(a)lists.gforge.inria.fr > Subject: Fwd: [squeak-dev] The Trunk: Tests-eem.151.mcz > Date: April 30, 2012 6:48:05 PM GMT+02:00 > To: stephane.ducasse(a)gmail.com > > You are not allowed to post to this mailing list, and your message has > been automatically rejected. If you think that your messages are > being rejected in error, contact the mailing list owner at > pharo-project-owner(a)lists.gforge.inria.fr. > > > From: stephane ducasse <stephane.ducasse(a)gmail.com> > Subject: Fwd: [squeak-dev] The Trunk: Tests-eem.151.mcz > Date: April 30, 2012 12:42:55 PM GMT+02:00 > To: Pharo Development <Pharo-project(a)lists.gforge.inria.fr> > > > > > Begin forwarded message: > >> From: commits(a)source.squeak.org >> Subject: [squeak-dev] The Trunk: Tests-eem.151.mcz >> Date: April 26, 2012 7:02:28 PM GMT+02:00 >> To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org >> Reply-To: squeak-dev(a)lists.squeakfoundation.org >> >> Eliot Miranda uploaded a new version of Tests to project The Trunk: >> http://source.squeak.org/trunk/Tests-eem.151.mcz >> >> ==================== Summary ==================== >> >> Name: Tests-eem.151 >> Author: eem >> Time: 26 April 2012, 12:02:22.807 pm >> UUID: d1afe8a4-9721-4e74-a3f3-b2fc1057d51b >> Ancestors: Tests-ul.150 >> >> Add tests for BlockClosure>isClean >> >> =============== Diff against Tests-ul.150 =============== >> >> Item was added: >> + ----- Method: ClosureTests>>testIsClean (in category 'testing') ----- >> + testIsClean >> + | local | >> + local := #testIsClean. >> + >> + self assert: [] isClean. "closes over nothing at all" >> + self assert: [:a :b| a < b] isClean. "accesses only arguments" >> + self assert: [:a :b| | s | s := a + b. s even] isClean. "accesses only local variables" >> + >> + self deny: [^nil] isClean. "closes over home (^-return)" >> + self deny: [self] isClean. "closes over the receiver" >> + self deny: [collection] isClean. "closes over the receiver (to access the inst var collection)" >> + self deny: [local] isClean. "closes over local variable of outer context"! >> >> > > > >

May 2, 2012

Re: [Pharo-project] Artefact - a PDF framework

by Stephan Eggermont

Hi Olivier, I've taken a look at the state of Artefact. Don't you think it would be much less work to port Christian Haider's work to Pharo? The namespace extensions to ring should be helpful to make two-way changes from both the VW and Pharo side. Stephan Eggermont

May 2, 2012

[Pharo-project] Nautilus load problem

by Sean P. DeNigris

I'm glad I'm not the only one who can't spell Benjamin's last name ;-) NautilusCommon-BenjaminVanRyseghem.61 vs. NautilusCommon-BenjaminVanRysgehem.63 Sean -- View this message in context: http://forum.world.st/Nautilus-load-problem-tp4603363.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

May 2, 2012

Re: [Pharo-project] Multiple worlds

by Sean P. DeNigris

EstebanLM wrote > > I propose to just close the issue... having different words don't seems to > match with current pharo approach and future envisioned scenarios. > What does that mean? For one thing, anybody that's been using TWM (like me) has had multiple worlds already since 1.3. Also, the code is extremely minimal (and could even be reduced a little more if that's the issue). Finally, this is a powerful feature... think OS X Spaces... Sean -- View this message in context: http://forum.world.st/Multiple-worlds-tp4603200p4603357.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

May 2, 2012

Re: [Pharo-project] One month working for Pharo Consortium

by Sean P. DeNigris

EstebanLM wrote > > So, I'm working since one month for Pharo Consortium, and I want to talk a > bit about how is life here, in RMOD headquarters... > Thank you, Esteban! The pace of progress recently has been amazing :) We are blessed to have such a passionate, talented team; to which you are essential. - S -- View this message in context: http://forum.world.st/One-month-working-for-Pharo-Consortium-tp4602621p4603… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

May 2, 2012

[Pharo-project] Mouse handler on a morph

by Erwan Douaille

Hi. I would like to know if it's possible to add a mouse handler on a specific morph ? I have a window and i would like to know the position of my mouse only in this window. For exemple i also use : self on: #mouseDown send: #captureMouse: to: self. But it give me the mouse position in pharo environment and not only in my window. Thanks :) -- Douaille Erwan <douaille.erwan(a)gmail.com>

May 2, 2012

Re: [Pharo-project] #nsWriteStream

by Sean P. DeNigris

Damien Cassou wrote > looks like the code has changed to use #asSet I don't seem to be able to edit the comments, just the main part of the page... maybe I don't have the right permissions? -- View this message in context: http://forum.world.st/nsWriteStream-tp4590902p4603270.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

May 2, 2012

[Pharo-project] [update 2.0] #20040

by Marcus Denker

20040 ----- Issue 5739: move ivar from ExpandedSourceFileArray to SourceFileArray http://code.google.com/p/pharo/issues/detail?id=5739 -- Marcus Denker -- http://marcusdenker.de

May 2, 2012