Packages June 2019

packages@lists.squeakfoundation.org

1 participants
21 discussions

The Trunk: 60Deprecated-mt.37.mcz
by commits＠source.squeak.org 26 Jun '19

26 Jun '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.37.mcz ==================== Summary ==================== Name: 60Deprecated-mt.37 Author: mt Time: 26 June 2019, 8:26:22.60291 am UUID: a30ee295-983b-4040-adba-07c7f46e86d0 Ancestors: 60Deprecated-mt.36 Re-adds and deprecates #sonsOver:, which got lost in System-ek.1062. =============== Diff against 60Deprecated-mt.36 =============== Item was added: + ----- Method: MessageTally>>sonsOver: (in category '*60Deprecated-comparing') ----- + sonsOver: threshold + + self deprecated: 'Use #childrenOver: instead.'. + ^ self childrenOver: threshold!

1 0

The Trunk: Tools-eem.850.mcz
by commits＠source.squeak.org 26 Jun '19

26 Jun '19

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.850.mcz ==================== Summary ==================== Name: Tools-eem.850 Author: eem Time: 25 June 2019, 5:18:05.566171 pm UUID: b7d094a0-96cf-431e-b190-f211f020265f Ancestors: Tools-mt.849 Add a 'select all before' option for the change list. Very useful in the scenario where one updates the system, saves some packages, does some work, and then gets a crash. On restart one opens the change list on recent changes. Then reload any saved packages and/or update teh system. Then locate the first change where one started working, select all changes before this, delete, and now the change list contains only one's new work. Save and then work through restoring one's changes. =============== Diff against Tools-mt.849 =============== Item was changed: ----- Method: ChangeList>>mainChangeListMenu: (in category 'menu actions') ----- mainChangeListMenu: aMenu "Fill aMenu up so that it comprises the primary changelist-browser menu" <changeListMenu> aMenu addTitle: 'change list'. aMenu addStayUpItemSpecial. aMenu addList: #( ('fileIn selections' fileInSelections 'import the selected items into the image') ('fileOut selections...' fileOutSelections 'create a new file containing the selected items') - ('compare to current' compareToCurrentVersion 'open a separate window which shows the text differences between the on-file version and the in-image version.' ) ('toggle diffing (D)' toggleDiffing 'start or stop showing diffs in the code pane.') - ('select conflicts with any changeset' selectAllConflicts 'select methods in the file which also occur in any change-set in the system') ('select conflicts with current changeset' selectConflicts 'select methods in the file which also occur in the current change-set') ('select conflicts with...' selectConflictsWith 'allows you to designate a file or change-set against which to check for code conflicts.') - ('select unchanged definitions' selectUnchangedDefinitions 'select class definitions, class comments and methods in the file whose in-image versions are the same as their in-file counterparts' ) ('select unchanged methods' selectUnchangedMethods 'select methods in the file whose in-image versions are the same as their in-file counterparts' ) ('select new methods' selectNewMethods 'select methods in the file that do not current occur in the image') ('select methods for this class' selectMethodsForThisClass 'select all methods in the file that belong to the currently-selected class') ('select methods for extant classes' selectMethodsForExtantClasses 'select all methods in the file that belong to a class that exists in the image') ('select changes with contents matching' selectContentsMatching 'select all changes in the file whose text includes a pattern') - ('select all (a)' selectAll 'select all the items in the list') ('deselect all' deselectAll 'deselect all the items in the list') ('invert selections' invertSelections 'select every item that is not currently selected, and deselect every item that *is* currently selected') + ('select all before' selectAllBefore 'select every item before the current selection') - ('browse all versions of single selection' browseVersions 'open a version browser showing the versions of the currently selected method') ('browse all versions of selections' browseAllVersionsOfSelections 'open a version browser showing all the versions of all the selected methods') ('browse current versions of selections' browseCurrentVersionsOfSelections 'open a message-list browser showing the current (in-image) counterparts of the selected methods') ('destroy current methods of selections' destroyCurrentCodeOfSelections 'remove (*destroy*) the in-image counterparts of all selected methods') - ('remove doIts' removeDoIts 'remove all items that are doIts rather than methods') ('remove older versions' removeOlderMethodVersions 'remove all but the most recent versions of methods in the list') ('remove up-to-date versions' removeExistingMethodVersions 'remove all items whose code is the same as the counterpart in-image code') ('remove selected items' removeSelections 'remove the selected items from the change-list') ('remove unselected items' removeNonSelections 'remove all the items not currently selected from the change-list')). ^ aMenu ! Item was added: + ----- Method: ChangeList>>selectAllBefore (in category 'menu actions') ----- + selectAllBefore + listIndex <= 1 ifTrue: + [Project current beep. + ^self changed: #flash]. + listSelections atAll: (1 to: listIndex - 1) put: true. + self changed: #allSelections!

1 0

The Trunk: Kernel-eem.1242.mcz
by commits＠source.squeak.org 26 Jun '19

26 Jun '19

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1242.mcz ==================== Summary ==================== Name: Kernel-eem.1242 Author: eem Time: 25 June 2019, 5:14:28.553444 pm UUID: b6c4c45a-1a4d-477d-920d-82814551c862 Ancestors: Kernel-ul.1241 Fix Context>>#privRefresh: for full blocks. This bug manifests as the debugger crashing if one restarts a (full) block with any signficant complexity. Update interpretNext2ByteSistaV1Instruction:for:extA:extB:startPC: with the callMappedInlinedPrimitive: Sista bytecode. =============== Diff against Kernel-ul.1241 =============== Item was changed: ----- Method: Context>>privRefresh (in category 'initialize-release') ----- privRefresh "Reinitialize the receiver so that it is in the state it was at its creation." closureOrNil ifNotNil: + [closureOrNil isFullBlock + ifTrue: + [pc := method initialPC. + self stackp: method numTemps. + closureOrNil numArgs + closureOrNil numCopiedValues + 1 to: method numTemps do: + [:i | self tempAt: i put: nil]] + ifFalse: "In non-full blocks temps are established by push btecodes" + [pc := closureOrNil startpc. + self stackp: closureOrNil numArgs + closureOrNil numCopiedValues]. + 1 to: closureOrNil numCopiedValues do: - [pc := closureOrNil startpc. - self stackp: closureOrNil numArgs + closureOrNil numCopiedValues. - 1 to: closureOrNil numCopiedValues do: [:i | self tempAt: closureOrNil numArgs + i put: (closureOrNil at: i)]] ifNil: [pc := method initialPC. + self stackp: method numTemps. + method numArgs + 1 to: method numTemps do: - self stackp: method numTemps. - method numArgs+1 to: method numTemps do: [:i | self tempAt: i put: nil]]! Item was removed: - ----- Method: Exception>>printVerboseOn: (in category 'printing') ----- - 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 changed: ----- Method: InstructionStream>>interpretNext2ByteSistaV1Instruction:for:extA:extB:startPC: (in category 'decoding - private - sista v1') ----- interpretNext2ByteSistaV1Instruction: bytecode for: client extA: extA extB: extB startPC: startPC "Send to the argument, client, a message that specifies the next instruction. This method handles the two-byte codes. For a table of the bytecode set, see EncoderForV1's class comment." | byte method | method := self method. byte := self method at: pc. pc := pc + 1. "We do an inline quasi-binary search on bytecode" bytecode < 234 ifTrue: "pushes" [bytecode < 231 ifTrue: [bytecode < 229 ifTrue: [| literal | bytecode = 226 ifTrue: [^client pushReceiverVariable: (extA bitShift: 8) + byte]. literal := method literalAt: (extA bitShift: 8) + byte + 1. bytecode = 227 ifTrue: [^client pushLiteralVariable: literal]. ^client pushConstant: literal]. bytecode = 229 ifTrue: [^client pushTemporaryVariable: byte]. ^self unusedBytecode: client at: startPC]. bytecode = 231 ifTrue: [^byte < 128 ifTrue: [client pushNewArrayOfSize: byte] ifFalse: [client pushConsArrayWithElements: byte - 128]]. bytecode = 232 ifTrue: [^client pushConstant: ((extB < 128 ifTrue: [extB] ifFalse: [extB - 256]) bitShift: 8) + byte]. ^client pushConstant: (Character value: (extB bitShift: 8) + byte)]. bytecode < 240 ifTrue: "sends, trap and jump" [bytecode < 236 ifTrue: "sends" [(bytecode = 235 and: [extB >= 64]) ifTrue: [^client directedSuperSend: (method literalAt: (extA bitShift: 5) + (byte // 8) + 1) numArgs: (extB - 64 bitShift: 3) + (byte \\ 8)]. ^client send: (method literalAt: (extA bitShift: 5) + (byte // 8) + 1) super: bytecode = 235 numArgs: (extB bitShift: 3) + (byte \\ 8)]. bytecode = 236 ifTrue: + [^client callMappedInlinedPrimitive: byte]. - [^self unusedBytecode: client at: startPC]. "reserved for ensureAllocableSlots:" bytecode = 237 ifTrue: [^client jump: (extB bitShift: 8) + byte]. ^client jump: (extB bitShift: 8) + byte if: bytecode = 238]. bytecode < 243 ifTrue: [bytecode = 240 ifTrue: [^client popIntoReceiverVariable: (extA bitShift: 8) + byte]. bytecode = 241 ifTrue: [^client popIntoLiteralVariable: (method literalAt: (extA bitShift: 8) + byte + 1)]. ^client popIntoTemporaryVariable: byte]. bytecode = 243 ifTrue: [^client storeIntoReceiverVariable: (extA bitShift: 8) + byte]. bytecode = 244 ifTrue: [^client storeIntoLiteralVariable: (method literalAt: (extA bitShift: 8) + byte + 1)]. bytecode = 245 ifTrue: [^client storeIntoTemporaryVariable: byte]. "246-247 1111011 i xxxxxxxx UNASSIGNED" ^self unusedBytecode: client at: startPC!

1 0

The Trunk: Collections-pre.837.mcz
by commits＠source.squeak.org 24 Jun '19

24 Jun '19

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.837.mcz ==================== Summary ==================== Name: Collections-pre.837 Author: pre Time: 24 June 2019, 1:52:53.529208 pm UUID: 182f9f97-631a-064e-a5f8-c4d060b4253f Ancestors: Collections-pre.836 Extends the #asOctetString comment. =============== Diff against Collections-pre.836 =============== Item was changed: ----- Method: String>>asOctetString (in category 'converting') ----- asOctetString + "Convert the receiver into an octet string if possible. The resulting string will contain + only bytes if all characters fit into bytes. If there is any character > 255 the resulting + string will be a WideString instead." - "Convert the receiver into an octet string" | string | string := String new: self size. 1 to: self size do: [:i | string at: i put: (self at: i)]. ^string!

1 0

The Trunk: Tools-mt.849.mcz
by commits＠source.squeak.org 24 Jun '19

24 Jun '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.849.mcz ==================== Summary ==================== Name: Tools-mt.849 Author: mt Time: 24 June 2019, 8:50:48.683225 am UUID: 7766cf03-4d55-2c4d-9184-cdafee38af7a Ancestors: Tools-pre.848 Expand object dragging in ChangeSorter to make also classes and messages draggable. Does not preserve #drag: because it was added only recently. Please re-open your ChangeSorter windows. Works also in DualChangeSorter. =============== Diff against Tools-pre.848 =============== Item was changed: ----- Method: ChangeSorter>>buildWith:in:rect: (in category 'toolbuilder') ----- buildWith: builder in: window rect: rect | csListHeight msgListHeight csMsgListHeight listSpec textSpec | contents := ''. csListHeight := 0.25. msgListHeight := 0.25. csMsgListHeight := csListHeight + msgListHeight. listSpec := builder pluggableListSpec new. listSpec model: self; list: #changeSetList; getSelected: #currentCngSet; setSelected: #showChangeSetNamed:; menu: #changeSetMenu:shifted:; keyPress: #changeSetListKey:from:; + dragItem: #dragChangeSet:; - dragItem: #drag:; autoDeselect: false; frame: (((0@0 extent: 0.5@csListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. listSpec := builder pluggableListSpec new. listSpec model: self; list: #classList; getSelected: #currentClassName; setSelected: #currentClassName:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:; + dragItem: #dragClass:; frame: (((0.5@0 extent: 0.5@csListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getSelected: #currentSelector; setSelected: #currentSelector:; menu: #messageMenu:shifted:; keyPress: #messageListKey:from:; + dragItem: #dragMessage:; frame: (((0@csListHeight extent: 1@msgListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #contents; setText: #contents:notifying:; selection: #contentsSelection; menu: #codePaneMenu:shifted:; frame: (((0@csMsgListHeight corner: 1@1) scaleBy: rect extent) translateBy: rect origin). window children add: textSpec. ^window! Item was removed: - ----- Method: ChangeSorter>>drag: (in category 'dropping/grabbing') ----- - drag: anIndex - - anIndex = 0 ifTrue: [^ nil]. - ^ ChangesOrganizer changeSetNamed: (self changeSetList at: anIndex) ! Item was added: + ----- Method: ChangeSorter>>dragChangeSet: (in category 'dragging') ----- + dragChangeSet: anIndex + + anIndex = 0 ifTrue: [^ nil]. + ^ ChangesOrganizer changeSetNamed: (self changeSetList at: anIndex) ! Item was added: + ----- Method: ChangeSorter>>dragClass: (in category 'dragging') ----- + dragClass: anIndex + + anIndex = 0 ifTrue: [^ nil]. + ^ (Smalltalk classNamed: (self basicClassList at: anIndex)) classReference! Item was added: + ----- Method: ChangeSorter>>dragMessage: (in category 'dragging') ----- + dragMessage: anIndex + + anIndex = 0 ifTrue: [^ nil]. + ^ MethodReference + class: self selectedClassOrMetaClass + selector: (self basicMessageList at: anIndex)!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2019