Packages January 2023

packages@lists.squeakfoundation.org

1 participants
145 discussions

The Trunk: Kernel-eem.1495.mcz
by commits＠source.squeak.org 03 Jan '23

03 Jan '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1495.mcz ==================== Summary ==================== Name: Kernel-eem.1495 Author: eem Time: 3 January 2023, 2:50:20.023806 pm UUID: 0f67a835-2719-4d8b-87a7-3a387f44349a Ancestors: Kernel-pre.1494 Print the inst var name after the index in symbolic (bytecode) method printing/exploring. If folks don't like this being the default the code is set up to be easy to turn into a preference. Just let me know. =============== Diff against Kernel-pre.1494 =============== Item was changed: ----- Method: InstructionPrinter>>popIntoReceiverVariable: (in category 'instruction decoding') ----- popIntoReceiverVariable: offset + "Print the Remove Top Of Stack And Store Into Instance Variable bytecode." - "Print the Remove Top Of Stack And Store Into Instance Variable - bytecode." + self print: 'popIntoRcvr: ' , (self stringForReceiverVariableOffset: offset)! - self print: 'popIntoRcvr: ' , offset printString! Item was changed: ----- Method: InstructionPrinter>>pushReceiverVariable: (in category 'instruction decoding') ----- pushReceiverVariable: offset "Print the Push Contents Of the Receiver's Instance Variable Whose Index is the argument, offset, On Top Of Stack bytecode." + self print: 'pushRcvr: ' , (self stringForReceiverVariableOffset: offset)! - self print: 'pushRcvr: ' , offset printString! Item was changed: ----- Method: InstructionPrinter>>storeIntoReceiverVariable: (in category 'instruction decoding') ----- storeIntoReceiverVariable: offset "Print the Store Top Of Stack Into Instance Variable Of Method bytecode." + self print: 'storeIntoRcvr: ' , (self stringForReceiverVariableOffset: offset)! - self print: 'storeIntoRcvr: ' , offset printString! Item was added: + ----- Method: InstructionPrinter>>stringForReceiverVariableOffset: (in category 'printing') ----- + stringForReceiverVariableOffset: offset + | tmpStream | + tmpStream := WriteStream on: (String new: 16). + offset printOn: tmpStream. + method methodClass ifNotNil: + [:class| + class isBehavior ifTrue: + [(class instVarNameForIndex: offset + 1) ifNotNil: + [:instVarName| + tmpStream nextPutAll: ' "'; nextPutAll: instVarName; nextPut: $"]]]. + ^tmpStream contents!

1 0

The Trunk: Tests-tpr.496.mcz
by commits＠source.squeak.org 03 Jan '23

03 Jan '23

tim Rowledge uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-tpr.496.mcz ==================== Summary ==================== Name: Tests-tpr.496 Author: tpr Time: 2 January 2023, 4:40:09.512233 pm UUID: 96704432-617d-473f-80fd-356b81e93542 Ancestors: Tests-ct.495 Make the SoundTest>>#testStoreSamples correctly delete the file post-test =============== Diff against Tests-ct.495 =============== Item was changed: ----- Method: SoundTest>>testStoreSamples (in category 'tests') ----- testStoreSamples | sound fileName arrayBytes fileBytes | sound := PluckedSound default. fileName := 'tempPluck.wav'. "Write to file" fileBytes := [ sound storeWAVOnFileNamed: fileName. FileStream oldFileNamed: fileName do: [:stream | stream binary contents]] ensure: [ + FileDirectory default deleteFileNamed: fileName]. - FileDirectory deleteFilePath: fileName]. "Write to array" arrayBytes := ByteArray streamContents: [:stream | sound storeWAVSamplesOn: stream]. "Compare" self assert: fileBytes equals: arrayBytes.!

1 0

The Trunk: Sound-tpr.93.mcz
by commits＠source.squeak.org 03 Jan '23

03 Jan '23

tim Rowledge uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-tpr.93.mcz ==================== Summary ==================== Name: Sound-tpr.93 Author: tpr Time: 2 January 2023, 4:38:20.207407 pm UUID: 5583f070-14de-4807-b445-c125ad072e9d Ancestors: Sound-eem.92 When writing a sound out to a file we need to divide the 'remaining' value by //2 to make the file size correct - otherwise it gets padded out by a lot of 0s =============== Diff against Sound-eem.92 =============== Item was changed: ----- Method: AbstractSound>>storeSampleCount:bigEndian:on: (in category 'file i/o') ----- storeSampleCount: samplesToStore bigEndian: bigEndianFlag on: aBinaryStream "Store my samples on the given stream at the current SoundPlayer sampling rate. If bigFlag is true, then each 16-bit sample is stored most-significant byte first (AIFF files), otherwise it is stored least-significant byte first (WAV files). If self isStereo is true, both channels are stored, creating a stereo file. Otherwise, only the left channel is stored, creating a mono file." | bufSize stereoBuffer reverseBytes streamDirect | self reset. bufSize := (2 * self samplingRate rounded) min: samplesToStore. "two second buffer" stereoBuffer := SoundBuffer newStereoSampleCount: bufSize. streamDirect := aBinaryStream isKindOf: StandardFileStream. reverseBytes := (bigEndianFlag xor: Smalltalk isBigEndian) xor: streamDirect not. 'Storing audio...' displayProgressFrom: 0 to: samplesToStore during: [:bar | | remaining out | remaining := samplesToStore. [remaining > 0] whileTrue: [ bar value: samplesToStore - remaining. stereoBuffer primFill: 0. "clear the buffer" self playSampleCount: (bufSize min: remaining) into: stereoBuffer startingAt: 1. out := self isStereo ifTrue: [stereoBuffer] ifFalse: [stereoBuffer extractLeftChannel]. reverseBytes ifTrue: [out reverseEndianness]. streamDirect ifTrue: "optimization for files: write sound buffer directly to file" + [aBinaryStream next: (out size // 2 min: remaining// 2) putAll: out startingAt: 1] "size in words" - [aBinaryStream next: (out size // 2 min: remaining) putAll: out startingAt: 1] "size in words" ifFalse: "for non-file streams:" [1 to: (out monoSampleCount min: remaining) do: [:i | aBinaryStream int16: (out at: i)]]. remaining := remaining - bufSize]].!

1 0

The Trunk: CollectionsTests-pre.384.mcz
by commits＠source.squeak.org 02 Jan '23

02 Jan '23

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.384.mcz ==================== Summary ==================== Name: CollectionsTests-pre.384 Author: pre Time: 2 January 2023, 1:27:06.565278 pm UUID: 3a23c00a-1e5e-384a-a797-cfb8250f46fe Ancestors: CollectionsTests-pre.383 Improves on the LimitedWriteStreamTests: - adds a test case for the stream contents - fixes the literal in the limit block test - removes accidentially committed expectedFailure (sorry for the noise) =============== Diff against CollectionsTests-pre.383 =============== Item was removed: - ----- Method: LimitedWriteStreamTest>>expectedFailure (in category 'failures') ----- - expectedFailure - - ^ #(testPutSymbolOnLimitedStringStream)! Item was changed: ----- Method: LimitedWriteStreamTest>>expectedFailures (in category 'failures') ----- expectedFailures + ^ #(testPutSymbolOnLimitedStringStream testStreamContentsPutSymbolOnLimitedStringStream)! - ^ #(testPutSymbolOnLimitedStringStream)! Item was changed: ----- Method: LimitedWriteStreamTest>>testPutSymbolOnLimitedStringStream (in category 'tests') ----- testPutSymbolOnLimitedStringStream | stream result | stream := LimitedWriteStream on: (String new: 5). stream setLimit: 5 limitBlock: [result := stream contents]. #abcdef printOn: stream. self + assert: '#abcd' + equals: result.! - assert: '#''abc' - equals: result. - ! Item was added: + ----- Method: LimitedWriteStreamTest>>testStreamContentsPutSymbolOnLimitedStringStream (in category 'tests') ----- + testStreamContentsPutSymbolOnLimitedStringStream + + | stream result | + stream := LimitedWriteStream on: (String new: 5). + stream setLimit: 5 limitBlock: [result := stream contents]. + #abcdef printOn: stream. + self + assert: '#abcd' + equals: stream contents. + !

1 0

The Trunk: CollectionsTests-pre.383.mcz
by commits＠source.squeak.org 02 Jan '23

02 Jan '23

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.383.mcz ==================== Summary ==================== Name: CollectionsTests-pre.383 Author: pre Time: 2 January 2023, 1:14:46.973278 pm UUID: 35b73a28-4a3f-6e45-8cd5-2e3e00bb95ce Ancestors: CollectionsTests-ct.382 Adds an expected failure test documenting a potential issue with LimitedWriteStream in combination with symbols, which results in the stream limit to be ignored. =============== Diff against CollectionsTests-ct.382 =============== Item was added: + TestCase subclass: #LimitedWriteStreamTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'! Item was added: + ----- Method: LimitedWriteStreamTest>>expectedFailure (in category 'failures') ----- + expectedFailure + + ^ #(testPutSymbolOnLimitedStringStream)! Item was added: + ----- Method: LimitedWriteStreamTest>>expectedFailures (in category 'failures') ----- + expectedFailures + + ^ #(testPutSymbolOnLimitedStringStream)! Item was added: + ----- Method: LimitedWriteStreamTest>>testPutStringOnLimitedStringStream (in category 'tests') ----- + testPutStringOnLimitedStringStream + + | stream result | + stream := LimitedWriteStream on: (String new: 5). + stream setLimit: 5 limitBlock: [result := stream contents]. + 'abcdef' printOn: stream. + self + assert: '''abcd' + equals: result. + ! Item was added: + ----- Method: LimitedWriteStreamTest>>testPutSymbolOnLimitedStringStream (in category 'tests') ----- + testPutSymbolOnLimitedStringStream + + | stream result | + stream := LimitedWriteStream on: (String new: 5). + stream setLimit: 5 limitBlock: [result := stream contents]. + #abcdef printOn: stream. + self + assert: '#''abc' + equals: result. + !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2023