Squeak-dev November 2013

squeak-dev@lists.squeakfoundation.org

43 participants
223 discussions

The Trunk: System-fbs.622.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.622.mcz ==================== Summary ==================== Name: System-fbs.622 Author: fbs Time: 24 November 2013, 6:39:18.436 pm UUID: a121b6dd-61d9-7747-917d-622908369191 Ancestors: System-fbs.621 Creating instances based on user input belongs in a higher level package than Collections. =============== Diff against System-fbs.621 =============== Item was added: + ----- Method: Text class>>fromUser (in category '*System-Support-instance creation') ----- + fromUser + "Answer an instance of me obtained by requesting the user to type a string." + "Text fromUser" + + ^ self fromString: + (UIManager default request: 'Enter text followed by carriage return') + !

1 0

Crypto support?
by Frank Shearar 24 Nov '13

24 Nov '13

Does anyone know the current state of play of the crypto team? We have a DSA implementation in "System-Digital Signatures" that should belong in a package called "Crypto-Something", but if the other stuff was better I'd rather delete this and use the proper stuff. Also, we need a better encapsulated source of randomness than "SoundService default randomBitsFromSoundInput: 512" because crypto shouldn't depend on a sound package. I don't care if something _plugs that in_, but the direct reference is suboptimal. frank

9 15

Deprecation preferences
by Frank Shearar 24 Nov '13

24 Nov '13

There are quite a few places in Kernel that reference Preferences showDeprecationWarnings. I'd like to turn this preference into a new-world pragma based preference, and Deprecation (despite being an exception) seems like a good place to hang the preference. So instead of saying "Preferences showDeprecationWarnings" you'd say "Deprecation showWarnings", and the preference would be called "Show deprecation warnings". Any strong objection? frank

2 1

Startling new idea!
by Frank Shearar 24 Nov '13

24 Nov '13

https://thestrangeloop.com/sessions/this-is-your-workflow-on-catnip "Once you get used to working with a REPL, it hurts to go back to the old write-compile-restart cycle of less fortunate languages. But the REPL can only take you so far; even if you add tools like Firebug to inspect and manipulate your application's state, for all practical purposes the REPL is really just a glorified debugger. "But suppose you could go further? Suppose that instead of just that command prompt, you could have your whole IDE embedded in your runtime environment?" HMMM. That sounds a bit familiar. frank

3 2

Re: [squeak-dev] The Trunk: System-fbs.621.mcz
by Frank Shearar 24 Nov '13

24 Nov '13

On 24 November 2013 12:51, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-fbs.621.mcz > > ==================== Summary ==================== This is probably because source.squeak.org is a little busy: I got socket errors on uploading, so repeated the request. Apparently the errors happened after the mcz made it to source.squeak.org? I hope so, at any rate. For extra oddness points, the debugger closed by itself, so I can't say what the exact nature of the error was. frank

2 1

The Trunk: System-fbs.621.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.621.mcz ==================== Summary ==================== Name: System-fbs.621 Author: fbs Time: 24 November 2013, 12:46:55.775 pm UUID: e2fe5f86-8d22-f843-af93-4a2bfb9aec7c Ancestors: System-fbs.620 Move LRUCache from System to Collections, because that's a more sensible home. This also has the nice property that it breaks the Balloon->System dependency. =============== Diff against System-fbs.620 =============== Item was removed: - Object subclass: #LRUCache - instanceVariableNames: 'size factory calls hits values' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! - - !LRUCache commentStamp: '<historical>' prior: 0! - I'm a cache of values, given a key I return a Value from the cache or from the factory! Item was removed: - ----- Method: LRUCache class>>size:factory: (in category 'instance creation') ----- - size: aNumber factory: aBlock - "answer an instance of the receiver" - ^ self new initializeSize: aNumber factory: aBlock! Item was removed: - ----- Method: LRUCache class>>test (in category 'testing') ----- - test - " - LRUCache test - " - | c | - c := LRUCache - size: 5 - factory: [:key | key * 2]. - c at: 1. - c at: 2. - c at: 3. - c at: 4. - c at: 1. - c at: 5. - c at: 6. - c at: 7. - c at: 8. - c at: 1. - ^ c! Item was removed: - ----- Method: LRUCache class>>test2 (in category 'testing') ----- - test2 - " - LRUCache test2. - Time millisecondsToRun:[LRUCache test2]. - MessageTally spyOn:[LRUCache test2]. - " - | c | - c := LRUCache - size: 600 - factory: [:key | key * 2]. - 1 - to: 6000 - do: [:each | c at: each]. - ^ c! Item was removed: - ----- Method: LRUCache>>at: (in category 'accessing') ----- - at: aKey - "answer the object for aKey, if not present in the cache creates it" - | element keyHash | - calls := calls + 1. - keyHash := aKey hash. - 1 - to: size - do: [:index | - element := values at: index. - (keyHash - = (element at: 2) - and: [aKey - = (element at: 1)]) - ifTrue: ["Found!!" - hits := hits + 1. - values - replaceFrom: 2 - to: index - with: (values first: index - 1). - values at: 1 put: element. - ^ element at: 3]]. - "Not found!!" - element := {aKey. keyHash. factory value: aKey}. - values - replaceFrom: 2 - to: size - with: values allButLast. - values at: 1 put: element. - ^ element at: 3! Item was removed: - ----- Method: LRUCache>>initializeSize:factory: (in category 'initialization') ----- - initializeSize: aNumber factory: aBlock - "initialize the receiver's size and factory" - size := aNumber. - values := Array new: aNumber withAll: {nil. nil. nil}. - factory := aBlock. - calls := 0. - hits := 0! Item was removed: - ----- Method: LRUCache>>printOn: (in category 'printing') ----- - printOn: aStream - "Append to the argument, aStream, a sequence of characters - that identifies the receiver." - aStream nextPutAll: self class name; - nextPutAll: ' size:'; - nextPutAll: size asString; - nextPutAll: ', calls:'; - nextPutAll: calls asString; - nextPutAll: ', hits:'; - nextPutAll: hits asString; - nextPutAll: ', ratio:'; - nextPutAll: ((hits isNumber and: [calls isNumber and: [calls ~= 0]]) - ifTrue: [hits / calls] - ifFalse: [0]) asFloat asString!

1 0

The Trunk: System-fbs.621.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

1 0

The Trunk: Collections-fbs.544.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.544.mcz ==================== Summary ==================== Name: Collections-fbs.544 Author: fbs Time: 24 November 2013, 12:47:44.329 pm UUID: 15771139-bae8-3347-8d63-a02d324e1e48 Ancestors: Collections-nice.543 Move LRUCache from System to Collections, because that's a more sensible home. This also has the nice property that it breaks the Balloon->System dependency. =============== Diff against Collections-nice.543 =============== Item was changed: SystemOrganization addCategory: #'Collections-Abstract'! SystemOrganization addCategory: #'Collections-Arrayed'! + SystemOrganization addCategory: #'Collections-Cache'! SystemOrganization addCategory: #'Collections-Exceptions'! SystemOrganization addCategory: #'Collections-Sequenceable'! SystemOrganization addCategory: #'Collections-Stack'! SystemOrganization addCategory: #'Collections-Streams'! SystemOrganization addCategory: #'Collections-Strings'! SystemOrganization addCategory: #'Collections-Support'! SystemOrganization addCategory: #'Collections-Text'! SystemOrganization addCategory: #'Collections-Unordered'! SystemOrganization addCategory: #'Collections-Weak'! Item was added: + Object subclass: #LRUCache + instanceVariableNames: 'size factory calls hits values' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Cache'! + + !LRUCache commentStamp: '<historical>' prior: 0! + I'm a cache of values, given a key I return a Value from the cache or from the factory! Item was added: + ----- Method: LRUCache class>>size:factory: (in category 'instance creation') ----- + size: aNumber factory: aBlock + "answer an instance of the receiver" + ^ self new initializeSize: aNumber factory: aBlock! Item was added: + ----- Method: LRUCache class>>test (in category 'testing') ----- + test + " + LRUCache test + " + | c | + c := LRUCache + size: 5 + factory: [:key | key * 2]. + c at: 1. + c at: 2. + c at: 3. + c at: 4. + c at: 1. + c at: 5. + c at: 6. + c at: 7. + c at: 8. + c at: 1. + ^ c! Item was added: + ----- Method: LRUCache class>>test2 (in category 'testing') ----- + test2 + " + LRUCache test2. + Time millisecondsToRun:[LRUCache test2]. + MessageTally spyOn:[LRUCache test2]. + " + | c | + c := LRUCache + size: 600 + factory: [:key | key * 2]. + 1 + to: 6000 + do: [:each | c at: each]. + ^ c! Item was added: + ----- Method: LRUCache>>at: (in category 'accessing') ----- + at: aKey + "answer the object for aKey, if not present in the cache creates it" + | element keyHash | + calls := calls + 1. + keyHash := aKey hash. + 1 + to: size + do: [:index | + element := values at: index. + (keyHash + = (element at: 2) + and: [aKey + = (element at: 1)]) + ifTrue: ["Found!!" + hits := hits + 1. + values + replaceFrom: 2 + to: index + with: (values first: index - 1). + values at: 1 put: element. + ^ element at: 3]]. + "Not found!!" + element := {aKey. keyHash. factory value: aKey}. + values + replaceFrom: 2 + to: size + with: values allButLast. + values at: 1 put: element. + ^ element at: 3! Item was added: + ----- Method: LRUCache>>initializeSize:factory: (in category 'initialization') ----- + initializeSize: aNumber factory: aBlock + "initialize the receiver's size and factory" + size := aNumber. + values := Array new: aNumber withAll: {nil. nil. nil}. + factory := aBlock. + calls := 0. + hits := 0! Item was added: + ----- Method: LRUCache>>printOn: (in category 'printing') ----- + printOn: aStream + "Append to the argument, aStream, a sequence of characters + that identifies the receiver." + aStream nextPutAll: self class name; + nextPutAll: ' size:'; + nextPutAll: size asString; + nextPutAll: ', calls:'; + nextPutAll: calls asString; + nextPutAll: ', hits:'; + nextPutAll: hits asString; + nextPutAll: ', ratio:'; + nextPutAll: ((hits isNumber and: [calls isNumber and: [calls ~= 0]]) + ifTrue: [hits / calls] + ifFalse: [0]) asFloat asString!

1 0

The Trunk: Tests-fbs.267.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.267.mcz ==================== Summary ==================== Name: Tests-fbs.267 Author: fbs Time: 24 November 2013, 12:47:14.073 pm UUID: b0bcd815-669d-3442-be10-a12c57c18878 Ancestors: Tests-ul.266 Move LRUCache from System to Collections, because that's a more sensible home. This also has the nice property that it breaks the Balloon->System dependency. =============== Diff against Tests-ul.266 =============== Item was changed: ----- Method: PackageDependencyTest>>testBalloon (in category 'tests') ----- testBalloon self testPackage: 'Balloon' dependsExactlyOn: #( + Kernel Collections Graphics - Kernel Collections Graphics System ).!

1 0

Re: [squeak-dev] The Trunk: Tests-ul.266.mcz
by Frank Shearar 24 Nov '13

24 Nov '13

On 23 November 2013 21:37, <commits(a)source.squeak.org> wrote: > Levente Uzonyi uploaded a new version of Tests to project The Trunk: > http://source.squeak.org/trunk/Tests-ul.266.mcz > > ==================== Summary ==================== > > Name: Tests-ul.266 > Author: ul > Time: 23 November 2013, 10:36:52.89 pm > UUID: 0f5d7f00-fd03-4fe5-b3bc-06637786db7a > Ancestors: Tests-fbs.265 > > - use #, for concatenation > > =============== Diff against Tests-fbs.265 =============== > > Item was changed: > ----- Method: TestValueWithinFix>>testValueWithinTimingRepeat (in category 'tests') ----- > testValueWithinTimingRepeat > "Test timing of valueWithin:onTimeout:" > | time | > time := [ > 3 timesRepeat: [ > [500 milliSeconds asDelay wait] > valueWithin: 100 milliSeconds onTimeout: []] > ] durationToRun. > > + self assert: time < 350 milliSeconds description: 'Took ', time printString.! > - self assert: time < 350 milliSeconds description: 'Took ' + time printString.! Thanks, Levente! That was a silly mistake on my part. frank

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
23
Older →

Jump to page: