Changeset 3214 for trunk

Timestamp:

Apr 25, 2007, 2:02:22 AM (18 years ago)

Author:

bird

Message:

/@executable_path. Fixes #153.

File:

• trunk/libc/src/kNIX/os2/fs-os2.c (modified) (3 diffs)

trunk/libc/src/kNIX/os2/fs-os2.c

@@ -162 +162 @@
  * The special /@unixroot rewrite rule.
  */
-static __LIBC_PATHREWRITE   gaRewriteRule =
-{
-    __LIBC_PRWF_CASE_SENSITIVE | __LIBC_PRWF_TYPE_DIR,      "/@unixroot",  10, __libc_gszUnixRoot, 0
+static __LIBC_PATHREWRITE   gUnixRootRewriteRule =
+{
+    __LIBC_PRWF_CASE_SENSITIVE | __LIBC_PRWF_TYPE_DIR,  "/@unixroot",  10, __libc_gszUnixRoot, 0
+};
+
+/** The full path to the executable directory. */
+char __libc_gszExecPath[CCHMAXPATH];
+
+/**
+ * The special /@executable_path rewrite rule.
+ */
+static __LIBC_PATHREWRITE   gExecRewriteRule =
+{
+    __LIBC_PRWF_CASE_SENSITIVE | __LIBC_PRWF_TYPE_DIR,  "/@executable_path",  17, __libc_gszExecPath, 0
 };
 
@@ -223 +234 @@
 
         /* Register rewrite rule. */
-        gaRewriteRule.pszTo = "/";
-        gaRewriteRule.cchTo = 1;
-        if (__libc_PathRewriteAdd(&gaRewriteRule, 1))
+        gUnixRootRewriteRule.pszTo = "/";
+        gUnixRootRewriteRule.cchTo = 1;
+        if (__libc_PathRewriteAdd(&gUnixRootRewriteRule, 1))
             LIBCLOG_RETURN_INT(-1);
     }
@@ -251 +262 @@
 
             /* Register the rewrite rule. */
-            gaRewriteRule.cchTo = cch;
-            if (__libc_PathRewriteAdd(&gaRewriteRule, 1))
+            gUnixRootRewriteRule.cchTo = cch;
+            if (__libc_PathRewriteAdd(&gUnixRootRewriteRule, 1))
                 LIBCLOG_RETURN_INT(-1);
         }
     }
 
+
+    /*
+     * Setup the the executable path rewrite rule.
+     */
+    PTIB pTib; 
+    PPIB pPib;
+    DosGetInfoBlocks(&pTib, &pPib);
+    rc = DosQueryModuleName(pPib->pib_hmte, sizeof(__libc_gszExecPath), &__libc_gszExecPath[0]);
+    if (!rc) 
+    {
+        char *psz = strchr(&__libc_gszExecPath[0], '\0');
+        while (     psz > &__libc_gszExecPath[0] 
+               &&   *psz != '\\'
+               &&   *psz != '/'
+               &&   *psz != ':')
+            psz--;
+        *psz = '\0';
+        gExecRewriteRule.cchTo = psz - &__libc_gszExecPath[0];
+    }
+    else
+    {
+        LIBC_ASSERTM_FAILED("DosQueryModuleName(exe) failed: hmte=%lx rc=%d\n", pPib->pib_hmte, rc);
+        gExecRewriteRule.cchTo = 1;
+        gExecRewriteRule.pszTo = "/";
+    }
+    if (__libc_PathRewriteAdd(&gExecRewriteRule, 1))
+        LIBCLOG_RETURN_INT(-1);
 
     /*