Squeak-dev December 2016

squeak-dev@lists.squeakfoundation.org

39 participants
137 discussions

Errored: squeak-smalltalk/squeak-app#309 (master - 87356bd)
by Travis CI 16 Dec '16

16 Dec '16

Build Update for squeak-smalltalk/squeak-app ------------------------------------- Build: #309 Status: Errored Duration: 27 minutes and 5 seconds Commit: 87356bd (master) Author: Fabio Niephaus Message: Exclude SqueakSSLTest View the changeset: https://github.com/squeak-smalltalk/squeak-app/compare/867efa13c3594f99e9ed… View the full build log and details: https://travis-ci.org/squeak-smalltalk/squeak-app/builds/184557738 -- You can configure recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications

1 0

Errored: squeak-smalltalk/squeak-app#309 (master - 87356bd)
by Travis CI 16 Dec '16

16 Dec '16

1 0

Re: [squeak-dev] version 118
by Robert Withers 15 Dec '16

15 Dec '16

sorry, I forgot again. here is a link: https://www.dropbox.com/s/z1ajc9k825a47cx/Whisper.118.zip?dl=0 On 12/15/2016 2:54 AM, Robert Withers wrote: > Here is an update. gracias >

1 1

Re: [squeak-dev] wwwhisper
by Robert Withers 15 Dec '16

15 Dec '16

I have no idea if that's true, I like to dream and I am just glad it is here. happy holidays. On 12/14/2016 6:46 PM, Robert Withers wrote: > here's a good step I think it settled well. encoders are next. I > haven't got any java left . Merry Christmas! Here's the profile. AS > fast as bitblt are you serious? > > ____ > > - 27380 tallies, 28129 msec. > > **Tree** > -------------------------------- > Process: (40s) 95416: nil > -------------------------------- > 13.6% {3815ms} MessageTally class>>spyOn:reportOtherProcesses: > 13.6% {3815ms} MessageTally>>spyEvery:on: > 13.6% {3815ms} BlockClosure>>ensure: > 13.6% {3815ms} [] TestRunner>>runProfiled > 13.6% {3815ms} TestRunner>>runAll > 13.6% {3814ms} TestRunner>>runSuite: > 13.6% {3814ms} TestRunner>>basicRunSuite:do: > 13.6% {3814ms} BlockClosure>>ensure: > 13.6% {3814ms} [] TestRunner>>basicRunSuite:do: > 13.6% {3814ms} > OrderedCollection(Collection)>>do:displayingProgress:every: > 13.6% {3814ms} > ByteString(String)>>displayProgressFrom:to:during: > 13.6% {3814ms} > ByteString(String)>>displayProgressAt:from:to:during: > 13.6% {3814ms} ProgressInitiationException > class>>display:at:from:to:during: > 13.6% {3814ms} > ProgressInitiationException>>display:at:from:to:during: > 13.6% {3814ms} > ProgressInitiationException(Exception)>>signal > 13.6% {3814ms} > MethodContext(ContextPart)>>handleSignal: > 13.6% {3814ms} > UndefinedObject>>handleSignal: > 13.6% {3814ms} > ProgressInitiationException>>defaultAction > 13.6% {3814ms} > ProgressInitiationException(Exception)>>resume > 13.6% {3814ms} > ProgressInitiationException>>defaultResumeValue > 13.6% {3814ms} > MorphicUIManager>>displayProgress:at:from:to:during: > 13.6% {3813ms} > BlockClosure>>ensure: > 13.6% {3813ms} [] > MorphicUIManager>>displayProgress:at:from:to:during: > 13.6% {3811ms} > BlockClosure>>on:do: > 13.6% {3811ms} [[]] > MorphicUIManager>>displayProgress:at:from:to:during: > 13.6% {3811ms} [] > OrderedCollection(Collection)>>do:displayingProgress:every: > 13.6% {3811ms} > OrderedCollection>>do: > 13.6% {3811ms} > [[]] OrderedCollection(Collection)>>do:displayingProgress:every: > 13.2% {3719ms} > [] TestRunner>>runSuite: > 13.2% > {3719ms} TestRunner>>runTest: > 13.2% > {3718ms} MoreDataTestCase(TestCase)>>run: > 13.2% {3718ms} TestResult>>runCase: > 13.2% {3718ms} BlockClosure>>on:do: > 13.2% {3718ms} [] TestResult>>runCase: > 13.2% {3718ms} BlockClosure>>on:do: > 13.2% {3718ms} [[]] TestResult>>runCase: > 13.2% {3718ms} MoreDataTestCase(TestCase)>>runCase > 13.2% {3718ms} BlockClosure>>ensure: > 13.2% {3718ms} [] MoreDataTestCase(TestCase)>>runCase > 12.7% {3583ms} MoreDataTestCase(TestCase)>>timeout:after: > 12.7% {3582ms} BlockClosure>>ensure: > 12.7% {3582ms} [] MoreDataTestCase(TestCase)>>timeout:after: > 12.7% {3582ms} BlockClosure>>on:do: > 12.7% {3582ms} [[]] MoreDataTestCase(TestCase)>>runCase > 12.7% {3580ms} MoreDataTestCase(TestCase)>>performTest > 1.3% {366ms} MoreDataTestCase>>testDoubleDataDBL_AESede > 1.3% {366ms} ConnectTestCase>>testConnect > 1.3% {365ms} MoreDataTestCase>>testDoubleData > 1.3% {364ms} DataTestCase>>testData > 1.3% {358ms} SqueakJavaTestCase>>testData > 1.3% {356ms} MoreDataTestCase>>testDoubleDataNoisy > 1.3% {354ms} MoreDataTestCase>>testDoubleDataAES > 1.3% {354ms} MoreDataTestCase>>testDoubleDataDES > 1.2% {350ms} MoreDataTestCase>>testEmptyData > 1.2% {347ms} MoreDataTestCase>>testDoubleDataDESOverAESede > -------------------------------- > Process: other processes > -------------------------------- > 67.0% {18857ms} [] ProcessorScheduler class>>startUp > |67.0% {18857ms} ProcessorScheduler class>>idleProcess > 18.6% {5241ms} [] TransportEndpoint(ProtocolEndpoint)>>run > 18.6% {5241ms} TransportEndpoint(ProtocolEndpoint)>>serverLoop > 18.5% {5206ms} BlockClosure>>on:do: > 18.5% {5206ms} [] TransportEndpoint(ProtocolEndpoint)>>serverLoop > 18.2% {5120ms} FrameChunker>>upcallFrame: > 18.2% {5119ms} FrameChunker>>drainBuffer > 17.8% {5002ms} BlockClosure>>on:do: > 17.8% {5002ms} [] FrameChunker>>drainBuffer > 17.8% {5002ms} OperationProtocol>>upcallFrame: > 10.2% {2867ms} > OperationProtocol(StatefulProtocol)>>transitionEvent:with: > |10.2% {2867ms} > ProtocolStateTransition>>transitionFor:with: > | 3.8% {1080ms} OperationProtocol>>processGo: > | |1.4% {383ms} > OperationProtocol>>processDhParm:incoming: > | | |1.4% {383ms} > EncryptionSecrets>>processDhParm:incoming: > | | | 1.3% {371ms} > DiffieHellman>>receiveMessage: > | | | 1.3% {371ms} > LargePositiveInteger(Integer)>>raisedTo:modulo: > | | | 1.3% {371ms} > LargePositiveInteger(Integer)>>slidingLeftRightRaisedTo:modulo: > | | | 1.3% {368ms} > LargePositiveInteger>>\\ > | |1.1% {323ms} OperationProtocol>>dhParm > | | 1.1% {323ms} EncryptionSecrets>>dhParm > | | 1.1% {323ms} DiffieHellman>>sendMessage > | | 1.1% {323ms} > SmallInteger(Integer)>>raisedTo:modulo: > | | 1.1% {323ms} > SmallInteger(Integer)>>slidingLeftRightRaisedTo:modulo: > | | 1.1% {316ms} LargePositiveInteger>>\\ > | 3.5% {987ms} OperationProtocol>>processGoToo: > | |3.5% {976ms} > OperationProtocol>>processDhParm:incoming: > | | 3.5% {976ms} > EncryptionSecrets>>processDhParm:incoming: > | | 3.3% {942ms} DiffieHellman>>receiveMessage: > | | 3.3% {942ms} > LargePositiveInteger(Integer)>>raisedTo:modulo: > | | 3.3% {942ms} > LargePositiveInteger(Integer)>>slidingLeftRightRaisedTo:modulo: > | | 3.3% {934ms} LargePositiveInteger>>\\ > | | 2.4% {672ms} > Array(SequenceableCollection)>>first > | 2.4% {686ms} OperationProtocol>>processReplyInfo: > | 1.5% {430ms} OperationProtocol>>dhParm > | 1.5% {430ms} EncryptionSecrets>>dhParm > | 1.5% {430ms} DiffieHellman>>sendMessage > | 1.5% {430ms} > SmallInteger(Integer)>>raisedTo:modulo: > | 1.5% {430ms} > SmallInteger(Integer)>>slidingLeftRightRaisedTo:modulo: > | 1.5% {428ms} LargePositiveInteger>>\\ > | 1.1% {317ms} > Array(SequenceableCollection)>>first > 7.5% {2114ms} OperationProtocol(Object)>>etrace:msg: > 7.5% {2114ms} OperationProtocol(Object)>>etrace: > 7.5% {2114ms} > OperationProtocol(Object)>>triggerEvent:with: > 7.5% {2114ms} > OperationProtocol(Object)>>triggerEvent:withArguments: > 7.5% {2114ms} > WeakMessageSend>>valueWithArguments: > 7.5% {2114ms} > WeakMessageSend>>valueWithArguments:otherwise: > 7.5% {2114ms} > WeakMessageSend>>withEnsuredReceiverAndArgumentsDo:otherwise: > 7.5% {2114ms} [] > WeakMessageSend>>valueWithArguments:otherwise: > 7.5% {2114ms} > TraceMonitor>>handleEtrace: > 7.1% {1999ms} > TraceMonitor>>traceEventToStream: > 7.1% {1999ms} Semaphore>>critical: > 7.1% {1999ms} > BlockClosure>>ensure: > 7.1% {1999ms} [] > Semaphore>>critical: > 7.1% {1999ms} [] > TraceMonitor>>traceEventToStream: > 7.0% {1978ms} > CompositeWriteStream>>flush > 7.0% {1978ms} > Dictionary>>do: > 7.0% {1978ms} > Dictionary>>valuesDo: > 7.0% {1978ms} > Dictionary>>associationsDo: > 7.0% {1978ms} [] > Dictionary>>valuesDo: > 7.0% {1978ms} > [] CompositeWriteStream>>flush > 7.0% > {1978ms} TranscriptStream>>flush > 7.0% > {1978ms} TranscriptStream>>endEntry > 7.0% > {1978ms} Semaphore>>critical: > 7.0% {1978ms} BlockClosure>>ensure: > 7.0% {1978ms} [] Semaphore>>critical: > > 7.0% {1978ms} [] TranscriptStream>>endEntry > 7.0% {1978ms} TranscriptStream(Object)>>changed: > 7.0% {1978ms} DependentsArray>>do: > 7.0% {1977ms} [] TranscriptStream(Object)>>changed: > 7.0% {1977ms} PluggableTextMorphPlus>>update: > 7.0% {1977ms} PluggableTextMorphPlus(PluggableTextMorph)>>update: > 5.8% {1622ms} PluggableTextMorphPlus(Morph)>>refreshWorld > |5.8% {1622ms} PasteUpMorph>>displayWorldSafely > | 5.8% {1622ms} WorldState>>displayWorldSafely: > | 5.8% {1622ms} BlockClosure>>ifError: > | 5.8% {1622ms} BlockClosure>>on:do: > | 5.8% {1622ms} [] WorldState>>displayWorldSafely: > | 5.8% {1622ms} PasteUpMorph>>displayWorld > | 5.8% {1622ms} PasteUpMorph>>privateOuterDisplayWorld > | 5.8% {1622ms} WorldState>>displayWorld:submorphs: > | 5.7% {1609ms} > WorldState>>drawWorld:submorphs:invalidAreasOn: > | 5.7% {1609ms} Array(SequenceableCollection)>>do: > | 4.0% {1113ms} [] > WorldState>>drawWorld:submorphs:invalidAreasOn: > | |4.0% {1113ms} Rectangle>>allAreasOutsideList:do: > | | 4.0% {1113ms} > Rectangle>>allAreasOutsideList:startingAt:do: > | | 3.9% {1109ms} [[]] > WorldState>>drawWorld:submorphs:invalidAreasOn: > | | 3.9% {1109ms} > FormCanvas(Canvas)>>fullDrawMorph: > | | 3.9% {1109ms} > FormCanvas(Canvas)>>fullDraw: > | | 3.9% {1109ms} > PluggableSystemWindow(Morph)>>fullDrawOn: > | | 3.6% {1022ms} > PluggableSystemWindow(Morph)>>drawSubmorphsOn: > | | 3.5% {998ms} [] > PluggableSystemWindow(Morph)>>drawSubmorphsOn: > | | 3.5% {998ms} > Array(SequenceableCollection)>>reverseDo: > | | 3.5% {998ms} [[]] > PluggableSystemWindow(Morph)>>drawSubmorphsOn: > | | 3.5% {998ms} > FormCanvas(Canvas)>>fullDrawMorph: > | | 3.5% {998ms} > FormCanvas(Canvas)>>fullDraw: > | | 3.5% {998ms} > PluggableTextMorphPlus(Morph)>>fullDrawOn: > | | 2.6% {722ms} > PluggableTextMorphPlus(Morph)>>drawSubmorphsOn: > | | 2.6% {722ms} [] > PluggableTextMorphPlus(Morph)>>drawSubmorphsOn: > | | 2.6% {722ms} > Array(SequenceableCollection)>>reverseDo: > | | 2.6% {722ms} > [[]] PluggableTextMorphPlus(Morph)>>drawSubmorphsOn: > | | 2.6% {722ms} > FormCanvas(Canvas)>>fullDrawMorph: > | | 2.6% > {722ms} FormCanvas(Canvas)>>fullDraw: > | | 2.6% > {722ms} TransformMorph(Morph)>>fullDrawOn: > | | 2.4% {688ms} TransformMorph>>drawSubmorphsOn: > | | 2.4% {688ms} > FormCanvas>>transformBy:clippingTo:during:smoothing: > | | 2.4% {688ms} [] > TransformMorph>>drawSubmorphsOn: > | | 2.4% {688ms} > Array(SequenceableCollection)>>reverseDo: > | | 2.4% {688ms} [[]] > TransformMorph>>drawSubmorphsOn: > | | 2.4% {688ms} > FormCanvas(Canvas)>>fullDrawMorph: > | | 2.4% {688ms} > FormCanvas(Canvas)>>fullDraw: > | | 2.4% {688ms} > TextMorphForEditView(Morph)>>fullDrawOn: > | | 2.4% > {687ms} FormCanvas(Canvas)>>drawMorph: > | | 2.4% > {687ms} FormCanvas(Canvas)>>draw: > | | 2.4% {686ms} TextMorphForEditView(TextMorph)>>drawOn: > | | 2.4% {685ms} FormCanvas>>paragraph:bounds:color: > | | 2.4% {685ms} NewParagraph>>displayOn:using:at: > | | 2.4% {685ms} > BitBltDisplayScanner(DisplayScanner)>>displayLine:offset:leftInRun: > | | 2.3% {661ms} BitBltDisplayScanner>>displayString:from:to:at: > | | 2.3% {661ms} StrikeFont>>displayString:on:from:to:at:kern: > | | 1.3% {364ms} > GrafPort(BitBlt)>>displayString:from:to:at:strikeFont:kern: > | | |1.3% {363ms} > GrafPort(BitBlt)>>basicDisplayString:from:to:at:strikeFont:kern: > | | 1.1% {297ms} Point>>= > | 1.8% {496ms} primitives > 1.3% {354ms} PluggableTextMorphPlus(PluggableTextMorph)>>handleEdit: > > **Leaves** > 67.0% {18857ms} ProcessorScheduler class>>idleProcess > 5.4% {1505ms} Array(SequenceableCollection)>>first > 2.5% {704ms} Point>>= > 2.3% {644ms} Array(SequenceableCollection)>>do: > 2.0% {558ms} LargePositiveInteger>>\\ > 1.9% {540ms} ByteArray>>bitXor: > 1.9% {536ms} > GrafPort(BitBlt)>>basicDisplayString:from:to:at:strikeFont:kern: > 1.6% {438ms} SHA1>>finalHash > 1.4% {385ms} LargePositiveInteger(Integer)>>bitShift: > 1.4% {383ms} SHA1>>hashStream: > 1.3% {362ms} SimpleBorder>>width > > **Memory** > old +0 bytes > young +27,152 bytes > used +27,152 bytes > free -27,152 bytes > > **GCs** > full 0 totalling 0 ms (0% uptime) > incr 558 totalling 198 ms (0.7% uptime), avg 0.4 ms > tenures 11,171 (avg 0 GCs/tenure) > root table 0 overflows >

1 0

whisper next steps encoders focused
by Charlie Robbats 15 Dec '16

15 Dec '16

I appreciate any feedback. Thank you for Squeak! I am delighted, thanks to the community. So many projects in our semantic clouds. Thank you. I think it is as fast as bitblt? Thanks! Merry Christmas welcome family. https://www.dropbox.com/s/z1ajc9k825a47cx/Whisper-rww.115.zip?dl=0

1 0

The Trunk: Environments-nice.67.mcz
by commits＠source.squeak.org 14 Dec '16

14 Dec '16

Nicolas Cellier uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-nice.67.mcz ==================== Summary ==================== Name: Environments-nice.67 Author: nice Time: 14 December 2016, 8:23:09.348821 pm UUID: 0ba4d46a-6760-4902-b436-3fbb7b79a684 Ancestors: Environments-nice.66 Nuke the transition method and the transition postscript to make Undeclared Weak. =============== Diff against Environments-nice.66 =============== Item was removed: - ----- Method: Environment>>makeUndeclaredWeak (in category 'private') ----- - makeUndeclaredWeak - "This message is for transition only" - | weakUndeclared | - undeclared class = WeakIdentityDictionary ifTrue: [^self]. - weakUndeclared := WeakIdentityDictionary new: undeclared size. - weakUndeclared addAll: undeclared associations. - undeclared becomeForward: weakUndeclared! Item was removed: - (PackageInfo named: 'Environments') postscript: '"Undeclared should point weakly to its bindings - so as to reduce namespace pollution." - - Environment allInstancesDo: [:e | e makeUndeclaredWeak]. - Smalltalk garbageCollect. - '!

1 0

The Trunk: Environments-nice.66.mcz
by commits＠source.squeak.org 14 Dec '16

14 Dec '16

Nicolas Cellier uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-nice.66.mcz ==================== Summary ==================== Name: Environments-nice.66 Author: nice Time: 28 October 2016, 2:13:59.156947 pm UUID: 93464b3f-60d7-d646-96a4-c7315b2cff73 Ancestors: Environments-nice.65 Make the undeclared dictionary point weakly to its bindings so as to reduce namespace pollution and minimize the impact of yet to be solved undeclared bugs. This requires the WeakIdentityDictionary class defined in Collections-nice.723 =============== Diff against Environments-nice.65 =============== Item was changed: ----- Method: Environment>>initialize (in category 'initialize-release') ----- initialize declarations := IdentityDictionary new. bindings := IdentityDictionary new. + undeclared := WeakIdentityDictionary new. - undeclared := IdentityDictionary new. policies := Array new. observers := IdentitySet new.! Item was added: + ----- Method: Environment>>makeUndeclaredWeak (in category 'private') ----- + makeUndeclaredWeak + "This message is for transition only" + | weakUndeclared | + undeclared class = WeakIdentityDictionary ifTrue: [^self]. + weakUndeclared := WeakIdentityDictionary new: undeclared size. + weakUndeclared addAll: undeclared associations. + undeclared becomeForward: weakUndeclared! Item was changed: + (PackageInfo named: 'Environments') postscript: '"Undeclared should point weakly to its bindings + so as to reduce namespace pollution." + + Environment allInstancesDo: [:e | e makeUndeclaredWeak]. + Smalltalk garbageCollect. - (PackageInfo named: 'Environments') postscript: '"It''s impossible to import a binding if not exported. - There''s nothing secret in Smalltalk (nor private)." - Smalltalk globals exportSelf. '!

1 0

The Trunk: Collections-nice.728.mcz
by commits＠source.squeak.org 14 Dec '16

14 Dec '16

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.728.mcz ==================== Summary ==================== Name: Collections-nice.728 Author: nice Time: 14 December 2016, 8:01:20.748497 pm UUID: fcb31400-a826-4642-8ad1-83c813998ba9 Ancestors: Collections-ul.727, Collections-nice.723 Merge Collections-nice.723 (WeakIdentityDictionary) =============== Diff against Collections-ul.727 =============== Item was changed: ----- Method: IdentityDictionary>>keyAtValue:ifAbsent: (in category 'accessing') ----- keyAtValue: value ifAbsent: exceptionBlock "Answer the key that is the external name for the argument, value. If there is none, answer the result of evaluating exceptionBlock." + ^self keyAtIdentityValue: value ifAbsent: exceptionBlock! - ^super keyAtIdentityValue: value ifAbsent: exceptionBlock! Item was added: + IdentityDictionary subclass: #WeakIdentityDictionary + instanceVariableNames: 'vacuum' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Weak'! + + !WeakIdentityDictionary commentStamp: 'nice 10/27/2016 20:00' prior: 0! + I am a WeakIdentityDictionary, that is a dictionary pointing weakly to its associations of key->value pairs. + I am especially usefull for handling undeclared bindings that will be naturally garbage collected without having to scan all the CompiledMethods. + + Instance variables: + vacuum <Object> a unique object used for marking empty slots + + Due to usage of WeakArray for my own storage, reclaimed slots will be nilled out. + I cannot consider a nil slot as empty because of garbage collection does not fix collisions. + Thus I need to differentiate empty slots (vacuum) from garbaged collected slots (nil). + + If I did not reclaim the nil slots and make them vacuum again, then my capacity would grow indefinitely. + My strategy to avoid such growth is to randomly cleanup the garbage collected slot encountered when scanning for a key. + It should mitigate the growth since this method is used when adding a new entry. + + Due to those not yet cleaned-up nil slots I might over-estimate my size. Don't take it too literally.! Item was added: + ----- Method: WeakIdentityDictionary class>>arrayType (in category 'private') ----- + arrayType + ^ WeakArray! Item was added: + ----- Method: WeakIdentityDictionary>>add: (in category 'accessing') ----- + add: anAssociation + + | index | + index := self scanFor: anAssociation key. + (array at: index) + ifNil: [ self atNewIndex: index put: anAssociation ] + ifNotNil: [ :element | + element == vacuum + ifTrue: [ self atNewIndex: index put: anAssociation ] + ifFalse: [ element value: anAssociation value ] ]. + ^anAssociation! Item was added: + ----- Method: WeakIdentityDictionary>>associationAt:ifAbsent: (in category 'accessing') ----- + associationAt: key ifAbsent: aBlock + "Answer the association with the given key. + If key is not found, return the result of evaluating aBlock." + + ^((array at: (self scanFor: key)) + ifNil: [ aBlock value ] + ifNotNil: [:association | + association == vacuum + ifTrue: [ aBlock value ] + ifFalse: [ association ] ])! Item was added: + ----- Method: WeakIdentityDictionary>>associationsDo: (in category 'enumerating') ----- + associationsDo: aBlock + "Evaluate aBlock for each of the receiver's elements (key/value + associations)." + + tally = 0 ifTrue: [ ^self]. + 1 to: array size do: [ :index | + (array at: index) ifNotNil: [ :element | + element == vacuum ifFalse: [ aBlock value: element ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>at:ifAbsent: (in category 'accessing') ----- + at: key ifAbsent: aBlock + "Answer the value associated with the key or, if key isn't found, + answer the result of evaluating aBlock." + + ^((array at: (self scanFor: key)) + ifNil: [ aBlock ] + ifNotNil: [:association | + association == vacuum + ifTrue: [ aBlock ] + ifFalse: [ association ] ]) value "Blocks and Associations expect #value"! Item was added: + ----- Method: WeakIdentityDictionary>>at:ifPresent:ifAbsentPut: (in category 'accessing') ----- + at: key ifPresent: oneArgBlock ifAbsentPut: absentBlock + "Lookup the given key in the receiver. If it is present, answer the value of + evaluating oneArgBlock with the value associated with the key. Otherwise + add the value of absentBlock under the key, and answer that value." + + | index value | + index := self scanFor: key. + (array at: index) ifNotNil: + [:element| + element == vacuum ifFalse: [^oneArgBlock value: element value] ]. + value := absentBlock value. + self atNewIndex: index put: (self associationClass key: key value: value). + ^value! Item was added: + ----- Method: WeakIdentityDictionary>>at:put: (in category 'accessing') ----- + at: key put: anObject + "Set the value at key to be anObject. If key is not found, create a + new entry for key and set is value to anObject. Answer anObject." + + | index | + index := self scanFor: key. + (array at: index) + ifNil: + ["it's possible to get here if the association just died" + self atNewIndex: index put: (self associationClass key: key value: anObject) ] + ifNotNil: [ :association | + association == vacuum + ifTrue: [ self atNewIndex: index put: (self associationClass key: key value: anObject) ] + ifFalse: [association value: anObject ] ]. + ^anObject! Item was added: + ----- Method: WeakIdentityDictionary>>cleanupIndex: (in category 'private') ----- + cleanupIndex: anInteger + array at: anInteger put: vacuum. + tally := tally - 1. + self fixCollisionsFrom: anInteger.! Item was added: + ----- Method: WeakIdentityDictionary>>fixCollisionsFrom: (in category 'private') ----- + fixCollisionsFrom: start + "The element at start has been removed and replaced by vacuum. + This method moves forward from there, relocating any entries + that had been placed below due to collisions with this one." + + | element index | + index := start. + [ (element := array at: (index := index \\ array size + 1)) == vacuum ] whileFalse: [ + element + ifNil: + [ "The binding at this slot was reclaimed - finish the cleanup" + array at: index put: vacuum. + tally := tally - 1 ] + ifNotNil: + [| newIndex | + (newIndex := self scanWithoutGarbagingFor: element key) = index ifFalse: [ + array + at: newIndex put: element; + at: index put: vacuum ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>growTo: (in category 'private') ----- + growTo: anInteger + "Grow the elements array and reinsert the old elements" + + | oldElements | + oldElements := array. + array := self class arrayType new: anInteger withAll: vacuum. + self noCheckNoGrowFillFrom: oldElements! Item was added: + ----- Method: WeakIdentityDictionary>>includesKey: (in category 'testing') ----- + includesKey: key + "Answer whether the receiver has a key equal to the argument, key." + + ^(array at: (self scanFor: key)) + ifNil: + ["it just has been reclaimed" + false] + ifNotNil: [:element | element ~~ vacuum]! Item was added: + ----- Method: WeakIdentityDictionary>>initialize: (in category 'private') ----- + initialize: n + vacuum := Object new. + array := self class arrayType new: n withAll: vacuum. + tally := 0! Item was added: + ----- Method: WeakIdentityDictionary>>noCheckNoGrowFillFrom: (in category 'private') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + 1 to: anArray size do: [ :index | + (anArray at: index) ifNotNil: [ :association | + association == vacuum + ifFalse: [array + at: (self scanForEmptySlotFor: association key) + put: association ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>postCopy (in category 'copying') ----- + postCopy + "Beware: do share the bindings, so changing a binding value in the copy will also change it in the original. + Copying the bindings would not make sense: we hold weakly on them, so they would die at first garbage collection." + + | oldVacuum | + super postCopy. + oldVacuum := vacuum. + vacuum := Object new. + array := array collect: [ :association | + association ifNotNil: [ + association == oldVacuum + ifTrue: [ vacuum ] + ifFalse: [ association ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>removeKey:ifAbsent: (in category 'removing') ----- + removeKey: key ifAbsent: aBlock + "Remove key (and its associated value) from the receiver. If key is not in + the receiver, answer the result of evaluating aBlock. Otherwise, answer + the value externally named by key." + + | index association | + index := self scanFor: key. + (association := (array at: index)) == vacuum ifTrue: [ ^aBlock value ]. + self cleanupIndex: index. + ^association value! Item was added: + ----- Method: WeakIdentityDictionary>>scanFor: (in category 'private') ----- + scanFor: anObject + "Scan the array for the first slot containing either + - a vacuum object indicating an empty slot + - or a binding whose key matches anObject. + Answer the index of that slot or raise an error if no slot is found. + When garbage collected slots are encountered, perform a clean-up." + + | index start rescan | + [ + rescan := false. + index := start := anObject scaledIdentityHash \\ array size + 1. + [ + (array at: index) + ifNil: + ["Object at this slot has been garbage collected. + A rescan is necessary because fixing collisions + might have moved the target before current index." + self cleanupIndex: index. + rescan := true] + ifNotNil: + [:element | (element == vacuum or: [ element key == anObject ]) + ifTrue: [ ^index ]. + (index := index \\ array size + 1) = start ] ] whileFalse. + rescan ] whileTrue. + self errorNoFreeSpace! Item was added: + ----- Method: WeakIdentityDictionary>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the array for the first empty slot marked by vacuum object. + Answer the index of that slot or raise an error if no slot is found. + Ignore the slots that have been garbage collected (those containing nil)." + + | index start | + index := start := anObject scaledIdentityHash \\ array size + 1. + [ + (array at: index) + ifNotNil: + [:element | element == vacuum ifTrue: [ ^index ] ]. + (index := index \\ array size + 1) = start ] whileFalse. + self errorNoFreeSpace! Item was added: + ----- Method: WeakIdentityDictionary>>scanWithoutGarbagingFor: (in category 'private') ----- + scanWithoutGarbagingFor: anObject + "Scan the array for the first slot containing either + - a vacuum object indicating an empty slot + - or a binding whose key matches anObject. + Answer the index of that slot or raise an error if no slot is found. + Ignore the slots that have been garbage collected (those containing nil)" + + | index start | + index := start := anObject scaledIdentityHash \\ array size + 1. + [ + (array at: index) + ifNotNil: + [:element | (element == vacuum or: [ element key == anObject ]) + ifTrue: [ ^index ] ]. + (index := index \\ array size + 1) = start ] whileFalse. + self errorNoFreeSpace! Item was changed: + ----- Method: WeakSet class>>arrayType (in category 'private') ----- - ----- Method: WeakSet class>>arrayType (in category 'as yet unclassified') ----- arrayType ^WeakArray!

1 0

The Trunk: Collections-nice.723.mcz
by commits＠source.squeak.org 14 Dec '16

14 Dec '16

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.723.mcz ==================== Summary ==================== Name: Collections-nice.723 Author: nice Time: 27 October 2016, 8:04:09.437881 pm UUID: 0c01b091-06e9-694d-9415-56c62c06babc Ancestors: Collections-nice.722 Provide a WeakIdentityDictionary - a good candidate for being used as environments undeclared pool. =============== Diff against Collections-nice.722 =============== Item was changed: ----- Method: IdentityDictionary>>keyAtValue:ifAbsent: (in category 'accessing') ----- keyAtValue: value ifAbsent: exceptionBlock "Answer the key that is the external name for the argument, value. If there is none, answer the result of evaluating exceptionBlock." + ^self keyAtIdentityValue: value ifAbsent: exceptionBlock! - ^super keyAtIdentityValue: value ifAbsent: exceptionBlock! Item was added: + IdentityDictionary subclass: #WeakIdentityDictionary + instanceVariableNames: 'vacuum' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Weak'! + + !WeakIdentityDictionary commentStamp: 'nice 10/27/2016 20:00' prior: 0! + I am a WeakIdentityDictionary, that is a dictionary pointing weakly to its associations of key->value pairs. + I am especially usefull for handling undeclared bindings that will be naturally garbage collected without having to scan all the CompiledMethods. + + Instance variables: + vacuum <Object> a unique object used for marking empty slots + + Due to usage of WeakArray for my own storage, reclaimed slots will be nilled out. + I cannot consider a nil slot as empty because of garbage collection does not fix collisions. + Thus I need to differentiate empty slots (vacuum) from garbaged collected slots (nil). + + If I did not reclaim the nil slots and make them vacuum again, then my capacity would grow indefinitely. + My strategy to avoid such growth is to randomly cleanup the garbage collected slot encountered when scanning for a key. + It should mitigate the growth since this method is used when adding a new entry. + + Due to those not yet cleaned-up nil slots I might over-estimate my size. Don't take it too literally.! Item was added: + ----- Method: WeakIdentityDictionary class>>arrayType (in category 'private') ----- + arrayType + ^ WeakArray! Item was added: + ----- Method: WeakIdentityDictionary>>add: (in category 'accessing') ----- + add: anAssociation + + | index | + index := self scanFor: anAssociation key. + (array at: index) + ifNil: [ self atNewIndex: index put: anAssociation ] + ifNotNil: [ :element | + element == vacuum + ifTrue: [ self atNewIndex: index put: anAssociation ] + ifFalse: [ element value: anAssociation value ] ]. + ^anAssociation! Item was added: + ----- Method: WeakIdentityDictionary>>associationAt:ifAbsent: (in category 'accessing') ----- + associationAt: key ifAbsent: aBlock + "Answer the association with the given key. + If key is not found, return the result of evaluating aBlock." + + ^((array at: (self scanFor: key)) + ifNil: [ aBlock value ] + ifNotNil: [:association | + association == vacuum + ifTrue: [ aBlock value ] + ifFalse: [ association ] ])! Item was added: + ----- Method: WeakIdentityDictionary>>associationsDo: (in category 'enumerating') ----- + associationsDo: aBlock + "Evaluate aBlock for each of the receiver's elements (key/value + associations)." + + tally = 0 ifTrue: [ ^self]. + 1 to: array size do: [ :index | + (array at: index) ifNotNil: [ :element | + element == vacuum ifFalse: [ aBlock value: element ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>at:ifAbsent: (in category 'accessing') ----- + at: key ifAbsent: aBlock + "Answer the value associated with the key or, if key isn't found, + answer the result of evaluating aBlock." + + ^((array at: (self scanFor: key)) + ifNil: [ aBlock ] + ifNotNil: [:association | + association == vacuum + ifTrue: [ aBlock ] + ifFalse: [ association ] ]) value "Blocks and Associations expect #value"! Item was added: + ----- Method: WeakIdentityDictionary>>at:ifPresent:ifAbsentPut: (in category 'accessing') ----- + at: key ifPresent: oneArgBlock ifAbsentPut: absentBlock + "Lookup the given key in the receiver. If it is present, answer the value of + evaluating oneArgBlock with the value associated with the key. Otherwise + add the value of absentBlock under the key, and answer that value." + + | index value | + index := self scanFor: key. + (array at: index) ifNotNil: + [:element| + element == vacuum ifFalse: [^oneArgBlock value: element value] ]. + value := absentBlock value. + self atNewIndex: index put: (self associationClass key: key value: value). + ^value! Item was added: + ----- Method: WeakIdentityDictionary>>at:put: (in category 'accessing') ----- + at: key put: anObject + "Set the value at key to be anObject. If key is not found, create a + new entry for key and set is value to anObject. Answer anObject." + + | index | + index := self scanFor: key. + (array at: index) + ifNil: + ["it's possible to get here if the association just died" + self atNewIndex: index put: (self associationClass key: key value: anObject) ] + ifNotNil: [ :association | + association == vacuum + ifTrue: [ self atNewIndex: index put: (self associationClass key: key value: anObject) ] + ifFalse: [association value: anObject ] ]. + ^anObject! Item was added: + ----- Method: WeakIdentityDictionary>>cleanupIndex: (in category 'private') ----- + cleanupIndex: anInteger + array at: anInteger put: vacuum. + tally := tally - 1. + self fixCollisionsFrom: anInteger.! Item was added: + ----- Method: WeakIdentityDictionary>>fixCollisionsFrom: (in category 'private') ----- + fixCollisionsFrom: start + "The element at start has been removed and replaced by vacuum. + This method moves forward from there, relocating any entries + that had been placed below due to collisions with this one." + + | element index | + index := start. + [ (element := array at: (index := index \\ array size + 1)) == vacuum ] whileFalse: [ + element + ifNil: + [ "The binding at this slot was reclaimed - finish the cleanup" + array at: index put: vacuum. + tally := tally - 1 ] + ifNotNil: + [| newIndex | + (newIndex := self scanWithoutGarbagingFor: element key) = index ifFalse: [ + array + at: newIndex put: element; + at: index put: vacuum ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>growTo: (in category 'private') ----- + growTo: anInteger + "Grow the elements array and reinsert the old elements" + + | oldElements | + oldElements := array. + array := self class arrayType new: anInteger withAll: vacuum. + self noCheckNoGrowFillFrom: oldElements! Item was added: + ----- Method: WeakIdentityDictionary>>includesKey: (in category 'testing') ----- + includesKey: key + "Answer whether the receiver has a key equal to the argument, key." + + ^(array at: (self scanFor: key)) + ifNil: + ["it just has been reclaimed" + false] + ifNotNil: [:element | element ~~ vacuum]! Item was added: + ----- Method: WeakIdentityDictionary>>initialize: (in category 'private') ----- + initialize: n + vacuum := Object new. + array := self class arrayType new: n withAll: vacuum. + tally := 0! Item was added: + ----- Method: WeakIdentityDictionary>>noCheckNoGrowFillFrom: (in category 'private') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + 1 to: anArray size do: [ :index | + (anArray at: index) ifNotNil: [ :association | + association == vacuum + ifFalse: [array + at: (self scanForEmptySlotFor: association key) + put: association ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>postCopy (in category 'copying') ----- + postCopy + "Beware: do share the bindings, so changing a binding value in the copy will also change it in the original. + Copying the bindings would not make sense: we hold weakly on them, so they would die at first garbage collection." + + | oldVacuum | + super postCopy. + oldVacuum := vacuum. + vacuum := Object new. + array := array collect: [ :association | + association ifNotNil: [ + association == oldVacuum + ifTrue: [ vacuum ] + ifFalse: [ association ] ] ]! Item was added: + ----- Method: WeakIdentityDictionary>>removeKey:ifAbsent: (in category 'removing') ----- + removeKey: key ifAbsent: aBlock + "Remove key (and its associated value) from the receiver. If key is not in + the receiver, answer the result of evaluating aBlock. Otherwise, answer + the value externally named by key." + + | index association | + index := self scanFor: key. + (association := (array at: index)) == vacuum ifTrue: [ ^aBlock value ]. + self cleanupIndex: index. + ^association value! Item was added: + ----- Method: WeakIdentityDictionary>>scanFor: (in category 'private') ----- + scanFor: anObject + "Scan the array for the first slot containing either + - a vacuum object indicating an empty slot + - or a binding whose key matches anObject. + Answer the index of that slot or raise an error if no slot is found. + When garbage collected slots are encountered, perform a clean-up." + + | index start rescan | + [ + rescan := false. + index := start := anObject scaledIdentityHash \\ array size + 1. + [ + (array at: index) + ifNil: + ["Object at this slot has been garbage collected. + A rescan is necessary because fixing collisions + might have moved the target before current index." + self cleanupIndex: index. + rescan := true] + ifNotNil: + [:element | (element == vacuum or: [ element key == anObject ]) + ifTrue: [ ^index ]. + (index := index \\ array size + 1) = start ] ] whileFalse. + rescan ] whileTrue. + self errorNoFreeSpace! Item was added: + ----- Method: WeakIdentityDictionary>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the array for the first empty slot marked by vacuum object. + Answer the index of that slot or raise an error if no slot is found. + Ignore the slots that have been garbage collected (those containing nil)." + + | index start | + index := start := anObject scaledIdentityHash \\ array size + 1. + [ + (array at: index) + ifNotNil: + [:element | element == vacuum ifTrue: [ ^index ] ]. + (index := index \\ array size + 1) = start ] whileFalse. + self errorNoFreeSpace! Item was added: + ----- Method: WeakIdentityDictionary>>scanWithoutGarbagingFor: (in category 'private') ----- + scanWithoutGarbagingFor: anObject + "Scan the array for the first slot containing either + - a vacuum object indicating an empty slot + - or a binding whose key matches anObject. + Answer the index of that slot or raise an error if no slot is found. + Ignore the slots that have been garbage collected (those containing nil)" + + | index start | + index := start := anObject scaledIdentityHash \\ array size + 1. + [ + (array at: index) + ifNotNil: + [:element | (element == vacuum or: [ element key == anObject ]) + ifTrue: [ ^index ] ]. + (index := index \\ array size + 1) = start ] whileFalse. + self errorNoFreeSpace! Item was changed: + ----- Method: WeakSet class>>arrayType (in category 'private') ----- - ----- Method: WeakSet class>>arrayType (in category 'as yet unclassified') ----- arrayType ^WeakArray!

1 0

Re: [squeak-dev] Snowglobe and Tether (was "WebAssembly" on vm-dev)
by Craig Latta 13 Dec '16

13 Dec '16

(Followups to squeak-dev, please.) Hi all-- Ben writes: > It would be amazing to run Cog in a web browser, and thus facilitate > all our favourite Smalltalk dialects. Until WebAssembly has the stack introspection that Clément mentioned, I think the in-browser remote display of Snowglobe[1] would be a good alternative. Even after that, there are good use cases, just like there are uses for VNC, etc. Snowglobe does that sort of screen-sharing in a more convenient way ("just visit a webpage"), and supports distributed computation. The user could approve a JavaScript bridge between the remote app and their web browser, in addition to traditional remote Smalltalk messaging. Even just having a web browser as a launcher for local Cog systems is useful (similar to the launchers of Parallels, VMWare, Kitematic for Docker, EC2, Cloud9, etc. etc.), and it can be a convenient UI medium too. > Side thought: Craig's work to incrementally download a running image > could be useful to reducing web page startup time. Ooh, I'm not sure I did what you think I did... Tell me more about that feature! :) So far there's still a point where an entire snapshot has to transmit, but you can keep using the app remotely in the meantime. In many scenarios you just don't notice the download and subsequent switch to local native Squeak. > Hard to find info on Snowglobe. Only 4 million results to compete > with. When I add "smalltalk" or "squeak", I get [1] within the first five hits on Google and DuckDuckGo ("snowglobe smalltalk" is first on Google). Is that good enough? Speaking of Squeak, Snowglobe isn't limited to that. It just needs WebSockets support, which is in all the Smalltalks and web browsers now. > I tried the demo. http://blackpagedigital.com/snowglobe > Pretty impressive. Thanks! > The world menu is a bit sluggish for a few seconds to pop up each > time... Hm, I just played with it from Europe and it seemed fine. (There are two Snowglobe app servers at the moment, in California and Germany. Amazon's DNS chooses the one with the least latency for you.) I had to restart the California server. What's your region? Like all app streaming systems, performance is sensitive to end-to-end network latency. For some lag-intolerant things, like displaying the normal mouse cursor as you move it around, the local SqueakJS takes over. It looks like I should do the initial display of some of the menus similarly. > ...but menu item highlighting is instantaneous, as is editing in the > system Browser. However mouse point is off by about 15mm at 7o'clock > position. Platform is 32-bit Linux Chrome Version > 48.0.2564.116. (I guess any further discussion on this would be > better on squeak-dev) Ah, that bug's new to me. Yes, let's move discussion of that to squeak-dev. For direct contact I'm on the Squeak Slack channels[2], Twitter (@ccrraaiigg), Skype, etc. etc. I think Slack would be best for getting a live group chat going. > ...reading about "live serialization" the term "serialivation" pops > in mind. Hm, that could lead to libation or Live Nation, or even Disassociated Press[3]. (Search engines are going to love this message.) Phil writes: > Snowglobe is nice indeed. But still slow on this monster of a machine > of mine. Hm, I suspect either the local SqueakJS didn't actually connect to an app server, and you were just observing local SqueakJS UI performance, or there was severe network latency somewhere between you and the servers. I'd be happy to look at it with you. > There is also this: http://blackpagedigital.com/tether > > UI page appears dead though. Oops, some stale links under the hood on that page. Anyway, that demo is superceded by the content at [4], which is what you get when you visit /tether now, too. Thanks for checking it out! -C [1] https://thiscontext.com/2016/10/31/app-streaming-with-snowglobe [2] http://squeak.slack.com [3] https://en.wikipedia.org/wiki/Dissociated_press [4] http://blackpagedigital.com/squeak -- Craig Latta Black Page Digital Amsterdam | San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

3 3

← Newer
1
...
6
7
8
9
10
11
12
13
14
Older →

Jump to page: