Utility function to get system name for web generation

xtt/lib/ge/src/ge_util.cpp

+#include <stdio.h>
+#include <stdlib.h>
+
+#include "pwr.h"
+extern "C" {
+#include "co_dcli.h"
+#include "rt_load.h"
+}
+
+
+int ge_get_systemname(
+  char		*systemname
+)
+{
+  FILE 	*file;
+  int	nr;
+  char	fname[120];
+
+  dcli_translate_filename( fname, load_cNameSysObject);
+  file = fopen( fname, "r");
+  if ( file == 0) {
+    printf("** Warning, systemname not found\n");
+    return 0;
+  }
+
+  nr = fscanf( file, "%s", systemname);
+  fclose(file);
+  if ( nr != 1) return 0;
+  return 1;
+}
+

xtt/lib/ge/src/ge_util.h

+#ifndef ge_util_h
+#define ge_util_h
+
+/* ge_util.h -- Utility functions for ge
+
+   PROVIEW/R
+   Copyright (C) 1996 by Comator Process AB.
+
+   <Description>.  */
+
+
+int ge_get_systemname(
+  char		*systemname
+);
+
+
+#endif