Squeak-dev September 2015

squeak-dev@lists.squeakfoundation.org

40 participants
134 discussions

The Trunk: CollectionsTests-eem.251.mcz
by commits＠source.squeak.org 25 Sep '15

25 Sep '15

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.251.mcz ==================== Summary ==================== Name: CollectionsTests-eem.251 Author: eem Time: 25 September 2015, 11:35:30.23 am UUID: 28351c02-3f12-449e-8d40-bcae2557b843 Ancestors: CollectionsTests-ul.250 Add a test for at:ifAbsent:ifPresentPut: =============== Diff against CollectionsTests-ul.250 =============== Item was added: + ----- Method: DictionaryTest>>testAtIfPresentIfAbsentPut (in category 'basic tests') ----- + testAtIfPresentIfAbsentPut + "Test at:ifPresent:ifAbsentPut:" + | dict present absent | + dict := Dictionary new. + present := absent := false. + self assert: (dict at: #foo ifPresent:[:v| present := true. v] ifAbsentPut:[absent := true. #present]) + equals: #present. + self deny: present. + self assert: absent. + + present := absent := false. + self assert: (dict at: #foo ifPresent:[:v| present := true. v] ifAbsentPut:[absent := true. #absent]) + equals: #present. + self assert: present. + self deny: absent.!

1 0

The Trunk: 50Deprecated-eem.1.mcz
by commits＠source.squeak.org 25 Sep '15

25 Sep '15

Eliot Miranda uploaded a new version of 50Deprecated to project The Trunk: http://source.squeak.org/trunk/50Deprecated-eem.1.mcz ==================== Summary ==================== Name: 50Deprecated-eem.1 Author: eem Time: 25 September 2015, 11:21:50.573 am UUID: 1cbbbbba-2820-4e14-a6c4-43d69939f7ef Ancestors: First version of unsent deprecated methods for Squeak 5.0. ==================== Snapshot ==================== ----- Method: Dictionary>>fasterKeys (in category '*50Deprecated-accessing') ----- fasterKeys "Contrary to old version of #keys, this method returned an Array rather than a Set. This was faster because no lookup: was performed. But now, #keys also return an Array, so don't use #fasterKeys anymore." self deprecated: 'use #keys'. ^self keys. ! ----- Method: Dictionary>>keyForIdentity: (in category '*50Deprecated-accessing') ----- keyForIdentity: anObject "If anObject is one of the values of the receive, return its key, else return nil. Contrast #keyAtValue: in which there is only an equality check, here there is an identity check" self deprecated: 'Use #keyAtIdentityValue:ifAbsent:'. ^self keyAtIdentityValue: anObject ifAbsent: nil!

1 0

The Trunk: Regex-Core-ul.45.mcz
by commits＠source.squeak.org 25 Sep '15

25 Sep '15

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.45.mcz ==================== Summary ==================== Name: Regex-Core-ul.45 Author: ul Time: 25 September 2015, 10:14:55.741 am UUID: 0b7b582a-5091-43e4-95f2-981f236e991c Ancestors: Regex-Core-ul.44 - Allow escaping any character in a character set. - Use RxsCharacter instead of RxsPredicate for single character escapes like \r, \n, etc. - Use nil instead of #epsilon for the extremal stream element in RxParser. - RxParser >> #next returns the value of lookahead. Use it where it makes sense. - RxsPredicate's class variables' initialization is thread-safe. - Reinitialize EscapedLetterSelectors in the postscript. =============== Diff against Regex-Core-ul.44 =============== Item was changed: ----- Method: RxCharSetParser>>parseEscapeChar (in category 'parsing') ----- parseEscapeChar self match: $\. + elements add: ((RxsPredicate forEscapedLetter: lookahead) + ifNil: [ RxsCharacter with: lookahead ]). - $- == lookahead - ifTrue: [elements add: (RxsCharacter with: $-)] - ifFalse: [elements add: (RxsPredicate forEscapedLetter: lookahead)]. self next! Item was changed: ----- Method: RxParser>>atom (in category 'recursive descent') ----- atom "An atom is one of a lot of possibilities, see below." | atom | + (lookahead == nil - (lookahead == #epsilon or: [ lookahead == $| or: [ lookahead == $) or: [ lookahead == $* or: [ lookahead == $+ or: [ lookahead == $? ]]]]]) ifTrue: [ ^RxsEpsilon new ]. lookahead == $( ifTrue: [ "<atom> ::= '(' <regex> ')' " self match: $(. atom := self regex. self match: $). ^atom ]. lookahead == $[ ifTrue: [ "<atom> ::= '[' <characterSet> ']' " self match: $[. atom := self characterSet. self match: $]. ^atom ]. lookahead == $: ifTrue: [ "<atom> ::= ':' <messagePredicate> ':' " self match: $:. atom := self messagePredicate. self match: $:. ^atom ]. lookahead == $. ifTrue: [ "any non-whitespace character" self next. ^RxsContextCondition new beAny]. lookahead == $^ ifTrue: [ "beginning of line condition" self next. ^RxsContextCondition new beBeginningOfLine]. lookahead == $$ ifTrue: [ "end of line condition" self next. ^RxsContextCondition new beEndOfLine]. lookahead == $\ ifTrue: [ "<atom> ::= '\' <character>" + self next ifNil: [ self signalParseError: 'bad quotation' ]. + (BackslashConstants includesKey: lookahead) ifTrue: [ + atom := RxsCharacter with: (BackslashConstants at: lookahead). + self next. + ^atom]. - self next. - lookahead == #epsilon - ifTrue: [ self signalParseError: 'bad quotation' ]. - (BackslashConstants includesKey: lookahead) - ifTrue: [ - atom := RxsCharacter with: (BackslashConstants at: lookahead). - self next. - ^atom]. self ifSpecial: lookahead then: [:node | self next. ^node]]. "If passed through the above, the following is a regular character." atom := RxsCharacter with: lookahead. self next. ^atom! Item was changed: ----- Method: RxParser>>branch (in category 'recursive descent') ----- branch "<branch> ::= e | <piece> <branch>" | piece branch | piece := self piece. + (lookahead == nil - (lookahead == #epsilon or: [ lookahead == $| or: [ lookahead == $) ]]) ifTrue: [ branch := nil ] ifFalse: [ branch := self branch ]. ^RxsBranch new initializePiece: piece branch: branch! Item was changed: ----- Method: RxParser>>inputUpTo:errorMessage: (in category 'private') ----- inputUpTo: aCharacter errorMessage: aString "Accumulate input stream until <aCharacter> is encountered and answer the accumulated chars as String, not including <aCharacter>. Signal error if end of stream is encountered, passing <aString> as the error description." | accumulator | accumulator := WriteStream on: (String new: 20). + [ lookahead == aCharacter or: [lookahead == nil ] ] - [ lookahead == aCharacter or: [lookahead == #epsilon] ] whileFalse: [ accumulator nextPut: lookahead. self next]. + lookahead ifNil: [ self signalParseError: aString ]. - lookahead == #epsilon - ifTrue: [ self signalParseError: aString ]. ^accumulator contents! Item was changed: ----- Method: RxParser>>inputUpTo:nestedOn:errorMessage: (in category 'private') ----- inputUpTo: aCharacter nestedOn: anotherCharacter errorMessage: aString "Accumulate input stream until <aCharacter> is encountered and answer the accumulated chars as String, not including <aCharacter>. Signal error if end of stream is encountered, passing <aString> as the error description." | accumulator nestLevel | accumulator := WriteStream on: (String new: 20). nestLevel := 0. + [ lookahead == aCharacter and: [ nestLevel = 0 ] ] whileFalse: [ + lookahead ifNil: [ self signalParseError: aString ]. + lookahead == $\ + ifTrue: [ + self next ifNil: [ self signalParseError: aString ]. + BackslashConstants + at: lookahead + ifPresent: [ :unescapedCharacter | accumulator nextPut: unescapedCharacter ] + ifAbsent: [ + accumulator + nextPut: $\; + nextPut: lookahead ] ] + ifFalse: [ + accumulator nextPut: lookahead. + lookahead == anotherCharacter ifTrue: [ nestLevel := nestLevel + 1 ]. + lookahead == aCharacter ifTrue: [ nestLevel := nestLevel - 1 ] ]. + self next ]. - [lookahead == aCharacter and: [nestLevel = 0]] whileFalse: - [#epsilon == lookahead ifTrue: [self signalParseError: aString]. - accumulator nextPut: lookahead. - lookahead == anotherCharacter ifTrue: [nestLevel := nestLevel + 1]. - lookahead == aCharacter ifTrue: [nestLevel := nestLevel - 1]. - self next]. ^accumulator contents! Item was changed: ----- Method: RxParser>>inputUpToAny:errorMessage: (in category 'private') ----- inputUpToAny: aDelimiterString errorMessage: aString "Accumulate input stream until any character from <aDelimiterString> is encountered and answer the accumulated chars as String, not including the matched characters from the <aDelimiterString>. Signal error if end of stream is encountered, passing <aString> as the error description." | accumulator | accumulator := WriteStream on: (String new: 20). + [ lookahead == nil or: [ aDelimiterString includes: lookahead ] ] - [ lookahead == #epsilon or: [ aDelimiterString includes: lookahead ] ] whileFalse: [ accumulator nextPut: lookahead. self next ]. + lookahead ifNil: [ self signalParseError: aString ]. - lookahead == #epsilon - ifTrue: [ self signalParseError: aString ]. ^accumulator contents! Item was changed: ----- Method: RxParser>>next (in category 'private') ----- next "Advance the input storing the just read character as the lookahead." + ^lookahead := input next! - lookahead := input next ifNil: [ #epsilon ]! Item was changed: ----- Method: RxParser>>parseStream: (in category 'accessing') ----- parseStream: aStream "Parse an input from a character stream <aStream>. On success, answers an RxsRegex -- parse tree root. On error, raises `RxParser syntaxErrorSignal' with the current input stream position as the parameter." | tree | input := aStream. + self next. - lookahead := nil. - self match: nil. tree := self regex. + self match: nil. - self match: #epsilon. ^tree! Item was changed: ----- Method: RxParser>>regex (in category 'recursive descent') ----- regex "<regex> ::= e | <branch> `|' <regex>" | branch regex | branch := self branch. + (lookahead == nil - (lookahead == #epsilon or: [ lookahead == $) ]) ifTrue: [ regex := nil ] ifFalse: [ self match: $|. regex := self regex ]. ^RxsRegex new initializeBranch: branch regex: regex! Item was changed: ----- Method: RxsPredicate class>>forEscapedLetter: (in category 'instance creation') ----- forEscapedLetter: aCharacter + "Return a predicate instance for the given character, or nil if there's no such predicate." + ^EscapedLetterSelectors + at: aCharacter + ifPresent: [ :selector | self new perform: selector ]! - ^self new perform: - (EscapedLetterSelectors - at: aCharacter - ifAbsent: [RxParser signalSyntaxException: 'bad backslash escape'])! Item was changed: ----- Method: RxsPredicate class>>initializeEscapedLetterSelectors (in category 'class initialization') ----- initializeEscapedLetterSelectors "self initializeEscapedLetterSelectors" + EscapedLetterSelectors := Dictionary new - | newEscapedLetterSelectors | - newEscapedLetterSelectors := Dictionary new at: $w put: #beWordConstituent; at: $W put: #beNotWordConstituent; at: $d put: #beDigit; at: $D put: #beNotDigit; at: $s put: #beSpace; at: $S put: #beNotSpace; + yourself! - at: $\ put: #beBackslash; - at: $r put: #beCarriageReturn; - at: $n put: #beLineFeed; - at: $t put: #beTab; - yourself. - EscapedLetterSelectors := newEscapedLetterSelectors! Item was changed: ----- Method: RxsPredicate class>>initializeNamedClassSelectors (in category 'class initialization') ----- initializeNamedClassSelectors "self initializeNamedClassSelectors" + NamedClassSelectors := Dictionary new - (NamedClassSelectors := Dictionary new) at: 'alnum' put: #beAlphaNumeric; at: 'alpha' put: #beAlphabetic; at: 'cntrl' put: #beControl; at: 'digit' put: #beDigit; at: 'graph' put: #beGraphics; at: 'lower' put: #beLowercase; at: 'print' put: #bePrintable; at: 'punct' put: #bePunctuation; at: 'space' put: #beSpace; at: 'upper' put: #beUppercase; + at: 'xdigit' put: #beHexDigit; + yourself! - at: 'xdigit' put: #beHexDigit! Item was removed: - ----- Method: RxsPredicate>>beBackslash (in category 'initialize-release') ----- - beBackslash - - self beCharacter: $\! Item was removed: - ----- Method: RxsPredicate>>beCarriageReturn (in category 'initialize-release') ----- - beCarriageReturn - - self beCharacter: Character cr! Item was removed: - ----- Method: RxsPredicate>>beLineFeed (in category 'initialize-release') ----- - beLineFeed - - self beCharacter: Character lf! Item was removed: - ----- Method: RxsPredicate>>beTab (in category 'initialize-release') ----- - beTab - - self beCharacter: Character tab! Item was changed: + (PackageInfo named: 'Regex-Core') postscript: 'RxsPredicate initializeEscapedLetterSelectors.'! - (PackageInfo named: 'Regex-Core') postscript: 'RxsPredicate initializeEscapedLetterSelectors'!

1 0

The Trunk: Regex-Tests-Core-ul.3.mcz
by commits＠source.squeak.org 25 Sep '15

25 Sep '15

Levente Uzonyi uploaded a new version of Regex-Tests-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Tests-Core-ul.3.mcz ==================== Summary ==================== Name: Regex-Tests-Core-ul.3 Author: ul Time: 25 September 2015, 5:39:06.012 pm UUID: cf86029f-c2dd-4fe9-a926-d1024319d981 Ancestors: Regex-Tests-Core-ul.2 Added a test for character sets containing escaped characters. =============== Diff against Regex-Tests-Core-ul.2 =============== Item was added: + ----- Method: RxParserTest>>testCharacterSetWithEscapedCharacters (in category 'tests') ----- + testCharacterSetWithEscapedCharacters + "self debug: #testCharacterSetRange" + + { + '[\r]'. String cr. String space. + '[\n]'. String lf. String space. + '[\t]'. String tab. String space. + '[\e]'. Character escape asString. String space. + '[\f]'. Character newPage asString. String space. + '[\]]+'. ']]]'. '[[['. + '[\S]+[\s]+=[\s]+#[^\[(]'. 'foo = #bar'. 'foo = #[1 2 3]'. + '[\d]+'. '123'. 'abc'. + '[\D]+'. 'abc'. '123'. + '[\w]+'. 'a1_b2'. '...'. + '[\W]+'. '...'. 'a1_b2'. + } groupsDo: [ :regexString :inputToAccept :inputToReject | + | regex | + regex := regexString asRegex. + self + assert: (regex search: inputToAccept); + deny: (regex search: inputToReject) ]!

1 0

Daily Commit Log
by commits＠source.squeak.org 24 Sep '15

24 Sep '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-September/008973.… Name: MonticelloConfigurations-topa.138 Ancestors: MonticelloConfigurations-dtl.137 Do not nil out Updaters on initialize, beacuse this can screw the whole update process. =============================================

1 0

Re: [Pharo-dev] World.st has a new admin
by Dimitris Chloupis 24 Sep '15

24 Sep '15

Thank you Sean :) On Thu, Sep 24, 2015 at 8:47 PM Stephan Eggermont <stephan(a)stack.nl> wrote: > On 24/09/15 16:27, Geert Claes wrote: > > The admin duties have now been handed over to Sean DeNigris who kindly > > volunteered to look after the www.world.st web presence as well as the > > Nabble archived mailing list forums on forum.world.st. > > Thank you Geert, for taking care of this important community resource > for us for so long, and Sean for stepping in and taking over. > > Stephan > > > >

1 0

World.st has a new admin
by Geert Claes 24 Sep '15

24 Sep '15

The admin duties have now been handed over to Sean DeNigris who kindly volunteered to look after the www.world.st web presence as well as the Nabble archived mailing list forums on forum.world.st. As mentioned in a previous post, I did establish The World of Smalltalk some years ago I have now unfortunately too many other things on my plate. So I feel a person who is closer to the Smalltalk action will be better suited to take over the reins and I wish Sean all the best to continue! -- View this message in context: http://forum.world.st/World-st-has-a-new-admin-tp4851814.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

Re: [squeak-dev] The Trunk: MonticelloConfigurations-topa.138.mcz
by Tobias Pape 24 Sep '15

24 Sep '15

Here's the thing: The change to initialize effects that it is called. Hence, after updating _past_ MonticelloConfigurations-dtl.137, the Updaters classvar of MCMcmUpdater will be nil, and hence every following attempt to update will restart from 1 and, inevitably, fail eventually. (Evidence: all saved images from the CI since september 3) What we can do: - remove the last three .mcm's that reference MonticelloConfigurations-dtl.137 - update-eem.333 - update-eem.334 - update-eem.335 - I don't know whether each of them is an important milestone for loading individually. if so: - replace 333-335 with maps that refer to MonticelloConfigurations-topa.138 to skip 137 if not: - make a new 333 that merges the changes of the old 333-335 and refers to MonticelloConfigurations-topa.138, also to skip 137. Thoughts? Best regards -Tobias On 24.09.2015, at 12:48, commits(a)source.squeak.org wrote: > Tobias Pape uploaded a new version of MonticelloConfigurations to project The Trunk: > http://source.squeak.org/trunk/MonticelloConfigurations-topa.138.mcz > > ==================== Summary ==================== > > Name: MonticelloConfigurations-topa.138 > Author: topa > Time: 24 September 2015, 2:48:24.846 pm > UUID: 153b9666-3723-4eb0-b230-7bc75450b892 > Ancestors: MonticelloConfigurations-dtl.137 > > Do not nil out Updaters on initialize, beacuse this can screw the whole update process. > > =============== Diff against MonticelloConfigurations-dtl.137 =============== > > Item was changed:

2 4

The Trunk: MonticelloConfigurations-topa.138.mcz
by commits＠source.squeak.org 24 Sep '15

24 Sep '15

Tobias Pape uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-topa.138.mcz ==================== Summary ==================== Name: MonticelloConfigurations-topa.138 Author: topa Time: 24 September 2015, 2:48:24.846 pm UUID: 153b9666-3723-4eb0-b230-7bc75450b892 Ancestors: MonticelloConfigurations-dtl.137 Do not nil out Updaters on initialize, beacuse this can screw the whole update process. =============== Diff against MonticelloConfigurations-dtl.137 =============== Item was changed: ----- Method: MCMcmUpdater class>>initialize (in category 'class initialization') ----- initialize "MCMcmUpdater initialize" DefaultUpdateURL ifNil:[ DefaultUpdateURL := MCHttpRepository trunkUrlString. ]. + "Call + MCMcmUpdater resetUpdaters + manually if necessary"! - Updaters := nil. - ! Item was added: + ----- Method: MCMcmUpdater class>>resetUpdaters (in category 'class initialization') ----- + resetUpdaters + + Updaters := nil.!

1 0

ARM Simulator whitewash...
by Eliot Miranda 23 Sep '15

23 Sep '15

Hi All, anyone with C chops looking for a challenge? The ARM code generator in Cog is in a good state and we're supporting Squeak 5.0 Cog on ARM and building Newspeak Cog VMs for ARM. But the same can't be said of the simulator, with which we develop the code generator. Tim Rowledge recently added support for floating point support for the ARM code generator, which is great for floating point performance, but alas the simulator can't simulate the generated vfp (virtual floating point) instructions. The simulator is derived from Gdb's ARM support, see http://www.squeakvm.org/svn/squeak/branches/Cog/processors/ARM/README http://www.squeakvm.org/svn/squeak/branches/Cog/processors/ARM/gdb-7.6 Is anyone interested in fixing the ARM simulator so that it does correctly simulate vfp instructions? If so, let me know and I can help you set up the relevant environment. _,,,^..^,,,_ best, Eliot

1 0

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

Jump to page: