JPRED-2 Add sources of all binaries (except alscript) to Git

[jpred.git] / sources / multicoil / scsystem.c

diff --git a/sources/multicoil/scsystem.c b/sources/multicoil/scsystem.c
new file mode 100644 (file)
index 0000000..e683b17
--- /dev/null
+++ b/sources/multicoil/scsystem.c
@@ -0,0 +1,44 @@
+/*  Bonnie Berger, David Wilson and Theodore Tonchev 1992  */
+/*       C Code File       */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <time.h>
+#include "scsystem.h"
+
+/* Error Messages */
+char* err_msg[] = {
+  "Tracing",
+  "Usage Error",
+  "Unrecognized switch:",
+  "Error while opening file",
+  "Error while writing in",
+  "Error while reading from",
+  "Bad Magic Number of",
+  "Not Enough Memory"
+  };
+
+void error(int errcode, char* msg)
+{
+  switch (errcode) {
+  case NO_ERR:
+    fprintf(stderr,"%s\n", err_msg[NO_ERR]);
+    break;
+  case USAGE_ERR:
+    usage();
+    exit(1);
+  default:
+    fprintf(stderr,"ERROR: %s %s\n", err_msg[errcode], msg);
+    exit(2);
+  }
+}
+
+void timestamp(FILE* flog)
+{
+  time_t tp;
+
+  time(&tp);
+  fprintf(flog, "%s\n", ctime(&tp));
+}
+
+/*       End of Code       */