Packages September 2015

packages@lists.squeakfoundation.org

1 participants
86 discussions

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.652.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

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.651.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

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

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

01 Sep '15

1 0

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

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

01 Sep '15

1 0

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: TrueType-topa.40.mcz
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2015