aboutsummaryrefslogtreecommitdiff
path: root/osrc/getosfile.c
diff options
context:
space:
mode:
Diffstat (limited to 'osrc/getosfile.c')
-rw-r--r--osrc/getosfile.c42
1 files changed, 42 insertions, 0 deletions
diff --git a/osrc/getosfile.c b/osrc/getosfile.c
new file mode 100644
index 0000000..a1d0358
--- /dev/null
+++ b/osrc/getosfile.c
@@ -0,0 +1,42 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+/* Handle various system requirements for trailing underscores, or other
+ fortran-to-C interface shenanigans thru defines for routine names
+ The provided set gives the option of setting a compile flag -DUNDERSCORE
+ to include underscores on C routine name symbols */
+
+#ifdef UNDERSCORE
+
+#define GETOSFILE getosfile_
+
+#endif
+
+void
+GETOSFILE(osfile,len)
+ char *osfile;
+ int *len;
+{
+ char *bufp;
+ int l;
+
+/* get environment variable OSMAP for location of OS map data file */
+ bufp = getenv("OSMAP");
+
+ /* printf("bufp: %s\n",bufp);
+ printf("osfile: %s\n",osfile); */
+
+ if(bufp){
+ strcpy(osfile,bufp);
+ l = strlen(bufp);
+ }
+ else {
+ l = 0;
+ }
+
+ *len = l;
+
+ /* printf("len %d\n",*len); */
+}
+