lineSeparator is now configurable

noha · Jul 7, 2017 · eea3112 · eea3112
1 parent 0a83b13
commit eea3112
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 2 deletions.
diff --git a/repository/Beacon-File.package/FileLogger.class/instance/defaultLineSeparator.st b/repository/Beacon-File.package/FileLogger.class/instance/defaultLineSeparator.st
@@ -0,0 +1,3 @@
+defaults
+defaultLineSeparator
+	^ Character lf
diff --git a/repository/Beacon-File.package/FileLogger.class/instance/lineSeparator.st b/repository/Beacon-File.package/FileLogger.class/instance/lineSeparator.st
@@ -0,0 +1,4 @@
+accessing
+lineSeparator
+	^ lineSeparator ifNil: [
+		lineSeparator := self defaultLineSeparator ]
diff --git a/repository/Beacon-File.package/FileLogger.class/instance/nextPutSerialized..st b/repository/Beacon-File.package/FileLogger.class/instance/nextPutSerialized..st
@@ -1,4 +1,5 @@
 accessing
 nextPutSerialized: aString
+self halt.
 	super nextPutSerialized: aString.
-	self stream nextPut: Character lf
+	self stream nextPut: self lineSeparator 
diff --git a/repository/Beacon-File.package/FileLogger.class/properties.json b/repository/Beacon-File.package/FileLogger.class/properties.json
@@ -9,7 +9,8 @@
 		"fileReference",
 		"encoding",
 		"binary",
-		"stream"
+		"stream",
+		"lineSeparator"
 	],
 	"name" : "FileLogger",
 	"type" : "normal"