Skip to content

Squeak bootstrap #553

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
LinqLover wants to merge 4 commits into
base: master
Choose a base branch
from
Open

Squeak bootstrap #553

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
e8a1b8b
Add first version of SAR generation script
tom95 May 29, 2022
2c35e25
Ensure topological sorting of SAR packages
LinqLover May 29, 2022
3fedf56
squeak: SAR script: load help, document
LinqLover Jun 3, 2022
7530539
squeak: mv create{_sar,SAR}.st
LinqLover Jun 3, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
37 changes: 37 additions & 0 deletions scripts/squeak/createSAR.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,37 @@
"Generate a SAR file of all relevant packages to install Metacello
NOTE: Make sure to run this script in an image that only contains the minimum of required packages. Further packages from any dependencies (such as STON) will be added to the SAR file independently of the requirements specified in the baseline."

| spec packageNames firstPackageNames zip preamble |
spec := #('default' 'Metacello-Help').

packageNames := ((BaselineOfMetacello project version: 'baseline')
allPackagesForSpecNamed: spec)
collect: #name.
packageNames := packageNames copyWithoutAll: MCRepository trunk allPackageNames.
firstPackageNames := #('Metacello-Base' 'Metacello-Core' 'MonticelloFileTree-Core'). "To overcome cyclic dependencies, define starter packages manually"
packageNames := firstPackageNames , ((packageNames copyWithoutAll: firstPackageNames)
topologicallySortedUsing: [:a :b | ((DependencyBrowser new selectPackage: a; packageDeps) includes: b) not]). "O(n**2) bust fast enough for now"

zip := ZipArchive new.
preamble := String streamContents: [:preambleStream |
preambleStream
nextPutAll: '| loader |
((Smalltalk globals includesKey: #MetacelloStub) and: [(Smalltalk at: #Metacello ifAbsent: [nil]) = (Smalltalk at: #MetacelloStub)]) ifTrue: [
Smalltalk globals removeKey: #Metacello].
loader := MCVersionLoader new.';
cr.
packageNames do: [:name | | stream version |
stream := RWBinaryOrTextStream on: (String new: 10000).
version := MCVersion
package: (MCPackage named: name)
info: (MCPackage named: name) workingCopy ancestry ancestors first.
version fileOutOn: stream.
(zip addString: stream contents as: name, '.mcz') desiredCompressionLevel: 0.
preambleStream
nextPutAll: 'loader addVersion: (MCMczReader versionFromStream: (self memberNamed: ''';
nextPutAll: name;
nextPutAll: '.mcz'') contentStream).';
cr].
preambleStream nextPutAll: 'loader load.'].
zip addString: preamble as: 'install/preamble'.
zip writeToFileNamed: 'metacello.sar'.