Packages March 2016

packages@lists.squeakfoundation.org

1 participants
112 discussions

The Trunk: Regex-Core-ul.47.mcz
by commits＠source.squeak.org 26 Mar '16

26 Mar '16

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.47.mcz ==================== Summary ==================== Name: Regex-Core-ul.47 Author: ul Time: 26 March 2016, 8:40:59.776673 pm UUID: 37a57fa6-b710-420a-a5fa-c4ce991ec118 Ancestors: Regex-Core-ul.46 - fix a slip in RxMatchOptimizer >> #prefixTester =============== Diff against Regex-Core-ul.46 =============== Item was changed: ----- Method: RxMatchOptimizer>>prefixTester (in category 'private') ----- prefixTester | p | prefixes ifNil: [ ^nil ]. prefixes size = 1 ifTrue: [ | prefixChar | prefixChar := prefixes anyOne. ignoreCase ifTrue: [ | lowercasePrefixChar | lowercasePrefixChar := prefixChar asLowercase. prefixChar := prefixChar asUppercase. prefixChar == lowercasePrefixChar ifFalse: [ ^[ :char :matcher | char == prefixChar or: [ char == lowercasePrefixChar ] ] ] ]. ^[ :char :matcher | char == prefixChar ] ]. ignoreCase ifTrue: [ prefixes copy do: [ :each | | character | + (character := each asUppercase) == each + ifFalse: [ prefixes add: character ] + ifTrue: [ + (character := each asLowercase) == each ifFalse: [ + prefixes add: character ] ] ] ]. - (character := each asUppercase) == each ifFalse: [ - prefixes add: character ]. - (character := each asUppercase) == each ifFalse: [ - prefixes add: character ] ] ]. prefixes size < 10 ifTrue: [ "10 is an empirical value" p := prefixes asArray. ^[ :char :matcher | p instVarsInclude: char ] ]. ^[ :char :matcher | prefixes includes: char ]!

1 0

The Trunk: Regex-Core-ul.47.mcz
by commits＠source.squeak.org 26 Mar '16

26 Mar '16

1 0

The Trunk: Regex-Core-ul.46.mcz
by commits＠source.squeak.org 26 Mar '16

26 Mar '16

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.46.mcz ==================== Summary ==================== Name: Regex-Core-ul.46 Author: ul Time: 26 March 2016, 7:18:24.505619 pm UUID: d7cbc4e5-32ee-4ea3-9228-ff39b3c76af7 Ancestors: Regex-Core-ul.45 Few more RxMatchOptimizer tweaks: - prefixes, nonPrefixes, predicates, nonPredicates can never be empty - #predicateTester creates better blocks - removed the never sent #addNonPrefix: method RxMatcher >> #atEndOfLine considers line feed as end of line as well. =============== Diff against Regex-Core-ul.45 =============== Item was removed: - ----- Method: RxMatchOptimizer>>addNonPrefix: (in category 'private') ----- - addNonPrefix: aCharacter - - ^(nonPrefixes ifNil: [ nonPrefixes := CharacterSet new ]) add: aCharacter! Item was changed: ----- Method: RxMatchOptimizer>>addNonPrefixes: (in category 'private') ----- addNonPrefixes: aSet + aSet size = 0 ifTrue: [ ^aSet ]. ^nonPrefixes ifNil: [ nonPrefixes := aSet ] ifNotNil: [ nonPrefixes addAll: aSet ]! Item was changed: ----- Method: RxMatchOptimizer>>addPrefixes: (in category 'private') ----- addPrefixes: aSet + aSet size = 0 ifTrue: [ ^aSet ]. ^prefixes ifNil: [ prefixes := aSet ] ifNotNil: [ prefixes addAll: aSet ]! Item was changed: ----- Method: RxMatchOptimizer>>nonPredicateTester (in category 'private') ----- nonPredicateTester + | p | - | p size | nonPredicates ifNil: [ ^nil ]. + nonPredicates size = 1 ifTrue: [ - (size := nonPredicates size) = 0 ifTrue: [ ^nil ]. - size = 1 ifTrue: [ | predicate | predicate := nonPredicates anyOne. + ^[ :char :matcher | (predicate value: char) not ] ]. - ^[ :char :matcher | (predicate value: char) not] ]. p := nonPredicates asArray. + ^[ :char :matcher | (p allSatisfy: [ :some | some value: char ]) not ]! - ^[ :char :m | (p allSatisfy: [:some | some value: char ]) not ]! Item was changed: ----- Method: RxMatchOptimizer>>nonPrefixTester (in category 'private') ----- nonPrefixTester - | size | nonPrefixes ifNil: [ ^nil ]. + nonPrefixes size = 1 ifTrue: [ - (size := nonPrefixes size) = 0 ifTrue: [ ^nil ]. - size = 1 ifTrue: [ | nonPrefixChar | nonPrefixChar := nonPrefixes anyOne. ^[ :char :matcher | char ~~ nonPrefixChar ] ]. ^[ :char : matcher | (nonPrefixes includes: char) not ]! Item was changed: ----- Method: RxMatchOptimizer>>predicateTester (in category 'private') ----- predicateTester + | p | - | p size | predicates ifNil: [ ^nil ]. + predicates size = 1 ifTrue: [ - (size := predicates size) = 0 ifTrue: [ ^nil ]. - size = 1 ifTrue: [ | pred | pred := predicates anyOne. ^[ :char :matcher | pred value: char ] ]. p := predicates asArray. ^[ :char :matcher | p anySatisfy: [:some | some value: char ] ]! Item was changed: ----- Method: RxMatchOptimizer>>prefixTester (in category 'private') ----- prefixTester + | p | - | p size | prefixes ifNil: [ ^nil ]. + prefixes size = 1 ifTrue: [ - (size := prefixes size) = 0 ifTrue: [ ^nil ]. - size = 1 ifTrue: [ | prefixChar | prefixChar := prefixes anyOne. + ignoreCase ifTrue: [ + | lowercasePrefixChar | + lowercasePrefixChar := prefixChar asLowercase. + prefixChar := prefixChar asUppercase. + prefixChar == lowercasePrefixChar ifFalse: [ + ^[ :char :matcher | char == prefixChar or: [ char == lowercasePrefixChar ] ] ] ]. - ignoreCase ifTrue: [ ^[ :char :matcher | char sameAs: prefixChar ] ]. ^[ :char :matcher | char == prefixChar ] ]. + ignoreCase ifTrue: [ + prefixes copy do: [ :each | + | character | + (character := each asUppercase) == each ifFalse: [ + prefixes add: character ]. + (character := each asUppercase) == each ifFalse: [ + prefixes add: character ] ] ]. + prefixes size < 10 ifTrue: [ "10 is an empirical value" + p := prefixes asArray. + ^[ :char :matcher | p instVarsInclude: char ] ]. + ^[ :char :matcher | prefixes includes: char ]! - ignoreCase ifFalse: [ ^[ :char :matcher | prefixes includes: char ] ]. - p := prefixes collect: [ :each | each asUppercase ]. - ^[ :char :matcher | p includes: char asUppercase ]! Item was changed: ----- Method: RxMatcher>>atEndOfLine (in category 'testing') ----- atEndOfLine + | peek | + (peek := stream peek ifNil: [ ^true ]) == Cr ifTrue: [ ^true ]. + ^peek == Lf! - ^self atEnd or: [stream peek = Cr]!

1 0

The Trunk: Regex-Core-ul.46.mcz
by commits＠source.squeak.org 26 Mar '16

26 Mar '16

1 0

The Trunk: Network-ul.174.mcz
by commits＠source.squeak.org 26 Mar '16

26 Mar '16

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.174.mcz ==================== Summary ==================== Name: Network-ul.174 Author: ul Time: 26 March 2016, 4:46:36.918112 am UUID: e49a70ec-9eac-48e7-a03e-d712e2fcd12d Ancestors: Network-eem.173 Socket changes - use the instance variables for the semaphores, since it's clear now which semaphore is responsible for reading and writing (it might as well been done that way originally by assigning the same value to all three variables) - removed the max: 0 checks when the wait time is passed to the semaphores via #waitTimeoutMSecs:, because that method will do the same check =============== Diff against Network-eem.173 =============== Item was changed: ----- Method: Socket>>waitForDataFor:ifClosed:ifTimedOut: (in category 'waiting') ----- waitForDataFor: timeout ifClosed: closedBlock ifTimedOut: timedOutBlock "Wait for the given nr of seconds for data to arrive." | startTime msecsDelta | startTime := Time millisecondClockValue. msecsDelta := (timeout * 1000) truncated. [(Time millisecondsSince: startTime) < msecsDelta] whileTrue: [ (self primSocketReceiveDataAvailable: socketHandle) ifTrue: [^self]. self isConnected ifFalse: [^closedBlock value]. "Providing a maximum for the time for waiting is a workaround for a VM bug which causes sockets waiting for data forever in some rare cases, because the semaphore doesn't get signaled. Remove the ""min: self class maximumReadSemaphoreWaitTimeout"" part when the bug is fixed." + readSemaphore waitTimeoutMSecs: + (msecsDelta - (Time millisecondsSince: startTime) min: self class maximumReadSemaphoreWaitTimeout). - self readSemaphore waitTimeoutMSecs: - ((msecsDelta - (Time millisecondsSince: startTime) max: 0) min: self class maximumReadSemaphoreWaitTimeout). ]. (self primSocketReceiveDataAvailable: socketHandle) ifFalse: [ self isConnected ifTrue: [^timedOutBlock value] ifFalse: [^closedBlock value]].! Item was changed: ----- Method: Socket>>waitForDataIfClosed: (in category 'waiting') ----- waitForDataIfClosed: closedBlock "Wait indefinitely for data to arrive. This method will block until data is available or the socket is closed." [(socketHandle ~~ nil and: [self primSocketReceiveDataAvailable: socketHandle]) ifTrue: [^self]. self isConnected ifFalse: [^closedBlock value]. "ul 8/13/2014 21:16 Providing a maximum for the time for waiting is a workaround for a VM bug which causes sockets waiting for data forever in some rare cases, because the semaphore doesn't get signaled. Replace the ""waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout"" part with ""wait"" when the bug is fixed." + readSemaphore waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout] repeat! - self readSemaphore waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout] repeat! Item was changed: ----- Method: Socket>>waitForDisconnectionFor: (in category 'waiting') ----- waitForDisconnectionFor: timeout "Wait for the given nr of seconds for the connection to be broken. Return true if it is broken by the deadline, false if not. The client should know the connection is really going to be closed (e.g., because he has called 'close' to send a close request to the other end) before calling this method." | startTime msecsDelta status | startTime := Time millisecondClockValue. msecsDelta := (timeout * 1000) truncated. status := self primSocketConnectionStatus: socketHandle. [((status == Connected) or: [(status == ThisEndClosed)]) and: [(Time millisecondsSince: startTime) < msecsDelta]] whileTrue: [ self discardReceivedData. "Providing a maximum for the time for waiting is a workaround for a VM bug which causes sockets waiting for data forever in some rare cases, because the semaphore doesn't get signaled. Remove the ""min: self class maximumReadSemaphoreWaitTimeout"" part when the bug is fixed." + readSemaphore waitTimeoutMSecs: + (msecsDelta - (Time millisecondsSince: startTime) min: self class maximumReadSemaphoreWaitTimeout). - self readSemaphore waitTimeoutMSecs: - ((msecsDelta - (Time millisecondsSince: startTime) max: 0) min: self class maximumReadSemaphoreWaitTimeout). status := self primSocketConnectionStatus: socketHandle]. ^ status ~= Connected! Item was changed: ----- Method: Socket>>waitForSendDoneFor: (in category 'waiting') ----- waitForSendDoneFor: timeout "Wait up until the given deadline for the current send operation to complete. Return true if it completes by the deadline, false if not." | startTime msecsDelta msecsEllapsed sendDone | startTime := Time millisecondClockValue. msecsDelta := (timeout * 1000) truncated. [(sendDone := self primSocketSendDone: socketHandle) not and: [ self isConnected "Connection end and final data can happen fast, so test in this order" and: [(msecsEllapsed := Time millisecondsSince: startTime) < msecsDelta]]] whileTrue: [ + writeSemaphore waitTimeoutMSecs: msecsDelta - msecsEllapsed]. - self writeSemaphore waitTimeoutMSecs: msecsDelta - msecsEllapsed]. ^ sendDone!

1 0

The Trunk: Network-ul.174.mcz
by commits＠source.squeak.org 26 Mar '16

26 Mar '16

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

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

24 Mar '16

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

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

24 Mar '16

1 0

← Newer
1
2
3
4
5
6
7
...
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2016