Improved exporting methods

jordanmontt · Feb 13, 2024 · 0fb68a4 · 0fb68a4
1 parent d78541a
commit 0fb68a4
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 19 deletions.
diff --git a/src/IllimaniProfiler/GCLogger.class.st b/src/IllimaniProfiler/GCLogger.class.st
@@ -15,14 +15,11 @@ Class {
 { #category : 'exporting' }
 GCLogger >> export: writeStream data: someData header: aHeaderInCollection [
 
-	| writer  |
-	writer := NeoCSVWriter on: writeStream.
-
-	writer writeHeader: #( #fullGCsBySecond ).
-	fullGCs do: [ :aNumber | 
-		writer nextPut: aNumber ].
-
-	writer close
+	(NeoCSVWriter on: writeStream)
+		writeHeader: #( #fullGCsBySecond );
+		fieldWriter: #raw;
+		nextPut: someData;
+		close
 ]
 
 { #category : 'exporting' }

diff --git a/src/IllimaniProfiler/IllEphemeron.class.st b/src/IllimaniProfiler/IllEphemeron.class.st
@@ -44,13 +44,13 @@ IllEphemeron >> finalizationTime: anObject [
 IllEphemeron >> flatInstanceVariables [
 
 	^ {
-		  finalizationTime asString.
-		  sizeInBytes asString.
-		  initializationTime asString.
-		  allocatedObjectClass asString.
-		  survivedScavenges asString.
-		  survivedFullGC asString.
-		  forcedFinalization asString }
+		  finalizationTime.
+		  sizeInBytes.
+		  initializationTime.
+		  allocatedObjectClass.
+		  survivedScavenges.
+		  survivedFullGC.
+		  forcedFinalization }
 ]
 
 { #category : 'finalization' }

diff --git a/src/IllimaniProfiler/IllFinalizationProfiler.class.st b/src/IllimaniProfiler/IllFinalizationProfiler.class.st
@@ -27,9 +27,11 @@ IllFinalizationProfiler >> exportEphemerons: fileName [
 
 	| writeStream writer |
 	writeStream := fileName asFileReference createFile writeStream.
-	writer := NeoCSVWriter on: writeStream.
-
-	writer writeHeader: ephemeronsCollection first headerToExportCSV.
+	writer := (NeoCSVWriter on: writeStream)
+		writeHeader: ephemeronsCollection first headerToExportCSV;
+		fieldWriter: #raw;
+		yourself.
+
 	ephemeronsCollection do: [ :anIllEphemeron |
 		writer nextPut: anIllEphemeron flatInstanceVariables ].
 
@@ -99,8 +101,8 @@ IllFinalizationProfiler >> objectAllocations [
 { #category : 'profiling' }
 IllFinalizationProfiler >> startProfiling [
 
+	gcLogger := GCLogger new run.
 	super startProfiling.
-	gcLogger := GCLogger new run
 ]
 
 { #category : 'accessing - statistics' }