Improved export method and added accessors for totalFullGCs and total…

…Scavengers

src/IllimaniProfiler/IllAbstractProfiler.class.st

@@ -266,12 +266,24 @@ IllAbstractProfiler >> stopProfiling [
 	self updateVMStats
 ]
 
+{ #category : 'accessing - statistics' }
+IllAbstractProfiler >> totalFullGCs [
+
+	^ vmStats at: 7
+]
+
 { #category : 'accessing - statistics' }
 IllAbstractProfiler >> totalProfiledTime [
 
 	^ totalTime
 ]
 
+{ #category : 'accessing - statistics' }
+IllAbstractProfiler >> totalScavenges [
+
+	^ vmStats at: 9
+]
+
 { #category : 'profiling' }
 IllAbstractProfiler >> uninstallMethodProxies [
 

src/IllimaniProfiler/IllFinalizationProfiler.class.st

@@ -11,26 +11,49 @@ Class {
 	#tag : 'Finalization-Profiler'
 }
 
-{ #category : 'serialization' }
+{ #category : 'export' }
 IllFinalizationProfiler >> exportData [
 
-	| writer csvFile fileName |
-	fileName := DateAndTime now asStringYMDHM.
-	fileName	replaceAll: Character space with: $H;
-		replaceAll: $: with: $m.
-	fileName := fileName , '-samplingRate-', samplingRate asString.
-	fileName := fileName , '.csv'.
+	| writer writeStream fileName |
+	fileName := self fileNameToExport.
+	self exportMetaData: fileName , '.json'.
+
+	writeStream := (fileName , '.csv') asFileReference createFile writeStream.
+	writer := NeoCSVWriter on: writeStream.
 
-	csvFile := fileName asFileReference createFile writeStream.
-	writer := NeoCSVWriter on: csvFile.
 	writer writeHeader: ephemeronsCollection first headerToExportCSV.
-
 	ephemeronsCollection do: [ :anIllEphemeron | 
 		writer nextPut: anIllEphemeron flatInstanceVariables ].
-	
+
 	writer close
 ]
 
+{ #category : 'export' }
+IllFinalizationProfiler >> exportMetaData: fileName [
+
+	| tempDict jsonString  writeStream |
+	tempDict := { ('totalExecutionTime' -> totalTime).
+		('totalFullGCs' -> self totalFullGCs).
+		('totalScavenges' -> self totalScavenges).
+		('sampligRate' -> samplingRate) } asDictionary.
+	jsonString := NeoJSONWriter toStringPretty: tempDict.
+
+	writeStream := fileName asFileReference createFile writeStream.
+	writeStream nextPutAll: jsonString.
+	writeStream close
+]
+
+{ #category : 'export' }
+IllFinalizationProfiler >> fileNameToExport [
+
+	| fileName |
+	fileName := DateAndTime now asStringYMDHM.
+	fileName
+		replaceAll: Character space with: $H;
+		replaceAll: $: with: $m.
+	^ fileName
+]
+
 { #category : 'profiling' }
 IllFinalizationProfiler >> forceFinalizationOfObjects [