Squeak-dev February 2012

squeak-dev@lists.squeakfoundation.org

62 participants
155 discussions

Problem with #applyTransitions in Language Translator
by 강진오 22 Feb '12

22 Feb '12

Hi. I have a problem with my language translator. When I press [apply] button on my language translator, My Squeak was lacked and got a lot of memory and CPU. I restarted and executed that action with new process. Even though the priority of it was the lowest (10), It started to make my Squeak to be slow. I suspended it and traced the stack. It was the loop of: StrikeFont>>widthOf: FixedFaceFont>>widthOf: StrikeFont>>widthOf: FixedFaceFont>>widthOf: StrikeFont>>widthOf: FixedFaceFont>>widthOf: StrikeFont>>widthOf: FixedFaceFont>>widthOf: … There was limit to view all stack trace, So I created new process that trace suspended stack trace. But I couldn’t find the root. What happened to my Squeak?

3 3

The Inbox: Tests-nice.144.mcz
by commits＠source.squeak.org 22 Feb '12

22 Feb '12

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/Tests-nice.144.mcz ==================== Summary ==================== Name: Tests-nice.144 Author: nice Time: 22 February 2012, 4:02:34.454 am UUID: 2402a040-f271-47c1-881d-d6fddf0d6e7d Ancestors: Tests-nice.143 Add some tests for Compiler notifications - do we get the right notification ? - inserted at the right place in text ? This is an unfinished work with expected failures. But absolutely necessary to solve issues like http://code.google.com/p/pharo/issues/detail?id=3439 =============== Diff against Tests-nice.143 =============== Item was added: + TestCase subclass: #CompilerNotifyingTest + instanceVariableNames: 'text morph expectedErrors expectedErrorPositions failure' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Compiler'! + + !CompilerNotifyingTest commentStamp: 'nice 2/21/2012 23:55' prior: 0! + A CompilerNotifyingTest is a TestCase for checking that Compiler/Parser notifications are inserted at the right place in a TextEditor. + + Instance Variables + expectedErrorPositions: <Array of: Integer> + expectedErrors: <Array of: String> + failure: <Object> + morph: <TextMorph> + text: <String> + + errorPositions + - the position where error text should be inserted for each chunk of text evaluated + + errors + - the error text that should be inserted on evaluation of each chunk of text evaluated + + failure + - an object returned in case of evaluation error and whose identity can be uniquely recognized as a failure + + morph + - the Morph holding the text + + text + - the string containing all the chunks to be evaluated (separated by %) + and the expected error messages (`enclosed in back quotes`) + this text will be stripped of the error messages before being evaluated. + + ! Item was added: + ----- Method: CompilerNotifyingTest class>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testTooManyArguments; add: #testifTrueBlockWithArgument; add: #testMissingArgumentAfterAMessageKey; add: #testTooManyLiterals; add: #testAlltogether; add: #testUnmatchedLocalTempDeclarationInABlock; add: #testUnmatchedExpressionParenthesis; add: #testCaseOtherwiseBlockWithArgument; yourself)); add: (#errors->((Set new) add: #testTooManyTemporaries; yourself)); add: (#passed->((Set new) add: #testUnmatchedBraceArray; add: #testTooLargeAnIntegerInALiteralByteArray; add: #testDigitTooLargeForARadix; add: #testInvalidLiteralCharacter; add: #testAssignmentOfSelf; add: #testInvalidPrimitive; add: #testInvalidExternalFunctionDeclaration; add: #testMissingExpressionAfterAReturn; add: #testInvalidRadix; add: #testMissingArgumentAfterABinaryMessage; add: #testMissingPeriodSeparatorBetweenStatements; add: #testCascadeInASuperSend; add: #testATempShadowingAnotherTemp; add: #testExtraneousStatementAfterAReturnInABlock; add: #testLiteralCharacterMissing; add: #testUnmatchedCommentQuote; add: #testInvalidPattern; add: #testUnmatchedByteArrayBracket; add: #testUnmatchedLiteralParenthesis; add: #testUnmatchedLocalTempDeclaration; add: #testExpectedExpressionInBraceArray; add: #testInvalidPragma; add: #testMissingSeparatorBetweenBlockArgumentAndStatements; add: #testMissingBlockArgumentName; add: #testMissingMessageAfterACascade; add: #testUnmatchedStringQuote; add: #testTempDoubledDefined; add: #testMissingExpression; add: #testUnmatchedBlockBracket; add: #testEmptyCaseStatement; yourself)); add: (#timeStamp->'22 February 2012 3:52:10 am' asTimeStamp); yourself)! Item was added: + ----- Method: CompilerNotifyingTest>>enumerateAllSelections (in category 'private') ----- + enumerateAllSelections + 1 to: self numberOfSelections do: [:n | + self assert: (self evaluateSelectionNumber: n) == failure. + self assert: ((expectedErrors at: n) = morph editor selection asString). + self assert: ((expectedErrorPositions at: n) = morph editor startIndex). + morph editor cut].! Item was added: + ----- Method: CompilerNotifyingTest>>evaluateSelection (in category 'private') ----- + evaluateSelection + ^(nil class evaluatorClass new) + evaluate: morph editor selectionAsStream + in: nil + to: nil + notifying: morph editor + ifFail: [^failure] + logged: false + ! Item was added: + ----- Method: CompilerNotifyingTest>>evaluateSelectionNumber: (in category 'private') ----- + evaluateSelectionNumber: n + | i start stop | + i := start := 1. + [stop := morph text indexOf: $% startingAt: start + 1 ifAbsent: morph text size + 1. + i = n] + whileFalse: + [i := i + 1. + start := stop + 1]. + morph editor selectFrom: start to: stop - 1. + ^self evaluateSelection + ! Item was added: + ----- Method: CompilerNotifyingTest>>initializeTextWithoutError (in category 'initialize-release') ----- + initializeTextWithoutError + "Remove the errors from the text to be compiled and answer the text without errors. + Meanwhile, collect the expected error messages and their expected position." + + | input output errorStream positionStream | + input := text readStream. + output := (String new: text size) writeStream. + errorStream := (Array new: self numberOfSelections) writeStream. + positionStream := (Array new: self numberOfSelections) writeStream. + + [output nextPutAll: (input upTo: $`). + input atEnd] + whileFalse: + [positionStream nextPut: output position + 1. + errorStream nextPut: (input upTo: $`)]. + expectedErrors := errorStream contents. + expectedErrorPositions := positionStream contents. + ^output contents! Item was added: + ----- Method: CompilerNotifyingTest>>numberOfSelections (in category 'private') ----- + numberOfSelections + ^(text occurrencesOf: $%) + 1! Item was added: + ----- Method: CompilerNotifyingTest>>setUp (in category 'initialize-release') ----- + setUp + failure := Object new.! Item was added: + ----- Method: CompilerNotifyingTest>>setUpForErrorsIn: (in category 'initialize-release') ----- + setUpForErrorsIn: aTextWithErrorsEnclosedInBackQuote + "Extract the expectedErrors, the expectedErrorPositions and set up a TextMorph containing the text without errors. + each section separated by % in aTextWithErrorsEnclosedInBackQuote will be evaluated separately. + The expected error message should lie in aTextWithErrorsEnclosedInBackQuote at the expected position, and enclosed in back quotes." + text := aTextWithErrorsEnclosedInBackQuote. + morph := TextMorph new contents: self initializeTextWithoutError asText.! Item was added: + ----- Method: CompilerNotifyingTest>>testATempShadowingAnotherTemp (in category 'testing') ----- + testATempShadowingAnotherTemp + self setUpForErrorsIn: '| x | x := 1. ^[ | ` Name is already defined ->`x | x ]'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testAlltogether (in category 'testing') ----- + testAlltogether + "Initialize for all known error conditions. + Note that the chunk to be evaluated are separated by %, and expected errors enclosed in back quotes." + + self setUpForErrorsIn: ' "First, the senders of #offEnd:" + #` Unmatched bracket ->`[ 1 2 % + #[ 1 2 ` 8-bit integer or right bracket expected ->`256 4]% + $` A Character was expected ->`% + 1+2 ` Unmatched comment quote ->`"unfinished comment% + #` Unmatched parenthesis ->`( 1 2% + #` Unmatched parenthesis ->`( 1 2 % + ^nil printString , ` Unmatched string quote ->`''unfinished string% + "Then, the senders of #expected:" + 2r` a digit between 0 and 1 expected ->`3% + | x | x := ` Expression expected ->`% + [ :x : ` Argument name expected ->`1]% + [ :x ` Vertical bar expected ->`x + 1 ]% + [:x | 1 ` Period or right bracket expected ->`( 1 ) ]% + { 1. 2` Period or right brace expected ->`% + { 1. 2 ` Period or right brace expected ->`% + { 1. 2 ` Period or right brace expected ->`3 % + { 1. 2. ` Variable or expression expected ->`| x | % + super yourself` Cascading not expected ->`; yourself + nil yourself; ` Cascade expected ->`^ 2% + "#externalFunctionDeclaration is skipped, this cannot be evaluated" + 1 to: ` Argument expected ->`:=% + 1 +` Argument expected ->`% + 1 + ` Argument expected ->`* 2 + 3% + 1+(2 ` right parenthesis expected ->`. % + 1 + 2 ` Nothing more expected ->`^nil% + "#pattern:inContext: skipped, cannot be evaluated" + "#pragmaLiteral: #pragmaSequence #pragmaStatement skipped, cannot be evaluated" + ( ` expression expected ->`. 2 . )% + ( 1 ` right parenthesis expected ->`. 2 . )% + "#primitive:error: #primitive:module:error: skipped, cannot be evaluated" + ^ ` Expression to return expected ->`. 1 + 2% + [ ^1 ` End of block expected ->`2]% + | x y ` Vertical bar expected ->`% + [:z | | x y ` Vertical bar expected ->`]% + 1` an integer greater than 1 as valid radix expected ->`r0'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testAssignmentOfSelf (in category 'testing') ----- + testAssignmentOfSelf + self setUpForErrorsIn: '` Cannot store into ->`self := 1. ^self'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testCascadeInASuperSend (in category 'testing') ----- + testCascadeInASuperSend + self setUpForErrorsIn: 'super yourself` Cascading not expected ->`; yourself'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testCaseOtherwiseBlockWithArgument (in category 'testing-block arguments') ----- + testCaseOtherwiseBlockWithArgument + self setUpForErrorsIn: 'nil caseOf: { [nil] -> [1] } otherwise: [:x` <- otherwise arg of caseOf:otherwise: has too many arguments ->` | 2 ]. ^nil '. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testDigitTooLargeForARadix (in category 'testing') ----- + testDigitTooLargeForARadix + self setUpForErrorsIn: '2r` a digit between 0 and 1 expected ->`3'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testEmptyCaseStatement (in category 'testing') ----- + testEmptyCaseStatement + self setUpForErrorsIn: '^ nil caseOf: { ` At least one case required ->`} '. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testExpectedExpressionInBraceArray (in category 'testing') ----- + testExpectedExpressionInBraceArray + self setUpForErrorsIn: '{ 1. 2 ` Period or right brace expected ->`3 }'. + self enumerateAllSelections. + self setUpForErrorsIn: '{ 1. 2. ` Variable or expression expected ->`| x | x}'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testExtraneousStatementAfterAReturnInABlock (in category 'testing') ----- + testExtraneousStatementAfterAReturnInABlock + self setUpForErrorsIn: '[ ^1 ` End of block expected ->`2]'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testInvalidExternalFunctionDeclaration (in category 'testing') ----- + testInvalidExternalFunctionDeclaration + "Not implemented yet. + #externalFunctionDeclaration skipped, cannot be evaluated"! Item was added: + ----- Method: CompilerNotifyingTest>>testInvalidLiteralCharacter (in category 'testing') ----- + testInvalidLiteralCharacter + self setUpForErrorsIn: '^ #yourself , #` Invalid literal character ->`) , #end'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testInvalidPattern (in category 'testing') ----- + testInvalidPattern + "Not implemented yet. + #pattern:inContext: skipped, cannot be evaluated"! Item was added: + ----- Method: CompilerNotifyingTest>>testInvalidPragma (in category 'testing') ----- + testInvalidPragma + "Not implemented yet. + #pragmaLiteral: #pragmaSequence #pragmaStatement #pragmaPrimitives skipped, cannot be evaluated"! Item was added: + ----- Method: CompilerNotifyingTest>>testInvalidPrimitive (in category 'testing') ----- + testInvalidPrimitive + "Not implemented yet. + ##primitive:error: #primitive:module:error: skipped, cannot be evaluated"! Item was added: + ----- Method: CompilerNotifyingTest>>testInvalidRadix (in category 'testing') ----- + testInvalidRadix + self setUpForErrorsIn: '1` an integer greater than 1 as valid radix expected ->`r0'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testLiteralCharacterMissing (in category 'testing') ----- + testLiteralCharacterMissing + self setUpForErrorsIn: '$` A Character was expected ->`'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingArgumentAfterABinaryMessage (in category 'testing') ----- + testMissingArgumentAfterABinaryMessage + self setUpForErrorsIn: '1 +` Argument expected ->`'. + self enumerateAllSelections. + self setUpForErrorsIn: '1 + ` Argument expected ->`* 2 + 3'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingArgumentAfterAMessageKey (in category 'testing') ----- + testMissingArgumentAfterAMessageKey + self setUpForErrorsIn: '1 to: ` Argument expected ->`:='. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingBlockArgumentName (in category 'testing') ----- + testMissingBlockArgumentName + self setUpForErrorsIn: '[ :x : ` Argument name expected ->`1]'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingExpression (in category 'testing') ----- + testMissingExpression + self setUpForErrorsIn: '| x | x := ` Expression expected ->'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingExpressionAfterAReturn (in category 'testing') ----- + testMissingExpressionAfterAReturn + self setUpForErrorsIn: '^ ` Expression to return expected ->`. 1 + 2'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingMessageAfterACascade (in category 'testing') ----- + testMissingMessageAfterACascade + self setUpForErrorsIn: 'nil yourself; ` Cascade expected ->`^ 2'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingPeriodSeparatorBetweenStatements (in category 'testing') ----- + testMissingPeriodSeparatorBetweenStatements + self setUpForErrorsIn: '1 + 2 ` Nothing more expected ->`^nil'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testMissingSeparatorBetweenBlockArgumentAndStatements (in category 'testing') ----- + testMissingSeparatorBetweenBlockArgumentAndStatements + self setUpForErrorsIn: '[ :x ` Vertical bar expected ->`x + 1 ]'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testTempDoubledDefined (in category 'testing') ----- + testTempDoubledDefined + self setUpForErrorsIn: '| x ` Name is already defined ->`x | x := 1. ^x'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testTooLargeAnIntegerInALiteralByteArray (in category 'testing') ----- + testTooLargeAnIntegerInALiteralByteArray + self setUpForErrorsIn: '#[ 1 2 ` 8-bit integer or right bracket expected ->`256 4 5]'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testTooManyArguments (in category 'testing-byteCode limits') ----- + testTooManyArguments + self setUpForErrorsIn: '^[:x1 :x2 :x3 :x4 :x5 :x6 :x7 :x8 :x9 :x10 :x11 :x12 :x13 :x14 :x15 ` Too many arguments ->`:x16 :x17 | ]'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testTooManyLiterals (in category 'testing-byteCode limits') ----- + testTooManyLiterals + self setUpForErrorsIn: '{#(1). #(2). #(3). #(4). #(5). #(6). #(7). #(8). #(9). #(10). #(11). #(12). #(13). #(14). #(15). #(16). #(17). #(18). #(19). #(20). #(21). #(22). #(23). #(24). #(25). #(26). #(27). #(28). #(29). #(30). #(31). #(32). #(33). #(34). #(35). #(36). #(37). #(38). #(39). #(40). #(41). #(42). #(43). #(44). #(45). #(46). #(47). #(48). #(49). #(50). #(51). #(52). #(53). #(54). #(55). #(56). #(57). #(58). #(59). #(60). #(61). #(62). #(63). #(64). #(65). #(66). #(67). #(68). #(69). #(70). #(71). #(72). #(73). #(74). #(75). #(76). #(77). #(78). #(79). #(80). #(81). #(82). #(83). #(84). #(85). #(86). #(87). #(88). #(89). #(90). #(91). #(92). #(93). #(94). #(95). #(96). #(97). #(98). #(99). #(100). #(101). #(102). #(103). #(104). #(105). #(106). #(107). #(108). #(109). #(110). #(111). #(112). #(113). #(114). #(115). #(116). #(117). #(118). #(119). #(120). #(121). #(122). #(123). #(124). #(125). #(126). #(127). #(128). #(129). #(130). #(131). #(132). #(133). #(134). #(135). #(136). #(137). #(138). #(139). #(140). #(141). #(142). #(143). #(144). #(145). #(146). #(147). #(148). #(149). #(150). #(151). #(152). #(153). #(154). #(155). #(156). #(157). #(158). #(159). #(160). #(161). #(162). #(163). #(164). #(165). #(166). #(167). #(168). #(169). #(170). #(171). #(172). #(173). #(174). #(175). #(176). #(177). #(178). #(179). #(180). #(181). #(182). #(183). #(184). #(185). #(186). #(187). #(188). #(189). #(190). #(191). #(192). #(193). #(194). #(195). #(196). #(197). #(198). #(199). #(200). #(201). #(202). #(203). #(204). #(205). #(206). #(207). #(208). #(209). #(210). #(211). #(212). #(213). #(214). #(215). #(216). #(217). #(218). #(219). #(220). #(221). #(222). #(223). #(224). #(225). #(226). #(227). #(228). #(229). #(230). #(231). #(232). #(233). #(234). #(235). #(236). #(237). #(238). #(239). #(240). #(241). #(242). #(243). #(244). #(245). #(246). #(247). #(248). #(249). #(250). #(251). #(252). #(253). #(254). #(255). #(256). `More than 256 literals referenced. + You must split or otherwise simplify this method. + The 257th literal is: ->`#(257)}'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testTooManyTemporaries (in category 'testing-byteCode limits') ----- + testTooManyTemporaries + self setUpForErrorsIn: '| x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x20 x21 x22 x23 x24 x25 x26 x27 x28 x29 x30 x31 x32 x33 x34 x35 x36 x37 x38 x39 x40 x41 x42 x43 x44 x45 x46 x47 x48 x49 x50 x51 x52 x53 x54 x55 x56 x57 x58 x59 x60 x61 x62 x63 ` Too many temporaries ->`x64 x65 | + x1 := x2 := x3 := x4 := x5 := x6 := x7 := x8 := x9 := x10 := x11 := x12 := x13 := x14 := x15 := x16 := x17 := x18 := x19 := x20 := x21 := x22 := x23 := x24 := x25 := x26 := x27 := x28 := x29 := x30 := x31 := x32 := x33 := x34 := x35 := x36 := x37 := x38 := x39 := x40 := x41 := x42 := x43 := x44 := x45 := x46 := x47 := x48 := x49 := x50 := x51 := x52 := x53 := x54 := x55 := x56 := x57 := x58 := x59 := x60 := x61 := x62 := x63 := x64 := x65 := 0. + {x1. x2. x3. x4. x5. x6. x7. x8. x9. x10. x11. x12. x13. x14. x15. x16. x17. x18. x19. x20. x21. x22. x23. x24. x25. x26. x27. x28. x29. x30. x31. x32. x33. x34. x35. x36. x37. x38. x39. x40. x41. x42. x43. x44. x45. x46. x47. x48. x49. x50. x51. x52. x53. x54. x55. x56. x57. x58. x59. x60. x61. x62. x63. x64. x65}'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedBlockBracket (in category 'testing') ----- + testUnmatchedBlockBracket + self setUpForErrorsIn: 'nil yourself. [` Period or right bracket expected ->`'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedBraceArray (in category 'testing') ----- + testUnmatchedBraceArray + self setUpForErrorsIn: '{ 1. 2` Period or right brace expected ->`'. + self enumerateAllSelections. + self setUpForErrorsIn: '{ 1. 2 ` Period or right brace expected ->`'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedByteArrayBracket (in category 'testing') ----- + testUnmatchedByteArrayBracket + self setUpForErrorsIn: '#` Unmatched bracket ->`[ 1 2 '. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedCommentQuote (in category 'testing') ----- + testUnmatchedCommentQuote + self setUpForErrorsIn: '1+2 ` Unmatched comment quote ->`"unfinished comment'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedExpressionParenthesis (in category 'testing') ----- + testUnmatchedExpressionParenthesis + self setUpForErrorsIn: '1+(2 ` right parenthesis expected ->`. '. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedLiteralParenthesis (in category 'testing') ----- + testUnmatchedLiteralParenthesis + self setUpForErrorsIn: '#` Unmatched parenthesis ->`( 1 2'. + self enumerateAllSelections. + self setUpForErrorsIn: '#` Unmatched parenthesis ->`( 1 2 '. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedLocalTempDeclaration (in category 'testing') ----- + testUnmatchedLocalTempDeclaration + self setUpForErrorsIn: '| x y ` Vertical bar expected ->`'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedLocalTempDeclarationInABlock (in category 'testing') ----- + testUnmatchedLocalTempDeclarationInABlock + self setUpForErrorsIn: '[:z | | x y ` Vertical bar expected ->`]'. + self enumerateAllSelections.! Item was added: + ----- Method: CompilerNotifyingTest>>testUnmatchedStringQuote (in category 'testing') ----- + testUnmatchedStringQuote + self setUpForErrorsIn: '^nil printString , ` Unmatched string quote ->`''unfinished string'. + self enumerateAllSelections! Item was added: + ----- Method: CompilerNotifyingTest>>testifTrueBlockWithArgument (in category 'testing-block arguments') ----- + testifTrueBlockWithArgument + self setUpForErrorsIn: 'true ifTrue: [:x` <- argument of ifTrue: has too many arguments ->` | 1 + 1 ]'. + self enumerateAllSelections. + self setUpForErrorsIn: 'true ifTrue: [:x` <- argument of ifTrue: has too many arguments ->` :y | 1 + 1 ]'. + self enumerateAllSelections.!

1 0

The Trunk: Morphic-nice.611.mcz
by commits＠source.squeak.org 22 Feb '12

22 Feb '12

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.611.mcz ==================== Summary ==================== Name: Morphic-nice.611 Author: nice Time: 22 February 2012, 2:57:33.901 am UUID: 090dee16-7401-427a-8e8f-c40c375793a1 Ancestors: Morphic-cmm.610 Avoid the compiler notification offset to be doubled when evaluating a sub-selection in a TextEditor. Notes: In Squeak, the notification offset is already taken into account in the source Stream because of TextEditor>>selectionAsStream "Answer a ReadStream on the text in the paragraph that is currently selected." ^ReadWriteStream on: paragraph string from: self startIndex to: self stopIndex - 1 So it is not necessary to add the self startIndex offset one more time in TextEditor>>notify:at:in: This might differ from Cuis solution. =============== Diff against Morphic-cmm.610 =============== Item was changed: ----- Method: TextEditor>>notify:at:in: (in category 'new selection') ----- notify: aString at: anInteger in: aStream "The compilation of text failed. The syntax error is noted as the argument, aString. Insert it in the text at starting character position anInteger." + self insertAndSelect: aString at: (anInteger max: 1)! - | pos | - pos := self selectionInterval notEmpty - ifTrue: [ - self startIndex + anInteger - 1 ] - ifFalse: [anInteger]. - self insertAndSelect: aString at: (pos max: 1)!

1 0

Daily Commit Log
by commits＠source.squeak.org 22 Feb '12

22 Feb '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-February/005196.h… Name: Tests-nice.142 Ancestors: Tests-nice.141 Depending on the VM, I have testBecomeIdentityHash sometimes failing... As the test was not very expressive, I rewrote it to explain the purpose of identityHash preservation,. Doing so, I also isolated the bad behaviour description previously tested: The VM is spawning too many equal identityHash to be honest This happens on my COG version and this might require further analysis... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-February/005197.h… Name: Tests-nice.143 Ancestors: Tests-nice.142 Change PackageDependencyTest>>testMorphic to reflect that Morphic does not seem to depend on ST80 anymore =============================================

1 0

Course-grained multiprocessing with RemoteTask
by David T. Lewis 21 Feb '12

21 Feb '12

RemoteTask provides partitioning of processing tasks at the level of cooperating OS processes. For problems that can be partitioned into independent tasks running under the supervision of a Squeak image, such that each task performs a significant amount of processing and returns a moderately sized result, RemoteTask can provide substantial improvements in processing run time versus the equivalent serial processing when running on multi-core hardware. A task is scheduled in a working image with RemoteTask do: taskBlock whenComplete: aOneArgumentBlock where taskBlock is the task to be scheduled in a forked Squeak image, and aOneArgumentBlock handles the result object when the remote task makes data available. Result data is returned through a ReferenceStream on the stdout pipe from the remote Squeak image. The forked Squeak image is headless and is quite memory efficient due to Unix copy-on-write for forked processes. RemoteTask may also be useful for evaluating a method that otherwise would block the VM, such as an FFI call to a long-running external function. RemoteTask is part of the latest CommandShell package on SqueakSource (CommandShell 4.5.0), and requires OSProcess as well as a Unix or Mac VM with OSProcessPlugin (it is helpful if the VM also has AioPlugin for process completion notification, although polling will be used if this is not present). I have tested only on Linux with standard VM and Cog, although I am hopeful that this will work on Mac also (confirmation would be appreciated). Following is an example of three processing tasks assigned to three Squeak worker images with results returned to the supervisory image on task completion. threeParallelTasks "Find all primes in a range of large integers. Divide the problem into three tasks running the three child images, and return the results to the supervisory image. Answer a tasks array and a results array, where the results array will be populated on completion of the tasks." "RemoteTask threeParallelTasks" | p1 p2 p3 results task1 task2 task3 | results := Array new: 3. task1 := [(100000000000000000000000000000 to: 100000000000000000000000019999) select: [:f | f isPrime] thenCollect: [:s | s asString]]. task2 := [(100000000000000000000000020000 to: 100000000000000000000000039999) select: [:f | f isPrime] thenCollect: [:s | s asString]]. task3 := [(100000000000000000000000040000 to: 100000000000000000000000059999) select: [:f | f isPrime] thenCollect: [:s | s asString]]. "n.b. Assign task to a variable to prevent RemoteTask from being finalized" p1 := RemoteTask do: task1 whenComplete: [:result | results at: 1 put: result]. p2 := RemoteTask do: task2 whenComplete: [:result | results at: 2 put: result]. p3 := RemoteTask do: task3 whenComplete: [:result | results at: 3 put: result]. ^ { #tasks -> { p1 . p2 . p3 } . #results -> results } Dave

4 5

Chris Muller is running for the board in 2012
by Chris Muller 21 Feb '12

21 Feb '12

3 2

The Trunk: Tests-nice.143.mcz
by commits＠source.squeak.org 21 Feb '12

21 Feb '12

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.143.mcz ==================== Summary ==================== Name: Tests-nice.143 Author: nice Time: 21 February 2012, 9:30:31.306 pm UUID: a5d77cf3-e35f-48e2-b45b-7c5c8b3d29bb Ancestors: Tests-nice.142 Change PackageDependencyTest>>testMorphic to reflect that Morphic does not seem to depend on ST80 anymore =============== Diff against Tests-nice.142 =============== Item was changed: ----- Method: PackageDependencyTest>>testMorphic (in category 'tests') ----- testMorphic self testPackage: 'Morphic' dependsExactlyOn: #( Balloon Collections Compiler EToys Exceptions Files Graphics Kernel Monticello MonticelloConfigurations MorphicExtras Multilingual Network - ST80 Sound System 'ToolBuilder-Kernel' 'ToolBuilder-Morphic' Tools TrueType ).!

1 0

The Trunk: Tests-nice.142.mcz
by commits＠source.squeak.org 21 Feb '12

21 Feb '12

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.142.mcz ==================== Summary ==================== Name: Tests-nice.142 Author: nice Time: 21 February 2012, 3:00:38.727 pm UUID: 6af7860f-3bab-4beb-890b-c8bebe9a2b31 Ancestors: Tests-nice.141 Depending on the VM, I have testBecomeIdentityHash sometimes failing... As the test was not very expressive, I rewrote it to explain the purpose of identityHash preservation,. Doing so, I also isolated the bad behaviour description previously tested: The VM is spawning too many equal identityHash to be honest This happens on my COG version and this might require further analysis... =============== Diff against Tests-nice.141 =============== Item was changed: ----- Method: BecomeTest>>testBecomeIdentityHash (in category 'Testing') ----- testBecomeIdentityHash + | a b c d numberOfRetry newAIdentityHash newBIdentityHash oldAIdentityHash oldBIdentityHash | + numberOfRetry := 0. + + [a := 'ab' copy. - "Note. The identity hash of both objects seems to change after the become:" - - | a b c d | - - a := 'ab' copy. b := 'cd' copy. + "Note: the sets are allocated with enough room to reduce probability that two different hash lead to same slot" + (c := IdentitySet new: 1000) add: a; add: b. + (d := IdentitySet new: 1000) add: a. + oldAIdentityHash := a identityHash. + oldBIdentityHash := b identityHash. + oldAIdentityHash = oldBIdentityHash and: [numberOfRetry < 10]] + whileTrue: [numberOfRetry := numberOfRetry + 1]. + self assert: oldAIdentityHash ~= oldBIdentityHash description: 'The VM is spawning too many equal identityHash to be honest'. - c := a. - d := b. - a become: b. + newAIdentityHash := a identityHash. + newBIdentityHash := b identityHash. + self + "The set c & d can still retrieve their elements because elements did not change their expected position" + assert: (c includes: a); + assert: (c includes: b); + assert: (d includes: a); + deny: (d includes: b); + "Elements didn't change their expected position because identityHash did not change" + assert: oldAIdentityHash = newAIdentityHash; + assert: oldBIdentityHash = newBIdentityHash! - - self - assert: a identityHash = c identityHash; - assert: b identityHash = d identityHash; - deny: a identityHash = b identityHash. - !

1 0

Re: [squeak-dev] The Trunk: Compiler-nice.224.mcz
by David T. Lewis 21 Feb '12

21 Feb '12

On Mon, Feb 20, 2012 at 09:56:33PM +0000, commits(a)source.squeak.org wrote: > Nicolas Cellier uploaded a new version of Compiler to project The Trunk: > http://source.squeak.org/trunk/Compiler-nice.224.mcz > > ==================== Summary ==================== > > Name: Compiler-nice.224 > Author: nice > Time: 20 February 2012, 10:56:20.223 pm > UUID: 15070f34-9c69-4407-a041-7659522fc95a > Ancestors: Compiler-nice.223 > > Just for fun, fix http://code.google.com/p/pharo/issues/detail?id=4915 > The inlined and non inlined versions of to:do: should answer the same result. > It is good to see these ongoing improvements :) Dave > Implementation notes: > This happens to be the receiver of to:do:, and thus the initial value of the loop index. > So we can trivially > - push the value of init statement on the stack, > - remove the final nil that was pushed forValue, > - and leave the rest of code generation unchanged > > =============== Diff against Compiler-nice.223 ===============

1 0

Daily Commit Log
by commits＠source.squeak.org 21 Feb '12

21 Feb '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-February/005192.h… Name: GraphicsTests-nice.30 Ancestors: GraphicsTests-ar.29 Pick a ColorTest from pharo For Issue http://code.google.com/p/pharo/issues/detail?id=5335 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-February/005193.h… Name: Graphics-nice.192 Ancestors: Graphics-cmm.191 Fix one of the issues at http://code.google.com/p/pharo/issues/detail?id=5335 self assert: (Color fromString: 'darkGray') = Color darkGray. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-February/005194.h… Name: Tests-nice.141 Ancestors: Tests-eem.140 Add #testEvaluationOfInlinedToDo for http://code.google.com/p/pharo/issues/detail?id=4915 The inlined and non inlined to:do: should return the same result. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-February/005195.h… Name: Compiler-nice.224 Ancestors: Compiler-nice.223 Just for fun, fix http://code.google.com/p/pharo/issues/detail?id=4915 The inlined and non inlined versions of to:do: should answer the same result. Implementation notes: This happens to be the receiver of to:do:, and thus the initial value of the loop index. So we can trivially - push the value of init statement on the stack, - remove the final nil that was pushed forValue, - and leave the rest of code generation unchanged =============================================

1 0

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

Jump to page: