Squeak-dev March 2010

squeak-dev@lists.squeakfoundation.org

158 participants
767 discussions

Re: [squeak-dev] The Inbox: Morphic-djr.406.mcz
by Danie Roux 01 Apr '10

01 Apr '10

> Implement some methods to make Lukas' OmniBrowser tests pass. This commit makes me feel dirty :-) Without this, 50+ tests fail in the latest from http://source.lukas-renggli.ch/ob With this (and some other, real fixes), all of them pass. Any suggestions how best to approach this? -- Danie Roux *shuffle* Adore Unix - http://danieroux.com

3 2

Re: The Inbox: System-djr.305.mcz
by Andreas Raab 01 Apr '10

01 Apr '10

On 3/31/2010 1:46 PM, commits(a)source.squeak.org wrote: > ==================== Summary ==================== > > Name: System-djr.305 > Author: djr > Time: 31 March 2010, 2:54:59.346 pm > UUID: 1bfe21fc-f91f-4769-b467-52cc2af8069a > Ancestors: System-ar.304 > > Move (and delegate) Smalltalk>>hasSpecialSelector:ifTrueSetByte: and friends to SystemDictionary. > > The Refactoring Browser' tests expects it there and it makes more sense to me. Sorry, but that's a no-go. Special selectors and special objects are a system-wide facility not associated with an individual namespace like Smalltalk globals. If the RefactoringBrowser looks for these facilities in a namespace then it is broken and should be fixed. If a compatibility layer is needed then it should delegate the other way around, i.e., from SystemDictionary to SmalltalkImage. Feel free to add these methods in the 311Deprecated package with a comment noting that RB relies on those. Cheers, - Andreas

3 2

Daily Commit Log
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-March/003182.html Name: Morphic-ul.406 Ancestors: Morphic-ar.405, Morphic-klub.405 Merged klub.405: - fix the missing keyboard shortcut for the search bar. Ctrl+<n> activates the search bar where n is an integer between 0 and 9 if there is no menu assigned to that number. The intended usage is Ctrl-0, but some keyboard layouts don't have a key for 0 without modifier keys. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-March/003183.html Name: System-ul.306 Ancestors: System-nice.305, System-klub.304 Merged klub.304: - added Docking Bar shortcuts to Keyboard Shortcuts help ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-March/003184.html Name: Monticello-nice.386 Ancestors: Monticello-ar.385 Fix http://bugs.squeak.org/view.php?id=7487 1) The package-cache did store as nil 2) The file was not closed =============================================

1 0

The Inbox: Tools-fbs.221.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.221.mcz ==================== Summary ==================== Name: Tools-fbs.221 Author: fbs Time: 31 March 2010, 10:50:58.687 pm UUID: da949c92-70b6-e447-8327-524502fe452c Ancestors: Tools-fbs.220 Bug from ancestor: selectorListIndex can be nil, if the selectorList is empty. =============== Diff against Tools-fbs.220 =============== Item was changed: ----- Method: MessageNames>>selectedClassOrMetaClass (in category 'class list') ----- selectedClassOrMetaClass "Answer the currently selected class (or metaclass)." messageListIndex > 0 ifTrue: [ ^ self setClassAndSelectorIn: [:c :s | ^c]]. + (selectorListIndex isNil not and: [selectorListIndex > 0]) ifTrue: [^Smalltalk classNamed: (self selectorList at: selectorListIndex)]. - selectorListIndex > 0 ifTrue: [^Smalltalk classNamed: (self selectorList at: selectorListIndex)]. ^ nil. !

1 0

The Inbox: Tools-fbs.220.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.220.mcz ==================== Summary ==================== Name: Tools-fbs.220 Author: fbs Time: 31 March 2010, 10:42:28.8 pm UUID: 0eca72cb-a1d4-4849-9da6-15d4b31ab9a4 Ancestors: Tools-fbs.219, Tools-nice.219 Allows the Browse button to work on class names that appear in the left-hand pane of a MessageNames browser. =============== Diff against Tools-nice.219 =============== Item was changed: ----- Method: MessageNames>>selection (in category 'selection') ----- selection "Answer the item in the list that is currently selected, or nil if no selection is present" + ^ messageListIndex = 0 + ifTrue: [self selectorList at: selectorListIndex ifAbsent: [nil]] + ifFalse: [self messageList at: messageListIndex ifAbsent: [nil]].! - ^ self messageList at: messageListIndex ifAbsent: [nil]! Item was added: + ----- Method: MessageNames>>selectedClassOrMetaClass (in category 'class list') ----- + selectedClassOrMetaClass + "Answer the currently selected class (or metaclass)." + messageListIndex > 0 ifTrue: [ + ^ self setClassAndSelectorIn: [:c :s | ^c]]. + selectorListIndex > 0 ifTrue: [^Smalltalk classNamed: (self selectorList at: selectorListIndex)]. + + ^ nil. + !

1 0

The Trunk: Monticello-nice.386.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.386.mcz ==================== Summary ==================== Name: Monticello-nice.386 Author: nice Time: 31 March 2010, 10:34:46.052 pm UUID: 3a966ee1-b9a3-45e0-b477-abe033aa6f18 Ancestors: Monticello-ar.385 Fix http://bugs.squeak.org/view.php?id=7487 1) The package-cache did store as nil 2) The file was not closed =============== Diff against Monticello-ar.385 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>saveRepositories (in category 'actions') ----- saveRepositories + FileStream forceNewFileNamed: 'MCRepositories.st' do: [:f | + MCRepositoryGroup default repositoriesDo: [:r | + r asCreationTemplate ifNotNil: [:template | + f nextPutAll: 'MCRepositoryGroup default addRepository: (', template , ')!!'; cr]]]! - | f | - f := FileStream forceNewFileNamed: 'MCRepositories.st'. - MCRepositoryGroup default repositoriesDo: [:r | - f nextPutAll: 'MCRepositoryGroup default addRepository: (', r asCreationTemplate, ')!!'; cr.]!

1 0

!| || and !|! as binary methods?
by Ralph Boland 31 Mar '10

31 Mar '10

Today I tried to define !| || and !|! as binary methods. They all fail because the parser interprets the '|' character (the second '|' character in the case of ||) as the beginning of the declaration of local variables. Is this a parsing error or the way Squeak is intended to be defined? Now you might think !| and !|! are pretty weird (which doesn't invalidate my question) but I think || is pretty natural as a binary method! Regards, Ralph Boland -- Had a wife and kids in Florida, Jack (Nicklaus) Went out for a "ride" but I couldn't get back As a ten timer being hunted down OR When the wife found out who I was knowing (biblically speaking) I hit a hydrant and I just kept going (till I hit a tree). ...

1 0

Squeak.dll
by Ang BeePeng 31 Mar '10

31 Mar '10

Hi all. I compile SqueakVm as a DLL with some changes. Basically, Squeak.dll will take a string from main.exe, execute, and return to main.exe. Details are at http://askoh.com/mwiki/index.php?title=SqueakDLL Short video http://askoh.com/squeakdll/video/20100401/ Please advice. Thanks. Ang Beepeng -- View this message in context: http://n4.nabble.com/Squeak-dll-tp1747074p1747074.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

Experiences with Squeak and Gemstone?
by Friedrich Dominicus 31 Mar '10

31 Mar '10

Just wondering if and where one can find stories about this combination. Regards Friedrich -- Q-Software Solutions GmbH; Sitz: Bruchsal; Registergericht: Mannheim Registriernummer: HRB232138; Geschaeftsfuehrer: Friedrich Dominicus

2 1

The Inbox: System-djr.305.mcz
by commits＠source.squeak.org 31 Mar '10

31 Mar '10

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-djr.305.mcz ==================== Summary ==================== Name: System-djr.305 Author: djr Time: 31 March 2010, 2:54:59.346 pm UUID: 1bfe21fc-f91f-4769-b467-52cc2af8069a Ancestors: System-ar.304 Move (and delegate) Smalltalk>>hasSpecialSelector:ifTrueSetByte: and friends to SystemDictionary. The Refactoring Browser' tests expects it there and it makes more sense to me. =============== Diff against System-ar.304 =============== Item was changed: ----- Method: SmalltalkImage>>specialSelectorSize (in category 'special objects') ----- specialSelectorSize + ^ globals specialSelectorSize! - "Answer the number of special selectors in the system." - - ^ (self specialObjectsArray at: 24) size // 2! Item was changed: ----- Method: SmalltalkImage>>specialNargsAt: (in category 'special objects') ----- specialNargsAt: anInteger + ^ globals specialNargsAt: anInteger ! - "Answer the number of arguments for the special selector at: anInteger." - - ^ (self specialObjectsArray at: 24) at: anInteger * 2! Item was added: + ----- Method: SystemDictionary>>specialSelectorAt: (in category 'special objects') ----- + specialSelectorAt: anInteger + "Answer the special message selector from the interleaved specialSelectors array." + + ^ (self specialObjectsArray at: 24) at: anInteger * 2 - 1! Item was added: + ----- Method: SystemDictionary>>recreateSpecialObjectsArray (in category 'special objects') ----- + recreateSpecialObjectsArray + "Smalltalk recreateSpecialObjectsArray" + "The Special Objects Array is an array of object pointers used + by the + Squeak virtual machine. Its contents are critical and + unchecked, so don't even think of playing here unless you + know what you are doing." + | newArray | + newArray := Array new: 50. + "Nil false and true get used throughout the interpreter" + newArray at: 1 put: nil. + newArray at: 2 put: false. + newArray at: 3 put: true. + "This association holds the active process (a ProcessScheduler)" + newArray at: 4 put: (self associationAt: #Processor). + "Numerous classes below used for type checking and instantiation" + newArray at: 5 put: Bitmap. + newArray at: 6 put: SmallInteger. + newArray at: 7 put: ByteString. + newArray at: 8 put: Array. + newArray at: 9 put: Smalltalk. + newArray at: 10 put: Float. + newArray at: 11 put: MethodContext. + newArray at: 12 put: BlockContext. + newArray at: 13 put: Point. + newArray at: 14 put: LargePositiveInteger. + newArray at: 15 put: Display. + newArray at: 16 put: Message. + newArray at: 17 put: CompiledMethod. + newArray at: 18 put: (self specialObjectsArray at: 18). + "(low space Semaphore)" + newArray at: 19 put: Semaphore. + newArray at: 20 put: Character. + newArray at: 21 put: #doesNotUnderstand:. + newArray at: 22 put: #cannotReturn:. + newArray at: 23 put: nil. + "An array of the 32 selectors that are compiled as special bytecodes, + paired alternately with the number of arguments each takes." + newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 + #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 + #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 + #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). + "An array of the 255 Characters in ascii order." + newArray at: 25 put: ((0 to: 255) collect: [:ascii | Character value: ascii]). + newArray at: 26 put: #mustBeBoolean. + newArray at: 27 put: ByteArray. + newArray at: 28 put: Process. + "An array of up to 31 classes whose instances will have compact headers" + newArray at: 29 put: self compactClassesArray. + newArray at: 30 put: (self specialObjectsArray at: 30). + "(delay Semaphore)" + newArray at: 31 put: (self specialObjectsArray at: 31). + "(user interrupt Semaphore)" + "Prototype instances that can be copied for fast initialization" + newArray at: 32 put: (Float new: 2). + newArray at: 33 put: (LargePositiveInteger new: 4). + newArray at: 34 put: Point new. + newArray at: 35 put: #cannotInterpret:. + "Note: This must be fixed once we start using context prototypes (yeah, right)" + "(MethodContext new: CompiledMethod fullFrameSize)." + newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" + newArray at: 37 put: BlockClosure. + "(BlockContext new: CompiledMethod fullFrameSize)." + newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" + newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" + "array of objects referred to by external code" + newArray at: 40 put: PseudoContext. + newArray at: 41 put: TranslatedMethod. + "finalization Semaphore" + newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). + newArray at: 43 put: LargeNegativeInteger. + "External objects for callout. + Note: Written so that one can actually completely remove the FFI." + newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). + newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). + newArray at: 46 put: (self at: #ExternalData ifAbsent: []). + newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). + newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). + newArray at: 49 put: #aboutToReturn:through:. + newArray at: 50 put: #run:with:in:. + "Now replace the interpreter's reference in one atomic operation" + self specialObjectsArray become: newArray! Item was changed: ----- Method: SmalltalkImage>>specialSelectorAt: (in category 'special objects') ----- specialSelectorAt: anInteger + ^ globals specialSelectorAt: anInteger! - "Answer the special message selector from the interleaved specialSelectors array." - - ^ (self specialObjectsArray at: 24) at: anInteger * 2 - 1! Item was added: + ----- Method: SystemDictionary>>specialObjectsArray (in category 'special objects') ----- + specialObjectsArray "Smalltalk specialObjectsArray at: 1" + <primitive: 129> + ^ self primitiveFailed! Item was added: + ----- Method: SystemDictionary>>hasSpecialSelector:ifTrueSetByte: (in category 'special objects') ----- + hasSpecialSelector: aLiteral ifTrueSetByte: aBlock + 1 to: self specialSelectorSize do: [ :index | + (self specialSelectorAt: index) == aLiteral + ifTrue: [ + aBlock value: index + 16rAF. + ^ true ] ]. + ^ false! Item was added: + ----- Method: SystemDictionary>>specialSelectorSize (in category 'special objects') ----- + specialSelectorSize + "Answer the number of special selectors in the system." + + ^ (self specialObjectsArray at: 24) size // 2! Item was added: + ----- Method: SystemDictionary>>specialNargsAt: (in category 'special objects') ----- + specialNargsAt: anInteger + "Answer the number of arguments for the special selector at: anInteger." + + ^ (self specialObjectsArray at: 24) at: anInteger * 2! Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray + globals recreateSpecialObjectsArray! - "Smalltalk recreateSpecialObjectsArray" - "The Special Objects Array is an array of object pointers used - by the - Squeak virtual machine. Its contents are critical and - unchecked, so don't even think of playing here unless you - know what you are doing." - | newArray | - newArray := Array new: 50. - "Nil false and true get used throughout the interpreter" - newArray at: 1 put: nil. - newArray at: 2 put: false. - newArray at: 3 put: true. - "This association holds the active process (a ProcessScheduler)" - newArray at: 4 put: (self associationAt: #Processor). - "Numerous classes below used for type checking and instantiation" - newArray at: 5 put: Bitmap. - newArray at: 6 put: SmallInteger. - newArray at: 7 put: ByteString. - newArray at: 8 put: Array. - newArray at: 9 put: Smalltalk. - newArray at: 10 put: Float. - newArray at: 11 put: MethodContext. - newArray at: 12 put: BlockContext. - newArray at: 13 put: Point. - newArray at: 14 put: LargePositiveInteger. - newArray at: 15 put: Display. - newArray at: 16 put: Message. - newArray at: 17 put: CompiledMethod. - newArray at: 18 put: (self specialObjectsArray at: 18). - "(low space Semaphore)" - newArray at: 19 put: Semaphore. - newArray at: 20 put: Character. - newArray at: 21 put: #doesNotUnderstand:. - newArray at: 22 put: #cannotReturn:. - newArray at: 23 put: nil. - "An array of the 32 selectors that are compiled as special bytecodes, - paired alternately with the number of arguments each takes." - newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 - #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 - #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 - #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). - "An array of the 255 Characters in ascii order." - newArray at: 25 put: ((0 to: 255) collect: [:ascii | Character value: ascii]). - newArray at: 26 put: #mustBeBoolean. - newArray at: 27 put: ByteArray. - newArray at: 28 put: Process. - "An array of up to 31 classes whose instances will have compact headers" - newArray at: 29 put: self compactClassesArray. - newArray at: 30 put: (self specialObjectsArray at: 30). - "(delay Semaphore)" - newArray at: 31 put: (self specialObjectsArray at: 31). - "(user interrupt Semaphore)" - "Prototype instances that can be copied for fast initialization" - newArray at: 32 put: (Float new: 2). - newArray at: 33 put: (LargePositiveInteger new: 4). - newArray at: 34 put: Point new. - newArray at: 35 put: #cannotInterpret:. - "Note: This must be fixed once we start using context prototypes (yeah, right)" - "(MethodContext new: CompiledMethod fullFrameSize)." - newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" - newArray at: 37 put: BlockClosure. - "(BlockContext new: CompiledMethod fullFrameSize)." - newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" - newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" - "array of objects referred to by external code" - newArray at: 40 put: PseudoContext. - newArray at: 41 put: TranslatedMethod. - "finalization Semaphore" - newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). - newArray at: 43 put: LargeNegativeInteger. - "External objects for callout. - Note: Written so that one can actually completely remove the FFI." - newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). - newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). - newArray at: 46 put: (self at: #ExternalData ifAbsent: []). - newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). - newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). - newArray at: 49 put: #aboutToReturn:through:. - newArray at: 50 put: #run:with:in:. - "Now replace the interpreter's reference in one atomic operation" - self specialObjectsArray become: newArray! Item was changed: ----- Method: SmalltalkImage>>specialObjectsArray (in category 'special objects') ----- + specialObjectsArray + ^ globals specialObjectsArray! - specialObjectsArray "Smalltalk specialObjectsArray at: 1" - <primitive: 129> - ^ self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>hasSpecialSelector:ifTrueSetByte: (in category 'special objects') ----- hasSpecialSelector: aLiteral ifTrueSetByte: aBlock + ^ globals hasSpecialSelector: aLiteral ifTrueSetByte: aBlock! - - 1 to: self specialSelectorSize do: - [:index | - (self specialSelectorAt: index) == aLiteral - ifTrue: [aBlock value: index + 16rAF. ^true]]. - ^false!

1 0

Jump to page: