Packages May 2012

packages@lists.squeakfoundation.org

1 participants
138 discussions

The Trunk: Kernel-eem.690.mcz
by commits＠source.squeak.org 20 May '12

20 May '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.690.mcz ==================== Summary ==================== Name: Kernel-eem.690 Author: eem Time: 20 May 2012, 11:45:51.817 am UUID: 86741d23-9dcd-4c36-b86e-99d260c22445 Ancestors: Kernel-nice.689 Add Integer>hex8. Arguablty this should be an extension in VMMaker, but since hex isn't, this isn't either (historical). Refactor CompiledMethodTrailer to allow subclasses to instantiate classes other than CompiledMethod. Add CompiledMethod>referredInstVars =============== Diff against Kernel-nice.689 =============== Item was added: + ----- Method: CompiledMethod>>referredInstVars (in category 'accessing') ----- + referredInstVars + "Answer a Set of the inst var names the receiver accesses." + | allInstVarNames instVarNames | + allInstVarNames := self methodClass allInstVarNames. + self isReturnField ifTrue: + [^Set with: (allInstVarNames at: self returnField + 1)]. + instVarNames := Set new. + self abstractBytecodeMessagesDo: + [:msg| + (#(#popIntoReceiverVariable: + #pushReceiverVariable: + #storeIntoReceiverVariable:) includes: msg selector) ifTrue: + [instVarNames add: (allInstVarNames at: msg argument + 1)]]. + ^instVarNames + + "Dictionary newFromPairs: (Point selectors collect: [:s| { s. (Point >> s) referredInstVars}])"! Item was added: + ----- Method: CompiledMethodTrailer>>compiledMethodClass (in category 'creating a method') ----- + compiledMethodClass + "Allow subclasses to create instyances of classes other than CompiledMethod." + + ^CompiledMethod! Item was changed: ----- Method: CompiledMethodTrailer>>createMethod:header: (in category 'creating a method') ----- createMethod: numberOfBytesForAllButTrailer header: headerWord | meth | + encodedData ifNil: [ self encode ]. + "without >>self compiledMethodClass<<, subclassing CompiledMethod is duplicating code" + meth := self compiledMethodClass newMethod: numberOfBytesForAllButTrailer + size header: headerWord. - meth := CompiledMethod newMethod: numberOfBytesForAllButTrailer + size header: headerWord. "copy the encoded trailer data" 1 to: size do: [:i | meth at: meth size - size + i put: (encodedData at: i)]. ^ meth! Item was added: + ----- Method: Integer>>hex8 (in category 'printing') ----- + hex8 + "Print the receiver in base 16 with prefixed base, using at least 8 digits. + DO NOT CHANGE THIS!! The Cog VMMaker depends on this. + Consider using storeStringBase: 16 length: 11 padded: true instead." + "16r3333 hex8" + | hex | + hex := self hex. "16rNNN" + ^hex size < 11 + ifTrue: [hex copyReplaceFrom: 4 to: 3 + with: ('00000000' copyFrom: 1 to: 11-hex size)] + ifFalse: [hex]!

1 0

The Trunk: System-eem.487.mcz
by commits＠source.squeak.org 20 May '12

20 May '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.487.mcz ==================== Summary ==================== Name: System-eem.487 Author: eem Time: 19 May 2012, 5:29:05.713 pm UUID: 6133ab9f-374a-4017-83ee-900d8c216204 Ancestors: System-eem.486 Add ClassReference which allows class definitions to appear alongside method definitions in MessageSets. Improve Behavior>allCallsOn: to include users of shared pools. Hence with these two, doing class refs on a shared pool lists the lcasses that use the pool =============== Diff against System-eem.486 =============== Item was changed: ----- Method: Behavior>>allCallsOn (in category '*System-Support') ----- allCallsOn "Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict." + | theClass | + theClass := self theNonMetaClass. + ^(self systemNavigation allCallsOn: (self environment associationAt: theClass name)), + (Preferences thoroughSenders + ifTrue: [OrderedCollection new] + ifFalse: [self systemNavigation allCallsOn: theClass name]), + (self systemNavigation allClasses + select: [:c| c sharedPools includes: theClass] + thenCollect: + [:c| + ClassReference new + setClassSymbol: c name + classIsMeta: false + stringVersion: c name])! - ^self systemNavigation allCallsOn: self theNonMetaClass name! Item was added: + Object subclass: #ClassReference + instanceVariableNames: 'classSymbol stringVersion classIsMeta' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Tools'! + + !ClassReference commentStamp: '<historical>' prior: 0! + A ClassReference is is a lightweight proxy for a Class's definition. Allows class definitions to be viewed in MessageLists + + Instance Variables + classSymbol: Symbol for method's class (without class keyword if meta) + stringVersion: the class's definition + + ! Item was added: + ----- Method: ClassReference class>>class: (in category 'instance creation') ----- + class: aClass + ^ self new setStandardClass: aClass! Item was added: + ----- Method: ClassReference>><= (in category 'comparisons') ----- + <= anotherMethodOrClassReference + + classSymbol < anotherMethodOrClassReference classSymbol ifTrue: [^true]. + classSymbol > anotherMethodOrClassReference classSymbol ifTrue: [^false]. + classIsMeta = anotherMethodOrClassReference classIsMeta ifFalse: [^classIsMeta not]. + "i.e. if anotherMethodOrClassReference is a MethodReference then we're < it, and so <= to it" + ^true! Item was added: + ----- Method: ClassReference>>= (in category 'comparisons') ----- + = anotherMethodReference + "Answer whether the receiver and the argument represent the + same object." + ^ self species == anotherMethodReference species + and: [self classSymbol = anotherMethodReference classSymbol + and: [self classIsMeta = anotherMethodReference classIsMeta]]! Item was added: + ----- Method: ClassReference>>actualClass (in category 'accessing') ----- + actualClass + | actualClass | + actualClass := Smalltalk at: classSymbol ifAbsent: [^nil]. + ^classIsMeta ifTrue: [actualClass class] ifFalse: [actualClass]! Item was added: + ----- Method: ClassReference>>asStringOrText (in category 'accessing') ----- + asStringOrText + + ^stringVersion! Item was added: + ----- Method: ClassReference>>classIsMeta (in category 'accessing') ----- + classIsMeta + + ^classIsMeta! Item was added: + ----- Method: ClassReference>>classSymbol (in category 'accessing') ----- + classSymbol + ^classSymbol! Item was added: + ----- Method: ClassReference>>compiledMethod (in category 'accessing') ----- + compiledMethod + ^nil! Item was added: + ----- Method: ClassReference>>isClassReference (in category 'comparisons') ----- + isClassReference + ^true! Item was added: + ----- Method: ClassReference>>isMethodReference (in category 'comparisons') ----- + isMethodReference + ^false! Item was added: + ----- Method: ClassReference>>setClassAndSelectorIn: (in category 'setting') ----- + setClassAndSelectorIn: csBlock + + ^csBlock value: self actualClass value: #Definition! Item was added: + ----- Method: ClassReference>>setClassSymbol:classIsMeta:stringVersion: (in category 'initialize-release') ----- + setClassSymbol: classSym classIsMeta: isMeta stringVersion: aString + + classSymbol := classSym. + classIsMeta := isMeta. + stringVersion := aString. ' (definition)'! Item was added: + ----- Method: ClassReference>>setStandardClass: (in category 'initialize-release') ----- + setStandardClass: aClass + + classSymbol := aClass theNonMetaClass name. + classIsMeta := aClass isMeta. + stringVersion := aClass name, ' (definition)'! Item was added: + ----- Method: ClassReference>>sourceString (in category 'queries') ----- + sourceString + ^self actualClass definition! Item was added: + ----- Method: ClassReference>>stringVersion (in category 'accessing') ----- + stringVersion + + ^stringVersion! Item was added: + ----- Method: SystemNavigation class>>doesNotUnderstand: (in category 'error handling') ----- + doesNotUnderstand: aMessage + (self includesSelector: aMessage selector) ifTrue: + [^self default perform: aMessage selector withArguments: aMessage arguments]. + ^super doesNotUnderstand: aMessage!

1 0

The Trunk: System-eem.487.mcz
by commits＠source.squeak.org 20 May '12

20 May '12

1 0

The Trunk: System-eem.487.mcz
by commits＠source.squeak.org 20 May '12

20 May '12

1 0

The Trunk: Tools-eem.407.mcz
by commits＠source.squeak.org 20 May '12

20 May '12

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.407.mcz ==================== Summary ==================== Name: Tools-eem.407 Author: eem Time: 19 May 2012, 5:27:05.352 pm UUID: cb36645e-dead-4af8-99e9-7ee7efb82a96 Ancestors: Tools-yo.406 Make MessageSet hip to ClassReference entries. =============== Diff against Tools-yo.406 =============== Item was changed: ----- Method: MessageSet class>>parse:toClassAndSelector: (in category 'utilities') ----- parse: methodRef toClassAndSelector: csBlock "Decode strings of the form <className> [class] <selectorName>." | tuple cl | self flag: #mref. "compatibility with pre-MethodReference lists" methodRef ifNil: [^ csBlock value: nil value: nil]. + methodRef isString ifFalse: + [^methodRef setClassAndSelectorIn: csBlock]. + methodRef isEmpty ifTrue: + [^csBlock value: nil value: nil]. - (methodRef isKindOf: MethodReference) ifTrue: [ - ^methodRef setClassAndSelectorIn: csBlock - ]. - methodRef isEmpty ifTrue: [^ csBlock value: nil value: nil]. tuple := methodRef asString findTokens: ' .'. cl := Smalltalk at: tuple first asSymbol ifAbsent: [^ csBlock value: nil value: nil]. + ^(tuple size = 2 or: [tuple size > 2 and: [(tuple at: 2) ~= 'class']]) + ifTrue: [csBlock value: cl value: (tuple at: 2) asSymbol] + ifFalse: [csBlock value: cl class value: (tuple at: 3) asSymbol]! - (tuple size = 2 or: [tuple size > 2 and: [(tuple at: 2) ~= 'class']]) - ifTrue: [^ csBlock value: cl value: (tuple at: 2) asSymbol] - ifFalse: [^ csBlock value: cl class value: (tuple at: 3) asSymbol]! Item was changed: + ----- Method: MessageSet>>aboutToStyle: (in category 'code pane') ----- + aboutToStyle: aPluggableShoutMorphOrView + "This is a notification that aPluggableShoutMorphOrView is about to re-style its text. + Set the classOrMetaClass in aPluggableShoutMorphOrView, so that identifiers - ----- Method: MessageSet>>aboutToStyle: (in category 'contents') ----- - aboutToStyle: aStyler - "This is a notification that aStyler is about to re-style its text. - Set the classOrMetaClass in aStyler, so that identifiers will be resolved correctly. Answer true to allow styling to proceed, or false to veto the styling" + + | selectedMessageName showingMethod | + self showingSource ifFalse: [^false]. + selectedMessageName := self selectedMessageName. + showingMethod := (#(Comment Definition Hierarchy) includes: selectedMessageName) not. + "Hack!! setting classOrMetaClass: to nil allows doit or class definition colouring." + aPluggableShoutMorphOrView classOrMetaClass: (showingMethod ifTrue: [self selectedClassOrMetaClass]). + ^(#(Comment Hierarchy) includes: selectedMessageName) not! - - self isModeStyleable ifFalse: [^false]. - aStyler classOrMetaClass: self selectedClassOrMetaClass. - ^true!

1 0

The Trunk: Tools-eem.407.mcz
by commits＠source.squeak.org 20 May '12

20 May '12

1 0

The Trunk: Tools-eem.407.mcz
by commits＠source.squeak.org 20 May '12

20 May '12

1 0

The Trunk: System-eem.486.mcz
by commits＠source.squeak.org 19 May '12

19 May '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.486.mcz ==================== Summary ==================== Name: System-eem.486 Author: eem Time: 19 May 2012, 2:18:48.157 pm UUID: b25717e1-24e0-4204-99a7-1e66197595af Ancestors: System-nice.485 Add an accessor for the primitiveErrorTable. =============== Diff against System-nice.485 =============== Item was added: + ----- Method: SmalltalkImage>>primitiveErrorTable (in category 'special objects') ----- + primitiveErrorTable + "Smalltalk primitiveErrorTable" + ^self specialObjectsArray at: 52!

1 0

The Trunk: System-eem.486.mcz
by commits＠source.squeak.org 19 May '12

19 May '12

1 0

The Trunk: System-eem.486.mcz
by commits＠source.squeak.org 19 May '12

19 May '12

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
14
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2012