Squeak-dev July 2017

squeak-dev@lists.squeakfoundation.org

28 participants
70 discussions

The Trunk: System-jr.927.mcz
by commits＠source.squeak.org 16 Jul '17

16 Jul '17

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-jr.927.mcz ==================== Summary ==================== Name: System-jr.927 Author: jr Time: 28 February 2017, 1:18:53.473081 am UUID: 7c830682-637d-e94b-b695-9f1d7499e19b Ancestors: System-ul.926 improve environment awareness of references also support Text as stringVersion of MethodReference (so Lexicon could use method references) =============== Diff against System-ul.926 =============== Item was changed: Object subclass: #ClassReference + instanceVariableNames: 'classSymbol stringVersion classIsMeta environment' - instanceVariableNames: 'classSymbol stringVersion classIsMeta' classVariableNames: '' poolDictionaries: '' category: 'System-Tools'! !ClassReference commentStamp: '<historical>' prior: 0! A ClassReference is is a lightweight proxy for a Class's definition. Allows class definitions to be viewed in MessageLists Instance Variables classSymbol: Symbol for method's class (without class keyword if meta) stringVersion: the class's definition ! Item was changed: ----- Method: ClassReference>>= (in category 'comparisons') ----- = anotherMethodReference "Answer whether the receiver and the argument represent the same object." ^ self species == anotherMethodReference species and: [self classSymbol = anotherMethodReference classSymbol + and: [self classIsMeta = anotherMethodReference classIsMeta + and: [self environment == anotherMethodReference environment]]]! - and: [self classIsMeta = anotherMethodReference classIsMeta]]! Item was changed: ----- Method: ClassReference>>actualClass (in category 'accessing') ----- actualClass | actualClass | + environment ifNil: [^ nil]. + actualClass := environment at: classSymbol ifAbsent: [^nil]. + ^classIsMeta ifTrue: [actualClass theMetaClass] ifFalse: [actualClass]! - actualClass := Smalltalk at: classSymbol ifAbsent: [^nil]. - ^classIsMeta ifTrue: [actualClass class] ifFalse: [actualClass]! Item was added: + ----- Method: ClassReference>>environment (in category 'accessing') ----- + environment + + ^ environment! Item was added: + ----- Method: ClassReference>>hash (in category 'comparisons') ----- + hash + "Answer a SmallInteger whose value is related to the receiver's + identity." + ^ (self species hash bitXor: self classSymbol hash) + bitXor: self environment hash! Item was added: + ----- Method: ClassReference>>printOn: (in category 'printing') ----- + printOn: aStream + | actualClass | + "Print the receiver on a stream" + actualClass := classSymbol asString. + classIsMeta ifTrue: [actualClass := actualClass, ' class']. + super printOn: aStream. + aStream nextPutAll: ' ', actualClass! Item was added: + ----- Method: ClassReference>>setClassSymbol:classIsMeta:environment:stringVersion: (in category 'initialize-release') ----- + setClassSymbol: classSym classIsMeta: isMeta environment: anEnvironment stringVersion: aString + + classSymbol := classSym. + classIsMeta := isMeta. + stringVersion := aString, ' (definition)'. + environment := anEnvironment! Item was changed: ----- Method: ClassReference>>setStandardClass: (in category 'initialize-release') ----- setStandardClass: aClass self setClassSymbol: aClass theNonMetaClass name classIsMeta: aClass isMeta + environment: aClass environment stringVersion: aClass name! Item was changed: ----- Method: MethodReference class>>class:selector: (in category 'instance creation') ----- class: aClass selector: aSelector + ^ self class: aClass selector: aSelector environment: aClass environment.! - ^ self class: aClass selector: aSelector environment: Smalltalk globals.! Item was changed: ----- Method: MethodReference>>= (in category 'comparing') ----- = anotherMethodReference "Answer whether the receiver and the argument represent the same object." ^ self species == anotherMethodReference species and: [self classSymbol = anotherMethodReference classSymbol and: [self classIsMeta = anotherMethodReference classIsMeta + and: [self methodSymbol = anotherMethodReference methodSymbol + and: [self environment == anotherMethodReference environment]]]]! - and: [self methodSymbol = anotherMethodReference methodSymbol]]]! Item was changed: ----- Method: MethodReference>>asString (in category 'converting') ----- asString + ^(stringVersion ifNil: [ self stringVersionDefault ]) asString! - ^stringVersion ifNil: [ self stringVersionDefault ]! Item was added: + ----- Method: MethodReference>>asStringOrText (in category 'converting') ----- + asStringOrText + + ^stringVersion ifNil: [ self stringVersionDefault ]! Item was changed: ----- Method: MethodReference>>setClass:methodSymbol:stringVersion: (in category 'initialize-release') ----- setClass: aClass methodSymbol: methodSym stringVersion: aString classSymbol := aClass theNonMetaClass name. classIsMeta := aClass isMeta. methodSymbol := methodSym. + environment := aClass environment. stringVersion := aString.! Item was changed: ----- Method: MethodReference>>setStandardClass:methodSymbol: (in category 'initialize-release') ----- setStandardClass: aClass methodSymbol: methodSym classSymbol := aClass theNonMetaClass name. + environment := aClass environment. classIsMeta := aClass isMeta. methodSymbol := methodSym. stringVersion := nil.! Item was changed: ----- Method: MethodReference>>stringVersion (in category 'accessing') ----- stringVersion + ^stringVersion ifNil: [self asStringOrText]! - ^stringVersion! Item was changed: ----- Method: SystemNavigation>>methodHierarchyBrowserForClass:selector: (in category 'browse') ----- methodHierarchyBrowserForClass: aClass selector: selectorSymbol "Create and schedule a message set browser on all implementors of the currently selected message selector. Do nothing if no message is selected." "SystemNavigation default methodHierarchyBrowserForClass: ParagraphEditor selector: #isControlActive" | list aClassNonMeta isMeta tab compiledMethod window | aClass ifNil: [^ self]. aClass isTrait ifTrue: [^ self]. selectorSymbol ifNil: [^ self]. aClassNonMeta := aClass theNonMetaClass. isMeta := aClassNonMeta ~~ aClass. list := OrderedCollection new. tab := ''. aClass allSuperclasses reverseDo: [:cl | (cl includesSelector: selectorSymbol) ifTrue: + [list addLast: (MethodReference new + setClass: cl + methodSymbol: selectorSymbol + stringVersion: tab , cl name, ' ', selectorSymbol)]. - [list addLast: tab , cl name, ' ', selectorSymbol]. tab := tab , ' ']. aClassNonMeta allSubclassesWithLevelDo: [:cl :level | | theClassOrMeta stab | theClassOrMeta := isMeta ifTrue: [cl class] ifFalse: [cl]. (theClassOrMeta includesSelector: selectorSymbol) ifTrue: [stab := ''. 1 to: level do: [:i | stab := stab , ' ']. + list addLast: (MethodReference new + setClass: theClassOrMeta + methodSymbol: selectorSymbol + stringVersion: tab , stab , theClassOrMeta name, ' ', selectorSymbol)]] - list addLast: tab , stab , theClassOrMeta name, ' ', selectorSymbol]] startingLevel: 0. window := self browseMessageList: list name: 'Inheritance of ' , selectorSymbol. window isSystemWindow ifTrue: [ window model deselectAll ; yourself. compiledMethod := aClass compiledMethodAt: selectorSymbol ifAbsent:[nil]. compiledMethod ifNotNil: [ window model selectReference: compiledMethod methodReference ] ]! Item was changed: ----- Method: SystemOrganizer>>classify:under: (in category 'accessing') ----- classify: element under: newCategory | oldCategory class | + self flag: #environments. "do we want notifications for classes in other environments?" oldCategory := self categoryOfElement: element. super classify: element under: newCategory. class := Smalltalk at: element ifAbsent: [^ self]. self == SystemOrganization ifTrue: [ SystemChangeNotifier uniqueInstance class: class recategorizedFrom: oldCategory to: newCategory]!

2 1

The Trunk: Collections-eem.760.mcz
by commits＠source.squeak.org 14 Jul '17

14 Jul '17

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.760.mcz ==================== Summary ==================== Name: Collections-eem.760 Author: eem Time: 12 July 2017, 5:29:57.850345 pm UUID: 622a9db4-e0d8-4c28-886a-d9b71a8fac49 Ancestors: Collections-pre.759 Make Interval>>, answer another Interval if possible, so that (1 to: 2), (3 to: 4) answers (1 to: 4) not #(1 2 3 4). Correct a misapprension in String>>hash. Use the preferred var:type: and nuke an unused declaration in some translated primitives. =============== Diff against Collections-pre.759 =============== Item was changed: ----- Method: ByteString class>>indexOfAscii:inString:startingAt: (in category 'primitives') ----- indexOfAscii: anInteger inString: aString startingAt: start | stringSize | <primitive: 'primitiveIndexOfAsciiInString' module: 'MiscPrimitivePlugin'> + <var: #aString type: #'unsigned char *'> - <var: #aCharacter declareC: 'int anInteger'> - <var: #aString declareC: 'unsigned char *aString'> stringSize := aString size. start to: stringSize do: [:pos | (aString basicAt: pos) = anInteger ifTrue: [^ pos]]. + ^ 0! - ^ 0 - ! Item was changed: ----- Method: ByteString>>findSubstring:in:startingAt:matchTable: (in category 'comparing') ----- findSubstring: key in: body startingAt: start matchTable: matchTable "Answer the index in the string body at which the substring key first occurs, at or beyond start. The match is determined using matchTable, which can be used to effect, eg, case-insensitive matches. If no match is found, zero will be returned. The algorithm below is not optimum -- it is intended to be translated to C which will go so fast that it wont matter." | index | <primitive: 'primitiveFindSubstring' module: 'MiscPrimitivePlugin'> + <var: #key type: #'unsigned char *'> + <var: #body type: #'unsigned char *'> + <var: #matchTable type: #'unsigned char *'> - <var: #key declareC: 'unsigned char *key'> - <var: #body declareC: 'unsigned char *body'> - <var: #matchTable declareC: 'unsigned char *matchTable'> key size = 0 ifTrue: [^ 0]. (start max: 1) to: body size - key size + 1 do: [:startIndex | index := 1. + [(matchTable at: (body basicAt: startIndex+index-1) + 1) + = (matchTable at: (key basicAt: index) + 1)] + whileTrue: - [(matchTable at: (body basicAt: startIndex+index-1) + 1) - = (matchTable at: (key basicAt: index) + 1)] - whileTrue: [index = key size ifTrue: [^ startIndex]. index := index+1]]. ^ 0 " ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 1 matchTable: CaseSensitiveOrder 1 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 2 matchTable: CaseSensitiveOrder 7 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 8 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseInsensitiveOrder 7 "! Item was added: + ----- Method: Interval>>, (in category 'adding') ----- + , otherCollection + "Override to answer an Interval if otherCollection is an adjacent and congruent interval." + ^(otherCollection isInterval + and: [otherCollection increment = step + and: [otherCollection first = (self last + step)]]) + ifTrue: [self class from: start to: otherCollection last by: step] + ifFalse: [super, otherCollection]! Item was changed: ----- Method: String>>hash (in category 'comparing') ----- hash "#hash is implemented, because #= is implemented" "ar 4/10/2005: I had to change this to use ByteString hash as initial hash in order to avoid having to rehash everything and yet compute the same hash for ByteString and WideString. md 16/10/2006: use identityHash as initialHash, as behavior hash will + use String hash (name) to have a better hash soon. + eem 4/17/2017 it's not possible to use String hash (name) for the + initial hash because that would be recursive." + ^self class stringHash: self initialHash: ByteString identityHash! - use String hash (name) to have a better hash soon" - ^ self class stringHash: self initialHash: ByteString identityHash!

2 1

The Inbox: Multilingual-eem.229.mcz
by commits＠source.squeak.org 13 Jul '17

13 Jul '17

Eliot Miranda uploaded a new version of Multilingual to project The Inbox: http://source.squeak.org/inbox/Multilingual-eem.229.mcz ==================== Summary ==================== Name: Multilingual-eem.229 Author: eem Time: 12 July 2017, 6:19:36.045422 pm UUID: f6e56208-2b41-4af8-9112-7323fb4d7d68 Ancestors: Multilingual-pre.228 Fix two test failures due to bugs in the UTF16TextConverter =============== Diff against Multilingual-pre.228 =============== Item was added: + ----- Method: UTF16TextConverter>>next:putAll:startingAt:toStream: (in category 'conversion') ----- + next: anInteger putAll: aString startingAt: startIndex toStream: aStream + "Handle fast conversion if ByteString" + + | lastIndex nextIndex | + anInteger > 0 ifFalse: [ ^aString ]. + aStream isBinary ifTrue: [ + aStream basicNext: anInteger putAll: aString startingAt: startIndex. + ^aString ]. + aString class == ByteString ifFalse: [ + startIndex to: startIndex + anInteger - 1 do: [ :index | + self nextPut: (aString at: index) toStream: aStream ]. + ^aString ]. + lastIndex := startIndex. + [ (nextIndex := ByteString + findFirstInString: aString + inSet: latin1Map + startingAt: lastIndex) = 0 or: [ anInteger + startIndex <= nextIndex ] ] whileFalse: [ + aStream basicNext: nextIndex - lastIndex putAll: aString startingAt: lastIndex. + self next16BitValue: (aString byteAt: nextIndex) toStream: aStream. + lastIndex := nextIndex + 1 ]. + aStream basicNext: anInteger - lastIndex + startIndex putAll: aString startingAt: lastIndex. + ^aString! Item was changed: ----- Method: UTF16TextConverter>>swapLatin1EncodingByteOrder (in category 'private') ----- swapLatin1EncodingByteOrder + latin1Encodings := latin1Encodings collect: [:each | each ifNotNil: [each reverse]]! - latin1Encodings := latin1Encodings collect: [:each | each reverse]!

1 0

The Trunk: EToys-eem.305.mcz
by commits＠source.squeak.org 13 Jul '17

13 Jul '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.305.mcz ==================== Summary ==================== Name: EToys-eem.305 Author: eem Time: 12 July 2017, 5:17:21.792431 pm UUID: 6180f254-4baa-41f9-a31d-adb1fa208d77 Ancestors: EToys-eem.304 Fix the ScriptCompiler's evaluate:in:to:notifying:ifFail:logged: method for non-cil contexts (e.g. the ContextVariablesInspector bottom right pane in the debugger). The old code used aContext methodClass which would exclude the variables of a receiver whose class inherited the method, rather than implemented it directly (e.g. debug (1@2) printString and in the context inspector on the Point(Object)>>printString activation try and evaluate x@y. Using methodClass excludes Point's inst vars. At the same time eliminate its reliance on DoIt: and DoItIn: =============== Diff against EToys-eem.304 =============== Item was changed: ----- Method: ScriptCompiler>>evaluate:in:to:notifying:ifFail:logged: (in category 'as yet unclassified') ----- evaluate: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock logged: logFlag "Compiles the sourceStream into a parse tree, then generates code into a method. This method is then installed in the receiver's class so that it can be invoked. In other words, if receiver is not nil, then the text can refer to instance variables of that receiver (the Inspector uses this). If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). If aRequestor is not nil, then it will receive a + notify:at: message before the attempt to evaluate is aborted." - notify:at: message before the attempt to evaluate is aborted. Finally, the - compiled method is invoked from here as DoIt or (in the case of - evaluation in aContext) DoItIn:. The method is subsequently removed - from the class, but this will not get done if the invocation causes an - error which is terminated. Such garbage can be removed by executing: - Smalltalk allBehaviorsDo: [:cl | cl removeSelector: #DoIt; removeSelector: - #DoItIn:]." + | methodNode method value toLog itsSelectionString itsSelection | - | class methodNode method value selector toLog itsSelectionString itsSelection | - class := (aContext == nil ifTrue: [receiver] ifFalse: [aContext receiver]) class. methodNode := self parser new parse: textOrStream readStream + class: (self classForReceiver: receiver context: aContext) - class: class noPattern: true context: aContext notifying: aRequestor + ifFail: [^ failBlock value] + for: receiver. + method := methodNode generate: (CompiledMethodTrailer empty sourceCode: methodNode sourceText; yourself). - ifFail: [^ failBlock value] for: receiver. - method := methodNode generate: (CompiledMethodTrailer empty sourceCode: (methodNode sourceText); yourself). self interactive ifTrue: [method := method copyWithTempNames: methodNode tempNames]. + value := receiver + withArgs: (aContext ifNil: [#()] ifNotNil: [{aContext}]) + executeMethod: method. - selector := aContext isNil - ifTrue: [#DoIt] - ifFalse: [#DoItIn:]. - class addSelectorSilently: selector withMethod: method. - value := aContext isNil - ifTrue: [receiver DoIt] - ifFalse: [receiver DoItIn: aContext]. - InMidstOfFileinNotification signal - ifFalse: [class basicRemoveSelector: selector]. logFlag ifTrue: [toLog := ((aRequestor respondsTo: #selection) and: [(itsSelection := aRequestor selection) notNil] and: [(itsSelectionString := itsSelection asString) isEmptyOrNil not] ) ifTrue: [itsSelectionString] ifFalse: [textOrStream readStream contents]. SystemChangeNotifier uniqueInstance evaluated: toLog context: aContext]. + ^value! - ^ value!

1 0

The Trunk: Compiler-eem.357.mcz
by commits＠source.squeak.org 13 Jul '17

13 Jul '17

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.357.mcz ==================== Summary ==================== Name: Compiler-eem.357 Author: eem Time: 12 July 2017, 5:14:16.035903 pm UUID: 3965b31d-87f6-47e3-b23e-57dd1dd273b9 Ancestors: Compiler-eem.356 Fix the Compiler's evaluate:in: methods for non-cil contexts (e.g. the ContextVariablesInspector bottom right pane in the debugger). The old code used aContext methodClass which would exclude the variables of a receiver whose class inherited the method, rather than implemented it directly (e.g. debug (1@2) printString and in the context inspector on the Point(Object)>>printString activation try and evaluate x@y. Using methodClass excludes Point's inst vars. =============== Diff against Compiler-eem.356 =============== Item was added: + ----- Method: Compiler>>classForReceiver:context: (in category 'private') ----- + classForReceiver: receiver context: contextOrNil + "Answer the class to compile in for a receiver and aContext. + If aContext is non-nil use its receiver's class (if we use the context's + methodClass we may exclude instance variables of the receiver). + Access the class of the receiver via the mirror primitive to avoid issues with proxies." + + ^thisContext objectClass: (contextOrNil ifNil: [receiver] ifNotNil: [contextOrNil receiver])! Item was changed: ----- Method: Compiler>>compiledMethodFor:in:to:notifying:ifFail: (in category 'public access') ----- compiledMethodFor: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock "Compiles the sourceStream into a parse tree, then generates code into a method, and answers it. If receiver is not nil, then the text can refer to instance variables of that receiver (the Inspector uses this). If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). If aRequestor is not nil, then it will receive a notify:at: message before the attempt to evaluate is aborted." + | methodNode method | - | methodNode method theClass | - theClass := (aContext == nil ifTrue: [receiver] ifFalse: [aContext receiver]) class. methodNode := self compileNoPattern: textOrStream + in: (self classForReceiver: receiver context: aContext) - in: theClass context: aContext notifying: aRequestor ifFail: [^failBlock value]. method := self interactive ifTrue: [ methodNode generateWithTempNames ] ifFalse: [ methodNode generate ]. ^method! Item was changed: ----- Method: Compiler>>evaluate:in:to:environment:notifying:ifFail:logged: (in category 'public access logging') ----- evaluate: textOrStream in: aContext to: receiver environment: anEnvironment notifying: aRequestor ifFail: failBlock logged: logFlag "Same as #evaluate:in:to:notifying:ifFail:logged: but with an explicit environment" - | theClass | - theClass := (aContext == nil ifTrue: [receiver class] ifFalse: [aContext methodClass]). ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: receiver + class: (self classForReceiver: receiver context: aContext) - class: theClass environment: anEnvironment requestor: aRequestor) ifFail: failBlock logged: logFlag! Item was changed: ----- Method: Compiler>>evaluate:in:to:notifying:ifFail: (in category 'public access') ----- evaluate: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock "Compiles the sourceStream into a parse tree, then generates code into a method. If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). If aRequestor is not nil, then it will receive a notify:at: message before the attempt to evaluate is aborted. Finally, the compiled method is invoked from here via withArgs:executeMethod:, hence the system no longer creates Doit method litter on errors." | theClass | + theClass := self classForReceiver: receiver context: aContext. - theClass := aContext ifNil: [receiver class] ifNotNil: [:ctx | ctx methodClass]. ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: receiver class: theClass environment: theClass environment requestor: aRequestor) ifFail: failBlock! Item was changed: ----- Method: Compiler>>evaluate:in:to:notifying:ifFail:logged: (in category 'public access logging') ----- evaluate: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock logged: logFlag "Compiles the sourceStream into a parse tree, then generates code into a method. If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). If aRequestor is not nil, then it will receive a notify:at: message before the attempt to evaluate is aborted. Finally, the compiled method is invoked from here via withArgs:executeMethod:, hence the system no longer creates Doit method litter on errors." | theClass | + theClass := self classForReceiver: receiver context: aContext. - theClass := (aContext == nil ifTrue: [receiver class] ifFalse: [aContext methodClass]). ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: receiver class: theClass environment: theClass environment requestor: aRequestor) ifFail: failBlock logged: logFlag!

1 0

The Trunk: Tools-eem.765.mcz
by commits＠source.squeak.org 13 Jul '17

13 Jul '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.765.mcz ==================== Summary ==================== Name: Tools-eem.765 Author: eem Time: 12 July 2017, 5:09:06.400984 pm UUID: 7859773d-1bc1-4955-920b-121cac1570cd Ancestors: Tools-pre.764 Fix bug in DictionaryInspector when browsing references but selecting an inst var of the receiver. =============== Diff against Tools-pre.764 =============== Item was changed: ----- Method: DictionaryInspector>>selectionReferences (in category 'menu') ----- selectionReferences "Create a browser on all references to the association of the current selection." + self selectionIndex <= self numberOfFixedFields ifTrue: [^ self changed: #flash]. - self selectionIndex = 0 ifTrue: [^ self changed: #flash]. object class == MethodDictionary ifTrue: [^ self changed: #flash]. + self systemNavigation browseAllCallsOn: (object associationAt: (keyArray at: selectionIndex - self numberOfFixedFields))! - self systemNavigation browseAllCallsOn: (object associationAt: (keyArray at: selectionIndex - self numberOfFixedFields)). - !

1 0

The Trunk: EToys-eem.304.mcz
by commits＠source.squeak.org 12 Jul '17

12 Jul '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.304.mcz ==================== Summary ==================== Name: EToys-eem.304 Author: eem Time: 12 July 2017, 10:09:25.400282 am UUID: ae9828e4-4a18-4fb5-ad3f-027689693cfa Ancestors: EToys-eem.303 Make allExtantPlayers robust in the presence of a newly instantiated EtoysPresenter, which is something that happens during project loading. With this change I can now load saved projects. =============== Diff against EToys-eem.303 =============== Item was changed: ----- Method: EtoysPresenter>>allExtantPlayers (in category 'intialize') ----- allExtantPlayers "The initial intent here was to produce a list of Player objects associated with any Morph in the tree beneath the receiver's associatedMorph. whether it is the submorph tree or perhaps off on unseen bookPages. We have for the moment moved away from that initial intent, and in the current version we only deliver up players associated with the submorph tree only. <-- this note dates from 4/21/99 Call #flushPlayerListCache; to force recomputation." | fullList | playerList ifNotNil: [^ playerList]. + associatedMorph ifNil: + [^ #()]. fullList := associatedMorph allMorphs select: [:m | m player ~~ nil] thenCollect: [:m | m player]. fullList copy do: [:aPlayer | aPlayer class scripts do: [:aScript | aScript isTextuallyCoded ifFalse: [aScript currentScriptEditor ifNotNil: [:ed | | objectsReferredToByTiles | objectsReferredToByTiles := ed allMorphs select: [:aMorph | (aMorph isKindOf: TileMorph) and: [aMorph type == #objRef]] thenCollect: [:aMorph | aMorph actualObject]. fullList addAll: objectsReferredToByTiles]]]]. ^ playerList := fullList asSet asArray sort: [:a :b | a externalName < b externalName]!

1 0

The Trunk: System-eem.960.mcz
by commits＠source.squeak.org 12 Jul '17

12 Jul '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.960.mcz ==================== Summary ==================== Name: System-eem.960 Author: eem Time: 11 July 2017, 5:07:17.753367 pm UUID: 1462ebef-1d0c-43ad-b06c-097ac7105135 Ancestors: System-eem.959 Have ImageSegment>>loadSegmentFrom:outPointers: auto-select between legacy V3 and 32-bit Spur segments. Support for loading 32-bit Spur segs on 64-bit and vice verse remains to be written. Rewrite the space analysis code for the Spur image segment format. Make the send of classOrganizersBeRoots: (an EToys extension) in NativeImageSegment>>smartFillRoots: an optional send. =============== Diff against System-eem.959 =============== Item was changed: ----- Method: ImageSegment>>loadSegmentFrom:outPointers: (in category 'read/write segment') ----- loadSegmentFrom: segment outPointers: outPointers "Attempt to load the segment into memory (reify the objects in segment as real objects), using outPointers to bind references to objects not in the segment. Answer a collection of all the objects in the segment." + | segmentFormat | + state == #imported ifTrue: + [segmentFormat := segment first bitAnd: 16rFFFFFF. + segmentFormat = 6502 ifTrue: + [LegacyImageSegment adoptInstance: self. + ^self loadSegmentFrom: segment outPointers: outPointers]. + segmentFormat = Smalltalk imageFormatVersion ifTrue: + [NativeImageSegment adoptInstance: self. + ^self loadSegmentFrom: segment outPointers: outPointers]. + self error: 'no handling for format ', segmentFormat asString. ' in a ', Smalltalk imageFormatVersion asString, ' image.']. self subclassResponsibility! Item was removed: - ----- Method: NativeImageSegment>>classNameAt: (in category 'statistics') ----- - classNameAt: index - | ccIndex | - self errorRewriteForSpur. - ccIndex := self compactIndexAt: index. - ccIndex = 0 ifFalse:[^(Smalltalk compactClassesArray at: ccIndex) name]. - ccIndex := segment at: index-1. - (ccIndex bitAnd: 16r80000000) = 0 ifTrue:[ - "within segment; likely a user object" - ^#UserObject]. - ccIndex := (ccIndex bitAnd: 16r7FFFFFFF) bitShift: -2. - ^(outPointers at: ccIndex) name! Item was removed: - ----- Method: NativeImageSegment>>compactIndexAt: (in category 'compact classes') ----- - compactIndexAt: ind - | word | - "Look in this header word in the segment and find it's compact class index. *** Warning: When class ObjectMemory change, be sure to change it here. *** " - - ((word := segment at: ind) bitAnd: 3) = 2 ifTrue: [^ 0]. "free block" - ^ (word >> 12) bitAnd: 16r1F "Compact Class field of header word" - ! Item was added: + ----- Method: NativeImageSegment>>copyStatisticsDictionaryWithClassNames: (in category 'statistics') ----- + copyStatisticsDictionaryWithClassNames: aDictionary + | d | + d := aDictionary copyEmpty. + aDictionary keysAndValuesDo: + [:classIndex :value| + d + at: ((classIndex anyMask: 16r200000) "TopHashBit = 16r200000, => in out pointers" + ifTrue: [(outPointers at: classIndex - 16r200000 + 1) name] + ifFalse: ['InSegmentClass', classIndex asString]) + put: value]. + ^d! Item was changed: ----- Method: NativeImageSegment>>doSpaceAnalysis (in category 'statistics') ----- doSpaceAnalysis "Capture statistics about the IS and print the number of instances per class and space usage" + | is64Bit index instCount instSpace | - | index sz word hdrBits cc instCount instSpace | - self errorRewriteForSpur. state == #activeCopy ifFalse:[self errorWrongState]. + instCount := Dictionary new. + instSpace := Dictionary new. + is64Bit := ((segment at: 1) bitAnd: 16rFFFFFF) >= 68000. + index := 3. "skip version word" + "The Spur image format (in little endian format) is (num bits:fieldName(s))) + msb: | 8: numSlots | (on a byte boundary) + | 2 bits | (msb,lsb = {isMarked,?}) + | 22: identityHash | (on a word boundary) + | 3 bits | (msb <-> lsb = {isGrey,isPinned,isRemembered} + | 5: format | (on a byte boundary) + | 2 bits | (msb,lsb = {isImmutable,?}) + | 22: classIndex | (on a word boundary) : LSB" + [index > segment size] whileFalse: + [| hiWord loWord numSlots bytes classIndex | + loWord := segment at: index. + hiWord := segment at: index + 1. + numSlots := hiWord bitShift: -24. + numSlots = 255 + ifTrue: "word is an overflow header word. Slot count is in the least significant 56 bits." + [numSlots := hiWord = 0 + ifTrue: [loWord] + ifFalse: [(hiWord bitShift: 32) + loWord bitAnd: 16rFFFFFFFFFFFFFF]. + loWord := segment at: index + 2. + hiWord := segment at: index + 3. + bytes := 16] "two word header" + ifFalse: + [bytes := 8]. "one word header" + bytes := bytes + (8 * is64Bit "objects are a multiple of 8 bytes in length, with at leats one slot" + ifTrue: [numSlots max: 1] + ifFalse: [(numSlots max: 1) + 1 // 2]). + classIndex := loWord bitAnd: 16r3FFFFF. + (index > 3 or: [classIndex ~~ 33]) ifTrue: "Don't count the initial arrayOfRoots" + [instCount at: classIndex put: (instCount at: classIndex ifAbsent:[0]) + 1. + instSpace at: classIndex put: (instSpace at: classIndex ifAbsent:[0]) + bytes]. + index := index + (bytes / 4)]. + ^{instCount. instSpace} collect: [:dict| self copyStatisticsDictionaryWithClassNames: dict]! - instCount := IdentityDictionary new. - instSpace := IdentityDictionary new. - index := 2. "skip version word, first object" - "go past extra header words" - hdrBits := (segment at: index) bitAnd: 3. - hdrBits = 1 ifTrue: [index := index+1]. - hdrBits = 0 ifTrue: [index := index+2]. - [index > segment size] whileFalse:[ - hdrBits := (word := segment at: index) bitAnd: 3. - hdrBits = 2 ifTrue:[sz := word bitAnd: 16rFFFFFFFC]. - hdrBits = 0 ifTrue:[sz := ((segment at: index-2) bitAnd: 16rFFFFFFFC) + 8]. - hdrBits = 1 ifTrue:[sz := (word bitAnd: "SizeMask" 252) + 4]. - hdrBits = 3 ifTrue:[sz := word bitAnd: "SizeMask" 252]. - hdrBits = 2 - ifTrue:[cc := #freeChunk] - ifFalse:[cc := self classNameAt: index]. - instCount at: cc put: (instCount at: cc ifAbsent:[0]) + 1. - instSpace at: cc put: (instSpace at: cc ifAbsent:[0]) + sz. - index := self objectAfter: index]. - ^{instCount. instSpace}! Item was removed: - ----- Method: NativeImageSegment>>errorRewriteForSpur (in category 'error handling') ----- - errorRewriteForSpur - self error: 'the method must be rewritten for Spur'! Item was removed: - ----- Method: NativeImageSegment>>objectAfter: (in category 'compact classes') ----- - objectAfter: ind - "Return the object or free chunk immediately following the given object or free chunk in the segment. *** Warning: When class ObjectMemory change, be sure to change it here. ***" - - | sz word newInd hdrBits | - self errorRewriteForSpur. - sz := ((word := segment at: ind "header") bitAnd: 3) = 2 "free block?" - ifTrue: [word bitAnd: 16rFFFFFFFC] - ifFalse: [(word bitAnd: 3) = 0 "HeaderTypeSizeAndClass" - ifTrue: [(segment at: ind-2) bitAnd: 16rFFFFFFFC] - ifFalse: [word bitAnd: "SizeMask" 252]]. - - newInd := ind + (sz>>2). - "adjust past extra header words" - (hdrBits := (segment atPin: newInd) bitAnd: 3) = 3 ifTrue: [^ newInd]. - "If at end, header word will be garbage. This is OK" - hdrBits = 1 ifTrue: [^ newInd+1]. - hdrBits = 0 ifTrue: [^ newInd+2]. - ^ newInd "free"! Item was changed: ----- Method: NativeImageSegment>>smartFillRoots: (in category 'read/write segment') ----- smartFillRoots: dummy | refs known ours ww blockers | "Put all traced objects into my arrayOfRoots. Remove some that want to be in outPointers. Return blockers, an IdentityDictionary of objects to replace in outPointers." blockers := dummy blockers. known := (refs := dummy references) size. refs keys do: [:obj | "copy keys to be OK with removing items" (obj isSymbol) ifTrue: [refs removeKey: obj. known := known-1]. (obj class == PasteUpMorph) ifTrue: [ obj isWorldMorph & (obj owner == nil) ifTrue: [ (dummy project ~~ nil and: [obj == dummy project world]) ifFalse: [ refs removeKey: obj. known := known-1. blockers at: obj put: (StringMorph contents: 'The worldMorph of a different world')]]]. "Make a ProjectViewMorph here" "obj class == Project ifTrue: [Transcript show: obj; cr]." (blockers includesKey: obj) ifTrue: [ refs removeKey: obj ifAbsent: [known := known+1]. known := known-1]. ]. ours := dummy project ifNotNil: [dummy project world] ifNil: [ActiveWorld]. refs keysDo: [:obj | obj isMorph ifTrue: [ ww := obj world. (ww == ours) | (ww == nil) ifFalse: [ refs removeKey: obj. known := known-1. blockers at: obj put: (StringMorph contents: obj printString, ' from another world')]]]. "keep original roots on the front of the list" + dummy rootObject do: [:rr | refs removeKey: rr ifAbsent: []]. + (self respondsTo: #classOrganizersBeRoots:) ifTrue: "an EToys extension" + [self classOrganizersBeRoots: dummy]. + ^dummy rootObject, refs keys asArray! - (dummy rootObject) do: [:rr | refs removeKey: rr ifAbsent: []]. - self classOrganizersBeRoots: dummy. - ^ dummy rootObject, refs fasterKeys asArray.!

1 0

The Trunk: Morphic-eem.1346.mcz
by commits＠source.squeak.org 11 Jul '17

11 Jul '17

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1346.mcz ==================== Summary ==================== Name: Morphic-eem.1346 Author: eem Time: 11 July 2017, 4:59:01.683267 pm UUID: b8f78376-c9f0-4abe-8fd1-0edba1f3c1c4 Ancestors: Morphic-eem.1345 EToys expects MorphicProject>>exportSegmentWithChangeSet:fileName:directory:withoutInteraction: to send cleanUpReferences, but not base Squeak. So make it an optional send. =============== Diff against Morphic-eem.1345 =============== Item was changed: ----- Method: MorphicProject>>exportSegmentWithChangeSet:fileName:directory:withoutInteraction: (in category 'file in/out') ----- exportSegmentWithChangeSet: aChangeSetOrNil fileName: aFileName directory: aDirectory withoutInteraction: noInteraction "Store my project out on the disk as an *exported* ImageSegment. All outPointers will be in a form that can be resolved in the target image. Name it <project name>.extSeg. Whatdo we do about subProjects, especially if they are out as local image segments? Force them to come in? Player classes are included automatically." | is str ans revertSeg roots holder collector fd mgr stacks | "Files out a changeSet first, so that a project can contain its own classes" world ifNil: [^ false]. world presenter ifNil: [^ false]. ScrapBook default emptyScrapBook. + (world respondsTo: #cleanUpReferences) ifTrue: + [world cleanUpReferences]. - world cleanUpReferences. world currentHand pasteBuffer: nil. "don't write the paste buffer." world currentHand mouseOverHandler initialize. "forget about any references here" "Display checkCurrentHandForObjectToPaste." Command initialize. world clearCommandHistory. world fullReleaseCachedState; releaseViewers. world cleanseStepList. world localFlapTabs size = world flapTabs size ifFalse: [ noInteraction ifTrue: [^ false]. self error: 'Still holding onto Global flaps']. world releaseSqueakPages. Smalltalk at: #ScriptEditorMorph ifPresent: [:s | s writingUniversalTiles: (self projectParameterAt: #universalTiles ifAbsent: [false])]. holder := Project allProjects. "force them in to outPointers, where DiskProxys are made" "Just export me, not my previous version" revertSeg := self parameterAt: #revertToMe. self removeParameter: #revertToMe. roots := OrderedCollection new. roots add: self; add: world; add: transcript; add: aChangeSetOrNil; add: thumbnail; add: world activeHand. "; addAll: classList; addAll: (classList collect: [:cls | cls class])" roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail" fd := aDirectory directoryNamed: self resourceDirectoryName. fd assureExistence. "Clean up resource references before writing out" mgr := self resourceManager. self resourceManager: nil. ResourceCollector current: ResourceCollector new. ResourceCollector current localDirectory: fd. ResourceCollector current baseUrl: self resourceUrl. ResourceCollector current initializeFrom: mgr. ProgressNotification signal: '2:findingResources' extra: '(collecting resources...)' translated. "Must activate old world because this is run at #armsLength. Otherwise references to ActiveWorld, ActiveHand, or ActiveEvent will not be captured correctly if referenced from blocks or user code." world becomeActiveDuring:[ is := ImageSegment copySmartRootsExport: roots asArray. "old way was (is := ImageSegment new copyFromRootsForExport: roots asArray)" ]. self resourceManager: mgr. collector := ResourceCollector current. ResourceCollector current: nil. ProgressNotification signal: '2:foundResources' extra: ''. is state = #tooBig ifTrue: [ collector replaceAll. ^ false]. str := ''. "considered legal to save a project that has never been entered" (is outPointers includes: world) ifTrue: [ str := str, '\Project''s own world is not in the segment.' translated withCRs]. str isEmpty ifFalse: [ ans := UIManager default chooseFrom: { 'Do not write file' translated. 'Write file anyway' translated. 'Debug' translated. } title: str. ans = 1 ifTrue: [ revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. collector replaceAll. ^ false]. ans = 3 ifTrue: [ collector replaceAll. self halt: 'Segment not written' translated]]. stacks := is findStacks. is writeForExportWithSources: aFileName inDirectory: fd changeSet: aChangeSetOrNil. SecurityManager default signFile: aFileName directory: fd. "Compress all files and update check sums" collector forgetObsolete. self storeResourceList: collector in: fd. self storeHtmlPageIn: fd. self storeManifestFileIn: fd. self writeStackText: stacks in: fd registerIn: collector. "local proj.005.myStack.t" self compressFilesIn: fd to: aFileName in: aDirectory resources: collector. "also deletes the resource directory" "Now update everything that we know about" mgr updateResourcesFrom: collector. revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. holder. collector replaceAll. world flapTabs do: [:ft | (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]]. is arrayOfRoots do: [:obj | obj isScriptEditorMorph ifTrue: [obj unhibernate]]. ^ true !

1 0

<Programming> 2018: 2nd Call for Papers
by Sylvia Grewe 11 Jul '17

11 Jul '17

------------------------------------------------------------------------------------ <Programming> 2018 : The Art, Science, and Engineering of Programming Mon 9 - Thu 12 April 2018 Nice, France http://2018.programming-conference.org/ In 2017, we started a new conference and journal focused on everything to do with programming, including the experience of programming, called <Programming> for short. The first edition of <Programming> was a great success (seehttp://twitter.com/programmingconffor testimonies). Paper submissions and publications are handled by the journal. Accepted papers must be presented at the conference. ******************************************************** CALL FOR PAPERS ******************************************************** <Programming> 2018 accept scholarly papers including essays that advance the knowledge of programming. Almost anything about programming is in scope, but in each case there should be a clear relevance to the act and experience of programming. PAPER SUBMISSIONS: August 1 2017 (Research Papers Second Submission Deadline) December 1 2017 (Research Papers Third Submission Deadline) We accept submissions covering several areas of expertise. These areas include, but are not limited to: • General-purpose programming • Distributed systems programming • Parallel and multi-core programming • Graphics and GPU programming • Security programming • User interface programming • Database programming • Visual and live programming • Data mining and machine learning programming • Interpreters, virtual machines and compilers • Modularity and separation of concerns • Model-based development • Metaprogramming and reflection • Testing and debugging • Program verification • Programming education • Programming environments • Social coding ******************************************************** IMPORTANT DATES ******************************************************** Research paper submissions: August 1 2017 (Research Papers Second Submission Deadline) December 1 2017 (Research Papers Third Submission Deadline) Research paper first notification (for second submission deadline): October 1 2017 Research paper final notification (for second submission deadline): November 7 2017 Research paper first notification (for third submission deadline): February 1 2018 Research paper final notification (for third submission deadline): March 7 2018 Workshop Proposals: October 1 2017 All important dates can also be found athttp://programming-journal.org/timeline/ ******************************************************** ORGANIZATION ******************************************************** General Chair: Manuel Serrano, INRIA France Local Organizing Chair: Tamara Rezk, INRIA France Organizing Committee: Stefan Marr (workshops), Johannes Kepler University Linz Jennifer B. Sartor (workshops), Software Languages Lab, Vrije Universiteit Brussel Belgium Philipp Haller (student research competition), KTH Royal Institute of Technology, Sweden Tobias Pape (web technology), HPI - University of Potsdam Sylvia Grewe (publicity), Technische Universität Darmstadt Germany Program Committee: Guido Salvaneschi (program chair), Technische Universität Darmstadt, Germany Davide Ancona, University of Genova, Italy Alberto Bacchelli, Delft University of Technology, Netherlands Shigeru Chiba, University of Tokyo, Japan Yvonne Coady, University of Victoria, Canada Susan Eisenbach, Imperial College London, UK Patrick Eugster, TU Darmstadt, Germany and Purdue University, United States Antonio Filieri, Imperial College London, UK Matthew Flatt, University of Utah, United States Lidia Fuentes, Universidad de Málaga, Spain Richard P. Gabriel, Dream Songs, Inc. & HPI, California Jeremy Gibbons, University of Oxford, UK Yossi Gil, Israel Institute of Technology Elisa Gonzalez Boix, Vrije Universiteit Brussel, Belgium Phlipp Haller, KTH Royal Institute of Technology, Sweden Matthew Hammer, University of Colorado, Boulder, United States Felienne Hermans, Delft University of Technology, Netherlands Robert Hirschfeld, Hasso Plattner Institute (HPI), Germany Roberto Ierusalimschy, Pontifical Catholic University of Rio de Janeiro, Brazil Jun Kato, National Institute of Advanced Industrial Science and Technology, Japan Jörg Kienzle, McGill University, Canada Neelakantan R. Krishnaswami, University of Cambridge, UK Ralf Lämmel, University of Koblenz-Landau, Germany Hidehiko Masuhara, Tokyo Institute of Technology, Japan Mira Mezini, Technische Universität Darmstadt, Germany Emerson Murphy-Hill, North Carolina State University, United States Mario Südholt, IMT Atlantique, Nantes, France Sam Tobin-Hochstadt, Indiana University, United States Eelco Visser, Delft University of Technology, Netherlands Tijs van der Storm, CWI & University of Groningen, Netherlands ******************************************************** <Programming> 2018 is kindly supported by: ACM In-Cooperation SIGPLAN (In-cooperation) SIGSOFT (In-cooperation) INRIA France AOSA ********************************************************

1 0