MIES_MassExperimentProcessing.ipf: Enhance error handling

Now that we can potentially create multiple NWB files per device we also
need to cleanup the per-device NWB file in case of error.

Also add missing AssertOnAndClearRTError() before the try/catch loops.

Author: t-b

Packages/Conversion/MIES_MassExperimentProcessing.ipf

@@ -107,15 +107,13 @@ static Function ProcessCurrentExperiment(STRUCT MultiExperimentProcessPrefs &pre
 		DoWindow/K HistoryCarbonCopy
 		NewNotebook/V=0/F=0/N=HistoryCarbonCopy
 
+		AssertOnAndClearRTError()
 		try
 			PerformMiesTasks(outputFilePath); AbortOnRTE
 		catch
-			ClearRTError()
-			print "Caught an RTE"
+			printf "Caught an RTE or abort: V_AbortCode=%d\r", V_AbortCode
 			JSON_AddBoolean(jsonID, "/log/" + num2str(index) + "/error", 1)
 			JSON_SetVariable(jsonID, "/errors", JSON_GetVariable(jsonID, "/errors") + 1)
-			HDF5CloseFile/A/Z 0
-			DeleteFile/Z outputFilePath
 		endtry
 
 		Notebook HistoryCarbonCopy, getData=1
@@ -134,7 +132,7 @@ End
 static Function PerformMiesTasks(string outputFilePath)
 
 	string folder, message, devSuffix, outputFilePathWithDevSuffix
-	variable error
+	variable error, doAbort
 
 	printf "Free Memory: %g GB\r", GetFreeMemory()
 
@@ -144,21 +142,27 @@ static Function PerformMiesTasks(string outputFilePath)
 		CreateFolderOnDisk(folder)
 	endif
 
-	ClearRTError()
-
 	WAVE/T devicesWithContent = ListToTextWave(GetAllDevicesWithContent(contentType = CONTENT_TYPE_ALL), ";")
 
 	for(device : devicesWithContent)
 		devSuffix                   = SelectString(DimSize(devicesWithContent, ROWS) > 1, "", NWB_GetFileNameSuffixDevice(device))
 		outputFilePathWithDevSuffix = RemoveEnding(outputFilePath, NWB_FILE_SUFFIX) + devSuffix + NWB_FILE_SUFFIX
 
-		NWB_ExportAllData(NWB_VERSION_LATEST, overrideFullFilePath = outputFilePathWithDevSuffix, device = device)
-		HDF5CloseFile/A/Z 0
+		AssertOnAndClearRTError()
+		try
+			NWB_ExportAllData(NWB_VERSION_LATEST, overrideFullFilePath = outputFilePathWithDevSuffix, device = device); AbortOnRTE
+		catch
+			HDF5CloseFile/A/Z 0
+			DeleteFile/Z outputFilePath
+			doAbort = 1
+		endtry
+
+		message = GetRTErrMessage()
+		error   = ClearRTError()
+		ASSERT(error == 0, "Encountered lingering RTE of " + num2str(error) + "(message: " + message + ") after executing NWB_ExportAllData.")
 	endfor
 
-	message = GetRTErrMessage()
-	error   = GetRTError(1)
-	ASSERT(error == 0, "Encountered lingering RTE of " + num2str(error) + "(message: " + message + ") after executing NWB_ExportAllData.")
+	ASSERT(doAbort == 0, "Encountered abort")
 End
 
 static Function IsAppropriateExperiment()