WorkingImage -- your any Squeak image.
TargetImage -- Squeakland developper's image + latest update (See README.txt)

== Make Installer (SAR) @ WorkingImage

| stem makeZip |
stem _ Date today yyyymmdd.
makeZip _ [:name |
	| sarName src zip |
	sarName _ name, '-', stem, '.sar'.
	src _ FileDirectory default directoryNamed: name.
	zip _ ZipArchive new.
	zip addTree: src match: [:e | (e name first = $.) not].
	zip writeToFileNamed: sarName.
	zip close].
makeZip value: 'm17nFix'.
makeZip value: 'ja38'.

== Make Image @ TargetImage

"Build base image"
| stem m17nFix ja38 name |
stem _ '2005-03-18'.
m17nFix _ 'm17nFix-', stem, '.sar'.
ja38 _ 'ja38-', stem, '.sar'.
name _ 'SqueakNihongo7'.
SmalltalkImage current in: [:im |
im closeSourceFiles.
im saveChangesInFileNamed: (im fullNameForChangesNamed: name).
im saveImageInFileNamed: (im fullNameForImageNamed: name)].

SARInstaller installSAR: m17nFix.
SARInstaller installSAR: ja38.
Utilities makeNihongoImage.
SystemVersion newVersion: 'Squeakland.396-Nihongo7.29'. 
SystemVersion current highestUpdate: 29.
Preferences outOfTheBox.
SmalltalkImage current saveSession.

-----
"Build Plugin image"
SmalltalkImage current saveImageInFileNamed: 'SqueakPlugin.image'.
"Update fron Nihongo 7 Stream"
Utilities makeNihongoSqueaklandRelease.

-----
"Build Developers image"
"Update fron Nihongo 7 Stream"
Utilities makeNihongoFinalSetting.

-----
"make initial screen"
Utilities makeNihongoInitialScreen.

== Make Distribution @ WorkingImage

| stem m17nFix ja38 image changes plugin result zip |
stem _ Date today yyyymmdd.
m17nFix _ 'm17nFix-', stem, '.sar'.
ja38 _ 'ja38-', stem, '.sar'.
image _ 'NSqueak-', stem, '.image'.
changes _ 'NSqueak-', stem, '.changes'.
plugin _ 'SqueakPlugin.image'.
result _ 'NSqueak-', stem, '.zip'.

zip _ ZipArchive new.
zip addFile: (FileDirectory default fullPathFor: image) as: image.
zip addFile: (FileDirectory default fullPathFor: changes) as: changes.
zip addFile: (FileDirectory default fullPathFor: m17nFix) as: m17nFix.
zip addFile: (FileDirectory default fullPathFor: ja38) as: ja38.
zip addFile: (FileDirectory default fullPathFor: plugin) as: plugin.
zip addFile: ((FileDirectory default directoryNamed: 'ja38') fullPathFor: 'README.txt') as: 'README.txt'.
zip writeToFileNamed: result.
zip close.
result inspect.

== Publish @ WorkingImage
| stem result server saveBlock m17nFix |
stem _ Date today yyyymmdd.
result _ 'NSqueak-', stem, '.zip'.
m17nFix _ 'm17nFix-', stem, '.sar'.

server _ ServerDirectory new server: 'metatoys.org'; user: 'propella'.
server directory: '/home/propella/www/pub'.
saveBlock _ [:name |
	| zipStream |
	zipStream _ FileStream readOnlyFileNamed: name.
	zipStream binary.
	[Cursor write showWhile: [
	server putFile: zipStream named: name]] ensure: zipStream close].
saveBlock value: m17nFix.
saveBlock value: result.

$Id: HowToMakeThisDistribution.txt 1170 2005-03-18 07:44:06Z propella $