Packages July 2019

packages@lists.squeakfoundation.org

1 participants
67 discussions

The Trunk: 60Deprecated-mt.38.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.38.mcz ==================== Summary ==================== Name: 60Deprecated-mt.38 Author: mt Time: 12 July 2019, 8:39:34.417612 am UUID: f25adf3c-1f60-5749-aada-72ceed6de84c Ancestors: 60Deprecated-mt.37 Complements Collections-mt.840. =============== Diff against 60Deprecated-mt.37 =============== Item was added: + ----- Method: Symbol class>>internCharacter: (in category '*60Deprecated-instance creation') ----- + internCharacter: aCharacter + + self deprecated: 'Use #intern: instead. There is no special table for one-character symbols anymore'. + ^ self intern: aCharacter asString!

1 0

The Trunk: Collections-mt.840.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.840.mcz ==================== Summary ==================== Name: Collections-mt.840 Author: mt Time: 12 July 2019, 8:38:57.127612 am UUID: aa463bb4-e73d-cf40-b565-c8f87687be06 Ancestors: Collections-mt.839 Removes last traces of special treatment for one-character symbols. See http://forum.world.st/Symbol-gt-OneCharacterSymbols-td5101085.html =============== Diff against Collections-mt.839 =============== Item was changed: ----- Method: Character>>asSymbol (in category 'converting') ----- asSymbol "Answer a Symbol consisting of the receiver as the only element." + ^Symbol intern: self asString! - ^Symbol internCharacter: self! Item was changed: String subclass: #Symbol instanceVariableNames: '' + classVariableNames: 'NewSymbols SymbolTable' - classVariableNames: 'NewSymbols OneCharacterSymbols SymbolTable' poolDictionaries: '' category: 'Collections-Strings'! !Symbol commentStamp: '<historical>' prior: 0! I represent Strings that are created uniquely. Thus, someString asSymbol == someString asSymbol.! Item was removed: - ----- Method: Symbol class>>internCharacter: (in category 'instance creation') ----- - internCharacter: aCharacter - ^self intern: aCharacter asString!

1 0

The Trunk: Morphic-mt.1492.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1492.mcz ==================== Summary ==================== Name: Morphic-mt.1492 Author: mt Time: 11 July 2019, 10:57:02.027354 am UUID: b06d3a7a-19d0-c243-9a9a-ad14c6cc7106 Ancestors: Morphic-mt.1491 Improves clean-up code of Etoys' standard scripting system. =============== Diff against Morphic-mt.1491 =============== Item was changed: ----- Method: StandardScriptingSystem class>>cleanUp: (in category 'class initialization') ----- cleanUp: agressive "Clean up unreferenced players. If agressive, reinitialize and nuke players" self removeUnreferencedPlayers. agressive ifTrue:[ References keys do: [:k | References removeKey: k]. + ClassVarNamesInUse := nil. self initialize. ].!

1 0

The Trunk: Tools-mt.852.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.852.mcz ==================== Summary ==================== Name: Tools-mt.852 Author: mt Time: 11 July 2019, 10:56:16.891354 am UUID: f66c189d-541b-5742-8032-4bd3df1a4e9e Ancestors: Tools-mt.851 Adds clean-up code for MethodFinder. =============== Diff against Tools-mt.851 =============== Item was added: + ----- Method: MethodFinder class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + Approved := nil. + AddAndRemove := nil. + Blocks := nil.!

1 0

The Trunk: Tools-mt.851.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.851.mcz ==================== Summary ==================== Name: Tools-mt.851 Author: mt Time: 11 July 2019, 9:58:05.941354 am UUID: 1bc52807-ebb1-3640-b47c-e4219e085080 Ancestors: Tools-eem.850 Fixes "explore pointers" and "chase pointers" for CompiledCode. Migrates the unused #explorerStringFor: (from 2018) to #asString. Seems interesting to also see the object hash besides the member name. Not sure why this was put into Trunk back then. =============== Diff against Tools-eem.850 =============== Item was added: + ----- Method: PointerExplorerWrapper>>asString (in category 'converting') ----- + asString + + ^ self object identityHash asString, ': ', super asString.! Item was removed: - ----- Method: PointerExplorerWrapper>>explorerStringFor: (in category 'converting') ----- - explorerStringFor: anObject - - ^ anObject identityHash asString, ': ', (super explorerStringFor: anObject).! Item was changed: ----- Method: PointerExplorerWrapper>>memberNameFrom:to: (in category 'accessing') ----- memberNameFrom: aParent to: aChild 1 to: aParent class instSize do: [ :instVarIndex | (aParent instVarAt: instVarIndex) == aChild ifTrue: [ ^ '''', (aParent class instVarNameForIndex: instVarIndex), '''' ]]. + + "This covers compiled methods and compiled blocks." + aParent isCompiledCode ifTrue: [ + 1 to: aParent numLiterals do: [ :index | + (aParent literalAt: index) == aChild + ifTrue: [^ 'literal', index asString]]]. + "This also covers arrays" 1 to: aParent basicSize do: [ :index | (aParent basicAt: index) == aChild ifTrue: [^ index asString]]. ^ '???'!

1 0

The Trunk: System-mt.1069.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1069.mcz ==================== Summary ==================== Name: System-mt.1069 Author: mt Time: 11 July 2019, 9:21:36.166354 am UUID: 27227430-c08f-3c47-b9fd-b646e7f948b6 Ancestors: System-mt.1068 Fixes minor regression in suggestedTypeNames. That is. 'someMorphThing' should also yield 'MorphThing', not just 'Morph' and 'Thing'. =============== Diff against System-mt.1068 =============== Item was changed: ----- Method: String>>suggestedTypeNames (in category '*system') ----- suggestedTypeNames ^ Array streamContents: [:stream | self findFeatureIndicesDo: [:start :end | (self at: start) isUppercase ifTrue: [ stream nextPut: (self copyFrom: start to: end). + end ~= self size ifTrue: [ + stream nextPut: (self copyFrom: start to: self size) withBlanksTrimmed]. "Often, argument names that refer to Collections end in the letter s, which can cause the suggested type-name to not be found. Account for this." (self at: end) = $s ifTrue: [ stream nextPut: (self copyFrom: start to: end -1)]]]].!

1 0

The Trunk: System-mt.1068.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1068.mcz ==================== Summary ==================== Name: System-mt.1068 Author: mt Time: 11 July 2019, 8:46:30.024838 am UUID: e2fe883c-8353-bf4d-8921-ba296fa973bb Ancestors: System-cmm.1067 Use new find-features feature to implement #suggestedTypeNames. =============== Diff against System-cmm.1067 =============== Item was changed: ----- Method: String>>suggestedTypeNames (in category '*system') ----- suggestedTypeNames + + ^ Array streamContents: [:stream | + self findFeatureIndicesDo: [:start :end | + (self at: start) isUppercase ifTrue: [ + stream nextPut: (self copyFrom: start to: end). + "Often, argument names that refer to Collections end in the letter s, which can cause the suggested type-name to not be found. Account for this." + (self at: end) = $s ifTrue: [ + stream nextPut: (self copyFrom: start to: end -1)]]]].! - ^ Array streamContents: - [ : stream | - self withIndexDo: - [ : eachChar : index | - eachChar isUppercase ifTrue: - [ stream nextPut: - (self - copyFrom: index - to: self size) withBlanksTrimmed. - "Often, argument names that refer to Collections end in the letter s, which can cause the suggested type-name to not be found. Account for this." - self last = $s - ifTrue: - [ stream nextPut: - (self - copyFrom: index - to: self size-1) withBlanksTrimmed ] ] ] ]!

1 0

The Trunk: Morphic-mt.1491.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1491.mcz ==================== Summary ==================== Name: Morphic-mt.1491 Author: mt Time: 11 July 2019, 7:43:26.133838 am UUID: 8e7d61cb-067a-d145-a86e-3484bfb38617 Ancestors: Morphic-cmfcmf.1490 Replaces one use of Symbol class >> #lookup: with the more common (i.e., more senders) idiom Symbol class >> #hasInterned:ifTrue:. =============== Diff against Morphic-cmfcmf.1490 =============== Item was changed: ----- Method: SearchBar>>smartSearch:in: (in category 'searching') ----- smartSearch: text in: morph "Take the user input and perform an appropriate search" | input newContents | self removeResultsWidget. input := text asString ifEmpty:[^self]. self class useSmartSearch ifFalse: [^ ToolSet default browseMessageNames: input]. "If it is a global or a full class name, browse that class." (Smalltalk bindingOf: input) ifNotNil:[:assoc| | global | global := assoc value. ^ToolSet browse: (global isBehavior ifTrue:[global] ifFalse:[global class]) selector: nil]. "If it is a symbol and there are implementors of it, browse those implementors." + Symbol hasInterned: input ifTrue: [:selector | - (Symbol lookup: input) ifNotNil: [:selector | (SystemNavigation new allImplementorsOf: selector) ifNotEmpty:[:list| ^SystemNavigation new browseMessageList: list name: 'Implementors of ' , input]]. "If it starts uppercase, browse classes if any. Otherwise, just search for messages." input first isUppercase ifTrue: [ (UIManager default classFromPattern: input withCaption: '') ifNotNil:[:aClass| ^ToolSet browse: aClass selector: nil] ifNil: [ newContents := input, ' -- not found.'. self searchTerm: newContents. self selection: (input size+1 to: newContents size). self currentHand newKeyboardFocus: morph textMorph. ^ self]] ifFalse: [ ToolSet default browseMessageNames: input].!

1 0

The Trunk: CollectionsTests-mt.313.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.313.mcz ==================== Summary ==================== Name: CollectionsTests-mt.313 Author: mt Time: 5 July 2019, 4:55:01.111089 pm UUID: a8af1eda-b723-2940-8838-912b24df886a Ancestors: CollectionsTests-pre.312 Adds tests for Collections-mt.839. =============== Diff against CollectionsTests-pre.312 =============== Item was added: + ----- Method: StringTest>>testFindFeatures (in category 'tests - tokenizing') ----- + testFindFeatures + + { + "input . expected features" + 'camelCase' . #('camel' 'Case'). + 'UPPERCase' . #('UPPER' 'Case'). + 'MyModel55' . #('My' 'Model' '55'). + '5 <= 4' . #('5' '<=' '4'). + '[state := 2]' . #('[' 'state' ':=' '2' ']'). + } pairsDo: [:input :features | + | output | + output := features readStream. + input findFeatureIndicesDo: [:start :end | + self + assert: output next + equals: (input copyFrom: start to: end)]].!

1 0

The Trunk: Collections-mt.839.mcz
by commits＠source.squeak.org 11 Jul '19

11 Jul '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.839.mcz ==================== Summary ==================== Name: Collections-mt.839 Author: mt Time: 5 July 2019, 4:54:03.194089 pm UUID: 76695fa3-7ed2-cb4e-8c6e-b33c83dd526f Ancestors: Collections-mt.838 Improves code commentary, structure, and performance. Thanks Levente for the tips! (Adds tests for #findFeatures in CollectionsTests-mt.313). =============== Diff against Collections-mt.838 =============== Item was changed: ----- Method: String>>findFeatureIndicesDo: (in category 'accessing - features') ----- findFeatureIndicesDo: aBlock + "Support for simple analysis of natural language in source code. - "State machine that separates camelCase, UPPERCase, number/operator combinations and skips colons" - | last state char "0 = start, 1 = a, 2 = A, 3 = AA, 4 = num, 5 = op" | + In addition to whitespace separation like #findTokens:, also separate features using higher-level rules: + (1) 'camelCase' -> #('camel' 'Case'), + (2) 'UPPERCase' -> #('UPPER' 'Case'), + (3) integer numbers such as 'MyModel55' -> #('My' 'Model' '55'), and + (4) operators such as '5 <= 4' -> #('5' '<=' '4'). + Other kinds of characters are tokenized as operators: '[state := 2]' -> #('[' 'state' ':=' '2' ']'). - state := 0. - last := 1. + This method works like #lineIndicesDo: and provides start/stop indices of tokens to the given aBlock to, for example, extract and normalize features (or tokens)." + + | last state char | + state := 0. "0 = start, 1 = a, 2 = A, 3 = AA, 4 = num, 5 = op" + last := 1. "last character index" + 1 to: self size do: [ :index | char := self at: index. + + char isLowercase + ifTrue: [ "a" + state < 3 ifTrue: [state := 1]. "*a -> a" + state = 3 ifTrue: [ + "AAa -> A + Aa (camel case follows uppercase)" + aBlock value: last value: index - 2. + last := index - 1. + state := 2]. + state > 3 ifTrue: [ + "+a -> + | a (letter follows non-letter)" + aBlock value: last value: index - 1. + last := index. + state := 1]] - "a" - char isLowercase ifTrue: [ - (state < 3) ifTrue: [state := 1]. "*a -> a" - (state == 3) ifTrue: [ - "AAa -> A + Aa (camel case follows uppercase)" - aBlock value: last value: index - 2. - last := index - 1. - state := 2]. - (state > 3) ifTrue: [ - "+a -> + | a (letter follows non-letter)" - aBlock value: last value: index - 1. - last := index. - state := 1]] - ifFalse: [ - char isUppercase ifTrue: [ - (state == 0) - ifTrue: [state := 2] "start -> A" - ifFalse: [ - (state < 2 or: [state > 3]) ifTrue: [ - "*A -> * | A (uppercase begins, flush before)" - aBlock value: last value: index - 1. - last := index. - state := 2] ifFalse: [ - "AA -> AA (uppercase continues)" - state := 3]]] ifFalse: [ + char isUppercase + ifTrue: [ "A" + state = 0 + ifTrue: [state := 2] "start -> A" - ("char == $: or:" char isSeparator) ifTrue: [ - "skip colon/whitespace" - (state > 0) ifTrue: [ - aBlock value: last value: index - 1. - state := 0]. - last := index + 1] - ifFalse: [ - char isDigit ifTrue: [ - (state == 0) - ifTrue: [state := 4] ifFalse: [ + (state < 2) | (state > 3) ifTrue: [ + "*A -> * | A (uppercase begins, flush before)" + aBlock value: last value: index - 1. + last := index. + state := 2] ifFalse: [ + "AA -> AA (uppercase continues)" + state := 3]]] + ifFalse: [ + char isSeparator + ifTrue: [ " " + "skip whitespace" + state > 0 ifTrue: [ + aBlock value: last value: index - 1. + state := 0]. + last := index + 1] + ifFalse: [ + + char isDigit + ifTrue: [ "num" + state = 0 + ifTrue: [state := 4] + ifFalse: [ + state ~= 4 ifTrue: [ + aBlock value: last value: index - 1. + last := index. + state := 4]]] + ifFalse: [ "op" + state = 0 + ifTrue: [state := 5] + ifFalse: [ + state < 5 ifTrue: [ + aBlock value: last value: index - 1. + last := index. + state := 5]] ] ] ] ] ]. - (state ~= 4) ifTrue: [ - aBlock value: last value: index - 1. - last := index. - state := 4]]] - ifFalse: [ - (state == 0) - ifTrue: [state := 5] - ifFalse: [ - (state < 5) ifTrue: [ - aBlock value: last value: index - 1. - last := index. - state := 5]]]]]]]. last <= self size ifTrue: [ aBlock value: last value: self size]! Item was changed: ----- Method: String>>findFeaturesDo: (in category 'accessing - features') ----- findFeaturesDo: aBlock + "Simple analysis of natural language in source code. Select all features that are letters only, normalize them as lowercase. No support for word stemming. + + Example: + 'Transcript show: 123 asString; cr; show: #HelloWorld.' + -> #('transcript' 'show' 'as' 'string' 'cr' 'show' 'hello' 'world') + " - "Simple analysis for natural language in source code. No support for word stemming." self findFeatureIndicesDo: [:start :end | (self at: start) isLetter ifTrue: [ aBlock value: (self copyFrom: start to: end) asLowercase]].! Item was added: + ----- Method: String>>findTokens (in category 'accessing - tokens') ----- + findTokens + + ^ self findTokens: Character separators! Item was changed: ----- Method: String>>findTokens: (in category 'accessing') ----- findTokens: delimiters + "Answer the collection of tokens between delimiters, which results from parsing self." - "Answer the collection of tokens that result from parsing self." + | tokens | + tokens := OrderedCollection new. + self + findTokens: delimiters + do: [:token | tokens addLast: token]. + ^ tokens! - ^ OrderedCollection streamContents: [:tokens | - self - findTokens: delimiters - do: [:token | tokens nextPut: token]]! Item was changed: + ----- Method: String>>findTokens:do: (in category 'accessing - tokens') ----- - ----- Method: String>>findTokens:do: (in category 'accessing') ----- findTokens: delimiters do: aBlock self findTokens: delimiters indicesDo: [:start :end | aBlock value: (self copyFrom: start to: end)].! Item was changed: + ----- Method: String>>findTokens:indicesDo: (in category 'accessing - tokens') ----- + findTokens: oneOrMoreCharacters indicesDo: aBlock + "Parse self to find tokens between delimiters. Any character in the Collection delimiters marks a border. Several delimiters in a row are considered as just one separation. The interface is similar to #lineIndicesDo:." - ----- Method: String>>findTokens:indicesDo: (in category 'accessing') ----- - findTokens: delimiters indicesDo: aBlock - "Parse self to find tokens between delimiters. Any character in the Collection delimiters marks a border. Several delimiters in a row are considered as just one separation. Also, allow delimiters to be a single character. Similar to #lineIndicesDo:." + | keyStart keyStop separators size | + size := self size. + separators := oneOrMoreCharacters isCharacter + ifTrue: [{oneOrMoreCharacters}] + ifFalse: [oneOrMoreCharacters]. - | tokens keyStart keyStop separators | - separators := delimiters isCharacter - ifTrue: [Array with: delimiters] - ifFalse: [delimiters]. keyStop := 1. + [keyStop <= size] whileTrue: [ - [keyStop <= self size] whileTrue: [ keyStart := self skipDelimiters: separators startingAt: keyStop. keyStop := self findDelimiters: separators startingAt: keyStart. keyStart < keyStop ifTrue: [aBlock value: keyStart value: keyStop - 1]].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2019