Replace Fortran logging methods (into legacy 'master' branch)

heclib/heclib_c/src/headers/hecdssInternal.h

@@ -40,7 +40,7 @@
 #define DSS_VERSION "7-IW"
 
 
-#define DSS_VERSION_DATE "15 October 2025"
+#define DSS_VERSION_DATE "28 October 2025"
 
 const char *ztypeName(int recordType, int boolAbbreviation);
 void zreada(long long *ifltab, const char *path, int *npath,

heclib/javaHeclib/javaHeclib.vcxproj

@@ -157,12 +157,12 @@
   </ItemGroup>
   <ItemGroup>
     <ClCompile Include="src\C_CatalogToJava.c" />
+    <ClCompile Include="src\Hec_closeLogFile.c" />
     <ClCompile Include="src\Hec_closescratchdsscatalog.c" />
-    <ClCompile Include="src\Hec_fortranClose.c" />
-    <ClCompile Include="src\Hec_fortranFlush.c" />
-    <ClCompile Include="src\Hec_fortranOpen.c" />
-    <ClCompile Include="src\Hec_fortranWrite.c" />
+    <ClCompile Include="src\Hec_flushLogFile.c" />
     <ClCompile Include="src\Hec_makedsscatalog.c" />
+    <ClCompile Include="src\Hec_openLogFile.c" />
+    <ClCompile Include="src\Hec_writeToLogFile.c" />
     <ClCompile Include="src\Hec_zaliasAdd.c" />
     <ClCompile Include="src\Hec_zaliasGetPrimary.c" />
     <ClCompile Include="src\Hec_zaliasList.c" />

heclib/javaHeclib/src/Hec_closeLogFile.c

@@ -0,0 +1,10 @@
+#include <string.h>
+#include <jni.h>
+#include "heclib.h"
+
+
+JNIEXPORT void JNICALL Java_hec_heclib_util_Heclib_Hec_1closeLogFile
+(JNIEnv* env, jobject obj) {
+
+  zcloseLog();
+}

heclib/javaHeclib/src/Hec_flushLogFile.c

@@ -0,0 +1,16 @@
+#include <string.h>
+#include <jni.h>
+#include "heclib.h"
+
+
+JNIEXPORT jint JNICALL Java_hec_heclib_util_Heclib_Hec_1flushLogFile
+(JNIEnv* env, jobject obj) {
+
+	if (zdssVals.messageHandle <= 0) {
+		return -1;
+	}
+	int status = flushFile(zdssVals.messageHandle);
+
+	return status;
+
+}

heclib/javaHeclib/src/Hec_openLogFile.c

@@ -0,0 +1,21 @@
+#include <string.h>
+#include <jni.h>
+#include "heclib.h"
+
+
+JNIEXPORT jint JNICALL Java_hec_heclib_util_Heclib_Hec_1openLogFile
+(JNIEnv* env, jobject obj, jstring j_filename) {
+
+  char* filename;
+
+  filename = (char*)(*env)->GetStringUTFChars(env, j_filename, 0);
+  if (filename == NULL) {
+    return STATUS_NOT_OKAY;
+  }
+
+  int status = zopenLog(filename); 
+
+  (*env)->ReleaseStringUTFChars(env, j_filename, filename);
+
+  return status;
+}

heclib/javaHeclib/src/Hec_writeToLogFile.c

@@ -0,0 +1,25 @@
+#include <string.h>
+#include <jni.h>
+#include "heclib.h"
+
+
+JNIEXPORT jint JNICALL Java_hec_heclib_util_Heclib_Hec_1writeToLogFile
+(JNIEnv* env, jobject obj, jstring j_message) {
+
+  long long ifltab[250];
+
+  char* message = (char*)(*env)->GetStringUTFChars(env, j_message, 0);
+  if (message == NULL) {
+    return STATUS_NOT_OKAY;
+  }
+
+	if (zdssVals.messageHandle <= 0) {
+		return STATUS_NOT_OKAY;
+	}
+
+  zmessageLen(ifltab, message, strlen(message));
+
+  (*env)->ReleaseStringUTFChars(env, j_message, message);
+
+  return STATUS_OKAY;
+}