Packages March 2011

packages@lists.squeakfoundation.org

1 participants
447 discussions

The Trunk: Protocols-nice.35.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-nice.35.mcz ==================== Summary ==================== Name: Protocols-nice.35 Author: nice Time: 31 March 2011, 10:04:18.43 pm UUID: 0ca34eb6-41e5-422c-8172-164511ce8a52 Ancestors: Protocols-ul.34 Remove FakeClassPool reference because I don't like it. =============== Diff against Protocols-ul.34 =============== Item was changed: ----- Method: Lexicon>>doItReceiver (in category 'model glue') ----- doItReceiver "This class's classPool has been jimmied to be the classPool of the class being browsed. A doIt in the code pane will let the user see the value of the class variables. Here, if the receiver is affiliated with a specific instance, we give give that primacy" + ^ self targetObject ifNil: [self selectedClass]! - ^ self targetObject ifNil: [self selectedClass ifNil: [FakeClassPool new]]!

1 0

The Trunk: Protocols-nice.35.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

1 0

The Trunk: Protocols-nice.35.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

1 0

The Trunk: Compiler-nice.201.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.201.mcz ==================== Summary ==================== Name: Compiler-nice.201 Author: nice Time: 31 March 2011, 12:45:32.697 am UUID: d694a5f8-4d75-2f4d-a06d-4c5de7fe1656 Ancestors: Compiler-nice.200 Put optimized selectors in CompiledMethod literals so that senders can be browsed normally. Take care to not overflow the scarse literal ressource. It is necessary to evaluate (Compiler recompileAll) before succesfully browsing senders of #ifNil: Thanks to Marcus at http://code.google.com/p/pharo/issues/detail?id=2559 for the idea. =============== Diff against Compiler-nice.200 =============== Item was changed: ParseNode subclass: #Encoder + instanceVariableNames: 'scopeTable nTemps supered requestor class selector literalStream selectorSet litIndSet litSet sourceRanges globalSourceRanges addedSelectorAndMethodClassLiterals optimizedSelectors' - instanceVariableNames: 'scopeTable nTemps supered requestor class selector literalStream selectorSet litIndSet litSet sourceRanges globalSourceRanges addedSelectorAndMethodClassLiterals' classVariableNames: '' poolDictionaries: '' category: 'Compiler-Kernel'! !Encoder commentStamp: '<historical>' prior: 0! I encode names and literals into tree nodes with byte codes for the compiler. Byte codes for literals are not assigned until the tree-sizing pass of the compiler, because only then is it known which literals are actually needed. I also keep track of sourceCode ranges during parsing and code generation so I can provide an inverse map for the debugger.! Item was changed: ----- Method: Encoder>>allLiterals (in category 'results') ----- allLiterals + addedSelectorAndMethodClassLiterals ifFalse: - ((literalStream isKindOf: WriteStream) - and: [ (addedSelectorAndMethodClassLiterals ifNil: [ false ]) not]) ifTrue: [addedSelectorAndMethodClassLiterals := true. + "Put the optimized selectors in literals so as to browse senders more easily" + optimizedSelectors := optimizedSelectors reject: [:e| literalStream originalContents hasLiteral: e]. + optimizedSelectors isEmpty ifFalse: [ + "Use one entry per literal if enough room, else make anArray" + literalStream position + optimizedSelectors size + 2 > 255 + ifTrue: [self litIndex: optimizedSelectors asArray] + ifFalse: [optimizedSelectors do: [:e | self litIndex: e]]]. + "Add a slot for selector or MethodProperties" + self litIndex: nil. + self litIndex: self associationForClass]. + ^literalStream contents! - self litIndex: nil. - self litIndex: self associationForClass]. - ^literalStream contents - - "The funky ifNil: [false], even though the init method initializes addedSAMCL, - is simply so that Monticello can load and compile this update without - killing the encoder that is compiling that update itself..."! Item was changed: ----- Method: Encoder>>initScopeAndLiteralTables (in category 'initialize-release') ----- initScopeAndLiteralTables scopeTable := StdVariables copy. litSet := StdLiterals copy. "comments can be left hanging on nodes from previous compilations. probably better than this hack fix is to create the nodes afresh on each compilation." scopeTable do: [:varNode| varNode comment: nil]. litSet do: [:varNode| varNode comment: nil]. selectorSet := StdSelectors copy. litIndSet := Dictionary new: 16. literalStream := WriteStream on: (Array new: 32). + addedSelectorAndMethodClassLiterals := false. + optimizedSelectors := Set new! - addedSelectorAndMethodClassLiterals := false! Item was removed: - ----- Method: Encoder>>nTemps:literals:class: (in category 'initialize-release') ----- - nTemps: n literals: lits class: cl - "Decompile." - - supered := false. - class := cl. - nTemps := n. - literalStream := ReadStream on: lits. - literalStream position: lits size. - sourceRanges := Dictionary new: 32. - globalSourceRanges := OrderedCollection new: 32. - ! Item was added: + ----- Method: Encoder>>noteOptimizedSelector: (in category 'encoding') ----- + noteOptimizedSelector: aSymbol + "Register a selector as being optimized. + These optimized selectors will later be registered into the literals so that tools can easily browse senders." + optimizedSelectors add: aSymbol! Item was changed: ----- Method: MessageNode>>sizeCodeForEffect: (in category 'code generation') ----- sizeCodeForEffect: encoder special > 0 + ifTrue: + [encoder noteOptimizedSelector: originalSelector. + ^self perform: (MacroSizers at: special) with: encoder with: false]. - ifTrue: [^self perform: (MacroSizers at: special) with: encoder with: false]. ^super sizeCodeForEffect: encoder! Item was changed: ----- Method: MessageNode>>sizeCodeForValue: (in category 'code generation') ----- sizeCodeForValue: encoder | total | special > 0 + ifTrue: + [encoder noteOptimizedSelector: originalSelector. + ^self perform: (MacroSizers at: special) with: encoder with: true]. - ifTrue: [^self perform: (MacroSizers at: special) with: encoder with: true]. receiver == NodeSuper ifTrue: [selector := selector copy "only necess for splOops"]. total := selector sizeCode: encoder args: arguments size super: receiver == NodeSuper. receiver == nil ifFalse: [total := total + (receiver sizeCodeForValue: encoder)]. sizes := arguments collect: [:arg | | argSize | argSize := arg sizeCodeForValue: encoder. total := total + argSize. argSize]. ^total!

1 0

The Trunk: Compiler-nice.201.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

1 0

The Trunk: Compiler-nice.201.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

1 0

The Trunk: Tools-nice.303.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.303.mcz ==================== Summary ==================== Name: Tools-nice.303 Author: nice Time: 30 March 2011, 10:57:43.746 pm UUID: d9673fd5-327b-ae4c-ab27-25f055a80463 Ancestors: Tools-nice.302 minor ifNil refactoring (Cuis) =============== Diff against Tools-nice.302 =============== Item was changed: ----- Method: Browser>>toggleBreakOnEntry (in category 'breakpoints') ----- toggleBreakOnEntry "Install or uninstall a halt-on-entry breakpoint" | selectedMethod | + self selectedClassOrMetaClass ifNil: [ ^self]. - self selectedClassOrMetaClass isNil ifTrue:[^self]. selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. selectedMethod hasBreakpoint ifTrue: [BreakpointManager unInstall: selectedMethod] ifFalse: [BreakpointManager installInClass: self selectedClassOrMetaClass selector: self selectedMessageName]. + self changed: #messageList! - self changed: #messageList - ! Item was changed: ----- Method: Debugger>>toggleBreakOnEntry (in category 'breakpoints') ----- toggleBreakOnEntry "Install or uninstall a halt-on-entry breakpoint" | selectedMethod | + self selectedClassOrMetaClass ifNil: [ ^self]. - self selectedClassOrMetaClass isNil ifTrue:[^self]. selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. selectedMethod hasBreakpoint ifTrue: [BreakpointManager unInstall: selectedMethod] ifFalse: [BreakpointManager installInClass: self selectedClassOrMetaClass selector: self selectedMessageName].! Item was changed: ----- Method: FileContentsBrowser>>infoString (in category 'infoView') ----- infoString + ^infoString ifNil: [infoString := StringHolder new]! - ^infoString isNil - ifTrue:[infoString := StringHolder new] - ifFalse:[infoString]! Item was changed: ----- Method: FileContentsBrowser>>removeUnmodifiedClasses (in category 'removing') ----- removeUnmodifiedClasses | packageList | self okToChange ifFalse:[^self]. + packageList := self selectedPackage + ifNil: [ self packages] + ifNotNil: [ Array with: self selectedPackage]. - packageList := self selectedPackage isNil - ifTrue:[self packages] - ifFalse:[Array with: self selectedPackage]. packageList do:[:package| package classes copy do:[:theClass| Cursor wait showWhile:[ theClass removeAllUnmodified. ]. theClass hasChanges ifFalse:[ package removeClass: theClass. ]. ]]. self classListIndex: 0. + self changed: #classList! - self changed: #classList.! Item was changed: ----- Method: FileContentsBrowser>>removeUnmodifiedMethods (in category 'removing') ----- removeUnmodifiedMethods | theClass cat | self okToChange ifFalse:[^self]. theClass := self selectedClassOrMetaClass. + theClass ifNil: [ ^self]. - theClass isNil ifTrue:[^self]. cat := self selectedMessageCategoryName. + cat ifNil: [ ^self]. - cat isNil ifTrue:[^self]. Cursor wait showWhile:[ theClass removeUnmodifiedMethods: (theClass organization listAtCategoryNamed: cat). ]. self messageListIndex: 0. self changed: #messageList.! Item was changed: ----- Method: FileList>>isFileSelected (in category 'private') ----- isFileSelected "return if a file is currently selected" + ^ fileName notNil! - ^ fileName isNil not! Item was changed: ----- Method: PluggableFileList class>>fileNameSelectedAcceptBlock (in category 'canAcceptBlocks') ----- fileNameSelectedAcceptBlock + ^[:theDirectory :theFileName | theFileName notNil]! - ^[:theDirectory :theFileName | theFileName isNil not]! Item was changed: ----- Method: SelectionMenu>>startUpWithCaption:at:allowKeyboard: (in category 'basic control sequence') ----- startUpWithCaption: captionOrNil at: location allowKeyboard: aBoolean "Overridden to return value returned by manageMarker. The boolean parameter indicates whether the menu should be given keyboard focus (if in morphic)" | index | index := super startUpWithCaption: captionOrNil at: location allowKeyboard: aBoolean. + (selections isNil or: [(index between: 1 and: selections size) not]) - (selections = nil or: [(index between: 1 and: selections size) not]) ifTrue: [^ nil]. ^ selections at: index!

1 0

The Trunk: Tools-nice.303.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

The Trunk: Tools-nice.303.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

The Trunk: Multilingual-nice.139.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.139.mcz ==================== Summary ==================== Name: Multilingual-nice.139 Author: nice Time: 30 March 2011, 10:52:57.838 pm UUID: 113356c1-c621-944f-9e35-c3cc5ed0d195 Ancestors: Multilingual-ul.138 minor ifNil refactoring =============== Diff against Multilingual-ul.138 =============== Item was changed: ----- Method: ByteTextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 | aStream isBinary ifTrue: [^ aStream basicNext]. + character1 := aStream basicNext ifNil: [^ nil]. - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. ^ self toSqueak: character1! Item was changed: ----- Method: MultiByteBinaryOrTextStream>>upTo: (in category 'public') ----- upTo: delim | out ch | out := WriteStream on: (String new: 1000). self atEnd ifTrue: [^ '']. + [(ch := self next) == nil] whileFalse: [ - [(ch := self next) isNil] whileFalse: [ (ch = delim) ifTrue: [ ^ out contents "terminator is not doubled; we're done!!" ]. out nextPut: ch. ]. ^ out contents. ! Item was changed: ----- Method: TTCFont class>>registry (in category 'other') ----- registry + ^ Registry + ifNil: [Registry := IdentityDictionary new] - - ^ Registry isNil - ifTrue: [Registry := IdentityDictionary new] - ifFalse: [Registry]. ! Item was changed: ----- Method: TTCFont>>emphasis: (in category 'accessing') ----- emphasis: code code > 3 ifTrue: [^ self]. code = 0 ifTrue: [^ self]. + derivatives ifNil: [^ self]. - derivatives isNil ifTrue: [^ self]. ^ (derivatives at: code) ifNil: [self]. ! Item was changed: ----- Method: TTCFontSet class>>registry (in category 'as yet unclassified') ----- registry + ^ Registry + ifNil: [Registry := IdentityDictionary new]! - - ^ Registry isNil - ifTrue: [Registry := IdentityDictionary new] - ifFalse: [Registry]. - !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2011