Squeak-dev March 2020

squeak-dev@lists.squeakfoundation.org

38 participants
318 discussions

Squeak5.3 linux ARMv6 segfaults on startup
by tim Rowledge 27 Apr '20

27 Apr '20

Oh pooh. Download the release zip; extract, cd into the directory, run ./squeak.sh; boom. The image is fine and runs OK with a slightly older VM build (5.0-201912311458). tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful Latin Phrases:- Mellita, domi adsum. = Honey, I'm home.

9 63

Squeak in FreeBSD
by Edwin Ancaer 22 Apr '20

22 Apr '20

Hello, has anybody succesfully build a usable recent Squeak in FreeBSD? The only links I found reported a successful build, but errors when running the image. There is a port for FreeBSD, but that is building version 4.10. Thanks,

5 19

The Trunk: Tests-cmm.428.mcz
by commits＠source.squeak.org 21 Apr '20

21 Apr '20

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.428.mcz ==================== Summary ==================== Name: Tests-cmm.428 Author: cmm Time: 13 March 2020, 6:09:37.220407 pm UUID: cd4af6d7-7fed-44c1-bfe7-64a2de3cb7ee Ancestors: Tests-nice.427 Tests for #caseError. =============== Diff against Tests-nice.427 =============== Item was added: + TestCase subclass: #CaseErrorTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Bugs'! Item was added: + ----- Method: CaseErrorTest>>printOn: (in category 'tests') ----- + printOn: aStream + 3 caseOf: + { [1] -> [aStream nextPutAll: 'option 1']. + [2] -> [aStream nextPutAll: 'option 2'] } + "caseError in printOn:"! Item was added: + ----- Method: CaseErrorTest>>testCaseError (in category 'tests') ----- + testCaseError + self + should: + [2 caseOf: + { [1] -> ['option 1'] }] + raise: Error! Item was added: + ----- Method: CaseErrorTest>>testCaseErrorInPrintOn (in category 'tests') ----- + testCaseErrorInPrintOn + self should: [ self printString ] raise: Error!

8 15

The Inbox: Regex-Core-ct.56.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Christoph Thiede uploaded a new version of Regex-Core to project The Inbox: http://source.squeak.org/inbox/Regex-Core-ct.56.mcz ==================== Summary ==================== Name: Regex-Core-ct.56 Author: ct Time: 6 March 2020, 8:32:34.316886 pm UUID: 22955049-895d-ca43-8919-1d9f44b851f9 Ancestors: Regex-Core-ct.55 Implements lookbehinds (both positive and negative) in Regular Expressions for Squeak. '(?<=(?<!n''t\s+)l[o]ve\s+)\w+' asRegex matchesIn: 'I love Squeak. I don''t love C++. I love Smalltalk.'. - Honor lookbehind syntax in RxParser (see #lookAround) - Add #forward argument to nodes/links messages. Extend RxsLookaround state by #forward boolean. - Create RxmLookahead as universal class for both lookahead and lookbehind links. Remove RxmLookahead. - Implement actual lookbehind logic in RxMatcher >> #matchAgainstLookbehind:positive:nextLink:. Again, I decided not to give further support for the #forward-less versions of the relevant messages, nor for the class RxmLookahead. First, I'm not sure whether "lookahead" is a universally useful default assumption for "lookaround". Also, these selectors have been introduced just a few hours ago in Regex-Core-ct.55, so there should not be a high demand for backward compatibility. Second, all these things are hidden behind the RxMatcher facade, so foreign clients should not really depend on them. (Bad pun: Don't look-behind the facade ...) Opinions on this topic are highly appreciated. This commit depends indeed on Regex-Core-ct.55. Please review carefully! The lookbehind matching implementation uses an intuitive algorithm. I give absolutely no guarantee that this is an efficient implementation, but for the beginning, even a superpolynomial complexity should be better than no implementation at all, shouldn't it? :-) Further information about lookbehinds can be found here: https://www.regular-expressions.info/lookaround.html =============== Diff against Regex-Core-ct.55 =============== Item was added: + ----- Method: RxMatchOptimizer>>syntaxLookaround:forward:positive: (in category 'double dispatch') ----- + syntaxLookaround: lookaroundNode forward: forward positive: positive + "Do nothing."! Item was removed: - ----- Method: RxMatchOptimizer>>syntaxLookaround:positive: (in category 'double dispatch') ----- - syntaxLookaround: lookaroundNode positive: positive - "Do nothing."! Item was added: + ----- Method: RxMatcher>>matchAgainstLookbehind:positive:nextLink: (in category 'matching') ----- + matchAgainstLookbehind: lookbehind positive: positive nextLink: anRmxLink + + | position matchesLookbehind | + position := stream position. + matchesLookbehind := (position to: 0 by: -1) + anySatisfy: [:index | + stream position: index. + (lookbehind matchAgainst: self) + and: [stream position = position]]. + matchesLookbehind = positive + ifFalse: [^ false]. + stream position: position. + ^ anRmxLink matchAgainst: self! Item was added: + ----- Method: RxMatcher>>syntaxLookaround:forward:positive: (in category 'double dispatch') ----- + syntaxLookaround: lookaroundNode forward: forwardBoolean positive: positiveBoolean + "Double dispatch from the syntax tree. + Special link can handle lookarounds (look ahead and look behind, positive and negative)." + | piece | + piece := lookaroundNode piece dispatchTo: self. + ^ RxmLookaround with: piece forward: forwardBoolean positive: positiveBoolean! Item was removed: - ----- Method: RxMatcher>>syntaxLookaround:positive: (in category 'double dispatch') ----- - syntaxLookaround: lookaroundNode positive: positiveBoolean - "Double dispatch from the syntax tree. - Special link can handle lookarounds (look ahead, positive and negative)." - | piece | - piece := lookaroundNode piece dispatchTo: self. - ^ RxmLookahead with: piece positive: positiveBoolean! Item was changed: ----- Method: RxParser>>lookAround (in category 'recursive descent') ----- lookAround "Parse a lookaround expression after: (?<lookaround>) <lookaround> ::= !!<regex> | =<regex>" + | lookbehind positive | + ('!!=<' includes: lookahead) ifFalse: [ - | positive | - ('!!=' includes: lookahead) ifFalse: [ ^ self signalParseError: 'Invalid lookaround expression ?', lookahead asString]. + lookbehind := lookahead == $< + ifTrue: [self next]; + yourself. positive := lookahead == $=. self next. ^ RxsLookaround with: self regex + forward: lookbehind not positive: positive! Item was removed: - RxmLink subclass: #RxmLookahead - instanceVariableNames: 'lookahead positive' - classVariableNames: '' - poolDictionaries: '' - category: 'Regex-Core'! - - !RxmLookahead commentStamp: 'ct 3/6/2020 18:29' prior: 0! - Instance holds onto a lookahead which matches but does not consume anything. - - Instance Variables - lookahead: <RxmLink> - positive: <Boolean> - ! Item was removed: - ----- Method: RxmLookahead class>>with:positive: (in category 'instance creation') ----- - with: aPiece positive: aBoolean - - ^self new lookahead: aPiece positive: aBoolean! Item was removed: - ----- Method: RxmLookahead>>lookahead:positive: (in category 'accessing') ----- - lookahead: anRxmLink positive: aBoolean - lookahead := anRxmLink. - positive := aBoolean.! Item was removed: - ----- Method: RxmLookahead>>matchAgainst: (in category 'matching') ----- - matchAgainst: aMatcher - "Match if the predicate block evaluates to true when given the - current stream character as the argument." - - ^aMatcher matchAgainstLookahead: lookahead positive: positive nextLink: next! Item was removed: - ----- Method: RxmLookahead>>postCopy (in category 'copying') ----- - postCopy - - super postCopy. - lookahead := lookahead copy! Item was removed: - ----- Method: RxmLookahead>>postCopyUsing: (in category 'copying') ----- - postCopyUsing: anIdentityDictionary - - super postCopyUsing: anIdentityDictionary. - lookahead := lookahead copyUsing: anIdentityDictionary! Item was removed: - ----- Method: RxmLookahead>>terminateWith: (in category 'building') ----- - terminateWith: aNode - lookahead terminateWith: aNode. - super terminateWith: aNode.! Item was added: + RxmLink subclass: #RxmLookaround + instanceVariableNames: 'forward positive lookaround' + classVariableNames: '' + poolDictionaries: '' + category: 'Regex-Core'! + + !RxmLookaround commentStamp: 'ct 3/6/2020 19:45' prior: 0! + Instance holds onto a lookaround which matches but does not consume anything. + + Instance Variables + lookbehind: <RxmLink> + forward: <Boolean> + positive: <Boolean>! Item was added: + ----- Method: RxmLookaround class>>with:forward:positive: (in category 'instance creation') ----- + with: aPiece forward: forwardBoolean positive: positiveBoolean + + ^self new lookaround: aPiece forward: forwardBoolean positive: positiveBoolean! Item was added: + ----- Method: RxmLookaround>>lookaround:forward:positive: (in category 'accessing') ----- + lookaround: anRxmLink forward: forwardBoolean positive: positiveBoolean + lookaround := anRxmLink. + forward := forwardBoolean. + positive := positiveBoolean.! Item was added: + ----- Method: RxmLookaround>>matchAgainst: (in category 'matching') ----- + matchAgainst: aMatcher + "Match if the predicate block evaluates to true when given the current stream character as the argument." + + ^ forward + ifTrue: [aMatcher matchAgainstLookahead: lookaround positive: positive nextLink: next] + ifFalse: [aMatcher matchAgainstLookbehind: lookaround positive: positive nextLink: next]! Item was added: + ----- Method: RxmLookaround>>postCopy (in category 'copying') ----- + postCopy + + super postCopy. + lookaround := lookaround copy! Item was added: + ----- Method: RxmLookaround>>postCopyUsing: (in category 'copying') ----- + postCopyUsing: anIdentityDictionary + + super postCopyUsing: anIdentityDictionary. + lookaround := lookaround copyUsing: anIdentityDictionary! Item was added: + ----- Method: RxmLookaround>>terminateWith: (in category 'building') ----- + terminateWith: aNode + lookaround terminateWith: aNode. + super terminateWith: aNode.! Item was changed: RxsNode subclass: #RxsLookaround + instanceVariableNames: 'piece forward positive' - instanceVariableNames: 'piece positive' classVariableNames: '' poolDictionaries: '' category: 'Regex-Core'! + !RxsLookaround commentStamp: 'ct 3/6/2020 18:31' prior: 0! + Lookaround is used for lookaheads and lookbehinds. They are used to check if the input matches a certain subexpression without consuming any characters (e.g. not advancing the match position). - !RxsLookaround commentStamp: '<historical>' prior: 0! - I lookaround is used for lookaheads and lookbehinds. They are used to check if the input matches a certain subexpression without consuming any characters (e.g. not advancing the match position). Lookarounds can be positive or negative. If they are positive the condition fails if the subexpression fails, if they are negative it is inverse.! Item was added: + ----- Method: RxsLookaround class>>with:forward:positive: (in category 'instance creation') ----- + with: aRxsRegex forward: forwardBoolean positive: positiveBoolean + ^ self new + initializePiece: aRxsRegex + forward: forwardBoolean + positive: positiveBoolean! Item was removed: - ----- Method: RxsLookaround class>>with:positive: (in category 'instance creation') ----- - with: aRxsRegex positive: positiveBoolean - ^ self new - initializePiece: aRxsRegex - positive: positiveBoolean! Item was added: + ----- Method: RxsLookaround>>beLookahead (in category 'initialize-release') ----- + beLookahead + forward := true! Item was added: + ----- Method: RxsLookaround>>beLookbehind (in category 'initialize-release') ----- + beLookbehind + forward := false! Item was changed: ----- Method: RxsLookaround>>dispatchTo: (in category 'accessing') ----- dispatchTo: aBuilder "Inform the matcher of the kind of the node, and it will do whatever it has to." + ^aBuilder syntaxLookaround: self forward: self forward positive: self positive! - ^aBuilder syntaxLookaround: self positive: self positive! Item was added: + ----- Method: RxsLookaround>>forward (in category 'accessing') ----- + forward + + ^ forward! Item was added: + ----- Method: RxsLookaround>>initializePiece:forward:positive: (in category 'initialize-release') ----- + initializePiece: anRsxPiece forward: forwardBoolean positive: positiveBoolean + + piece := anRsxPiece. + forward := forwardBoolean. + positive := positiveBoolean.! Item was removed: - ----- Method: RxsLookaround>>initializePiece:positive: (in category 'initialize-release') ----- - initializePiece: anRsxPiece positive: positiveBoolean - - piece := anRsxPiece. - positive := positiveBoolean.!

3 2

The Trunk: Monticello-ct.715.mcz
by commits＠source.squeak.org 10 Apr '20

10 Apr '20

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.715.mcz ==================== Summary ==================== Name: Monticello-ct.715 Author: ct Time: 6 February 2020, 6:58:26.533648 pm UUID: 199bf8a3-5eee-1045-a44b-89ad30fa5523 Ancestors: Monticello-cmm.708 Fixes wrong load and unload order of MCScriptDefinitions See http://forum.world.st/Monticello-Bug-Preamble-of-removal-is-executed-too-la…. Regression tests are in Tests-ct.426. Please review! =============== Diff against Monticello-cmm.708 =============== Item was added: + ----- Method: MCDefinition>>wantsToBeOutermost (in category 'testing') ----- + wantsToBeOutermost + + ^ false! Item was changed: Object subclass: #MCDependencySorter + instanceVariableNames: 'required provided deferred orderedItems' - instanceVariableNames: 'required provided orderedItems' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Loading'! Item was changed: ----- Method: MCDependencySorter>>add: (in category 'building') ----- add: anItem | requirements | + (anItem wantsToBeOutermost) + ifTrue: [^self addDeferred: anItem]. requirements := self unresolvedRequirementsFor: anItem. requirements isEmpty ifTrue: [self addToOrder: anItem] ifFalse: [self addRequirements: requirements for: anItem]. ^anItem! Item was added: + ----- Method: MCDependencySorter>>addDeferred (in category 'building') ----- + addDeferred + deferred do: [:ea | + self addToOrder: ea].! Item was added: + ----- Method: MCDependencySorter>>addDeferred: (in category 'private') ----- + addDeferred: anItem + ^ deferred add: anItem! Item was changed: ----- Method: MCDependencySorter>>initialize (in category 'initialize-release') ----- initialize provided := Set new. required := Dictionary new. + orderedItems := OrderedCollection new. + deferred := OrderedCollection new.! - orderedItems := OrderedCollection new.! Item was changed: ----- Method: MCPackageLoader>>sorterForItems: (in category 'private') ----- sorterForItems: aCollection | sorter | sorter := MCDependencySorter items: aCollection. sorter addExternalProvisions: self provisions. + sorter addDeferred. ^ sorter! Item was added: + ----- Method: MCPostscriptDefinition>>wantsToBeOutermost (in category 'nil') ----- + wantsToBeOutermost + + ^ true! Item was added: + ----- Method: MCRemovalPreambleDefinition>>wantsToBeOutermost (in category 'testing') ----- + wantsToBeOutermost + + ^ true!

3 3

Re: [squeak-dev] [cmfcmf/MagicMouse] Error: could not resolve BaselineOfMagicMouse. (#2)
by Robert 09 Apr '20

09 Apr '20

Ack! Here is the issue I am having...sending to the list. On 3/27/20 6:34 AM, Robert wrote: > So I tried to load MagicMouse again: > > Metacello new > baseline: 'MagicMouse'; > repository: 'github://cmfcmf/MagicMouse:master/packages'; > load. > > and again it failed. It is failing when trying to load from this spec: > > spec > name: 'BaselineOfMetacello'; > repository: 'github://Metacello/metacello:master/repository'. > > I was able to load BaselineOfMetacello from 'http://seaside.gemtalksystems.com/ss/metacello', but when I restarted the original load process it again hung up on loading from 'github://Metacello/metacello:master/repository'. > > So I am stuck. k, r > > On 3/27/20 5:03 AM, Patrick R wrote: > >> Hm... just worked for me right now in Squeak 5.3. [@RobWithers](https://github.com/RobWithers) Have you tried it since then? It might really have been an issue with Metacello. >> >> — >> You are receiving this because you were mentioned. >> Reply to this email directly, [view it on GitHub](https://github.com/cmfcmf/MagicMouse/issues/2#issuecomment-60489129…, or [unsubscribe](https://github.com/notifications/unsubscribe-auth/AH7NNSQWIRGV…. > > -- > Kindly, > Robert -- Kindly, Robert

4 14

The Trunk: System-nice.1149.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.1149.mcz ==================== Summary ==================== Name: System-nice.1149 Author: nice Time: 30 March 2020, 12:50:26.196366 pm UUID: ece53b0b-24d2-4d4b-bc91-6794a661f886 Ancestors: System-ul.1148 avoid neuron storming [...] doWhileTrue: true, it just means [...] repeat There is no other sender of doWhileFalse: doWhileTrue: and my advice would be to deprecate them. YAGNI. =============== Diff against System-ul.1148 =============== Item was changed: ----- Method: MOFile>>searchByHash: (in category 'experimental') ----- searchByHash: aString | hashValue nstr index incr key | hashValue := self hashPjw: aString. incr := 1 + (hashValue \\ (hashTableSize -2)). index := (hashValue \\ hashTableSize) . [ nstr := (hashTable at: index +1 ). nstr = 0 ifTrue: [^nil]. key := self originalString: nstr. key = aString ifTrue: [^self translatedString: nstr]. index >= (hashTableSize - incr) ifTrue: [index := index - (hashTableSize - incr) ] ifFalse:[index := index + incr]. + ] repeat! - ] doWhileTrue: true.!

9 15

The Trunk: Compiler-ct.426.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ct.426.mcz ==================== Summary ==================== Name: Compiler-ct.426 Author: ct Time: 28 March 2020, 1:22:49.51256 am UUID: 761924e9-77a0-1144-9533-8a7c22c03332 Ancestors: Compiler-ct.424 Fixes a bug regarding decompilation of special selectors. The following did not work before: (OrderedCollection >> #asArray) decompile generate valueWithReceiver: {42} asOrderedCollection arguments: #(). "MessageNotUnderstood: OrderedCollection>>#Array=>Array" See also this thread: http://forum.world.st/The-Inbox-EToys-ct-367-mcz-tp5105507p5114020.html =============== Diff against Compiler-ct.424 =============== Item was changed: ----- Method: DecompilerConstructor>>codeAnySelector: (in category 'constructor') ----- codeAnySelector: selector ^SelectorNode new key: selector + index: nil - index: 0 type: SendType!

4 10

The Inbox: Morphic-ct.1638.mcz
by commits＠source.squeak.org 03 Apr '20

03 Apr '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1638.mcz ==================== Summary ==================== Name: Morphic-ct.1638 Author: ct Time: 2 March 2020, 12:23:17.762949 pm UUID: ade6a3af-6505-5e49-816d-b9940db95e25 Ancestors: Morphic-ct.1636 Slightly refines previous commit. Depends indeed on Morphic-ct.1636. (Sorry for all the noise! We could really need some kind of branch concept ...) =============== Diff against Morphic-ct.1636 =============== Item was changed: ----- Method: WorldState>>doSafely:onErrorThat:setErrorFlag:ifFatal:afterErrorDo: (in category 'update cycle') ----- doSafely: aBlock onErrorThat: errorPredicate setErrorFlag: errorFlag ifFatal: fatalErrorBlock afterErrorDo: postErrorBlock "Evaluate aBlock and keep track of errors during morph invocations." | finished classesWithErrors | finished := false. classesWithErrors := IdentitySet new. [finished] whileFalse: [ [aBlock value. finished := true] on: Error, Halt, Warning do: [:ex | | err rcvr errCtxt errMorph | (errorPredicate cull: ex) ifFalse: [ex pass]. err := ex description. rcvr := ex receiver. errCtxt := thisContext. [ errCtxt := errCtxt sender. "Search the sender chain to find the morph causing the problem" [errCtxt notNil and: [(errCtxt receiver isMorph) not]] whileTrue: [errCtxt := errCtxt sender]. "If we're at the root of the context chain then we have a fatal problem" errCtxt ifNil: [^ fatalErrorBlock cull: err]. errMorph := errCtxt receiver. "If the morph causing the problem has already the error flag set, then search for the next morph above in the caller chain." errMorph hasProperty: errorFlag ] whileTrue. + errMorph + setProperty: errorFlag toValue: true; + changed. - errMorph setProperty: errorFlag toValue: true. "Catch all errors, one for each receiver class." (classesWithErrors includes: rcvr class) ifFalse: [ classesWithErrors add: rcvr class. ToolSet debugException: ex]. postErrorBlock cull: err. ]].! Item was changed: ----- Method: WorldState>>processEventsSafely: (in category 'update cycle') ----- processEventsSafely: aHandMorph ^ self doSafely: [aHandMorph processEvents] + onErrorThat: [:error | ActiveEvent isNil or: [ActiveEvent isHighFrequentEvent]] - onErrorThat: [:error | ActiveEvent isHighFrequentEvent] setErrorFlag: #errorOnEvent ifFatal: [:error | Project current fatalEventHandlingError: error] afterErrorDo: []!

2 1

cannot read file format 6521
by stes 03 Apr '20

03 Apr '20

Hi, Is there an easy way to see in the squeak image file name what the "image format" number is ? I've built squeakvm from SVN (subversion) on Solaris. This compile went relatively well. I've used the SunPro C Studio "DeveloperWorks" C and C++ compiler (not the gcc compiler). When I build (on Solaris) the squeakvm it seems to install fine for the 32 bit. The build64 almost succeeds as well (97% compiled ok) there is an error "./squeakvm/platforms/unix/vm-sound-Sun/sqUnixSoundSun.c", line 197: identifier redeclared: sound_AvailableSpace I don't have that error in the build 32 bit. But when I launch this with an old 4.10 image it works, but with the 5.3 image I get: bash-4.4$ bin/squeak.sh Squeak5.3-19431-32bit.image This interpreter supports image formats up to 6505, cannot read file format 6521 also for 5.2 same message: bash-4.4$ bin/squeak.sh Squeak5.2-18221-32bit.image This interpreter supports image formats up to 6505, cannot read file format 6521 and for 5.0 bash-4.4$ bin/squeak.sh Squeak5.0-15120-32bit.image This interpreter supports image formats up to 6505, cannot read file format 6521 However it seems the resulted binaries (the resulting VM) that I built myself from the subversion source code can only run 4.10 or 4.6 images. for example what works is: bash-4.4$ bin/squeak.sh Squeak4.6-15102.image that launches the image correctly Is the old "unix" squeakvm able to run 5.x images at all or should one use the "opensmalltalk" VMs for that ? -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

6 14

← Newer
1
2
3
4
5
6
7
8
9
...
32
Older →

Jump to page: