Packages November 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Tools-eem.428.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.428.mcz ==================== Summary ==================== Name: Tools-eem.428 Author: eem Time: 15 November 2012, 12:59:12.101 pm UUID: 5d9b5b4d-52fa-4489-8803-f4ad4c1e02b2 Ancestors: Tools-eem.427 Provide a run-until-expression facility for the debugger. Thanks to Bob Arning and Bert Freudenberg for UI advice. =============== Diff against Tools-eem.427 =============== Item was changed: CodeHolder subclass: #Debugger + instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message untilExpression' - instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message' classVariableNames: 'ContextStackKeystrokes ErrorRecursion InterruptUIProcessIfBlockedOnErrorInBackgroundProcess' poolDictionaries: '' category: 'Tools-Debugger'! !Debugger commentStamp: '<historical>' prior: 0! I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context. Special note on recursive errors: Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery. * A recursive error is detected. * The current project is queried for an isolationHead * Changes in the isolationHead are revoked * The parent project of isolated project is returned to * The debugger is opened there and execution resumes. If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. ! Item was changed: ----- Method: Debugger>>codePaneMenu:shifted: (in category 'code pane menu') ----- codePaneMenu: aMenu shifted: shifted + aMenu + add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval; + add: 'run until...' target: self selector: #runUntil; + addLine. - aMenu add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval. - aMenu addLine. super codePaneMenu: aMenu shifted: shifted. ^aMenu.! Item was added: + ----- Method: Debugger>>runUntil (in category 'code pane menu') ----- + runUntil + "Step until an expression evaluates to other than false, reporting an erroer if it doesn't evaluate to true. + Remember the expression in an inst var. If shift is pressed when the expression is supplied, don't update the UI. + If shift is pressed while stepping, stop stepping. Using a user interrupt to break out would be more natural + but Squeak currently doesn't provide a UserInterrupt expection. It should do." + | expression receiver context method value lastUpdate updateUI breakOnShift | + expression := UIManager default + request: 'run until expression is true (shift to disable ui update; shift to break).' + initialAnswer: (untilExpression ifNil: 'boolean expression'). + (expression isNil or: [expression isEmpty]) ifTrue: + [^self]. + updateUI := breakOnShift := Sensor shiftPressed not. + untilExpression := expression. + context := self selectedContext. + receiver := context receiver. + FakeClassPool adopt: receiver class. + method := receiver class evaluatorClass new + compiledMethodFor: untilExpression + in: context + to: receiver + notifying: nil + ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] + logged: false. + + lastUpdate := Time millisecondClockValue. + FakeClassPool adopt: nil. + [self selectedContext == context + and: [(value := receiver with: context executeMethod: method) == false]] whileTrue: + [self doStep. + Time millisecondClockValue - lastUpdate > 50 ifTrue: + [updateUI ifTrue: [World displayWorldSafely]. + breakOnShift + ifTrue: [Sensor shiftPressed ifTrue: [^self]] + ifFalse: [Sensor shiftPressed ifFalse: [breakOnShift := true]]. + lastUpdate := Time millisecondClockValue]]. + (value ~~ false and: [value ~~ true]) ifTrue: + [UIManager default inform: 'expression ', (untilExpression contractTo: 40), ' answered ', (value printString contractTo: 20), '!!!!']!

1 0

The Trunk: NetworkTests-dtl.35.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

David T. Lewis uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-dtl.35.mcz ==================== Summary ==================== Name: NetworkTests-dtl.35 Author: dtl Time: 15 November 2012, 8:06:29.937 am UUID: 7dfbff49-ba92-43d2-9c29-e22b2c12bfe3 Ancestors: NetworkTests-dtl.34 Revert change to SocketTest>>testSocketReuse because it fails on the squeakci.org test server. To be updated and/or resubmitted to inbox when a better update is available. =============== Diff against NetworkTests-dtl.34 =============== Item was changed: ----- Method: SocketTest>>testSocketReuse (in category 'tests') ----- testSocketReuse + "Test for SO_REUSEADDR/SO_REUSEPORT" - "Test for SO_REUSEADDR/SO_REUSEPORT. Test will fail if the platform does - not implement these socket options. Support for SO_REUSEPORT is not - present on many systems, and a failure on setting this socket option reflects - a limitation of the underlying platform." | address port udp1 send1 udp2 recv2 sendProc recvProc received | address := #[255 255 255 255]. "broadcast" port := 31259. [ udp1 := Socket newUDP. + udp1 setOption: 'SO_REUSEADDR' value: 1. + udp1 setOption: 'SO_REUSEPORT' value: 1. - self assert: (udp1 setOption: 'SO_REUSEADDR' value: 1) notNil - description: 'SO_REUSEADDR not supported'. - self assert: (udp1 setOption: 'SO_REUSEPORT' value: 1) notNil - description: 'SO_REUSEPORT not supported'. udp1 setPort: port. + udp1 setOption: 'SO_BROADCAST' value: 1. - self assert: (udp1 setOption: 'SO_BROADCAST' value: 1) notNil - description: 'SO_BROADCAST not supported'. send1 := UUID new. udp2 := Socket newUDP. + udp2 setOption: 'SO_REUSEADDR' value: 1. + udp2 setOption: 'SO_REUSEPORT' value: 1. - self assert: (udp2 setOption: 'SO_REUSEADDR' value: 1) notNil - description: 'SO_REUSEADDR not supported'. - self assert: (udp2 setOption: 'SO_REUSEPORT' value: 1) notNil - description: 'SO_REUSEPORT not supported'. udp2 setPort: port. + udp2 setOption: 'SO_BROADCAST' value: 1. - self assert: (udp2 setOption: 'SO_BROADCAST' value: 1) notNil - description: 'SO_BROADCAST not supported'. recv2 := UUID new. received := 0. recvProc := [ [received < 16] whileTrue:[ received := received + (udp2 receiveDataInto: recv2 startingAt: received + 1). ] ] fork. sendProc := [ udp1 setPeer: address port: port. udp1 sendData: send1 count: 16. ] fork. (Delay forMilliseconds: 200) wait. self should: [recvProc isTerminated]. self should: [sendProc isTerminated]. self should: [send1 = recv2]. ] ensure:[ + udp1 destroy. + udp2 destroy. - udp1 ifNotNilDo: [:s | s destroy]. - udp2 ifNotNilDo: [:s | s destroy]. ]. !

1 0

The Trunk: NetworkTests-dtl.35.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

1 0

The Trunk: NetworkTests-dtl.35.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

1 0

The Trunk: Compiler-eem.243.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.243.mcz ==================== Summary ==================== Name: Compiler-eem.243 Author: eem Time: 14 November 2012, 11:54:44.286 pm UUID: e2c4d1ed-4a14-4481-b887-dae54eecf492 Ancestors: Compiler-eem.242 Use a smaller hammer to crack the same tiny nut. =============== Diff against Compiler-eem.242 =============== Item was changed: ----- Method: Parser>>pragmaLiteral: (in category 'pragmas') ----- pragmaLiteral: selectorSoFar "Read a pragma literal. As a nicety we allow a variable name (rather than a literal string) as the second argument to primitive:error:" (hereType == #string or: [ hereType == #literal or: [ hereType == #number or: [ hereType == #character ] ] ]) ifTrue: [ ^ self advance ]. (here == $# and: [ tokenType == #word ]) ifTrue: [ ^ self advance ]. (here == #- and: [ tokenType == #number ]) ifTrue: [ ^ (self advance; advance) negated ]. (here = 'true' or: [ here = 'false' or: [ here = 'nil' ] ]) + ifTrue: [ ^ (Scanner new scanTokens: self advance) first ]. - ifTrue: [ ^ Compiler evaluate: self advance ]. "This nicety allows one to supply a primitive error temp as a variable name, rather than a string." ((selectorSoFar beginsWith: 'primitive:') and: [(selectorSoFar endsWith: 'error:') and: [hereType == #word]]) ifTrue: [^self advance]. ^self expected: 'Literal constant'!

1 0

The Trunk: Compiler-eem.243.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

1 0

The Trunk: Compiler-eem.243.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

1 0

The Trunk: NetworkTests-dtl.34.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

David T. Lewis uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-dtl.34.mcz ==================== Summary ==================== Name: NetworkTests-dtl.34 Author: dtl Time: 15 November 2012, 12:05:37.979 am UUID: 661c04dd-3386-4424-aa92-944ad27fa74a Ancestors: NetworkTests-dtl.33 SocketTest>>testSocketReuse will fail on platforms that do not implement the SO_REUSEPORT socket option. Update the test comment to explain this, and provide assertions that identify the cause of the failure. Note that failure on setting SO_REUSEPORT reflects a limitation of the underlying platform network support, and does not indicate an error in Squeak networking. =============== Diff against NetworkTests-dtl.33 =============== Item was changed: ----- Method: SocketTest>>testSocketReuse (in category 'tests') ----- testSocketReuse + "Test for SO_REUSEADDR/SO_REUSEPORT. Test will fail if the platform does + not implement these socket options. Support for SO_REUSEPORT is not + present on many systems, and a failure on setting this socket option reflects + a limitation of the underlying platform." - "Test for SO_REUSEADDR/SO_REUSEPORT" | address port udp1 send1 udp2 recv2 sendProc recvProc received | address := #[255 255 255 255]. "broadcast" port := 31259. [ udp1 := Socket newUDP. + self assert: (udp1 setOption: 'SO_REUSEADDR' value: 1) notNil + description: 'SO_REUSEADDR not supported'. + self assert: (udp1 setOption: 'SO_REUSEPORT' value: 1) notNil + description: 'SO_REUSEPORT not supported'. - udp1 setOption: 'SO_REUSEADDR' value: 1. - udp1 setOption: 'SO_REUSEPORT' value: 1. udp1 setPort: port. + self assert: (udp1 setOption: 'SO_BROADCAST' value: 1) notNil + description: 'SO_BROADCAST not supported'. - udp1 setOption: 'SO_BROADCAST' value: 1. send1 := UUID new. udp2 := Socket newUDP. + self assert: (udp2 setOption: 'SO_REUSEADDR' value: 1) notNil + description: 'SO_REUSEADDR not supported'. + self assert: (udp2 setOption: 'SO_REUSEPORT' value: 1) notNil + description: 'SO_REUSEPORT not supported'. - udp2 setOption: 'SO_REUSEADDR' value: 1. - udp2 setOption: 'SO_REUSEPORT' value: 1. udp2 setPort: port. + self assert: (udp2 setOption: 'SO_BROADCAST' value: 1) notNil + description: 'SO_BROADCAST not supported'. - udp2 setOption: 'SO_BROADCAST' value: 1. recv2 := UUID new. received := 0. recvProc := [ [received < 16] whileTrue:[ received := received + (udp2 receiveDataInto: recv2 startingAt: received + 1). ] ] fork. sendProc := [ udp1 setPeer: address port: port. udp1 sendData: send1 count: 16. ] fork. (Delay forMilliseconds: 200) wait. self should: [recvProc isTerminated]. self should: [sendProc isTerminated]. self should: [send1 = recv2]. ] ensure:[ + udp1 ifNotNilDo: [:s | s destroy]. + udp2 ifNotNilDo: [:s | s destroy]. - udp1 destroy. - udp2 destroy. ]. !

1 0

The Trunk: NetworkTests-dtl.34.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

1 0

The Trunk: NetworkTests-dtl.34.mcz
by commits＠source.squeak.org 15 Nov '12

15 Nov '12

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2012