Squeak-dev October 2023

squeak-dev@lists.squeakfoundation.org

24 participants
148 discussions

The Trunk: Monticello-mt.799.mcz
by commits＠source.squeak.org 04 Oct '23

04 Oct '23

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.799.mcz ==================== Summary ==================== Name: Monticello-mt.799 Author: mt Time: 4 October 2023, 4:52:45.444674 pm UUID: fb40fd0e-cbbe-be48-82d8-485abe894d2d Ancestors: Monticello-mt.798 Mixed up class-side and instance-side... =============== Diff against Monticello-mt.798 =============== Item was changed: (PackageInfo named: 'Monticello') postscript: '"Adds support for protocol renaming" + MCPackageManager registerForNotifications.'! - MCWorkingCopy allManagers do: [:ea | ea registerForNotifications].'!

1 0

The Trunk: Monticello-mt.798.mcz
by commits＠source.squeak.org 04 Oct '23

04 Oct '23

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.798.mcz ==================== Summary ==================== Name: Monticello-mt.798 Author: mt Time: 4 October 2023, 4:39:21.695674 pm UUID: 2e5abee7-4f0b-574b-b73b-35dbf29826eb Ancestors: Monticello-mt.797 Adds support for protocol-renaming as proactive "modified" indication for working copies. While this may be a false-positive for empty message categories, one usually renames non-empty ones and thus needs to commit something. (BTW: There are some recategorizations in MCConflict that were forgotten exactly due to not informing working copies about protocol-renaming. There might be more.) =============== Diff against Monticello-mt.797 =============== Item was changed: + ----- Method: MCConflict>>chooseLocal (in category 'resolving') ----- - ----- Method: MCConflict>>chooseLocal (in category 'resolving ') ----- chooseLocal chooseRemote := false! Item was changed: + ----- Method: MCConflict>>chooseNewer (in category 'resolving') ----- - ----- Method: MCConflict>>chooseNewer (in category 'resolving ') ----- chooseNewer self isLocalNewer ifTrue: [ self chooseLocal ] ifFalse: [ self isRemoteNewer ifTrue: [ self chooseRemote ]]! Item was changed: + ----- Method: MCConflict>>chooseOlder (in category 'resolving') ----- - ----- Method: MCConflict>>chooseOlder (in category 'resolving ') ----- chooseOlder self isRemoteNewer ifTrue: [ self chooseLocal ] ifFalse: [ self isLocalNewer ifTrue: [ self chooseRemote ]]! Item was changed: + ----- Method: MCConflict>>chooseRemote (in category 'resolving') ----- - ----- Method: MCConflict>>chooseRemote (in category 'resolving ') ----- chooseRemote chooseRemote := true! Item was changed: + ----- Method: MCConflict>>chooseSameAST (in category 'resolving') ----- - ----- Method: MCConflict>>chooseSameAST (in category 'resolving ') ----- chooseSameAST | fromSrc toSrc | (self definition isNil or: [self definition isMethodDefinition not]) ifTrue: [^ self]. fromSrc := (Parser new parse: operation fromSource class: nil class) generate decompile asString. toSrc := (Parser new parse: operation toSource class: nil class) generate decompile asString. fromSrc = toSrc ifTrue: [self chooseLocal].! Item was changed: + ----- Method: MCConflict>>clearChoice (in category 'resolving') ----- - ----- Method: MCConflict>>clearChoice (in category 'resolving ') ----- clearChoice chooseRemote := nil! Item was changed: ----- Method: MCPackageManager class>>classMoved: (in category 'system changes') ----- classMoved: anEvent + "Inform managers about old class category. Pass on to #classModified to inform managers about new/current class category." + + self + managersForCategory: anEvent oldCategory + do: [:mgr| mgr modified: true]. + + self classModified: anEvent.! - self classModified: anEvent. - self managersForCategory: anEvent oldCategory do:[:mgr| mgr modified: true].! Item was added: + ----- Method: MCPackageManager class>>isExtensionCategory: (in category 'system changes - support') ----- + isExtensionCategory: methodCategory + + ^ methodCategory isEmptyOrNil not and: [methodCategory first == $*]! Item was changed: + ----- Method: MCPackageManager class>>managersForCategory:do: (in category 'system changes - support') ----- - ----- Method: MCPackageManager class>>managersForCategory:do: (in category 'system changes') ----- managersForCategory: aSystemCategory do: aBlock "Got to be careful here - we might get method categories where capitalization is problematic." | cat foundOne index | foundOne := false. cat := aSystemCategory ifNil:[^nil]. "yes this happens; for example in eToy projects" "first ask PackageInfos, their package name might not match the category" self registry do: [:mgr | (mgr packageInfo includesSystemCategory: aSystemCategory) ifTrue: [ aBlock value: mgr. foundOne := true. ] ]. foundOne ifTrue: [^self]. ["Loop over categories until we found a matching one" self registry at: (MCPackage named: cat) ifPresent:[:mgr| aBlock value: mgr. foundOne := true. ]. index := cat lastIndexOf: $-. index > 0]whileTrue:[ "Step up to next level package" cat := cat copyFrom: 1 to: index-1. ]. foundOne ifFalse:[ "Create a new (but only top-level)" aBlock value: (MCWorkingCopy forPackage: (MCPackage named: (aSystemCategory copyUpTo: $-) capitalized)). ].! Item was changed: + ----- Method: MCPackageManager class>>managersForClass:category:do: (in category 'system changes - support') ----- - ----- Method: MCPackageManager class>>managersForClass:category:do: (in category 'system changes') ----- managersForClass: aClass category: methodCategory do: aBlock + + (self isExtensionCategory: methodCategory) + ifTrue: [self managersForExtensionCategory: methodCategory do: aBlock] + ifFalse: [self managersForClass: aClass do: aBlock].! - (methodCategory isEmptyOrNil or:[methodCategory first ~= $*]) ifTrue:[ - "Not an extension method" - ^self managersForClass: aClass do: aBlock. - ]. - self managersForCategory: methodCategory allButFirst do: aBlock.! Item was changed: + ----- Method: MCPackageManager class>>managersForClass:do: (in category 'system changes - support') ----- - ----- Method: MCPackageManager class>>managersForClass:do: (in category 'system changes') ----- managersForClass: aClass do: aBlock self registry do: [:mgr | (mgr packageInfo includesClass: aClass) ifTrue: [aBlock value: mgr]]! Item was changed: + ----- Method: MCPackageManager class>>managersForClass:selector:do: (in category 'system changes - support') ----- - ----- Method: MCPackageManager class>>managersForClass:selector:do: (in category 'system changes') ----- managersForClass: aClass selector: aSelector do: aBlock ^self managersForClass: aClass category: (aClass organization categoryOfElement: aSelector) do: aBlock! Item was added: + ----- Method: MCPackageManager class>>managersForExtensionCategory:do: (in category 'system changes - support') ----- + managersForExtensionCategory: methodCategory do: aBlock + + self managersForCategory: methodCategory allButFirst do: aBlock.! Item was changed: ----- Method: MCPackageManager class>>methodMoved: (in category 'system changes') ----- methodMoved: anEvent + "Inform managers about old method protocol. Pass on to #methodModified: to inform managers about new/current method protocol." + + self + managersForClass: anEvent itemClass + category: anEvent oldCategory + do: [:mgr | mgr modified: true]. + - self managersForClass: anEvent itemClass category: anEvent oldCategory do:[:mgr| mgr modified: true]. self methodModified: anEvent.! Item was added: + ----- Method: MCPackageManager class>>protocolRenamed: (in category 'system changes') ----- + protocolRenamed: anEvent + "Inform managers about old and new name for method protocol." + + self + managersForClass: anEvent itemClass + category: anEvent oldName + do: [:mgr | mgr modified: true]. + + self + managersForClass: anEvent itemClass + category: anEvent newName + do: [:mgr | mgr modified: true].! Item was changed: + ----- Method: MCPackageManager class>>registerForNotifications (in category 'system changes - support') ----- - ----- Method: MCPackageManager class>>registerForNotifications (in category 'system changes') ----- registerForNotifications Smalltalk at: #SystemChangeNotifier ifPresent: [:cls| cls uniqueInstance noMoreNotificationsFor: self. self reregisterForNotificationsWith: cls uniqueInstance]! Item was changed: + ----- Method: MCPackageManager class>>reregisterForNotificationsWith: (in category 'system changes - support') ----- - ----- Method: MCPackageManager class>>reregisterForNotificationsWith: (in category 'system changes') ----- reregisterForNotificationsWith: aSystemChangeNotifier aSystemChangeNotifier notify: self ofSystemChangesOfItem: #class change: #Added using: #classModified:; notify: self ofSystemChangesOfItem: #class change: #Modified using: #classModified:; notify: self ofSystemChangesOfItem: #class change: #Renamed using: #classModified:; notify: self ofSystemChangesOfItem: #class change: #Commented using: #classModified:; notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #classMoved:; notify: self ofSystemChangesOfItem: #class change: #Removed using: #classRemoved:; notify: self ofSystemChangesOfItem: #method change: #Added using: #methodModified:; notify: self ofSystemChangesOfItem: #method change: #Modified using: #methodModified:; notify: self ofSystemChangesOfItem: #method change: #Recategorized using: #methodMoved:; + notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved:; + notify: self ofSystemChangesOfItem: #protocol change: #Renamed using: #protocolRenamed:! - notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved:! Item was changed: + (PackageInfo named: 'Monticello') postscript: '"Adds support for protocol renaming" + MCWorkingCopy allManagers do: [:ea | ea registerForNotifications].'! - (PackageInfo named: 'Monticello') postscript: '(ServiceRegistry current serviceWithId: #browserMethodMenu) services - removeAllSuchThat: [:service | #(browseMcMethodRevisions browseMcMethodOrigin) includes: service id]. - (ServiceRegistry current serviceWithId: #browserClassMenu) services - removeAllSuchThat: [:service | #(browseMcClassRevisions browseMcClassOrigin) includes: service id].'!

1 0

The Trunk: Kernel-eem.1528.mcz
by commits＠source.squeak.org 04 Oct '23

04 Oct '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1528.mcz ==================== Summary ==================== Name: Kernel-eem.1528 Author: eem Time: 2 October 2023, 1:46:30.854649 pm UUID: 2d331a30-1cdc-4e20-9f8e-491cf19b43c2 Ancestors: Kernel-mt.1527 allLiteralsDo: and literalEqual: belong in Kernel, not in Collections. Rename Array & LookupKey's literals category to move it to Kernel. =============== Diff against Kernel-mt.1527 =============== Item was added: + ----- Method: Array>>allLiteralsDo: (in category '*Kernel-literals') ----- + allLiteralsDo: aBlock + + "I am a literal." + aBlock value: self. + + "All my elements are literals." + self do: [:each | each allLiteralsDo: aBlock].! Item was added: + ----- Method: Array>>literalEqual: (in category '*Kernel-literals') ----- + literalEqual: other + + self class == other class ifFalse: [^ false]. + self size = other size ifFalse: [^ false]. + self with: other do: [:e1 :e2 | + (e1 literalEqual: e2) ifFalse: [^ false]]. + ^ true! Item was added: + ----- Method: LookupKey>>allLiteralsDo: (in category '*Kernel-literals') ----- + allLiteralsDo: aBlock + "Treat myself or my key as literal. Do not treat any value (i.e., in Association or Binding) as literal to avoid decending too thoroughly. As a consequence, for example, classes have to be resolved to their class bindings or class names before using them as input in this interface." + + aBlock value: self. + self key allLiteralsDo: aBlock.! Item was added: + ----- Method: LookupKey>>literalEqual: (in category '*Kernel-literals') ----- + literalEqual: otherLiteral + "Answer true if the receiver and otherLiteral represent the same literal. + + By default, all lookup keys (such as variable bindings) are literally equal only if identical. This is how variable sharing works, by preserving identity and changing only the value. + + Override if you want to be more flexible such as in class bindings." + + ^ self == otherLiteral!

2 1

Printf & NumberPrinter package confusion causes bugs
by Tim Rowledge 03 Oct '23

03 Oct '23

We've got a version of Printf on squeaksource (https://www.squeaksource.com/Printf) and another on squeaksource3(http://ss3.gemtalksystems.com/ss/NumberPrinter), along with NumberPrinter (same squeaksource3 project) which is used along with Printf. Unfortunately they don't work together as well as they should; for example try '%-0.1e' printf: -10 To get a proper result from that I have to go back to Printf-eem.17. I'd also urge getting the NumberPrinter code off the 12-years-dead squeaksource3 repository. Maybe even merge them - hell, integrate them into trunk! Printing numbers nicely is pretty important. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: EFBI: Emulate Five-volt Battery Intermittently

1 0

The Trunk: Collections-eem.1052.mcz
by commits＠source.squeak.org 02 Oct '23

02 Oct '23

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.1052.mcz ==================== Summary ==================== Name: Collections-eem.1052 Author: eem Time: 2 October 2023, 1:47:24.151227 pm UUID: abb5904d-b4af-4ad7-a655-85dab6ff4cc1 Ancestors: Collections-mt.1051 Dual of Kernel-eem.1528. allLiteralsDo: and literalEqual: belong in Kernel, not in Collections. Rename Array & LookupKey's literals category to move it to Kernel. =============== Diff against Collections-mt.1051 =============== Item was removed: - ----- Method: Array>>allLiteralsDo: (in category 'literals') ----- - allLiteralsDo: aBlock - - "I am a literal." - aBlock value: self. - - "All my elements are literals." - self do: [:each | each allLiteralsDo: aBlock].! Item was removed: - ----- Method: Array>>literalEqual: (in category 'literals') ----- - literalEqual: other - - self class == other class ifFalse: [^ false]. - self size = other size ifFalse: [^ false]. - self with: other do: [:e1 :e2 | - (e1 literalEqual: e2) ifFalse: [^ false]]. - ^ true! Item was removed: - ----- Method: LookupKey>>allLiteralsDo: (in category 'literals') ----- - allLiteralsDo: aBlock - "Treat myself or my key as literal. Do not treat any value (i.e., in Association or Binding) as literal to avoid decending too thoroughly. As a consequence, for example, classes have to be resolved to their class bindings or class names before using them as input in this interface." - - aBlock value: self. - self key allLiteralsDo: aBlock.! Item was removed: - ----- Method: LookupKey>>literalEqual: (in category 'literals') ----- - literalEqual: otherLiteral - "Answer true if the receiver and otherLiteral represent the same literal. - - By default, all lookup keys (such as variable bindings) are literally equal only if identical. This is how variable sharing works, by preserving identity and changing only the value. - - Override if you want to be more flexible such as in class bindings." - - ^ self == otherLiteral!

1 0

Re: interpreter VM on RISC-V with negative bytecodes per second
by ken.dickey＠whidbey.com 02 Oct '23

02 Oct '23

Latest VF2 software. Interesting is that #tinyBench in Cuis Framebuffer a bit slower than Cuis in Wayland. "FrameBuffer" 0 tinyBenchmarks. '73.61 megaBytecodes/second; 3.81 megaSends/second' . "Wayland" 0 tinyBenchmarks. '74.46 megaBytecodes/second; 3.84 megaSends/second' . Smalltalk vmVersion. 'Open Smalltalk Stack VM [StackInterpreterPrimitives VMMaker.oscog-eem.3307]' . Smalltalk vmPath. '/usr/local/lib/squeak/5.0-202303311342-64bit/' . "Cuis 6.0 #6033" VisionFive2:RV64G:~ >> uname -a Linux starfive 5.15.0-starfive #1 SMP Wed Aug 23 11:18:20 CST 2023 riscv64 GNU/Linux VisionFive2:RV64G:~ >> squeak --version 5.0-202303311342 Fri Apr 7 23:52:09 UTC 2023 gcc 12 [Assert Spur 64-bit riscv64 VM] StackInterpreter VMMaker.oscog-eem.3307 uuid: bea33bb5-98d1-4d1a-8004-40be76e0b94c Apr 7 2023 VM: 202303311342 kend@starfive:OpenSmalltalk-VM Date: Fri Mar 31 15:42:15 2023 CommitHash: ed1f7431a Plugins: 202303311342 kend@starfive:OpenSmalltalk-VM Linux starfive 5.15.0-starfive #1 SMP Mon Feb 27 14:03:14 EST 2023 riscv64 GNU/Linux plugin path: /usr/local/bin/../lib/squeak/5.0-202303311342-64bit [default: /usr/local/lib/squeak/5.0-202303311342-64bit/] FYI, -KenD

1 0

Re: interpreter VM on RISC-V with negative bytecodes per second
by ken.dickey＠whidbey.com 02 Oct '23

02 Oct '23

Hmmm.. quick data point for VisionFive 2 running Debian ** CLI/Terminal ** VisionFive2:RV64G:~ >> squeak --version 5.0-202303311342 Fri Apr 7 23:52:09 UTC 2023 gcc 12 [Assert Spur 64-bit riscv64 VM] StackInterpreter VMMaker.oscog-eem.3307 uuid: bea33bb5-98d1-4d1a-8004-40be76e0b94c Apr 7 2023 VM: 202303311342 kend@starfive:OpenSmalltalk-VM Date: Fri Mar 31 15:42:15 2023 CommitHash: ed1f7431a Plugins: 202303311342 kend@starfive:OpenSmalltalk-VM Linux starfive 5.15.0-starfive #1 SMP Mon Feb 27 14:03:14 EST 2023 riscv64 GNU/Linux plugin path: /usr/local/bin/../lib/squeak/5.0-202303311342-64bit [default: /usr/local/lib/squeak/5.0-202303311342-64bit/] VisionFive2:RV64G:~ >> uname -a Linux starfive 5.15.0-starfive #1 SMP Mon Feb 27 14:03:14 EST 2023 riscv64 GNU/Linux VisionFive2:RV64G:~ >> mg vf2stInfo.txt ** In a Workspace ** 0 tinyBenchmarks . '74.42 megaBytecodes/second; 3.84 megaSends/second' . Smalltalk vmFileName. '/usr/local/lib/squeak/5.0-202303311342-64bit/squeak' . Smalltalk vmVersion. 'Open Smalltalk Stack VM [StackInterpreterPrimitives VMMaker.oscog-eem.3307]' . "Cuis 6.0 rev 6034" FYI, -KenD

1 0

The Trunk: System-codefrau.1426.mcz
by commits＠source.squeak.org 02 Oct '23

02 Oct '23

Vanessa Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-codefrau.1426.mcz ==================== Summary ==================== Name: System-codefrau.1426 Author: codefrau Time: 1 October 2023, 4:04:12.738176 pm UUID: f273b150-371e-4001-930f-282781df8d59 Ancestors: System-mt.1425 Make copy/paste work again on VMs without an ExtendedClipboardInterface. =============== Diff against System-mt.1425 =============== Item was changed: ----- Method: Clipboard>>clipboardText (in category 'accessing') ----- clipboardText + "Answer the text currently in the (system) clipboard. To preserve image-specific formatting, answer the text from an in-image buffer UNLESS that buffer differs from what is in the system clipboard. Also use that buffer if the system clipboard got cleared by some other application." - "Answer the text currently in the (system) clipboard. To preserve image-specifc formatting, simply answer the text from an in-image buffer UNLESS that buffer differs from what is in the system clipboard. Also use that buffer if the sytem clipboard got cleared by some other application." | systemContents needsDecoding stringOrText | needsDecoding := false. + systemContents := (self extended ifNotNil: [:extClipboard | extClipboard readTextClipboardData]) - systemContents := ExtendedClipboardInterface current readTextClipboardData ifNil: [needsDecoding := true. self primitiveClipboardText "old primitive"]. stringOrText := systemContents withSqueakLineEndings. (stringOrText isEmpty or: [stringOrText asString = contents asString]) ifTrue: [^ contents]. ^ needsDecoding ifFalse: [stringOrText asText] ifTrue: [ | decodedString | "from old primitive" decodedString := self interpreter fromSystemClipboard: stringOrText asString. decodedString = contents asString ifTrue: [contents] ifFalse: [decodedString asText]].! Item was changed: ----- Method: Clipboard>>clipboardText:notifyWith: (in category 'accessing') ----- clipboardText: stringOrText notifyWith: anObject "Set the contents of the (system) clipboard. anObject can be used as a marker for the source of the clipboard change, the default value is nil. Try to use the extended interface so that, e.g., rich text can be encoded and transported to other applications." | newContents | newContents := stringOrText asText. self noteRecentClipping: newContents. contents := newContents. "Preserve in-image attributes. See #clipboardText." + (self extended ifNil: [false] ifNotNil: [:extClipboard | extClipboard clipboardText: newContents]) - (ExtendedClipboardInterface current clipboardText: newContents) ifFalse: [ | string | "Extended interface failed. Use old primitive and plain text with system-specific encoding." string := newContents asString. string := self interpreter toSystemClipboard: string. self primitiveClipboardText: string]. self triggerEvent: #contentChanged withArguments: { newContents. anObject }.!

1 0

Jump to page: