Packages October 2021

packages@lists.squeakfoundation.org

1 participants
36 discussions

The Trunk: Morphic-ct.1784.mcz
by commits＠source.squeak.org 29 Oct '21

29 Oct '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1784.mcz ==================== Summary ==================== Name: Morphic-ct.1784 Author: ct Time: 4 October 2021, 2:22:53.472931 pm UUID: 802f4119-f7af-3741-8b7c-d3a99d3a41f4 Ancestors: Morphic-ul.1780 Honor new instance variable of KeyboardEvent during comparison. =============== Diff against Morphic-ul.1780 =============== Item was changed: ----- Method: KeyboardEvent>>= (in category 'comparing') ----- = aMorphicEvent super = aMorphicEvent ifFalse:[^false]. buttons = aMorphicEvent buttons ifFalse: [^ false]. keyValue = aMorphicEvent keyValue ifFalse: [^ false]. + keyCode = aMorphicEvent keyCode ifFalse: [^ false]. + ^ true! - ^ true - !

1 0

The Trunk: Morphic-mt.1785.mcz
by commits＠source.squeak.org 29 Oct '21

29 Oct '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1785.mcz ==================== Summary ==================== Name: Morphic-mt.1785 Author: mt Time: 29 October 2021, 2:09:00.086763 pm UUID: 25147fd7-88ac-5842-9b9d-0cf7bc12ea57 Ancestors: Morphic-ct.1784, Morphic-eem.1784 Restores backwards compatibility in #keyString as this format is used to store-and-compare keyboard shortcuts in Etoys and other projects. Merges fix for event comparision from Morphic-ct.1784. =============== Diff against Morphic-eem.1784 =============== Item was changed: ----- Method: KeyboardEvent>>= (in category 'comparing') ----- = aMorphicEvent super = aMorphicEvent ifFalse:[^false]. buttons = aMorphicEvent buttons ifFalse: [^ false]. keyValue = aMorphicEvent keyValue ifFalse: [^ false]. + keyCode = aMorphicEvent keyCode ifFalse: [^ false]. + ^ true! - ^ true - ! Item was changed: ----- Method: KeyboardEvent>>printKeyStringOn: (in category 'printing') ----- printKeyStringOn: aStream "Print a readable string representing the receiver on a given stream" | kc inBrackets firstBracket keyString | kc := self keyCharacter. inBrackets := false. firstBracket := [ inBrackets ifFalse: [ aStream nextPut: $<. inBrackets := true ]]. + self modifiers + select: [:modifier | + "Show #shift modifier only for control characters for backwards compatibility in #keyString." + modifier ~= #shift or: [ keyValue < 32 ]] + thenDo: [:modifier | + firstBracket value. + "Capitalize modifier for backwards compatibility in #keyString." + aStream nextPutAll: modifier capitalized; nextPutAll: '-' ]. - self modifiers do: [:modifier | - firstBracket value. aStream nextPutAll: modifier; nextPutAll: '-' ]. keyString := (Character constantNameFor: kc) ifNil: [String with: kc]. + keyString := keyString caseOf: { + "Rename several keys for backwards compatibility in #keyString." + [ 'space' ] -> [ ' ' ]. + [ 'return' ] -> [ 'cr' ]. + [ 'arrowDown' ] -> [ 'down' ]. + [ 'arrowUp' ] -> [ 'up' ]. + [ 'arrowLeft' ] -> [ 'left' ]. + [ 'arrowRight' ] -> [ 'right' ] + } otherwise: [ keyString ]. + keyString size > 1 ifTrue: [ firstBracket value ]. aStream nextPutAll: keyString. inBrackets ifTrue: [aStream nextPut: $> ]! Item was changed: ----- Method: KeyboardExerciser>>logEvent: (in category 'event handling') ----- logEvent: evt | eventMorph | evt = self lastEvent ifTrue: [^ self logEventRepetition: evt]. eventMorph := evt asMorph. eventMorph setProperty: #event toValue: evt copy; + balloonText: ('Click to inspect. Shift+click to explore.\\Virtual key: {8}\Virtual modifiers: {5}\\Physical key: {9}\Physical modifiers: {6}\\Key value: 0x{1} ({2}) \Key character: {3}\Key string: {4}\\{7}' withCRs format: { - balloonText: ('Click to inspect. Shift+click to explore.\\Virtual key: {7}\Virtual modifiers: {4}\\Physical key: {8}\Physical modifiers: {5}\\Key value: 0x{1} ({2}) \Key character: {3}\\{6}' withCRs format: { evt keyValue printPaddedWith: $0 to: 2 base: 16. evt keyValue. evt isKeystroke ifTrue: [evt keyCharacter printString] ifFalse: ['-']. + evt isKeystroke ifTrue: [evt keyString printString] ifFalse: ['-']. (evt virtualModifiers joinSeparatedBy: ' ') asUppercase. (evt physicalModifiers joinSeparatedBy: ' ') asUppercase. evt printString. evt virtualKey printString. evt physicalKey asString printString}). eventMorph on: #mouseEnter send: #handleEvent:emphasize: to: self; on: #mouseLeave send: #handleEvent:deemphasize: to: self; on: #mouseDown send: #handleEvent:inspect: to: self. self addMorphBack: eventMorph.!

1 0

The Trunk: Sound-eem.83.mcz
by commits＠source.squeak.org 23 Oct '21

23 Oct '21

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.83.mcz ==================== Summary ==================== Name: Sound-eem.83 Author: eem Time: 23 October 2021, 3:52:26.745004 pm UUID: bb4ab1c4-cd31-45f2-80b8-0b8a76870de8 Ancestors: Sound-ct.82 Avoid busy loop in playAndWaitUntilDone Use Float64Array in FWT. =============== Diff against Sound-ct.82 =============== Item was changed: ----- Method: AbstractSound>>playAndWaitUntilDone (in category 'playing') ----- playAndWaitUntilDone "Play this sound to the sound ouput port and wait until it has finished playing before returning." + | duration timeTaken delay | + duration := [self duration] on: MessageNotUnderstood do: [:ex| SmallInteger maxVal]. + timeTaken := Time utcMicrosecondClock. self play. + timeTaken := Time utcMicrosecondClock - timeTaken // 1000. + duration > timeTaken ifTrue: + [delay := Delay forMilliseconds: (SoundPlayer bufferMSecs min: duration - timeTaken). + [self samplesRemaining > 0] whileTrue: [delay wait]]. + (Delay forMilliseconds: SoundPlayer bufferMSecs) wait "ensure last buffer has been output" + + "AndreasSystemProfiler spyOn: [PluckedSound bachFugue playAndWaitUntilDone]"! - [self samplesRemaining > 0] whileTrue. - (Delay forMilliseconds: 2 * SoundPlayer bufferMSecs) wait. "ensure last buffer has been output" - ! Item was changed: ----- Method: FWT>>doWaveDemo (in category 'testing') ----- doWaveDemo "FWT new doWaveDemo" "Printing the above should yield a small number -- I get 1.1e-32" | originalData | self nSamples: 312 nLevels: 3. self setAlpha: 0.0 beta: 0.0. "Install a sine wave as sample data" + self samples: ((1 to: nSamples) collect: [:i | ((i-1) * 0.02 * Float pi) sin] as: Float64Array). - self samples: ((1 to: nSamples) collect: [:i | ((i-1) * 0.02 * Float pi) sin]). originalData := samples copy. FFT new plot: (samples copyFrom: 1 to: nSamples) in: (0@0 extent: nSamples@100). "Transform forward and plot the decomposition" self transformForward: true. transform withIndexDo: [:w :i | FFT new plot: (w copyFrom: 1 to: w size-5) in: (i-1\\2*320@(i+1//2*130) extent: (w size-5)@100)]. "Test copy out and read in the transform coefficients" self coeffs: self coeffs. "Ttransform back, plot the reconstruction, and return the error figure" self transformForward: false. FFT new plot: (samples copyFrom: 1 to: nSamples) in: (320@0 extent: nSamples@100). ^ self meanSquareError: originalData! Item was changed: ----- Method: FWT>>nSamples:nLevels: (in category 'initialization') ----- nSamples: n nLevels: nLevs "Initialize a wavelet transform." "Note the sample array size must be N + 5, where N is a multiple of 2^nLevels" | dyadSize | (n // (1 bitShift: nLevs)) > 0 ifFalse: [self error: 'Data size error']. (n \\ (1 bitShift: nLevs)) = 0 ifFalse: [self error: 'Data size error']. nSamples := n. + samples := Float64Array new: n + 5. - samples := Array new: n + 5. nLevels := nLevs. transform := Array new: nLevels*2. "Transformed data is stored as a tree of coeffs" dyadSize := nSamples. 1 to: nLevels do: [:i | dyadSize := dyadSize // 2. + transform at: 2*i-1 put: (Float64Array new: dyadSize + 5). + transform at: 2*i put: (Float64Array new: dyadSize + 5)]! - transform at: 2*i-1 put: (Array new: dyadSize + 5). - transform at: 2*i put: (Array new: dyadSize + 5)]! Item was changed: ----- Method: FWT>>setAlpha:beta: (in category 'initialization') ----- setAlpha: alph beta: bet "Set alpha and beta, compute wavelet coeefs, and derive hFilter and lFilter" | tcosa tcosb tsina tsinb | alpha := alph. beta := bet. "WaveletCoeffs..." "precalculate cosine of alpha and sine of beta" tcosa := alpha cos. tcosb := beta cos. tsina := alpha sin. tsinb := beta sin. + coeffs := Float64Array new: 6. - coeffs := Array new: 6. "calculate first two wavelet coefficients a := a(-2) and b := a(-1)" coeffs at: 1 put: ((1.0 + tcosa + tsina) * (1.0 - tcosb - tsinb) + (2.0 * tsinb * tcosa)) / 4.0. coeffs at: 2 put: ((1.0 - tcosa + tsina) * (1.0 + tcosb - tsinb) - (2.0 * tsinb * tcosa)) / 4.0. "precalculate cosine and sine of alpha minus beta" tcosa := (alpha - beta) cos. tsina := (alpha - beta) sin. "calculate last four wavelet coefficients c := a(0), d := a(1), e := a(2), and f := a(3)" coeffs at: 3 put: (1.0 + tcosa + tsina) / 2.0. coeffs at: 4 put: (1.0 + tcosa - tsina) / 2.0. coeffs at: 5 put: 1.0 - (coeffs at: 1) - (coeffs at: 3). coeffs at: 6 put: 1.0 - (coeffs at: 2) - (coeffs at: 4). "MakeFiltersFromCoeffs..." "Select the non-zero wavelet coefficients" coeffs := coeffs copyFrom: (coeffs findFirst: [:c | c abs > 1.0e-14]) to: (coeffs findLast: [:c | c abs > 1.0e-14]). "Form the low pass and high pass filters for decomposition" hTilde := coeffs reversed collect: [:c | c / 2.0]. gTilde := coeffs collect: [:c | c / 2.0]. 1 to: gTilde size by: 2 do: [:i | gTilde at: i put: (gTilde at: i) negated]. "Form the low pass and high pass filters for reconstruction" h := coeffs copy. g := coeffs reversed. 2 to: g size by: 2 do: [:i | g at: i put: (g at: i) negated] !

1 0

The Trunk: Kernel-eem.1419.mcz
by commits＠source.squeak.org 21 Oct '21

21 Oct '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1419.mcz ==================== Summary ==================== Name: Kernel-eem.1419 Author: eem Time: 21 October 2021, 12:02:22.351426 pm UUID: c8e298e1-78ac-453c-8460-d89e539f636d Ancestors: Kernel-eem.1418 Use bytecode set specific canBeSpecialLiteral: when checking if a method hasLiteral:. =============== Diff against Kernel-eem.1418 =============== Item was changed: ----- Method: CompiledCode>>hasLiteral: (in category 'literals') ----- hasLiteral: aLiteral + "Overwrite this method to invoke the bytecode encoder scanner explicitly. This might be removed if there would be a way to enumerate special literals in a compiled-code object. See #allLiteralsDo:." - "Overwrite this method to invoke the bytecode encoder scanner explicitely. This might be removed if there would be a way to enumerate special literals in a compiled-code object. See #allLiteralsDo:." ^ self hasLiteral: aLiteral + scanForSpecial: (self encoderClass canBeSpecialLiteral: aLiteral)! - scanForSpecial: (BytecodeEncoder canBeSpecialLiteral: aLiteral)!

1 0

The Trunk: Compiler-eem.461.mcz
by commits＠source.squeak.org 21 Oct '21

21 Oct '21

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.461.mcz ==================== Summary ==================== Name: Compiler-eem.461 Author: eem Time: 21 October 2021, 12:00:12.295003 pm UUID: f42bd9ed-6507-42c4-a99c-cd2d6f69bc5f Ancestors: Compiler-eem.460 Make canBeSpecialLiteral: bytecode set specific. =============== Diff against Compiler-eem.460 =============== Item was changed: ----- Method: BytecodeEncoder class>>canBeSpecialLiteral: (in category 'testing') ----- canBeSpecialLiteral: aLiteral "This check can be used to prevent unnecessary use of #scanBlockOrNilForLiteral:. For performance, this method summarizes specializations from all known bytecode encoders. It is not meant to be refined per bytecode encoder." + + aLiteral isVariableBinding ifTrue: [^false]. "a common case; don't waste time analysing..." aLiteral isSymbol ifTrue: [^ Smalltalk specialSelectors identityIncludes: aLiteral]. aLiteral isCharacter ifTrue: [^ aLiteral asInteger <= 65535]. aLiteral isInteger ifTrue: [^ aLiteral between: -32768 and: 32767]. aLiteral == true ifTrue: [^ true]. aLiteral == false ifTrue: [^ true]. aLiteral == nil ifTrue: [^ true]. ^ false! Item was added: + ----- Method: EncoderForSistaV1 class>>canBeSpecialLiteral: (in category 'testing') ----- + canBeSpecialLiteral: aLiteral + "This check can be used to prevent unnecessary use of #scanBlockOrNilForLiteral:." + + aLiteral isVariableBinding ifTrue: [^false]. "a common case; don't waste time analysing..." + + aLiteral isSymbol ifTrue: [^ Smalltalk specialSelectors identityIncludes: aLiteral]. + aLiteral isCharacter ifTrue: [^ aLiteral asInteger <= 65535]. + aLiteral isInteger ifTrue: [^ aLiteral between: -32768 and: 32767]. + + aLiteral == true ifTrue: [^ true]. + aLiteral == false ifTrue: [^ true]. + aLiteral == nil ifTrue: [^ true]. + + ^ false! Item was added: + ----- Method: EncoderForV3 class>>canBeSpecialLiteral: (in category 'testing') ----- + canBeSpecialLiteral: aLiteral + "This check can be used to prevent unnecessary use of #scanBlockOrNilForLiteral:." + + aLiteral isVariableBinding ifTrue: [^false]. "a common case; don't waste time analysing..." + + aLiteral isSymbol ifTrue: [^ Smalltalk specialSelectors identityIncludes: aLiteral]. + aLiteral isInteger ifTrue: [^ aLiteral between: -1 and: 2]. + + aLiteral == true ifTrue: [^ true]. + aLiteral == false ifTrue: [^ true]. + aLiteral == nil ifTrue: [^ true]. + + ^ false!

1 0

The Trunk: System-eem.1244.mcz
by commits＠source.squeak.org 18 Oct '21

18 Oct '21

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1244.mcz ==================== Summary ==================== Name: System-eem.1244 Author: eem Time: 17 October 2021, 9:01:41.697469 pm UUID: f8db54c3-2831-41f1-9335-e157b5a877a3 Ancestors: System-eem.1243 Give a more informative space left message which includes the amount of memory in use. =============== Diff against System-eem.1243 =============== Item was added: + ----- Method: SmalltalkImage>>bytesUsedString (in category 'memory space') ----- + bytesUsedString + "Answer a string describing the amount of memory in use." + "Smalltalk bytesUsedString" + | totalUsed | + totalUsed := (self vmParameterAt: 2 "used eden + used past space") + + ((self vmParameterAt: 1 "old space size") - (self vmParameterAt: 54 "free old space")). + ^totalUsed asStringWithCommas, ' bytes in use'! Item was changed: ----- Method: Utilities class>>garbageCollectAndReport (in category 'miscellaneous') ----- garbageCollectAndReport "Do a garbage collection, and report results to the user." | reportString | reportString := String streamContents: [:aStream | aStream nextPutAll: 'The following amounts of memory are still available:' translated; + crtab. + aStream nextPutAll: (Smalltalk bytesLeftString copyReplaceAll: (String with: Character cr) with: (String with: Character cr with: Character tab)). + aStream skip: -1; nextPutAll: Smalltalk bytesUsedString. - cr. - aStream nextPutAll: Smalltalk bytesLeftString. Smalltalk at: #Command ifPresent: [:cmdClass | | cc | (cc := cmdClass instanceCount) > 0 ifTrue: [aStream + cr; cr; - cr; nextPutAll: '(note: there are '; print: cc; nextPutAll: ' undo record(s) present in your'; cr; nextPutAll: 'system; purging them may free up more space.)']]]. self inform: reportString !

1 0

The Trunk: Morphic-eem.1784.mcz
by commits＠source.squeak.org 17 Oct '21

17 Oct '21

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1784.mcz ==================== Summary ==================== Name: Morphic-eem.1784 Author: eem Time: 17 October 2021, 11:34:29.99006 am UUID: 7e3f944d-18fc-4a6f-bb86-03c8037ec775 Ancestors: Morphic-mt.1783 Text editing bug fixes. A paragraph may not have been composed when interrogated for test and/or graphic coordinates. A TextEditor for a Transcript may have no history but still be asked to openTypeInFor:/closeTypeIn:. =============== Diff against Morphic-mt.1783 =============== Item was changed: ----- Method: NewParagraph>>fastFindFirstLineSuchThat: (in category 'private') ----- fastFindFirstLineSuchThat: lineBlock "Perform a binary search of the lines array and return the index of the first element for which lineBlock evaluates as true. This assumes the condition is one that goes from false to true for increasing line numbers (as, eg, yval > somey or start char > somex). If lineBlock is not true for any element, return size+1." + lines ifNil: + [self composeAll]. - ^lines findBinaryIndex: [ :each | (lineBlock value: each) ifTrue: [ -1 ] ifFalse: [ 1 ] ] ifNone: [ :lower :upper | upper ]! Item was changed: ----- Method: TextEditor>>closeTypeIn (in category 'typing support') ----- closeTypeIn "See comment in openTypeIn. It is important to call closeTypeIn before executing any non-typing key, making a new selection, etc. It is called automatically for menu commands." | begin stop | + beginTypeInIndex ifNotNil: + [begin := beginTypeInIndex. - beginTypeInIndex ifNotNil: [ - begin := beginTypeInIndex. stop := self stopIndex. + self history ifNotNil: + [:myHistory| + myHistory current + contentsAfter: (stop <= begin + ifTrue: [self nullText] + ifFalse: [paragraph text copyFrom: begin to: stop-1]); + intervalAfter: (stop to: stop-1); + intervalBetween: (stop < begin + ifTrue: [stop to: stop-1] + ifFalse: [begin to: stop-1]); + messageToUndo: (Message selector: #undoAndReselect); + messageToRedo: (Message selector: #redoAndReselect). + + myHistory finishRemember]. - self history current - contentsAfter: (stop <= begin - ifTrue: [self nullText] - ifFalse: [paragraph text copyFrom: begin to: stop-1]); - intervalAfter: (stop to: stop-1); - intervalBetween: (stop < begin - ifTrue: [stop to: stop-1] - ifFalse: [begin to: stop-1]); - messageToUndo: (Message selector: #undoAndReselect); - messageToRedo: (Message selector: #redoAndReselect). - - self history finishRemember. beginTypeInIndex := nil]! Item was changed: ----- Method: TextEditor>>openTypeInFor: (in category 'typing support') ----- openTypeInFor: editType "Set up UndoSelection to null text (to be added to by readKeyboard and backTo:), beginTypeInBlock to keep track of the leftmost backspace, and UndoParameter to tally how many deleted characters were backspaced over rather than 'cut'. You can't undo typing until after closeTypeIn." + beginTypeInIndex ifNil: + [beginTypeInIndex := self startIndex. + self history ifNotNil: + [:myHistory| + myHistory beginRemember: + (TextEditorCommand new + type: editType; + contentsBefore: (self hasSelection ifTrue: [self selection] ifFalse: [self nullText]); + intervalBefore: (beginTypeInIndex to: self stopIndex-1) + yourself)]]! - beginTypeInIndex ifNil: [ - beginTypeInIndex := self startIndex. - self history beginRemember: (TextEditorCommand new - type: editType; - contentsBefore: (self hasSelection ifTrue: [self selection] ifFalse: [self nullText]); - intervalBefore: (beginTypeInIndex to: self stopIndex-1) - yourself)].!

1 0

The Trunk: Network-eem.249.mcz
by commits＠source.squeak.org 13 Oct '21

13 Oct '21

Eliot Miranda uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-eem.249.mcz ==================== Summary ==================== Name: Network-eem.249 Author: eem Time: 12 October 2021, 5:04:34.016607 pm UUID: e005ce57-6681-403f-8cea-862ea013cd14 Ancestors: Network-ul.248 Extend HTTPServerDirectory so that it can parse XML descriptions as per e.g. http://files.squeak.org/trunk/. This works, but could really do with a review from someone intimately familiar with ServerDirectory and subclasses. Hence the following gets the latest trunk images and unpacks them: | entries | entries := (HTTPServerDirectory new type: #http) altUrl: 'http://files.squeak.org/trunk/'; entries. #('32bit' '64bit') do: [:bitness| | latest | latest := (entries select: [:entry| entry name includesSubstring: bitness]) inject: entries first into: [:best :each| | vnb vne | vnb := (best name subStrings: '-') second asInteger. vne := (each name subStrings: '-') second asInteger. vnb > vne ifTrue: [best] ifFalse: [each]]. Cursor write showWhile: [(Cursor read showWhile: [ZipArchive new readFrom: (((HTTPServerDirectory new type: #http) altUrl: (latest containingDirectory altUrl, latest name); entries) detect: [:entry| entry name endsWith: 'bit.zip']) readStream]) extractAllTo: FileDirectory default informing: nil overwrite: true]] =============== Diff against Network-ul.248 =============== Item was changed: ----- Method: HTTPServerDirectory>>entries (in category 'file directory') ----- entries | answer ftpEntries | answer := HTTPSocket httpGetDocument: self dirListUrl. answer isString ifTrue: [^self error: 'Listing failed: ' , answer] ifFalse: [answer := answer content]. + answer first = $< ifTrue: + [(answer first: 5) = '<?xml' ifTrue: + [(Smalltalk classNamed: #XMLDOMParser) ifNotNil: + [^self parseFTPEntriesFromXML: (XMLDOMParser parseDocumentFrom: answer readStream useNamespaces: true)]]. + self error: 'Listing failed: ' , answer]. - answer first = $< - ifTrue: [self error: 'Listing failed: ' , answer]. ftpEntries := answer lines. ^ ftpEntries collect:[:ftpEntry | self class parseFTPEntry: ftpEntry] thenSelect: [:entry | entry notNil]! Item was added: + ----- Method: HTTPServerDirectory>>fileSizeFromString: (in category 'misc') ----- + fileSizeFromString: aString + | size | + size := aString asNumber. + ('KMGTP' indexOf: aString last asUppercase ifAbsent: nil) ifNotNil: + [:index| size := size * (2 raisedTo: index * 10)]. "1k = 2^10, etc..." + ^size asInteger! Item was added: + ----- Method: HTTPServerDirectory>>parseFTPEntriesFromXML: (in category 'misc') ----- + parseFTPEntriesFromXML: anXMLDocument + | entries | + entries := OrderedCollection new. + anXMLDocument + tagsNamed: #tr + ifReceiverDoAndRecurse: + [:node| | ec | + ((ec := node elementsAndContents) size = 4 + and: [((ec := ec asArray) allSatisfy: [:n| n isTag]) + and: [((ec collect: [:n| n attributeAt: 'class']) sameElements: #('n' 'm' 's' 't'))]]) ifTrue: + [[:n :m :s :t| | modificationString nameString | + (n isTag + and: [(modificationString := m string) size > 12 "YYYYMMDDHHSS" + and: [modificationString first isDigit]]) ifTrue: + [nameString := n attributeAt: 'href'. + entries addLast: + (t string = 'Directory' "is-a-directory flag" + ifTrue: + [DirectoryEntryDirectory + directory: self + name: nameString "file name" + creationTime: nil + modificationTime: modificationString asDateAndTime "modification time" + fileSize: nil] + ifFalse: + [DirectoryEntryFile + directory: self + name: nameString "file name" + creationTime: nil + modificationTime: modificationString asDateAndTime "modification time" + fileSize: (self fileSizeFromString: s string)])]] valueWithArguments: (ec collect: [:element| element elementsAndContents first])]]. + ^entries!

1 0

The Trunk: System-eem.1243.mcz
by commits＠source.squeak.org 10 Oct '21

10 Oct '21

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1243.mcz ==================== Summary ==================== Name: System-eem.1243 Author: eem Time: 9 October 2021, 6:04:14.414339 pm UUID: e670b073-df3e-460e-a8fe-a019a11bede8 Ancestors: System-eem.1242 oops; fix slip in shared pool search. =============== Diff against System-eem.1242 =============== Item was changed: ----- Method: SystemNavigation>>allUnreferencedClassVariablesOf: (in category 'query') ----- allUnreferencedClassVariablesOf: aClass "Answer a list of the names of all the receiver's unreferenced class vars, including those defined in superclasses." | unusedClassVars sequence | aClass isMeta ifTrue: [^self allUnreferencedClassVariablesOf: aClass theNonMetaClass]. unusedClassVars := Set new. aClass withAllSuperclasses do: [:class| unusedClassVars addAll: class classPool associations]. (aClass includesBehavior: SharedPool) ifTrue: [self allSelectorsAndMethodsDo: + [:b :s :m| - [:s :m| m allLiteralsDo: [:l| l isVariableBinding ifTrue: [unusedClassVars remove: l ifAbsent: nil]]]] ifFalse: [aClass withAllSuperclasses, (aClass withAllSuperclasses collect: [:class| class class]) do: [:behavior | behavior selectorsAndMethodsDo: [:s :m| m allLiteralsDo: [:l| l isVariableBinding ifTrue: [unusedClassVars remove: l ifAbsent: nil]]]. unusedClassVars isEmpty ifTrue: [^OrderedCollection new]]]. "now compute the order in which to present the unused varables..." sequence := OrderedCollection new. aClass withAllSuperclasses reverseDo: [:aSuperClass | sequence addAll: (aSuperClass classVarNames select: [:classVarName| unusedClassVars includes: (aSuperClass classPool associationAt: classVarName)])]. ^sequence!

1 0

The Trunk: System-eem.1242.mcz
by commits＠source.squeak.org 10 Oct '21

10 Oct '21

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1242.mcz ==================== Summary ==================== Name: System-eem.1242 Author: eem Time: 9 October 2021, 5:56:44.727952 pm UUID: c64c4476-34da-4974-b440-833417d434a3 Ancestors: System-mt.1241 Make searching for unused class vars single-pass. With the new search for implicit literals multi-pass searches for unused class vars can be rather slow. Provide a convenience to find all pragma selectors. =============== Diff against System-mt.1241 =============== Item was added: + ----- Method: SystemNavigation>>allPragmaSelectors (in category 'query') ----- + allPragmaSelectors + "Answer the set of all pragma selectors." + "self systemNavigation allPragmaSelectors asArray sort" + + | result | + result := Set new. + self allSelectorsAndMethodsDo: + [:behavior :selector :method | + method pragmas do: + [:pragma| + result add: pragma keyword]]. + ^result! Item was changed: ----- Method: SystemNavigation>>allUnreferencedClassVariablesOf: (in category 'query') ----- allUnreferencedClassVariablesOf: aClass + "Answer a list of the names of all the receiver's unreferenced class vars, + including those defined in superclasses." + | unusedClassVars sequence | + aClass isMeta ifTrue: + [^self allUnreferencedClassVariablesOf: aClass theNonMetaClass]. + unusedClassVars := Set new. + aClass withAllSuperclasses do: + [:class| unusedClassVars addAll: class classPool associations]. + (aClass includesBehavior: SharedPool) + ifTrue: + [self allSelectorsAndMethodsDo: + [:s :m| + m allLiteralsDo: [:l| l isVariableBinding ifTrue: [unusedClassVars remove: l ifAbsent: nil]]]] + ifFalse: + [aClass withAllSuperclasses, (aClass withAllSuperclasses collect: [:class| class class]) do: + [:behavior | + behavior selectorsAndMethodsDo: + [:s :m| + m allLiteralsDo: [:l| l isVariableBinding ifTrue: [unusedClassVars remove: l ifAbsent: nil]]]. + unusedClassVars isEmpty ifTrue: [^OrderedCollection new]]]. + "now compute the order in which to present the unused varables..." + sequence := OrderedCollection new. + aClass withAllSuperclasses reverseDo: + [:aSuperClass | + sequence addAll: (aSuperClass classVarNames select: + [:classVarName| + unusedClassVars includes: (aSuperClass classPool associationAt: classVarName)])]. + ^sequence! - "Answer a list of the names of all the receiver's unreferenced class - vars, including those defined in superclasses" - | aList | - aList := OrderedCollection new. - aClass withAllSuperclasses - reverseDo: [:aSuperClass | aSuperClass classVarNames - do: [:var | (self allCallsOn: (aSuperClass classPool associationAt: var)) isEmpty - ifTrue: [aList add: var]]]. - ^ aList!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2021