version upgrade works now with internal version numbers

hpi-swa-teaching · Jun 16, 2016 · 5d02dcc · 5d02dcc
1 parent 2a21179
commit 5d02dcc
Show file tree

Hide file tree

Showing 22 changed files with 112 additions and 2 deletions.
diff --git a/packages/Algernon.package/ALGInstallation.class/README.md b/packages/Algernon.package/ALGInstallation.class/README.md
@@ -0,0 +1,4 @@
+An ALGInstallation is a singleton storing the current version of Algernon allowing to upgrade to new versions.
+
+Instance Variables
+	versionNumber:		aNumber
diff --git a/packages/Algernon.package/ALGInstallation.class/class/instance.st b/packages/Algernon.package/ALGInstallation.class/class/instance.st
@@ -0,0 +1,3 @@
+accessing
+instance
+	^ Instance ifNil: [ Instance := ALGInstallation new ]
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/cleanup.st b/packages/Algernon.package/ALGInstallation.class/instance/cleanup.st
@@ -0,0 +1,10 @@
+accessing
+cleanup 
+	| isActive |
+	isActive := Algernon activateAlgernon.
+	ALGCache allInstancesDo: [ :cache | cache clear]. 
+	ALGItemProvider initializeItems.
+	Algernon allInstancesDo: [ :algernon | algernon delete].
+	ALGCore allInstancesDo: [ :algernon | algernon delete].
+	Smalltalk garbageCollect.
+	Algernon activateAlgernon: isActive
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/exportAsSarArchive.st b/packages/Algernon.package/ALGInstallation.class/instance/exportAsSarArchive.st
@@ -0,0 +1,9 @@
+accessing
+exportAsSarArchive
+
+	| package |
+	package := 'Algernon'.
+	(UserDialogBoxMorph 
+		confirm: 'Do you have incremented the versionNumber of ', package,
+				 ' before you release a new version?')
+		ifTrue: [ self sarFromPackage: package ] 
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/initialize.st b/packages/Algernon.package/ALGInstallation.class/instance/initialize.st
@@ -0,0 +1,3 @@
+accessing
+initialize
+	self versionNumber: 0
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/latestVersion.st b/packages/Algernon.package/ALGInstallation.class/instance/latestVersion.st
@@ -0,0 +1,3 @@
+accessing
+latestVersion
+	^ 1
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/sarFromPackage..st b/packages/Algernon.package/ALGInstallation.class/instance/sarFromPackage..st
@@ -0,0 +1,14 @@
+accessing
+sarFromPackage: package
+	| mczStream version workingCopy zip |
+
+	zip := ZipArchive new.
+	mczStream := RWBinaryOrTextStream on: (String new: 10000).
+	workingCopy := MCWorkingCopy forPackage: (MCPackage new name: package).
+	version := workingCopy newVersion.
+	version fileOutOn: mczStream.
+	(zip addString: mczStream contents as: package , '.mcz') desiredCompressionLevel: 0.
+	zip addString: 'self fileInMonticelloZipVersionNamed:
+		''' , package , '.mcz''.' as: 'install/preamble'.
+	zip addString: 'ALGInstallation instance upgrade.' as: 'install/postscript'. 
+	zip writeToFileNamed: package , '.sar'
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/upgrade.st b/packages/Algernon.package/ALGInstallation.class/instance/upgrade.st
@@ -0,0 +1,5 @@
+accessing
+upgrade
+	self latestVersion > self versionNumber
+		ifTrue: [ self cleanup. 
+				self versionNumber: self latestVersion ]
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/versionNumber..st b/packages/Algernon.package/ALGInstallation.class/instance/versionNumber..st
@@ -0,0 +1,3 @@
+accessing
+versionNumber: aNumber
+	versionNumber := aNumber
diff --git a/packages/Algernon.package/ALGInstallation.class/instance/versionNumber.st b/packages/Algernon.package/ALGInstallation.class/instance/versionNumber.st
@@ -0,0 +1,3 @@
+accessing
+versionNumber
+	^ versionNumber
diff --git a/packages/Algernon.package/ALGInstallation.class/methodProperties.json b/packages/Algernon.package/ALGInstallation.class/methodProperties.json
@@ -0,0 +1,12 @@
+{
+	"class" : {
+		"instance" : "JS 6/16/2016 18:53" },
+	"instance" : {
+		"cleanup" : "JS 6/16/2016 18:57",
+		"exportAsSarArchive" : "JS 6/16/2016 20:00",
+		"initialize" : "JS 6/16/2016 18:45",
+		"latestVersion" : "JS 6/16/2016 19:28",
+		"sarFromPackage:" : "JS 6/16/2016 19:58",
+		"upgrade" : "JS 6/16/2016 19:16",
+		"versionNumber" : "JS 6/16/2016 18:17",
+		"versionNumber:" : "JS 6/16/2016 18:17" } }
diff --git a/packages/Algernon.package/ALGInstallation.class/properties.json b/packages/Algernon.package/ALGInstallation.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "Algernon",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		"Instance" ],
+	"commentStamp" : "JS 6/16/2016 18:19",
+	"instvars" : [
+		"versionNumber" ],
+	"name" : "ALGInstallation",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }
diff --git a/...e/ALGItem.class/instance/algeractions..st → ...e/ALGItem.class/instance/algerActions..st b/...e/ALGItem.class/instance/algeractions..st → ...e/ALGItem.class/instance/algerActions..st
diff --git a/...ge/ALGItem.class/instance/algeractions.st → ...ge/ALGItem.class/instance/algerActions.st b/...ge/ALGItem.class/instance/algeractions.st → ...ge/ALGItem.class/instance/algerActions.st
diff --git a/...kage/ALGItem.class/instance/algertype..st → ...kage/ALGItem.class/instance/algerType..st b/...kage/ALGItem.class/instance/algertype..st → ...kage/ALGItem.class/instance/algerType..st
diff --git a/...ckage/ALGItem.class/instance/algertype.st → ...ckage/ALGItem.class/instance/algerType.st b/...ckage/ALGItem.class/instance/algertype.st → ...ckage/ALGItem.class/instance/algerType.st
diff --git a/packages/Algernon.package/monticello.meta/version b/packages/Algernon.package/monticello.meta/version
diff --git a/packages/AlgernonTests.package/ALGTestInstallation.class/README.md b/packages/AlgernonTests.package/ALGTestInstallation.class/README.md
diff --git a/packages/AlgernonTests.package/ALGTestInstallation.class/instance/testUpgrade.st b/packages/AlgernonTests.package/ALGTestInstallation.class/instance/testUpgrade.st
@@ -0,0 +1,8 @@
+testing
+testUpgrade
+
+	| installation |
+	installation := ALGInstallation new.
+	installation versionNumber: installation latestVersion - 1.
+	installation upgrade.
+	self assert: installation versionNumber equals: installation latestVersion
diff --git a/packages/AlgernonTests.package/ALGTestInstallation.class/methodProperties.json b/packages/AlgernonTests.package/ALGTestInstallation.class/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"testUpgrade" : "JS 6/16/2016 19:37" } }
diff --git a/packages/AlgernonTests.package/ALGTestInstallation.class/properties.json b/packages/AlgernonTests.package/ALGTestInstallation.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "AlgernonTests",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "ALGTestInstallation",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }
diff --git a/packages/AlgernonTests.package/monticello.meta/version b/packages/AlgernonTests.package/monticello.meta/version