Changeset cc6452 in git for Singular/find_exec.c

Timestamp:

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

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

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

File:

• Singular/find_exec.c (modified) (3 diffs)

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);
       }