From fcbf63e62c627deae76c1b8cb8c0876c536ed811 Mon Sep 17 00:00:00 2001
From: Jari Vetoniemi <jari.vetoniemi@indooratlas.com>
Date: Mon, 16 Mar 2020 18:49:26 +0900
Subject: Fresh start

---
 jni/ruby/missing/os2.c | 138 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 138 insertions(+)
 create mode 100644 jni/ruby/missing/os2.c

(limited to 'jni/ruby/missing/os2.c')

diff --git a/jni/ruby/missing/os2.c b/jni/ruby/missing/os2.c
new file mode 100644
index 0000000..27dc2f1
--- /dev/null
+++ b/jni/ruby/missing/os2.c
@@ -0,0 +1,138 @@
+/* os/2 compatibility functions -- follows Ruby's license */
+
+#include "ruby.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <fcntl.h>
+#include <process.h>
+#include <limits.h>
+#include <errno.h>
+
+#define INCL_DOS
+#include <os2.h>
+
+int
+chown(char *path, int owner, int group)
+{
+	return 0;
+}
+
+#if 0
+int
+link(char *from, char *to)
+{
+	return -1;
+}
+#endif
+
+#if defined(EMX_REPLACE_GETCWD) && (EMX_REPLACE_GETCWD)  \
+ || defined(EMX_REPLACE_CHDIR)  && (EMX_REPLACE_CHDIR)
+#include <unistd.h>
+
+#if defined(EMX_REPLACE_GETCWD) && (EMX_REPLACE_GETCWD)
+/* to handle the drive letter and DBCS characters within a given path */
+char *
+getcwd(char *path, size_t len)
+{
+    return _getcwd2(path, (int)len);
+}
+#endif
+
+#if defined(EMX_REPLACE_CHDIR) && (EMX_REPLACE_CHDIR)
+/* to handle the drive letter and DBCS characters within a given path */
+int
+chdir(__const__ char *path)
+{
+    return _chdir2(path);
+}
+#endif
+#endif
+
+typedef char* CHARP;
+
+int
+do_spawn(cmd)
+char *cmd;
+{
+    register char **a;
+    register char *s;
+    char **argv;
+    char *shell, *sw, *cmd2;
+    int status;
+
+    if ((shell = getenv("RUBYSHELL")) != NULL && *shell != '\0') {
+	s = shell;
+	do
+	    *s = isupper(*s) ? tolower(*s) : *s;
+	while (*++s);
+	if (strstr(shell, "cmd") || strstr(shell, "4os2"))
+	    sw = "/c";
+	else
+	    sw = "-c";
+    } else if ((shell = getenv("SHELL")) != NULL && *shell != '\0') {
+	s = shell;
+	do
+	    *s = isupper(*s) ? tolower(*s) : *s;
+	while (*++s);
+	if (strstr(shell, "cmd") || strstr(shell, "4os2"))
+	    sw = "/c";
+	else
+	    sw = "-c";
+    } else if ((shell = getenv("COMSPEC")) != NULL && *shell != '\0') {
+	s = shell;
+	do
+	    *s = isupper(*s) ? tolower(*s) : *s;
+	while (*++s);
+	if (strstr(shell, "cmd") || strstr(shell, "4os2"))
+	    sw = "/c";
+	else
+	    sw = "-c";
+    }
+    /* see if there are shell metacharacters in it */
+    /*SUPPRESS 530*/
+    /*    for (s = cmd; *s && isalpha(*s); s++) ;
+    if (*s == '=')
+    goto doshell; */
+    for (s = cmd; *s; s++) {
+	if (*sw == '-' && *s != ' ' &&
+	    !isalpha(*s) && index("$&*(){}[]'\";\\|?<>~`\n",*s)) {
+	    if (*s == '\n' && !s[1]) {
+		*s = '\0';
+		break;
+	    }
+	    goto doshell;
+	} else if (*sw == '/' && *s != ' ' &&
+	    !isalpha(*s) && index("^()<>|&\n",*s)) {
+	    if (*s == '\n' && !s[1]) {
+		*s = '\0';
+		break;
+	    }
+	  doshell:
+	    status = spawnlp(P_WAIT,shell,shell,sw,cmd,(char*)NULL);
+	    return status;
+	}
+    }
+    argv = ALLOC_N(CHARP,(strlen(cmd) / 2 + 2));
+    cmd2 = ALLOC_N(char, (strlen(cmd) + 1));
+    strcpy(cmd2, cmd);
+    a = argv;
+    for (s = cmd2; *s;) {
+	while (*s && isspace(*s)) s++;
+	if (*s)
+	    *(a++) = s;
+	while (*s && !isspace(*s)) s++;
+	if (*s)
+	    *s++ = '\0';
+    }
+    *a = NULL;
+    if (argv[0]) {
+	if ((status = spawnvp(P_WAIT, argv[0], argv)) == -1) {
+	    free(argv);
+	    free(cmd2);
+	    return -1;
+	}
+    }
+    free(cmd2);
+    free(argv);
+    return status;
+}
-- 
cgit v1.2.3