From 9a9f113f1cd2eb7030c35be9691f1b60b0890dca Mon Sep 17 00:00:00 2001
From: kolioOtSofia <n.genchev@hotmail.com>
Date: Tue, 8 Jun 2021 12:17:45 +0300
Subject: [PATCH 1/2] creteSar Function on the class side of baseline

---
 .../class/createSar.st                        | 28 +++++++++++++++++++
 .../methodProperties.json                     |  2 +-
 2 files changed, 29 insertions(+), 1 deletion(-)
 create mode 100644 packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st

diff --git a/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st b/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st
new file mode 100644
index 00000000..3cf41e14
--- /dev/null
+++ b/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st
@@ -0,0 +1,28 @@
+as yet unclassified
+createSar
+
+	| preamble zip |
+	
+	zip := ZipArchive new.
+	preamble := String streamContents: [:preambleStream |
+	    preambleStream
+	        nextPutAll: '| loader |
+	loader := MCVersionLoader new.';
+	        cr.
+	    (((self project version: 'baseline') allPackagesForSpecNamed: #default) collect: #name) do: [:name | | stream version |
+	        stream := RWBinaryOrTextStream on: (String new: 10000).
+	        version := MCVersion
+	            package: (MCPackage named: name)
+	            info: ((MCPackage named: 'AutoTDD-Core') workingCopy ancestry ancestors
+					ifNotEmpty: #first
+					ifEmpty: [MCVersionInfo name: name, '-generated.1' id: UUID new message: '' date: Date today time: Time now author: 'generated' ancestors: #()]).
+	        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: 'AutoTDD.sar'
\ No newline at end of file
diff --git a/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/methodProperties.json b/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/methodProperties.json
index aedbbc7a..c38a0761 100644
--- a/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/methodProperties.json
+++ b/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/methodProperties.json
@@ -1,6 +1,6 @@
 {
 	"class" : {
-		 },
+		"createSar" : "ng 6/8/2021 11:50" },
 	"instance" : {
 		"baseline:" : "ct 10/7/2020 01:03",
 		"postLoad" : "be 5/29/2019 23:24" } }

From de34ce37259c7314e1c9535e06314f2af023fa99 Mon Sep 17 00:00:00 2001
From: kolioOtSofia <n.genchev@hotmail.com>
Date: Tue, 8 Jun 2021 13:20:38 +0300
Subject: [PATCH 2/2] recategorize

---
 .../BaselineOfAutoTDD.class/class/createSar.st                  | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st b/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st
index 3cf41e14..4e621c5c 100644
--- a/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st
+++ b/packages/BaselineOfAutoTDD.package/BaselineOfAutoTDD.class/class/createSar.st
@@ -1,4 +1,4 @@
-as yet unclassified
+exporting
 createSar
 
 	| preamble zip |