Hi Chris,

On Fri, May 29, 2015 at 4:27 PM, Chris Muller <asqueaker at gmail.com> wrote:

> Thanks Eliot these features are needed for the release.
>

So what about the details?  here's a straw man.  Produce Squeak 4.6's
changes file by doing condenseChanges on an updated image, but still
keeping SqueakV41.sources as its source file.  Produce Squeak 5.0's sources
file by doing condenseSources on an undated Spur image, which will result
in an empty changes file.


>
> On Fri, May 29, 2015 at 6:10 PM,  <commits at source.squeak.org> wrote:
> > Eliot Miranda uploaded a new version of System to project The Trunk:
> > http://source.squeak.org/trunk/System-eem.740.mcz
> >
> > ==================== Summary ====================
> >
> > Name: System-eem.740
> > Author: eem
> > Time: 29 May 2015, 4:09:46.189 pm
> > UUID: 53894fe9-e3f5-44c7-b4c2-101e4d72f0d3
> > Ancestors: System-eem.739
> >
> > Modify condensSources to preserve direct method history.
> >
> > =============== Diff against System-eem.739 ===============
> >
> > Item was changed:
> >   ----- Method: SmalltalkImage>>condenseSources (in category
> 'housekeeping') -----
> >   condenseSources
> >         "Move all the changes onto a compacted sources file."
> >         "Smalltalk condenseSources"
> >
> >         | newSourcesFile defaultDirectory newVersion currentVersion |
> >         Utilities fixUpProblemsWithAllCategory.
> >         "The above removes any concrete, spurious '-- all --'
> categories, which mess up the process."
> >         defaultDirectory := FileDirectory default.
> >         currentVersion := self sourceFileVersionString.
> >         newVersion := UIManager default
> >                 request: 'Please designate the version\for the new
> source code file...' withCRs
> >                 initialAnswer: currentVersion.
> >         newVersion ifEmpty: [ ^ self ].
> >         newVersion = currentVersion ifTrue: [ ^ self error: 'The new
> source file must not be the same as the old.' ].
> >         self sourceFileVersionString: newVersion.
> >
> >         "Write all sources with fileIndex 1"
> >         newSourcesFile := defaultDirectory newFileNamed:
> (defaultDirectory localNameFor: self sourcesName).
> >         newSourcesFile ifNil: [ ^ self error: 'Couldn''t create source
> code file in\' withCRs,  defaultDirectory name].
> >         newSourcesFile
> >                 header;
> >                 timeStamp.
> >         'Condensing Sources File...'
> >                 displayProgressFrom: 0
> >                 to: self classNames size + self traitNames size
> >                 during:
> >                         [ :bar |
> >                         | count |
> >                         count := 0.
> >                         Smalltalk allClassesAndTraitsDo:
> >                                 [ :classOrTrait |
> >                                 bar value: (count := count + 1).
> >                                 classOrTrait
> >                                         fileOutOn: newSourcesFile
> > +                                       moveSource: #historically
> > -                                       moveSource: true
> >                                         toFile: 1 ] ].
> >         newSourcesFile
> >                 trailer;
> >                 close.
> >
> >         "Make a new empty changes file"
> >         self closeSourceFiles.
> >         defaultDirectory
> >                 rename: self changesName
> >                 toBe: self changesName , '.old'.
> >         (FileStream newFileNamed: self changesName)
> >                 header;
> >                 timeStamp;
> >                 close.
> >         self lastQuitLogPosition: 0.
> >         self setMacFileInfoOn: self changesName.
> >         self setMacFileInfoOn: newSourcesFile name.
> >         self openSourceFiles.
> >         self inform: 'Source files have been rewritten to\' withCRs,
> newSourcesFile name, '\Check that all is well,\and then save/quit.' withCRs!
> >
> >
>
>


-- 
best,
Eliot
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20150529/bad29ad6/attachment.htm