Squeak-dev February 2024

squeak-dev@lists.squeakfoundation.org

32 participants
107 discussions

UKSTUG Meeting 28 February 2024: Juan Vuletich - Bootstrap & Dynamic Cuis Libraries
by Giovanni Corriga 23 Feb '24

23 Feb '24

Juan Vuletich returns to the UKSTUG to discuss some recent enhancements to Cuis Smalltalk ( https://cuis.st/ ) : Bootstrap and Dynamic Cuis Libraries. Bootstrap: Creating Minimal Images from Scratch > * The last ancestor of Cuis Smalltalk that was bootstrapped from scratch was Smalltalk-76. Since then, various released images of Smalltalk-80, Squeak and Cuis were derived by applying updates to the previous one. A new tool called 'Bootstrap' allows the creation of minimal Smalltalk images from scratch. These images are in the Spur 32 and 64-bit formats, compatible with the OpenSmalltalk VM. 'Bootstrap' gives developers complete control over what is included in the new image. It is compact, relatively simple, and easy to extend and adapt. Dynamic Cuis Libraries: A binary format for Cuis code that is powerful and quick to load > * Dynamic Cuis Libraries are binary files with pre-compiled code that can be loaded into a running Cuis image. They can add new classes and extend existing ones. For existing classes, there are no requirements on the shape of that class in the image loading the library. Missing variables are added, extra variables are kept, and both existing and newly loaded methods are adjusted to whatever shape the class has. Juan Vuletich ( https://independent.academia.edu/JuanVuletich ) is the founder and lead developer of Cuis Smalltalk. He is a long-standing Open Source Smalltalk community member, having contributed kernel code to Cuis, Squeak and the Squeak VM for over 25 years. Juan has been programming since he was 14, and doing it professionally since he was 17. He holds an MS.Sc. in Computer Science from the University of Buenos Aires. He works at LabWare. This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/299084123/ ) to receive the meeting details. Don’t forget to bring your laptop and drinks!

1 0

[squeak-smalltalk/squeak-object-memory] Optimize regex matching for finding non-global matches (Issue #117)
by Christoph Thiede 23 Feb '24

23 Feb '24

`matchesRegex: '.*...'` should be as fast as `RxMatcher>>search:`, but is currently significantly slower: ``` longString := String new: 10000 withAll: $x. longString matchesRegex: '.*y'. 'y' asRegex search: longString. ``` Can `RxMatchOptimizer` handle this? Related issues: - `search:` is pretty inefficient, maybe it could utilize something like `findSubstring:` - analogously, in the other direction, lookbehind matching is very inefficient and could benefit from a "backwards matching" mode ... so many construction sites :-) -- Reply to this email directly or view it on GitHub: https://github.com/squeak-smalltalk/squeak-object-memory/issues/117 You are receiving this because you are subscribed to this thread. Message ID: <squeak-smalltalk/squeak-object-memory/issues/117(a)github.com>

1 0

The Trunk: System-dtl.1448.mcz
by commits＠source.squeak.org 22 Feb '24

22 Feb '24

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1448.mcz ==================== Summary ==================== Name: System-dtl.1448 Author: dtl Time: 21 February 2024, 7:08:38.598872 pm UUID: 109c5158-c1b6-4b7b-891a-380b5b9ee3de Ancestors: System-cmm.1447 Move the low space watcher from SmalltalkImage to new class LowSpaceWatcher having a singleton with responsibility for the low space semaphore and low space watcher process. Add class and method comments and split lowSpaceWatcher into smaller methods to clarify steps in the process. Add #registerCleaner for adding savvy memory hogs to the memory hog registry. For organization and documentation only, no functional change to the low space watcher or memory policies. =============== Diff against System-cmm.1447 =============== Item was added: + Object subclass: #LowSpaceWatcher + instanceVariableNames: 'lowSpaceProcess lowSpaceSemaphore' + classVariableNames: 'Default MemoryHogs' + poolDictionaries: '' + category: 'System-Support'! + + !LowSpaceWatcher commentStamp: 'dtl 1/28/2024 17:56' prior: 0! + LowSpaceWatcher is responsible for responding to a notification from the virtual machine that memory is low and that it (the VM) may soon be unable to support additional object memory allocations. A single default instance for the image manages both the low space semaphore and the process that waits on the semaphore to handle low space conditions. When the low space watcher is notified that memory is low, it attempts to identify the process likely associated with the low space condition and to provide a notifier to allow the problem condition to be corrected. + + If a low space condition is detected in the virtual machine, the low space semaphore is signalled either directly by the VM or indirectly through an OutOfMemory error following a failed primitive invocation. The VM is responsible for identifying low space conditions, and its behavior will vary depending on both the VM implementation and the memory system of the underlying platform operating system. In particular, on a virtual machine operating system the VM may continue to receive memory allocations from the operating system while the operating system attempts to support the memory requests by increased swapping to disk. Under these conditions, the low space semaphore may not be signalled because system memory still appears to be available, even though performance is severely degraded due to swapping. + + The VM may provide control of its memory usage, typically through command line parameters or VM parameters that can be set from the image. These parameters will affect when and if the low space watcher is signalled by the VM. + + A registry is maintained in class variable MemoryHogs to identify objects (classes) know how to release unneeded memory when sent the message #freeSomeSpace. The low space watcher process will send this message when a low spaced condition is encountered. + + To signal the low space watcher and simulate a low space condition, evaluate "LowSpaceWatcher default signalLowSpace".! Item was added: + ----- Method: LowSpaceWatcher class>>default (in category 'instance creation') ----- + default + "The singleton low space watcher." + + ^ Default ifNil: [ Default := self new start ] + ! Item was added: + ----- Method: LowSpaceWatcher class>>install (in category 'instance creation') ----- + install + "Start a process to watch for low-space conditions." + "Smalltalk installLowSpaceWatcher" + + self default stop; start + + ! Item was added: + ----- Method: LowSpaceWatcher class>>registerCleaner: (in category 'memory hog registry') ----- + registerCleaner: memoryCleaner + "Add memoryCleaner to the MemoryHog list where memoryCleaner is an object or class that responds to #freeSomeSpace." + + (memoryCleaner respondsTo: #freeSomeSpace) + ifFalse: [ ^ self error: memoryCleaner asString, ' does not understand #freeSomeSpace' ]. + (self default memoryHogs includes: memoryCleaner) + ifFalse: [ MemoryHogs add: memoryCleaner ].! Item was added: + ----- Method: LowSpaceWatcher class>>signalLowSpace (in category 'signal low space') ----- + signalLowSpace + "Signal the low-space semaphore to alert the user that space is running low." + + ^ self default signalLowSpace.! Item was added: + ----- Method: LowSpaceWatcher>>disableVirtualMachineNotifications (in category 'process steps') ----- + disableVirtualMachineNotifications + "Ask the virtual machine to stop sending low space interrupts, and forget the current semaphore and watcher process." + + self primSignalAtBytesLeft: 0. "disable low space interrupts" + self primLowSpaceSemaphore: nil. + lowSpaceProcess := nil. + ! Item was added: + ----- Method: LowSpaceWatcher>>findPreemptedProcess (in category 'process steps') ----- + findPreemptedProcess + "Find the process that was active at the time of the low space interrupt. Check + first if the virtual machine has recorded the process that was active at the time + that it detected the low space detection, otherwise answer the process that was + most recently preempted when the semaphore was signalled." + + | preemptedProcess | + preemptedProcess := (Smalltalk specialObjectsArray at: 23) + ifNil: [Processor preemptedProcess "if in-image signal of OutOfMemory"]. + Smalltalk specialObjectsArray at: 23 put: nil. + ^ preemptedProcess + + ! Item was added: + ----- Method: LowSpaceWatcher>>handleLowSpaceCondition (in category 'process') ----- + handleLowSpaceCondition + "A low space condition has been detected. Do whatever may be necessary to free + some memory in the image before proceeding." + + | preemptedProcess | + preemptedProcess := self findPreemptedProcess. + self notifyMemoryHogs ifFalse: [ + self logError: preemptedProcess. + self notifyUser: preemptedProcess ]. + + ! Item was added: + ----- Method: LowSpaceWatcher>>initializeVirtualMachineNotifications (in category 'process steps') ----- + initializeVirtualMachineNotifications + "Let the virtual machine know how to notify the image of low space conditions." + + Smalltalk specialObjectsArray at: 23 put: nil. "process causing low space will be saved here" + lowSpaceSemaphore := Semaphore new. + self primLowSpaceSemaphore: lowSpaceSemaphore. + self primSignalAtBytesLeft: Smalltalk lowSpaceThreshold. "enable low space interrupts" + ! Item was added: + ----- Method: LowSpaceWatcher>>logError: (in category 'process steps') ----- + logError: preemptedProcess + + Preferences logDebuggerStackToFile ifTrue: [ + Smalltalk + logError: 'Space is low' + inContext: preemptedProcess suspendedContext + to: 'LowSpaceDebug.log' ]. + ! Item was added: + ----- Method: LowSpaceWatcher>>lowSpaceChoices (in category 'memory space') ----- + lowSpaceChoices + "Return a notifier message string to be presented when space is running low." + + ^ 'Warning!! Squeak is almost out of memory!! + + Low space detection is now disabled. It will be restored when you close or proceed from this error notifier. Don''t panic, but do proceed with caution. + + Here are some suggestions: + + If you suspect an infinite recursion (the same methods calling each other again and again), then close this debugger, and fix the problem. + + If you want this computation to finish, then make more space available (read on) and choose "proceed" in this debugger. Here are some ways to make more space available... + > Close any windows that are not needed. + > Get rid of some large objects (e.g., images). + > Leave this window on the screen, choose "save as..." from the screen menu, quit, restart the Squeak VM with a larger memory allocation, then restart the image you just saved, and choose "proceed" in this window. + + If you want to investigate further, choose "debug" in this window. Do not use the debugger "fullStack" command unless you are certain that the stack is not very deep. (Trying to show the full stack will definitely use up all remaining memory if the low-space problem is caused by an infinite recursion!!). + + ' + ! Item was added: + ----- Method: LowSpaceWatcher>>lowSpaceWatcher (in category 'process') ----- + lowSpaceWatcher + "Wait until the low space semaphore is signalled, then take appropriate actions. This + method is run once in the low space watcher process. Before terminating, it schedules + a new process to handle the next low space condition." + + self safeToInstall ifFalse: [ ^ Beeper beep]. + self initializeVirtualMachineNotifications. + lowSpaceSemaphore wait. + self disableVirtualMachineNotifications; handleLowSpaceCondition. + self start. "schedule a new process to handle the next low space condition" + + ! Item was added: + ----- Method: LowSpaceWatcher>>lowSpaceWatcherProcess (in category 'process') ----- + lowSpaceWatcherProcess + "Answer the process in which lowSpaceWatcher is running. A process browser + can use this to identify and label the system wide low space watcher process." + ^lowSpaceProcess! Item was added: + ----- Method: LowSpaceWatcher>>memoryHogs (in category 'memory space') ----- + memoryHogs + "Answer the list of objects to notify with #freeSomeSpace if memory gets full." + + ^ MemoryHogs ifNil: [MemoryHogs := OrderedCollection new]! Item was added: + ----- Method: LowSpaceWatcher>>notifyMemoryHogs (in category 'process steps') ----- + notifyMemoryHogs + "Try to clean up memory hogs. Answer true if sufficient memory was released." + + | free | + self memoryHogs isEmpty + ifTrue: [ ^ false ] + ifFalse: [ free := Smalltalk bytesLeft. + self memoryHogs + do: [ :hog | hog freeSomeSpace ]. + ^ Smalltalk bytesLeft > free ] + + ! Item was added: + ----- Method: LowSpaceWatcher>>notifyUser: (in category 'process steps') ----- + notifyUser: preemptedProcess + "Interrupt the user to allow the low space condition to be corrected. The user + is now unprotected until the low space watcher is re-installed." + + Project current + interruptName: 'Space is low' + message: self lowSpaceChoices + preemptedProcess: preemptedProcess. + ! Item was added: + ----- Method: LowSpaceWatcher>>primLowSpaceSemaphore: (in category 'primitive access') ----- + primLowSpaceSemaphore: aSemaphore + "Primitive. Register the given Semaphore to be signalled when the + number of free bytes drops below some threshold. Disable low-space + interrupts if the argument is nil." + + <primitive: 124> + self primitiveFailed! Item was added: + ----- Method: LowSpaceWatcher>>primSignalAtBytesLeft: (in category 'primitive access') ----- + primSignalAtBytesLeft: numBytes + "Tell the interpreter the low-space threshold in bytes. When the free + space falls below this threshold, the interpreter will signal the low-space + semaphore, if one has been registered. Disable low-space interrupts if the + argument is zero. Fail if numBytes is not an Integer." + + <primitive: 125> + self primitiveFailed! Item was added: + ----- Method: LowSpaceWatcher>>safeToInstall (in category 'process steps') ----- + safeToInstall + "Free space must be above threshold before starting low space watcher" + + ^Smalltalk garbageCollectMost > Smalltalk lowSpaceThreshold + or: [Smalltalk garbageCollect > Smalltalk lowSpaceThreshold] + + ! Item was added: + ----- Method: LowSpaceWatcher>>signalLowSpace (in category 'memory space') ----- + signalLowSpace + "Signal the low-space semaphore to alert the user that space is running low." + + lowSpaceSemaphore signal.! Item was added: + ----- Method: LowSpaceWatcher>>start (in category 'initialize-release') ----- + start + "Start a new low space watcher process that will register a semaphore with the + virtual machine and wait for the semaphore to be signalled if a low space condition + is detected." + + lowSpaceProcess := [self lowSpaceWatcher] forkAt: Processor lowIOPriority. + ! Item was added: + ----- Method: LowSpaceWatcher>>stop (in category 'initialize-release') ----- + stop. + "Ask the virtual machine to disable low space interrupts, then terminate the watcher process." + + self primSignalAtBytesLeft: 0. "disable low-space interrupts" + lowSpaceProcess == nil ifFalse: [lowSpaceProcess terminate]. + lowSpaceProcess := lowSpaceSemaphore := nil. + ! Item was changed: Object subclass: #SmalltalkImage instanceVariableNames: 'globals' + classVariableNames: 'EndianCache LastImageName LastQuitLogPosition LastStats PlatformNameCache ShutDownList SourceFileVersionString StartUpList StartupStamp VMMakerVersion WordSize' - classVariableNames: 'EndianCache LastImageName LastQuitLogPosition LastStats LowSpaceProcess LowSpaceSemaphore MemoryHogs PlatformNameCache ShutDownList SourceFileVersionString StartUpList StartupStamp VMMakerVersion WordSize' poolDictionaries: '' category: 'System-Support'! !SmalltalkImage commentStamp: 'dtl 3/6/2010 14:00' prior: 0! I represent the current image and runtime environment, including system organization, the virtual machine, object memory, plugins and source files. My instance variable #globals is a reference to the system dictionary of global variables and class names. My singleton instance is called Smalltalk.! Item was changed: ----- Method: SmalltalkImage>>installLowSpaceWatcher (in category 'memory space') ----- installLowSpaceWatcher "Start a process to watch for low-space conditions." "Smalltalk installLowSpaceWatcher" + LowSpaceWatcher install - self primSignalAtBytesLeft: 0. "disable low-space interrupts" - LowSpaceProcess == nil ifFalse: [LowSpaceProcess terminate]. - LowSpaceProcess := [self lowSpaceWatcher] newProcess. - LowSpaceProcess priority: Processor lowIOPriority. - LowSpaceProcess resume. ! Item was removed: - ----- Method: SmalltalkImage>>lowSpaceChoices (in category 'memory space') ----- - lowSpaceChoices - "Return a notifier message string to be presented when space is running low." - - ^ 'Warning!! Squeak is almost out of memory!! - - Low space detection is now disabled. It will be restored when you close or proceed from this error notifier. Don''t panic, but do proceed with caution. - - Here are some suggestions: - - If you suspect an infinite recursion (the same methods calling each other again and again), then close this debugger, and fix the problem. - - If you want this computation to finish, then make more space available (read on) and choose "proceed" in this debugger. Here are some ways to make more space available... - > Close any windows that are not needed. - > Get rid of some large objects (e.g., images). - > Leave this window on the screen, choose "save as..." from the screen menu, quit, restart the Squeak VM with a larger memory allocation, then restart the image you just saved, and choose "proceed" in this window. - - If you want to investigate further, choose "debug" in this window. Do not use the debugger "fullStack" command unless you are certain that the stack is not very deep. (Trying to show the full stack will definitely use up all remaining memory if the low-space problem is caused by an infinite recursion!!). - - ' - ! Item was removed: - ----- Method: SmalltalkImage>>lowSpaceWatcher (in category 'memory space') ----- - lowSpaceWatcher - "Wait until the low space semaphore is signalled, then take appropriate actions." - - | free preemptedProcess | - self garbageCollectMost <= self lowSpaceThreshold - ifTrue: [self garbageCollect <= self lowSpaceThreshold - ifTrue: ["free space must be above threshold before - starting low space watcher" - ^ Beeper beep]]. - - Smalltalk specialObjectsArray at: 23 put: nil. "process causing low space will be saved here" - LowSpaceSemaphore := Semaphore new. - self primLowSpaceSemaphore: LowSpaceSemaphore. - self primSignalAtBytesLeft: self lowSpaceThreshold. "enable low space interrupts" - - LowSpaceSemaphore wait. "wait for a low space condition..." - - self primSignalAtBytesLeft: 0. "disable low space interrupts" - self primLowSpaceSemaphore: nil. - LowSpaceProcess := nil. - - "The process that was active at the time of the low space interrupt." - preemptedProcess := (Smalltalk specialObjectsArray at: 23) - ifNil: [Processor preemptedProcess "if in-image signal of OutOfMemory"]. - Smalltalk specialObjectsArray at: 23 put: nil. - - "Note: user now unprotected until the low space watcher is re-installed" - - self memoryHogs isEmpty - ifFalse: [free := self bytesLeft. - self memoryHogs - do: [ :hog | hog freeSomeSpace ]. - self bytesLeft > free - ifTrue: [ ^ self installLowSpaceWatcher ]]. - - Preferences logDebuggerStackToFile ifTrue: [ - self - logError: 'Space is low' - inContext: preemptedProcess suspendedContext - to: 'LowSpaceDebug.log']. - - Project current - interruptName: 'Space is low' - message: self lowSpaceChoices - preemptedProcess: preemptedProcess - ! Item was changed: ----- Method: SmalltalkImage>>lowSpaceWatcherProcess (in category 'memory space') ----- lowSpaceWatcherProcess + ^LowSpaceWatcher default ifNotNil: [ :watcher | watcher lowSpaceWatcherProcess ]! - ^LowSpaceProcess! Item was removed: - ----- Method: SmalltalkImage>>memoryHogs (in category 'memory space') ----- - memoryHogs - "Answer the list of objects to notify with #freeSomeSpace if memory gets full." - - ^ MemoryHogs ifNil: [MemoryHogs := OrderedCollection new]! Item was removed: - ----- Method: SmalltalkImage>>primLowSpaceSemaphore: (in category 'memory space') ----- - primLowSpaceSemaphore: aSemaphore - "Primitive. Register the given Semaphore to be signalled when the - number of free bytes drops below some threshold. Disable low-space - interrupts if the argument is nil." - - <primitive: 124> - self primitiveFailed! Item was removed: - ----- Method: SmalltalkImage>>primSignalAtBytesLeft: (in category 'memory space') ----- - primSignalAtBytesLeft: numBytes - "Tell the interpreter the low-space threshold in bytes. When the free - space falls below this threshold, the interpreter will signal the low-space - semaphore, if one has been registered. Disable low-space interrupts if the - argument is zero. Fail if numBytes is not an Integer." - - <primitive: 125> - self primitiveFailed! Item was removed: - ----- Method: SmalltalkImage>>signalLowSpace (in category 'memory space') ----- - signalLowSpace - "Signal the low-space semaphore to alert the user that space is running low." - - LowSpaceSemaphore signal.!

1 0

Review Request: withDoEnhanced.1.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 21 Feb '24

21 Feb '24

=============== Summary =============== Change Set: withDoEnhanced Date: 21 February 2024 Author: Christoph Thiede Improves support for #with:do: and friends: * On Matrix, enforces the other matrix to have same shape as the receiver. Previously, additional rows/columns were ignored. This breaking change aligns the behavior with that of SequenceableCollection>>with:do:. * Implements and tests #with:do:, #with:collect:, #withKeysValuesAnd:do:, and #withKeysValuesAnd:collect: on Dictionary. * Adds support for arithmetic operations between multiple dictionaries. Example: {JsonObject new likes: 12; shares: 7; yourself. JsonObject new likes: 4; shares: 3; yourself} average. --> a JsonObject(#likes->8 #shares->5) * Implements #@ on Matrix. Example: (Matrix rows: 2 columns: 2 contents: #(1 2 3 4)) @ (Matrix ones: 2) --> a Matrix(1@1 2@1 3@1 4@1) =============== Diff =============== Collection>>adaptToCollection:andSend: {adapting} · ct 2/21/2024 12:53 (changed) adaptToCollection: rcvr andSend: selector "If I am involved in arithmetic with another Collection, return a Collection of the results of each element combined with the scalar in that expression." - rcvr isSequenceable & self isSequenceable ifFalse: - [self error: 'Only sequenceable collections may be combined arithmetically']. + ((rcvr isSequenceable and: [self isSequenceable]) or: [rcvr isDictionary and: [self isDictionary]]) ifFalse: + [self error: 'Only sequenceable collections or dictionaries may be combined arithmetically']. ^ rcvr with: self collect: [:rcvrElement :myElement | rcvrElement perform: selector with: myElement] Dictionary>>isOfSameSizeCheck: {private} · ct 2/21/2024 12:54 + isOfSameSizeCheck: otherDictionary + + (otherDictionary keys = self keys) ifFalse: [self errorDifferentSize]. Dictionary>>with:collect: {enumerating} · ct 2/21/2024 13:04 + with: otherDictionary collect: twoArgBlock + "Collect and return the result of evaluating twoArgBlock with corresponding values from the receiver and otherDictionary." + + | result | + self isOfSameSizeCheck: otherDictionary. + result := self species new: self size. + self keysAndValuesDo: [:key :value | + result at: key put: + (twoArgBlock + value: value + value: (otherDictionary at: key))]. + ^ result Dictionary>>with:do: {enumerating} · ct 2/21/2024 13:02 + with: otherDictionary do: twoArgBlock + "Evaluate twoArgBlock with corresponding values from the receiver and otherDictionary." + + self isOfSameSizeCheck: otherDictionary. + self keysAndValuesDo: [:key :value | + twoArgBlock + value: value + value: (otherDictionary at: key)]. Dictionary>>withKeysValuesAnd:collect: {enumerating} · ct 2/21/2024 13:03 + withKeysValuesAnd: otherDictionary collect: threeArgBlock + "Collect and return the result of evaluating threeArgBlock with keys and values from the receiver and corresponding values from otherDictionary." + + | result | + self isOfSameSizeCheck: otherDictionary. + result := self species new: self size. + self keysAndValuesDo: [:key :value | + result at: key put: + (threeArgBlock + value: key + value: value + value: (otherDictionary at: key))]. + ^ result Dictionary>>withKeysValuesAnd:do: {enumerating} · ct 2/21/2024 13:03 + withKeysValuesAnd: otherDictionary do: threeArgBlock + "Evaluate threeArgBlock with corresponding values from the receiver and otherDictionary." + + self isOfSameSizeCheck: otherDictionary. + self keysAndValuesDo: [:key :value | + threeArgBlock + value: key + value: value + value: (otherDictionary at: key)]. DictionaryTest>>testPlus {tests - arithmetic} · ct 2/21/2024 13:16 + testPlus + + | dict1 dict2 | + dict1 := Dictionary new. + dict1 at: #a put: 1; at: #b put: 2. + + dict2 := Dictionary new. + dict2 at: #a put: 10; at: #b put: 20. + + self + assert: (Dictionary new at: #a put: 11; at: #b put: 22; yourself) + equals: dict1 + dict2. DictionaryTest>>testWithCollect {tests - enumerating} · ct 2/21/2024 13:15 + testWithCollect + + | dict1 dict2 | + dict1 := Dictionary new. + dict1 at: #a put: 1; at: #b put: 2. + + dict2 := Dictionary new. + dict2 at: #a put: 10; at: #c put: 30. + + self + should: [dict1 with: dict2 collect: [:a :b | ]] + raise: Error. + + dict2 := Dictionary new. + dict2 at: #a put: 10; at: #b put: 20. + self + assert: (Dictionary new at: #a put: 11; at: #b put: 22; yourself) + equals: (dict1 with: dict2 collect: [:a :b | a + b]). DictionaryTest>>testWithDo {tests - enumerating} · ct 2/21/2024 13:15 + testWithDo + + | dict1 dict2 | + dict1 := Dictionary new. + dict1 at: #a put: 1; at: #b put: 2. + + dict2 := Dictionary new. + dict2 at: #a put: -1; at: #c put: -3. + + self + should: [dict1 with: dict2 do: [:a :b | ]] + raise: Error. + + dict2 := Dictionary new. + dict2 at: #a put: -1; at: #b put: -2. + dict1 with: dict2 do: [:pos :neg | + self assert: (dict1 at: (dict2 keyAtValue: neg)) equals: neg negated. + self assert: (dict2 at: (dict1 keyAtValue: pos)) equals: pos negated]. DictionaryTest>>testWithKeysAndValuesAndCollect {tests - enumerating} · ct 2/21/2024 13:15 + testWithKeysAndValuesAndCollect + + | dict1 dict2 | + dict1 := Dictionary new. + dict1 at: #a put: 1; at: #b put: 2. + + dict2 := Dictionary new. + dict2 at: #a put: 10; at: #c put: 30. + + self + should: [dict1 withKeysValuesAnd: dict2 collect: [:key :a :b | ]] + raise: Error. + + dict2 := Dictionary new. + dict2 at: #a put: 10; at: #b put: 20. + self + assert: (Dictionary new at: #a put: #(a 11); at: #b put: #(b 22); yourself) + equals: (dict1 withKeysValuesAnd: dict2 collect: [:key :a :b | {key. a + b}]). DictionaryTest>>testWithKeysValuesAndDo {tests - enumerating} · ct 2/21/2024 13:15 + testWithKeysValuesAndDo + + | dict1 dict2 | + dict1 := Dictionary new. + dict1 at: #a put: 1; at: #b put: 2. + + dict2 := Dictionary new. + dict2 at: #a put: -1; at: #c put: -3. + + self + should: [dict1 withKeysValuesAnd: dict2 do: [:a :b | ]] + raise: Error. + + dict2 := Dictionary new. + dict2 at: #a put: -1; at: #b put: -2. + dict1 withKeysValuesAnd: dict2 do: [:key :pos :neg | + self assert: pos equals: (dict1 at: key). + self assert: neg equals: (dict2 at: key). + self assert: neg negated equals: (dict1 at: (dict2 keyAtValue: neg)). + self assert: pos negated equals: (dict2 at: (dict1 keyAtValue: pos))]. Matrix>>@ {arithmetic} · ct 2/21/2024 12:47 + @ aCollection + ^ self with: aCollection collect: [:a :b | a @ b] Matrix>>isOfSameSizeCheck: {private} · ct 2/21/2024 12:39 + isOfSameSizeCheck: otherMatrix + + (otherMatrix rowCount = self rowCount and: [otherMatrix columnCount = self columnCount]) ifFalse: [self errorDifferentSize]. Matrix>>with:collect: {enumerating} · ct 2/21/2024 12:38 (changed) - with: aCollection collect: aBlock - "aCollection must support #at:at: and be at least as large as the receiver." + with: otherMatrix collect: aBlock + self isOfSameSizeCheck: otherMatrix. ^self withIndicesCollect: [:each :row :column | - aBlock value: each value: (aCollection at: row at: column)] + aBlock value: each value: (otherMatrix at: row at: column)] Matrix>>with:do: {enumerating} · ct 2/21/2024 12:39 (changed) - with: aCollection do: aBlock - "aCollection must support #at:at: and be at least as large as the receiver." + with: otherMatrix do: aBlock + self isOfSameSizeCheck: otherMatrix. self withIndicesDo: [:each :row :column | - aBlock value: each value: (aCollection at: row at: column)]. + aBlock value: each value: (otherMatrix at: row at: column)]. Matrix>>with:inject:into: {enumerating} · ct 2/21/2024 12:40 (changed) - with: aCollection inject: startingValue into: aBlock - "aCollection must support #at:at: and be at least as large as the receiver." + with: otherMatrix inject: startingValue into: aBlock + self isOfSameSizeCheck: otherMatrix. ^self withIndicesInject: startingValue into: [:value :each :row :column | - aBlock value: value value: each value: (aCollection at: row at: column)] + aBlock value: value value: each value: (otherMatrix at: row at: column)] Object class>>releaseNotes {documentation} · ct 2/21/2024 13:37 (changed) releaseNotes "This is a scratch pad of release notes for the 6.0 release this version is building towards. Feel free to add to this comment mention of things that should appear in the release notes. - <tbd>" + * Matrix>>with:do:, Matrix>>with:collect:, and Matrix>>with:inject:into: no longer tolerate the other matrix to be larger than the receiver." self error: 'comment only' --- Sent from Squeak Inbox Talk ["withDoEnhanced.1.cs"]

1 0

Review Request: Collection ^star^star.1.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 21 Feb '24

21 Feb '24

=============== Summary =============== Change Set: Collection ** Date: 21 February 2024 Author: Christoph Thiede Implements missing #** on Collection. self assert: (1 to: 3) ** (1 to: 3) = #(1 4 27). self assert: (1 to: 3) ** 2 = #(1 4 9). self assert: 2 ** (1 to: 3) = #(2 4 8). =============== Diff =============== Collection>>** {arithmetic} · ct 2/21/2024 12:45 + ** arg + + ^ arg adaptToCollection: self andSend: #** Number>>** {mathematical functions} · ct 2/21/2024 13:27 (changed) ** aNumber + aNumber isNumber ifFalse: [^ aNumber adaptToInteger: self andSend: #**]. ^ self raisedTo: aNumber ["Collection ^star^star.1.cs"] --- Sent from Squeak Inbox Talk

1 0

The Inbox: Kernel-ct.1552.mcz
by commits＠source.squeak.org 21 Feb '24

21 Feb '24

Christoph Thiede uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1552.mcz ==================== Summary ==================== Name: Kernel-ct.1552 Author: ct Time: 21 February 2024, 1:31:08.543426 pm UUID: fa4b013e-86c7-2a40-832f-cb7814f0bb24 Ancestors: Kernel-mt.1551 Adds missing support for collection arguments on Integer>>//. self assert: 10 // #(1 2 5) = (10 / #(1 2 5)) =============== Diff against Kernel-mt.1551 =============== Item was changed: ----- Method: Integer>>// (in category 'arithmetic') ----- // aNumber | q | #Numeric. "Changed 200/01/19 For ANSI support." aNumber = 0 ifTrue: [^ (ZeroDivide dividend: self) signal"<- Chg"]. self = 0 ifTrue: [^ 0]. + aNumber isNumber ifFalse: [^ aNumber adaptToNumber: self andSend: #//]. q := self quo: aNumber. "Refer to the comment in Number|//." (q negative ifTrue: [q * aNumber ~= self] ifFalse: [q = 0 and: [self negative ~= aNumber negative]]) ifTrue: [^ q - 1"Truncate towards minus infinity."] ifFalse: [^ q]!

1 0

Squeak Oversight Board Election 2024
by ken.dickey＠whidbey.com 21 Feb '24

21 Feb '24

OK, ok. I'll put my hat in the ring. Reasons _not_ to vote for me: I am a shirker and a long-time Cuis user -- have not used Squeak in ages. However, I am a guilty bystander [partial list of sins]: 1980's Tektronix Research Lab doing Scheme runtime but interacting with (later) Instantiations Team & Tek Smalltalk. 1990's Apple Labs doing SK8 and various while down the hall Squeak was cooking. Did some very early benchmarking with John Maloney (I did for Scheme to compare with Squeak). Got to know various folks. Larry Tesler was my hiring manager. Did runtime inspection of Dave Simmons' Smalltalk Agents for Apple. Did a Scheme->Smalltalk translator and Solitaire game in Squeak (early 2000's). Resurrected OpenSmalltalk FrameBuffer support for Linux. Did initial port of stack interpreter to arm64/aarch64 and riscv64 Linux. Contributer to Cuis and am one author of TheCuisBook ( https://github.com/Cuis-Smalltalk/TheCuisBook ) Please add my name to candidates for the Squeak Oversight Board. If elected, I will pay attention and try not mess up. [Campaign promise (TM)] Good on ya, -KenD

3 2

[GitHub] Please verify your device
by GitHub 19 Feb '24

19 Feb '24

Hey squeak-smalltalk-bot! A sign in attempt requires further verification because we did not recognize your device. To complete the sign in, enter the verification code on the unrecognized device. Device: Chrome on Windows Verification code: 451070 If you did not attempt to sign in to your account, your password may be compromised. Visit https://github.com/settings/security to create a new, strong password for your GitHub account. If you'd like to automatically verify devices in the future, consider enabling two-factor authentication on your account. Visit https://docs.github.com/articles/configuring-two-factor-authentication to learn about two-factor authentication. If you decide to enable two-factor authentication, ensure you retain access to one or more account recovery methods. See https://docs.github.com/articles/configuring-two-factor-authentication-reco… in the GitHub Help. Thanks, The GitHub Team

1 0

[squeak-smalltalk/squeak-object-memory] DeferredUIMessages queue occassionally locked (Issue #116)
by Christoph Thiede 19 Feb '24

19 Feb '24

Over the past few years, I have observed the following behavior a couple of times: In `WorldState`, the `DeferredUIMessages` `SharedQueue` keeps non-empty permanently, and sending `nextOrNil` to it always answers `nil`. Practically, this causes UI messages being handled a few ticks too late, or even never. In this situations, `readSynch` apparently has not been signaled often enough. I have however no idea how this situation arises, nor I could reproduce it ... possibly some concurrency issue? -- Reply to this email directly or view it on GitHub: https://github.com/squeak-smalltalk/squeak-object-memory/issues/116 You are receiving this because you are subscribed to this thread. Message ID: <squeak-smalltalk/squeak-object-memory/issues/116(a)github.com>

3 2

The Trunk: Monticello-cmm.807.mcz
by commits＠source.squeak.org 19 Feb '24

19 Feb '24

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.807.mcz ==================== Summary ==================== Name: Monticello-cmm.807 Author: cmm Time: 19 February 2024, 1:00:29.476937 am UUID: ea4dc7e6-5232-4e81-88f5-796f49140bf7 Ancestors: Monticello-eem.806 Fixed the confirmation message associated with the 'copy image versions here' function on the Repository menu. =============== Diff against Monticello-eem.806 =============== Item was changed: ----- Method: MCRepository>>copyImageVersions (in category 'versions') ----- copyImageVersions "For each package contained in the receiver, copy the version of that package which is currently loaded in this image. If no version of a package is loaded in the image, nothing is copied for that package." MCRepository trunk = self ifTrue: [^ self error: 'Must not copy over to Trunk repository' translated]. MCRepository inbox = self ifTrue: [^ self error: 'Must not copy over to Inbox repository' translated]. MCRepository treated = self ifTrue: [^ self error: 'Must not copy over to Treated repository' translated]. self cacheAllFileNamesDuring: + [ self newerImageVersions do: [ : each | self storeVersion: each ] ]! - [ self allPackageNames do: - [ : eachPkgName | MCWorkingCopy allManagers - detect: [ : each | each packageName = eachPkgName ] - ifFound: - [ : loaded | loaded ancestors do: - [ : infoToCopy | (self includesVersionNamed: infoToCopy versionName) ifFalse: - [ (MCRepositoryGroup default versionWithInfo: infoToCopy) - ifNil: [ Warning signal: infoToCopy name , ' not found in RepositoryGroup default.' ] - ifNotNil: - [ : ver | self storeVersion: ver ] ] ] ] - ifNone: [ "Image specifies no version to copy." ] ] ]! Item was added: + ----- Method: MCRepository>>newerImageVersions (in category 'private') ----- + newerImageVersions + ^ Array streamContents: + [ : stream | self allPackageNames do: + [ : eachPkgName | MCWorkingCopy allManagers + detect: [ : each | each packageName = eachPkgName ] + ifFound: + [ : loaded | loaded ancestors do: + [ : infoToCopy | (self includesVersionNamed: infoToCopy versionName) ifFalse: + [ (MCRepositoryGroup default versionWithInfo: infoToCopy) + ifNil: [ Warning signal: infoToCopy name , ' not found in RepositoryGroup default.' ] + ifNotNil: + [ : ver | stream nextPut: ver ] ] ] ] + ifNone: [ "Image specifies no version to copy." ] ] ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>copyImageVersionsSafely (in category 'actions') ----- copyImageVersionsSafely + self repository newerImageVersions + ifEmpty: [ Project current uiManager inform: 'Repository up to date.' ] + ifNotEmpty: + [ : imageVersions | | msg | + msg := String streamContents: + [ : stream | imageVersions do: + [ : each | stream cr ; + nextPutAll: each info name ; nextPut: $,]. + stream cr ; + cr ; + nextPutAll: ' will be copied to {1}?' ]. + (Project current uiManager + confirm: (msg translated format: {self repository description}) asTextFromHtml + title: 'Copy Versions' translated) ifFalse: [ ^ self ]. + self copyImageVersions ]! - (Project uiManager confirm: ('Do you really want to copy the loaded version of each of {1} packages to {2}?' translated asTextFromHtml format: {MCWorkingCopy allManagers size. self repository description}) title: 'Copy Image Versions' translated) ifFalse: [^ self]. - self copyImageVersions.!

1 0

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