Packages April 2012

packages@lists.squeakfoundation.org

1 participants
129 discussions

The Trunk: PackageInfo-Base-bf.59.mcz
by commits＠source.squeak.org 20 Apr '12

20 Apr '12

Bert Freudenberg uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-bf.59.mcz ==================== Summary ==================== Name: PackageInfo-Base-bf.59 Author: bf Time: 19 April 2012, 4:10:33.317 pm UUID: a4c0a6e8-a83f-469d-ba3b-287687bc5d26 Ancestors: PackageInfo-Base-eem.58 When looking up the change record for an overridden method, ignore all versions from the overriding package, to really get at the original method. =============== Diff against PackageInfo-Base-eem.58 =============== Item was changed: ----- Method: PackageInfo>>changeRecordForOverriddenMethod: (in category 'testing') ----- changeRecordForOverriddenMethod: aMethodReference + | sourceFilesCopy method position overridingPackages | + overridingPackages := Set new. - | sourceFilesCopy method position | method := aMethodReference actualClass compiledMethodAt: aMethodReference methodSymbol. position := method filePosition. sourceFilesCopy := SourceFiles collect: [:x | x isNil ifTrue: [ nil ] ifFalse: [x readOnlyCopy]]. + [ | file prevPos prevFileIndex chunk stamp methodCategory methodPackage tokens | - [ | file prevPos prevFileIndex chunk stamp methodCategory tokens | method fileIndex = 0 ifTrue: [^ nil]. file := sourceFilesCopy at: method fileIndex. [position notNil & file notNil] whileTrue: [file position: (0 max: position-150). "Skip back to before the preamble" [file position < (position-1)] "then pick it up from the front" whileTrue: [chunk := file nextChunk]. "Preamble is likely a linked method preamble, if we're in a changes file (not the sources file). Try to parse it for prior source position and file index" prevPos := nil. stamp := ''. (chunk findString: 'methodsFor:' startingAt: 1) > 0 ifTrue: [tokens := Scanner new scanTokens: chunk] ifFalse: [tokens := Array new "ie cant be back ref"]. ((tokens size between: 7 and: 8) and: [(tokens at: tokens size-5) = #methodsFor:]) ifTrue: [(tokens at: tokens size-3) = #stamp: ifTrue: ["New format gives change stamp and unified prior pointer" stamp := tokens at: tokens size-2. prevPos := tokens last. prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos. prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos] ifFalse: ["Old format gives no stamp; prior pointer in two parts" prevPos := tokens at: tokens size-2. prevFileIndex := tokens last]. (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil]]. ((tokens size between: 5 and: 6) and: [(tokens at: tokens size-3) = #methodsFor:]) ifTrue: [(tokens at: tokens size-1) = #stamp: ifTrue: ["New format gives change stamp and unified prior pointer" stamp := tokens at: tokens size]]. methodCategory := tokens after: #methodsFor: ifAbsent: ['as yet unclassifed']. (self includesMethodCategory: methodCategory ofClass: aMethodReference actualClass) ifTrue: [methodCategory = (Smalltalk at: #Categorizer ifAbsent: [Smalltalk at: #ClassOrganizer]) default ifTrue: [methodCategory := methodCategory, ' ']. ^ ChangeRecord new file: file position: position type: #method class: aMethodReference classSymbol category: methodCategory meta: aMethodReference classIsMeta stamp: stamp]. + methodPackage := PackageOrganizer default packageOfMethod: aMethodReference ifNone: [#unknown]. + (self isOverrideCategory: methodCategory) + ifTrue: [overridingPackages add: methodPackage] + ifFalse: [(overridingPackages includes: methodPackage) + ifFalse: [^nil]]. - (self isOverrideCategory: methodCategory) ifFalse: [^nil]. position := prevPos. prevPos notNil ifTrue: [file := sourceFilesCopy at: prevFileIndex]]. ^ nil] ensure: [sourceFilesCopy do: [:x | x notNil ifTrue: [x close]]] !

1 0

The Trunk: PackageInfo-Base-bf.59.mcz
by commits＠source.squeak.org 20 Apr '12

20 Apr '12

1 0

The Trunk: Monticello-bf.504.mcz
by commits＠source.squeak.org 19 Apr '12

19 Apr '12

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.504.mcz ==================== Summary ==================== Name: Monticello-bf.504 Author: bf Time: 19 April 2012, 9:36:55.211 am UUID: 5fa1177d-b1ed-4cf0-8628-229f171ca814 Ancestors: Monticello-eem.503 Fix intermittant load problem. We sometimes would get a 'changes file not found' in the middle of updating, but retrying found it just fine. I finally tracked it down to too many files being open. This change re-uses the same read-only copy during a package load (which additionally might speed up loading a tiny bit). =============== Diff against Monticello-eem.503 =============== Item was changed: ----- Method: MCPackageLoader>>basicLoad (in category 'private') ----- basicLoad "Load the contents of some package. This is the core loading method in Monticello. Be wary about modifying it unless you understand the details and dependencies of the various entities being modified." | pkgName | errorDefinitions := OrderedCollection new. "Obviously this isn't the package name but we don't have anything else to use here. ChangeSet current name will generally work since a CS is usually installed prior to installation." pkgName := ChangeSet current name. + [CurrentReadOnlySourceFiles cacheDuring: [[ + "Pass 1: Load everything but the methods, which are collected in methodAdditions." - [["Pass 1: Load everything but the methods, which are collected in methodAdditions." additions do: [:ea | ea isMethodDefinition ifTrue:[methodAdditions add: ea asMethodAddition] ifFalse:[[ea load]on: Error do: [errorDefinitions add: ea]]. ] displayingProgress: 'Reshaping ', pkgName. "Try again any delayed definitions" self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea load] displayingProgress: 'Reloading ', pkgName. "Pass 2: We compile new / changed methods" methodAdditions do:[:ea| ea createCompiledMethod] displayingProgress: 'Compiling ', pkgName. 'Installing ', pkgName displayProgressFrom: 0 to: 2 during:[:bar| "There is no progress *during* installation since a progress bar update will redraw the world and potentially call methods that we're just trying to install." bar value: 1. "Pass 3: Install the new / changed methods (this is a separate pass to allow compiler changes to be loaded)" methodAdditions do:[:ea| ea installMethod]. "Pass 4: Remove the obsolete methods" removals do:[:ea| ea unload]. ]. "Finally, notify observers for the method additions" methodAdditions do: [:each | each notifyObservers] "the message is fake but actually telling people how much time we spend in the notifications is embarrassing so lie instead" displayingProgress: 'Installing ', pkgName. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing ', pkgName. ] on: InMidstOfFileinNotification do: [:n | n resume: true] + ]] ensure: [self flushChangesFile]! - ] ensure: [self flushChangesFile]!

1 0

The Trunk: Monticello-bf.504.mcz
by commits＠source.squeak.org 19 Apr '12

19 Apr '12

1 0

The Trunk: Monticello-bf.504.mcz
by commits＠source.squeak.org 19 Apr '12

19 Apr '12

1 0

The Trunk: Kernel-eem.679.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.679.mcz ==================== Summary ==================== Name: Kernel-eem.679 Author: eem Time: 18 April 2012, 10:40:18.574 am UUID: aa8e1b1a-a108-4228-91bf-c996fa4b5b26 Ancestors: Kernel-eem.678 Fix loading of CompiledMethod subclasses. The old code just used CompiledMethod's format, which includes its compact class index, hence resulting in instantiating the subclass returning an instance of CompiledMethod. The new code masks out CompiledMethod's compact class imdex (if any) and masks in the right compact class index. =============== Diff against Kernel-eem.678 =============== Item was changed: ----- Method: ClassBuilder>>computeFormat:instSize:forSuper:ccIndex: (in category 'class format') ----- computeFormat: type instSize: newInstSize forSuper: newSuper ccIndex: ccIndex "Compute the new format for making oldClass a subclass of newSuper. Return the format or nil if there is any problem." | instSize isVar isWords isPointers isWeak | + type == #compiledMethod ifTrue: + [^(CompiledMethod format + bitClear: (16r1F bitShift: 11)) + bitOr: (ccIndex bitShift: 11)]. - type == #compiledMethod - ifTrue:[^CompiledMethod format]. instSize := newInstSize + (newSuper ifNil:[0] ifNotNil:[newSuper instSize]). + instSize > 254 ifTrue: + [self error: 'Class has too many instance variables (', instSize printString,')'. - instSize > 254 ifTrue:[ - self error: 'Class has too many instance variables (', instSize printString,')'. ^nil]. type == #normal ifTrue:[isVar := isWeak := false. isWords := isPointers := true]. type == #bytes ifTrue:[isVar := true. isWords := isPointers := isWeak := false]. type == #words ifTrue:[isVar := isWords := true. isPointers := isWeak := false]. type == #variable ifTrue:[isVar := isPointers := isWords := true. isWeak := false]. type == #weak ifTrue:[isVar := isWeak := isWords := isPointers := true]. + (isPointers not and:[instSize > 0]) ifTrue: + [self error:'A non-pointer class cannot have instance variables'. - (isPointers not and:[instSize > 0]) ifTrue:[ - self error:'A non-pointer class cannot have instance variables'. ^nil]. ^(self format: instSize variable: isVar words: isWords pointers: isPointers weak: isWeak) + (ccIndex bitShift: 11).!

1 0

The Trunk: Kernel-eem.679.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

1 0

The Trunk: Kernel-eem.679.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

1 0

The Trunk: Kernel-eem.678.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.678.mcz ==================== Summary ==================== Name: Kernel-eem.678 Author: eem Time: 18 April 2012, 10:29:16.009 am UUID: a1560bd8-28a8-4167-a5ae-d3da0cd21c70 Ancestors: Kernel-eem.677 Provide a kbdTest for the EventSensor. =============== Diff against Kernel-eem.677 =============== Item was added: + ----- Method: EventSensor>>kbdTest (in category 'keyboard') ----- + kbdTest "Sensor kbdTest" + "This test routine will print the unmodified character, its keycode, + and the OR of all its modifier bits, until the character x is typed" + | char evt | + char := nil. + [char = $x] whileFalse: + [[(evt := self peekKeyboardEvent) isNil] whileTrue. + char := self characterForKeycode: evt third. + (String streamContents: + [:s | + s nextPut: char. + (3 to: 8) with: 'cpmurw' do: + [:i :c| + s space; nextPut: c; nextPut: $:; print: (evt at: i); nextPutAll: ' ']]) + displayAt: 10@10]!

1 0

The Trunk: Kernel-eem.678.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2012