From 8a0efa53e44919bcf5ccb1d3353618a82afdf8bc Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me@cgf.cx>
Date: Thu, 17 Feb 2000 19:39:52 +0000
Subject: import newlib-2000-02-17 snapshot

---
 newlib/libc/sys/go32/exec.c | 509 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 509 insertions(+)
 create mode 100644 newlib/libc/sys/go32/exec.c

(limited to 'newlib/libc/sys/go32/exec.c')

diff --git a/newlib/libc/sys/go32/exec.c b/newlib/libc/sys/go32/exec.c
new file mode 100644
index 000000000..004666c71
--- /dev/null
+++ b/newlib/libc/sys/go32/exec.c
@@ -0,0 +1,509 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <fcntl.h>
+#include "go32.h"
+#include "dpmi.h"
+/*#include "process.h"*/
+#if 1
+#define P_WAIT		1
+#define P_NOWAIT	2	/* always generates error */
+#define P_OVERLAY	3
+#endif
+extern const char **environ;
+#define environ ((const char **)environ)
+
+#define scan_ptr() \
+	char const **ptr; \
+	for (ptr = &argv0; *ptr; ptr++); \
+	ptr = (char const **)(*++ptr);
+
+int execl(const char *path, const char *argv0, ...)
+{
+  return spawnve(P_OVERLAY, path, &argv0, environ);
+}
+
+int execle(const char *path, const char *argv0, ... /*, const char **envp */)
+{
+  scan_ptr();
+  return spawnve(P_OVERLAY, path, &argv0, ptr);
+}
+
+int execlp(const char *path, const char *argv0, ...)
+{
+  return spawnvpe(P_OVERLAY, path, &argv0, environ);
+}
+
+int execlpe(const char *path, const char *argv0, ... /*, const char **envp */)
+{
+  scan_ptr();
+  return spawnvpe(P_OVERLAY, path, &argv0, ptr);
+}
+
+/*-------------------------------------------------*/
+
+int execv(const char *path, const char **argv)
+{
+  return spawnve(P_OVERLAY, path, argv, environ);
+}
+
+int execve(const char *path, const char **argv, const char **envp)
+{
+  return spawnve(P_OVERLAY, path, argv, envp);
+}
+
+int execvp(const char *path, const char **argv)
+{
+  return spawnvpe(P_OVERLAY, path, argv, environ);
+}
+
+int execvpe(const char *path, const char **argv, const char **envp)
+{
+  return spawnvpe(P_OVERLAY, path, argv, envp);
+}
+
+/*-------------------------------------------------*/
+
+int spawnl(int mode, const char *path, const char *argv0, ...)
+{
+  return spawnve(mode, path, &argv0, environ);
+}
+
+int spawnle(int mode, const char *path, const char *argv0, ... /*, const char **envp */)
+{
+  scan_ptr();
+  return spawnve(mode, path, &argv0, ptr);
+}
+
+int spawnlp(int mode, const char *path, const char *argv0, ...)
+{
+  return spawnvpe(mode, path, &argv0, environ);
+}
+
+int spawnlpe(int mode, const char *path, const char *argv0, ... /*, const char **envp */)
+{
+  scan_ptr();
+  return spawnvpe(mode, path, &argv0, ptr);
+}
+
+/*-------------------------------------------------*/
+
+typedef struct {
+  u_short eseg;
+  u_short argoff;
+  u_short argseg;
+  u_short fcb1_off;
+  u_short fcb1_seg;
+  u_short fcb2_off;
+  u_short fcb2_seg;
+} Execp;
+
+static Execp parm;
+
+static u_long tbuf;
+
+static u_long talloc(size_t amt)
+{
+  u_long rv = tbuf;
+  tbuf += amt;
+  return rv;
+}
+
+static int direct_exec_tail(const char *program, const char *args, const char **envp)
+{
+  _go32_dpmi_registers r;
+  u_long program_la;
+  u_long arg_la;
+  u_long parm_la;
+  u_long env_la, env_e_la;
+  char arg_header[3];
+  int i;
+
+  program_la = talloc(strlen(program)+1);
+  arg_la = talloc(strlen(args)+3);
+  parm_la = talloc(sizeof(Execp));
+
+  dosmemput(program, strlen(program)+1, program_la);
+  
+  arg_header[0] = strlen(args);
+  arg_header[1] = '\r';
+  dosmemput(arg_header, 1, arg_la);
+  dosmemput(args, strlen(args), arg_la+1);
+  dosmemput(arg_header+1, 1, arg_la+1+strlen(args));
+
+  do {
+    env_la = talloc(1);
+  } while (env_la & 15);
+  talloc(-1);
+  for (i=0; envp[i]; i++)
+  {
+    env_e_la = talloc(strlen(envp[i])+1);
+    dosmemput(envp[i], strlen(envp[i])+1, env_e_la);
+  }
+  arg_header[0] = 0;
+  arg_header[1] = 1;
+  arg_header[2] = 0;
+  dosmemput(arg_header, 3, talloc(3));
+  env_e_la = talloc(strlen(program)+1);
+  dosmemput(program, strlen(program)+1, env_e_la);
+
+  parm.eseg = env_la / 16;
+  parm.argseg = arg_la / 16;
+  parm.argoff = arg_la & 15;
+  dosmemput(&parm, sizeof(parm), parm_la);
+
+  memset(&r, 0, sizeof(r));
+  r.x.ax = 0x4b00;
+  r.x.ds = program_la / 16;
+  r.x.dx = program_la & 15;
+  r.x.es = parm_la / 16;
+  r.x.bx = parm_la & 15;
+  _go32_dpmi_simulate_int(0x21, &r);
+  if (r.x.flags & 1)
+  {
+    errno = r.x.ax;
+    return -1;
+  }
+  
+  memset(&r, 0, sizeof(r));
+  r.h.ah = 0x4d;
+  _go32_dpmi_simulate_int(0x21, &r);
+  
+  if (r.x.flags & 1)
+  {
+    errno = r.x.ax;
+    return -1;
+  }
+  return r.x.ax;
+}
+
+static int direct_exec(const char *program, const char **argv, const char **envp)
+{
+  int i, arglen;
+  char *args, *argp;
+
+  tbuf = _go32_info_block.linear_address_of_transfer_buffer;
+
+  arglen = 0;
+  for (i=1; argv[i]; i++)
+    arglen += strlen(argv[i]) + 1;
+  args = (char *)malloc(arglen+1);
+  argp = args;
+  for (i=1; argv[i]; i++)
+  {
+    const char *p = argv[i];
+    if (argp - args > 125)
+      break;
+    *argp++ = ' ';
+    while (*p)
+    {
+      if (argp - args > 125)
+        break;
+      *argp++ = *p++;
+    }
+  }
+  *argp = 0;
+  
+  return direct_exec_tail(program, args, envp);
+}
+
+typedef struct {
+  char magic[16];
+  int struct_length;
+  char go32[16];
+} StubInfo;
+#define STUB_INFO_MAGIC "StubInfoMagic!!"
+
+static int go32_exec(const char *program, const char **argv, const char **envp)
+{
+  int is_stubbed = 0;
+  int found_si = 0;
+  StubInfo si;
+  unsigned short header[3];
+  int pf, has_dot, i;
+  char *go32, *sip;
+  const char *pp, *pe;
+  char rpath[80], *rp;
+  int stub_offset, argc;
+
+  int si_la, rm_la, rm_seg;
+  short *rm_argv;
+  char cmdline[34];
+  
+  pf = open(program, O_RDONLY|O_BINARY);
+
+  read(pf, header, sizeof(header));
+  if (header[0] == 0x010b || header[0] == 0x014c)
+  {
+    is_stubbed = 1;
+  }
+  else if (header[0] == 0x5a4d)
+  {
+    int header_offset = (long)header[2]*512L;
+    if (header[1])
+      header_offset += (long)header[1] - 512L;
+    lseek(pf, header_offset - 4, 0);
+    read(pf, &stub_offset, 4);
+    header[0] = 0;
+    read(pf, header, sizeof(header));
+    if (header[0] == 0x010b)
+      is_stubbed = 1;
+    if (header[0] == 0x014c)
+      is_stubbed = 1;
+    lseek(pf, stub_offset, 0);
+    read(pf, &si, sizeof(si));
+    if (memcmp(STUB_INFO_MAGIC, si.magic, 16) == 0)
+      found_si = 1;
+  }
+  if (!is_stubbed)
+  {
+    close(pf);
+    return direct_exec(program, argv, envp);
+  }
+
+  if (found_si)
+    go32 = si.go32;
+  else
+    go32 = "go32.exe";
+  has_dot = 0;
+  for (i=0; go32[i]; i++)
+    if (go32[i] == '.')
+      has_dot = 1;
+  if (!has_dot)
+    strcpy(go32+i, ".exe");
+  for (i=0; envp[i]; i++)
+    if (strncmp(envp[i], "PATH=", 5) == 0)
+      pp = envp[i]+5;
+  strcpy(rpath, go32);
+  while (access(rpath, 0))
+  {
+    char *ptr;
+    rp = rpath;
+    for (pe=pp; *pe && *pe != ';'; pe++)
+      *rp++ = *pe;
+    pp = pe+1;
+    if (rp > rpath && rp[-1] != '/' && rp[-1] != '\\' && rp[-1] != ':')
+      *rp++ = '/';
+    for (ptr = go32; *ptr; ptr++)
+      *rp++ = *ptr;
+    *rp = 0;
+    if (access(rpath, 0) == 0)
+      break;
+    if (*pe == 0)
+      return direct_exec(program, argv, envp); /* give up and just run it */
+  }
+
+  if (found_si)
+  {  
+    lseek(pf, stub_offset, 0);
+    sip = (char *)malloc(si.struct_length);
+    read(pf, sip, si.struct_length);
+  }
+  close(pf);
+
+  argv[0] = program; /* since that's where we really found it */
+
+  tbuf = _go32_info_block.linear_address_of_transfer_buffer;
+
+  if (found_si)
+  {
+    si_la = talloc(si.struct_length);
+    dosmemput(sip, si.struct_length, si_la);
+    free(sip);
+  }
+  
+  for (argc=0; argv[argc]; argc++);
+  rm_la = talloc(2*(argc+1));
+  rm_seg = (_go32_info_block.linear_address_of_transfer_buffer >> 4) & 0xffff;
+  rm_argv = (short *)malloc((argc+1) * sizeof(short));
+  for (i=0; i<argc; i++)
+  {
+    int sl = strlen(argv[i]) + 1;
+    int q = talloc(sl);
+    dosmemput(argv[i], sl, q);
+    rm_argv[i] = (q - (rm_seg<<4)) & 0xffff;
+  }
+  rm_argv[i] = 0;
+  dosmemput(rm_argv, 2*(argc+1), rm_la);
+  
+  sprintf(cmdline, " !proxy %04x %04x %04x %04x %04x",
+    argc, rm_seg, (rm_la - (rm_seg<<4))&0xffff,
+    rm_seg, (si_la - (rm_seg<<4))&0xffff);
+  if (!found_si)
+    cmdline[22] = 0; /* remove stub information */
+
+  return direct_exec_tail(rpath, cmdline, envp);
+}
+
+static int command_exec(const char *program, const char **argv, const char **envp)
+{
+  const char *comspec=0;
+  char *cmdline;
+  char *newargs[3];
+  int cmdlen;
+  int i;
+  
+  cmdlen = strlen(program) + 4;
+  for (i=0; argv[i]; i++)
+    cmdlen += strlen(argv[i]) + 1;
+  cmdline = (char *)malloc(cmdlen);
+  
+  strcpy(cmdline, "/c ");
+  for (i=0; program[i]; i++)
+  {
+    if (program[i] == '/')
+      cmdline[i+3] = '\\';
+    else
+      cmdline[i+3] = program[i];
+  }
+  cmdline[i+3] = 0;
+  for (i=1; argv[i]; i++)
+  {
+    strcat(cmdline, " ");
+    strcat(cmdline, argv[i]);
+  }
+  for (i=0; envp[i]; i++)
+    if (strncmp(envp[i], "COMSPEC=", 8) == 0)
+      comspec = envp[i]+8;
+  if (!comspec)
+    for (i=0; environ[i]; i++)
+      if (strncmp(environ[i], "COMSPEC=", 8) == 0)
+        comspec = environ[i]+8;
+  if (!comspec)
+    comspec = "c:/command.com";
+  newargs[0] = comspec;
+  newargs[1] = cmdline;
+  newargs[2] = 0;
+  i = direct_exec(comspec, (const char **)newargs, envp);
+  free(cmdline);
+  return i;
+}
+
+static int script_exec(const char *program, const char **argv, const char **envp)
+{
+  return go32_exec(program, argv, envp);
+}
+
+static struct {
+  char *extension;
+  int (*interp)(const char *, const char **, const char **);
+} interpreters[] = {
+  { ".com", direct_exec },
+  { ".exe", go32_exec },
+  { ".bat", command_exec },
+  { 0,      script_exec }
+};
+#define INTERP_NO_EXT 3
+
+int spawnv(int mode, const char *path, const char **argv)
+{
+  return spawnve(mode, path, argv, environ);
+}
+
+int spawnve(int mode, const char *path, const char **argv, const char **envp)
+{
+  /* This is the one that does the work! */
+  int i = -1;
+  char rpath[80], *rp, *rd=0;
+  fflush(stdout); /* just in case */
+  for (rp=rpath; *path; *rp++ = *path++)
+  {
+    if (*path == '.')
+      rd = rp;
+    if (*path == '\\' || *path == '/')
+      rd = 0;
+  }
+  *rp = 0;
+  if (rd)
+  {
+    for (i=0; interpreters[i].extension; i++)
+      if (strcasecmp(rd, interpreters[i].extension) == 0)
+        break;
+  }
+  while (access(rpath, 0))
+  {
+    i++;
+    if (interpreters[i].extension == 0 || rd)
+    {
+      errno = ENOENT;
+      return -1;
+    }
+    strcpy(rp, interpreters[i].extension);
+  }
+  if (i == -1)
+    i = INTERP_NO_EXT;
+  i = interpreters[i].interp(rpath, argv, envp);
+  if (mode == P_OVERLAY)
+    exit(i);
+  return i;
+}
+
+int spawnvp(int mode, const char *path, const char **argv)
+{
+  return spawnvpe(mode, path, argv, environ);
+}
+
+int spawnvpe(int mode, const char *path, const char **argv, const char **envp)
+{
+  const char *pp, *pe, *ptr;
+  char rpath[80], *rp, *rd;
+  int hasdot = 0, i, tried_dot = 0;
+
+  for (ptr=path; *ptr; ptr++)
+  {
+    if (*ptr == '.')
+      hasdot = 1;
+    if (*ptr == '/' || *ptr == '\\' || *ptr == ':')
+      return spawnve(mode, path, argv, envp);
+  }
+
+  pp = 0;
+  for (i=0; envp[i]; i++)
+    if (strncmp(envp[i], "PATH=", 5) == 0)
+      pp = envp[i] + 5;
+  if (pp == 0)
+    return spawnve(mode, path, argv, envp);
+
+  while (1)
+  {
+    if (!tried_dot)
+    {
+      rp = rpath;
+      pe = pp;
+      tried_dot = 1;
+    }
+    else
+    {
+      rp = rpath;
+      for (pe = pp; *pe && *pe != ';'; pe++)
+        *rp++ = *pe;
+      pp = pe+1;
+      if (rp > rpath && rp[-1] != '/' && rp[-1] != '\\' && rp[-1] != ':')
+        *rp++ = '/';
+    }
+    for (ptr = path; *ptr; ptr++)
+      *rp++ = *ptr;
+    *rp = 0;
+    
+    if (hasdot)
+    {
+      if (access(rpath, 0) == 0)
+        return spawnve(mode, rpath, argv, envp);
+    }
+    else
+    {
+      for (i=0; interpreters[i].extension; i++)
+      {
+        strcpy(rp, interpreters[i].extension);
+        if (access(rpath, 0) == 0)
+          return spawnve(mode, rpath, argv, envp);
+      }
+    }
+    if (*pe == 0)
+    {
+      errno = ENOENT;
+      return -1;
+    }
+  }
+}
-- 
cgit v1.2.3