Squeak-dev February 2011

squeak-dev@lists.squeakfoundation.org

87 participants
295 discussions

The Trunk: System-laza.420.mcz
by commits＠source.squeak.org 08 Feb '11

08 Feb '11

Alexander Lazarević uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-laza.420.mcz ==================== Summary ==================== Name: System-laza.420 Author: laza Time: 8 February 2011, 11:46:58.466 am UUID: e6f5183c-6a98-764c-b348-b52e9e9a69de Ancestors: System-ul.419 Add system attributes 1007 and 1008 for Cog VMs =============== Diff against System-ul.419 =============== Item was added: + ----- Method: SmalltalkImage>>cogitClass (in category 'vm') ----- + cogitClass + ^self getSystemAttribute: 1008! Item was changed: ----- Method: SmalltalkImage>>getSystemAttribute: (in category 'private') ----- getSystemAttribute: attributeID "Optional. Answer the string for the system attribute with the given integer ID. Answer nil if the given attribute is not defined on this platform. On platforms that support invoking programs from command lines (e.g., Unix), this mechanism can be used to pass command line arguments to programs written in Squeak. By convention, the first command line argument that is not a VM configuration option is considered a 'document' to be filed in. Such a document can add methods and classes, can contain a serialized object, can include code to be executed, or any combination of these. Currently defined attributes include: -1000 1000th command line argument that specify VM options ... -1 first command line argument that specify VM options 0 the full path name for currently executing VM (or, on some platforms, just the path name of the VM's directory) 1 full path name of this image (better use primImageName instead) 2 a Squeak document to open, if any 3 first command line argument for Squeak programs ... 1000 1000th command line argument for Squeak programs 1001 this platform's operating system 'Mac OS', 'Win32', 'unix', ... 1002 operating system version 1003 this platform's processor type 1004 vm version 1005 window system name 1006 vm build id + 1007 Interpreter class (Cog VM only) + 1008 Cogit class (Cog VM only) 1201 always returns 255 (Mac OS only) 1202 file last error (Mac OS only) 10001 hardware details (Win32 only) 10002 operating system details (Win32 only) 10003 graphics hardware details (Win32 only) " <primitive: 149> ^ nil! Item was added: + ----- Method: SmalltalkImage>>interpreterClass (in category 'vm') ----- + interpreterClass + ^self getSystemAttribute: 1007!

1 0

The Trunk: System-ul.419.mcz
by commits＠source.squeak.org 08 Feb '11

08 Feb '11

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.419.mcz ==================== Summary ==================== Name: System-ul.419 Author: ul Time: 8 February 2011, 3:36:03.896 am UUID: 0ca6c6be-d524-b444-9c5e-c16ef8059669 Ancestors: System-ul.418 - squeeze out a bit more speed from TextDiffBuilder =============== Diff against System-ul.418 =============== Item was changed: ----- Method: TextDiffBuilder>>findMatches (in category 'private') ----- findMatches "I find the matching pairs of xLines and yLines. First I filter out all lines that can't have a pair, then I find the longest common subsequence of the remaining elements. Finally I mark the matching pairs." + | temp lcs xFilteredLines yFilteredLines xNumbers yNumbers | + "Filter out all lines that can't have a pair." + temp := yLines asSet. - | lineSet lcs xFilteredLines yFilteredLines | - lineSet := yLines asSet. xFilteredLines := xLines select: [ :each | + temp includes: each ]. - lineSet includes: each ]. xFilteredLines size = 0 ifTrue: [ ^self ]. + temp := xLines asSet. - lineSet := xLines asSet. yFilteredLines := yLines select: [ :each | + temp includes: each ]. - (lineSet includes: each) ]. yFilteredLines size = 0 ifTrue: [ ^self ]. + "Map all lines to SmallIntegers, because they can be compared faster." + temp := Dictionary new. + xNumbers := xFilteredLines collect: [ :each | + temp at: each ifAbsentPut: [ temp size ] ]. + yNumbers := yFilteredLines collect: [ :each | + temp at: each ifAbsentPut: [ temp size ] ]. + temp := nil. + "Find the longest common subsequence." + lcs := self lcsFor: xNumbers and: yNumbers. + "Mark the matching pairs." - lcs := self - lcsFor: xFilteredLines - and: yFilteredLines. [ lcs == nil ] whileFalse: [ (xFilteredLines at: (lcs at: 1)) matches: (yFilteredLines at: (lcs at: 2)). lcs := lcs at: 3 ]! Item was changed: ----- Method: TextDiffBuilder>>lcsFor:and: (in category 'private') ----- lcsFor: xFilteredLines and: yFilteredLines - "I find one of the longest common subsequences of my the arguments. I assume that none of my arguments are empty. I return nil or an Array which represents a list. The first two elements are the matching line numbers, the last is the next node in the list or nil if there are no more elements. The list containts the longest common subsequence. I'm a modified version of the greedy lcs algorithm from the 6th page of 'An O(ND) Difference Algorithm and Its Variations (1986)' by Eugene W. Myers" | n m v lcss max | n := xFilteredLines size. m := yFilteredLines size. max := m + n. v := Array new: 2 * max + 1. v at: max + 2 put: 0. lcss := Array new: 2 * max + 1. 0 to: max do: [ :d | d negated to: d by: 2 do: [ :k | | index lcs x y | + index := max + k. + (k + d = 0 or: [ k ~= d and: [ (v at: index) < (v at: index + 2) ] ]) + ifTrue: [ x := v at: (index := index + 2) ] + ifFalse: [ x := (v at: index) + 1 ]. - (k + d = 0 or: [ k ~= d and: [ (v at: max + k ) < (v at: max + k + 2) ] ]) - ifTrue: [ - index := max + k + 2. - x := v at: index ] - ifFalse: [ - index := max + k. - x := (v at: index) + 1 ]. y := x - k. lcs := lcss at: index. [ x < n and: [ y < m and: [ (xFilteredLines at: x + 1) = (yFilteredLines at: y + 1) ] ] ] whileTrue: [ lcs := { x := x + 1. y := y + 1. lcs } ]. + (x >= n and: [ y >= m ]) ifTrue: [ ^lcs ]. - (x >= n and: [ y >= m ]) ifTrue: [ - ^lcs ]. v at: max + k + 1 put: x. lcss at: max + k + 1 put: lcs ] ]. self error!

1 0

Daily Commit Log
by commits＠source.squeak.org 08 Feb '11

08 Feb '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-February/004227.h… Name: System-ul.418 Ancestors: System-laza.417 Faster SmalltalkImage >> #cleanUpUndoCommands (~22x) resulting in ~5x faster SmalltalkImage >> #cleanUp. =============================================

1 0

Re: [squeak-dev] 4.2-10966 is now available
by Facundo Vozzi 07 Feb '11

07 Feb '11

Hi Ken, I'm using Squeak 4.2 10966 on Windows and I had installed OCompletion but don't load OmniBrowser yet. Originally the mouse right button bring the halo without alt key. Now I disabled swapMouseButtons and I get the menu with the right click again as you say but I can't bring the halos anymore. I'll play with the preferences, thanks you. FV On Mon, Feb 7, 2011 at 5:36 PM, Ken G. Brown <kbrown(a)mac.com> wrote: > Not sure if this is exactly what you mean, but in Squeak 4.2 10966 on Mac, > I disabled swapMouseButtons preference to get cmd-click to work for > bringing up halos, > I disabled scrolBarsWithoutMenuButton to get the little menu button above > the scrollBars in the Browser pane. > I also have menuButtonInToolPane preference enabled. Not sure of the > interaction of these two preferences. > > Then I loaded OCompletion from Help/Extending the system Workspace. > > Then I loaded OCForOB-rr.2.mcz from SqueakSource from < > http://www.squeaksource.com/OCompletion> otherwise the OmniBrowser load > from the Help/Extending the system Workspace fails because it cannot find > OCForOB-rr.2.mcz. > > Then I loaded OmniBrowser as per the Help/Extending the system Workspace > > Then I open a new browser, now called System Browser, select a Tests class > category, and I see the run tests in the menu from the menu button just > above the top class category scrollBar arrow, or alternately by > option-clicking in the class category pane. Seems to also show from the > class pane when a test class is selected there. > Ken > > > At 4:51 PM -0300 2/7/11, Facundo Vozzi apparently wrote: > >Hi, > >how did you get the contextual menu on, by example, a Test class to run it > from the class browser? Yes, it sound a stupid question but I was working on > Pharo and the rigth bottom get the contextual menu and not the halos. > > > >Thanks, > >FV > > > >On Mon, Feb 7, 2011 at 4:40 PM, Ken G. Brown <<mailto:kbrown@mac.com> > kbrown(a)mac.com> wrote: > > > >At 4:08 PM -0300 2/7/11, Ricardo Moran apparently wrote: > > > > >On Mon, Feb 7, 2011 at 4:03 PM, Ken G. Brown <<mailto:<mailto: > kbrown(a)mac.com>kbrown(a)mac.com><mailto:kbrown@mac.com>kbrown(a)mac.com> > wrote: > >> > >>At 1:01 PM -0700 2/5/11, Ken G. Brown apparently wrote: > >>>At 2:39 PM -0600 2/4/11, Chris Muller apparently wrote: > >>>>Ok, the final-final image is now ready. > >>>> > >>>>All-in-One also updated. > >>>> > >>>>Thanks for everyone's testing. Anything else we find can be applied > >>>>to squeak42 repository and then merged into trunk. I see no way this > >>>>would cause any continuity problems upgrading a 4.2 to a trunk. > >>>> > >>>> - Chris > >>> > >>>There used to be a feature where when you typed a double quote, it would > give you two and then what you typed next would go in between the two double > quotes. > >>>Also if you selected some text, then typed a double quote, two double > quotes would surround the selected text thereby commenting out the selected > text. > >>>I found this feature very handy once I got used to it. > >>> > >>>This no longer seems to work and I cannot find a Preference for the > feature. > >>>Does anyone know how to turn this back on? > >>> > >> > >> ><snip> > >>>Thx > >>>Ken > >> > >>Answering my own question in case it is helpful to someone else. > >> > >>The feature apparently comes from OCompletion which can be loaded from > the 'Extending the System' Workspace. > >> > >> > >>Thanks! I tried to find the same feature yesterday with no success. I > just forgot it came with OCompletion! :) > >> > > > >Yeah, ditto here! > >Once I understood the way it worked and got used to it, I found it really > handy and missed it when it wasn't there. > > > >Ken > > > >> > >> > >>Ken > > >

2 1

how to enable "" feature from OCompletion in a PluggableTextMorphPlus
by Ken G. Brown 07 Feb '11

07 Feb '11

Can anyone tell me how to enable the double quote "" when you type feature from OCompletion in a PluggableTextMorphPlus? OCompletion is loaded. My PluggableTextMorphPlus currently shows Shout code styling. Squeak 4.2 10966, Mac. Thx for any insight. Ken

1 0

Squeak 4.2-10966 OmniBrowser failure to load
by Ken G. Brown 07 Feb '11

07 Feb '11

Trying to load OmniBrowser from the Help/Extending the system Workspace fails because it cannot find OCForOB-rr.2.mcz This was discussed a fews days ago. <http://lists.squeakfoundation.org/pipermail/squeak-dev/2011-February/157209…> Ken

1 0

Re: [squeak-dev] 4.2-10966 is now available
by Facundo Vozzi 07 Feb '11

07 Feb '11

Hi, how did you get the contextual menu on, by example, a Test class to run it from the class browser? Yes, it sound a stupid question but I was working on Pharo and the rigth bottom get the contextual menu and not the halos. Thanks, FV On Mon, Feb 7, 2011 at 4:40 PM, Ken G. Brown <kbrown(a)mac.com> wrote: > At 4:08 PM -0300 2/7/11, Ricardo Moran apparently wrote: > >On Mon, Feb 7, 2011 at 4:03 PM, Ken G. Brown <<mailto:kbrown@mac.com> > kbrown(a)mac.com> wrote: > > > >At 1:01 PM -0700 2/5/11, Ken G. Brown apparently wrote: > >>At 2:39 PM -0600 2/4/11, Chris Muller apparently wrote: > >>>Ok, the final-final image is now ready. > >>> > >>>All-in-One also updated. > >>> > >>>Thanks for everyone's testing. Anything else we find can be applied > >>>to squeak42 repository and then merged into trunk. I see no way this > >>>would cause any continuity problems upgrading a 4.2 to a trunk. > >>> > >>> - Chris > >> > >>There used to be a feature where when you typed a double quote, it would > give you two and then what you typed next would go in between the two double > quotes. > >>Also if you selected some text, then typed a double quote, two double > quotes would surround the selected text thereby commenting out the selected > text. > >>I found this feature very handy once I got used to it. > >> > >>This no longer seems to work and I cannot find a Preference for the > feature. > >>Does anyone know how to turn this back on? > >> > > > > ><snip> > >>Thx > >>Ken > > > >Answering my own question in case it is helpful to someone else. > > > >The feature apparently comes from OCompletion which can be loaded from the > 'Extending the System' Workspace. > > > > > >Thanks! I tried to find the same feature yesterday with no success. I just > forgot it came with OCompletion! :) > > > > Yeah, ditto here! > Once I understood the way it worked and got used to it, I found it really > handy and missed it when it wasn't there. > > Ken > > > > > > >Ken > > >

2 1

Re: [Pharo-project] new Cog VMs available
by Eliot Miranda 07 Feb '11

07 Feb '11

On Mon, Feb 7, 2011 at 6:52 AM, Francois Stephany <tulipe.moutarde(a)gmail.com > wrote: > So StackToRegisterMappingCogit should be faster than the other ? If so, why > does the SimpleStackBasedCogit still exist ? > Juts in case people find bugs with the StackToRegisterMappingCogit that are not in SimpleStackBasedCogit. SimpleStackBasedCogit is "mature"; we've used it for almost two years at Teleplace, and while I've fixed serious bugs in it in the past month it is quite possibly less buggy than StackToRegisterMappingCogit. > (Sorry but I'm a total newbie) One can only learn by asking questions. Not knowing, one is not in a position to know whether a question is stupid or not, so one must not be afraid of asking stupid questions if one wants to learn. Please continue. best, Eliot > > > On 07/02/11 15:42, Igor Stasenko wrote: > >> On 7 February 2011 12:28, Krishsmalltalk >> <krishnamachari.sudhakar(a)gmail.com> wrote: >> >>> StackToRegisterMappingCogit maps values to machine registers when >>> generating >>> code, >>> while stack-based one uses stack for everything. >>> >>> Guess that is what is meant.. >>> Register based vms like Parrot will offer more info... As to motivation >>> for >>> this mapping >>> >>> >> a motivation is simple: speed. >> Access to CPU registers usually 2-5 orders of magnitude faster than >> memory access. >> >> >>> On Feb 7, 2011, at 2:53 PM, Igor Stasenko<siguctua(a)gmail.com> wrote: >>> >>> On 7 February 2011 09:12, Francois Stephany<tulipe.moutarde(a)gmail.com> >>> wrote: >>> >>> Hi Eliot, >>> >>> Probably a stupid question but what's the difference between >>> >>> SimpleStackBasedCogit and c? >>> >>> SimpleStackBasedCogit maps values to machine registers when generating >>> code, >>> while stack-based one uses stack for everything. >>> >>> new Cog VMs are available, SimpleStackBasedCogit @ >>> >>> http://www.mirandabanda.org/files/Cog/VM/VM.r2359/ and >>> >>> StackToRegisterMappingCogit @ >>> >>> http://www.mirandabanda.org/files/Cog/VM/VM.r2361. I think the new code >>> >>> generator is ready for prime time now. I fixed a number of bugs over >>> >>> the past three weeks and we're now using the StackToRegisterMappingCogit >>> >>> internally at Teleplace. >>> >>> >>> >>> >>> >>> >>> -- >>> Best regards, >>> Igor Stasenko AKA sig. >>> >>> >>> >> >> >> > > -- > francois.stephany(a)agilitic.com > http://www.agilitic.com > +32 (0)484/580.322 > > >

2 1

The Inbox: Collections-ul.423.mcz
by commits＠source.squeak.org 07 Feb '11

07 Feb '11

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ul.423.mcz ==================== Summary ==================== Name: Collections-ul.423 Author: ul Time: 7 February 2011, 8:55:57.134 pm UUID: e18716fc-a36b-874c-8946-5c21b447a96f Ancestors: Collections-ul.422 - use the primitive for FloatArray >> #dot: (~50x faster). =============== Diff against Collections-ul.422 =============== Item was changed: ----- Method: FloatArray>>dot: (in category 'arithmetic') ----- dot: aFloatVector "Primitive. Return the dot product of the receiver and the argument. Fail if the argument is not of the same size as the receiver." + | result | + <primitive: 'primitiveDotProduct' module: 'FloatArrayPlugin'> - "<primitive:'primitiveFloatArrayDotProduct'>" self size = aFloatVector size ifFalse:[^self error:'Must be equal size']. result := 0.0. 1 to: self size do:[:i| result := result + ((self at: i) * (aFloatVector at: i)). ]. ^result!

1 0

The Trunk: System-ul.418.mcz
by commits＠source.squeak.org 07 Feb '11

07 Feb '11

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.418.mcz ==================== Summary ==================== Name: System-ul.418 Author: ul Time: 7 February 2011, 8:51:38.4 pm UUID: 60f051e7-f128-6742-97c5-eb010657b574 Ancestors: System-laza.417 Faster SmalltalkImage >> #cleanUpUndoCommands (~22x) resulting in ~5x faster SmalltalkImage >> #cleanUp. =============== Diff against System-laza.417 =============== Item was changed: ----- Method: SmalltalkImage>>cleanUpUndoCommands (in category 'shrinking') ----- cleanUpUndoCommands "Smalltalk cleanUpUndoCommands" "<== print this to get classes involved" + | classes keysToBeRemoved | - | classes | classes := Bag new. + keysToBeRemoved := OrderedCollection new. + SystemNavigation default allObjectsDo: [ :object | + object isMorph ifTrue: [ + object otherProperties ifNotNil: [ :properties | + properties keysAndValuesDo: [ :key :value | + value class == Command ifTrue: [ + keysToBeRemoved add: key ] ]. + keysToBeRemoved ifNotEmpty: [ + classes add: object className withOccurrences: keysToBeRemoved size. + keysToBeRemoved do: [ :each | + object removeProperty: each ]. + keysToBeRemoved reset ] ] ] ]. + ^classes! - 'Ferreting out obsolete undo commands' - displayProgressAt: Sensor cursorPoint - from: 0 to: Morph withAllSubclasses size - during: - [:bar | | i | i := 0. - Morph withAllSubclassesDo: - [:c | bar value: (i := i+1). - c allInstancesDo: - [:m | | p | (p := m otherProperties) ifNotNil: - [p keys do: - [:k | (p at: k) class == Command ifTrue: - [classes add: c name. - m removeProperty: k]]]]]]. - ^ classes!

1 0

← Newer
1
...
20
21
22
23
24
25
26
...
30
Older →

Jump to page: