Packages July 2011

packages@lists.squeakfoundation.org

1 participants
141 discussions

The Trunk: Kernel-eem.608.mcz
by commits＠source.squeak.org 19 Jul '11

19 Jul '11

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.608.mcz ==================== Summary ==================== Name: Kernel-eem.608 Author: eem Time: 19 July 2011, 9:46:25.127 am UUID: 0c48ee9d-2fdf-4ad9-9f55-5187010b71f7 Ancestors: Kernel-ul.607 Fix CompiledMethod>>hasLiteral: to not look for ==, but literal equal (class == & value =) =============== Diff against Kernel-ul.607 =============== Item was changed: ----- Method: CompiledMethod>>hasLiteral: (in category 'literals') ----- hasLiteral: literal + | litClass lit | "Answer whether the receiver references the argument, literal." + litClass := literal class. + 2 to: self numLiterals - 1 do: "exclude superclass + selector/properties" + [:index | + lit := self objectAt: index. + (litClass == lit class and: [literal = lit]) ifTrue: [^true]]. - 2 to: self numLiterals - 1 "exclude superclass + selector/properties" - do:[:index | - literal == (self objectAt: index) ifTrue: [^true]]. ^false!

1 0

The Trunk: Multilingual-ul.154.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.154.mcz ==================== Summary ==================== Name: Multilingual-ul.154 Author: ul Time: 18 July 2011, 2:01:58.376 am UUID: fb785182-e083-924c-b3cf-39e47859cede Ancestors: Multilingual-ul.153 SystemNavigation >> #allSelect: was moved to the System package. =============== Diff against Multilingual-ul.153 =============== Item was removed: - ----- Method: SystemNavigation>>allSelect: (in category '*Multilingual-Editor') ----- - allSelect: aBlock - "Answer a SortedCollection of each method that, when used as - the block - argument to aBlock, gives a true result." - | aCollection | - aCollection := SortedCollection new. - Cursor execute - showWhile: [self - allBehaviorsDo: [:class | class - selectorsAndMethodsDo: [:sel :m | (aBlock value: m) - ifTrue: [aCollection add: class name , ' ' , sel]]]]. - ^ aCollection!

1 0

The Trunk: Multilingual-ul.154.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

1 0

The Trunk: Multilingual-ul.154.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

1 0

The Trunk: Multilingual-ul.153.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.153.mcz ==================== Summary ==================== Name: Multilingual-ul.153 Author: ul Time: 17 July 2011, 7:42:44.653 pm UUID: e3f7831d-792b-6241-8fe2-1f4b375edc10 Ancestors: Multilingual-ul.152 Use #allSelectorsAndMethodsDo: instead of #allSelect:. Avoid duplication of #numberOfTimesStringIsUsed:. Don't flush the Transcript so eagerly. =============== Diff against Multilingual-ul.152 =============== Item was changed: ----- Method: LanguageEditor>>identifyUnusedStrings (in category 'stef') ----- identifyUnusedStrings + "(self on: 'en') identifyUnusedStrings" + + translationsList getList do: [ :each | + Transcript + nextPutAll: each; + show: (self numberOfTimesStringIsUsed: each); + cr ]! - "self new identifyUnusedStrings" - translationsList getList - do: [:each | - Transcript show: each. - Transcript show: (Smalltalk - allSelect: [:method | method - hasLiteralSuchThat: [:lit | lit isString - and: [lit includesSubstring: each caseSensitive: true]]]) size printString; cr]! Item was changed: ----- Method: LanguageEditor>>numberOfTimesStringIsUsed: (in category 'stef') ----- numberOfTimesStringIsUsed: aString + | count | + count := 0. + self systemNavigation allSelectorsAndMethodsDo: [ :behavior :selector :method | + (method hasLiteralSuchThat: [:lit | + lit isString and: [lit includesSubstring: aString caseSensitive: true] ]) ifTrue: [ + count := count + 1 ] ]. + ^count! - ^ (self systemNavigation allSelect: [:method | method - hasLiteralSuchThat: [:lit | lit isString - and: [lit includesSubstring: aString caseSensitive: true]]]) size! Item was changed: ----- Method: LanguageEditor>>removeTranslatedButUnusedStrings (in category 'stef') ----- removeTranslatedButUnusedStrings + (self confirm: 'Are you sure that you want to remove unused strings?' translated) ifFalse: [^ self]. translationsList getList do: [:each | | timesUsed | timesUsed := self numberOfTimesStringIsUsed: each. + Transcript + nextPutAll: each; + show: timesUsed; + cr. - Transcript show: each. - Transcript show: timesUsed printString; - cr. timesUsed isZero ifTrue: [self translator removeTranslationFor: each]]! Item was changed: ----- Method: LanguageEditor>>removeUntranslatedButUnusedStrings (in category 'stef') ----- removeUntranslatedButUnusedStrings + (self confirm: 'Are you sure that you want to remove unused strings?' translated) ifFalse: [^ self]. untranslatedList getList do: [:each | | timesUsed | timesUsed := self numberOfTimesStringIsUsed: each. + Transcript + nextPutAll: each; + show: timesUsed; - Transcript show: each. - Transcript show: timesUsed printString; cr. timesUsed isZero ifTrue: [self translator removeUntranslated: each]]. self update: #untranslated. !

1 0

The Trunk: Multilingual-ul.153.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

1 0

The Trunk: Multilingual-ul.153.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

1 0

The Trunk: Kernel-ul.607.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.607.mcz ==================== Summary ==================== Name: Kernel-ul.607 Author: ul Time: 18 July 2011, 5:30:16.971 pm UUID: 364aaf4f-24eb-4648-9612-2ba439cc26cd Ancestors: Kernel-ul.606 - Behavior >> #allLocalCallsOn: was moved to the System package. - use LowBitPerByteTable from #lowBit implementations - enhanced Integer >> #lowBit =============== Diff against Kernel-ul.606 =============== Item was removed: - ----- Method: Behavior>>allLocalCallsOn: (in category 'user interface') ----- - allLocalCallsOn: aSymbol - "Answer a SortedCollection of all the methods that call on aSymbol, anywhere in my class hierarchy." - - | aSet special byte cls | - aSet := Set new. - cls := self theNonMetaClass. - special := Smalltalk hasSpecialSelector: aSymbol - ifTrueSetByte: [:b | byte := b ]. - cls withAllSuperAndSubclassesDoGently: [ :class | - (class whichSelectorsReferTo: aSymbol special: special byte: byte) - do: [:sel | - sel isDoIt ifFalse: [aSet add: class name , ' ', sel]]]. - cls class withAllSuperAndSubclassesDoGently: [ :class | - (class whichSelectorsReferTo: aSymbol special: special byte: byte) - do: [:sel | - sel isDoIt ifFalse: [aSet add: class name , ' ', sel]]]. - ^aSet! Item was changed: ----- Method: Integer>>lowBit (in category 'bit manipulation') ----- lowBit "Answer the index of the low order bit of this number." + + | index digit | + index := 0. + [ (digit := self digitAt: (index := index + 1)) = 0 ] whileTrue. + ^(LowBitPerByteTable at: digit) + (index - 1 * 8)! - | index | - self = 0 ifTrue: [ ^ 0 ]. - index := 1. - [ (self digitAt: index) = 0 ] - whileTrue: - [ index := index + 1 ]. - ^ (self digitAt: index) lowBit + (8 * (index - 1))! Item was changed: ----- Method: SmallInteger>>lowBit (in category 'bit manipulation') ----- lowBit " Answer the index of the low order one bit. 2r00101000 lowBit (Answers: 4) 2r-00101000 lowBit (Answers: 4) First we skip bits in groups of 8, then do a lookup in a table. While not optimal, this is a good tradeoff; long integer #lowBit always invokes us with bytes." + | n result lastByte | n := self. n = 0 ifTrue: [ ^ 0 ]. result := 0. [(lastByte := n bitAnd: 16rFF) = 0] whileTrue: [ result := result + 8. n := n bitShift: -8 ]. + ^result + (LowBitPerByteTable at: lastByte)! - - "The low bits table can be obtained with: - ((1 to: 8) inject: #[1] into: [:lowBits :rank | (lowBits copy at: 1 put: lowBits first + 1; yourself) , lowBits]) allButFirst." - ^result + ( #[1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 7 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 8 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 7 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1] at: lastByte)!

1 0

The Trunk: Kernel-ul.607.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

1 0

The Trunk: Kernel-ul.607.mcz
by commits＠source.squeak.org 18 Jul '11

18 Jul '11

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
15
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 July 2011