Squeak-dev August 2013

squeak-dev@lists.squeakfoundation.org

45 participants
157 discussions

The Trunk: Monticello-cmm.555.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.555.mcz ==================== Summary ==================== Name: Monticello-cmm.555 Author: cmm Time: 14 August 2013, 1:09:56.144 pm UUID: 43f4f721-a5a3-4625-b12c-b9ab0c790cdf Ancestors: Monticello-cmm.554 - Must use one-way become: to avoid the FileBasedRepository 'cache' from ending up referring to a MCInfoProxy. =============== Diff against Monticello-cmm.554 =============== Item was changed: ----- Method: MCInfoProxy>>becomeAncestry (in category 'private') ----- becomeAncestry + ^ self becomeForward: (MCProxyMaterialization signalMaterializing: self)! - ^ self become: (MCProxyMaterialization signalMaterializing: self)!

1 0

The Trunk: Monticello-cmm.554.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.554.mcz ==================== Summary ==================== Name: Monticello-cmm.554 Author: cmm Time: 13 August 2013, 9:01:49.122 pm UUID: 2c3b86d1-de37-4306-8dcf-c8653e3657ff Ancestors: Monticello-cmm.553 MCRepositoryGroup support #flushCache api. =============== Diff against Monticello-cmm.553 =============== Item was added: + ----- Method: MCRepository>>flushCache (in category 'private') ----- + flushCache + "Subclasses override as desired."! Item was changed: ----- Method: MCRepositoryGroup class>>flushAllCaches (in category 'as yet unclassified') ----- flushAllCaches + self default flushCache! - self default repositoriesDo: - [ : each | each flushCache ]! Item was added: + ----- Method: MCRepositoryGroup>>flushCache (in category 'repository-api') ----- + flushCache + self repositoriesDo: [ : each | each flushCache ]!

1 0

The Trunk: Monticello-cmm.553.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.553.mcz ==================== Summary ==================== Name: Monticello-cmm.553 Author: cmm Time: 13 August 2013, 4:03:35.008 pm UUID: 45077112-2b68-48f5-814a-2de27c394101 Ancestors: Monticello-cmm.552 - Let the new proxy only refer to a _copy_ of the referencing info, so we don't trim infos that may be referenced by others such as the FileDirectory caches. - Begrudingly introduced MCProxyMaterialization, a Notification signaled whenever a MCInfoProxy is agitated. This mechanism allows both monitoring and intervention into MC proxy materializations. =============== Diff against Monticello-cmm.552 =============== Item was changed: ----- Method: MCAncestry>>stubAncestryUsing: (in category 'initialize-release') ----- stubAncestryUsing: aMCRepository ancestors := ancestors collect: [ : each | MCInfoProxy + info: each copyWithTrimmedAncestry - info: each withTrimmedAncestry repository: aMCRepository ]! Item was changed: ----- Method: MCInfoProxy>>becomeAncestry (in category 'private') ----- becomeAncestry + ^ self become: (MCProxyMaterialization signalMaterializing: self)! - ^ self become: (repository versionWithInfo: info) info! Item was added: + ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- + materializeInfo + ^ (repository versionWithInfo: info) info! Item was added: + Notification subclass: #MCProxyMaterialization + instanceVariableNames: 'proxy' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Repositories'! Item was added: + ----- Method: MCProxyMaterialization class>>signalMaterializing: (in category 'as yet unclassified') ----- + signalMaterializing: aMCInfoProxy + ^ self new + setProxy: aMCInfoProxy; + signal! Item was added: + ----- Method: MCProxyMaterialization>>defaultAction (in category 'overriding') ----- + defaultAction + self resume: proxy materializeInfo! Item was added: + ----- Method: MCProxyMaterialization>>setProxy: (in category 'initialize-release') ----- + setProxy: aMCInfoProxy + proxy := aMCInfoProxy! Item was added: + ----- Method: MCVersionInfo>>copyWithTrimmedAncestry (in category 'initialize-release') ----- + copyWithTrimmedAncestry + ^ self copy postCopyWithTrimmedAncestry! Item was added: + ----- Method: MCVersionInfo>>postCopyWithTrimmedAncestry (in category 'copying') ----- + postCopyWithTrimmedAncestry + ancestors := Array empty! Item was removed: - ----- Method: MCVersionInfo>>withTrimmedAncestry (in category 'initialize-release') ----- - withTrimmedAncestry - ancestors := Array empty. - ^ self!

1 0

The Trunk: Monticello-cmm.552.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.552.mcz ==================== Summary ==================== Name: Monticello-cmm.552 Author: cmm Time: 13 August 2013, 11:13:41.446 am UUID: 76c39deb-108e-4900-a040-872356170e4c Ancestors: Monticello-fbs.551 - Introducing MCInfoProxy, a proxy object which loosely refers to a MCVersionInfo residing in its original respository, so that the many thousands of old MCVresionInfo instances can be purged from memory, resulting in a slimmer image. - The purge is activated via MCWorkingCopy stubOldPackageInfos, or at the same time the user selects "flush cached versions" from the menu (because the goal of the user in selecting that is to slim the image). - The most recent 10 VersionInfo's for each MCWorkingCopy are kept in memory, allowing diffs from the menu to be activated without needing to re-retrieve from the repository. - If an operation requiring the full ancestry tree is required, the original VersionInfo is automatically retrieved again from their descendants repository. This assumes the descendants exist in the same repository as their ancestors. =============== Diff against Monticello-fbs.551 =============== Item was changed: + ----- Method: MCAncestry>>initialize (in category 'initialize-release') ----- - ----- Method: MCAncestry>>initialize (in category 'initializing') ----- initialize ancestors := #(). stepChildren := #()! Item was added: + ----- Method: MCAncestry>>stubAncestryUsing: (in category 'initialize-release') ----- + stubAncestryUsing: aMCRepository + ancestors := ancestors collect: + [ : each | MCInfoProxy + info: each withTrimmedAncestry + repository: aMCRepository ]! Item was added: + ProtoObject subclass: #MCInfoProxy + instanceVariableNames: 'info repository' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Repositories'! + + !MCInfoProxy commentStamp: 'cmm 8/12/2013 21:51' prior: 0! + A MCInfoProxy takes the place of a MCVersionInfo with a large tree of ancestors that consume memory in the image, but are almost never accessed. If they are, however, I will dynamically retrieve and become the Info from the original MC repository which includes the full ancestry tree.! Item was added: + ----- Method: MCInfoProxy class>>info:repository: (in category 'create') ----- + info: aMCVersionInfo repository: aMCRepository + ^ self new + + setInfo: aMCVersionInfo + repository: aMCRepository! Item was added: + ----- Method: MCInfoProxy>>becomeAncestry (in category 'private') ----- + becomeAncestry + ^ self become: (repository versionWithInfo: info) info! Item was added: + ----- Method: MCInfoProxy>>doesNotUnderstand: (in category 'private') ----- + doesNotUnderstand: aMessage + ^ aMessage sendTo: self becomeAncestry! Item was added: + ----- Method: MCInfoProxy>>setInfo:repository: (in category 'initialize-release') ----- + setInfo: aMCVersionInfo repository: aMCRepository + info := aMCVersionInfo. + repository := aMCRepository! Item was removed: - ----- Method: MCReader>>initialize (in category 'lifecycle') ----- - initialize! Item was changed: ----- Method: MCRepository>>includesVersionNamed: (in category 'versions') ----- includesVersionNamed: aString + "Subclasses may want to override for better performance." + ^ (self versionNamed: aString) notNil! - self subclassResponsibility! Item was added: + ----- Method: MCVersionInfo>>withTrimmedAncestry (in category 'initialize-release') ----- + withTrimmedAncestry + ancestors := Array empty. + ^ self! Item was added: + ----- Method: MCWorkingCopy class>>stubOldPackageInfos (in category 'cleanup') ----- + stubOldPackageInfos + "Replace VersionInfo instances which are more than 10 versions behind with a MCInfoProxy which will dynamically re-retrieve them from the current repository if necessary." + MCWorkingCopy allManagers do: [ : each | each stubAncestry ]! Item was added: + ----- Method: MCWorkingCopy>>stubAncestry (in category 'operations') ----- + stubAncestry + "Stub all but the most recent 10 of my ancestry tree to save memory with a proxy which can be transparently accessed later, if necessary." + repositoryGroup ifNotNil: + [ | tenAgo count | + count := 0. + ancestry ancestorsDoWhileTrue: + [ : each | tenAgo := each. + (count := count + 1) < 10 ]. + tenAgo stubAncestryUsing: repositoryGroup ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>flushAllCaches (in category 'actions') ----- flushAllCaches | beforeBytes afterBytes beforeVersions afterVersions | Cursor wait showWhile: [ beforeBytes := Smalltalk garbageCollect. beforeVersions := MCVersion allSubInstances size. MCFileBasedRepository flushAllCaches. + MCWorkingCopy stubOldPackageInfos. afterBytes := Smalltalk garbageCollect. afterVersions := MCVersion allSubInstances size. ]. ^self inform: (beforeVersions - afterVersions) asString, ' versions flushed', String cr, (afterBytes - beforeBytes) asStringWithCommas, ' bytes reclaimed'!

1 0

The Trunk: Kernel-cmm.802.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.802.mcz ==================== Summary ==================== Name: Kernel-cmm.802 Author: cmm Time: 14 August 2013, 1:18:41.14 pm UUID: 1897a745-29bf-41be-a5a9-e1664d6334a9 Ancestors: Kernel-bf.801 - In looking at the API of ProtoObject, isKindOf: was the only odd-man out. Proxy subclasses needing that should copy the implementation into themselves. - #becomeForward: belongs in ProtoObject along with #become:. =============== Diff against Kernel-bf.801 =============== Item was removed: - ----- Method: Object>>becomeForward: (in category 'system primitives') ----- - becomeForward: otherObject - "Primitive. All variables in the entire system that used to point - to the receiver now point to the argument. - Fails if either argument is a SmallInteger." - - (Array with: self) - elementsForwardIdentityTo: - (Array with: otherObject)! Item was removed: - ----- Method: Object>>becomeForward:copyHash: (in category 'system primitives') ----- - becomeForward: otherObject copyHash: copyHash - "Primitive. All variables in the entire system that used to point to the receiver now point to the argument. - If copyHash is true, the argument's identity hash bits will be set to those of the receiver. - Fails if either argument is a SmallInteger." - - (Array with: self) - elementsForwardIdentityTo: - (Array with: otherObject) - copyHash: copyHash! Item was added: + ----- Method: Object>>isKindOf: (in category '-- all --') ----- + isKindOf: aClass + "Answer whether the class, aClass, is a superclass or class of the receiver." + ^ self class == aClass or: [ self class inheritsFrom: aClass ]! Item was added: + ----- Method: ProtoObject>>becomeForward: (in category 'system primitives') ----- + becomeForward: otherObject + "Primitive. All variables in the entire system that used to point + to the receiver now point to the argument. + Fails if either argument is a SmallInteger." + + (Array with: self) + elementsForwardIdentityTo: + (Array with: otherObject)! Item was added: + ----- Method: ProtoObject>>becomeForward:copyHash: (in category 'system primitives') ----- + becomeForward: otherObject copyHash: copyHash + "Primitive. All variables in the entire system that used to point to the receiver now point to the argument. + If copyHash is true, the argument's identity hash bits will be set to those of the receiver. + Fails if either argument is a SmallInteger." + + (Array with: self) + elementsForwardIdentityTo: + (Array with: otherObject) + copyHash: copyHash! Item was removed: - ----- Method: ProtoObject>>isKindOf: (in category 'testing') ----- - isKindOf: aClass - "Answer whether the class, aClass, is a superclass or class of the receiver." - ^ self class == aClass or: [ self class inheritsFrom: aClass ]!

1 0

Re: [squeak-dev] The Inbox: Installer-Core-cmm.380.mcz
by Frank Shearar 14 Aug '13

14 Aug '13

On 13 August 2013 23:56, <commits(a)source.squeak.org> wrote: > A new version of Installer-Core was added to project The Inbox: > http://source.squeak.org/inbox/Installer-Core-cmm.380.mcz > > ==================== Summary ==================== > > Name: Installer-Core-cmm.380 > Author: cmm > Time: 13 August 2013, 5:56:00.893 pm > UUID: 565892cf-7178-4806-8fb1-63523b83de58 > Ancestors: Installer-Core-cmm.379 > > Fix for using Installer with MCDirectoryRepository's. > > =============== Diff against Installer-Core-cmm.379 =============== > > Item was changed: > ----- Method: InstallerMonticello>>project: (in category 'accessing') ----- > project: name > > project := name. > packages := nil. > > (mc respondsTo: #location:) ifTrue:[ mc := mc copy location: root , name ]. > + (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root / name ]. > - (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root ,'/', name ]. IIRC the nasty thing about this kind of bug is that it works on Linux (but not on any other OS that doesn't use / as a separator, like Windows). frank

2 3

The Inbox: Installer-Core-cmm.380.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

A new version of Installer-Core was added to project The Inbox: http://source.squeak.org/inbox/Installer-Core-cmm.380.mcz ==================== Summary ==================== Name: Installer-Core-cmm.380 Author: cmm Time: 13 August 2013, 5:56:00.893 pm UUID: 565892cf-7178-4806-8fb1-63523b83de58 Ancestors: Installer-Core-cmm.379 Fix for using Installer with MCDirectoryRepository's. =============== Diff against Installer-Core-cmm.379 =============== Item was changed: ----- Method: InstallerMonticello>>project: (in category 'accessing') ----- project: name project := name. packages := nil. (mc respondsTo: #location:) ifTrue:[ mc := mc copy location: root , name ]. + (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root / name ]. - (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root ,'/', name ]. ^self copy.!

1 0

The Inbox: Installer-Core-cmm.379.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

A new version of Installer-Core was added to project The Inbox: http://source.squeak.org/inbox/Installer-Core-cmm.379.mcz ==================== Summary ==================== Name: Installer-Core-cmm.379 Author: cmm Time: 13 August 2013, 3:28:48.017 pm UUID: 6efab8ff-b53e-45f5-9fd0-0b77da7670ed Ancestors: Installer-Core-cmm.378 - Fix and refine the repository override API to account more closely with real-world use cases. =============== Diff against Installer-Core-cmm.378 =============== Item was added: + ----- Method: Installer class>>airplaneMode (in category 'repository-overrides') ----- + airplaneMode + "Override all remote repositories with the package cache." + self overrideRemoteRepostoriesWith: MCCacheRepository default! Item was added: + ----- Method: Installer class>>clearOverrides (in category 'repository-overrides') ----- + clearOverrides + "When using the new merge:, remove all repository overrides and load everthing from the specified default repositories." + Repositories := Dictionary new! Item was changed: + ----- Method: Installer class>>defaultRepositoryFor: (in category 'private') ----- + defaultRepositoryFor: anAssociation + "private -- answer the MC repository specified by anAssociation." - ----- Method: Installer class>>defaultRepositoryFor: (in category 'repositories') ----- - defaultRepositoryFor: anAssociation ^ (self perform: anAssociation key) project: anAssociation value ; mc! Item was removed: - ----- Method: Installer class>>fallbackRepositoryFor:is: (in category 'repositories') ----- - fallbackRepositoryFor: scope is: anMCRepository - self - overrideRepositoryFor: scope - with: - (MCRepositoryGroup new - addRepository: (self defaultRepositoryFor: scope) ; - addRepository: anMCRepository ; - yourself)! Item was added: + ----- Method: Installer class>>overrideRemoteRepostoriesWith: (in category 'repository-overrides') ----- + overrideRemoteRepostoriesWith: aMCRepositoryOrGroup + self remoteRepositories do: + [ : each | self + overrideRepository: each + with: aMCRepositoryOrGroup ]! Item was changed: + ----- Method: Installer class>>overrideRepository:with: (in category 'repository-overrides') ----- - ----- Method: Installer class>>overrideRepository:with: (in category 'repositories') ----- overrideRepository: scope with: anMCRepository + "When configuring the image with #merge:, override the standard repository specified by scope with anMCRepository. + Example 1: + ""I'm working on the HTML parser on ss3, load all packages assosciated with that from my local mc directory. Everything else from remote directories."" + Installer + override: #ss3->'htmlcssparser' + with: (MCDirectoryRepository directory: (FileDirectory default / 'mc')). + + Example 2: + ""SqueakSource is down. Override all projects from there to point to the mirror."" + Installer + override: #ss + with: #ssMirror." + - "Override the standard repository specified by scope with anMCRepository. To override an entire repository, specify scope as the repository selector. To override a single project within a repository, scope should be an Association whose key is the repository selector and value is the project name." self repositories at: scope put: anMCRepository! Item was removed: - ----- Method: Installer class>>preemptRepository:with: (in category 'repositories') ----- - preemptRepository: scope with: anMCRepository - self - overrideRepositoryFor: scope - with: - (MCRepositoryGroup new - addRepository: anMCRepository ; - addRepository: (self defaultRepositoryFor: scope) ; - yourself)! Item was added: + ----- Method: Installer class>>remoteRepositories (in category 'repository-overrides') ----- + remoteRepositories + ^ #(#ss #ss3 #cobalt #gemsource #goran #gs #impara #keith #krestianstvo #lukas #saltypickle #sophie #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! Item was changed: + ----- Method: Installer class>>removeOverride: (in category 'repository-overrides') ----- - ----- Method: Installer class>>removeOverride: (in category 'repositories') ----- removeOverride: scope "Remove override specified by scope and return to using the default repository for packages within that scope." ^ self repositories removeKey: scope ifAbsent: [ ]! Item was changed: + ----- Method: Installer class>>repositoryFor: (in category 'private') ----- + repositoryFor: anAssociation + "private -- anAssociation key is the repository selector Symbol understood by Intsaller class. It's value is the project name within that HTTP repository." - ----- Method: Installer class>>repositoryFor: (in category 'repositories') ----- - repositoryFor: anAssociation | rep | rep := self repositories + at: anAssociation "<-- check for #rep->project overrides first" - at: anAssociation ifAbsent: [ self repositories + at: anAssociation value "<-- next for just the project, regardless of repository" - at: anAssociation value ifAbsent: [ self repositories + at: anAssociation key "<-- finally for a general repository redirection." - at: anAssociation key ifAbsent: [ ^ self defaultRepositoryFor: anAssociation ] ] ]. ^ rep isSymbol + ifTrue: + [ "Support for redirection from repository selector to another." + self defaultRepositoryFor: rep -> anAssociation value ] - ifTrue: [ self defaultRepositoryFor: rep -> anAssociation value ] ifFalse: [ rep ]! Item was added: + ----- Method: Installer class>>ssMirror (in category 'repositories') ----- + ssMirror + "The Chilean mirror for the original SqueakSource." + ^ self monticello http: 'http://dsal.cl/squeaksource/'!

1 0

Re: [squeak-dev] The Trunk: Installer-Core-cmm.377.mcz
by Chris Muller 14 Aug '13

14 Aug '13

As Frank works toward a smaller image where packages have been unloaded, I want to establish the hierarchies for reloading them directly into the image. This approach utilizes simple Smalltalk literal structures, suitable for making a core image expandable without bloating it. Since it is so little code (with good pop), and no disruption to anything, I felt comfortable putting into trunk. On Fri, Aug 9, 2013 at 5:21 PM, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of Installer-Core to project The Trunk: > http://source.squeak.org/trunk/Installer-Core-cmm.377.mcz > > ==================== Summary ==================== > > Name: Installer-Core-cmm.377 > Author: cmm > Time: 9 August 2013, 9:51:53.931 am > UUID: 85dd5a14-e50a-482c-b9cb-f8971264f602 > Ancestors: Installer-Core-fbs.373 > > Document externally-loadable Squeak packages as simple literal structures that can be merged via: > > Installer new merge: #thePackageName > > =============== Diff against Installer-Core-fbs.373 =============== > > Item was changed: > Object subclass: #Installer > + instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel currentRepository' > - instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel' > classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered SkipLoadingTests ValidationBlock' > poolDictionaries: '' > category: 'Installer-Core'! > > !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! > Documentation now available at http://installer.pbwiki.com/Installer > > useFileIn - flag to load source.st rather than using Monticello! > > Item was added: > + ----- Method: Installer class>>krestianstvo (in category 'repositories') ----- > + krestianstvo > + "Krestianstvo SDK code repository." > + ^ self monticello http: 'http://sdk.krestianstvo.org/sdk/'! > > Item was added: > + ----- Method: Installer>>broomMorphsBase (in category 'external-packages') ----- > + broomMorphsBase > + "Morph alignment user-interface tool." > + ^ { #ss3 -> 'Connectors'. > + 'BroomMorphs-Base' }! > > Item was added: > + ----- Method: Installer>>connectors (in category 'external-packages') ----- > + connectors > + "Connect Morphs together. Make diagrams." > + ^ { self broomMorphsBase. > + 'CGPrereqs'. > + 'FSM'. > + 'Connectors'. > + 'ConnectorsText'. > + 'ConnectorsShapes'. > + 'ConnectorsTools'. > + 'ConnectorsGraphLayout'. > + 'BroomMorphs-Connectors' }! > > Item was added: > + ----- Method: Installer>>curvedSpaceExplorer (in category 'external-packages') ----- > + curvedSpaceExplorer > + "Explore curved 3D spaces." > + ^ { self openGL. > + 'CCSpaceExplorer' }! > > Item was added: > + ----- Method: Installer>>depthFirstOf:do: (in category 'private') ----- > + depthFirstOf: structure do: oneArgBlock > + self > + depthFirstOf: structure > + do: oneArgBlock > + ifNotIn: Set new! > > Item was added: > + ----- Method: Installer>>depthFirstOf:do:ifNotIn: (in category 'private') ----- > + depthFirstOf: structure do: oneArgBlock ifNotIn: aSet > + (aSet includes: structure) ifTrue: [ ^ self ]. > + aSet add: structure. > + structure isArray > + ifTrue: > + [ structure do: > + [ : each | self > + depthFirstOf: each > + do: oneArgBlock > + ifNotIn: aSet ] ] > + ifFalse: [ oneArgBlock value: structure ]! > > Item was added: > + ----- Method: Installer>>ffi (in category 'external-packages') ----- > + ffi > + "Foreign Function Interface." > + ^ { #squeak -> 'FFI'. > + 'FFI-Pools'. > + 'FFI-Kernel' }! > > Item was added: > + ----- Method: Installer>>ffiTests (in category 'external-packages') ----- > + ffiTests > + "Tests for Foreign Function Interface." > + ^ { self ffi. > + 'FFI-Tests' }! > > Item was added: > + ----- Method: Installer>>fuel (in category 'external-packages') ----- > + fuel > + "Serialization package." > + ^ { #ss3 -> 'Fuel'. > + 'ConfigurationOfFuel' }! > > Item was added: > + ----- Method: Installer>>htmlValidator (in category 'external-packages') ----- > + htmlValidator > + "Validates HTML and CSS pages against W3C DTD." > + ^ { #ss -> 'htmlcssparser'. > + 'HTML-tb.37' }! > > Item was added: > + ----- Method: Installer>>merge: (in category 'public interface') ----- > + merge: structureOrSymbol > + structureOrSymbol isSymbol > + ifTrue: [ self merge: (self perform: structureOrSymbol) ] > + ifFalse: > + [ self > + depthFirstOf: structureOrSymbol > + do: > + [ : each | each isVariableBinding > + ifTrue: [ self setRepository: each ] > + ifFalse: > + [ each isString > + ifTrue: [ self primMerge: each ] > + ifFalse: [ self error: 'invalid specification' ] ] ] ]! > > Item was added: > + ----- Method: Installer>>openGL (in category 'external-packages') ----- > + openGL > + "3D library." > + ^ { self threeDtransform. > + #krestianstvo -> 'ccse'. > + 'OpenGL-Pools'. > + 'OpenGL-Core'. > + 'OpenGL-NameManager' }! > > Item was added: > + ----- Method: Installer>>osProcess (in category 'external-packages') ----- > + osProcess > + "Launch external executable programs." > + ^ { #ss -> 'OSProcess'. > + 'OSProcess' }! > > Item was added: > + ----- Method: Installer>>primMerge: (in category 'private') ----- > + primMerge: 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 ] > + on: MCMergeResolutionRequest > + do: > + [ : request | request merger conflicts isEmpty > + ifTrue: [ request resume: true ] > + ifFalse: [ request pass ] ]! > > Item was added: > + ----- Method: Installer>>setRepository: (in category 'private') ----- > + setRepository: anAssociation > + currentRepository := (self class perform: anAssociation key) > + project: anAssociation value ; > + mc! > > Item was added: > + ----- Method: Installer>>threeDtransform (in category 'external-packages') ----- > + threeDtransform > + ^ { self ffiTests. > + #ss -> 'CroquetGL'. > + '3DTransform' }! > > Item was added: > + ----- Method: Installer>>webClientCore (in category 'external-packages') ----- > + webClientCore > + "Simple, compact, and easy to use HTTP client implementation from Andreas Raab." > + ^ { #ss -> 'WebClient'. > + 'WebClient-Core' }! > > Item was added: > + ----- Method: Installer>>webClientSsp (in category 'external-packages') ----- > + webClientSsp > + "WebClient supports NTLM/SPNEGO authentication via the Microsoft SSP interface (Windows only)." > + ^ { self ffiTests. > + self webClientTests. > + 'WebClient-SSP' }! > > Item was added: > + ----- Method: Installer>>webClientTests (in category 'external-packages') ----- > + webClientTests > + "Help documentation and tests for Web Client." > + ^ { self webClientCore. > + 'WebClient-Tests'. > + 'WebClient-Help' }! > >

5 8

nil in an exception handler?
by Frank Shearar 13 Aug '13

13 Aug '13

My update-image script has the approximate shape ["Do a lot of stuff"] WorldState addDeferredUIMessage: [SmalltalkImage current snapshot: true andQuit: true]] on: Error do: [| e | FileStream stderr nextPutAll: 'Exception ' , e className , ' raised:'; lf; nextPutAll: e messageText; lf; flush. Smalltalk snapshot: false andQuit: true] and I'm seeing Exception UndefinedObject raised: UndefinedObject>>messageText in my output. Which means, according to my eyes at least, that the #on:do: handler is getting not an Error, but nil. That just boggles my mind. What should I look for to try figure out what's going wrong? frank

2 3

← Newer
1
...
5
6
7
8
9
10
11
...
16
Older →

Jump to page: