Packages March 2012

packages@lists.squeakfoundation.org

1 participants
189 discussions

The Trunk: Compiler-eem.227.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.227.mcz ==================== Summary ==================== Name: Compiler-eem.227 Author: eem Time: 28 March 2012, 6:34:18.679 pm UUID: ba2dd2c9-e83b-48f2-877e-310826e49215 Ancestors: Compiler-eem.226 Hide the onceCache when decompiling. =============== Diff against Compiler-eem.226 =============== Item was changed: ----- Method: DecompilerConstructorForClosures>>codeMethod:block:tempVars:primitive:class: (in category 'constructor') ----- codeMethod: selector block: block tempVars: vars primitive: primitive class: class + | blockNode selectorNode visibleTemps invisibleTemps arguments temporaries properties | - | blockNode selectorNode visibleTemps invisibleTemps arguments temporaries | selectorNode := self codeSelector: selector code: nil. tempVars := vars. visibleTemps := OrderedCollection new. invisibleTemps := OrderedCollection new. tempVars do: [:t| ((t isIndirectTempVector or: [t scope >= 0]) ifTrue: [visibleTemps] ifFalse: [invisibleTemps]) addLast: t]. arguments := visibleTemps copyFrom: 1 to: nArgs. temporaries := visibleTemps copyFrom: nArgs + 1 to: visibleTemps size. block arguments: arguments; temporaries: temporaries. + properties := method properties copy. + (properties at: #onceCache) ifNotNil: + [:onceCache| + properties := properties copyWithout: (Association + key: #onceCache + value: onceCache)]. blockNode := MethodNode new selector: selectorNode arguments: arguments precedence: selector precedence temporaries: temporaries block: block encoder: (EncoderForV3PlusClosures new initScopeAndLiteralTables temps: visibleTemps, invisibleTemps literals: literalValues class: class) primitive: primitive + properties: properties. - properties: method properties copy. blockNode properties method: blockNode. ^blockNode!

1 0

The Trunk: Compiler-eem.227.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

1 0

The Trunk: KernelTests-eem.217.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.217.mcz ==================== Summary ==================== Name: KernelTests-eem.217 Author: eem Time: 28 March 2012, 6:33:27.001 pm UUID: dc631b68-a4ab-4964-b691-f4092a64aab2 Ancestors: KernelTests-cmm.216 A test for BlockClosure>#once =============== Diff against KernelTests-cmm.216 =============== Item was added: + ----- Method: BlockClosureTest class>>onceMethod (in category 'support methods') ----- + onceMethod + ^[Object new] once! Item was added: + ----- Method: BlockClosureTest>>testOnce (in category 'tests - evaluating') ----- + testOnce + | objs result | + objs := (1 to: 10) collect: [:ign| [Object new] once]. + self assert: (objs allSatisfy: [:obj| obj == objs first]). + result := self class onceMethod. + 1 to: 10 do: + [:ign| + self assert: result == self class onceMethod]!

1 0

The Trunk: KernelTests-eem.217.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

1 0

The Trunk: KernelTests-eem.217.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

1 0

The Trunk: Kernel-eem.676.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.676.mcz ==================== Summary ==================== Name: Kernel-eem.676 Author: eem Time: 28 March 2012, 6:31:09.818 pm UUID: 54422144-91c1-4c63-9fbe-8acb5733e35f Ancestors: Kernel-eem.675 Neater simpler, correct implementtion of #once for the current Squeak closure implemenation which lacks clean blocks. =============== Diff against Kernel-eem.675 =============== Item was removed: - ----- Method: BlockClosure>>becomeCached (in category 'private') ----- - becomeCached - self become: ((CachedBlockClosure new: self size) - outerContext: outerContext - startpc: startpc - numArgs: numArgs - cachedValue: self value - copiedValues: self)! Item was removed: - ----- Method: BlockClosure>>becomeUncached (in category 'private') ----- - becomeUncached - "The receiver is already uncached." - ^self! Item was changed: ----- Method: BlockClosure>>once (in category 'evaluating') ----- once + "Evaluate the receiver exactly once, so that repeated evaluations + answer exactly the same object as the first evaluation. This + allows one to intern values with the idiom - "Answer and remember my value, answering exactly the same object in any further sends - of once or value until I become uncached. This allows one to intern values with the idiom myResourceMethod + ^[expression] once" + + | cache | + cache := self method + propertyValueAt: #onceCache + ifAbsent: [self method propertyValueAt: #onceCache put: Dictionary new]. + ^cache at: startpc ifAbsentPut: [self value]! - ^[expression] once. - The expression will be evaluated once and its result returned for any subsequent evaluations. - Originally by Travis Griggs, from whom we copy this idea with thanks." - numArgs ~= 0 ifTrue: - [self error: 'once should only be used with niladic blocks']. - self becomeCached. - ^self once! Item was removed: - BlockClosure variableSubclass: #CachedBlockClosure - instanceVariableNames: 'cachedValue' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Methods'! - - !CachedBlockClosure commentStamp: 'eem 7/22/2010 12:34' prior: 0! - I'm a BlockClosure with an added instance variable for storing the once upon a time result of evaluating myself when I was simple BlockClosure. This is triggered by sending #once to a normal BlockClosure. Future sends of once will simply return this value rather than evaluate myself. When sent value, I revert back to a BlockClosure. Originally by Travis Griggs, from whom we copy this idea with thanks. - - Instance Variables - cachedValue <Object> - - cachedValue - - result of having sent value to myself when i was just a BlockClosure! Item was removed: - ----- Method: CachedBlockClosure>>becomeCached (in category 'private') ----- - becomeCached - "The receiver is already cached." - ^self! Item was removed: - ----- Method: CachedBlockClosure>>becomeUncached (in category 'private') ----- - becomeUncached - self become: (BlockClosure - outerContext: outerContext - startpc: startpc - numArgs: numArgs - copiedValues: self)! Item was removed: - ----- Method: CachedBlockClosure>>once (in category 'evaluating') ----- - once - ^cachedValue! Item was removed: - ----- Method: CachedBlockClosure>>outerContext:startpc:numArgs:cachedValue:copiedValues: (in category 'initialize-release') ----- - outerContext: aContext startpc: aStartpc numArgs: argCount cachedValue: aValue copiedValues: anArrayOrNil - cachedValue := aValue. - super outerContext: aContext startpc: aStartpc numArgs: argCount copiedValues: anArrayOrNil! Item was removed: - ----- Method: CachedBlockClosure>>value (in category 'evaluating') ----- - value - ^cachedValue!

1 0

The Trunk: Kernel-eem.676.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

1 0

The Trunk: Kernel-eem.676.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

1 0

The Trunk: GetText-cmm.19.mcz
by commits＠source.squeak.org 28 Mar '12

28 Mar '12

Chris Muller uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-cmm.19.mcz ==================== Summary ==================== Name: GetText-cmm.19 Author: cmm Time: 27 March 2012, 6:38:29.89 pm UUID: ae7baa63-049b-4172-b7c8-e5d3546d0bb6 Ancestors: GetText-edc.18 Fix String DNU directoryNamed:. =============== Diff against GetText-edc.18 =============== Item was changed: ----- Method: InternalTranslator class>>loadAvailableExternalLocales (in category 'private loading') ----- loadAvailableExternalLocales "private - register locales IDs based on the content of the <prefs>/locale/ directory" | localeDir | localeDir := self localeDirCreate: false. localeDir ifNil: [^ #()]. localeDir directoryNames do: [:langDirName | | langDir | langDir := localeDir directoryNamed: langDirName. (langDir fileNamesMatching: '*.' , self translationSuffix) ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: nil]. langDir directoryNames do: [:countryDirName | | countryDir | + countryDir := langDir directoryNamed: countryDirName. - countryDir := langDirName directoryNamed: countryDirName. (countryDir fileNamesMatching: '*.' , self translationSuffix) ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName] ] ]. !

1 0

The Trunk: GetText-cmm.19.mcz
by commits＠source.squeak.org 28 Mar '12

28 Mar '12

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
19
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 March 2012