Use tonel format instead of filetree.

Author: peteruhnak

repository/GitMigration.package/GitMigration.class/instance/fastImportCodeToDirectory.initialCommit.to..st

@@ -5,8 +5,8 @@ fastImportCodeToDirectory: aDirectoryName initialCommit: anInitialCommitish to:
 		ensureDelete;
 		writeStreamDo: [ :rawStream | 
 			| stream |
-			stream := (ZnNewLineWriterStream on: rawStream) forLf.
-			writer := GitMigrationFastImportWriter new on: stream.
+			"stream := (ZnNewLineWriterStream on: rawStream) forLf."
+			writer := GitMigrationTonelWriter new on: rawStream.
 			writer exportDirectory: aDirectoryName.
 			self createFastImportAt: anInitialCommitish usingWriter: writer ].
 	^ writer commitMarks

repository/GitMigration.package/GitMigrationCommitInfo.class/instance/commitMessageData.st

@@ -5,4 +5,4 @@ initialize
 	committerName := Author fullName.
 	availableVersions := Dictionary new.
 	exportDirectory := '/'.
-	fastWriter := GitFastImportFileWriter new.
+	fastWriter := GitFastImportFileWriter new

repository/GitMigration.package/GitMigrationCommitInfo.class/instance/inlineDataFor..st

@@ -2,13 +2,13 @@ running
 setUp
 	super setUp.
 	self ensureTestRepoLoaded.
-"	self ensureGitFileTreeLoaded."
+	"	self ensureGitFileTreeLoaded."
 	self ensureAllCached.
 	stream := String new writeStream.
 	authorMapping := GitMigrationAuthorMapping new
 		shortName: 'ImportBot' name: 'Import Bot' email: '[email protected]';
 		shortName: 'CommitterBot' name: 'Committer Bot' email: '[email protected]'.
 	committer := authorMapping at: 'CommitterBot'.
-	writer := GitMigrationFastImportWriter new on: stream.
+	writer := self writerClass new on: stream.
 	writer committerName: committer shortName.
 	writer authorMapping: authorMapping

repository/GitMigration.package/GitMigrationFastImportWriter.class/instance/initialize.st

@@ -0,0 +1,3 @@
+accessing
+writerClass
+	^ self subclassResponsibility

repository/GitMigration.package/GitMigrationFastImportWriterTest.class/instance/setUp.st

@@ -0,0 +1,5 @@
+writing
+writeDeletePackageFor: aVersion
+	| path |
+	path := FileSystem unicodeMemory root / exportDirectory / aVersion package name , 'package'.
+	fastWriter writeDeleteReference: path

repository/GitMigration.package/GitMigrationFastImportWriterTest.class/instance/writerClass.st

@@ -0,0 +1,14 @@
+writing
+writeVersion: aVersion
+	| repository memoryFileOut commitInfo |
+	commitInfo := self commitInfoFor: aVersion info.
+	fastWriter writeCommitPreambleFor: commitInfo.
+	(self commitMarkFor: commitInfo) = 1
+		ifTrue: [ fastWriter writeLine: 'from ' , initialCommit ].
+	(memoryFileOut := (FileSystem store: GitFastImportMemoryStore new) root / exportDirectory)
+		ensureCreateDirectory.
+	repository := GitMigrationMemoryTreeGitRepository new.
+	repository directory: memoryFileOut.
+	repository memoryStoreVersion: aVersion.
+	self writeDeletePackageFor: aVersion.
+	fastWriter writeDirectoryTreeInlineFor: memoryFileOut

repository/GitMigration.package/GitMigrationFileTreeWriter.class/README.md

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GitMigrationFastImportWriter",
+	"category" : "GitMigration-FastImport",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GitMigrationFileTreeWriter",
+	"type" : "normal"
+}