Squeak-dev June 2016

squeak-dev@lists.squeakfoundation.org

39 participants
202 discussions

Daily Commit Log
by commits＠source.squeak.org 24 Jun '16

24 Jun '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-June/068236.html Name: Collections-eem.699 Ancestors: Collections-ul.698 Fix growth on become failure due to insufficient memory. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-June/068237.html Name: System-eem.834 Ancestors: System-mt.833 More accurately comment the semantics of the growMemoryByAtLeast: primitive on Spur. =============================================

1 0

The Trunk: System-eem.834.mcz
by commits＠source.squeak.org 24 Jun '16

24 Jun '16

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.834.mcz ==================== Summary ==================== Name: System-eem.834 Author: eem Time: 23 June 2016, 4:30:25.198834 pm UUID: d42d7b14-27ee-49c9-9469-b7f7d1b48395 Ancestors: System-mt.833 More accurately comment the semantics of the growMemoryByAtLeast: primitive on Spur. =============== Diff against System-mt.833 =============== Item was changed: ----- Method: SmalltalkImage>>growMemoryByAtLeast: (in category 'memory space') ----- growMemoryByAtLeast: numBytes "Grow memory by at least the requested number of bytes. + Primitive. Fail if no memory is available. Essential. + N.B. In Spur, the heap is composed of segments. Growing memory adds a new + segment; it does not extend existing segments. Growth is by at least that + established by SmalltalkImage current vmParameterAt: 25, which defaults to 16Mb." - Primitive. Essential. Fail if no memory is available." <primitive: 180> + ^(numBytes isInteger and: [numBytes > 0]) + ifTrue: [OutOfMemory signal] + ifFalse: [self primitiveFailed]! - (numBytes isInteger and: [numBytes > 0]) ifTrue: - [OutOfMemory signal]. - ^self primitiveFailed! Item was changed: ----- Method: SystemDictionary>>growMemoryByAtLeast: (in category 'memory space') ----- growMemoryByAtLeast: numBytes "Grow memory by at least the requested number of bytes. + Primitive. Fail if no memory is available. Essential. + N.B. In Spur, the heap is composed of segments. Growing memory adds a new + segment; it does not extend existing segments. Growth is by at least that + established by SmalltalkImage current vmParameterAt: 25, which defaults to 16Mb." - Primitive. Fail if no memory is available. Essential." <primitive: 180> ^(numBytes isInteger and: [numBytes > 0]) ifTrue: [OutOfMemory signal] ifFalse: [self primitiveFailed]!

1 0

The Trunk: Collections-eem.699.mcz
by commits＠source.squeak.org 24 Jun '16

24 Jun '16

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.699.mcz ==================== Summary ==================== Name: Collections-eem.699 Author: eem Time: 23 June 2016, 4:28:17.428149 pm UUID: b82a57a1-a212-4ebe-a738-59abebf9a380 Ancestors: Collections-ul.698 Fix growth on become failure due to insufficient memory. =============== Diff against Collections-ul.698 =============== Item was changed: ----- Method: Array>>elementsExchangeIdentityWith: (in category 'converting') ----- elementsExchangeIdentityWith: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. At the same time, all pointers to the elements of otherArray are replaced by pointers to the corresponding elements of this array. The identityHashes remain with the pointers rather than with the objects so that objects in hashed structures should still be properly indexed after the mutation." <primitive: 128 error: ec> ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array ifTrue: ['arg must be of class Array'] ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'no modification' ifTrue: [^self error: 'can''t become immutable objects']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: + [| maxRequired | + "In Spur, two-way become may involve making each pair of objects into a forwarder into a copy of the other. + So if become fails with #'insufficient object memory', garbage collect, and if necessary, grow memory." + maxRequired := (self detectSum: [:obj | obj class byteSizeOfInstanceOfSize: obj basicSize]) + + (otherArray detectSum: [:obj | obj class byteSizeOfInstanceOfSize: obj basicSize]). + (Smalltalk garbageCollectMost < maxRequired + and: [Smalltalk garbageCollect < maxRequired]) ifTrue: + [Smalltalk growMemoryByAtLeast: maxRequired]. - [Smalltalk garbageCollect < 1048576 ifTrue: - [Smalltalk growMemoryByAtLeast: 1048576]. ^self elementsExchangeIdentityWith: otherArray]. self primitiveFailed! Item was changed: ----- Method: Array>>elementsForwardIdentityTo: (in category 'converting') ----- elementsForwardIdentityTo: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. The identityHashes remain with the pointers rather than with the objects so that the objects in this array should still be properly indexed in any existing hashed structures after the mutation." <primitive: 72 error: ec> ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array ifTrue: ['arg must be of class Array'] ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'no modification' ifTrue: [^self error: 'can''t become immutable objects']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: + [self error: 'The virtual machine is out-of-date. Please upgrade.']. - [Smalltalk garbageCollect < 1048576 ifTrue: - [Smalltalk growMemoryByAtLeast: 1048576]. - ^self elementsForwardIdentityTo: otherArray]. self primitiveFailed!

1 0

Daily Commit Log
by commits＠source.squeak.org 23 Jun '16

23 Jun '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-June/068234.html Name: Installer-Core-cmm.406 Ancestors: Installer-Core-cmm.405 - Factor ability to #packageDependenciesFor:do:. - Fix for repository overriding. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-June/068235.html Name: Tools-topa.705 Ancestors: Tools-mt.704 disable buttons in the browser when they do not apply =============================================

1 0

The Trunk: Tools-topa.705.mcz
by commits＠source.squeak.org 23 Jun '16

23 Jun '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.705.mcz ==================== Summary ==================== Name: Tools-topa.705 Author: topa Time: 23 June 2016, 9:55:41.768774 am UUID: e819d324-b58e-4e35-b988-395da379fdb5 Ancestors: Tools-mt.704 disable buttons in the browser when they do not apply =============== Diff against Tools-mt.704 =============== Item was changed: ----- Method: CodeHolder>>buildOptionalButtonsWith: (in category 'toolbuilder') ----- buildOptionalButtonsWith: builder | panelSpec | panelSpec := builder pluggablePanelSpec new. panelSpec children: OrderedCollection new. self optionalButtonPairs do:[:spec| | buttonSpec | buttonSpec := builder pluggableActionButtonSpec new. buttonSpec model: self. buttonSpec label: spec first. buttonSpec action: spec second. + spec second == #methodHierarchy + ifTrue:[buttonSpec + enabled: #inheritanceButtonEnabled; + color: #inheritanceButtonColor]. + spec second == #browseVersions + ifTrue:[buttonSpec enabled: #versionsButtonEnabled]. - spec second == #methodHierarchy ifTrue:[ - buttonSpec color: #inheritanceButtonColor. - ]. spec size > 2 ifTrue:[buttonSpec help: spec third]. + panelSpec children add: buttonSpec]. - panelSpec children add: buttonSpec. - ]. "What to show" panelSpec children add: builder pluggableSpacerSpec new. self addCodeProvenanceButtonTo: panelSpec using: builder. panelSpec layout: #horizontal. "buttons" ^panelSpec! Item was added: + ----- Method: CodeHolder>>inheritanceButtonEnabled (in category 'toolbuilder') ----- + inheritanceButtonEnabled + "The inheritance button is only enabled when a method is selected" + + ^ self selectedMessageName notNil + ! Item was added: + ----- Method: CodeHolder>>versionsButtonEnabled (in category 'toolbuilder') ----- + versionsButtonEnabled + "The versions button is only enabled when a method is selected or we view the + class comment." + + ^ self selectedMessageName notNil or: [self classCommentIndicated]! Item was changed: ----- Method: StringHolder>>browseVersions (in category '*Tools') ----- browseVersions "Create and schedule a Versions Browser, showing all versions of the currently selected message. Answer the browser or nil." + ^ self classCommentIndicated + ifTrue: [ClassCommentVersionsBrowser browseCommentOf: self selectedClass] + ifFalse: [self selectedMessageName ifNotNil: + [:selector | + ToolSet browseVersionsOf: self selectedClassOrMetaClass selector: selector]]! - | selector | - self classCommentIndicated ifTrue: - [ClassCommentVersionsBrowser browseCommentOf: self selectedClass. - ^nil]. - - ^(selector := self selectedMessageName) - ifNil: [self inform: 'Sorry, only actual methods have retrievable versions.'. nil] - ifNotNil: [ToolSet browseVersionsOf: self selectedClassOrMetaClass selector: selector]!

1 0

Functional callbacks on all Cog platforms
by Eliot Miranda 23 Jun '16

23 Jun '16

Hi All, just wanted to report that as of Alien-eem.35 and https://github.com/OpenSmalltalk/vm/commit/da3fafdec9444754af104e0ed9f613f6… we now have functional callbacks on all x86 platforms, ARM32 platforms and x86_64 platforms. There's a simple example Alien class>>exampleCqsort that shows how to use the system and tests the implementation using the C library's sort quick sort implementation that takes a function pointer as an argument to use for comparing pairs of elements. This is mapped onto a Smalltalk block by Alien's callback implementation. The example sorts 100 random double-precision floats using qsort and a callback into Smalltalk. _,,,^..^,,,_ best, Eliot

1 0

The Trunk: Installer-Core-cmm.406.mcz
by commits＠source.squeak.org 23 Jun '16

23 Jun '16

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.406.mcz ==================== Summary ==================== Name: Installer-Core-cmm.406 Author: cmm Time: 22 June 2016, 9:03:21.329276 pm UUID: b5f775d3-5f20-49bf-be10-edd2cec2d1bf Ancestors: Installer-Core-cmm.405 - Factor ability to #packageDependenciesFor:do:. - Fix for repository overriding. =============== Diff against Installer-Core-cmm.405 =============== Item was changed: ----- Method: Installer>>merge: (in category 'public interface') ----- merge: structureOrSymbol | toUncache | toUncache := Set new. + self + packageDependenciesFor: structureOrSymbol + do: + [ : eachPackageName : eachRepositorySpec | | repo | + (repo := self class repositoryFor: eachRepositorySpec) cacheAllFilenames. + toUncache add: repo. + self primMerge: eachPackageName ]. + toUncache do: [ : each | each flushAllFilenames ]! - structureOrSymbol isSymbol - ifTrue: [ self merge: (self perform: structureOrSymbol) ] - ifFalse: - [ self - depthFirstOf: structureOrSymbol - do: - [ : each | each isVariableBinding - ifTrue: - [ currentRepository := self class repositoryFor: each. - currentRepository cacheAllFilenames. - toUncache add: currentRepository ] - ifFalse: - [ each isString - ifTrue: [ self primMerge: each ] - ifFalse: [ self error: 'invalid specification' ] ] ] ]. - toUncache do: - [ : each | each flushAllFilenames ]! Item was added: + ----- Method: Installer>>packageDependenciesFor:do: (in category 'private') ----- + packageDependenciesFor: structureOrSymbol do: twoArgBlock + "Value twoArgBlock with each package name and the currently-specified repository where that package resides." + structureOrSymbol isSymbol + ifTrue: + [ self + packageDependenciesFor: (self perform: structureOrSymbol) + do: twoArgBlock ] + ifFalse: + [ self + depthFirstOf: structureOrSymbol + do: + [ : each | each isVariableBinding + ifTrue: [ currentRepository := each ] + ifFalse: + [ each isString + ifTrue: + [ twoArgBlock + value: each + value: currentRepository ] + ifFalse: [ self error: 'invalid specification' ] ] ] ]! Item was changed: ----- Method: Installer>>primMerge: (in category 'private') ----- primMerge: packageName + | version repo | + repo := self class repositoryFor: currentRepository. + version := (repo includesVersionNamed: packageName) + ifTrue: [ repo versionNamed: packageName ] + ifFalse: [ repo highestNumberedVersionForPackageNamed: packageName ]. - | version | - version := (currentRepository includesVersionNamed: packageName) - ifTrue: [ currentRepository versionNamed: packageName ] - ifFalse: [ currentRepository highestNumberedVersionForPackageNamed: packageName ]. [ version shouldMerge ifTrue: [ version merge ] ifFalse: [ version load ] ] on: MCNoChangesException + do: [ : req | req resume ] - do: - [ : req | req resume ] on: MCMergeResolutionRequest do: [ : request | request merger conflicts isEmpty ifTrue: [ request resume: true ] ifFalse: [ request pass ] ]. + version workingCopy repositoryGroup addRepository: repo! - version workingCopy repositoryGroup addRepository: currentRepository!

1 0

etarsoinl:
by Tobias Pape 22 Jun '16

22 Jun '16

Hi all I was curious about the relative distribution of characters in Squeak Code. I sampled the source code[1] and drew a histogram (Attached) Here are my results: - The most frequent (printable) characters are in order etarsoinl: and more detailed, the 90 most frequent characters: etarsoinl:cdfumhpg.ybwSv"=1CT'x][0F)(k2ANPI|M^B4O7D6R3598#EL-,zWVjU;H+q/>*<G@KX${}YQZJ\~?! - This is quit close to actual English: etaonishrlducmwyfgpbvkjxqz - Observations: - The most frequent punctuation is : and . follows quite long after. - Cascading is comparatively rare. We have more blocks and equality/identity comparisons than ; - Blocks are more common than parenthesis and literal arrays - You cannot spell ifTrue or ifFalse with the 20 most common characters - ifTrue: is far more common than ifFalse: - The most frequent uppercase Character is S. I have no conjecture here, tho. - Comparison: - Here's C, sampling the Linux kernel: et_risancodlupfm,);(*0hvgb-E=x>ITRSACkNL.P1O/wD2My"{}UF&3GB4q86HV5:<X#[]+zK7W9Y|%\!jQZ' - under_score_case vs. camelCase is rather obvious. - (not displayed but tab and newline are amog the 6 most frequent characters!) - Punctuation starts much earlier. - The beginning differs a lot, the ending not so much. - 0 is far more important than 1 - : is unimportant - Here's Ruby, sampling Rails: etsaonridl_cupmh.f:,"gb')(=y#vw/kq>ATx0<1R[]@S{}CE|2?-zjDMIPN+BO\F3L5!HU%&4*98GW6;YV7J`X - underscore shows, but not so much as in C. - The : is (like in Smalltalk) more important - Uppercase is more uncommon than in both C and Smalltalk. Have fun! Best regards -Tobias [1]: " Uses the new HistogramMorph " | characterFrequency | CurrentReadOnlySourceFiles cacheDuring: [ characterFrequency := ((CompiledMethod allInstances select: [:method | (method allLiterals detectSum: [:lit | lit isCollection ifFalse: [0] ifTrue: [lit size]]) < 1500]) gather: [:method | method getSource reject: [:c |c isSeparator]]) asBag]. (HistogramMorph on: characterFrequency) labelBlock: [:c | c codePoint > 32 ifTrue:[c asString] ifFalse: [c printString]]; openInWorld. ((characterFrequency sortedCounts collect: [:ea | ea value]) first: 90) join.

3 2

Re: System and user processe
by Max Leske 22 Jun '16

22 Jun '16

>> Message: 17 >> Date: Tue, 21 Jun 2016 00:33:17 -0700 (PDT) >> From: "marcel.taeumel" <Marcel.Taeumel(a)hpi.de> >> Subject: [squeak-dev] Re: [Vm-dev] System and user processes >> To: squeak-dev(a)lists.squeakfoundation.org >> Message-ID: <1466494397918-4902025.post(a)n4.nabble.com> >> Content-Type: text/plain; charset=UTF-8 >> >> Chris Muller-3 wrote >> Hi Max, I had a similar idea, and made a ClientProcess class. Its >> primary purpose is to provide a nice wrapping API for *users* to >> manage their "background running tasks" (i.e., #start, #stop, #pause, >> #resume, #progress, #priority adjustment), as well as a nice API for >> *developers* to report its progress via a simple signaling mechanism, >> which also gives the user all the performance stats for "free" too >> like #unitsCompleted, #runningTime, #ratePerSecond, #remainingTime, >> etc. >> >> On Sun, Jun 19, 2016 at 4:03 AM, Max Leske < >> >> maxleske@ >> >> > wrote: >> >> Hi, >> >> In Pharo and Squeak we have no separation between processes that belong >> to the IDE, tools etc. and processes that are spawned as part of an >> application. I’d like to know your opinion on the following (rough) idea: >> >> 1. We introduce two subclasses of Process: SystemProcess and UserProcess >> 2. We define #isSystemProcess and #isUserProcess >> 3. We introduce #newSystemProcess and #newUserProcess >> 4. We deprecate #newProcess and delegate to #newUserProcess (thereby >> modifying all users of #forkXXX to yield instances of UserProcess) >> >> Of the following I’m less sure: >> 5. We introduce #forkSystemProcess et. al >> >> I’ve tried this out in Pharo 6 and there seem to be no problems with the >> VM. The benefit would be improved separation between system and user >> space. It would allow us to implement stuff for processes in general >> (e.g. for the debugger) which we do not want to affect system processes >> like the UI process or the background process. One concrete example: the >> process browser could hide all system processes and make them visible on >> demand (that would greatly improve the view because you can now better >> find your own processes). >> >> >> I’m looking forward to your comments. >> >> Cheers, >> Max > > Hi Chris, > > Hmm... I would implement such an API rather via composition than > inheritance. Such a task does not necessarily have to run in the same image > but could also be accomplished on another machine. OSProcess has RemoteTask > for this. Inheritance would make things complicated once one would decide to > not carry out the computation as a Squeak process. > > I do like Tony's idea of process groups. We could think this one step > further an add multiple tags (symbols?) to processes to support > fine-granular or cross-cutting classifications. Tools like the process > browser could show these tags, group by them, etc. There could be tags to > identify processes that would stop working once you close the Squeak image > (e.g. "not resumable")... Hmmm... Application developers could use tags to > provide hints for other developers and users. > > Best, > Marcel Good point. Inheritance is nice but as for our infamous stream hierarchy processes would probably need to be grouped by different traits. But I think that groups and tags may be two different things. Tony’s “current process group” for instance would have to implemented as a special tag already, unless a new process simply inherited all tags. In Pharo (I don’t know about Squeak) we now have a session manager that can be asked if the current session has changed, i.e. whether the image has been restarted. Now, instead of checking in with the session manager explicitly I could use a “session dependant” process, which terminates when the session changes. Cheers, Max

3 2

Re: [squeak-dev] The Trunk: SMLoader-tpr.87.mcz
by Chris Muller 22 Jun '16

22 Jun '16

Very nice. :) On Tue, Jun 21, 2016 at 3:29 PM, <commits(a)source.squeak.org> wrote: > tim Rowledge uploaded a new version of SMLoader to project The Trunk: > http://source.squeak.org/trunk/SMLoader-tpr.87.mcz > > ==================== Summary ==================== > > Name: SMLoader-tpr.87 > Author: tpr > Time: 21 June 2016, 1:29:19.632444 pm > UUID: e1857350-474a-4c4d-a5af-f8d6226c3f79 > Ancestors: SMLoader-mt.86 > > Improve (hopefully) the SM release browser so that > a) when hitting the save button it automatically accepts changed text in the name/version/script etc views, thus avoiding the need to accept each one individually. > b) instead of a blank script view we provide some examples to offer a clue to the user > > =============== Diff against SMLoader-mt.86 =============== > > Item was added: > + ----- Method: SMReleaseBrowser>>exampleLoadScript (in category 'private') ----- > + exampleLoadScript > + "this is an example load script to offer the user rather than a blank view" > + > + ^'"This is where you need to provide an install script; you may need to handle prerequisites first and then load the actual package(s) Take a look at http://wiki.squeak.org/squeak/6182 for more info, especially about creating a ''load latest version'' script" > + "Example to load a prerequisite package - " > + SMSqueakMap default > + installPackageNamed: ''myPackage'' > + version: ''release name''. > + "Example to load myPackage if a certain class is not already in the image -" > + (Smalltalk hasClassNamed: #MyPackage) > + ifFalse:[SMSqueakMap default > + installPackageNamed: ''myPackage'' > + version: ''release name'']. > + "Or load several specifc mcz files -" > + #( ''MyPackagePartA-abc.1.mcz'' ''MyPackagePartB-abc.42.mcz'' ) do: > + [:each| (Installer repository: ''http://www.squeaksource.com/MyPackages'') install: each]'! > > Item was changed: > ----- Method: SMReleaseBrowser>>loadScript (in category 'model access') ----- > loadScript > "The Smalltalk code needed to install this release of this package." > + ^ loadScript > + ifNil: [| scriptName | > + scriptName := release downloadFileName. > + loadScript := scriptName isEmptyOrNil > + ifFalse: [(scriptName asLowercase endsWith: '.st') > + ifTrue: [release contents]] > + ifTrue: [self exampleLoadScript]]! > - ^ loadScript ifNil: > - [ | scriptName | > - scriptName := release downloadFileName. > - loadScript := scriptName isEmptyOrNil ifFalse: > - [ (scriptName asLowercase endsWith: '.st') ifTrue: [ release contents ] ] ]! > > Item was changed: > ----- Method: SMReleaseBrowser>>validateCanSave (in category 'private') ----- > validateCanSave > + "accept any changes in the text field morphs etc, then validate the input as best we can" > + self changed: #acceptChanges. > self username isEmptyOrNil ifTrue: [ self userError: 'username required' ]. > self note isEmptyOrNil ifTrue: [ self userError: 'note required' ]. > self version isEmptyOrNil > ifTrue: [ self userError: 'version required' ] > ifFalse: > [ (self version includes: $+) ifTrue: [ self userError: 'Plus sign not allowed in version name because it is reserved by HTTP.' ] ]! > >

1 0

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

Jump to page: