Thanks Colin!

On Wed, Jan 15, 2014 at 12:06 PM, Colin Putney <colin@wiresong.com> wrote:



On Wed, Jan 15, 2014 at 1:41 PM, Eliot Miranda <eliot.miranda@gmail.com> wrote:
�
I just stumbled across Monticello's MCPatcher and the Backport button which claims to apply a partial delta to the ancestor of a package. �Does anyone who understands this code know if the code supports loading a package, without installing it, applying a partial set of changes (i.e. the relevant changes form the bootstrap) and saving the package as an mcz? �If it does then I could construct patched versions of the three packages and substitute them in the bootstrap instead of using the hack.

�Yeah, that ought to work fine. There's no way to do it through the GUI, but a bit of workspace hackery should do the trick.

Here's a working example that patches a single method:

| fn fs version method patch ancestry newVersion |
fn := '/Users/eliot/Glue/repositories/spurnsboot/smalltalk/Kernel.newspeak-bwesterg.682.mcz'.
fs := FileStream readOnlyFileNamed: fn.
version := [((MCVersionReader readerClassForFileNamed: fn) on: fs fileName: fn) version] ensure: [fs close].
method := SpurBootstrap class >> #ProtoObjectPROTOTYPEscaledIdentityHash.
patch := MCPatch operations: {MCAddition of: (MCMethodDefinition
className: #ProtoObject
classIsMeta: false
selector: #scaledIdentityHash
category: #comparing
timeStamp: method timeStamp
source: (method getSourceFromFile asString allButFirst: 20))}.
ancestry := MCWorkingAncestry new addAncestor: version info.
newVersion := MCVersion
package: version package
info: (ancestry
infoWithName: 'Kernel.newspeak.spur-bwesterg.682.mcz'
message: 'Kernel.newspeak-bwesterg.682.mcz patched for Spur')
snapshot: (MCPatcher apply: patch to: version snapshot)
dependencies: {}.
(MCDirectoryRepository new directory: fs directory) storeVersion: newVersion�

--
best,
Eliot