Squeak-dev June 2019

squeak-dev@lists.squeakfoundation.org

40 participants
97 discussions

Observer pattern implementations
by Brenda Larcom 21 Jun '19

21 Jun '19

I am reviving some old code that relied heavily on Lukas Renggli's implementation of Announcements (many thanks to Lukas). Announcements still loads in Squeak 5.2, but it is marked as no longer maintained on Lukas' site and I cannot find a repository for it anywhere else, which makes me nervous. Since I am reworking my code, now is the time for me to switch if I'm going to. I searched for alternatives in the Squeak release, in SqueakMap, on the Squeak wiki, and via DuckDuckGo using these search terms: Observer Dependent (& variations) Publish-Subscribe (& variations) Callback Event Dispatch Self-Addressed Stamped Envelope (& variations) I have identified the following generalized options in this space: Object dependencies (update, changed) - in stock image Object events (when:send:to:, trigger:) - in stock image Renditions of VisualWorks' Announcements (events are objects) by Lukas Renggli based on Colin Putney's code from OmniBrowser & Vassili Bykov's blog post - not in SqueakMap; loads in 5.2 & passes its tests; as of 2009, Pharo intended to standardize on this implementation, and they have some (extended) Announcements framework in their stock image now AXAnnouncements by Levente Uzonyi and Kósi Balázs - not in SqueakMap; loads in 5.2 & has one warning about a deprecated message in its tests; ported from VW, so maybe there are Cincom copyright issues Signals (callbacks with constraints for usability) by Marcus Taeumel - in SqueakMap on the Web, but not in the catalog seen by SqueakMap Package Loader in 5.2; loads in 5.2 & fails one test Bindings by Tobias Pape (this link doesn't work on Chrome on OS X Mojave; looks like maybe a two-way registration for mutual change updates) - not on SqueakMap; loads in 5.2 but fails its tests Visual Smalltalk Events by Tim Jones (looks like a precursor to or alternative implementation of the Object events that are now in the default image) - in Goodies rather than SqueakMap; does not load in 5.2 Wandering Announcements by Keith Hodges (an extension to Lukas' Announcements that looks around nearby parts of a model to locate an object to handle an announcement) - not on SqueakMap; couldn't locate code PostOffice by Peter Smet (looks like an alternative implementation of the Object events that are now in the default image) - not on SqueakMap; couldn't locate code And for completeness, I also found other packages that implement [parts of] this pattern, but are specific to a particular domain that doesn't help me: Morphic event handling, for handling user interface events OmniBrowser (now deprecated), for internal OmniBrowser events, MQTT client, for subscribing to updates published by IoT devices MVC, for user interfaces I have questions: Are these all the generalized options for the Observer pattern and the relatives I listed as search terms? Is there anywhere else I should look? Did I describe each option correctly? Does anyone know of a public URL for any of the options whose source or documentation I couldn't find? Are any of these options, to anyone's knowledge, being actively maintained? Is the Squeak community planning to standardize on any of the generalized options? In the absence of additional information, I am leaning towards sticking with Lukas' Announcements, because of the performance comparison chart on the Signals page (which I am assuming is approximately applicable to Lukas' Announcements as well as AXAnnouncements) and Pharo's standardization decision. Is there any reason that is not on the Signals comparision chart for me to prefer some other package? Before you ask, yes, I would definitely like to help the next person by updating the Squeak wiki so that it is easier to find and pick from these alternatives, creating a SqueakMap entry and ConfigurationOf for at least the one I choose, et cetera. I'll post a [DOCS] thread with my specific proposed wiki changes after I get feedback on the accuracy of the data above. Thank you for reading, and for any assistance you can provide! -- Bren

6 7

The Trunk: Installer-Core-mt.433.mcz
by commits＠source.squeak.org 21 Jun '19

21 Jun '19

Marcel Taeumel uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-mt.433.mcz ==================== Summary ==================== Name: Installer-Core-mt.433 Author: mt Time: 21 June 2019, 2:48:37.485774 pm UUID: a6e2501c-d477-814a-802e-d2eeacb08b6b Ancestors: Installer-Core-fn.432 Fixes bug in Metacello update code in Installer. Only occurred when calling #ensureRecentMetacello in an image that has Metacello installed already. =============== Diff against Installer-Core-fn.432 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ "Prepare a clean environment for it." Smalltalk globals removeKey: #Metacello. "Get the Metacello configuration (for Squeak users)" Installer gemsource project: 'metacello'; addPackage: 'ConfigurationOfMetacello'; install. "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version" ((Smalltalk classNamed: #ConfigurationOfMetacello) project + version: #'previewBootstrap') load]. - version: #'previewBootstrap') load. + metacello := Smalltalk classNamed: #Metacello. - metacello := Smalltalk classNamed: #Metacello ]. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get. metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; load: #('default' 'Metacello-Help'). !

1 0

The Trunk: System-ek.1062.mcz
by commits＠source.squeak.org 19 Jun '19

19 Jun '19

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ek.1062.mcz ==================== Summary ==================== Name: System-ek.1062 Author: ek Time: 19 June 2019, 3:38:42.256201 pm UUID: 4643bcbc-558c-4ef7-a550-2aa42261cb50 Ancestors: System-cmm.1061 Rename "sons" to "children" in MessageTally The rename is to make the terminology consistent with the common naming of tree items (i.e. parent and child). In MessageTally>>tallyPath:by: and >>tallyPath:in:by: the comments also already use "child". The current naming caused some confusion with our bachelor student teams. =============== Diff against System-cmm.1061 =============== Item was added: + ----- Method: MessageTally>>childrenOver: (in category 'comparing') ----- + childrenOver: threshold + + | hereTally last children | + receivers basicSize = 0 ifTrue: [^#()]. + hereTally := tally. + children := receivers select: "subtract subNode tallies for primitive hits here" + [:child | + hereTally := hereTally - child tally. + child tally > threshold]. + hereTally > threshold ifTrue: + [last := MessageTally new class: class method: method nesting: blockNesting. + last process: process. + last reportOtherProcesses: reportOtherProcesses. + ^children copyWith: (last primitives: hereTally)]. + ^children! Item was changed: ----- Method: MessageTally>>leavesInto:fromSender: (in category 'collecting leaves') ----- leavesInto: leafDict fromSender: senderTally | rcvrs | + rcvrs := self childrenOver: 0. - rcvrs := self sonsOver: 0. rcvrs size = 0 ifTrue: [ self into: leafDict fromSender: senderTally ] ifFalse: [ (reportOtherProcesses not and: [ rcvrs anyOne process isNil ]) ifTrue: [ ^self]. rcvrs do: [ :node | node isPrimitives ifTrue: [ node leavesInto: leafDict fromSender: senderTally ] ifFalse: [ node leavesInto: leafDict fromSender: self ]]]! Item was changed: ----- Method: MessageTally>>rootPrintOn:total:totalTime:threshold: (in category 'printing') ----- rootPrintOn: aStream total: total totalTime: totalTime threshold: threshold + | groups children | + children := self childrenOver: threshold. + groups := children groupBy: [ :aTally | aTally process ]. - | groups sons | - sons := self sonsOver: threshold. - groups := sons groupBy: [ :aTally | aTally process ]. groups keysAndValuesDo: [ :p :g | (reportOtherProcesses or: [ p notNil ]) ifTrue: [ aStream nextPutAll: '--------------------------------'; cr. aStream nextPutAll: 'Process: ', (p ifNil: [ 'other processes'] ifNotNil: [ p browserPrintString]); cr. aStream nextPutAll: '--------------------------------'; cr. + g sort do:[:aChild | + aChild - g sort do:[:aSon | - aSon treePrintOn: aStream tabs: OrderedCollection new thisTab: '' total: total totalTime: totalTime tallyExact: false orThreshold: threshold]]. ]! Item was removed: - ----- Method: MessageTally>>sonsOver: (in category 'comparing') ----- - sonsOver: threshold - - | hereTally last sons | - receivers basicSize = 0 ifTrue: [^#()]. - hereTally := tally. - sons := receivers select: "subtract subNode tallies for primitive hits here" - [:son | - hereTally := hereTally - son tally. - son tally > threshold]. - hereTally > threshold ifTrue: - [last := MessageTally new class: class method: method nesting: blockNesting. - last process: process. - last reportOtherProcesses: reportOtherProcesses. - ^sons copyWith: (last primitives: hereTally)]. - ^sons! Item was changed: ----- Method: MessageTally>>treePrintOn:tabs:thisTab:total:totalTime:tallyExact:orThreshold: (in category 'printing') ----- treePrintOn: aStream tabs: tabs thisTab: myTab total: total totalTime: totalTime tallyExact: isExact orThreshold: threshold + | children | - | sons | tabs do: [:tab | aStream nextPutAll: tab]. tabs size > 0 ifTrue: [self printOn: aStream total: total totalTime: totalTime tallyExact: isExact]. + children := isExact ifTrue: [receivers] ifFalse: [self childrenOver: threshold]. + children isEmpty - sons := isExact ifTrue: [receivers] ifFalse: [self sonsOver: threshold]. - sons isEmpty ifFalse: [tabs addLast: myTab. + children sort. + 1 to: children size do: [ :i | + | childTab | + childTab := i < children size ifTrue: [' |'] ifFalse: [' ']. + (children at: i) - sons sort. - 1 to: sons size do: [ :i | - | sonTab | - sonTab := i < sons size ifTrue: [' |'] ifFalse: [' ']. - (sons at: i) treePrintOn: aStream tabs: (tabs size < self maxTabs ifTrue: [tabs] ifFalse: [(tabs select: [:x | x = '[']) copyWith: '[']) + thisTab: childTab - thisTab: sonTab total: total totalTime: totalTime tallyExact: isExact orThreshold: threshold]. tabs removeLast]!

1 0

The Trunk: System-cmm.1067.mcz
by commits＠source.squeak.org 19 Jun '19

19 Jun '19

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1067.mcz ==================== Summary ==================== Name: System-cmm.1067 Author: cmm Time: 19 June 2019, 3:38:18.528122 pm UUID: fbdc8d8a-ce74-4117-9eb3-30bd8d21cc36 Ancestors: System-fn.1066, System-ek.1062 - Exception>>#printVerboseOn: belongs in this package. - Merged System-ek.1062. =============== Diff against System-fn.1066 =============== Item was added: + ----- Method: Exception>>printVerboseOn: (in category '*system') ----- + printVerboseOn: aStream + aStream + nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; + cr ; + nextPutAll: 'The time is ', DateAndTime now asString ; + cr. + "Allow applications to optionally print extra details without overriding a base package." + self printDetailsOn: aStream. + aStream + nextPutAll: self signalerContext longStack ; + cr ; + nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; + cr ; + flush! Item was added: + ----- Method: MessageTally>>childrenOver: (in category 'comparing') ----- + childrenOver: threshold + + | hereTally last children | + receivers basicSize = 0 ifTrue: [^#()]. + hereTally := tally. + children := receivers select: "subtract subNode tallies for primitive hits here" + [:child | + hereTally := hereTally - child tally. + child tally > threshold]. + hereTally > threshold ifTrue: + [last := MessageTally new class: class method: method nesting: blockNesting. + last process: process. + last reportOtherProcesses: reportOtherProcesses. + ^children copyWith: (last primitives: hereTally)]. + ^children! Item was changed: ----- Method: MessageTally>>leavesInto:fromSender: (in category 'collecting leaves') ----- leavesInto: leafDict fromSender: senderTally | rcvrs | + rcvrs := self childrenOver: 0. - rcvrs := self sonsOver: 0. rcvrs size = 0 ifTrue: [ self into: leafDict fromSender: senderTally ] ifFalse: [ (reportOtherProcesses not and: [ rcvrs anyOne process isNil ]) ifTrue: [ ^self]. rcvrs do: [ :node | node isPrimitives ifTrue: [ node leavesInto: leafDict fromSender: senderTally ] ifFalse: [ node leavesInto: leafDict fromSender: self ]]]! Item was changed: ----- Method: MessageTally>>rootPrintOn:total:totalTime:threshold: (in category 'printing') ----- rootPrintOn: aStream total: total totalTime: totalTime threshold: threshold + | groups children | + children := self childrenOver: threshold. + groups := children groupBy: [ :aTally | aTally process ]. - | groups sons | - sons := self sonsOver: threshold. - groups := sons groupBy: [ :aTally | aTally process ]. groups keysAndValuesDo: [ :p :g | (reportOtherProcesses or: [ p notNil ]) ifTrue: [ aStream nextPutAll: '--------------------------------'; cr. aStream nextPutAll: 'Process: ', (p ifNil: [ 'other processes'] ifNotNil: [ p browserPrintString]); cr. aStream nextPutAll: '--------------------------------'; cr. + g sort do:[:aChild | + aChild - g sort do:[:aSon | - aSon treePrintOn: aStream tabs: OrderedCollection new thisTab: '' total: total totalTime: totalTime tallyExact: false orThreshold: threshold]]. ]! Item was removed: - ----- Method: MessageTally>>sonsOver: (in category 'comparing') ----- - sonsOver: threshold - - | hereTally last sons | - receivers basicSize = 0 ifTrue: [^#()]. - hereTally := tally. - sons := receivers select: "subtract subNode tallies for primitive hits here" - [:son | - hereTally := hereTally - son tally. - son tally > threshold]. - hereTally > threshold ifTrue: - [last := MessageTally new class: class method: method nesting: blockNesting. - last process: process. - last reportOtherProcesses: reportOtherProcesses. - ^sons copyWith: (last primitives: hereTally)]. - ^sons! Item was changed: ----- Method: MessageTally>>treePrintOn:tabs:thisTab:total:totalTime:tallyExact:orThreshold: (in category 'printing') ----- treePrintOn: aStream tabs: tabs thisTab: myTab total: total totalTime: totalTime tallyExact: isExact orThreshold: threshold + | children | - | sons | tabs do: [:tab | aStream nextPutAll: tab]. tabs size > 0 ifTrue: [self printOn: aStream total: total totalTime: totalTime tallyExact: isExact]. + children := isExact ifTrue: [receivers] ifFalse: [self childrenOver: threshold]. + children isEmpty - sons := isExact ifTrue: [receivers] ifFalse: [self sonsOver: threshold]. - sons isEmpty ifFalse: [tabs addLast: myTab. + children sort. + 1 to: children size do: [ :i | + | childTab | + childTab := i < children size ifTrue: [' |'] ifFalse: [' ']. + (children at: i) - sons sort. - 1 to: sons size do: [ :i | - | sonTab | - sonTab := i < sons size ifTrue: [' |'] ifFalse: [' ']. - (sons at: i) treePrintOn: aStream tabs: (tabs size < self maxTabs ifTrue: [tabs] ifFalse: [(tabs select: [:x | x = '[']) copyWith: '[']) + thisTab: childTab - thisTab: sonTab total: total totalTime: totalTime tallyExact: isExact orThreshold: threshold]. tabs removeLast]!

1 0

The Trunk: KernelTests-ul.366.mcz
by commits＠source.squeak.org 19 Jun '19

19 Jun '19

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.366.mcz ==================== Summary ==================== Name: KernelTests-ul.366 Author: ul Time: 19 June 2019, 5:13:59.180093 pm UUID: 1c49d964-f547-4e48-9a9d-317818c6c7d1 Ancestors: KernelTests-mt.365 - added tests for Object >> #perform:* and BlockClosure >> #value* =============== Diff against KernelTests-mt.365 =============== Item was added: + ----- Method: BlockClosureTest>>testValue (in category 'tests - evaluating') ----- + testValue + + "#value" + self + assert: nil equals: [ ] value; + assert: 1 equals: [ 1 ] value; + should: [ [ :a | ] value ] raise: Error. + + "#value:" + self + assert: nil equals: ([ :a | ] value: 1); + assert: 1 equals: ([ :a | a ] value: 1); + should: [ [ ] value: 1 ] raise: Error; + should: [ [ :a :b | ] value: 1 ] raise: Error! Item was added: + ----- Method: BlockClosureTest>>testValueValue (in category 'tests - evaluating') ----- + testValueValue + + self + assert: nil equals: ([ :a :b | ] value: 1 value: 2); + assert: 1 equals: ([ :a :b | a ] value: 1 value: 2); + assert: 2 equals: ([ :a :b | b ] value: 1 value: 2); + should: [ [ ] value: 1 value: 2 ] raise: Error; + should: [ [ :a | ] value: 1 value: 2 ] raise: Error; + should: [ [ :a :b :c | ] value: 1 value: 2 ] raise: Error! Item was added: + ----- Method: BlockClosureTest>>testValueValueValue (in category 'tests - evaluating') ----- + testValueValueValue + + self + assert: nil equals: ([ :a :b :c | ] value: 1 value: 2 value: 3); + assert: 1 equals: ([ :a :b :c | a ] value: 1 value: 2 value: 3); + assert: 2 equals: ([ :a :b :c | b ] value: 1 value: 2 value: 3); + assert: 3 equals: ([ :a :b :c | c ] value: 1 value: 2 value: 3); + should: [ [ ] value: 1 value: 2 value: 3 ] raise: Error; + should: [ [ :a | ] value: 1 value: 2 value: 3 ] raise: Error; + should: [ [ :a :b | ] value: 1 value: 2 value: 3 ] raise: Error; + should: [ [ :a :b :c :d | ] value: 1 value: 2 value: 3 ] raise: Error! Item was added: + ----- Method: BlockClosureTest>>testValueValueValueValue (in category 'tests - evaluating') ----- + testValueValueValueValue + + self + assert: nil equals: ([ :a :b :c :d | ] value: 1 value: 2 value: 3 value: 4); + assert: 1 equals: ([ :a :b :c :d | a ] value: 1 value: 2 value: 3 value: 4); + assert: 2 equals: ([ :a :b :c :d | b ] value: 1 value: 2 value: 3 value: 4); + assert: 3 equals: ([ :a :b :c :d | c ] value: 1 value: 2 value: 3 value: 4); + assert: 4 equals: ([ :a :b :c :d | d ] value: 1 value: 2 value: 3 value: 4); + should: [ [ ] value: 1 value: 2 value: 3 value: 4 ] raise: Error; + should: [ [ :a | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error; + should: [ [ :a :b | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error; + should: [ [ :a :b :c | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error; + should: [ [ :a :b :c :d :e | ] value: 1 value: 2 value: 3 value: 4 ] raise: Error! Item was added: + ----- Method: BlockClosureTest>>testValueValueValueValueValue (in category 'tests - evaluating') ----- + testValueValueValueValueValue + + self + assert: nil equals: ([ :a :b :c :d :e | ] value: 1 value: 2 value: 3 value: 4 value: 5); + assert: 1 equals: ([ :a :b :c :d :e | a ] value: 1 value: 2 value: 3 value: 4 value: 5); + assert: 2 equals: ([ :a :b :c :d :e | b ] value: 1 value: 2 value: 3 value: 4 value: 5); + assert: 3 equals: ([ :a :b :c :d :e | c ] value: 1 value: 2 value: 3 value: 4 value: 5); + assert: 4 equals: ([ :a :b :c :d :e | d ] value: 1 value: 2 value: 3 value: 4 value: 5); + assert: 5 equals: ([ :a :b :c :d :e | e ] value: 1 value: 2 value: 3 value: 4 value: 5); + should: [ [ ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error; + should: [ [ :a | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error; + should: [ [ :a :b | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error; + should: [ [ :a :b :c | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error; + should: [ [ :a :b :c :d | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error; + should: [ [ :a :b :c :d :e :f | ] value: 1 value: 2 value: 3 value: 4 value: 5 ] raise: Error! Item was added: + ----- Method: ObjectTest>>testPerform (in category 'tests') ----- + testPerform + + | object | + object := Object new. + self assert: object equals: (object perform: #yourself). + self deny: 1 equals: (object perform: #yourself). + self assert: 4 equals: (2 perform: #squared). + self deny: 3 equals: (2 perform: #squared)! Item was added: + ----- Method: ObjectTest>>testPerformWith (in category 'tests') ----- + testPerformWith + + self assert: 7 equals: (3 perform: #+ with: 4)! Item was added: + ----- Method: ObjectTest>>testPerformWithWith (in category 'tests') ----- + testPerformWithWith + + | receiver | + receiver := [ :a :b | { a. b } ]. + self assert: #(1 2) equals: (receiver perform: #value:value: with: 1 with: 2)! Item was added: + ----- Method: ObjectTest>>testPerformWithWithWith (in category 'tests') ----- + testPerformWithWithWith + + | receiver | + receiver := [ :a :b :c | { a. b. c } ]. + self assert: #(1 2 3) equals: (receiver perform: #value:value:value: with: 1 with: 2 with: 3)! Item was added: + ----- Method: ObjectTest>>testPerformWithWithWithWith (in category 'tests') ----- + testPerformWithWithWithWith + + | receiver | + receiver := [ :a :b :c :d | { a. b. c. d } ]. + self assert: #(1 2 3 4) equals: (receiver perform: #value:value:value:value: with: 1 with: 2 with: 3 with: 4)! Item was added: + ----- Method: ObjectTest>>testPerformWithWithWithWithWith (in category 'tests') ----- + testPerformWithWithWithWithWith + + | receiver | + receiver := [ :a :b :c :d :e | { a. b. c. d. e } ]. + self assert: #(1 2 3 4 5) equals: (receiver perform: #value:value:value:value:value: with: 1 with: 2 with: 3 with: 4 with: 5)!

1 0

The Trunk: Kernel-ul.1241.mcz
by commits＠source.squeak.org 19 Jun '19

19 Jun '19

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1241.mcz ==================== Summary ==================== Name: Kernel-ul.1241 Author: ul Time: 19 June 2019, 4:35:56.986493 pm UUID: 630a46a4-296a-4e1c-9976-535b317e9d8c Ancestors: Kernel-mt.1240 - added missing Object >> #perform:with:with:with:with:with: based on primitive 83 - added missing implementation of #value:value:value:value:value: based on primitives 205, 207 and 83 - MessageSend >> #value:value:value:value: uses #perform:with:with:with:with: =============== Diff against Kernel-mt.1240 =============== Item was added: + ----- Method: BlockClosure>>value:value:value:value:value: (in category 'evaluating') ----- + value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg + "Activate the receiver, creating a closure activation (Context) + whose closure is the receiver and whose caller is the sender of this + message. Supply the arguments and copied values to the activation + as its arguments and copied temps. Primitive. Essential." + <primitive: 205> + | newContext | + numArgs ~= 5 ifTrue: + [self numArgsError: 5]. + false + ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." + [newContext := self asContextWithSender: thisContext sender. + newContext at: 1 put: firstArg. + newContext at: 2 put: secondArg. + newContext at: 3 put: thirdArg. + newContext at: 4 put: fourthArg. + newContext at: 5 put: fifthArg. + thisContext privSender: newContext] + ifFalse: [self primitiveFailed]! Item was added: + ----- Method: FullBlockClosure>>value:value:value:value:value: (in category 'evaluating') ----- + value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg + "Activate the receiver, creating a closure activation (MethodContext) + whose closure is the receiver and whose caller is the sender of this + message. Supply the arguments and copied values to the activation + as its arguments and copied temps. Primitive. Essential." + <primitive: 207> + | newContext | + numArgs ~= 5 ifTrue: + [self numArgsError: 5]. + false + ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." + [newContext := self asContextWithSender: thisContext sender. + newContext at: 1 put: firstArg. + newContext at: 2 put: secondArg. + newContext at: 3 put: thirdArg. + newContext at: 4 put: fourthArg. + newContext at: 5 put: fifthArg. + thisContext privSender: newContext] + ifFalse: [self primitiveFailed]! Item was changed: ----- Method: MessageSend>>value:value:value:value: (in category 'evaluating') ----- value: firstArg value: secondArg value: thirdArg value: fourthArg "Send the message with these arguments and answer the return value" + ^receiver perform: selector with: firstArg with: secondArg with: thirdArg with: fourthArg! - ^receiver perform: selector withArguments: { firstArg. secondArg. thirdArg. fourthArg }! Item was added: + ----- Method: MessageSend>>value:value:value:value:value: (in category 'evaluating') ----- + value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg + "Send the message with these arguments and answer the return value" + + ^receiver perform: selector with: firstArg with: secondArg with: thirdArg with: fourthArg with: fifthArg! Item was added: + ----- Method: Object>>perform:with:with:with:with:with: (in category 'message handling') ----- + perform: aSymbol with: firstObject with: secondObject with: thirdObject with: fourthObject with: fifthObject + "Send the selector, aSymbol, to the receiver with the given arguments. + Fail if the number of arguments expected by the selector is not four. + Primitive. Optional. See Object documentation whatIsAPrimitive." + + <primitive: 83> + ^ self perform: aSymbol withArguments: { firstObject. secondObject. thirdObject. fourthObject. fifthObject }!

1 0

The Inbox: System-ek.1062.mcz
by commits＠source.squeak.org 19 Jun '19

19 Jun '19

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ek.1062.mcz ==================== Summary ==================== Name: System-ek.1062 Author: ek Time: 19 June 2019, 3:38:42.256201 pm UUID: 4643bcbc-558c-4ef7-a550-2aa42261cb50 Ancestors: System-cmm.1061 Rename "sons" to "children" in MessageTally The rename is to make the terminology consistent with the common naming of tree items (i.e. parent and child). In MessageTally>>tallyPath:by: and >>tallyPath:in:by: the comments also already use "child". The current naming caused some confusion with our bachelor student teams. =============== Diff against System-cmm.1061 =============== Item was added: + ----- Method: MessageTally>>childrenOver: (in category 'comparing') ----- + childrenOver: threshold + + | hereTally last children | + receivers basicSize = 0 ifTrue: [^#()]. + hereTally := tally. + children := receivers select: "subtract subNode tallies for primitive hits here" + [:child | + hereTally := hereTally - child tally. + child tally > threshold]. + hereTally > threshold ifTrue: + [last := MessageTally new class: class method: method nesting: blockNesting. + last process: process. + last reportOtherProcesses: reportOtherProcesses. + ^children copyWith: (last primitives: hereTally)]. + ^children! Item was changed: ----- Method: MessageTally>>leavesInto:fromSender: (in category 'collecting leaves') ----- leavesInto: leafDict fromSender: senderTally | rcvrs | + rcvrs := self childrenOver: 0. - rcvrs := self sonsOver: 0. rcvrs size = 0 ifTrue: [ self into: leafDict fromSender: senderTally ] ifFalse: [ (reportOtherProcesses not and: [ rcvrs anyOne process isNil ]) ifTrue: [ ^self]. rcvrs do: [ :node | node isPrimitives ifTrue: [ node leavesInto: leafDict fromSender: senderTally ] ifFalse: [ node leavesInto: leafDict fromSender: self ]]]! Item was changed: ----- Method: MessageTally>>rootPrintOn:total:totalTime:threshold: (in category 'printing') ----- rootPrintOn: aStream total: total totalTime: totalTime threshold: threshold + | groups children | + children := self childrenOver: threshold. + groups := children groupBy: [ :aTally | aTally process ]. - | groups sons | - sons := self sonsOver: threshold. - groups := sons groupBy: [ :aTally | aTally process ]. groups keysAndValuesDo: [ :p :g | (reportOtherProcesses or: [ p notNil ]) ifTrue: [ aStream nextPutAll: '--------------------------------'; cr. aStream nextPutAll: 'Process: ', (p ifNil: [ 'other processes'] ifNotNil: [ p browserPrintString]); cr. aStream nextPutAll: '--------------------------------'; cr. + g sort do:[:aChild | + aChild - g sort do:[:aSon | - aSon treePrintOn: aStream tabs: OrderedCollection new thisTab: '' total: total totalTime: totalTime tallyExact: false orThreshold: threshold]]. ]! Item was removed: - ----- Method: MessageTally>>sonsOver: (in category 'comparing') ----- - sonsOver: threshold - - | hereTally last sons | - receivers basicSize = 0 ifTrue: [^#()]. - hereTally := tally. - sons := receivers select: "subtract subNode tallies for primitive hits here" - [:son | - hereTally := hereTally - son tally. - son tally > threshold]. - hereTally > threshold ifTrue: - [last := MessageTally new class: class method: method nesting: blockNesting. - last process: process. - last reportOtherProcesses: reportOtherProcesses. - ^sons copyWith: (last primitives: hereTally)]. - ^sons! Item was changed: ----- Method: MessageTally>>treePrintOn:tabs:thisTab:total:totalTime:tallyExact:orThreshold: (in category 'printing') ----- treePrintOn: aStream tabs: tabs thisTab: myTab total: total totalTime: totalTime tallyExact: isExact orThreshold: threshold + | children | - | sons | tabs do: [:tab | aStream nextPutAll: tab]. tabs size > 0 ifTrue: [self printOn: aStream total: total totalTime: totalTime tallyExact: isExact]. + children := isExact ifTrue: [receivers] ifFalse: [self childrenOver: threshold]. + children isEmpty - sons := isExact ifTrue: [receivers] ifFalse: [self sonsOver: threshold]. - sons isEmpty ifFalse: [tabs addLast: myTab. + children sort. + 1 to: children size do: [ :i | + | childTab | + childTab := i < children size ifTrue: [' |'] ifFalse: [' ']. + (children at: i) - sons sort. - 1 to: sons size do: [ :i | - | sonTab | - sonTab := i < sons size ifTrue: [' |'] ifFalse: [' ']. - (sons at: i) treePrintOn: aStream tabs: (tabs size < self maxTabs ifTrue: [tabs] ifFalse: [(tabs select: [:x | x = '[']) copyWith: '[']) + thisTab: childTab - thisTab: sonTab total: total totalTime: totalTime tallyExact: isExact orThreshold: threshold]. tabs removeLast]!

1 0

The Inbox: Compiler-ct.404.mcz
by commits＠source.squeak.org 18 Jun '19

18 Jun '19

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-ct.404.mcz ==================== Summary ==================== Name: Compiler-ct.404 Author: ct Time: 17 June 2019, 10:51:02.869037 pm UUID: 19e019f5-3ff6-0143-926d-e29c155cc4be Ancestors: Compiler-eem.403 Fix a defect in Parser>>#parseCue:noPattern:ifFail: Full failure case description: Run the following statement: Compiler evaluate: '''''''' In the appearing error window, enter any valid smalltalk expression and save it. Before loading this commit, it will give you a NonBooleanError as doItFlag was set too late (and so was not passed to SyntaxErrorNotification). =============== Diff against Compiler-eem.403 =============== Item was changed: ----- Method: Parser>>parseCue:noPattern:ifFail: (in category 'public access') ----- parseCue: aCue noPattern: noPattern ifFail: aBlock "Answer a MethodNode for the argument, sourceStream, that is the root of a parse tree. Parsing is done with respect to the CompilationCue to resolve variables. Errors in parsing are reported to the cue's requestor; otherwise aBlock is evaluated. The argument noPattern is a Boolean that is true if the the sourceStream does not contain a method header (i.e., for DoIts)." | methNode repeatNeeded myStream s p subSelection | myStream := aCue sourceStream. [repeatNeeded := false. p := myStream position. s := myStream upToEnd. myStream position: p. + doitFlag := noPattern. self encoder init: aCue notifying: self. self init: myStream cue: aCue failBlock: [^ aBlock value]. subSelection := self interactive and: [cue requestor selectionInterval = (p + 1 to: p + s size)]. - doitFlag := noPattern. failBlock:= aBlock. [methNode := self method: noPattern context: cue context] on: ReparseAfterSourceEditing do: [ :ex | repeatNeeded := true. properties := nil. "Avoid accumulating pragmas and primitives Number" myStream := ex newSource ifNil: [subSelection ifTrue: [ReadStream on: cue requestor text string from: cue requestor selectionInterval first to: cue requestor selectionInterval last] ifFalse: [ReadStream on: cue requestor text string]] ifNotNil: [:src | myStream := src readStream]]. repeatNeeded] whileTrue: [encoder := self encoder class new]. methNode sourceText: s. ^methNode !

4 5

#asOctetString Bug?
by patrick.rein＠hpi.uni-potsdam.de 17 Jun '19

17 Jun '19

Hi everyone, while working on parsing network data I tried to use asOctetString and noticed that it did not yield a ByteString when called on a WideString. Is this the intendended behavior? I would have expected a behavior similar to the one I documented in the test case below. If not I think that the problem simply originates from using #at: which is overridden by WideString. Bests, Patrick testAsOctetStringFromWideString | rawStringOctet wideStringAsOctet wideString | rawStringOctet := #[103 114 252 223 101 "The character 16r1fA02 starts here" 0 1 250 2]. wideString := 'grüße' , (String value: 16r1FA02). wideStringAsOctet := wideString asOctetString asByteArray. self assert: rawStringOctet equals: wideStringAsOctet.

3 2

MPLR 2019 - Second Call for Papers
by Emilio Coppa 15 Jun '19

15 Jun '19

(Apologies if you receive multiple copies of this CFP) ============================================= MPLR 2019 16th International Conference on Managed Programming Languages & Runtimes Co-located with SPLASH 2019 Athens, Greece, Oct 20-25, 2019 https://conf.researchr.org/home/mplr-2019 ============================================= The 16th International Conference on Managed Programming Languages & Runtimes (MPLR, formerly ManLang) is a premier forum for presenting and discussing novel results in all aspects of managed programming languages and runtime systems, which serve as building blocks for some of the most important computing systems around, ranging from small-scale (embedded and real-time systems) to large-scale (cloud-computing and big-data platforms) and anything in between (mobile, IoT, and wearable applications). This year, MPLR is co-located with SPLASH 2019 and sponsored by ACM. For more information, check out the conference website: https://conf.researchr.org/home/mplr-2019 # Topics Topics of interest include but are not limited to: * Languages and Compilers - Managed languages (e.g., Java, Scala, JavaScript, Python, Ruby, C#, F#, Clojure, Groovy, Kotlin, R, Smalltalk, Racket, Rust, Go, etc.) - Domain-specific languages - Language design - Compilers and interpreters - Type systems and program logics - Language interoperability - Parallelism, distribution, and concurrency * Virtual Machines - Managed runtime systems (e.g., JVM, Dalvik VM, Android Runtime (ART), LLVM, .NET CLR, RPython, etc.) - VM design and optimization - VMs for mobile and embedded devices - VMs for real-time applications - Memory management - Hardware/software co-design * Techniques, Tools, and Applications - Static and dynamic program analysis - Testing and debugging - Refactoring - Program understanding - Program synthesis - Security and privacy - Performance analysis and monitoring - Compiler and program verification # Submission Categories MPLR accepts four types of submissions: 1. Regular research papers, which describe novel contributions involving managed language platforms (up to 12 pages excluding bibliography and appendix). Research papers will be evaluated based on their relevance, novelty, technical rigor, and contribution to the state-of-the-art. 2. Work-in-progress research papers, which describe promising new ideas but yet have less maturity than full papers (up to 6 pages excluding bibliography and appendix). When evaluating work-in-progress papers, more emphasis will be placed on novelty and the potential of the new ideas than on technical rigor and experimental results. 3. Industry and tool papers, which present technical challenges and solutions for managed language platforms in the context of deployed applications and systems (up to 6 pages excluding bibliography and appendix). Industry and tool papers will be evaluated on their relevance, usefulness, and results. Suitability for demonstration and availability will also be considered for tool papers. 4. Posters, which can be accompanied by a one-page abstract and will be evaluated on similar criteria as Work-in-progress papers. Posters can accompany any submission as a way to provide additional demonstration and discussion opportunities. MPLR 2019 submissions must conform to the ACM Policy on Prior Publication and Simultaneous Submissions and to the SIGPLAN Republication Policy. # Important Dates and Organization Submission Deadline: ***Jul 8, 2019*** Author Notification: Aug 24, 2019 Camera Ready: Sep 12, 2019 Conference Dates: Oct 20-25, 2019 General Chair: Tony Hosking, Australian National University / Data61, Australia Program Chair: Irene Finocchi, Sapienza University of Rome, Italy Program Committee: * Edd Barrett, King's College London, United Kingdom * Steve Blackburn, Australian National University, Australia * Lubomir Bulej, Charles University, Czech Republic * Shigeru Chiba, University of Tokyo, Japan * Daniele Cono D'Elia, Sapienza University of Rome, Italy * Ana Lucia de Moura, Pontifical Catholic University of Rio de Janeiro, Brazil * Erik Ernst, Google, Denmark * Matthew Hertz, University at Buffalo, United States * Vivek Kumar, Indraprastha Institute of Information Technology, Delhi * Doug Lea, State University of New York (SUNY) Oswego, United States * Magnus Madsen, Aarhus University, Denmark * Hidehiko Masuhara, Tokyo Institute of Technology, Japan * Ana Milanova, Rensselaer Polytechnic Institute, United States * Matthew Parkinson, Microsoft Research, United Kingdom * Gregor Richards, University of Waterloo, Canada * Manuel Rigger, ETH Zurich, Switzerland * Andrea Rosa, University of Lugano, Switzerland * Guido Salvaneschi, TU Darmstadt, Germany * Lukas Stadler, Oracle Labs, Austria * Ben L. Titzer, Google, Germany

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →