Changeset cc6452 in git

Timestamp:

May 19, 1998, 4:51:20 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

f8f3ec7570a94db80bffc21cc74df93fb3375101

Parents:

a311d9e7b4f9bdb04b262dac8da170e5c31e4956

Message:

1998-05-19  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* find_exec.c (find_executable): add "." top path, if under WINNT
	and MSDOS display


git-svn-id: file:///usr/local/Singular/svn/trunk@1876 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

Singular

Files:

• ChangeLog (modified) (1 diff)
• find_exec.c (modified) (3 diffs)

Singular/ChangeLog

@@ -1 +1 @@
 1998-05-19  Olaf Bachmann  <obachman@mathematik.uni-kl.de>
+
+        * find_exec.c (find_executable): add "." top path, if under WINNT
+        and MSDOS display
 
         * mmutil.c (mmCheckDBMCB): use _end only #ifdef unix

Singular/find_exec.c

@@ -56 +56 @@
   char *search;
   char *p;
+  char *extra = NULL;
   char tbuf[MAXPATHLEN];
 
@@ -91 +92 @@
     }
 
-    search = getenv ("PATH");
+
+    search = getenv("PATH");
+/* for winnt under msdos, cwd is implicetyly in the path */
+#ifdef WINNT
+    if (strlen(getenv("SHELL")) < 1)
+    {
+      /* we are under msdos */
+      extra = (char*) AllocL(strlen(search) + 3);
+      sprintf(extra, ".:");
+      strcat(extra, search);
+      search = extra;
+    }
+#endif
     p = search;
 
@@ -169 +182 @@
           continue;
 #endif
+#ifdef WINNT
+        if (extra != NULL)
+          FreeL(extra);
+#endif
         return copy_of (tbuf);
       }