Squeak-dev March 2016

squeak-dev@lists.squeakfoundation.org

31 participants
150 discussions

Daily Commit Log
by commits＠source.squeak.org 24 Mar '16

24 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009500.html Name: SqueakSSL-Core-eem.30 Ancestors: SqueakSSL-Core-ul.29 Avoid spin waiting in SSL connect, needed by Squeak 5.0, which doesn't yield on preemption. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009501.html Name: Tools-mt.681 Ancestors: Tools-kfr.680 Fix update behavior in "Recent Submissions" tool. =============================================

1 0

The Trunk: Tools-mt.681.mcz
by commits＠source.squeak.org 24 Mar '16

24 Mar '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.681.mcz ==================== Summary ==================== Name: Tools-mt.681 Author: mt Time: 24 March 2016, 8:15:08.242453 am UUID: fd5127f0-f598-4082-a258-db715da5116f Ancestors: Tools-kfr.680 Fix update behavior in "Recent Submissions" tool. =============== Diff against Tools-kfr.680 =============== Item was changed: ----- Method: RecentMessageSet>>reformulateList (in category 'update') ----- reformulateList "Reformulate the receiver's list. Exclude methods now deleted" + self + initializeMessageList: RecentMessages default methodReferences; + messageListIndex: (self messageListIndex min: messageList size); + changed: #messageList; + changed: #messageListIndex.! - initializeMessageList: RecentMessages default methodReferences ; - messageListIndex: (messageList size min: 1) ; - changed: #messageList ; - changed: #messageListIndex!

1 0

Impossible to grab the scroll bar in the Transcript if...
by Eliot Miranda 24 Mar '16

24 Mar '16

Hi All, _,,,^..^,,,_ best, Eliot

1 0

The Trunk: SqueakSSL-Core-eem.30.mcz
by commits＠source.squeak.org 24 Mar '16

24 Mar '16

Eliot Miranda uploaded a new version of SqueakSSL-Core to project The Trunk: http://source.squeak.org/trunk/SqueakSSL-Core-eem.30.mcz ==================== Summary ==================== Name: SqueakSSL-Core-eem.30 Author: eem Time: 23 March 2016, 4:56:42.143682 pm UUID: ee6874d3-4825-46f2-8815-06351c26c4e6 Ancestors: SqueakSSL-Core-ul.29 Avoid spin waiting in SSL connect, needed by Squeak 5.0, which doesn't yield on preemption. =============== Diff against SqueakSSL-Core-ul.29 =============== Item was changed: ----- Method: SqueakSSL>>connect:from:to:into: (in category 'operations') ----- connect: srcBuf from: start to: stop into: dstBuf "Start or continue the server handshake using the given input token." + | r | + r := self primitiveSSL: handle connect: srcBuf startingAt: start count: stop-start+1 into: dstBuf. + r <= 0 ifTrue: + [Processor yield]. + ^r! - ^self primitiveSSL: handle connect: srcBuf startingAt: start count: stop-start+1 into: dstBuf!

1 0

Possible fix to JPEGReadWriter2Plugin allowing use of normally installed library
by tim Rowledge 23 Mar '16

23 Mar '16

Somebody on the Pi forums has been looking into the jpglib stuff and concluded that there is a simple fix to allow use of the normal linux libjpeg. This would be nice if true. I’m currently swamped but anyone interested can look at https://www.raspberrypi.org/forums/viewtopic.php?p=934869#p934869 and the code and who konws what may happen? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- A .22 caliber intellect in a .357 Magnum world.

1 0

Squeak 1.0
by marcel.taeumel 21 Mar '16

21 Mar '16

Hi, there! Does anyone know where to get an image of Squeak 1.0? Best, Marcel -- View this message in context: http://forum.world.st/Squeak-1-0-tp4885604.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

Daily Commit Log
by commits＠source.squeak.org 20 Mar '16

20 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009496.html Name: Kernel-ul.1006 Ancestors: Kernel-eem.1005 - 10% faster SmallInteger >> #decimalDigitLength on 64-bit VM - added a comment to SmallInteger >> #numberOfDigitsInBase: - reformatted and tweaked Number >> #raisedToInteger: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009497.html Name: Kernel-ul.1007 Ancestors: Kernel-ul.1006, Kernel-bf.1006 - merged - quicker SmallInteger>>printOn:base:length:padded: for base 10, the most common case ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009498.html Name: Collections-ul.681 Ancestors: Collections-ul.680 - Let WriteStream's #nextPutAll: and #next:putAll:startingAt: take the quick route too when collection and aCollection are both strings of the same field size. - PositionableStream >> #next:putAll:startingAt: can rely on the indexability of its argument, thus avoid creating copies of it. It also returns the collection argument, like other implementors of this method, instead of some copied subcollection. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009499.html Name: Collections-ul.682 Ancestors: Collections-ul.681 - avoid creating intermediate objects in String >> #padded:to:with: =============================================

1 0

The Trunk: Collections-ul.682.mcz
by commits＠source.squeak.org 20 Mar '16

20 Mar '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.682.mcz ==================== Summary ==================== Name: Collections-ul.682 Author: ul Time: 20 March 2016, 12:59:06.124515 am UUID: 5276c8f7-606f-42d1-9ce5-e48b88fdac2d Ancestors: Collections-ul.681 - avoid creating intermediate objects in String >> #padded:to:with: =============== Diff against Collections-ul.681 =============== Item was changed: ----- Method: String>>padded:to:with: (in category 'copying') ----- + padded: leftOrRight to: length with: aCharacter + + | result paddingLength | + (paddingLength := length - self size) <= 0 ifTrue: [ ^self ]. + result := self species new: length. + leftOrRight = #left ifTrue: [ + ^result + from: 1 + to: paddingLength + put: aCharacter; + replaceFrom: paddingLength + 1 + to: length + with: self + startingAt: 1; + yourself ]. + leftOrRight = #right ifTrue: [ + ^result + replaceFrom: 1 + to: self size + with: self + startingAt: 1; + from: self size + 1 + to: length + put: aCharacter; + yourself ]! - padded: leftOrRight to: length with: char - leftOrRight = #left ifTrue: - [^ (String new: (length - self size max: 0) withAll: char) , self]. - leftOrRight = #right ifTrue: - [^ self , (String new: (length - self size max: 0) withAll: char)].!

1 0

The Trunk: Collections-ul.681.mcz
by commits＠source.squeak.org 20 Mar '16

20 Mar '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.681.mcz ==================== Summary ==================== Name: Collections-ul.681 Author: ul Time: 19 March 2016, 1:39:02.54665 pm UUID: 738dd2f1-c003-4e50-899b-371486e5c419 Ancestors: Collections-ul.680 - Let WriteStream's #nextPutAll: and #next:putAll:startingAt: take the quick route too when collection and aCollection are both strings of the same field size. - PositionableStream >> #next:putAll:startingAt: can rely on the indexability of its argument, thus avoid creating copies of it. It also returns the collection argument, like other implementors of this method, instead of some copied subcollection. =============== Diff against Collections-ul.680 =============== Item was changed: ----- Method: PositionableStream>>next:putAll:startingAt: (in category 'accessing') ----- next: anInteger putAll: aCollection startingAt: startIndex "Store the next anInteger elements from the given collection." + + startIndex to: startIndex + anInteger - 1 do: [ :index | + self nextPut: (aCollection at: index) ]. + ^aCollection! - (startIndex = 1 and:[anInteger = aCollection size]) - ifTrue:[^self nextPutAll: aCollection]. - ^self nextPutAll: (aCollection copyFrom: startIndex to: startIndex+anInteger-1)! Item was changed: ----- Method: WriteStream>>next:putAll:startingAt: (in category 'accessing') ----- next: anInteger putAll: aCollection startingAt: startIndex "Store the next anInteger elements from the given collection." - | newEnd | + (collection class == aCollection class + or: [ collection isString + and: [ aCollection isString + and: [ collection class format = aCollection class format ] ] ]) "Let Strings with the same field size as collection take the quick route too." + ifFalse: [ ^super next: anInteger putAll: aCollection startingAt: startIndex ]. - collection class == aCollection class ifFalse: - [^ super next: anInteger putAll: aCollection startingAt: startIndex]. newEnd := position + anInteger. newEnd > writeLimit ifTrue: [self growTo: newEnd + 10]. collection replaceFrom: position+1 to: newEnd with: aCollection startingAt: startIndex. position := newEnd. ^aCollection! Item was changed: ----- Method: WriteStream>>nextPutAll: (in category 'accessing') ----- nextPutAll: aCollection | newEnd | + (collection class == aCollection class + or: [ collection isString + and: [ aCollection isString + and: [ collection class format = aCollection class format ] ] ]) "Let Strings with the same field size as collection take the quick route too." + ifFalse: [ ^ super nextPutAll: aCollection ]. - collection class == aCollection class ifFalse: - [^ super nextPutAll: aCollection ]. newEnd := position + aCollection size. newEnd > writeLimit ifTrue: [self growTo: newEnd + 10]. collection replaceFrom: position+1 to: newEnd with: aCollection startingAt: 1. position := newEnd. ^aCollection!

1 0

The Trunk: Kernel-ul.1007.mcz
by commits＠source.squeak.org 20 Mar '16

20 Mar '16

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1007.mcz ==================== Summary ==================== Name: Kernel-ul.1007 Author: ul Time: 20 March 2016, 12:46:32.331305 am UUID: 10e56dde-9a4b-4fe5-af9f-a02546962e66 Ancestors: Kernel-ul.1006, Kernel-bf.1006 - merged - quicker SmallInteger>>printOn:base:length:padded: for base 10, the most common case =============== Diff against Kernel-ul.1006 =============== Item was changed: ----- Method: Pragma>>hasLiteral: (in category 'testing') ----- hasLiteral: aLiteral ^keyword == aLiteral + or: [(arguments hasLiteral: aLiteral) + or: [keyword == #hasLiteralTest: and: [ + self methodClass perform: arguments first with: aLiteral]]]! - or: [arguments hasLiteral: aLiteral]! Item was changed: ----- Method: SmallInteger>>printOn:base:length:padded: (in category 'printing') ----- printOn: stream base: base length: minimumLength padded: padWithZeroes | n numberOfDigits totalLength divisor | self < 0 ifTrue: [ n := self negated. totalLength := 1 ] ifFalse: [ n := self. totalLength := 0 ]. numberOfDigits := n numberOfDigitsInBase: base. totalLength := totalLength + numberOfDigits. padWithZeroes ifFalse: [ [ totalLength < minimumLength ] whileTrue: [ stream space. totalLength := totalLength + 1 ] ]. + self < 0 ifTrue: [ stream nextPut: $- ]. - n = self ifFalse: [ stream nextPut: $- ]. padWithZeroes ifTrue: [ [ totalLength < minimumLength ] whileTrue: [ stream nextPut: $0. totalLength := totalLength + 1 ] ]. + divisor := base = 10 + ifTrue: [ #(1 10 100 1000 10000 100000 1000000 10000000 100000000 1000000000 10000000000 100000000000 1000000000000 10000000000000 100000000000000 1000000000000000 10000000000000000 100000000000000000 1000000000000000000) at: numberOfDigits ] + ifFalse: [ base raisedToInteger: numberOfDigits - 1 ]. - divisor := (base raisedToInteger: numberOfDigits - 1). [ divisor > 0 ] whileTrue: [ | digit | digit := n // divisor. stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: digit + 1). n := n - (digit * divisor). divisor := divisor // base ]!

1 0

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

Jump to page: