Packages August 2017

packages@lists.squeakfoundation.org

1 participants
27 discussions

The Trunk: Kernel-cmm.1113.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.1113.mcz ==================== Summary ==================== Name: Kernel-cmm.1113 Author: cmm Time: 31 August 2017, 1:55:06.158647 pm UUID: 05c89229-0279-4842-b0d0-dacb2713a4b6 Ancestors: Kernel-tbn.1112 Provide #pinned: so clients don't have to write duplicate code (e.g., "myCondition ifTrue: [myObject pin] ifFalse: [myObject unpin]") while allowing frameworks to hook #pinned: if necessary (without overriding a primitive). =============== Diff against Kernel-tbn.1112 =============== Item was changed: ----- Method: Object>>pin (in category 'pinning') ----- pin + "Ensure the receiver is pinned and answer whether it was pinned." + ^ self pinned: true! - "The VM's garbage collector routinely moves objects as it reclaims and compacts - memory. But it can also pin an object so that it will not be moved, which can make - it easier to pass objects out through the FFI. Objects are unpinnned when created. - This method ensures an object is pinned, and answers whether it was already pinned." - ^self setPinned: true! Item was added: + ----- Method: Object>>pinned: (in category 'pinning') ----- + pinned: aBoolean + "The VM's garbage collector routinely moves objects as it reclaims and compacts memory. But it can also pin an object so that it will not be moved, which can make it easier to pass objects out through the FFI. Objects are unpinnned when created. + Answer whether the receiver was pinned." + ^ self setPinned: aBoolean! Item was changed: ----- Method: Object>>setPinned: (in category 'private') ----- setPinned: aBoolean + "Primitive which pins or unpins the receiver and answers whether it was already pinned." - "The VM's garbage collector routinely moves objects as it reclaims and compacts - memory. But it can also pin an object so that it will not be moved, which can make - it easier to pass objects out through the FFI. Objects are unpinnned when created. - This primitive either pins or unpins an object, and answers if it was already pinned." <primitive: 184 error: ec> ^self primitiveFailed! Item was changed: ----- Method: Object>>unpin (in category 'pinning') ----- unpin + "Ensure the receiver is unpinned and answer whether it was pinned." + ^ self pinned: false! - "The VM's garbage collector routinely moves objects as it reclaims and compacts - memory. But it can also pin an object so that it will not be moved, which can make - it easier to pass objects out through the FFI. Objects are unpinnned when created. - This method ensures an object is unpinned, and answers whether it was pinned." - ^self setPinned: false!

1 0

The Trunk: MultilingualTests-pre.27.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-pre.27.mcz ==================== Summary ==================== Name: MultilingualTests-pre.27 Author: pre Time: 31 August 2017, 6:19:18.949747 pm UUID: e3fa7680-679e-0a4f-b16d-5d8b3f205eda Ancestors: MultilingualTests-pre.26 Minor changes to the tests for MultiByteFileStream checking for correct latin1 conversion for the fixed size UTF encodings and working on the LineEndConvention test to read in through MultiByteFileStream. =============== Diff against MultilingualTests-pre.26 =============== Item was changed: ----- Method: MultiByteFileStreamTest>>testLineEndConvention:withConverter:ifFail: (in category 'helpers') ----- testLineEndConvention: lineEndConvention withConverter: textConverterClass ifFail: failBlock | expectedResult result | [ MultiByteFileStream forceNewFileNamed: fileName do: [ :file | file converter: textConverterClass new; lineEndConvention: lineEndConvention; cr; nextPut: Character cr; nextPutAll: String cr; nextPutAll: String cr asWideString ]. + result := MultiByteFileStream oldFileNamed: fileName do: [ :file | + file + converter: textConverterClass new; + contents ]. - result := StandardFileStream oldFileNamed: fileName do: [ :file | - file contents ]. expectedResult := String streamContents: [ :stream | 4 timesRepeat: [ stream perform: lineEndConvention ] ]. result = expectedResult ifFalse: [ failBlock value: expectedResult asByteArray value: result asByteArray ] ] on: Error do: [ :err | failBlock value: err messageText value: err messageText ]! Item was changed: ----- Method: MultiByteFileStreamTest>>testLineEndConversion (in category 'testing') ----- testLineEndConversion | failures | fileName := 'foolinendconversion.txt'. failures := OrderedCollection new. TextConverter allSubclassesDo: [ :textConverterClass | textConverterClass encodingNames ifNotEmpty: [ #(cr lf crlf) do: [ :lineEndConvention | self testLineEndConvention: lineEndConvention withConverter: textConverterClass ifFail: [ :expectedResult :result | failures add: { textConverterClass. lineEndConvention. expectedResult. result } ] ] ] ]. self assert: failures isEmpty. "The code below is here to help you see why those cases fail" failures do: [ :failure | self testLineEndConvention: failure second withConverter: failure first ifFail: [ :expectedResult :result | self halt ] ].! Item was added: + ----- Method: MultiByteFileStreamTest>>testNextPutAllUtfsStartingAt (in category 'testing') ----- + testNextPutAllUtfsStartingAt + + | result | + fileName := 'foonextputallstartingat.txt'. + {'utf-16' . #[0 64 216 0 220 0 216 0 220 1 216 0 220 2] . + 'utf-32'. #[0 0 0 64 0 1 0 0 0 1 0 1 0 1 0 2]} + pairsDo: [:encodingName :encodingResult | + MultiByteFileStream forceNewFileNamed: fileName do: [ :file | | string | + file converter: (TextConverter newForEncoding: encodingName). + string := self unicodeString. + file + next: 2 putAll: string startingAt: 1; + next: 1 putAll: string startingAt: 3; + next: 1 putAll: string startingAt: 4 ]. + result := StandardFileStream readOnlyFileNamed: fileName do: [ :file | + file binary; contents ]. + + "See for example: https://unicode-table.com/de/10000/ --pre" + self assert: encodingResult equals: result] + + + ! Item was added: + ----- Method: MultiByteFileStreamTest>>unicodeString (in category 'fixtures') ----- + unicodeString + + ^ String newFrom: (#(64 65536 65537 65538) collect: [:n | Character codePoint: n])!

1 0

The Trunk: Collections-tonyg.734.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-tonyg.734.mcz ==================== Summary ==================== Name: Collections-tonyg.734 Author: tonyg Time: 23 February 2017, 2:08:07.162997 pm UUID: 9edf6f29-ea5e-4c3b-9d05-03c54d4ba86c Ancestors: Collections-topa.733 Factor out #upToPosition:, which lets us address the discrepancy between position counting bytes in MultiByteFileStream, but #next: expecting a count of items in #upToAll:. This is the first half of a fix for Mantis #4665. See also MultilingualTests-tonyg.22. =============== Diff against Collections-topa.733 =============== Item was changed: ----- Method: PositionableStream>>upToAll: (in category 'accessing') ----- upToAll: aCollection "Answer a subcollection from the current access position to the occurrence (if any, but not inclusive) of aCollection. If aCollection is not in the stream, answer the entire rest of the stream." | startPos endMatch result | startPos := self position. (self match: aCollection) ifTrue: [endMatch := self position. self position: startPos. + result := self upToPosition: endMatch - aCollection size. - result := self next: endMatch - startPos - aCollection size. self position: endMatch. ^ result] ifFalse: [self position: startPos. ^ self upToEnd]! Item was added: + ----- Method: PositionableStream>>upToPosition: (in category 'accessing') ----- + upToPosition: anInteger + "Answer a subcollection containing items starting from the current position and ending including the given position. Usefully different to #next: in that in the case of MultiByteFileStream, and perhaps others, positions measure in terms of encoded items, while #next: convention is to name a number of items, independent of their encoding in the underlying buffer." + ^ self next: anInteger - position + !

1 0

The Trunk: Multilingual-tonyg.218.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-tonyg.218.mcz ==================== Summary ==================== Name: Multilingual-tonyg.218 Author: tonyg Time: 23 February 2017, 2:13:59.45456 pm UUID: 86e12680-7d6d-400c-8215-62a8315f01f1 Ancestors: Multilingual-tfel.217 Override PositionableStream>>#upToPosition:, introduced in Collections-tonyg.734, in order to reflect the fact that positions count bytes here; previously, #next: was being used, but that method expects a count of characters, not bytes. This is the second half of a fix for Mantis #4665. See also MultilingualTests-tonyg.22. =============== Diff against Multilingual-tfel.217 =============== Item was added: + ----- Method: MultiByteFileStream>>upToPosition: (in category 'accessing') ----- + upToPosition: anInteger + "Answer a subcollection containing items starting from the current position and ending including the given position. Usefully different to #next: in that positions measure *bytes* from the file, where #next: wants to measure *characters*." + ^self collectionSpecies new: 1000 streamContents: [ :stream | + | ch | + [ (ch := self next) == nil or: [ position > anInteger ] ] + whileFalse: [ stream nextPut: ch ] ]!

1 0

The Trunk: MultilingualTests-tonyg.22.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-tonyg.22.mcz ==================== Summary ==================== Name: MultilingualTests-tonyg.22 Author: tonyg Time: 23 February 2017, 2:01:47.977527 pm UUID: 76769ce3-a15d-46a7-acbd-8acfbd56fcc9 Ancestors: MultilingualTests-pre.21 Test cases from Mantis #4665. =============== Diff against MultilingualTests-pre.21 =============== Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllAscii (in category 'testing') ----- + testUpToAllAscii + "This test case is inspired by Mantis #4665." + "Compare to testUpToAllUtf." + + | in out fn resultA resultB | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 'A<'. "Encodes to byte sequence 413C" + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultA := in upToAll: '<'. + in close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultB := in upTo: $<. + in close. + + self assert: resultA = resultB + ! Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllUtf (in category 'testing') ----- + testUpToAllUtf + "This test case is adapted from Mantis #4665." + "MultiByteFileStream was relying on PositionableStream>>#match: to discover the position immediately following the delimiter collection. It would then use #next: to retrieve a number of *characters* computed as the difference in stream positions. However, stream positions are measured in *bytes*, not characters, so this would lead to misalignment when the skipped text included UTF-8 encoded characters." + + | in out fn resultA resultB | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 231 asCharacter asString, '<'. "Encodes to byte sequence C3A73C" + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultA := in upToAll: '<'. + in close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultB := in upTo: $<. + in close. + + self assert: resultA = resultB + !

1 0

The Trunk: MultilingualTests-pre.26.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-pre.26.mcz ==================== Summary ==================== Name: MultilingualTests-pre.26 Author: pre Time: 31 August 2017, 3:17:33.9894 pm UUID: 6916746b-6a8d-734a-8457-6d2af090fe4b Ancestors: MultilingualTests-pre.25, MultilingualTests-tonyg.22 Merges MultilingualTests-tonyg.22 which tests a fix for Mantis #4665 and deals with the difference in counting at the public interface of streams and counting the steps in the underlying buffer. =============== Diff against MultilingualTests-pre.25 =============== Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllAscii (in category 'testing') ----- + testUpToAllAscii + "This test case is inspired by Mantis #4665." + "Compare to testUpToAllUtf." + + | in out fn resultA resultB | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 'A<'. "Encodes to byte sequence 413C" + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultA := in upToAll: '<'. + in close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultB := in upTo: $<. + in close. + + self assert: resultA = resultB + ! Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllUtf (in category 'testing') ----- + testUpToAllUtf + "This test case is adapted from Mantis #4665." + "MultiByteFileStream was relying on PositionableStream>>#match: to discover the position immediately following the delimiter collection. It would then use #next: to retrieve a number of *characters* computed as the difference in stream positions. However, stream positions are measured in *bytes*, not characters, so this would lead to misalignment when the skipped text included UTF-8 encoded characters." + + | in out fn resultA resultB | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 231 asCharacter asString, '<'. "Encodes to byte sequence C3A73C" + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultA := in upToAll: '<'. + in close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultB := in upTo: $<. + in close. + + self assert: resultA = resultB + !

1 0

The Trunk: Multilingual-pre.230.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-pre.230.mcz ==================== Summary ==================== Name: Multilingual-pre.230 Author: pre Time: 31 August 2017, 3:15:51.6494 pm UUID: 739e6436-0d72-4048-a12a-93a0801c2872 Ancestors: Multilingual-pre.229, Multilingual-tonyg.218 Merges Multilingual-tonyg.218 which is part of a fix for Mantis #4665 and deals with the difference in counting at the public interface of streams and counting the steps in the underlying buffer. =============== Diff against Multilingual-pre.229 =============== Item was added: + ----- Method: MultiByteFileStream>>upToPosition: (in category 'accessing') ----- + upToPosition: anInteger + "Answer a subcollection containing items starting from the current position and ending including the given position. Usefully different to #next: in that positions measure *bytes* from the file, where #next: wants to measure *characters*." + ^self collectionSpecies new: 1000 streamContents: [ :stream | + | ch | + [ (ch := self next) == nil or: [ position > anInteger ] ] + whileFalse: [ stream nextPut: ch ] ]!

1 0

The Trunk: Collections-pre.763.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.763.mcz ==================== Summary ==================== Name: Collections-pre.763 Author: pre Time: 31 August 2017, 3:14:26.5764 pm UUID: ffff1838-0f68-9e49-bd57-6263eaebd8d7 Ancestors: Collections-pre.762, Collections-tonyg.734 Merges Collections-tonyg.734 which fixes Mantis #4665 and deals with the difference in counting at the public interface of streams and counting the steps in the underlying buffer. =============== Diff against Collections-pre.762 =============== Item was changed: ----- Method: PositionableStream>>upToAll: (in category 'accessing') ----- upToAll: aCollection "Answer a subcollection from the current access position to the occurrence (if any, but not inclusive) of aCollection. If aCollection is not in the stream, answer the entire rest of the stream." | startPos endMatch result | startPos := self position. (self match: aCollection) ifTrue: [endMatch := self position. self position: startPos. + result := self upToPosition: endMatch - aCollection size. - result := self next: endMatch - startPos - aCollection size. self position: endMatch. ^ result] ifFalse: [self position: startPos. ^ self upToEnd]! Item was added: + ----- Method: PositionableStream>>upToPosition: (in category 'accessing') ----- + upToPosition: anInteger + "Answer a subcollection containing items starting from the current position and ending including the given position. Usefully different to #next: in that in the case of MultiByteFileStream, and perhaps others, positions measure in terms of encoded items, while #next: convention is to name a number of items, independent of their encoding in the underlying buffer." + ^ self next: anInteger - position + !

1 0

The Trunk: Multilingual-jr.218.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-jr.218.mcz ==================== Summary ==================== Name: Multilingual-jr.218 Author: jr Time: 19 January 2017, 5:14:23.763655 pm UUID: 36416c42-a4b4-554f-8203-aba25eee794f Ancestors: Multilingual-tfel.217 support 'iso-8859-1' and do not let UTF8TextConverter expect that its input stream returns Characters from basicNext A stream implementation might always return bytes from basicNext and expect the conversion to Character to be done solely by the TextConverter, so use asInteger instead of asciiValue to support both cases. Convert back with asCharacter. =============== Diff against Multilingual-tfel.217 =============== Item was changed: ----- Method: Latin1TextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('latin-1' 'latin1' 'iso-8859-1') copy. - ^ #('latin-1' 'latin1') copy. ! Item was changed: ----- Method: UTF8TextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | char1 value1 char2 value2 unicode char3 value3 char4 value4 | aStream isBinary ifTrue: [^ aStream basicNext]. char1 := aStream basicNext. char1 ifNil:[^ nil]. + value1 := char1 asInteger. - value1 := char1 asciiValue. value1 <= 127 ifTrue: [ "1-byte char" + ^ char1 asCharacter - ^ char1 ]. "at least 2-byte char" char2 := aStream basicNext. + char2 ifNil:[^self errorMalformedInput: (String with: char1 asCharacter)]. + value2 := char2 asInteger. - char2 ifNil:[^self errorMalformedInput: (String with: char1)]. - value2 := char2 asciiValue. (value1 bitAnd: 16rE0) = 192 ifTrue: [ ^ Unicode value: ((value1 bitAnd: 31) bitShift: 6) + (value2 bitAnd: 63). ]. "at least 3-byte char" char3 := aStream basicNext. + char3 ifNil:[^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter)]. + value3 := char3 asInteger. - char3 ifNil:[^self errorMalformedInput: (String with: char1 with: char2)]. - value3 := char3 asciiValue. (value1 bitAnd: 16rF0) = 224 ifTrue: [ unicode := ((value1 bitAnd: 15) bitShift: 12) + ((value2 bitAnd: 63) bitShift: 6) + (value3 bitAnd: 63). ]. (value1 bitAnd: 16rF8) = 240 ifTrue: [ "4-byte char" char4 := aStream basicNext. + char4 ifNil:[^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter with: char3 asCharacter)]. + value4 := char4 asInteger. - char4 ifNil:[^self errorMalformedInput: (String with: char1 with: char2 with: char3)]. - value4 := char4 asciiValue. unicode := ((value1 bitAnd: 16r7) bitShift: 18) + ((value2 bitAnd: 63) bitShift: 12) + ((value3 bitAnd: 63) bitShift: 6) + (value4 bitAnd: 63). ]. + unicode ifNil:[^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter with: char3 asCharacter)]. - unicode ifNil:[^self errorMalformedInput: (String with: char1 with: char2 with: char3)]. unicode > 16r10FFFD ifTrue: [ + ^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter with: char3 asCharacter). - ^self errorMalformedInput: (String with: char1 with: char2 with: char3). ]. unicode = 16rFEFF ifTrue: [^ self nextFromStream: aStream]. ^ Unicode value: unicode. !

1 0

The Trunk: Multilingual-pre.229.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-pre.229.mcz ==================== Summary ==================== Name: Multilingual-pre.229 Author: pre Time: 31 August 2017, 2:56:54.1644 pm UUID: c481ed5b-4bf7-fb4b-9025-bb9e9d956778 Ancestors: Multilingual-pre.228, Multilingual-jr.218 Merges Multilingual-jr.218 from the inbox =============== Diff against Multilingual-pre.228 =============== Item was changed: ----- Method: UTF8TextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | char1 value1 char2 value2 unicode char3 value3 char4 value4 | aStream isBinary ifTrue: [^ aStream basicNext]. char1 := aStream basicNext. char1 ifNil:[^ nil]. + value1 := char1 asInteger. - value1 := char1 asciiValue. value1 <= 127 ifTrue: [ "1-byte char" + ^ char1 asCharacter - ^ char1 ]. "at least 2-byte char" char2 := aStream basicNext. + char2 ifNil:[^self errorMalformedInput: (String with: char1 asCharacter)]. + value2 := char2 asInteger. - char2 ifNil:[^self errorMalformedInput: (String with: char1)]. - value2 := char2 asciiValue. (value1 bitAnd: 16rE0) = 192 ifTrue: [ ^ Unicode value: ((value1 bitAnd: 31) bitShift: 6) + (value2 bitAnd: 63). ]. "at least 3-byte char" char3 := aStream basicNext. + char3 ifNil:[^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter)]. + value3 := char3 asInteger. - char3 ifNil:[^self errorMalformedInput: (String with: char1 with: char2)]. - value3 := char3 asciiValue. (value1 bitAnd: 16rF0) = 224 ifTrue: [ unicode := ((value1 bitAnd: 15) bitShift: 12) + ((value2 bitAnd: 63) bitShift: 6) + (value3 bitAnd: 63). ]. (value1 bitAnd: 16rF8) = 240 ifTrue: [ "4-byte char" char4 := aStream basicNext. + char4 ifNil:[^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter with: char3 asCharacter)]. + value4 := char4 asInteger. - char4 ifNil:[^self errorMalformedInput: (String with: char1 with: char2 with: char3)]. - value4 := char4 asciiValue. unicode := ((value1 bitAnd: 16r7) bitShift: 18) + ((value2 bitAnd: 63) bitShift: 12) + ((value3 bitAnd: 63) bitShift: 6) + (value4 bitAnd: 63). ]. + unicode ifNil:[^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter with: char3 asCharacter)]. - unicode ifNil:[^self errorMalformedInput: (String with: char1 with: char2 with: char3)]. unicode > 16r10FFFD ifTrue: [ + ^self errorMalformedInput: (String with: char1 asCharacter with: char2 asCharacter with: char3 asCharacter). - ^self errorMalformedInput: (String with: char1 with: char2 with: char3). ]. unicode = 16rFEFF ifTrue: [^ self nextFromStream: aStream]. ^ Unicode value: unicode. !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2017