Added exporting methods to export the finalization profiler data to csv

jordanmontt · Jan 18, 2024 · 5afe45a · 5afe45a
1 parent cd7427e
commit 5afe45a
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 0 deletions.
diff --git a/src/IllimaniProfiler/IllEphemeron.class.st b/src/IllimaniProfiler/IllEphemeron.class.st
@@ -40,6 +40,19 @@ IllEphemeron >> finalizationTime: anObject [
 	finalizationTime := anObject
 ]
 
+{ #category : 'serialization' }
+IllEphemeron >> flatInstanceVariables [
+
+	^ {
+		  finalizationTime asString.
+		  sizeInBytes asString.
+		  initializationTime asString.
+		  allocatedObjectClass asString.
+		  survivedScavenges asString.
+		  survivedFullGC asString.
+		  forcedFinalization asString }
+]
+
 { #category : 'finalization' }
 IllEphemeron >> forceFinalization [
 
@@ -56,6 +69,13 @@ IllEphemeron >> forcedFinalization [
 	^ forcedFinalization
 ]
 
+{ #category : 'serialization' }
+IllEphemeron >> headerToExportCSV [
+
+	^ #( #finalizationTime #sizeInBytes #initializationTime #allocatedObjectClass
+	     #survivedScavenges #survivedFullGC #forcedFinalization )
+]
+
 { #category : 'accessing' }
 IllEphemeron >> initializationTime [
 

diff --git a/src/IllimaniProfiler/IllFinalizationProfiler.class.st b/src/IllimaniProfiler/IllFinalizationProfiler.class.st
@@ -11,6 +11,21 @@ Class {
 	#tag : 'Finalization-Profiler'
 }
 
+{ #category : 'serialization' }
+IllFinalizationProfiler >> exportData [
+
+	| writer csvFile fileName |
+	fileName := DateAndTime now asString , '.csv'.
+	csvFile := fileName asFileReference createFile writeStream.
+	writer := NeoCSVWriter on: csvFile.
+	writer writeHeader: ephemeronsCollection first headerToExportCSV.
+
+	ephemeronsCollection do: [ :anIllEphemeron | 
+		writer nextPut: anIllEphemeron flatInstanceVariables ].
+
+	writer close
+]
+
 { #category : 'profiling' }
 IllFinalizationProfiler >> forceFinalizationOfObjects [