Squeak-dev September 2015

squeak-dev@lists.squeakfoundation.org

40 participants
134 discussions

The Trunk: Compression-cmm.48.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Chris Muller uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-cmm.48.mcz ==================== Summary ==================== Name: Compression-cmm.48 Author: cmm Time: 1 September 2015, 3:43:17.149 pm UUID: 833287cb-44f0-42e8-9419-bd8cde39dd0a Ancestors: Compression-dtl.47 Allow zipping of directories with thousands of files, without creating thousands of instances of simultaneously open FileStream's in the image. =============== Diff against Compression-dtl.47 =============== Item was added: + ----- Method: ZipArchiveMember>>openStreamWhile: (in category 'private-writing') ----- + openStreamWhile: aBlock + ^ aBlock value! Item was changed: ----- Method: ZipArchiveMember>>writeTo: (in category 'writing') ----- + writeTo: aStream + self openStreamWhile: + [ self rewindData. + writeLocalHeaderRelativeOffset := aStream position. + self + writeLocalFileHeaderTo: aStream ; + writeDataTo: aStream ; + refreshLocalFileHeaderTo: aStream ]! - writeTo: aStream - self rewindData. - writeLocalHeaderRelativeOffset := aStream position. - self writeLocalFileHeaderTo: aStream. - self writeDataTo: aStream. - self refreshLocalFileHeaderTo: aStream.! Item was changed: ----- Method: ZipNewFileMember>>from: (in category 'initialization') ----- from: aFileName | entry | compressionMethod := CompressionStored. "Now get the size, attributes, and timestamps, and see if the file exists" stream := StandardFileStream readOnlyFileNamed: aFileName. self localFileName: (externalFileName := stream name). entry := stream directoryEntry. compressedSize := uncompressedSize := entry fileSize. desiredCompressionMethod := compressedSize > 0 ifTrue: [ CompressionDeflated ] ifFalse: [ CompressionStored ]. + self setLastModFileDateTimeFrom: entry modificationTime. + stream close! - self setLastModFileDateTimeFrom: entry modificationTime - ! Item was added: + ----- Method: ZipNewFileMember>>openStreamWhile: (in category 'private-writing') ----- + openStreamWhile: aBlock + stream open. + ^ aBlock ensure: [ stream close ]!

1 0

The Trunk: Collections-cbc.652.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cbc.652.mcz ==================== Summary ==================== Name: Collections-cbc.652 Author: cbc Time: 31 August 2015, 8:32:50.179 pm UUID: 88079716-328d-4a41-8838-595e6782882c Ancestors: Collections-cbc.651 #unsignedLong64At:put:bigEndian: on average fast. =============== Diff against Collections-cbc.651 =============== Item was changed: ----- Method: ByteArray>>unsignedLong64At:put:bigEndian: (in category 'platform independent access') ----- + unsignedLong64At: index put: value bigEndian: aBool + "Minimize largeInteger arithmetic" + | ix | + aBool ifFalse: [ + ix := index - 1. + 1 to: 8 do: [:pos| + self at: ix + pos put: (value digitAt: pos) - unsignedLong64At: index put: val bigEndian: aBool - aBool - ifTrue: [ - self unsignedLongAt: index put: (val bitShift: -32) bigEndian: true. - self unsignedLongAt: index+4 put: (val bitAnd: 16rFFFFFFFF) bigEndian: true. - ] - ifFalse: [ - self unsignedLongAt: index put: (val bitAnd: 16rFFFFFFFF) bigEndian: false. - self unsignedLongAt: index+4 put: (val bitShift: -32) bigEndian: false. ]. + ] ifTrue: [ + ix := index + 8. + 1 to: 8 do: [:pos| + self at: ix - pos put: (value digitAt: pos) + ]. + ]. + ^value - ^val !

1 0

The Trunk: Collections-cbc.651.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cbc.651.mcz ==================== Summary ==================== Name: Collections-cbc.651 Author: cbc Time: 31 August 2015, 3:53:15.138 pm UUID: 1d7408f6-a290-0d4b-8b83-6a6a2e4f325e Ancestors: Collections-cbc.650 Faster #unsignedLong64At:bigEndian: =============== Diff against Collections-cbc.650 =============== Item was changed: ----- Method: ByteArray>>unsignedLong64At:bigEndian: (in category 'platform independent access') ----- unsignedLong64At: index bigEndian: aBool + "Avoid as much largeInteger as we can" + | b0 b2 b3 b5 b6 w n2 n3 | + + aBool ifFalse: [ + w := self at: index. + b6 := self at: index+1. + b5 := self at: index+2. + n2 := self at: index+3. + b3 := self at: index+4. + b2 := self at: index+5. + n3 := self at: index+6. + b0 := self at: index+7. + ] ifTrue: [ + b0 := self at: index. + n3 := self at: index+1. + b2 := self at: index+2. + b3 := self at: index+3. + n2 := self at: index+4. + b5 := self at: index+5. + b6 := self at: index+6. + w := self at: index+7. + ]. + + "Minimize LargeInteger arithmetic" + b6 = 0 ifFalse:[w := (b6 bitShift: 8) + w]. + b5 = 0 ifFalse:[w := (b5 bitShift: 16) + w]. + + b3 = 0 ifFalse:[n2 := (b3 bitShift: 8) + n2]. + b2 = 0 ifFalse:[n2 := (b2 bitShift: 16) + n2]. + n2 == 0 ifFalse: [w := (n2 bitShift: 24) + w]. + + b0 = 0 ifFalse:[n3 := (b0 bitShift: 8) + n3]. + n3 == 0 ifFalse: [w := (n3 bitShift: 48) + w]. + + ^w! - | n1 n2 | - aBool - ifTrue: [ - n2 := self unsignedLongAt: index bigEndian: true. - n1 := self unsignedLongAt: index+4 bigEndian: true. - ] - ifFalse: [ - n1 := self unsignedLongAt: index bigEndian: false. - n2 := self unsignedLongAt: index+4 bigEndian: false. - ]. - ^(n2 bitShift: 32) + n1!

1 0

The Trunk: Collections-cbc.650.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cbc.650.mcz ==================== Summary ==================== Name: Collections-cbc.650 Author: cbc Time: 28 August 2015, 3:56:04.013 pm UUID: 35dc53fb-613d-f84a-bd9d-ffc19957feb8 Ancestors: Collections-ul.649 Add ByteArray methods to deal with long64bit values. =============== Diff against Collections-ul.649 =============== Item was added: + ----- Method: ByteArray>>unsignedLong64At:bigEndian: (in category 'platform independent access') ----- + unsignedLong64At: index bigEndian: aBool + | n1 n2 | + aBool + ifTrue: [ + n2 := self unsignedLongAt: index bigEndian: true. + n1 := self unsignedLongAt: index+4 bigEndian: true. + ] + ifFalse: [ + n1 := self unsignedLongAt: index bigEndian: false. + n2 := self unsignedLongAt: index+4 bigEndian: false. + ]. + ^(n2 bitShift: 32) + n1! Item was added: + ----- Method: ByteArray>>unsignedLong64At:put:bigEndian: (in category 'platform independent access') ----- + unsignedLong64At: index put: val bigEndian: aBool + aBool + ifTrue: [ + self unsignedLongAt: index put: (val bitShift: -32) bigEndian: true. + self unsignedLongAt: index+4 put: (val bitAnd: 16rFFFFFFFF) bigEndian: true. + ] + ifFalse: [ + self unsignedLongAt: index put: (val bitAnd: 16rFFFFFFFF) bigEndian: false. + self unsignedLongAt: index+4 put: (val bitShift: -32) bigEndian: false. + ]. + ^val + !

1 0

Re: [squeak-dev] The Trunk: TrueType-topa.40.mcz
by karl ramberg 01 Sep '15

01 Sep '15

Hi, Here I think it would be clearer to remove the out commented "]" ! Karl On Tue, Sep 1, 2015 at 2:57 PM, <commits(a)source.squeak.org> wrote: > Tobias Pape uploaded a new version of TrueType to project The Trunk: > http://source.squeak.org/trunk/TrueType-topa.40.mcz > > ==================== Summary ==================== > > Name: TrueType-topa.40 > Author: topa > Time: 1 September 2015, 2:57:19.158 pm > UUID: 9abe9053-6bf7-4a8a-b769-caf1d6bbbc97 > Ancestors: TrueType-topa.39 > > Use all glyphs in a Font, not just 256 (fix by Vasya Chajko) > > =============== Diff against TrueType-topa.39 =============== > > Item was changed: > ----- Method: TTCFontReader>>processCharMap: (in category 'as yet > unclassified') ----- > processCharMap: assoc > "Process the given character map" > > | glyph cmap encode0 encode1 char value null | > cmap := assoc value. > null := (glyphs at: (cmap at: Character space asUnicode + 1) + 1) > copy. > null contours: #(). > > encode0 := Array new: 256 withAll: glyphs first. > encode1 := Array new: 65536 withAll: glyphs first. > > 0 to: 255 do: [:i | > char := Character value: i. > glyph := glyphs at: (cmap at: char asUnicode + 1) + 1. > encode0 at: i+1 put: glyph. > ]. > Character separators do: [:c | > encode0 at: (c asciiValue + 1) put: null. > ]. > 0 to: 65536 - 1 do: [:i | > value := cmap at: i+1. > value = 65535 ifFalse: [ "???" > | g | > + g := glyphs at: value+1 ifAbsent: [ null. ]. > - g := glyphs at: value+1. > (g isKindOf: TTCompositeGlyph) ifFalse: [ > encode1 at: i+1 put: g. > ] ifTrue: [ > g basicGlyphs: (((glyphs at: value+1) > basicGlyphs) collect: [:t | t key->(glyphs at: (t value glyphIndex+1))]). > encode1 at: i+1 put: g > ]. > ] > ]. > > ^ {encode0. encode1}. > ! > > Item was changed: > ----- Method: TTFontReader>>decodeCmapFmtTable: (in category 'private') > ----- > decodeCmapFmtTable: entry > | cmapFmt length entryCount segCount segments offset cmap > firstCode | > cmapFmt := entry nextUShort. > length := entry nextUShort. > entry skip: 2. "skip version" > > cmapFmt = 0 ifTrue: "byte encoded table" > [length := length - 6. "should be always 256" > length <= 0 ifTrue: [^ nil]. "but sometimes, this table > is empty" > cmap := Array new: length. > entry nextBytes: length into: cmap startingAt: entry > offset. > ^ cmap]. > > cmapFmt = 4 ifTrue: "segment mapping to deltavalues" > [segCount := entry nextUShort // 2. > entry skip: 6. "skip searchRange, entrySelector, > rangeShift" > segments := Array new: segCount. > segments := (1 to: segCount) collect: [:e | Array new: 4]. > 1 to: segCount do: [:i | (segments at: i) at: 2 put: entry > nextUShort]. "endCount" > entry skip: 2. "skip reservedPad" > 1 to: segCount do: [:i | (segments at: i) at: 1 put: entry > nextUShort]. "startCount" > 1 to: segCount do: [:i | (segments at: i) at: 3 put: entry > nextShort]. "idDelta" > offset := entry offset. > 1 to: segCount do: [:i | (segments at: i) at: 4 put: entry > nextUShort]. "idRangeOffset" > entryCount := segments inject: 0 into: [:max :seg | max > max: seg second]. > cmap := Array new: entryCount+1 withAll: 0.. > segments withIndexDo: > [:seg :si | | code | > seg first to: seg second do: > [:i | > + seg last > 0 ifTrue: > - i < 256 ifTrue: > - [seg last > 0 ifTrue: > ["offset to glypthIdArray > - this is really C-magic!!" > entry offset: i - seg > first - 1 * 2 + seg last + si + si + offset. > code := entry nextUShort. > code > 0 ifTrue: [code := > code + seg third]] > ifFalse: > ["simple offset" > code := i + seg third]. > + cmap at: i + 1 put: code"]"]]. > - cmap at: i + 1 put: code]]]. > ^ cmap]. > > cmapFmt = 6 ifTrue: "trimmed table" > [firstCode := entry nextUShort. > entryCount := entry nextUShort. > cmap := Array new: entryCount + firstCode withAll: 0. > entryCount timesRepeat: > [cmap at: (firstCode := firstCode + 1) put: entry > nextUShort]. > ^ cmap]. > ^ nil! > > >

2 2

The Trunk: TrueType-topa.41.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Tobias Pape uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-topa.41.mcz ==================== Summary ==================== Name: TrueType-topa.41 Author: topa Time: 1 September 2015, 8:16:08.356 pm UUID: 0d684bf6-4a41-4e84-8277-b44b93575029 Ancestors: TrueType-topa.40 Remove spurious comment =============== Diff against TrueType-topa.40 =============== Item was changed: ----- Method: TTFontReader>>decodeCmapFmtTable: (in category 'private') ----- decodeCmapFmtTable: entry | cmapFmt length entryCount segCount segments offset cmap firstCode | cmapFmt := entry nextUShort. length := entry nextUShort. entry skip: 2. "skip version" cmapFmt = 0 ifTrue: "byte encoded table" [length := length - 6. "should be always 256" length <= 0 ifTrue: [^ nil]. "but sometimes, this table is empty" cmap := Array new: length. entry nextBytes: length into: cmap startingAt: entry offset. ^ cmap]. cmapFmt = 4 ifTrue: "segment mapping to deltavalues" [segCount := entry nextUShort // 2. entry skip: 6. "skip searchRange, entrySelector, rangeShift" segments := Array new: segCount. segments := (1 to: segCount) collect: [:e | Array new: 4]. 1 to: segCount do: [:i | (segments at: i) at: 2 put: entry nextUShort]. "endCount" entry skip: 2. "skip reservedPad" 1 to: segCount do: [:i | (segments at: i) at: 1 put: entry nextUShort]. "startCount" 1 to: segCount do: [:i | (segments at: i) at: 3 put: entry nextShort]. "idDelta" offset := entry offset. 1 to: segCount do: [:i | (segments at: i) at: 4 put: entry nextUShort]. "idRangeOffset" entryCount := segments inject: 0 into: [:max :seg | max max: seg second]. cmap := Array new: entryCount+1 withAll: 0.. segments withIndexDo: [:seg :si | | code | seg first to: seg second do: [:i | seg last > 0 ifTrue: ["offset to glypthIdArray - this is really C-magic!!" entry offset: i - seg first - 1 * 2 + seg last + si + si + offset. code := entry nextUShort. code > 0 ifTrue: [code := code + seg third]] ifFalse: ["simple offset" code := i + seg third]. + cmap at: i + 1 put: code]]. - cmap at: i + 1 put: code"]"]]. ^ cmap]. cmapFmt = 6 ifTrue: "trimmed table" [firstCode := entry nextUShort. entryCount := entry nextUShort. cmap := Array new: entryCount + firstCode withAll: 0. entryCount timesRepeat: [cmap at: (firstCode := firstCode + 1) put: entry nextUShort]. ^ cmap]. ^ nil!

1 0

Re: [squeak-dev] The Trunk: Tests-topa.330.mcz
by Chris Muller 01 Sep '15

01 Sep '15

WebClient is an HTTP application, Network deals in low-level sockets. Shouldn't WebClient depend on Network instead of vice-versa? On Tue, Sep 1, 2015 at 7:42 AM, <commits(a)source.squeak.org> wrote: > Tobias Pape uploaded a new version of Tests to project The Trunk: > http://source.squeak.org/trunk/Tests-topa.330.mcz > > ==================== Summary ==================== > > Name: Tests-topa.330 > Author: topa > Time: 1 September 2015, 2:42:05.272 pm > UUID: f8a88aaf-8f89-4359-b735-c97edb4b73b1 > Ancestors: Tests-mt.329 > > Network rightfully depens on WebClient, now that it is our default HTTP(S) client. > > =============== Diff against Tests-mt.329 =============== > > Item was changed: > ----- Method: PackageDependencyTest>>testNetwork (in category 'tests') ----- > testNetwork > self testPackage: 'Network' dependsExactlyOn: #( > Collections > Compiler > Compression > Files > Graphics > Kernel > Morphic > System > 'ToolBuilder-Kernel' > + 'WebClient-Core' > ).! > >

2 1

[Bug] Cannot use non-english characters even after loading a proper font
by Mateusz Grotek 01 Sep '15

01 Sep '15

Hi, First of all thank you for the new version of Squeak. It's really great. Special thanks for Tobias and Marcel for the font import tool! It works perfectly. Nevertheless I have noticed that there is a regression in Squeak 4.6/5.0 in the font handling. It's not possible anymore to use non-english characters even after loading a font that contains them (I've changed the code font and tried to use the characters in a workspace). Can anyone verify? Mateusz

5 13

The Trunk: TrueType-topa.40.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Tobias Pape uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-topa.40.mcz ==================== Summary ==================== Name: TrueType-topa.40 Author: topa Time: 1 September 2015, 2:57:19.158 pm UUID: 9abe9053-6bf7-4a8a-b769-caf1d6bbbc97 Ancestors: TrueType-topa.39 Use all glyphs in a Font, not just 256 (fix by Vasya Chajko) =============== Diff against TrueType-topa.39 =============== Item was changed: ----- Method: TTCFontReader>>processCharMap: (in category 'as yet unclassified') ----- processCharMap: assoc "Process the given character map" | glyph cmap encode0 encode1 char value null | cmap := assoc value. null := (glyphs at: (cmap at: Character space asUnicode + 1) + 1) copy. null contours: #(). encode0 := Array new: 256 withAll: glyphs first. encode1 := Array new: 65536 withAll: glyphs first. 0 to: 255 do: [:i | char := Character value: i. glyph := glyphs at: (cmap at: char asUnicode + 1) + 1. encode0 at: i+1 put: glyph. ]. Character separators do: [:c | encode0 at: (c asciiValue + 1) put: null. ]. 0 to: 65536 - 1 do: [:i | value := cmap at: i+1. value = 65535 ifFalse: [ "???" | g | + g := glyphs at: value+1 ifAbsent: [ null. ]. - g := glyphs at: value+1. (g isKindOf: TTCompositeGlyph) ifFalse: [ encode1 at: i+1 put: g. ] ifTrue: [ g basicGlyphs: (((glyphs at: value+1) basicGlyphs) collect: [:t | t key->(glyphs at: (t value glyphIndex+1))]). encode1 at: i+1 put: g ]. ] ]. ^ {encode0. encode1}. ! Item was changed: ----- Method: TTFontReader>>decodeCmapFmtTable: (in category 'private') ----- decodeCmapFmtTable: entry | cmapFmt length entryCount segCount segments offset cmap firstCode | cmapFmt := entry nextUShort. length := entry nextUShort. entry skip: 2. "skip version" cmapFmt = 0 ifTrue: "byte encoded table" [length := length - 6. "should be always 256" length <= 0 ifTrue: [^ nil]. "but sometimes, this table is empty" cmap := Array new: length. entry nextBytes: length into: cmap startingAt: entry offset. ^ cmap]. cmapFmt = 4 ifTrue: "segment mapping to deltavalues" [segCount := entry nextUShort // 2. entry skip: 6. "skip searchRange, entrySelector, rangeShift" segments := Array new: segCount. segments := (1 to: segCount) collect: [:e | Array new: 4]. 1 to: segCount do: [:i | (segments at: i) at: 2 put: entry nextUShort]. "endCount" entry skip: 2. "skip reservedPad" 1 to: segCount do: [:i | (segments at: i) at: 1 put: entry nextUShort]. "startCount" 1 to: segCount do: [:i | (segments at: i) at: 3 put: entry nextShort]. "idDelta" offset := entry offset. 1 to: segCount do: [:i | (segments at: i) at: 4 put: entry nextUShort]. "idRangeOffset" entryCount := segments inject: 0 into: [:max :seg | max max: seg second]. cmap := Array new: entryCount+1 withAll: 0.. segments withIndexDo: [:seg :si | | code | seg first to: seg second do: [:i | + seg last > 0 ifTrue: - i < 256 ifTrue: - [seg last > 0 ifTrue: ["offset to glypthIdArray - this is really C-magic!!" entry offset: i - seg first - 1 * 2 + seg last + si + si + offset. code := entry nextUShort. code > 0 ifTrue: [code := code + seg third]] ifFalse: ["simple offset" code := i + seg third]. + cmap at: i + 1 put: code"]"]]. - cmap at: i + 1 put: code]]]. ^ cmap]. cmapFmt = 6 ifTrue: "trimmed table" [firstCode := entry nextUShort. entryCount := entry nextUShort. cmap := Array new: entryCount + firstCode withAll: 0. entryCount timesRepeat: [cmap at: (firstCode := firstCode + 1) put: entry nextUShort]. ^ cmap]. ^ nil!

1 0

The Trunk: Tests-topa.330.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Tobias Pape uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-topa.330.mcz ==================== Summary ==================== Name: Tests-topa.330 Author: topa Time: 1 September 2015, 2:42:05.272 pm UUID: f8a88aaf-8f89-4359-b735-c97edb4b73b1 Ancestors: Tests-mt.329 Network rightfully depens on WebClient, now that it is our default HTTP(S) client. =============== Diff against Tests-mt.329 =============== Item was changed: ----- Method: PackageDependencyTest>>testNetwork (in category 'tests') ----- testNetwork self testPackage: 'Network' dependsExactlyOn: #( Collections Compiler Compression Files Graphics Kernel Morphic System 'ToolBuilder-Kernel' + 'WebClient-Core' ).!

1 0

Jump to page: