Squeak-dev March 2016

squeak-dev@lists.squeakfoundation.org

31 participants
150 discussions

The Trunk: Tools-topa.677.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.677.mcz ==================== Summary ==================== Name: Tools-topa.677 Author: topa Time: 2 March 2016, 1:16:14.883018 am UUID: 00c00648-196c-4ecf-a540-50ac9d92c4b0 Ancestors: Tools-topa.676 pull up toggleBreakOnEntry and robustify things against missing compiled methods =============== Diff against Tools-topa.676 =============== Item was changed: ----- Method: Browser>>messageHelpFor: (in category 'message list') ----- messageHelpFor: aSelector "Show the first n lines of the sources code of the message behind aSelector." | source formatted iconHelp | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. + source := (self selectedClassOrMetaClass compiledMethodAt: aSelector ifAbsent: [^ nil]) getSource. - source := (self selectedClassOrMetaClass >> aSelector) getSource. source lineCount > 5 ifTrue: [ | sourceLines | sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. sourceLines add: ' [...]'. source := sourceLines joinSeparatedBy: Character cr]. formatted := SHTextStylerST80 new classOrMetaClass: self selectedClassOrMetaClass; styledTextFor: source asText. iconHelp := (self messageIconHelpFor: aSelector) ifNotEmpty: [:t | t , Character cr, Character cr]. ^ iconHelp asText append: formatted; yourself! Item was removed: - ----- Method: Browser>>toggleBreakOnEntry (in category 'breakpoints') ----- - toggleBreakOnEntry - "Install or uninstall a halt-on-entry breakpoint" - - | selectedMethod | - self selectedClassOrMetaClass ifNil: [ ^self]. - selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. - selectedMethod hasBreakpoint - ifTrue: - [BreakpointManager unInstall: selectedMethod] - ifFalse: - [BreakpointManager - installInClass: self selectedClassOrMetaClass - selector: self selectedMessageName]. - self changed: #messageList! Item was added: + ----- Method: CodeHolder>>toggleBreakOnEntry (in category 'breakpoints') ----- + toggleBreakOnEntry + "Install or uninstall a halt-on-entry breakpoint" + + | selectedMethod | + self selectedClassOrMetaClass ifNil: [ ^self]. + selectedMethod := self selectedClassOrMetaClass + compiledMethodAt: self selectedMessageName + ifAbsent: [^ self]. + selectedMethod hasBreakpoint + ifTrue: + [BreakpointManager unInstall: selectedMethod] + ifFalse: + [BreakpointManager + installInClass: self selectedClassOrMetaClass + selector: self selectedMessageName]. + self changed: #messageList! Item was removed: - ----- Method: Debugger>>toggleBreakOnEntry (in category 'breakpoints') ----- - toggleBreakOnEntry - "Install or uninstall a halt-on-entry breakpoint" - - | selectedMethod | - self selectedClassOrMetaClass ifNil: [ ^self]. - selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. - selectedMethod hasBreakpoint - ifTrue: - [BreakpointManager unInstall: selectedMethod] - ifFalse: - [BreakpointManager - installInClass: self selectedClassOrMetaClass - selector: self selectedMessageName].! Item was removed: - ----- Method: MessageSet>>toggleBreakOnEntry (in category 'breakpoints') ----- - toggleBreakOnEntry - "Install or uninstall a halt-on-entry breakpoint" - - | selectedMethod | - self selectedClassOrMetaClass ifNil: [ ^self]. - selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. - selectedMethod hasBreakpoint - ifTrue: - [BreakpointManager unInstall: selectedMethod] - ifFalse: - [BreakpointManager - installInClass: self selectedClassOrMetaClass - selector: self selectedMessageName]. - self changed: #messageList!

1 0

The Trunk: Morphic-topa.1092.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1092.mcz ==================== Summary ==================== Name: Morphic-topa.1092 Author: topa Time: 2 March 2016, 12:47:32.674693 am UUID: c9c63a6f-3d27-472a-bb9d-b51d1f3eb218 Ancestors: Morphic-topa.1091 Adopt Tree (up/down/home/pg up/pg down) key handling to be more similar to List key handling. =============== Diff against Morphic-topa.1091 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>arrowKey: (in category 'keyboard navigation') ----- arrowKey: asciiValue "Handle a keyboard navigation character. Answer true if handled, false if not." + | keyEvent max oldSelection nextSelection howManyItemsShowing | - | keyEvent | keyEvent := asciiValue. + max := self maximumSelection. + nextSelection := oldSelection := self getSelectionIndex. keyEvent = 31 ifTrue:["down" + nextSelection :=oldSelection + 1. + nextSelection > max ifTrue: [nextSelection := 1]]. - self setSelectionIndex: self getSelectionIndex+1. - ^true]. keyEvent = 30 ifTrue:["up" + nextSelection := oldSelection - 1. + nextSelection < 1 ifTrue: [nextSelection := max]]. - self setSelectionIndex: (self getSelectionIndex-1 max: 1). - ^true]. keyEvent = 1 ifTrue: ["home" + nextSelection := 1]. - self setSelectionIndex: 1. - ^true]. keyEvent = 4 ifTrue: ["end" + nextSelection := max]. + howManyItemsShowing := self numSelectionsInView. - self setSelectionIndex: scroller submorphs size. - ^true]. keyEvent = 11 ifTrue: ["page up" + nextSelection := 1 max: oldSelection - howManyItemsShowing]. - self setSelectionIndex: (self getSelectionIndex - self numSelectionsInView max: 1). - ^true]. keyEvent = 12 ifTrue: ["page down" + nextSelection := oldSelection + howManyItemsShowing min: max]. + + nextSelection = oldSelection ifFalse: [ + self setSelectionIndex: nextSelection. + ^ true]. + - self setSelectionIndex: self getSelectionIndex + self numSelectionsInView. - ^true]. keyEvent = 29 ifTrue:["right" selectedMorph ifNotNil:[ (selectedMorph canExpand and:[selectedMorph isExpanded not]) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: self getSelectionIndex+1]. ]. ^true]. keyEvent = 28 ifTrue:["left" selectedMorph ifNotNil:[ (selectedMorph isExpanded) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: (self getSelectionIndex-1 max: 1)]. ]. ^true]. ^false!

1 0

The Trunk: Morphic-topa.1091.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1091.mcz ==================== Summary ==================== Name: Morphic-topa.1091 Author: topa Time: 2 March 2016, 12:24:01.676712 am UUID: eb8276fa-d3ef-42e6-925f-9dd92ba97121 Ancestors: Morphic-topa.1090 Wee tiny cosmetic change to trees: Start tree-lines at indent-level 1, so tress with no children beyond the roots whatsoever look very similar to lists. =============== Diff against Morphic-topa.1090 =============== Item was removed: - ----- Method: IndentingListItemMorph>>drawLinesOn:lineColor: (in category 'drawing') ----- - drawLinesOn: aCanvas lineColor: lineColor - | hasToggle | - hasToggle := self hasToggle. - "Draw line from toggle to text" - self drawLineToggleToTextOn: aCanvas lineColor: lineColor hasToggle: hasToggle. - - "Draw the line from my toggle to the nextSibling's toggle" - self nextVisibleSibling ifNotNil: [ self drawLinesToNextSiblingOn: aCanvas lineColor: lineColor hasToggle: hasToggle ]. - - "If I have children and am expanded, draw a line to my first child" - (self firstVisibleChild notNil and: [ self isExpanded ]) - ifTrue: [ self drawLinesToFirstChildOn: aCanvas lineColor: lineColor]! Item was added: + ----- Method: IndentingListItemMorph>>drawLinesOn:lineColor:indentThreshold: (in category 'drawing') ----- + drawLinesOn: aCanvas lineColor: lineColor indentThreshold: aNumber + self indentLevel > aNumber ifTrue: [ + | hasToggle | + hasToggle := self hasToggle. + "Draw line from toggle to text" + self drawLineToggleToTextOn: aCanvas lineColor: lineColor hasToggle: hasToggle. + + "Draw the line from my toggle to the nextSibling's toggle" + self nextVisibleSibling ifNotNil: [ self drawLinesToNextSiblingOn: aCanvas lineColor: lineColor hasToggle: hasToggle ]]. + + "If I have children and am expanded, draw a line to my first child" + ((self firstVisibleChild notNil + and: [self isExpanded]) + and: [self firstVisibleChild indentLevel > aNumber]) + ifTrue: [ self drawLinesToFirstChildOn: aCanvas lineColor: lineColor ]! Item was changed: ----- Method: IndentingListItemMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | tRect sRect columnScanner columnLeft | self backgroundColor ifNotNil: [:c | aCanvas fillRectangle: self innerBounds color: c]. tRect := self toggleRectangle. self drawToggleOn: aCanvas in: tRect. + sRect := bounds withLeft: tRect right + self hMargin. - sRect := bounds withLeft: tRect right + 4. sRect := sRect top: sRect top + sRect bottom - self fontToUse height // 2. (container columns isNil or: [(contents asString indexOf: Character tab) = 0]) ifTrue: [ icon ifNotNil: [ aCanvas translucentImage: icon at: sRect left @ (self top + (self height - icon height // 2)). sRect := sRect left: sRect left + icon width + 2. ]. aCanvas drawString: contents asString in: sRect font: self fontToUse color: color. ] ifFalse: [ columnLeft := sRect left. columnScanner := ReadStream on: contents asString. container columns withIndexDo: [ :widthSpec :column | | columnRect columnData columnWidth | "Draw icon." column = self class iconColumnIndex ifTrue: [ icon ifNotNil: [ aCanvas translucentImage: icon at: columnLeft @ (self top + (self height - icon height // 2)). columnLeft := columnLeft + icon width + 2]]. columnWidth := self widthOfColumn: column. columnRect := columnLeft @ sRect top extent: columnWidth @ sRect height. columnData := columnScanner upTo: Character tab. "Draw string." columnData ifNotEmpty: [ aCanvas drawString: columnData in: columnRect font: self fontToUse color: color]. "Compute next column offset." columnLeft := columnRect right + 5. column = 1 ifTrue: [columnLeft := columnLeft - tRect right + self left]. ]. ]! Item was changed: ----- Method: IndentingListItemMorph>>hMargin (in category 'accessing') ----- hMargin ^ 3! Item was changed: ----- Method: SimpleHierarchicalListMorph>>drawLinesOn: (in category 'drawing') ----- drawLinesOn: aCanvas | lColor | lColor := self lineColor. aCanvas transformBy: scroller transform clippingTo: scroller innerBounds during:[:clippedCanvas | scroller submorphs select: [:submorph | submorph visible] thenDo: [ :submorph | ((submorph isExpanded or: [clippedCanvas isVisible: submorph fullBounds] ) or: [ submorph nextSibling notNil and: [clippedCanvas isVisible: submorph nextSibling]]) + ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor indentThreshold: 0] ] ] - ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor] ] ] smoothing: scroller smoothing. !

1 0

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

01 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009465.html Name: Network-eem.173 Ancestors: Network-eem.172 If preemption does not yield then Socket>>sendData:count: cannot simply spin while failing to send any data. It must at least yield (but why does it not check for errors?). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009466.html Name: Morphic-topa.1090 Ancestors: Morphic-mt.1089 Make keyStroke handling in SimpleHierarchicalListMorph more robust, so it can be used with most of the Tools' key handler methods. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009467.html Name: Tools-topa.676 Ancestors: Tools-topa.675 Generalize messageList callbacks to be usabe with message names, too. =============================================

1 0

Re: Socket>>#sendData:count: does no error checking and hence locks up the system
by Eliot Miranda 01 Mar '16

01 Mar '16

Hi All, one thing this lock-up suggests is that interrupting should interrupt all processes running at user priority, not just the uiProcess. Does that make sense? It does to me, but would be something I'd control by a preference for testing its effects. On Mon, Feb 29, 2016 at 7:23 PM, Eliot Miranda <eliot.miranda(a)gmail.com> wrote: > Hi Levente, Hi All, > > I'm trying to investigate the socket issues in aio.c but have found a > much moire basic issue. With my recent changes to Network that more > carefully checked for errors the SocketTest>>testSocketReuse test appears > to lock up. In fact, the VM is fine, happily doing what it's being told by > Socket>>#sendData:count: > > Socket>>sendData: buffer count: n > "Send the amount of data from the given buffer" > | sent | > sent := 0. > [sent < n] whileTrue:[ > sent := sent + (self sendSomeData: buffer startIndex: sent+1 count: > (n-sent))]. > > The VM keeps trying to send data on a socket that is being reused and gets > an error from sendto, answers 0 as the number of bytes sent, as required, > but Socket>>#sendData:count: pays no heed and spins hard. Here's the > traces: > > The test is SocketTest>>testSocketReuse which spawns two processes, one to > send and one to receive data. Here are the processes: > > Process 0x48641f8 priority 40 > 0xbfec0498 M Socket>sendSomeData:startIndex:count:for: 0x4864d18: a(n) > Socket > 0xbfec04c0 M Socket>sendSomeData:startIndex:count: 0x4864d18: a(n) Socket > 0xbfec04ec M Socket>sendData:count: 0x4864d18: a(n) Socket > 0xbfec0520 I [] in SocketTest>testSocketReuse 0x4864dd0: a(n) SocketTest > 0xbfec0540 I [] in BlockClosure>newProcess 0x4864df0: a(n) BlockClosure > > Process 0x6543178 priority 40 > 0xbfec22c8 I [] in Delay>wait 0x4864ea0: a(n) Delay > 0xbfec22f0 I BlockClosure>ifCurtailed: 0x4864eb8: a(n) BlockClosure > 0xbfec2314 I Delay>wait 0x4864ea0: a(n) Delay > 0xbfec2340 I [] in SocketTest>testSocketReuse 0x4864dd0: a(n) SocketTest > 0xbfec2360 M BlockClosure>ensure: 0x4864fa8: a(n) BlockClosure > 0xbfec2390 I SocketTest>testSocketReuse 0x4864dd0: a(n) SocketTest > > Process 0x4864168 priority 40 > 0xbfec3438 I [] in DelayWaitTimeout>wait 0x48652f8: a(n) DelayWaitTimeout > 0xbfec3458 M BlockClosure>ensure: 0x4865378: a(n) BlockClosure > 0xbfec347c I DelayWaitTimeout>wait 0x48652f8: a(n) DelayWaitTimeout > 0xbfec34a0 I Semaphore>waitTimeoutMSecs: 0x48652e0: a(n) Semaphore > 0xbfec34c4 I Socket>waitForDataIfClosed: 0x4865408: a(n) Socket > 0xbfec34f0 I Socket>receiveDataInto:startingAt: 0x4865408: a(n) Socket > 0xbfec3520 I [] in SocketTest>testSocketReuse 0x4864dd0: a(n) SocketTest > 0xbfec3540 I [] in BlockClosure>newProcess 0x48654c0: a(n) BlockClosure > > And here's the VM spinning: > 15726 0 sqUnixSocket.c:1128 UDP sendData(11, 16) > 15726 0 sqUnixSocket.c:1134 UDP send failed 56 Socket is already > connected > 15726 0 sqUnixSocket.c:1128 UDP sendData(11, 16) > 15726 0 sqUnixSocket.c:1134 UDP send failed 56 Socket is already > connected > 15726 0 sqUnixSocket.c:1128 UDP sendData(11, 16) > 15726 0 sqUnixSocket.c:1134 UDP send failed 56 Socket is already > connected > ...etc... > > Ah!! Of course. Because I have changed the default scheduling semantics > in Squeak 5 to make preemption not a yield point, Socket>>#sendData:count: > never yields to the other processes. Previously when the Delay process > woke up this would implicitly yield the process spinning in > Socket>>#sendData:count:. > > So Socket>>#sendData:count: needs to do a yield if no data is sent. > However, shouldn't but also check for errors if no data is sent and do > something like return an error if it discovers, via > Socket>>primSocketError:, that the socket is not happy? > > _,,,^..^,,,_ > best, Eliot > -- _,,,^..^,,,_ best, Eliot

2 2

Re: [squeak-dev] The Trunk: Chronology-Core-dtl.2.mcz
by David T. Lewis 01 Mar '16

01 Mar '16

This was my attempt to attach the prior version history for Chronology to the new Chronology-Core and Chronology-Tests packages. It appears to break the update stream, so I will delete Chronology-Core-dtl.2 and Chronology-Tests-dtl.2 updates from the source.squeak.org repository. Hopefully no one has tried to update their trunk images during this unfortunate experiment. Sorry, Dave On Mon, Feb 29, 2016 at 02:05:19AM +0000, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: > http://source.squeak.org/trunk/Chronology-Core-dtl.2.mcz > > ==================== Summary ==================== > > Name: Chronology-Core-dtl.2 > Author: dtl > Time: 28 February 2016, 8:24:12.86775 pm > UUID: 0dc832c9-bf4c-4559-a705-c19f44392089 > Ancestors: Chronology-Core-dtl.1, Kernel-tfel.1001 > > Re-save Chronology-Core-dtl.1 with Kernel-tfel.1001 added to ancestry to preserve version history from Kernel package. > > =============== Diff against Chronology-Core-dtl.1 =============== >

3 10

The Trunk: Tools-topa.676.mcz
by commits＠source.squeak.org 01 Mar '16

01 Mar '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.676.mcz ==================== Summary ==================== Name: Tools-topa.676 Author: topa Time: 1 March 2016, 5:32:00.896321 pm UUID: 9dd551d2-d6c4-4704-af6f-b3ec510732f8 Ancestors: Tools-topa.675 Generalize messageList callbacks to be usabe with message names, too. =============== Diff against Tools-topa.675 =============== Item was changed: ----- Method: Browser>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." - - | source formatted iconHelp | - Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. + ^ self messageHelpFor: (self messageList at: anIndex) + ! - - source := (self selectedClassOrMetaClass >> (self messageList at: anIndex)) getSource. - source lineCount > 5 ifTrue: [ - | sourceLines | - sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. - sourceLines add: ' [...]'. - source := sourceLines joinSeparatedBy: Character cr]. - - formatted := SHTextStylerST80 new - classOrMetaClass: self selectedClassOrMetaClass; - styledTextFor: source asText. - iconHelp := (self messageIconHelpAt: anIndex) ifNotEmpty: [:t | - t , Character cr, Character cr]. - ^ iconHelp asText - append: formatted; - yourself! Item was added: + ----- Method: Browser>>messageHelpFor: (in category 'message list') ----- + messageHelpFor: aSelector + "Show the first n lines of the sources code of the message behind aSelector." + + | source formatted iconHelp | + Preferences balloonHelpInMessageLists ifFalse: [^ nil]. + + source := (self selectedClassOrMetaClass >> aSelector) getSource. + source lineCount > 5 ifTrue: [ + | sourceLines | + sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. + sourceLines add: ' [...]'. + source := sourceLines joinSeparatedBy: Character cr]. + + formatted := SHTextStylerST80 new + classOrMetaClass: self selectedClassOrMetaClass; + styledTextFor: source asText. + iconHelp := (self messageIconHelpFor: aSelector) ifNotEmpty: [:t | + t , Character cr, Character cr]. + ^ iconHelp asText + append: formatted; + yourself! Item was changed: ----- Method: Browser>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex + ^ self messageIconFor: (self messageList at: anIndex)! - self class showMessageIcons - ifFalse: [^ nil]. - - ^ ToolIcons iconNamed: (ToolIcons - iconForClass: self selectedClassOrMetaClass - selector: (self messageList at: anIndex))! Item was added: + ----- Method: Browser>>messageIconFor: (in category 'message list') ----- + messageIconFor: aSelector + + self class showMessageIcons ifFalse: [^ nil]. + + ^ ToolIcons iconNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: aSelector)! Item was removed: - ----- Method: Browser>>messageIconHelpAt: (in category 'message list') ----- - messageIconHelpAt: anIndex - - self class showMessageIcons ifFalse: [^ String empty]. - - ^ ToolIconHelp iconHelpNamed: (ToolIcons - iconForClass: self selectedClassOrMetaClass - selector: (self messageList at: anIndex))! Item was added: + ----- Method: Browser>>messageIconHelpFor: (in category 'message list') ----- + messageIconHelpFor: aSelector + + self class showMessageIcons ifFalse: [^ String empty]. + + ^ ToolIconHelp iconHelpNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: aSelector)! Item was changed: ----- Method: Browser>>selectedMessageName: (in category 'message list') ----- selectedMessageName: aSelector "Make the given selector be the selected message name" | anIndex | anIndex := self messageList indexOf: aSelector. anIndex > 0 ifTrue: + [self messageListIndex: anIndex]. + self changed: #selectedMessageName. "inform interested parties"! - [self messageListIndex: anIndex]!

1 0

The Trunk: Morphic-topa.1090.mcz
by commits＠source.squeak.org 01 Mar '16

01 Mar '16

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1090.mcz ==================== Summary ==================== Name: Morphic-topa.1090 Author: topa Time: 1 March 2016, 5:27:34.235871 pm UUID: 1e7c7560-918a-475f-b7dc-52504303fdf1 Ancestors: Morphic-mt.1089 Make keyStroke handling in SimpleHierarchicalListMorph more robust, so it can be used with most of the Tools' key handler methods. =============== Diff against Morphic-mt.1089 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>keyStroke: (in category 'event handling') ----- keyStroke: event "Process potential command keys" (self scrollByKeyboard: event) ifTrue: [^ true]. event keyCharacter asciiValue < 32 ifTrue: [ ^ self specialKeyPressed: event keyCharacter asciiValue]. + " A lot of actions do not return a Boolean here (#messageListKey:from:, + #classListKey:from:, ...); even most #arrowKey:from: implementors do not. + Hence, we explicitely check for false and else assume truthieness" + ^ (self keyStrokeAction: event) ~~ false + ! - (self keyStrokeAction: event) ifTrue: [^ true]. - - ^ false!

1 0

Raspberry Pi 3 & Squeak
by tim Rowledge 01 Mar '16

01 Mar '16

Yes, COG runs on Pi 3; no, not as an ARM64 application, nor does it generate ARM64 instructions. Yes, it could. Yes, it may well do so sometime soon; yes, one meeeeeeellion dollars. Performance is obviously improved over the Pi2. Not completely sure as yet since I have a prototype not a production machine. Pi 3 is still $35 plus tax/shipping/etc. See https://www.raspberrypi.org/blog/raspberry-pi-3-on-sale/ for details. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim All programmers are playwrights and all computers are lousy actors.

2 1

The Trunk: Network-eem.173.mcz
by commits＠source.squeak.org 01 Mar '16

01 Mar '16

Eliot Miranda uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-eem.173.mcz ==================== Summary ==================== Name: Network-eem.173 Author: eem Time: 29 February 2016, 7:14:37.642865 pm UUID: ea895f60-b473-4bd3-95b3-9dca79beeb9e Ancestors: Network-eem.172 If preemption does not yield then Socket>>sendData:count: cannot simply spin while failing to send any data. It must at least yield (but why does it not check for errors?). =============== Diff against Network-eem.172 =============== Item was changed: ----- Method: Socket>>sendData:count: (in category 'sending') ----- sendData: buffer count: n + "Send the amount of data from the given buffer." + | sent totalSent | + totalSent := 0. + [totalSent < n] whileTrue: + [sent := self sendSomeData: buffer startIndex: totalSent+1 count: n-totalSent. + totalSent := totalSent + sent. + sent = 0 ifTrue: "If no data was sent don't just sit here spinning hard..." + [Processor yield]].! - "Send the amount of data from the given buffer" - | sent | - sent := 0. - [sent < n] whileTrue:[ - sent := sent + (self sendSomeData: buffer startIndex: sent+1 count: (n-sent))].!

1 0

Jump to page: